Q
3 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/09/20. PRINTED = 24/05/05. 20.03.22.
0                   UJN          =  DFTN5       FAMILY    = CYBER         JOB ORIGIN    = BATCH.              
                    CREATING JSN =  AABQ        USER NAME = INSTALL       SERVICE CLASS = BATCH.                        
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA   IIIIIIIIIIII   AAAAAAAAAA    AAAAAAAAAA   BBBBBBBBBBB    QQQQQQQQQQ   
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  IIIIIIIIIIII  AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  QQQQQQQQQQQQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  QQ        QQ  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBB   QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ        QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ    QQ  QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ     QQ QQ  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  QQ      QQQQ  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBBB  QQQQQQQQQQQQ  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBB    QQQQQQQQQQ   
Q
T
2  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
2 
R
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/05. 19.56.19.      PAGE   1    
  
 /////    *COMPILE COMCARG.COMPCOM    
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/05. 19.56.19.      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/05. 19.56.19.      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/05. 19.56.26.      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/05. 19.56.26.      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/05. 19.56.29.      PAGE   1    
  
 YANK$$$  *DEFINE,TEST                                                                     DEBUG          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 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.29.      PAGE   2    
  
 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 
 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    *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       CSNAP         67 
 CSNAP    *CALL     COMDDMT            DEBUG UTILITY TO DUMP TABLES                        CSNAP        124 
 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      *CALL COMATOK                                                                    FC5A158A     301 
 IDP      *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       IDP           77 
 IDP      *CALL COMSTOK                                                                    FC5A158A     304 
 IDP      *CALL     COMCLFM                  LOCAL FILE MANAGER                            IDP          510 
 IDP      *CALL     COMCIDP - INTERACTIVE DEBUG PACKAGE                                    IDP          513 
 IDP      *CALL COMCBUB                                                                    IDP          514 
 IDP      *CALL COMCBUN                                                                    IDP          515 
 IDP      *CALL COMCCDD                                                                    IDP          516 
 IDP      *CALL COMCCIO                                                                    IDP          517 
 IDP      *CALL COMCCOD                                                                    IDP          518 
 IDP      *CALL COMCDXB                                                                    IDP          519 
 IDP      *CALL COMCMCS                                                                    IDP          520 
 IDP      *CALL COMCRDC                                                                    IDP          521 
 IDP      *CALL COMCRDW                                                                    IDP          522 
 IDP      *CALL     COMCRSR            RESTORE REGISTERS VIA CPU                           IDP          523 
 IDP      *CALL COMCSBM                                                                    IDP          524 
 IDP      *CALL COMCSFN                                                                    IDP          525 
 IDP      *CALL     COMCSVR            SAVE REGISTERS VIA CPU                              IDP          526 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.29.      PAGE   3    
  
 IDP      *CALL COMCSYS                                                                    IDP          527 
 IDP      *CALL COMCTOK                                                                    IDP          528 
 IDP      *CALL COMCWOD                                                                    IDP          529 
 IDP      *CALL COMCWTC                                                                    IDP          530 
 IDP      *CALL COMCWTW                                                                    IDP          531 
 IDP      *CALL     COMCXJR            RESTORE REGISTERS VIA *XJR*                         IDP          532 
 IDP      *CALL COMCZTB                                                                    IDP          533 
 IDP      *CALL     COMQSVR                                                                IDP          588 
 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       
  
 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    *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       FSNAP         90 
 FSNAP    *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS                          FSNAP         93 
 FSNAP    *CALL     COMSTOK            COMCTOK INTERFACE TEXT.                             FSNAP         94 
 FSNAP    *CALL     COMDDMT            (DEBUG) DUMP MANAGED TABLES                         FSNAP        678 
 FSNAP    *CALL     COMDTOK            DEBUG UTILITY FOR COMCTOK                           FSNAP        680 
 FSNAP    *ENDIF TEST                                                                      FC5A388       13 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.29.      PAGE   4    
  
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 
 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 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.29.      PAGE   5    
  
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 
0       
  
 RLINK    *CALL     OPRDEFS            OPT OPCODE DEFINITIONS                              RLINK        101 
 RLINK    *CALL COMFSCS                                                                    RLINK        679 
0       
  
 RSNAP    *IF DEF,TEST                                                                     FC5A388       15 
 RSNAP    *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       RSNAP         68 
 RSNAP    *CALL     COMDDMT            DEBUG UTILITY TO DUMP TABLES                        RSNAP        125 
 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 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.29.      PAGE   6    
  
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 
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       
  
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.29.      PAGE   7    
  
 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 
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/05. 19.56.29.      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/05. 19.56.29.      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  DEBUG   
0                 31 PURGED IDENTS WERE FOUND   
  
1UNLABELED OLDPL              DECK LIST AS WRITTEN, IF NEWPL          UPDATE 1.4-871.      24/05/05. 19.56.29.      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       
  
          VALUES DEFINED FOR THIS UPDATE
  
          TEST    
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   COMSIDP   COMQSVR   COMATOK   COMSTOK   COMCLFM   COMCIDP   COMCBUB 
          COMCBUN   COMCRSR   COMCSVR   COMCSYS   COMCTOK   COMCWTC   COMCXJR   COMCCPM 
          COMCSTF   COMDTOK   OPRDEFS 
1UNLABELED OLDPL              DECKS WRITTEN TO COMPILE FILE           UPDATE 1.4-871.      24/05/05. 19.56.29.      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/05. 19.56.56.      PAGE   1    
  
 /////    *COMPILE CMPLTXT.WEOR2*,CGTM,MIO.BDT,CFA.UDT    
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
 YANK$$$  *DEFINE TEST                                                                     DEBUG          1 
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 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/05. 19.56.56.      PAGE   2    
  
 CCGTEXT  *CALL     FA=DEFS                                                                CCGTEXT       27 
 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/05. 19.56.56.      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/05. 19.56.56.      PAGE   4    
  
          *L803*    CCGA100   *L826*    CCG*94    *L840*    *L847*    *L851*    *L859*  
          *L871*    DEBUG   
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       
  
          VALUES DEFINED FOR THIS UPDATE
  
          TEST    
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 
1UNLABELED OLDPL              DECKS WRITTEN TO COMPILE FILE           UPDATE 1.4-871.      24/05/05. 19.56.56.      PAGE   5    
  
          CMPLTXT   WEOR1*    CCGTEXT   WEOR2*    CGTM      MIO       FBV       GPO     
          GRA       PROSEQ    SQZ       MCG       BDT       CFA       UDT     
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/05. 19.57.08.      PAGE   1    
  
 /////    *COMPILE DMPIIT.PRNTMCG,OUTPTK
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
 YANK$$$  *DEFINE TEST                                                                     DEBUG          1 
0       
  
 OUTPTK   *ENDIF                                                                           OUTPTK      1204 
0       
  
 PRNTMCG  *ENDIF                                                                           PRNTMCG      264 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/05. 19.57.08.      PAGE   2    
  
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/05. 19.57.08.      PAGE   3    
  
          *L803*    CCGA100   *L826*    CCG*94    *L840*    *L847*    *L851*    *L859*  
          *L871*    DEBUG   
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$$$   OUTPTK    DMPIIT    DMPRLST   DMPSIT    DMPTREE   DMPUDI    PRNTGRA 
          PRNTMIO   PRNTUDI   PRNTABV   PRNTBV    PRNTRLI   PRNTMCG 
0       
  
          VALUES DEFINED FOR THIS UPDATE
  
          TEST    
0       
  
          DECKS WRITTEN TO COMPILE FILE 
  
          OUTPTK    DMPIIT    DMPRLST   DMPSIT    DMPTREE   DMPUDI    PRNTGRA   PRNTMIO 
          PRNTUDI   PRNTABV   PRNTBV    PRNTRLI   PRNTMCG 
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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
                                   1     TEST     =      1           ASSEMBLE COMPILER IN TEST MODE              OPTIONS   378
                                                                                                                 OPTIONS   381
                                  -1     SC2ZERO  SET    .OS-2                                                   FC5A158A   58
                                   1     .SPY     =      SC2ZERO/SC2ZERO*TEST                                    FC5A158A   59
                                        *                                                                        OPTIONS   383
                                        ***                                                                      OPTIONS   384
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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            1.047 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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.09.      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            1                  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            1                  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/05. 19.57.09.      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/05. 19.57.09.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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
                                   1     TEST     =      1           ASSEMBLE COMPILER IN TEST MODE              OPTIONS   378
                                                                                                                 OPTIONS   381
                                  -1     SC2ZERO  SET    .OS-2                                                   FC5A158A   58
                                   1     .SPY     =      SC2ZERO/SC2ZERO*TEST                                    FC5A158A   59
                                        *                                                                        OPTIONS   383
                                        ***                                                                      OPTIONS   384
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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            2.541 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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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            1                  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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.10.      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            1                  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/05. 19.57.10.      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/05. 19.57.10.      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/05. 19.57.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1422              IDENT  CGTM 
                       1422                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1350 
                                        LITERALS* LOCAL        1350         4 
                                        OPRS      COMMON          0       107 
                                        DEBUG     LOCAL        1354        46 
  
  
                                        ENTRY POINTS. 
  
                                        B=CGTM           0+           L$RCT          734+           Z$IOA           23
                                        F.OPT            0+           Z$RCT            6            O$APT          707+ 
                                        CONTV           10+           O$BCT          671+           L$APT          752+ 
                                        CG$IEP          13+           L$BCT          734+           Z$APT           24
                                        PUNT#           33+           Z$BCT            6            O$IOT          710+ 
                                        CG.MOX#         42+           O$CFT          672+           L$IOT          753+ 
                                        CG$SCT          46+           L$CFT          735+           Z$IOT           25
                                        CG$ENC          56+           Z$CFT            7            O$GLT          711+ 
                                        CG$FCU          75+           O$BST          673+           L$GLT          754+ 
                                        WPW#           101+           L$BST          736+           Z$GLT           26
                                        N$SLBT         105+           Z$BST           10            O$ASG          712+ 
                                        N$IT           106+           O$PSI          674+           L$ASG          755+ 
                                        N$OT           107+           L$PSI          737+           Z$ASG           27
                                        CC$LBO         110+           Z$PSI           11            O$CVT          713+ 
                                        CC$PC          111+           O$RXI          675+           L$CVT          756+ 
                                        CC$BLEN        112+           L$RXI          740+           Z$CVT           30
                                        CG$RBT         113+           Z$RXI           12            O$CUT          714+ 
                                        CG$CUB         126+           O$TET          676+           L$CUT          757+ 
                                        FSU#           140+           L$TET          741+           Z$CUT           31
                                        CG$DSA         173+           Z$TET           13            O$SYM          715+ 
                                        CG$EP          146+           O$IIT          677+           L$SYM          760+ 
                                        WII#           207+           L$IIT          742+           Z$SYM           32
                                        CG$AVO         441+           Z$IIT           14            O$CBT          716+ 
                                        SYM            451+           O$IOL          677+           L$CBT          761+ 
                                        GETNSYM        455+           L$IOL          742+           Z$CBT           33
                                        CSN#           465+           Z$IOL           14            O$NLST         717+ 
                                        F$RDT          504+           O$UDI          700+           L$NLST         762+ 
                                        ISC=           615+           L$UDI          743+           Z$NLST          34
                                        SST#           634+           Z$UDI           15            O$DIM          720+ 
                                        SHL#           660+           O$FUN          665+           L$DIM          763+ 
                                        O$BLK          663+           L$FUN          730+           Z$DIM           35
                                        L$BLK          726+           Z$FUN            2            O$ENTP         721+ 
                                        Z$BLK            0            O$VDT          701+           L$ENTP         764+ 
                                        O$TXT          664+           L$VDT          744+           Z$ENTP          36
                                        L$TXT          727+           Z$VDT           16            O$FPI          722+ 
                                        Z$TXT            1            O$DTT          667+           L$FPI          765+ 
                                        O$GST          664+           L$DTT          732+           Z$FPI           37
                                        L$GST          727+           Z$DTT            4            O$VDI          723+ 
                                        Z$GST            1            O$PAP          674+           L$VDI          766+ 
                                        O$RND          665+           L$PAP          737+           Z$VDI           40
                                        L$RND          730+           Z$PAP           11            O$LPT          724+ 
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        Z$RND            2            O$PFP          675+           L$LPT          767+ 
                                        O$DUT          665+           L$PFP          740+           Z$LPT           41
                                        L$DUT          730+           Z$PFP           12            O$FE           725+ 
                                        Z$DUT            2            O$TST          671+           L$FE           770+ 
                                        O$TREE         665+           L$TST          734+           Z$FE            42
                                        L$TREE         730+           Z$TST            6            F$FRT          771+ 
                                        Z$TREE           2            O$AUD          676+           LM#            775+ 
                                        O$PIT          666+           L$AUD          741+           TO#           1004+ 
                                        L$PIT          731+           Z$AUD           13            MX.BLN#       1005+ 
                                        Z$PIT            3            O$SAP          702+           THRESH#       1006+ 
                                        O$PBT          666+           L$SAP          745+           TOV#          1007+ 
                                        L$PBT          731+           Z$SAP           17            TOB#          1015+ 
                                        Z$PBT            3            O$CLW          703+           MOREFL#       1037+ 
                                        O$OTI          667+           L$CLW          746+           CWS#          1064+ 
                                        L$OTI          732+           Z$CLW           20            CG$PTC        1145+ 
                                        Z$OTI            4            O$CAC          704+           ATSNAT#       1207+ 
                                        O$MLT          667+           L$CAC          747+           ATSTOG#       1210+ 
                                        L$MLT          732+           Z$CAC           21            ATS$          1212+ 
                                        Z$MLT            4            O$APL          705+           AFT#          1317+ 
                                        O$MOD          670+           L$APL          750+           ADW$          1327+ 
                                        L$MOD          733+           Z$APL           22            MTU$          1345+ 
                                        Z$MOD            5            O$IOA          706+ 
                                        O$RCT          671+           L$IOA          751+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        F.MEM     O$SEQ     OUTPUT#   DMB#      O.LCT#    S$IT      HE$CTX
                                        DCM=      L$BIT     CP.NFLS   MX.AVS#   O.ELT#    WTW=      N$FERR
                                        SV=X      O$BIT     HO$MFLS   M.BBL#    L.ELT#    S$CON     MSG=
                                        WNB=      SOB       HO$PMLS   SNP=      CC$SUB    N$LBT     B=MIO 
                                        F.OUT     RSR=      SYS=      ZTB=      N.GT#     F$LBT     CIO=
                                        DMPRLST   OUTCI.    CP.AFLS   N$VD      CC$SUB0   F.SLST    HO$OPT
                                        L$SEQ     SVR=      CGB#      BN#       S$OT      MVE=      HE$EPX
  
  
  
  
                                                  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
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE     3
                                                                      OPT 
  
             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
             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
            10                           CONTV    ENTRY.                                                         CCGA072    31
            11  53110                             SA1    X1                                                      CCGA072    32
                     5120000713 +                 SA2    =XO$CVT                                                 CCGA072    33
                               36312              IX3    X1+X2                                                   CCGA072    34
            12  53430                             SA4    X3          CVT(ARG)                                    CCGA072    35
                     10644                        BX6    X4                                                      CCGA072    36
                          0400000010 +            EQ     CONTV                                                   CCGA072    37
                                         .T       ENDIF                                                          CCGA072    38
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
            13                           CG$IEP   ENTRY.                                                         CGTM       32
                                                  SETB1                                                          CGTM       33
            14  7160001007 +                      SX6    TOV#                                                    CGTM       34
                          5160001004 +            SA6    TO          TO = TOV#     */ RESTORE TBL MGR EXIT       CGTM       35
            15  7160000000 X                      SX6    =XHE$EPX                                                CGTM       36
                          5160000042 +            SA6    CG.MOX      SET END PROCESSING OVERFLOW EXIT            CGTM       37
            16  5110000000 X                      SA1    =XHO$OPT                                                CGTM       38
                          0321000023 +            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
            17  7160001000                        SX6    1000B                                                   CGTM       44
                          5160000001 +            SA6    =XF.OPT+1   CLEAR RANDOM BIT, SET POINTERS TO           CGTM       45
            20  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
            21  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
            23  7160000000 X             IEP1     SX6    =XB=MIO     SET NEW LOW MEMORY LIMIT                    CGTM       55
                          5160000775 +            SA6    LM                                                      CGTM       56
            24  5160000663 +                      SA6    O$BLK                                                   CGTM       57
                          5160000664 +            SA6    O$TXT                                                   CGTM       58
            25  0400000013 +                      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
            26  55030307554655111623     PUNTA    DIS    ,$ CCG - INSUFFICIENT MEMORY TO COMPILE - 1234567$      CGTM       66
                                                                                                                 CGTM       67
            33                           PUNT     ENTRY. **,#                                                    CGTM       68
            34  10611                             BX6    X1                                                      CGTM       69
                     5160000032 +                 SA6    PUNTA+4                                                 CGTM       70
                                                  IFNE   TEST,0,1                                                CGTM       71
            35  7110000026 +                      MESSAGE PUNTA,,RCL * CCG - INSUFFICIENT MEM TO COMPILE *       CGTM       72
            37  5120000000 X                      SA2    =XN$FERR                                                CGTM       73
                          73721                   SX7    X2+B1       N.FERR = N.FERR + 1                         CGTM       74
                               54720              SA7    A2                                                      CGTM       75
            40  5130000042 +                      SA3    CG.MOX                                                  CGTM       76
                          6223000000              SB2    X3+                                                     CGTM       77
            41  0222000000                        JP     B2          EXIT TO CONTROL ROUTINE                     CGTM       78
                                                                                                                 CGTM       79
            42                           CG.MOX   ENTRY. =XHE$CTX,#  MEMORY OVERFLOW EXIT                        CGTM       80
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
            43  76100                    SCT0     ADDWRD CUT,B0                                                  CGTM       88
            45  7263777776                        SX6    X3-1                                                    CGTM       89
                                                                                                                 CGTM       90
            46                           CG$SCT   ENTRY.                                                         CGTM       91
                                                  SETB1                                                          CGTM       92
            47  5100000030                        ADDWRD CVT,X1      ADDWRD( CVT , CON )                         CGTM       93
            50  5242000000                        SA4    X2+                                                     CGTM       94
                          6272000001              SB7    X2+1                                                    CGTM       95
            51  13146                    SCT1     BX1    X4-X6                                                   CGTM       96
                     54441                        SA4    A4+B1                                                   CGTM       97
                          0311000051 +            NZ     X1,SCT1     IF CON " CVT(I)                             CGTM       98
            52  0331000051 +                      MI     X1,SCT1     IF NOT COMPLEMENTS                          CGTM       99
                                                                                                                 CGTM      100
                          65747                   SB7    A4-B7                                                   CGTM      101
                               76670              SX6    B7                                                      CGTM      102
            53  0476000043 +                      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
            54  0400000046 +                      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
            55  76670                    ENC0     SX6    B7          ORD = I                                     CCG18      20
                     76760                        SX7    B6                                                      CCG18      21
                          5170000756 +            SA7    L$CVT       L.CVT = OLEN                                CCG18      22
            56                           CG$ENC   ENTRY.                                                         CCG18      23
                                                  SETB1                                                          CCG18      24
            57  73150                             ALLOC  CVT,X5      ALLOC( CVT , N ) , OLEN = OLD(L.CVT)        CCG18      25
            61  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
            63  6170777776                        SB7    -1          I = -1                                      CCG18      30
                                                                                                                 CCG18      31
            64  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
            65  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
            66  0316000064 +                      NZ     X6,ENC1     IF CVT(I+5) " TBL(K)                        CCG18      41
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE     6
        UTILITY ROUTINES                                              ENC 
  
                          0336000064 +            MI     X6,ENC1     IF COMPLEMENTS                              CCG18      42
            67  0735000065 +                      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
            70  0663000055 +                      LE     B3,B6,ENC0  IF LWAC @ OLEN                              CCG18      48
                                                                                                                 CCG18      49
                                        *         EXPAND *CVT*                                                   CCG18      50
                                                                                                                 CCG18      51
                          76730                   SX7    B3                                                      CCG18      52
            71  5170000756 +                      SA7    L$CVT       L.CVT = LWAC                                CCG18      53
                          76570                   SX5    B7                                                      CCG18      54
                               77136              ALLOC  CUT,B3-B6   ALLOC( CUT , LWAC-OLEN )                    CCG18      55
            73  43600                             SETZERO X2+B6,X1                                               CCG18      56
            74  10655                             BX6    X5          ORD = I                                     CCG18      57
                     0400000056 +                 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
            75                           CG$FCU   ENTRY.                                                         CGTM      112
            76  5120000714 +                      SA2    =XO$CUT                                                 CCG16      64
                          76610                   SX6    B1                                                      CGTM      114
                               63210              SB2    X1                                                      CGTM      115
            77  53622                             SA6    X2+B2       CUT(K) = 1                                  CGTM      116
                     0400000075 +                 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
           100  7120000000 X             WPW1     WRITEW =XF.SLST,B6,B7                                          CGTM      125
                                                                                                                 CGTM      126
           101                           WPW      ENTRY. **,#                                                    CGTM      127
           102  27636                             PX6    B3,X6                                                   CGTM      128
                     5160000104 +                 SA6    WPWA                                                    CGTM      129
                               64660              SB6    A6                                                      CGTM      130
           103  66710                             SB7    B1                                                      CGTM      131
                     0400000100 +                 EQ     WPW1                                                    CGTM      132
                                                                                                                 CGTM      133
           104                     1     WPWA     BSS    1                                                       CGTM      134
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           105                           N$SLBT   ENTRY. 0                                                       CCG16      65
           106                           N$IT     ENTRY. 0                                                       CCG15      15
           107                           N$OT     ENTRY. 0                                                       CCG15      16
                                                                                                                 CCG15      17
           110                           CC$LBO   ENTRY. 0           ORDINAL OF LOCAL BLOCK BEING PROCESSED      CCG15      18
           111                           CC$PC    ENTRY. 0           PARCEL COUNTER ( 0 - 3 )                    CCG15      19
           112                           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
           113  0200400113 +             CG$RBT   ROUTINE                                                        CCG15      29
           114  5130000111 +                      SA3    CC$PC                                                   CCG15      30
                          5140000112 +            SA4    CC$BLEN                                                 CCG15      31
           115  7110000000 X                      SX1    =XF$LBT                                                 CCG16      66
                          5120000110 +            SA2    CC$LBO                                                  CCG15      33
           116  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
           117  66200                             SB2    B0          I = 0                                       CCG15      39
                     5130000000 X                 SA3    =XN$LBT                                                 CCGA072    39
           120  6233000001                        SB3    X3+1        N = N$LBT + 1                               CCGA072    40
                          43052                   MX0    42                                                      CCG15      41
                               43700              MX7    0           S = 0                                       CCG15      42
                                                                                                                 CCG15      43
           121  53312                    RBT1     SA3    X1+B2                                                   CCG15      44
                     11503                        BX5    X0*X3                                                   CCG15      45
                          0305000123 +            ZR     X5,RBT2     IF PC[LBT(I)] = 0                           CCG15      46
           122  7233000001                        SX3    X3+1        BLEN[LBT(I)] = BLEN[LBT(I)] + 1             CCG15      47
           123  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
           124  0723000121 +                      LT     B2,B3,RBT1                                              CCG15      51
                                                                                                                 CCG15      52
                          5170000105 +            SA7    N$SLBT                                                  CCG15      53
           125  0400000113 +                      EQ     CG$RBT                                                  CCG15      54
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           126  0200400126 +             CG$CUB   ROUTINE                                                        CCG15      60
                                                  SETB1                                                          CCG15      61
           127  5120000110 +                      SA2    CC$LBO      OBO = CC$LBO                                CCG15      62
                          37712                   IX7    X1-X2                                                   CCG15      63
                               10611              BX6    X1                                                      CCG15      64
           130  0307000126 +                      ZR     X7,CG$CUB   IF NBO = OBO                                CCG15      65
                                                                                                                 CCG15      66
                          54620                   SA6    A2          CC$LBO = NBO                                CCG15      67
           131  5130000111 +                      SA3    CC$PC                                                   CCG15      68
                          5140000112 +            SA4    CC$BLEN                                                 CCG15      69
           132  20366                             LX3    54                                HX3   LB.PARC         CCG0220     9
                     12634                        BX6    X3+X4                                                   CCG15      71
                          6130000000 X            SB3    F$LBT                                                   CCG16      68
           133  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
           134  21566                             AX5    54          PARCNT = PARC[LBTI] / AX5   -LB.PARCL       CCG0220    10
                     73650                        SX6    X5                                                      CCG15      79
                          54630                   SA6    A3                                                      CCG15      80
           135  7261100000                        SX6    X1+1S15                                                 CCG15      81
                          6130777770              WRITEP USE         OUTPUT *USE* TO SLIST                       CCG15      82
           137  0400000126 +                      EQ     CG$CUB                                                  CCG15      83
  
  
  
                                        **        FSU# - FORCE NEXT SEQUENCE UPPER                               CCG15      85
                                                                                                                 CCG15      86
           140  0200400140 +             FSU#     ROUTINE                                                        CCG15      87
           141  5110000111 +                      SA1    CC$PC                                                   CCG15      88
                          0301000140 +            ZR     X1,FSU#     IF PARCEL = 0                               CCG15      89
           142  43700                             MX7    0                                                       CCG15      90
                     54710                        SA7    A1          PARCEL = 0                                  CCG15      91
                          5120000112 +            SA2    CC$BLEN                                                 CCG15      92
           143  73621                             SX6    X2+B1       BLEN = BLEN + 1                             CCG15      93
                     54620                        SA6    A2                                                      CCG15      94
                          5160000145 +            SA6    FU          FU = 1                                      CCG15      95
           144  0400000140 +                      EQ     FSU#                                                    CCG15      96
                                                                                                                 CCG15      97
           145  00000000000000000000     FU       DATA   0           "0 IF TO FORCE UPPER                        CCG15      98
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           146  0200400146 +             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
           147  76100                             ADDWRD CUT,0                                                   CCG15     123
           151  5110000713 +                      SA1    O$CVT                                                   CCG16      69
                          66200                   SB2    B0          I = 0                                       CCG15     125
                               63330              SB3    X3          N = L.CUT                                   CCG15     126
           152  63410                             SB4    X1                        (B4) = CVT                    CCG15     127
                     63520                        SB5    X2                        (B5) = CUT                    CCG15     128
                          7170000000              SX7    0           J = 0                                       CCG15     129
                                                                                                                 CCG15     130
           153  56552                    EP1      SA5    B5+B2                                                   CCG15     131
                     0305000155 +                 ZR     X5,EP2      IF CUT(I) = 0 */ CON NOT REFERENCED         CCG15     132
                                                                                                                 CCG15     133
                               54750              SA7    A5          CUT(I) = J    */ SET ORDINAL                CCG15     134
           154  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
           155  66221                    EP2      SB2    B2+B1       I = I + 1                                   CCG15     140
                     0723000153 +                 LT     B2,B3,EP1   IF I < N                                    CCG15     141
                                                                                                                 CCG15     142
                               10577              BX5    X7                                                      CCG15     143
           156  0307000165 +                      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
           157  76200                             SX2    B0                                                      CCG15     149
                     0100000173 +                 RJ     CG$DSA      DEFINE CON.                                 CCG15     150
           160  5130000112 +                      SA3    CC$BLEN                                                 CCGA072    41
                          36735                   IX7    X3+X5                                                   CCGA072    42
                               54730              SA7    A3          BLEN = BLEN + L$CVT                         CCGA072    43
           161  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/05. 19.57.15.      PAGE    10
        CG$EP - CCG END PROCESSOR                                     CG$EP               WII 
  
           163  5140000713 +                      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
           165  7160000000               EP3      SX6    0                                                       CCG15     159
                          5160000756 +            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
           172  0400000146 +                      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
           173  0200400173 +             CG$DSA   ROUTINE                                                        CCG15     178
           174  5140000111 +                      SA4    CC$PC                                                   CCG15     179
                                                  SETB1                                                          CCG15     180
                          5130000112 +            SA3    CC$BLEN                                                 CCG15     181
           175  76610                             SX6    B1                                                      CCG15     182
                     20672                        LX6    WC.RLP                                                  CCG15     183
                          0304000177 +            ZR     X4,DSA1     IF PARCEL = 0                               CCG15     184
           176  43700                             MX7    0                                                       CCG15     185
                     54740                        SA7    A4          PARCEL = 0                                  CCG15     186
                          7233000001              SX3    X3+1        BLEN = BLEN + 1                             CCG15     187
           177  36732                    DSA1     IX7    X3+X2       RA = BLEN;  BLEN = BLEN + WDS               CCG15     188
                     5140000110 +                 SA4    CC$LBO                                                  CCG15     189
                               54730              SA7    A3                                                      CCG15     190
           200  0301000204 +                      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
           201  5130000715 +                      SA3    =XO$SYM                                                 CCG16      73
                          12664                   BX6    X6+X4       ADW = WC(1,0,CG.LBO,RA)                     CCG15     195
           202  6223000002                        SB2    X3+2                                                    CCG15     196
                          22711                   LX7    B1,X1                                                   CCG15     197
                               36717              IX7    X1+X7                                                   CCG15     198
           203  53672                             SA6    B2+X7       SYM(3*IH+2) = ADW                           CCG15     199
           204  20236                    DSA2     LX2    R1.CAP                                                  CCG15     200
                     12621                        BX6    X2+X1                                                   CCG15     201
                          6130000006              WRITEP LAB         OUTPUT * IH BSS WDS * TO SLIST              CCG15     202
           206  0400000173 +                      EQ     CG$DSA                                                  CCG15     203
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           207  0200400207 +             WII#     ROUTINE                                                        CCG15     216
                                                  TRACE  WII,PIT                                                 CCG15     217
           210  5150000666 +                      SA5    O$PIT                                                   CCG16      74
                          63650                   WRITEW F.SLST,X5,1       OUTPUT *BOS* TO SLIST                 CCG15     219
           212  5110000145 +                      SA1    FU                                                      CCG15     220
                          0301000215 +            ZR     X1,WII0     IF FU = 0     */ NO FORCE UPPER             CCG15     221
           213  43600                             MX6    0           FU = 0                                      CCG15     222
                     54610                        SA6    A1                                                      CCG15     223
                          6130000006              WRITEP LAB                                                     CCG30       1
                                                                                                                 CCG15     225
           215  53550                    WII0     SA5    X5          PI = [O.PIT]                                CCG15     226
                     5120000715 +                 SA2    O$SYM                                                   CCG16      75
                               63621              SB6    X2+B1                     (B6) = SYM + 1                CCG15     228
           216  5140000111 +                      SA4    CC$PC                                                   CCG15     229
                          5130000112 +            SA3    CC$BLEN                                                 CCG15     230
           217  63730                             S"BL"  X3                                                      CCG15     231
                     6254777773                   S"PC"  X4-4                                                    CCG15     232
                               66200              S"SZ"  B0          SZ = 0                                      CCG15     233
           220  5120000714 +                      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
           221  66552                    WII1     S"PC"  "PC"+"SZ"   PC = PC + SZ                                CCG15     240
                     54551                        SA5    A5+B1       PI = PI + 1                                 CCG15     241
                          0750000224 +            LT     "PC",WII2   IF PC < 4                                   CCG15     242
                                                                                                                 CCG15     243
           222  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
           223  0430000224 +                      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
           224  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
           225  5236000375 +                      SA3    WIIA+X6                                                 CCG16      80
                          7140000036              SX4    30                                                      CCG16      81
           226  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/05. 19.57.15.      PAGE    12
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    WII                 WII 
  
                               22343              LX3    B4                                                      CCG16      85
           227  63430                             SB4    X3                                                      CCG15     257
                     0244000221 +                 JP     B4+WII1     JUMP TO PROCESSOR                           CCG15     258
  
  
                                        **        NOP - TERMINATE PROCESSING                                     CCG15     260
                                                                                                                 CCG15     261
           230                                    PROCESS NOP                                                    CCG15     262
           230  7165000004                        SX6    "PC"+4                                                  CCG15     263
                          5160000111 +            SA6    CC$PC                                                   CCG15     264
           231  7177000000                        SX7    "BL"+                                                   CCG15     265
                          5170000112 +            SA7    CC$BLEN                                                 CCG15     266
           232  5140000666 +                      SA4    =XO$PIT                                                 CCG16      86
                          5130000731 +            SA3    =XL$PIT                                                 CCG16      87
           233  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
           236  0400000207 +                      EQ     WII#                                                    CCG15     272
  
  
                                         .FPAS    IFNE   HC.FPAS*.DAL      F.P. ADDSUB & LEVEL 2                 CCG16      89
                                                                                                                 CCG16      90
           237                                    PROCESS (DRL,DWL)                                              CCG16      91
           237  21714                             AX7    SI.IHP                                                  CCG16      92
                     63470                        SB4    X7                                                      CCG16      93
                          0440000221 +            ZR     B4,WII1     IF IH[PI] = 0 */ NOT A *SUB0*               CCG35       4
           240  6247737777                        SB4    X7-IH.LCM                                               CCG35       5
                          76644                   SX6    B4+B4                                                   CCG35       6
                               66464              SB4    B6+B4                                                   CCG16      97
           241  53464                             SA4    B4+X6       WORDB = SYM(3*IH+1)                         CCG16      98
                     43763                        MX7    -WB.FPOL                                                CCG16      99
                          20433                   LX4    -WB.FPOP                                                CCG16     100
           242  5130000722 +                      SA3    =XO$FPI                                                 CCG16     101
                          15647                   BX6    -X7*X4                                                  CCG16     102
           243  6243777776                        SB4    X3-1                                                    CCG24       1
                          53264                   SA2    B4+X6                                                   CCG16     104
                               76310              SX3    B1                                                      CCG16     105
           244  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
           245  54620                             SA6    A2                                                      CCG16     108
                     0400000221 +                 EQ     WII1                                                    CCG16     109
                                         .FPAS    ENDIF                                                          CCG16     110
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    13
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    TLD                 WII 
  
                                        **        TLD, TST - ADJUST *CA* TO REFLECT ASSIGNMENT MADE BY *GPO*     CCG15     274
                                                                                                                 CCG15     275
           246                           TLD      PROCESS (TLD,TST)                                              CCG15     276
           246  20766                             LX7    -SI.RJP                                                 CCG15     277
                     15670                        BX6    -X0*X7                                                  CCG15     278
                          0316000221 +            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
           247  5110000676 +                      SA1    =XO$TET                                                 CCG15     284
                          6130000002              SB3    59-T.FAP                                                CCG15     285
           250  63210                             SB2    X1                        (B2) = TET                    CCG15     286
                     20744                        LX7    SI.RJP-SI.CAP                                           CCG15     287
                          6140000001              SB4    59-T.EQVP                                               CCG15     288
                                                                                                                 CCG15     289
           251  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
           252  0336000260 +                      MI     X6,TLD3     IF FA[TI]     */ FINAL ASSIGNMENT MADE      CCG15     294
                          0332000251 +            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
           253  5120000000 X                      SA2    =XN.GT#                                                 CCG15     300
                          10722                   BX7    X2          C = N.GT                                    CCG15     301
                               43352              MX3    -T.CAL                                                  CCG15     302
           254  73621                             SX6    X2+B1       N.GT = N.GT + 1                             CCG15     303
                     54620                        SA6    A2                                                      CCG15     304
                          5140000106 +            SA4    =XN$IT                                                  CCG15     305
           255  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
           256  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
           257  0324000260 +                      PL     X4,TLD3     N.IT = MAX( N.IT , C+1 )                    CCG15     314
                          54640                   SA6    A4                                                      CCG15     315
                                                                                                                 CCG15     316
           260  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
           261  20736                             LX7    SI.CAP                                                  CCG15     321
                     6120000002                   S"SZ"  2           SZ = 2                                      CCG15     322
                               54750              SA7    A5                                                      CCG15     323
           262  0400000221 +                      EQ     WII1                                                    CCG15     324
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    14
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    PLD                 WII 
  
           263                                    PROCESS (PLD,PST,S)                                            CCG15     326
           263  21736                             AX7    SI.CAP                                                  CCG15     327
                     0307000221 +                 ZR     X7,WII1     IF CA[PI] = 0                               CCG15     328
                               66211              S"SZ"  B1+B1       SZ = 2                                      CCG15     329
           264  0400000221 +                      EQ     WII1                                                    CCG15     330
  
  
  
           265                                    PROCESS ILD                                                    CCG15     332
           265  5120000000 X                      SA2    =XS$IT                                                  CCG15     333
                          20560                   LX5    -SI.IHP                                                 CCG15     334
                               13125              BX1    X2-X5                                                   CCG15     335
           266  63410                             SB4    X1                                                      CCG15     336
                     20514                        LX5    SI.IHP                                                  CCG15     337
                          0440000246 +            ZR     B4,TLD      IF IH[PI] = IT.                             CCGA028     5
                                                                                                                 CCG15     339
           267                                    PROCESS (LD,ST,STT)                                            CCG15     340
           267  21714                             AX7    SI.CAIHP                                                CCG15     341
                     0307000221 +                 ZR     X7,WII1     IF CAIH[PI] = 0                             CCG15     342
                               66211              S"SZ"  B1+B1       SZ = 2                                      CCG15     343
                                                                                                                 CCG15     344
           270  43171                             MX1    -IH.IL                                                  CCG15     345
                     20117                        LX1    IH.IP                                                   CCG15     346
                          15271                   BX2    -X1*X7                                                  CCG15     347
           271  0312000275 +                      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
           272  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
           273  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
           274  0323000275 +            +         PL     X3,*+1      IF ^FP[WORDB]                               CCG15     364
                          0100000324 +            RJ     CSR         COUNT SUB REF                               CCG15     365
                                         .FPAS    ENDIF                                                          CCG15     366
                                                                                                                 CCG15     367
                                         LD1      LX5    59-SI.H2P                                               CCG15     368
           275  0325000221 +                      PL     X5,WII1     IF ^HI[PI]                                  CCG15     369
                          5055000001              SA5    A5+1        PI = PI + 1   */ SKIP WORD WITH *H2* IN IT  CCG15     370
           276  0400000221 +                      EQ     WII1                                                    CCG15     371
  
  
           277                                    PROCESS LDC                                                    CCG15     373
           277  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
           300  53653                             SA6    B3+X5       CUT(CA[SI]) = 1                             CCG15     378
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    15
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    LDC                 WII 
  
                     0400000221 +                 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
           301                                    PROCESS LDV                                                    CCG16     116
           301  20736                             LX7    -SI.CAP                                                 CCG16     117
                     73170                        SX1    X7                                                      CCG16     118
                          0100000441 +            RJ     CG$AVO      CA = CG$AVO( CA[PI] )                       CCG16     119
           302  20536                             LX5    -SI.CAP                                                 CCG16     120
                     43752                        MX7    -SI.CAL                                                 CCG16     121
                          6130000050              SB3    OC.LD                                                   CCG16     122
           303  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
           304  54750                             SA7    A5                                                      CCG16     127
                     66211                        S"SZ"  B1+B1       SZ = 2                                      CCG16     128
                          0400000221 +            EQ     WII1                                                    CCG16     129
                                         .VD      ENDIF                                                          CCG16     130
  
  
  
                                        *         JUMPS                                                          CCG15     381
                                                                                                                 CCG15     382
           305                                    PROCESS (JPX,JPBB)                                             CCG15     383
           305  6140000014                        SB4    SI.IHP                                                  CCG15     384
                          0100000356 +            RJ     RLV         CHECK REFERENCED LABEL                      CCG15     385
           306  6120000002                        S"SZ"  2           SZ = 2                                      CCG15     386
                          0400000221 +            EQ     WII1                                                    CCG15     387
                                                                                                                 CCG15     388
           307                                    PROCESS JIN                                                    CCG15     389
           307  6140000014                        SB4    SI.IHP                                                  CCG15     390
                          0100000356 +            RJ     RLV         CHECK REFERENCED LABEL                      CCG15     391
           310  0400000312 +                      EQ     UJP1                                                    CCG15     392
                                                                                                                 CCG15     393
           311                                    PROCESS UJP                                                    CCG15     394
           311  66400                             SB4    B0                                                      CCG15     395
                     0100000356 +                 RJ     RLV         CHECK REFERENCED LABEL                      CCG15     396
                                                                                                                 CCG15     397
                                        *         UNCONDITIONAL JUMP, FORCE UPPER AFTER                          CCG15     398
                                                                                                                 CCG15     399
           312                                    PROCESS RJ3                                                    CCG15     400
           312  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
           313  54551                             SA5    A5+B1       PI = PI + 1                                 CCG15     404
                     0336000224 +                 MI     X6,WII2     IF S < 3      */ OLD(PC)+1 < 3              CCG15     405
                               66771              S"BL"  "BL"+B1     BLEN = BLEN + 1                             CCG15     406
           314  0400000224 +                      EQ     WII2                                                    CCG15     407
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           315                                    PROCESS RJ6                                                    CCG15     424
           315  7165000004                        SX6    "PC"+4                                                  CCG15     425
                          0306000317 +            ZR     X6,RJ61     IF PC = 0                                   CCG15     426
           316  6150777773                        S"PC"  -4          PC = 0                                      CCG15     427
                          6177000001              S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     428
           317                           RJ61     BSS    0                                                       CCG15     429
                                         .FPAS    IFNE   HC.FPAS,0                                               CCG15     430
           317  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
           320  0323000321 +            +         PL     X3,*+1      IF ^FP[WORDB]                               CCG15     435
                          0100000324 +            RJ     CSR         COUNT SUB REF                               CCG15     436
                                         .FPAS    ENDIF                                                          CCG15     437
                                                                                                                 CCG15     438
           321  20536                             LX5    -SI.CAP                                                 CCG15     439
                     7215770001                   SX1    X5-7776B                                                CCGA041     6
           322  0331000323 +                      MI     X1,RJ62     IF CA[R1] < 4095                            CCGA041     7
                          6177000001              S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     442
           323  54551                    RJ62     SA5    A5+B1       PI = PI + 1                                 CCG15     443
                     66771                        S"BL"  "BL"+B1     BLEN = BLEN + 1  */ COUNT RJ WORD           CCG15     444
                          0400000224 +            EQ     WII2                                                    CCG15     445
                                                                                                                 CCG15     446
                                         .RJ6     ENDIF                                                          CCG15     447
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           324  0200400324 +             CSR      ROUTINE                                                        CCG15     456
           325  5110000722 +                      SA1    =XO$FPI                                                 CCG16     131
                          20354                   LX3    1+WB.FPP-WB.FPOP                                        CCG15     458
                               43463              MX4    -WB.FPOL                                                CCG15     459
           326  15234                             BX2    -X4*X3                                                  CCG15     460
                     6232777776                   SB3    X2-1                                                    CCG18      60
                               53213              SA2    B3+X1                                                   CCG15     462
           327  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
           330  5160000000 X                      SA6    =XCC$SUB    CC$SUB = 1    */ INDICATE SUBS IN PROGRAM   CCG18      62
                          0400000324 +            EQ     CSR                                                     CCG15     475
                                         .FPAS    ENDIF                                                          CCG15     476
  
  
  
                                        **        LAB    CA,IH - DEFINE LABEL ADDRESS                            CCG15     478
                                                                                                                 CCG15     479
           331                                    PROCESS ENT                                                    CCG15     480
           331  76410                             SX4    B1                                                      CCG15     481
                     20436                        LX4    SI.CAP                                                  CCG15     482
                          12545                   BX5    X4+X5       CA = 1                                      CCG15     483
                                                                                                                 CCG15     484
           332                                    PROCESS LAB                                                    CCG15     485
           332  7165000004                        SX6    "PC"+4                                                  CCG15     486
                          0306000334 +            ZR     X6,LAB1     IF PC = 0                                   CCG15     487
           333  6150777773                        S"PC"  -4          PC = 0                                      CCG15     488
                          6177000001              S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     489
                                                                                                                 CCG15     490
           334  5110000110 +             LAB1     SA1    CC$LBO                                                  CCG15     491
                          76210                   SX2    B1                                                      CCG15     492
                               20272              LX2    WC.RLP                                                  CCG15     493
           335  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
           336  21717                             AX7    IH.IP                                                   CCG15     498
                     43171                        MX1    -IH.IL                                                  CCG15     499
                          15771                   BX7    -X1*X7                                                  CCG15     500
           337  5110000355 +                      SA1    LABA        MASK OF ADDRESS FIELDS                      CCG38       5
                          0307000351 +            ZR     X7,LAB2     IF I[PI] = 0                                CCG15     501
                                                                                                                 CCG15     502
           340  5237000770 +                      SA3    =XF$FRT-1+X7      TABLE POINTER ADDRESS                 CCG16     134
                          53330                   SA3    X3          BASE                                        CCG16     135
                               43455              MX4    -IH.HL                                                  CCG15     504
           341  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/05. 19.57.15.      PAGE    18
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    LAB                 WII 
  
                               53233              SA2    X3+B3                                                   CCG38       6
           342  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
           343  0541000353 +                      NE     B4,B1,LAB3  IF I[PI] " 1  */ NOT A GL                   CCGA021     9
                          5120000000 X            SA2    =XL.ELT#                                                CCGA021    10
           344  0302000353 +                      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
           345  53730                             SA7    X3          [ELT] = H     */ STORE SEARCH TERMINATOR    CCGA021    17
                     63420                        SB4    X2                                                      CCGA021    18
                          53334                   SA3    X3+B4       SEARCH TABLE                                CCGA021    19
           346  13437                   +         BX4    X3-X7                                                   CCGA021    20
                     55331                        SA3    A3-B1                                                   CCGA021    21
                          63440                   SB4    X4                                                      CCGA021    22
                               21422              AX4    18                                                      CCGA021    23
           347  0540000346 +                      NZ     B4,*-1                                                  CCGA021    24
                          0304000353 +            ZR     X4,LAB3     IF NO EQUIVALENT                            CCGA021    25
                                                                                                                 CCGA021    26
           350  10544                             BX5    X4          SET IH OF EQUIVALENT, CA MUST BE 0          CCGA021    27
                                                                                                                 CCG15     509
           351  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
           352  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
           353  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
           354  0400000224 +                      EQ     WII2                                                    CCG15     518
                                                                                                                 CCG38      14
           355                           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
           356  0200400356 +             RLV      ROUTINE                                                        CCG15     524
           357  23645                             AX6    B4,X5                                                   CCG15     525
                     43371                        MX3    -IH.IL                                                  CCG15     526
                          63366                   SB3    B6+X6                                                   CCG15     527
                               20317              LX3    IH.IP                                                   CCG15     528
           360  15763                             BX7    -X3*X6                                                  CCG15     529
                     0317000356 +                 NZ     X7,RLV      IF I[PI] " 0  */ NOT IN *SYM*               CCG15     530
                               73660              SX6    X6                                                      CCG15     531
           361  22716                             LX7    B1,X6                                                   CCG15     532
                     53373                        SA3    B3+X7       WORDB = SYM(3*H+1)                          CCG15     533
                          20343                   LX3    59-WB.LCP                                               CCG15     534
           362  0323000356 +                      PL     X3,RLV      IF ^LC[WORDB]                               CCG15     535
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           363  15321                             BX3    -X1*X2      L = LCO[WORDA]                              CCG15     540
                     5110000000 X                 SA1    =XO.LCT#                                                CCG18      63
           364  5120000000 X                      SA2    =XO$BIT                                                 CCG15     542
                          63210                   SB2    X1                                                      CCG15     543
                               63320              SB3    X2                                                      CCG15     544
                                                                                                                 CCG15     545
           365  53132                    RLV1     SA1    B2+X3       LCW = LCT(L)                                CCG15     546
                     5130000000 X                 SA3    =XBN#                                                   CCG15     547
                               43555              MX5    -BI.OLNL                                                CCG15     548
                                                                                                                 CCG15     549
           366  13713                    RLV2     BX7    X1-X3                                                   CCG15     550
                     15775                        BX7    -X5*X7                                                  CCG15     551
                          0307000372 +            ZR     X7,RLV3     IF K = HBN[LCW]                             CCG15     552
           367  53333                             SA3    B3+X3                                                   CCG15     553
                     20326                        LX3    -BI.OLNP                                                CCG15     554
                          15335                   BX3    -X5*X3      K = OLN[BIT(K)]                             CCG15     555
           370  0313000366 +                      NZ     X3,RLV2     IF K " 0                                    CCG15     556
                                                                                                                 CCG15     557
                          20130                   LX1    -LC.NEXTP                                               CCG15     558
                               73310              SX3    X1          L = NEXT[LCW]                               CCG15     559
           371  0313000365 +                      NZ     X3,RLV1     IF L " 0      */ NOT END OF CHAIN           CCG15     560
                          0400000356 +            EQ     RLV                                                     CCG15     561
                                                                                                                 CCG15     562
           372  20152                    RLV3     LX1    -LC.GLNP                                                CCG15     563
                     7271100000                   SX7    X1+I.GL     IH = GLN[LCW] + I.GL                        CCG15     564
                               22646              LX6    B4                                                      CCG15     565
           373  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
           374  54750                             SA7    A5                                                      CCG15     569
                     0400000356 +                 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
           375                           WIIA     BSS    0                                                       CCG16     145
           375                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
           440                                    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/05. 19.57.15.      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
           440  20330                    AVO1     LX3    1+VD.MATP-VD.CAP                                        CCG15     589
                     73130                        SX1    X3          CA = CA[VE]                                 CCG15     590
           441                           CG$AVO   ENTRY. **                                                      CCG15     591
           442  5140000723 +                      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
           443  0333000440 +                      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
           444  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
           445  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
           446  73611                             SX6    X1+B1       N$VD = N$VD + 1                             CCG15     606
                     54610                        SA6    A1                                                      CCG15     607
                          0400000441 +            EQ     CG$AVO                                                  CCG15     608
                                         .VD      ENDIF                                                          CCG15     609
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           447  6110000001               SYM1     SB1    1                                                       CCG15     618
                          0100000465 +            RJ     CSN         CONVERT ORDINAL TO BCD NAME                 CCG15     619
           450  43560                             MX5    48                                                      CCG15     620
                     11156                        BX1    X5*X6                                                   CCG15     621
                          0100000000 X            CALL   ZTB=        REMOVE ZERO BYTES                           CCG27       4
           451                           SYM      ENTRY.                                                         CCG15     628
           452  5221000000                        SA2    X1+                                                     CCG15     629
                          0312000447 +            NZ     X2,SYM1                                                 CCG15     630
           453  5130001350 +                      SA3    =1H                                                     CCG15     631
                          10633                   BX6    X3                                                      CCG15     632
           454  0400000451 +                      EQ     SYM                                                     CCG15     633
                                                                                                                 CCG15     634
                                        **        GETNSYM - RETURN N.SYMS IN SYMBOL TABLE                        CCG15     635
                                                                                                                 CCG15     636
           455                           GETNSYM  ENTRY.                                                         CCG15     637
           456  5120000760 +                      SA2    =XL$SYM                                                 CCG18      66
                          7130000003              SX3    3                                                       CCG15     639
           457  27202                             IX6    X2/X3,B2                                                CCG15     640
                               53610              SA6    X1                                                      CCG15     641
           461  0400000455 +                      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
           462  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
           463  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
           464  63330                             SB3    X3                                                      CCG15     661
                     11664                        BX6    X6*X4                                                   CCG15     662
                                                                                                                 CCG15     663
           465                           CSN      ENTRY. ,#                                                      CCG16     148
           466  43355                             MX3    -IH.HL                                                  CCG15     665
                     11632                        BX6    X3*X2                                                   CCG15     666
                          5140000715 +            SA4    O$SYM                                                   CCG16     149
           467  0306000462 +                      ZR     X6,CSN0     IF I[IH] = 0                                CCG15     668
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      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
           470  5232000477 +                      SA3    CSNA-1+X2                                               CCG15     674
                          20455                   LX4    60-IH.HL                                                CCG15     675
                               10633              BX6    X3                                                      CCG15     676
           471  6130000065                        SB3    9*6-1       BC = 54-1                                   CCG15     677
                                                                                                                 CCG15     678
           472  20403                   +         LX4    3                                                       CCG15     679
                     6133777771                   SB3    B3-6        BC = BC - 6                                 CCG15     680
                               73340              SX3    X4                                                      CCG15     681
           473  0303000472 +                      ZR     X3,*-1      SKIP PAST LEADING ZEROS                     CCG15     682
                                                                                                                 CCG15     683
                          6120000044              SB2    60-4*6                                                  CCG15     684
           474  37443                    CSN1     IX4    X4-X3       REMOVE DIGIT                                CCG15     685
                     22323                        LX3    B2                                                      CCG15     686
                          36663                   IX6    X6+X3       ADD DIGIT TO STRING                         CCG15     687
           475  6122777771                        SB2    B2-6                                                    CCG15     688
                          20403                   LX4    3                                                       CCG15     689
                               73340              SX3    X4                                                      CCG15     690
           476  0314000474 +                      NZ     X4,CSN1                                                 CCG15     691
                                                                                                                 CCG15     692
                          43301                   MX3    1                                                       CCG15     693
                               23333              AX3    B3                                                      CCG15     694
           477  11636                             BX6    X3*X6       REMOVE GARBAGE FROM THE NAME                CCG15     695
                     66331                        SB3    B3+B1       BC = BC + 1                                 CCG15     696
                          0400000465 +            EQ     CSN                                                     CCG15     697
                                                                                                                 CCG15     698
           500                           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/05. 19.57.15.      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
                                                  MACRO  OPR,NAME,SS                                             CGTM      142
                                         TY       SET    SS                                                      CGTM      143
                                                  CON    TY+1+4L_NAME                                            CGTM      144
                                                  ENDM                                                           CGTM      145
                                                                                                                 CGTM      146
                                                  USE    /OPRS/                                                  CGTM      147
             0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                                  USE    *                                                       CGTM      149
                                         .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
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    24
        F.RDT - CCG *IL* INSTRUCTION DESCRIPTOR TABLE                 OPR 
  
                                                  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
                                        *                            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
           504                           F$RDT    BSS    0                                                       CGTM      238
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    25
        F.RDT - CCG *IL* INSTRUCTION DESCRIPTOR TABLE                 RDT 
  
      L      0                                    LOC    0                                                       CGTM      239
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    26
        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/05. 19.57.15.      PAGE    27
        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/05. 19.57.15.      PAGE    28
        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
           613                                    LOC    *O                                                      CGTM      241
                                                  LIST   F,R                                                     CGTM      242
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    29
        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/05. 19.57.15.      PAGE    30
        CCOMISC - INITIALIZE SMALL CORE ( SETCORE ).                  SETCORE 
  
           613                           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
           613  5076000001               SETC2    SA7    A6+1                                                    CCOMISC    27
                          37112                   IX1    X1-X2                                                   CCOMISC    28
                               54671              SA6    A7+B1                                                   CCOMISC    29
           614  0321000613 +                      PL     X1,SETC2    IF ALL OF BLOCK NOT SET                     CCOMISC    30
                                                                                                                 CCOMISC    31
           615  0000000000               ISC=     PS                 ENTRY/EXIT                                  CCOMISC    32
                                                                                                                 CCOMISC    33
                                                  IFNE   TEST,0,2                                                CCOMISC    34
           616  6211000000                        SB1    X1+                                                     CCOMISC    35
                          0601400616 +            LE     B1,*+1S17   ABORT JOB IF LENGTH ERROR                   CCOMISC    36
                                                                                                                 CCOMISC    37
           617  7120000001                        SX2    1                                                       CCOMISC    38
                          46000                   NO                                                             CCOMISC    39
                               15721              BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                   CCOMISC    40
           620  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
           621  20201                             LX2    1           (X2) = 2                                    CCOMISC    44
                     6110000001                   SB1    1                                                       CCOMISC    45
                               10766              BX7    X6                                                      CCOMISC    46
           622  0321000613 +                      PL     X1,SETC2    IF ALL OF BLOCK NOT SET                     CCOMISC    47
                          0400000615 +            EQ     ISC=                                                    CCOMISC    48
                                                                                                                 CCOMISC    49
                                                  IF     -DEF,QUAL$,2                                            CCOMISC    50
                                                  QUAL   *                                                       CCOMISC    51
                                 615 +   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/05. 19.57.15.      PAGE    31
        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
           623  56220                    SST0     SA2    B2          I = I + 1                                   CGTM      266
                     57754                        SA7    B5-B4                                                   CGTM      267
                          0423000632 +            EQ     B2,B3,SST4  IF I > N                                    CGTM      268
                                                                                                                 CGTM      269
           624  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
           625  13365                             BX3    X6-X5       SI = KEY(T(I))                              CGTM      274
                     6122000001                   SB2    B2+1                                                    CGTM      275
                               22702              LX7    X2                                                      CGTM      276
                                                                                                                 CGTM      277
           626  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
           627  0326000623 +                      PL     X6,SST0     IF ELEMENTS IN ORDER                        CGTM      282
                          10611                   BX6    X1                                                      CGTM      283
                               56154              SA1    B5+B4       J = J - K                                   CGTM      284
           630  57654                             SA6    B5-B4       T(J+K) = T(J)                               CGTM      285
                     66554                        SB5    B5+B4                                                   CGTM      286
                          0657000626 +            GE     B5,B7,SST2  IF J \ 0                                    CGTM      287
           631  56220                             SA2    B2          I = I + 1                                   CGTM      288
                     57754                        SA7    B5-B4       T(J+K) = S                                  CGTM      289
                          0723000624 +            LT     B2,B3,SST1  IF I @ LENGTH                               CGTM      290
                                                                                                                 CGTM      291
           632  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
           633  0314000624 +                      NZ     X4,SST1     IF K " 0                                    CGTM      296
           634                           SST      ENTRY. **,#                                                    CGTM      297
           635  43414                             MX4    12                                                      CGTM      298
                     24621                        NX6    B2,X1       K = 2**FIX(LOG2(LENGTH))+1                  CGTM      299
                          6110000001              SB1    1                                                       CGTM      300
           636  63317                             SB3    B7+X1       (B3) = LWA + 1                              CGTM      301
                     23424                        AX4    B2,X4                                                   CGTM      302
                          0560000632 +            NZ     B6,SST4     IF SHFTC " 0                                CGTM      303
                                                                                                                 CGTM      304
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    32
        SST# - SHELL SORT TABLE                                       SST#                SHFTC=0 
  
                                                  QUAL   SHFTC=0                                                 CGTM      305
                                                                                                                 CGTM      306
           637  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
           640  0314000642 +                      NZ     X4,SST2     IF K " 0                                    CGTM      311
                          0400000634 +            EQ     SST                                                     CGTM      312
                                                                                                                 CGTM      313
           641  54221                    SST1     SA2    A2+B1       I = I + 1                                   CGTM      314
                     57754                        SA7    B5-B4       T(J+K) = S                                  CGTM      315
                          0423000637 +            EQ     B2,B3,SST0  IF I > N                                    CGTM      316
                                                                                                                 CGTM      317
           642  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
           643  13365                             BX3    X6-X5       SI = KEY(T(I))                              CGTM      322
                     6122000001                   SB2    B2+1                                                    CGTM      323
                               11201              BX2    X0*X1                                                   CGTM      324
                                                                                                                 CGTM      325
           644  13225                    SST3     BX2    X2-X5                                                   CGTM      326
                     37632                        IX6    X3-X2                                                   CGTM      327
                          0326000641 +            PL     X6,SST1     IF ELEMENTS IN ORDER                        CGTM      328
           645  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
           646  11201                             BX2    X0*X1                                                   CGTM      333
                     0657000644 +                 GE     B5,B7,SST3                                              CGTM      334
                               54221              SA2    A2+B1       I = I + 1                                   CGTM      335
           647  57754                             SA7    B5-B4                                                   CGTM      336
                     0723000642 +                 LT     B2,B3,SST2  IF I @ N                                    CGTM      337
           650  0400000637 +                      EQ     SST0                                                    CGTM      338
                                                                                                                 CGTM      339
                                                  QUAL                                                           CGTM      340
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    33
        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
           651  54221                    SHL1     SA2    A2+B1       I = I + 1                                   CGTM      357
                     57754                        SA7    B5-B4       T(J+K) = S                                  CGTM      358
                          0423000656 +            EQ     B2,B3,SHL4  IF I > N                                    CGTM      359
                                                                                                                 CGTM      360
           652  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
           653  37321                    SHL3     IX3    X2-X1                                                   CGTM      366
                     10611                        BX6    X1                                                      CGTM      367
                          0323000651 +            PL     X3,SHL1     IF ELEMENTS IN ORDER                        CGTM      368
           654  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
           655  0657000653 +                      GE     B5,B7,SHL3  IF J \ 0                                    CGTM      373
                          0400000651 +            EQ     SHL1                                                    CGTM      374
                                                                                                                 CGTM      375
           656  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
           657  0314000652 +                      NZ     X4,SHL2     IF K " 0                                    CGTM      380
                                                                                                                 CGTM      381
           660                           SHL      ENTRY. **,#                                                    CGTM      382
           661  43414                             MX4    12                                                      CGTM      383
                     6110000001                   SB1    1                                                       CGTM      384
                               24621              NX6    B2,X1       K = 2**(FIX(LOG2(N))+1)                     CGTM      385
           662  63317                             SB3    B7+X1       (B3) = LWA+1                                CGTM      386
                     23424                        AX4    B2,X4                                                   CGTM      387
                          0400000656 +            EQ     SHL4                                                    CGTM      388
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    34
        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
           663                           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/05. 19.57.15.      PAGE    35
        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
           663  00000000000000000000     BLK      TABLE              BLOCKS IN CORE ( OPT=2 )                    CCGTMTV    46
                                                                                                                 CCGTMTV    47
           664  00000000000000000000     TXT      TABLE              CURRENT IL INSTRUCTION SEQUENCE             CCGTMTV    48
                                         GST      TABLE  TXT         GRAPH STRUCTURE TABLE ( CFA )               CCGTMTV    49
                                                                                                                 CCGTMTV    50
           665  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
           666  00000000000000000000     PIT      TABLE              POSTED INSTRUCTIONS ( MCG/WII )             CCGTMTV    55
                                         PBT      TABLE  PIT         PRE ASSIGNED B-REGS ( PROSEQ/AIS )          CCGTMTV    56
                                                                                                                 CCGTMTV    57
           667  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
           670  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
           671  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
           672  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
           673  00000000000000000000     BST      TABLE              BLOCK STATUS INFORMATION                    CCGTMTV    65
                                        * BIT     #      BST         ( PHASE 1 OF OPT=2 )                        CCGTMTV    66
                                                                                                                 CCGTMTV    67
           674  00000000000000000000     PSI      TABLE              POST STORE INFORMATION ( GPO/GRA )          CCGTMTV    68
                                                                                                                 CCGTMTV    69
           675  00000000000000000000     RXI      TABLE              REGION EXIT INFORMATION ( GPO/GRA )         CCGTMTV    70
                                                                                                                 CCGTMTV    74
           676  00000000000000000000     TET      TABLE              TEMP EQUIVALENCE TABLE ( CODE MOTION )      CCGTMTV    75
                                                                                                                 CCGTMTV    76
           677  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/05. 19.57.15.      PAGE    36
        CCG TABLES                                                    TABLES
  
           700  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
           701  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
           702  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
           703                           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
           703  00000000000000000000     CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
           704  00000000000000000000     CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
           705  00000000000000000000     APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
           706  00000000000000000000     IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
           707  00000000000000000000     API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
           710  00000000000000000000     IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
           711  00000000000000000000     GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
           712  00000000000000000000     ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
           713  00000000000000000000     CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
           714  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
           715                           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
           715  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/05. 19.57.15.      PAGE    37
        CCG TABLES                                                    TABLES
  
           716  00000000000000000000     BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
           717  00000000000000000000     NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
           720  00000000000000000000     DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
           721  00000000000000000000     ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
           722  00000000000000000000     FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
           723  00000000000000000000     VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
           724  00000000000000000000     LPT      TABLE              DUMMY TABLE FOR LCM POINTER WORDS           FC50457     8
           725  00000000000000000000     FE       TABLE                                                          CGHCSTD     4
                                                                                                                 CCG16     180
                                  43     NTAB     EQU    .T          N. TOTAL TABLES                             CCG16     181
                                                                                                                 CCG16     182
                                                  IFEQ   HC.2OC,0                                                CCG16     183
           726                           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
           771                           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
           775                           LM       ENTRY. F.MEM,#     LOW MEMORY ADDRESS ( FWA WORKING STORAGE )  CGTM      502
           776  00000000000000000033     TN       CON    N.DT+1      NUMBER OF ACTIVE TABLES                     CCG16     199
           777                     4              BSS    4           SCRATCH TO SAVE - X0 , X5 , X1 , A0         CGTM      504
          1003  00000000000000000000     PL       CON    0           PREVIOUS LENGTH OF REQUESTING TABLE         CGTM      505
          1004                           TO       ENTRY. TOV#,#      ADDRESS OF TABLE OVERFLOW PROCESSOR         CGTM      506
          1005                           MX.BLN   ENTRY. 0,#                                                     CGTM      507
          1006                           THRESH   ENTRY. 6000B,#                                                 CCGA011    13
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    38
        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
          1007  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
          1010  0100001037 +                      CALL   MOREFL                                                  CGTM      558
          1011  0327001306 +                      PL     X7,ATS65                                                CCGA011    15
                                         .T       IFNE   TEST,0                                    * TEST MODE * CGTM      560
                          5150001212 +            SA5    ATS                                                     CGTM      561
          1012  20536                             LX5    30                                                      CGTM      562
          1013  0100000000 X             TOV      SNAP   FTAB,TO                                                 CGTM      563
                                         .T       ENDIF                                            * TEST MODE * CGTM      564
                                                                                                                 CGTM      565
          1014  5110001351 +             TOV1     SA1    =7LTBL-OVF                                              CGTM      566
                          0100000033 +            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
          1015  5120001005 +             TOB#     SA2    MX.BLN                                                  CGTM      579
                                                  PRINT  TOB,(* OVERFLOW, WORDS NEEDED = *Z7),(B5)               CCGA011    16
                          5130000000 X            SA3    =XM.BBL#                                                CGTM      580
          1016  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
          1017  37421                             IX4    X2-X1                                                   CGTM      585
                     0324001020 +                 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
          1020  67505                    TOB1     SB5    -B5         WN = NO.OF WORDS NEEDED                     CGTM      591
                                                  PRINT  TOB,(*  NO.OF WORDS NEEDED,MIN.BLK = *2Z7),(B5,X1)      CGTM      592
                     5130000726 +                 SA3    L$BLK                                                   CGTM      593
          1021  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
          1022  37241                             IX2    X4-X1                                                   CGTM      597
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    39
        TABLE OVERFLOW PROCESSING ROUTINES                            TOB 
  
                     10611                        BX6    X1                                                      CGTM      598
                          64300                   SB3    A0                                                      CCGA027     6
          1023  0430001024 +                      ZR     B3,TOB1A    IF ALLOC BLK                                CCGA027     7
                          0322001026 +            PL     X2,TOB2     IF WA GT WR                                 CCGA027     8
                                                                                                                 CCGA027     9
          1024                           TOB1A    BSS    0                                                       CCGA027    10
          1024  0100001037 +                      CALL   MOREFL      MOREFL(X6) = WG */ WORDS GRANTED IN NEW FL  CGTM      600
          1025  0327001306 +                      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
          1026  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
          1027  0602001033 +                      LE     B2,B0,TOB3  IF WD .LE. ZERO                             CGTM      611
                          5160001036 +            SA6    TOBA        SAVE WR                                     CGTM      612
                                                  PRINT  TOB,(*  TOB CALLS  DMB ; WDS,SP.FLG=*2Z7),(X1,B2)       CGTM      613
          1030  0100000000 X                      CALL   DMB#        DUMP BLOCKS TO FREE *WD* WORDS              CGTM      614
                                        *         DMB(X2) = WFL */ NO. OF WORDS BY MOREFL                        CGTM      615
          1031  0311001014 +                      NZ     X1,TOV1     IF X1 " 0 */ CANNOT DUMP ENOUGH BLOCKS      CGTM      616
                          5110001036 +            SA1    TOBA        RELOAD WR                                   CGTM      617
          1032  37612                             IX6    X1-X2       BLK.DECR = WR - WFL                         CGTM      618
                     0336001034 +                 MI     X6,TOB4     IF BLK.DECR @ 0                             CGTM      619
                                                                                                                 CGTM      620
                                        *         DECREASE BLOCK TABLE SIZE BY BLK.DECR                          CGTM      621
                                                                                                                 CGTM      622
          1033  5110000726 +             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
          1034  0100000000 X             TOB4     CALL   CGB#        COLLECT FREE SPACE AT THE END OF *BLK*      CGTM      627
          1035  0400001306 +                      EQ     ATS65                                                   CCGA011    18
                                                                                                                 CGTM      629
          1036                     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
          1037                           MOREFL   ENTRY. **,#                                                    CGTM      640
                                                  PRINT  MOREFL,(*  WN =*Z7),(X1)                                CGTM      641
          1040  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
          1041  21236                             AX2    30                                                      CGTM      644
                     37623                        IX6    X2-X3       WA = NO. OF WORDS AVAILABLE IN MXFL         CGTM      645
                          43754                   MX7    44                                                      CGTM      646
          1042  0306001037 +                      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/05. 19.57.15.      PAGE    40
        TABLE OVERFLOW PROCESSING ROUTINES                            MOREFL
  
                               43766              MX7    -6                                                      CGTM      649
          1043  37217                             IX2    X1-X7                                                   CGTM      650
                     11272                        BX2    X7*X2       ROUND WN TO NEXT 100B                       CGTM      651
                          6222001000              SB2    X2+1000B                                                CGTM      652
          1044  0623001045 +                      GE     B2,B3,MFL1                                              CGTM      653
                          76620                   SX6    B2          WR = MIN(WA,WN+1000B) */ NO OF WDS REQ.     CGTM      654
                                                                                                                 CGTM      655
          1045  36763                    MFL1     IX7    X6+X3                                                   CGTM      656
                     20736                        LX7    30                                                      CGTM      657
                          5170001062 +            SA7    MFLA                                                    CGTM      658
          1046  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
          1051  5120001062 +                      SA2    MFLA                                                    CGTM      663
                          5130000000 X            SA3    CP.AFLS     OFL = OLD FL                                CGTM      664
          1052  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
          1053  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
          1055  0100001071 +                      RJ     AST         */ ADJUST SPECIAL TABLES                    CGTM      673
          1056  5110001063 +                      SA1    MFLB                                                    CGTM      674
                          10600                   BX6    X0          (X6) = NO.OF WORDS GRANTED */ EXIT PAR.     CGTM      675
                               37701              IX7    X0-X1                                                   CGTM      676
          1057  5120001006 +                      SA2    THRESH                                                  CCGA025     5
                          0327001037 +            PL     X7,MOREFL   IF ENOUGH SPACE GRANTED                     CCGA025     6
          1060  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
          1061  0400001037 +                      EQ     MOREFL                                                  CGTM      677
                                                                                                                 CGTM      678
          1062                     1     MFLA     BSS    1                                                       CGTM      679
          1063                     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
          1064                           CWS      ENTRY. **,#                                                    CGTM      687
          1065  5110000775 +                      SA1    LM                                                      CGTM      688
                          5120000715 +            SA2    FTAB+N.DT   LWA OF DYNAMIC TABLES                       CCG29       6
          1066  5130000000 X                      SA3    =XCP.AFLS                                               CGTM      690
                          5140000000 X            SA4    =XHO$MFLS                                               CGTM      691
          1067  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
          1070  0400001064 +                      EQ     CWS                                                     CGTM      696
                                                                                                                 CGTM      697
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    41
        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
          1071  0200401071 +             AST      ROUTINE                                                        CGTM      703
                                                  PRINT  AST,(* AST CALLED,CHANGE =*Z7),(X0)                     CGTM      704
          1072  5140000776 +                      SA4    TN                                                      CGTM      705
                          5224000662 +            SA2    FTAB-1+X4   FWA OF STATIC TABLES                        CGTM      706
          1073  6224777776                        SB2    X4-1                                                    CGTM      707
                          5140000000 X            SA4    =XCP.NFLS   FL-10                                       CGTM      708
          1074  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
          1075  6130000043                        SB3    NTAB                                                    CGTM      713
          1076  5142000663 +             AST1     SA4    FTAB+B2                                                 CGTM      714
                          36740                   IX7    X4+X0                                                   CGTM      715
                               66221              SB2    B2+B1                                                   CGTM      716
          1077  54740                             SA7    A4                                                      CGTM      717
                     0723001076 +                 LT     B2,B3,AST1                                              CGTM      718
          1100  0100000000 X                      MOVE   X1,X2,X3                                                CGTM      719
          1101  0400001071 +                      EQ     AST                                                     CGTM      720
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    42
        CG$PTC - PRINT *CCG* TABLES AFTER A REPRIEVE                  CG$PTC
  
                                         .T       IFNE   TEST,0                                    * TEST MODE * CGTM      722
                                                                                                                 CGTM      723
          1102                           NAMTAB   BSS    0                                                       CGTM      724
                                         TABNAM   HERE                                                           CGTM      725
                                                                                                                 CGTM      726
          1145                           CG$PTC   ENTRY.                                                         CGTM      727
                                                  SETB1                                                          CGTM      728
          1366  00000000000000000000 X            PRINT  ,(//*  -- COMPILER TABLE DUMP --*/)                     CGTM      729
          1151  7110000004                        SX1    4           SET TO *EXECUTIVE IS /PTC=/*                CGTM      730
                          0100000000 X            RJ     =XSOB       SET OUTPUT BIT FLAGS                        CGTM      731
          1152  7160000001                        SX6    1                                                       CGTM      732
                          5160001200 +            SA6    PTCA        INITIALIZE COUNTER                          CGTM      733
                                                                                                                 CGTM      734
          1153  5110001200 +             PTC1     SA1    PTCA                                                    CGTM      735
                          5221000663 +            SA2    FTAB+X1     GET FWA OF TABLE                            CGTM      736
          1154  5231000726 +                      SA3    LTAB+X1     GET LENGTH OF TABLE                         CGTM      737
                          5251001102 +            SA5    NAMTAB+X1   GET NAME OF TABLE                           CGTM      738
          1155  0100001201 +                      RJ     PMT                                                     CGTM      739
          1156  5110001200 +                      SA1    PTCA                                                    CGTM      740
                          5120000776 +            SA2    TN                                                      CGTM      741
          1157  73611                             SX6    X1+B1                                                   CGTM      742
                     54610                        SA6    A1          INCREMENT COUNTER                           CGTM      743
                          37762                   IX7    X6-X2                                                   CGTM      744
          1160  0337001153 +                      MI     X7,PTC1     IF MORE TABLES                              CGTM      745
                                                                                                                 CGTM      746
                          5110000000 X            SA1    =XHO$OPT                                                CGTM      747
          1161  0321001166 +                      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
          1166  5110000727 +             PTC2     SA1    L$TXT                                                   CGTM      755
                          6221777767              SB2    X1-8                                                    CGTM      756
          1167  0602001176 +                      LE     B2,PTC3                                                 CGTM      757
                          5110000664 +            SA1    O$TXT                                                   CGTM      758
          1170  53210                             SA2    X1                                                      CGTM      759
                     26622                        UX6    B2,X2                                                   CGTM      760
                          0602001176 +            LE     B2,PTC3     IF NO EXPONENT                              CGTM      761
          1171  0100000000 X                      SNAPRL PTC                                                     CGTM      762
                                                                                                                 CGTM      763
          1176  7120000000 X             PTC3     RECALL =XF.OUT                                                 CGTM      764
          1177  0400001145 +                      EQ     CG$PTC                                                  CGTM      765
                                                                                                                 CGTM      766
          1200                     1     PTCA     BSS    1                                                       CGTM      767
                                                                                                                 CGTM      768
          1201  0200401201 +             PMT      ROUTINE                                                        CGTM      769
          1202  0303001201 +                      ZR     X3,PMT      IF LEN = 0                                  CGTM      770
          1407  00000000000000000000 X            PRINT  ,(/*  TABLE -*A10*  FWA,LEN =*2Z6/),(X5,X2,X3)          CGTM      771
          1205  36323                             IX3    X2+X3                                                   CGTM      772
                     43400                        MX4    0                                                       CGTM      773
                          0100000000 X            RJ     =XDCM=      DUMP CENTRAL MEMORY                         CGTM      774
          1206  0400001201 +                      EQ     PMT                                                     CGTM      775
                                                                                                                 CGTM      776
                                         .T       ENDIF                                            * TEST MODE * CGTM      777
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    43
        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
          1207  00000000000000000010     ATSNAT#  CON    8           NO. OF ACTIVE TABLES  (IN LOW)              CCGA011    29
          1210  00000000000000000016     ATSTOG#  CON    6&8         ATSNAT TOGGLE                               CCGA011    30
                                                                                                                 CGTM      794
          1211  5020000663 +             ATSX     SA2    FTAB+A0     (X2) = FWA TABLE                            CGTM      795
                          5030000726 +            SA3    LTAB+A0     (X3) = NEW LENGTH                           CGTM      796
                                                                                                                 CGTM      797
          1212                           ATS      ENTRY. **,$                                                    CGTM      798
          1213  5020000663 +             ATS1     SA2    FTAB+A0     CURRENT FWA                                 CGTM      799
                          5030000726 +            SA3    LTAB+A0     CURRENT LENGTH                              CGTM      800
          1214  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
          1215  54630                             SA6    A3          SET NEW LENGTH                              CGTM      805
                     37776                        IX7    X7-X6                                                   CGTM      806
                          0327001211 +            PL     X7,ATSX     RETURN IF ROOM FOR CHANGE                   CGTM      807
          1216  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
                     5120000776 +                 SA2    TN          (B2) = NUMBER OF TABLES                     CGTM      812
                               10600              BX6    X0          SAVE (X0)                                   CGTM      813
          1217  54730                             SA7    A3                                                      CGTM      814
                     5170001003 +                 SA7    PL          PL = PREVIOUS LENGTH                        CGTM      815
                               63220              SB2    X2                                                      CGTM      816
          1220  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
          1221  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/05. 19.57.15.      PAGE    44
        TABLE MANAGER SUBROUTINES                                     ATS 
  
                          76740                   SX7    B4                                                      CCG15     704
                               76250              SX2    B5                                                      CCG15     705
          1222  15776                             BX7    -X6*X7                                                  CCG15     706
                     15226                        BX2    -X6*X2                                                  CCG15     707
                          20722                   LX7    18                                                      CCG15     708
                               12272              BX2    X7+X2                                                   CCG15     709
          1223  76770                             SX7    B7                                                      CCG15     710
                     15776                        BX7    -X6*X7                                                  CCG15     711
                          20222                   LX2    18                                                      CCG15     712
                               12772              BX7    X7+X2                                                   CCG15     713
          1224  5170001312 +                      SA7    ATSA                                                    CCG15     714
                                                                                                                 CGTM      822
                                        **        COMPUTE REMAINING TABLE SPACE.                                 CGTM      823
                                                                                                                 CGTM      824
                          67321                   SB3    B2-B1                                                   CGTM      825
          1225  5120001207 +             ATS5     SA2    ATSNAT#                                                 CCGA011    32
                          6252777776              SB5    X2-1        LSTLOW = ATSNAT-1                           CCGA011    33
          1226  76400                             SX4    B0                                                      CCGA011    34
          1227  67331                    ATS10    SB3    B3-B1       ACCUMULATE ASSIGNED TABLE LENGTHS           CCGA011    35
                     5133000726 +                 SA3    LTAB+B3                                                 CGTM      828
          1230  0535001231 +                      NE     B3,B5,ATS15 IF I " LSTLOW                               CCGA011    36
                          63640                   SB6    X4          SAVE HIGHAL                                 CCGA011    37
          1231  36443                    ATS15    IX4    X4+X3                                                   CCGA011    38
                     0530001227 +                 NZ     B3,ATS10    LOOP FOR ALL TABLES                         CCGA011    39
                               36441              IX4    X4+X1       TOTAL = TOTAL + CHANGE                      CCGA011    40
          1232  65405                             SB4    A0-B5                                                   CCGA011    41
                     0604001233 +                 LE     B4,B0,ATS20 IF CRASHER LE LSTLOW                        CCGA011    42
                               63616              SB6    X1+B6       HIGHAL = HIGHAL + CHANGE                    CCGA011    43
          1233  76760                    ATS20    SX7    B6                                                      CCGA011    44
                     5170001313 +                 SA7    ATSB                                                    CCGA011    45
          1234  5120000775 +                      SA2    LM          SET AVAILABLE LENGTH                        CGTM      831
                          5132000662 +            SA3    FTAB-1+B2                                               CGTM      832
          1235  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
          1236  5110001006 +                      SA1    THRESH      1000B/6000B OPT = 1/2                       CCGA011    46
                          37771                   IX7    X7-X1       GUARANTEE ELBOW ROOM                        CCGA011    47
          1237  0337001303 +                      MI     X7,ATS60    IF NO REMAINING SPACE                       CCGA011    48
                                                                                                                 CGTM      838
                                        **        MOVE ALL TABLES DOWN.                                          CGTM      839
                                                                                                                 CGTM      840
                          5110000775 +            SA1    LM          LOW MEMORY LIMIT                            CGTM      841
          1240  66310                             SB3    B1                                                      CGTM      842
                     22001                        LX0    X1                                                      CGTM      843
          1241  5123000662 +             ATS25    SA2    FTAB-1+B3   ORIGIN = PREVIOUS FWA                       CCGA011    49
                          5113000725 +            SA1    LTAB-1+B3   WORD COUNT = LENGTH                         CGTM      845
          1242  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
          1243  54720                             SA7    A2                                                      CGTM      850
                     66331                        SB3    B3+B1       COUNT TABLE                                 CGTM      851
                          0304001245 +            ZR     X4,ATS30    IF NO MOVE REQUIRED                         CCGA011    50
          1244  0100000000 X                      RJ     MVE=                                                    CGTM      853
          1245  0532001241 +             ATS30    NE     B3,B2,ATS25 LOOP FOR ALL TABLES                         CCGA011    51
                          5110001001 +            SA1    TN+3        INCREMENT SIZE OF REQUESTED TABLE           CGTM      855
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    45
        TABLE MANAGER SUBROUTINES                                     ATS 
  
          1246  5020000726 +                      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
          1247  5112000662 +                      SA1    FTAB-1+B2   (X0) = LWA+1 LAST TABLE                     CGTM      863
                          67321                   SB3    B2-B1                                                   CGTM      864
                               10011              BX0    X1                                                      CGTM      865
          1250  5120001207 +                      SA2    ATSNAT#                                                 CCGA011    53
                          63620                   SB6    X2          LC = ATSNAT                                 CCGA011    54
                               67226              SB2    B2-B6       NTABS = TOTAL TABS - ATSNAT                 CCGA011    55
          1251  76740                             SX7    B4                                                      CCGA011    56
                     5170001314 +                 SA7    ATSC        SAVE TOTAL                                  CCGA011    57
                               76650              SX6    B5                                                      CCGA011    58
          1252  5160001315 +                      SA6    ATSD        SAVE TOTLA                                  CCGA011    59
                          5120001313 +            SA2    ATSB                                                    CCGA011    60
          1253  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
          1254  67331                    ATS35    SB3    B3-B1       I = I + 1                                   CCGA011    67
                     5123000663 +                 SA2    FTAB+B3     FWA(I)                                      CGTM      869
                               76450              SX4    B5          LA (LENGTH AVAILABLE)                       CGTM      870
          1255  5113000726 +                      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
          1256  27404                             IX6    X4/X3       L1 = LA/N                                   CGTM      874
          1260  0440001264 +                      ZR     B4,ATS40                                                CCGA011    68
                          76340                   SX3    B4          AL (TOTAL ASSIGNED LENGTH)                  CGTM      876
                               42751              IX7    X5*X1       (LA/2)*TL                                   CGTM      877
          1261  21601                             AX6    1           L1 = LA/2N                                  CGTM      878
                     27707                        IX7    X7/X3       L2 = (TL*LA)/2                              CGTM      879
          1263  36667                             IX6    X6+X7       L = L1+L2                                   CGTM      880
                     73110                        SX1    X1                                                      CGTM      881
          1264  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
          1265  22007                             LX0    X7          FWA(I+1) = FWA(I)                           CGTM      886
                     13423                        BX4    X2-X3       CHECK MOVE DIFFERENTIAL                     CGTM      887
                          0304001267 +            ZR     X4,ATS45    IF NO MOVE REQUIRED                         CCGA011    70
          1266  0100000000 X                      RJ     MVE=        MOVE TABLE                                  CGTM      889
          1267  0763001254 +             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
          1270  0331001276 +                      MI     X1,ATS55   IF LC < 3    */ALREADY DID LOW               CCGA011    76
                          5120001316 +            SA2    ATSFAT                                                  CCGA011    77
          1271  63620                             SB6    X2          FIRST ACTIVE TABLE                          CCGA011    78
          1272  5120001207 +            +         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/05. 19.57.15.      PAGE    46
        TABLE MANAGER SUBROUTINES                                     ATS 
  
          1273  5110001314 +                      SA1    ATSC                                                    CCGA011    82
                          76240                   SX2    B4                                                      CCGA011    83
                               37312              IX3    X1-X2       LOWAL = TOTAL - HIGHAL                      CCGA011    84
          1274  63430                             SB4    X3          AL = LOWAL                                  CCGA011    85
                     5110001315 +                 SA1    ATSD                                                    CCGA011    86
                               76250              SX2    B5                                                      CCGA011    87
          1275  37312                             IX3    X1-X2       LOWLA = TOTLA - HIGHLA                      CCGA011    88
                     63530                        SB5    X3          LA = LOWLA                                  CCGA011    89
                          0400001254 +            EQ     ATS35                                                   CCGA011    90
                                                                                                                 CGTM      891
                                        **        RESTORE REGISTERS.                                             CGTM      892
                                                                                                                 CGTM      893
          1276  5110001312 +             ATS55    SA1    ATSA                                                    CCGA011    91
                          63710                   SB7    X1                                                      CCG15     716
                               21122              AX1    18                                                      CCG15     717
          1277  63510                             SB5    X1                                                      CCG15     718
                     21122                        AX1    18                                                      CCG15     719
                          63410                   SB4    X1                                                      CCG15     720
          1300  5120000777 +                      SA2    TN+1        RESTORE (X0)                                CGTM      897
                          54321                   SA3    A2+B1       RESTORE (X5)                                CGTM      898
                               10022              BX0    X2                                                      CGTM      899
          1301  5140001003 +                      SA4    PL                                                      CGTM      900
                          22503                   LX5    X3                                                      CGTM      901
                               54131              SA1    A3+B1       RESTORE (X1)                                CGTM      902
          1302  63640                             SB6    X4          (B6) = PREVIOUS LENGTH OF TABLE             CGTM      903
                     0400001211 +                 EQ     ATSX        RETURN                                      CGTM      904
                                                                                                                 CGTM      905
          1303  5130001004 +             ATS60    SA3    TO          PROCESS TABLE OVERFLOW                      CCGA011    92
                          63570                   SB5    X7                                                      CCGA011    93
                               74600              SX6    A0                                                      CGTM      907
          1304  63230                             SB2    X3                                                      CGTM      908
                     5160001002 +                 SA6    TN+4        (A0)                                        CGTM      909
          1305  0222000000                        JP     B2          (B5) = - WORDS NEEDED                       CGTM      910
                                                                                                                 CGTM      911
                                        *         RETURN FROM USER TABLE OVERFLOW PROCESSOR ( SUCCESS )          CGTM      912
                                                                                                                 CGTM      913
          1306  5110001001 +             ATS65    SA1    TN+3        X1                                          CCGA011    94
                          55411                   SA4    A1-B1       X5                                          CGTM      915
                               10544              BX5    X4                                                      CGTM      916
          1307  54311                             SA3    A1+B1       A0                                          CGTM      917
                     53030                        SA0    X3                                                      CGTM      918
                          55441                   SA4    A4-B1       X0                                          CGTM      919
                               10044              BX0    X4                                                      CGTM      920
          1310  55241                             SA2    A4-B1       TN                                          CGTM      921
                     63220                        SB2    X2          (B2) = TN                                   CGTM      922
                          67321                   SB3    B2-B1                                                   CGTM      923
          1311  0400001225 +                      EQ     ATS5                                                    CCGA011    95
                                                                                                                 CGTM      926
          1312  00000000000000000000     ATSA     CON    0           B4,B5, B7 SAVE IF A TABLE MOVE              CCG15     721
          1313                     1     ATSB     BSS    1                                                       CCGA011    96
          1314                     1     ATSC     BSS    1                                                       CCGA011    97
          1315                     1     ATSD     BSS    1                                                       CCGA011    98
          1316  00000000000000000002     ATSFAT   CON    2           FIRST ACTIVE TABLE                          CCGA011    99
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    47
        TABLE MANAGER SUBROUTINES                                     AFT 
  
                                        **        AFT - ACTIVATE FIRST TABLE                                     CGTM      929
                                                                                                                 CGTM      930
          1317                           AFT      ENTRY. **,#                                                    CGTM      931
          1320  5120001316 +                      SA2    ATSFAT                                                  CCGA011   100
                          7110000003              SX1    1&2                                                     CCGA011   101
          1321  13621                             BX6    X2-X1                                                   CCGA011   102
                     54620                        SA6    A2          TOGGLE ATSFAT                               CCGA011   103
                          5110001207 +            SA1    ATSNAT#                                                 CCGA011   104
          1322  5120001210 +                      SA2    ATSTOG#                                                 CCGA011   105
                          13621                   BX6    X2-X1                                                   CCGA011   106
                               54610              SA6    A1          TOGGLE ATSNAT                               CCGA011   107
          1323  5110000775 +                      SA1    LM                                                      CCGA011   108
                          10711                   BX7    X1                                                      CCGA011   109
          1324  5170000663 +                      SA7    FTAB                                                    CCGA011   110
                          0400001317 +            EQ     AFT                                                     CCGA011   111
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    48
        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
          1325  10733                    ADW1     BX7    X3                                                      CGTM      961
                     36423                        IX4    X2+X3                                                   CGTM      962
                          5073000000              SA7    A3+         UPDATE LENGTH                               CGTM      963
          1326  6263777776                        SB6    X3-1              (B6) = OLD LENGTH                     CGTM      964
                          5264777776              SA6    X4-1        STORE WORD                                  CGTM      965
          1327                           ADW      ENTRY. **,$                                                    CGTM      966
          1330  5020000663 +                      SA2    FTAB+A0     FWA                                         CGTM      967
                          5030000726 +            SA3    LTAB+A0                                                 CGTM      968
          1331  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
          1332  37473                             IX4    X7-X3                                                   CGTM      973
                     0324001325 +                 PL     X4,ADW1     IF ROOM TO ADD A WORD                       CGTM      974
                               76110              SX1    B1                                                      CGTM      975
          1333  5160001336 +                      SA6    ADWA                                                    CGTM      976
                          0100001212 +            RJ     ATS         ALLOCATE SPACE                              CGTM      977
          1334  5110001336 +                      SA1    ADWA                                                    CGTM      978
                          36423                   IX4    X2+X3                                                   CGTM      979
                               10611              BX6    X1                                                      CGTM      980
          1335  5264777776                        SA6    X4-1                                                    CGTM      981
                          0400001327 +            EQ     ADW                                                     CGTM      982
                                                                                                                 CGTM      983
          1336                     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
          1337  67331                    MTU1     SB3    B3-B1       DECREMENT TABLE COUNT                       CGTM      994
                     5123000663 +                 SA2    FTAB+B3                                                 CGTM      995
          1340  5113000726 +                      SA1    LTAB+B3                                                 CGTM      996
                          37701                   IX7    X0-X1       NEW FWA = L - LENGTH                        CGTM      997
                               22007              LX0    X7          L = NEW FWA                                 CGTM      998
          1341  54720                             SA7    A2                                                      CGTM      999
                     10300                        BX3    X0          MOVE TABLE                                  CGTM     1000
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    49
        TABLE MANAGER SUBROUTINES                                     MTU 
  
                          0301001344 +            ZR     X1,MTU2     IF LEN = 0                                  CGTM     1001
          1342  37423                             IX4    X2-X3                                                   CGTM     1002
                     0304001344 +                 ZR     X4,MTU2                                                 CGTM     1003
          1343  0100000000 X                      MOVE   X1,X2,X3                                                CGTM     1004
          1344  0530001337 +             MTU2     NZ     B3,MTU1                                                 CGTM     1005
                                                                                                                 CGTM     1006
          1345                           MTU      ENTRY. **,$                                                    CGTM     1007
          1346  6130000042                        SB3    NTAB-1      (B3) = NUMBER OF TABLES - 1                 CGTM     1008
                          5113000663 +            SA1    FTAB+B3     (X0) = LWA+1 OF ALL TABLES (L)              CGTM     1009
          1347  10011                             BX0    X1                                                      CGTM     1010
                     0400001337 +                 EQ     MTU1                                                    CGTM     1011
                                                                                                                 CGTM     1012
          1422                                    END                                                            CGTM     1013
  
                             57000B CM  STORAGE USED             8295 STATEMENTS     1268 SYMBOLS      000030 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.526 SECONDS        1382 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW          1327   PROGRAM*       48/21 L   48/37
        ADWA         1336   PROGRAM*       48/31 S   48/33     48/39 L
        ADW1         1325   PROGRAM*       48/16 L   48/29
        ADW$         1327   PROGRAM*        5/07      5/12      9/24     48/21 E   48/21 L
        AFT          1317   PROGRAM*       47/03 L   47/15
        AFT#         1317   PROGRAM*       47/03 E   47/03 L
        AST          1071   PROGRAM*       40/25     41/06 L   41/23
        AST1         1076   PROGRAM*       41/17 L   41/21
        ATS          1212   PROGRAM*       38/18     43/32 L   48/32
        ATSA         1312   PROGRAM*       44/11 S   46/13     46/49 L
        ATSB         1313   PROGRAM*       44/30 S   45/18     46/50 L
        ATSC         1314   PROGRAM*       45/15 S   46/01     46/51 L
        ATSD         1315   PROGRAM*       45/17 S   46/05     46/52 L
        ATSFAT       1316   PROGRAM*       45/53     46/53 L   47/04
        ATSNAT#      1207   PROGRAM*       43/25 E   43/26 L   44/16     45/11     45/55     47/08
        ATSTOG#      1210   PROGRAM*       43/25 E   43/27 L   47/09
        ATSX         1211   PROGRAM*       43/29 L   43/41     46/26
        ATS1         1213   PROGRAM*       43/33 L
        ATS10        1227   PROGRAM*       44/19 L   44/24
        ATS15        1231   PROGRAM*       44/21     44/23 L
        ATS20        1233   PROGRAM*       44/27     44/29 L
        ATS25        1241   PROGRAM*       44/46 L   44/56
        ATS30        1245   PROGRAM*       44/54     44/56 L
        ATS35        1254   PROGRAM*       45/25 L   45/47     46/09
        ATS40        1264   PROGRAM*       45/32     45/39 L
        ATS45        1267   PROGRAM*       45/45     45/47 L
        ATS5         1225   PROGRAM*       44/16 L   46/47
        ATS55        1276   PROGRAM*       45/52     46/13 L
        ATS60        1303   PROGRAM*       44/39     46/28 L
        ATS65        1306   PROGRAM*       38/16     39/08     39/35     46/37 L
        ATS$         1212   PROGRAM*        5/41      6/14     43/32 E   43/32 L
        AVO1          440   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/05. 19.57.15.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        B=MIO           0   EXTERNAL*       4/27
        CC$BLEN       112   PROGRAM*        7/11 E    7/20      8/38     10/30     12/12 S
                                            7/11 L    8/14      9/52     11/26
        CC$LBO        110   PROGRAM*        7/09 E    7/09 L    7/22      8/07     10/38     17/38
        CC$PC         111   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*      39/34
        CG$AVO        441   PROGRAM*       15/11     20/10 E   20/10 L   20/28
        CG$CUB        126   PROGRAM*       19/54 D   19/54 E
        CG$DSA        173   PROGRAM*       19/54 D   19/54 E
        CG$ENC         56   PROGRAM*        5/39 E    5/39 L    6/17
        CG$EP         146   PROGRAM*       19/54 D   19/54 E
        CG$FCU         75   PROGRAM*        6/25 E    6/25 L    6/30
        CG$IEP         13   PROGRAM*        4/04 E    4/04 L    4/31
        CG$PTC       1145   PROGRAM*       42/06 E   42/06 L   42/44
        CG$RBT        113   PROGRAM*       19/54 D   19/54 E
        CG$SCT         46   PROGRAM*        5/10 E    5/10 L    5/25
        CG.MOX         42   PROGRAM*        4/09 S    4/50      4/54 L
        CG.MOX#        42   PROGRAM*        4/54 E    4/54 L
        CIO=            0   EXTERNAL*       4/22
        CONTV          10   PROGRAM*        3/25 E    3/25 L    3/31
        CP.AFLS         0   EXTERNAL*      39/52     40/16     40/50
        CP.NFLS         0   EXTERNAL*      41/11
        CP#RM           0   GTX             3/03 F    4/15 F
        CSN           465   PROGRAM*       21/09     21/53 L   22/29
        CSNA          500   PROGRAM*       22/06     22/31 L
        CSN0          462   PROGRAM*       21/42 L   21/57
        CSN1          474   PROGRAM*       22/17 L   22/23
        CSN#          465   PROGRAM*       21/53 E   21/53 L
        CWS          1064   PROGRAM*       40/47 L   40/56
        CWS#         1064   PROGRAM*       40/47 E   40/47 L
        DCM=            0   EXTERNAL*      42/53
        DMB#            0   EXTERNAL*      39/21
        DMPRLST         0   EXTERNAL*      42/41
        ENC0           55   PROGRAM*        5/36 L    6/07
        ENC1           64   PROGRAM*        5/48 L    5/57      6/01
        ENC2           65   PROGRAM*        5/53 L    6/02
        FP.LENP        44   GTX            17/16
        FP.SUB0P       22   GTX            12/38
        FSU#          140   PROGRAM*       19/54 D   19/54 E
        FTAB          663   PROGRAM*       34/29 L   35/37     36/01     36/39     37/01     37/10     43/33     48/52
                                           35/18     35/42     36/08     36/40     37/02     38/20     44/32     49/09
                                           35/20     35/46     36/14     36/41     37/03     40/49     44/46
                                           35/23     35/49     36/35     36/42     37/04     41/09     45/08
                                           35/27     35/51     36/36     36/43     37/05     41/17     45/26
                                           35/30     35/53     36/37     36/44     37/06     42/15     47/14 S
                                           35/33     35/55     36/38     36/56     37/09     43/29     48/22
        F$FRT         771   PROGRAM*       17/52     37/24 E   37/25 L
        F$LBT           0   EXTERNAL*       7/21      8/17
        F$RDT         504   PROGRAM*
        F.MEM           0   EXTERNAL*      37/17 X   37/31
        F.OPT           0   PROGRAM*        2/57 E    3/01 L    4/17 S    4/22
        F.OUT           0   EXTERNAL*      42/43
        F.SLST          0   EXTERNAL*       6/40     10/02     11/15     12/17
        GETNSYM       455   PROGRAM*       21/22 E   21/22 L   21/27
        HC.FPAS         1   GTX            12/21 F   14/40 F   16/24 F   17/01 F
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        HC.IA           0   GTX            37/28 F   38/03 F
        HC.ID           2   GTX            10/08 F   29/01 F
        HC.RJXJ         0   GTX            16/01 F
        HC.RJ6          1   GTX            16/16 F
        HC.2OC          0   GTX            34/28 F   37/14 F
        HE$CTX          0   EXTERNAL*       4/54
        HE$EPX          0   EXTERNAL*       4/08
        HO$MFLS         0   EXTERNAL*      39/51     40/51
        HO$OPT          0   EXTERNAL*       4/10     42/26
        HO$PMLS         0   EXTERNAL*      40/21
        IEP1           23   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=          615   PROGRAM*        6/15     30/53 D   30/56 E
        I.GL       100000   GTX            19/29
        LC.GLNP        22   GTX            19/28
        LC.NEXTP       44   GTX            19/23
        LM            775   PROGRAM*        4/28 S   37/31 L   40/48     44/31     44/43     47/12
        LM#           775   PROGRAM*       37/31 E   37/31 L
        LTAB          726   PROGRAM*       37/15 L   37/16     37/16     37/16     37/16     37/16     42/16     45/28
                                           37/16     37/16     37/16     37/16     37/16     37/16     43/30     48/23
                                           37/16     37/16     37/16     37/16     37/16     37/16     43/34     48/53
                                           37/16     37/16     37/16     37/16     37/16     37/16     44/20
                                           37/16     37/16     37/16     37/16     37/16     37/16     44/47
                                           37/16     37/16     37/16     37/16     37/16     37/16     45/01
        L$APL         750   PROGRAM*       36/37 E   37/16 L
        L$APT         752   PROGRAM*       36/39 E   37/16 L
        L$ASG         755   PROGRAM*       36/42 E   37/16 L
        L$AUD         741   PROGRAM*       36/13 E   37/16 D
        L$BCT         734   PROGRAM*       35/38 E   37/16 D
        L$BIT           0   EXTERNAL*      42/32
        L$BLK         726   PROGRAM*       35/18 E   37/16 L   38/53     39/30
        L$BST         736   PROGRAM*       35/46 E   37/16 L
        L$CAC         747   PROGRAM*       36/36 E   37/16 L
        L$CBT         761   PROGRAM*       37/01 E   37/16 L
        L$CFT         735   PROGRAM*       35/42 E   37/16 L
        L$CLW         746   PROGRAM*       36/35 E   37/16 L
        L$CUT         757   PROGRAM*       36/44 E   37/16 L
        L$CVT         756   PROGRAM*        5/38 S    6/12 S   10/07 S   36/43 E   37/16 L
        L$DIM         763   PROGRAM*       37/03 E   37/16 L
        L$DTT         732   PROGRAM*       36/09 E   37/16 D
        L$DUT         730   PROGRAM*       35/24 E   37/16 D
        L$ENTP        764   PROGRAM*       37/04 E   37/16 L
        L$FE          770   PROGRAM*       37/10 E   37/16 L
        L$FPI         765   PROGRAM*       37/05 E   37/16 L
        L$FUN         730   PROGRAM*       36/07 E   37/16 D
        L$GLT         754   PROGRAM*       36/41 E   37/16 L
        L$GST         727   PROGRAM*       35/21 E   37/16 D
        L$IIT         742   PROGRAM*       35/55 E   37/16 L   37/16
        L$IOA         751   PROGRAM*       36/38 E   37/16 L
        L$IOL         742   PROGRAM*       35/56 E   37/16 D
        L$IOT         753   PROGRAM*       36/40 E   37/16 L
        L$LPT         767   PROGRAM*       37/09 E   37/16 L
        L$MLT         732   PROGRAM*       35/31 E   37/16 D
        L$MOD         733   PROGRAM*       35/33 E   37/16 L
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        L$NLST        762   PROGRAM*       37/02 E   37/16 L
        L$OTI         732   PROGRAM*       35/30 E   37/16 L   37/16     37/16
        L$PAP         737   PROGRAM*       36/10 E   37/16 D
        L$PBT         731   PROGRAM*       35/28 E   37/16 D
        L$PFP         740   PROGRAM*       36/11 E   37/16 D
        L$PIT         731   PROGRAM*       12/14     35/27 E   37/16 L   37/16
        L$PSI         737   PROGRAM*       35/49 E   37/16 L   37/16
        L$RCT         734   PROGRAM*       35/37 E   37/16 L   37/16     37/16
        L$RND         730   PROGRAM*       35/23 E   37/16 L   37/16     37/16
        L$RXI         740   PROGRAM*       35/51 E   37/16 L   37/16
        L$SAP         745   PROGRAM*       36/14 E   37/16 L
        L$SEQ           0   EXTERNAL*      42/32
        L$SYM         760   PROGRAM*       21/23     36/56 E   37/16 L
        L$TET         741   PROGRAM*       35/53 E   37/16 L   37/16
        L$TREE        730   PROGRAM*       35/25 E   37/16 D
        L$TST         734   PROGRAM*       36/12 E   37/16 D
        L$TXT         727   PROGRAM*       35/20 E   37/16 L   37/16     42/34     42/41
        L$UDI         743   PROGRAM*       36/01 E   37/16 L
        L$VDI         766   PROGRAM*       37/06 E   37/16 L
        L$VDT         744   PROGRAM*       36/08 E   37/16 L
        L.ELT#          0   EXTERNAL*      18/06
        MC             23 
        MFLA         1062   PROGRAM*       40/10 S   40/14     40/15     40/37 L
        MFLB         1063   PROGRAM*       40/26     40/38 L
        MFL1         1045   PROGRAM*       40/05     40/08 L
        MOREFL       1037   PROGRAM*       38/15     39/07     39/49 L   39/56     40/30     40/35
        MOREFL#      1037   PROGRAM*       39/49 E   39/49 L
        MSG=            0   EXTERNAL*       4/46
        MTU          1345   PROGRAM*       49/07 L
        MTU1         1337   PROGRAM*       48/51 L   49/05     49/11
        MTU2         1344   PROGRAM*       49/01     49/03     49/05 L
        MTU$         1345   PROGRAM*       49/07 E   49/07 L
        MVE=            0   EXTERNAL*       5/45     41/22     44/55     45/46     49/04
        MX.AVS#         0   EXTERNAL*      39/15
        MX.BLN       1005   PROGRAM*       37/36 L   38/38
        MX.BLN#      1005   PROGRAM*       37/36 E   37/36 L
        M.BBL#          0   EXTERNAL*      38/40
        NAMTAB       1102   PROGRAM*       42/03 L   42/04     42/04     42/04     42/04     42/04     42/04     42/17
                                           42/04     42/04     42/04     42/04     42/04     42/04     42/04
                                           42/04     42/04     42/04     42/04     42/04     42/04     42/04
                                           42/04     42/04     42/04     42/04     42/04     42/04     42/04
                                           42/04     42/04     42/04     42/04     42/04     42/04     42/04
                                           42/04     42/04     42/04     42/04     42/04     42/04     42/04
        NTAB           43                  37/12 D   41/16     49/08
        N$FERR          0   EXTERNAL*       4/47
        N$IT          106   PROGRAM*        7/06 E    7/06 L   10/13     13/32
        N$LBT           0   EXTERNAL*       7/28
        N$OT          107   PROGRAM*        7/07 E    7/07 L   10/13
        N$SLBT        105   PROGRAM*        7/05 E    7/05 L    7/42 S
        N$VD            0   EXTERNAL*      20/19
        N.DT           32                  36/49 D   37/32     40/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
        OUTCI.          0   EXTERNAL*      42/08     42/50
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        OUTPUT#         0   EXTERNAL*      42/08     42/50
        O$APL         705   PROGRAM*       36/37 E   36/37 L
        O$APT         707   PROGRAM*       36/39 E   36/39 L   37/27
        O$ASG         712   PROGRAM*       36/42 E   36/42 L
        O$AUD         676   PROGRAM*       36/13 E   36/13 D
        O$BCT         671   PROGRAM*       35/38 E   35/38 D
        O$BIT           0   EXTERNAL*      19/07     42/32
        O$BLK         663   PROGRAM*        4/29 S   35/18 E   35/18 L
        O$BST         673   PROGRAM*       35/46 E   35/46 L
        O$CAC         704   PROGRAM*       36/36 E   36/36 L
        O$CBT         716   PROGRAM*       37/01 E   37/01 L
        O$CFT         672   PROGRAM*       35/42 E   35/42 L
        O$CLW         703   PROGRAM*       36/35 E   36/35 L
        O$CUT         714   PROGRAM*        6/26     11/30     36/44 E   36/44 L
        O$CVT         713   PROGRAM*        3/27      9/25     10/01     36/43 E   36/43 L
        O$DIM         720   PROGRAM*       37/03 E   37/03 L
        O$DTT         667   PROGRAM*       36/09 E   36/09 D
        O$DUT         665   PROGRAM*       35/24 E   35/24 D
        O$ENTP        721   PROGRAM*       37/04 E   37/04 L
        O$FE          725   PROGRAM*       37/10 E   37/10 L
        O$FPI         722   PROGRAM*       12/33     17/09     37/05 E   37/05 L
        O$FUN         665   PROGRAM*       36/07 E   36/07 D
        O$GLT         711   PROGRAM*       36/41 E   36/41 L   37/27
        O$GST         664   PROGRAM*       35/21 E   35/21 D
        O$IIT         677   PROGRAM*       35/55 E   35/55 L   35/56
        O$IOA         706   PROGRAM*       36/38 E   36/38 L
        O$IOL         677   PROGRAM*       35/56 E   35/56 D
        O$IOT         710   PROGRAM*       36/40 E   36/40 L   37/27
        O$LPT         724   PROGRAM*       37/09 E   37/09 L   37/27
        O$MLT         667   PROGRAM*       35/31 E   35/31 D
        O$MOD         670   PROGRAM*       35/33 E   35/33 L
        O$NLST        717   PROGRAM*       37/02 E   37/02 L
        O$OTI         667   PROGRAM*       35/30 E   35/30 L   35/31     36/09
        O$PAP         674   PROGRAM*       36/10 E   36/10 D
        O$PBT         666   PROGRAM*       35/28 E   35/28 D
        O$PFP         675   PROGRAM*       36/11 E   36/11 D
        O$PIT         666   PROGRAM*       11/14     12/13     35/27 E   35/27 L   35/28
        O$PSI         674   PROGRAM*       35/49 E   35/49 L   36/10
        O$RCT         671   PROGRAM*       35/37 E   35/37 L   35/38     36/12
        O$RND         665   PROGRAM*       35/23 E   35/23 L   35/24     35/25     36/07
        O$RXI         675   PROGRAM*       35/51 E   35/51 L   36/11
        O$SAP         702   PROGRAM*       36/14 E   36/14 L
        O$SEQ           0   EXTERNAL*      42/32
        O$SYM         715   PROGRAM*       10/44     11/23     21/56     36/56 E   36/56 L
        O$TET         676   PROGRAM*       13/11     35/53 E   35/53 L   36/13
        O$TREE        665   PROGRAM*       35/25 E   35/25 D
        O$TST         671   PROGRAM*       36/12 E   36/12 D
        O$TXT         664   PROGRAM*        4/30 S   35/20 E   35/20 L   35/21     42/37     42/41
        O$UDI         700   PROGRAM*       36/01 E   36/01 L
        O$VDI         723   PROGRAM*       20/11     37/06 E   37/06 L
        O$VDT         701   PROGRAM*       36/08 E   36/08 L
        O.ELT#          0   EXTERNAL*      18/12
        O.LCT#          0   EXTERNAL*      19/06
        PL           1003   PROGRAM*       37/34 L   43/50 S   46/22
        PMT          1201   PROGRAM*       42/18     42/32     42/32     42/48 L   42/49     42/54
        PTCA         1200   PROGRAM*       42/12 S   42/14     42/19     42/46 L
        PTC1         1153   PROGRAM*       42/14 L   42/24
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        PTC2         1166   PROGRAM*       42/27     42/34 L
        PTC3         1176   PROGRAM*       42/36     42/40     42/43 L
        PUNT           33   PROGRAM*        4/42 L   38/24
        PUNTA          26   PROGRAM*        4/40 L    4/44 S    4/46
        PUNT#          33   PROGRAM*        4/42 E    4/42 L
  U     QUAL$                              30/03 F   30/51 F
        RSR=            0   EXTERNAL*      42/08     42/41     42/50
        R1.CAP         36   GTX            10/50
        SCT0           43   PROGRAM*        5/07 L    5/22
        SCT1           51   PROGRAM*        5/15 L    5/17      5/18
        SHL           660   PROGRAM*       33/41 L
        SHL1          651   PROGRAM*       33/16 L   33/27     33/33
        SHL2          652   PROGRAM*       33/20 L   33/39
        SHL3          653   PROGRAM*       33/25 L   33/32
        SHL4          656   PROGRAM*       33/18     33/35 L   33/47
        SHL#          660   PROGRAM*       33/41 E   33/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
        SNP=            0   EXTERNAL*      38/20
        SOB             0   EXTERNAL*      42/10
        SST           634   PROGRAM*       31/50 L   32/08
        SST0          623   PROGRAM*       31/19 L   31/35
        SST1          624   PROGRAM*       31/23 L   31/43     31/49
        SST2          626   PROGRAM*       31/31 L   31/40
        SST4          632   PROGRAM*       31/21     31/45 L   31/56
        SST#          634   PROGRAM*       31/50 E   31/50 L
        SVR=            0   EXTERNAL*      42/08     42/41     42/50
        SV=X            0   EXTERNAL*      42/50     42/50     42/50
        SYM           451   PROGRAM*       21/13 E   21/13 L   21/18
        SYM1          447   PROGRAM*       21/08 L   21/15
        SYS=            0   EXTERNAL*      40/14
        S$CON           0   EXTERNAL*       9/49
        S$IT            0   EXTERNAL*      10/13     14/10
        S$OT            0   EXTERNAL*      10/13
        TEST            1   GTX             3/22 F    4/45 F   21/01 F   30/35 F   38/17 F   42/01 F
        THRESH       1006   PROGRAM*       37/37 L   40/29     44/37
        THRESH#      1006   PROGRAM*       37/37 E   37/37 L
        TN            776   PROGRAM*       37/32 L   41/08     42/20     43/47     44/57     46/19     46/32 S   46/37
        TO           1004   PROGRAM*        4/07 S   37/35 L   38/20     46/28
        TOBA         1036   PROGRAM*       39/19 S   39/24     39/37 L
        TOB1         1020   PROGRAM*       38/46     38/51 L
        TOB1A        1024   PROGRAM*       39/03     39/06 L
        TOB2         1026   PROGRAM*       39/04     39/15 L
        TOB3         1033   PROGRAM*       39/18     39/30 L
        TOB4         1034   PROGRAM*       39/26     39/34 L
        TOB#         1015   PROGRAM*       38/37 E   38/38 L
        TOV1         1014   PROGRAM*       38/23 L   39/23
        TOV#         1007   PROGRAM*        4/06     37/35     38/11 E   38/12 L
        TO#          1004   PROGRAM*       37/35 E   37/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
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        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#          207   PROGRAM*       19/54 D   19/54 E
        WNB=            0   EXTERNAL*      42/43
        WPW           101   PROGRAM*        6/42 L
        WPWA          104   PROGRAM*        6/44 S    6/49 L
        WPW1          100   PROGRAM*        6/40 L    6/47
        WPW#          101   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
        ZTB=            0   EXTERNAL*      21/12
        Z$APL          22                  36/37 E   36/37 D   36/37     37/16     42/04
        Z$APT          24                  36/39 E   36/39 D   36/39     37/16     42/04
        Z$ASG          27                  36/42 E   36/42 D   36/42     37/16     42/04
        Z$AUD          13                  36/13 E   36/13 D   36/13     42/04
        Z$BCT           6                  35/38 E   35/38 D   35/38     42/04
        Z$BLK           0                  35/18 E   35/18 D   35/18     37/16     42/04
        Z$BST          10                  35/46 E   35/46 D   35/46     37/16     42/04
        Z$CAC          21                  36/36 E   36/36 D   36/36     37/16     42/04
        Z$CBT          33                  37/01 E   37/01 D   37/01     37/16     42/04
        Z$CFT           7                  35/42 E   35/42 D   35/42     37/16     42/04
        Z$CLW          20                  36/35 E   36/35 D   36/35     37/16     42/04
        Z$CUT          31                   5/07      6/14      9/24     36/44 E   36/44 D   36/44     37/16     42/04
        Z$CVT          30                   5/12      5/41     36/43 E   36/43 D   36/43     37/16     42/04
        Z$DIM          35                  37/03 E   37/03 D   37/03     37/16     42/04
        Z$DTT           4                  36/09 E   36/09 D   36/09     42/04
        Z$DUT           2                  35/24 E   35/24 D   35/24     42/04
        Z$ENTP         36                  37/04 E   37/04 D   37/04     37/16     42/04
        Z$FE           42                  37/10 E   37/10 D   37/10     37/16     42/04
        Z$FPI          37                  37/05 E   37/05 D   37/05     37/16     42/04
        Z$FUN           2                  36/07 E   36/07 D   36/07     42/04
        Z$GLT          26                  36/41 E   36/41 D   36/41     37/16     42/04
        Z$GST           1                  35/21 E   35/21 D   35/21     42/04
        Z$IIT          14                  35/55 E   35/55 D   35/55     35/56     37/16     42/04
        Z$IOA          23                  36/38 E   36/38 D   36/38     37/16     42/04
        Z$IOL          14                  35/56 E   35/56 D   35/56     42/04
        Z$IOT          25                  36/40 E   36/40 D   36/40     37/16     42/04
        Z$LPT          41                  37/09 E   37/09 D   37/09     37/16     42/04
        Z$MLT           4                  35/31 E   35/31 D   35/31     42/04
        Z$MOD           5                  35/33 E   35/33 D   35/33     37/16     42/04
        Z$NLST         34                  37/02 E   37/02 D   37/02     37/16     42/04
        Z$OTI           4                  35/30 E   35/30 D   35/30     35/31     36/09     37/16     42/04
        Z$PAP          11                  36/10 E   36/10 D   36/10     42/04
        Z$PBT           3                  35/28 E   35/28 D   35/28     42/04
        Z$PFP          12                  36/11 E   36/11 D   36/11     42/04
        Z$PIT           3                  35/27 E   35/27 D   35/27     35/28     37/16     42/04
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        Z$PSI          11                  35/49 E   35/49 D   35/49     36/10     37/16     42/04
        Z$RCT           6                  35/37 E   35/37 D   35/37     35/38     36/12     37/16     42/04
        Z$RND           2                  35/23 E   35/23 D   35/23     35/24     35/25     36/07     37/16     42/04
        Z$RXI          12                  35/51 E   35/51 D   35/51     36/11     37/16     42/04
        Z$SAP          17                  36/14 E   36/14 D   36/14     37/16     42/04
        Z$SYM          32                  36/56 E   36/56 D   36/56     37/16     42/04
        Z$TET          13                  35/53 E   35/53 D   35/53     36/13     37/16     42/04
        Z$TREE          2                  35/25 E   35/25 D   35/25     42/04
        Z$TST           6                  36/12 E   36/12 D   36/12     42/04
        Z$TXT           1                  35/20 E   35/20 D   35/20     35/21     37/16     42/04
        Z$UDI          15                  36/01 E   36/01 D   36/01     37/16     42/04
        Z$VDI          40                  37/06 E   37/06 D   37/06     37/16     42/04
        Z$VDT          16                  36/08 E   36/08 D   36/08     37/16     42/04
        .DAL            1   GTX            12/21 F
        .T             43                  34/26 D   35/27 D   35/42 D   36/01 D   36/13 D   36/40 D   36/56 D   37/09 D
                                           35/18 D   35/28 D   35/46 D   36/07 D   36/14 D   36/41 D   37/01 D   37/10 D
                                           35/20 D   35/30 D   35/49 D   36/08 D   36/35 D   36/42 D   37/02 D   37/12
                                           35/21 D   35/31 D   35/51 D   36/09 D   36/36 D   36/43 D   37/03 D
                                           35/23 D   35/33 D   35/53 D   36/10 D   36/37 D   36/44 D   37/04 D
                                           35/24 D   35/37 D   35/55 D   36/11 D   36/38 D   36/48 F   37/05 D
                                           35/25 D   35/38 D   35/56 D   36/12 D   36/39 D   36/49     37/06 D
        .9              0                  38/20 D   38/20 D   38/20 D   38/20 D   38/20 D   38/20 D
                                           38/20     38/20     38/20     38/20     38/20     38/20
  
  
  
  
                                                  SYMBOL QUALIFIER =  WII 
  
  
        CG$CUB        126   PROGRAM*        8/05 L    8/10      8/27     19/54
        CG$DSA        173   PROGRAM*        9/51     10/13     10/13     10/27 L   10/53     19/54
        CG$EP         146   PROGRAM*        9/18 L   10/16     19/54
        CG$RBT        113   PROGRAM*        7/18 L    7/43     19/54
        CSR           324   PROGRAM*       14/43     16/30     17/08 L   17/20
        DSA1          177   PROGRAM*       10/33     10/37 L
        DSA2          204   PROGRAM*       10/40     10/50 L
        EP1           153   PROGRAM*        9/32 L    9/42
        EP2           155   PROGRAM*        9/33      9/41 L
        EP3           165   PROGRAM*        9/45     10/06 L
        FSU#          140   PROGRAM*        8/33 L    8/35      8/42     19/54
        FU            145   PROGRAM*        8/41 S    8/44 L   11/16
        LABA          355   PROGRAM*       17/49     18/38 L
        LAB1          334   PROGRAM*       17/34     17/38 L
        LAB2          351   PROGRAM*       17/50     18/25 L
        LAB3          353   PROGRAM*       18/05     18/07     18/21     18/33 L
        LD1           275   PROGRAM*       14/25     14/46 L
        RBT1          121   PROGRAM*        7/33 L    7/40
        RBT2          123   PROGRAM*        7/35      7/37 L
        RJ61          317   PROGRAM*       16/20     16/23 L
        RJ62          323   PROGRAM*       16/35     16/37 L
        RLV           356   PROGRAM*       15/30     15/36     15/41     18/46 L   18/52     18/57     19/26     19/36
        RLV1          365   PROGRAM*       19/11 L   19/25
        RLV2          366   PROGRAM*       19/15 L   19/21
        RLV3          372   PROGRAM*       19/17     19/28 L
        TLD           246   PROGRAM*       13/03 L   14/15
        TLD1          251   PROGRAM*       13/17 L   13/22
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/05. 19.57.15.      PAGE    57
        SYMBOLIC REFERENCE TABLE.                                     WII 
  
        TLD3          260   PROGRAM*       13/21     13/41     13/44 L
        UJP1          312   PROGRAM*       15/37     15/46 L
        WIIA          375   PROGRAM*       11/53     19/46 L
        WII0          215   PROGRAM*       11/17     11/22 L
        WII1          221   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          224   PROGRAM*       11/38     11/43     11/49 L   15/50     15/52     16/39     18/36
        WII#          207   PROGRAM*       11/12 L   12/18     19/54
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCISC 
  
  
        ISC=          615   PROGRAM*       30/33 L   30/49     30/53
        SETC2         613   PROGRAM*       30/28 L   30/31     30/48
  
  
  
  
                                                  SYMBOL QUALIFIER =  SHFTC=0 
  
  
        SST0          637   PROGRAM*       32/03 L   32/12     32/34
        SST1          641   PROGRAM*       32/10 L   32/24
        SST2          642   PROGRAM*       32/07     32/14 L   32/33
        SST3          644   PROGRAM*       32/22 L   32/30
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1171              IDENT  MIO
                       1171                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1132 
                                        LITERALS* LOCAL        1132         5 
                                        DEBUG     LOCAL        1137        32 
  
  
                                        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    SVR=
                                        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$      RSR=
                                        O$BST     L$TXT     MOREFL#   F.MEM     CIO=      Z$BLK     PRNTMIO 
  
  
  
  
                                                  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
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE     2
  
  
                                        *         METHODS WOULD REQUIRE A LIST SEARCH.  IT ALSO SIMPLIFIES       MIO        26
                                        *         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
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE     3
  
  
                                                  ERRNZ  .MI         SHOULD BE 7600 ONLY (NOT .MI)               F1037CC    40
                                                                                                                 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/05. 19.57.19.      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/05. 19.57.19.      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     .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
          1137  0200401137 +             CPR      ROUTINE                                                        MIO       124
          1140  0100000000 X                      RJ     =XSVR=                                                  CCG7       81
          1141  5110001137 +                      SA1    CPR                                                     MIO       126
                          20136                   LX1    30                                                      MIO       127
          1142  5221777776                        SA2    X1-1                                                    MIO       128
                          5110000000 X            SA1    O.BIT                                                   MIO       129
          1143  5140000000 X                      SA4    O.BST                                                   MIO       130
                          5150000000 X            SA5    O.BLK                                                   MIO       131
          1144  5232000001                        SA3    X2+1                                                    MIO       132
                          7272000001              SX7    X2+1                                                    MIO       133
          1145  73620                             SX6    X2                                                      MIO       134
                     20336                        LX3    30                                                      MIO       135
                          5160001156 +            SA6    CPRA                                                    MIO       136
          1146  5170001157 +                      SA7    CPRA+1                                                  MIO       137
                          10611                   BX6    X1                                                      MIO       138
                               10744              BX7    X4                                                      MIO       139
          1147  5160001160 +                      SA6    CPRA+2                                                  MIO       140
                          5170001162 +            SA7    CPRA+4                                                  MIO       141
          1150  10655                             BX6    X5                                                      MIO       142
                     73730                        SX7    X3                                                      MIO       143
                          5160001164 +            SA6    CPRA+6                                                  MIO       144
          1151  5170001167 +                      SA7    CPRA+9                                                  MIO       145
                          7263777767              SX6    X3-8                                                    MIO       146
          1152  5160001166 +                      SA6    CPRA+8                                                  MIO       147
                          5110001156 +            SA1    CPRA                                                    MIO       148
          1153  0100000000 X                      CALL   PRNTMIO                                                 MIO       149
          1154  0100000000 X                      RJ     =XRSR=                                                  CCG7       82
          1155  0400001137 +                      EQ     CPR                                                     MIO       151
                                                                                                                 MIO       152
          1156                     3     CPRA     BSS    3                                                       MIO       153
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE     6
        DEBUGGING FACILITIES                                          DEBUG     DEBUG 
  
          1161  00000000000000000000 X            VFD    42/,18/L.BIT                                            MIO       154
          1162                     1              BSS    1                                                       MIO       155
          1163  00000000000000000000 X            VFD    42/,18/L.BST                                            MIO       156
          1164                     1              BSS    1                                                       MIO       157
          1165  00000000000000000000 X            VFD    42/,18/L.BLK                                            MIO       158
          1166                     3              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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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/05. 19.57.19.      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
          1171                                    END                                                            MIO      2079
  
                             56300B CM  STORAGE USED             5017 STATEMENTS     1103 SYMBOLS      000124 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.299 SECONDS        1063 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/23 L    7/14 S   18/42
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/05. 19.57.19.      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/37 D   47/18     48/16
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        BSI             0   EXTERNAL*       3/06 D   10/44     11/45     14/14     20/39
                                           10/16     11/01     13/24     15/17     21/52
        BSI#            0   EXTERNAL*       3/06
        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
        CPR          1137   PROGRAM*        5/28 L    5/30      5/55
        CPRA         1156   PROGRAM*        5/40 S    5/44 S    5/48 S    5/51 S    5/57 L
                                            5/41 S    5/45 S    5/49 S    5/52
        CP.AFLL         0   EXTERNAL*       3/07 X    3/08
        CP#RM           0   GTX             7/19 F   17/13 F   45/19 F   46/15 F
        CT.CPU        111   GTX             2/08 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
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/11 D    3/25
        F$RDT           0   EXTERNAL*       3/05
        F.MEM           0   EXTERNAL*       3/10 X    3/11
        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/05 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/05 D
        LAL            13   PROGRAM*        3/31 L   36/15     39/26     40/23     40/43 S   43/32 S
        LAS            12   PROGRAM*        3/30 L    8/23 S   28/19     31/17     32/26     34/47 S
        LCM.FL          0   EXTERNAL*       3/08 D    7/11     35/28     35/55 S
        LCM.XL         20                   3/35 D   35/30     36/40
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        L$BIT           0   EXTERNAL*       3/05
        L$BLK           0   EXTERNAL*       3/05
        L$BST           0   EXTERNAL*       3/05
        L$SEQ           0   EXTERNAL*       3/05
        L$TXT           0   EXTERNAL*       3/05
        L.BIT           0   EXTERNAL*       3/05 D    6/01
        L.BLK           0   EXTERNAL*       3/05 D    6/05      8/08     34/37
        L.BST           0   EXTERNAL*       3/05 D    6/03
        L.SEQ           0   EXTERNAL*       3/05 D   13/18 S   14/34 S   27/51 S
        L.TXT           0   EXTERNAL*       3/05 D    8/21      8/27      8/38 S   10/52     11/05
        MAX.LCM         1   PROGRAM*        3/20 E    3/21 L   35/29
        MIN.AB         40                   3/33 D   31/07     32/12
        MIN.AL        100                   3/34 D   39/14     40/09
        MOREFL          0   EXTERNAL*       3/06 D   25/36
        MOREFL#         0   EXTERNAL*       3/06
        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/29 L   36/05     38/11     38/32     38/55     40/08     43/35 S
        MX.AVS         10   PROGRAM*        3/28 L    8/24 S   27/29     30/11     30/30     30/48     32/11     34/43 S
        MX.AVS#        10   PROGRAM*        3/28 E    3/28 L
        N.RRB           7   PROGRAM*        3/27 L    7/44 S   21/03     21/27 S
        OC.BOS          1   GTX            16/17
        O$BIT           0   EXTERNAL*       3/05
        O$BLK           0   EXTERNAL*       3/05
        O$BST           0   EXTERNAL*       3/05
        O$SEQ           0   EXTERNAL*       3/05
        O$SYM           0   EXTERNAL*       3/05
        O$TXT           0   EXTERNAL*       3/05
        O.BIT           0   EXTERNAL*       3/05 D    8/45     11/09     15/18     25/11     42/13
                                            5/33      9/08     13/32     23/35     33/14
        O.BLK           0   EXTERNAL*       3/05 D    5/35      8/07     23/31     25/44     33/16     34/36
        O.BST           0   EXTERNAL*       3/05 D   10/15     10/57     14/13     23/29     33/15
                                            5/34     10/43     13/23     15/16     25/12
        O.DISK          2   PROGRAM*        3/22 L   18/16     21/11     45/15
        O.LCM           0   PROGRAM*        3/16 L    7/09 S   35/27     38/40     42/12     43/33 S
        O.RRB           4   PROGRAM*        3/24 L    7/41 S   17/24     21/02     21/22     21/29
        O.RWB           5   PROGRAM*        3/25 L    7/30      7/43 S   19/24     19/36     19/40     21/10
        O.SEQ           0   EXTERNAL*       3/05 D   13/16 S   14/28 S   23/30     25/13     27/50 S   33/13     34/09 S
        O.SYM           0   EXTERNAL*       3/05 D
        O.TXT           0   EXTERNAL*       3/05 D    8/10 S    8/31     11/04
        PRNTMIO         0   EXTERNAL*       5/53
        PUNT            0   EXTERNAL*       3/06 D   29/18
        PUNT#           0   EXTERNAL*       3/06
        Q.BAW           2                   5/25 D
        Q.BHW           3                   5/25 D
        Q.BIT           5                   5/25 D
        Q.BLK           7                   5/25 D
        Q.BST           6                   5/25 D
        Q.BTW           4                   5/25 D
        Q.RIW           1                   5/25 D
        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
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/26 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
        RSR=            0   EXTERNAL*       5/54
        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
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/05. 19.57.19.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        SVR=            0   EXTERNAL*       5/29
        SYS=            0   EXTERNAL*      35/49
        S$IT            0   EXTERNAL*       3/05
        TEST            1   GTX             5/19 F
        TO              0   EXTERNAL*       3/06 D    8/13 S
        TOB             0   EXTERNAL*       3/06 D    8/12
        TOB#            0   EXTERNAL*       3/06
        TO#             0   EXTERNAL*       3/06
        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
        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/05 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/05. 19.57.20.      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/05. 19.57.20.      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/05. 19.57.20.      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/05. 19.57.20.      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/05. 19.57.20.      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/05. 19.57.20.      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            0.357 SECONDS         126 REFERENCES
  
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/05. 19.57.20.      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/05. 19.57.20.      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/05. 19.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4542              IDENT  GPO
                       4542                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4507 
                                        LITERALS* LOCAL        4507         1 
                                        GPOGRA    COMMON          0        40 
                                        BVINFO    COMMON          0         4 
                                        CCGSCR    COMMON          0       260 
                                        STAT      LOCAL        4510        26 
                                        CLCM      LOCAL        4536         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#          1367+ 
                                        O.IST#           7+           L.ELT#          26+           FUD#          1420+ 
                                        M.LP#           10+           O$SEQ           27+           MBT#          4474+ 
                                        N.FTH#          11+           L$SEQ           30+           MPB#          4364+ 
                                        M.BBL#          12+           BN#             31+           MPR#          1323+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BLK     O$PSI     O$SYM     HO$LCM    CUC#      Z$BST     CWS#      IMPD# 
                                        L$BLK     L$PSI     O$CFT     Z$TET     HO$TB     GBD#      FBV#      AUT#
                                        O$BST     O$RND     L$CFT     MVE=      WMB#      GMB#      HO$OPT    CMR#
                                        L$BST     L$RND     O$GLT     Z$MOD     Z$MLT     N$IT      DGS#      Z$UDI 
                                        O$GST     O$RXI     L$GLT     SIE#      S$LC      SHL#      F$CFA     ISC=
                                        L$GST     L$RXI     TYIOM#    Z$TXT     N$LC      Z$CFT     F$UDT     Z$BLK 
                                        O$IIT     O$TET     STLDS#    ATS$      N$SEP     Z$GLT     IMPB#     AFT#
                                        L$IIT     L$TET     SUVA#     ADW$      O$FPI     GRA#      WII#      CC$PC 
                                        O$MLT     O$TXT     ESRA#     Z$IIT     L$FPI     CDD=      MCG#      HO$ER 
                                        L$MLT     L$TXT     MX.BLN#   Z$RND     RIO#      N$EXST    Z$PIT     F$BRDGE 
                                        O$MOD     O$UDI     PUNT#     CMO       SQZB#     FA=LOL    ESR#
                                        L$MOD     L$UDI     MOREFL#   O$CVT     CXB#      COD=      CC$LNL
                                        O$PIT     F$RDT     LM#       O$APT     RBS#      HO$LO$S   RTB#
                                        L$PIT     S$IT      F.MEM     HO$UO     HO$CSN    IMPC#     Z$RXI 
  
  
  
  
                                                  IDENT  GPO                                                     GPO         2
                                                                                                                 SSTCALL     2
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE     2
  
  
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      PAGE    20
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL                 CODE
  
           177  0100000726 +                      RJ     IRP         INITIALIZE REGION PROCESSING                GPO       411
           200  43703                             MX7    UD.MVL                                                  GPO       412
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO       413
                          5170001411 +            SA7    BCM         BCM = *BLOCK CLEAR BITS*                    GPO       414
           201  7170001420 +                      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  7170002336 +                      CLCM   MII         MARK INVARIANT INSTRUCTIONS                 GPO       456
           222  0100001022 +                      RJ     IHB         INITIALIZE HOLDING BLOCK                    GPO       457
           223  7160000226 +                      PLUG   AT=GPO7,TO=COL4,VOID=NO                                 GPO       458
           225  0400000466 +                      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/05. 19.57.21.      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/05. 19.57.21.      PAGE    22
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL 
  
                                                  QUAL                                                           GPO       537
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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/05. 19.57.21.      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/05. 19.57.21.      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  5110004507 +             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/05. 19.57.21.      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
           371  5110000000 X                      SA1    =XHO$LO$S                                               CCGNC     604
                          0301000434 +            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
          4510  55555555555555555555     IGOA     DATA   1H ,38LOPTIMIZER MEMORY USEAGE STATISTICS               GPO       690
          4515  55555555555555555555     IGOB     DATA   1H ,40LEXEC STMTS  N.BLOCKS   N.LOOPS    N.VARS         GPO       691
          4522  55555515013046021413              DATA   20H   MAX-BLK  N.GRAPHS                                 GPO       692
          4524  55555514570722012010              DATA   50L   L.GRAPH L.BIT VEC     L.BLK WRK SPACE L.PRG TXT   GPO       693
          4531  55555555555555550000     IGOC     DATA   8L                                                      GPO       694
                                                                                                                 GPO       695
          4532  0200404532 +             ZOD      ROUTINE                                                        GPO       696
          4533  0100000000 X                      RJ     =XCOD=                                                  CCG1       38
          4534  20606                             LX6    6                                                       GPO       698
                     7170777724                   SX7    1RB-1R                                                  GPO       699
                               36667              IX6    X6+X7                                                   GPO       700
          4535  0400004532 +                      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     .1       SET    1                                                       GPO       715
           372  6160004531 +                      LISTL  IGOC,1                                                  GPO       716
           374  6160004510 +                      LISTL  IGOA,IGOB-IGOA                                          GPO       717
           376  6160004515 +                      LISTL  IGOB,IGOC+1-IGOB                                        GPO       718
           400  5110000000 X                      STAT   N$EXST,,CDD=      N.STMTS                               CCGNC     605
                          5110000003 +            STAT   NPB,,CDD=                                               CCG1       41
                          5110000002 +            STAT   CC$CBN,NPB,CDD=,-1  N.LOOPS                             CCGNC     606
                          5110000001 C            STAT   N.VAR,,CDD=,-1                                          CCG1       43
                          5110000012 +            STAT   M.BBL,,ZOD        MAX BASIC BLK LEN                     GPO       723
                          5110000005 +            STAT   N.DG,,COD=        N.GRAPHS                              CCG1       44
                          5110000015 +            STAT   O.BIT,GP,ZOD      L.GRAPH                               GPO       725
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    27
        GPO - CONTROL / INITIALIZATION                                GPO                 CODE
  
                          5110000035 +            STAT   O.BTT,O.BVT,ZOD   L.BIT VEC                             GPO       726
                          5110000000 X            STAT   L.BLK,,ZOD                                              GPO       727
                          5110000000 X            STAT   O.GLT,O.TXT,ZOD   WORK SPACE                            CCG1       45
                          5110000022 +            STAT   L.PTXT,,ZOD                                             GPO       729
                                                  PURGMAC STAT                                                   GPO       730
                                                                                                                 GPO       731
                          6160004515 +            LISTL  IGOB,IGOC+1-IGOB                                        GPO       732
                                                                                                                 GPO       733
           434                           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
           434  7160000001                        SX6    1                                                       GPO       740
                          5160000045 +            SA6    BBV         BBV = 1       */ SET FOR NO BIT VECTORS     GPO       741
           435  43703                             MX7    UD.MVL                                                  GPO       742
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO       743
                          5170001411 +            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
           436  7110000004                        ALLOC  TXT,4       ALLOC( TXT , 4 )                            GPO       748
           440  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
           441  10755                             BX7    X5                                                      GPO       752
                     54761                        SA7    A6+B1       [T+2] = RDT(BOS)                            GPO       753
                          54671                   SA6    A7+B1       [T+3] = 0                                   GPO       754
           442  5110000000 X                      SA1    L.GLT                                                   CCG1       46
                          7261777776              SX6    X1-1                                                    CCG28      11
           443  5160000001 +                      SA6    N.GL0       N.GL0 = L.GLT - 1                           CCG28      12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
           444  0100000663 +             GPO1     RJ     IGP         INITIALIZE GRAPH PROCESSING                 GPO       759
           445  0306000526 +                      ZR     X6,GPO10    IF N.LP = 0   */ NO LOOPS IN THIS GRAPH     GPO       760
                                                                                                                 GPO       761
           446  0100000710 +             GPO2     RJ     FNL         FIND NEXT LOOP                              GPO       762
           447  0100000726 +                      RJ     IRP         INITIALIZE REGION PROCESSING                GPO       763
                                                                                                                 GPO       764
           450  7170001420 +                      CLCM   FUD         FORM USE/DEF INFO FOR REGION                GPO       765
           452  5110000053 +                      SA1    UXR+1                                                   GPO       766
                          0301000457 +            ZR     X1,GPO3     IF UXR(2) = 0 */ NO USER EXT REFS           GPO       767
           453  43701                             MX7    1                                                       GPO       768
                     5170000020 C                 SA7    XRF         XRF = 1S59                                  GPO       769
           454  5120000003 C                      SA2    RCV                                                     GPO       770
                          0302000457 +            ZR     X2,GPO3     IF RCV = 0    */ NO REFED COMMON VARIABLES  GPO       771
           455  5140000017 +                      SA4    O.BVT                                                   GPO       772
                          5150001412 +            SA5    RDB                                                     GPO       773
           456  0100001367 +                      CALL   EBV         SET REGION DEF BITS FOR COMMON VARS, ETC    GPO       774
                                                                                                                 GPO       775
           457  7170001757 +             GPO3     CLCM   RDD         REMOVE DEAD DEFINITIONS                     GPO       776
                                                                                                                 GPO       777
           461  0100002173 +                      RJ     FEI         FORM LIVE ENTRY VECTOR                      FCCA513X    8
                                                                                                                 FCCA513X    9
           462  7170002336 +                      CLCM   MII         MARK INVARIANT INSTRUCTIONS                 GPO       778
                                                                                                                 GPO       779
           464  0100001022 +                      RJ     IHB         INITIALIZE HOLDING BLOCK                    GPO       780
           465  0100002207 +                      RJ     FXI         FORM EXIT INFORMATION                       GPO       781
                                                                                                                 GPO       782
           466  7170002747 +             GPO3A    CLCM   FII,(STC)   FORM INCREMENT INFO                         GPO       783
           470  5110000000 X                      SA1    L.IIT                                                   GPO       784
                          10611                   BX6    X1          PIC = L.IIT                                 GPO       785
           471  5160000101 C                      SA6    PIC                                                     GPO       786
                          0301000474 +            ZR     X1,GPO4     IF PIC = 0    */ NO RECURSIVE DEFS          GPO       787
                                                                                                                 GPO       788
           472  7170003014 +                      CLCM   MIP         MARK INTEGER POLYNOMIALS                    GPO       789
                                                                                                                 GPO       790
           474  5110000015 C             GPO4     SA1    MRA                                                     GPO       791
                          7120000376              SX2    376B                                                    GPO       792
           475  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
           476  0314000477 +                      NZ     X4,GPO5     IF NABR \ 2                                 GPO       797
                          7160000003              SX6    3           MINC = 3                                    GPO       798
           477  5160000114 C             GPO5     SA6    MINC                                                    GPO       799
                          7170003243 +            CLCM   MIE,(IIC)   MOVE INV/SR INSTRUCTIONS TO *HB*            GPO       800
           501  43600                             MX6    0                                                       GPO       801
                     0100002305 +                 CALL   SHB         SQUEEZE HOLDING BLOCK                       GPO       802
           502  5120000100 C                      SA2    NTP                                                     GPO       803
                          0302000512 +            ZR     X2,GPO6     IF NTP = 0    */ NO TERMINAL *IP*"S         GPO       804
                                                                                                                 GPO       805
           503  0100003475 +                      RJ     CIF         COLLECT INCREMENT FORMULAS                  GPO       806
           504  5120000100 C                      SA2    NTP                                                     FCC1710X    6
                          0302000512 +            ZR     X2,GPO6     IF NTP = 0                                  FCC1710X    7
                                                                                                                 GPO       807
           505  7170003720 +                      CLCM   FIM,(STC)   FORM *TP* INCREMENT MODS                    GPO       808
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    29
        GPO - MAIN LOOP                                               GPO                 CODE
  
           507  5110000000 X                      SA1    L.MOD                                                   GPO       809
                          7221777773              SX2    X1-4                                                    GPO       810
           510  0302000512 +                      ZR     X2,GPO6     IF L.MOD = 4  */ NO VARIABLE INCR CODE      GPO       811
                          76610                   SX6    B1                                                      GPO       812
           511  0100002305 +                      CALL   SHB         SQUEEZE VARIABLE INCREMENT CODE             GPO       813
                                                                                                                 GPO       814
           512  7160000004               GPO6     SX6    4           L.TXT = 4                                   GPO       815
                          5160000000 X            SA6    L.TXT                                                   GPO       816
           513  7170004224 +                      CLCM   UPB,(NIS,BM,NTET)   UPDATE MODIFIED BLOCKS              GPO       817
           515  0100001267 +                      RJ     ATT         ADJUST *TET*                                FCC0514    25
                                                                                                                 GPO       818
           516  0100001165 +                      RJ     CBB         COMBINE BASIC BLOCKS                        FCC0646    12
                                                                                                                 GPO       820
           517  0100000000 X                      CALL   GRA#        ASSIGN REGISTERS, CODE THE LOOP             CCGNC     607
                                                                                                                 GPO       822
           520  0100001034 +             GPO7     RJ     TRP         TERMINATE REGION PROCESSING                 FCC0646    13
           521  5120000042 +                      SA2    N.LP                                                    GPO       824
                          7272777776              SX7    X2-1        N.LP = N.LP - 1                             GPO       825
           522  5072000000                        SA7    A2+                                                     GPO       826
                          0317000446 +            NZ     X7,GPO2     IF N.LP " 0                                 GPO       827
                                                                                                                 GPO       828
           523  7170000004                        SX7    4           EMF = 4       */ EXPAND STT"S IN OUTER LPS  GPO       829
                          5170000013 C            SA7    EMF                                                     GPO       830
           524  0100000717 +                      RJ     GNG         GET NEXT GRAPH                              GPO       831
           525  0400000444 +                      EQ     GPO1                                                    FCC0514    26
  
  
                                        *         PROCESS BLOCKS OUTSIDE OF ALL LOOPS AND CONVERT THEM TO CODE.  GPO       835
                                                                                                                 GPO       836
           526  43617                    GPO10    MX6    -UD.STCP                                                GPO       837
                     76700                        SX7    B0                                                      FCC0514    27
                          5170000047 +            SA7    HBI         HBI = 0       */ OUTSIDE OF ALL LOOPS       FCC0675    11
           527  5170000046 +                      SA7    NBIP        NBIP = 0                                    FCC0514    29
                          5160001411 +            SA6    BCM         BCM = *REGION CLEAR MASK*                   GPO       838
                                                                                                                 GPO       839
           530  5110000043 +             GPO11    SA1    IBA                                                     GPO       840
                          53210                   SA2    X1          IP = [IBA]                                  GPO       841
                               73611              SX6    X1+B1       IBA = IBA + 1                               GPO       842
           531  0302000534 +                      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
           532  54711                             SA7    A1+B1                                                   GPO       847
                     0100001121 +                 CALL   CIC         CONVERT INTERVAL TO CODE                    GPO       848
           533  0400000530 +                      EQ     GPO11                                                   GPO       849
                                                                                                                 GPO       850
                                        *         ADJUST *GL* TABLE FOR GL"S ADDED FROM MULTIPLE PRED IF LOOPS.  GPO       851
                                                                                                                 GPO       852
           534  5110000001 +             GPO12    SA1    N.GL0                                                   GPO       853
                          5120000000 X            SA2    L.GLT                                                   CCG1       49
           535  37112                             IX1    X1-X2       L = N.GL0 - L.GLT                           CCG1       50
                     0331000537 +                 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/05. 19.57.21.      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
           537  5110000002 +             GPO13    SA1    CC$CBN                                                  CCGNC     608
                          5120000015 +            SA2    O.BIT                                                   GPO       874
           540  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
           541  63410                             SB4    X1          L = 2*CBN                                   GPO       880
                     5130000003 +                 SA3    NPB                                                     GPO       881
                               63720              SB7    X2                        (B7) = [O.BIT]                GPO       882
                                                                                                                 GPO       883
           542  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
           543  0734000542 +                      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
           544  66332                    GPO15    SB3    B3+B2       I = I + 2                                   GPO       897
                     56573                        SA5    B7+B3       BIW = BIT(I)                                GPO       898
                          0634000560 +            GE     B3,B4,GPO18 IF I \ L                                    GPO       899
           545  20501                             LX5    59-BI.CBP                                               GPO       900
                     0325000544 +                 PL     X5,GPO15    IF ^CB[BIW]                                 GPO       901
                                                                                                                 GPO       902
                               20551              LX5    1+BI.CBP-BI.PBNP                                        GPO       903
           546  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
           547  0334000551 +                      MI     X4,GPO15A   IF RB[BJW]    */ HEADER IS A PROGRAM BLOCK  FCC0448    35
                          20403                   LX4    BI.RBP-BI.FJP                                           FCC0448    36
           550  0334000554 +                      MI     X4,GPO17    IF FJ[BJW]    */ *HB* IS REMOTE             FCC0448    37
                                                                                                                 FCC0448    38
           551  20525                    GPO15A   LX5    59-BI.FJP+BI.PBNP                                       FCC0448    39
                     0325000552 +                 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
           552  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
                          0560000552 +            NZ     B6,GPO16    IF J " 0                                    GPO       910
                                                                                                                 GPO       911
           553  12647                             BX6    X4+X7       BEF[BIT(JL)] = P  */ LINK HEADER TO *HB*    GPO       912
                                                  LX6    BI.BEFP                                                 GPO       913
                     54640                        SA6    A4                                                      GPO       914
                          0400000544 +            EQ     GPO15                                                   GPO       915
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    31
        GPO - MAIN LOOP                                               GPO                 CODE
  
                                                                                                                 FCC0448    42
                                        *         *HB* FROM NEST OF *FTH* LOOPS, MAKE *HB* COME BEFORE HEADER.   FCC0448    43
                                                                                                                 FCC0448    44
           554  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
           555  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
                          0556000555 +            NE     B5,B6,GPO17A      IF K " J                              FCC0448    54
                                                                                                                 FCC0448    55
           556  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
           557  0400000544 +                      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
           560  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
           561  63432                             SB4    X3+B2       L = 2*NPB + 2                               GPO       923
                     0400000563 +                 EQ     GPO20                                                   GPO       924
                                                                                                                 GPO       925
           562  74651                    GPO19    SX6    A5+B1                                                   CCG0013     7
                     54600                        SA6    A0                                                      GPO       928
                          54001                   SA0    A0+B1       SI = SI + 1                                 GPO       929
                                                                                                                 GPO       930
           563  66332                    GPO20    SB3    B3+B2       I = I + 2                                   GPO       931
                     56573                        SA5    B7+B3       BIW = BIT(I)                                GPO       932
                          0634000574 +            GE     B3,B4,GPO23 IF I \ L                                    GPO       933
                                                  LX5    -BI.BEFP                                                GPO       934
           564  73250                             SX2    X5          JF = BEF[BIW]                               GPO       935
                     20501                        LX5    59-BI.CBP+BI.BEFP                                       GPO       936
                          0325000563 +            PL     X5,GPO20    IF ^CB[BIW]   */ NOT CODED                  GPO       937
           565  0302000562 +                      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
           566  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
           567  0560000566 +                      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/05. 19.57.21.      PAGE    32
        GPO - MAIN LOOP                                               GPO                 CODE
  
           570  74751                             SX7    A5+B1                                                   CCG0013     8
                     55701                        SA7    A0-B1       SJ = SI - 1;  [SJ] = BIT(I+1)               GPO       956
                                                                                                                 CCG0013     9
           571  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
           572  63641                             SB6    X4+B1       J = BEF[BIT(J)]                             GPO       962
                     0561000571 +                 NE     B6,B1,GPO22 IF J " 0                                    GPO       963
                                                                                                                 GPO       964
           573  0400000563 +                      EQ     GPO20                                                   GPO       965
                                                                                                                 GPO       966
                                        *         ADD HOLDING BLOCKS FOR FALL THROUGH TO HEADER LOOPS TO LIST    FCC0408    14
                                                                                                                 FCC0408    15
           574  6160000000               GPO23    SB6    0           J = 0                                       FCC0408    16
                                                                                                                 FCC0408    17
           575  56576                    GPO24    SA5    B7+B6       BIW = BIT(J)                                FCC0408    18
                                                  LX5    -BI.BEFP                                                FCC0408    19
                     63650                        SB6    X5          J = BEF[BIW]                                FCC0408    20
                          0460000600 +            ZR     B6,GPO25    IF J = 0      */ END OF CHAIN               FCC0675    13
           576  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
           577  0400000575 +                      EQ     GPO24                                                   FCC0408    27
  
                                        *         ALLOCATE TABLES FOR *WII* AND ASSIGN *CA"S* TO THE IT"S IN TET CCG1       52
                                                                                                                 FCC0675    15
           600  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
           601  5120000012 C                      SA2    M.PL                                                    GPO       970
                          7212000001              ALLOC  PIT,X2+1    ALLOC( PIT , M.PL+1 )                       GPO       971
           603  20102                             LX1    2                                                       GPO       972
                     5100000000 X                 ALLOC  TXT,X1      ALLOC( TXT , 4*(M.PL+1) )                   GPO       973
           605  5110000000 X                      SA1    L.TET                                                   GPO       974
                          0301000650 +            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
           606  5120000015 +                      SA2    O.BIT                                                   FCC0675    20
                          5130000016 +            SA3    L.BIT                                                   FCC0675    21
           607  5140000003 +                      SA4    NPB                                                     FCC0675    22
                          43700                   MX7    0                                                       FCC0675    23
                               53720              SA7    X2          BIT(0) = 0                                  FCC0675    24
           610  43052                             MX0    -BI.MAXTL                                               FCC0675    25
                     20401                        LX4    1                                                       FCC0675    26
                          63340                   SB3    X4          I = 2*NPB                                   FCC0675    27
                               63430              SB4    X3                                                      FCC0675    28
           611  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
           612  54650                             SA6    A5                                                      FCC0675    32
                     0734000611 +                 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/05. 19.57.21.      PAGE    33
        GPO - MAIN LOOP                                               GPO                 CODE
  
           614  5150000000 X                      SA5    O.TET                                                   FCC0675    38
                          6231777776              SB3    X1-1        LIM = L.TET                                 FCC0675    39
           615  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
           616  66200                             SB2    B0          I = 0                                       FCC0675    44
                     53550                        SA5    X5                                                      FCC0675    45
                                                                                                                 FCC0675    46
           617  15650                    GPO27    BX6    -X0*X5                                                  FCC0675    47
                     20501                        LX5    59-T.EQVP                                               FCC0675    48
                          0306000622 +            ZR     X6,GPO28    IF HBN[TET(I)] = 0  */ NOT MATERIALIZED     FCC0675    49
           620  0335000622 +                      MI     X5,GPO28    IF EQV[TET(I)]                              FCC0675    50
                          7112000000              SX1    B2+                                                     FCC0675    51
           621  12761                             BX7    X6+X1                                                   FCC0675    52
                     54771                        SA7    A7+B1       J = J + 1;  CFT(J) = HBN[TET(I)] ! I        FCC0675    53
           622  66221                    GPO28    SB2    B2+B1       I = I + 1                                   FCC0675    54
                     54551                        SA5    A5+B1                                                   FCC0675    55
                          0723000617 +            LT     B2,B3,GPO27 IF I < LIM                                  FCC0675    56
                                                                                                                 FCC0675    57
           623  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
           624  0301000647 +                      ZR     X1,GPO33    IF LEN = 0                                  FCC0675    62
                          73611                   SX6    X1+B1                                                   FCC0675    63
                               54630              SA6    A3          L.CFT = LEN + 1                             FCC0675    64
           625  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
           626  54500                             SA5    A0          I = N;  CI = CFT(N)                         FCC0675    71
                     43052                        MX0    -T.CAL                                                  FCC0675    72
                          5130000015 +            SA3    O.BIT                                                   FCC0675    73
           627  5140000000 X                      SA4    O.TET                                                   FCC0675    74
                          76700                   SX7    B0          C = 0                                       FCC0675    75
                               76110              SX1    B1                                                      FCC0675    76
           630  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
           631  6140000044                        SB4    T.HBNP                                                  FCC0675    81
                          23245                   AX2    B4,X5       LHB = HBN[CI]                               FCC0675    82
                                                                                                                 FCC0675    83
           632  23345                    GPO30    AX3    B4,X5       H = HBN[CI]                                 FCC0675    84
                     13623                        BX6    X2-X3                                                   FCC0675    85
                          0306000642 +            ZR     X6,GPO32    IF H = LHB    */ SAME LOOP                  FCC0675    86
                                                                                                                 FCC0675    87
           633  53426                             SA4    B6+X2                                                   FCC0675    88
                     12647                        BX6    X4+X7       MAXT[BIT(LHB)] = C  */ SAVE OLD MAX         FCC0675    89
                          5064000000              SA6    A4+                                                     FCC0675    90
           634  63270                   +         SB2    X7                                                      FCC0675    91
                     0652000635 +                 LE     B2,B5,*+1   MIT = MAX( MIT , C )                        FCC0675    92
                               66520              SB5    B2                                                      FCC0675    93
           635  14333                             BX3    -X3                                                     FCC0675    94
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    34
        GPO - MAIN LOOP                                               GPO                 CODE
  
                     63230                        SB2    X3                                                      FCC0675    95
                                                                                                                 FCC0675    96
           636  7222777775               GPO31    SX2    X2-2        LHB = LHB - 2                               FCC0675    97
                          53426                   SA4    B6+X2                                                   FCC0675    98
                               43355              MX3    -BI.OLNL                                                FCC0675    99
           637  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
           640  73622                             SX6    X2+B2                                                   FCC0675   105
                     0306000642 +                 ZR     X6,GPO32    IF LHB = H                                  FCC0675   106
                               20446              LX4    BI.OLNP                                                 FCC0675   107
           641  12647                             BX6    X4+X7       MAXT[BIT(OLN)] = C  */ PROPAGATE TO INER LP FCC0675   108
                     54640                        SA6    A4                                                      FCC0675   109
                          0400000636 +            EQ     GPO31                                                   FCC0675   110
                                                                                                                 FCC0675   111
                                        *         ASSIGN A *CA* TO THIS *TET* ENTRY                              FCC0675   112
                                                                                                                 FCC0675   113
           642  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
           643  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
           644  0315000632 +                      NZ     X5,GPO30    IF [CI] " 0   */ NOT END OF SORT TABLE      FCC0675   121
                                                                                                                 FCC0675   122
           645  63270                   +         SB2    X7                                                      FCC0675   123
                     0625000646 +                 GE     B2,B5,*+1   N.IT = MAX( MIT , C )                       FCC0675   124
                               76750              SX7    B5                                                      FCC0675   125
           646  5170000000 X                      SA7    =XN$IT                                                  CCGNC     611
                                                                                                                 FCC0675   127
           647  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
           650  5110000000 C             GPO35    SA1    O.UDT                                                   FCC0675   133
                          5130000000 X            SA3    O.PIT                                                   GPO       983
           651  53510                             SA5    X1          RIWA = [SI]                                 CCG0013    13
                     0305000660 +                 ZR     X5,GPO36    IF RIWA = 0     */ END OF TABLE             CCG0013    14
                               53550              SA5    X5          RIW = [RIWA]                                CCG0013    15
           652  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
           653  20547                             LX5    RI.LENP                                                 GPO       990
                     5170000000 X                 SA7    L.PIT                                                   GPO       991
           654  0100000000 X                      CALL   GMB#        READ BLOCK INTO *PIT*                       CCGNC     612
           655  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
           656  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/05. 19.57.21.      PAGE    35
        GPO - MAIN LOOP                                               GPO                 CODE
  
           657  0400000650 +                      EQ     GPO35                                                   FCC0675   135
                                                                                                                 GPO       999
           660  7160000000               GPO36    SX6    0                                                       FCC0675   136
                          5160000000 X            SA6    L.PIT       L.PIT = 0                                   GPO      1001
           661  5160000000 X                      SA6    L.TXT       L.TXT = 0                                   GPO      1002
                          5160000000 X            SA6    L.BLK       L.BLK = 0                                   CCG1       56
           662  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/05. 19.57.21.      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
           663  0200400663 +             IGP      ROUTINE                                                        GPO      1022
           664  5110000040 +                      SA1    GP                                                      GPO      1023
                          53211                   SA2    X1+B1       GB = [GP] + 1;  GBW = [GB]                  GPO      1024
                               74621              SX6    A2+B1                                                   GPO      1025
           665  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
           666  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
           667  36763                             IX7    X6+X3                                                   GPO      1039
                     63370                        SB3    X7                                                      GPO      1040
                          5170000043 +            SA7    IBA         IBA = EIT + ILI[GBW]                        GPO      1041
           670  20230                             LX2    GB.ILIP-GB.NLPP                                         GPO      1042
                     73620                        SX6    X2                                                      GPO      1043
                          5160000042 +            SA6    N.LP        N.LP = NLP[GBW]                             GPO      1044
           671  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
           672  5110000035 +                      SA1    O.BTT                                                   FCC0392    35
                          5130000036 +            SA3    O.HNT                                                   FCC0392    36
           673  5120000015 +                      SA2    O.BIT                                                   FCC0392    37
                          63710                   SB7    X1                        (B7) = O.BTT                  FCC0392    38
                               63630              SB6    X3          HI = O.HNT                                  FCC0392    39
           674  6150000044                        SB5    IM.BIP                                                  FCC0392    40
                          63420                   SB4    X2                        (B4) = O.BIT                  FCC0392    41
                               43052              MX0    -IP.NODEL                                               FCC0392    42
           675  56530                             SA5    B3          IP = IBA                                    FCC0392    43
                     43700                        MX7    0                                                       FCC0392    44
                          56770                   SA7    B7          BTT(0) = 0                                  FCC0392    45
                                                                                                                 FCC0392    46
           676  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
           677  23455                    IGP2     AX4    B5,X5                                                   FCC0392    53
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
           700  54551                             SA5    A5+B1       IP = IP + 1                                 FCC0392    58
                     0520000677 +                 NZ     B2,IGP2     IF N " 0                                    FCC0392    59
                                                                                                                 FCC0392    60
                                                  LX2    59-IM.SCRP                                              FCC0392    61
           701  0322000705 +                      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
           702  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
           703  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
           704  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
           705  0315000676 +             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
           706  5170000037 +                      SA7    L.HNT       L.HNT = HI    */ LWA+1 OF HNT               FCC0392    84
                          0400000663 +            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
           707  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
           710  0200400710 +             FNL      ROUTINE                                                        GPO      1084
           711  5110000043 +                      SA1    IBA                                                     GPO      1085
                          54211                   SA2    A1+B1                                                   GPO      1086
                               36712              IX7    X1+X2                                                   GPO      1087
           712  53570                             SA5    X7          IP = IBA + NN */ POINT TO IP WORD OF NEXT   GPO      1088
                                                                                                                 GPO      1089
           713  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/05. 19.57.21.      PAGE    38
        GRAPH PROCESSING SUBROUTINES                                  FNL                 CODE
  
                          0334000707 +            MI     X4,FNL0     IF SCR[IM]    */ HEADER IN A *SCR*          GPO      1094
           714  54542                             SA5    A4+B2       IP = IM + N   */ ADVANCE TO NEXT HEADER     GPO      1095
                     0400000713 +                 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
           715  5120000040 +             GNG0     SA2    GP                                                      GPO      1102
                          53320                   SA3    X2                                                      GPO      1103
                                                  LX3    -GA.LFP                                                 GPO      1104
                               73630              SX6    X3                                                      GPO      1105
           716  0306000717 +                      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
           717  0200400717 +             GNG      ROUTINE                                                        GPO      1109
           720  5110000006 +                      SA1    GIC                                                     GPO      1110
                          0301000715 +            ZR     X1,GNG0     IF GIC = 0    */ ALL GRAPHS ARE INCORE      GPO      1111
                                                                                                                 GPO      1112
           721  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
           722  0304000717 +                      ZR     X4,GNG      IF RAW = 0    */ END OF GRAPHS              GPO      1117
                          5120000040 +            SA2    GP                                                      GPO      1118
           723  20425                             LX4    -RI.LENP                                                GPO      1119
                     73540                        SX5    X4          L = LEN[RAW]                                GPO      1120
                          20447                   LX4    RI.LENP                                                 GPO      1121
           724  0100000000 X                      CALL   GBD#        GBD( FSCM = GP , RAW , L )                  CCGNC     615
           725  76610                             SX6    B1                                                      GPO      1123
                     0400000717 +                 EQ     GNG                                                     GPO      1124
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    39
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                        **        IRP - INITIALIZE REGION PROCESSING FOR A *SCR*                 GPO      1126
                                                                                                                 GPO      1127
           726  0200400726 +             IRP      ROUTINE                                                        GPO      1128
           727  5150000044 +                      SA5    NN                                                      GPO      1129
                          22415                   LX4    B1,X5                                                   GPO      1130
           730  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
           732  5140000043 +                      SA4    IBA                                                     GPO      1136
                          5130000015 +            SA3    O.BIT                                                   GPO      1137
           733  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
           734  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
           735  43072                             MX0    -BA.HBBL                                                GPO      1145
                     20644                        LX6    BA.BIP                                                  GPO      1146
                          20071                   LX0    BA.HBBP                                                 GPO      1147
                               16660              BX6    -X0+X6                                                  GPO      1148
           736  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
           737  63331                             SB3    X3+B1                                                   GPO      1153
                     63250                        SB2    X5                                                      GPO      1154
                          20044                   LX0    IM.BIP                                                  GPO      1155
                               53232              SA2    X3+B2                                                   GPO      1156
           740  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
           741  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
           742  0321000745 +                      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
           743  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
           744  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
           745  67551                    IRP2     SB5    B5-B1       N = N - 1                                   GPO      1176
                     54111                        SA1    A1+B1       IP = IP + 1                                 GPO      1177
                          0550000742 +            NZ     B5,IRP1     IF N " 0                                    GPO      1178
                                                                                                                 GPO      1179
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    40
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
           746  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
           747  5170000000 X                      SA7    L.BST                                                   GPO      1184
  
                                        *         INITIALIZE FLAGS, CLEAR REGION BIT VECTORS                     GPO      1186
                                                                                                                 GPO      1187
                          5110000021 +            SA1    L.SBV                                                   GPO      1188
           750  5120000003 C                      SA2    DVA                                                     GPO      1189
                          43600                   SETZERO X2,X1      SETZERO( [DVA] , L.SBV )                    GPO      1190
           752  43544                             MX5    -24                                                     GPO      1191
                     14755                        BX7    -X5         MRA = ^MASK(36)                             GPO      1192
                          5170000015 C            SA7    MRA                                                     GPO      1193
           753  5170000051 +                      SA7    MRA.X       MRA.X = MRA                                 FCC1254    10
                          43600                   SETZERO N.HB,N.CLC SETZERO( N.HB , N.CLC )                     GPO      1194
           756  5110000000 X                      SA1    L.TET                                                   GPO      1195
                          43600                   MX6    0                                                       GPO      1196
                               10711              BX7    X1                                                      GPO      1197
           757  5170000014 C                      SA7    ITL         ITL = L.TET                                 GPO      1198
                          5170000102 C            SA7    TTI         TTI = L.TET                                 GPO      1199
           760  5160000100 C                      SA6    NTP         NTP = 0                                     GPO      1200
                          5160000016 C            SA6    LGL         LGL = 0                                     GPO      1201
           761  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
           762  7170000002                        SX7    2                                                       GPO      1206
                          5170000032 +            SA7    BSI         BSI = 2                                     GPO      1207
           763  0100000000 X                      CALL   RTB#        READ FIRST BLOCK INTO *BLK*                 CCGNC     616
                                                                                                                 GPO      1209
           764  5110000027 +                      SA1    O.SEQ       T = [O.SEQ]                                 GPO      1210
                          53211                   SA2    X1+B1                                                   CCG21       7
                               20201              LX2    59-R2.LONGP                                             CCG21       8
           765  0322000770 +                      PL     X2,IRP3     IF ^LONG[R2]  */ NOT DO=LONG                CCG21       9
                          43554                   MX5    -16                                                     CCG21      10
                               20510              LX5    8                                                       CCG21      11
           766  14755                             BX7    -X5         MRA = 77777400B  */ NO B-REGS AVAIL         CCG21      12
                     5170000015 C                 SA7    MRA                                                     CCG21      13
           767  5170000051 +                      SA7    MRA.X       MRA.X = MRA                                 CCG21      14
           770  5130000043 +             IRP3     SA3    IBA                                                     CCG21      15
                          5251000005              SA5    X1+5                                                    GPO      1212
           771  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
           772  5160000050 +                      SA6    HBI+1       HBI(2) = [T]  */ R1 WORD OF *BOS*           GPO      1217
                          5170000026 C            SA7    LIH+1                                                   GPO      1218
           773  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
           774  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
           775  5233777776                        SA3    X3-1        IPW = [IBA-1]                               GPO      1224
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    41
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                                  LX3    59-IP.GLP                                               GPO      1225
                          0323000726 +            PL     X3,IRP      IF ^GL[IPW]   */ NO LABEL TRANSFER NECESSAR GPO      1226
                                                                                                                 FCC0408    31
           776  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
           777  5140000001 +                      SA4    N.GL0                                                   GPO      1231
                          26525                   UX5    B2,X5                                                   GPO      1232
                               73641              SX6    X4+B1       N.GL0 = N.GL0 + 1                           GPO      1233
          1000  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
          1001  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
          1002  5170000016 C                      SA7    LGL                                                     GPO      1241
                          5261000004              SA6    X1+4        [T+4] = TYIV(OC.LAB,0,GIH)                  GPO      1242
                                                                                                                 GPO      1243
          1003  5120000047 +                      SA2    HBI                                                     GPO      1244
                          5110000015 +            SA1    O.BIT                                                   GPO      1245
          1004  76010                             SX0    B1                                                      GPO      1246
                     63320                        SB3    X2                                                      GPO      1247
                          53313                   SA3    X1+B3                                                   GPO      1248
                               20071              LX0    BI.ILP                                                  GPO      1249
          1005  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
          1006  20322                             LX3    LC.GLNP                                                 FCC1319    32
                     12632                        BX6    X3+X2                                                   FCC1319    33
                          5140000024 +            SA4    L.LCT       L = L.LCT                                   FCC1319    34
          1007  5130000023 +                      SA3    O.LCT                                                   FCC1319    35
                          63330                   SB3    X3                                                      FCC1319    36
                               53643              SA6    B3+X4       LCT(L) = LC(0,N.GL0,HBI)                    FCC1319    37
          1010  73741                             SX7    X4+B1       L.LCT = L.LCT + 1                           FCC1319    38
                     54740                        SA7    A4                                                      FCC1319    39
                          5110000000 X            SA1    =XO.SYM                                                 CCG1       60
          1011  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
          1012  76010                             SX0    B1                                                      CCG1       65
                     20030                        LX0    WB.LCP                                                  CCG1       66
                          12705                   BX7    X0+X5                                                   CCG1       67
                               43060              MX0    -WA.LCOL                                                CCG1       68
          1013  55151                             SA1    A5-B1       WORDA = SYM(3*IH)                           CCG1       69
                     20543                        LX5    59-WB.LCP                                               CCG1       70
                          0325001020 +            PL     X5,IRP4     IF ^LC[WORDB] */ FIRST TIME                 CCG1       71
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    42
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                                                                                                 CCG1       72
          1014  15710                             BX7    -X0*X1      J = LCO[WORDA]                              CCG1       73
          1015  53273                   +         SA2    B3+X7       JL = J                                      FCC1319    53
                     20230                        LX2    -LC.NEXTP                                               FCC1319    54
                          7272000000              SX7    X2+         J = NEXT[LCT(JL)]                           FCC1319    55
          1016  0317001015 +                      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
          1017  54620                             SA6    A2                                                      FCC1319    60
                     0400001021 +                 EQ     IRP5                                                    FCC1319    61
                                                                                                                 FCC1319    62
          1020  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
          1021  0400000726 +             IRP5     EQ     IRP                                                     FCC1319    68
  
  
  
                                        **        IHB - INITIALIZE HOLDING BLOCK                                 GPO      1254
                                                                                                                 GPO      1255
          1022  0200401022 +             IHB      ROUTINE                                                        GPO      1256
          1023  5120000047 +                      SA2    HBI         HN = HBI(1)                                 GPO      1257
                          54121                   SA1    A2+B1                                                   GPO      1258
                               43052              MX0    -18                                                     GPO      1259
          1024  5140000000 X                      SA4    O.TXT       R1 = [O.TXT]                                GPO      1260
                          5150000016 C            SA5    LGL                                                     GPO      1261
          1025  11301                             BX3    X0*X1                                                   GPO      1262
                     36632                        IX6    X3+X2       [R1] = TYIV(OC.BOS,HO$CSN ,HN)              CCGNC     619
                          5264000000              SA6    X4+                                                     GPO      1264
          1026  0305001022 +                      ZR     X5,IHB      IF LGL = 0    */ NO GENERATED LABEL         GPO      1265
                                                                                                                 GPO      1266
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            GPO      1267
          1030  63720                             SB7    X2                                                      GPO      1268
                     6120000006                   SB2    OC.LAB                                                  GPO      1269
                               73450              SX4    X5          LL = SETX(LGL)  */ CURRENT LOOP LABEL       GPO      1270
          1031  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
          1032  73640                             SX6    X4                                                      GPO      1275
                     0100000124 +                 RJ     SRI         SRI(  LAB  0,LL )  */ MOVE LABEL OUT        GPO      1276
          1033  0400001022 +                      EQ     IHB                                                     GPO      1277
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    43
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                                        **        TRP - TERMINATE REGION PROCESSING FOR A LOOP                   GPO      1279
                                                                                                                 GPO      1280
          1034  0200401034 +             TRP      ROUTINE                                                        GPO      1281
          1035  5140000000 X                      SA4    L.BST                                                   CCG1       78
                          7254777772              SX5    X4-5                                                    GPO      1304
          1036  0100001360 +                      RJ     CRB         RESET *UDT*                                 GPO      1305
          1037  7160000000                        SX6    0                                                       GPO      1306
                          5160000000 X            SA6    L.IIT       L.IIT = 0                                   GPO      1307
          1040  5160000032 +                      SA6    BSI         BSI = 0                                     GPO      1308
                          5160000045 +            SA6    BBV         BBV = 0                                     GPO      1309
                                                                                                                 GPO      1310
          1041  0100000000 X                      CALL   RTB#        GET HOLDING BLOCK                           CCGNC     620
          1042  5140000047 +                      SA4    HBI                                                     GPO      1312
                          5150000027 +            SA5    O.SEQ                                                   GPO      1313
          1043  43717                             MX7    -UD.STCP                                                GPO      1314
                     10644                        BX6    X4                                                      GPO      1315
                          5170001411 +            SA7    BCM         BCM = *REGION CLEAR MASK*                   GPO      1316
          1044  5160000031 +                      SA6    BN          BN = HBI(1)                                 GPO      1317
                          0100001420 +            CALL   FUD         FORM BIT VECTORS FOR *HB*                   GPO      1318
          1045  7160000001                        SX6    1                                                       GPO      1319
                          5160000045 +            SA6    BBV         BBV = 1                                     GPO      1320
          1046  43703                             MX7    UD.MVL                                                  GPO      1321
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO      1322
                          5170001411 +            SA7    BCM         BCM = *MV*                                  GPO      1323
                                                                                                                 GPO      1324
                                        *         *HB* LIVE EXIT VECTOR IS REGION LIVE ENTRY VECTOR              GPO      1325
                                                                                                                 GPO      1326
          1047  5110000000 C                      SA1    VL                                                      GPO      1327
                          5120000017 +            SA2    O.BVT                                                   GPO      1328
          1050  5130000020 +                      SA3    L.BVT                                                   GPO      1329
                          5140000007 C            SA4    LEA                                                     GPO      1330
          1051  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
          1052  63310                             SB3    X1                                                      GPO      1335
          1053  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
          1054  0723001053 +                      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
          1055  5150000050 +                      SA5    HBI+1       BN = HBI(2)   */ BN OF HEADER               GPO      1346
                          5120000003 C            SA2    DVA                                                     GPO      1347
          1056  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
          1060  5110000054 +                      SA1    FTH                                                     FCC0408    35
                          0331001063 +            MI     X1,TRP3     IF FTH < 0    */ FALL THROUGH TO *HN*       FCC0675   137
          1061  53356                             SA3    B6+X5       BIW = BIT(HN)                               FCC0675   138
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    44
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                                                  LX3    59-BI.RBP                                               FCC0675   139
                     0333001077 +                 MI     X3,TRP4     IF RB[BIW]    */ PROGRAM BLOCK              FCC0675   140
                               20306              LX3    BI.RBP-BI.FTHP                                          FCC0675   141
          1062  0323001077 +                      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
          1063  43700                    TRP3     MX7    0           FTH = 0                                     FCC0675   143
                     54710                        SA7    A1                                                      FCC0675   144
                          5110000047 +            SA1    HBI                                                     FCC0675   145
          1064  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
          1065  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
          1066  0100004474 +                      CALL   MBT         MOVE *HB* TO *TXT*                          FCC0408    55
          1067  7110000004                        ALLOC  TXT,4       ALLOC( TXT , 4 )                            FCC0408    56
          1071  5150000001 +                      SA5    N.GL0                                                   FCC0408    57
                          6263777767              SB6    X3-8        TI = L.TXT - 8                              FCC0408    58
          1072  6120000074                        SB2    OC.UJP                                                  FCC0408    59
                          7265100000              SX6    I.GL+X5                                                 FCC0408    60
          1073  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
          1074  66200                             R=     B2,OC.EOQ                                               FCC0408    64
                     43600                        MX6    0                                                       FCC0408    65
                          0100000124 +            RJ     SRI         SRI(  EOQ  0,0 )                            FCC0408    66
          1075  0100000066 +                      CALL   WTB         REWRITE THE BLOCK                           FCC0408    67
          1076  0100000000 X                      CALL   RTB#        RESET *SEQ* POINTERS                        CCGNC     621
                                                                                                                 FCC0408    69
          1077  5150000027 +             TRP4     SA5    O.SEQ                                                   FCC0675   156
                          5245777776              SA4    X5-1        BHW = [O.SEQ-1]                             GPO      1355
          1100  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
          1101  12604                             BX6    X0+X4       BST[BHW] = 1S17  */ INDICATE NOT IN *BST*   GPO      1360
                     54640                        SA6    A4                                                      GPO      1361
                          0100001104 +            RJ     CBT         CLEAR BLOCK TABLE                           GPO      1362
          1102  0400001034 +                      EQ     TRP                                                     GPO      1363
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1103  7160000000               CBT0     SX6    0                                                       GPO      1367
                          5160000000 X            SA6    L.BST       L.BST = 0                                   GPO      1368
          1104  0200401104 +             CBT      ROUTINE                                                        GPO      1369
          1105  7160000000                        SX6    0                                                       GPO      1370
                          5160000032 +            SA6    BSI         BSI = 0                                     GPO      1371
                                                                                                                 FCC0408    72
          1106  5110000032 +             CBT1     SA1    BSI                                                     GPO      1372
                          5120000000 X            SA2    O.BST                                                   GPO      1373
          1107  5130000015 +                      SA3    O.BIT                                                   GPO      1374
                          73610                   SX6    X1                                                      GPO      1375
                               63420              SB4    X2                                                      GPO      1376
                                                                                                                 GPO      1377
          1110  7266000002               CBT2     SX6    X6+2        BSI = BSI + 2                               GPO      1378
                          53564                   SA5    B4+X6       BAW = BST(BSI)                              GPO      1379
                               63530              SB5    X3                                                      GPO      1380
          1111  0305001103 +                      ZR     X5,CBT0     IF BAW = 0    */ END OF *BST*               GPO      1381
                                                  LX5    -BA.FWAP                                                GPO      1382
                          6265776673 -            SB6    X5-CBT                                                  FCC0675   158
          1112  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
          1113  43055                             MX0    -BI.OLNL                                                FCC0675   166
                     10744                        BX7    X4                                                      FCC1319    71
                          20726                   LX7    -BI.OLNP                                                FCC1319    72
                               11707              BX7    X0*X7                                                   FCC0675   168
          1114  12727                             BX7    X2+X7       OLN[BIT(J)] = HBI                           FCC0675   169
                     20746                        LX7    BI.OLNP                                                 FCC0675   170
                          54740                   SA7    A4                                                      FCC0675   171
                                                                                                                 FCC0675   172
          1115  0760001110 +             CBT3     MI     B6,CBT2     IF FWA[BAW] < CBT  */ DUMMY BLOCK           FCC0675   173
                          20401                   LX4    59-BI.CBP                                               GPO      1387
          1116  0334001110 +                      MI     X4,CBT2     IF CB[BAW]                                  GPO      1388
                          54610                   SA6    A1                                                      GPO      1389
          1117  0100000000 X                      CALL   RBS#        RELEASE THE BLOCK                           CCGNC     622
          1120  0400001106 +                      EQ     CBT1                                                    GPO      1391
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1121  0200401121 +             CIC      ROUTINE                                                        GPO      1401
                                                                                                                 GPO      1402
                                        *         SCAN INTERVAL LIST TO FORM AN *EBB*                            GPO      1403
                                                                                                                 GPO      1404
          1122  5110000043 +             CIC1     SA1    IBA                                                     GPO      1405
                          5130000015 +            SA3    O.BIT                                                   GPO      1406
          1123  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
          1124  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
          1125  0324001132 +                      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
          1126  67221                    CIC2     SB2    B2-B1       N = N - 1                                   GPO      1420
                     54551                        SA5    A5+B1       IP = IP + 1                                 GPO      1421
                          0420001133 +            ZR     B2,CIC4     IF N = 0      */ END OF LIST                GPO      1422
          1127  13625                             BX6    X2-X5                                                   GPO      1423
                                                  LX6    59-IM.SCRP                                              GPO      1424
                     0336001133 +                 MI     X6,CIC4     IF SCR[IP] " SCR[FIP]  */ DIFF REGIONS      GPO      1425
                               20530              LX5    -IM.BIP     I = BI[IP]                                  GPO      1426
          1130  53453                             SA4    B3+X5       BIW = BIT(I)                                GPO      1427
                                                  LX4    59-BI.RBP                                               FCC0675   174
                     0324001132 +                 PL     X4,CIC3     IF ^RB[BIW]   */ A HOLDING BLOCK            FCC0675   175
                               20402              LX4    BI.RBP-BI.ILP                                           FCC0675   176
          1131  0324001126 +                      PL     X4,CIC2     IF ^IL[BIW]                                 FCC0675   177
                          0400001133 +            EQ     CIC4                                                    FCC0675   178
                                                                                                                 GPO      1432
                                        *         TERMINATE LIST AFTER THIS NODE                                 GPO      1433
                                                                                                                 GPO      1434
          1132  74651                    CIC3     SX6    A5+B1       IPL = IP + 1                                GPO      1435
                     0400001134 +                 EQ     CIC5                                                    GPO      1436
                                                                                                                 GPO      1437
          1133  7065000000               CIC4     SX6    A5+         IPL = IP      */ TERMINATE BEFORE           GPO      1438
                                                                                                                 GPO      1439
          1134  20001                    CIC5     LX0    59-BI.CBP                                               GPO      1440
                     37661                        IX6    X6-X1       K = IPL - IBA */ N. NODES IN *EBB*          GPO      1441
                          0320001140 +            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
          1135  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/05. 19.57.21.      PAGE    47
        CIC - CONVERT INTERVAL TO CODE                                CIC                 CODE
  
                               37626              IX6    X2-X6       NN = NN - K                                 GPO      1449
          1136  54620                             SA6    A2                                                      GPO      1450
                     0316001122 +                 NZ     X6,CIC1     IF NN " 0                                   GPO      1451
                                                                                                                 GPO      1452
          1137  0400001121 +                      EQ     CIC                                                     GPO      1453
                                                                                                                 GPO      1454
                                        *         SET FP/LVL EXPANSION MODE, AND SETUP A *BST* FOR THIS *EBB*.   GPO      1455
                                                                                                                 GPO      1456
          1140  76010                    CIC7     SX0    B1                                                      GPO      1457
                     20201                        LX2    -IM.SCRP                                                GPO      1458
                          11302                   BX3    X0*X2                                                   GPO      1459
          1141  7273000003                        SX7    X3+3        EMF = 3+SCR[FIP]  */ FP/LVL EXPANSION FLG   GPO      1460
                          5170000013 C            SA7    EMF                                                     GPO      1461
          1142  10566                             BX5    X6                                                      GPO      1462
                     22216                        LX2    B1,X6                                                   GPO      1463
                          5160001164 +            SA6    CICA                                                    GPO      1464
          1143  43052                             MX0    -IM.BIL                                                 GPO      1465
                     7212000003                   ALLOC  BST,X2+3    ALLOC( BST , 2*K+3 )                        GPO      1466
          1145  5110000043 +                      SA1    IBA                                                     GPO      1467
                          63250                   SB2    X5          N = K                                       GPO      1468
                               43700              MX7    0                                                       GPO      1469
          1146  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
          1147  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
          1150  67221                             SB2    B2-B1       N = N - 1                                   GPO      1480
                     54551                        SA5    A5+B1       IP = IP + 1                                 GPO      1481
                          0520001147 +            NZ     B2,CIC8     IF N " 0                                    GPO      1482
                                                                                                                 GPO      1483
          1151  43700                             MX7    0                                                       GPO      1484
                     54771                        SA7    A7+B1       BST(I) = 0    */ *BST* TERMINATOR           GPO      1485
                          5170000034 C            SA7    MAXW        MAXW = 0                                    GPO      1486
          1152  5170000035 C                      SA7    N.EBB       N.EBB = 0                                   GPO      1487
                                                                                                                 GPO      1488
                          7170001661 +            CLCM   CHB         COMBINE HOLDING BLOCKS                      GPO      1489
                                                                                                                 GPO      1490
          1154  7170001757 +                      CLCM   RDD         REMOVE DEAD DEFS                            GPO      1491
                                                                                                                 GPO      1492
          1156  0100001165 +                      CALL   CBB         COMBINE BASIC BLOCKS                        GPO      1493
                                                                                                                 GPO      1494
          1157  7170000000 X                      CLCM   CXB#        CODE EXTENDED BLOCKS                        CCGNC     623
                                                                                                                 GPO      1496
          1161  0100001104 +                      RJ     CBT         CLEAR *BST*                                 GPO      1497
          1162  5120001164 +                      SA2    CICA                                                    GPO      1498
                          5110000043 +            SA1    IBA                                                     GPO      1499
          1163  10622                             BX6    X2                                                      GPO      1500
                     0400001135 +                 EQ     CIC6                                                    GPO      1501
                                                                                                                 GPO      1502
          1164                     1     CICA     BSS    1                                                       GPO      1503
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1165  0200401165 +             CBB      ROUTINE                                                        GPO      1512
          1166  7160000002                        SX6    2           BSIL = 2                                    GPO      1513
                          5160001265 +            SA6    BSIL                                                    GPO      1514
                                                                                                                 GPO      1515
          1167  5110001265 +             CBB1     SA1    BSIL        I = BSIL                                    GPO      1516
                          5120000000 X            SA2    O.BST                                                   GPO      1517
          1170  5130000015 +                      SA3    O.BIT                                                   GPO      1518
                          5140000013 +            SA4    M.EBL                                                   GPO      1519
          1171  63320                             SB3    X2                        (B3) = [O.BST]                GPO      1520
                     10611                        BX6    X1          BSI = BSIL                                  GPO      1521
                          5160000032 +            SA6    BSI                                                     GPO      1522
          1172  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
          1173  0305001165 +                      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
          1174  20552                             LX5    BA.LENP-BA.BIP                                          GPO      1531
                     53454                        SA4    B4+X5       BIW = BIT(BI[BAW])                          GPO      1532
                                                  LX4    59-BI.RBP                                               GPO      1533
                          0324001205 +            PL     X4,CBB3     IF ^RB[BIW]   */ HOLDING BLOCK              GPO      1534
          1175  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
          1176  73112                    CBB2     SX1    X1+B2       I = I + 2                                   GPO      1540
                     20403                        LX4    BI.RBP-BI.FJP                                           GPO      1541
                          0776001206 +            GT     B6,B7,CBB3A IF TLEN > M.EBL  */ SPACE OVERFLOW          GPO      1542
          1177  0334001214 +                      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
          1200  0305001214 +                      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
          1201  20402                             LX4    59-BI.ILP                                               GPO      1549
                     0334001214 +                 MI     X4,CBB4     IF IL[BIW]                                  GPO      1550
                               13657              BX6    X5-X7                                                   GPO      1551
          1202  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
          1203  0324001211 +                      PL     X4,CBB3B    IF ^RB[BIW]                                 FCCA509X    8
                          0450001176 +            ZR     B5,CBB2     IF BN[BAW] = LBN  */ BLOCKS CONTIGIOUS      GPO      1557
          1204  0400001214 +                      EQ     CBB4                                                    GPO      1558
                                                                                                                 GPO      1559
          1205  7261000002               CBB3     SX6    X1+2        LIM = I + 2                                 GPO      1560
                          0400001215 +            EQ     CBB5                                                    GPO      1561
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    49
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
                                                                                                                 GPO      1562
          1206  6177000300               CBB3A    SB7    B7+300B                                                 GPO      1563
                          0676001214 +            LE     B6,B7,CBB4  IF TLEN @ M.EBL + 300B                      GPO      1564
                                                                                                                 GPO      1565
          1207  74202                             SX2    A0+B2                                                   GPO      1566
                     37712                        IX7    X1-X2                                                   GPO      1567
                          0307001214 +            ZR     X7,CBB4     IF I = BSIL + 2  */ ONLY 1 BIG BLOCK        GPO      1568
          1210  7211777775                        SX1    X1-2        I = I - 2                                   GPO      1569
                          0400001214 +            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
          1211  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
          1212  20230                             LX2    -BA.BIP     PBLK = BI[BST(I-2)]                         FCCA509X   18
                     37742                        IX7    X4-X2                                                   FCCA509X   19
                          63570                   SB5    X7                                                      FCCA509X   20
          1213  0552001214 +                      NE     B5,B2,CBB4  IF PBLK+2 " HDRBLK                          FCCA509X   21
                          73112                   SX1    X1+B2                                                   FCCA509X   22
                                                                                                                 FCCA509X   23
                                                                                                                 GPO      1570
          1214  7261000000               CBB4     SX6    X1+         LIM = I                                     GPO      1571
                                                                                                                 GPO      1572
          1215  54611                    CBB5     SA6    A1+B1       BSIL(2) = LIM                               GPO      1573
                     7170000004                   SX7    4                                                       GPO      1574
                               66500              SB5    B0          J = 0                                       GPO      1575
          1216  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
          1217  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
          1220  6225777767                        SB2    X5-8                                                    GPO      1585
                          0602001222 +            LE     B2,CBB7     IF LEN[BAW] @ 8                             GPO      1586
                                                                                                                 GPO      1587
          1221  0550001225 +                      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
          1222  0767001217 +             CBB7     LT     B6,B7,CBB6  IF I < BSIL(2)                              GPO      1591
                                                                                                                 GPO      1592
                          0450001263 +            ZR     B5,CBB15    IF J = 0      */ NO NON-EMPTY BLOCKS        GPO      1593
                                                                                                                 GPO      1594
          1223  7165000000                        SX6    B5+         BSI = J                                     GPO      1595
                          5160001265 +            SA6    BSIL        BSIL = J                                    GPO      1596
          1224  5160000032 +                      SA6    BSI                                                     GPO      1597
                          0400001247 +            EQ     CBB10                                                   FCC0643    10
                                                                                                                 FCC0643    11
                                        *         FORM AN EXTENDED BASIC BLOCK ( *EBB* )                         FCC0643    12
                                                                                                                 FCC0643    13
          1225  5150000000 X             CBB8     SA5    O.BST                                                   FCC0643    14
                          5140000032 +            SA4    BSI                                                     GPO      1616
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    50
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
          1226  63550                             SB5    X5                                                      GPO      1617
                     53145                        SA1    B5+X4       BAW = BST(BSI)                              GPO      1618
                          20152                   LX1    -BA.LENP                                                GPO      1619
          1227  6221777767                        SB2    X1-8                                                    GPO      1620
                          0602001236 +            LE     B2,CBB9     IF LEN[BAW] @ 8  */ EMPTY BLOCK             FCC0643    15
                                                                                                                 GPO      1622
          1230  0100000000 X                      CALL   RTB#        READ BLOCK IN                               CCGNC     624
          1231  5120000027 +                      SA2    O.SEQ       T = [O.SEQ]                                 GPO      1624
                          6120000002              SB2    OC.EOS                                                  GPO      1625
          1232  5142000000 X                      SA4    =XF.RDT+B2                                              GPO      1626
                          53320                   SA3    X2                                                      GPO      1628
                               27723              PX7    B2,X3       OC[T] = OC.EOQ                              GPO      1629
          1233  54730                             SA7    A3                                                      GPO      1630
                     43600                        MX6    0                                                       GPO      1631
                          10744                   BX7    X4                                                      GPO      1632
          1234  5077000002                        SA7    A7+2        [T+2] = RDT(OC.EOS)                         GPO      1633
                          0100004364 +            CALL   MPB ( 0 )   MERGE BLOCKS                                FCC0643    16
                                                                                                                 GPO      1635
          1235  0100000000 X                      CALL   RBS#        RELEASE THE BLOCK                           CCGNC     625
          1236  5110000032 +             CBB9     SA1    BSI                                                     FCC0643    17
                          5120001266 +            SA2    BSIL+1                                                  GPO      1638
          1237  7261000002                        SX6    X1+2        BSI = BSI + 2                               GPO      1639
                          37762                   IX7    X6-X2                                                   GPO      1640
                               54610              SA6    A1                                                      GPO      1641
          1240  0337001225 +                      MI     X7,CBB8     IF BSI < BSIL(2)                            FCC0643    18
                                                                                                                 GPO      1643
                          5110000000 X            SA1    O.TXT                                                   GPO      1644
          1241  53210                             SA2    X1          T = [O.TXT]                                 GPO      1645
                     27712                        PX7    B1,X2       OC[T] = OC.BOS                              GPO      1646
                          5072000000              SA7    A2+                                                     GPO      1647
          1242  5110001265 +                      SA1    BSIL                                                    FCC0643    19
                          43600                   MX6    0                                                       FCC0643    20
                               10711              BX7    X1          BSI = BSIL(1)                               FCC0643    21
          1243  5170000032 +                      SA7    BSI                                                     FCC0643    22
                          0100000000 X            CALL   SQZB#       SQUEEZE THE EXTENDED BLOCK                  CCGNC     626
          1244  5110000013 C                      SA1    EMF                                                     FCC0643    24
                          5221777776 X            SA2    =XESRA-1+X1                                             FCC0643    25
          1245  53320                             SA3    X2                                                      FCC0643    26
                     0303001257 +                 ZR     X3,CBB13    IF [ESRA(EMF)] = 0  */ NO FP OR L2 IN PROG  FCC0643    27
          1246  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
          1247  0100000000 X             CBB10    CALL   RTB#        READ BLOCK IN                               CCGNC     627
                                                  IFEQ   HC.ID,2,1         FTN ONLY                              CCG29       7
          1250  0100001305 +                      CALL   SLC         SUBSTITUTE LOCAL COPIES                     CCG23       1
          1251  5150000013 C                      SA5    EMF                                                     FCC0643    33
                          43601                   MX6    1                                                       FCC0643    34
          1252  0100000000 X                      CALL   ESR#        ESR( EMF , 1S59 )  */ EXPAND SPECIAL REFS   CCGNC     628
          1253  5110000000 X                      SA1    L.MLT                                                   FCC0643    36
                          0301001256 +            ZR     X1,CBB11    IF L.MLT = 0  */ NO MODS TO THIS BLOCK      FCC0643    37
          1254  76610                             SX6    B1                                                      FCC0643    38
                     0100004364 +                 CALL   MPB ( 1 )   MERGE MODS AND SQUEEZE THE BLOCK            FCC0643    39
          1255  0400001257 +                      EQ     CBB13                                                   FCC0643    40
                                                                                                                 FCC0643    41
          1256  0100004474 +             CBB11    CALL   MBT         MOVE BLOCK TO *TXT*                         FCC0643    42
                                                                                                                 GPO      1651
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    51
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
          1257  76610                    CBB13    SX6    B1                                                      GPO      1652
                     0100000000 X                 CALL   RIO#        REORDER THE INSTRUCTIONS                    CCGNC     629
          1260  5120000034 C                      SA2    MAXW                                                    GPO      1654
                          5140000035 C            SA4    N.EBB                                                   FCC0643    43
          1261  37326                             IX3    X2-X6                                                   GPO      1656
                     0323001262 +                 PL     X3,CBB14    MAXW = MAX( MAXW , SIO.MAX )                GPO      1657
                               54620              SA6    A2                                                      GPO      1658
          1262  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
          1263  5150001266 +             CBB15    SA5    BSIL+1                                                  GPO      1666
                          10755                   BX7    X5          BSIL(1) = BSIL(2)                           GPO      1667
                               55751              SA7    A5-B1                                                   GPO      1668
          1264  0400001167 +                      EQ     CBB1                                                    GPO      1669
                                                                                                                 GPO      1670
          1265                     2     BSIL     BSS    2           *BST* LIMITS                                GPO      1671
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1267  0200401267 +             ATT      ROUTINE                                                        FCC0514    35
          1270  5120000014 C                      SA2    ITL                                                     FCC0514    36
                          5130000014 +            SA3    N.GT                                                    FCC0514    37
          1271  5110000000 X                      SA1    O.TET                                                   FCC0514    38
                          63220                   SB2    X2          I = ITL                                     FCC0514    39
                               63330              SB3    X3          L = N.GT                                    FCC0514    40
          1272  0423001276 +                      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
          1273  43473                             MX4    -1                                                      CCGA049    13
                     20470                        LX4    T.CALP                          */ SEE STS IN SQZ       CCGA049    14
                          11004                   BX0    X0*X4                           */ UNLOCK CA FIELD      CCGA049    15
          1274  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
          1275  0723001274 +                      LT     B2,B3,ATT2  IF I < L                                    FCC0514    51
                                                                                                                 FCC0514    52
          1276  5140000000 X             ATT3     SA4    L.TET                                                   FCC0514    53
                          63510                   SB5    X1                                                      FCC0514    54
                               63440              SB4    X4          I = L.TET                                   FCC0514    55
          1277  0443001267 +                      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
          1300  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
          1301  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
          1302  15430                             BX4    -X0*X3      IPI = IPF[TET(C)]                           FCC0514    71
                     20301                        LX3    59-T.EQVP                                               CCG0127    10
                          0333001304 +            MI     X3,ATT5     IF EQV[TET(C)]  */ CA .NE. C                CCG0127    11
          1303  36647                             IX6    X4+X7       TET(C) = TETW(INV[TI],IPI,0,C)              FCC0514    72
                     5063000000                   SA6    A3+                                                     FCC0514    73
          1304  0734001301 +             ATT5     GT     B4,B3,ATT4  IF I > L                                    CCG0127    12
                                                                                                                 FCC0514    75
                          0400001267 +            EQ     ATT                                                     FCC0514    76
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1305  0200401305 +             SLC      ROUTINE                                                        CCG23       7
          1306  5110000000 X                      SA1    HO$OPT                                                  CCG23       8
                          0321001305 +            PL     X1,SLC      IF HO$OPT " 2                               CCG23       9
          1307  5120000000 X                      SA2    =XL$FPI                                                 CCG23      10
                          0302001305 +            ZR     X2,SLC      IF L$FPI = 0  */ NO F.P. S                  CCG23      11
          1310  5140000027 +                      SA4    O.SEQ                                                   CCG23      12
                          5130000047 +            SA3    HBI                                                     CCG23      13
          1311  7100600001                        SX0    RN.MASK                                                 CCG23      14
                          6140000004              SB4    4                                                       CCG23      15
          1312  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
          1313  0400001320 +                      EQ     SLC3                                                    CCG23      19
                                                                                                                 CCG23      20
                                        *         IF LOOP MODE THEN ONLY CALL *MPR* FOR *LCM* F.P. REFS          CCG23      21
                                                                                                                 CCG23      22
          1314  0425001320 +             SLC1     EQ     B2,B5,SLC3  IF OC[R1] = OC.STT                          CCG23      23
                          0460001317 +            ZR     B6,SLC2     IF HBI = 0    */ OUTSIDE OF ALL LOOPS       CCG23      24
          1315  20455                             LX4    D.FPP-D.L2P                                             CCG23      25
                     0324001320 +                 PL     X4,SLC3     IF ^L2[DI]                                  CCG23      26
                               20471              LX4    D.L2P-D.PSP                                             CCGA042     6
          1316  0334001320 +                      MI     X4,SLC3     IF PS[DI]                                   CCGA042     7
                                                                                                                 CCG23      27
          1317  76760                    SLC2     SX7    B6                                                      CCG23      28
                     0100001323 +                 CALL   MPR#        CALL MPR( R1 , HBI )                        CCG23      29
                                                                                                                 CCG23      30
          1320  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
          1321  20446                             LX4    59-D.FPP                                                CCG23      34
                     0334001314 +                 MI     X4,SLC1     IF FP[DI]                                   CCG23      35
          1322  0520001320 +                      NZ     B2,SLC3     IF OC[R1] " 0   */ IF NOT END OF *TXT*      CCG23      36
                                                                                                                 CCG23      37
                          0400001305 +            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
          1323  0200401323 +             MPR      ROUTINE                                                        CCG23      48
          1324  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
          1325  0316001323 +                      NZ     X6,MPR      IF RF[R2] " 0  */ INDEXED REFERENCE         CCG23      53
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    54
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             MPR                 CODE
  
                          5110000000 X            SA1    O.SYM                                                   CCG23      54
          1326  20444                             LX4    IH.RFP                                                  CCG23      55
                     66233                        SB2    B3+B3                                                   CCG23      56
                          63212                   SB2    B2+X1                                                   CCG23      57
                               66331              SB3    B3+B1                                                   CCG23      58
          1327  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
          1330  7263777771                        SX6    X3-M.CHAR                                               CCG23      63
                          0306001323 +            ZR     X6,MPR      IF MODE[WORDB] = M.CHAR                     CCG23      64
          1331  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
          1332  20161                             LX1    59-WB.ARYP+WB.MODEP                                     CCG23      68
                     0331001323 +                 MI     X1,MPR      IF ARY[WORDB]   */ IF NOT A SCALAR          CCG23      69
                               20164              LX1    WB.ARYP-WB.LOCFP                                        CCG23      70
          1333  43263                             MX2    -WB.FPOL                                                CCG23      71
                     0331001323 +                 MI     X1,MPR      IF LOCF[WORDB]  */ REFED IN LOCF ARG LIST   CCG23      72
          1334  5130000000 X                      SA3    =XO$FPI                                                 CCG23      73
                          20156                   LX1    1+WB.LOCFP-WB.FPOP                                      CCG23      74
                               15612              BX6    -X2*X1                                                  CCG23      75
          1335  36636                             IX6    X3+X6                                                   CCG23      76
                     5226777776                   SA2    X6-1        FPW = FPI(FPO[WORDB])                       CCG23      77
                               10322              BX3    X2                                                      CCG23      78
          1336  20301                             LX3    59-FP.LCP                                               CCG23      79
                     0333001346 +                 MI     X3,MPR4     IF LC[FPW]    */ IF A LOCAL COPY EXISTS     CCG23      80
                                                                                                                 CCG23      81
          1337  0317001341 +                      NZ     X7,MPR1     IF FLAG " 0   */ INSIDE A LOOP              CCG23      82
                          54311                   SA3    A1+B1       WORDC = WORDB + 1                           CCG23      83
          1340  7273777774                        SX7    X3-3                                                    CCG23      84
                          0337001323 +            MI     X7,MPR      IF N.REFS[WORDC] < 3                        CCG23      85
                                                                                                                 CCG23      86
          1341  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
          1342  0331001323 +                      MI     X1,MPR      IF DEF[WORDB] */ CANT HANDLE DEF AND ENT PT CCG23      91
                                                                                                                 CCG23      92
                                        *         ASSIGN A NEW LC.                                               CCG23      93
                                                                                                                 CCG23      94
          1343  5130000000 X             MPR2     SA3    =XN$LC                                                  CCG23      95
                          76710                   SX7    B1                                                      CCG23      96
                               20772              LX7    FP.LCP                                                  CCG23      97
          1344  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
          1345  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
          1346  20212                    MPR4     LX2    -FP.CAP                                                 CCG23     109
                     43366                        MX3    -FP.CAL                                                 CCGA043     6
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1347  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
          1350  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
          1351  5130001353 +                      SA3    MPRA                                                    CCG23     119
                          15623                   BX6    -X3*X2      (FP,L2,XMT)[DI] = 0                         CCGA088     6
                               54620              SA6    A2                                                      CCG23     121
          1352  0400001323 +                      EQ     MPR                                                     CCG23     122
                                                                                                                 CCG23     123
          1353                           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
          1354  5110000000 C             CRB2     SA1    O.UDT                                                   GPO      1677
                          5120000001 C            SA2    N.VAR                                                   GPO      1678
          1355  5241000004                        SA4    X1+4        UI = O.UDT + 4                              GPO      1679
                          6242777775              SB4    X2-2        I = N.VAR - 2                               GPO      1680
                                                                                                                 GPO      1681
          1356  15640                    CRB3     BX6    -X0*X4      RBITS[UI] = 0                               GPO      1682
                     54640                        SA6    A4                                                      GPO      1683
                          6144777776              SB4    B4-1        I = I - 1                                   GPO      1684
          1357  5044000002                        SA4    A4+2        UI = UI + 2                                 GPO      1685
                          0704001356 +            GT     B4,CRB3     IF I > 0                                    GPO      1686
                                                                                                                 GPO      1687
          1360  0200401360 +             CRB      ROUTINE                                                        GPO      1688
          1361  43020                             MX0    -UD.RFP                                                 FCC1504X    9
                     5120000053 +                 SA2    UXR+1                                                   GPO      1690
          1362  0315001354 +                      NZ     X5,CRB2     IF N.BLK > 1                                GPO      1691
                          0312001354 +            NZ     X2,CRB2     IF UXR(2) " 0 */ EXT REF                    GPO      1692
                                                                                                                 GPO      1693
          1363  5110000002 C                      SA1    O.MVL                                                   GPO      1694
                          5251000001              SA5    X1+1        MI = [O.MVL] + 1                            GPO      1695
          1364  0305001360 +                      ZR     X5,CRB      IF [MI] = 0                                 GPO      1696
                                                                                                                 GPO      1697
          1365  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
          1366  0315001365 +                      NZ     X5,CRB1     IF [MI] " 0                                 GPO      1702
                                                                                                                 GPO      1703
                          0400001360 +            EQ     CRB                                                     GPO      1704
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1367  0200401367 +             EBV      ROUTINE                                                        GPO      1711
          1370  5244777776                        SA4    X4-1        BI = BVA - 1                                GPO      1712
                          5110000002 C            SA1    BVL                                                     GPO      1713
          1371  5120000000 C                      SA2    O.UDT                                                   GPO      1714
                          10055                   BX0    X5                                                      GPO      1715
                               63611              SB6    X1+B1       L = BVL + 1                                 GPO      1716
          1372  6272777613                        SB7    X2+4-120    U0 = O.UDT + 4 - 120                        GPO      1717
                                                                                                                 GPO      1718
          1373  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
          1374  0760001367 +                      MI     B6,EBV      IF L < 0      */ END OF VECTOR              GPO      1722
                          0314001376 +            NZ     X4,EBV2     IF BV " 0                                   GPO      1723
          1375  0324001373 +                      PL     X4,EBV1     IF BV = +0                                  GPO      1724
                                                                                                                 GPO      1725
          1376  43114                    EBV2     MX1    12                                                      GPO      1726
                     11514                        BX5    X1*X4       TB = MASK(12) & BV                          GPO      1727
                          0305001404 +            ZR     X5,EBV4     IF TB = 0                                   GPO      1728
                                                                                                                 GPO      1729
          1377  20560                             LX5    -12                                                     GPO      1730
                     43715                        MX7    13                        */ EXPAND UPPER 12 BITS       GPO      1731
                          6130000073              SB3    59                                                      GPO      1732
          1400  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
          1401  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
          1402  54630                             SA6    A3                                                      GPO      1741
                     0315001400 +                 NZ     X5,EBV3     IF TB " 0                                   GPO      1742
                                                                                                                 GPO      1743
                               15441              BX4    -X1*X4      BV = ^MASK(12) & BV                         GPO      1744
          1403  0304001373 +                      ZR     X4,EBV1     IF BV = 0                                   GPO      1745
                                                                                                                 GPO      1746
          1404  76110                    EBV4     SX1    B1                                                      GPO      1747
                     27504                        PX5    X4                        */ EXPAND LOWER 48 BITS       GPO      1748
                          6130000057              SB3    47                                                      GPO      1749
                                                                                                                 GPO      1750
          1405  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
          1406  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
          1407  54630                             SA6    A3                                                      GPO      1759
                     0314001405 +                 NZ     X4,EBV5     IF BV " 0                                   GPO      1760
                                                                                                                 GPO      1761
          1410  0400001373 +                      EQ     EBV1                                                    GPO      1762
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1411  77777000000000000000     BCM      VFD    .BCM/-0,*P/0  BLOCK CLEAR MASK                          GPO      1785
                                                                                                                 GPO      1786
          1412                           RDB      BFMW   UD,(DEFR,^RD,SMS) REGION DEF BITS FOR NO CODE MOTION    GPO      1787
          1413                           FUDA     BFMW   UD,(DEFR,DEF,^RD,IST)                                   GPO      1788
          1414                           FUDB     BFMW   UD,(DEFR,DEF,USE,^RD,IST)                               GPO      1789
          1415                           FUDC     BFMW   UD,(DEF,CR)                                             GPO      1790
          1416                           FUDD     BFMW   UD,(DEF,CM)                                             GPO      1791
          1417                           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/05. 19.57.21.      PAGE    58
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                  ENDM                                                           GPO      1820
  
  
  
          1420  0200401420 +             FUD      ROUTINE                                                        GPO      1822
          1421  5110000000 C                      SA1    O.UDT                                                   GPO      1823
                          53251                   SA2    X5+B1       R2 = O.SEQ + 1                              GPO      1824
                               66211              SB2    B1+B1                                                   GPO      1825
          1422  5130000045 +                      SA3    BBV                                                     GPO      1826
                                                  LX2    -R2.TXTLP                                               GPO      1827
                          63510                   SB5    X1                                                      GPO      1828
                               66600              SB6    B0          CDEF = 0                                    GPO      1829
          1423  43071                             MX0    -D.LSJL                                                 GPO      1830
                     36652                        IX6    X5+X2                                                   GPO      1831
                          5203000000              SA0    X3+                       (A0) = BBV                    GPO      1832
          1424  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
          1425  43700                             MX7    0                                                       GPO      1836
                     20041                        LX0    D.LSJP                                                  GPO      1837
                          5170000052 +            SA7    UXR         UXR = 0                                     GPO      1838
          1426  53730                             SA7    X3          MI = [O.MVL];  [MI] = 0 */ MARKED VAR LIST  GPO      1839
                     0400001431 +                 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
          1427  20345                    FUD1     LX3    D.LSJP-UD.MVP                                           GPO      1847
                     15430                        BX4    -X0*X3                                                  GPO      1848
                          0314001431 +            NZ     X4,FUD2     IF MV[UL]     */ IF ON MARKED LIST          GPO      1849
          1430  74730                             SX7    A3                                                      GPO      1850
                     5077000001                   SA7    A7+1        MI = MI + 1;  [MI] = UL  */ SAVE *UDI* ADDR GPO      1851
                                                                                                                 GPO      1852
          1431  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
          1432  0430001542 +                      ZR     B3,FUD16    IF OC[R1] = 0 */ END OF BLOCK               GPO      1857
                          0307001431 +            ZR     X7,FUD2     IF ^LSJ[DI]                                 GPO      1858
                                                                                                                 GPO      1859
                                        *         PROCESS *LD*                                                   GPO      1860
                                                                                                                 GPO      1861
          1433  20730                             LX7    59-D.LDP                                                GPO      1862
                     0327001446 +                 PL     X7,FUD3     IF ^LD[DI]                                  GPO      1863
                               20536              LX5    -R1.INP                                                 GPO      1864
          1434  63350                             SB3    X5          I = IN[R1]                                  GPO      1865
                     0623001431 +                 LE     B3,B2,FUD2  IF I @ 2      */ ^ IN UDT ! LD ONLY         FCC1088    23
                               56353              SA3    B5+B3       UI = UL = O.UDT + I                         GPO      1867
          1435  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
          1436  0317001431 +                      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/05. 19.57.21.      PAGE    59
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1445  0400001427 +                      EQ     FUD1                                                    GPO      1875
  
  
                                        *         PROCESS *ST*                                                   GPO      1877
                                                                                                                 GPO      1878
          1446  20701                    FUD3     LX7    D.LDP-D.STP                                             GPO      1879
                     0327001464 +                 PL     X7,FUD5     IF ^ST[DI]                                  GPO      1880
                               20536              LX5    -R1.INP                                                 GPO      1881
          1447  63350                             SB3    X5          I = IN[R1]                                  GPO      1882
                     0430001431 +                 ZR     B3,FUD2     IF I = 0                                    GPO      1883
                               56353              SA3    B5+B3       UI = UL = O.UDT + I                         GPO      1884
          1450  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
          1451  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
          1452  63650                             SB6    X5                                                      GPO      1894
                     20325                        LX3    UD.CBP+59-UD.USEP                                       GPO      1895
                          0333001431 +            MI     X3,FUD2     IF USE[UI]    */ USE BEFORE DEF             GPO      1896
          1453  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
          1454  64300                             MCM    FUD1        SHOW USES OF CLASS MEMBERS                  GPO      1901
          1463  0400001427 +                      EQ     FUD1                                                    GPO      1902
                                                                                                                 GPO      1903
                                        *         PROCESS *RJX* ( FUNCTION CALL )                                GPO      1904
                                                                                                                 GPO      1905
          1464  20401                    FUD5     LX4    59-D.TYP                                                GPO      1906
                     0324001431 +                 PL     X4,FUD2     IF TYPE[DI] " IV                            GPO      1907
                               55341              SA3    A4-B1       R2 = DI - 1                                 GPO      1908
          1465  20360                             LX3    -FI.INDXP                                               GPO      1909
                     0303001431 +                 ZR     X3,FUD2     IF [R2] = 0   */ *UJP* OR SUCH              GPO      1910
          1466  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
          1467  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
          1470  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
          1471  63370                             SB3    X7                                                      GPO      1922
                     5130000020 C                 SA3    XRF                                                     FCC1254    11
                               76610              SX6    B1                                                      FCC1254    12
          1472  36636                             IX6    X3+X6       XRF = XRF + 1 */ COUNT N.EXT REFS           FCC1254    13
                     54630                        SA6    A3                                                      FCC1254    14
                          0432001431 +            EQ     B3,B2,FUD2  IF FT[R2] = 2 */ *BEF*                      GPO      1925
          1473  0431001522 +                      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/05. 19.57.21.      PAGE    60
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                                                                                 GPO      1929
                          0604001431 +            LE     B4,FUD2     IF J @ 0                                    CCG1       85
          1474  20027                             LX0    UD.MVP-D.LSJP                                           GPO      1931
                                                                                                                 GPO      1932
          1475  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
          1476  0316001477 +                      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
          1477  76510                    FUD8     SX5    B1                                                      GPO      1941
                     0332001501 +                 MI     X2,FUD9     IF IO[LI] " 0 */ AN INPUT OP                GPO      1942
                               20570              LX5    UD.USEP                                                 GPO      1943
          1500  12653                             BX6    X5+X3       USE[UI] = 1                                 GPO      1944
                     54630                        SA6    A3                                                      GPO      1945
                          0400001510 +            EQ     FUD11                                                   GPO      1946
                                                                                                                 GPO      1947
          1501  5110001413 +             FUD9     SA1    FUDA                                                    GPO      1948
                          12613                   BX6    X1+X3       (DEFR,DEF,^RD,IST)[UI] = 1                  GPO      1949
                               20303              LX3    59-UD.USEP                                              GPO      1950
          1502  0333001506 +                      MI     X3,FUD10    IF USE[UI]                                  GPO      1951
                          20201                   LX2    59-AP.USEP                                              FCC0789    21
          1503  0322001505 +                      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
          1504  0400001506 +                      EQ     FUD10                                                   FCC0789    25
                                                                                                                 FCC0789    26
          1505  20571                    FUD9A    LX5    UD.DBUP     DBU[UI] = 1                                 FCC0789    27
                     12656                        BX6    X5+X6                                                   GPO      1953
          1506  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
          1507  5063000000                        SA6    A3+                                                     GPO      1958
                          20322                   LX3    UD.CBP                                                  GPO      1959
                                                                                                                 GPO      1960
          1510  20303                    FUD11    LX3    59-UD.USEP                                              GPO      1961
                     0333001520 +                 MI     X3,FUD11A   IF USE[UI]    */ PREVIOUS USE               GPO      1962
                               64300              MCM    FUD11A      SHOW USES OF CLASS MEMBERS                  GPO      1963
                                                                                                                 GPO      1964
          1520  54221                    FUD11A   SA2    A2+B1       LI = LI + 1                                 GPO      1965
                     0540001475 +                 NZ     B4,FUD7     IF J " 0                                    GPO      1966
                                                                                                                 GPO      1967
                               20045              LX0    D.LSJP-UD.MVP                                           GPO      1968
          1521  0400001431 +                      EQ     FUD2                                                    GPO      1969
                                                                                                                 GPO      1970
                                        *         PROCESS USER FUNCTION                                          GPO      1971
                                                                                                                 GPO      1972
          1522  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
          1523  0604001431 +                      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/05. 19.57.21.      PAGE    61
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1524  6232000000               FUD13    SB3    X2+         I = [LI]                                    FCC1088    24
                          0623001540 +            LE     B3,B2,FUD15 IF I @ 2      */ ^ IN UDT ! LD ONLY         FCC1088    25
          1525  53325                             SA3    B5+X2       UI = O.UDT + I                              FCC1088    26
                     5110001414 +                 SA1    FUDB                                                    GPO      1980
                               15430              BX4    -X0*X3                                                  GPO      1981
          1526  0314001527 +                      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
          1527  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
          1530  20325                             LX3    UD.CBP+59-UD.USEP                                       GPO      1991
                     0333001540 +                 MI     X3,FUD15    IF USE[UL]    */ PREVIOUS USES              GPO      1992
                               64300              MCM    FUD15       MARK CLASS MEMBERS AS USES                  GPO      1993
                                                                                                                 GPO      1994
          1540  67441                    FUD15    SB4    B4-B1       J = J - 1                                   GPO      1995
                     54221                        SA2    A2+B1       LI = LI + 1                                 FCC0392    88
                          0540001524 +            NZ     B4,FUD13    IF J " 0                                    GPO      1996
                                                                                                                 GPO      1997
          1541  63650                             SB6    X5                                                      GPO      1998
                     20045                        LX0    D.LSJP-UD.MVP                                           GPO      1999
                          0400001431 +            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
          1542  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
          1543  0306001565 +                      ZR     X6,FUD24    IF CDEF = 0                                 GPO      2010
                          20673                   LX6    UD.CBP+59-UD.CRP                                        GPO      2011
                               63660              SB6    X6                                                      GPO      2012
          1544  20027                             LX0    UD.MVP-D.LSJP                                           GPO      2013
                     5120001413 +                 SA2    FUDA                                                    GPO      2014
          1545  0326001556 +                      PL     X6,FUD20    IF ^CR[CDEF]  */ IF NO CLASS REFS           GPO      2015
                                                                                                                 GPO      2016
                          56571                   SA5    B7+B1       I = ML + 1                                  GPO      2017
          1546  5110001415 +                      SA1    FUDC                                                    GPO      2018
          1547  55551                    FUD17    SA5    A5-B1       I = I - 1                                   GPO      2019
                     53450                        SA4    X5          UI = [I]                                    GPO      2020
                          0305001556 +            ZR     X5,FUD20    IF [I] = 0                                  GPO      2021
          1550  16641                             BX6    -X1+X4                                                  GPO      2022
                     0316001547 +                 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
          1551  63440                             SB4    X4          J = ECL[UI]   */ FOLLOW CHAIN TO MEMBERS    GPO      2027
                     54640                        SA6    A4                                                      GPO      2028
                          0440001547 +            ZR     B4,FUD17    IF J = 0      */ NO CLASS MEMBERS           GPO      2029
                                                                                                                 GPO      2030
          1552  56454                    FUD18    SA4    B5+B4       UI = O.UDT + J                              GPO      2031
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    62
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                     15340                        BX3    -X0*X4                                                  GPO      2032
                          0313001554 +            NZ     X3,FUD19    IF MV[UI]                                   GPO      2033
          1553  74740                             SX7    A4                                                      GPO      2034
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      2035
                                                                                                                 GPO      2036
          1554  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
          1555  0540001552 +                      NZ     B4,FUD18    IF J " 0                                    GPO      2041
                          0400001547 +            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
          1556  0460001565 +             FUD20    ZR     B6,FUD24    IF CM[CDEF] = 0  */ NO CLASS MEMBERS DEFINE GPO      2047
                          5110001416 +            SA1    FUDD                                                    GPO      2048
          1557  5120001417 +                      SA2    FUDE                                                    FCC1040A    2
                          56571                   SA5    B7+B1       I = ML + 1                                  GPO      2049
                                                                                                                 GPO      2050
          1560  55551                    FUD21    SA5    A5-B1       I = I - 1                                   GPO      2051
                     53450                        SA4    X5          UI = [I]                                    GPO      2052
                          0305001565 +            ZR     X5,FUD24    IF [I] = 0    */ END OF LIST                GPO      2053
          1561  16641                             BX6    -X1+X4                                                  GPO      2054
                     0316001560 +                 NZ     X6,FUD21    IF ^( DEF[UI] & CM[UI] )                    GPO      2055
                               20450              LX4    -UD.BMIP                                                GPO      2056
          1562  53345                             SA3    B5+X4       UI = O.UDT + BMI[UI]  */ BASE MEMBER        GPO      2057
                     15430                        BX4    -X0*X3                                                  GPO      2058
                          0314001564 +            NZ     X4,FUD22    IF MV[UI]                                   GPO      2059
          1563  74730                             SX7    A3                                                      GPO      2060
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      2061
                                                                                                                 GPO      2062
          1564  12623                    FUD22    BX6    X2+X3       (DEF,^RD,IST)[UI] = 1                       FCC1040A    3
                     54630                        SA6    A3                                                      GPO      2064
                          0400001560 +            EQ     FUD21                                                   GPO      2065
                                                                                                                 GPO      2066
                                        *         TERMINATE MARKED VAR LIST AND FORM BIT VECTORS ( BBV = 0 )     GPO      2067
                                                                                                                 GPO      2068
          1565  5110000031 +             FUD24    SA1    BN                                                      GPO      2069
                          5120000015 +            SA2    O.BIT                                                   GPO      2070
          1566  5130000045 +                      SA3    BBV                                                     GPO      2071
                          63210                   SB2    X1                                                      GPO      2072
                               53422              SA4    X2+B2       BIW = BIT(BN)                               GPO      2073
          1567  43700                             MX7    0                                                       GPO      2074
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = 0                      GPO      2075
                          0313001642 +            NZ     X3,FUD35    IF BBV " 0    */ NOT BUILDING BIT VECTORS   GPO      2076
                                                                                                                 GPO      2077
          1570  5150000002 C                      SA5    BVL                                                     GPO      2078
                          5130000020 +            SA3    L.BVT                                                   GPO      2079
          1571  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
          1572  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/05. 19.57.21.      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
          1573  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
          1574  63626                             SB6    X2+B6       BI = O.BVT + OL  */ *BVT* ADDRESS           GPO      2096
                     76010                        SX0    B1                                                      GPO      2097
                          0315001615 +            NZ     X5,FUD30    IF BVL " 0                                  GPO      2098
  
  
                                        *         SETUP BIT VECTORS FOR PROGRAM WITH @ 60 REFERENCED VARIABLES   GPO      2100
                                                                                                                 GPO      2101
          1575  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
          1576  0303001604 +                      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
          1577  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
          1600  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
          1601  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
          1602  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
          1603  0313001577 +                      NZ     X3,FUD25    IF [MI] " 0                                 GPO      2126
                                                                                                                 GPO      2127
          1604  5110000052 +             FUD26    SA1    UXR                                                     FCC0716     6
                          0301001607 +            ZR     X1,FUD26A   IF UXR = 0                                  FCC0716     7
          1605  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
          1606  15553                             BX5    -X3*X5      DUV = ^SV & DUV                             GPO      2133
                     12434                        BX4    X3+X4       UV = SV ! UV                                GPO      2134
                                                                                                                 GPO      2135
          1607  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
          1610  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/05. 19.57.21.      PAGE    64
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                                                                                 GPO      2143
                                        *         CLEAR BLOCK RELATIVE BITS IN *UDT*                             GPO      2144
                                                                                                                 GPO      2145
          1611                           FUD27    BSS    0                                                       GPO      2146
                                                  IF     DEF,/DEBUG/FUD,1                                        GPO      2147
                                                  DCALL  PRNTBV,([O.BVT],BVI,=3)                                 GPO      2148
                                                                                                                 GPO      2149
          1611  5110000002 C             FUD28    SA1    O.MVL                                                   GPO      2150
                          5140001411 +            SA4    BCM                                                     GPO      2151
          1612  5251000001                        SA5    X1+1        MI = O.MVL + 1                              GPO      2152
                          0305001420 +            ZR     X5,FUD      IF [MI] = 0                                 GPO      2153
                                                                                                                 GPO      2154
          1613  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
          1614  0315001613 +                      NZ     X5,FUD29    IF [MI] " 0                                 GPO      2159
                                                                                                                 GPO      2160
                          0400001420 +            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
          1615  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
          1616  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
          1617  67551                   +         SB5    B5-B1       FOR I = 0 TO VL-1; BT(I) = 0                GPO      2175
                     54771                        SA7    A7+B1                                                   GPO      2176
                          0705001617 +            GT     B5,*                                                    GPO      2177
                                                                                                                 GPO      2178
          1620  5120000052 +                      SA2    UXR                                                     GPO      2179
                          5150000017 +            SA5    O.BVT                                                   GPO      2180
          1621  63320                             SB3    X2                                                      GPO      2181
                     66400                        SB4    B0          WN = 0        */ WORD NUMBER ( 0,1,... )    GPO      2182
                          63550                   SB5    X5                                                      GPO      2183
          1622  0303001626 +                      ZR     X3,FUD32    IF [MI] = 0   */ NO REFED VARS IN BLOCK     GPO      2184
                                                                                                                 GPO      2185
          1623  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
          1624  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
          1625  0313001623 +                      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/05. 19.57.21.      PAGE    65
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1626  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
          1627  43400                             MX4    0           UV = 0                                      GPO      2202
                     54001                        SA0    A0+B1       BT = BT + 1                                 GPO      2203
                          0302001635 +            ZR     X2,FUD34    IF LP = 0     */ LIST EMPTY FOR THIS WORD   GPO      2204
                                                                                                                 GPO      2205
          1630  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
          1631  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
          1632  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
          1633  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
          1634  12474                             BX4    X7+X4       UV = UV ! SHIFT( USE[UW] , J )              GPO      2222
                     53330                        SA3    X3          MI = [L]      */ NEXT ON CHAIN              GPO      2223
                          0311001630 +            NZ     X1,FUD33    IF L " 0                                    GPO      2224
                                                                                                                 GPO      2225
          1635  0430001637 +             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
          1636  15553                             BX5    -X3*X5      DUV = ^SV & DUV                             GPO      2229
                     12434                        BX4    X3+X4       UV = SV ! UV                                GPO      2230
                                                                                                                 GPO      2231
          1637  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
          1640  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
          1641  0747001626 +                      LT     B4,B7,FUD32 IF WN < VL                                  GPO      2240
                                                                                                                 GPO      2241
                          0400001611 +            EQ     FUD27                                                   GPO      2242
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    66
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                        *         BBV " 0 , IF PROGRAM BLOCK , THEN CLEAR BLOCK BITS             GPO      2244
                                                                                                                 GPO      2245
          1642                           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
          1642  0334001611 +                      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
          1643  5110000017 C                      SA1    N.HB                                                    GPO      2260
                          53551                   SA5    X5+B1       R2 = [T+1]    */ R2 OF *BOS*                GPO      2261
                               76710              SX7    B1                                                      GPO      2262
          1644  73611                             SX6    X1+B1       N.HB = N.HB + 1                             GPO      2263
                                                  LX5    59-R2.UXRP                                              GPO      2264
                     54610                        SA6    A1                                                      GPO      2265
                          0325001646 +            PL     X5,FUD36    IF ^UXR[R2]   */ NO USER EXT REFS IN LP     GPO      2266
          1645  5170000053 +                      SA7    UXR+1       UXR(2) = 1                                  GPO      2267
                                                                                                                 GPO      2268
          1646  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
          1647  54610                             SA6    A1                                                      GPO      2272
                     5110000051 +                 SA1    MRA.X                                                   FCC1254    18
                               11615              BX6    X1*X5       MRA.X = MRA.X & MRA[R2]                     FCC1254    19
          1650  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
          1651  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
          1654  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
          1655  54610                             SA6    A1                                                      GPO      2283
                     0752001654 +                 LT     B5,B2,FUD37                                             GPO      2284
                                                                                                                 GPO      2285
                               73470              SX4    X7                                                      GPO      2286
          1656  5150001412 +                      SA5    RDB                                                     GPO      2287
                          0100001367 +            RJ     EBV         SET REGION DEF BITS IN *UDT*                GPO      2288
                                                                                                                 GPO      2289
          1657  5150000027 +                      SA5    O.SEQ                                                   GPO      2290
                          0100001661 +            RJ     CHB         CHECK HOLDING BLOCK FOR COMBINE WITH PRED   GPO      2291
          1660  0400001611 +                      EQ     FUD28                                                   GPO      2292
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1661  0200401661 +             CHB      ROUTINE                                                        GPO      2303
          1662  5110000030 +                      SA1    L.SEQ                                                   GPO      2304
                          6251777767              SB5    X1-8                                                    GPO      2305
          1663  6140000004                        SB4    4                                                       FCC0602     5
                          0645001661 +            LE     B5,B4,CHB   IF L.SEQ @ 12 */ EMPTY OR *LAB* ONLY BLOCK  FCC0602     6
                                                                                                                 GPO      2307
                                        *         CHECK CURRENT BLOCK                                            GPO      2308
                                                                                                                 GPO      2309
          1664  5120000015 +                      SA2    O.BIT                                                   GPO      2310
                          53350                   SA3    X5          R1 = [[O.SEQ]]                              GPO      2311
                               63220              SB2    X2                                                      GPO      2312
          1665  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
                          0334001661 +            MI     X4,CHB      IF RB[BIW]    */ NOT A *HB*                 GPO      2317
                                                                                                                 FCC0602     7
          1666  5110000000 X                      SA1    O.BST                                                   GPO      2325
                          5120000032 +            SA2    BSI                                                     GPO      2326
          1667  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
          1670  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
          1671  20122                             LX1    -EI.PRIP                                                GPO      2334
                     26171                        UX1    B7,X1                                                   FCC0602     8
                          0571001661 +            NE     B7,B1,CHB   IF NP[EIW] " 1  */ MORE THAN 1 PRED         FCC0602     9
          1672  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
          1673  26474                             UX4    B7,X4                                                   GPO      2339
                     0717001661 +                 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
          1674  6144777775               CHB0     SB4    B4-2        I = I - 2                                   GPO      2345
                          0440001661 +            ZR     B4,CHB      IF I = 0      */ END OF *BST*               GPO      2346
          1675  56434                             SA4    B3+B4       IPW = BST(I+1)                              GPO      2347
                                                  LX4    -IM.BNP                                                 GPO      2348
                     63740                        SB7    X4                                                      GPO      2349
                          0576001674 +            NE     B7,B6,CHB0  IF BN[IPW] " PBN                            GPO      2350
                                                                                                                 GPO      2351
          1676  20430                             LX4    IM.BNP-IM.BIP                                           GPO      2352
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1677  12632                             BX6    X3+X2       BSIS = SHIFT(I,30) ! BSI                    GPO      2356
                     5160000106 C                 SA6    BSIS                                                    GPO      2357
                                                  LX5    59-BI.RBP                                               GPO      2358
          1700  0325001661 +                      PL     X5,CHB      IF ^RB[BIWP]  */ PRED IS A *HB*             GPO      2359
                          10655                   BX6    X5                                                      FCC0602    10
                               54661              SA6    A6+B1                                                   FCC0602    11
          1701  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
          1702  0336001661 +                      MI     X6,CHB      IF FJ[BIW] " FJ[BIWP]                       FCC0841    10
                                                                                                                 GPO      2360
                          5170000104 C            SA7    VI2                                                     GPO      2363
          1703  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
          1704  0322001711 +                      PL     X2,CHB0A    IF IL[B]      */ NO LABEL DEF               CCGA021    43
                                                                                                                 CCGA021    44
                          5110000027 +            SA1    O.SEQ                                                   CCGA021    45
          1705  5120000025 +                      SA2    O.ELT                                                   CCGA021    46
                          5241000004              SA4    X1+4        R1 = [SEQ+4]  */ IH OF PROG LABEL           CCGA021    47
          1706  54341                             SA3    A4+B1       R2 = [SEQ+5]  */ IH OF GL                   CCGA021    48
                     73440                        SX4    X4                                                      CCGA021    49
                          7233677777              SX3    X3-I.GL                                                 CCGA021    50
          1707  20422                             LX4    18                                                      CCGA021    51
                     5110000026 +                 SA1    L.ELT                                                   CCGA021    52
                               63221              SB2    X2+B1                                                   CCGA021    53
          1710  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
          1711  76150                    CHB0A    ALLOC  MOD,B5      ALLOC( MOD, L.SEQ-8 )                       CCGA021    61
          1713  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
          1715  0100000000 X                      CALL   RBS#        RELEASE THE BLOCK                           CCGNC     630
          1716  5140000106 C                      SA4    BSIS                                                    GPO      2372
                          20436                   LX4    30                                                      GPO      2373
                               73640              SX6    X4          BSI = SETX( SHIFT(BSIS,30) )                GPO      2374
          1717  5160000032 +                      SA6    BSI                                                     GPO      2375
                          0100000000 X            CALL   RTB#        GET PREDECESSOR BLOCK                       CCGNC     631
                                                                                                                 GPO      2377
                                        *         SETUP *MOD* CONTROL WORD                                       GPO      2378
                                                                                                                 GPO      2379
          1720  5150000027 +                      SA5    O.SEQ                                                   GPO      2380
                          5130000000 X            SA3    L.MOD                                                   GPO      2381
          1721  7110000004                        SX1    4           K = 4                                       FCC0602    12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1722  7224777767                        SX2    X4-8        II = TXTL[R2] - 8                           GPO      2385
                          5150000107 C            SA5    BSIS+1                                                  FCC0602    14
          1723  20503                             LX5    BI.RBP-BI.FJP                                           FCC0602    15
                     0325001725 +                 PL     X5,CHB1A    IF ^FJ[BIWP]                                FCC0602    16
                               43601              MX6    1           DEL = 1       */ SET TO DELETE UJP AND LAB  FCC0602    17
          1724  7110000010                        SX1    8           K = 8                                       FCC0602    18
          1725  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
          1726  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
          1730  5120000104 C                      SA2    VI2                                                     GPO      2400
                          5130000000 C            SA3    VL                                                      GPO      2401
          1731  5140000017 +                      SA4    O.BVT                                                   GPO      2402
                          54121                   SA1    A2+B1                                                   GPO      2403
                               63330              SB3    X3          L = VL                                      GPO      2404
          1732  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
          1733  66433                             SB4    B3+B3                                                   GPO      2409
                                                                                                                 GPO      2410
          1734  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
          1735  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
          1736  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
          1737  0723001734 +                      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
          1740  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
          1741  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/05. 19.57.21.      PAGE    70
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
                               66221              SB2    B2+B1       I = I + 1                                   GPO      2435
          1742  10744                             BX7    X4          LX1 = LX2                                   GPO      2436
                     54714                        SA7    A1+B4                                                   GPO      2437
                          0723001740 +            LT     B2,B3,CHB2  IF I < L                                    GPO      2438
                                                                                                                 GPO      2439
          1743  76560                             SX5    B6                                                      GPO      2440
                     43673                        MX6    59                                                      FCC0509     9
                          0100002140 +            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
          1744  5110000000 X                      SA1    O.TXT                                                   GPO      2445
                          5120000000 X            SA2    O.MOD                                                   GPO      2446
          1745  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
          1746  7170000010                        SX7    8                                                       GPO      2451
                          0100000124 +            RJ     SRI         SRI(  BOS  [R1] )                           GPO      2452
          1747  6120000000                        SB2    OC.EOQ                                                  GPO      2453
                          7160000000              SX6    0                                                       GPO      2454
          1750  0100000124 +                      RJ     SRI         SRI(  EOQ  0 )                              GPO      2455
          1751  5140000106 C                      SA4    BSIS                                                    GPO      2456
                          76760                   SX7    B6                                                      GPO      2457
                               73640              SX6    X4          BSI = SETX( BSIS )                          GPO      2458
          1752  5160000032 +                      SA6    BSI                                                     GPO      2459
                          5170000000 X            SA7    L.TXT       L.TXT = 8                                   GPO      2460
          1753  0100000000 X                      CALL   WMB#        WRITE THE BLOCK BACK TO *BLK*               CCGNC     632
          1754  7160000004                        SX6    4                                                       GPO      2462
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GPO      2463
          1755  0400001661 +                      EQ     CHB                                                     GPO      2464
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          1756  00000000000000000000     RDDA     CON    0           HEADER FOR LD LINKS                         FCCA499X    5
                                                                                                                 FCCA499X    6
          1757  0200401757 +             RDD      ROUTINE                                                        GPO      2475
                                                                                                                 GPO      2476
          1760  0100002067 +                      RJ     IPS         INSERT POST STORES                          GPO      2477
          1761  0306001766 +                      ZR     X6,RDD0     IF NPS = 0                                  GPO      2478
                                                                                                                 GPO      2479
                          5140000033 +            SA4    BSW                                                     GPO      2480
          1762  5150000027 +                      SA5    O.SEQ                                                   GPO      2483
                          7100600001              SX0    RN.MASK                                                 CCG11     116
          1763  20430                             LX4    -IM.BIP                                                 CCG11     117
                     63340                        FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      2485
                                                                                                                 GPO      2486
          1766  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
          1767  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
          1770  5150000011 C                      SA5    SVA                                                     GPO      2497
                          15212                   BX2    -X2*X1      DBU = DEF & ^UBD                            GPO      2498
                               63550              SB5    X5                        (B5) = SVA                    GPO      2499
          1771  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
          1772  0421001777 +                      EQ     B2,B1,RDD2  IF VL = 1                                   GPO      2504
          1773  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
          1774  15212                             BX2    -X2*X1                                                  GPO      2509
                     67221                        SB2    B2-B1                                                   GPO      2510
                          11223                   BX2    X2*X3                                                   GPO      2511
                               12642              BX6    X4+X2                                                   GPO      2512
          1775  15516                             BX5    -X6*X1                                                  GPO      2513
                     54661                        SA6    A6+B1                                                   GPO      2514
                          12757                   BX7    X5+X7                                                   GPO      2515
          1776  0712001773 +                      GT     B2,B1,RDD1                                              GPO      2516
                                                                                                                 GPO      2517
          1777  47477                    RDD2     CX4    X7                                                      GPO      2518
                     0304001757 +                 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/05. 19.57.21.      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
          2000  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
          2001  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
          2002  6130000022                        SB3    59-D.^DP                                                GPO      2534
                          6140000004              SB4    4                                                       GPO      2535
          2003  0400002007 +                      EQ     RDD4                                                    GPO      2536
                                                                                                                 GPO      2537
                                        *         INDICATE THAT R-NUM *PS* FOR A LIVE *ST*                       GPO      2538
                                                                                                                 GPO      2539
          2004  20427                    RDD3     LX4    59-D.L2P                                                GPO      2540
                     0324002006 +                 PL     X4,RDD3A    IF ^L2[DI]         */ NOT A LEVEL 2 *ST*    CCG0208     5
                               20404              LX4    D.L2P-D.XMTP                                            CCG0208     6
          2005  0324002007 +                      PL     X4,RDD4     IF ^XMT[DI]      */ NOT A LEVEL 0 *ST*      CCG0208     7
                                                                                                                 CCG0208     8
          2006  63221                    RDD3A    SB2    X2+B1                                                   CCG0208     9
                     76610                        SX6    B1                                                      GPO      2543
                          56672                   SA6    "TB"+B2     [TB+R+1] = 1                                GPO      2544
                                                                                                                 GPO      2545
          2007  55444                    RDD4     SA4    A4-B4       DI = DI - 4                                 GPO      2546
                     22634                        LX6    B3,X4                                                   GPO      2547
                          0336002021 +            MI     X6,RDD5     IF ^D[DI]                                   GPO      2548
          2010  20602                             LX6    D.^DP-D.PSP                                             GPO      2549
                     0336002016 +                 MI     X6,RDD4A    IF PS[DI]                                   GPO      2550
                               20604              LX6    D.PSP-D.LDP                                             GPO      2551
          2011  0326002007 +                      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
          2012  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
          2013  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
          2014  5130001756 +                      SA3    RDDA                                                    FCCA499X    9
                          73730                   SX7    X3                                                      FCCA499X   10
                               54741              SA7    A4+B1       LDLNK = DI + 1;[LDLNK] = RDDA               FCCA499X   11
          2015  74670                             SX6    A7                                                      FCCA499X   12
                     54630                        SA6    A3          RDDA = LDLNK                                FCCA499X   13
                          0400002007 +            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/05. 19.57.21.      PAGE    73
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
          2016  54541                    RDD4A    SA5    A4+B1       LI = DI + 1;  PSF = [LI]                    GPO      2570
                     43700                        MX7    0                                                       GPO      2571
                          54750                   SA7    A5          [LI] = 0                                    GPO      2572
          2017  0315002007 +                      NZ     X5,RDD4     IF PSF " 0    */ STILL *PS*                 GPO      2573
                          76510                   SX5    B1                                                      GPO      2574
                               20547              LX5    D.PSP                                                   GPO      2575
          2020  15645                             BX6    -X5*X4      PS[DI] = 0                                  GPO      2576
                     54640                        SA6    A4                                                      GPO      2577
                          0400002007 +            EQ     RDD4                                                    GPO      2578
                                                                                                                 GPO      2579
                                        *         INSTRUCTION ^D                                                 GPO      2580
                                                                                                                 GPO      2581
          2021  5054777775               RDD5     SA5    A4-2        R1 = DI - 2                                 GPO      2582
                          26725                   UX7    B2,X5                                                   GPO      2583
                               20607              LX6    D.^DP-D.STP                                             GPO      2584
          2022  0421002055 +                      EQ     B2,B1,RDD50 IF OC[R1] = OC.BOS                          FCCA499X   14
                          0336002032 +            MI     X6,RDD6     IF ST[DI]                                   GPO      2586
          2023  6122777705                        SB2    B2-OC.RJ3                                               GPO      2587
                          0720002007 +            MI     B2,RDD4     IF OC[R1] < OC.RJ3                          GPO      2588
          2024  0712002007 +                      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
          2025  54551                             SA5    A5+B1       R2 = R1 + 1                                 GPO      2593
                     26623                        UX6    B2,X3                                                   GPO      2594
                          7172777706              SX7    B2-OC.JIN                                               GPO      2595
          2026  0307002007 +                      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
          2027  0333002055 +                      MI     X3,RDD50    IF TRACEBACK SELECTED                       CCGA035    16
                          43766                   MX7    -FI.FTL                                                 GPO      2597
                               20506              LX5    -FI.FTP                                                 GPO      2598
          2030  15657                             BX6    -X7*X5      F = FT[R2]    FUNCTION TYPE                 GPO      2599
                     6226777775                   SB2    X6-2                                                    FCC0612     6
          2031  0420002007 +                      ZR     B2,RDD4     IF F = 2      */ *BEF*                      GPO      2601
                                                                                                                 GPO      2602
                          0400002055 +            EQ     RDD50       QUIT UNTIL WE ADD MORE CORE                 FCCA499X   15
                                                                                                                 GPO      2604
          2032  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
          2033  0420002004 +                      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
          2034  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
          2035  0336002004 +                      MI     X6,RDD3     IF SHIFT(SW,B) < 0  */ STORE IS LIVE        GPO      2620
                          20530                   LX5    -IH.RFP                                                 GPO      2621
                               63250              SB2    X5                                                      GPO      2622
          2036  0712002004 +                      GT     B2,B1,RDD3  IF RF[R2] > 1                               GPO      2623
                          10655                   BX6    X5          R2ST = R2                                   FCCA499X   16
          2037  5130001756 +                      SA3    RDDA        LDLNK = RDDA                                FCCA499X   17
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2040  0303002046 +             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
          2041  13756                             BX7    X5-X6                                                   FCCA499X   26
                     20652                        LX6    IH.IHP-IH.CAP                                           FCCA499X   27
                          73770                   SX7    X7                                                      FCCA499X   28
          2042  0317002045 +                      NZ     X7,RDD20    IF IH[R2ST] " IH[R2LD]                      FCCA499X   29
                          20530                   LX5    IH.IHP-IH.RFP                                           FCCA499X   30
                               73750              SX7    X5                                                      FCCA499X   31
          2043  0317002004 +                      NZ     X7,RDD3     IF RF[R2LD] " 0                             FCCA499X   32
                          20522                   LX5    IH.RFP-IH.CAP                                           FCCA499X   33
                               13756              BX7    X5-X6                                                   FCCA499X   34
          2044  73770                             SX7    X7                                                      FCCA499X   35
                     0307002004 +                 ZR     X7,RDD3     IF CA[R2LD] = CA[R2ST]                      FCCA499X   36
          2045  53330                    RDD20    SA3    X3          LDLNK = [LDLNK]                             FCCA499X   37
                     20622                        LX6    IH.CAP-IH.IHP                                           FCCA499X   38
                          0400002040 +            EQ     RDD10                                                   FCCA499X   39
                                                                                                                 GPO      2624
                                        *         *ST* IS DEAD, CHANGE IT TO A *NOP* AND ADJUST USES OF PRED.    GPO      2625
                                                                                                                 GPO      2626
          2046  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
          2047  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
          2050  15773                             BX7    -X3*X7                                                  FCC0625     7
                     0317002052 +                 NZ     X7,RDD40    IF USES[DP] " 0 & ^RF[DP]                   FCCA499X   41
          2051  5100400000                        SA0    1S17        DC = -377777B */ INDICATE DEAD COMPUTATIONS GPO      2634
                                                                                                                 GPO      2635
          2052  5150000046 X             RDD40    SA5    F.RDT+OC.NOP                                            FCCA499X   42
                          6120000046              SB2    OC.NOP                                                  GPO      2637
          2053  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
          2054  54740                             SA7    A4          [DI] = RDT(OC.NOP)                          GPO      2641
                     0400002007 +                 EQ     RDD4                                                    GPO      2642
                                                                                                                 GPO      2643
          2055  74100                    RDD50    SX1    A0                                                      FCCA499X   43
                                                  TRACE  RDD,RLIST,SEQ                                           GPO      2645
                                                                                                                 GPO      2646
                                        *         CLEAR LOAD LINKS.                                              FCCA499X   44
                                                                                                                 FCCA499X   45
                     5120001756 +                 SA2    RDDA        LDLNK = RDDA                                FCCA499X   46
                               43700              MX7    0                                                       FCCA499X   47
          2056  0302002060 +             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
          2057  0400002056 +                      EQ     RDD54                                                   FCCA499X   51
                                                                                                                 FCCA499X   52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    75
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
          2060  0301001757 +             RDD56    ZR     X1,RDD      IF DC = 0   */NO DEAD STORES                FCCA499X   53
                          0321002063 +            PL     X1,RDD60    IF DC > 0   */DEAD STORES ONLY              FCCA499X   54
                                                                                                                 GPO      2649
          2061  43601                             MX6    1           L.MOD = 0                                   GPO      2650
                     0100004364 +                 CALL   MPB         RE SQUEEZE AND REWRITE THE BLOCK            GPO      2651
          2062  0400001757 +                      EQ     RDD                                                     GPO      2652
                                                                                                                 GPO      2653
                                                                                                                 GPO      2654
          2063  43600                    RDD60    MX6    0                                                       FCCA499X   55
                     0100004364 +                 CALL   MPB         MOVE THE BLOCK TO *TXT*                     GPO      2656
          2064  0100000000 X                      CALL   CUC#        RESET THE USES COUNTS                       CCGNC     633
          2065  0100000066 +                      CALL   WTB         REWRITE THE BLOCK                           GPO      2658
          2066  0400001757 +                      EQ     RDD                                                     GPO      2659
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2067  0200402067 +             IPS      ROUTINE                                                        GPO      2667
          2070  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
          2073  43353                             MX3    -BI.PIIL                                                GPO      2671
                     15643                        BX6    -X3*X4      PSI = PII[BIW]  */ INDEX TO POST ST INFO    GPO      2672
                          0306002067 +            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
          2074  5110000000 X                      SA1    O.PSI                                                   GPO      2677
                          5120000000 C            SA2    O.UDT                                                   GPO      2678
          2075  36316                             IX3    X1+X6                                                   GPO      2679
                     5170000104 C                 SA7    VI2                                                     GPO      2680
                               63770              SB7    X7          BVA = BVA                                   GPO      2681
          2076  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
          2077  63550                             SB5    X5          N = NPS                                     GPO      2685
                     27046                        PX0    B4,X6                                                   GPO      2686
                          76110                   SX1    B1                                                      GPO      2687
                                                                                                                 GPO      2688
          2100  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
          2101  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
          2102  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
          2103  0550002100 +                      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
          2104  5221000004                        SA2    X1+4        R1 = [O.SEQ+4]  */ FIRST AFTER *BOS*        GPO      2706
                          7110000004              SX1    4                                                       GPO      2707
          2105  26622                             UX6    B2,X2                                                   GPO      2708
                     43300                        MX3    0           II = 0                                      GPO      2709
                          7172777771              SX7    B2-OC.LAB                                               GPO      2710
          2106  0317002107 +                      NZ     X7,IPS2     IF OC[R1] " OC.LAB                          GPO      2711
                          10311                   BX3    X1          II = 4                                      GPO      2712
          2107  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/05. 19.57.21.      PAGE    77
        IPS - INSERT POST STORES                                      IPS                 CODE
  
          2110  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
          2112  20554                             LX5    -ML.NIP+2                                               GPO      2721
                     73150                        ALLOC  MOD,X5      ALLOC( MOD , 12*NPS )                       GPO      2722
          2114  5140000000 X                      SA4    O.PSI                                                   GPO      2723
                          63720                   SB7    X2          TB = O.MOD                                  GPO      2724
                               26630              UX6    B3,X0       N = NPS                                     GPO      2725
          2115  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
          2116  66444                             SB4    B4+B4                     (B4) = 4*NPS                  FCC0656    41
                                                                                                                 GPO      2731
          2117  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
          2120  12621                             BX6    X2+X1                                                   GPO      2737
                     6120000005                   SB2    OC.DEF                                                  GPO      2738
                               43700              MX7    0                                                       GPO      2739
          2121  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
          2122  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
          2123  6120000010                        SB2    OC.XMT      OC = OC.XMT;  R2W = 0                       FCC1025     8
                          0332002125 +            MI     X2,IPS4     IF REG[PI] \ 20B                            FCC1025     9
          2124  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
          2125  0100000124 +             IPS4     RJ     SRI         SRI( OC  MI+4*NPS,MI, R2W )                 FCC1025    13
          2126  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
          2127  15751                             BX7    -X1*X5                                                  GPO      2755
                     20530                        LX5    -PS.UDIP                                                GPO      2756
                          6120000051              SB2    OC.ST                                                   GPO      2757
          2130  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
          2131  6155000004                        SB5    B5+4        MI = MI + 4                                 FCC0656    42
                          0100000136 +            RJ     SMI         SMI( ST  R,,CAIH[PI],UDI[PI] )              FCC0656    43
          2132  54551                             SA5    A5+B1       PI = PI + 1                                 GPO      2764
                     0530002117 +                 NZ     B3,IPS3     IF N " 0                                    GPO      2765
                                                                                                                 GPO      2766
          2133  5150000104 C                      SA5    VI2                                                     FCC0509    11
                          43601                   MX6    1                                                       FCC0509    12
          2134  0100002140 +                      RJ     AUV         MERGE, SQZ BLOCK AND ADJUST BIT VECTORS     FCC0509    13
          2135  0100000000 X                      CALL   RTB#        AND GET IT BACK                             CCGNC     634
          2136  76610                             SX6    B1                                                      GPO      2772
                     0400002067 +                 EQ     IPS                                                     GPO      2773
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2137                           AUVA     BFMW   D,(LD,BM)                                               GPO      2782
                                                                                                                 GPO      2783
          2140  0200402140 +             AUV      ROUTINE                                                        GPO      2784
          2141  5110000011 C                      SA1    SVA                                                     FCC0509    15
                          5120000000 C            SA2    VL                                                      FCC0509    16
          2142  10755                             BX7    X5                                                      FCC0509    17
                     5170000104 C                 SA7    VI2                                                     FCC0509    18
                               36712              IX7    X1+X2                                                   FCC0509    19
          2143  5170000000 X                      SA7    =XSUVA      SUVA = SVA+VL  */ SET FLAG FOR SQZ/SMR      FCC0509    20
                          20201                   LX2    1                                                       FCC0509    21
                               63610              SB6    X1                                                      FCC0509    22
          2144  63726                             SB7    B6+X2                                                   FCC0509    23
                     43700                        MX7    0                                                       FCC0509    24
          2145  56760                    AUV1     SA7    B6          FOR I = 1 TO 2*VL;  SVA(I) = 0              FCC0509    25
                     66661                        SB6    B6+B1                                                   FCC0509    26
                          0767002145 +            LT     B6,B7,AUV1                                              FCC0509    27
                                                                                                                 FCC0509    28
          2146  0100004364 +                      CALL   MPB         MERGE MODS AND SQZ BLOCK                    FCC0509    29
          2147  7170000000                        SX7    0                                                       FCC0509    30
                          5170000000 X            SA7    SUVA        SUVA = 0                                    FCC0509    31
          2150  5150000104 C                      SA5    VI2                                                     FCC0509    32
                          5110000000 X            SA1    =XSTLDS                                                 GPO      2785
          2151  0301002140 +                      ZR     X1,AUV      IF STLDS = 0  */ NO STORE/LD SQUEEZING      GPO      2786
                                                                                                                 GPO      2787
                          5120000011 C            SA2    SVA                                                     GPO      2788
          2152  5130000000 C                      SA3    VL                                                      GPO      2789
                          5110000000 C            SA1    O.UDT                                                   GPO      2790
          2153  5140000000 X                      SA4    O.TXT                                                   GPO      2791
                          22613                   LX6    B1,X3                                                   GPO      2792
                               63430              SB4    X3                        (B4) = VL                     GPO      2793
          2154  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
          2155  5110002137 +                      SA1    AUVA                                                    GPO      2803
                          66211                   SB2    B1+B1                                                   GPO      2804
                               53442              SA4    X4+B2       DI = O.TXT + 2                              GPO      2805
          2156  76710                             SX7    B1                                                      GPO      2806
                     0400002162 +                 EQ     AUV3                                                    GPO      2807
                                                                                                                 GPO      2808
                                        *         SET BIT FOR REFERENCED VARIABLE                                GPO      2809
                                                                                                                 GPO      2810
          2157  20536                    AUV2     LX5    -R1.INP                                                 GPO      2811
                     63350                        SB3    X5          I = IN[R1]                                  GPO      2812
                          0430002162 +            ZR     B3,AUV3     IF I = 0                                    GPO      2813
                                                                                                                 GPO      2814
          2160  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/05. 19.57.21.      PAGE    79
        AUV - ADJUST USE VECTOR                                       AUV                 CODE
  
          2161  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
          2162  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
          2163  0306002162 +                      ZR     X6,AUV3     IF ^( LD[DI] ! BM[DI] )                     GPO      2828
                          0334002157 +            MI     X4,AUV2     IF LD[DI]                                   GPO      2829
                                                                                                                 GPO      2830
          2164  26635                             UX6    B3,X5                                                   GPO      2831
                     0430002167 +                 ZR     B3,AUV4     IF OC[R1] = OC.EOQ  */ END OF SEQ           GPO      2832
          2165  7163777704                        SX6    B3-OC.RJ6                                               GPO      2833
                          0316002162 +            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
          2166  0400002140 +                      EQ     AUV                                                     GPO      2839
                                                                                                                 GPO      2840
                                        *         ADJUST *USE* AND *UBD* BV"S, USE = USE & ^(SVA2 & ^SVA)        FCC0509    34
                                                                                                                 FCC0509    35
          2167  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
          2170  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
          2171  54710                             SA7    A1                                                      FCC0509    44
                     66331                        SB3    B3+B1       I = I + 1                                   FCC0509    45
                          0734002167 +            LT     B3,B4,AUV4  IF I < VL                                   GPO      2850
                                                                                                                 GPO      2851
                                                  PRNTABV  AUV,SVA                                               GPO      2852
          2172  0400002140 +                      EQ     AUV                                                     GPO      2853
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    80
        FEI - FORM ENTRY INFORMATION                                  FEI                 CODE
  
                                        **        FEI - FORM ENTRY INFORMATION                                   FCCA513X   11
                                        *         COMPUTE REGION LIVE ENTRY BIT VECTOR.                          FCCA513X   12
                                                                                                                 FCCA513X   13
          2173  0200402173 +             FEI      ROUTINE                                                        FCCA513X   14
          2174  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
          2200  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
          2201  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
          2202  54620                             SA6    A2                                                      FCCA513X   27
                     67221                        SB2    B2-B1                                                   FCCA513X   28
                          0420002173 +            ZR     B2,FEI      IF VL = 1                                   FCCA513X   29
          2203  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
          2204  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
          2205  54620                             SA6    A2          LEA = ^[BDA] & [LXA] ! [UFA]                FCCA513X   38
                     0520002203 +                 NZ     B2,FEI1                                                 FCCA513X   39
                                                                                                                 FCCA513X   40
          2206  0400002173 +                      EQ     FEI                                                     FCCA513X   41
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2207  0200402207 +             FXI      ROUTINE                                                        GPO      2860
          2210  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
          2214  5120000010 C                      SA2    MDA                                                     GPO      2886
          2215  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
          2216  0732002215 +                      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
          2217  54211                             SA2    A1+B1                                                   GPO      2897
                     43001                        MX0    1                                                       GPO      2898
                          5130000035 +            SA3    O.BTT                                                   GPO      2899
          2220  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
          2221  55551                    FXI4     SA5    A5-B1       IP = IP - 1                                 GPO      2906
                                                  LX5    59-IM.SCRP                                              GPO      2907
                     0325002221 +                 PL     X5,FXI4     IF ^SCR[IP]                                 GPO      2908
                                                                                                                 GPO      2909
                                                  LX5    1+IM.SCRP-IM.BNP                                        GPO      2910
                               53457              SA4    B7+X5                                                   GPO      2911
          2222  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
          2223  0325002221 +                      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
          2224  5120000015 +                      SA2    O.BIT                                                   GPO      2920
                          43600                   MX6    0                                                       GPO      2921
                               56670              SA6    B7          BTT(0) = 0                                  GPO      2922
          2225  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
          2226  63610                             SB6    X1          EIB = [EIT]   */ BASE OF EDGE INDEX TABLE   GPO      2927
                     63420                        SB4    X2                        (B4) = [O.BIT]                GPO      2928
                                                                                                                 GPO      2929
          2227  55551                    FXI5     SA5    A5-B1       IP = IP - 1                                 GPO      2930
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    82
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
                                                  LX5    59-IM.SCRP                                              GPO      2931
                     0325002227 +                 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
          2230  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
          2231  53237                             SA2    B7+X3       B = BTT(J)                                  GPO      2943
                     67331                        SB3    B3-B1       N = N - 1                                   GPO      2944
                                                  LX2    59-E.SCRP                                               GPO      2945
                          0332002241 +            MI     X2,FXI8     IF SCR[B]     */ SUCC IS IN *SCR*           GPO      2946
                                                                                                                 GPO      2947
          2232  43163                             MX1    -E.NPREDL                                               GPO      2948
                     20214                        LX2    1+E.SCRP-E.NPREDP                                       GPO      2949
                          15621                   BX6    -X1*X2                                                  GPO      2950
          2233  0316002237 +                      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
          2234  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
          2235  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
          2236  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
          2237  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
          2240  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
          2241  54331                    FXI8     SA3    A3+B1       SI = SI + 1                                 GPO      2974
                     0530002231 +                 NZ     B3,FXI6     IF N " 0                                    GPO      2975
                                                                                                                 GPO      2976
                               20505              LX5    59-IM.HNP+IM.BNP                                        GPO      2977
          2242  0325002227 +                      PL     X5,FXI5     IF ^HN[IP]                                  GPO      2978
                                                                                                                 GPO      2979
                          20523                   LX5    1+IM.HNP-IM.BIP                                         GPO      2980
                               73650              SX6    X5                                                      GPO      2981
          2243  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/05. 19.57.21.      PAGE    83
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2244  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
          2245  5150000002 C                      SA5    BVL                                                     GPO      2995
                          7235000002              SX3    X5+2                                                    GPO      2996
          2246  42273                             IX2    X7*X3                                                   GPO      2997
                     7212000002                   ALLOC  RXI,X2+2    ALLOC( RXI , NX*(BVL+2)+2 )                 GPO      2998
          2250  43700                             MX7    0                                                       GPO      2999
                     53720                        SA7    X2          RI = [O.RXI];  [RI] = 0                     GPO      3000
                          5110000015 +            SA1    O.BIT                                                   GPO      3001
          2251  5120000006 C                      SA2    LXA                                                     GPO      3002
                          5130000010 C            SA3    MDA                                                     GPO      3003
          2252  5140000031 C                      SA4    O.ENL                                                   GPO      3004
                          63451                   SB4    X5+B1       VL = BVL + 1                                GPO      3005
                               66544              SB5    B4+B4                                                   GPO      3006
          2253  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
          2254  0304002304 +                      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
          2255  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
          2256  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
          2257  15774                             BX7    -X4*X7                                                  FCC0392    99
                     0307002273 +                 ZR     X7,FXI11    IF NPRED[XW] = 0                            FCC0392   100
                               56162              SA1    B6+B2                                                   FCC0392   101
          2260  20105                             LX1    59-BI.HNP                                               FCC0392   102
                     0321002270 +                 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
          2261  5120000037 +                      SA2    L.HNT                                                   FCC0392   108
                          5110000036 +            SA1    O.HNT                                                   FCC0392   109
          2262  53620                             SA6    X2          [L.HNT] = I   */ SEARCH TERMINATOR          FCC0392   110
                     53110                        SA1    X1          HI = [O.HNT]                                FCC0392   111
                                                                                                                 FCC0392   112
          2263  10211                    FXI9A    BX2    X1          HIL = [HI]                                  FCC0392   113
                     63310                        SB3    X1                                                      FCC0392   114
                          5011000001              SA1    A1+1        HI = HI + 1                                 FCC0392   115
          2264  0523002263 +                      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/05. 19.57.21.      PAGE    84
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2265  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
          2266  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
          2267  0307002273 +                      ZR     X7,FXI11    IF NPRED[XW] = NIP[HIL]                     FCC0985    10
                                                                                                                 FCC0392   129
          2270  10755                    FXI10    BX7    X5                                                      FCC0392   130
                     76000                        SX0    B0          PSP = 0                                     GPO      3019
                          20701                   LX7    59-E.JPP                                                GPO      3020
          2271  0337002273 +                      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
          2272  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
          2273  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
          2274  5120000017 +                      SA2    O.BVT                                                   GPO      3042
                          20555                   LX5    -E.LINKP                                                GPO      3043
                                                  LX3    -BI.BVIP                                                GPO      3045
                               63220              SB2    X2                                                      GPO      3046
          2275  66300                             SB3    B0          J = 0                                       GPO      3047
                     63232                        SB2    B2+X3       BVA = O.BVT + BVI[BIT(I)]                   GPO      3048
                                                                                                                 GPO      3049
          2276  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
          2277  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
          2300  54640                             SA6    A4                                                      GPO      3058
                     0310002302 +                 NZ     X0,FXI13    IF PSP " 0                                  GPO      3059
                               54203              SA2    A0+B3       MDW = [MDA+J]                               GPO      3060
          2301  15627                             BX6    -X7*X2      MDW = MDW & ^LEW                            GPO      3061
                     54620                        SA6    A2                                                      GPO      3062
                                                                                                                 GPO      3063
          2302  66331                    FXI13    SB3    B3+B1       J = J + 1                                   GPO      3064
                     66221                        SB2    B2+B1       BVA = BVA + 1                               GPO      3065
                          0734002276 +            LT     B3,B4,FXI12 IF J < VL                                   GPO      3066
                                                                                                                 GPO      3067
          2303  73450                             SX4    X5          XI = LINK[XW]                               GPO      3068
                     53550                        SA5    X5          XW = [XI]                                   GPO      3069
                          0314002255 +            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/05. 19.57.21.      PAGE    85
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2304  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
                          0400002207 +            EQ     FXI                                                     GPO      3078
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2305  0200402305 +             SHB      ROUTINE                                                        GPO      3084
          2306  7170000000                        SX7    0           BSI = 0                                     GPO      3085
                          5170000032 +            SA7    BSI                                                     GPO      3086
          2307  0306002322 +                      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
          2310  0100000000 X                      CALL   RTB#        GET HOLDING BLOCK POINTERS                  CCGNC     635
          2311  5150000034 +                      SA5    L.HB                                                    GPO      3093
                          5140000000 X            SA4    L.MOD                                                   GPO      3094
          2312  36245                             IX2    X4+X5                                                   GPO      3095
                     7212777773                   ALLOC  TXT,X2-4    ALLOC( TXT , L.HB + L.MOD-4 )               GPO      3096
          2314  36025                             IX0    X2+X5       FM = O.TXT + L.HB                           GPO      3097
                     73320                        SX3    X2                                                      GPO      3098
                          5120000027 +            SA2    O.SEQ                                                   GPO      3099
          2315  73150                             MOVE   X5,X2,X3    MOVE( L.HB , O.SEQ , O.TXT )                GPO      3100
          2316  5110000000 X                      SA1    L.MOD                                                   GPO      3101
                          5120000000 X            SA2    O.MOD                                                   GPO      3102
          2317  7211777773                        MOVE   X1-4,X2+4,X0      MOVE( L.MOD-4 , O.MOD+4 , FM )        GPO      3103
          2321  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
          2322  7110000004               SHB1     ALLOC  TXT,4                                                   GPO      3109
          2324  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
          2325  0100000124 +                      RJ     SRI         SRI( EOQ  0,0 )                             GPO      3114
          2326  7160000004                        SX6    4                                                       GPO      3115
                          7176777767              SX7    B6-8                                                    GPO      3116
          2327  0307002332 +                      ZR     X7,SHB2     IF L.TXT = 8  */ NOTHING MOVED TO HB        GPO      3117
                          7160000001              SX6    1                                                       GPO      3118
          2330  0100000000 X                      CALL   SQZB#       SQUEEZE THE BLOCK                           CCGNC     636
          2331  5110000000 X                      SA1    L.TXT                                                   GPO      3120
                          7261777773              SX6    X1-4                                                    GPO      3121
                                                                                                                 GPO      3122
          2332  5120000000 X             SHB2     SA2    O.TXT                                                   GPO      3123
                          7276000004              SX7    X6+4                                                    GPO      3124
          2333  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
          2334  0100000000 X                      CALL   WMB#        WRITE HOLDING BLOCK TO *BLK*                CCGNC     637
                                                                                                                 GPO      3129
                                                  TRACE  SHB,RLIST                                               GPO      3130
          2335  0400002305 +                      EQ     SHB                                                     GPO      3131
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2336  0200402336 +             MII      ROUTINE                                                        GPO      3150
          2337  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
          2340  20430                             LX4    -IM.BIP                                                 GPO      3155
                     63340                        FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      3156
                               73772              SX7    X7+B2                                                   GPO      3157
          2343  5170000110 C                      SA7    UBD         UBD = BVA + VL                              GPO      3158
                          6130000003              SB3    3                                                       GPO      3159
          2344  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
          2345  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
          2346  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
          2347  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
          2350  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
          2351  26621                             UX6    B2,X1                                                   GPO      3180
                     7172777771                   SX7    B2-OC.LAB                                               GPO      3181
          2352  0317002362 +                      NZ     X7,MII2     IF OC[R1+4] " OC.LAB                        GPO      3182
                                                                                                                 GPO      3183
                          54510                   SA5    A1          R1 = R1 + 4   */ SKIP INITIAL LABEL         GPO      3184
          2353  0400002362 +                      EQ     MII2                                                    GPO      3185
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    88
        MII - MARK INVARIANT INSTRUCTIONS                             MII                 MII 
  
                                        *         OPERANDS *INV*, MARK INSTRUCTION AS *INV*                      GPO      3187
                                                                                                                 GPO      3188
          2354  5025000002               MII1     SA2    A5+2        DI = R1 + 2                                 GPO      3189
                          5110000107 C            SA1    AN                                                      GPO      3190
          2355  20240                             LX2    59-D.USIP                                               GPO      3191
                     16312                        BX3    -X2+X1                                                  GPO      3192
                          0333002360 +            MI     X3,MII1A    IF AN ! ^USI[DI]  */ SAFE TO MOVE           GPO      3193
          2356  7160000001                        SX6    1                                                       GPO      3194
                          5160000112 C            SA6    UIC         UIC = 1       */ INDICATE UNSAFE INV CODE   GPO      3195
          2357  0400002362 +                      EQ     MII2                                                    GPO      3196
                                                                                                                 GPO      3197
          2360                                    PROCESS (LDC,LDV)                                              CCG16     203
          2360  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
          2361  54753                             SA7    A5+B3       LII = R1 + 3                                GPO      3203
                                                                                                                 GPO      3204
                                        *         GET NEXT INSTRUCTION AND JUMP TO PROCESSOR                     GPO      3205
                                                                                                                 GPO      3206
          2362                                    PROCESS (DAR,DEF,NOP)                                          GPO      3207
          2362  5055000004               MII2     SA5    A5+4        R1 = R1 + 4                                 GPO      3208
                          26625                   UX6    B2,X5                                                   GPO      3209
          2363  0222002634 +                      JP     MII.JT+B2   JUMP( MII.JT( OC[R1] )                      GPO      3210
  
  
                                2360 +   TYII     EQU    MII1A                     */ TYPE II ARE *INV*          GPO      3212
                                                                                                                 GPO      3213
                                2362 +   TYIV     EQU    MII2                      */ TYPE IV ARE NOT INV        GPO      3214
  
  
  
                                        *         LD - CHECK *UDI* TO SEE IF *INV* IN REGION                     GPO      3216
                                                                                                                 GPO      3217
          2364                                    PROCESS ILD                                                    FCC0885     6
          2364  6120000050                        SB2    OC.LD       OC = OC.LD                                  FCC0885XA   5
                                         .^PLI    IFNE   HC.ID,3     ^ PL/I                                      FCC0885XA   6
                          5140000000 X            SA4    IT.                                                     FCC0885XA   7
          2365  54351                             SA3    A5+B1                                                   FCC0885XA   8
                     13634                        BX6    X3-X4                                                   FCC0885XA   9
                          73760                   SX7    X6                                                      FCC0885XA  10
          2366  0317002367 +                      NZ     X7,ILD1     IF IH[R2] " IT.                             FCC0885XA  11
                          6120000076              SB2    OC.TLD                                                  FCC0885XA  12
                                                                                                                 FCC0885XA  13
                                         .^PLI    ENDIF              ^ PL/I                                      FCC0885XA  14
          2367  27625                    ILD1     PX6    B2,X5       OC[R1] = OC   */ INHIBIT ST/ILD SQZ         FCC0885XA  15
                     54650                        SA6    A5                                                      FCC0885     9
                                                                                                                 FCC0885    10
          2370                                    PROCESS (LD,TLD)                                               FCCA506X    4
          2370  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
          2371  15740                             BX7    "RN"X4                                                  GPO      3223
                     0317002374 +                 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/05. 19.57.21.      PAGE    89
        MII - MARK INVARIANT INSTRUCTIONS                             LD                  MII 
  
          2372  76610                             SX6    B1                                                      FCC1504X   12
                     20251                        LX2    -D.RFP                                                  FCC1504X   13
                          11662                   BX6    X6*X2                                                   FCC1504X   14
                               20654              LX6    UD.RFP                                                  FCC1504X   15
          2373  12663                             BX6    X6+X3       RF[UI] = RF[UI] ! RF[DI]                    FCC1504X   16
                     54630                        SA6    A3                                                      FCC1504X   17
          2374  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
                          0326002362 +            PL     X6,MII2     IF ^( ^DEFR[UI] & INV[LF] )                 GPO      3228
          2375  20305                             LX3    UD.DEFRP-UD.ISTP                                        FCC1040A    4
                     0333002362 +                 MI     X3,MII2     IF IST[UI]    */ INTERFERING STORE          FCC1040A    5
          2376  5130000107 C                      SA3    AN                                                      FCC1584X    5
                          0333002360 +            MI     X3,MII1A    IF AN < 0     */ SAFE TO MOVE               FCC1584X    6
          2377  0307002360 +                      ZR     X7,MII1A    IF RF[R2] = 0 */ NO SUBSCRIPT               FCC1584X    7
                          5130000000 X            SA3    =XHO$UO                                                 CCGA029     5
          2400  0303002362 +                      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
          2401  7162777727                        SX6    B2-OC.LD                                                FCC1584X   10
                          0316002360 +            NZ     X6,MII1A    IF OC[R1F] " OC.LD                          FCC1584X   11
          2402  54231                             SA2    A3+B1                                                   FCC1584X   12
                     20230                        LX2    -IH.RFP                                                 FCC1584X   13
                          15720                   BX7    "RN"X2                                                  FCC1584X   14
          2403  0317002362 +                      NZ     X7,MII2     IF RF[R2F] " 0  */ DONT MOVE A(B(I))        FCC1584X   15
                          0400002354 +            EQ     MII1                                                    GPO      3229
  
  
  
                                        *         TYPE I , INV(I) = INV(J) & INV(K)                              GPO      3231
                                                                                                                 GPO      3232
          2404  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
          2405  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
          2406  0336002354 +                      MI     X6,MII1     IF INV[LJ] & INV[LK]                        GPO      3241
                          0400002362 +            EQ     MII2                                                    GPO      3242
                                                                                                                 GPO      3243
                                        *         TYPE 1 - 2 RESULTS                                             GPO      3244
                                                                                                                 GPO      3245
          2407                                    PROCESS (NR,UP,RNZ)                                            GPO      3246
          2407  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
          2410  0334002354 +                      MI     X4,MII1     IF INV[LK]                                  GPO      3251
                          0400002362 +            EQ     MII2                                                    GPO      3252
                                                                                                                 GPO      3253
                                        *         CONSTANT SHIFTS                                                GPO      3254
                                                                                                                 GPO      3255
          2411                                    PROCESS (KLS,KRS)                                              GPO      3256
          2411  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3257
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2412  0333002354 +                      MI     X3,MII1     IF INV[LF]                                  GPO      3261
                          0400002362 +            EQ     MII2                                                    GPO      3262
  
  
                                        **        IM - MAY BE UNSAFE IF CONDITIONALLY EXECUTED                   FCC0238AX   7
                                                                                                                 FCC0238AX   8
          2413                                    PROCESS IM                                                     FCC0238AX   9
          2413  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
          2414  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
          2415  0326002362 +                      PL     X6,MII2     IF ^(INV[LJ] & INV[LK])                     FCC0238AX  18
                          5120000107 C            SA2    AN                                                      FCC0238AX  19
          2416  0332002360 +                      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
          2417  0100000000 X                      CALL   CMO                                                     FCC0238AX  27
          2420  55231                             SA2    A3-B1       DK = LK - 1                                 FCC0238AX  28
                     0306002423 +                 ZR     X6,IM1      IF CMO(DJ) = 0  */ J OP IS SAFE             FCC0238AX  29
          2421  0100000000 X                      CALL   CMO                                                     FCC0238AX  30
          2422  0306002425 +                      ZR     X6,IM2      IF CMO(DK) = 0  */ K OP IS SAFE             FCC0238AX  31
                          0400002362 +            EQ     MII2                                                    FCC0238AX  32
                                                                                                                 FCC0238AX  33
          2423  0100000000 X             IM1      CALL   CMO                                                     FCC0238AX  34
          2424  0306002360 +                      ZR     X6,MII1A    IF CMO(DK) = 0  */ K OP IS SAFE             FCC0238AX  35
                                                                                                                 FCC0238AX  36
          2425  5045000002               IM2      SA4    A5+2        DI = R1 + 2                                 FCC0238AX  37
                          76310                   SX3    B1                                                      FCC0238AX  38
                               20333              LX3    D.USIP                                                  FCC0238AX  39
          2426  12634                             BX6    X3+X4       USI[DI] = 1   */ MARK AS UNSAFE             FCC0238AX  40
                     54640                        SA6    A4                                                      FCC0238AX  41
                          0400002360 +            EQ     MII1A                                                   FCC0238AX  42
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    91
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
                                        *         STT , IA, IS - CHECK FOR =(I+INV)                              GPO      3264
                                                                                                                 GPO      3265
          2427                                    PROCESS STT                                                    GPO      3266
          2427  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
          2430  0334002354 +                      MI     X4,MII1     IF INV[LJ]                                  GPO      3273
                                                                                                                 GPO      3274
                          5014777774              SA1    A4-3        R1P = LJ - 3                                GPO      3275
          2431  0420002451 +                      ZR     B2,IA2      IF IH[R2] = 0                               GPO      3276
                                                                                                                 GPO      3277
                          0400002362 +            EQ     MII2                                                    GPO      3278
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    92
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
          2432                                    PROCESS (IA,IS)                                                GPO      3280
          2432  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
          2433  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
          2434  0336002360 +                      MI     X6,MII1A    IF INV[LJ] & INV[LK]                        FCC0716     9
                                                  LX7    59-I.INVP                                               GPO      3291
                          0327002362 +            PL     X7,MII2     IF ^( INV[LJ] ! INV[LK] )                   GPO      3292
                                                                                                                 GPO      3293
          2435  75743                             SX7    A4-B3       R1P = LJ - 3                                GPO      3294
                     55231                        SA2    A3-B1       DP = LK - 1                                 GPO      3295
                                                  LX4    59-I.INVP                                               GPO      3296
                          0324002440 +            PL     X4,IA1      IF ^INV[LJ]                                 GPO      3297
          2436  6122777740                        SB2    B2-OC.IS                                                GPO      3298
                          0420002362 +            ZR     B2,MII2     IF OC[R1] = OC.IS  */ INV - I CASE          GPO      3299
          2437  75733                             SX7    A3-B3       R1P = LK - 3                                GPO      3300
                     55241                        SA2    A4-B1       DP = LJ - 1                                 GPO      3301
                                                                                                                 GPO      3302
          2440  20241                    IA1      LX2    59-D.ZPP                                                GPO      3303
                     53170                        SA1    X7                                                      GPO      3304
                          0322002362 +            PL     X2,MII2     IF ^ZP[DP]    */ INV OP IS ^ZP              CCG36       5
          2441  5022777775                        SA2    A2-2        R1P = DP - 2                                CCG36       6
                          26622                   UX6    B2,X2                                                   CCG36       7
          2442  7162777734                        SX6    B2-OC.FMA                                               CCG36       8
                          0316002445 +            NZ     X6,IA1A     IF OC[R1P] " OC.FMA                         CCG36       9
          2443  20236                             LX2    -R1.INP                                                 CCG36      10
                     7262777732                   SX6    X2-37                                                   CCG36      11
          2444  0336002362 +                      MI     X6,MII2     IF IN[R1P] < 37  */ MASK VALUE TOO BIG      CCG36      12
                          0400002451 +            EQ     IA2                                                     CCG36      13
                                                                                                                 CCG36      14
          2445  7162777674               IA1A     SX6    B2-OC.LDC                                               CCG36      15
                          0316002451 +            NZ     X6,IA2      IF OC[R1P] " OC.LDC                         CCG36      16
          2446  54221                             SA2    A2+B1       R2P = R1P + 1                               CCG36      17
                     5130000000 X                 SA3    =XO$CVT                                                 CCG36      18
                               20252              LX2    -IH.CAP                                                 CCG36      19
          2447  63230                             SB2    X3                                                      CCG36      20
                     53222                        SA2    B2+X2       C = CVT(CA[R2+])                            CCG36      21
                          21227                   AX2    23                                                      CCG36      22
          2450  0312002362 +                      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
          2451  26721                    IA2      UX7    B2,X1                                                   GPO      3309
                     7142777727                   SX4    B2-OC.LD                                                GPO      3310
                               20136              LX1    -R1.INP                                                 GPO      3311
          2452  0314002362 +                      NZ     X4,MII2     IF OC[R1P] " OC.LD                          GPO      3312
                          53216                   SA2    "UB"+X1                                                 GPO      3313
                               20204              LX2    59-UD.^RDP                                              GPO      3314
          2453  0332002362 +                      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/05. 19.57.21.      PAGE    93
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
          2454  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
          2455  0400002362 +                      EQ     MII2                                                    GPO      3323
  
  
                                        *         JUMP PROCESSING, CHECK FOR LABEL SUBSTITUTION, BUMP N.LJ       GPO      3325
                                                                                                                 GPO      3326
          2456                                    PROCESS UJP                                                    GPO      3327
          2456  5130000025 C                      SA3    LIH                                                     GPO      3328
                          13453                   BX4    X5-X3                                                   GPO      3329
                               63240              SB2    X4                                                      GPO      3330
          2457  0520002473 +                      NZ     B2,JPX2     IF IH[R1] " LIH                             GPO      3331
                                                                                                                 GPO      3332
                          5120000027 C            SA2    N.LJ                                                    GPO      3333
          2460  5130000016 C                      SA3    LGL                                                     GPO      3334
                          43701                   MX7    1                                                       GPO      3335
                               12672              BX6    X7+X2       N.LJ = N.LJ ! 1S59  */ INHIBIT PREFETCHING  GPO      3336
          2461  54620                             SA6    A2                                                      GPO      3337
                     0303002473 +                 ZR     X3,JPX2     IF LGL = 0    */ NO LABEL SUBSTITUTION      GPO      3338
                               21322              AX3    18                                                      GPO      3339
          2462  36635                             IX6    X3+X5       IH[R1] = SHIFT( LGL , -18 )                 GPO      3340
                     54650                        SA6    A5                                                      GPO      3341
                          0400002473 +            EQ     JPX2                                                    GPO      3342
  
  
          2463                                    PROCESS JPX                                                    GPO      3344
          2463  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3345
                     5130000025 C                 SA3    LIH                                                     GPO      3346
                               13734              BX7    X3-X4                                                   GPO      3347
          2464  63270                             SB2    X7                                                      GPO      3348
                     0520002471 +                 NZ     B2,JPX1     IF IH[R2] " LIH                             GPO      3349
                                                                                                                 GPO      3350
          2465  5120000027 C                      SA2    N.LJ                                                    GPO      3351
                          5130000016 C            SA3    LGL                                                     GPO      3352
          2466  76710                             SX7    B1                                                      FCCA462     9
                     36672                        IX6    X7+X2       N.LJ = N.LJ + 1                             FCCA462    10
                          54620                   SA6    A2                                                      GPO      3354
          2467  0303002471 +                      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
          2470  5064000000                        SA6    A4+                                                     GPO      3358
                                                                                                                 GPO      3359
          2471  15650                    JPX1     BX6    "RN"X5                                                  GPO      3360
                     53467                        SA4    "TB"+X6     LI = TB + RI[R1]                            GPO      3361
                                                  LX4    59-I.INVP                                               GPO      3362
                          0324002473 +            PL     X4,JPX2     IF ^INV[LI]                                 GPO      3363
                                                                                                                 GPO      3364
          2472  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
          2473                                    PROCESS (LAB,JPBB)                                             GPO      3369
          2473  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/05. 19.57.21.      PAGE    94
        MII - MARK INVARIANT INSTRUCTIONS                             JPX                 MII 
  
          2474  54630                             SA6    A3                                                      CCG34       8
                     0400002362 +                 EQ     MII2                                                    GPO      3372
  
  
                                        *         JIN - INDEXED JUMP ( COMPUTED OR ASSIGNED GOTO )               FCC0909    10
                                                                                                                 FCC0909    11
          2475                                    PROCESS JIN                                                    GPO      3374
          2475  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
          2476  54620                             SA6    A2                                                      GPO      3378
                     5130000107 C                 SA3    AN                                                      FCC0909    12
          2477  5120000016 C                      SA2    LGL                                                     FCC0909    13
                          20301                   LX3    IM.APP-IM.LNP                                           FCC0909    14
                               54451              SA4    A5+B1       R2 = R1 + 1                                 FCC0909    15
          2500  0323002473 +                      PL     X3,JPX2     IF ^LN[AN]                                  FCC0909    16
                          0302002473 +            ZR     X2,JPX2     IF LGL = 0    */ NO LABEL CHANGE            FCC0909    17
          2501  63240                             SB2    X4                                                      FCC0909    18
                     0520002473 +                 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
          2502  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
          2503  54640                             SA6    A4                                                      FCC0909    29
                     0400002473 +                 EQ     JPX2                                                    GPO      3379
  
  
  
                                        *         RJXJ - CONDITIONAL RETURN JUMP                                 CCG2        2
                                                                                                                 CCG2        3
          2504                                    PROCESS RJXJ                                                   CCG2        4
          2504  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
          2505  11634                             BX6    X3*X4                                                   CCG2        9
                                                  LX6    59-I.INVP                                               CCG2       10
                     0326002362 +                 PL     X6,MII2     IF ^(INV[LI] & INV[LF])                     CCG2       11
          2506  0400002360 +                      EQ     MII1A                                                   CCG2       12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    95
        MII - MARK INVARIANT INSTRUCTIONS                             TST                 MII 
  
                                        *         TST -  DEFINITION POINT OF MOVED INSTRUCTION                   FCC1254    22
                                                                                                                 FCC1254    23
          2507                                    PROCESS TST                                                    FCC1254    24
          2507  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
          2510  0324002362 +                      PL     X4,MII2     IF ^INV[LI]                                 FCC1254    29
                                                                                                                 FCC1254    30
                          54151                   SA1    A5+B1       R2 = R1 + 1                                 FCC1254    31
                               63230              SB2    X3                                                      FCC1254    32
          2511  20152                             LX1    -IH.CAP                                                 FCC1254    33
                     53212                        SA2    B2+X1                                                   FCC1254    34
                                                  LX2    59-T.INVP                                               FCC1254    35
                          0322002362 +            PL     X2,MII2     IF ^INV[TET(CA[R2])]                        FCC1254    36
          2512  0400002360 +                      EQ     MII1A                                                   FCC1254    37
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    96
        MII - MARK INVARIANT INSTRUCTIONS                             RS                  MII 
  
                                        *         REGISTER STORE PROCESSING                                      GPO      3381
                                                                                                                 GPO      3382
          2513                                    PROCESS RS                                                     GPO      3383
          2513  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
          2514  0306002525 +                      ZR     X6,RS1      IF LKT = 0    */ UJP LOCK                   GPO      3389
                          6226777775              SB2    X6-2                                                    GPO      3390
          2515  0720002362 +                      LT     B2,MII2     IF LKT = 1    */ TEMP LOCK                  GPO      3391
                          0324002362 +            PL     X4,MII2     IF ^INV[LI]                                 GPO      3392
                                                                                                                 GPO      3393
          2516  0702002354 +                      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
          2517  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
          2520  20551                             LX5    -R1.SOP-SO.RTP                                          GPO      3404
                     15457                        BX4    -X7*X5                                                  GPO      3405
                          0304002522 +            ZR     X4,RS0      IF SORT[R1] = 0  */ RS TO A B-REG           GPO      3406
          2521  55353                             SA3    A5-B3       R2P = R1 - 3                                GPO      3407
                                                  LX3    59-IH.LDP                                               GPO      3408
                     0323002362 +                 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
          2522  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
          2523  54730                             SA7    A3          LII = LJP                                   GPO      3417
                     43600                        MX6    0                                                       GPO      3418
                          54640                   SA6    A4          [LIP] = 0                                   GPO      3419
          2524  0400002362 +                      EQ     MII2                                                    GPO      3420
                                                                                                                 GPO      3421
                                        *         *UJP* RS , PRECEEDING A FUNCTION CALL                          GPO      3422
                                                                                                                 GPO      3423
          2525  0334002527 +             RS1      MI     X4,RS2      IF INV[LI]                                  GPO      3424
                          5100777776              SA0    -1          FAC = 0       */ INDICATE ^INV OPERAND      GPO      3425
          2526  0400002362 +                      EQ     MII2                                                    GPO      3426
                                                                                                                 GPO      3427
          2527  74600                    RS2      SX6    A0                                                      GPO      3428
                     0336002362 +                 MI     X6,MII2     IF FAC < 0    */ PREVIOUS ARG NOT INV       GPO      3429
                               20622              LX6    I.IICP                                                  GPO      3430
          2530  54653                             SA6    A5+B3       IIC[R1+3] = FAC  */ CHAIN THIS TO LAST      GPO      3431
                     55067                        SA0    A6-"TB"     FAC = R1+3 - TB                             GPO      3432
                          0400002362 +            EQ     MII2                                                    GPO      3433
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    97
        MII - MARK INVARIANT INSTRUCTIONS                             RJ3                 MII 
  
                                        *         RJ3 - CHECK FOR *BEF* AND ARGS INVARIANT                       GPO      3435
                                                                                                                 GPO      3436
          2531                                    PROCESS (RJ3,RJ6)                                              CCG1       88
          2531  5110000107 C                      SA1    AN                                                      GPO      3438
                          64200                   SB2    A0          AC = FAC                                    GPO      3439
                               56000              SA0    B0          FAC = 0                                     GPO      3440
          2532  0321002362 +                      PL     X1,MII2     IF ^AN        */ ON A SIDE BRANCH           GPO      3441
                          0602002362 +            LE     B2,MII2     IF AC @ 0     */ ARGS NOT INV               GPO      3442
          2533  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
          2534  7236777775                        SX3    X6-2                                                    GPO      3447
                          0313002362 +            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
          2535  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
          2536  63230                             SB2    X3          AC = IIC[LIP]                               GPO      3457
                     54630                        SA6    A3                                                      GPO      3458
                          0520002535 +            NZ     B2,RJ31     IF AC " 0                                   GPO      3459
                                                                                                                 GPO      3460
                                        *         MARK RJ3 AND DEFS FOLLOWING AS *INV*                           GPO      3461
                                                                                                                 GPO      3462
          2537  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
          2540  54571                             SA5    A7+B1       R1 = LII + 1                                GPO      3467
                     26125                        UX1    B2,X5                                                   GPO      3468
                          7122777772              SX2    B2-OC.DEF                                               GPO      3469
          2541  0302002537 +                      ZR     X2,RJ32     IF OC[R1] = OC.DEF                          GPO      3470
                          5055000004              SA5    A5+4                                                    CCG0218     5
          2542  26125                             UX1    B2,X5                                                   CCG0218     6
                     7122777772                   SX2    B2-OC.DEF                                               CCG0218     7
          2543  0302002545 +                      ZR     X2,RJ32A    IF OC[R1] = OC.DEF                          CCG0218     8
                          5055777773              SA5    A5-4                              */ BACK UP            CCG0218     9
          2544  26125                             UX1    B2,X5                                                   CCG0218    10
                     0400002547 +                 EQ     RJ32B                                                   CCG0218    11
                                                                                                                 CCG0218    12
          2545  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
          2546  54571                             SA5    A7+B1       R1 = LII + 1                                CCG0218    17
                     26125                        UX1    B2,X5                                                   CCG0218    18
                                                                                                                 GPO      3471
          2547  5130000107 C             RJ32B    SA3    AN                                                      CCG0218    19
                          0303002554 +            ZR     X3,RJ33     IF AN = 0     */ MII CALLED FROM *CIF*      FCC1254    40
          2550  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
          2551  54630                             SA6    A3                                                      FCC1254    44
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    98
        MII - MARK INVARIANT INSTRUCTIONS                             RJ3                 MII 
  
                     0316002554 +                 NZ     X6,RJ33     IF XRF " 0                                  FCC1254    45
                                                                                                                 FCC1254    46
          2552  5130000051 +                      SA3    MRA.X                                                   FCC1254    47
                          10633                   BX6    X3          MRA = MRA.X   */ MAKE REGS AVAIL IN *GRA*   FCC1254    48
          2553  5160000015 C                      SA6    MRA                                                     FCC1254    49
                                                                                                                 FCC1254    50
          2554  0222002634 +             RJ33     JP     MII.JT+B2   JUMP( MII.JT( OC[R1] ) )                    FCC1254    51
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE    99
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
                                        *         ST - SEE IF MOVABLE OR A RECURSIVE DEFINITION                  GPO      3491
                                                                                                                 GPO      3492
          2555                                    PROCESS ST                                                     GPO      3493
          2555  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
          2556  20330                             LX3    -IH.RFP                                                 GPO      3498
                     73730                        SX7    X3                                                      GPO      3499
                          0317002362 +            NZ     X7,MII2     IF RF[R2] " 0 */ LEAVE INDEXED STORES ALONE GPO      3500
                                                                                                                 GPO      3501
          2557  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
          2560  11712                             BX7    X1*X2                                                   GPO      3506
                     0420002606 +                 ZR     B2,ST3      IF IN[R1] = 0 */ AP/IO LIST STORE           GPO      3507
                                                                                                                 GPO      3508
          2561  0327002576 +                      PL     X7,ST1      IF ^( AN & INV[LI] )                        GPO      3509
                          43663                   MX6    -UD.STCL                                                GPO      3510
                               20656              LX6    UD.STCP+1                                               GPO      3511
          2562  15146                             BX1    -X6*X4                                                  GPO      3512
                     0311002576 +                 NZ     X1,ST1      IF ^( STC[UI] = 1 & IST[UI] = 0 )           GPO      3513
                                                                                                                 GPO      3514
                               54341              SA3    A4+B1       U2 = UI + 1                                 GPO      3515
          2563  5110000110 C                      SA1    UBD                                                     GPO      3516
                          5140000007 C            SA4    LEA                                                     FCCA513X   48
          2564  26723                             UX7    B2,X3       B = BITN[U2]                                GPO      3517
                     36617                        IX6    X1+X7                                                   GPO      3518
                          5130000005 C            SA3    UVA                                                     GPO      3519
          2565  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
          2566  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
          2567  20773                             LX7    59                                                      GPO      3525
                     53456                        SA4    "UB"+X5     RESET UI                                    FCCA513X   52
                          0337002576 +            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
          2570  5130002613 +                      SA3    STA                                                     FCC0408    87
                          15643                   BX6    -X3*X4      (DEFR,^RD,STC)[UI] = 0  */ SO LD"S CAN MOVE FCC0408    88
          2571  5130000000 C                      SA3    VL                                                      FCC0408    89
                          76710                   SX7    B1                                                      GPO      3535
                               54640              SA6    A4                                                      GPO      3536
          2572  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
          2573  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/05. 19.57.21.      PAGE   100
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
          2574  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
          2575  0400002354 +                      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
          2576  20404                    ST1      LX4    59-UD.^RDP                                              GPO      3555
                     0334002362 +                 MI     X4,MII2     IF ^RD[UI]                                  GPO      3556
                               20203              LX2    I.INVP-I.IAP                                            GPO      3557
          2577  0322002604 +                      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
          2600  13152                             BX1    X5-X2                                                   GPO      3562
                     63210                        SB2    X1                                                      GPO      3563
                          0520002604 +            NZ     B2,ST2      IF LDI[LI] " IN[R1]  */ NOT  I = I+INV      GPO      3564
          2601  64221                             SB2    A2+B1                                                   GPO      3565
                     75152                        SX1    A5-B2                                                   GPO      3566
                          0311002604 +            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
          2602  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
          2603  0400002362 +                      EQ     MII2                                                    GPO      3575
                                                                                                                 GPO      3576
                                        *         MARK VAR AS *^RD* IN *UDT*                                     GPO      3577
                                                                                                                 GPO      3578
          2604  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
          2605  0400002362 +                      EQ     MII2                                                    GPO      3583
                                                                                                                 GPO      3584
                                        *         AP / IO LIST STORE, MOVABLE IF ^EQUIVALENCED                   GPO      3585
                                                                                                                 GPO      3586
          2606  0327002362 +             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
          2607  21717                             AX7    IH.IP                                                   CCG18      94
                     5217777775 X                 SA1    =XO$APT-2+X7                                            CCGA030     5
                               43755              MX7    -IH.HL                                                  CCG18      96
          2610  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
          2611  11372                             BX3    X7*X2                                                   FCC0672     9
                     0303002354 +                 ZR     X3,MII1     IF ^( EQV[AI] ! BASE[AI] )                  CCG7      110
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   101
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
                                         .AP      ENDIF                                                          CCG7      111
          2612  0400002362 +                      EQ     MII2                                                    CCG7      112
                                                                                                                 FCC0408    90
          2613                           STA      BFMW   UD,(DEFR,^RD,STC)                                       FCC0408    91
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   102
        MII - MARK INVARIANT INSTRUCTIONS                             EOQ                 MII 
  
                                        *         EOQ - END OF MARKING PHASE, SET CHAIN POINTERS IN *BSW*        GPO      3598
                                                                                                                 GPO      3599
          2614                                    PROCESS EOQ                                                    GPO      3600
          2614  5110000031 +                      SA1    BN                                                      GPO      3601
                          76540                   SX5    "SC"                                                    GPO      3602
                               75777              SX7    A7-"TB"     IIC = LII - TB                              GPO      3603
          2615  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
          2616  5170000033 +                      SA7    BSW                                                     GPO      3609
                          0301002336 +            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
          2617  5110000110 C                      SA1    UBD                                                     GPO      3615
                          5120000000 C            SA2    VL                                                      GPO      3616
          2620  5130000003 C                      SA3    DVA                                                     GPO      3617
                          66200                   SB2    B0          I = 0                                       GPO      3618
                               63320              SB3    X2                        (B3) = VL                     GPO      3619
          2621  66433                             SB4    B3+B3                                                   GPO      3620
                     37012                        IX0    X1-X2       BDA = UBD - VL                              GPO      3621
                          63630                   SB6    X3                        (B6) = [DVA]                  GPO      3622
                                                                                                                 GPO      3623
          2622  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
          2623  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
          2624  54740                             SA7    A4                                                      GPO      3632
                     0723002622 +                 LT     B2,B3,MII4  IF I < VL                                   GPO      3633
                                                                                                                 GPO      3634
          2625  0470002632 +                      ZR     "TB",MII5   IF TB = 0                                   GPO      3635
                          5150000015 +            SA5    O.BIT                                                   GPO      3636
          2626  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
          2627  0333002632 +                      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
          2630  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
          2631  66700                             S"TB"  B0          TB = 0                                      GPO      3649
                     0400002622 +                 EQ     MII4                                                    GPO      3650
                                                                                                                 GPO      3651
          2632  5120000111 C             MII5     SA2    IJP                                                     GPO      3652
                          0302002336 +            ZR     X2,MII      IF IJP = 0    */ NO INVARIANT JUMPS         GPO      3653
                                                                                                                 GPO      3654
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   103
        MII - MARK INVARIANT INSTRUCTIONS                             EOQ                 MII 
  
          2633  0400002336 +                      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
  
  
          2634                           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
          2743                                    LOC    *O                                                      GPO      3681
                                                  LIST   -G                                                      GPO      3682
                                                                                                                 GPO      3683
                                                  QUAL   CODE                                                    GPO      3684
                                                                                                                 GPO      3685
                                2336 +   MII      EQU    /MII/MII                                                GPO      3686
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          2743  5140000113 C             FII0     SA4    IIL                                                     GPO      3695
                          5150000033 +            SA5    BSW                                                     GPO      3696
          2744  76650                             SX6    B5                                                      GPO      3697
                     20022                        LX0    BS.STCP                                                 GPO      3698
                          76340                   SX3    B4                                                      GPO      3699
                               11505              BX5    X0*X5                                                   GPO      3700
          2745  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
          2746  27701                             PX7    X1          NIS[BSW] = 0                                GPO      3704
                     54750                        SA7    A5                                                      GPO      3705
                                                                                                                 GPO      3706
                                                  TRACE  FII,IIT                                                 GPO      3707
                                                                                                                 GPO      3708
          2747  0200402747 +             FII      ROUTINE                                                        GPO      3709
          2750  26624                             UX6    B2,X4                                                   GPO      3710
                     76120                        ALLOC  IIT,B2      ALLOC( IIT , NIS[BSW] )                     GPO      3711
          2752  5150000027 +                      SA5    O.SEQ                                                   GPO      3712
                          5140000033 +            SA4    BSW                                                     GPO      3713
          2753  5130000000 C                      SA3    O.UDT                                                   GPO      3714
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GPO      3715
          2754  76660                             SX6    B6          IIL = OLD(L.IIT)                            GPO      3716
                     66560                        SB5    B6          IL = IIL      */ *IIT* LENGTH               GPO      3717
                          5160000113 C            SA6    IIL                                                     GPO      3718
          2755  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
          2756  66400                             SB4    B0          SC = 0        */ LAST ON CHAIN              GPO      3723
                     0400002762 +                 EQ     FII2                                                    GPO      3724
                                                                                                                 GPO      3725
                                        *         SAVE INC VALUE IN *IIT*, SET *ST* TO POINT TO *IIT*            GPO      3726
                                                                                                                 GPO      3727
          2757  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
          2760  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
          2761  65457                             SB4    A5-"TB"     SC = LI - TB  */ CHAIN POINTS TO THIS       GPO      3737
                                                                                                                 GPO      3738
          2762  56573                    FII2     SA5    "TB"+B3     LI = TB + I                                 GPO      3739
                     0430002743 +                 ZR     B3,FII0     IF I = 0                                    GPO      3740
                               20552              LX5    -I.STCP                                                 GPO      3741
          2763  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/05. 19.57.21.      PAGE   105
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
          2764  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
          2765  0333002762 +                      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
          2766  5043777775                        SA4    A3-2        R1 = DIP - 2                                GPO      3756
                          76110                   SX1    B1                                                      GPO      3757
                               20122              LX1    D.INCP                                                  GPO      3758
          2767  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
          2770  54620                             SA6    A2                                                      GPO      3763
                     7172777725                   SX7    B2-OC.STT                                               GPO      3764
          2771  0317002774 +                      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
          2772  20352                             LX3    -IH.CAP                                                 GPO      3769
                     15431                        BX4    -X1*X3                                                  GPO      3770
                          27604                   PX6    X4          ITW = PACK(0,CA[R2])                        GPO      3771
          2773  0400002757 +                      EQ     FII1                                                    GPO      3772
                                                                                                                 GPO      3773
                                        *         PROCESS IA, IS                                                 GPO      3774
                                                                                                                 GPO      3775
          2774  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
          2775  74730                             SX7    A3          LA = LP                                     GPO      3780
                                                  LX3    59-I.INVP                                               GPO      3781
                     0333002777 +                 MI     X3,FII4     IF INV[LP]                                  GPO      3782
                               20420              LX4    R1.RJP-R1.RKP                                           GPO      3783
          2776  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
          2777  5247777774               FII4     SA4    X7-3        R1 = LA - 3                                 GPO      3790
                          26624                   UX6    B2,X4                                                   GPO      3791
          3000  7112777727                        SX1    B2-OC.LD                                                GPO      3792
                          0311003003 +            NZ     X1,FII5     IF OC[R1] " OC.LD                           GPO      3793
                                                                                                                 GPO      3794
          3001  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
          3002  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
                          0400002757 +            EQ     FII1                                                    GPO      3801
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   106
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
                                        *         OPERATION IS ZP, SHOULD BE *S*, *FMA* OR *LDC*                 CCG36      24
                                                                                                                 GPO      3804
          3003  7172777722               FII5     SX7    B2-OC.S                                                 GPO      3805
                          43152                   MX1    -R1.INL                                                 GPO      3806
                               20436              LX4    -R1.INP     C = IN[R1]                                  GPO      3807
          3004  0307003007 +                      ZR     X7,FII6     IF OC[R1] = OC.S                            GPO      3808
                          7172777734              SX7    B2-OC.FMA                                               GPO      3809
          3005  0317003011 +                      NZ     X7,FII10    IF OC[R1] " OC.FMA                          GPO      3810
                          6224777776              SB2    X4-1                                                    GPO      3811
          3006  43201                             MX2    1                                                       GPO      3812
                     23422                        AX4    B2,X2       C = SHIFT( 1S59 , -(C-1) )                  GPO      3813
                                                                                                                 GPO      3814
          3007  0305003010 +             FII6     ZR     X5,FII7     IF BIAS = 0                                 GPO      3815
                          14444                   BX4    -X4         C = -C                                      GPO      3816
          3010  15441                    FII7     BX4    -X1*X4                                                  GPO      3817
                     27604                        PX6    X4          ITW = PACK( 0 , C )                         GPO      3818
                          0400002757 +            EQ     FII1                                                    GPO      3819
                                                                                                                 GPO      3820
          3011  7172777674               FII10    SX7    B2-OC.LDC                                               CCG36      25
                          0317403011 +            NZ     X7,*+1S17   IF OC[R1] " OC.LDC                          CCG36      26
          3012  5120000000 X                      SA2    =XO$CVT                                                 CCG36      27
                          54441                   SA4    A4+B1       R2 = R1 + 1                                 CCG36      28
                               20452              LX4    -IH.CAP                                                 CCG36      29
          3013  63220                             SB2    X2                                                      CCG36      30
                     53442                        SA4    B2+X4       C = CVT(CA[R2])                             CCG36      31
                          0400003007 +            EQ     FII6                                                    CCG36      32
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3014                           MIP0     BSS    0                                                       GPO      3835
                                                  TRACE  MIP,RLIST,SEQ                                           GPO      3836
                                                                                                                 GPO      3837
          3014  0200403014 +             MIP      ROUTINE                                                        GPO      3838
          3015  5110000030 +                      SA1    L.SEQ                                                   GPO      3839
                          21102                   AX1    2                                                       GPO      3840
          3016  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                      GPO      3841
          3017  5130000000 C                      SA3    O.UDT                                                   GPO      3842
                          5140000027 +            SA4    O.SEQ                                                   GPO      3843
          3020  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
          3021  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
          3022  6130000003                        SB3    3                                                       GPO      3850
                          43163                   MX1    -I.COSTL                                                GPO      3851
                               63743              S"TB"  X4+B3       TB = O.SEQ + 3                              GPO      3852
          3023  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
          3024  5160000107 C                      SA6    AN          MI IFF UNCONDITIONALLY EXECUTED (SAVED IN * FCC2271X    7
                          0400003036 +            EQ     MIP2                                                    GPO      3855
  
  
  
                                        *         ADD INSTRUCTION TO *IP* LIST, (A6,X6) = LI, [LI]               FCC0717     9
                                                                                                                 GPO      3858
                                         MIP1     LX4    59-I.INVP                                               GPO      3859
          3025  0334003036 +                      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
          3026  0450003036 +                      ZR     B5,MIP2     IF LEI = 0    */ NO INCREMENTS YET          FCC0717    10
                          10766                   BX7    X6                                                      FCC0717    11
                               20773              LX7    59-I.LDIP                                               FCC0717    12
          3027  0337003036 +                      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
          3030  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/05. 19.57.21.      PAGE   108
        MIP - MARK INTEGER POLYNOMIALS                                MIP                 MIP 
  
          3031  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
          3032  73250                             SX2    X5                                                      FCC0717    27
                     0302003035 +                 ZR     X2,MIP1B    IF IN[R1S] = L  */ SAME VARIABLE            FCC0717    28
                               20452              LX4    -I.STCP                                                 FCC0717    29
          3033  6224000000                        SB2    X4+         J = STC[LIS]  */ NEXT ON CHAIN              FCC0717    30
                          0420003036 +            ZR     B2,MIP2     IF J = 0      */ END OF CHAIN               FCC0717    31
          3034  0652003031 +                      LE     B2,B5,MIP1A IF J @ LEI                                  FCC0717    32
                          0400003036 +            EQ     MIP2                                                    FCC0717    33
                                                                                                                 FCC0717    34
          3035  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
          3036  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
          3037  0222004115 +                      JP     MIP.JT+B2   JUMP( MIP.JT( OC[R1] ) )                    GPO      3869
                                                                                                                 GPO      3870
          3040                           MIPA     BFMW   I,(IP,COST,LDI)                                         GPO      3871
          3041                           MIPB     BFMW   I,(IIC,LDI)                                             GPO      3872
          3042                           MIPC     BFMW   I,(IP,C1)                                               GPO      3873
          3043                           MIPD     BFMW   I,(IP,LDI)                                              GPO      3874
  
  
  
                                        *         ST - SET *LEI* IF AN INCREMENT STORE                           FCC0717    41
                                                                                                                 FCC0717    42
          3044                                    PROCESS ST                                                     FCC0717    43
          3044  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
          3045  0323003047 +                      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
          3046  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
          3047  55341                    ST1      SA3    A4-B1       DI = LI - 1                                 FCC1504X   31
                     20351                        LX3    59-D.INCP                                               FCC0717    45
                          0323003036 +            PL     X3,MIP2     IF ^INC[DI]                                 FCC0717    46
                                                                                                                 FCC0717    47
          3050  0550003052 +                      NZ     B5,ST2      IF LEI " 0    */ ^ FIRST INC ST IN BLOCK    FCC1532X    8
                          75647                   SX6    A4-"TB"                                                 FCC1532X    9
          3051  5160000122 C                      SA6    SC          SC = LI - TB  */ TXT INDEX OF FIRST INC ST  FCC1532X   10
                                                                                                                 FCC1532X   11
          3052  65547                    ST2      SB5    A4-"TB"     LEI = LI - TB */ LAST INC ST                FCC1532X   12
                     0400003036 +                 EQ     MIP2                                                    FCC0717    49
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   109
        MIP - MARK INTEGER POLYNOMIALS                                BBM                 MIP 
  
                                        *         BASIC BLOCK MARKER, CLEAR *LEI*                                FCC0717    51
                                                                                                                 FCC0717    52
          3053                                    PROCESS (RJ3,RJ6,LAB)                                          FCC0717    53
          3053  66500                             SB5    B0          LEI = 0                                     FCC0717    54
                     0400003036 +                 EQ     MIP2                                                    FCC0717    55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   110
        MIP - MARK INTEGER POLYNOMIALS                                EOQ                 MIP 
  
                                        **        EOQ - MERGE *IP* LIST INTO *ICC* CHAIN                         GPO      3876
                                                                                                                 GPO      3877
          3054                                    PROCESS EOQ                                                    GPO      3878
          3054  5120000000 X                      SA2    O.RND                                                   FCC0717    57
                          6252000000              SB5    X2+                                                     FCC0717    58
          3055  65475                             SB4    A7-B5       NP = PI - O.RND                             GPO      3879
                     54570                        SA5    A7          PI = PI                                     GPO      3880
                          0614003014 +            LE     B4,B1,MIP0  IF NP @ 1                                   GPO      3881
                                                                                                                 GPO      3882
          3056  5120000033 +                      SA2    BSW                                                     GPO      3883
                          5110003041 +            SA1    MIPB                                                    GPO      3884
                                                  LX2    -BS.IICP                                                GPO      3885
          3057  6160000022                        SB6    I.IICP                                                  GPO      3886
                          63220                   SB2    X2          IC = IIC[BSW]                               GPO      3887
                               63350              SB3    X5          PL = [PI]                                   GPO      3888
          3060  0723003062 +                      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
          3061  23764                             AX7    B6,X4                                                   GPO      3892
                     63270                        SB2    X7          IC = IIC[LI]                                GPO      3893
                          0400003064 +            EQ     MIP4                                                    GPO      3894
                                                                                                                 GPO      3895
          3062  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
          3063  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
          3064  0732003070 +             MIP4     GT     B2,B3,MIP5  IF IC > PL                                  GPO      3905
                          76330                   SX3    B3                                                      GPO      3906
                               15741              BX7    -X1*X4      HBP[LI] = 0                                 GPO      3907
          3065  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
          3066  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
          3067  0315003064 +                      NZ     X5,MIP4     IF PL " 0                                   GPO      3915
                          0420003074 +            ZR     B2,MIP6     IF IC = 0                                   GPO      3916
                                                                                                                 GPO      3917
          3070  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
          3071  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
          3072  63270                             SB2    X7          IC = IIC[LI]                                GPO      3926
                     0732003070 +                 GT     B2,B3,MIP5  IF IC > PL                                  GPO      3927
          3073  0530003064 +                      NZ     B3,MIP4     IF PL " 0                                   GPO      3928
                                                                                                                 GPO      3929
          3074  15641                    MIP6     BX6    -X1*X4      IIC[LI] = HBP[LI] = 0                       GPO      3930
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   111
        MIP - MARK INTEGER POLYNOMIALS                                EOQ                 MIP 
  
                     54640                        SA6    A4                                                      GPO      3931
                          0400003014 +            EQ     MIP0                                                    GPO      3932
  
  
  
                                        *         TYPE II - SET *IP* BIT                                         GPO      3934
                                                                                                                 GPO      3935
          3075                                    PROCESS (FMA,S)                                                GPO      3936
          3075  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
          3076  0400003036 +                      EQ     MIP2                                                    GPO      3941
  
  
  
                                        *         LD - IF *RD* , THEN SET *IP* BIT , AND *LDI* FIELD IF ^INV     GPO      3943
                                                                                                                 GPO      3944
          3077                                    PROCESS (LD,LDC,LDV)   ILD -> LD IN MII                        CCG16     204
          3077  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
          3100  15630                             BX6    "RN"X3                                                  GPO      3950
                     0316003036 +                 NZ     X6,MIP2     IF RF[R2] " 0                               GPO      3951
                               20204              LX2    59-UD.^RDP                                              GPO      3952
          3101  0332003036 +                      MI     X2,MIP2     IF ^RD[UI]                                  GPO      3953
                                                                                                                 GPO      3954
                          5130003042 +            SA3    MIPC                                                    GPO      3955
          3102  12634                             BX6    X3+X4       IP[LI] = 1;  COST[LI] = 1                   GPO      3956
                                                  LX4    59-I.INVP                                               GPO      3957
                     0334003104 +                 MI     X4,LD1      IF INV[LI]                                  GPO      3958
                                                                                                                 GPO      3959
                               75747              SX7    A4-"TB"                                                 GPO      3960
          3103  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
          3104  54640                    LD1      SA6    A4                                                      GPO      3965
                     0400003036 +                 EQ     MIP2                                                    GPO      3966
  
  
          3105                                    PROCESS XMTC                                                   GPO      3968
          3105  0400003036 +                      EQ     MIP2                                                    CCGA046    12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   112
        MIP - MARK INTEGER POLYNOMIALS                                SXT                 MIP 
  
                                        *         SXT - CONSTANT SHIFT PREDECESSOR                               GPO      3984
                                                                                                                 GPO      3985
          3106                                    PROCESS SXT                                                    GPO      3986
          3106  20534                             LX5    -R1.RJP                                                 GPO      3987
                     5120003040 +                 SA2    MIPA                                                    GPO      3988
                               15750              BX7    "RN"X5                                                  GPO      3989
          3107  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
          3110  0323003036 +                      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
          3111  6122777757                        SB2    B2-OC.KLS                                               GPO      3998
                          0520003036 +            NZ     B2,MIP2     IF OC[R1] " OC.KLS                          GPO      3999
          3112  20352                             LX3    -IH.CAP                                                 GPO      4000
                     6223777747                   SB2    X3-24                                                   CCG21      16
                               75747              SX7    A4-"TB"                                                 GPO      4002
          3113  0620003036 +                      PL     B2,MIP2     IF CA[R2] \ 24  */ SHIFT COUNT TOO BIG      CCG21      17
                                                                                                                 GPO      4004
                                                  LX4    59-I.INVP                                               GPO      4005
                          0334003115 +            MI     X4,SXT1     IF INV[LI]                                  GPO      4006
          3114  54771                             SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                GPO      4007
                                                                                                                 GPO      4010
          3115  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
          3116  36676                             IX6    X7+X6       COST[LI] = COST[LI] + 1                     GPO      4015
                     54640                        SA6    A4                                                      GPO      4016
                          0400003025 +            EQ     MIP1                                                    FCC0717    59
  
  
  
          3117                                    PROCESS IM                                                     GPO      4019
          3117  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
          3120  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
          3121  0326003036 +                      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
          3122  0327003036 +                      PL     X7,MIP2     IF NEITHER INVARIANT                        FCC2271X    8
                          5140000107 C            SA4    AN                                                      FCC2271X    9
          3123  0334003137 +                      MI     X4,IM5      IF UNCONDTIONALLY EXECUTED                  FCC2271X   10
                          55221                   SA2    A2-B1       DJ = LJ - 1                                 FCC2271X   11
          3124  0100000000 X                      CALL   CMO         CHECK SAFETY OF J OPERAND                   FCC2271X   12
          3125  55231                             SA2    A3-B1       DK = LK - 1                                 FCC2271X   13
                     0306003130 +                 ZR     X6,IM1      IF J IS SAFE                                FCC2271X   14
          3126  0100000000 X                      CALL   CMO         CHECK SAFETY OF K OPERAND                   FCC2271X   15
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   113
        MIP - MARK INTEGER POLYNOMIALS                                IM                  MIP 
  
          3127  0306003132 +                      ZR     X6,IM2      IF K IS SAFE                                FCC2271X   16
                          0400003036 +            EQ     MIP2        NOT SAFE (NEITHER OPERAND)                  FCC2271X   17
                                                                                                                 FCC2271X   18
          3130  0100000000 X             IM1      CALL   CMO         CHECK SAFETY OF K (J IS SAFE)               FCC2271X   19
          3131  0306003134 +                      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
          3132  5045000002               IM2      SA4    A5+2        DI = RI + 2                                 FCC2271X   25
                          76610                   SX6    B1                                                      FCC2271X   26
                               20633              LX6    D.USIP                                                  FCC2271X   27
          3133  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
          3134  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
          3135  5045000003                        SA4    A5+3        RETORE LI                                   FCC2271X   37
                          12723                   BX7    X2+X3       RESTORE LJK                                 FCC2271X   38
                               76530              SX5    B3          ICOST = 3                                   FCC2271X   39
          3136  0400003147 +                      EQ     IA1                                                     FCC2271X   40
                                                                                                                 FCC2271X   41
          3137  5045000003               IM5      SA4    A5+3        RESTORE LI                                  FCC2271X   42
                          0400003147 +            EQ     IA1                                                     FCC2271X   43
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   114
        MIP - MARK INTEGER POLYNOMIALS                                ADDS                MIP 
  
                                        **        ADDS - ONLY ALLOW *IP*"S IN 1 VARIABLE                         GPO      4037
                                                                                                                 GPO      4038
          3140                                    PROCESS (IA,IS)                                                GPO      4039
          3140  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
          3141  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
          3142  11623                             BX6    X2*X3                                                   GPO      4048
                     20604                        LX6    59-I.IPP                                                GPO      4049
                          0326003155 +            PL     X6,IA3      IF ^( IP[LJ] & IP[LK] )                     GPO      4050
                                                                                                                 GPO      4051
          3143  12723                             BX7    X2+X3       LJK = [LJ] ! [LK]                           GPO      4052
                     0335003153 +                 MI     X5,IA2      IF INC[DI]                                  GPO      4053
                               76510              SX5    B1          ICOST = 1                                   GPO      4054
                                                  LX7    59-I.INVP                                               GPO      4055
          3144  0337003147 +                      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
          3145  0520003036 +                      NZ     B2,MIP2     IF LDI[LJ] " LDI[LK]                        GPO      4063
                                                                                                                 GPO      4064
                          0316003147 +            NZ     X6,IA1      IF [LJ] " [LK]                              GPO      4065
          3146  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
          3147  15621                    IA1      BX6    -X1*X2                                                  GPO      4070
                     5120003043 +                 SA2    MIPD                                                    GPO      4071
                               20555              LX5    I.COSTP                                                 GPO      4072
          3150  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
          3151  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
          3152  0400003025 +                      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
          3153  5120003042 +             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
          3154  12624                             BX6    X2+X4       IP[LI] = 1;  COST[LI] = 1                   GPO      4091
                     54640                        SA6    A4                                                      GPO      4092
                          0400003025 +            EQ     MIP1                                                    GPO      4093
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   115
        MIP - MARK INTEGER POLYNOMIALS                                IA                  MIP 
  
                                        *         CHECK FOR *IA* + *INV*, AND MARK *IA* IF SO                    GPO      4095
                                                                                                                 GPO      4096
          3155  12723                    IA3      BX7    X2+X3                                                   GPO      4097
                                                  LX7    59-I.INVP                                               GPO      4098
                     0327003036 +                 PL     X7,MIP2     IF ^( INV[LJ] ! INV[LK] )                   GPO      4099
                               20703              LX7    I.INVP-I.IAP                                            GPO      4100
          3156  0327003036 +                      PL     X7,MIP2     IF ^( IA[LJ] ! IA[LK] )                     GPO      4101
                                                                                                                 GPO      4102
                          76710                   SX7    B1                                                      GPO      4103
                               20770              LX7    I.IAP                                                   GPO      4104
          3157  12674                             BX6    X7+X4       IA[LI] = 1                                  GPO      4105
                     54640                        SA6    A4                                                      GPO      4106
                          0400003036 +            EQ     MIP2                                                    GPO      4107
  
  
                                        *         STT - PROPAGATE *IA* BIT UP FOR USE BY *JPX* PROCESSOR         GPO      4109
                                                                                                                 GPO      4110
          3160                                    PROCESS STT                                                    GPO      4111
          3160  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
          3161  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
          3162  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
          3163  20746                             LX7    D.STRSP                                                 FCC0717    60
                     15737                        BX7    -X7*X3                                                  GPO      4129
                          0317003036 +            NZ     X7,MIP2     IF STRS[DI] " 0  */ *INC* OR INIT CODE      GPO      4130
          3164  0420003166 +                      ZR     B2,STT1     IF IH[R2] = 0                               GPO      4131
                                                                                                                 GPO      4132
                          65227                   SB2    A2-"TB"                                                 GPO      4133
          3165  0520003036 +                      NZ     B2,MIP2     IF RF[R2] " 0                               GPO      4134
                          0400003075 +            EQ     .S                                                      GPO      4135
                                                                                                                 GPO      4136
          3166  20204                    STT1     LX2    59-I.IPP                                                GPO      4137
                     0322003036 +                 PL     X2,MIP2     IF ^IP[LIP]                                 GPO      4138
                               20270              LX2    1+I.IPP                                                 GPO      4139
          3167  5130003040 +                      SA3    MIPA                                                    GPO      4140
                          11723                   BX7    X2*X3                                                   GPO      4141
                               12667              BX6    X6+X7       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LIP]      GPO      4142
          3170  54660                             SA6    A6                                                      GPO      4143
                     0400003025 +                 EQ     MIP1                                                    GPO      4144
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3171                                    PROCESS JPX                                                    GPO      4152
          3171  5120000027 C                      SA2    N.LJ                                                    GPO      4153
                          5130000025 C            SA3    LIH                                                     GPO      4154
          3172  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
          3173  0521003036 +                      NE     B2,B1,MIP2  IF N.LJ " 1                                 GPO      4159
                          0316003036 +            NZ     X6,MIP2     IF IH[R2] " LIH                             GPO      4160
          3174  20452                             LX4    -IH.CAP                                                 GPO      4161
                     6244777775                   SB4    X4-2        JPT = CA[R2] - 2                            GPO      4162
                               67273              SB2    "TB"-B3                                                 GPO      4163
          3175  0740003036 +                      MI     B4,MIP2     IF JPT @ 0    */ ZR, NZ JUMPS               GPO      4164
                          0714003036 +            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
          3176  53452                             SA4    B2+X5       RIP = TB-3 + RI[R1]                         GPO      4169
                     26624                        UX6    B2,X4                                                   GPO      4170
                          7172777725              SX7    B2-OC.STT                                               GPO      4171
          3177  0317003203 +                      NZ     X7,JPX1     IF OC[R1P] " OC.STT                         GPO      4172
                                                                                                                 GPO      4173
                          0541003036 +            NE     B4,B1,MIP2  IF JPT " 1    */ NOT *MI* JUMP              GPO      4174
          3200  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
          3201  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
          3202  15530                             BX5    "RN"X3      R = RF[R2P]                                 GPO      4183
                     0400003223 +                 EQ     JPX5                                                    GPO      4184
                                                                                                                 GPO      4185
          3203  7172777740               JPX1     SX7    B2-OC.IS                                                GPO      4186
                          0317003036 +            NZ     X7,MIP2     IF OC[R1P] " OC.IS                          GPO      4187
                                                                                                                 GPO      4188
                                        *         CHECK LIMIT OPERAND OF *IS*                                    GPO      4189
                                                                                                                 GPO      4190
          3204  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
          3205  0307003036 +                      ZR     X7,MIP2     IF ^( IA[LIP] ! IP[LIP] )                   GPO      4195
                                                                                                                 GPO      4196
                          20434                   LX4    -R1.RJP                                                 GPO      4197
          3206  0540003210 +                      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
          3207  15540                             BX5    "RN"X4      R = RK[R1P]                                 GPO      4202
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   117
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                     0400003211 +                 EQ     JPX3                                                    GPO      4203
                                                                                                                 GPO      4204
          3210  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
          3211  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
          3212  20241                             LX2    59-D.ZPP                                                GPO      4212
                     0322003036 +                 PL     X2,MIP2     IF ^ZP[DIP]   */ NOT *LD* OR *S*            GPO      4213
                               20263              LX2    D.ZPP-D.LDP                                             GPO      4214
          3213  0322003220 +                      PL     X2,JPX4     IF ^LD[DIP]                                 GPO      4215
                          20244                   LX2    D.LDP-D.TYP-1                                           GPO      4216
          3214  0322003036 +                      PL     X2,MIP2     IF TYPE[DIP] " III                          GPO      4217
                                                                                                                 GPO      4218
                          0540003036 +            NZ     B4,MIP2     IF JPT " 0    */ CANT ADD 1 TO UPPER LIMIT  GPO      4219
          3215  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
          3216  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
          3217  0400003223 +                      EQ     JPX5                                                    GPO      4228
                                                                                                                 GPO      4229
          3220  26624                    JPX4     UX6    B2,X4                                                   GPO      4230
                     7172777722                   SX7    B2-OC.S                                                 GPO      4231
                               20436              LX4    -R1.INP                                                 GPO      4232
          3221  0317003036 +                      NZ     X7,MIP2     IF OC[R1P] " OC.S                           GPO      4233
                          67204                   SB2    -B4                                                     GPO      4234
                               73442              SX4    X4+B2                                                   GPO      4235
          3222  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
          3223  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
          3224  0324003231 +                      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
          3225  0323003227 +                      PL     X3,JPX6     IF TYPE[DIP] = I                            GPO      4251
                          55231                   SA2    A3-B1       R2P = DIP - 1                               GPO      4252
                               20230              LX2    -IH.RFP                                                 GPO      4253
          3226  15520                             BX5    "RN"X2      R = RF[R2P]                                 GPO      4254
                     0400003231 +                 EQ     JPX7                                                    GPO      4255
                                                                                                                 GPO      4256
          3227  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/05. 19.57.21.      PAGE   118
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                               53457              SA4    "TB"+X5     LIP = TB + R                                GPO      4260
                                                  LX4    59-I.INVP                                               GPO      4261
          3230  0324003231 +                      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
          3231  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
          3232  7172777727                        SX7    B2-OC.LD                                                GPO      4272
                          0317003036 +            NZ     X7,MIP2     IF OC[R1P] " OC.LD                          GPO      4273
          3233  53246                             SA2    "UB"+X4     UI = UB + IN[R1]                            GPO      4274
                     20204                        LX2    59-UD.^RDP                                              GPO      4275
                          0332003036 +            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
          3234  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
          3235  15232                             BX2    -X2*X3                                                  GPO      4284
                     67271                        SB2    "TB"-B1                                                 GPO      4285
                          20444                   LX4    PS.UDIP                                                 GPO      4286
                               12742              BX7    X4+X2                                                   GPO      4287
          3236  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
          3237  76610                             SX6    B1                                                      GPO      4291
                     5160000030 C                 SA6    LTT         LTT = 1       */ LOOP TEST TYPE             GPO      4292
                               20622              LX6    D.INCP                                                  GPO      4293
          3240  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
          3241  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
          3242  0400003036 +                      EQ     MIP2                                                    GPO      4301
                                                                                                                 GPO      4302
                                                  QUAL   *                                                       GPO      4303
                                                                                                                 GPO      4304
                                3014 +   MIP      EQU    /MIP/MIP                                                GPO      4305
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3243  0200403243 +             MIE      ROUTINE                                                        GPO      4323
          3244  5130000114 C                      SA3    MINC                                                    GPO      4324
                          6275000003              S"TB"  X5+3        TB = TBA + 3                                GPO      4325
                                                  LX4    -BS.IICP                                                GPO      4326
          3245  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
          3246  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
          3247  56576                    MIE1     SA5    "TB"+B6     LI = TB + I                                 GPO      4337
                     0460003317 +                 ZR     B6,MIE14    IF I = 0      */ END OF CHAIN               GPO      4338
                               55451              SA4    A5-B1       DI = LI - 1                                 GPO      4339
          3250  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
          3251  10644                             BX6    X4          D = [DI]                                    GPO      4344
                     63650                        SB6    X5          I = IIC[LI]   */ NEXT ON CHAIN              GPO      4345
                          0317003266 +            NZ     X7,MIE5     IF USES[LI] " 0  */ USED BY ANOTHER         GPO      4346
                                                                                                                 GPO      4347
                                                  LX3    59-I.INVP                                               GPO      4348
          3252  0333003256 +                      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
          3253  15731                             BX7    -X1*X3                                                  GPO      4356
                     63370                        SB3    X7                                                      GPO      4357
                          0732003247 +            LT     B3,B2,MIE1  IF COST[LI] < MINC                          CCG21      18
          3254  0336003275 +                      MI     X6,MIE7     IF RF[D]                                    CCG21      19
                          6133777773              SB3    B3-4                                                    CCG21      20
          3255  0630003275 +                      PL     B3,MIE7     IF COST[LI] \ 4                             CCG21      21
                                                                                                                 GPO      4359
                          0400003247 +            EQ     MIE1                                                    GPO      4360
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   120
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         TERMINAL INV INST, SEE IF PROFITABLE TO MOVE                   GPO      4362
                                                                                                                 GPO      4363
          3256  20624                    MIE2     LX6    58-D.STRSP                                              GPO      4364
                     43702                        MX7    D.STRSL                                                 GPO      4365
                          11376                   BX3    X7*X6                                                   GPO      4366
          3257  0313003261 +                      NZ     X3,MIE3     IF STRS[D] " 0                              GPO      4367
                          20615                   LX6    1+D.STRSP-D.ZPP                                         GPO      4368
          3260  0336003247 +                      MI     X6,MIE1     IF ZP[D]      */ NO PRED                    GPO      4369
                          0400003275 +            EQ     MIE7                                                    GPO      4370
                                                                                                                 GPO      4371
                                         MIE3     LX6    1+D.STRSP-D.PSP                                         GPO      4372
          3261  0336003264 +                      MI     X6,MIE4     IF PS[DI]                                   GPO      4373
                          5035000004              SA3    A5+4                                                    GPO      4374
          3262  76710                             SX7    B1          IU = 1                                      GPO      4375
                                                  LX3    59-I.INVP                                               GPO      4376
                     0333003272 +                 MI     X3,MIE6     IF INV[LI+4]  */ INV FUNCTION ARG           GPO      4377
                               54251              SA2    A5+B1       R1RS = LI + 1                               GPO      4378
          3263  20247                             LX2    59-R1.SOP-4                                             GPO      4379
                     0322003247 +                 PL     X2,MIE1     IF SORT[R1RS] " 2  */ ^ TO AN X-REGISTER    GPO      4380
                                                                                                                 GPO      4381
                                        *         ( PS ! PRS ) & USES = 0                                        GPO      4382
                                                                                                                 GPO      4383
          3264  20615                    MIE4     LX6    D.PSP-D.ZPP                                             GPO      4384
                     0336003247 +                 MI     X6,MIE1     IF ZP[D]                                    GPO      4385
                               20666              LX6    D.ZPP-D.XMTP                                            GPO      4386
          3265  0336003247 +                      MI     X6,MIE1     IF XMT[D]                                   GPO      4387
                          0400003275 +            EQ     MIE7                                                    GPO      4388
  
  
                                        *         INSTRUCTION IS OPERAND OF ANOTHER THAT HAS BEEN MOVED OUT.     GPO      4390
                                                                                                                 GPO      4391
          3266  20625                    MIE5     LX6    59-D.PRSP                                               GPO      4392
                     0326003275 +                 PL     X6,MIE7     IF ^PRS[D]                                  GPO      4393
                                                                                                                 GPO      4394
                               54251              SA2    A5+B1       R1RS = LI + 1                               GPO      4395
          3267  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
          3270  0332003272 +                      MI     X2,MIE6     IF SOLK[R1RS] " 0  */ TEMP LOCK             GPO      4400
                          0323003275 +            PL     X3,MIE7     IF ^INV[LI+4]                               GPO      4401
          3271  76710                             SX7    B1          IU = 1                                      GPO      4402
                                                                                                                 GPO      4403
                                        *         ADD *RS* TO CHAIN OF MOVED INST                                GPO      4404
                                                                                                                 GPO      4405
          3272  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
          3273  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
          3274  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/05. 19.57.21.      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
          3275  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
          3276  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
          3277  13754                             BX7    X5-X4                                                   GPO      4428
                                                  LX7    -D.USESP                                                GPO      4429
                     15271                        BX2    -X1*X7                                                  GPO      4430
                          0302003302 +            ZR     X2,MIE8     IF USES[LI] = USES[DI]                      GPO      4431
                                                                                                                 GPO      4432
          3300  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
          3301  54660                             SA6    A6                                                      GPO      4437
  
                                        *         BUMP USES COUNT OF OPERANDS OF INSTRUCTION                     GPO      4439
                                                                                                                 GPO      4440
                                         MIE8     LX4    58-D.TYP                                                GPO      4441
          3302  36744                             IX7    X4+X4                                                   GPO      4442
                     76610                        SX6    B1                                                      GPO      4443
                          0337003247 +            MI     X7,MIE1     IF TYPE[DI] = II ! IV                       GPO      4444
          3303  20644                             LX6    I.USESP                                                 GPO      4445
                     0324003311 +                 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
          3304  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
          3305  0307003306 +                      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
          3306  0324003247 +             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
          3307  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
          3310  0400003247 +                      EQ     MIE1                                                    GPO      4465
                                                                                                                 GPO      4466
                                        *         TYPE I INSTRUCTION                                             GPO      4467
                                                                                                                 GPO      4468
          3311  43772                    MIE10    MX7    -D.TYIOL                                                GPO      4469
                     20424                        LX4    2+D.TYP-D.TYIOP                                         GPO      4470
                          15247                   BX2    -X7*X4                                                  GPO      4471
          3312  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/05. 19.57.21.      PAGE   122
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3313  26733                             UX7    B3,X3                                                   GPO      4474
                     11275                        BX2    X7*X5                                                   GPO      4475
                          23532                   AX5    B3,X2       RNUMS = TYIOM[DI] & [R1]                    GPO      4476
                                                                                                                 GPO      4477
          3314  15450                    MIE11    BX4    "RN"X5      R = RI[RNUMS]                               GPO      4478
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                GPO      4479
                          0304003316 +            ZR     X4,MIE12    IF R = 0                                    GPO      4480
          3315  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
          3316  0315003314 +             MIE12    NZ     X5,MIE11    IF RNUMS " 0                                GPO      4484
                                                                                                                 GPO      4485
                          0400003247 +            EQ     MIE1                                                    GPO      4486
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   123
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         MOVE THE FINAL CHAIN OF INSTRUCTIONS TO THE HOLDING BLOCK      GPO      4488
                                                                                                                 GPO      4489
          3317  0450003243 +             MIE14    ZR     B5,MIE      IF NMI = 0    */ NOTHING MOVED              GPO      4490
                          66444                   SB4    B4+B4                                                   GPO      4491
                               76254              SX2    B5+B4                                                   GPO      4492
          3320  20202                             LX2    2                                                       GPO      4493
                     74700                        SX7    A0                                                      GPO      4494
                          5170000115 C            SA7    IC          IC = LII                                    GPO      4495
          3321  74500                             SX5    A0                                                      GPO      4497
                     73121                        ALLOC  TXT,X2+B1   ALLOC( TXT , 4*(NMI+2*NTI) + 1 )            GPO      4498
          3323  5140000027 +                      SA4    O.SEQ       HBI = OLD(L.TXT)                            FCC1845X    5
                          6274000003              S"TB"  X4+3                                                    FCC1845X    6
          3324  5140000000 X                      SA4    L.TET                                                   GPO      4500
                          63350                   SB3    X5          I = LII                                     GPO      4501
          3325  5110000000 +                      SA1    DMASK                                                   GPO      4502
                          63440                   SB4    X4          TO = L.TET    */ TEMP ORDINAL               GPO      4503
                               63520              SB5    X2          HB = O.TXT                                  GPO      4504
          3326  56000                             SA0    B0          TSC = 0                                     GPO      4506
                     73626                        SX6    X2+B6                                                   GPO      4507
                          7100600001              SX0    RN.MASK                                                 CCG11     118
          3327  5160000117 C                      SA6    TBB         TBB = O.TXT + HBI                           GPO      4509
                          0400003337 +            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
          3330  5140000010 X             MIE14A   SA4    F.RDT+OC.XMT                                            GPO      4515
                          6120000010              SB2    OC.XMT                                                  GPO      4516
          3331  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
          3332  15720                             BX7    "RN"X2                                                  GPO      4521
                     73630                        SX6    X3          R = RF[R2]                                  GPO      4522
                          0316003335 +            NZ     X6,MIE14B   IF R " 0                                    GPO      4523
          3333  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
          3334  0323003335 +                      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
          3335  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
          3336  20552                    MIE15    LX5    -I.IICP                                                 GPO      4540
                     63350                        SB3    X5          I = IIC[LI]   */ *BLK* INDEX OF INSTRUCTION GPO      4541
                          0430003424 +            ZR     B3,MIE20    IF I = 0                                    GPO      4542
                                                                                                                 GPO      4543
                                        *         MOVE INSTRUCTION TO HOLDING BLOCK                              GPO      4544
          3337  0100003403 +             MIE16    RJ     MIH         MOVE INSTRUCTIONS TO *HB*                   FCC1254    52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   124
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3340  20451                             LX4    59-D.INCP                                               GPO      4562
                     0334003330 +                 MI     X4,MIE14A   IF INC[D]                                   GPO      4563
                               20702              LX7    59-I.TIP                                                GPO      4564
          3341  0327003336 +                      PL     X7,MIE15    IF ^TI[LI]    */ NOT TERMINAL               GPO      4565
                          20464                   LX4    D.INCP-D.ZPP                                            GPO      4566
          3342  0334003336 +                      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
          3343  7162777772                        SX6    B2-OC.DEF                                               FCC1254    53
                          0306003365 +            ZR     X6,MIE19    IF OC[R1] = OC.DEF                          FCC1254    54
          3344  20460                             LX4    D.ZPP-D.PRSP                                            GPO      4571
                     0324003363 +                 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
          3345  20345                             LX3    -R1.SOP-SO.LKP-1                                        FCC1530X    5
                     0333003350 +                 MI     X3,MIE16A   IF SOLK[R1RS] = 1   */ A TEMP LOCK          FCC1530X    6
                                                                                                                 FCC1530X    7
          3346  5035000004                        SA3    A5+4        LIRS = LI + 4                               FCC1530X    8
                                                  LX3    59-I.INVP                                               FCC1530X    9
                          0323003363 +            PL     X3,MIE18    IF ^INV[LIRS] */ RS STAYS IN THE LOOP       FCC1530X   10
                                                                                                                 FCC1530X   11
          3347  43200                             MX2    0           LINV = 0                                    FCC1530X   12
                     0400003356 +                 EQ     MIE17A                                                  FCC1530X   13
                                                                                                                 FCC1530X   14
          3350  20447                    MIE16A   LX4    1+D.PRSP+58-D.TYP                                       FCC1530X   15
                     20234                        LX2    -R1.RJP     I = RJ[R1]                                  GPO      4585
                          0324003352 +            PL     X4,MIE17    IF TYPE[DI] = I                             GPO      4586
          3351  54221                             SA2    A2+B1       R2 = R1 + 1                                 GPO      4587
                     20230                        LX2    -IH.RFP     I = RF[R2]                                  GPO      4588
          3352  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
          3353  73730                             SX7    X3          R = HBP[LIP]                                GPO      4593
                     20302                        LX3    59-I.TIP                                                GPO      4594
                          0333003336 +            MI     X3,MIE15    IF TI[LIP]    */ PRED IS TERMINAL           GPO      4595
          3354  20241                             LX2    59-D.ZPP                                                GPO      4596
                     0332003336 +                 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
          3355  43201                             MX2    1                                                       GPO      4602
                                                  LX2    1+I.INVP                                                GPO      4603
                     11223                        BX2    X2*X3       LINV = INV[LIP]                             GPO      4604
          3356  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
          3357  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
          3360  43600                             MX6    0                                                       GPO      4611
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3361  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
          3362  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
          3363  6120000010               MIE18    SB2    OC.XMT                                                  GPO      4623
                          0100003411 +            RJ     OST         OUTPUT XMT TST TO IT.                       FCC1254    55
          3364  0400003336 +                      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
          3365  76730                    MIE19    SX7    B3                                                      FCC1254    61
                     5170000116 C                 SA7    ISV         ISV = I                                     FCC1254    62
                                                                                                                 FCC1254    63
          3366  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
          3367  26622                             UX6    B2,X2                                                   FCC1254    67
                     63350                        SB3    X5          I = IIC[LI]                                 FCC1254    68
                          7172777772              SX7    B2-OC.DEF                                               FCC1254    69
          3370  0317003372 +                      NZ     X7,MIE19B   IF OC[R1] " OC.DEF                          FCC1254    70
                          0100003403 +            RJ     MIH         MOVE INST TO *HB*                           FCC1254    71
          3371  0400003366 +                      EQ     MIE19A                                                  FCC1254    72
                                                                                                                 FCC1254    73
                                        *         NOW OUTPUT THE XMT/SA AND TST INSTRUCTIONS                     FCC1254    74
                                                                                                                 FCC1254    75
          3372  5120000116 C             MIE19B   SA2    ISV                                                     FCC1254    76
                          63320                   SB3    X2          I = ISV                                     FCC1254    77
                                                                                                                 FCC1254    78
          3373  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
          3374  7162777772                        SX6    B2-OC.DEF                                               FCC1254    82
                          0316003402 +            NZ     X6,MIE19F   IF OC[R1] " OC.DEF                          FCC1254    83
                                                                                                                 FCC1254    84
          3375  10655                             BX6    X5                                                      FCC1254    85
                     20602                        LX6    59-I.TIP                                                FCC1254    86
                          0326003401 +            PL     X6,MIE19E   IF ^TI[LI]    */ NOT TERMINAL               FCC1254    87
                                                                                                                 FCC1254    88
          3376  6120000010                        SB2    OC.XMT      OC = OC.XMT                                 FCC1254    89
                          20247                   LX2    59-R1.SOP-4                                             FCC1254    90
          3377  0332003400 +                      MI     X2,MIE19D   IF REG[R1] \ 20B  */ DEF FROM AN X-REG      FCC1254    91
                          6120000060              SB2    OC.SA       OC = OC.SA                                  FCC1254    92
          3400  73750                    MIE19D   SX7    X5          RJ = HBP[LI]                                FCC1254    93
                     0100003411 +                 RJ     OST         OUTPUT XMT/SA AND TST                       FCC1254    94
          3401  20552                    MIE19E   LX5    -I.IICP                                                 FCC1254    95
                     63350                        SB3    X5          I = IIC[LI]                                 FCC1254    96
                          0400003373 +            EQ     MIE19C                                                  FCC1254    97
                                                                                                                 FCC1254    98
          3402  0530003337 +             MIE19F   NZ     B3,MIE16    IF I " 0      */ NOT END OF CHAIN           FCC1254    99
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   126
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                          0400003424 +            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
          3403  0200403403 +             MIH      ROUTINE                                                        FCC1254   107
          3404  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
          3405  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
          3406  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
          3407  54750                             SA7    A5                                                      FCC1254   120
                     6166000004                   SB6    B6+4        HBI = HBI + 4                               FCC1254   121
                               43600              MX6    0                                                       FCC1254   122
          3410  54661                             SA6    A6+B1       HA = HA + 1;  [HA] = 0                      FCC1254   123
                     26222                        UX2    B2,X2                                                   FCC1254   124
                          0400003403 +            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
          3411  0200403411 +             OST      ROUTINE                                                        FCC1254   131
          3412  20740                             LX7    R1.RJP                                                  GPO      4624
                     76460                        SX4    B6                                                      GPO      4625
                          27324                   PX3    B2,X4                                                   GPO      4626
                               12673              BX6    X7+X3                                                   GPO      4627
          3413  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
          3414  6120000077                        SB2    OC.TST                                                  GPO      4632
                          54661                   SA6    A6+B1       HA + HA + 1;  [HA] = 0                      GPO      4633
          3415  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
          3416  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
          3417  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
          3420  20722                             LX7    T.BIP                                                   GPO      4646
                     74300                        SX3    A0                                                      GPO      4647
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3421  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
          3422  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
          3423  55065                             SA0    A6-B5       TSC = HA - HB                               GPO      4654
                     64601                        SB6    A0+B1       HBI = TSC + 1  */ = HBI + 8                 GPO      4655
                          0400003411 +            EQ     OST                                                     FCC1254   132
  
  
  
                                        *         RENUMBER THE INSTRUCTIONS ADDED TO THE HOLDING BLOCK           GPO      4658
                                        *         PRESERVE A0, B4 FOR *TET* UPDATE                               GPO      4659
                                                                                                                 GPO      4660
          3424  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
          3425  5160000000 X                      SA6    L.TXT                                                   GPO      4665
                          43102                   MX1    D.TYL                                                   GPO      4666
          3426  5120000117 C                      SA2    TBB                                                     GPO      4667
                          5242777775              SA4    X2-2        DI = TBB - 2                                GPO      4668
          3427  0400003431 +                      EQ     MIE22                                                   GPO      4669
                                                                                                                 GPO      4670
          3430  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
          3431  54542                    MIE22    SA5    A4+B2       R1 = DI + 2                                 GPO      4675
                     54452                        SA4    A5+B2       DI = R1 + 2                                 GPO      4676
                          0305003447 +            ZR     X5,MIE26    IF [R1] = 0   */ END OF BLOCK               GPO      4677
                                                  LX4    58-D.TYP                                                GPO      4678
          3432  16641                             BX6    -X1+X4                                                  GPO      4679
                     26735                        UX7    B3,X5                                                   GPO      4680
                          0304003430 +            ZR     X4,MIE21    IF [DI] = 0   */ XMT/TST                    GPO      4681
          3433  0306003431 +                      ZR     X6,MIE22    IF TYPE[DI] = IV                            GPO      4682
                                                                                                                 GPO      4683
                          15750                   BX7    "RN"X5                                                  GPO      4684
                               53377              SA3    "TB"+X7                                                 GPO      4685
          3434  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
          3435  0314003443 +                      NZ     X4,MIE25    IF TYPE[DI] " I                             GPO      4690
                                                                                                                 GPO      4691
                          20634                   LX6    -R1.RJP                                                 GPO      4692
                               15760              BX7    "RN"X6                                                  GPO      4693
          3436  0307003440 +                      ZR     X7,MIE23    IF RJ[R1] = 0                               GPO      4694
                          53377                   SA3    "TB"+X7                                                 GPO      4695
                               11606              BX6    X0*X6                                                   GPO      4696
          3437  73230                             SX2    X3          RJ[R1] = HBP[TB+RJ[R1]]                     GPO      4697
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   128
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                     12626                        BX6    X2+X6                                                   GPO      4698
          3440  20620                    MIE23    LX6    R1.RJP-R1.RKP                                           GPO      4699
                     15760                        BX7    "RN"X6                                                  GPO      4700
                          0307003442 +            ZR     X7,MIE24    IF RK[R1] = 0                               GPO      4701
          3441  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
          3442  20620                    MIE24    LX6    R1.RKP                                                  GPO      4706
                     54650                        SA6    A5                                                      GPO      4707
                          0400003431 +            EQ     MIE22                                                   GPO      4708
                                                                                                                 GPO      4709
          3443  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
          3444  0307003431 +                      ZR     X7,MIE22    IF RF[R2] @ 1                               GPO      4714
                          53277                   SA2    "TB"+X7                                                 GPO      4715
                               11303              BX3    X0*X3                                                   GPO      4716
          3445  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
          3446  0400003431 +                      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
          3447  5110000115 C             MIE26    SA1    IC          I = IC                                      GPO      4727
                          57271                   SA2    "TB"-B1                                                 GPO      4728
                               66211              SB2    B1+B1                                                   GPO      4729
          3450  55322                             SA3    A2-B2                                                   GPO      4730
                     43072                        MX0    -SO.LKL                                                 GPO      4731
                          22702                   LX7    X2                                                      GPO      4732
                               10633              BX6    X3                                                      GPO      4733
          3451  6150000004                        SB5    OC.RS                                                   GPO      4734
                          20026                   LX0    R1.SOP+SO.LKP                                           GPO      4735
                                                                                                                 GPO      4736
          3452  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
          3453  73150                             SX1    X5          I = IIC[LI]   */ NEXT ON CHAIN              GPO      4741
                     0324003457 +                 PL     X4,MIE29    IF DEF[DI]                                  GPO      4742
                                                                                                                 GPO      4743
                               55242              SA2    A4-B2       R1 = DI - 2                                 GPO      4744
          3454  26332                             UX3    B3,X2                                                   GPO      4745
                     0535003456 +                 NE     B3,B5,MIE28 IF OC[R1] " OC.RS                           GPO      4746
                               15420              BX4    -X0*X2                                                  GPO      4747
          3455  0314003457 +                      NZ     X4,MIE29    IF SOLK[R1] " 0  */ TEMP LOCK               GPO      4748
          3456  5064777775               MIE28    SA6    A4-2        [DI+2] = TYI(OC.BOS,0,XX)                   GPO      4749
                          5074000000              SA7    A4+         [DI] = [TB-1]                               GPO      4750
                                                                                                                 GPO      4751
          3457  0311003452 +             MIE29    NZ     X1,MIE27    IF I " 0                                    GPO      4752
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3460  74000                             SX0    A0          I = TSC       */ TSC CHAIN INDEX            GPO      4761
                     76540                        SX5    B4                                                      GPO      4762
                          37152                   IX1    X5-X2                                                   GPO      4763
          3461  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
          3462  20244                             LX2    BS.NTETP                                                GPO      4767
                     12624                        BX6    X2+X4       NTET[BSW] = T0 - L.TET                      GPO      4768
                          54640                   SA6    A4                                                      GPO      4769
          3463  0301003243 +                      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
          3465  5140000000 X                      SA4    O.TXT                                                   GPO      4773
                          63520                   SB5    X2                                                      GPO      4774
                               66211              SB2    B1+B1                                                   GPO      4775
          3466  43152                             MX1    -T.CAL                                                  GPO      4776
                     5120000100 C                 SA2    NTP                                                     GPO      4777
                               63440              SB4    X4          HB = O.TXT                                  GPO      4778
          3467  13777                             BX7    X7-X7                                                   GPO      4779
                     43301                        MX3    1                                                       GPO      4780
                                                  LX3    1+I.INVP                                                GPO      4781
                                                                                                                 GPO      4782
          3470  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
          3471  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
          3472  54750                             SA7    A5          [LI] = 0                                    GPO      4791
                     0310003470 +                 NZ     X0,MIE30    IF I " 0                                    GPO      4792
                                                                                                                 GPO      4793
                               10622              BX6    X2                                                      GPO      4794
          3473  54620                             SA6    A2                                                      GPO      4795
                                                  TRACE  MIE,TET                                                 GPO      4796
                     0400003243 +                 EQ     MIE                                                     GPO      4797
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3474  7160000000               CIF0     SX6    0                                                       FCC1710X    8
                          5160000100 C            SA6    NTP         NTP = 0                                     FCC1710X    9
          3475  0200403475 +             CIF      ROUTINE                                                        GPO      4808
                                                                                                                 GPO      4809
                                        *         CALL *MII* TO MARK THE *INV* INSTRUCTIONS IN THE *HB* FOR DIF. GPO      4810
                                                                                                                 GPO      4811
          3476  43474                             MX4    60          BSW = -0                                    GPO      4812
                     5150000000 X                 SA5    O.TXT                                                   GPO      4813
                               76600              SX6    B0                                                      GPO      4814
          3477  5160000031 +                      SA6    BN          BN = 0        */ INDICATE SPECIAL CALL      GPO      4816
                          7100600001              SX0    RN.MASK                                                 CCG11     119
          3500  0100002336 +                      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
          3501  5110000000 X                      SA1    L.TXT                                                   GPO      4822
                          5120000000 X            SA2    O.TXT                                                   GPO      4823
          3502  6130000077                        SB3    OC.TST                                                  GPO      4824
                          6140000004              SB4    4                                                       GPO      4825
          3503  6272000003                        S"TB"  X2+3        TB = O.TXT + 3                              GPO      4826
                          43700                   MX7    0           SC = 0                                      GPO      4827
                               36612              IX6    X1+X2                                                   GPO      4828
          3504  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
          3505  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
          3506  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
          3507  55554                    CIF1     SA5    A5-B4       R1 = R1 - 4                                 GPO      4837
                     26625                        UX6    B2,X5                                                   GPO      4838
                          0421003516 +            EQ     B2,B1,CIF2  IF OC[R1] = OC.BOS                          GPO      4839
          3510  0523003507 +                      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
          3511  0334003507 +                      MI     X4,CIF1     IF INV[LI]                                  GPO      4843
                          53357                   SA3    "TB"+X5     LIP = TB + RI[R1]                           FCC1710X   14
                                                  LX3    59-I.INVP                                               FCC1710X   15
          3512  0333003514 +                      MI     X3,CIF1A    IF INV[LIP]                                 FCC1710X   16
                          54740                   SA7    A4          [LI] = SC                                   GPO      4844
                               75747              SX7    A4-"TB"     SC = LI - TB                                GPO      4845
          3513  0400003507 +                      EQ     CIF1                                                    GPO      4846
                                                                                                                 FCC1710X   17
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3514  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
          3515  54640                             SA6    A4                                                      FCC1710X   25
                     0400003507 +                 EQ     CIF1                                                    FCC1710X   26
                                                                                                                 GPO      4847
          3516  5170000121 C             CIF2     SA7    TSC         TSC = SC                                    GPO      4848
                          0307003474 +            ZR     X7,CIF0     IF SC = 0     */ NO TERMINAL POLYNOMIALS    FCC1710X   27
          3517  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
          3520  5150000121 C                      SA5    TSC                                                     GPO      4853
                          76100                   ADDWRD IIT,B0      ADDWRD( IIT , 0 )                           GPO      4854
          3522  7263777776                        SX6    X3-1                                                    GPO      4855
                          5160000127 C            SA6    ITB         ITB = L.IIT - 1  */ INDEX TO *PI* OF THIS   GPO      4856
                                                                                                                 GPO      4857
          3523  5140000000 X             CIF3     SA4    O.TXT                                                   GPO      4858
                          36745                   IX7    X4+X5                                                   GPO      4859
                               53571              SA5    X7+B1       R2 = TXT(TSC+1)                             GPO      4860
          3524  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
          3525  6160000000                        SB6    0           MULT = 0                                    GPO      4864
                          0100003577 +            RJ     DIF         DEVELOP *INCR* FORMULA                      GPO      4865
          3526  5110000021 C                      SA1    LCV                                                     GPO      4866
                          54500                   SA5    A0                                                      GPO      4867
                                                  LX5    -IA.UDIP                                                GPO      4868
                               26621              UX6    B2,X1                                                   GPO      4869
          3527  21644                             AX6    PS.UDIP                                                 GPO      4870
                     13765                        BX7    X6-X5                                                   GPO      4871
                          6227000000              SB2    X7+                                                     GPO      4872
          3530  0520003531 +                      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
          3531  5110000121 C             CIF4     SA1    TSC                                                     GPO      4876
                          5140000000 X            SA4    O.TXT                                                   GPO      4877
          3532  36741                             IX7    X4+X1                                                   GPO      4878
                     53571                        SA5    X7+B1       R2 = TXT(TSC+1)                             GPO      4879
                          5237000003              SA3    X7+3                                                    GPO      4880
          3533  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
          3534  0100003577 +                      RJ     DIF         DEVELOP *POLYNOMIAL* FORMULA                GPO      4884
          3535  76100                             ADDWRD IIT,B0      ADDWRD( IIT , 0 )                           GPO      4885
                                                                                                                 GPO      4886
          3537  5110000127 C                      SA1    ITB                                                     GPO      4887
                          5140000120 C            SA4    CAS                                                     GPO      4888
          3540  63220                             SB2    X2                                                      GPO      4889
                     5120000000 X                 SA2    O.TET                                                   GPO      4890
                               63440              SB4    X4                                                      GPO      4891
          3541  7263777776                        SX6    X3-1                                                    GPO      4892
                                                  LX6    PI.LFP                                                  GPO      4893
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3542  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
          3543  5150000121 C                      SA5    TSC                                                     GPO      4902
                          0315003523 +            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
          3544  5110000000 X                      SA1    O.TET                                                   GPO      4908
                          5120000000 X            SA2    O.IIT                                                   GPO      4909
          3545  5130000101 C                      SA3    PIC                                                     GPO      4910
                          6120000003              SB2    3                                                       GPO      4911
          3546  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
          3547  43700                             MX7    0                                                       FCC0514    78
                     5170000121 C                 SA7    CNI         CNI = 0                                     FCC0514    79
                                                                                                                 GPO      4915
          3550  54105                    CIF5     SA1    A0+B5       I = J;  PIW = IIT(I)                        GPO      4916
                     0301003574 +                 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
          3551  0331003550 +                      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
          3552  20652                             LX6    -IA.CAP                                                 GPO      4925
                     73760                        SX7    X6          CAS = CA[IAW]                               GPO      4926
                          5170000120 C            SA7    CAS                                                     GPO      4927
          3553  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
          3554  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
          3555  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
          3556  54204                    CIF7     SA2    A0+B4       PIK = IIT(K)                                GPO      4938
                     0302003550 +                 ZR     X2,CIF5     IF PIK = 0    */ END OF LIST                GPO      4939
                                                                                                                 GPO      4940
                               54521              SA5    A2+B1       IK = IIT(K+1)                               GPO      4941
          3557  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/05. 19.57.21.      PAGE   133
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                               20652              LX6    -IA.CAP                                                 GPO      4944
          3560  43752                             MX7    -IA.CAL                                                 GPO      4945
                     11676                        BX6    X7*X6                                                   GPO      4946
                          0316003573 +            NZ     X6,CIF9     IF (NWD,UDI)[IAW] " (NWD,UDI)[IK]           GPO      4947
          3561  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
          3562  0316003573 +                      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
          3563  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
          3564  0316003573 +                      NZ     X6,CIF9     IF DIF " 0    */ R1 WORDS                   GPO      4959
                          0317003573 +            NZ     X7,CIF9     IF [II] " [IK]                              GPO      4960
          3565  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
          3566  0313003563 +                      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
          3567  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
          3570  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
          3571  12775                             BX7    X7+X5       CN[IIT(I)] = CCN  */ SET *CN* IN BASE       FCC0514    90
                     54750                        SA7    A5                                                      FCC0514    91
                          76610                   SX6    B1                                                      FCC0514    92
          3572  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
          3573  63420                             SB4    X2          K = LF[PIK]                                 GPO      4975
                     0400003556 +                 EQ     CIF7                                                    GPO      4976
                                                                                                                 GPO      4977
          3574  7160000004               CIF10    SX6    4           L.TXT = 4                                   GPO      4978
                          5160000000 X            SA6    L.TXT                                                   GPO      4979
          3575  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
          3576  0400003475 +                      EQ     CIF                                                     GPO      4986
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3577  0200403577 +             DIF      ROUTINE                                                        GPO      5000
          3600  5110000000 X                      SA1    O.RND                                                   GPO      5001
                          5120000000 X            SA2    L.RND                                                   GPO      5002
          3601  6274000003                        S"TB"  X4+3        TB = O.TXT + 3                              GPO      5003
                          36212                   IX2    X1+X2                                                   GPO      5004
                               63510              SB5    X1                                                      GPO      5005
          3602  6130777774                        SB3    -3                                                      GPO      5006
                          5202777775              SA0    X2-2        SI = O.RND + L.RND-2  */ STACK ADDRESS      GPO      5007
          3603  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
          3604  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
          3605  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
          3606  0334003656 +                      MI     X4,DIF14    IF TYPE[DI] = III                           GPO      5024
                          0323003622 +            PL     X3,DIF5     IF TYPE[DI] = I                             GPO      5025
                                                                                                                 GPO      5026
                                        *         OUTPUT INSTRUCTION, PUSHUP STACK                               GPO      5027
                                                                                                                 GPO      5028
          3607  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
          3610  54001                             SA0    A0+B1       SI = SI + 1                                 GPO      5033
                     20301                        LX3    59-I.MP                                                 GPO      5034
                          0333003612 +            MI     X3,DIF2A    IF M[LI]      */ ALREADY OUTPUT             GPO      5035
                                                                                                                 GPO      5036
          3611  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
          3612  54300                    DIF2A    SA3    A0          R1W = [SI]                                  GPO      5040
                     15230                        BX2    "RN"X3                                                  GPO      5041
                          0303003663 +            ZR     X3,DIF15    IF R1W = 0    */ END OF STACK               GPO      5042
          3613  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/05. 19.57.21.      PAGE   135
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                          10533                   BX5    X3                                                      GPO      5045
          3614  0400003605 +                      EQ     DIF1                                                    GPO      5046
                                                                                                                 GPO      5047
                                        *         STACK INSTRUCTION, FOLLOW SELECTED OPERAND, (X6) = OP          GPO      5048
                                                                                                                 GPO      5049
          3615  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
          3616  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
          3617  0313003605 +                      NZ     X3,DIF1     IF OC[R1L] " OC.XMT                         GPO      5057
                          5020000002              SA2    A0+2                                                    GPO      5058
          3620  0312003605 +                      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
          3621  0400003605 +                      EQ     DIF1                                                    GPO      5061
                                                                                                                 GPO      5062
                                        *         PROCESS TYPE I INSTRUCTIONS                                    GPO      5063
                                                                                                                 GPO      5064
          3622  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
          3623  0316003625 +                      NZ     X6,DIF5A    IF RJ[R1] " 0                               FCC2230X    7
                          10644                   BX6    X4          OP = RK[R1]                                 FCC2230X    8
          3624  0400003626 +                      EQ     DIF5B                                                   FCC2230X    9
                                                                                                                 FCC2230X   10
          3625  0314003630 +             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
          3626  53467                    DIF5B    SA4    "TB"+X6     LJ = TB + OP                                FCC2230X   13
                     20401                        LX4    59-I.MP                                                 GPO      5074
                          0334003607 +            MI     X4,DIF2     IF M[LJ]      */ OPERAND PROCESSED          GPO      5075
          3627  0400003615 +                      EQ     DIF4                                                    GPO      5076
                                                                                                                 GPO      5077
          3630  26327                    DIF6     UX3    B2,X7                                                   GPO      5078
                     7122777675                   SX2    B2-OC.IM                                                GPO      5079
          3631  0312003640 +                      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
          3632  0526003633 +                      NE     B2,B6,DIF7  IF RI[R1W] " MULT                           GPO      5086
                          6160000000              SB6    0           MULT = 0                                    GPO      5087
                                                                                                                 GPO      5088
          3633  53367                    DIF7     SA3    "TB"+X6     LJ = TB + OP                                GPO      5089
                     20301                        LX3    59-I.MP                                                 GPO      5090
                          0323003635 +            PL     X3,DIF8     IF ^M[LJ]                                   GPO      5091
          3634  53347                             SA3    "TB"+X4     LJ = TB + K                                 GPO      5092
                     20301                        LX3    59-I.MP                                                 GPO      5093
                          0333003607 +            MI     X3,DIF2     IF M[LJ]      */ BOTH OPERANDS MARKED       GPO      5094
                                                                                                                 GPO      5095
          3635  75637                    DIF8     SX6    A3-"TB"     OP = LJ - TB  */ INDEX OF OPERAND           GPO      5096
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   136
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                     0560003615 +                 NZ     B6,DIF4     IF MULT " 0                                 GPO      5097
                               20373              LX3    I.MP-I.INVP                                             GPO      5098
          3636  0323003615 +                      PL     X3,DIF4     IF ^INV[LJ]                                 GPO      5099
                          66620                   SB6    B2          MULT = RI[R1W]    */ INDICATE INV OP OF IM  GPO      5100
          3637  0400003615 +                      EQ     DIF4                                                    GPO      5101
  
  
                                        *         PROCESS IA, IS . IGNORE *INV* TERMS IF MULT = 0 .              GPO      5103
                                                                                                                 GPO      5104
          3640  7122777751               DIF10    SX2    B2-OC.UP                                                FCC0238AX  43
                          0302003654 +            ZR     X2,DIF13    IF OC[R1W] = OC.UP                          FCC0238AX  44
                                                                                                                 FCC0238AX  45
          3641  53367                             SA3    "TB"+X6     LJ = TB + J                                 FCC0238AX  46
                     53247                        SA2    "TB"+X4     LK = TB + K                                 GPO      5106
                          0560003651 +            NZ     B6,DIF12    IF MULT " 0                                 GPO      5110
          3642  12123                             BX1    X2+X3                                                   GPO      5111
                                                  LX1    59-I.INVP                                               GPO      5112
                     0321003651 +                 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
          3643  6140000010                        SB4    OC.XMT      OC = OC.XMT                                 GPO      5117
                                                  LX3    59-I.INVP                                               GPO      5118
                          0323003646 +            PL     X3,DIF11    IF ^INV[LJ]                                 GPO      5119
          3644  6122777741                        SB2    B2-OC.IA                                                GPO      5120
                          7264000000              SX6    X4+         J = K                                       GPO      5121
          3645  0420003646 +                      ZR     B2,DIF11    IF OC[R1W] = OC.IA                          GPO      5122
                          6140000014              SB4    OC.XMTC     OC = OC.XMTC                                GPO      5123
                                                                                                                 GPO      5124
          3646  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
          3647  20634                             LX6    -R1.RJP     OP = J                                      GPO      5129
                     53367                        SA3    "TB"+X6     LJ = TB + J                                 FCC0640     5
                          20301                   LX3    59-I.MP                                                 FCC0640     6
          3650  0333003607 +                      MI     X3,DIF2     IF M[LJ]                                    FCC0640     7
                          0400003615 +            EQ     DIF4                                                    GPO      5130
                                                                                                                 GPO      5131
                                        *         ONE OPERAND MARKED, OR IN SCOPE OF MULTIPLY                    GPO      5132
                                                                                                                 GPO      5133
          3651  20301                    DIF12    LX3    59-I.MP                                                 GPO      5134
                     0323003615 +                 PL     X3,DIF4     IF ^M[LJ]                                   GPO      5135
                               10644              BX6    X4          OP = K                                      GPO      5136
          3652  20201                             LX2    59-I.MP                                                 FCC0640     8
                     0332003607 +                 MI     X2,DIF2     IF M[LK]      */ BOTH OPERANDS MARKED       FCC0640     9
          3653  0400003615 +                      EQ     DIF4                                                    GPO      5137
                                                                                                                 FCC0238AX  47
          3654  53347                    DIF13    SA3    "TB"+X4     LK = TB + K                                 FCC0238AX  48
                     20301                        LX3    59-I.MP                                                 FCC0238AX  49
                          0333003607 +            MI     X3,DIF2     IF M[LK]                                    FCC0238AX  50
          3655  73640                             SX6    X4          OP = K                                      FCC0238AX  51
                     0400003615 +                 EQ     DIF4                                                    FCC0238AX  52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   137
        DIF - DEVELOP INCREMENT FORMULAS                              TYIII               CODE
  
                                        *         TYPE III INSTRUCTION ( LD, KLS, STT )                          GPO      5139
                                                                                                                 GPO      5140
          3656  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
          3657  0306003607 +                      ZR     X6,DIF2     IF RF[R2] = 0                               GPO      5145
                          20201                   LX2    59-I.MP                                                 GPO      5146
                               26427              UX4    B2,X7                                                   GPO      5147
          3660  0332003607 +                      MI     X2,DIF2     IF M[LJ]                                    GPO      5148
                          7142777725              SX4    B2-OC.STT                                               GPO      5149
          3661  0314003615 +                      NZ     X4,DIF4     IF OC[R1W] " OC.STT                         GPO      5150
                          0560003615 +            NZ     B6,DIF4     IF MULT " 0                                 GPO      5151
          3662  6140000010                        SB4    OC.XMT      OC = OC.XMT   */ CHANGE STT TO AN XMT       GPO      5152
                          0400003646 +            EQ     DIF11                                                   GPO      5153
  
  
  
                                        **        PHASE 2, ADD INCREMENT EXPRESSION TO *IIT*                     GPO      5155
                                                                                                                 GPO      5156
          3663  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
          3664  7215000002                        ALLOC  IIT,X5+2    ALLOC( IIT , 4*N+2 )                        GPO      5161
          3666  5130000000 X                      SA3    O.TXT                                                   GPO      5162
                          5140000000 X            SA4    O.RND                                                   GPO      5163
          3667  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
          3670  6255000002                        SB5    X5+2        NWD = 4*N + 2                               GPO      5167
                          6060000004              SB6    A0+4        II = IB + 4   */ STORE ADDRESS              GPO      5168
          3671  5254000001                        SA5    X4+1        R1 = [O.RND+1]                              GPO      5169
                          6273000003              S"TB"  X3+3        TB = O.TXT + 3                              GPO      5170
                                                                                                                 GPO      5171
          3672  15750                    DIF16    BX7    "RN"X5      R = RI[R1]                                  GPO      5172
                     5120003717 +                 SA2    DIFA                                                    GPO      5173
                               53377              SA3    "TB"+X7     LI = TB + R                                 GPO      5174
          3673  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
          3674  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
          3675  0334003702 +                      MI     X4,DIF17    IF TYPE[DI] = III                           GPO      5183
                          20401                   LX4    1                                                       GPO      5184
                               43700              MX7    0           R2W = 0                                     GPO      5185
          3676  0334003712 +                      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
          3677  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/05. 19.57.21.      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
          3700  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
          3701  27626                             PX6    B2,X6                                                   GPO      5200
                     12563                        BX5    X6+X3                                                   GPO      5201
                          0400003712 +            EQ     DIF18                                                   GPO      5202
                                                                                                                 GPO      5203
                                        *         PROCESS TYPE III INSTRUCTION ( LD, KLS, STT )                  GPO      5204
                                                                                                                 GPO      5205
          3702  5023777775               DIF17    SA2    A3-2        R2 = LI - 2;  R2W = [R2]                    GPO      5206
                          20230                   LX2    -IH.RFP                                                 GPO      5207
                               15720              BX7    "RN"X2                                                  GPO      5208
          3703  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
          3704  12727                             BX7    X2+X7                                                   GPO      5213
                     20744                        LX7    IH.RFP                                                  GPO      5214
                          0326003712 +            PL     X6,DIF18    IF ^LD[II]                                  GPO      5215
                                                                                                                 FCC0656    47
          3705  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
          3706  56660                             SA6    B6                                                      FCC0656    51
                                                  LX3    59-I.INVP                                               GPO      5216
                     66441                        SB4    B4+B1       NLD = NLD + 1                               GPO      5217
                          0333003712 +            MI     X3,DIF18    IF INV[LI]                                  GPO      5218
                                                                                                                 GPO      5219
                                        *         SETUP FIRST HEADER WORD                                        GPO      5220
                                                                                                                 GPO      5221
          3707  20536                             LX5    -R1.INP                                                 GPO      5222
                     5120000120 C                 SA2    CAS                                                     GPO      5223
                               73650              SX6    X5                                                      GPO      5224
          3710  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
          3711  20536                             LX5    R1.INP                                                  GPO      5230
                     54600                        SA6    A0                                                      GPO      5231
                                                                                                                 GPO      5232
          3712  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
          3713  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
          3714  54551                             SA5    A5+B1       R1 = R1 + 1                                 GPO      5240
                     6166000004                   SB6    B6+4                                                    GPO      5241
          3715  0315003672 +                      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/05. 19.57.21.      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
          3716  54601                             SA6    A0+B1                                                   GPO      5249
                     0400003577 +                 EQ     DIF                                                     GPO      5250
                                                                                                                 GPO      5251
          3717                           DIFA     BFMW   I,(M,HBP)                                               GPO      5252
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3720  0200403720 +             FIM      ROUTINE                                                        GPO      5260
          3721  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
          3722  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
          3723  5110000000 X             FIM1     SA1    O.IIT                                                   GPO      5271
                          5120000000 X            SA2    L.IIT                                                   GPO      5272
          3724  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
          3725  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
          3726  10644                             BX6    X4                                                      GPO      5280
                     5160000124 C                 SA6    EV                                                      GPO      5281
                               20536              LX5    -R1.INP                                                 GPO      5282
          3727  73750                             SX7    X5          J = IN[R1]    */ *UDT* INDEX                GPO      5283
                     5170000123 C                 SA7    J                                                       GPO      5284
          3730  5140000101 C                      SA4    PIC         I = PIC                                     GPO      5285
                                                                                                                 GPO      5286
          3731  73641                    FIM2     SX6    X4+B1       PI = I + 1                                  GPO      5287
                     53445                        SA4    B5+X4       PIW = IIT(I)                                GPO      5288
                          0304003745 +            ZR     X4,FIM5     IF PIW = 0    */ END OF LIST                GPO      5289
          3732  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
          3733  0313003731 +                      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
          3734  73740                             SX7    X4                                                      GPO      5300
                     54761                        SA7    A6+B1       PI(2) = I                                   GPO      5301
                                                  LX1    IA.UDIP                                                 GPO      5302
                          0100003764 +            RJ     EIE         EVALUATE  *DEL TP( EV ) *                   GPO      5303
                                                                                                                 GPO      5304
                                                  PRINT  FIM,(* -- INC VALUE = *O20),X7                          GPO      5305
                                                                                                                 GPO      5306
          3735  26527                             UX5    B2,X7                                                   GPO      5307
                     0315003741 +                 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/05. 19.57.21.      PAGE   141
        FIM - FORM INCREMENT MODIFICATION LISTS                       FIM                 FIM 
  
                                                                                                                 GPO      5311
                               63360              SB3    X6                                                      GPO      5312
          3736  5110000000 X                      SA1    O.TET                                                   GPO      5313
                          43451                   MX4    -T.IPFL                                                 GPO      5314
                               53213              SA2    X1+B3       TI = TET(CAS)                               GPO      5315
          3737  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
          3740  54620                             SA6    A2                                                      GPO      5321
                     76760                        SX7    B6                                                      GPO      5322
                          54730                   SA7    A3          L.IIT = OLD(L.IIT)                          GPO      5323
                                                                                                                 GPO      5324
          3741  5110000000 X             FIM3     SA1    O.IIT                                                   GPO      5325
                          5110000000 X            SA1    O.IIT                                                   GPO      5326
          3742  5120000027 +                      SA2    O.SEQ                                                   GPO      5327
                          5140000126 C            SA4    PI+1                                                    GPO      5328
          3743  5150000123 C                      SA5    J                                                       GPO      5329
                          6272000003              S"TB"  X2+3                                                    GPO      5330
          3744  63510                             SB5    X1                                                      GPO      5331
                     0400003731 +                 EQ     FIM2                                                    GPO      5332
                                                                                                                 GPO      5333
                                        *         TERMINATE *TP* INC LIST, POINT FROM *ST* TO LIST.              GPO      5334
                                                                                                                 GPO      5335
          3745  5110000000 X             FIM5     SA1    L.IIT                                                   GPO      5336
                          5120000127 C            SA2    ITB                                                     GPO      5337
          3746  37612                             IX6    X1-X2                                                   GPO      5338
                     27502                        PX5    X2                                                      GPO      5339
                          23716                   AX7    B1,X6       NPI = (L.IIT-ITB) / 2                       GPO      5340
          3747  0306003754 +                      ZR     X6,FIM6     IF NPI = 0                                  GPO      5341
                          63470                   SB4    X7                                                      GPO      5342
          3750  5140000033 +                      SA4    BSW                                                     GPO      5343
                          27545                   PX5    B4,X5                                                   GPO      5344
                               26624              UX6    B2,X4                                                   GPO      5345
          3751  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
          3753  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
          3754  5130000122 C             FIM6     SA3    SC                                                      GPO      5355
                          53237                   SA2    "TB"+X3     LI = TB + SC                                GPO      5356
                               20252              LX2    -I.STCP                                                 GPO      5357
          3755  73720                             SX7    X2          SC = STC[LI]                                GPO      5358
                     54730                        SA7    A3                                                      GPO      5359
                          73220                   SX2    X2                                                      GPO      5360
                               20222              LX2    I.STCP                                                  GPO      5361
          3756  12652                             BX6    X5+X2       NPI[LI] = NPI;  HBP[LI] = ITB               GPO      5362
                     54620                        SA6    A2                                                      GPO      5363
                          0317003723 +            NZ     X7,FIM1     IF SC " 0                                   GPO      5364
                                                                                                                 GPO      5365
          3757  0400003720 +                      EQ     FIM                                                     GPO      5366
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          3760  10577                    EIE0     BX5    X7                                                      GPO      5376
                     76111                        ALLOC  IIT,2       ALLOC( IIT , 2 );  I = OLD(L.IIT)           GPO      5377
          3762  5140000120 C                      SA4    CAS                                                     GPO      5378
                          10755                   BX7    X5                                                      GPO      5379
                               73640              SX6    X4                                                      GPO      5380
          3763  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
          3764  0200403764 +             EIE      ROUTINE                                                        GPO      5384
          3765  54211                             SA2    A1+B1       PB = PA + 1                                 GPO      5385
                     5130000124 C                 SA3    EV                                                      GPO      5386
                               26621              UX6    B2,X1       NW = NWD[PA]                                GPO      5387
          3766  26432                             UX4    B3,X2       NLD = NLD[PB]                               GPO      5388
                     20652                        LX6    -IA.CAP     CAS = CA[PA]                                GPO      5389
                          6160000006              SB6    6                                                       GPO      5390
          3767  10733                             BX7    X3          EW = EV                                     GPO      5391
                     5160000120 C                 SA6    CAS                                                     GPO      5392
          3770  0426003760 +                      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
          3771  0540003772 +                      NZ     B4,EIE1     IF T " 0      */ INCREMENT ^ A CON          GPO      5396
                          0431004065 +            EQ     B3,B1,EIE9  IF NLD = 1    */ ONLY 1 *LD*                GPO      5397
                                                                                                                 GPO      5398
                                        *         CHECK FOR *LD* / *XMTC* COMBINATION                            GPO      5399
                                                                                                                 GPO      5400
          3772  0713003777 +             EIE1     GT     B3,B1,EIE2  IF NLD > 1                                  GPO      5401
                          54416                   SA4    A1+B6                                                   GPO      5402
                               26664              UX6    B6,X4                                                   GPO      5403
          3773  7156777763                        SX5    B6-OC.XMTC                                              GPO      5404
                          0315003777 +            NZ     X5,EIE2     IF OC[PA+6] " OC.XMTC                       GPO      5405
          3774  6162777765                        SB6    B2-10                                                   GPO      5406
                          0560003777 +            NZ     B6,EIE2     IF NW " 10                                  GPO      5407
                                                                                                                 GPO      5408
          3775  6154777774                        SB5    B4-3        TYPE[EW] = 3 - T                            GPO      5409
                          67405                   SB4    -B5                                                     GPO      5410
                               27747              PX7    B4,X7                                                   GPO      5411
          3776  0400003760 +                      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
          3777  7112000016               EIE2     ALLOC  TXT,14+B2   ALLOC( TXT , NW + 14 )                      FCC0448    62
          4001  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
          4002  6130000010                        SB3    OC.XMT      OPC = OC.XMT                                GPO      5421
                          76611                   SX6    B1+B1       RI[R1] = 2                                  GPO      5422
          4003  0540004006 +                      NZ     B4,EIE3     IF TYP[EV] " 0                              GPO      5423
                                                                                                                 GPO      5424
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   143
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                          6120000055              SB2    OC.S        OC = OC.S                                   GPO      5425
          4004  20736                             LX7    R1.INP      IN[R1] = VAL[EV]                            GPO      5426
                     12676                        BX6    X7+X6                                                   GPO      5427
                          7170000000              SX7    0           R2W = 0                                     GPO      5428
          4005  0400004011 +                      EQ     EIE4                                                    GPO      5429
                                                                                                                 GPO      5430
          4006  43530                    EIE3     MX5    -IH.CAIHL                                               GPO      5431
                     11457                        BX4    X5*X7                                                   GPO      5432
                          6120000050              SB2    OC.LD                                                   GPO      5433
          4007  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
          4010  0441004011 +                      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
          4011  0100000136 +             EIE4     RJ     SMI         SMI( OC , R1 , R2 )                         FCC0656    52
          4012  5150000000 X                      SA5    O.IIT                                                   GPO      5443
                          5120000125 C            SA2    PI                                                      GPO      5444
          4013  6140000004                        SB4    4                                                       GPO      5445
                          36752                   IX7    X5+X2                                                   GPO      5446
                               53170              SA1    X7          PA = O.IIT + PI                             GPO      5447
          4014  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
          4015  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
          4016  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
          4017  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
          4020  66664                             SB6    B6+B4       TI = TI + 4                                 GPO      5465
                     54554                        SA5    A5+B4       PA = PA + 4                                 GPO      5466
                          0550004015 +            NZ     B5,EIE5     IF N " 0                                    GPO      5467
                                                                                                                 GPO      5468
          4021  20140                             LX1    R1.RJP                                                  FCC0448    63
                     76560                        SX5    B6                                                      FCC0448    64
                          6120000010              SB2    OC.XMT                                                  FCC0448    65
          4022  12615                             BX6    X1+X5                                                   FCC0448    66
                     0100000124 +                 RJ     SRI         SRI( XMT  TI,R)                             FCC0448    67
          4023  6120000077                        SB2    OC.TST                                                  GPO      5469
                          5130000000 X            SA3    L.TET                                                   GPO      5470
          4024  77664                             SX6    B6-B4       R = TI - 4                                  FCC0448    68
                     5140000000 X                 SA4    =XIT.                                                   GPO      5472
                               20322              LX3    IH.CAP                                                  GPO      5473
          4025  12734                             BX7    X3+X4                                                   GPO      5474
                     0100000124 +                 RJ     SRI         SRI( TST  R,L.TET,IT. )                     GPO      5475
          4026  66200                             SB2    B0                                                      GPO      5476
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          4027  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
          4030  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
          4031  0100000124 +                      RJ     SRI         SRI( OPC  2,0,RI )                          GPO      5490
                                                                                                                 GPO      5491
          4032  0100000000 X                      CALL   SIE#        SQUEEZE INCREMENT EXPRESSION                CCGNC     638
                                                  TRACE  EIE,RLIST                                               GPO      5493
          4033  5140000000 X                      SA4    L.TXT                                                   GPO      5494
                          6234777753              SB3    X4-5*4                                                  CCG0127    13
          4034  0703004053 +                      GT     B3,EIE7     IF MORE THAN 5 INSTRUCTIONS                 CCG0127    14
                          5110000000 X            SA1    O.TXT       T = O.TXT                                   CCG0127    15
          4035  5221000004                        SA2    X1+4        R1L = [T+4]   */ R1 OF FIRST INSTRUCTION    CCG0127    16
                          26722                   UX7    B2,X2                                                   CCG0127    17
          4036  0430004044 +                      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
          4037  0316004041 +                      NZ     X6,EIE6A                                                CCG0127    23
                          43200                   MX2    0                                                       CCG0127    24
          4040  0400004063 +                      EQ     EIE8                                                    CCG0127    25
                                                                                                                 CCG0127    26
          4041  7162777722               EIE6A    SX6    B2-OC.S                                                 CCG0127    27
                          0316004053 +            NZ     X6,EIE7     IF NOT OC.S                                 CCG0127    28
          4042  20236                             LX2    -R1.INP                                                 CCG0127    29
                     43352                        MX3    42                                                      CCG0127    30
                          15223                   BX2    -X3*X2                                                  CCG0127    31
          4043  0400004063 +                      EQ     EIE8                                                    CCG0127    32
                                                                                                                 GPO      5497
                                        *         *TXT* SHOULD CONTAIN * BOS, LD, XMT/XMTC, TST, EOQ *           GPO      5498
                                                                                                                 GPO      5499
          4044  7162777727               EIE6Z    SX6    B2-OC.LD                                                CCG0127    33
                          21736                   AX7    R1.INP                                                  GPO      5504
                               66410              SB4    B1          TYP = 1                                     CCG0127    34
          4045  0306004047 +                      ZR     X6,EIE6     IF OC[R1L] = OC.LD                          CCG0127    35
                          6140000005              SB4    5                                                       CCG0127    36
          4046  7162777673                        SX6    B2-OC.LDV                                               CCG0127    37
                          0316004053 +            NZ     X6,EIE7     IF OC[R1L] .NE. OC.LDV                      CCG0127    38
                                                                                                                 CCG0127    39
          4047  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
          4050  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
          4051  0423004063 +                      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/05. 19.57.21.      PAGE   145
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
          4052  66441                             SB4    B4+B1       TYP = TYP + 1                               CCG0127    41
                     0423004063 +                 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
          4053  7214777767               EIE7     ALLOC  MOD,X4-8    ALLOC( MOD , L.TXT - 8 )                    GPO      5521
          4055  5140000000 X                      SA4    O.TXT                                                   GPO      5522
                          73326                   SX3    X2+B6                                                   GPO      5523
          4056  7224000004                        MOVE   X1,X4+4,X3  MOVE( L.TXT-8 , O.TXT+4 , O.MOD+OLD(L.MOD)) GPO      5524
          4057  43101                             MX1    1                                                       GPO      5525
                     5150000000 X                 SA5    IT.                                                     GPO      5526
                                                  LX1    1+T.INVP                                                GPO      5527
          4060  5100000000 X                      ADDWRD TET,X1      ADDWRD( TET , TETW(1,0,0,0) )               GPO      5528
          4061  7233777776                        SX3    X3-1                                                    GPO      5529
                          6140000003              SB4    3           TYP = 3                                     CCG0127    42
          4062  20322                             LX3    IH.CAP                                                  CCG0127    43
                     12235                        BX2    X3+X5       CAIH = CAIH[L.TET-1,IT.]                    CCG0127    44
                                                                                                                 CCG0127    45
          4063  27742                    EIE8     PX7    B4,X2       EW = PACK(TYP,CAIH)                         CCG0127    46
                     7160000004                   SX6    4           L.TXT = 4                                   CCG0127    47
          4064  5160000000 X                      SA6    L.TXT                                                   GPO      5536
                          0400003760 +            EQ     EIE0                                                    GPO      5537
  
  
  
  
                                        *         EVALUATE EXPRESSION WITH CONSTANT INC VALUE AND 1 *LD*.        GPO      5539
                                                                                                                 GPO      5540
          4065  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
          4066  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
          4067  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
          4070  0316004072 +                      NZ     X6,EIE11    IF TYPE[DI] " I                             GPO      5556
                          20534                   LX5    -R1.RJP                                                 GPO      5557
                               15650              BX6    "RN"X5                                                  GPO      5558
          4071  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
          4072  5155004115 +             EIE11    SA5    EIE.JT+B5                                               GPO      5564
                          6255000000              SB5    X5+                                                     GPO      5565
          4073  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/05. 19.57.21.      PAGE   146
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
          4074  66664                    EIE12    SB6    B6+B4       I = I + 4                                   GPO      5570
                     54741                        SA7    A4+B1       LI = DI + 1;  [LI] = V                      GPO      5571
                          0762004067 +            LT     B6,B2,EIE10 IF I < NW                                   GPO      5572
                                                                                                                 GPO      5573
          4075  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
          4076  21321                             AX3    17                                                      CCG21      33
                     0313003777 +                 NZ     X3,EIE2     IF SHIFT(V,-17) " 0  */ INC VAL ^ A SMALL C CCG21      34
                               15671              BX6    -X1*X7                                                  GPO      5576
          4077  27706                             PX7    X6          EW = PACK(0,V)                              GPO      5577
                     0400003760 +                 EQ     EIE0                                                    GPO      5578
  
  
  
                                        *         INSTRUCTION PROCESSORS                                         GPO      5580
                                                                                                                 GPO      5581
          4100                                    PROCESS (LD,ILD)                                               GPO      5582
          4100  74700                             SX7    A0          V = LDV                                     GPO      5583
                     0400004074 +                 EQ     EIE12                                                   GPO      5584
                                                                                                                 GPO      5585
          4101                                    PROCESS (XMT,SA)                                               CCG41       1
          4101  10722                             BX7    X2          V = VJ                                      GPO      5587
                     0400004074 +                 EQ     EIE12                                                   GPO      5588
                                                                                                                 GPO      5589
          4102                                    PROCESS XMTC                                                   GPO      5590
          4102  14722                             BX7    -X2         V = -VJ                                     GPO      5591
                     0400004074 +                 EQ     EIE12                                                   GPO      5592
                                                                                                                 GPO      5593
          4103                                    PROCESS IA                                                     GPO      5594
          4103  36723                             IX7    X2+X3       V = VJ + VK                                 GPO      5595
                     0400004074 +                 EQ     EIE12                                                   GPO      5596
                                                                                                                 GPO      5597
          4104                                    PROCESS IS                                                     GPO      5598
          4104  37723                             IX7    X2-X3       V = VJ - VK                                 GPO      5599
                     0400004074 +                 EQ     EIE12                                                   GPO      5600
                                                                                                                 GPO      5601
          4105                                    PROCESS IM                                                     GPO      5602
          4105  42723                             IX7    X2*X3       V = VJ * VK                                 GPO      5603
                     0400004074 +                 EQ     EIE12                                                   GPO      5604
                                                                                                                 GPO      5605
          4106                                    PROCESS S                                                      GPO      5606
          4106  20736                             LX7    -R1.INP                                                 GPO      5607
                     73770                        SX7    X7          V = IN[R1]                                  GPO      5608
                          0400004074 +            EQ     EIE12                                                   GPO      5609
                                                                                                                 GPO      5610
          4107                                    PROCESS FMA                                                    GPO      5611
          4107  20736                             LX7    -R1.INP                                                 GPO      5612
                     6257777776                   SB5    X7-1                                                    GPO      5613
                               43501              MX5    1                                                       GPO      5614
          4110  23755                             AX7    B5,X5       V = SHIFT( 1S59 , -(IN[R1]-1) )             GPO      5615
                     0400004074 +                 EQ     EIE12                                                   GPO      5616
                                                                                                                 GPO      5617
          4111                                    PROCESS SXT                                                    GPO      5618
          4111  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/05. 19.57.21.      PAGE   147
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                               66664              SB6    B6+B4       I = I + 4                                   GPO      5621
          4112  20352                             LX3    -IH.CAP                                                 GPO      5622
                     63530                        SB5    X3                                                      GPO      5623
                          22752                   LX7    B5,X2       V = SHIFT( VJ , CA[R2] )                    GPO      5624
          4113  0400004074 +                      EQ     EIE12                                                   GPO      5625
                                                                                                                 FCC2271X   44
          4114                                    PROCESS UP                                                     FCC2271X   45
          4114  10733                             BX7    X3          V = VK                                      FCC2271X   46
                     0400004074 +                 EQ     EIE12                                                   FCC2271X   47
                                                                                                                 GPO      5626
                                3777 +   .STT     EQU    EIE2              */ CONTAINS AN *IH*                   GPO      5627
                                3777 +   .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
          4115                           EIE.JT   BSS    0                                                       GPO      5643
          4115                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                                                                                                 GPO      5645
                                                  QUAL                                                           GPO      5646
                                4115 +   MIP.JT   EQU    /FIM/EIE.JT                                             GPO      5647
                                                                                                                 GPO      5648
                                                  QUAL   CODE                                                    GPO      5649
                                                                                                                 GPO      5650
                                3720 +   FIM      EQU    /FIM/FIM                                                GPO      5651
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          4224  0200404224 +             UPB      ROUTINE                                                        GPO      5658
          4225  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
          4226  73172                             SX1    B2+X7                                                   GPO      5663
                     5170004346 +                 SA7    NTL                                                     GPO      5664
                               76622              SX6    B2+B2                                                   GPO      5665
          4227  36567                             IX5    X6+X7                                                   GPO      5666
                     20503                        LX5    3                                                       GPO      5667
                          5100000000 X            ALLOC  MLT,X1      ALLOC( MLT , NTL + NPI )                    GPO      5668
          4231  73150                             ALLOC  MOD,X5      ALLOC( MOD , 8*NTL + 16*NPI )               GPO      5669
          4233  5130000000 X                      SA3    O.MLT                                                   GPO      5670
                          5150000027 +            SA5    O.SEQ                                                   GPO      5671
          4234  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
          4235  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
          4236  26644                             UX6    B4,X4                                                   FCC0717    69
                     0440004303 +                 ZR     B4,UPB8     IF NIS[BSW] = 0  */ NO INCREMENTS           FCC0717    70
                               20452              LX4    -BS.STCP                                                FCC0717    71
          4237  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
          4240  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
          4241  73730                             SX7    X3          SC = STC[LI]  */ NEXT ON CHAIN              FCC0717    81
                     20444                        LX4    ML.IIP                                                  FCC0717    82
                          5170000122 C            SA7    SC                                                      FCC0717    83
          4242  0430004302 +                      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
          4243  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
          4244  6120000076               UPB2     SB2    OC.TLD                                                  FCC0717    98
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   149
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                          76660                   SX6    B6                                                      FCC0717    99
                               20522              LX5    IH.CAP                                                  FCC0717   100
          4245  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
          4246  54551                             SA5    A5+B1       ILI = ILI + 1                               FCC0717   107
                     26725                        UX7    B2,X5       T = TYP[ILI];  R2W = VAL[ILI]               FCC0717   108
                          5132004350 +            SA3    UPBB+B2                                                 FCC0717   109
          4247  76660                             SX6    B6                                                      FCC0717   110
                     0520004265 +                 NZ     B2,UPB3     IF T " 0                                    FCC0717   111
          4250  5140000000 X                      SA4    O.TET                                                   CCG21      37
                          20152                   LX1    -IH.CAP                                                 CCG21      38
                               63240              SB2    X4                                                      CCG21      39
          4251  53412                             SA4    B2+X1       TW = TET(C)                                 CCG21      40
                     20122                        LX1    IH.CAP                                                  CCG21      41
                          20404                   LX4    59-T.RFP                                                CCG21      42
          4252  0324004260 +                      PL     X4,UPB2A    IF ^RF[TW]    */ NOT SHORT USE              CCG21      43
                          5140000000 X            SA4    =XHO$LCM                                                CCG0212     5
          4253  0324004255 +                      PL     X4,UPB2C              */  IF  .NOT.  LCM=G              CCG0212     6
                          5140000000 X            SA4    =XHO$OPT                                                CCG0212     7
          4254  0334004260 +                      MI     X4,UPB2A                 */ IF OPT=2                    CCG0212     8
                                                                                                                 FCC0717   112
          4255  20722                    UPB2C    LX7    IH.CAP                                                  CCG0212     9
                     7146777773                   SX4    B6-4                                                    FCC0717   114
                               20444              LX4    IH.RFP      C = VAL[ILI]  */ INC VALUE                  FCC0717   115
          4256  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
          4257  0400004276 +                      EQ     UPB6                                                    FCC0717   119
                                                                                                                 CCG21      44
          4260  73570                    UPB2A    SX5    X7                                                      CCG40       5
                     0325004261 +                 PL     X5,UPB2B    IF C GE O                                   CCG40       6
                               14755              BX7    -X5         C = ABS(C)                                  CCG40       7
                                                                                                                 CCG40       8
          4261  20736                    UPB2B    LX7    R1.INP                                                  CCG40       9
                     12676                        BX6    X7+X6                                                   CCG21      46
                          6120000055              SB2    OC.S        OC = OC.S                                   CCG21      47
          4262  43700                             MX7    0                                                       CCG21      48
                     0100000124 +                 RJ     SRI         SRI( S  RI,C )                              CCG21      49
          4263  7130000036                        SX3    OC.IA                                                   CCG21      50
                          0325004273 +            PL     X5,UPB5A    IF C WAS POSITIVE                           CCG40      10
          4264  7130000037                        SX3    OC.IS                                                   CCG40      11
                          0400004273 +            EQ     UPB5A                                                   CCG21      51
                                                                                                                 FCC0717   120
                                        *         TLD - REPLACE *CA* WITH EQUIVALENT                             FCC0717   121
                                                                                                                 FCC0717   122
          4265  0323004270 +             UPB3     PL     X3,UPB4     IF NOT *TLD*                                CCG0127    48
                          5140000000 X            SA4    O.TET                                                   FCC0717   124
          4266  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
          4267  20722                             LX7    IH.CAP                                                  FCC0717   130
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   150
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                     12772                        BX7    X7+X2                                                   FCC0717   131
                          0400004272 +            EQ     UPB5                                                    FCC0717   132
                                                                                                                 FCC0717   133
                                        *         LD - SET *IN* FIELD IN R1 WORD                                 FCC0717   134
                                                                                                                 FCC0717   135
          4270  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
          4271  12656                             BX6    X5+X6                                                   FCC0717   140
                                                                                                                 FCC0717   141
          4272  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
          4273  7156777767               UPB5A    SX5    B6-8                                                    CCG21      52
                          7146777773              SX4    B6-4                                                    FCC0717   149
          4274  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
          4275  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
          4276  7166777773               UPB6     SX6    B6-4                                                    FCC0717   158
                          6120000077              SB2    OC.TST                                                  FCC0717   159
          4277  10711                             BX7    X1          R2W = R2WS                                  FCC0717   160
                     0100000131 +                 RJ     SII         SII( TST  MI-4,R2W )                        FCC0717   161
          4300  54551                             SA5    A5+B1       ILI = ILI + 1                               FCC0717   162
                     0315004244 +                 NZ     X5,UPB2     IF [ILI] " 0                                FCC0717   163
                                                                                                                 FCC0717   164
                               55401              SA4    A0-B1                                                   FCC0717   165
          4301  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
          4302  5140000122 C             UPB7     SA4    SC                                                      FCC0717   171
                          0314004240 +            NZ     X4,UPB1     IF SC " 0                                   FCC0717   172
  
  
                                        *         SCAN *TET* AND SETUP *TLD*"S OF REMOVED EXPRESSIONS            FCC0717   174
                                                                                                                 FCC0717   175
          4303  5130004346 +             UPB8     SA3    NTL                                                     FCC0717   176
                          0303004342 +            ZR     X3,UPB15    IF NTL = 0                                  FCC0717   177
          4304  5110000102 C                      SA1    TTI                                                     FCC0717   178
                          5140000000 X            SA4    O.TET                                                   FCC0717   179
          4305  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
          4306  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/05. 19.57.21.      PAGE   151
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
          4307  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
          4310  20322                             LX3    IH.CAP                                                  FCC0717   192
                     12723                        BX7    X2+X3       R2W = CAIH[CA[TI],IT.]                      FCC0717   193
                          20405                   LX4    59-I.AIPP                                               FCC0717   194
          4311  5110004357 +                      SA1    UPBC                                                    CCG0214     7
                          0324004327 +            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
          4312  65301                             SB3    A0-B1                                                   FCC2045     4
                     66271                        SB2    B7+B1                                                   FCC2045     5
          4313  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
          4314  37564                             IX5    X6-X4                                                   FCC2045    10
                     0335004313 +                 MI     X5,UPB10    IF II[MLW] > R                              FCC2045    11
                               20344              LX3    ML.IIP-ML.MTIP    I = MTI[MLW]                          FCC2045    12
          4315  53232                             SA2    B2+X3                                                   FCC2149     1
                     20352                        LX3    ML.MTIP-ML.NIP    K = NI[MLW]                           FCC2149     2
                                                                                                                 FCC2149     3
          4316  13427                    UPB10A   BX4    X2-X7                                                   FCC2149     4
                     0304004323 +                 ZR     X4,UPB10B   IF MOD(I) = R2W                             FCC2149     5
          4317  7233777776                        SX3    X3-1        K = K - 1                                   FCC2149     6
                          5022000004              SA2    A2+4        I = I + 4                                   FCC2149     7
          4320  0313004316 +                      NZ     X3,UPB10A   IF K " 0                                    FCC2149     8
                          5110000000 X            SA1    O.MLT                                                   CCGA091     6
          4321  14111                             BX1    -X1                                                     CCGA091     7
                     73113                        SX1    B3+X1                                                   CCGA091     8
                          0321004313 +            PL     X1,UPB10                        */ IF MLT NOT EMPTY     CCGA091     9
          4322  0400004341 +                      EQ     UPB14                                                   CCGA091    10
                                                                                                                 FCC2149    10
          4323  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
          4324  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
          4325  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
          4326  54001                             SA0    A0+B1       MLI = MLI + 1                               FCC0717   218
                     0400004337 +                 EQ     UPB13                                                   FCC0717   219
                                                                                                                 FCC0717   220
          4327  55441                    UPB11    SA4    A4-B1       DI = LI - 1                                 FCC0717   221
                     6120000076                   SB2    OC.TLD                                                  FCC0717   222
                               11314              BX3    X1*X4                                                   FCC0717   223
          4330  0313004333 +                      NZ     X3,UPB12    IF STRS[DI] ! PI[DI] " 0                    FCC0717   224
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          4331  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
          4332  54740                             SA7    A4          [DI] = RDT(OC.TLD)                          FCC0717   233
                     0400004341 +                 EQ     UPB14                                                   FCC0717   234
                                                                                                                 FCC0717   235
                                        *         SETUP *MOD* ENTRY FOR *TLD/XMT*                                FCC0717   236
                                                                                                                 FCC0717   237
          4333  5130004347 +             UPB12    SA3    UPBA                                                    FCC0717   238
                          76460                   SX4    B6                                                      FCC0717   239
                               20644              LX6    ML.IIP                                                  FCC0717   240
                                                  LX4    ML.MTIP                                                 FCC0717   241
          4334  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
          4335  76660                             SX6    B6                                                      FCC0717   246
                     0100000124 +                 RJ     SRI         SRI( TLD  R,R2W )                           FCC0717   247
          4336  7156777773                        SX5    B6-4        RJ = MI-4                                   FCC0717   248
                                                                                                                 FCC0717   249
          4337  76660                    UPB13    SX6    B6                                                      FCC0717   250
                     20540                        LX5    R1.RJP                                                  FCC0717   251
                          6120000010              SB2    OC.XMT                                                  FCC0717   252
          4340  43700                             MX7    0                                                       FCC0717   253
                     12656                        BX6    X5+X6                                                   FCC0717   254
                          0100000124 +            RJ     SRI         SRI( XMT  MI,RJ )                           FCC0717   255
                                                                                                                 FCC0717   256
          4341  67441                    UPB14    SB4    B4-B1       NT = NT - 1                                 FCC0717   257
                     54551                        SA5    A5+B1       TI = TI + 1                                 FCC0717   258
                          0540004307 +            NZ     B4,UPB9     IF NT " 0                                   FCC0717   259
  
  
                                        *         SET FINAL TABLE LENGTHS AND MERGE THE BLOCKS                   FCC0717   261
                                                                                                                 FCC0717   262
          4342  5110000000 X             UPB15    SA1    O.MLT                                                   FCC0717   263
                          74200                   SX2    A0                                                      GPO      5844
                               76660              SX6    B6                                                      GPO      5845
          4343  5160000000 X                      SA6    L.MOD       L.MOD = MI                                  GPO      5846
                          37721                   IX7    X2-X1                                                   GPO      5847
                               43601              MX6    1                                                       GPO      5848
          4344  5170000000 X                      SA7    L.MLT       L.MLT = MLI - O.MOD                         GPO      5849
                          0100004364 +            CALL   MPB         MERGE, SQUEEZE AND REWRITE BLOCK            GPO      5850
          4345  0400004224 +                      EQ     UPB                                                     GPO      5851
                                                                                                                 GPO      5852
          4346                     1     NTL      BSS    1           N.TET"S IN BLOCK                            GPO      5853
          4347                           UPBA     BSS    0                                                       GPO      5854
          4347  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/05. 19.57.21.      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
          4350                           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   4357                                    LOC    *O                                                      GPO      5872
                                                                                                                 GPO      5873
          4357                           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/05. 19.57.21.      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
          4360  5110004471 +             MPB0     SA1    MPBA                                                    GPO      5890
                          0301004364 +            ZR     X1,MPB      IF MPBA = 0   */ NO SQZB CALL               GPO      5891
          4361  43600                             MX6    0                                                       GPO      5892
                     0100000000 X                 CALL   SQZB#                                                   CCGNC     639
                                                                                                                 GPO      5894
                                                  TRACE  MPB,RLIST                                               GPO      5895
                                                                                                                 GPO      5896
          4362  5110004471 +                      SA1    MPBA                                                    GPO      5897
                          0321004364 +            PL     X1,MPB      IF MPBA > 0                                 GPO      5898
                                                                                                                 GPO      5899
          4363  0100000066 +                      CALL   WTB         WRITE BLOCK BACK TO *BLK*                   GPO      5900
                                                                                                                 GPO      5901
          4364  0200404364 +             MPB      ROUTINE                                                        GPO      5902
          4365  5160004471 +                      SA6    MPBA                                                    GPO      5903
                                                  TRACE  MPB,MLT                                                 GPO      5904
                                                  TRACE  MPB,RLIST,MOD                                           GPO      5905
                          5150000000 X            SA5    L.MOD                                                   GPO      5906
          4366  5140000030 +                      SA4    L.SEQ                                                   GPO      5907
                          7255777767              SX5    X5-8                                                    GPO      5908
          4367  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
          4371  5140000027 +                      SA4    O.SEQ                                                   GPO      5914
                          5110000000 X            SA1    O.MOD                                                   GPO      5915
          4372  7176777773                        SX7    B6-4        PTL = OLD(L.TXT) - 4                        GPO      5916
                          6130000003              SB3    3                                                       GPO      5917
          4373  36627                             IX6    X2+X7       TIA = O.TXT + PTL                           GPO      5918
                     5160004473 +                 SA6    TIA                                                     GPO      5919
                               63723              S"TB"  X2+B3       TB = O.TXT + 3                              GPO      5920
          4374  43001                             MX0    1                                                       GPO      5921
                     5130000000 X                 SA3    O.MLT                                                   GPO      5922
                               63643              S"SB"  X4+B3       SB = O.SEQ + 3                              GPO      5923
          4375  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
          4376  0317004377 +            +         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
          4377  0302004404 +                      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/05. 19.57.21.      PAGE   155
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
          4400  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
          4401  67551                   +         SB5    B5-B1       N = N - 1                                   GPO      5937
                     0624004402 +                 GE     B2,B4,*+1   MIA = MIN( II[I] , MIA )                    GPO      5938
                               66420              SB4    B2                                                      GPO      5939
          4402  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
          4403  0550004400 +                      NZ     B5,MPB1     IF N " 0                                    GPO      5944
  
  
                                        *         MOVE INSTRUCTIONS FROM *SEQ* TO *TXT*, INSERT INSTRUCTIONS     GPO      5946
                                        *         FROM *MOD*                                                     GPO      5947
                                                                                                                 GPO      5948
          4404  5120004473 +             MPB2     SA2    TIA                                                     GPO      5949
                          5110000000 +            SA1    DMASK                                                   GPO      5950
          4405  53020                             SA0    X2          TI = TIA                                    GPO      5951
                     73624                        SX6    X2+B4       FIA = TIA + MIA                             GPO      5952
                          5160004472 +            SA6    FIA                                                     GPO      5953
          4406  5156777770                        SA5    "SB"-7      SI = SB-3 - 4                               GPO      5954
                          6140000004              SB4    4                                                       GPO      5955
          4407  0400004414 +                      EQ     MPB4                                                    GPO      5956
                                                                                                                 GPO      5957
                                        *         MOVE INSTRUCTION TO *TXT*                                      GPO      5958
                                                                                                                 GPO      5959
          4410  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
          4411  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
          4412  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
          4413  54004                             SA0    A0+B4       TI = TI + 4                                 GPO      5972
                     54653                        SA6    A5+B3       [SI+3] = R    */ NEW R-NUMBER               GPO      5973
                          0420004431 +            ZR     B2,MPB7     IF OC[SI] = 0 */ END OF SEQ                 GPO      5974
                                                                                                                 GPO      5975
          4414  54554                    MPB4     SA5    A5+B4       SI = SI + 4                                 GPO      5976
                     0325004410 +                 PL     X5,MPB3     IF [SI] \ 0   */ NOT AN INSERT POINT        GPO      5977
                               54253              SA2    A5+B3       LW = [SI+3]                                 GPO      5978
          4415  15650                             BX6    -X0*X5                                                  GPO      5979
                                                  LX2    59-ML.DELP                                              GPO      5980
                     0332004421 +                 MI     X2,MPB5     IF DEL[LW]    */ INST TO BE DELETED         GPO      5981
                                                                                                                 GPO      5982
                               54451              SA4    A5+B1       R2 = SI + 1                                 GPO      5983
          4416  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
          4417  15631                             BX6    -X1*X3                                                  GPO      5988
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      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
          4420  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
          4421  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
          4422  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
          4423  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
          4424  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
          4425  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
          4426  0520004422 +                      NZ     B2,MPB6     IF N " 0                                    GPO      6020
                                                                                                                 GPO      6021
                          0325004414 +            PL     X5,MPB4     IF ^DEL[LW]   */ IF AN INSERT               GPO      6022
          4427  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
          4430  0400004414 +                      EQ     MPB4                                                    GPO      6027
  
  
                                        *         ADJUST R-NUMBERS TO BRING *TXT* TO CANONICAL FORM              GPO      6029
                                                                                                                 GPO      6030
          4431  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
          4432  7100600001                        SX0    RN.MASK                                                 CCG11     120
                          5160000000 X            SA6    L.TXT                                                   GPO      6035
                                                  TRACE  MPB7,RLIST                                              GPO      6037
          4433  5130004472 +                      SA3    FIA                                                     GPO      6038
                          43102                   MX1    D.TYL                                                   GPO      6039
                               66211              SB2    B1+B1                                                   GPO      6040
          4434  0333004360 +                      MI     X3,MPB0     IF FIA < 0    */ NO MODS TO BLOCK           GPO      6041
                          5243777775              SA4    X3-2        DI = FIA - 2                                GPO      6042
          4435  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/05. 19.57.21.      PAGE   157
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
          4436  56660                             SA6    "SB"        [SB] = 0                                    GPO      6046
                     56650                        SA6    B5          [MB] = 0                                    GPO      6047
                          0400004446 +            EQ     MPB10                                                   GPO      6048
                                                                                                                 GPO      6049
                                        *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *SEQ*             GPO      6050
                                                                                                                 GPO      6051
          4437  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
          4440  36653                             IX6    X5+X3       RI[R1] = R                                  GPO      6056
                     0314004444 +                 NZ     X4,MPB9     IF TYPE[DI] " I                             GPO      6057
                                                                                                                 GPO      6058
                               20634              LX6    -R1.RJP                                                 GPO      6059
          4441  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
          4442  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
          4443  36653                             IX6    X5+X3       RK[R1] = R                                  GPO      6068
                     6100000000                   SB0    0                                                       GPO      6069
                               20620              LX6    R1.RKP                                                  GPO      6070
                                                                                                                 GPO      6071
          4444  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
          4445  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
          4446  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
          4447  0306004465 +                      ZR     X6,MPB16    IF TYPE[DI] = IV                            GPO      6088
                          0325004437 +            PL     X5,MPB8     IF RW > 0                                   GPO      6089
                                                                                                                 GPO      6090
                                        *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *MOD*             GPO      6091
                                                                                                                 GPO      6092
          4450  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
          4451  20754                             LX7    -R1.RIL                                                 GPO      6097
                     0327004452 +                 PL     X7,MPB11    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6098
                               64700              SB7    A0                                                      GPO      6099
          4452  53227                    MPB11    SA2    B7+X2       RI[RW] = [B+R]                              GPO      6100
                     11605                        BX6    X0*X5                                                   GPO      6101
                          0314004460 +            NZ     X4,MPB14    IF TYPE[DI] " I                             GPO      6102
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   158
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
                                                                                                                 GPO      6103
          4453  15470                             BX4    "RN"X7                                                  GPO      6104
                     20754                        LX7    -R1.RIL                                                 GPO      6105
                          66750                   SB7    B5                                                      GPO      6106
                               27632              PX6    B3,X2                                                   GPO      6107
          4454  15570                             BX5    "RN"X7                                                  GPO      6108
                     0327004455 +                 PL     X7,MPB12    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6109
                               64700              SB7    A0                                                      GPO      6110
          4455  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
          4456  12626                             BX6    X2+X6                                                   GPO      6115
                     0327004457 +                 PL     X7,MPB13    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6116
                               64700              SB7    A0                                                      GPO      6117
          4457  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
          4460  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
          4461  15730                             BX7    "RN"X3                                                  GPO      6126
                     63470                        SB4    X7                                                      GPO      6127
                          20754                   LX7    -R1.RIL                                                 GPO      6128
                               11303              BX3    X0*X3                                                   GPO      6129
          4462  66750                             SB7    B5                                                      GPO      6130
                     0327004463 +                 PL     X7,MPB15    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6131
                               64700              SB7    A0                                                      GPO      6132
          4463  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
          4464  0400004446 +                      EQ     MPB10                                                   GPO      6137
                                                                                                                 GPO      6138
          4465  0325004466 +             MPB16    PL     X5,MPB17    IF RW > 0                                   GPO      6139
                          14755                   BX7    -X5         [R1] = -RW                                  GPO      6140
                               54750              SA7    A5                                                      GPO      6141
                                                                                                                 GPO      6142
          4466  26635                    MPB17    UX6    B3,X5                                                   GPO      6143
                     0530004446 +                 NZ     B3,MPB10    IF OC[R1] " 0                               GPO      6144
                                                                                                                 GPO      6145
                               43700              MX7    0                                                       GPO      6146
          4467  7160000004                        SX6    4                                                       GPO      6147
                          5170000000 X            SA7    L.MLT       L.MLT = 0                                   GPO      6148
          4470  5160000000 X                      SA6    L.MOD       L.MOD = 4                                   GPO      6149
                          0400004360 +            EQ     MPB0                                                    GPO      6150
                                                                                                                 GPO      6151
          4471                     1     MPBA     BSS    1                                                       GPO      6152
          4472                     1     FIA      BSS    1           FIRST INSERT ADDRESS                        GPO      6153
          4473                     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/05. 19.57.21.      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
          4474  0200404474 +             MBT      ROUTINE                                                        GPO      6158
          4475  5150000027 +                      SA5    O.SEQ                                                   GPO      6159
                          53251                   SA2    X5+B1       R2 = [O.SEQ+1]                              GPO      6160
                                                  LX2    -R2.TXTLP                                               GPO      6161
          4476  7212777773                        ALLOC  TXT,X2-4    ALLOC( TXT , TXTL[R2]-4 )                   GPO      6162
          4500  5110000027 +                      SA1    O.SEQ                                                   GPO      6163
                          6140000004              SB4    4                                                       GPO      6164
          4501  53510                             SA5    X1          R1 = [O.SEQ]                                GPO      6165
                     63230                        SB2    X3                                                      GPO      6166
                          63720                   SB7    X2          TI = [O.TXT]                                GPO      6167
                                                                                                                 GPO      6168
          4502  54451                    MBT2     SA4    A5+B1                                                   GPO      6169
                     54341                        SA3    A4+B1                                                   GPO      6170
                          10655                   BX6    X5                                                      GPO      6171
                               54554              SA5    A5+B4                                                   GPO      6172
          4503  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
          4504  54761                             SA7    A6+B1                                                   GPO      6177
                     10633                        BX6    X3                                                      GPO      6178
                          54671                   SA6    A7+B1                                                   GPO      6179
                               43700              MX7    0                                                       GPO      6180
          4505  54761                             SA7    A6+B1                                                   GPO      6181
                     0520004502 +                 NZ     B2,MBT2     IF I " 0                                    GPO      6182
                                                                                                                 GPO      6183
          4506  0400004474 +                      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
          4542                                    END                                                            GPO      6191
  
                             62300B CM  STORAGE USED            14870 STATEMENTS     2122 SYMBOLS      000035 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.611 SECONDS        3162 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/05. 19.57.21.      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     26/53     30/07
        CC$LNL          0   EXTERNAL*      20/56
        CC$PC           0   EXTERNAL*      19/29     21/17 S   32/31 S
        CDD=            0   EXTERNAL*      26/51     26/52     26/53     26/54
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   161
        SYMBOLIC REFERENCE TABLE. 
  
        CMR#            0   EXTERNAL*      19/42
        CNI           121   CCGSCR        132/24 S  132/46    133/37 S
        COD=            0   EXTERNAL*      26/29     26/56
        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#         1367   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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   162
        SYMBOLIC REFERENCE TABLE. 
  
        EV            124   CCGSCR        140/28 S  142/19    142/51
        E.ALLPP        71                  84/25
        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
        FA=LOL          0   EXTERNAL*      26/48     26/49     26/50     27/07
        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#         1420   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   26/57     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$LO$S         0   EXTERNAL*      26/15
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   163
        SYMBOLIC REFERENCE TABLE. 
  
        IA.CAP         22                 132/35    133/01    138/37    142/22
        IA.NWDL        14 
        IA.NWDP        60 
        IA.UDIL        22 
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   164
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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   27/02     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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   165
        SYMBOLIC REFERENCE TABLE. 
  
        L.ELT          26   PROGRAM*       68/32
        L.ELT#         26   PROGRAM*
        L.GLT           0   EXTERNAL*      27/31     29/50
        L.GST           0   EXTERNAL*      23/20
        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*       27/04
        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#         4474   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       4115   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#         4364   PROGRAM*      159/35 E  159/35 D
        MPR#         1323   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     26/55
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   166
        SYMBOLIC REFERENCE TABLE. 
  
        NBIP#          46   PROGRAM*
        NN             44   PROGRAM*       36/31 S   39/04
        NPB             3   PROGRAM*       26/52     26/53     30/15     32/42
        NPB#            3   PROGRAM*
        NTP           100   CCGSCR         28/50     28/54     40/22 S  129/27    130/11 S
        N$EXST          0   EXTERNAL*      26/51
        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*       26/56
        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     26/54     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*
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   167
        SYMBOLIC REFERENCE TABLE. 
  
        O$BLK           0   EXTERNAL* 
        O$BST           0   EXTERNAL* 
        O$BVT          17   PROGRAM*
        O$CFT           0   EXTERNAL* 
        O$CVT           0   EXTERNAL*      92/39    106/21
        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   32/40     39/12     45/13     62/41     71/21     81/07     87/24
                                           26/57     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
        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   27/01     36/39     81/26
        O.BVT          17   PROGRAM*       20/11     28/17     63/45     69/25     80/06     87/24
                                           24/34 S   43/29     64/40     71/21     81/07    102/48
                                           27/01     62/51     66/36     76/09     84/29
        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*      27/03
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   168
        SYMBOLIC REFERENCE TABLE. 
  
        O.TXT           0   EXTERNAL*      15/28 S   27/03     70/12    129/23    131/22    144/21
                                           15/37     42/28     78/36    130/17    131/41    145/07
                                           21/44 S   50/27     86/44    130/26    137/26
        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
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   169
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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            1   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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   170
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   171
        SYMBOLIC REFERENCE TABLE. 
  
        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 
  
  
  
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        ATT          1267   PROGRAM*       29/10     52/04 L   52/28     52/50
        ATT2         1274   PROGRAM*       52/19 L   52/23
        ATT3         1276   PROGRAM*       52/10     52/25 L
        ATT4         1301   PROGRAM*       52/39 L   52/48
        ATT5         1304   PROGRAM*       52/45     52/48 L
        AUV          2140   PROGRAM*       70/08     77/53     78/11 L   78/31     79/21     79/38
        AUVA         2137   PROGRAM*       78/09 L   78/42
        AUV1         2145   PROGRAM*       78/22 L   78/24
        AUV2         2157   PROGRAM*       78/50 L   79/11
        AUV3         2162   PROGRAM*       78/46     78/52     79/06 L   79/10     79/16
        AUV4         2167   PROGRAM*       79/14     79/25 L   79/35
        BCM          1411   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         1265   PROGRAM*       48/10 S   48/12     49/50 S   50/21     50/31     51/12     51/17 L
        CBB          1165   PROGRAM*       29/12     47/45     48/08 L   48/23
        CBB1         1167   PROGRAM*       48/12 L   51/15
        CBB10        1247   PROGRAM*       49/52     50/44 L
        CBB11        1256   PROGRAM*       50/51     50/56 L
        CBB13        1257   PROGRAM*       50/39     50/54     51/01 L
        CBB14        1262   PROGRAM*       51/06     51/08 L
        CBB15        1263   PROGRAM*       49/47     51/12 L
        CBB2         1176   PROGRAM*       48/36 L   48/53
        CBB3         1205   PROGRAM*       48/30     48/56 L
        CBB3A        1206   PROGRAM*       48/38     49/02 L
        CBB3B        1211   PROGRAM*       48/52     49/15 L
        CBB4         1214   PROGRAM*       48/39     48/46     49/03     49/09     49/25 L
                                           48/42     48/54     49/07     49/21
        CBB5         1215   PROGRAM*       48/57     49/27 L
        CBB6         1217   PROGRAM*       49/36 L   49/45
        CBB7         1222   PROGRAM*       49/40     49/45 L
        CBB8         1225   PROGRAM*       49/42     49/56 L   50/25
        CBB9         1236   PROGRAM*       50/05     50/20 L
        CBT          1104   PROGRAM*       44/44     45/07 L   45/22     47/49
        CBT0         1103   PROGRAM*       45/05 L   45/20
        CBT1         1106   PROGRAM*       45/11 L   45/39
        CBT2         1110   PROGRAM*       45/17 L   45/34     45/36
        CBT3         1115   PROGRAM*       45/34 L
        CHB          1661   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         1674   PROGRAM*       67/50 L   67/55
        CHB0A        1711   PROGRAM*       68/23     68/41 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   172
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        CHB1         1734   PROGRAM*       69/34 L   69/46
        CHB1A        1725   PROGRAM*       69/07     69/10 L
        CHB2         1740   PROGRAM*       69/51 L   70/04
        CIC          1121   PROGRAM*       29/44     46/09 L   47/05
        CICA         1164   PROGRAM*       47/16 S   47/50     47/55 L
        CIC1         1122   PROGRAM*       46/13 L   47/03
        CIC2         1126   PROGRAM*       46/28 L   46/39
        CIC3         1132   PROGRAM*       46/24     46/37     46/44 L
        CIC4         1133   PROGRAM*       46/30     46/33     46/40     46/47 L
        CIC5         1134   PROGRAM*       46/45     46/49 L
        CIC6         1135   PROGRAM*       46/55 L   47/53
        CIC7         1140   PROGRAM*       46/51     47/09 L
        CIC8         1147   PROGRAM*       47/27 L   47/34
        CIF          3475   PROGRAM*       28/53    130/12 L  133/54
        CIF0         3474   PROGRAM*      130/10 L  131/12
        CIF1         3507   PROGRAM*      130/44 L  130/47    130/50    130/56    131/09
        CIF1A        3514   PROGRAM*      130/53    131/04 L
        CIF10        3574   PROGRAM*      132/27    133/46 L
        CIF2         3516   PROGRAM*      130/46    131/11 L
        CIF3         3523   PROGRAM*      131/22 L  132/10
        CIF4         3531   PROGRAM*      131/37    131/40 L
        CIF5         3550   PROGRAM*      132/26 L  132/31    132/53
        CIF7         3556   PROGRAM*      132/52 L  133/44
        CIF8         3563   PROGRAM*      133/12 L  133/21
        CIF9         3573   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          1360   PROGRAM*       43/06     55/40 L   55/48     55/56
        CRB1         1365   PROGRAM*       55/50 L   55/54
        CRB2         1354   PROGRAM*       55/29 L   55/43     55/44
        CRB3         1356   PROGRAM*       55/34 L   55/38
        DIF          3577   PROGRAM*      131/29    131/48    134/13 L  139/05
        DIFA         3717   PROGRAM*      137/37    139/07 L
        DIF1         3605   PROGRAM*      134/33 L  135/02    135/13    135/15    135/17
        DIF10        3640   PROGRAM*      135/41    136/10 L
        DIF11        3646   PROGRAM*      136/24    136/27    136/30 L  137/15
        DIF12        3651   PROGRAM*      136/15    136/18    136/42 L
        DIF13        3654   PROGRAM*      136/11    136/49 L
        DIF14        3656   PROGRAM*      134/37    137/03 L
        DIF15        3663   PROGRAM*      134/55    137/21 L
        DIF16        3672   PROGRAM*      137/36 L  138/54
        DIF17        3702   PROGRAM*      137/47    138/13 L
        DIF18        3712   PROGRAM*      137/50    138/09    138/22    138/30    138/45 L
        DIF2         3607   PROGRAM*      134/42 L  135/36    135/55    136/37    136/46    136/51    137/07    137/10
        DIF2A        3612   PROGRAM*      134/48    134/53 L
        DIF4         3615   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         3622   PROGRAM*      134/38    135/21 L
        DIF5A        3625   PROGRAM*      135/25    135/29 L
        DIF5B        3626   PROGRAM*      135/27    135/34 L
        DIF6         3630   PROGRAM*      135/29    135/39 L
        DIF7         3633   PROGRAM*      135/47    135/50 L
        DIF8         3635   PROGRAM*      135/52    135/57 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   173
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        EBV          1367   PROGRAM*       28/19     56/06 L   56/17     66/48    159/35
        EBV1         1373   PROGRAM*       56/14 L   56/19     56/40     56/57
        EBV2         1376   PROGRAM*       56/18     56/21 L
        EBV3         1400   PROGRAM*       56/28 L   56/37
        EBV4         1404   PROGRAM*       56/23     56/42 L
        EBV5         1405   PROGRAM*       56/46 L   56/55
        FEI          2173   PROGRAM*       28/23     80/04 L   80/19     80/31
        FEI1         2203   PROGRAM*       80/20 L   80/29
        FIA          4472   PROGRAM*      155/22 S  156/50    158/51 L
        FII          2747   PROGRAM*       28/30    104/22 L
        FII0         2743   PROGRAM*      104/08 L  104/53
        FII1         2757   PROGRAM*      104/41 L  105/27    105/56    106/17
        FII10        3011   PROGRAM*      106/08    106/19 L
        FII2         2762   PROGRAM*      104/37    104/52 L  105/05
        FII3         2774   PROGRAM*      105/20    105/31 L
        FII4         2777   PROGRAM*      105/37    105/45 L
        FII5         3003   PROGRAM*      105/48    106/03 L
        FII6         3007   PROGRAM*      106/06    106/13 L  106/26
        FII7         3010   PROGRAM*      106/13    106/15 L
        FIM          3720   PROGRAM*       28/57    147/37 D
        FNL           710   PROGRAM*       28/07     37/48 L
        FNL0          707   PROGRAM*       37/42 L   38/01
        FNL1          713   PROGRAM*       37/54 L   38/03
        FUD          1420   PROGRAM*       28/10     43/19     58/05 L   64/11     64/19    159/35
        FUDA         1413   PROGRAM*       57/25 L   60/20     61/40
        FUDB         1414   PROGRAM*       57/26 L   61/04
        FUDC         1415   PROGRAM*       57/27 L   61/44
        FUDD         1416   PROGRAM*       57/28 L   62/18
        FUDE         1417   PROGRAM*       57/29 L   62/19
        FUD1         1427   PROGRAM*       58/30 L   58/57     58/57     59/01     59/28     59/28     59/28     59/29
        FUD10        1506   PROGRAM*       60/23     60/28     60/32 L
        FUD11        1510   PROGRAM*       60/18     60/39 L
        FUD11A       1520   PROGRAM*       60/40     60/41     60/41     60/41     60/43 L
        FUD12        1522   PROGRAM*       59/55     60/51 L
        FUD13        1524   PROGRAM*       61/01 L   61/20
        FUD14        1527   PROGRAM*       61/06     61/10 L
        FUD15        1540   PROGRAM*       61/02     61/15     61/16     61/16     61/16     61/18 L
        FUD16        1542   PROGRAM*       58/40     61/32 L
        FUD17        1547   PROGRAM*       61/45 L   61/49     61/55     62/11
        FUD18        1552   PROGRAM*       61/57 L   62/10
        FUD19        1554   PROGRAM*       62/02     62/06 L
        FUD2         1431   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        1556   PROGRAM*       61/41     61/47     62/17 L
        FUD21        1560   PROGRAM*       62/22 L   62/26     62/36
        FUD22        1564   PROGRAM*       62/30     62/34 L
        FUD24        1565   PROGRAM*       61/36     62/17     62/24     62/40 L
        FUD25        1577   PROGRAM*       63/25 L   63/41
        FUD26        1604   PROGRAM*       63/21     63/43 L
        FUD26A       1607   PROGRAM*       63/44     63/51 L
        FUD27        1611   PROGRAM*       64/04 L   65/45
        FUD28        1611   PROGRAM*       64/08 L   66/08     66/52
        FUD29        1613   PROGRAM*       64/13 L   64/17
        FUD3         1446   PROGRAM*       58/46     59/06 L
        FUD30        1615   PROGRAM*       63/12     64/26 L
        FUD31        1623   PROGRAM*       64/46 L   64/54
        FUD32        1626   PROGRAM*       64/44     65/01 L   65/43
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   174
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FUD33        1630   PROGRAM*       65/09 L   65/27
        FUD34        1635   PROGRAM*       65/07     65/29 L
        FUD34A       1637   PROGRAM*       65/29     65/35 L
        FUD35        1642   PROGRAM*       62/47     66/03 L
        FUD36        1646   PROGRAM*       66/23     66/26 L
        FUD37        1654   PROGRAM*       66/39 L   66/44
        FUD5         1464   PROGRAM*       59/07     59/33 L
        FUD7         1475   PROGRAM*       60/05 L   60/44
        FUD8         1477   PROGRAM*       60/09     60/13 L
        FUD9         1501   PROGRAM*       60/14     60/20 L
        FUD9A        1505   PROGRAM*       60/25     60/30 L
        FXI          2207   PROGRAM*       28/28     81/05 L   85/07
        FXI10        2270   PROGRAM*       83/41     84/11 L
        FXI11        2273   PROGRAM*       83/38     84/09     84/14     84/25 L
        FXI12        2276   PROGRAM*       84/36 L   84/52
        FXI13        2302   PROGRAM*       84/45     84/50 L
        FXI15        2304   PROGRAM*       83/25     85/01 L
        FXI2         2215   PROGRAM*       81/14 L   81/18
        FXI4         2221   PROGRAM*       81/33 L   81/35     81/42
        FXI5         2227   PROGRAM*       81/57 L   82/02     82/49
        FXI6         2231   PROGRAM*       82/12 L   82/46
        FXI7         2237   PROGRAM*       82/21     82/37 L
        FXI8         2241   PROGRAM*       82/16     82/45 L
        FXI9         2255   PROGRAM*       83/29 L   84/56
        FXI9A        2263   PROGRAM*       83/51 L   83/54
        GNG           717   PROGRAM*       29/24     38/14     38/17 L   38/25     38/32
        GNG0          715   PROGRAM*       38/10 L   38/19
        GPO1          444   PROGRAM*       28/04 L   29/25
        GPO10         526   PROGRAM*       28/05     29/30 L
        GPO11         530   PROGRAM*       29/36 L   29/45
        GPO12         534   PROGRAM*       29/39     29/49 L
        GPO13         537   PROGRAM*       29/52     30/07 L
        GPO14         542   PROGRAM*       30/18 L   30/22
        GPO15         544   PROGRAM*       30/31 L   30/35     30/57     31/20
        GPO15A        551   PROGRAM*       30/42     30/46 L
        GPO16         552   PROGRAM*       30/47     30/49 L   30/52
        GPO17         554   PROGRAM*       30/44     31/04 L
        GPO17A        555   PROGRAM*       31/10 L   31/13
        GPO18         560   PROGRAM*       30/33     31/25 L
        GPO19         562   PROGRAM*       31/31 L   31/42
        GPO2          446   PROGRAM*       28/07 L   29/20
        GPO20         563   PROGRAM*       31/29     31/35 L   31/41     32/11
        GPO21         566   PROGRAM*       31/48 L   31/52
        GPO22         571   PROGRAM*       32/04 L   32/09
        GPO23         574   PROGRAM*       31/37     32/15 L
        GPO24         575   PROGRAM*       32/17 L   32/25
        GPO25         600   PROGRAM*       32/20     32/29 L
        GPO26         611   PROGRAM*       32/49 L   32/53
        GPO27         617   PROGRAM*       33/10 L   33/19
        GPO28         622   PROGRAM*       33/12     33/13     33/17 L
        GPO3          457   PROGRAM*       28/12     28/16     28/21 L
        GPO3A         466   PROGRAM*       20/49     28/30 L
        GPO30         632   PROGRAM*       33/47 L   34/27
        GPO31         636   PROGRAM*       34/03 L   34/16
        GPO32         642   PROGRAM*       33/49     34/12     34/20 L
        GPO33         647   PROGRAM*       33/25     34/34 L
        GPO35         650   PROGRAM*       32/37     34/41 L   35/01
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   175
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        GPO36         660   PROGRAM*       34/44     35/03 L
        GPO4          474   PROGRAM*       28/34     28/38 L
        GPO5          477   PROGRAM*       28/44     28/46 L
        GPO6          512   PROGRAM*       28/51     28/55     29/03     29/07 L
        GPO7          520   PROGRAM*       20/48 S   29/16 L
        IGOA         4510   PROGRAM*       26/22 L   26/49
        IGOB         4515   PROGRAM*       26/23 L   26/50     26/52 S   26/54 S   26/56 S   27/01 S   27/03 S   27/07
                                           26/49     26/51 S   26/53 S   26/55 S   26/57 S   27/02 S   27/04 S   27/07
        IGOC         4531   PROGRAM*       26/26 L   26/48     26/50     27/07
        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
        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
        IGO6          434   PROGRAM*       26/16     27/09 L
        IGP           663   PROGRAM*       28/04     36/07 L   37/32
        IGP1          676   PROGRAM*       36/51 L   37/27
        IGP2          677   PROGRAM*       36/57 L   37/06
        IGP3          705   PROGRAM*       37/09     37/27 L
        IHB          1022   PROGRAM*       20/47     28/27     42/24 L   42/33     42/44
        IPS          2067   PROGRAM*       71/14     76/07 L   76/13     77/56
        IPS1         2100   PROGRAM*       76/29 L   76/41
        IPS2         2107   PROGRAM*       76/51     76/53 L
        IPS3         2117   PROGRAM*       77/15 L   77/49
        IPS4         2125   PROGRAM*       77/31     77/35 L
        IRP           726   PROGRAM*       20/01     28/08     39/03 L   41/02     42/18
        IRP1          742   PROGRAM*       39/41 L   39/56
        IRP2          745   PROGRAM*       39/42     39/54 L
        IRP3          770   PROGRAM*       40/36     40/42 L
        IRP4         1020   PROGRAM*       41/57     42/13 L
        IRP5         1021   PROGRAM*       42/11     42/18 L
        MBT          4474   PROGRAM*       44/21     50/56    159/03 L  159/29    159/35
        MBT2         4502   PROGRAM*      159/14 L  159/27
        MIE          3243   PROGRAM*       28/47    119/17 L  123/03    129/20    129/47
        MIE1         3247   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        3311   PROGRAM*      121/30    121/53 L
        MIE11        3314   PROGRAM*      122/05 L  122/11
        MIE12        3316   PROGRAM*      122/07    122/11 L
        MIE14        3317   PROGRAM*      119/32    123/03 L
        MIE14A       3330   PROGRAM*      123/27 L  124/02
        MIE14B       3335   PROGRAM*      123/35    123/40    123/44 L
        MIE15        3336   PROGRAM*      123/52 L  124/04    124/06    124/41    124/43    125/14
        MIE16        3337   PROGRAM*      123/22    123/57 L  125/57
        MIE16A       3350   PROGRAM*      124/21    124/30 L
        MIE17        3352   PROGRAM*      124/32    124/35 L
        MIE17A       3356   PROGRAM*      124/28    124/51 L
        MIE18        3363   PROGRAM*      124/13    124/25    125/12 L
        MIE19        3365   PROGRAM*      124/11    125/19 L
        MIE19A       3366   PROGRAM*      125/22 L  125/30
        MIE19B       3372   PROGRAM*      125/28    125/34 L
        MIE19C       3373   PROGRAM*      125/37 L  125/55
        MIE19D       3400   PROGRAM*      125/49    125/51 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   176
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        MIE19E       3401   PROGRAM*      125/45    125/53 L
        MIE19F       3402   PROGRAM*      125/41    125/57 L
        MIE2         3256   PROGRAM*      119/43    120/03 L
        MIE20        3424   PROGRAM*      123/54    126/01    127/21 L
        MIE21        3430   PROGRAM*      127/31 L  127/41
        MIE22        3431   PROGRAM*      127/29    127/35 L  127/42    128/11    128/17    128/24
        MIE23        3440   PROGRAM*      127/54    128/02 L
        MIE24        3442   PROGRAM*      128/04    128/09 L
        MIE25        3443   PROGRAM*      127/50    128/13 L
        MIE26        3447   PROGRAM*      127/37    128/32 L
        MIE27        3452   PROGRAM*      128/42 L  128/57
        MIE28        3456   PROGRAM*      128/51    128/54 L
        MIE29        3457   PROGRAM*      128/47    128/53    128/57 L
        MIE3         3261   PROGRAM*      120/06    120/11 L
        MIE30        3470   PROGRAM*      129/33 L  129/42
        MIE4         3264   PROGRAM*      120/12    120/23 L
        MIE5         3266   PROGRAM*      119/40    120/32 L
        MIE6         3272   PROGRAM*      120/16    120/40    120/46 L
        MIE7         3275   PROGRAM*      119/52    119/54    120/09    120/27    120/33    120/41    121/04 L
        MIE8         3302   PROGRAM*      121/15    121/25 L
        MIE9         3306   PROGRAM*      121/39    121/43 L
        MIH          3403   PROGRAM*      123/57    125/29    126/09 L  126/27
        MII          2336   PROGRAM*       20/46     28/25    103/35 D  130/21
        MIP          3014   PROGRAM*       28/36    118/46 D
        MPB          4364   PROGRAM*       50/17     75/05     78/26    154/15    154/26 L
                                           50/53     75/10    152/47    154/22    159/35
        MPBA         4471   PROGRAM*      154/14    154/21    154/27 S  158/50 L
        MPB0         4360   PROGRAM*      154/14 L  156/53    158/48
        MPB1         4400   PROGRAM*      155/01 L  155/12
        MPB10        4446   PROGRAM*      157/03    157/38 L  158/35    158/42
        MPB11        4452   PROGRAM*      157/53    157/55 L
        MPB12        4455   PROGRAM*      158/07    158/09 L
        MPB13        4457   PROGRAM*      158/14    158/16 L
        MPB14        4460   PROGRAM*      157/57    158/20 L
        MPB15        4463   PROGRAM*      158/29    158/31 L
        MPB16        4465   PROGRAM*      157/43    158/37 L
        MPB17        4466   PROGRAM*      158/37    158/41 L
        MPB2         4404   PROGRAM*      154/54    155/18 L
        MPB3         4410   PROGRAM*      155/29 L  155/46
        MPB4         4414   PROGRAM*      155/25    155/45 L  156/34    156/39
        MPB5         4421   PROGRAM*      155/50    156/10 L
        MPB6         4422   PROGRAM*      156/16 L  156/32
        MPB7         4431   PROGRAM*      155/43    156/44 L
        MPB8         4437   PROGRAM*      157/07 L  157/44
        MPB9         4444   PROGRAM*      157/12    157/27 L
        MPR          1323   PROGRAM*       53/52 L   54/11     54/19     54/38    159/35
                                           53/57     54/16     54/32     55/13
        MPRA         1353   PROGRAM*       55/10     55/15 L
        MPR1         1341   PROGRAM*       54/29     54/34 L
        MPR2         1343   PROGRAM*       54/42 L
        MPR4         1346   PROGRAM*       54/27     54/56 L
        NTL          4346   PROGRAM*      148/12 S  150/47    152/50 L
        OST          3411   PROGRAM*      125/13    125/52    126/33 L  127/14
        RDB          1412   PROGRAM*       28/18     57/24 L   66/47
        RDD          1757   PROGRAM*       28/21     47/43     71/12 L   71/55     75/01     75/06     75/13
        RDDA         1756   PROGRAM*       71/10 L   72/49     73/57     74/51
        RDD0         1766   PROGRAM*       71/15     71/23 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   177
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        RDD1         1773   PROGRAM*       71/41 L   71/52
        RDD10        2040   PROGRAM*       74/06 L   74/22
        RDD2         1777   PROGRAM*       71/40     71/54 L
        RDD20        2045   PROGRAM*       74/12     74/20 L
        RDD3         2004   PROGRAM*       72/18 L   73/43     73/52     73/55     74/15     74/19
        RDD3A        2006   PROGRAM*       72/19     72/23 L
        RDD30        2046   PROGRAM*       74/06     74/26 L
        RDD4         2007   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        2016   PROGRAM*       72/31     73/01 L
        RDD40        2052   PROGRAM*       74/35     74/38 L
        RDD5         2021   PROGRAM*       72/29     73/13 L
        RDD50        2055   PROGRAM*       73/16     73/30     73/37     74/46 L
        RDD54        2056   PROGRAM*       74/53 L   74/56
        RDD56        2060   PROGRAM*       74/53     75/01 L
        RDD6         2032   PROGRAM*       73/17     73/39 L
        RDD60        2063   PROGRAM*       75/02     75/09 L
        SHB          2305   PROGRAM*       28/49     29/05     86/05 L   86/52
        SHB1         2322   PROGRAM*       86/08     86/30 L
        SHB2         2332   PROGRAM*       86/38     86/44 L
        SLC          1305   PROGRAM*       50/46     53/07 L   53/09     53/11     53/40
        SLC1         1314   PROGRAM*       53/23 L   53/37
        SLC2         1317   PROGRAM*       53/24     53/30 L
        SLC3         1320   PROGRAM*       53/19     53/23     53/26     53/28     53/33 L   53/38
        TIA          4473   PROGRAM*      154/43 S  155/18    158/52 L
        TRP          1034   PROGRAM*       29/16     43/03 L   44/45
        TRP2         1053   PROGRAM*       43/37 L   43/41
        TRP3         1063   PROGRAM*       43/56     44/10 L
        TRP4         1077   PROGRAM*       44/02     44/04     44/36 L
        UPB          4224   PROGRAM*       29/09    148/06 L  152/48
        UPBA         4347   PROGRAM*      152/14    152/51 L
        UPBB         4350   PROGRAM*      149/11    153/05 L
        UPBC         4357   PROGRAM*      151/08    153/16 L
        UPB1         4240   PROGRAM*      148/35 L  150/42
        UPB10        4313   PROGRAM*      151/16 L  151/21    151/34
        UPB10A       4316   PROGRAM*      151/26 L  151/30
        UPB10B       4323   PROGRAM*      151/27    151/37 L
        UPB11        4327   PROGRAM*      151/09    151/54 L
        UPB12        4333   PROGRAM*      151/57    152/14 L
        UPB13        4337   PROGRAM*      151/52    152/26 L
        UPB14        4341   PROGRAM*      151/35    152/10    152/33 L
        UPB15        4342   PROGRAM*      150/48    152/40 L
        UPB2         4244   PROGRAM*      148/57 L  150/33
        UPB2A        4260   PROGRAM*      149/20    149/24    149/34 L
        UPB2B        4261   PROGRAM*      149/35    149/38 L
        UPB2C        4255   PROGRAM*      149/22    149/26 L
        UPB3         4265   PROGRAM*      149/13    149/50 L
        UPB4         4270   PROGRAM*      149/50    150/06 L
        UPB5         4272   PROGRAM*      150/02    150/12 L
        UPB5A        4273   PROGRAM*      149/44    149/46    150/18 L
        UPB6         4276   PROGRAM*      149/32    150/28 L
        UPB7         4302   PROGRAM*      148/43    150/41 L
        UPB8         4303   PROGRAM*      148/29    150/47 L
        UPB9         4307   PROGRAM*      150/57 L  152/35
        ZOD          4532   PROGRAM*       26/28 L   26/33     26/55     26/57     27/01     27/02     27/03     27/04
        .BCM           17                  57/21 D   57/22
        .BMB         4000                 129/15 D  129/16
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   178
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        .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 
  
  
        IA1          2440   PROGRAM*       92/18     92/24 L
        IA1A         2445   PROGRAM*       92/30     92/36 L
        IA2          2451   PROGRAM*       91/13     92/34     92/37     92/48 L
        ILD1         2367   PROGRAM*       88/43     88/47 L
        IM1          2423   PROGRAM*       90/30     90/35 L
        IM2          2425   PROGRAM*       90/32     90/38 L
        JPX1         2471   PROGRAM*       93/33     93/40     93/45 L
        JPX2         2473   PROGRAM*       93/14     93/25     93/55 L   94/17     94/30
                                           93/21     93/48     94/16     94/19
        LD1          2374   PROGRAM*       88/56     89/07 L
        MII          2336   PROGRAM*       87/18 L  102/13    102/56    103/01    103/08    103/35
        MII1         2354   PROGRAM*       88/03 L   89/41     90/04     96/14    100/57
                                           89/27     89/51     91/10    100/05
        MII1A        2360   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         2362   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         2622   PROGRAM*      102/27 L  102/36    102/53
        MII5         2632   PROGRAM*      102/38    102/44    102/55 L
        MII.JT       2634   PROGRAM*       88/25     98/07    103/26 L
        RJ31         2535   PROGRAM*       97/18 L   97/25
        RJ32         2537   PROGRAM*       97/29 L   97/36
        RJ32A        2545   PROGRAM*       97/40     97/45 L
        RJ32B        2547   PROGRAM*       97/43     97/52 L
        RJ33         2554   PROGRAM*       97/53     98/01     98/07 L
        RS0          2522   PROGRAM*       96/26     96/33 L
        RS1          2525   PROGRAM*       96/09     96/44 L
        RS2          2527   PROGRAM*       96/44     96/48 L
        STA          2613   PROGRAM*       99/46    101/04 L
        ST1          2576   PROGRAM*       99/19     99/23     99/41    100/13 L
        ST2          2604   PROGRAM*      100/16    100/22    100/25    100/37 L
        ST3          2606   PROGRAM*       99/17    100/45 L
        TYI          2404   PROGRAM*       89/33 L
        TYII         2360   PROGRAM*       88/28 D
        TYIV         2362   PROGRAM*       88/30 D
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   179
        SYMBOLIC REFERENCE TABLE.                                     MIP 
  
                                                  SYMBOL QUALIFIER =  MIP 
  
  
        IA1          3147   PROGRAM*      113/25    113/28    114/20    114/29    114/34 L
        IA2          3153   PROGRAM*      114/17    114/50 L
        IA3          3155   PROGRAM*      114/14    115/03 L
        IM1          3130   PROGRAM*      112/56    113/04 L
        IM2          3132   PROGRAM*      113/01    113/10 L
        IM4          3134   PROGRAM*      113/05    113/18 L
        IM5          3137   PROGRAM*      112/52    113/27 L
        JPX1         3203   PROGRAM*      116/27    116/41 L
        JPX2         3210   PROGRAM*      116/53    117/03 L
        JPX3         3211   PROGRAM*      117/01    117/07 L
        JPX4         3220   PROGRAM*      117/13    117/28 L
        JPX5         3223   PROGRAM*      116/39    117/26    117/40 L
        JPX6         3227   PROGRAM*      117/49    117/55 L
        JPX7         3231   PROGRAM*      117/43    117/53    118/03    118/09 L
        LD1          3104   PROGRAM*      111/32    111/39 L
        MIP          3014   PROGRAM*      107/16 L  118/46
        MIPA         3040   PROGRAM*      108/26 L  112/05    115/47
        MIPB         3041   PROGRAM*      108/27 L  110/11
        MIPC         3042   PROGRAM*      108/28 L  111/29    114/50
        MIPD         3043   PROGRAM*      108/29 L  114/35
        MIP0         3014   PROGRAM*      107/13 L  110/08    111/02
        MIP1         3025   PROGRAM*      107/42 L  112/32    114/45    114/57    115/51
        MIP1A        3031   PROGRAM*      108/01 L  108/10
        MIP1B        3035   PROGRAM*      108/06    108/13 L
        MIP2         3036   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         3062   PROGRAM*      110/16    110/23 L
        MIP4         3064   PROGRAM*      110/21    110/32 L  110/42    110/55
        MIP5         3070   PROGRAM*      110/32    110/45 L  110/54
        MIP6         3074   PROGRAM*      110/43    110/57 L
        STT1         3166   PROGRAM*      115/38    115/44 L
        ST1          3047   PROGRAM*      108/40    108/48 L
        ST2          3052   PROGRAM*      108/52    108/56 L
        SXT1         3115   PROGRAM*      112/23    112/26 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  FIM 
  
  
        EIE          3764   PROGRAM*      140/50    142/17 L
        EIE0         3760   PROGRAM*      142/09 L  142/26    142/45    145/22    146/13
        EIE1         3772   PROGRAM*      142/29    142/34 L
        EIE10        4067   PROGRAM*      145/39 L  146/03
        EIE11        4072   PROGRAM*      145/44    145/52 L
        EIE12        4074   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         3777   PROGRAM*      142/34    142/38    142/40    142/50 L  146/10    147/11    147/12
        EIE3         4006   PROGRAM*      142/56    143/07 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/05. 19.57.21.      PAGE   180
        SYMBOLIC REFERENCE TABLE.                                     FIM 
  
        EIE4         4011   PROGRAM*      143/05    143/13    143/18 L
        EIE5         4015   PROGRAM*      143/29 L  143/43
        EIE6         4047   PROGRAM*      144/45    144/50 L
        EIE6A        4041   PROGRAM*      144/29    144/33 L
        EIE6Z        4044   PROGRAM*      144/24    144/42 L
        EIE7         4053   PROGRAM*      144/20    144/34    144/48    145/06 L
        EIE8         4063   PROGRAM*      144/31    144/38    144/56    145/02    145/19 L
        EIE9         4065   PROGRAM*      142/30    145/29 L
        EIE.JT       4115   PROGRAM*      145/52    147/29 L  147/33
        FIM          3720   PROGRAM*      140/07 L  141/56    147/37
        FIM1         3723   PROGRAM*      140/18 L  141/54
        FIM2         3731   PROGRAM*      140/34 L  140/42    141/22
        FIM3         3741   PROGRAM*      140/55    141/15 L
        FIM5         3745   PROGRAM*      140/36    141/26 L
        FIM6         3754   PROGRAM*      141/31    141/45 L
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4571              IDENT  GRA
                       4571                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4414 
                                        LITERALS* LOCAL        4414         2 
                                        GPOGRA    COMMON          0        40 
                                        CCGSCR    COMMON          0       252 
                                        RCTFMT    COMMON          0        21 
                                        DEBUG     LOCAL        4416       153 
  
  
                                        ENTRY POINTS. 
  
                                        B=GRA            0+           GRA#            21+           CUC#          4212+ 
                                        GRASRF#         20+           CXB#          3212+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BIT     O$PSI     O$TET     DMASK#    HO$OPT    MPB#      SHL#      PCC#
                                        L$BIT     L$PSI     L$TET     L.HB#     HO$LCM    ADW$      S=TRACE   PRNTUDI 
                                        O$BST     O$RCT     O$TXT     N.GT#     Z$TXT     Z$MLT     O$FPI     NBIP# 
                                        L$BST     L$RCT     L$TXT     HBI#      WFB#      MVE=      Z$RCT     PRNTGRA 
                                        O$IIT     O$RND     F$RDT     PC#       MCG#      Z$MOD     RSR=
                                        L$IIT     L$RND     S$IT      SRI#      CC$PC     OUTCI.    SVR=
                                        O$MOD     O$RXI     O$SYM     RNI#      AIS#      OUTPUT#   EBV#
                                        L$MOD     L$RXI     BSI#      ATS$      DMPRLST   BLNKCOM   ISC=
                                        O$PIT     O$SEQ     BSW#      Z$RND     Z$PSI     HO$UO     PRNTABV 
                                        L$PIT     L$SEQ     BVL#      MPR#      HO$ARGC   RTB#      SNP=
  
  
  
  
                                                  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
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE     2
                                                                      GRA 
  
                                        *         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
                                        *         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
                                                  TRACER (UDT,ERC,SEE,MTA,DXA,DAA,MFA,CLB,SUP,SXC)               DEBUG       2
                                                                                                                 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/05. 19.57.27.      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/05. 19.57.27.      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/05. 19.57.27.      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/05. 19.57.27.      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/05. 19.57.27.      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/05. 19.57.27.      PAGE     8
        LOCAL VARIABLES                                               FLAGS 
  
                                                  USE    0                                                       GRA       108
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/05. 19.57.27.      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/05. 19.57.27.      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/05. 19.57.27.      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
             0  0200400000 +             CPR      ROUTINE                                                        GRA       234
             1  0100000000 X                      RJ     =XSVR=                                                  CCG7      113
             2  5110000000 +                      SA1    CPR                                                     GRA       236
                          5130000000 X            SA3    O.RCT                                                   GRA       237
             3  20136                             LX1    30                                                      GRA       238
                     5221777776                   SA2    X1-1                                                    GRA       239
                               73620              SX6    X2                                                      GRA       240
             4  10733                             BX7    X3                                                      GRA       241
                     5160000012 +                 SA6    CPRA        LOC(LAB)                                    GRA       242
             5  5170000013 +                      SA7    CPRA+1                                                  GRA       243
                          7266000001              SX6    X6+1                                                    GRA       244
             6  5160000015 +                      SA6    CPRA+3      LOC(INDEX)                                  GRA       245
                          5110000012 +            SA1    CPRA                                                    GRA       246
             7  0100000000 X                      CALL   PRNTGRA                                                 GRA       247
            10  0100000000 X                      RJ     =XRSR=                                                  CCG7      114
            11  0400000000 +                      EQ     CPR                                                     GRA       249
                                                                                                                 GRA       250
            12                     2     CPRA     BSS    2                                                       GRA       251
            14  00000000000000000000 X            VFD    42/,18/L.RCT                                            GRA       252
            15                     2              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/05. 19.57.27.      PAGE    12
        GRA - CONTROL                                                 GRA 
  
                                        **        GRA - GLOBAL REGISTER ASSIGNMENT ( CONTROL )                   GRA       262
                                                                                                                 FCC0603    10
            17  00000000000000000004     MARA     DATA   4           MAX A-REGISTER ASSIGNMENTS                  FCC0603    11
            20                           GRASRF   ENTRY. 0,#         =1 IF ADDRESS DIFFERENCING OF SIMILAR *IP"S CCGNC     646
                                                                                                                 GRA       263
            21                           GRA      ENTRY. **,#                                                    CCGNC     647
            22  7170000000                        SX7    0                                                       CCG0022     5
                          5170000000 X            SA7    =XNBIP#     NBIP = 0    */ FOR BDT                      CCG0022     6
            23  7170000004                        SX7    4                                                       FCC0603    12
                          5170000017 +            SA7    MARA        MARA = 4                                    FCC0603    13
                                                                                                                 FCC0603    14
            24  0100000102 +             GRA0     RJ     IRP         INITIALIZE REGION PROCESSING                FCC0603    15
                                                  IF     DEF,/DEBUG/UDT,1                                        GRA       266
            25  0100000000 X                      DCALL  PRNTUDI,([O.UDT],L.UDT)                                 GRA       267
                                                                                                                 GRA       268
            32  5110000015 C                      SA1    MRA                                                     GRA       269
                          0301000060 +            ZR     X1,GRA3     IF MRA = 0    */ USER OR I/O EXT REFS       GRA       270
                                                                                                                 GRA       271
            33  7170000522 +                      CLCM   DUM         DETERMINE USEAGE MODE                       GRA       272
            35  7170000236 +                      CLCM   ERC         ENTER REGISTER CANIDATES                    GRA       273
            37  5150000000 X                      SA5    L.RCT                                                   GRA       274
                          7265000000              SX6    X5+         LCT = L.RCT                                 GRA       275
            40  5160000164 C                      SA6    LCT                                                     GRA       276
                                                                                                                 GRA       277
                          0100000123 +            RJ     SEE         SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDAT GRA       278
            41  0100000000 +                      PRNT   SEE                                                     GRA       279
                                                                                                                 GRA       280
            42  0100001013 +                      RJ     MTA         MAKE TENATIVE B-ASSIGNMENTS, COUNTING METHO GRA       281
            43  0100000000 +                      PRNT   MTA,(RAT,RCT)                                           GRA       282
                                                                                                                 GRA       283
            44  5110000020 C                      SA1    XRF                                                     GRA       284
                          0311000056 +            NZ     X1,GRA2     IF XRF " 0    */ EXT REFS IN THE LOOP       GRA       285
            45  5120000017 C                      SA2    N.HB                                                    GRA       286
                          0312000055 +            NZ     X2,GRA1     IF N.HB " 0   */ NOT INNERMOST LOOP         GRA       287
                                                                                                                 GRA       288
            46  5130000034 C                      SA3    MAXW                                                    GRA       289
                          5140000171 C            SA4    NTA                                                     GRA       290
            47  6233000000                        SB3    X3+                                                     GRA       291
                          6244000010              SB4    X4+8                                                    GRA       292
            50  0743000056 +                      GT     B3,B4,GRA2  IF MAXW > NTA+8 */ LOOP IS TOO WIDE         GRA       293
                                                                                                                 GRA       294
                          0100001170 +            RJ     DXA         DETERMINE X-ASSIGNMENTS                     GRA       295
            51  0100000000 +                      PRNT   DXA                                                     GRA       296
                                                                                                                 GRA       297
            52  0100001413 +                      RJ     DAA         DETERMINE A-ASSIGNMENTS                     GRA       298
            53  0100000000 +                      PRNT   DAA                                                     FCC1039     6
            54  0400000056 +                      EQ     GRA2                                                    GRA       300
                                                                                                                 GRA       301
            55  0100001170 +             GRA1     RJ     DXA         MOVE PREVIOUS X-ASSIGNMENTS OUT             GRA       302
                                                                                                                 GRA       303
            56  0100001645 +             GRA2     RJ     MFA         MAKE FINAL B-ASSIGNMENTS                    GRA       304
            57  0100000000 +                      PRNT   MFA,(RAT,RCT)                                           GRA       305
                                                                                                                 GRA       306
            60  0100003033 +             GRA3     RJ     CLB         CODE LOOP BODY                              GRA       307
                                                                                                                 GRA       308
            61  0100002403 +                      RJ     SUP         SETUP PRELOADS IN HOLDING BLOCK             GRA       309
            62  0100000000 +                      PRNT   SUP,RAT                                                 GRA       310
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    13
        GRA - CONTROL                                                 GRA 
  
                                                                                                                 GRA       311
            63  0100002722 +                      RJ     SXC         SET EXIT CONDITIONS ( POST STORES, ETC. )   GRA       312
            64  0100000000 X                      TRACE  SXC,TET                                                 GRA       313
            65  0100000000 X                      PRNTABV  SXC,(LUV,LEA)                                         GRA       314
            77  7160000000                        SX6    0                                                       GRA       315
                          5160000000 X            SA6    L.RCT       L.RCT = 0                                   GRA       316
           100  5160000000 X                      SA6    L.RXI       L.RXI = 0                                   GRA       317
                          5160000020 +            SA6    GRASRF      GRASRF = 0                                  FCC0977    10
           101  0400000021 +                      EQ     GRA                                                     GRA       318
  
  
  
                                        **        IRP - INITIALIZE REGION PROCESSING                             GRA       320
                                                                                                                 GRA       321
           102  0200400102 +             IRP      ROUTINE                                                        GRA       322
                                                                                                                 GRA       323
           103  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
           105  5150000122 +                      SA5    IRPA                                                    GRA       329
                          7110000006              ALLOC  RCT,6       ALLOC( RCT , 6 )                            GRA       330
           107  43600                             MX6    0                                                       GRA       331
                     5160001554 +                 SA6    AXCT        AXCT = 0                                    CCG0057     6
                               53620              SA6    X2                                                      GRA       332
           110  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
           111  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
           112  7170000144                        SX7    100                                                     GRA       341
                          5170000166 C            SA7    TUD         TUD = 100                                   GRA       342
                                                                                                                 GRA       343
           113  5110000017 C                      SA1    N.HB                                                    GRA       344
                          0301000116 +            ZR     X1,IRP1     IF N.HB = 0   */ INNERMOST LOOP             GRA       345
           114  5140000004 C                      SA4    LUV                                                     GRA       346
                          76510                   SX5    B1                                                      GRA       347
                               20566              LX5    UD.ISTP                                                 GRA       348
           115  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
           116  5110000027 C             IRP1     SA1    N.LJ                                                    FCC0909    33
                          20101                   LX1    1                                                       FCC0909    34
           117  0321000102 +                      PL     X1,IRP      IF ^B58[N.LJ]                               FCC0909    35
                                                                                                                 FCC0909    36
                          5120000015 C            SA2    MRA                                                     FCC0909    37
           120  7170000010                        SX7    1S3                                                     FCC0909    38
                          15627                   BX6    -X7*X2      MRA = MRA & ^1S3  */ MAKE *B3* UNAVAIL      FCC0909    39
                               54620              SA6    A2                                                      FCC0909    40
           121  5170000161 C                      SA7    TRA         TRA = 1S3     */ INDICATE TEMP USE OF *B3*  FCC0909    41
                          0400000102 +            EQ     IRP                                                     FCC0909    42
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    14
        GRA - CONTROL                                                 IRP 
  
                                                                                                                 GRA       390
           122                           IRPA     BFMW   CA,(CON,RF)                                             GRA       391
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    15
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                        **        SEE - SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDATES IN *RCT*   GRA       394
                                                                                                                 GRA       395
           123  0200400123 +             SEE      ROUTINE                                                        GRA       396
           124  5150000000 X                      SA5    O.RCT                                                   GRA       397
                          5140000000 X            SA4    L.RCT                                                   GRA       398
           125  5130000000 X                      SA3    BVL                                                     GRA       399
                          5120000007 C            SA2    LEA                                                     GRA       400
           126  5110000000 C                      SA1    O.UDT                                                   GRA       401
                          63240                   SB2    X4                                                      GRA       402
                               63720              SB7    X2                                                      GRA       403
           127  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
           130  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
           131  66400                             SB4    B0          NV = 0                                      GRA       410
                     0400000134 +                 EQ     SEE2                                                    GRA       411
                                                                                                                 GRA       412
                                        *         COMPILER TEMPORARY, SET PROFIT = DU[CI]+1                      GRA       413
                                                                                                                 GRA       414
           132  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
           133  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
           134  55553                    SEE2     SA5    A5-B3       CI = CI - 3                                 GRA       425
                     0305000170 +                 ZR     X5,SEE6     IF [CI] = 0   */ END OF TABLE               GRA       426
                               22655              LX6    B5,X5                                                   GRA       427
           135  0326000134 +                      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
           136  15760                             BX7    -X0*X6      DUB = DU[CI]                                GRA       432
                     66441                        SB4    B4+B1       NV = NV + 1                                 GRA       433
                          0420000132 +            ZR     B2,SEE1     IF I = 0      */ COMPILER TEMP              GRA       434
           137  0623000142 +                      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
           140  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
           141  0400000134 +                      EQ     SEE2                                                    FCC0645    19
                                                                                                                 GRA       435
                                        *         PROCESS PROGRAMMER VARIABLE, EXIT INFO COMPUTED IN *FXI*       GRA       436
                                                                                                                 GRA       437
           142  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/05. 19.57.27.      PAGE    16
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                          76110                   SX1    B1                                                      GRA       440
                               26324              UX3    B2,X4       B = BITN[U2]                                GRA       441
           143  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
           144  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
           145  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
           146  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
           147  0326000154 +                      PL     X6,SEE3     IF ^DEF[CI]                                 GRA       458
                          0311000154 +            NZ     X1,SEE3     IF PSP[CI]    */ POST STORE POSSIBLE        GRA       459
           150  10466                             BX4    X6                                                      GRA       460
                     20442                        LX4    CA.DEFP-CA.TUP                                          GRA       461
                          0334000154 +            MI     X4,SEE3     IT TU[CI]     */ KEEP CV FIRST IN MTA SORT  GRA       462
           151  7277777775                        SX7    X7-2        DUB = DUB - 2                               GRA       463
                          0317000154 +            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
           152  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
           153  0400000134 +                      EQ     SEE2                                                    GRA       472
                                                                                                                 GRA       473
                                        *         SET PROFIT = 1 IF USE ! DEF , ELSE 3                           GRA       474
                                                                                                                 GRA       475
           154  63271                    SEE3     SB2    X7+B1                                                   GRA       476
                     0523000155 +                 NE     B2,B3,SEE4  IF DUB " 2    */ NOT DEF ONLY               GRA       477
                               76710              SX7    B1          DUB = 1                                     GRA       478
                                                                                                                 GRA       479
           155  20754                    SEE4     LX7    CA.PRFTP                                                GRA       480
                     12757                        BX7    X5+X7       PRFT[CI] = DUB                              GRA       481
                          5075000000              SA7    A5+                                                     FCC0839     4
           156  0326000134 +                      PL     X6,SEE2     IF ^DEF[CI]    */ USED ONLY                 FCC0839     5
                          20640                   LX6    CA.DEFP-CA.^RDP                                         FCC0839     6
           157  0312000134 +                      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
                          0326000162 +            PL     X6,SEE4A    IF RD[CI]                                   GRA       489
                                                                                                                 GRA       490
           160  20635                             LX6    CA.^RDP-CA.USEP                                         GRA       491
                     0336000134 +                 MI     X6,SEE2     IF USE[CI]                                  GRA       492
                                                                                                                 GRA       493
                               43600              MX6    0           DIFF = 0                                    GRA       494
           161  0400000166 +                      EQ     SEE5                                                    GRA       495
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    17
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                                                                                                 GRA       496
           162  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
           163  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
           164  0325000166 +                      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
           165  0400000134 +                      EQ     SEE2                                                    GRA       508
                                                                                                                 GRA       509
           166  0316000134 +             SEE5     NZ     X6,SEE2     IF DIFF " 0   */ VAR HAS REAL USES          GRA       510
                                                                                                                 GRA       511
                          5140000227 +            SA4    SEEA                                                    GRA       512
           167  12747                             BX7    X4+X7       (RA,KD)[CI] = 1                             GRA       513
                     54770                        SA7    A7                                                      GRA       514
                          0400000134 +            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
           170  5110000173 C             SEE6     SA1    NXC                                                     GRA       520
                          5120000163 C            SA2    FBA                                                     GRA       521
           171  76641                             SX6    B4+B1       NVC = NV + 1  */ N. VALUE CANIDATES         GRA       522
                     64650                        SB6    A5                                                      GRA       523
                          5160000165 C            SA6    NVC                                                     GRA       524
           172  36712                             IX7    X1+X2                                                   GRA       525
                     0307000214 +                 ZR     X7,SEE11    IF FBA + NXC = 0  */ NO FINAL ASSIGNMENTS   GRA       526
                               43001              MX0    1                                                       GRA       527
           173  7120000027                        SX2    27B         I = 27B                                     GRA       528
                          6170000100 C            SB7    RAT                                                     GRA       529
           174  0311000175 +                      NZ     X1,SEE7     IF NXC " 0                                  GRA       530
                          7120000007              SX2    7           I = 7                                       GRA       531
                                                                                                                 GRA       532
           175  53527                    SEE7     SA5    B7+X2                                                   GRA       533
                     0305000213 +                 ZR     X5,SEE8     IF RAT(I) = 0                               GRA       534
                               53456              SA4    B6+X5       J = R1[RAT(I)];  CAW = RCT(J)               FCC1014     5
           176  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
           177  20426                             LX4    CA.DEFP-CA.RAP                                          GRA       541
                                         .FTN     IFEQ   HC.ID,2                                     ?FTN        CCG4       60
                     0324000210 +                 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
           200  0315000213 +                      NZ     X5,SEE8     IF (R2,R3)[CAW] " 0                         FCC1014    11
                                                  LX4    1+CA.RAP                                                FCC1014    12
                          7264777775              SX6    X4-2                                                    FCC1014    13
           201  0316000213 +                      NZ     X6,SEE8     IF UDI[CAW] " 1                             FCC1014    14
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    18
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                          54341                   SA3    A4+B1       C2W = RCT(J+1)                              FCC1014    15
                               20330              LX3    -IH.RFP                                                 FCC1014    16
           202  63230                             SB2    X3                                                      FCC1014    17
                     20322                        LX3    IH.RFP-IH.CAP                                           FCC1014    18
                          0521000213 +            NE     B2,B1,SEE8  IF RF[C2W] " 1                              FCC1014    19
                                                                                                                 FCC1014    20
           203  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
           204  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
           205  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
           206  5044000002                        SA4    A4+2                                                    FCC1014    29
                          7150000200              SX5    2S6                                                     FCC1014    30
           207  12645                             BX6    X4+X5       MIT[RCT(J+2)] = 2                           FCC1014    31
                     54640                        SA6    A4                                                      FCC1014    32
                          0400000213 +            EQ     SEE8                                                    FCC1014    33
                                         .FTN     ENDIF                                              'FTN        CCG4       66
                                                                                                                 GRA       543
                                        *         INV ADDRESS CANIDATE AND *RF* NOT MARKED                       GRA       544
                                                                                                                 GRA       545
           210  20444                    SEE7A    LX4    1+CA.RAP-CA.SUSEP                                       FCC1014    34
                     43763                        MX7    -CA.SUSEL                                               GRA       547
                          15347                   BX3    -X7*X4                                                  GRA       548
           211  0313000213 +                      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
           212  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
           213  7222777776               SEE8     SX2    X2-1        I = I - 1                                   GRA       559
                          0312000175 +            NZ     X2,SEE7     IF I " 0                                    GRA       560
  
                                        *         SCAN *IA* LIST TO SET USEAGE MODE FOR ENTRIES ON IT            GRA       562
                                                                                                                 GRA       563
           214  5110000160 C             SEE11    SA1    IAI                                                     GRA       564
                          0301000123 +            ZR     X1,SEE      IF IAI = 0    */ NO *IA* INCRS              GRA       565
                                                                                                                 GRA       566
           215  6120000000 C                      SB2    SCR         K = 0                                       GRA       567
                          63312                   SB3    X1+B2                                                   GRA       568
                               76010              SX0    B1                                                      GRA       569
           216  20062                             LX0    CA.RFP                                                  GRA       570
                     76110                        SX1    B1                                                      GRA       571
                          20163                   LX1    CA.EUP                                                  GRA       572
           217  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/05. 19.57.27.      PAGE    19
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                                                                                                 GRA       574
           220  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
           221  0336000226 +                      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
           222  0317000224 +                      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
           223  10711                             BX7    X1          BIT = EU                                    GRA       587
                                                                                                                 GRA       588
           224  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
           225  0333000226 +                      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
           226  0723000220 +             SEE14    LT     B2,B3,SEE12 IF K < IAI                                  GRA       593
                          0400000123 +            EQ     SEE                                                     GRA       594
                                                                                                                 GRA       595
           227                           SEEA     BFMW   CA,(RA,VC,KD)                                           GRA       596
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           230                                    PROCESS EOQ                                                    GRA       608
           230  77665                             SX6    B6-B5       L.RCT = CL - CO                             GRA       609
                     5160000000 X                 SA6    L.RCT                                                   GRA       610
           231  0100000000 X                      TRACE  ERC,RLIST,SEQ                                           GRA       611
                                                                                                                 GRA       612
           236  0200400236 +             ERC      ROUTINE                                                        GRA       613
           237  22314                             LX3    B1,X4                                                   GRA       614
                     36134                        IX1    X3+X4                                                   GRA       615
                          5100000000 X            ALLOC  RCT,X1      ALLOC( RCT , 3*NC )                         GRA       616
           241  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
           242  5140000004 C                      SA4    LUV                                                     GRA       620
                          5130000000 C            SA3    O.UDT                                                   GRA       621
           243  6130000003                        SB3    3                                                       GRA       622
                          63440                   SB4    X4          (B4) = [LUV]                                GRA       623
                               63753              S"TB"  X5+B3       TB = O.SEQ + 3                              GRA       624
           244  53550                             SA5    X5          R1 = O.SEQ                                  GRA       625
                     53030                        SA0    X3          (A0) = [O.UDT]                              GRA       626
                                                                                                                 GRA       627
           245                                    PROCESS (BOS,EOS)                                              GRA       628
           245  73750                             SX7    X5                                                      GRA       629
                     0307000250 +                 ZR     X7,ERC1     IF IH[R1] = 0 */ NO BLOCK NUMBER            GRA       630
                               20552              LX5    -R1.H2P                                                 GRA       631
           246  43472                             MX4    -CA.APLNL                                               GRA       632
                     15654                        BX6    -X4*X5                                                  GRA       633
                          20652                   LX6    CA.APLNP    APF = APLN[R1]                              GRA       634
           247  5160000162 C                      SA6    APF                                                     GRA       635
                                                                                                                 GRA       636
                                        *         CLEAR LINK WORD ( NON CANIDATE )                               GRA       637
                                                                                                                 GRA       638
           250                                    PROCESS CLR                                                    GRA       639
           250  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
           251  5055000004               ERC2     SA5    A5+4        R1 = R1 + 4                                 GRA       645
                          26625                   UX6    B2,X5                                                   GRA       646
           252  0222000702 +                      JP     ERC.JT+B2   JUMP( ERC.JT( OC[R1] ) )                    GRA       647
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    21
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     SCON                ERC 
  
                                        *         CONSTANT CANIDATE PROCESSING                                   GRA       649
                                                                                                                 GRA       650
           253                                    PROCESS S                                                      GRA       651
           253  20536                             LX5    -R1.INP                                                 GRA       652
                     73650                        SX6    X5                                                      GRA       653
                          21673                   AX6    59                                                      GRA       654
                               73750              SX7    X5                                                      GRA       655
           254  13667                             BX6    X6-X7                                                   GRA       656
                     20622                        LX6    IH.CAP      C2W = IHW(0,0,ABS(IN[R1]),0)                GRA       657
                                                                                                                 GRA       658
           255  5035000002               SET1     SA3    A5+2        DI = R1 + 2                                 GRA       659
                          20325                   LX3    59-D.PRSP                                               GRA       660
           256  0323000262 +                      PL     X3,SET2     IF ^PRS[DI]                                 GRA       661
                          5025000004              SA2    A5+4        R1RS = R1 + 4                               GRA       662
           257  20243                             LX2    59-R1.SOP-SO.INVP                                       GRA       663
                     0322000250 +                 PL     X2,ERC1     IF ^INV[R1RS]  */ CHANGED IN INNER LOOP     GRA       664
                               73750              SX7    X5                                                      FCC0513     4
           260  0327000262 +                      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
           261  20622                             LX6    IH.CAP      C2W = IHW(0,0,IN[R1],0)                     FCC0513     8
                                                                                                                 GRA       665
           262  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
           263  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
           264  0100000430 +                      RJ     SCT         ENTER CONSTANT                              GRA       675
           265  0400000251 +                      EQ     ERC2                                                    GRA       676
  
  
           266                                    PROCESS FMA                                                    GRA       678
           266  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
           267  12647                             BX6    X4+X7       C2W = IHW(1,0,IN[R1],0)                     GRA       684
                     0400000255 +                 EQ     SET1                                                    GRA       685
  
  
  
                                        *         SXT - ENTER *CA* OF FOLLOWING CON SHIFT                        GRA       687
                                                                                                                 GRA       688
           270                                    PROCESS SXT                                                    GRA       689
           270  5045000005                        SA4    A5+5        R2S = R1 + 5                                GRA       690
                          20452                   LX4    -IH.CAP                                                 GRA       691
                               73640              SX6    X4                                                      GRA       692
           271  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
           272  20167                             LX1    CA.CONP     CPW = CAW(0,CON,0)                          GRA       697
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    22
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     SXT                 ERC 
  
                     0100000430 +                 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
           273  54550                             SA5    A5                                                      GRA       702
                     67271                        SB2    "TB"-B1                                                 GRA       703
                          43364                   MX3    -D.USESL+1                                              GRA       704
                               20534              LX5    -R1.RJP                                                 GRA       705
           274  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
           275  0307000251 +                      ZR     X7,ERC2     IF USES[DIP] = 1                            GRA       710
                          76310                   SX3    B1                                                      GRA       711
                               20341              LX3    CA.NOCCP                                                GRA       712
           276  36636                             IX6    X3+X6       NOCC[CAW] = NOCC[CAW] + 1                   GRA       713
                     54660                        SA6    A6                                                      GRA       714
                          0400000251 +            EQ     ERC2                                                    GRA       715
  
  
  
                                        *         STT - ENTER CONSTANT OR ADDRESS CANIDATE                       GRA       717
                                                                                                                 GRA       718
           277                                    PROCESS STT                                                    GRA       719
           277  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
           300  20330                             LX3    -IH.RFP                                                 GRA       723
                     15430                        BX4    "RN"X3      R = RF[R2]                                  GRA       724
                          0321000304 +            PL     X1,STT2     IF ^INC[DI]   */ NOT AN INCREMENT           GRA       725
                                                                                                                 GRA       726
           301  20147                             LX1    D.INCP-D.PSP                                            FCC1039     7
                     0321000250 +                 PL     X1,ERC1     IF ^PS[DI]    */ THIS IS THE TEST INCR      FCC1039     8
                                                                                                                 GRA       731
                               20322              LX3    IH.RFP-IH.CAP                                           GRA       732
           302  73630                             SX6    X3                                                      GRA       733
                     0326000303 +                 PL     X6,STT1                                                 GRA       734
                               14666              BX6    -X6                                                     GRA       735
           303  20622                    STT1     LX6    IH.CAP      C2W = IHW(0,0,ABS(CA[R2]),0)                GRA       736
                     0400000262 +                 EQ     SET2                                                    GRA       737
                                                                                                                 GRA       738
                                        *         PROCESS ADDRESS CANIDATE                                       GRA       739
                                                                                                                 GRA       740
           304  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
           305  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
           306  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
           307  0400000331 +                      EQ     ST2A                                                    FCC0919     5
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    23
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     TST                 ERC 
  
                                        *         TST/TLD - ENTER VALUE CANIDATES                                GRA       754
                                                                                                                 GRA       755
           310                                    PROCESS TST                                                    GRA       756
           310  54353                             SA3    A5+B3       LI = R1 + 3                                 GRA       757
                     0303000251 +                 ZR     X3,ERC2     IF [LI] = 0   */ USED IN INNER LOOP         GRA       758
           311  5110000321 +                      SA1    TSTA                                                    GRA       759
                          0400000313 +            EQ     TLD1                                                    GRA       760
                                                                                                                 GRA       761
           312                                    PROCESS TLD                                                    GRA       762
           312  5110000320 +                      SA1    TLDA                                                    GRA       763
                                                                                                                 GRA       764
           313  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
           314  7132777674               TLD2     SX3    B2-OC.LDC                                               CCG16     206
                          0333000316 +            MI     X3,TLD3     IF OC[R1] < OC.LDC  */ ^(LDC ! LDV)         CCG16     207
           315  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
           316  0100000430 +             TLD3     RJ     SCT         ENTER CANIDATE                              CCG16     212
           317  0400000251 +                      EQ     ERC2                                                    GRA       771
                                                                                                                 GRA       772
           320                           TLDA     BFMW   CA,(PL,USE)                                             GRA       773
           321                           TSTA     BFMW   CA,(PL,DEF)                                             GRA       774
  
  
                                        *         LD/ST - ENTER VALUE OR ADDRESS CANIDATE                        GRA       776
                                                                                                                 GRA       777
           322                                    PROCESS ST                                                     GRA       778
           322  76110                             SX1    B1                                                      GRA       779
                     20125                        LX1    CA.DEFP     BIT = DEF                                   GRA       780
                          0400000325 +            EQ     ST1                                                     GRA       781
                                                                                                                 GRA       782
           323                                    PROCESS (LD,ILD,LDC,LDV)                                       CCG16     213
           323  5045000002                        SA4    A5+2        DI = R1 + 2                                 GRA       784
                          76110                   SX1    B1                                                      GRA       785
                               20123              LX1    D.RFP                                                   GRA       786
           324  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
           325  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
           326  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
           327  10622                             BX6    X2          C2W = [R2]                                  GRA       800
                     0333000314 +                 MI     X3,TLD2     IF VC[LI]                                   GRA       801
                               20301              LX3    CA.VCP-CA.ACP                                           GRA       802
           330  0323000342 +                      PL     X3,ST4      IF ^AC[LI]                                  GRA       803
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           331  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
           332  53242                    ST2B     SA2    B2+X4       DIP = TB-1 + R                              FCC1039    10
                     20251                        LX2    59-D.INCP                                               GRA       813
                          0322000337 +            PL     X2,ST3      IF ^INC[DIP]                                GRA       814
                                                                                                                 GRA       815
           333  20223                             LX2    1+D.INCP+58-D.TYP                                       GRA       816
                     55421                        SA4    A2-B1       R2P = DIP - 1                               GRA       817
                          0322000335 +            PL     X2,ST2      IF TYPE[DIP] = I                            GRA       818
           334  20430                             LX4    -IH.RFP                                                 GRA       819
                     15440                        BX4    "RN"X4      R = RF[R2P]   */ POINT TO INC VARIABLE      GRA       820
                          0400000332 +            EQ     ST2B                                                    FCC1039    11
                                                                                                                 GRA       822
           335  54221                    ST2      SA2    A2+B1       LIP = DIP + 1 */ CONTAINS CANIDATE ORDINAL  FCC1039    12
                     0302000337 +                 ZR     X2,ST3      IF [LI] = 0   */ THIS INC IS NOT A CANIDATE FCC1039    13
                               73220              SX2    X2                                                      FCC1039    14
           336  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
           337  0100000430 +             ST3      RJ     SCT         ENTER CANIDATE                              GRA       834
           340  5045000003                        SA4    A5+3                                                    GRA       835
                          0314000251 +            NZ     X4,ERC2     IF [R1+3] " 0 */ CANIDATE ENTERED           GRA       836
                                                                                                                 GRA       837
           341  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
           342  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
           343  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
           344  0400000250 +                      EQ     ERC1                                                    GRA       851
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           345                                    PROCESS RS                                                     GRA       856
           345  5110000017 C                      SA1    N.HB                                                    GRA       857
                          20546                   LX5    -R1.SOP-SO.LKP                                          GRA       858
                               43672              MX6    -SO.LKL                                                 GRA       859
           346  63210                             SB2    X1                                                      GRA       860
                     0521000250 +                 NE     B2,B1,RS9   IF N.HB " 1   */ ^ OUTER WITH 1 INNER LOOP  GRA       861
                               15756              BX7    -X6*X5                                                  GRA       862
           347  63271                             SB2    X7+B1                                                   GRA       863
                     0523000250 +                 NE     B2,B3,RS9   IF SOLK[R1] " 2 */ NOT FULL LOCK RS         GRA       864
                               43666              MX6    -SO.REGL                                                GRA       865
           350  5120000020 C                      SA2    XRF                                                     GRA       866
                          0312000250 +            NZ     X2,RS9      IF XRF " 0    */ EXT REFS IN LOOP           GRA       867
           351  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
           352  6227777704                        SB2    X7-59                                                   GRA       874
                          23622                   LX6    -B2,X2                                                  GRA       875
           353  0336000250 +                      MI     X6,RS9      IF SHIFT(TRA,59-REGN) < 0  */ TEMP/RJRS USE GRA       876
                                                                                                                 GRA       877
                          0100000417 +            RJ     FCP         I = FCP(R1)   */ RCT ORD OF PRED            FCC0448    69
           354  0304000250 +                      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
           355  0333000250 +                      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
           356  0303000364 +                      ZR     X3,RS2      IF R2W = 0    */ NO *CAIH* IN *RS*          GRA       910
                          5024777775              SA2    A4-2        R2P = LI - 2                                GRA       911
           357  13623                             BX6    X2-X3                                                   GRA       912
                     53245                        SA2    B5+X4       CI = RCT([LI])                              FCC1770X    6
                          0306000362 +            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
           360  20205                             LX2    59-CA.FPP                                               FCC1770X   11
                     0322000364 +                 PL     X2,RS2      IF ^FP[CI]                                  FCC1770X   12
                               20272              LX2    CA.FPP-CA.ACP                                           FCC1770X   13
           361  0322000364 +                      PL     X2,RS2      IF ^AC[CI]                                  FCC1770X   14
                          0400000250 +            EQ     ERC1                                                    FCC1770X   15
                                                                                                                 FCC1770X   16
           362  20202                    RS1      LX2    59-CA.VCP                                               FCC1770X   17
                     0332000405 +                 MI     X2,RS3      IF VC[CI]     */ NO INTERFERENCE IN LOOPS   GRA       917
           363  0400000250 +                      EQ     ERC1                                                    GRA       918
                                                                                                                 GRA       919
           364  43672                    RS2      MX6    -2                                                      GRA       920
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    26
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     RS                  ERC 
  
                     12265                        BX2    X6+X5                                                   GRA       921
                          0312000250 +            NZ     X2,RS9      IF ^( INV[R1] & INVC[R1] )                  GRA       922
                                                                                                                 GRA       923
           365  5015777773                        SA1    A5-4        R1P = R1 - 4                                GRA       924
                          54211                   SA2    A1+B1       R2P = R1P + 1                               GRA       925
                               26621              UX6    B2,X1                                                   GRA       926
           366  7132777725                        SX3    B2-OC.STT                                               GRA       927
                          0313000405 +            NZ     X3,RS3      IF OC[R1P] " OC.STT                         GRA       928
           367  73620                             SX6    X2                                                      FCC2074     5
                     20230                        LX2    -IH.RFP                                                 GRA       929
                          15120                   BX1    "RN"X2      R = RF[R2P]                                 GRA       930
           370  0301000405 +                      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
           371  53125                             SA1    B5+X2       CK = RCT(K)                                 FCC2074     6
                     0306000373 +                 ZR     X6,RS2A     IF IH[R2P] = 0  */ NO IH                    FCC2074     7
                               10611              BX6    X1                                                      FCC2074     8
           372  20602                             LX6    59-CA.VCP                                               FCC2074     9
                     0326000250 +                 PL     X6,ERC1     IF ^VC[CK]    */ FP AND INTERFERENCE        FCC2074    10
                                                                                                                 FCC2074    11
           373  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
           374  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
           375  6221777775                        SB2    X1-2                                                    FCC1014    36
                          0520000405 +            NZ     B2,RS3      IF UDI[CK] " 1                              FCC1014    37
           376  20102                             LX1    59-CA.VCP                                               FCC1014    38
                     0321000405 +                 PL     X1,RS3      IF ^VC[CK]                                  FCC1014    39
                               54111              SA1    A1+B1       C2K = RCT(K+1)                              FCC1014    40
           377  20130                             LX1    -IH.RFP                                                 FCC1014    41
                     63210                        SB2    X1                                                      FCC1014    42
                          0521000405 +            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
           400  55351                             SA3    A5-B1       J = CO[LI]                                  FCC1014    49
                     20122                        LX1    IH.RFP-IH.CAP                                           FCC1014    50
                          63210                   SB2    X1                                                      CCG18     107
           401  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
           402  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
           403  15661                             BX6    -X1*X6      RCT(J+1) = IHW(0,CA[C2J],IH)                FCC1014    56
                     54630                        SA6    A3                                                      FCC1014    57
                          43600                   MX6    0                                                       FCC1014    58
           404  5267000100 C                      SA6    RAT+X7      RAT(REGN) = 0                               FCC1014    59
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           405  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
           406  12612                             BX6    X1+X2                                                   GRA       952
                     54620                        SA6    A2                                                      GRA       953
                          6227777767              SB2    X7-8                                                    GRA       954
                                                  LX7    CC.REG1P                                                GRA       955
           407  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
           410  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
           411  5065000003                        SA6    A5+3        [R1+3] = J                                  GRA       962
                          5217000100 C            SA1    RAT+X7                                                  GRA       963
           412  0311000413 +                      NZ     X1,RS4      IF RAT(REGN) " 0  */ STT CASE               GRA       964
                          5061000000              SA6    A1+         RAT(REGN) = J                               GRA       965
                                                                                                                 GRA       966
           413  0620000415 +             RS4      PL     B2,RS5      IF REGN > 7                                 GRA       967
                                                                                                                 GRA       968
                          5170000163 C            SA7    FBA         FBA = REGN    */ INIDCATE FINAL B-ASSIGNMEN GRA       969
           414  0400000251 +                      EQ     ERC2                                                    GRA       970
                                                                                                                 GRA       971
           415  5110000173 C             RS5      SA1    NXC                                                     GRA       972
                          5261000174 C            SA6    XCT+X1      XCT(NXC) = J                                GRA       973
           416  73711                             SX7    X1+B1                                                   GRA       974
                     54710                        SA7    A1          NXC = NXC + 1                               GRA       975
                          0400000251 +            EQ     ERC2                                                    GRA       976
                                                                                                                 GRA       977
                                 250 +   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
           417  0200400417 +             FCP      ROUTINE                                                        FCC0448    81
           420  55451                             SA4    A5-B1       LI = R1 - 1;  I = [I]                       FCC0448    82
                     55341                        SA3    A4-B1       DI = LI - 1                                 FCC0448    83
                          0314000417 +            NZ     X4,FCP      IF I " 0      */ IMMEDIATE PRED A CANIDATE  FCC0448    84
                                                  LX3    58-D.TYP                                                FCC0448    85
           421  43602                             MX6    D.TYL                                                   FCC0448    86
                     11363                        BX3    X6*X3                                                   FCC0448    87
                          0313000417 +            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/05. 19.57.27.      PAGE    28
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     FCP                 ERC 
  
           422  5033777775                        SA3    A3-2        R1P = DI - 2                                FCC0448    90
                          26623                   UX6    B2,X3                                                   FCC0448    91
                               20334              LX3    -R1.RJP                                                 FCC0448    92
           423  15630                             BX6    "RN"X3      R = RJ[R1P]                                 FCC0448    93
                     53467                        SA4    "TB"+X6     LI = TB + R;  I = [LI]                      FCC0448    94
                          0304000417 +            ZR     X4,FCP      IF I " 0      */ PRED NOT A CANIDATE        FCC0448    95
           424  7162777717                        SX6    B2-OC.SA                                                FCC0448    96
                          0306000417 +            ZR     X6,FCP      IF OC[R1P] = OC.SA                          FCC0448    97
           425  7162777767                        SX6    B2-OC.XMT                                               FCC0448    98
                          0306000417 +            ZR     X6,FCP      IF OC[R1P] = OC.XMT                         FCC0448    99
                                                                                                                 FCC0448   100
           426  43400                             MX4    0           I = 0         */ INDICATE PRED NOT A CANIDA FCC0448   101
                     0400000417 +                 EQ     FCP                                                     FCC0448   102
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           427  7170000000               SCT0     SX7    0                                                       GRA      1006
                          5075000003              SA7    A5+3        [R1+3] = 0                                  GRA      1007
                                                                                                                 GRA      1008
           430  0200400430 +             SCT      ROUTINE                                                        GRA      1009
           431  66253                             SB2    B5+B3       SA = CO + 3   */ SEARCH ADDRESS             GRA      1010
                     0304000437 +                 ZR     X4,SCT1     IF R = 0                                    GRA      1012
                               53447              SA4    "TB"+X4     LI = TB + R;  R = [LI]  */ SUBST RCT INDX   GRA      1013
           432  0304000434 +                      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
           433  0333000436 +                      MI     X3,SCT0B    IF VC[RCT(R)]                               FCC1014    68
                          43400                   MX4    0           R = 0                                       FCC1014    69
           434  7236000000               SCT0A    SX3    X6+                                                     FCC1014    70
                          0303000427 +            ZR     X3,SCT0     IF IH[C2W] = 0  */ *AC* AND NO *IH*         FCC1014    71
                                                                                                                 FCC1014    72
           435  7130000400                        SX3    4S6                                                     FCC1014    73
                          12737                   BX7    X3+X7       MIT[CCW] = 4  */ RF NOT IN RCT CASE         FCC1014    74
                                                                                                                 FCC1014    75
           436  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
           437  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
           440  5120000515 +                      SA2    SCTA                                                    FCC1014    78
                          10577                   BX5    X7                                                      FCC0594     8
                               12131              BX1    X3+X1       CPW = CPW ! [LI]  */ SET CT, USAGE          FCC0594     9
           441  22701                             LX7    X1                                                      FCC0594    10
                     5176000000                   SA7    B6+         [CL] = CPW    */ SKEL CA WORD               FCC0594    11
                               10755              BX7    X5                                                      FCC0594    12
                                                                                                                 GRA      1028
           442  13546                    SCT2     BX5    X4-X6       DIFF = C2W - KEY                            GRA      1029
                     54443                        SA4    A4+B3       CI = CI + 3;  KEY = [CI]                    GRA      1030
                          0315000442 +            NZ     X5,SCT2     IF DIFF " 0                                 GRA      1031
                                                                                                                 GRA      1032
           443  5034777775                        SA3    A4-2        CJ = CI - 2                                 GRA      1033
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    30
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                          13537                   BX5    X3-X7                                                   FCC0594    13
                               11525              BX5    X2*X5                                                   FCC1014    79
           444  0315000442 +                      NZ     X5,SCT2     IF (H2,MIT)[CJ] " (H2,MIT)[CCW]             FCC1014    80
                          5033777775              SA3    A3-2        CJ = CJ - 2   */ CA WORD                    FCC0594    16
           445  13531                             BX5    X3-X1                                                   FCC0594    17
                     43371                        MX3    -CA.CTL                                                 FCC0594    18
                          20505                   LX5    -CA.CTP                                                 FCC0594    19
                               15353              BX3    -X3*X5                                                  FCC0594    20
           446  0313000442 +                      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
           447  0726000452 +                      LT     B2,B6,SCT3  IF EA < CL    */ ENTRY IN TABLE             GRA      1041
                                                                                                                 GRA      1042
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      1043
           450  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
           451  11324                             BX3    X2*X4                                                   GRA      1048
                     12231                        BX2    X3+X1       CAW = CPW ! FP[DI]                          GRA      1049
                          0400000453 +            EQ     SCT4                                                    GRA      1050
  
           452  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
           453  5110000162 C             SCT4     SA1    APF                                                     CCGA100     9
                          5045000002              SA4    A5+2        DI = R1 + 2                                 CCGA099    12
           454  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
           455  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
           456  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
           457  0324000430 +                      PL     X4,SCT      IF ^INC[DI]                                 GRA      1074
                          20454                   LX4    D.INCP-D.STP                                            GRA      1075
           460  0324000430 +                      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
           461  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/05. 19.57.27.      PAGE    31
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                          12636                   BX6    X3+X6                                                   FCC0646    20
                               54550              SA5    A5                                                      GRA      1080
           462  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
           463  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
           464  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
           465  0323000470 +                      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
           466  12743                             BX7    X4+X3       I2[CCW] = 1   */ INDICATE MORE THAN 1 INC   GRA      1100
                     54730                        SA7    A3                                                      GRA      1101
                          10377                   BX3    X7                                                      GRA      1102
           467  0302000472 +                      ZR     X2,SCT6     IF I = 0      */ INCOP IS IA/IS             GRA      1103
                          0400000430 +            EQ     SCT                                                     GRA      1104
                                                                                                                 GRA      1105
                                         SCT5     LX3    1+CC.I1P                                                GRA      1106
           470  0302000472 +                      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
           471  0400000506 +                      EQ     SCT10                     THEN 0; ELSE 1                GRA      1113
                                                                                                                 GRA      1114
                                        *         INCOP IS *IA* OR *IS*                                          GRA      1115
                                                                                                                 GRA      1116
           472  5014777775               SCT6     SA1    A4-2        R1P = DIP - 2                               GRA      1117
                          26521                   UX5    B2,X1                                                   GRA      1118
                               20534              LX5    -R1.RJP                                                 GRA      1119
           473  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
           474  0324000476 +                      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
           475  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
           476  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/05. 19.57.27.      PAGE    32
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
           477  0302000513 +                      ZR     X2,SCT12    IF I = 0      */ INC VALUE NOT A CANIDATE   FCC1039    20
                          7254777700              SX5    X4-77B                                                  FCC1039    21
           500  0335000503 +                      MI     X5,SCT8     IF IAI < 77B  */ NO OVERFLOW                FCC1039    22
                                                                                                                 GRA      1136
                          53425                   SA4    B5+X2                                                   GRA      1137
                               76710              SX7    B1                                                      GRA      1138
           501  20763                             LX7    CA.EUP                                                  GRA      1139
                     12774                        BX7    X7+X4       EU[RCT(I)] = 1                              GRA      1140
                          54740                   SA7    A4                                                      GRA      1141
           502  0400000505 +                      EQ     SCT9                                                    GRA      1142
                                                                                                                 GRA      1143
           503  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
           504  20252                             LX2    -18                                                     GRA      1149
                     73741                        SX7    X4+B1       IAI = IAI + 1                               GRA      1150
                          54740                   SA7    A4                                                      GRA      1151
                                                                                                                 GRA      1152
           505  10433                    SCT9     BX4    X3                                                      GRA      1153
                     20401                        LX4    59-CC.I2P                                               GRA      1154
                          0334000430 +            MI     X4,SCT      IF I2[CCW]                                  GRA      1155
                                                                                                                 GRA      1156
                                        *         SAVE *INC* INFORMATION IN *CCW* OF CANIDATE ENTRY              GRA      1157
                                                                                                                 GRA      1158
           506  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
           507  5110000162 C                      SA1    APF                                                     FCC0603    17
                          20244                   LX2    CC.INCP                                                 GRA      1164
                               36323              IX3    X2+X3       INC[CCW] = I                                GRA      1165
           510  12743                             BX7    X4+X3                                                   GRA      1166
                     0311000512 +                 NZ     X1,SCT11    IF APF " 0    */ INCR UNCONDITINALLY EXEC   FCC0603    18
                               76410              SX4    B1                                                      FCC0603    19
           511  20472                             LX4    CC.I2P                                                  FCC0603    20
                     12747                        BX7    X4+X7       I2[CCW] = 1   */ INHIBIT PREFETCHING        FCC0603    21
           512  54730                    SCT11    SA7    A3                                                      FCC0603    22
                     0400000430 +                 EQ     SCT                                                     GRA      1168
                                                                                                                 FCC1039    24
                                        *         INC VALUE NOT A CANDIDATE ( LVL2 / LU ) , SET *EU* FOR INCR    FCC1039    25
                                                                                                                 FCC1039    26
           513  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
           514  0400000430 +                      EQ     SCT                                                     FCC1039    31
                                                                                                                 GRA      1169
           515                           SCTA     BFMW   CC,(H2,MIT)                                             FCC1014    81
                                                                                                                 FCC1014    82
                                                  QUAL   *                                                       GRA      1170
                                 236 +   ERC      EQU    /ERC/ERC                                                GRA      1171
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           516                           DUMA     BFMW   CA,(EU,RF)                                              GRA      1184
           517                           DUMB     BFMW   CA,(EU,^RD)                                             GRA      1185
           520                           DUMC     BFMW   CA,(EU,TU)                                              FCC0735     6
                                                                                                                 GRA      1187
                                                  QUAL   DUM                                                     GRA      1188
                                                                                                                 GRA      1189
           521                                    PROCESS BOS                                                    GRA      1190
           521  7060000000                        SX6    A0+         BSW = NC                                    GRA      1191
                          5160000000 X            SA6    =XBSW                                                   GRA      1192
           522  0200400522 +             DUM      ROUTINE                                                        GRA      1193
           523  0100000670 +                      RJ     FBM         FIND BOUNDARY MARKERS                       FCC2124     1
           524  5120000000 C                      SA2    O.UDT                                                   GRA      1194
                          5140000005 C            SA4    UVA                                                     GRA      1195
           525  6140000005                        SB4    59-UD.ISTP                                              GRA      1196
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GRA      1197
           526  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
           527  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
           530                                    PROCESS (S,FMA,CLR)                                            GRA      1210
           530  5000000001                        SA0    A0+1        NC = NC + 1                                 GRA      1211
                                                                                                                 GRA      1212
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP TO OPCODE PROCESSOR          GRA      1213
                                                                                                                 GRA      1214
           531  5045777775               DUM1     SA4    A5-2        DI = R1 - 2                                 GRA      1215
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GRA      1216
           532  11374                             BX3    X7*X4                                                   GRA      1217
                     26625                        UX6    B2,X5                                                   GRA      1218
                          5112000702 +            SA1    DUM.JT+B2                                               GRA      1219
           533  0313000535 +                      NZ     X3,DUM2     IF TYPE[DI] " I                             GRA      1220
                          20634                   LX6    -R1.RJP                                                 GRA      1221
                               15360              BX3    "RN"X6                                                  GRA      1222
           534  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
           535  63210                    DUM2     SB2    X1                                                      GRA      1228
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           536  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
           537  12613                             BX6    X1+X3       EU[LK] = 1                                  GRA      1237
                     54630                        SA6    A3                                                      GRA      1238
                          0400000531 +            EQ     DUM1                                                    GRA      1239
  
  
  
                                        *         XMT - TRANSMIT USAGE MODE BACK TO OPERAND                      CCG0037     5
                                                                                                                 GRA      1242
           540                                    PROCESS  XMT                                                   CCG0037     6
           540  54141                             SA1    A4+B1       LI = DI + 1                                 GRA      1244
                     12612                        BX6    X1+X2       [LJ] = [LI] ! [LJ]                          GRA      1245
                          5062000000              SA6    A2+                                                     GRA      1246
           541  0400000531 +                      EQ     DUM1                                                    GRA      1247
  
  
                                        *         SA,SS - INDICATE SHORT USEAGE                                  GRA      1249
                                                                                                                 GRA      1250
           542                                    PROCESS (SA,SS)                                                GRA      1251
           542  5110000516 +                      SA1    DUMA        BITS = (EU,RF)                              FCC2124     2
                          5140000666 +            SA4    LBM                                                     FCC2124     3
           543  37644                             IX6    X4-X4                                                   FCC2124     4
                     0326000545 +                 PL     X6,SA1      IF RK \ LBM                                 FCC2124     5
                               76110              SX1    B1                                                      FCC2124     6
           544  20163                             LX1    CA.EUP      BITS = EU                                   FCC2124     7
           545  12613                    SA1      BX6    X1+X3       BITS[LK] = 1                                FCC2124     8
                     54630                        SA6    A3                                                      FCC2124     9
                          5110000516 +            SA1    DUMA        BITS = (EU,RF)                              FCC2124    10
           546  75527                             SX5    A2-"TB"                                                 FCC2124    11
                     37654                        IX6    X5-X4                                                   FCC2124    12
                          0326000550 +            PL     X6,SA2      IF RJ \ LBM                                 FCC2124    13
           547  76110                             SX1    B1                                                      FCC2124    14
                     20163                        LX1    CA.EUP      BITS = EU                                   FCC2124    15
           550  12612                    SA2      BX6    X1+X2       BITS[LJ] = 1                                FCC2124    16
                     54620                        SA6    A2                                                      FCC2124    17
                          0400000531 +            EQ     DUM1                                                    GRA      1257
                                                                                                                 GRA      1258
                                        *         TYPE I, B AND X OPERANDS                                       GRA      1259
                                                                                                                 GRA      1260
           551                                    PROCESS (ILS,IRS,PK)                                           GRA      1261
           551  5110000516 +                      SA1    DUMA        BITS = (EU,RF)                              FCC2124    18
                          5140000666 +            SA4    LBM                                                     FCC2124    19
           552  75527                             SX5    A2-"TB"                                                 FCC2124    20
                     37654                        IX6    X5-X4                                                   FCC2124    21
                          0326000554 +            PL     X6,ILS1     IF RJ \ LBM                                 FCC2124    22
           553  76110                             SX1    B1                                                      FCC2124    23
                     20163                        LX1    CA.EUP      BITS = EU                                   FCC2124    24
           554  12612                    ILS1     BX6    X1+X2                                                   FCC2124    25
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           555                                    PROCESS (NR,RNZ,UP)                                            GRA      1268
           555  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
           556  0400000531 +                      EQ     DUM1                                                    GRA      1273
                                                                                                                 GRA      1274
                                        *         DIRECT READ/WRITE INSTRUCTIONS                                 GRA      1275
                                                                                                                 GRA      1276
           557                                    PROCESS DWL                                                    GRA      1277
           557  15650                             BX6    "RN"X5                                                  GRA      1278
                     53367                        SA3    "TB"+X6     LI = TB + RI[R1]                            GRA      1279
                          5110000517 +            SA1    DUMB                                                    GRA      1280
           560  12613                             BX6    X1+X3       (EU,^RD)[LI] = 1                            GRA      1281
                     54630                        SA6    A3                                                      GRA      1282
                                                                                                                 GRA      1283
           561                                    PROCESS  (XMTC,DRL)                                            CCG0037     7
           561  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
           562  0400000531 +                      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
           563                                    PROCESS (IA,IS)                                                FCC0735    10
           563  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
           564  20563                             LX5    CA.EUP      BIT = EU                                    FCC0735    15
                     0306000565 +                 ZR     X6,IA1      IF I = 0                                    FCC0735    16
                               20571              LX5    CA.IAP-CA.EUP     BIT = IA                              FCC0735    17
                                                                                                                 FCC0735    18
           565  5140000520 +             IA1      SA4    DUMC                                                    FCC0735    19
                          20662                   LX6    CA.RFP                                                  FCC0735    20
                               12464              BX4    X6+X4                                                   FCC0735    21
           566  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
           567  12653                             BX6    X5+X3       BIT[LK] = 1;  [LK] = [LK] ! UMB             FCC0735    26
                     54630                        SA6    A3                                                      FCC0735    27
                          0400000531 +            EQ     DUM1                                                    GRA      1312
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    36
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   JPX                 DUM 
  
                                        *         X - JUMPS - PROPAGATE *TU* BIT DOWN IT LOOP TEST JUMP          GRA      1314
                                                                                                                 GRA      1315
           570                                    PROCESS (JPX,RJXJ)                                             CCG2       13
           570  5120000030 C                      SA2    LTT                                                     GRA      1317
                          15650                   BX6    "RN"X5                                                  GRA      1318
                               76110              SX1    B1                                                      GRA      1319
           571  53367                             SA3    "TB"+X6     LI = TB + RI[R1]                            GRA      1320
                     20163                        LX1    CA.EUP      BIT = EU                                    GRA      1321
                          0302000573 +            ZR     X2,JPX1     IF LTT = 0    */ NO TEST REPLACEMENT        GRA      1322
                                                                                                                 GRA      1323
           572  20451                             LX4    59-D.INCP                                               GRA      1324
                     0324000573 +                 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
           573  12613                    JPX1     BX6    X1+X3       BIT[LI] = 1                                 GRA      1328
                     54630                        SA6    A3                                                      GRA      1329
                          5120000666 +            SA2    LBM                                                     FCC2124    27
           574  0302000531 +                      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
           575  54620                             SA6    A2                                                      FCC2124    31
                     0400000531 +                 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
           576                                    PROCESS STT                                                    GRA      1335
           576  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
           577  0305000531 +                      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
           600  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
           601  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
           602  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
           603  5110000000 X                      SA1    =XS=TRACE                                               CCG34      15
                          73330                   SX3    X3                                                      CCG34      16
                               37113              IX1    X1-X3                                                   CCG34      17
           604  0301000605 +                      ZR     X1,STT1     IF IH[R2] = TRACE.                          CCG34      18
                          12262                   BX2    X6+X2       RF[LJ] = 1                                  CCG34      19
                                                                                                                 CCG34      20
           605                           STT1     BSS    0                                                       CCG34      21
                                        .FTN      ELSE                                                           CCG34      22
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    37
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   STT                 DUM 
  
                                                  BX2    X6+X2                                                   CCG34      23
                                         .FTN     ENDIF                                                          CCG34      24
           605  10622                             BX6    X2                                                      CCG34      25
                     54620                        SA6    A2                                                      GRA      1355
                          0400000531 +            EQ     DUM1                                                    GRA      1356
  
  
                                        *         DEF, RS - REMOVE SPECIFIED REGISTER FROM AVAILABLE SET         GRA      1358
                                                                                                                 GRA      1359
           606                                    PROCESS RS                                                     FCC2056     7
           606  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
           607  12612                             BX6    X1+X2       EU[LIP] = 1   */ INHIBIT BIASING            FCC2056    12
                     54620                        SA6    A2                                                      FCC2056    13
                                                                                                                 FCC2056    14
           610                                    PROCESS DEF                                                    FCC2056    15
           610  5120000015 C                      SA2    MRA                                                     GRA      1361
                          20554                   LX5    -R1.SOP                                                 GRA      1362
                               43366              MX3    -SO.REGL                                                GRA      1363
           611  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
           612  15621                             BX6    -X1*X2      MRA = MRA & ^SHIFT(1,REGN)                  GRA      1368
                     20565                        LX5    59-SO.LKP                                               GRA      1369
                          5062000000              SA6    A2+                                                     GRA      1370
           613  0325000531 +                      PL     X5,DUM1     IF SOLK[R1] " 1 ! 3  */ ^ TEMP/RJRS LOCK    GRA      1371
                                                                                                                 GRA      1372
                          5120000161 C            SA2    TRA                                                     GRA      1373
           614  12612                             BX6    X1+X2       TRA = TRA ! SHIFT(1,REGN)                   GRA      1374
                     54620                        SA6    A2                                                      GRA      1375
                          0400000531 +            EQ     DUM1                                                    GRA      1376
  
  
                                        *         KLS/KRS - SET *RF* USEAGE FOR *SXT* SO *CON* GOES TO A B-REG   GRA      1378
                                                                                                                 GRA      1379
           615                                    PROCESS (KLS,KRS)                                              GRA      1380
           615  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
           616  0400000531 +                      EQ     DUM1                                                    GRA      1385
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    38
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   LDST                DUM 
  
                                        **        MEMORY REFERENCE PROCESSING - DETERMINE CANIDATE TYPE          GRA      1387
                                                                                                                 GRA      1388
           617                                    PROCESS TST                                                    GRA      1389
           617  54151                             SA1    A5+B1       R2 = R1 + 1                                 CCG28      15
                     5120000014 C                 SA2    ITL                                                     CCG28      16
                               20152              LX1    -IH.CAP                                                 CCG28      17
           620  63210                             SB2    X1          C = CA[R2]                                  CCG28      18
                     76610                        SX6    B1                                                      CCG28      19
                          63320                   SB3    X2                                                      CCG28      20
                               20663              LX6    CA.EUP                                                  CCG28      21
           621  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
           622  0623000624 +                      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
           623  0400000531 +                      EQ     DUM1                                                    CCG28      28
                                                                                                                 CCG28      29
           624  20451                    TST1     LX4    59-D.INCP                                               CCGA009     5
                     0334000626 +                 MI     X4,TST2     IF (NOT INC[DW])                            CCGA009     6
                               12663              BX6    X6+X3                                                   FCC2124    33
           625  54630                             SA6    A3                                                      FCC2124    34
                     0400000531 +                 EQ     DUM1                                                    CCGA009     7
                                                                                                                 CCGA009     8
           626  65251                   TST2      SB2    A5-B1                                                   FCC2124    35
                     65232                        SB2    A3-B2                                                   FCC1518X   12
                          0420000631 +            ZR     B2,.TLD     IF R1-1 = LIP */ INCR NEXT TO STORE         FCC1518X   13
                                                                                                                 FCC1518X   14
           627  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
           630  54630                             SA6    A3                                                      FCC1518X   18
                                                                                                                 GRA      1399
           631                                    PROCESS TLD                                                    GRA      1400
           631  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
           632  12613                             BX6    X1+X3       VC[LI] = 1                                  GRA      1405
                     54630                        SA6    A3                                                      GRA      1406
                          0400000531 +            EQ     DUM1                                                    GRA      1407
  
  
           633                                    PROCESS ST                                                     GRA      1409
           633  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
           634  20163                             LX1    CA.EUP                                                  GRA      1414
                     0322000637 +                 PL     X2,ST1      IF ^INC[DI]                                 FCC1997     5
                                                                                                                 FCC1997     6
                               65251              SB2    A5-B1                                                   FCC1997     7
           635  65232                             SB2    A3-B2                                                   FCC1997     8
                     0420000641 +                 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/05. 19.57.27.      PAGE    39
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   ST                  DUM 
  
           636  54630                             SA6    A3                                                      FCC1997    12
                     0400000641 +                 EQ     .LD                                                     FCC1997    13
                                                                                                                 FCC1997    14
           637  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
           640  12612                             BX6    X1+X2       ^RD[LI] = 1   */ INDICATE NON RECURSIVE DEF GRA      1421
                     54620                        SA6    A2                                                      GRA      1422
                                                                                                                 GRA      1423
           641                                    PROCESS (LD,ILD,LDC,LDV)                                       CCG16     214
           641  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
           642  20171                             LX1    CA.VCP      CT = VC       */ SET FOR VALUE CANIDATE     GRA      1429
                     15630                        BX6    "RN"X3                                                  GRA      1430
                          0306000647 +            ZR     X6,LD1      IF RF[R2] = 0                               GRA      1431
                                                                                                                 GRA      1432
           643  5120000666 +                      SA2    LBM                                                     FCC2124    36
                          37362                   IX3    X6-X2                                                   FCC2124    37
           644  0333000646 +                      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
           645  12612                             BX6    X1+X2       RF[LJ] = 1                                  GRA      1435
                     54620                        SA6    A2                                                      GRA      1436
           646  76110                    LD0      SX1    B1                                                      FCC2124    39
                     20170                        LX1    CA.ACP      CT = AC                                     FCC2124    40
                          0400000661 +            EQ     LD3                                                     GRA      1438
                                                                                                                 GRA      1439
                                        *         CHECK SCALAR LD/ST FOR INTERFERENCE, EXPLICIT USE IN INNER LP  GRA      1440
                                                                                                                 GRA      1441
           647  53256                    LD1      SA2    B6+X5       UI = UDT( IN[R1] )                          GRA      1442
                     22642                        LX6    B4,X2                                                   GRA      1443
                          0336000655 +            MI     X6,LD2      IF IST[UI]    */ INTERFERENCE               GRA      1444
           650  20643                             LX6    UD.ISTP-UD.CMP                                          GRA      1445
                     0326000661 +                 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
           651  0332000655 +                      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
           652  6122777704                        SB2    B2-59                                                   GRA      1454
                          53235                   SA2    B5+X3       UVW = UVA( WI[U2] )                         FCC1040     9
                               23522              LX5    -B2,X2                                                  GRA      1456
           653  0325000661 +                      PL     X5,LD3      IF SHIFT( UVW , 59-BITN[U2] ) > 0           FCC1040    10
                                                                                                                 GRA      1458
                          20624                   LX6    UD.BMIP+59-UD.DEFRP                                     GRA      1459
           654  0326000661 +                      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/05. 19.57.27.      PAGE    40
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   ST                  DUM 
  
           655  20451                    LD2      LX4    59-D.INCP                                               GRA      1465
                     0324000660 +                 PL     X4,LD2A     IF ^INC[DI]   */ ^ INC STORE                GRA      1466
                               76310              SX3    B1                                                      GRA      1467
           656  5025777775                        SA2    A5-2        DIP = R1 - 2                                GRA      1468
                          20322                   LX3    D.INCP                                                  GRA      1469
                               15623              BX6    -X3*X2      INC[DIP] = 0                                GRA      1470
           657  54620                             SA6    A2                                                      GRA      1471
                                                                                                                 GRA      1472
                                        *         CHECK FOR POSSIBLE ADDRESS CANIDATE                            GRA      1473
                                                                                                                 GRA      1474
           660  20471                    LD2A     LX4    D.INCP-D.FPP                                            GRA      1475
                     0324000531 +                 PL     X4,DUM1     IF ^FP[DI]                                  GRA      1476
                               20173              LX1    CA.ACP-CA.VCP     CT = AC                               GRA      1477
                                                                                                                 GRA      1478
           661  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
           662  0400000531 +                      EQ     DUM1                                                    GRA      1483
  
  
  
           663                                    PROCESS PST                                                    CCGA082     7
           663  15350                             BX3    "RN"X5                                                  CCGA082     8
                     7233777776                   SX3    X3-1                                                    CCGA082     9
                               53237              SA2    "TB"+X3     DI OF PRED                                  CCGA082    10
           664  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
           665  0400000531 +                      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
           666                     1     LBM      BSS    1           LAST BOUNDARY MARKER                        FCC2124    49
                                                                                                                 FCC2124    50
           667  5170000666 +             FBM0     SA7    LBM         LBM = LB                                    FCC2124    51
           670  0200400670 +             FBM      ROUTINE                                                        FCC2124    52
           671  76700                             SX7    B0          LB = 0                                      FCC2124    53
                     5110000000 X                 SA1    =XHO$UO                                                 FCC2124    54
           672  0311000667 +                      NZ     X1,FBM0     IF UO " 0                                   FCC2124    55
                          5110000000 X            SA1    HO$OPT                                                  CCGA009     9
           673  0321000676 +                      PL     X1,FBM1     IF OPT NE 2                                 CCGA009    10
                          53250                   SA2    X5          R1 = [TXT]                                  FCC2124    58
                               43372              MX3    -2                                                      FCC2124    59
           674  20252                             LX2    -R1.H2P                                                 FCC2124    60
                     15423                        BX4    -X3*X2                                                  FCC2124    61
                          0314000676 +            NZ     X4,FBM1     IF AP ! LN    */ BLOCK EXECUTED UNCONDITION FCC2124    62
           675  7170377777                        SX7    377777B     LB = INFINITY                               FCC2124    63
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    41
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   FBM                 DUM 
  
                          0400000667 +            EQ     FBM0                                                    FCC2124    64
                                                                                                                 FCC2124    65
           676  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
           677  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
           700  0430000667 +                      ZR     B3,FBM0     IF OC[R1] = 0 */ END OF SEQUENCE            FCC2124    74
                          0324000677 +            PL     X4,FBM2     IF ^JP[DI]                                  FCC2124    75
                                                                                                                 FCC2124    76
           701  54741                             SA7    A4+B1       [DI+1] = LB   */ SAVE INDEX OF LAST BM      FCC2124    77
                     75746                        SX7    A4-B6       LB = DI - D0                                FCC2124    78
                          0400000677 +            EQ     FBM2                                                    FCC2124    79
                                                                                                                 GRA      1484
                                                  QUAL   *                                                       GRA      1485
                                 522 +   DUM      EQU    /DUM/DUM                                                GRA      1486
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
           702                           DUM.JT   BSS    0                                                       GRA      1521
           702                           ERC.JT   BSS    0                                                       GRA      1522
           702                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1011                           MTAA     BFMW   CA,(VC,RF)                                              GRA      1529
          1012                           MTAB     BFMW   CA,(IRA,EU,LX)    NO BIAS BITS ( BY AN *CAIH* )         GRA      1530
                                                                                                                 GRA      1531
          1013  0200401013 +             MTA      ROUTINE                                                        GRA      1532
          1014  5120000015 C                      SA2    MRA                                                     GRA      1533
                          7130000376              SX3    376B                                                    GRA      1534
          1015  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
          1016  5160000167 C                      SA6    ABR                                                     GRA      1539
                          5170000170 C            SA7    NAB                                                     GRA      1540
          1017  5170000171 C                      SA7    NTA         NTA = NAB                                   GRA      1541
                          0307001013 +            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
          1020  5110000165 C                      SA1    NVC                                                     GRA      1547
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , NVC )  */ SORT TABLE           GRA      1548
          1022  5140000000 X                      SA4    O.RCT                                                   GRA      1549
                          5150000000 X            SA5    L.RCT                                                   GRA      1550
          1023  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
          1024  20030                             LX0    CA.SORTP                                                GRA      1555
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      1556
                          6130000003              SB3    3                                                       GRA      1557
          1025  53556                             SA5    B6+X5       CI = CO + L.RCT                             GRA      1558
                     5110001011 +                 SA1    MTAA                                                    GRA      1559
                                                                                                                 GRA      1560
          1026  55553                    MTA1     SA5    A5-B3       CI = CI - 3                                 GRA      1561
                     0305001032 +                 ZR     X5,MTA2     IF [CI] = 0   */ END OF TABLE               GRA      1562
                               16651              BX6    -X1+X5                                                  GRA      1563
          1027  0316001026 +                      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
          1030  0335001026 +                      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
          1031  54771                             SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I           GRA      1572
                     0400001026 +                 EQ     MTA1                                                    GRA      1573
                                                                                                                 GRA      1574
          1032  64371                    MTA2     SB3    A7+B1       SI = SI + 1                                 GRA      1575
                     77137                        SX1    B3-B7       LEN = SI - SO                               GRA      1576
                          0301001124 +            ZR     X1,MTA12    IF LEN = 0    */ NO CANIDATES               GRA      1577
                                                                                                                 GRA      1578
          1033  0100000000 X                      CALL   SHL#        SORT( RND )                                 CCGNC     649
          1034  0100000000 X                      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/05. 19.57.27.      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
          1035  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
          1036  0301001114 +                      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
          1037  53456                             SA4    B6+X5       CI = RCT(I)                                 GRA      1604
                     20414                        LX4    59-CA.TUP                                               GRA      1605
                          0324001114 +            PL     X4,MTA11    IF ^TU[CI]    */ CHECK FOR *CV*             GRA      1606
          1040  20432                             LX4    CA.TUP-CA.DEFP                                          GRA      1607
                     0324001114 +                 PL     X4,MTA11    IF ^DEF[CI]                                 GRA      1608
                               43100              MX1    0           INVF = 0                                    GRA      1609
          1041  0100001155 +                      RJ     AIR         ASSIGN *CV* TO AN INDEX REGISTER            GRA      1610
          1042  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
          1043  21603                             AX6    3                                                       GRA      1614
                     0316001114 +                 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
          1044  56570                    MTA2A    SA5    B7                                                      GRA      1621
                     5110000023 C                 SA1    LUL                                                     GRA      1622
                               63450              SB4    X5          I = CO[SI]    */ POSSIBLE *UL*              GRA      1623
          1045  20514                             LX5    59-CA.TUP                                               GRA      1624
                     0325001055 +                 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
          1046  26621                             UX6    B2,X1                                                   GRA      1630
                     21644                        AX6    PS.UDIP                                                 GRA      1631
                          13764                   BX7    X6-X4                                                   GRA      1632
                               63370              SB3    X7                                                      GRA      1633
          1047  0430001063 +                      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
          1050  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/05. 19.57.27.      PAGE    45
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1051  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
          1052  0420001055 +                      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
          1053  0303001114 +                      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
          1054  54750                             SA7    A5                                                      GRA      1653
                     0400001044 +                 EQ     MTA2A                                                   GRA      1654
                                                                                                                 GRA      1655
                                        *         SEARCH *RCT* FOR CON *UL* IF FINAL B-ASSIGNMENTS WERE MADE     GRA      1656
                                                                                                                 GRA      1657
          1055  26621                    MTA3     UX6    B2,X1                                                   GRA      1658
                     0520001114 +                 NZ     B2,MTA11    IF TYP[LUL] " 0   */ *UL* IS A VAR          GRA      1659
                               20622              LX6    IH.CAP                                                  GRA      1660
          1056  5130000163 C                      SA3    FBA                                                     GRA      1661
                          6140000000              SB4    0           I = 0                                       GRA      1662
          1057  0303001063 +                      ZR     X3,MTA5     IF FBA = 0    */ NO FINAL B-ASSIGNMENTS     GRA      1663
                                                                                                                 GRA      1664
                          5120000000 X            SA2    L.RCT                                                   GRA      1665
          1060  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
          1061  5055777774               MTA4     SA5    A5-3        CI = CI - 3                                 GRA      1670
                          13765                   BX7    X6-X5                                                   GRA      1671
          1062  0317001061 +                      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
          1063  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
                          0322001071 +            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
          1064  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
          1065  6226777767                        SB2    X6-10B                                                  GRA      1690
                          5160000024 C            SA6    LUL+1       LUL(2) = REG1[CC]                           GRA      1691
          1066  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
          1067  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/05. 19.57.27.      PAGE    46
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
                     54630                        SA6    A3                                                      GRA      1697
                          0720001114 +            MI     B2,MTA11    IF REG1[CC] < 10B  */ *UL* IN A B-REG       GRA      1698
          1070  56000                             SA0    B0          TRM = 0                                     GRA      1699
                     0400001114 +                 EQ     MTA11                                                   GRA      1700
                                                                                                                 GRA      1701
          1071  56171                    MTA6     SA1    B7+B1                                                   GRA      1702
                     5130001012 +                 SA3    MTAB                                                    GRA      1703
                               20243              LX2    CA.RAP-CA.SUSEP                                         GRA      1704
          1072  53516                             SA5    B6+X1       CVW = RCT([SI+1])  */ *CV* WORD             GRA      1705
                     11635                        BX6    X3*X5                                                   GRA      1706
                          0316001110 +            NZ     X6,MTA10    IF (IRA,EU,LX)[CVW]                         GRA      1707
          1073  43764                             MX7    -CA.SUSEL+1                                             GRA      1708
                     15627                        BX6    -X7*X2                                                  GRA      1709
                          0316001075 +            NZ     X6,MFA6A    IF SUSE[ULW] > 1                            GRA      1710
          1074  10622                             BX6    X2                                                      GRA      1711
                     20635                        LX6    CA.SUSEP-CA.CONP                                        GRA      1712
                          0326001077 +            PL     X6,MTA7     IF ^CON[ULW]  */ NO OTHER USES              GRA      1713
                                                                                                                 GRA      1714
          1075  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
          1076  54720                             SA7    A2                                                      GRA      1719
                     0400001110 +                 EQ     MTA10                                                   GRA      1720
                                                                                                                 GRA      1721
                                        *         *CV* IS DEAD ON EXIT AND ^EU                                   GRA      1722
                                                                                                                 GRA      1723
          1077  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
          1100  0317001110 +                      NZ     X7,MTA10    IF TUD > 1    */ I IS USED IN INDEXED LD"S  GRA      1727
                                                                                                                 GRA      1728
                          5130000037 C            SA3    STP                                                     GRA      1729
          1101  5100000001                        SA0    1           TRM = 1       */ I-N CASE                   GRA      1730
                          0303001104 +            ZR     X3,MTA8     IF STP = 0    */ NO *IP* WHICH IS F(I)      GRA      1731
                                                                                                                 GRA      1732
          1102  5110000170 C                      SA1    NAB                                                     GRA      1733
                          0301001124 +            ZR     X1,MTA12    IF NAB = 0                                  GRA      1734
          1103  5100000004                        SA0    4           TRM = 4       */ F(I), F(N) CASE            GRA      1735
                                                                                                                 GRA      1736
                                        *         REMOVE VAR *UL* FROM CONSIDERATION                             GRA      1737
                                                                                                                 GRA      1738
          1104  56270                    MTA8     SA2    B7                                                      GRA      1739
                     53326                        SA3    B6+X2                                                   GRA      1740
                          73620                   SX6    X2                                                      GRA      1741
                               20214              LX2    59-CA.TUP                                               GRA      1742
          1105  0322001114 +                      PL     X2,MTA11    IF ^TU[SI]    */ NOT VAR *UL*               GRA      1743
                          5160000100 C            SA6    RAT         RAT = CO[SI]  */ SAVE ORD OF *UL*           GRA      1744
          1106  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
          1107  0400001114 +                      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/05. 19.57.27.      PAGE    47
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1110  5110000170 C             MTA10    SA1    NAB                                                     GRA      1754
                          0301001124 +            ZR     X1,MTA12    IF NAB = 0                                  GRA      1755
          1111  76110                             SX1    B1          INVF = 1                                    GRA      1756
                     0100001155 +                 RJ     AIR         ASSIGN IT TO A REGISTER                     GRA      1757
          1112  77602                             SX6    -B2                                                     GRA      1758
                     5160000024 C                 SA6    LUL+1       LUL(2) = REGNO                              GRA      1759
                               43700              MX7    0                                                       GRA      1760
          1113  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
          1114  56570                    MTA11    SA5    B7                                                      GRA      1767
                     5110000170 C                 SA1    NAB                                                     GRA      1768
                               63450              SB4    X5          I = CO[SI]                                  GRA      1769
          1115  0305001125 +                      ZR     X5,MTA14    IF I = 0      */ END OF TABLE               GRA      1770
                          0301001125 +            ZR     X1,MTA14    IF NAB = 0    */ END OF REGS                GRA      1771
          1116  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
          1117  0100001155 +                      RJ     AIR         ASSIGN IT TO A REGISTER                     GRA      1776
          1120  73270                             SX2    X7                                                      GRA      1777
                     67771                        SB7    B7-B1       SI = SI - 1                                 GRA      1778
                          0312001114 +            NZ     X2,MTA11    IF UDT[CAW] " 0  */ PROGRAMMER VAR          GRA      1779
                                                                                                                 GRA      1780
          1121  54471                             SA4    A7+B1                                                   GRA      1781
                     5130000000 X                 SA3    O.TET                                                   GRA      1782
                               20452              LX4    -IH.CAP     C = CA[RCT(I+1)]                            GRA      1783
          1122  63330                             SB3    X3                                                      GRA      1784
                     53243                        SA2    B3+X4                                                   GRA      1785
                          77502                   SX5    -B2                                                     GRA      1786
                               20522              LX5    T.REGP                                                  GRA      1787
          1123  12652                             BX6    X5+X2       REG[TET(C)] = REGNO                         GRA      1788
                     54620                        SA6    A2                                                      GRA      1789
                          0400001114 +            EQ     MTA11                                                   GRA      1790
                                                                                                                 GRA      1791
          1124  5100000000               MTA12    SA0    0           TRM = 0                                     GRA      1792
                                                                                                                 GRA      1793
                                        *         SAVE FLAGS, CHECK TEST REPLACEMENT DECISION                    GRA      1794
                                                                                                                 GRA      1795
          1125  5140000171 C             MTA14    SA4    NTA                                                     GRA      1796
                          5150000170 C            SA5    NAB                                                     GRA      1797
          1126  5110000167 C                      SA1    ABR                                                     GRA      1798
                          5120000015 C            SA2    MRA                                                     GRA      1799
          1127  74600                             SX6    A0                                                      GRA      1800
                     43700                        MX7    0                                                       GRA      1801
                          5160000172 C            SA6    TRD         TRD = TRM                                   GRA      1802
          1130  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
          1131  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/05. 19.57.27.      PAGE    48
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1132  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
          1133  5130000000 X                      SA3    L.RCT                                                   GRA      1819
                          6150000014              SB5    59-CA.TUP                                               GRA      1820
          1134  20063                             LX0    CA.EUP                                                  GRA      1821
                     63736                        SB7    B6+X3       CI = RCT;  LIM = RCT + L.RCT                GRA      1822
                          66460                   SB4    B6                                                      GRA      1823
          1135  0301001141 +                      ZR     X1,MTA17    IF LTT = 0    */ NO *TU* GAMES              GRA      1824
                          0312001141 +            NZ     X2,MTA17    IF TRM " 0    */ *TU* BIT IS SUFFICIENT     GRA      1825
                                                                                                                 GRA      1826
          1136  56560                    MTA15    SA5    B6                                                      GRA      1827
                     6166000003                   SB6    B6+3                                                    GRA      1828
                               22455              LX4    B5,X5                                                   GRA      1829
          1137  0324001140 +                      PL     X4,MTA16    IF ^TU[CI]                                  GRA      1830
                          12605                   BX6    X0+X5       EU[CI] = 1                                  GRA      1831
                               54650              SA6    A5                                                      GRA      1832
          1140  0767001136 +             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
          1141  5110001151 +             MTA17    SA1    MTAC                                                    GRA      1838
                          54211                   SA2    A1+B1                                                   GRA      1839
                               56570              SA5    B7          CI = LIM                                    GRA      1840
          1142  20052                             LX0    CA.NOCCP-CA.EUP                                         GRA      1841
                     6130000003                   SB3    3                                                       GRA      1842
                                                                                                                 GRA      1843
          1143  55553                    MTA18    SA5    A5-B3       CI = CI - 3                                 GRA      1844
                     0305001013 +                 ZR     X5,MTA      IF [CI] = 0   */ END OF RCT                 GRA      1845
                               16651              BX6    -X1+X5                                                  GRA      1846
          1144  0316001143 +                      NZ     X6,MTA18    IF ^(RA,VC,IA,RF)[CI]                       GRA      1847
                          11625                   BX6    X2*X5                                                   GRA      1848
          1145  0316001143 +                      NZ     X6,MTA18    IF KD[CI] ! ^RD[CI]                         GRA      1849
                          5035000002              SA3    A5+2        CCW = CI + 2                                GRA      1850
          1146  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
          1147  0324001143 +                      PL     X4,MTA18    IF ^CON[CJ]   */ INC IS NOT A *CON*         GRA      1855
                          54640                   SA6    A4          NOCC[CJ] = NOCC[CJ] + 1                     GRA      1856
          1150  0400001143 +                      EQ     MTA18                                                   GRA      1857
                                                                                                                 GRA      1858
          1151                           MTAC     BFMW   CA,(RA,VC,IA,RF)                                        GRA      1859
          1152                                    BFMW   CA,(KD,^RD)                                             GRA      1860
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1153  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
          1154  16462                             BX4    -X2+X6                                                  GRA      1877
                     5075000000                   SA7    A5+                                                     GRA      1878
                               63240              SB2    X4          REGNO = REG1[CCW]                           GRA      1879
                                                                                                                 GRA      1880
          1155  0200401155 +             AIR      ROUTINE                                                        GRA      1881
          1156  56564                             SA5    B6+B4       CAW = RCT(I)                                GRA      1882
                                                  LX5    59-CA.RAP                                               GRA      1883
                     0335001153 +                 MI     X5,AIR1     IF RA[CAW]    */ REG PREVIOUSLY ASSIGNED    GRA      1884
                                                                                                                 GRA      1885
                               76210              SX2    B1                                                      GRA      1886
          1157  5140000167 C                      SA4    ABR                                                     GRA      1887
                          5130000170 C            SA3    NAB                                                     GRA      1888
          1160  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
          1161  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
          1162  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
          1163  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
          1164  54750                             SA7    A5                                                      GRA      1905
                     5035000002                   SA3    A5+2                                                    GRA      1906
                               12663              BX6    X6+X3       REG1[RCT(I+2)] = REGNO                      GRA      1907
          1165  54630                             SA6    A3                                                      GRA      1908
                     0400001155 +                 EQ     AIR                                                     GRA      1909
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1166                           DXAA     BFMW   CA,(VC,CON)                                             GRA      1923
          1167                                    BFMW   CA,(RA,RF)                                              GRA      1924
                                                                                                                 GRA      1925
          1170  0200401170 +             DXA      ROUTINE                                                        GRA      1926
          1171  5150000173 C                      SA5    NXC                                                     GRA      1927
                          0315001217 +            NZ     X5,DXA4A    IF NXC " 0    */ X-REGS ASSIGNED IN *ERC*   GRA      1928
          1172  5140000017 C                      SA4    N.HB                                                    GRA      1929
                          0314001170 +            NZ     X4,DXA      IF N.HB " 0   */ NOT AN INNERMOST LOOP      GRA      1930
                                                                                                                 GRA      1931
          1173  5110000165 C                      SA1    NVC                                                     GRA      1932
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , NVC )                          GRA      1933
          1175  5140000000 X                      SA4    O.RCT                                                   GRA      1934
                          5150000000 X            SA5    L.RCT                                                   GRA      1935
          1176  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
          1177  20030                             LX0    CA.SORTP                                                GRA      1940
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      1941
                          5110001166 +            SA1    DXAA                                                    GRA      1942
          1200  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
          1201  55553                    DXA1     SA5    A5-B3       CI = CI - 3                                 GRA      1949
                     0305001205 +                 ZR     X5,DXA2     IF [CI] = 0   */ END OF TABLE               GRA      1950
                               11615              BX6    X1*X5                                                   GRA      1951
          1202  0306001201 +                      ZR     X6,DXA1     IF ^( VC[CI] ! CON[CI] )                    GRA      1952
                          11325                   BX3    X2*X5                                                   GRA      1953
          1203  0313001201 +                      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
          1204  36734                             IX7    X3+X4                                                   GRA      1958
                     54771                        SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I           GRA      1959
                          0400001201 +            EQ     DXA1                                                    GRA      1960
                                                                                                                 GRA      1961
          1205  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
          1206  5170000000 X                      SA7    L.RND       L.RND = 0                                   GRA      1965
                          7160001170 +            SX6    DXA                                                     GRA      1966
          1207  5160001261 +                      SA6    CRWA        [CRWA] = DXA  */ FAIL EXIT ADDR             GRA      1967
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    51
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                          0301001220 +            ZR     X1,DXA5     IF LEN = 0    */ GO COMPUTE MLW, N.LD, N.ST GRA      1968
                                                                                                                 GRA      1969
          1210  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
          1211  6140000174 C                      SB4    XCT         I = 0                                       GRA      1975
                          6154000004              SB5    B4+4        LIM = 4                                     GRA      1976
          1212  43001                             MX0    1                                                       GRA      1977
                                                  LX0    1+CA.RAP                                                GRA      1978
                     6124000000                   SB2    B4+                                                     GRA      1979
                                                                                                                 GRA      1980
          1213  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
          1214  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
          1215  0445001216 +                      EQ     B4,B5,DXA4  IF I = LIM    */ LIM CANIDATES COLLECTED    GRA      1989
                          0773001213 +            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
          1216  77642                    DXA4     SX6    B4-B2                                                   GRA      1995
                     5160000173 C                 SA6    NXC         NXC = I       */ N. X-CANIDATES             GRA      1996
                                                                                                                 GRA      1997
          1217  7160001225 +             DXA4A    SX6    DXA6                                                    GRA      1998
                          5160001261 +            SA6    CRWA        [CRWA] = DXA6 */ FAIL EXIT ADDRESS          GRA      1999
                                                                                                                 GRA      2000
          1220  7170000000               DXA5     SX7    0                                                       GRA      2001
                          5170000201 C            SA7    MLW         MLW = 0       */ MAX REG WITH OF LOOP       GRA      2002
                                                                                                                 GRA      2003
          1221  7170001263 +                      CLCM   CRW         COMPUTE REG WIDTH                           GRA      2004
          1223  5110000017 C                      SA1    N.HB                                                    GRA      2005
                          0301001227 +            ZR     X1,DXA7     IF N.HB = 0   */ INNERMOST LOOP             GRA      2006
                                                                                                                 GRA      2007
          1224  0400001170 +                      EQ     DXA                                                     GRA      2008
                                                                                                                 GRA      2009
                                        *         CRW FAIL EXIT, REDUCE X-REG CANIDATE COUNT                     GRA      2010
                                                                                                                 GRA      2011
          1225  5110000173 C             DXA6     SA1    NXC                                                     GRA      2012
                          0100003201 +            RJ     RXA         REMOVE LAST X-ASSIGNMENT                    FCC0811     8
          1226  0316001220 +                      NZ     X6,DXA5     IF NXC " 0    */ MORE CANIDATES LEFT        GRA      2021
                                                                                                                 GRA      2022
                          0400001170 +            EQ     DXA                                                     GRA      2023
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1227  7170001366 +             DXA7     CLCM   CMR         COUNT NUMBER OF MEMORY REFS LEFT IN LOOP    GRA      2029
                                                                                                                 GRA      2030
          1231  5150000173 C                      SA5    NXC                                                     GRA      2031
                          0305001170 +            ZR     X5,DXA      IF NXC = 0    */ NO X-CANIDATES             GRA      2032
                                                                                                                 GRA      2033
          1232  5110000015 C                      SA1    MRA                                                     GRA      2034
                          5120000203 C            SA2    N.ST                                                    GRA      2035
          1233  20154                             LX1    -16         AXR = SHIFT(MRA,-16)                        GRA      2036
                     43000                        MX0    0           STL = 0                                     GRA      2037
                          0302001236 +            ZR     X2,DXA8     IF N.ST = 0   */ NO STORES LEFT IN THE LOOP GRA      2038
          1234  7100000100                        SX0    1S6         STL = 1S6     */ LOCKOUT X6                 GRA      2039
                          23312                   AX3    B1,X2                                                   GRA      2040
          1235  0303001236 +                      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
          1236  5150000202 C             DXA8     SA5    N.LD                                                    GRA      2047
                          5100321670              SA0    321670B     LRS = 076123  */ LD ONLY REG SET            GRA      2048
          1237  6225777774                        SB2    X5-3                                                    GRA      2049
                          0702001242 +            GT     B2,DXA9     IF N.LD > 3                                 GRA      2050
          1240  5100367021                        SA0    367021B     LRS = 120763                                GRA      2051
                          0420001242 +            ZR     B2,DXA9     IF N.LD = 3                                 GRA      2052
          1241  5100670321                        SA0    670321B     LRS = 123076                                GRA      2053
                                                                                                                 GRA      2054
          1242  5120000173 C             DXA9     SA2    NXC                                                     GRA      2055
                          5130000000 X            SA3    O.RCT                                                   GRA      2056
          1243  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
          1244  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
          1245  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
          1246  63250                             SB2    X5                                                      GRA      2070
                     20504                        LX5    59-CA.CONP                                              GRA      2071
                          0335001251 +            MI     X5,DXA11    IF CON[CAW]                                 GRA      2072
          1247  0420001251 +                      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
          1250  0325001251 +                      PL     X5,DXA11    IF ^DEF[CAW]  */ LOAD ONLY                  GRA      2077
                          7170321067              SX7    321067B     XRS = 760123                                GRA      2078
                                                                                                                 GRA      2079
          1251  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/05. 19.57.27.      PAGE    53
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                          63260                   SB2    X6                                                      GRA      2082
                               22320              LX3    B2,X0       RBIT = SHIFT(1,REGN)                        GRA      2083
          1252  11531                             BX5    X3*X1                                                   GRA      2084
                     0305001251 +                 ZR     X5,DXA11    IF AXR & RBIT = 0 */ REG NOT AVAILABLE      GRA      2085
                                                                                                                 GRA      2086
                               54550              SA5    A5                                                      GRA      2087
          1253  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
          1254  20547                             LX5    -CA.DEFP                                                GRA      2091
                     15305                        BX3    -X5*X0      INV[RAT(REGNO)] = ^DEF[RCT(J)]              GRA      2092
                          5055000002              SA5    A5+2                                                    GRA      2093
          1255  20373                             LX3    RA.INVP                                                 GRA      2094
                     12734                        BX7    X3+X4                                                   GRA      2095
                          5276000100 C            SA7    RAT+X6                                                  GRA      2096
                                                  LX6    CC.REG1P                                                GRA      2097
          1256  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
          1257  0745001245 +                      LT     B4,B5,DXA10 IF I < NXC                                  GRA      2101
                                                                                                                 GRA      2102
                          20120                   LX1    16                                                      GRA      2103
                               10611              BX6    X1                                                      GRA      2104
          1260  5160000015 C                      SA6    MRA         MRA = SHIFT(AXR,16)                         GRA      2105
                          0400001170 +            EQ     DXA                                                     GRA      2106
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1261  00000000000000377777     CRWA     CON    377777B     FAIL EXIT ADDRESS PROCESSOR                 GRA      2127
          1262                           ASPA     BFMW   D,(BM,ST)                                               GRA      2128
                                                                                                                 GRA      2129
          1263  0200401263 +             CRW      ROUTINE                                                        GRA      2130
          1264  5110000000 X                      SA1    L.SEQ                                                   GRA      2131
                          6221777767              SB2    X1-8                                                    GRA      2132
          1265  0602001263 +                      LE     B2,CRW      IF L.SEQ @ 8  */ EMPTY BLOCK                GRA      2133
                                                                                                                 GRA      2134
                          0100001342 +            RJ     SLW         SAVE LINK WORDS                             GRA      2135
          1266  5130000000 X                      SA3    O.RCT                                                   GRA      2136
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GRA      2137
          1267  63630                             SB6    X3                                                      GRA      2138
                                                                                                                 GRA      2139
                                        *         FIRST ADJUST THE PRED OF STORES THAT ARE LOCKED IN REGISTERS   GRA      2140
                                                                                                                 GRA      2141
                     5110001262 +                 SA1    ASPA                                                    GRA      2142
                               57471              SA4    "TB"-B1     DI = TB - 1                                 GRA      2143
          1270  6140000050                        SB4    CA.RAP-CA.LXP                                           GRA      2144
                          0400001272 +            EQ     ASP2                                                    GRA      2145
                                                                                                                 GRA      2146
          1271  26625                    ASP1     UX6    B2,X5                                                   GRA      2147
                     0420001301 +                 ZR     B2,CRW0     IF OC[R1] = OC.EOQ                          GRA      2148
                                                                                                                 GRA      2149
          1272  5044000004               ASP2     SA4    A4+4        DI = DI + 4                                 GRA      2150
                          11614                   BX6    X1*X4                                                   GRA      2151
                               20421              LX4    59-D.BMP                                                GRA      2152
          1273  0306001272 +                      ZR     X6,ASP2     IF ^( BM[DI] ! ST[DI] )                     GRA      2153
                                                                                                                 GRA      2154
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GRA      2155
          1274  0334001271 +                      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
          1275  0323001272 +                      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/05. 19.57.27.      PAGE    55
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
          1276  0326001277 +                      PL     X6,ASP3     IF ^LX[CI]    */ DEAD ON EXIT               GRA      2165
                          0323001272 +            PL     X3,ASP2     IF ^PSP[CI]   */ STORE CANT MOVE            GRA      2166
                                                                                                                 GRA      2167
          1277  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
          1300  0400001272 +                      EQ     ASP2                                                    GRA      2171
                                                                                                                 GRA      2172
                                        *         INITIALIZE FOR THE REG WIDTH CALCULATION                       GRA      2173
                                                                                                                 GRA      2174
          1301  5120000173 C             CRW0     SA2    NXC                                                     GRA      2175
                          63420                   SB4    X2          RW = NXC      */ REG WIDTH                  GRA      2176
                               53020              SA0    X2                                                      GRA      2177
          1302  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
          1303  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
          1304  5054000002               CRW1     SA5    A4+2        R1 = DI + 2                                 GRA      2187
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      2188
          1305  26525                             UX5    B2,X5                                                   GRA      2189
                                                  LX4    58-D.TYP                                                GRA      2190
                     36744                        IX7    X4+X4                                                   GRA      2191
                          0334001313 +            MI     X4,CRW3     IF TYPE[DI] = III ! IV                      GRA      2192
          1306  0337001311 +                      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
          1307  0334001323 +                      MI     X4,CRW7     IF ^D[DI]                                   GRA      2198
                          21520                   AX5    R1.RIL      RNUMS = RJRK[R1]                            GRA      2199
          1310  0400001323 +                      EQ     CRW7                                                    GRA      2200
                                                                                                                 GRA      2201
                                        *         TYPE II                                                        GRA      2202
                                                                                                                 GRA      2203
          1311  20422                    CRW2     LX4    1+D.TYP-D.^DP                                           GRA      2204
                     0523001330 +                 NE     B2,B3,CRW9  IF OC[R1] " OC.RS                           GRA      2205
          1312  0400001304 +                      EQ     CRW1                                                    GRA      2206
                                                                                                                 GRA      2207
                                        *         TYPE IV                                                        GRA      2208
                                                                                                                 GRA      2209
          1313  0327001320 +             CRW3     PL     X7,CRW4     IF TYPE[DI] = III                           GRA      2210
                          6040000000              SB4    A0+         RW = NXC                                    GRA      2211
          1314  0520001304 +                      NZ     B2,CRW1     IF OC[R1] " OC.EOQ                          GRA      2212
                                                                                                                 GRA      2213
                          0100001353 +            RJ     RLW         RESTORE LINK WORDS                          GRA      2214
          1315  5110000201 C                      SA1    MLW                                                     GRA      2215
                          76650                   SX6    B5                                                      GRA      2216
                               63310              SB3    X1                                                      GRA      2217
          1316  0635001263 +                      GE     B3,B5,CRW   MLW = MAX( MLW , MW )                       GRA      2218
                          5061000000              SA6    A1+                                                     GRA      2219
          1317  0400001263 +                      EQ     CRW                                                     GRA      2220
                                                                                                                 GRA      2221
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    56
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
                                        *         TYPE III                                                       GRA      2222
                                                                                                                 GRA      2223
          1320  20422                    CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                        GRA      2224
                     0334001321 +                 MI     X4,CRW5     IF ^D[DI]                                   GRA      2225
                               43500              MX5    0           RNUMS = 0                                   GRA      2226
          1321  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
          1322  0306001323 +                      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
          1323  15750                    CRW7     BX7    "RN"X5      R = RI[RNUMS]                               GRA      2237
                     21520                        AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                GRA      2238
                          0307001327 +            ZR     X7,CRW8     IF R = 0                                    GRA      2239
                                                                                                                 GRA      2240
          1324  53377                             SA3    "TB"+X7     LI = TB + R                                 GRA      2241
                     20352                        LX3    -I.USESP                                                GRA      2242
                          6223000000              SB2    X3+         U = USES[LI]                                GRA      2243
          1325  0420001327 +                      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
          1326  54630                             SA6    A3                                                      GRA      2247
                     0712001327 +                 GT     B2,B1,CRW8  IF U > 1      */ NOT LAST USE               GRA      2248
                               67441              SB4    B4-B1       RW = RW - 1                                 GRA      2249
          1327  0315001323 +             CRW8     NZ     X5,CRW7     IF RNUMS " 0                                GRA      2250
                                                                                                                 GRA      2251
                                        *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                     GRA      2252
                                                                                                                 GRA      2253
          1330  54341                    CRW9     SA3    A4+B1       LI = DI + 1                                 GRA      2254
                     0334001304 +                 MI     X4,CRW1     IF ^D[DI]     */ ^DEF A NEW RESULT          GRA      2255
                               53536              SA5    B6+X3                                                   GRA      2256
                                                  LX5    59-CA.RAP                                               GRA      2257
          1331  0335001304 +                      MI     X5,CRW1     IF RA[RCT(CO[LI])]  */ IN A LOCKED REG      GRA      2258
                                                                                                                 GRA      2259
                          20403                   LX4    D.^DP-D.PRSP                                            GRA      2260
          1332  0324001334 +                      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
          1333  0325001304 +                      PL     X5,CRW1     IF SORT[R1RS] " 2  */ NOT TO AN X-REGISTER  GRA      2265
                                                                                                                 GRA      2266
          1334  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
          1335  54630                             SA6    A3                                                      GRA      2271
                     0654001304 +                 LE     B4,B5,CRW1  IF RW @ MW                                  GRA      2272
                                                                                                                 GRA      2273
                               66540              SB5    B4          MW = RW       */ SET NEW MAX                GRA      2274
          1336  6120000011                        SB2    9                                                       GRA      2275
                          0752001304 +            LT     B5,B2,CRW1  IF MW < 9     */ HAVENT JAMMED THE REGS     GRA      2276
                                                                                                                 GRA      2277
          1337  0100001353 +                      RJ     RLW         RESTORE LINK WORDS                          GRA      2278
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    57
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
          1340  5110001261 +                      SA1    CRWA                                                    GRA      2279
                          76620                   SX6    B2                                                      GRA      2280
                               63310              SB3    X1                                                      GRA      2281
          1341  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
          1342  0200401342 +             SLW      ROUTINE                                                        GRA      2291
          1343  21102                             AX1    2                                                       GRA      2292
                     6221777775                   SB2    X1-2                                                    FCC2051     6
          1344  0420001342 +                      ZR     B2,SLW      IF L.SEQ = 8  */ EMPTY BLOCK                FCC2051     7
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                      GRA      2293
          1346  5150000000 X                      SA5    O.SEQ                                                   GRA      2294
                          6221777775              SB2    X1-2        I = L.SEQ/4 - 2                             GRA      2295
          1347  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
          1350  5044000004               SLW1     SA4    A4+4        SI = SI + 4                                 GRA      2300
                          67221                   SB2    B2-B1       I = I - 1                                   GRA      2301
                               10644              BX6    X4                                                      GRA      2302
          1351  54661                             SA6    A6+B1       RI = RI + 1;  [RI] = [SI]                   GRA      2303
                     0520001350 +                 NZ     B2,SLW1     IF I " 0                                    GRA      2304
                                                                                                                 GRA      2305
          1352  0400001342 +                      EQ     SLW                                                     GRA      2306
  
  
                                        **        RLW - RESTORE LINK WORDS                                       GRA      2308
                                        *                                                                        GRA      2309
                                        *         PRESERVES  B - 2, 3, 5, 6, 7                                   GRA      2310
                                                                                                                 GRA      2311
          1353  0200401353 +             RLW      ROUTINE                                                        GRA      2312
          1354  5110000000 X                      SA1    O.RND                                                   GRA      2313
                          5120000000 X            SA2    L.SEQ                                                   GRA      2314
          1355  6140000004                        SB4    4                                                       GRA      2315
                          53310                   SA3    X1          RI = [O.RND]                                GRA      2316
                               21202              AX2    2                                                       GRA      2317
          1356  7272777775                        SX7    X2-2        I = L.SEQ/4 - 2                             GRA      2318
                          0307001353 +            ZR     X7,RLW      IF I = 0                                    FCC2051     8
          1357  5150000000 X                      SA5    O.SEQ                                                   GRA      2319
                          10633                   BX6    X3                                                      GRA      2320
          1360  5265000007                        SA6    X5+7        SI = O.SEQ + 7;  [SI] = [RI]                GRA      2321
                          76210                   SX2    B1                                                      GRA      2322
                                                                                                                 GRA      2323
          1361  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
          1362  0317001361 +                      NZ     X7,RLW1     IF I " 0                                    GRA      2328
                                                                                                                 GRA      2329
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    58
        CRW - COMPUTE REGISTER WIDTH                                  RLW 
  
                          5170000000 X            SA7    L.RND       L.RND = 0                                   GRA      2330
          1363  0400001353 +                      EQ     RLW                                                     GRA      2331
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1364                           CMRA     BFMW   D,(BM,LD,ST)                                            GRA      2346
                                                                                                                 GRA      2347
          1365  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
          1366  0200401366 +             CMR      ROUTINE                                                        GRA      2353
          1367  5110000202 C                      SA1    N.LD                                                    GRA      2354
                          5120000203 C            SA2    N.ST                                                    GRA      2355
          1370  5130000000 X                      SA3    O.RCT                                                   GRA      2356
                          5245000002              SA4    X5+2        DI = O.SEQ + 2                              GRA      2357
          1371  66300                             SB3    B0          NMR = 0       */ MEM REFS IN BLOCK          GRA      2358
                     5150001364 +                 SA5    CMRA                                                    GRA      2359
                               63410              SB4    X1          SLD = N.LD    */ SUM OF *LD*"S              GRA      2360
          1372  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
          1373  0400001377 +                      EQ     CMR4                                                    GRA      2365
                                                                                                                 GRA      2366
                                        *         PROCESS BOUNDARY MARKER                                        GRA      2367
                                                                                                                 GRA      2368
          1374  67335                    CMR1     SB3    B3-B5       NMR = NMR - NST                             GRA      2369
                     0675001375 +                 LE     B5,B7,CMR2  N.ST = MAX( NST , N.ST )                    GRA      2370
                               66750              SB7    B5                                                      GRA      2371
          1375  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
          1376  0420001365 +                      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
          1377  5044000004               CMR4     SA4    A4+4        DI = DI + 4                                 GRA      2382
                          11704                   BX7    X0*X4                                                   GRA      2383
                               20421              LX4    59-D.BMP                                                GRA      2384
          1400  0307001377 +                      ZR     X7,CMR4     IF ^(BM,LD,ST)[DI]                          GRA      2385
                                                                                                                 GRA      2386
                          0334001374 +            MI     X4,CMR1     IF BM[DI]                                   GRA      2387
          1401  20406                             LX4    D.BMP-D.L2P                                             GRA      2388
                     0334001377 +                 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/05. 19.57.27.      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
          1402  20730                             LX7    59-D.LDP                                                GRA      2394
                     53236                        SA2    B6+X3       CI = RCT(I)                                 GRA      2395
                                                  LX2    59-CA.RAP                                               GRA      2396
                          0322001406 +            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
          1403  0337001377 +                      MI     X7,CMR4     IF LD[DI]                                   GRA      2401
                          20250                   LX2    CA.RAP-CA.LXP                                           GRA      2402
          1404  0322001377 +                      PL     X2,CMR4     IF ^LX[CI]    */ DEAD ON EXIT               GRA      2403
                          20271                   LX2    CA.LXP-CA.PSPP                                          GRA      2404
          1405  0332001377 +                      MI     X2,CMR4     IF PSP[DI]    */ POST STORE POSSIBLE        GRA      2405
                                                                                                                 GRA      2406
          1406  66331                    CMR6     SB3    B3+B1       NMR = NMR + 1                               GRA      2407
                     0337001377 +                 MI     X7,CMR4     IF LD[DI]                                   GRA      2408
                               66551              SB5    B5+B1       NST = NST + 1                               GRA      2409
          1407  0400001377 +                      EQ     CMR4                                                    GRA      2410
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1410                           DAAA     BFMW   D,(LD,BM)                                               GRA      2423
          1411                                    BFMW   CA,(RA,CON)                                             GRA      2424
          1412                           DAAB     BFMW   CA,(RA,VC)                                              GRA      2425
                                                                                                                 GRA      2426
          1413  0200401413 +             DAA      ROUTINE                                                        GRA      2427
          1414  5110000201 C                      SA1    MLW                                                     GRA      2428
                          5120000035 C            SA2    N.EBB                                                   GRA      2429
          1415  7261777767                        SX6    X1-8                                                    FCC0603    23
                          0336001421 +            MI     X6,DAA0     IF MLW < 8                                  FCC0603    24
          1416  0316001413 +                      NZ     X6,DAA      IF MLW > 8                                  FCC0603    25
                          63220                   SB2    X2                                                      FCC0603    26
          1417  0712001413 +                      GT     B2,B1,DAA   IF N.EBB > 1                                FCC0603    27
                          5130000000 X            SA3    L.SEQ                                                   FCC0603    28
          1420  7263777537                        SX6    X3-240B                                                 FCC0603    29
                          0326001413 +            PL     X6,DAA      IF L.SEQ > 240B  */ MAGIC NUMBER            FCC0603    30
          1421  7272777774               DAA0     SX7    X2-3                                                    FCC1127     4
                          0327001413 +            PL     X7,DAA      IF N.EBB > 2  */ > 1 EBB + 1 LATCH NODE     GRA      2435
                                                                                                                 GRA      2436
          1422  5130000202 C                      SA3    N.LD                                                    GRA      2437
                          5140000203 C            SA4    N.ST                                                    GRA      2438
          1423  5150000027 C                      SA5    N.LJ                                                    GRA      2439
                          7263777767              SX6    X3-8                                                    GRA      2440
          1424  7274777774                        SX7    X4-3                                                    GRA      2441
                          0326001413 +            PL     X6,DAA      IF N.LD > 7                                 GRA      2442
          1425  0327001413 +                      PL     X7,DAA      IF N.ST > 2                                 GRA      2443
                          76610                   SX6    B1                                                      GRA      2444
                               37556              IX5    X5-X6                                                   GRA      2445
          1426  0315001413 +                      NZ     X5,DAA      IF N.LJ " 1   */ ONLY *LBJ* IS A *JPX*      GRA      2446
                          7271777775              SX7    X1-2                                                    FCC1127     5
          1427  0327001431 +                      PL     X7,DAA0A    IF MLW \ 2                                  FCC1127     6
                          37634                   IX6    X3-X4                                                   FCC1127     7
          1430  0306001413 +                      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
          1431  5110000015 C             DAA0A    SA1    MRA                                                     FCC1127     9
                          7120000076              SX2    76B                                                     GRA      2451
          1432  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
          1433  20501                             LX5    1                                                       GRA      2456
                     37753                        IX7    X5-X3       MAA = 2*NLR - N.LD  */ MAX A-ASSGNMNTS      GRA      2457
                                                                                                                 GRA      2458
                          5110000017 +            SA1    MARA                                                    FCC0603    32
          1434  37217                             IX2    X1-X7                                                   FCC0603    33
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1435  36712                             IX7    X1+X2       MAA = MIN( MARA , MAA )                     FCC0603    37
                     63270                        SB2    X7                                                      FCC0603    38
                          0602001413 +            LE     B2,DAA      IF MAA @ 0                                  FCC0603    39
          1436  0326001440 +                      PL     X6,DAA1     IF NLR \ N.LD                               GRA      2464
                          10677                   BX6    X7                                                      GRA      2465
                               21602              AX6    2                                                       GRA      2466
          1437  0306001440 +                      ZR     X6,DAA1     MAA = MIN( 3 , MAA )                        GRA      2467
                          7170000003              SX7    3                                                       GRA      2468
          1440  5170000204 C             DAA1     SA7    MAA                                                     GRA      2469
                          7160000002              SX6    2                                                       GRA      2470
          1441  5160000000 X                      SA6    BSI         BSI = 2                                     GRA      2471
                          0100000000 X            CALL   RTB#        GET POINTERS TO HEADER NODE                 CCGNC     651
                                                                                                                 CCG25       6
          1442  0100001560 +                      CALL   AAV         ASSIGN ARRAY VARIABLES TO A/X REGISTERS     CCG25       7
          1443  5150000204 C                      SA5    MAA                                                     CCG41       2
                          63550                   SB5    X5                                                      CCG41       3
          1444  0605001413 +                      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
          1445  5130000000 X                      SA3    O.RCT                                                   GRA      2478
                          5150000000 X            SA5    O.SEQ                                                   GRA      2479
          1446  5110001410 +                      SA1    DAAA                                                    GRA      2480
                          54411                   SA4    A1+B1                                                   GRA      2481
                               66500              SB5    B0          J = 0         */ ACT STORE INDEX            GRA      2482
          1447  63630                             SB6    X3                                                      GRA      2483
                     10044                        BX0    X4                                                      GRA      2484
                          63720                   SB7    X2                                                      GRA      2485
          1450  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
          1451  5044000004               DAA2     SA4    A4+4        DI = DI + 4                                 GRA      2489
                          11614                   BX6    X1*X4                                                   GRA      2490
                               20421              LX4    59-D.BMP                                                GRA      2491
          1452  0306001451 +                      ZR     X6,DAA2     IF ^( LD[DI] ! BM[DI] )                     GRA      2492
                                                                                                                 GRA      2493
                          0334001473 +            MI     X4,DAA4     IF BM[DI]                                   GRA      2494
          1453  20406                             LX4    D.BMP-D.L2P                                             GRA      2495
                     0334001451 +                 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
          1454  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
                          0332001451 +            MI     X2,DAA2     IF DEFR[UI]   */ STORE INTO SAME CLASS      GRA      2502
          1455  20303                             LX3    59-CA.ACP                                               GRA      2503
                     0323001451 +                 PL     X3,DAA2     IF ^AC[CI]    */ NOT AN ADDRESS CANIDATE    GRA      2504
                               20327              LX3    CA.ACP-CA.NOCCP                                         FCC0448   103
          1456  43664                             MX6    -CA.NOCCL+1                                             FCC0448   104
                     15336                        BX3    -X6*X3                                                  FCC0448   105
                          0313001451 +            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/05. 19.57.27.      PAGE    63
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                                                                                                                 FCC0448   107
          1457  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
          1460  56362                             SA3    B6+B2       CCW = RCT(R+2)                              GRA      2511
                                                  LX3    59-CC.I1P                                               GRA      2512
                     0323001451 +                 PL     X3,DAA2     IF ^I1[CCW]   */ NOT *RD*                   GRA      2513
                               20301              LX3    CC.I1P-CC.I2P                                           GRA      2514
          1461  0333001451 +                      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
          1462  11602                             BX6    X0*X2                                                   GRA      2518
                     0306001451 +                 ZR     X6,DAA2     IF ^( RA[CJ] ! CON[CJ] )                    GRA      2519
                                                                                                                 GRA      2520
                               20344              LX3    CC.INCP                                                 GRA      2521
          1463  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
          1464  20530                             LX5    -IH.RFP                                                 GRA      2526
                     53554                        SA5    B4+X5       DIP = TXT(RF[R2]+2)                         FCC1127    12
                          20530                   LX5    59-D.LDP                                                FCC1127    13
          1465  0335001471 +                      MI     X5,DAA3     IF LD[DIP]    */ ^ INC FIRST                FCC1127    14
                          20204                   LX2    59-CA.CONP                                              FCC1127    15
          1466  0322001451 +                      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
          1467  43752                             MX7    -IH.CAL                                                 FCC1127    22
                     21373                        AX3    59                                                      FCC1127    23
                          20722                   LX7    IH.CAP                                                  FCC1127    24
                               13335              BX3    X3-X5                                                   FCC1127    25
          1470  15537                             BX5    -X7*X3                                                  FCC1127    26
                     12656                        BX6    X5+X6       BIAS = CA[C2J] * IM[CCW]                    FCC1127    27
                                                                                                                 GRA      2537
          1471  5165000206 C             DAA3     SA6    ACT+B5      ACT(J) = ACW(INCI[CCW],BIAS,I)              GRA      2538
                          66551                   SB5    B5+B1       J = J + 1                                   GRA      2539
          1472  7175777770                        SX7    B5-7                                                    GRA      2540
                          0337001451 +            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
          1473  0450001413 +             DAA4     ZR     B5,DAA      IF J = 0      */ NO CANIDATES               GRA      2546
                          5150000000 X            SA5    =XO.SYM                                                 CCG1       96
          1474  5140000204 C                      SA4    MAA                                                     GRA      2548
                          5205000001              SA0    X5+1                                                    CCG1       97
          1475  66400                             SB4    B0          FI = 0                                      GRA      2550
                     43700                        MX7    0                                                       GRA      2551
                          5175000206 C            SA7    ACT+B5      ACT(J) = 0                                  GRA      2552
          1476  63740                             SB7    X4                                                      GRA      2553
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1477  5110000000 X             DAA5     SA1    =XHO$UO                                                 CCGNC     652
                          5154000206 C            SA5    ACT+B4                                                  GRA      2563
          1500  0305001517 +                      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
          1501  0311001513 +                      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
          1502  0324001516 +                      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
          1503  7274777774                        SX7    X4-3                                                    GRA      2574
                          0337001513 +            MI     X7,DAA7     IF C @ 2                                    GRA      2575
          1504  7264777676                        SX6    X4-MAX.INC                                              GRA      2576
                          0326001516 +            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
          1505  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
          1506  54302                             SA3    A0+B2       WORDB = SYM(3*IH+1)                         CCG1      103
                     20353                        LX3    59-WB.FPP                                               CCG1      104
                          0333001516 +            MI     X3,DAA8     IF FP[WORDB]  */ LOCATION UNKNOWN           CCG1      105
          1507  20301                             LX3    WB.FPP-WB.COMP                                          CCG1      106
                     0323001513 +                 PL     X3,DAA7     IF ^COM[WORDB]  */ NOT IN COMMON            CCG1      107
                               54331              SA3    A3+B1       WORDC = WORDB + 1                           CCG16     215
          1510  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
          1511  5110000000 X                      SA1    =XBLNKCOM                                               FCC2135     2
                          13661                   BX6    X6-X1                                                   FCC2135     3
          1512  0306001516 +                      ZR     X6,DAA8     IF RBN = 0    */ IN // COMMON               CCG1      111
                                                                                                                 GRA      2600
                                        *         ADD NAME TO FINAL CANIDATE LIST                                GRA      2601
                                                                                                                 GRA      2602
          1513  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
          1514  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
          1515  0457001517 +                      EQ     B5,B7,DAA9  IF SI = MAA                                 GRA      2610
                                                                                                                 GRA      2611
          1516  66441                    DAA8     SB4    B4+B1       FI = FI + 1                                 GRA      2612
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    65
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                     0400001477 +                 EQ     DAA5                                                    GRA      2613
                                                                                                                 GRA      2614
          1517  0450001413 +             DAA9     ZR     B5,DAA      IF SI = 0                                   GRA      2615
                                                                                                                 GRA      2616
                          5110000015 C            SA1    MRA                                                     GRA      2617
          1520  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
          1521  5124000206 C             DAA10    SA2    ACT+B4      I = CO[ACT(J)]                              GRA      2624
                          5140001412 +            SA4    DAAB                                                    GRA      2625
          1522  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
          1523  20252                             LX2    -IH.CAP                                                 GRA      2630
                     63220                        SB2    X2                                                      GRA      2631
                          20452                   LX4    -IH.CAP                                                 GRA      2632
                               73542              SX5    B2+X4                                                   GRA      2633
          1524  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
          1525  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
          1526  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
          1527  15767                             BX7    -X7*X6                                                  GRA      2646
                     20630                        LX6    CA.SUSEP                                                GRA      2647
                          54650                   SA6    A5                                                      GRA      2648
          1530  7277777776                        SX7    X7-1                                                    GRA      2649
                          0317001543 +            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
          1531  73760                             SX7    X6                                                      GRA      2655
                     20650                        LX6    59-CA.LXP                                               FCC0414     6
                          0336001543 +            MI     X6,DAA11    IF LX[CJ]     */ LIVE ON EXIT FROM THE LOOP FCC0414     7
          1532  0317001536 +                      NZ     X7,DAA10A   IF UDI[CJ] " 0  */ PROGRAMMER VARIABLE      FCC0414     8
                          20630                   LX6    CA.LXP-CA.CONP                                          FCC0414     9
          1533  0336001536 +                      MI     X6,DAA10A   IF CON[CJ]                                  GRA      2658
                                                                                                                 GRA      2659
                          54451                   SA4    A5+B1                                                   GRA      2660
                               43752              MX7    -T.REGL                                                 GRA      2661
          1534  20452                             LX4    -IH.CAP                                                 GRA      2662
                     63240                        SB2    X4          C = CA[RCT(R+1)]                            GRA      2663
                          5140000000 X            SA4    O.TET                                                   GRA      2664
          1535  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/05. 19.57.27.      PAGE    66
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                               54640              SA6    A4                                                      GRA      2668
                                                                                                                 GRA      2669
          1536  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
          1537  15447                             BX4    -X7*X4      REG = REG1[CCW]                             GRA      2674
                     63240                        SB2    X4                                                      GRA      2675
                          5264000100 C            SA6    RAT+X4      RAT(REG) = 0                                GRA      2676
          1540  22720                             LX7    B2,X0                                                   GRA      2677
                     12171                        BX1    X7+X1       MRA = MRA ! SHIFT(1,REG)                    GRA      2678
                          5140000170 C            SA4    NAB                                                     GRA      2679
          1541  73741                             SX7    X4+B1       NAB = NAB + 1                               GRA      2680
                     54740                        SA7    A4                                                      GRA      2681
                          5140000227 +            SA4    SEEA                                                    GRA      2682
          1542  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
          1543  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
          1544  0306001543 +                      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
          1545  15117                             BX1    -X7*X1      MRA = MRA & ^BIT                            GRA      2695
                     73620                        SX6    X2                                                      GRA      2696
                          5163000100 C            SA6    RAT+B3      RAT(REGNO) = I                              GRA      2697
          1546  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
          1547  12734                             BX7    X3+X4       REG1[CCW] = REGN                            GRA      2703
                     54740                        SA7    A4                                                      GRA      2704
                          66441                   SB4    B4+B1       J = J + 1                                   GRA      2705
          1550  0745001521 +                      LT     B4,B5,DAA10 IF J < SI                                   GRA      2706
                                                                                                                 GRA      2707
                          76650                   SX6    B5                                                      GRA      2708
                               10711              BX7    X1                                                      GRA      2709
          1551  5160000205 C                      SA6    NAA         NAA = SI                                    GRA      2710
                          5170000015 C            SA7    MRA                                                     GRA      2711
          1552  0400001413 +                      EQ     DAA                                                     GRA      2712
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1553                           AAVA     BFMW   CA,(AC,NO=2,DEF,USE)                                    CCG25      18
                                                                                                                 CCG25      19
          1554                     4     AXCT     BSSZ   4           A/X CANIDATE TABLE   24/0,18/RCT-ORD,18/REG CCG25      20
                                                                                                                 CCG25      21
          1560  0200401560 +             AAV      ROUTINE                                                        CCG25      22
          1561  5110000000 X                      SA1    HO$OPT                                                  CCG0093     5
                          0321001560 +            PL     X1,AAV      IF OPT NE 2                                 CCG0093     6
          1562  5110000032 C                      SA1    N.ENL                                                   CCG25      23
                          66500                   SB5    B0          J = 0                                       CCG25      24
                               21101              AX1    1                                                       CCG25      25
          1563  0311001604 +                      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
          1564  5150000164 C                      SA5    LCT                                                     CCG25      31
                          5110001553 +            SA1    AAVA                                                    CCG25      32
          1565  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
          1566  5055777774               AAV2     SA5    A5-3        CI = CI - 3                                 CCG25      38
                          0305001604 +            ZR     X5,AAV5     IF [CI] = 0   */ END OF TABLE               CCG25      39
          1567  16650                             BX6    -X0+X5                                                  CCG25      40
                     0316001566 +                 NZ     X6,AAV2     IF ^( NOCC = 2 & AC & DEF & USE )           CCG25      41
                                                  LX5    59-CA.RAP                                               CCG25      42
          1570  0335001566 +                      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
          1571  73340                             SX3    X4                                                      CCG25      46
                     0303001566 +                 ZR     X3,AAV2     IF RF[C2W] = 0                              CCG25      47
                               53336              SA3    B6+X3       CIF = RCT(RF)                               CCG25      48
          1572  20346                             LX3    59-CA.DEFP                                              CCG25      49
                     0333001566 +                 MI     X3,AAV2     IF DEF[CIF]   */ SUBSCRIPT NOT INVARIANT    CCG25      50
                               20522              LX5    1+CA.RAP-CA.APLNP                                       CCG0119     7
          1573  43772                             MX7    -CA.APLNL                                               CCG0119     8
                     15757                        BX7    -X7*X5                                                  CCG0119     9
                          0317001575 +            NZ     X7,AAV2A    IF REFED ON AP/LN NODES                     CCG0119    10
          1574  5120000000 X                      SA2    HO$UO                                                   CCG0119    11
                          0302001566 +            ZR     X2,AAV2     IF NOT UNSAFE OPT ALLOWED                   CCG0119    12
          1575                           AAV2A    BSS    0                                                       CCG0119    13
                                                                                                                 CCG25      51
                                        *         CHECK FOR INTERFERING REFS                                     CCG25      52
                                                                                                                 CCG25      53
          1575  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/05. 19.57.27.      PAGE    68
        AAV - ASSIGN ARRAY VARIABLES TO REGISTERS                     AAV 
  
                               43752              MX7    -IH.IHL                                                 CCG25      57
          1576  5022777774               AAV3     SA2    A2-3        C2K = C2K - 3                               CCG25      58
                          0302001602 +            ZR     X2,AAV4     IF [C2K] = 0  */ END OF TABLE               CCG25      59
          1577  13624                             BX6    X2-X4                                                   CCG25      60
                     15367                        BX3    -X7*X6                                                  CCG25      61
                          0313001576 +            NZ     X3,AAV3     IF IH[C2I] " IH[C2K]                        CCG25      62
          1600  65223                             SB2    A2-B3                                                   CCG25      63
                     0420001576 +                 ZR     B2,AAV3     IF C2K = C2I  */ SAME ENTRY                 CCG25      64
          1601  0400001566 +                      EQ     AAV2        INTERFERENCE                                CCG25      65
                                                                                                                 CCG25      66
          1602  75656                    AAV4     SX6    A5-B6       I = CI - RCT                                CCG25      67
                     5165001554 +                 SA6    AXCT+B5     AXCT(J) = I   */ SAVE ORDINAL               CCG25      68
                               66551              SB5    B5+B1       J = J + 1                                   CCG25      69
          1603  7175777774                        SX7    B5-3                                                    CCG25      70
                          0337001566 +            MI     X7,AAV2     IF J < 3                                    CCG25      71
                                                                                                                 CCG25      72
          1604  5110000204 C             AAV5     SA1    MAA                                                     CCG25      73
                          43600                   MX6    0                                                       CCG25      74
                               76750              SX7    B5                                                      CCG25      75
          1605  5165001554 +                      SA6    AXCT+B5     AXCT(J) = 0                                 CCG25      76
                          5120000015 C            SA2    MRA                                                     CCG0018     5
          1606  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
          1607  37537                             IX5    X3-X7                                                   CCG0018    10
                     37215                        IX2    X1-X5                                                   CCG41       7
                          21273                   AX2    59                                                      CCG41       8
                               11121              BX1    X2*X1                                                   CCG41       9
          1610  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
          1611  63320                             SB3    X2                                                      CCG0057     8
                     67335                        SB3    B3-B5                                                   CCG0057     9
                          63460                   SB4    X6                                                      CCG0057    10
          1612  0643001613 +                      LE     B3,B4,AAV5A IF N.LD - #X/A LE MAA                       CCG0057    11
                          7266777776              SX6    X6-1        MAA = MAA - 1                               CCG0057    12
                                                                                                                 CCG0057    13
          1613  54610                    AAV5A    SA6    A1                                                      CCG0057    14
                     0450001560 +                 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
          1614  5110000015 C                      SA1    MRA                                                     CCG25      83
                          6130000020              SB3    20B         REGN = 20B                                  CCG25      84
          1615  66400                             SB4    B0          K = 0                                       CCG25      85
                                                                                                                 CCG25      86
          1616  5150001412 +             AAV6     SA5    DAAB                                                    CCG25      87
                          5124001554 +            SA2    AXCT+B4     I = AXCT(K)                                 CCG25      88
          1617  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
          1620  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/05. 19.57.27.      PAGE    69
        AAV - ASSIGN ARRAY VARIABLES TO REGISTERS                     AAV 
  
          1621  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
          1622  20644                             LX6    -CA.SUSEP                                               CCG25     101
                     15760                        BX7    -X0*X6                                                  CCG25     102
                          76010                   SX0    B1                                                      CCG25     103
          1623  0317001636 +                      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
          1624  11746                             BX7    X4*X6                                                   CCG0117     6
                     0307001636 +                 ZR     X7,AAV9     IF NOT RF[CF]   */ NOT IN A REG             CCG0117     7
                               15664              BX6    -X4*X6      RA[CF] = 0                                  CCG25     111
          1625  54660                             SA6    A6                                                      CCG25     112
                     73760                        SX7    X6                                                      CCG25     113
                          0317001632 +            NZ     X7,AAV8     IF UDI[CF] " 0  */ PROGRAMMER VARIABLE      CCG25     114
          1626  20604                             LX6    59-CA.CONP                                              CCG25     115
                     0336001632 +                 MI     X6,AAV8     IF CON[CF]                                  CCG25     116
                                                                                                                 CCG25     117
                               54451              SA4    A5+B1                                                   CCG25     118
          1627  43752                             MX7    -T.REGL                                                 CCG25     119
                     20452                        LX4    -IH.CAP                                                 CCG25     120
                          63240                   SB2    X4          C = CA[RCT(R+1)]                            CCG25     121
          1630  5140000000 X                      SA4    O.TET                                                   CCG25     122
                          20722                   LX7    T.REGP                                                  CCG25     123
                               53442              SA4    X4+B2                                                   CCG25     124
          1631  11674                             BX6    X7*X4       REG[TET(C)] = 0                             CCG25     125
                     54640                        SA6    A4                                                      CCG25     126
                                                                                                                 CCG25     127
          1632  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
          1633  15447                             BX4    -X7*X4      REG = REG[CCW]                              CCG25     132
                     63240                        SB2    X4                                                      CCG25     133
                          5264000100 C            SA6    RAT+X4      RAT(REG) = 0                                CCG25     134
          1634  22720                             LX7    B2,X0                                                   CCG25     135
                     12117                        BX1    X1+X7       MRA = MRA ! SHIFT(1,REG)                    CCG25     136
                          5140000170 C            SA4    NAB                                                     CCG25     137
          1635  73741                             SX7    X4+B1       NAB = NAB + 1                               CCG25     138
                     54740                        SA7    A4                                                      CCG25     139
                                                                                                                 CCG25     140
          1636  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
          1637  0306001636 +                      ZR     X6,AAV9     IF MRA & BIT = 0  */ REG NOT AVAIL          CCG25     144
                                                                                                                 CCG25     145
                          5043000002              SA4    A3+2        CCW = RCT(I+2)                              CCG25     146
          1640  15117                             BX1    -X7*X1      MRA = MRA & ^BIT                            CCG25     147
                     73720                        SX7    X2                                                      CCG25     148
                          5173000100 C            SA7    RAT+B3      RAT(REGN) = I                               CCG25     149
          1641  76530                             SX5    B3                                                      CCG25     150
                     20222                        LX2    18                                                      CCG25     151
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1642  12645                             BX6    X4+X5       REG1[CCW] = REGN                            CCG25     155
                     54640                        SA6    A4                                                      CCG25     156
                          66441                   SB4    B4+B1       K = K + 1                                   CCG25     157
          1643  0745001616 +                      LT     B4,B5,AAV6  IF K < NAXA                                 CCG25     158
                                                                                                                 CCG25     159
                          10611                   BX6    X1                                                      CCG25     160
                               54610              SA6    A1          UPDATE MRA                                  CCG25     161
          1644  0400001560 +                      EQ     AAV                                                     CCG25     162
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          1645  0200401645 +             MFA      ROUTINE                                                        GRA      2739
          1646  5110000015 C                      SA1    MRA                                                     GRA      2740
                          5150000000 X            SA5    L.RCT                                                   GRA      2741
          1647  7120000376                        SX2    376B                                                    GRA      2742
                          11321                   BX3    X2*X1                                                   GRA      2743
                               73431              SX4    X3+B1                                                   GRA      2744
          1650  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
          1652  5140000000 X                      SA4    O.RCT                                                   GRA      2748
                          43700                   MX7    0                                                       GRA      2749
                               63721              SB7    X2+B1       BO = O.RND + 1                              GRA      2750
          1653  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
          1654  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
          1655  56660                             SA6    B6          [CO] = -0     */ INDICATE RF=0 IS IN A REG  GRA      2759
                     0400001661 +                 EQ     MFA2                                                    GRA      2760
                                                                                                                 GRA      2761
                                        *         ADD ENTRY TO *CON* LIST                                        GRA      2762
                                                                                                                 GRA      2763
          1656  54351                    MFA1     SA3    A5+B1                                                   GRA      2764
                     54431                        SA4    A3+B1                                                   GRA      2765
                                                  LX3    59-IH.MSKP                                              GRA      2766
                          0333001661 +            MI     X3,MFA2     IF MSK[CI+1]                                GRA      2767
          1657  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/05. 19.57.27.      PAGE    72
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1660  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
          1661  5055777774               MFA2     SA5    A5-3        CI = CI - 3                                 GRA      2778
                          0305001701 +            ZR     X5,MFA3     IF [CI] = 0   */ END OF TABLE               GRA      2779
          1662  10655                             BX6    X5                                                      GRA      2780
                     20604                        LX6    59-CA.CONP                                              GRA      2781
                          0336001656 +            MI     X6,MFA1     IF CON[CI]                                  GRA      2782
          1663  20670                             LX6    CA.CONP-CA.RAP                                          GRA      2783
                     0336001661 +                 MI     X6,MFA2     IF RA[CI]                                   GRA      2784
                               20603              LX6    CA.RAP-CA.ACP                                           GRA      2785
          1664  0326001661 +                      PL     X6,MFA2     IF ^AC[CI]                                  FCC1531X    5
                                                                                                                 FCC1531X    6
                          5045000002              SA4    A5+2        CCW = [RCT+2]                               FCC1828X    6
          1665  20452                             LX4    -CC.H2P                                                 FCC1828X    7
                     73340                        SX3    X4                                                      FCC1828X    8
                          0313001661 +            NZ     X3,MFA2     IF H2[CCW] " 0  */ OMIT SYM DIFFERENCES     FCC1828X    9
          1666  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
          1667  73440                             SX4    X4          R = RF[CI]                                  GRA      2803
                     20555                        LX5    BC.NOCCP-CA.NOCCP                                       GRA      2804
                          0304001673 +            ZR     X4,MFA2B    IF R = 0                                    FCC1014    83
                                                                                                                 FCC1014    84
          1670  5110001412 +                      SA1    DAAB                                                    FCC1014    85
                          53246                   SA2    B6+X4       CJ = RCT(R)                                 FCC1014    86
                               16621              BX6    -X1+X2                                                  FCC1014    87
          1671  0316001673 +                      NZ     X6,MFA2B    IF ^( VC[CJ] & RA[CJ] )                     FCC1014    88
                          5022000002              SA2    A2+2        CCW = RCT(R+2)                              FCC1014    89
          1672  20267                             LX2    59-CC.REG1P-4                                           FCC1014    90
                     0322001676 +                 PL     X2,MFA2C    IF REG1[CCW] < 20B  */ IN A B-REGISTER      FCC1014    91
                                                                                                                 FCC1014    92
          1673  0303001661 +             MFA2B    ZR     X3,MFA2     IF IH[C2W] = 0                              FCC1014    93
                          43400                   MX4    0           R = 0                                       FCC1014    94
                               54250              SA2    A5                                                      FCC1014    95
          1674  5110002055 +                      SA1    MFAD                                                    FCC1014    96
                          11612                   BX6    X1*X2                                                   FCC1014    97
          1675  0316001676 +                      NZ     X6,MFA2C    IF FP[CI] ! NOCC[CI] \ 2                    FCC1014    98
                                                  LX2    59-CA.RAP                                               FCC1014    99
                          0322001661 +            PL     X2,MFA2     IF ^RA[CI]                                  FCC1014   100
                                                                                                                 FCC1014   101
          1676  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
          1677  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
          1700  0400001661 +                      EQ     MFA2                                                    GRA      2815
                                                                                                                 GRA      2816
          1701  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/05. 19.57.27.      PAGE    73
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1702  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
          1703  5160000217 C                      SA6    NAC         NAC = LEN     */ NUMBER OF ADDRESS CANIDATE GRA      2824
                          0301002101 +            ZR     X1,MFA48    IF LEN = 0                                  GRA      2825
                                                                                                                 GRA      2826
          1704  0100000000 X                      CALL   SHL#        SORT( BCT )                                 CCGNC     654
                                                                                                                 GRA      2828
                                        *         NOW FORM THE RF CLASS INDEX TABLE AND SORT IT                  GRA      2829
                                                                                                                 GRA      2830
          1705  5120000000 X                      SA2    O.TET                                                   GRA      2831
                          43774                   MX7    60                                                      GRA      2832
                               56730              SA7    B3          AI = BI;  [AI] = -0  */ SEARCH TERMINATOR   GRA      2833
          1706  43017                             MX0    -BC.RFP                                                 GRA      2834
                     66331                        SB3    B3+B1       AF = AI + 1   */ BASE                       GRA      2835
                          53020                   SA0    X2                                                      GRA      2836
          1707  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
          1710  20133                             LX1    BC.IHP                                                  GRA      2840
                     56570                        SA5    B7          BI = BO                                     GRA      2841
                          0400001721 +            EQ     MFA6                                                    GRA      2842
                                                                                                                 GRA      2843
                                        *         END OF RF CLASS, SETUP INDEX WORD IN *AIT*                     GRA      2844
                                                                                                                 GRA      2845
          1711  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
          1712  0420001715 +                      ZR     B2,MFA5     IF RF[BL] = 0                               FCC2092     3
                          76710                   SX7    B1          BASE = 1                                    GRA      2848
                               63240              SB2    X4                                                      GRA      2849
          1713  0520001715 +                      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
          1714  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
          1715  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
          1716  76440                             SX4    B4                                                      GRA      2864
                     20771                        LX7    AI.BASEP                                                GRA      2865
                          12672                   BX6    X7+X2                                                   GRA      2866
                               20447              LX4    AI.NIHP                                                 GRA      2867
          1717  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
          1720  6140377776                        SB4    377776B     NIH = -1                                    GRA      2871
                          0305001725 +            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/05. 19.57.27.      PAGE    74
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1721  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
          1722  0317001711 +                      NZ     X7,MFA4     IF RF[BI] " RF[BL]                          GRA      2878
                                                                                                                 GRA      2879
                          15661                   BX6    -X1*X6                                                  GRA      2880
          1723  0306001721 +                      ZR     X6,MFA6     IF IH[BI] = IH[BL]                          GRA      2881
                          6144777776              SB4    B4-1        NIH = NIH - 1                               GRA      2882
          1724  0315001721 +                      NZ     X5,MFA6     IF [BI] " 0                                 GRA      2883
                                                                                                                 GRA      2884
                          0400001715 +            EQ     MFA5                                                    GRA      2885
                                                                                                                 GRA      2886
                                        *         SORT THE CLASS INDEX TABLE                                     GRA      2887
                                                                                                                 GRA      2888
          1725  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
          1726  54750                             SA7    A5          [BI] = 0                                    GRA      2893
                     5160000220 C                 SA6    ATI                                                     GRA      2894
          1727  5160000000 X                      SA6    L.RND                                                   GRA      2895
                          77123                   SX1    B2-B3       LEN = AI+1 - AF                             GRA      2896
                               66730              SB7    B3                                                      GRA      2897
          1730  0100000000 X                      CALL   SHL#        SORT( AIT )                                 CCGNC     655
                                                                                                                 GRA      2899
          4502  00000000000000000000 X            PRINT  MFA,(* NAC,ATI =*2Z5),(NAC,ATI)                         GRA      2900
          1734  0100000000 X                      TRACE  MFA,RND                                                 GRA      2901
                                                                                                                 GRA      2902
                                        *         GET SPACE FOR NEW ENTRIES ( CON"S, DIFFERENCES )               GRA      2903
                                                                                                                 GRA      2904
          1735  5150000217 C                      SA5    NAC                                                     GRA      2905
                          22415                   LX4    B1,X5                                                   GRA      2906
                               36145              IX1    X4+X5                                                   GRA      2907
          1736  5100000000 X                      ALLOC  RCT,X1      ALLOC( RCT , 3*NAC )                        GRA      2908
          1737  5140000000 X                      SA4    O.RND                                                   GRA      2909
                          76660                   SX6    B6                                                      GRA      2910
                               63740              SB7    X4                                                      GRA      2911
          1740  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
          1741  5110000220 C             MFA10    SA1    ATI                                                     GRA      2918
                          7271777776              SX7    X1-1        ATI = ATI - 1                               GRA      2919
          1742  53277                             SA2    B7+X7       AI = RND(ATI)                               GRA      2920
                     54710                        SA7    A1                                                      GRA      2921
                          0302002101 +            ZR     X2,MFA48    IF AI = 0     */ END OF TABLE               GRA      2922
                                                                                                                 GRA      2923
                                                  LX2    -AI.INDXP                                               GRA      2924
          1743  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
          1744  6222400000                        SB2    X2+400000B                                              GRA      2929
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    75
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          20251                   LX2    AI.NIHP+59-AI.BASEP                                     GRA      2930
                               10655              BX6    X5                                                      GRA      2931
          1745  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
          1746  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
          1747  0307002056 +                      ZR     X7,MFA40    IF REGNO = 0                                GRA      2940
                                                                                                                 GRA      2941
                          5043777775              SA4    A3-2        CAW = RCT(R)                                GRA      2942
          1750  5110001012 +                      SA1    MTAB                                                    GRA      2943
                          11614                   BX6    X1*X4                                                   GRA      2944
                               20414              LX4    59-CA.TUP                                               GRA      2945
          1751  0316002056 +                      NZ     X6,MFA40    IF (IRA,EU,LX)[CAW]  */ CANT BIAS           GRA      2946
                          0324001754 +            PL     X4,MFA10A   IF ^TU[CAW]   */ NOT LOOP *CV* OR LIMIT     GRA      2947
          1752  5110000172 C                      SA1    TRD                                                     GRA      2948
                          7241777775              SX4    X1-2                                                    GRA      2949
          1753  0304002056 +                      ZR     X4,MFA40    IF TRD = 2    */ I,N IN REGS                GRA      2950
                                                                                                                 GRA      2951
          1754  0715002015 +             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
                          0322001757 +            PL     X2,MFA12    IF ^BASE[AI]                                GRA      2956
                                                                                                                 GRA      2957
                                        *         ASSIGN BASE MEMBER ADDRESS TO B-REG                            GRA      2958
                                                                                                                 GRA      2959
          1755  0100002346 +             MFA11    RJ     AFA         ASSIGN FULL ADDRESS                         GRA      2960
          1756  0400001741 +                      EQ     MFA10                                                   GRA      2961
                                                                                                                 GRA      2962
                                        *         ^BASE *IP*, FIND BASE TP IN REGS AND DO DIFFERENCING           GRA      2963
                                                                                                                 GRA      2964
          1757  54441                    MFA12    SA4    A4+B1                                                   GRA      2965
                     5130000000 X                 SA3    O.TET                                                   GRA      2966
                               20452              LX4    -IH.CAP                                                 GRA      2967
          1760  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
          1761  0332001755 +                      MI     X2,MFA11    IF INV[TET(C)]                              CCGA063     7
                          20230                   LX2    1+T.INVP-T.ITIP                                         CCGA063     8
                               63220              SB2    X2                                                      GRA      2972
          1762  0420001755 +                      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
          1763  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
          1764  0450001755 +                      ZR     B5,MFA11    IF BREGNO = 0 */ BASE NOT IN A REG          GRA      2980
                          5115000100 C            SA1    RAT+B5      J1 = R1[RAT(BREGN)]                         FCC1518X   19
          1765  53216                             SA2    B6+X1                                                   FCC1518X   20
                     20210                        LX2    59-CA.EUP                                               FCC1518X   21
                          0332001755 +            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/05. 19.57.27.      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
          1766  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
          1767  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
          1770  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
          1771  54720                             SA7    A2                                                      GRA      2996
                     5170000020 +                 SA7    GRASRF      GRASRF = 1                                  FCC0977    13
                                                                                                                 GRA      2997
                                        *         SETUP *RAT* TO FORM DIFFERENCE CODE IN PROLOGUE                GRA      2998
                                                                                                                 GRA      2999
          1772  5115000100 C                      SA1    RAT+B5                                                  GRA      3000
                          73310                   SX3    X1          J1 = R1[RAT(BREGN)]                         GRA      3001
                               20130              LX1    -RA.R3P                                                 GRA      3002
          1773  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
          1774  20322                             LX3    RA.R2P                                                  GRA      3007
                     12732                        BX7    X3+X2       R2[RAT(REGNO)] = J1                         GRA      3008
                          54720                   SA7    A2                                                      GRA      3009
          1775  5140000227 +                      SA4    SEEA                                                    GRA      3010
                          53326                   SA3    B6+X2                                                   GRA      3011
                               12634              BX6    X3+X4       KD[RCT(JO)] = 1                             GRA      3012
          1776  54630                             SA6    A3                                                      GRA      3013
                     0530002001 +                 NZ     B3,MFA13    IF J3 " 0     */ SYMBOL APPENDED            GRA      3014
                                                                                                                 GRA      3015
                               73350              SX3    X5                                                      GRA      3016
          1777  20344                             LX3    RA.R3P                                                  GRA      3017
                     12737                        BX7    X3+X7       R3[RAT(REGNO)] = J  */ APPEND THIS IHCA     GRA      3018
                          54770                   SA7    A7                                                      GRA      3019
          2000  0400001741 +                      EQ     MFA10                                                   GRA      3020
                                                                                                                 GRA      3021
                                        *         BASE REG HAS A SYMBOL APPENDED, FORM ADDRESS DIFFERENCE        GRA      3022
                                                                                                                 GRA      3023
          2001  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
          2002  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
          2003  0303001741 +                      ZR     X3,MFA10    IF CAIH1 = CAIH2                            GRA      3032
                                                                                                                 GRA      3033
                          5140000000 X            SA4    L.RCT                                                   GRA      3034
          2004  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/05. 19.57.27.      PAGE    77
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          7264000003              SX6    X4+3        L.RCT = L.RCT + 3                           GRA      3037
          2005  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
          2006  54770                             SA7    A7                                                      GRA      3042
                     73310                        SX3    X1                                                      GRA      3043
                          73420                   SX4    X2                                                      GRA      3044
                               20152              LX1    -IH.CAP                                                 GRA      3045
          2007  20252                             LX2    -IH.CAP                                                 GRA      3046
                     73110                        SX1    X1                                                      GRA      3047
                          73220                   SX2    X2                                                      GRA      3048
                               37112              IX1    X1-X2                                                   GRA      3049
          2010  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
          2011  0420002013 +                      ZR     B2,MFA14    IF IH1 = IH2                                GRA      3053
                          73740                   SX7    X4                                                      GRA      3054
                               20722              LX7    CC.H2P      KEY2 = CCW(0,IH2,0)                         GRA      3055
          2012  12636                             BX6    X3+X6       IH[KEY] = IH1                               GRA      3056
                                                                                                                 GRA      3057
          2013  5140002331 +             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
          2014  10644                             BX6    X4                                                      GRA      3061
                     55661                        SA6    A6-B1       RCT(OL) = CAW(0,AC,PL)                      GRA      3062
                          0400001741 +            EQ     MFA10                                                   GRA      3063
  
  
                                        *         PROCESS CLASS WITH L > 1 AND NIH = 1                           GRA      3065
                                                                                                                 GRA      3066
          2015  0541002017 +             MFA20    NE     B4,B1,MFA30 IF N > 1                                    GRA      3067
                          0100002254 +            RJ     PSC         PROCESS SIMPLE CLASS                        GRA      3068
          2016  0400001741 +                      EQ     MFA10                                                   GRA      3069
  
  
                                        *         MULTI IH CLASS                                                 GRA      3071
                                                                                                                 GRA      3072
          2017  7164777772               MFA30    SX6    B4-5                                                    GRA      3073
                          0326002056 +            PL     X6,MFA40    IF N > 4                                    GRA      3074
          2020  5140000170 C                      SA4    NAB                                                     GRA      3075
                          0304001741 +            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
          2021  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
          2022  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
          2023  0303002022 +                      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/05. 19.57.27.      PAGE    78
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          53246                   SA2    B6+X4       CI = RCT(CO[BL])                            GRA      3092
                               76310              SX3    B1                                                      GRA      3093
          2024  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
          2025  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
          2026  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
          2027  0632002030 +                      LE     B2,B3,MFA32 ML = MAX( ML , LEN )                        GRA      3105
                          66320                   SB3    B2                                                      GRA      3106
          2030  74750                    MFA32    SX7    A5                                                      GRA      3107
                     63210                        SB2    X1                                                      GRA      3108
                          0724002022 +            LT     B2,B4,MFA31 IF NC < N                                   GRA      3109
                                                                                                                 GRA      3110
          2031  5120000170 C                      SA2    NAB                                                     GRA      3111
                          5130000223 C            SA3    CIT                                                     GRA      3112
          2032  63223                             SB2    X2+B3                                                   GRA      3113
                     53530                        SA5    X3          BI = INDX[CIT]                              GRA      3114
                          0725002056 +            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
          2033  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
          2034  5145000223 C             MFA33    SA4    CIT+B5                                                  GRA      3122
                          37634                   IX6    X3-X4                                                   GRA      3123
                               66551              SB5    B5+B1       I = I + 1                                   GRA      3124
          2035  0326002036 +                      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
          2036  0754002034 +             MFA34    LT     B5,B4,MFA33 IF I < N                                    GRA      3128
                                                                                                                 GRA      3129
                          0713002040 +            GT     B3,B1,MFA34A      IF ML > 1                             GRA      3130
          2037  20351                             LX3    59-AI.FPP                                               GRA      3131
                     0323002056 +                 PL     X3,MFA40    IF ^FP[MVAL]  */ NO F.P. S IN THE CLASS     GRA      3132
                                                                                                                 GRA      3133
          2040  5122000223 C             MFA34A   SA2    CIT+B2                                                  GRA      3134
                          54330                   SA3    A3                                                      GRA      3135
                               10633              BX6    X3                                                      GRA      3136
          2041  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
          2042  20247                             LX2    -AI.LENP                                                GRA      3142
                     63520                        SB5    X2          L = LEN[CIT]                                GRA      3143
                          0100002254 +            RJ     PSC         PROCESS BASE CLASS                          GRA      3144
                                                                                                                 GRA      3145
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    79
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          2043  76611                             SX6    B1+B1                                                   GRA      3146
                     5160000223 C                 SA6    CIT         I = 2;  AI = CIT(1)                         GRA      3147
                                                                                                                 GRA      3148
          2044  5110000224 C             MFA35    SA1    CIT+1                                                   GRA      3149
                          5120002054 +            SA2    MFAC                                                    GRA      3150
          2045  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
          2046  0100002307 +                      RJ     AAD         ASSIGN ADDRESS DIFFERENCE( J, REGNO , CAIH  GRA      3155
          2047  5110000224 C                      SA1    CIT+1                                                   GRA      3156
                          20147                   LX1    -AI.LENP                                                GRA      3157
                               63210              SB2    X1                                                      GRA      3158
          2050  0520002044 +                      NZ     B2,MFA35    IF LEN[AI] " 0                              GRA      3159
                                                                                                                 GRA      3160
                          55211                   SA2    A1-B1                                                   GRA      3161
          2051  5232000223 C                      SA3    CIT+X2      AI = CIT(I)                                 GRA      3162
                          73721                   SX7    X2+B1       I = I + 1                                   GRA      3163
                               54720              SA7    A2                                                      GRA      3164
          2052  10633                             BX6    X3                                                      GRA      3165
                     54610                        SA6    A1                                                      GRA      3166
                          0313002044 +            NZ     X3,MFA35    IF AI " 0                                   GRA      3167
                                                                                                                 GRA      3168
          2053  0400001741 +                      EQ     MFA10                                                   GRA      3169
                                                                                                                 GRA      3170
          2054                           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
          2055                           MFAD     BFMW   CA,(FP,NOC2)                                            GRA      3176
  
  
                                        *         PARTIAL ASSIGNMENT, SET IH+CA IN A REGISTER                    GRA      3178
                                                                                                                 GRA      3179
          2056  7160000000               MFA40    SX6    0                                                       GRA      3180
                          5160000221 C            SA6    CAIH        CAIH = 0                                    GRA      3181
                                                                                                                 GRA      3182
          2057  75751                    MFA41    SX7    A5-B1                                                   GRA      3183
                     63251                        SB2    X5+B1                                                   GRA      3184
                          5170000223 C            SA7    CIT                                                     GRA      3185
          2060  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
          2061  43200                             MX2    0                                                       GRA      3190
                     0100002332 +                 RJ     SDC         SEARCH FOR CAIH                             GRA      3191
          2062  0520002071 +                      NZ     B2,MFA45    IF REGN " 0   */ IN A REG                   GRA      3192
                                                                                                                 GRA      3193
                          5110002055 +            SA1    MFAD                                                    GRA      3194
          2063  56263                             SA2    B6+B3       CAW = RCT(J)                                GRA      3195
                     5140000170 C                 SA4    NAB                                                     GRA      3196
                               11312              BX3    X1*X2                                                   GRA      3197
          2064  0303002077 +                      ZR     X3,MFA47    IF ^( FP[CAW] ! NOCC[CAW] > 1 )             GRA      3198
                          0304002077 +            ZR     X4,MFA47    IF NAB = 0                                  GRA      3199
                                                                                                                 GRA      3200
          2065  5140000000 X                      SA4    =XO.SYM                                                 CCGA100    10
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2066  73550                             SX5    X5                                                      CCGA100    14
                     36445                        IX4    X4+X5                                                   CCGA100    15
                          20501                   LX5    1                                                       CCGA100    16
                               36445              IX4    X4+X5                                                   CCGA100    17
          2067  53440                             SA4    X4          WORDB=SYM(3*IH+1)                           CCGA100    18
                     20452                        LX4    59-WB.LCMP                                              CCGA100    19
                          0334002077 +            MI     X4,MFA47    IF LCM                                      CCGA100    20
                                                                                                                 CCGA100    21
          2070  0100002323 +                      RJ     EDC         ENTER CANIDATE                              GRA      3201
                                                                                                                 GRA      3202
                                        *         SETUP *J* AS A *SLD*                                           GRA      3203
                                                                                                                 GRA      3204
          2071  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
          2072  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
          2073  74500                             SX5    A0                                                      GRA      3212
                     76420                        SX4    B2                                                      GRA      3213
                          0305002076 +            ZR     X5,MFA46    IF REGNO = 0  */ NO BASE REG                GRA      3214
                                                                                                                 GRA      3215
          2074  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
          2075  54720                             SA7    A2                                                      GRA      3221
                     0400002077 +                 EQ     MFA47                                                   GRA      3222
                                                                                                                 GRA      3223
                                         MFA46    LX4    CC.REG1P                                                GRA      3224
          2076  12547                             BX5    X4+X7       REG1[CCW] = REGN                            GRA      3225
                     12752                        BX7    X5+X2                                                   FCC1014   104
                          54720                   SA7    A2                                                      GRA      3227
                                                                                                                 GRA      3228
          2077  5140000223 C             MFA47    SA4    CIT                                                     GRA      3229
                          67551                   SB5    B5-B1       L = L - 1                                   GRA      3230
                               53540              SA5    X4          BI = BI - 1                                 GRA      3231
          2100  0550002057 +                      NZ     B5,MFA41    IF L " 0                                    GRA      3232
                                                                                                                 GRA      3233
                          0400001741 +            EQ     MFA10                                                   GRA      3234
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    81
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          2101  5110000170 C             MFA48    SA1    NAB                                                     GRA      3236
                          5120000017 C            SA2    N.HB                                                    GRA      3237
          2102  0311002104 +                      NZ     X1,MFA48A   IF NAB " 0    */ B-REGS AVAIL               GRA      3238
                          7272777776              SX7    X2-1                                                    GRA      3239
          2103  0317002145 +                      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
          2104  5120000216 C             MFA48A   SA2    CL                                                      GRA      3245
                          43063                   MX0    -CA.NOCCL                                               GRA      3246
                               76700              SX7    B0                                                      GRA      3247
          2105  20041                             LX0    CA.NOCCP                                                GRA      3248
                     6170000001 C                 SB7    SCR+1                                                   GRA      3249
                               57771              SA7    B7-B1       SI = SCR;  [SI] = 0                         GRA      3250
          2106  76100                             SX1    B0          L = 0                                       GRA      3251
                     73220                        SX2    X2          J = CL                                      GRA      3252
                          6150777741              SB5    -36B                                                    GRA      3253
          2107  5100000000                        SA0    0           NPA = 0       */ N. PREVIOUS ASSIGNMENTS    GRA      3254
                          43301                   MX3    1                                                       GRA      3255
                                                  LX3    1+CA.RAP                                                GRA      3256
                                                                                                                 GRA      3257
          2110  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
          2111  20473                             LX4    58-CA.RAP                                               GRA      3262
                     12747                        BX7    X4+X7       STW = CST(RA[CAW],N,J)                      GRA      3263
                          0304002113 +            ZR     X4,MFA50    IF ^RA[CAW]                                 GRA      3264
          2112  54001                             SA0    A0+B1       NPA = NPA + 1                               GRA      3265
                     0400002114 +                 EQ     MFA51                                                   GRA      3266
                                                                                                                 GRA      3267
          2113  20633                    MFA50    LX6    -CA.NOCCP                                               GRA      3268
                     63260                        SB2    X6                                                      GRA      3269
                          0612002116 +            LE     B2,B1,MFA52 IF N @ 1                                    GRA      3270
                                                                                                                 GRA      3271
          2114  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
          2115  0620002120 +                      PL     B2,MFA53    IF L = 36B                                  GRA      3275
                                                                                                                 GRA      3276
          2116  5055000002               MFA52    SA5    A5+2                                                    GRA      3277
                          20530                   LX5    -CC.INCP                                                GRA      3278
                               73250              SX2    X5          J = INC[RCT(J+2)]                           GRA      3279
          2117  0312002110 +                      NZ     X2,MFA49    IF J " 0      */ NOT END OF CON LIST        GRA      3280
                                                                                                                 GRA      3281
          2120  0301002145 +             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
          2121  0100000000 X                      CALL   SHL#        SORT( SCR )                                 CCGNC     656
          2122  5110000000 X                      SA1    O.RND                                                   GRA      3287
                          5150000170 C            SA5    NAB                                                     GRA      3288
          2123  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
          2124  0315002126 +                      NZ     X5,MFA54    IF NAB " 0                                  GRA      3292
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    82
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          0421002145 +            EQ     B2,B1,MFA60 IF NPA = 0                                  GRA      3293
          2125  0400002131 +                      EQ     MFA55                                                   GRA      3294
                                                                                                                 GRA      3295
                                        *         ASSIGN CONSTANTS TO THE B-REGS                                 GRA      3296
                                                                                                                 GRA      3297
          2126  56530                    MFA54    SA5    B3          J = CO[SI]                                  GRA      3298
                     0305002131 +                 ZR     X5,MFA55    IF J = 0      */ END OF SORT TABLE          GRA      3299
                               67331              SB3    B3-B1       SI = SI - 1                                 GRA      3300
          2127  76110                             SX1    B1          INVF = 1                                    GRA      3301
                     63450                        SB4    X5                                                      GRA      3302
                          0100001155 +            RJ     AIR         ASSIGN AN INDEX REGISTER                    GRA      3303
          2130  5110000170 C                      SA1    NAB                                                     GRA      3304
                          0311002126 +            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
          2131  5120000222 C             MFA55    SA2    PMF                                                     GRA      3309
                          0302002145 +            ZR     X2,MFA60    IF PMF = 0    */ NO PARTIAL MODS            GRA      3310
          2132  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
          2133  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
          2134  56571                             SA5    B7+B1       BI = O.RND + 1                              GRA      3321
                     20214                        LX2    CC.REG2P                                                GRA      3322
                                                                                                                 GRA      3323
          2135  0325002143 +             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
          2136  56462                             SA4    B6+B2                                                   GRA      3327
                     7170000100                   SX7    1S6         IT = 2                                      GRA      3328
                               15540              BX5    -X0*X4      C = CA[RCT(I+1)]                            GRA      3329
          2137  37651                             IX6    X5-X1                                                   GRA      3330
                     0306002141 +                 ZR     X6,MFA58    IF C = C2W                                  GRA      3331
                               36451              IX4    X5+X1                                                   GRA      3332
          2140  12604                             BX6    X0+X4                                                   GRA      3333
                     0316002143 +                 NZ     X6,MFA59    IF -C " C2W                                 GRA      3334
                               20701              LX7    1           IT = 3        */ 2S6                        GRA      3335
                                                                                                                 GRA      3336
                                        *         CHANGE INSTRUCTION                                             GRA      3337
                                                                                                                 GRA      3338
          2141  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
          2142  54740                             SA7    A4                                                      GRA      3343
                                                                                                                 GRA      3344
          2143  54551                    MFA59    SA5    A5+B1       BI = BI + 1                                 GRA      3345
                     0315002135 +                 NZ     X5,MFA57    IF [BI] " 0   */ NOT END OF ADDRESS TABLE   GRA      3346
                                                                                                                 GRA      3347
                               54331              SA3    A3+B1       SI = SI + 1                                 GRA      3348
          2144  63431                             SB4    X3+B1       J = CO[SI]                                  GRA      3349
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    83
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                     0313002133 +                 NZ     X3,MFA56    IF J " 0                                    GRA      3350
  
  
                                        *         SETUP LOOP TEST REPLACEMENT CODE INFO                          GRA      3352
                                                                                                                 GRA      3353
          2145  5110000172 C             MFA60    SA1    TRD                                                     GRA      3354
                          7160000000              SX6    0           L.RND = 0                                   GRA      3355
          2146  5160000000 X                      SA6    L.RND                                                   GRA      3356
                          0301001645 +            ZR     X1,MFA      IF TRD = 0    */ NO TEST REPLACEMENT        GRA      3357
                                                                                                                 GRA      3358
          2147  5150000023 C                      SA5    LUL                                                     GRA      3359
                          26625                   UX6    B2,X5                                                   GRA      3360
          2150  0520002170 +                      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
          2152  43052                             MX0    -IH.CAL                                                 GRA      3366
                     76610                        SX6    B1                                                      GRA      3367
                          15750                   BX7    -X0*X5                                                  GRA      3368
                               20667              LX6    CA.CONP                                                 GRA      3369
          2153  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
          2154  54671                             SA6    A7+B1       RCT(OL+2) = 0                               GRA      3374
                     5110000172 C                 SA1    TRD                                                     GRA      3375
                               53421              SA4    X2+B1                                                   GRA      3376
          2155  7261777775                        SX6    X1-2                                                    GRA      3377
                          0316002166 +            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
          2156  6252000004                        SB5    X2+4                                                    GRA      3382
                          6130000003              SB3    3                                                       GRA      3383
          2157  13647                    MFA60A   BX6    X4-X7                                                   GRA      3384
                     54443                        SA4    A4+B3                                                   GRA      3385
                          0316002157 +            NZ     X6,MFA60A   IF RCT(I-2) " RCT(OL+1)                     GRA      3386
          2160  65445                             SB4    A4-B5                                                   GRA      3387
                     0446002166 +                 EQ     B4,B6,MFA60B      IF I = OL                             GRA      3388
          2161  5034777773                        SA3    A4-4        CAW = RCT(I)                                GRA      3389
                                                  LX3    59-CA.RAP                                               GRA      3390
                          0323002157 +            PL     X3,MFA60A   IF ^RA[RCT(I)-3)]                           GRA      3391
          2162  20304                             LX3    CA.RAP-CA.CONP                                          GRA      3392
                     0323002157 +                 PL     X3,MFA60A   IF ^CON[CAW]                                GRA      3393
          2163  5110000024 C                      SA1    LUL+1                                                   GRA      3394
                          5261000100 C            SA6    RAT+X1      RAT(LUL(2)) = 0                             GRA      3395
          2164  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
          2165  54610                             SA6    A1                                                      GRA      3400
                     66640                        SB6    B4          OL = I                                      GRA      3401
                                                                                                                 GRA      3402
          2166  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/05. 19.57.27.      PAGE    84
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                  LX0    1+RA.INVP                                               GRA      3406
          2167  12707                             BX7    X0+X7       RAT(LUL(2)) = RATW(1,0,0,OL)                GRA      3407
                     5271000100 C                 SA7    RAT+X1                                                  GRA      3408
                                                                                                                 GRA      3409
          2170  5150000172 C             MFA61    SA5    TRD                                                     GRA      3410
                          6225777775              SB2    X5-2                                                    GRA      3411
          2171  0420001645 +                      ZR     B2,MFA      IF TRD = 2    */ I,N CASE                   GRA      3412
                          0620002177 +            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
          2172  5110000024 C             MFA62    SA1    LUL+1                                                   GRA      3417
                          5221000100 C            SA2    RAT+X1                                                  GRA      3418
          2173  5130000022 C                      SA3    LCV+1                                                   GRA      3419
                          5243000100 C            SA4    RAT+X3                                                  GRA      3420
          2174  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
          2175  43700                             MX7    0                                                       GRA      3425
                     54720                        SA7    A2          RAT(LUL(2)) = 0                             GRA      3426
                          54710                   SA7    A1          LUL(2) = 0                                  GRA      3427
          2176  0400001645 +                      EQ     MFA                                                     GRA      3428
                                                                                                                 GRA      3429
                                        *         PROCESS A+I , A+N CASE , CV REG IS ALREADY BIASED              GRA      3430
                                                                                                                 GRA      3431
          2177  0521002204 +             MFA63    NE     B2,B1,MFA64 IF TRD " 3                                  GRA      3432
                          5110000024 C            SA1    LUL+1                                                   GRA      3433
          2200  5221000100 C                      SA2    RAT+X1                                                  GRA      3434
                          5130000022 C            SA3    LCV+1                                                   GRA      3435
          2201  5243000100 C                      SA4    RAT+X3                                                  GRA      3436
                          43052                   MX0    -RA.R3L                                                 GRA      3437
                               76710              SX7    B1                                                      GRA      3438
          2202  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
          2203  12652                             BX6    X5+X2       R3[RAT(LUL(2))] = J                         GRA      3443
                     54620                        SA6    A2                                                      GRA      3444
                          0400001645 +            EQ     MFA                                                     GRA      3445
                                                                                                                 GRA      3446
                                        *         TRD = 4, I,F(I) IN REGS, SEARCH FOR F(I)                       GRA      3447
                                                                                                                 GRA      3448
          2204  5110000000 X             MFA64    SA1    O.RCT                                                   GRA      3449
                          5120000000 X            SA2    O.TET                                                   GRA      3450
          2205  5130000000 X                      SA3    O.IIT                                                   GRA      3451
                          5140000000 X            SA4    =XIT.                                                   GRA      3452
          2206  5150000021 C                      SA5    LCV                                                     GRA      3453
                          6170000007              SB7    7           I = 7         */ REGNO                      GRA      3454
          2207  63611                             SB6    X1+B1                                                   GRA      3455
                     63520                        SB5    X2                                                      GRA      3456
                          63431                   SB4    X3+B1                                                   GRA      3457
                               14444              BX4    -X4                                                     GRA      3458
          2210  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/05. 19.57.27.      PAGE    85
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          2211  63250                             SB2    X5          U = UDI[LCV]                                GRA      3463
                                                                                                                 GRA      3464
          2212  5157000100 C             MFA65    SA5    RAT+B7      R = R1[RAT(I)]                              GRA      3465
                          0305002220 +            ZR     X5,MFA66    IF R = 0                                    GRA      3466
          2213  53456                             SA4    B6+X5       C2W = RCT(R+1)                              GRA      3467
                     73643                        SX6    X4+B3                                                   GRA      3468
                          0316002220 +            NZ     X6,MFA66    IF IH[C2W] " IT.                            GRA      3469
          2214  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
          2215  20230                             LX2    -T.ITIP     ITI = ITI[TET(C)]                           GRA      3474
                     0333002220 +                 MI     X3,MFA66    IF KD[RCT(R)]                               GRA      3475
                               73220              SX2    X2                                                      GRA      3476
          2216  0302002220 +                      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
          2217  0306002222 +                      ZR     X6,MFA67    IF UDI[IAW] = U                             GRA      3481
                                                                                                                 GRA      3482
          2220  67771                    MFA66    SB7    B7-B1       I = I - 1                                   GRA      3483
                     0570002212 +                 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
          2221  5160000172 C                      SA6    TRD         TRD = 1                                     GRA      3489
                          0400002172 +            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
          2222  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
          2223  53166                             SA1    B6+X6       CAWI=RCT(IP)                                FCC2135     7
                     20104                        LX1    59-CA.CONP                                              FCC2135     8
                          0321002220 +            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
          2224  54111                             SA1    A1+B1       IHWI=CAWI+1                                 FCC2135    16
                     20144                        LX1    -IH.CAP-6                                               FCC2135    17
                          73110                   SX1    X1                                                      FCC2135    18
          2225  0301002243 +                      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
          2226  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
          2227  5140000000 X                      SA4    =XO.SYM                                                 FCC2135    28
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    86
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          20644                   LX6    IH.RFP                                                  FCC2135    29
                               53116              SA1    B6+X1                                                   FCC2135    30
          2230  53041                             SA0    X4+B1                                                   FCC2135    31
                                                                                                                 FCC2135    32
          2231  5011777774               MFA67A   SA1    A1-3                                                    FCC2135    33
                          0301002243 +            ZR     X1,MFA68    IF END OF RCT                               FCC2135    34
          2232  15416                             BX4    -X6*X1                                                  FCC2135    35
                     13445                        BX4    X4-X5                                                   FCC2135    36
                          0314002231 +            NZ     X4,MFA67A   IF F(I) NE RF                               FCC2135    37
                                                  LX1    -IH.IHP     IH=IH[RCT(I+1)]                             FCC2135    38
          2233  63210                             SB2    X1                                                      FCC2135    39
                     0420002242 +                 ZR     B2,MFA67B   IF IH = 0 THEN UNSAFE                       CCGA036    18
                               20101              LX1    1                                                       FCC2135    40
          2234  63212                             SB2    B2+X1                                                   FCC2135    41
                     54402                        SA4    A0+B2       WORDB=SYM(3*IH+1)                           FCC2135    42
                          20452                   LX4    59-WB.LCMP                                              FCC2135    43
          2235  0334002242 +                      MI     X4,MFA67B   IF LCM                                      FCC2135    44
                          20401                   LX4    WB.LCMP-WB.FPP                                          FCC2135    45
          2236  0334002242 +                      MI     X4,MFA67B   IF A FORMAL PARAMETER                       FCC2135    46
                          20401                   LX4    WB.FPP-WB.COMP                                          FCC2135    47
          2237  0324002231 +                      PL     X4,MFA67A   IF NOT COMMON                               FCC2135    48
                          54441                   SA4    A4+B1       WORDC=WORDB+1                               FCC2135    49
                               43762              MX7    -WC.RBL                                                 FCC2135    50
          2240  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
          2241  13747                             BX7    X4-X7                                                   FCC2135    55
                     0317002231 +                 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
          2242  63200                    MFA67B   SB2    X0          RESTORE B2                                  FCC2135    60
                     0400002220 +                 EQ     MFA66                                                   FCC2135    61
                                                                                                                 GRA      3504
                                        *         ADJUST TRD IF NEGATIVE F(I), SAVE *IIT* INDEX                  GRA      3505
                                                                                                                 GRA      3506
          2243  20346                    MFA68    LX3    59-CC.IMP+CC.INCP                                       FCC2135    62
                     43701                        MX7    1                                                       GRA      3508
                          7160000004              SX6    4                                                       GRA      3509
          2244  11773                             BX7    X7*X3                                                   FCC2135    63
                     12667                        BX6    X6+X7       TRD = SHIFT(IM[CCW],59) ! 4                 GRA      3511
                          5160000172 C            SA6    TRD                                                     GRA      3512
          2245  5110000100 C                      SA1    RAT         ULO = R1[RAT(0)]  */ UL ORD                 GRA      3513
                          5130000022 C            SA3    LCV+1                                                   GRA      3514
          2246  5243000100 C                      SA4    RAT+X3      CVO = R1[RAT(LCV(2))]                       GRA      3515
                          10633                   BX6    X3                                                      GRA      3516
                               76770              SX7    B7                                                      GRA      3517
          2247  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
          2250  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
          2251  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/05. 19.57.27.      PAGE    87
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                               43701              MX7    1                                                       GRA      3527
          2252  5120000227 +                      SA2    SEEA                                                    GRA      3528
                          53346                   SA3    B6+X4                                                   GRA      3529
                               12623              BX6    X2+X3       KD[RCT(CVO)] = 1                            GRA      3530
          2253  54630                             SA6    A3                                                      GRA      3531
                     0400001645 +                 EQ     MFA                                                     GRA      3532
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2254  0200402254 +             PSC      ROUTINE                                                        GRA      3545
          2255  67451                             SB4    B5-B1                                                   GRA      3546
                     66661                        SB6    B6+B1                                                   GRA      3547
                          0614002273 +            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
          2256  54450                             SA4    A5          I = BI                                      GRA      3553
                     43600                        MX6    0           AVE = 0                                     GRA      3554
                          66400                   SB4    B0          J = 0                                       GRA      3555
                                                                                                                 GRA      3556
          2257  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
          2260  73730                             SX7    X3                                                      GRA      3561
                     36667                        IX6    X6+X7       AVE = AVE + CA[C2W]                         GRA      3562
                          0745002257 +            LT     B4,B5,PSC2  IF J < L                                    GRA      3563
          2261  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
          2263  66400                             SB4    B0          J = 0                                       GRA      3569
                     54450                        SA4    A5          I = BI                                      GRA      3570
                          6130377777              SB3    377777B     MIND = 377777B  */ MIN DIFFERENCE           GRA      3571
          2264  74050                             SX0    A5          IM = BI                                     GRA      3572
                                                                                                                 GRA      3573
          2265  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
          2266  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
          2267  0623002270 +                      GE     B2,B3,PSC4  IF DIFF \ MIND                              GRA      3582
                          74040                   SX0    A4          IM = I                                      GRA      3583
                               66320              SB3    B2          MIND = DIFF                                 GRA      3584
          2270  66441                    PSC4     SB4    B4+B1       J = J + 1                                   GRA      3585
                     55441                        SA4    A4-B1       I = I - 1                                   GRA      3586
                          0745002265 +            LT     B4,B5,PSC3  IF J < L                                    GRA      3587
                                                                                                                 GRA      3588
          2271  53400                             SA4    X0                                                      GRA      3589
                     22605                        LX6    X5                                                      GRA      3590
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    89
        PSC - PROCESS SIMPLE CLASS ( 1 IH )                           PSC 
  
                          22704                   LX7    X4          SWAP( [IM] , [BI] )                         GRA      3591
                               54640              SA6    A4                                                      GRA      3592
          2272  54750                             SA7    A5                                                      GRA      3593
                                                                                                                 GRA      3594
                                        *         CHANGE CLASS BASE TO A SHORT REF                               GRA      3595
                                                                                                                 GRA      3596
          2273  54550                    PSC5     SA5    A5                                                      GRA      3597
                     67661                        SB6    B6-B1                                                   GRA      3598
                          0100002346 +            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
          2274  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
          2275  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
          2276  0451002254 +                      EQ     B5,B1,PSC   IF L = 1                                    GRA      3610
                                                                                                                 GRA      3611
          2277  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
          2300  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
          2301  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
          2302  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
          2303  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
          2304  12671                             BX6    X7+X1       MIT[CCW] = 1  */ PLD, PST                   GRA      3633
                     54610                        SA6    A1                                                      GRA      3634
                          0100002355 +            RJ     ECC         ENTER CON CANIDATE                          GRA      3635
          2305  67551                             SB5    B5-B1       L = L - 1                                   GRA      3636
                     0715002277 +                 GT     B5,B1,PSC6  IF L > 1                                    GRA      3637
                                                                                                                 GRA      3638
                               76610              SX6    B1                                                      GRA      3639
          2306  5160000222 C                      SA6    PMF         PMF = 1       */ INDICATE PLD"S EXIST       GRA      3640
                          0400002254 +            EQ     PSC                                                     GRA      3641
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2307  0200402307 +             AAD      ROUTINE                                                        GRA      3649
          2310  5110000221 C                      SA1    CAIH        CAIH1 = CAIH                                GRA      3650
                          66251                   SB2    B5+B1                                                   GRA      3651
                               56262              SA2    B6+B2       CAIH2 = RCT(J+1)                            GRA      3652
          2311  0100002332 +                      RJ     SDC         SEARCH FOR CAIH - RCT(J+1)                  GRA      3653
          2312  6130000300                        SB3    3S6         IT = 3        */ SDL, SDS                   GRA      3654
                          0520002317 +            NZ     B2,AAD1     IF REGN " 0   */ DIFF IN A REGISTER         GRA      3655
          2313  5120000221 C                      SA2    CAIH                                                    GRA      3656
                          66251                   SB2    B5+B1                                                   GRA      3657
                               56162              SA1    B6+B2                                                   GRA      3658
          2314  0100002332 +                      RJ     SDC         SEARCH FOR RCT(J+1) - CAIH                  GRA      3659
          2315  6130000200                        SB3    2S6         IT = 2        */ SLD, SST                   GRA      3660
                          0520002317 +            NZ     B2,AAD1     IF REGN " 0                                 GRA      3661
                                                                                                                 GRA      3662
          2316  0100002323 +                      RJ     EDC         ENTER DIFFERENCE CANIDATE                   GRA      3663
                                                                                                                 GRA      3664
                                        *         SETUP *J* AS A SLD OR SDL                                      GRA      3665
                                                                                                                 GRA      3666
          2317  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
          2320  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
          2321  36534                             IX5    X3+X4                                                   GRA      3676
                     54610                        SA6    A1                                                      GRA      3677
                          12752                   BX7    X5+X2                                                   GRA      3678
                               54720              SA7    A2                                                      GRA      3679
          2322  0400002307 +                      EQ     AAD                                                     GRA      3680
  
  
  
                                        **        EDC - ENTER DIFFERENCE CANIDATE IN *RCT* AND ASSIGN A REG      GRA      3682
                                                                                                                 GRA      3683
          2323  0200402323 +             EDC      ROUTINE                                                        GRA      3684
          2324  5110000000 X                      SA1    L.RCT                                                   GRA      3685
                          5140002331 +            SA4    EDCA                                                    GRA      3686
          2325  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
          2326  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
          2327  63410                             SB4    X1                                                      GRA      3694
                     76110                        SX1    B1          INVF = 1                                    GRA      3695
                          0100001155 +            RJ     AIR         ASSIGN A B-REG                              GRA      3696
          2330  67202                             SB2    -B2                                                     GRA      3697
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    91
        AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                 ECD 
  
                     0400002323 +                 EQ     EDC                                                     GRA      3698
                                                                                                                 GRA      3699
          2331                           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
          2332  0200402332 +             SDC      ROUTINE                                                        GRA      3711
          2333  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
          2334  20252                             LX2    -IH.CAP                                                 GRA      3717
                     73110                        SX1    X1                                                      GRA      3718
                          73220                   SX2    X2                                                      GRA      3719
                               37512              IX5    X1-X2                                                   GRA      3720
          2335  43052                             MX0    -IH.CAL                                                 GRA      3721
                     15450                        BX4    -X0*X5                                                  GRA      3722
                          20422                   LX4    IH.CAP                                                  GRA      3723
                               43052              MX0    -CC.H2L                                                 GRA      3724
          2336  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
          2337  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
          2340  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
          2341  0322002344 +                      PL     X2,SDC2     IF ^AC[RCT(RI)]                             GRA      3736
                          0313002344 +            NZ     X3,SDC2     IF RCT(RI+1) " KEY                          GRA      3737
          2342  5044000001                        SA4    A4+1                                                    GRA      3738
                          13374                   BX3    X7-X4                                                   GRA      3739
                               15230              BX2    -X0*X3                                                  GRA      3740
          2343  0302002332 +                      ZR     X2,SDC      IF H2[RCT(RI+2)] = KEY2                     GRA      3741
          2344  67221                    SDC2     SB2    B2-B1       REGN = REGN - 1                             GRA      3742
                     55551                        SA5    A5-B1       RI = RAT(REGN)                              GRA      3743
                          0520002340 +            NZ     B2,SDC1     IF REGN " 0                                 GRA      3744
                                                                                                                 GRA      3745
          2345  0400002332 +                      EQ     SDC                                                     GRA      3746
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2346  0200402346 +             AFA      ROUTINE                                                        GRA      3757
          2347  5040000100 C                      SA4    RAT+A0                                                  GRA      3758
                          53156                   SA1    B6+X5                                                   GRA      3759
                               73350              SX3    X5          J = CO[BI]                                  GRA      3760
          2350  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
          2351  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
          2352  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
          2353  0400002346 +                      EQ     AFA                                                     GRA      3773
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2354  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
          2355  0200402355 +             ECC      ROUTINE                                                        GRA      3787
          2356  5110000216 C                      SA1    CL                                                      GRA      3788
                          43063                   MX0    -CA.NOCCL                                               GRA      3789
                               20322              LX3    IH.CAP                                                  GRA      3790
          2357  20041                             LX0    CA.NOCCP                                                GRA      3791
                     6221000001                   SB2    X1+1        I = CL                                      GRA      3792
                               15020              BX0    -X0*X2      N = NOCC[CAW]                               GRA      3793
          2360  0323002361 +                      PL     X3,ECC1     KEY = IHW(0,0,ABS(CON),0)                   GRA      3794
                          14333                   BX3    -X3                                                     GRA      3795
                                                                                                                 GRA      3796
          2361  56462                    ECC1     SA4    B6+B2       C2W = RCT(I+1)                              GRA      3797
                     13634                        BX6    X3-X4                                                   GRA      3798
                          0306002354 +            ZR     X6,ECC0     IF [C2W] = KEY                              GRA      3799
          2362  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
          2363  0521002361 +                      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
          2364  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
          2365  20644                             LX6    CC.INCP                                                 GRA      3811
                     54610                        SA6    A1                                                      GRA      3812
                          76410                   SX4    B1                                                      GRA      3813
                               20467              LX4    CA.CONP                                                 GRA      3814
          2366  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
          2367  43600                             MX6    0                                                       GRA      3819
                     54671                        SA6    A7+B1       RCT(OL+2) = 0                               GRA      3820
                          0400002355 +            EQ     ECC                                                     GRA      3821
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2370  6120000004               ORS0     SB2    OC.RS                                                   GRA      3847
                          0100000000 X            RJ     SRI         SRI(  RS  MI-4,FL+I )                       GRA      3848
                                                                                                                 GRA      3849
          2371  0200402371 +             ORS      ROUTINE                                                        GRA      3850
          2372  5125000100 C                      SA2    RAT+B5      RW = RAT(I)                                 GRA      3851
                          7145000200              SX4    B5+SO.LOCK                                              GRA      3852
          2373  7166777773                        SX6    B6-4                                                    GRA      3853
                          20420                   LX4    R1.SOP                                                  GRA      3854
                               12646              BX6    X4+X6                                                   GRA      3855
          2374  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
          2375  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
          2376  0314002370 +                      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
          2377  63220                             SB2    X2                                                      GRA      3868
                     0420002370 +                 ZR     B2,ORS0     IF UDI[CAW] = 0  */ CON OR COMPILER TEMP    GRA      3869
                               20203              LX2    59-CA.ACP                                               GRA      3870
          2400  0332002370 +                      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
          2401  0400002370 +                      EQ     ORS0                                                    GRA      3874
                                                                                                                 GRA      3875
          2402                           SUPA     BFMW   CA,(AC,CON,PL)                                          GRA      3876
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2403  0200402403 +             SUP      ROUTINE                                                        GRA      3884
          2404  7160000000                        SX6    0           BSI = 0                                     GRA      3885
                          5160000000 X            SA6    BSI                                                     GRA      3886
          2405  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
          2406  5130000020 C                      SA3    XRF                                                     GRA      3891
                          5120000232 C            SA2    MRU                                                     GRA      3892
          2407  5110000000 X                      SA1    O.SEQ                                                   GRA      3893
                          5150000015 C            SA5    MRA                                                     GRA      3894
          2410  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
          2411  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
          2412  7110000420                        ALLOC  MOD,16*17   ALLOC( MOD , 4*4*(7+7+3) )                  GRA      3905
          2414  5130000000 X                      SA3    O.SYM                                                   GRA      3906
                          5140000000 X            SA4    O.RCT                                                   GRA      3907
          2415  63720                             SB7    X2          MB = [O.MOD]                                GRA      3908
                     5203000001                   SA0    X3+1                                                    CCG1      115
                               63440              SB4    X4          (B4) = [O.RCT]                              GRA      3910
          2416  5150000172 C                      SA5    TRD                                                     GRA      3911
                          6160000004              SB6    4           MI = 4        */ STORE INDEX                GRA      3912
          2417  7265777773                        SX6    X5-4                                                    GRA      3913
                          0316002447 +            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
          2420  5110000024 C                      SA1    LUL+1                                                   GRA      3918
                          5120000000 X            SA2    O.IIT                                                   GRA      3919
          2421  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
          2422  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
          2423  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
          2424  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
          2425  5170000230 C                      SA7    N                                                       GRA      3934
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    96
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                          5100000000 X            ALLOC  MOD,X1      ALLOC( MOD , N)                             GRA      3935
          2427  5130000000 X                      SA3    O.SYM                                                   GRA      3936
                          5140000000 X            SA4    O.RCT                                                   GRA      3937
          2430  63720                             SB7    X2          MB = [O.MOD]                                GRA      3938
                     5203000001                   SA0    X3+1                                                    CCG1      116
                               63440              SB4    X4                                                      GRA      3940
          2431  6160000004                        SB6    4           MI = 4                                      GRA      3941
                          5120000000 X            SA2    O.IIT                                                   GRA      3942
          2432  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
          2434  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
          2435  0100002543 +                      RJ     LIV         INSERT LOAD OF *UL* IN FORMULA              GRA      3951
          2436  5110000230 C                      SA1    N                                                       GRA      3952
                          5120000022 C            SA2    LCV+1                                                   GRA      3953
          2437  6261000004                        SB6    X1+4        MI = N + 4                                  GRA      3954
                          5232000100 C            SA3    RAT+X2                                                  GRA      3955
          2440  20330                             LX3    -RA.R3P                                                 GRA      3956
                     73530                        SX5    X3          J = R3[RAT(LUL(2))]                         GRA      3957
                          0315002444 +            NZ     X5,SUP1     IF J " 0      */ ADDRESS APPENDED           GRA      3958
                                                                                                                 GRA      3959
          2441  76660                             TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                         GRA      3960
          2443  0400002445 +                      EQ     SUP2                                                    GRA      3961
                                                                                                                 GRA      3962
          2444  73431                    SUP1     SX4    X3+B1                                                   GRA      3963
                     63310                        SB3    X1                                                      GRA      3964
                          0100002626 +            RJ     SIV         SIV( J , RF = N )                           GRA      3965
                                                                                                                 GRA      3966
          2445  5110000024 C             SUP2     SA1    LUL+1                                                   GRA      3967
                          6251000000              SB5    X1+                                                     GRA      3968
          2446  0100002371 +                      RJ     ORS         ORS(  RS  MI-4,INVF )                       GRA      3969
  
                                        *         SCAN *RAT* AND SETUP INITIALIZATION CODE FOR THE B-REGISTERS   GRA      3971
                                                                                                                 GRA      3972
          2447  6150000007               SUP4     SB5    7           I = 7         */ REGNO                      GRA      3973
                                                                                                                 GRA      3974
          2450  5115000100 C             SUP5     SA1    RAT+B5                                                  GRA      3975
                          0301002500 +            ZR     X1,SUP10    IF RAT(I) = 0 */ REGISTER NOT ASSIGNED      GRA      3976
                                                                                                                 GRA      3977
                                        *         EVALUATE THE INITIALIZATION FORMULA                            GRA      3978
                                                                                                                 GRA      3979
          2451  10011                             BX0    X1          RW = RAT(I)                                 GRA      3980
                     73510                        SX5    X1          J = R1[RW]                                  GRA      3981
                          5120002402 +            SA2    SUPA                                                    GRA      3982
          2452  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
          2453  0317002455 +                      NZ     X7,SUP5A    IF (R2,R3)[RW] " 0                          GRA      3987
                          11423                   BX4    X2*X3                                                   GRA      3988
          2454  0304002500 +                      ZR     X4,SUP10    IF ^(CON,AC,PL)[CAW]  */ PRELOAD NOT NEC    GRA      3989
                                                                                                                 GRA      3990
          2455  0100002543 +             SUP5A    RJ     LIV         LIV(J)                                      GRA      3991
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE    97
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
          2456  7166777773                        SX6    B6-4                                                    GRA      3992
                          5160000230 C            SA6    RR          RR = MI-4                                   GRA      3993
          2457  73500                             SX5    X0          J = R2[RW]                                  GRA      3994
                     0305002465 +                 ZR     X5,SUP6     IF J = 0                                    GRA      3995
          2460  0100002543 +                      RJ     LIV         LIV( J )                                    GRA      3996
          2461  5110000230 C                      SA1    RR          ORN = RR                                    GRA      3997
                          7126777773              SX2    B6-4                                                    GRA      3998
          2462  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
          2465  20052                    SUP6     LX0    RA.R2P-RA.R3P                                           GRA      4003
                     73500                        SX5    X0          J = R3[RW]                                  GRA      4004
                          0305002471 +            ZR     X5,SUP7     IF J = 0                                    GRA      4005
          2466  5110000230 C                      SA1    RR                                                      GRA      4006
                          73401                   SX4    X0+B1                                                   GRA      4007
                               63310              SB3    X1                                                      GRA      4008
          2467  0100002626 +                      RJ     SIV         SIV( J , RF = RR )                          GRA      4009
          2470  0400002477 +                      EQ     SUP9                                                    GRA      4010
                                                                                                                 GRA      4011
                                        *         TRANSFER THE RESULT TO A B-REGISTER , IF NECESSARY             GRA      4012
                                                                                                                 GRA      4013
          2471  7116777773               SUP7     SX1    B6-4                                                    GRA      4014
                          53517                   SA5    B7+X1       R1 = MB + MI-4                              GRA      4015
                               26625              UX6    B2,X5                                                   GRA      4016
          2472  5045000002                        SA4    A5+2        DI = R1 + 2                                 GRA      4017
                          20430                   LX4    59-D.LDP                                                GRA      4018
          2473  0334002475 +                      MI     X4,SUP8     IF LD[DI]                                   GRA      4019
                          7162777740              SX6    B2-OC.IS                                                GRA      4020
          2474  0316002477 +                      NZ     X6,SUP9     IF OC " OC.IS                               GRA      4021
                                                                                                                 GRA      4022
          2475  43700                    SUP8     MX7    0                                                       GRA      4023
                     76660                        TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                         GRA      4024
                                                                                                                 GRA      4025
          2477  0100002371 +             SUP9     RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                   GRA      4026
                                                                                                                 GRA      4027
          2500  67551                    SUP10    SB5    B5-B1       I = I - 1                                   GRA      4028
                     0550002450 +                 NZ     B5,SUP5     IF I " 0                                    GRA      4029
  
                                        *         NOW SETUP PRELOADS FOR THE X-REGISTERS                         GRA      4031
                                                                                                                 GRA      4032
                               43005              MX0    5                                                       GRA      4033
          2501  6150000020                        SB5    20B         I = 20B                                     GRA      4034
                          20073                   LX0    -1          LDREG = 37BS54  */ LD-REG FLAG              GRA      4035
                                                                                                                 GRA      4036
          2502  5155000100 C             SUP12    SA5    RAT+B5      J = RAT(I)    */ *R1* ONLY                  GRA      4037
                          0305002511 +            ZR     X5,SUP14    IF RAT(I) = 0                               GRA      4038
                                                                                                                 GRA      4039
          2503  53154                             SA1    B4+X5       CAW = RCT(J)                                GRA      4040
                     5120002402 +                 SA2    SUPA                                                    GRA      4041
                               11721              BX7    X2*X1                                                   GRA      4042
          2504  0307002511 +                      ZR     X7,SUP14    IF ^(CON,PL,AC)[CAW]  */ PRELD NOT NECESS   GRA      4043
                                                                                                                 GRA      4044
                          0100002543 +            RJ     LIV         LIV( J )                                    GRA      4045
          2505  0330002510 +                      MI     X0,SUP13    IF LDREG < 0  */ RS IS TO A *LD* REG        GRA      4046
                          7116777773              SX1    B6-4                                                    GRA      4047
          2506  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/05. 19.57.27.      PAGE    98
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                                                                                                 GRA      4049
          2510  0100002371 +             SUP13    RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                   GRA      4050
                                                                                                                 GRA      4051
          2511  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
          2512  0336002502 +                      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
          2513  7201777767                        SX0    X1-8        II = L.SEQ-8                                GRA      4060
                          76660                   SX6    B6                                                      GRA      4061
                               20044              LX0    ML.IIP                                                  GRA      4062
          2514  5160000000 X                      SA6    L.MOD       L.MOD = MI                                  GRA      4063
                          7120000004              SX2    4                                                       GRA      4064
          2515  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
          2516  5150000000 X                      SA5    O.SEQ       HBA = O.SEQ                                 GRA      4070
                          0306002522 +            ZR     X6,SUP15    IF NI = 0     */ NO MODS                    GRA      4071
                                                                                                                 GRA      4072
          2517  5100000000 X                      ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,NI,4) )              GRA      4073
          2520  43601                             MX6    1                                                       GRA      4074
                     0100000000 X                 CALL   MPB#        MERGE MODS WITH *HB*, SQUEEZE AND REWRITE   CCGNC     659
                                                                                                                 GRA      4076
          2521  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
          2522  5110000000 X             SUP15    SA1    O.TET                                                   FCC0675   182
                          5120000014 C            SA2    ITL                                                     FCC0675   183
          2523  5130000000 X                      SA3    L.TET                                                   FCC0675   184
                          63220                   SB2    X2          I = ITL                                     FCC0675   185
                               63630              SB6    X3          L = L.TET                                   FCC0675   186
          2524  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
          2525  0426002530 +                      EQ     B2,B6,SUP17 IF ITL = L.TET  */ NO IT. S CREATED         FCC0675   191
                                                                                                                 FCC0675   192
          2526  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
          2527  0726002526 +                      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
          2530  5110000000 X             SUP17    SA1    =XHBI                                                   FCC0675   201
                          6140000004              SB4    4                                                       FCC0675   202
          2531  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/05. 19.57.27.      PAGE    99
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                                                                                                 FCC0675   206
          2532  26625                    SUP18    UX6    B2,X5       OC = OC[R1]                                 FCC0675   207
                     54554                        SA5    A5+B4       R1 = R1 + 4                                 FCC0675   208
                          0420002536 +            ZR     B2,SUP19    IF OC = OC.EOQ  */ END OF BLOCK             FCC0675   209
          2533  0523002532 +                      NE     B2,B3,SUP18 IF OC " OC.TST                              FCC0675   210
                                                                                                                 FCC0675   211
                          5045777774              SA4    A5-3        R2 = R1 - 3                                 FCC0675   212
          2534  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
          2535  54630                             SA6    A3                                                      FCC0675   217
                     0400002532 +                 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
          2536  67661                    SUP19    SB6    B6-B1       L = L - 1                                   FCC0675   223
                     56456                        SA4    B5+B6                                                   FCC0675   224
                          0767002540 +            LT     B6,B7,SUP20 IF L < ITL                                  FCC0675   225
          2537  15640                             BX6    -X0*X4                                                  FCC0675   226
                     0306002536 +                 ZR     X6,SUP19    IF HBN[TET(L)] = 0  */ NOT MATERIALIZED     FCC0675   227
                                                                                                                 FCC0675   228
          2540  5110000000 X             SUP20    SA1    =XN.GT                                                  FCC0675   229
                          76661                   SX6    B6+B1       L.TET = L + 1                               FCC0675   230
                               37216              IX2    X1-X6                                                   FCC0675   231
          2541  5160000000 X                      SA6    L.TET                                                   FCC0675   232
                          0332002403 +            MI     X2,SUP      N.GT = MIN( N.GT , L.TET )                  FCC0675   233
          2542  54610                             SA6    A1                                                      FCC0675   234
                     0400002403 +                 EQ     SUP                                                     FCC0675   235
  
  
  
                                        **        LIV - LOAD INITIAL VALUE                                       GRA      4116
                                        *                                                                        GRA      4117
                                        *         ENTRY  (X5) = J , *RCT* ORDINAL OF CANIDATE                    GRA      4118
                                                                                                                 GRA      4119
          2543  0200402543 +             LIV      ROUTINE                                                        GRA      4120
          2544  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
          2545  0321002553 +                      PL     X1,LIV2     IF ^CON[CAW]                                GRA      4125
                                                                                                                 GRA      4126
                          6120000055              SB2    OC.S                                                    GRA      4127
          2546  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
          2547  0322002551 +                      PL     X2,LIV1     IF ^MSK[C2W]                                GRA      4133
                          6120000043              SB2    OC.FMA                                                  GRA      4134
          2550  0316002551 +                      NZ     X6,LIV1     IF IN[R1] " 0                               GRA      4135
                          6120000105              SB2    OC.CLR                                                  GRA      4136
                                                                                                                 GRA      4137
          2551  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/05. 19.57.27.      PAGE   100
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      LIV 
  
                          0100000000 X            RJ     SRI         SRI(  S/FMA/CLR  CA[C2W],MI )               GRA      4140
          2552  0400002543 +                      EQ     LIV                                                     GRA      4141
                                                                                                                 GRA      4142
          2553  20172                    LIV2     LX1    CA.CONP-CA.VCP                                          GRA      4143
                     0331002556 +                 MI     X1,LIV3     IF VC[CAW]                                  GRA      4144
                                                                                                                 GRA      4145
                               66300              SB3    B0          RF = 0                                      GRA      4146
          2554  73451                             SX4    X5+B1                                                   GRA      4147
                     0100002626 +                 RJ     SIV         SIV( J )                                    GRA      4148
          2555  0400002543 +                      EQ     LIV                                                     GRA      4149
                                                                                                                 GRA      4150
                                        *         *VC* - OUPUT *LD* OF INITIAL VALUE                             GRA      4151
                                                                                                                 GRA      4152
          2556  20230                    LIV3     LX2    -IH.RFP                                                 GRA      4153
                     63320                        SB3    X2          R = RF[C2W]                                 GRA      4154
                          0613002561 +            LE     B3,B1,LIV4  IF R @ 1                                    GRA      4155
          2557  76430                             SX4    B3                                                      GRA      4156
                     66300                        SB3    B0                                                      GRA      4157
                          0100002563 +            RJ     OIL         OIL( J = RF[C2W] , RF = 0 )                 GRA      4158
          2560  6136777773                        SB3    B6-4        RF = MI - 4                                 GRA      4159
                                                                                                                 GRA      4160
          2561  73450                    LIV4     SX4    X5                                                      GRA      4161
                     0100002563 +                 RJ     OIL         OIL( J , R )                                GRA      4162
          2562  0400002543 +                      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
          2563  0200402563 +             OIL      ROUTINE                                                        GRA      4172
          2564  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
          2565  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
          2566  21266                             AX2    IH.SLVP                                                 CCG16     221
                     5232002622 +                 SA3    OILA+X2                                                 CCG16     222
                               63230              SB2    X3          OC = OILA(SLV[C2W])                         CCG16     223
          2567  0431002617 +                      EQ     B3,B1,OIL5  IF RF = 1                                   GRA      4182
                                                  LX1    59-CA.RAP                                               GRA      4183
                          0321002605 +            PL     X1,OIL2     IF ^RA[CAW]   */ NOT ASSIGNED TO A REG      GRA      4184
          2570  0312002605 +                      NZ     X2,OIL2     IF LSV[C2W] " 0  */ LDC OR LDV              CCG21      67
                          0530002605 +            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
          2571  6120000075                        SB2    OC.ILD                                                  GRA      4189
                          0306002602 +            ZR     X6,OIL1     IF U = 0      */ COMPILER TEMPORARY         GRA      4190
          2572  5130000000 C                      SA3    O.UDT                                                   FCC1646X    1
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   101
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      OIL 
  
                          63360                   SB3    X6                                                      FCC1646X    2
                               53433              SA4    X3+B3       UI = UDT(U)                                 FCC1646X    3
          2573  20450                             LX4    59-UD.CMP                                               FCC1646X    4
                     0324002577 +                 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
          2574  53443                             SA4    B3+X4       UB = UDT(BMI[UI]+1)                         FCC1646X   11
                     5130000005 C                 SA3    UVA                                                     FCC1646X   12
                               63340              SB3    X4                                                      FCC1646X   13
          2575  53333                             SA3    X3+B3       UVW = UVA(WI[UB])                           FCC1646X   14
                     26434                        UX4    B3,X4                                                   FCC1646X   15
                          6133777704              SB3    B3-59                                                   FCC1646X   16
          2576  23333                             LX3    -B3                                                     FCC1646X   17
                     0333002601 +                 MI     X3,OIL1A    IF SHIFT(UVW,59-BN) < 0  */ BASE USED       FCC1646X   18
                                                                                                                 FCC1646X   19
          2577  10311                    OIL0     BX3    X1                                                      FCC1646X   20
                     20350                        LX3    CA.RAP-CA.LXP                                           GRA      4192
                          0323002605 +            PL     X3,OIL2     IF ^LX[CAW]   */ DEAD ON EXIT               GRA      4193
          2600  20371                             LX3    CA.LXP-CA.PSPP                                          GRA      4194
                     0333002605 +                 MI     X3,OIL2     IF PSP[CAW]   */ POST STORE POSSIBLE        GRA      4195
          2601  6120000050               OIL1A    SB2    OC.LD       OC = OC.LD                                  FCC1646X   21
                          0400002605 +            EQ     OIL2                                                    GRA      4197
                                                                                                                 GRA      4198
          2602  20252                    OIL1     LX2    -IH.CAP                                                 GRA      4199
                     5130000014 C                 SA3    ITL                                                     GRA      4200
                               73220              SX2    X2                                                      GRA      4201
          2603  37423                             IX4    X2-X3                                                   GRA      4202
                     0324002605 +                 PL     X4,OIL2     IF CA[C2W] \ ITL  */ CREATED IN THIS LOOP   GRA      4203
          2604  6120000076                        SB2    OC.TLD      OC = OC.TLD                                 GRA      4204
                                                                                                                 GRA      4205
          2605  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
          2606  0321002607 +                      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
          2607  6237767777               OIL3     SB3    X7-1S12                                                 FCC0882     7
                          7110000000              SX1    0           DB = 0                                      FCC0882     8
          2610  0630002613 +                      PL     B3,OIL4     IF IH[R2W] > 1S12  */ LVL2 OR SUCH          FCC0882     9
                          63370                   SB3    X7                                                      FCC0882    10
                               76233              SX2    B3+B3                                                   CCG1      117
          2611  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
          2612  11132                             BX1    X3*X2                                                   GRA      4221
                     20125                        LX1    D.FPP       FP[DB] = FP[WORDB]                          GRA      4222
                                                                                                                 GRA      4223
          2613  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/05. 19.57.27.      PAGE   102
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      OIL 
  
                               56676              SA6    B7+B6       MOD(MI) = TYII(OC,U,0,MI)                   GRA      4226
          2614  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
          2615  54761                             SA7    A6+B1       MOD(MI+3) = 0                               GRA      4231
                     6166000004                   SB6    B6+4        MI = MI + 4                                 GRA      4232
          2616  0400002563 +                      EQ     OIL                                                     GRA      4233
                                                                                                                 GRA      4234
                                        *         SPECIAL CASE, RF = 1 AND IH = 0                                GRA      4235
                                                                                                                 GRA      4236
          2617  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
          2620  0312002613 +                      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
          2621  0400002613 +                      EQ     OIL4                                                    GRA      4244
                                                                                                                 CCG16     225
          2622  00000000000000000050     OILA     CON    OC.LD,OC.LDC,OC.LDV                                     CCG16     226
          2623  00000000000000000103
          2624  00000000000000000104
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2625  73620                    SIV0     SX6    X2                                                      GRA      4254
                     76730                        SX7    B3                                                      GRA      4255
                          0100002710 +            RJ     OSI         OSI(  STT  R,RF,CAIH,H2 )                   GRA      4256
                                                                                                                 GRA      4257
          2626  0200402626 +             SIV      ROUTINE                                                        GRA      4258
          2627  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
          2630  15117                             BX1    -X7*X1      CAIH = CAIH[C2W]                            GRA      4263
                     63220                        SB2    X2          H2 = H2[CCW]                                GRA      4264
                          0420002625 +            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
          2631  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
          2632  63260                             SB2    X6                                                      CCG1      125
                     0420002642 +                 ZR     B2,SIV1     IF IH[C2W]  = 0  */ NEG RELOC NOT ALLOWED   CCG1      126
                               63212              SB2    B2+X1                                                   CCG1      127
          2633  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
          2634  0336002625 +                      MI     X6,SIV0     IF LAB[WORDB] ! LAB[WORDB2]  */ LAB DIFF    CCG16     228
                          20657                   LX6    WB.LABP-WB.FPP                                          CCG16     229
          2635  0336002642 +                      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
          2636  15667                             BX6    -X7*X6                                                  CCG1      134
                     0306002625 +                 ZR     X6,SIV0     IF ^( CX[WORDB] ! CX[WORDB2] )              CCG16     230
                               54331              SA3    A3+B1       WORDC2 = WORDB2 + 1                         CCG16     231
          2637  54441                             SA4    A4+B1       WORDC = WORDB + 1                           CCG16     232
                     13734                        BX7    X3-X4                                                   CCG1      136
                          5140002707 +            SA4    SIVA                                                    GRA      4280
          2640  11647                             BX6    X4*X7                                                   GRA      4281
                     0306002625 +                 ZR     X6,SIV0     IF (RL,RB)[WORDC] = (RL,RB)[WORDC2]         CCG16     233
                                                                                                                 GRA      4283
                               43300              MX3    0           C = 0                                       GRA      4284
          2641  0400002643 +                      EQ     SIV2                                                    GRA      4285
                                                                                                                 GRA      4286
          2642  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
          2643  43700                    SIV2     MX7    0           F = 0                                       GRA      4291
                     76600                        SX6    B0          H2 = 0                                      GRA      4292
                          0100002710 +            RJ     OSI         OSI(  STT  R,,CAIH )                        GRA      4293
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   104
        SIV - SET INITIAL VALUE                                       SIV 
  
          2644  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
          2645  0100002710 +                      RJ     OSI         OSI(  STT  R,,H2[CCW] )                     GRA      4297
          2646  13625                             BX6    X2-X5                                                   FCC0912     9
                     7116777767                   SX1    B6-8        RJ = MI - 8   */ OPERANDS OF *IS*           FCC0912    10
          2647  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
          2650  0324002662 +                      PL     X4,SIV2AC   IF NOT HO$ARGC                              CCG0071     9
                          63217                   SB2    X1+B7                                                   CCG0071    10
          2651  5142000002                        SA4    B2+2                                                    CCG0071    11
                          20446                   LX4    59-D.FPP                                                CCG0071    12
          2652  0324002655 +                      PL     X4,SIV2AA   IF NOT FP[DJ]                               CCG0071    13
                          73410                   SX4    X1          J = RJ                                      CCG0071    14
                               76160              SX1    B6          RJ = MI                                     CCG0071    15
          2653  76660                             TYPEI  SA,B6,X4    SRI(  SA  MI,J )                            CCG0071    16
                                                                                                                 CCG0071    17
          2655  63227                    SIV2AA   SB2    X2+B7                                                   CCG0071    18
                     5142000002                   SA4    B2+2                                                    CCG0071    19
                               20446              LX4    59-D.FPP                                                CCG0071    20
          2656  0324002670 +                      PL     X4,SIV2C    IF NOT FP[DK]                               CCG0071    21
                          73420                   SX4    X2          J = RK                                      CCG0071    22
                               76260              SX2    B6          RK = MI                                     CCG0071    23
          2657  73620                             TYPEI  SA,X2,X4    SRI(  SA  MI,J )                            CCG0071    24
          2661  0400002670 +                      EQ     SIV2C                                                   CCG0071    25
                                                                                                                 CCG0071    26
          2662                           SIV2AC   BSS    0                                                       CCG0071    27
                                         .FTN     ENDIF                                                          CCG0071    28
                                         #DAL     IFNE   .DAL,0                                                  FCC0912    12
          2662  0306002670 +                      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
          2663  0315002665 +                      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
          2664  0400002666 +                      EQ     SIV2B                                                   FCC0912    22
          2665  73420                    SIV2A    SX4    X2          J = RK        */ RK IS FP&L2                FCC0912    23
                     76260                        SX2    B6          RK = MI                                     FCC0912    24
          2666  76660                    SIV2B    TYPEI  B2,B6,X4    SRI(  SA  MI,J )                            FCC0912    25
                                         #DAL     ENDIF                                                          FCC0912    26
                                                                                                                 FCC0912    27
          2670  76660                    SIV2C    TYPEI  IS,B6,X1,X2 SRI(  IS  MI,RJ,RK )                        FCC0912    28
          2673  0303002677 +                      ZR     X3,SIV3     IF C = 0                                    GRA      4301
                                                                                                                 GRA      4302
                          10133                   BX1    X3                                                      GRA      4303
          2674  7176777773                        SX7    B6-4        F = MI - 4                                  GRA      4304
                          43600                   MX6    0           H2 = 0                                      GRA      4305
          2675  0100002710 +                      RJ     OSI         OIS(  STT  R,F,C )                          GRA      4306
          2676  0430002626 +                      ZR     B3,SIV      IF RF = 0                                   GRA      4307
                                                                                                                 GRA      4308
          2677  0430002703 +             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/05. 19.57.27.      PAGE   105
        SIV - SET INITIAL VALUE                                       SIV 
  
          2700  76330                             SX3    B3                                                      GRA      4311
                     76660                        TYPEI  IA,B6,X2,X3 SRI(  IA  MI,MI-4,RF )                      GRA      4312
                                                                                                                 GRA      4313
          2703  7126777773               SIV4     SX2    B6-4                                                    GRA      4314
                          76660                   TYPEI  SA,B6,X2    SRI(  SA  MI,MI-4 )                         GRA      4315
          2706  0400002626 +                      EQ     SIV                                                     GRA      4316
                                                                                                                 GRA      4317
          2707                           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
          2710  0200402710 +             OSI      ROUTINE                                                        GRA      4331
          2711  20744                             LX7    IH.RFP                                                  GRA      4332
                     12717                        BX7    X1+X7                                                   GRA      4333
                          20622                   LX6    R1.H2P                                                  GRA      4334
                               76460              SX4    B6                                                      GRA      4335
          2712  12646                             BX6    X4+X6                                                   GRA      4336
                     22417                        LX4    B1,X7                                                   GRA      4337
                          63240                   SB2    X4                                                      GRA      4338
                               63272              SB2    B2+X7                                                   CCG1      138
          2713  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
          2714  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
          2715  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
          2716  20125                             LX1    D.FPP       FP[DB] = FP[WORDB]                          GRA      4344
                     6120000052                   SB2    OC.STT                                                  GRA      4345
                               27626              PX6    B2,X6                                                   GRA      4346
          2717  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
          2720  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
          2721  6166000004                        SB6    B6+4        MI = MI + 4                                 GRA      4353
                          0400002710 +            EQ     OSI                                                     GRA      4354
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2722  0200402722 +             SXC      ROUTINE                                                        GRA      4362
          2723  5110000233 C                      SA1    NPS                                                     GRA      4363
                          5120000032 C            SA2    N.ENL                                                   GRA      4364
          2724  0301002761 +                      ZR     X1,SXC7     IF NPS = 0                                  GRA      4365
                          5140000033 C            SA4    EPSI                                                    FCC0985    15
          2725  37324                             IX3    X2-X4                                                   FCC0985    16
                     0303002761 +                 ZR     X3,SXC7     IF N.ENL = EPSI  */ NO EXIT NODE POST ST"S  FCC0985    17
                                                                                                                 FCC0985    18
                               73011              SX0    X1+B1                                                   FCC0985    19
          2726  42102                             IX1    X0*X2                                                   GRA      4373
                     7211000024                   ALLOC  PSI,X1+20   ALLOC( PSI , N.ENL*(NPS+1) + 20 )           GRA      4374
          2730  5130000000 C                      SA3    O.UDT                                                   GRA      4375
                          5140000000 X            SA4    O.RCT                                                   GRA      4376
          2731  5150000000 X                      SA5    O.RXI                                                   GRA      4377
                          63626                   SB6    X2+B6       PO = O.PSI + OLD(L.PSI)                     GRA      4378
                               63720              SB7    X2                                                      GRA      4379
          2732  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
          2733  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
          2734  20502                             LX5    59-E.ALLPP                                              GRA      4391
                     0325002744 +                 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
          2735  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
          2736  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
          2737  6122777704                        SB2    B2-59                                                   GRA      4403
                          23622                   LX6    -B2,X2                                                  GRA      4404
          2740  0326002743 +                      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
          2741  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/05. 19.57.27.      PAGE   107
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
          2742  12762                             BX7    X6+X2                                                   GRA      4415
                     54771                        SA7    A7+B1       PI = PI + 1;  [PI] = PSI(REGNO,K,CAIH)      GRA      4416
                                                                                                                 GRA      4417
          2743  65201                    SXC4     SB2    A0-B1                                                   GRA      4418
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      4419
                          0520002735 +            NZ     B2,SXC3     IF I > 0                                    GRA      4420
                                                                                                                 GRA      4421
                                        *         SETUP HEADER WORD, AND POINT *BIT* ENTRY TO *PSI* LIST.        GRA      4422
                                                                                                                 GRA      4423
          2744  75676                    SXC5     SX6    A7-B6       N = PI - PO                                 GRA      4424
                     0306002755 +                 ZR     X6,SXC6     IF N = 0      */ NO STORES TO THIS BLOCK    GRA      4425
                                                                                                                 GRA      4426
                               43755              MX7    -E.BIL                                                  GRA      4427
          2745  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
          2746  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
          2747  15723                             BX7    -X3*X2      OPI = PII[BIW]                              GRA      4435
                     0307002753 +                 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
          2750  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
          2751  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
          2752  0520002751 +                      NZ     B2,SXC5A    IF J " 0                                    GRA      4449
                                                                                                                 GRA      4450
          2753  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
          2754  12724                             BX7    X2+X4       PII[BIT(BN)] = PO - PSI                     GRA      4455
                     20744                        LX7    BI.PIIP                                                 GRA      4456
                          5072000000              SA7    A2+                                                     GRA      4457
                                                                                                                 GRA      4458
          2755  5110000000 X             SXC6     SA1    BVL                                                     GRA      4459
                          63666                   SB6    B6+X6       PO = PO + N                                 GRA      4460
                               63211              SB2    X1+B1                                                   GRA      4461
          2756  56552                             SA5    B5+B2       RI = RB + BVL+1                             GRA      4462
                     0315002733 +                 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
          2757  5160000000 X                      SA6    L.PSI                                                   GRA      4466
                                                                                                                 GRA      4467
          2760  0100000000 X                      TRACE  SXC,PSI                                                 GRA      4468
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          2761  5110000000 X             SXC7     SA1    =XHO$OPT                                                CCGNC     660
                          0321002722 +            PL     X1,SXC      IF HO$OPT " 2                               CCGNC     661
                                                                                                                 FCC1491X    7
          2762  5150000000 X                      SA5    O.RCT                                                   FCC1491X    8
                          5110000164 C            SA1    LCT                                                     GRA      4476
          2763  5120000000 C                      SA2    O.UDT                                                   GRA      4477
                          5130000004 C            SA3    LUV                                                     GRA      4478
          2764  5140000007 C                      SA4    LEA                                                     GRA      4479
                          63421                   SB4    X2+B1       (B4) = [O.UDT] + 1                          GRA      4480
                               63210              SB2    X1                                                      GRA      4481
          2765  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
          2766  0520002770 +                      NZ     B2,SXC9     IF LCT " 0    */ NO USER EXT REFS           GRA      4486
                          0400002722 +            EQ     SXC                                                     FCC0675   236
                                                                                                                 GRA      4488
          2767  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
          2770  5055777774               SXC9     SA5    A5-3        CI = CI - 3                                 GRA      4494
                          0305003001 +            ZR     X5,SXC11    IF [CI] = 0   */ END OF TABLE               FCC0914     5
          2771  63250                             SB2    X5          K = UDI[CI]                                 GRA      4496
                     0420002770 +                 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
          2772  20551                             LX5    59-CA.KDP                                               GRA      4500
                     26724                        UX7    B2,X4       B = BITN[U2]                                GRA      4501
                          0335002777 +            MI     X5,SXC10    IF KD[CI]     */ USELESS INCREMENT          GRA      4502
                                                                                                                 GRA      4503
          2773  20526                             LX5    CA.KDP-CA.ACP                                           GRA      4504
                     0335002767 +                 MI     X5,SXC8     IF AC[CI]                                   GRA      4505
                               20571              LX5    CA.ACP-CA.RAP                                           GRA      4506
          2774  0325002767 +                      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
          2775  0325002770 +                      PL     X5,SXC9     IF ^DEF[CI]                                 FCC0392   138
                          20573                   LX5    CA.DEFP-CA.PSPP                                         FCC0392   139
          2776  0325002767 +                      PL     X5,SXC8     IF ^PSP[CI]   */ STORED IN THE LOOP         FCC0392   140
                          0400002770 +            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
          2777  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/05. 19.57.27.      PAGE   109
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
          3000  0400002770 +                      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
          3001  5110000006 C             SXC11    SA1    LXA                                                     FCC0914    10
                          5120000000 X            SA2    BVL                                                     FCC0914    11
          3002  5150000011 C                      SA5    SVA                                                     FCC0914    12
                          63321                   SB3    X2+B1       VL = BVL + 1                                FCC0914    13
                               66200              SB2    B0          I = 0                                       FCC0914    14
          3003  53110                             SA1    X1                                                      FCC0914    15
                     63750                        SB7    X5                        (B7) = SVA                    FCC0914    16
                                                                                                                 FCC0914    17
          3004  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
          3005  54111                             SA1    A1+B1                                                   FCC0914    22
                     0723003004 +                 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
          3006  66200                             SB2    B0          I = 0                                       FCC0914    29
                     7100000003                   SX0    3           BO = 4 - 1    */ UDT OFFSET                 FCC0914    30
                                                                                                                 FCC0914    31
          3007  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
          3010  47677                             CX6    X7                                                      FCC0914    36
                     0306003021 +                 ZR     X6,SXC17    IF COUNT(VD) = 0                            FCC0914    37
                                                                                                                 FCC0914    38
          3011  0100003023 +             SXC14    RJ     FLB         J = FLB(VD)                                 FCC0914    39
          3012  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
          3013  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
          3014  0323003017 +                      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
          3015  26664                             UX6    B6,X4       B = BITN[U2]                                FCC0914    52
                     6166777704                   SB6    B6-59                                                   FCC0914    53
                               23665              LX6    -B6,X5                                                  FCC0914    54
          3016  0336003020 +                      MI     X6,SXC16    IF SHIFT(SVW,59-B) < 0  */ BASE MEM REFED   FCC0914    55
                                                                                                                 FCC0914    56
          3017  15221                    SXC15    BX2    -X1*X2      LE(I) = LE(I) & ^SHIFT(1,J)                 FCC0914    57
                                                                                                                 FCC0914    58
          3020  0317003011 +             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/05. 19.57.27.      PAGE   110
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
                               54620              SA6    A2                                                      FCC0914    61
                                                                                                                 FCC0914    62
          3021  7200000170               SXC17    SX0    X0+120      BO = BO + 120                               FCC0914    63
                          6122000001              SB2    B2+1        I = I + 1                                   FCC0914    64
          3022  0723003007 +                      LT     B2,B3,SXC13 IF I < VL                                   FCC0914    65
                                                                                                                 FCC0914    66
                          0400002722 +            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
          3023  0200403023 +             FLB      ROUTINE                                                        FCC0914    77
          3024  43514                             MX5    12                                                      FCC0914    78
                     11657                        BX6    X5*X7       T12 = MASK(12) & WORD                       FCC0914    79
                          0306003027 +            ZR     X6,FLB1     IF T12 = 0                                  FCC0914    80
          3025  20660                             LX6    -12                                                     FCC0914    81
                     6150000073                   SB5    59                                                      FCC0914    82
                               27606              PX6    X6                                                      FCC0914    83
          3026  24566                             NX5    B6,X6                                                   FCC0914    84
                     67556                        SB5    B5-B6       SC = 59-NORMC(PACK(0,SHIFT(T12,-12)))       FCC0914    85
                          0400003023 +            EQ     FLB                                                     FCC0914    86
                                                                                                                 FCC0914    87
          3027  27607                    FLB1     PX6    X7                                                      FCC0914    88
                     6150000057                   SB5    47                                                      FCC0914    89
                               24566              NX5    B6,X6                                                   FCC0914    90
          3030  67556                             SB5    B5-B6       SC = 47-NORMC(PACK(0,WORD))                 FCC0914    91
                     0400003023 +                 EQ     FLB                                                     FCC0914    92
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3031                           CLBA     BFMW   CA,(VC,PSP,LX,DEF)                                      FCC0535    12
          3032                           CLBB     BFMW   CA,(VC,IA,RF)                                           FCC0651     5
                                                                                                                 GRA      4596
          3033  0200403033 +             CLB      ROUTINE                                                        GRA      4597
          3034  5110000205 C                      SA1    NAA                                                     GRA      4598
                          5120000173 C            SA2    NXC                                                     GRA      4599
          3035  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
          3036  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
          3037  5150000164 C                      SA5    LCT                                                     GRA      4610
                          5140000000 X            SA4    O.RCT                                                   GRA      4611
          3040  5110003032 +                      SA1    CLBB                                                    FCC0651     7
                          0305003054 +            ZR     X5,CLB1     IF LCT = 0    */ NO CANIDATES               GRA      4613
          3041  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
          3042  5055777774               AUM1     SA5    A5-3        CI = CI - 3                                 GRA      4619
                          0305003054 +            ZR     X5,CLB1     IF [CI] = 0   */ END OF *RCT*               GRA      4620
          3043  16651                             BX6    -X1+X5                                                  GRA      4621
                     0316003042 +                 NZ     X6,AUM1     IF ^(VC,IA,RF)[CI]                          FCC0651     8
          3044  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
          3045  21603                             AX6    3                                                       FCC1626     4
                     53346                        SA3    B6+X4       CJ = RCT(INC[CCW])                          GRA      4625
                                                  LX3    59-CA.RAP                                               GRA      4626
                          0303003042 +            ZR     X3,AUM1     IF [CJ] = 0   */ INC[CCW] = 0               GRA      4627
                                                  LX5    59-CA.RAP                                               FCC0651     9
          3046  0325003053 +                      PL     X5,AUM3     IF ^RA[CI]    */ INC VAR NOT IN A B-REG     FCC0651    10
                                                  LX5    1+CA.RAP                                                FCC0651    11
                          0316003053 +            NZ     X6,AUM3     IF REG1[CCW] \ 20B  */ INC VAR IN AN X-REG  FCC1626     5
          3047  20445                             LX4    CC.INCP+59-CC.I2P                                       GRA      4628
                     0334003052 +                 MI     X4,AUM2     IF I2[CCW]                                  GRA      4629
          3050  0323003052 +                      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/05. 19.57.27.      PAGE   112
        CLB - CODE LOOP BODY                                          CLB 
  
          3051  15630                             BX6    -X0*X3                                                  GRA      4633
                     21603                        AX6    3                                                       GRA      4634
                          0306003042 +            ZR     X6,AUM1     IF REG1[CCWJ] < 7  */ INC IN A B-REG        GRA      4635
                                                                                                                 GRA      4636
          3052  12675                    AUM2     BX6    X7+X5       EU[CI] = 1                                  GRA      4637
                     54650                        SA6    A5                                                      GRA      4638
                          0400003042 +            EQ     AUM1                                                    GRA      4639
                                                                                                                 FCC0651    12
                                         AUM3     LX3    1+CA.RAP                                                FCC0651    13
          3053  12673                             BX6    X7+X3       EU[CJ] = 1    */ FORCE INC VAL TO BE *EU*   FCC0651    14
                     54630                        SA6    A3                                                      FCC0651    15
                          0400003042 +            EQ     AUM1                                                    FCC0651    16
  
  
                                        *         INITIALIZE FLAGS                                               GRA      4641
                                                                                                                 GRA      4642
          3054  76611                    CLB1     SX6    B1+B1                                                   GRA      4643
                     43700                        MX7    0                                                       GRA      4644
                          5160000000 X            SA6    BSI         BSI = 2                                     GRA      4645
          3055  5170000232 C                      SA7    MRU         MRU = 0       */ MACHINE REGS USED          GRA      4647
                          5170000000 X            SA7    L.PIT       L.PIT = 0                                   GRA      4648
          3056  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
          3057  5150000000 X                      SA5    O.RCT                                                   GRA      4654
                          5130000173 C            SA3    NXC                                                     GRA      4655
          3060  5110003031 +                      SA1    CLBA                                                    GRA      4656
                          66700                   SB7    B0          NPS = 0                                     GRA      4657
                               63650              SB6    X5                                                      GRA      4658
          3061  0313003062 +                      NZ     X3,CLB2     IF NXC " 0                                  GRA      4659
                          7120000007              SX2    7           I = 7                                       GRA      4660
                                                                                                                 GRA      4661
          3062  5252000100 C             CLB2     SA5    RAT+X2      J = R1[RAT(I)]                              GRA      4662
                          0305003066 +            ZR     X5,CLB3     IF RAT(I) = 0                               GRA      4663
          3063  53456                             SA4    B6+X5       CAW = RCT(J)                                GRA      4664
                     16641                        BX6    -X1+X4                                                  GRA      4665
                          0316003066 +            NZ     X6,CLB3     IF ^(VC[CAW]&PSP[CAW]&LX[CAW]&DEF[CAW])     FCC0535    13
                                                                                                                 GRA      4667
          3064  73350                             SX3    X5                                                      GRA      4668
                     20222                        LX2    18                                                      GRA      4669
                          12723                   BX7    X2+X3                                                   GRA      4670
                               20252              LX2    -18                                                     GRA      4671
          3065  5177000234 C                      SA7    PST+B7      PST(NPS) = SHIFT(I,18) ! J                  GRA      4672
                          6177000001              SB7    B7+1        NPS = NPS + 1                               GRA      4673
                                                                                                                 GRA      4674
          3066  7222777776               CLB3     SX2    X2-1        I = I - 1                                   GRA      4675
                          0312003062 +            NZ     X2,CLB2     IF I " 0                                    GRA      4676
                                                                                                                 GRA      4677
          3067  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
          3070  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/05. 19.57.27.      PAGE   113
        CLB - CODE LOOP BODY                                          CLB 
  
          3071  0100000000 X                      CALL   RTB#        READ BLOCK IN                               CCGNC     662
          3072  5110000000 X                      SA1    L.SEQ                                                   GRA      4686
                          0100001342 +            RJ     SLW         SAVE LINK WORDS                             GRA      4690
                                                                                                                 GRA      4691
          3073  0100003252 +                      CALL   IRA         INSERT REGISTER ASSIGNMENTS                 GRA      4692
                                                                                                                 FCC2051     9
          3074  5110000000 X                      SA1    L.TXT                                                   FCC2051    10
                          5120000250 C            SA2    DTL                                                     FCC2051    11
          3075  37312                             IX3    X1-X2                                                   FCC2051    12
                     0313003101 +                 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
          3076  5110000000 X                      SA1    O.BST                                                   FCCA509X   31
                          5120000000 X            SA2    BSI                                                     FCCA509X   32
          3077  43600                             MX6    0                                                       FCCA509X   33
                     36312                        IX3    X1+X2                                                   FCCA509X   34
                          53631                   SA6    X3+B1       BST(BSI+1) = 0                              FCCA509X   35
          3100  0400003137 +                      EQ     CLB10                                                   FCCA509X   36
                                                                                                                 FCCA509X   37
          3101                           CLB4A    BSS    0                                                       FCCA509X   38
                                                                                                                 FCC2051    14
          3101  0100000000 X                      TRACE  CLB,RLIST,SEQ                                           GRA      4693
          3106  0100000000 X                      TRACE  CLB,RLIST                                               GRA      4694
                                                                                                                 GRA      4695
          3113  0100001353 +                      RJ     RLW         RESTORE LINK WORDS                          GRA      4696
                                                                                                                 GRA      4697
          3114  0100004212 +                      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/05. 19.57.27.      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
          3115  5130000173 C                      SA3    NXC                                                     GRA      4742
                          0100003225 +            RJ     CIS         SET THE PARCEL COUNT AND CODE THE SEQUENCE  GRA      4743
          3116  0316003155 +                      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
          3117  0305003125 +                      ZR     X5,CLB9     IF MRA = 0    */ NO REGS AVAIL              GRA      4749
                                                                                                                 GRA      4750
                          5110000232 C            SA1    MRU                                                     GRA      4751
          3120  5120000000 X                      SA2    O.TXT                                                   GRA      4752
                          5130000000 X            SA3    L.TXT                                                   GRA      4753
          3121  5252000007                        SA5    X2+7        LI = O.TXT + 7                              GRA      4754
                          6140000004              SB4    4                                                       GRA      4755
          3122  6233777767                        SB3    X3-8        I = L.TXT - 8                               GRA      4756
                          76010                   SX0    B1                                                      GRA      4757
                               10611              BX6    X1                                                      GRA      4758
                                                                                                                 GRA      4759
          3123  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
          3124  54554                             SA5    A5+B4       LI = LI + 4                                 GRA      4764
                     0530003123 +                 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
          3125  5110000036 C             CLB9     SA1    PL                                                      GRA      4770
                          5120000000 X            SA2    L.PIT                                                   GRA      4771
          3126  5140000000 X                      SA4    =XPC                                                    GRA      4772
                          7130000000              SX3    0           CODEL = 0                                   GRA      4773
          3127  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
          3130  54610                             SA6    A1                                                      GRA      4778
                     20346                        LX3    BS.CLP                                                  GRA      4779
                          20444                   LX4    BS.PCP                                                  GRA      4780
                               12334              BX3    X3+X4                                                   GRA      4781
          3131  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/05. 19.57.27.      PAGE   115
        CLB - CODE LOOP BODY                                          CLB 
  
                               63551              SB5    X5+B1                                                   GRA      4784
          3132  53645                             SA6    B5+X4       BST(BSI+1) = BSW(CL,PC,LEN)                 GRA      4785
                     43700                        MX7    0                                                       GRA      4786
                          5110000173 C            SA1    NXC                                                     GRA      4787
          3133  0311003137 +                      NZ     X1,CLB10    IF NXC " 0    */ LOCKED X-MODE              GRA      4788
                          5110000205 C            SA1    NAA                                                     FCC0603    40
          3134  0311003137 +                      NZ     X1,CLB10    IF NAA " 0    */ LOCKED A-REGS              FCC0603    41
                                                                                                                 GRA      4789
                          5170000036 C            SA7    PL          PL = 0                                      GRA      4790
          3135  10466                             BX4    X6                                                      GRA      4791
                     55161                        SA1    A6-B1       BAW = BST(BSI)                              GRA      4792
                          0100003237 +            RJ     WSC         DUMP CODE                                   GRA      4793
          3136  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
          3137  5110000000 X             CLB10    SA1    BSI                                                     GRA      4799
                          5120000000 X            SA2    L.BST                                                   GRA      4800
          3140  7261000002                        SX6    X1+2        BSI = BSI + 2                               GRA      4801
                          7232777776              SX3    X2-1                                                    GRA      4802
          3141  37763                             IX7    X6-X3                                                   GRA      4803
                     54610                        SA6    A1                                                      GRA      4804
                          0337003070 +            MI     X7,CLB4     IF BSI < L.BST - 1                          GRA      4805
                                                                                                                 GRA      4806
          3142  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
          3143  5110000000 X                      SA1    L.PIT                                                   FCC0603    42
                          0301003033 +            ZR     X1,CLB      IF L.PIT = 0  */ NO SAVED CODE              FCC0603    43
          3144  76611                             SX6    B1+B1       BSI = 2                                     GRA      4814
                     43700                        MX7    0                                                       GRA      4815
                          5170000036 C            SA7    PL          PL = 0                                      GRA      4816
                                                                                                                 GRA      4817
          3145  5120000000 X             CLB11    SA2    O.BST                                                   GRA      4818
                          36762                   IX7    X6+X2                                                   GRA      4819
                               53170              SA1    X7          BAW = BST(BSI)                              GRA      4820
          3146  53471                             SA4    X7+B1       BSW = BST(BSI+1)                            GRA      4821
                     0301003153 +                 ZR     X1,CLB13    IF BAW = 0    */ END OF *BST*               GRA      4822
          3147  0304003152 +                      ZR     X4,CLB12    IF BST(BSI+1) = 0 */NOT CODED               FCCA509X   39
                          5160000000 X            SA6    BSI                                                     FCCA509X   40
          3150  0100003237 +                      RJ     WSC         WRITE SAVED CODE TO *BLK*                   GRA      4828
          3151  5110000000 X                      SA1    BSI                                                     GRA      4829
                          7261000000              SX6    X1+                                                     GRA      4830
          3152  7266000002               CLB12    SX6    X6+2        BSI = BSI + 2                               GRA      4831
                          0400003145 +            EQ     CLB11                                                   GRA      4832
                                                                                                                 GRA      4833
          3153  7160000000               CLB13    SX6    0                                                       GRA      4834
                          5160000000 X            SA6    L.PIT       L.PIT = 0                                   GRA      4835
          3154  0400003033 +                      EQ     CLB                                                     GRA      4836
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   116
        CLB - CODE LOOP BODY                                          CLB 
  
                                        *         *MCG* FAILED, REDUCE LOCKED X-REG COUNT AND TRY AGAIN.         GRA      4838
                                                                                                                 GRA      4839
          3155  5110000173 C             CLB14    SA1    NXC                                                     FCC0811     9
                          0301003163 +            ZR     X1,CLB17    IF NXC = 0                                  FCC0811    10
          3156  0100003201 +                      RJ     RXA         REMOVE LAST X-ASSIGNMENT                    FCC0811    11
          4562  00000000000000000000 X            PRINT  CLB,(* --- MCG FAIL ---*)                               GRA      4858
          3162  0400003054 +                      EQ     CLB1                                                    GRA      4859
  
  
                                        *         A-REGS LOCKED AND MCG FAILED, REDUCE *MARA* AND RESTART        FCC0603    48
                                                                                                                 FCC0603    49
          3163  7170003173 +             CLB17    CLCM   CLW         CLEAR LINK WORDS                            FCC0603    50
          3165  5110000205 C                      SA1    NAA                                                     FCC0603    51
                          7261777776              SX6    X1-1        MARA = NAA - 1                              FCC0603    52
          3166  5160000017 +                      SA6    MARA                                                    FCC0603    53
                          7170000004              SX7    4                                                       FCC0603    54
          3167  5170000000 X                      SA7    L.TXT       L.TXT = 4                                   FCC0603    55
                          7170000000              SX7    0                                                       FCC0603    56
          3170  5170000000 X                      SA7    L.PIT       L.PIT = 0                                   FCC0603    57
                          5170000000 X            SA7    L.RCT       L.RCT = 0                                   FCC0603    58
          3171  5170000024 C                      SA7    LUL+1       LUL(2) = 0                                  FCC0603    59
                          43644                   MX6    36                                                      FCC0603    60
                               14666              BX6    -X6                                                     FCC0603    61
          3172  5160000015 C                      SA6    MRA         MRA = ^MASK(36)                             FCC0603    62
                          0400000024 +            EQ     GRA0                                                    FCC0603    63
  
  
  
                                        **        CLW - CLEAR LINK WORDS OF A BLOCK                              FCC0603    65
                                                                                                                 FCC0603    66
          3173  0200403173 +             CLW      ROUTINE                                                        FCC0603    67
          3174  5110000000 X                      SA1    O.SEQ                                                   FCC0603    68
                          5120000000 X            SA2    L.SEQ                                                   FCC0603    69
          3175  6140000004                        SB4    4                                                       FCC0603    70
                          6221000003              SB2    X1+3        I = 3                                       FCC0603    71
          3176  36312                             IX3    X1+X2                                                   FCC0603    72
                     43600                        MX6    0                                                       FCC0603    73
                          63330                   SB3    X3                                                      FCC0603    74
                                                                                                                 FCC0603    75
          3177  56620                    CLW1     SA6    B2          SEQ(I) = 0                                  FCC0603    76
                     66224                        SB2    B2+B4       I = I + 4                                   FCC0603    77
                          0632003177 +            LE     B2,B3,CLW1  IF I < L.SEQ                                FCC0603    78
                                                                                                                 FCC0603    79
          3200  0400003173 +                      EQ     CLW                                                     FCC0603    80
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3201  0200403201 +             RXA      ROUTINE                                                        FCC0811    19
          3202  5130000000 X                      SA3    O.RCT                                                   FCC0811    20
                          5221000173 C            SA2    XCT-1+X1    J = CO[XCT(NXC)]                            FCC0811    21
          3203  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
          3204  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
          3205  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
          3206  7261777776                        SX6    X1-1        NXC = NXC - 1                               FCC0811    37
                          54610                   SA6    A1                                                      FCC0811    38
          3207  0302003201 +                      ZR     X2,RXA      IF REGN = 0                                 FCC0811    39
                          43700                   MX7    0                                                       FCC0811    40
          3210  5272000100 C                      SA7    RAT+X2      RAT(REGN) = 0                               FCC0811    41
                          5272000130 C            SA7    RVT+X2      RVT(REGN) = 0                               FCC0811    42
          3211  0400003201 +                      EQ     RXA                                                     FCC0811    43
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   118
        CXB - CODE EXTENDED BASIC BLOCK                               CXB 
  
                                        **        CXB - CODE EXTENDED BASIC BLOCK ( STRAIGHT LINE CODE )         GRA      4861
                                                                                                                 GRA      4862
          3212                           CXB      ENTRY. **,#                                                    CCGNC     663
          3213  5110000000 X                      SA1    L.SEQ                                                   GRA      4864
                          6221777767              SB2    X1-8                                                    GRA      4865
          3214  0602003212 +                      LE     B2,CXB      IF L.SEQ @ 8                                GRA      4866
                                                                                                                 GRA      4867
                          0100000000 X            CALL   AIS#        ASSIGN INDEX REGISTERS                      CCGNC     664
          3215  43600                             MX6    0                                                       GRA      4869
                     5160000036 C                 SA6    PL          PL = 0                                      GRA      4870
                               43300              MX3    0                                                       GRA      4871
          3216  0100003225 +                      RJ     CIS         SET *PC* AND CODE SEQUENCE                  GRA      4872
          3217  5110000000 X                      SA1    O.BST                                                   GRA      4873
                          5120000000 X            SA2    BSI                                                     GRA      4874
          3220  5130000000 X                      SA3    =XPC                                                    GRA      4875
                          5140000000 X            SA4    L.PIT                                                   GRA      4876
          3221  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
          3222  0100003237 +                      RJ     WSC         WRITE SAVED CODE TO *BLK*                   GRA      4881
          3223  7160000004                        SX6    4                                                       GRA      4882
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GRA      4883
          3224  5170000000 X                      SA7    L.PIT       L.PIT = 0                                   GRA      4884
                          0400003212 +            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
          3225  0200403225 +             CIS      ROUTINE                                                        GRA      4893
          3226  5110000000 X                      SA1    O.BST                                                   GRA      4894
                          5120000000 X            SA2    O.BIT                                                   GRA      4895
          3227  5140000000 X                      SA4    BSI         J = BSI                                     GRA      4896
                          63210                   SB2    X1                                                      GRA      4897
                               63320              SB3    X2                                                      GRA      4898
          3230  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
          3231  20502                             LX5    59-BI.ILP                                               GRA      4903
                     0335003234 +                 MI     X5,CIS2     IF IL[BIW]    */ BLOCK HAS A INITIAL LABEL  GRA      4904
                               43672              MX6    -BI.PCL                                                 GRA      4905
                                                                                                                 GRA      4906
          3232  5055777775               CIS1     SA5    A5-2        BI = BI - 2;  BIW = BIT(BI)                 GRA      4907
                          20501                   LX5    59-BI.CBP                                               GRA      4908
          3233  0325003232 +                      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
          3234  7263000000               CIS2     SX6    X3+                                                     GRA      4913
                          5170000000 X            SA7    =XCC$PC     CC$PC = PPC                                 CCGNC     665
          3235  0100000000 X                      CALL   MCG# ( NXC )  CODE THE SEQUENCE                         CCGNC     666
          3236  0400003225 +                      EQ     CIS                                                     GRA      4916
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3237  0200403237 +             WSC      ROUTINE                                                        GRA      4930
          3240  5150000000 X                      SA5    O.BIT                                                   FCC0675   238
                          20130                   LX1    -BA.BIP                                                 FCC0675   239
                               63310              SB3    X1          BN = BI[BAW]                                FCC0675   240
          3241  43053                             MX0    -BS.CLPCL                                               FCC0675   241
                     53253                        SA2    X5+B3       BIW = BIT(BN)                               FCC0675   242
                          5130000012 C            SA3    M.PL                                                    FCC0675   243
          3242  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
          3243  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
          3244  12242                             BX2    X4+X2       CLPC[BIW] = CLPC[BSW]                       GRA      4958
                     37031                        IX0    X3-X1                                                   GRA      4959
                          5140000036 C            SA4    PL                                                      GRA      4960
          3245  12772                             BX7    X7+X2       CB[BIW] = 1   */ INDICATE BLOCK CODED       GRA      4961
                     54720                        SA7    A2                                                      GRA      4962
                          0320003247 +            PL     X0,WSC2     M.PL = MAX( M.PL , LEN )                    GRA      4963
          3246  73610                             SX6    X1                                                      GRA      4964
                     54630                        SA6    A3                                                      GRA      4965
                                                                                                                 GRA      4966
          3247  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
          3250  0100000000 X                      CALL   WFB#        WFB( FWAB , LEN )  */ WRITE TO *BLK*        CCGNC     667
          3251  43700                             MX7    0                                                       GRA      4971
                     0400003237 +                 EQ     WSC                                                     GRA      4972
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
  
  
          3252  0200403252 +             IRA      ROUTINE                                                        GRA      5002
          3253  5110000000 X                      SA1    L.SEQ                                                   GRA      5003
                          5120000231 C            SA2    NXS                                                     GRA      5004
          3254  36112                             IX1    X1+X2                                                   GRA      5005
                     5100000000 X                 ALLOC  TXT,X1      ALLOC( TXT , L.SEQ+NXS )                    GRA      5006
          3256  5140000000 X                      SA4    O.SEQ       TI = OLD(L.TXT)                             GRA      5007
                          5130000000 X            SA3    O.RCT                                                   GRA      5008
          3257  63720                             SB7    X2          TB = O.TXT                                  GRA      5009
                     43700                        MX7    0                                                       GRA      5010
                          6254000003              S"SB"  X4+3        SB = O.SEQ + 3                              GRA      5011
          3260  53540                             SA5    X4          R1 = O.SEQ                                  GRA      5012
                     5214000004                   SA1    X4+4                                                    GRA      5013
                               63430              SB4    X3          (B4) = [O.RCT]                              GRA      5014
          3261  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
          3262  5170000251 C                      SA7    LBJF        LBJF = 0                                    CCG0119    14
                          5160000247 C            SA6    LBN         LBN = [R1]                                  FCC0985    21
          3263  56750                             SA7    "SB"        [SB] = 0                                    GRA      5019
                     26621                        UX6    B2,X1                                                   GRA      5020
                          7172777771              SX7    B2-OC.LAB                                               GRA      5021
          3264  5100000004                        SA0    4           LF = 4        */ INIT LAB NOT PRESENT       FCC2051    15
                          0317003267 +            NZ     X7,IRA1     IF OC[R1+4] " OC.LAB                        GRA      5022
                                                                                                                 GRA      5023
          3265  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/05. 19.57.27.      PAGE   121
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IRA                 IRA 
  
          3266  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
          3267  7150000027               IRA1     SX5    27B         I = 27B       */ REGNO                      GRA      5033
                          6130000005              SB3    OC.DEF                                                  GRA      5034
          3270  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
          3271  5245000100 C             IRA3     SA4    RAT+X5                                                  GRA      5039
                          0304003305 +            ZR     X4,IRA5     IF RAT(I) = 0                               GRA      5040
          3272  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
          3273  7225000200                        SX2    X5+SO.LOCK                                              GRA      5044
                          20220                   LX2    R1.SOP                                                  GRA      5045
                               12626              BX6    X2+X6                                                   GRA      5046
          3274  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
          3275  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
          3276  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
          3277  6166000004                        SB6    B6+4        TI = TI + 4                                 GRA      5060
                                                                                                                 GRA      5061
                          0323003305 +            PL     X3,IRA5     IF ^VC[CAW]                                 GRA      5062
          3300  20301                             LX3    CA.VCP-CA.ACP                                           GRA      5063
                     0323003305 +                 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
          3301  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
          3302  5265000120 C                      SA6    RVT+X5-8    RVT(I-8) = TI                               CCG25     163
                          7146777773              SX4    B6-4                                                    GRA      5069
          3303  20440                             TYPEI  DAR,X6,X4   SRI(  DAR  TI,TI-4 )                        GRA      5070
                                                                                                                 GRA      5071
          3305  7255777776               IRA5     SX5    X5-1        I = I - 1                                   GRA      5072
                          0315003271 +            NZ     X5,IRA3     IF I " 0                                    GRA      5073
                                                                                                                 GRA      5074
          3306  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/05. 19.57.27.      PAGE   122
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IRA                 IRA 
  
          3307  7100600001                        SX0    RN.MASK                                                 CCG11     121
                          0400003367 +            EQ     IRA10                                                   GRA      5077
  
  
  
          3310                                    PROCESS EOQ                                                    GRA      5079
          3310  5130000233 C                      SA3    NPS                                                     FCC0985    22
                          5120000033 C            SA2    EPSI                                                    FCC0985    23
          3311  0303003342 +                      ZR     X3,EOQ5     IF NPS = 0                                  FCC0985    24
                          0302003342 +            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
          3312  5150000000 X                      SA5    BVL                                                     FCC0985    33
                          5140000000 C            SA4    O.UDT                                                   FCC0985    34
          3313  6225000002                        SB2    X5+2        V = BVL + 2   */ RXI INCREMENT              FCC0985    35
                          5110000000 X            SA1    O.RXI                                                   FCC0985    36
          3314  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
          3315  5120000247 C                      SA2    LBN         BN = IH[LBN]  */ LAST BOS/EOS               FCC0985    41
                                                                                                                 FCC0985    42
          3316  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
          3317  0317003321 +                      NZ     X7,EOQ1B    IF PRED[RI] " BN                            FCC1107     5
                          0325003321 +            PL     X5,EOQ1B    IF ^SCR[RI]                                 FCC1107     6
          3320  20501                             LX5    E.SCRP-E.JPP                                            FCC1107     7
                     0325003323 +                 PL     X5,EOQ1C    IF ^JP[RI]    */ A FALL THROUGH EDGE        FCC1107     8
                                                                                                                 FCC1107     9
          3321  54552                    EOQ1B    SA5    A5+B2       RI = RI + V                                 FCC1107    10
                     0315003316 +                 NZ     X5,EOQ1A    IF [RI] " 0   */ NOT END OF TABLE           FCC0985    49
          3322  0400003342 +                      EQ     EOQ5                                                    FCC0985    50
                                                                                                                 FCC0985    51
          3323  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
          3324  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
          3325  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
          3326  22626                             LX6    B2,X6                                                   FCC0513    15
                     11764                        BX7    X6*X4                                                   FCC0513    16
                          0307003341 +            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
          3327  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/05. 19.57.27.      PAGE   123
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   EOQ                 IRA 
  
          3330  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
          3331  7271777751                        SX7    X1-26B                                                  GRA      5107
                          0327003337 +            PL     X7,EOQ3     IF REGN \ 26B */ RESULT IN A *ST-REG*       GRA      5108
                                                                                                                 GRA      5109
          3332  7271777757                        SX7    X1-20B                                                  GRA      5110
                          6120000010              SB2    OC.XMT      OC = OC.XMT                                 GRA      5111
          3333  0327003334 +                      PL     X7,EOQ2     IF REGN \ 20B */ IN A X-REG                 GRA      5112
                          6120000060              SB2    OC.SA       OC = OC.SA                                  GRA      5113
          3334  43700                    EOQ2     MX7    0                                                       GRA      5114
                     76660                        TYPEI  B2,B6,X4    SRI(  XMT/SA  TI,RN )                       GRA      5115
          3336  7146777773                        SX4    B6-4        RN = TI - 4                                 GRA      5116
                                                                                                                 GRA      5117
          3337  54221                    EOQ3     SA2    A2+B1                                                   GRA      5118
                     6120000051                   SB2    OC.ST                                                   GRA      5119
                               43130              MX1    -IH.CAIHL                                               GRA      5120
          3340  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
          3341  65201                    EOQ4     SB2    A0-B1                                                   GRA      5125
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      5126
                          0702003324 +            GT     B2,EOQ1     IF I > 0                                    GRA      5127
                                                                                                                 GRA      5128
                                        *         CHECK FOR AND OUTPUT STORES FOR THE A/X CANIDATES              CCG25     164
                                                                                                                 CCG25     165
          3342  5110000251 C             EOQ5     SA1    LBJF                                                    CCG0119    15
                          0301003354 +            ZR     X1,EOQ7     IF NOT EXIT BLOCK                           CCG0119    16
                                                                                                                 CCG0119    17
          3343  5110001554 +                      SA1    AXCT        I = 1                                       CCG0119    18
                                                                                                                 CCG25     167
          3344  0301003354 +             EOQ6     ZR     X1,EOQ7     IF AXCT(I) = 0                              CCG25     168
                          5221000130 C            SA2    RVT+X1                                                  CCG25     169
          3345  43700                             MX7    0                                                       CCG25     170
                     76660                        TYPEI  XMT,B6,X2   SRI( XMT  RI,RVT(REGN) )                    CCG25     171
          3347  5231000120 C                      SA3    RVT+X1-10B                */ R-NUMBER IN A-REG          CCG25     172
                          21122                   AX1    18                                                      CCG25     173
                               73111              SX1    X1+B1                                                   CCG25     174
          3350  53214                             SA2    B4+X1       C2W = RCT(CO+1)                             CCG25     175
                     43730                        MX7    -IH.CAIHL                                               CCG25     176
                          15727                   BX7    -X7*X2                                                  CCG25     177
          3351  7166777773                        SX6    B6-4                                                    CCG25     178
                          20340                   TYPEI  SST,X6,X3   SRI( SST RI-4,ARN,,CAIH )                   CCG25     179
          3353  54111                             SA1    A1+B1       I = I + 1                                   CCG25     180
                     0400003344 +                 EQ     EOQ6                                                    CCG25     181
                                                                                                                 CCG25     182
          3354  6120000000               EOQ7     SB2    OC.EOQ                                                  CCG25     183
                          43600                   MX6    0                                                       GRA      5130
                               76700              SX7    B0                                                      GRA      5131
          3355  0100000000 X                      CALL   SRI         SRI(  EOQ  0,0 )                            GRA      5132
          3356  7166000000                        SX6    B6+                                                     GRA      5133
                          5160000000 X            SA6    L.TXT       L.TXT = TI                                  GRA      5134
          3357  0400003252 +                      EQ     IRA                                                     GRA      5135
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   124
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYI                 IRA 
  
          3360                                    PROCESS (UP,NR,RNZ)                                            GRA      5137
          3360  0307003361 +                      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
          3361  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
          3362  12225                             BX2    X2+X5                                                   GRA      5147
                     76660                        SX6    B6                                                      GRA      5148
                          20544                   LX5    I.STP                                                   GRA      5149
                               12656              BX6    X5+X6                                                   GRA      5150
          3363  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
          3364  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
          3365  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
          3366  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
          3367                                    PROCESS (BOS,NOP)                                              GRA      5171
          3367  5055000004               IRA10    SA5    A5+4        R1 = R1 + 4                                 GRA      5172
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      5173
          3370  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
          3371  0313003373 +                      NZ     X3,IRA11    IF TYPE[DI] " I                             GRA      5179
                                                                                                                 GRA      5180
                          20634                   LX6    -R1.RJP                                                 GRA      5181
                               15760              BX7    "RN"X6                                                  GRA      5182
          3372  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
          3373  53114                    IRA11    SA1    B4+X1       J = CO[LI];  CAW = RCT(J)                   GRA      5188
                                                  LX4    2+D.TYP                                                 GRA      5189
                     0222004305 +                 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/05. 19.57.27.      PAGE   125
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYIV                IRA 
  
                                        *         TYPE IV INSTRUCTIONS                                           GRA      5192
                                                                                                                 GRA      5193
          3374                                    PROCESS EOS                                                    GRA      5194
          3374  73650                             SX6    X5                                                      FCC0985    59
                     0306003376 +                 ZR     X6,.LAB     IF IH[R1] = 0 */ ^ OPT=2 *EOS*              FCC0985    60
                                                                                                                 FCC0985    61
          3375  5160000247 C                      SA6    LBN         LBN = IH[R1]  */ SAVE FOR *EOQ*             FCC0985    62
                          0400003367 +            EQ     IRA10                                                   FCC0985    63
                                                                                                                 GRA      5197
          3376                                    PROCESS (LAB,ENT,UJP,RJ3,RJ6)                                  GRA      5198
          3376  54351                             SA3    A5+B1                                                   GRA      5199
                     22605                        LX6    X5                                                      GRA      5200
                          10733                   BX7    X3          R2W = [R1+1]                                GRA      5201
          3377  0400003365 +                      EQ     TYIT                                                    GRA      5202
  
  
  
                                        *         MISCELLANEOUS TYPE I INSTRUCTIONS                              GRA      5204
                                                                                                                 GRA      5205
          3400                                    PROCESS (ILS,IRS,PK)                                           GRA      5206
          3400  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5207
                     0400003361 +                 EQ     TYI                                                     GRA      5208
  
  
          3401                                    PROCESS DRL                                                    GRA      5210
          3401  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
          3402  0327003407 +                      PL     X7,DWL1     IF ^L2[DI]    */ LEVEL 0                    CCG0045    10
                          76760                   SX7    B6          R = TI                                      CCG0045    11
                               20744              LX7    I.STP                                                   GRA      5213
          3403  12767                             BX7    X6+X7                                                   GRA      5214
                     54741                        SA7    A4+B1       [DI+1] = RNI(0,TI,0,TI)                     GRA      5215
                          0400003407 +            EQ     DWL1                                                    GRA      5216
                                                                                                                 GRA      5217
          3404                                    PROCESS DWL                                                    GRA      5218
          3404  15750                             BX7    "RN"X5                                                  GRA      5219
                     53375                        SA3    "SB"+X7                                                 GRA      5220
                          10744                   BX7    X4                                                      CCGA039     5
                               20727              LX7    59-D.L2P                                                CCGA039     6
          3405  0337003406 +                      MI     X7,DWL0     IF L2[DI]                                   CCGA039     7
                          20330                   LX3    -I.STP      R = ST[SB+RI[R1]]                           CCGA039     8
                                        *                                                                        CCGA039     9
          3406  73630                    DWL0     SX6    X3          ELSE R= XR[SB+RI[R1]]                       CCGA039    10
                                                                                                                 GRA      5222
          3407  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
          3410  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
          3411  0303003413 +                      ZR     X3,DWL2     IF LF = 0     */ NO RF                      FCC0645    24
                          53335                   SA3    "SB"+X3     LF = [SB+R]                                 FCC0645    25
          3412  0313003413 +                      NZ     X3,DWL2     IF LF " 0     */ RF MATERIALIZED            FCC0645    26
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3413  0323003414 +             DWL2     PL     X3,DWL3     IF ^INB[LF]                                 FCC0645    29
                          20352                   LX3    -I.BRP      LF = SHIFT(LF,-I.BRP)                       FCC0645    30
          3414  73330                    DWL3     SX3    X3                                                      FCC0645    31
                     12731                        BX7    X3+X1       RF[R2] = SETX(LF)                           FCC0645    32
                          5132000000 X            SA3    F.RDT+B2                                                CCG16     235
          3415  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
          3416  20744                             LX7    IH.RFP                                                  GRA      5236
                     0400003365 +                 EQ     TYIT                                                    GRA      5237
  
  
          3417                                    PROCESS SS                                                     GRA      5239
          3417  20252                             LX2    -I.BRP                                                  GRA      5240
                     20352                        LX3    -I.BRP                                                  GRA      5241
                          0400003361 +            EQ     TYI                                                     GRA      5242
  
  
          3420                                    PROCESS SA                                                     GRA      5244
                                                  LX1    59-CA.RAP                                               GRA      5245
          3420  0331004106 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5246
                          0322003430 +            PL     X2,SA1      IF ^INB[LJW]                                GRA      5247
          3421  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5248
                     0313003430 +                 NZ     X3,SA1      IF LKW " 0                                  GRA      5249
                                                                                                                 GRA      5250
                               20425              LX4    59-D.PRSP                                               GRA      5251
          3422  43766                             MX7    -SO.REGL                                                GRA      5252
                     0324003432 +                 PL     X4,SA2      IF ^PRS[DI]                                 FCC0414    10
          3423  5015000004                        SA1    A5+4        R1RS = R1 + 4                               GRA      5254
                          20154                   LX1    -R1.SOP                                                 GRA      5255
                               15617              BX6    -X7*X1      REGNO = SOREG[R1RS]                         GRA      5256
          3424  20165                             LX1    59-SO.LKP                                               GRA      5257
                     7276777767                   SX7    X6-8                                                    GRA      5258
          3425  0327003430 +                      PL     X7,SA1      IF REGNO > 7                                GRA      5259
                          0321003430 +            PL     X1,SA1      IF SOLK[R1RS] " 1  */ NOT TEMP LOCK         GRA      5260
                                                                                                                 GRA      5261
          3426  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
          3427  0400003367 +                      EQ     IRA10                                                   GRA      5266
                                                                                                                 GRA      5267
          3430  0323003361 +             SA1      PL     X3,TYI      IF ^INB[LKW]                                GRA      5268
                          20352                   LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5269
          3431  0400003361 +                      EQ     TYI                                                     GRA      5270
                                                                                                                 FCC0414    11
                                        *         SA  RI,RJ ,AND OPERAND IN A B-REG                              FCC0414    12
                                                                                                                 FCC0414    13
          3432  76660                    SA2      SX6    B6                                                      FCC0414    14
                     73220                        SX2    X2                                                      FCC0414    15
                          43701                   MX7    1                                                       FCC0414    16
                               20222              LX2    I.BRP                                                   FCC0414    17
          3433  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/05. 19.57.27.      PAGE   127
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   SA                  IRA 
  
                          12626                   BX6    X2+X6                                                   FCC0414    20
                               12776              BX7    X7+X6                                                   FCC0414    21
          3434  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
          3435  0400003364 +                      EQ     TYIA                                                    FCC0414    26
  
  
          3436                                    PROCESS IA                                                     GRA      5272
          3436  12623                             BX6    X2+X3                                                   GRA      5273
                     0326003361 +                 PL     X6,TYI      IF ^( INB[LJW] ! INB[LKW] )                 GRA      5274
          3437  5140000000 X                      SA4    =XHO$LCM                                                CCGA097     8
                          0324003447 +            PL     X4,IAA            */ IF NOT LCM=G                       CCGA097     9
          3440  5042777774                        SA4    A2-3        R1W = [SB+RJ[R1]] - 3                       CCGA097    10
                          26424                   UX4    B2                                                      CCGA097    11
          3441  0322003444 +                      PL     X2,IA4      IF ^INB[LJW]                                CCGA097    12
                          7170777772              SX7    -OC.DEF                                                 CCGA097    13
          3442  73772                             SX7    X7+B2                                                   CCGA097    14
                     0317003444 +                 NZ     X7,IA4      IF ^(OC = OC.DEF)                           CCGA097    15
                               76360              SX3    B6                                                      CCGA097    16
          3443  0400003462 +                      EQ     IA6                                                     CCGA097    17
                                                                                                                 CCGA097    18
          3444  5043777774               IA4      SA4    A3-3        R1W = [SB+RK[R1]] - 3                       CCGA097    19
                          26424                   UX4    B2                                                      CCGA097    20
          3445  0333003460 +                      MI     X3,IA5      IF INB[LKW]                                 CCGA097    21
                                                                                                                 CCGA097    22
          3446  6120000036               IA       SB2    OC.IA                               */   RESTORE B2     CCGA097    23
                                                                                                                 CCGA097    24
          3447  20111                    IAA      LX1    59-CA.RFP                                               CCGA097    25
                     0321003361 +                 PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE      GRA      5276
                                                                                                                 GRA      5277
          3450  6120000060                        SB2    OC.SA       OC = OC.SA                                  GRA      5278
                          11623                   BX6    X2*X3                                                   GRA      5279
          3451  0336003454 +                      MI     X6,IA2      IF INB[LJW] AND INB[LKW]                    CCG0034     8
                          10622                   BX6    X2                                                      GRA      5281
          3452  0322003453 +                      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
          3453  20352                    IA1      LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5285
                     0400003361 +                 EQ     TYI                                                     GRA      5286
          3454  12623                    IA2      BX6    X2+X3                                                   CCG0034     9
                     20601                        LX6    59-I.MIBP                                               CCG0034    10
                          0326003500 +            PL     X6,IS1      IF NOT ( MIB[LJW] OR MIB]LKW] )             CCG0034    11
          3455  6120000063                        SB2    OC.SS       OC = OC.SS                                  CCG0034    12
                          10633                   BX6    X3                                                      CCG0034    13
                               20601              LX6    59-I.MIBP                                               CCG0034    14
          3456  0336003500 +                      MI     X6,IS1      IF MIB[LKW]                                 CCG0034    15
                          10322                   BX3    X2          SWAP( LJW , LKW )                           CCG0034    16
                               20673              LX6    1+I.MIBP                                                CCG0034    17
          3457  10266                             BX2    X6                                                      CCG0034    18
                     0400003500 +                 EQ     IS1                                                     CCG0034    19
                                                                                                                 CCGA097    26
          3460  7170777772               IA5      SX7    -OC.DEF                                                 CCGA097    27
                          73772                   SX7    X7+B2                                                   CCGA097    28
          3461  0317003446 +                      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/05. 19.57.27.      PAGE   128
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IA                  IRA 
  
                                                                                                                 CCGA097    31
          3462  20454                    IA6      LX4    -R1.SOP                                                 CCGA097    32
                     43766                        MX7    -SO.REGL                                                CCGA097    33
                          15547                   BX5    -X7*X4                                                  CCGA097    34
          3463  6120777773                        SB2    -4                                                      CCGA097    35
                                                                                                                 CCGA097    36
          3464  7170777772               IA7      SX7    -OC.DEF                                                 CCGA097    37
                                                                                                                 CCGA097    38
          3465  6122000004               IA8      SB2    B2+4                                                    CCGA097    39
                          0762003446 +            GT     B2,B6,IA                      */ IF END OF TABLE        CCGA097    40
          3466  56472                             SA4    B7+B2                                                   CCGA097    41
                     26434                        UX4    B3                                                      CCGA097    42
                          73673                   SX6    X7+B3                                                   CCGA097    43
          3467  0316003465 +                      NZ     X6,IA8                            */ IF NOT OC.DEF      CCGA097    44
                          43766                   MX7    -SO.REGL                                                CCGA097    45
                               20454              LX4    -R1.SOP                                                 CCGA097    46
          3470  15747                             BX7    -X7*X4                            */ REG TYPE AND NUM   CCGA097    47
                     37775                        IX7    X7-X5                                                   CCGA097    48
                          0317003464 +            NZ     X7,IA7               */ IF NOT B REG WE ARE LOOKING FOR CCGA097    49
          3471  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
          3473  0400003446 +                      EQ     IA                                                      CCGA097    53
  
  
          3474                                    PROCESS IS                                                     GRA      5288
          3474  11623                             BX6    X2*X3                                                   GRA      5289
                     0326003361 +                 PL     X6,TYI      IF ^( INB[LJW] & INB[LKW] )                 GRA      5290
                               20111              LX1    59-CA.RFP                                               GRA      5291
          3475  0321003361 +                      PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE      GRA      5292
                                                                                                                 GRA      5293
                          6120000063              SB2    OC.SS       OC = OC.SS                                  GRA      5294
          3476  10633                             BX6    X3                                                      CCG0034    20
                     20601                        LX6    59-I.MIBP                                               CCG0034    21
                          0326003500 +            PL     X6,IS1      IF NOT MIB[LKW]                             CCG0034    22
          3477  6120000060                        SB2    OC.SA       OC = OC.SA                                  CCG0034    23
          3500  20252                    IS1      LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5295
                     20352                        LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5296
                          0400003361 +            EQ     TYI                                                     GRA      5297
  
  
          3501                                    PROCESS SXT                                                    GRA      5299
                                                  LX1    59-CA.RAP                                               GRA      5300
          3501  0321003361 +                      PL     X1,TYI      IF ^RA[CAW]                                 GRA      5301
                                                                                                                 GRA      5302
                          5011000002              SA1    A1+2        CCW = RCT(J+2)                              GRA      5303
          3502  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
          3503  15717                             BX7    -X7*X1                                                  GRA      5308
                     5227000130 C                 SA2    RVT+X7      LJW = RVT(REG1[CCW])                        GRA      5309
                               26625              UX6    B2,X5                                                   GRA      5310
          3504  6122000002                        SB2    B2-OC.KLS+OC.ILS  OC = OC[R1]-OC.KLS+OC.ILS             GRA      5311
                          0400003361 +            EQ     TYI                                                     GRA      5312
  
  
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   129
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   XMTC                IRA 
  
          3505                                    PROCESS XMTC                                                   FCC0513    28
          3505  0322003361 +                      PL     X2,TYI      IF ^INB[LJW]                                FCC0513    29
                          6120000063              SB2    OC.SS       OC = OC.SS                                  FCC0513    30
          3506  20252                             LX2    -I.BRP                                                  FCC0513    31
                     73320                        SX3    X2          LKW = BR[LJW]                               FCC0513    32
                          7120000000              SX2    0           LJW = 0                                     FCC0513    33
          3507  0400003361 +                      EQ     TYI                                                     FCC0513    34
  
  
  
          3510                                    PROCESS XMT                                                    GRA      5314
                                                  LX1    59-CA.RAP                                               GRA      5315
          3510  0331004106 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5316
                          20424                   LX4    59-D.PSP                                                GRA      5317
                               10722              BX7    X2                                                      GRA      5318
          3511  0324003514 +                      PL     X4,XMT1     IF ^PS[DI]                                  GRA      5319
                          20730                   LX7    -I.STP                                                  GRA      5320
                               73670              SX6    X7                                                      GRA      5321
          3512  0306003514 +                      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
          3513  0400003367 +                      EQ     IRA10                                                   GRA      5328
                                                                                                                 GRA      5329
          3514  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
          3515  12736                             BX7    X3+X6       LW = RNI(0,TI,0,J)                          FCC1740X    8
                     0316003517 +                 NZ     X6,XMT2     IF J " 0                                    FCC1740X    9
                               20252              LX2    -I.BRP                                                  FCC1740X   10
          3516  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
          3517  20640                    XMT2     LX6    R1.RJP                                                  FCC1740X   14
                     20401                        LX4    D.PSP-D.PRSP                                            CCG0012     8
                          0324003521 +            PL     X4,XMT3     IF NOT PRS[DI]                              CCG0012     9
          3520  73770                             SX7    X7          LW = RNI(0,0,0,X)  */ CLEAR ST FIELD        CCG0012    10
                                                                                                                 CCG0012    11
          3521  54741                    XMT3     SA7    A4+B1       [DI+1] = LW                                 CCG0012    12
                     12565                        BX5    X6+X5       R1W = TYI(0,J,0,TI)                         FCC1740X   16
                          0400003364 +            EQ     TYIA                                                    GRA      5338
  
  
          3522                                    PROCESS (PST,SST,SDS)                                          GRA      5340
          3522  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
          3523  0400003525 +                      EQ     PLD1                                                    GRA      5345
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   130
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PLD                 IRA 
  
          3524                                    PROCESS (PLD,SLD,SDL)                                          GRA      5347
          3524  7166000000                        SX6    B6+         R = TI                                      GRA      5348
                          5065000003              SA6    A5+3        [R1+3] = RNI(0,0,0,TI)                      GRA      5349
                                                                                                                 GRA      5350
          3525  0322003526 +             PLD1     PL     X2,PLD2     IF ^INB[LJW]                                GRA      5351
                          20252                   LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5352
          3526  0323003527 +             PLD2     PL     X3,PLD3     IF ^INB[LKW]                                GRA      5353
                          20352                   LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5354
                                                                                                                 GRA      5355
          3527  73220                    PLD3     SX2    X2                                                      GRA      5356
                     27626                        PX6    B2,X6                                                   GRA      5357
                          20240                   LX2    R1.RJP                                                  GRA      5358
                               73330              SX3    X3                                                      GRA      5359
          3530  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
          3531  5110000000 X                      SA1    DMASK                                                   GRA      5364
                          20230                   LX2    -IH.RFP                                                 GRA      5365
                               15520              BX5    "RN"X2                                                  GRA      5366
          3532  53355                             SA3    "SB"+X5     LFW = [SB+RF[R2]]                           GRA      5367
                     0323003533 +                 PL     X3,PLD4     IF ^INB[LFW]                                GRA      5368
                               20352              LX3    -I.BRP                                                  GRA      5369
          3533  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
          3534  20744                             LX7    IH.RFP                                                  GRA      5374
                     0400003365 +                 EQ     TYIT                                                    GRA      5375
  
  
          3535                                    PROCESS RS                                                     GRA      5377
          3535  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
          3536  0326003540 +                      PL     X6,RS1      IF IN[R1] = 0 */ ^ A RJRS                   FCC0414    27
                          76660                   SX6    B6          R = TI                                      GRA      5383
          3537  0400003547 +                      EQ     RS2                                                     GRA      5384
                                                                                                                 GRA      5385
          3540  20101                    RS1      LX1    59-CA.IRAP                                              FCC0811    44
                     0331003367 +                 MI     X1,IRA10    IF IRA[CAW]   */ PRED AND RS TO BE MOVED    FCC0811    45
          3541  7166777773                        SX6    B6-4        R = TI - 4                                  GRA      5388
                          7232777767              SX3    X2-8                                                    GRA      5389
          3542  0333003547 +                      MI     X3,RS2      IF REGNO < 8  */ IN A B-REGISTER            FCC0764     5
                          7232777751              SX3    X2-26B                                                  FCC0764     6
          3543  0323003551 +                      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
          3544  20230                             LX2    -I.STP                                                  FCC0764    11
                     73320                        SX3    X2                                                      FCC0764    12
                          13773                   BX7    X7-X3                                                   FCC0764    13
          3545  0317003551 +                      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
          3546  54720                             SA7    A2                                                      FCC0764    17
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   131
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   RS                  IRA 
  
                     0400003551 +                 EQ     RS3                                                     FCC0764    18
                                                                                                                 GRA      5391
          3547  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
          3550  15350                             BX3    "RN"X5                                                  GRA      5397
                     53735                        SA7    "SB"+X3     [SB+RI[R1]] = RNI(B,0,R,0)                  GRA      5398
                                                                                                                 GRA      5399
          3551  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
          3552  11424                             BX4    X2*X4       USES[DI] = 0;  D = [DI]                     GRA      5404
                     0400003365 +                 EQ     TYIT                                                    GRA      5405
  
  
  
          3553                                    PROCESS (FMA,CLR,S)                                            GRA      5407
                                                  LX1    59-CA.RAP                                               GRA      5408
          3553  0331004106 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5409
                                                                                                                 GRA      5410
          3554  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
          3555  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
          3556  0400003364 +                      EQ     TYIA                                                    GRA      5420
  
  
          3557                                    PROCESS DEF                                                    GRA      5422
          3557  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
          3560  5237000130 C                      SA3    RVT+X7                                                  FCC0414    28
                          7227777751              SX2    X7-26B                                                  FCC0414    29
          3561  0313003565 +                      NZ     X3,DEF1     IF RVT(REGN) " 0  */ DEF IS A CANIDATE      FCC0414    30
                          0322003554 +            PL     X2,FMA1     IF REGN \ 26B  */ IN A STORE REG            GRA      5428
          3562  21704                             AX7    4                                                       GRA      5429
                     76660                        SX6    B6          RNW = RNI(0,0,0,TI)                         GRA      5430
                          0317003555 +            NZ     X7,FMA2     IF REGN \ 20B   */ X-REG                    GRA      5431
          3563  43701                             MX7    1                                                       GRA      5432
                     20622                        LX6    I.BRP                                                   GRA      5433
                          12676                   BX6    X7+X6       RNW = RNI(1,0,TI,0)                         GRA      5434
          3564  0400003555 +                      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
          3565  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/05. 19.57.27.      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
          3566  0322003570 +                      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
          3567  0317003570 +                      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
          3570  54641                    DEF2     SA6    A4+B1       [DI+1] = RNW                                FCC0414    45
                     0400003367 +                 EQ     IRA10                                                   FCC0414    46
  
  
          3571                                    PROCESS (KLS,KRS)                                              GRA      5437
          3571  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
          3572  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
          3573  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
          3574  73120                             SX1    X2                                                      GRA      5452
                     12713                        BX7    X1+X3       RF[R2W] = SETX(LJW)                         GRA      5453
                          20744                   LX7    IH.RFP                                                  GRA      5454
          3575  0400003365 +                      EQ     TYIT                                                    GRA      5455
  
  
          3576                                    PROCESS (JIN,JPBB)                                             GRA      5457
          3576  6130000022                        SB3    I.BRP                                                   GRA      5458
                          5035000001              SA3    A5+1        R2 = R1 + 1                                 FCC0909    43
          3577  0323003616 +                      PL     X3,JIN3     IF [R2] < 0   */ NOT SPECIAL *JIN*          FCC0909    44
                          5120000000 X            SA2    =XL.HB                                                  FCC0909    45
          3600  7262777763                        SX6    X2-12                                                   FCC0909    46
                          0326003604 +            PL     X6,JIN2     IF L.HB > 8   */ *HB* IS NON EMPTY          FCC0909    47
          3601  5120000101 C                      SA2    RAT+1                                                   FCC0909    48
                          43633                   MX6    27          I = 27                                      FCC0909    49
          3602  0312003604 +             JIN1     NZ     X2,JIN2     IF RAT(I) " 0                               FCC0909    50
                          54221                   SA2    A2+B1                                                   FCC0909    51
                               20601              LX6    1           I = I - 1                                   FCC0909    52
          3603  0336003602 +                      MI     X6,JIN1     IF I " 0                                    FCC0909    53
                          0400003616 +            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
          3604  5120000016 C             JIN2     SA2    LGL                                                     FCC0909    59
                          73720                   SX7    X2                                                      FCC0909    60
                               76660              TYPEI  STT,B6      SRI( STT  TI,,,SETX(LGL) )                  FCC0909    61
          3606  7166777773                        SX6    B6-4                                                    FCC0909    62
                          7120000103              SX2    SO.TLOCK+3                                              FCC0909    63
          3607  20220                             LX2    R1.SOP                                                  FCC0909    64
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3611  15750                             BX7    "RN"X5                                                  FCC0909    67
                     53375                        SA3    "SB"+X7                                                 FCC0909    68
                          5120000025 C            SA2    LIH                                                     FCC0909    69
          3612  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
          3613  12727                             BX7    X2+X7                                                   FCC0909    73
                     73630                        TYPEI  JPBB,X3     SRI( JPBB  I,J,0,LIH )                      FCC0909    74
          3615  6120000071                        SB2    OC.JIN                                                  FCC0909    75
                                                                                                                 FCC0909    76
          3616  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
          3617  73230                             SX2    X3          R = SETX( SHIFT(LJW,-SC) )                  GRA      5464
                     12625                        BX6    X2+X5       RI[R1W] = R                                 GRA      5465
                          0400003572 +            EQ     TYIII                                                   GRA      5466
  
  
  
          3620                                    PROCESS RJXJ                                                   CCG2       15
          3620  54351                             SA3    A5+B1       R2 = R1 + 1                                 CCG2       16
                     66300                        SB3    B0          SC = 0                                      CCG2       17
                          0400003616 +            EQ     JIN3                                                    CCG2       18
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   134
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
          3621                                    PROCESS JPX                                                    GRA      5468
          3621  5110000025 C                      SA1    LIH                                                     GRA      5469
                          54251                   SA2    A5+B1       R2 = R1 + 1                                 GRA      5470
                               66300              SB3    B0          SC = 0                                      GRA      5471
          3622  13612                             BX6    X1-X2                                                   GRA      5472
                     73760                        SX7    X6                                                      GRA      5473
                          0317003663 +            NZ     X7,JPX9     IF LIH " IH[R2]  */ NOT THE LOOP BACK JUMP  CCG24       2
          3623  7170000001                        SX7    1                                                       CCG0119    19
                          5170000251 C            SA7    LBJF        LBJF = 1                                    CCG0119    20
          3624  5110000172 C                      SA1    TRD                                                     GRA      5475
                          0301003627 +            ZR     X1,JPX0     IF TRD = 0    */ NO TEST REPLACEMENT        GRA      5476
          3625  5045777773                        SA4    A5-4                                                    GRA      5477
                          13645                   BX6    X4-X5                                                   GRA      5478
                               15760              BX7    "RN"X6                                                  GRA      5479
          3626  0317003627 +                      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
          3627  5130000205 C             JPX0     SA3    NAA                                                     GRA      5486
                          0303003651 +            ZR     X3,JPX7     IF NAA = 0    */ NO A-ASSIGNMENTS           GRA      5487
          3630  5203777776                        SA0    X3-1        I = NAA                                     GRA      5488
                                                                                                                 GRA      5489
          3631  5010000206 C             JPX1     SA1    ACT+A0      AI = ACT(I)                                 GRA      5490
                          5221000130 C            SA2    RVT+X1                                                  GRA      5491
          3632  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
          3633  53314                             SA3    B4+X1       CAW = RCT(IP)                               GRA      5495
                     20146                        LX1    CC.INCP+59-CC.IMP                                       GRA      5496
                                                  LX3    59-CA.RAP                                               GRA      5497
                          0323003641 +            PL     X3,JPX3     IF ^RA[CAW]   */ INC NOT IN A REGISTER      GRA      5498
                                                                                                                 GRA      5499
          3634  6120000056                        SB2    OC.SLD      OC = OC.SLD                                 GRA      5500
                          0321003636 +            PL     X1,JPX2     IF ^IM[AI]                                  GRA      5501
          3635  6120000061                        SB2    OC.SDL      OC = OC.SDL                                 GRA      5502
          3636  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
          3637  20240                             LX2    R1.RJP                                                  GRA      5507
                     5247000130 C                 SA4    RVT+X7      K = RVT(REGNO)                              GRA      5508
                               43700              MX7    0           R2W = 0                                     GRA      5509
          3640  20420                             LX4    R1.RKP                                                  GRA      5510
                     12624                        BX6    X2+X4       R1W = TYI(0,J,K,0)                          GRA      5511
                          0400003644 +            EQ     JPX5                                                    GRA      5512
                                                                                                                 GRA      5513
                                        *         INC NOT IN A REGISTER, MUST BE A CON ( *DAA* RESTRICTION ).    GRA      5514
                                                                                                                 GRA      5515
          3641  54331                    JPX3     SA3    A3+B1       C2W = RCT(IP+1)                             GRA      5516
                     20244                        LX2    IH.RFP                                                  GRA      5517
                          0321003643 +            PL     X1,JPX4     IF ^IM[AI]                                  GRA      5518
          3642  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/05. 19.57.27.      PAGE   135
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
                                                                                                                 GRA      5523
          3643  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
          3644  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
          3645  5123000130 C                      SA2    RVT+B3      J = RVT(XREG)                               GRA      5532
                          7143000200              SX4    SO.LOCK+B3                                              GRA      5533
          3646  6120000004                        SB2    OC.RS                                                   GRA      5534
                          20420                   LX4    R1.SOP                                                  GRA      5535
                               12645              BX6    X4+X5                                                   GRA      5536
          3647  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
          3650  64200                             SB2    A0                                                      GRA      5540
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      5541
                          0702003631 +            GT     B2,JPX1     IF I > 0                                    GRA      5542
                                                                                                                 GRA      5543
          3651  5140000172 C             JPX7     SA4    TRD                                                     GRA      5544
                          54550                   SA5    A5                                                      GRA      5545
                               66300              SB3    B0          SC = 0                                      GRA      5546
          3652  26625                             UX6    B2,X5                                                   FCC0985    64
                     0304003663 +                 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
          3653  5110000024 C                      SA1    LUL+1                                                   GRA      5554
                          5120000022 C            SA2    LCV+1                                                   GRA      5555
          3654  6120000070                        SB2    OC.JPBB                                                 GRA      5556
                          5211000130 C            SA1    RVT+X1      I = RVT(LUL(2))                             GRA      5557
          3655  5130000025 C                      SA3    LIH                                                     GRA      5558
                          5222000130 C            SA2    RVT+X2      J = RVT(LCV(2))                             GRA      5559
          3656  0324003660 +                      PL     X4,JPX8     IF TRD > 0    */ F(I) NOT NEGATIVE          GRA      5560
                          6231000000              SB3    X1+                                                     GRA      5561
          3657  10122                             BX1    X2          SWAP( I , J )                               GRA      5562
                     76230                        SX2    B3                                                      GRA      5563
                                                                                                                 GRA      5564
          3660  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
          3661  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
          3662  0400003365 +                      EQ     TYIT                                                    GRA      5572
                                        *         CONVERT ZR,NZ JUMPS TO TEST THE B-VALUES IF AVAILABLE          CCG24       4
                                                                                                                 CCG24       5
          3663  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
          3664  7276777775                        SX7    X6-2                                                    CCG24      10
                          0327003616 +            PL     X7,JIN3     IF JC[R2] " ZR,NZ                           CCG24      11
          3665  15750                             BX7    "RN"X5                                                  CCG24      12
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3666  0302003616 +                      ZR     X2,JIN3     IF BR[LJW] = 0  */ NO B-REGISTER VALUE      CCG24      16
                                                                                                                 CCG0089     6
                          10622                   BX6    X2                                                      CCG0089     7
          3667  6130000010                        SB3    8                                                       CCG0089     8
                          5160000130 C            SA6    RVT                                                     CCG0089     9
          3670  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
          3671  0316003670 +                      NZ     X6,JPX10                                                CCG0089    13
                          5160000130 C            SA6    RVT                                                     CCG0146     6
          3672  0430003616 +                      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
          3673  20422                             LX4    IH.CAP                                                  CCG24      19
                     27622                        PX6    B2,X2                                                   CCG24      20
                          10744                   BX7    X4                                                      CCG24      21
          3674  5142000000 X                      SA4    F.RDT+B2                                                CCG24      22
                          0400003365 +            EQ     TYIT                                                    CCG24      23
  
  
  
          3675                                    PROCESS (LD,ILD,TLD,LDC,LDV)                                   CCG16     240
                                                  LX1    59-CA.RAP                                               GRA      5575
          3675  76660                             SX6    B6          TR = TI                                     CCG23     126
                     0321003707 +                 PL     X1,LD1      IF ^RA[CAW]                                 GRA      5576
                               20102              LX1    CA.RAP-CA.VCP                                           GRA      5577
          3676  0331004106 +                      MI     X1,PVC      IF VC[CAW]                                  GRA      5578
                                                                                                                 GRA      5579
                          6120000050              SB2    OC.LD       OC[R1] = OC.LD                              GRA      5580
                                                                                                                 FCC1227     5
          3677  54351                             SA3    A5+B1       R2 = R1 + 1                                 FCC1227     6
                     73630                        SX6    X3                                                      FCC1227     7
                          0316004142 +            NZ     X6,PAC      IF IH[R2] " 0 */ NOT A F.P. ADDR LOAD       FCC1227     8
          3700  20330                             LX3    -IH.RFP                                                 FCC1227     9
                     7263777776                   SX6    X3-1                                                    FCC1227    10
          3701  0316004142 +                      NZ     X6,PAC      IF RF[R2] " 1                               FCC1227    11
                          6120000052              SB2    OC.STT      OC = OC.STT   */ FORCE A *SA* INST IN *PAC* FCC1227    12
          3702  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
          3703  10366                             BX3    X6                                                      FCC1644X    5
                     21603                        AX6    3                                                       FCC1644X    6
                          0306004142 +            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
          3704  5233000130 C                      SA3    RVT+X3      R = RVT(REG1[CCW])                          FCC1644X   11
                          10633                   BX6    X3                                                      FCC1644X   12
                               20344              LX3    I.STP                                                   FCC1644X   13
          3705  12736                             BX7    X3+X6                                                   FCC1644X   14
                     5075000003                   SA7    A5+3        [R1+3] = RNI(0,R,0,R)                       FCC1644X   15
          3706  0400003367 +                      EQ     IRA10                                                   FCC1644X   16
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   137
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   LD                  IRA 
  
                                                                                                                 GRA      5582
          3707  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
          3710  0327003714 +                      PL     X7,LD2      IF ^FP[DI]                                  CCG23     130
                          5120000000 X            SA2    =XHO$OPT                                                CCG23     131
          3711  0322003714 +                      PL     X2,LD2      IF HO$OPT " 2                               CCG23     132
                          76710                   SX7    B1          FLAG = 1                                    CCG23     133
          3712  0100000000 X                      CALL   MPR#        CALL MPR( R1 , FLAG )                       CCG23     134
          3713  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
          3714  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
          3715  11703                             BX7    X0*X3                                                   GRA      5592
                     0322003716 +                 PL     X2,LD3      IF ^INB[LJW]                                GRA      5593
                               20252              LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5594
          3716  73220                    LD3      SX2    X2          J = SETX(LJW)                               GRA      5595
                     5110000000 X                 SA1    DMASK                                                   GRA      5596
                               12727              BX7    X2+X7                                                   GRA      5597
          3717  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
          3720  0400003365 +                      EQ     TYIT                                                    GRA      5602
  
  
                                        *         STT - *IRA* *AC* OR *CON* CANIDATE                             GRA      5604
                                                                                                                 GRA      5605
          3721  76760                    STT0     SX7    B6                                                      GRA      5606
                     76660                        SX6    B6                                                      GRA      5607
                          20744                   LX7    I.STP                                                   GRA      5608
                               12767              BX7    X6+X7                                                   GRA      5609
          3722  5075000003                        SA7    A5+3        [R1+3] = RNI(0,TI,0,TI)                     GRA      5610
                          0400003714 +            EQ     LD2                                                     GRA      5611
                                                                                                                 GRA      5612
          3723                                    PROCESS STT                                                    GRA      5613
                                                  LX1    59-CA.RAP                                               GRA      5614
          3723  0321003721 +                      PL     X1,STT0     IF ^RA[CAW]                                 GRA      5615
                                                                                                                 GRA      5616
                          20101                   LX1    CA.RAP-CA.IRAP                                          GRA      5617
          3724  0321003730 +                      PL     X1,STT1     IF ^IRA[CAW]  */ NOT ASSIGNED IN *ERC*      GRA      5618
                          10644                   BX6    X4                                                      GRA      5619
                               20625              LX6    59-D.PRSP                                               GRA      5620
          3725  0326003730 +                      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
          3726  0302003730 +                      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
          3727  0400003367 +                      EQ     IRA10                                                   GRA      5627
                                                                                                                 GRA      5628
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   138
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   STT                 IRA 
  
          3730  20103                    STT1     LX1    CA.IRAP-CA.CONP                                         GRA      5629
                     0321004142 +                 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
          3731  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
          3732  0332003733 +                      MI     X2,STT2     IF INB[LJW]                                 GRA      5640
                                                                                                                 GRA      5641
                          0333003721 +            MI     X3,STT0     IF CA[R2] < 0 */   SRI  X-B DOESNT EXIST    GRA      5642
                                                                                                                 GRA      5643
          3733  20151                    STT2     LX1    59-IH.CAP                                               GRA      5644
                     6120000060                   SB2    OC.SA       OC = SA                                     GRA      5645
                               43766              MX7    -CC.REG1L                                               GRA      5646
          3734  0321003735 +                      PL     X1,STT3     IF CA[R2] = CA[C2W]                         GRA      5647
                          6120000063              SB2    OC.SS       OC = OC.SS                                  GRA      5648
                                                                                                                 GRA      5649
          3735  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
          3736  0322003361 +                      PL     X2,TYI      IF ^INB[LJW]                                GRA      5654
                          20252                   LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5655
          3737  0400003361 +                      EQ     TYI                                                     GRA      5656
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   139
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
                                        *         ST - ADDRESS CANIDATE OR REDEFINTION OF A REGISTER             GRA      5658
                                                                                                                 GRA      5659
          3740                                    PROCESS (ST,TST)                                               GRA      5660
          3740  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
                          0331003742 +            MI     X1,ST0      IF RA[CAW]                                  FCC0977    17
                                                                                                                 GRA      5668
          3741  20230                             LX2    -I.STP                                                  GRA      5669
                     73620                        SX6    X2          TR = ST[LJW]                                CCG23     139
                          0400003707 +            EQ     LD1                                                     CCG23     140
                                                                                                                 GRA      5672
          3742  20151                    ST0      LX1    CA.RAP-CA.KDP                                           FCC0977    18
                     0321003745 +                 PL     X1,ST1      IF ^KD[CAW]                                 FCC0977    19
                               20451              LX4    59-D.INCP                                               FCC0977    20
          3743  0324003367 +                      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
          3744  43600                             MX6    0                                                       FCC0977    27
                     54620                        SA6    A2          [LJ] = 0      */ CLEAR LINK WORD OF *INC*   FCC0977    28
                          0400003367 +            EQ     IRA10                                                   FCC0977    29
                                                                                                                 FCC0977    30
          3745  20125                    ST1      LX1    CA.KDP-CA.VCP                                           FCC0977    31
                     0321004141 +                 PL     X1,PAC0     IF ^VC[CAW]                                 GRA      5674
                                                                                                                 GRA      5675
                                        *         PROCESS REDEFINITION OF A REGISTER                             GRA      5676
                                                                                                                 GRA      5677
                               54020              SA0    A2                                                      GRA      5678
          3746  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
          3747  5130000017 C                      SA3    N.HB                                                    FCC0414    47
                          0303003763 +            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
          3750  53327                             SA3    B7+X2       R1P = TXT(XR[LJW])                          FCC0414    53
                     6130000010                   SB3    OC.XMT                                                  FCC0414    54
                               26723              UX7    B2,X3                                                   FCC0414    55
          3751  0423003754 +                      EQ     B2,B3,ST0A  IF OC[R1P] = OC.XMT                         FCC0414    56
                          6130000060              SB3    OC.SA                                                   FCC0414    57
          3752  0523003755 +                      NE     B2,B3,ST0B  IF OC[R1P] " OC.SA                          FCC0414    58
                          20354                   LX3    -R1.RKP                                                 FCC0414    59
                               15630              BX6    "RN"X3                                                  FCC0414    60
          3753  0316003763 +                      NZ     X6,ST1A     IF RK[R1P] " 0  */ NOT  * SA  RI,RJ *       FCC0414    61
          3754  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
          3755  6130000005               ST0B     SB3    OC.DEF                                                  FCC0414    66
                          0523003763 +            NE     B2,B3,ST1A  IF OC[R1P] " OC.DEF                         FCC0414    67
          3756  20754                             LX7    -R1.SOP                                                 FCC0414    68
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          3757  0316003762 +                      NZ     X6,ST0C     IF SOREG[R1P] .NE. REGNO */ DIF. CANDIDATES CCG0128     8
                          5033000002              SA3    A3+2        DIP = R1P + 2                               CCG0128     9
          3760  20347                             LX3    59-D.XUP                                                CCG0128    10
                     0333003776 +                 MI     X3,ST1C     IF XU[DIP]   */ VAR WAS REDEF IN THIS SEQ.  CCG0128    11
          3761  0400004020 +                      EQ     ST4A                                                    CCG0128    12
                                                                                                                 CCG0128    13
          3762  13632                    ST0C     BX6    X3-X2                                                   CCG0128    14
                     15760                        BX7       "RN"X6                                               FCC1568X    6
                          0307003776 +            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
          3763  6222000004               ST1A     SB2    X2+4                                                    FCC0414    76
                          0526003776 +            NE     B2,B6,ST1C  IF XR[LJW] " TI-4  */ RS WONT FOLLOW REDEF  FCC0414    77
          3764  53327                             SA3    B7+X2       R1P = TXT(XR[LJW])                          FCC0414    78
                     7275777767                   SX7    X5-8                                                    FCC0414    79
                               26623              UX6    B2,X3                                                   FCC0414    80
          3765  0327004007 +                      PL     X7,ST3      IF REGNO > 7  */ ^ IN A B-REG               GRA      5706
                          6130000105              SB3    OC.CLR                                                  GRA      5707
          3766  0523003772 +                      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
          3767  6120000055                        SB2    OC.S                                                    GRA      5713
                          27723                   PX7    B2,X3       OC[R1P] = OC.S                              GRA      5714
                               76610              SX6    B1                                                      GRA      5715
          3770  54730                             SA7    A3                                                      GRA      5716
                     20627                        LX6    D.SZP                                                   GRA      5717
                          37746                   IX7    X4-X6       SZ[DJ] = 1                                  GRA      5718
          3771  5073000002                        SA7    A3+2        [R1P+2] = DJ                                GRA      5719
                          0400004007 +            EQ     ST3                                                     GRA      5720
                                                                                                                 GRA      5721
          3772  5142000702 +             ST1B     SA4    DUM.JT+B2                                               GRA      5722
                          6130000060              SB3    OC.SA                                                   GRA      5723
          3773  20436                             LX4    59-29                                                   GRA      5724
                     0324003776 +                 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
          3774  0523004007 +                      NE     B2,B3,ST3   IF OC[R1P] " OC.SA                          GRA      5730
                          20354                   LX3    -R1.RKP                                                 GRA      5731
                               15730              BX7    "RN"X3                                                  GRA      5732
          3775  0317004007 +                      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
          3776  6120000010               ST1C     SB2    OC.XMT                                                  GRA      5737
                          7275777767              SX7    X5-8                                                    GRA      5738
          3777  12627                             BX6    X2+X7                                                   GRA      5739
                     0326004004 +                 PL     X6,ST2      IF REGNO > 7 & ^INB[LJW]                    GRA      5740
          4000  6120000060                        SB2    OC.SA                                                   GRA      5741
                          0322004004 +            PL     X2,ST2      IF ^INB[LJW]                                GRA      5742
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   141
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
          4001  22602                             LX6    X2                                                      CCG0172     7
                     20252                        LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     CCG0172     8
                          20601                   LX6    59-I.MIBP                                               CCG0172     9
          4002  0326004004 +                      PL     X6,ST2      IF ^MIB(LJW)                                CCG0172    10
                          6120000063              SB2    OC.SS                                                   CCG0172    11
          4003  73220                             SX2    X2          RJ = SETX(LJW)                              CCG0172    12
                     20220                        LX2    R1.RKP                                                  CCG0172    13
                          0400004005 +            EQ     ST2A                  */ TO SRI WITH RJ SWITCHED TO RK  CCG0172    14
                                                                                                                 CCG0172    15
          4004  73220                    ST2      SX2    X2          RJ = SETX(LJW)                              GRA      5744
                     20240                        LX2    R1.RJP                                                  CCG0172    16
                                                                                                                 CCG0172    17
          4005  76660                    ST2A     SX6    B6                                                      CCG0172    18
                     12626                        BX6    X2+X6                                                   GRA      5747
                          43700                   MX7    0                                                       GRA      5748
          4006  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
          4007  5045000002               ST3      SA4    A5+2        DI = R1 + 2                                 FCC0514    98
                          20447                   LX4    59-D.XUP                                                FCC0514    99
          4010  0324004011 +                      PL     X4,ST3A     IF ^XU[DI]    */ IF NO EXTENDED USES        FCC0514   100
                                                                                                                 FCC0514   101
                          0100004047 +            RJ     APD         ADJUST PREVIOUS DEF TO SAVE OLD VALUE       FCC0514   102
                                                                                                                 FCC0514   103
          4011  5235000130 C             ST3A     SA3    RVT+X5      F = RVT(REGNO)  */ OLD R-NUM IN REGISTER    FCC0514   104
                          7245000200              SX4    X5+SO.LOCK                                              GRA      5755
          4012  6120000004                        SB2    OC.RS                                                   GRA      5756
                          7166777773              SX6    B6-4        R = TI - 4                                  FCC0514   105
          4013  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
          4014  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
          4015  0334004016 +                      MI     X4,ST4      IF PI[DIP]                                  GRA      5765
                          7277000004              SX7    X7+4        R2P = R2P + 4                               GRA      5766
          4016  53470                    ST4      SA4    X7                                                      GRA      5767
                     43730                        MX7    -IH.CAIHL                                               GRA      5768
                          20344                   LX3    IH.RFP                                                  GRA      5769
                               15447              BX4    -X7*X4                                                  GRA      5770
          4017  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
          4020  5011777775               ST4A     SA1    A1-2                                                    GRA      5776
                          5235000130 C            SA3    RVT+X5      RN = RVT(REGNO)                             GRA      5777
          4021  5020000000                        SA2    A0+         LJW = [LJ]                                  GRA      5778
                          7275777767              SX7    X5-8                                                    GRA      5779
          4022  0327004032 +                      PL     X7,ST7      IF REGNO > 7  */ X-REG                      GRA      5780
                                                                                                                 GRA      5781
                                        *         VALUE IS IN A B-REGISTER                                       GRA      5782
                                                                                                                 GRA      5783
                          0332004025 +            MI     X2,ST5      IF INB[LJW]                                 GRA      5784
          4023  43701                             MX7    1                                                       GRA      5785
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          4024  20352                             LX3    -I.BRP                                                  GRA      5790
                     10277                        BX2    X7          LJW = [LJ]                                  GRA      5791
                                                                                                                 GRA      5792
          4025  20110                    ST5      LX1    59-CA.EUP                                               GRA      5793
                     0331004027 +                 MI     X1,ST6      IF EU[CAW]                                  GRA      5794
                               20135              LX1    CA.EUP-CA.PSPP                                          GRA      5795
          4026  0331003367 +                      MI     X1,IRA10    IF PSP[CAW]   */ ST CAN MOVE                GRA      5796
                                                                                                                 GRA      5797
                                        *         MOVE RESULT TO AN X-REG                                        GRA      5798
                                                                                                                 GRA      5799
          4027  63320                    ST6      SB3    X2                                                      GRA      5800
                     0530004043 +                 NZ     B3,ST10     IF XR[LJW] " 0*/ PRED IS IN A X-REG         GRA      5801
                               76660              SX6    B6                                                      GRA      5802
          4030  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
          4031  6120000060                        SB2    OC.SA                                                   GRA      5807
                          0400004041 +            EQ     ST9                                                     GRA      5808
                                                                                                                 GRA      5809
                                        *         VALUE IS IN A X-REGISTER                                       GRA      5810
                                                                                                                 GRA      5811
          4032  7275777751               ST7      SX7    X5-26B                                                  GRA      5812
                          0327004043 +            PL     X7,ST10     IF REGNO > 25B  */ RESULT IN A *ST* REG     GRA      5813
                                                                                                                 GRA      5814
          4033  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
          4034  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
          4035  15747                             BX7    -X7*X4                                                  GRA      5820
                     0317004037 +                 NZ     X7,ST8      IF USES[DJP] > 1                            GRA      5821
                               20145              LX1    59-CA.PSPP                                              GRA      5822
          4036  0331003367 +                      MI     X1,IRA10    IF PSP[CAW]                                 GRA      5823
                                                                                                                 GRA      5824
          4037  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
          4040  6120000010                        SB2    OC.XMT                                                  GRA      5829
                          7237000000              SX3    X7+                                                     GRA      5830
                                                                                                                 GRA      5831
          4041  76660                    ST9      SX6    B6                                                      GRA      5832
                     20340                        LX3    R1.RJP                                                  GRA      5833
                          43700                   MX7    0                                                       GRA      5834
                               12636              BX6    X3+X6                                                   GRA      5835
          4042  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/05. 19.57.27.      PAGE   143
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
          4043  54110                    ST10     SA1    A1                                                      GRA      5840
                     20145                        LX1    59-CA.PSPP                                              GRA      5841
                          0331003367 +            MI     X1,IRA10    IF PSP[CAW]                                 GRA      5842
          4044  20132                             LX1    CA.PSPP-CA.ACP                                          CCG25     185
                     0331003367 +                 MI     X1,IRA10    IF AC[CAW]    */ A/X CANIDATE               CCG25     186
                                                                                                                 GRA      5843
                               54550              SA5    A5                                                      GRA      5844
          4045  54200                             SA2    A0                                                      GRA      5845
                     5045000002                   SA4    A5+2                                                    GRA      5846
                               20230              LX2    -I.STP                                                  GRA      5847
          4046  73620                             SX6    X2          TR = ST[LJW]                                CCG23     141
                     26725                        UX7    B2,X5                                                   GRA      5849
                          0400003707 +            EQ     LD1                                                     CCG23     142
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          4047  0200404047 +             APD      ROUTINE                                                        FCC0514   116
          4050  54351                             SA3    A5+B1       R2 = R1 + 1;  R2P = R2                      FCC0514   117
                     6130000004                   SB3    4                                                       FCC0514   118
                               10733              BX7    X3          R2W = [R2]                                  FCC0514   119
          4051  55333                    APD1     SA3    A3-B3       R2P = R2P - 4                               FCC0514   120
                     13673                        BX6    X7-X3                                                   FCC0514   121
                          0316004051 +            NZ     X6,APD1     IF [R2P] " R2W                              FCC0514   122
                                                                                                                 FCC0514   123
          4052  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
          4053  0334004055 +                      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
          4054  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
          4055  7265777767               APD2     SX6    X5-8                                                    FCC0514   134
                          0326004064 +            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
          4056  5031777775                        SA3    A1-2                                                    FCC0514   139
                          6120000060              SB2    OC.SA       OC = OC.SA                                  FCC0514   140
          4057  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
          4060  0323004065 +                      PL     X3,APD4     IF ^EU[RCT(J)]  */ NO COPY MADE             FCC0514   145
                                                                                                                 FCC0514   146
                          7277000002              SX7    X7+2                                                    CCG0128    15
          4061  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
          4062  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
          4063  0400004047 +                      EQ     APD                                                     FCC0514   150
                                                                                                                 FCC0514   151
          4064  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
          4065  77663                    APD4     SX6    B6-B3       R = TI - 4                                  FCC0514   158
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          4066  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
          4067  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
          4070  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
          4071  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
          4072  54661                             SA6    A6+B1                                                   FCC0514   178
                     54761                        SA7    A6+B1       TXT(TI+3) = 0                               FCC0514   179
                          5122000000 X            SA2    F.RDT+B2                                                FCC0514   180
          4073  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
          4074  6120000044                        SB2    36          SC = 36                                     FCC0514   188
                          76730                   SX7    B3                                                      FCC0514   189
                               67663              SB6    B6-B3       TI = TI - 4                                 FCC0514   190
          4075  23322                    APD5     AX3    B2,X2                                                   FCC0514   191
                     63330                        SB3    X3                                                      FCC0514   192
                          0536004077 +            NE     B3,B6,APD6  IF RN[SHIFT(LJW,-SC)] " TI                  FCC0514   193
          4076  22627                             LX6    B2,X7                                                   FCC0514   194
                     36262                        IX2    X6+X2       LJW = LJW + SHIFT(4,SC)                     FCC0514   195
          4077  6122777755               APD6     SB2    B2-18       SC = SC - 18                                FCC0514   196
                          0620004075 +            PL     B2,APD5     IF SC \ 0                                   FCC0514   197
                                                                                                                 FCC0514   198
          4100  10622                             BX6    X2                                                      FCC0514   199
                     54620                        SA6    A2          [LJ] = LJW                                  FCC0514   200
                          6166000010              SB6    B6+8        TI = TI + 8                                 FCC0514   201
                                                                                                                 FCC0514   202
          4101  5030777774                        SA3    A0-3        R1P = LJ - 3  */ CHECK ST PRED              FCC0514   203
                          6130000010              SB3    OC.XMT                                                  FCC0514   204
          4102  26723                             UX7    B2,X3                                                   FCC0514   205
                     0523004047 +                 NE     B2,B3,APD   IF OC[R1P] " OC.XMT                         FCC0514   206
                               20334              LX3    -R1.RJP                                                 FCC0514   207
          4103  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
          4104  0317004047 +                      NZ     X7,APD      IF [LJP] " OLW  */ NOT OMITTED *XMT*        FCC0514   211
                          5063000000              SA6    A3+         [LJP] = LJW   */ UPDATE LINK WORD OF PRED   FCC0514   212
          4105  0400004047 +                      EQ     APD                                                     FCC0514   213
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   146
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PVC                 IRA 
  
                                        **        PVC - PROCESS VALUE CANIDATE DEFINITION ( LD OR CON )          GRA      5852
                                                                                                                 GRA      5853
          4106  54110                    PVC      SA1    A1                                                      GRA      5854
                     20151                        LX1    59-CA.KDP                                               GRA      5855
                          0321004110 +            PL     X1,PVC1     IF ^KD[CAW]                                 GRA      5856
                                                                                                                 GRA      5857
          4107  43600                             MX6    0                                                       GRA      5858
                     54641                        SA6    A4+B1       [DI+1] = 0                                  GRA      5859
                          0400003367 +            EQ     IRA10                                                   GRA      5860
                                                                                                                 GRA      5861
          4110  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
          4111  5234000130 C                      SA3    RVT+X4      R = RVT(REGNO)                              GRA      5866
                          7264777767              SX6    X4-8                                                    GRA      5867
          4112  0326004125 +                      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
          4113  20322                             LX3    I.BRP                                                   GRA      5874
                     12637                        BX6    X3+X7                                                   GRA      5875
                          20744                   LX7    I.STP                                                   GRA      5876
                               12667              BX6    X6+X7                                                   GRA      5877
          4114  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
          4115  20104                             LX1    59-CA.CONP                                              CCG0034    24
                     43700                        MX7    0                                                       GRA      5886
                          20316                   LX3    R1.RJP-I.BRP                                            GRA      5887
          4116  6120000060                        SB2    OC.SA       OC = OC.SA                                  GRA      5888
                          0321004123 +            PL     X1,PVC2     IF ^CON[CAW]                                GRA      5889
                                                                                                                 GRA      5890
          4117  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
          4120  0321004123 +                      PL     X1,PVC2     IF CA[C2W] = IN[R1]                         GRA      5895
                          76110                   SX1    B1                                                      CCG0034    25
                               20172              LX1    I.MIBP                                                  CCG0034    26
          4121  12661                             BX6    X6+X1                                                   CCG0034    27
                     54660                        SA6    A6          [R1+3] = RNI(3,TI,R,TI)                     CCG0034    28
                          6120000063              SB2    OC.SS                                                   GRA      5896
          4122  20354                             LX3    R1.RKP-R1.RJP                                           GRA      5897
                                                                                                                 CCGA062    10
          4123  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
          4124  0400003367 +                      EQ     IRA10                                                   GRA      5901
                                                                                                                 GRA      5902
                                        *         CANIDATE IN A X-REGISTER                                       GRA      5903
                                                                                                                 GRA      5904
          4125  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/05. 19.57.27.      PAGE   147
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PVC                 IRA 
  
                               10533              BX5    X3          RST = R       */ R-NUM IN A ST REG          GRA      5907
          4126  20224                             LX2    59-D.PSP                                                FCC2165     1
                     0326004132 +                 PL     X6,PVC6     IF REGNO > 25B  */ X6,X7                    GRA      5908
                               76500              SX5    B0          RST = 0                                     GRA      5910
          4127  0322004132 +                      PL     X2,PVC6     IF ^PS[DI]                                  GRA      5911
                                                                                                                 GRA      5912
                          20340                   LX3    R1.RJP                                                  GRA      5913
                               76560              SX5    B6          RST = TI                                    GRA      5914
          4130  43700                             MX7    0                                                       GRA      5915
                     12635                        BX6    X3+X5                                                   GRA      5916
                          20334                   LX3    -R1.RJP                                                 GRA      5917
          4131  6120000010                        TYPEI  XMT,X6      SRI(  XMT  TI,R )                           GRA      5918
                                                                                                                 GRA      5919
          4132  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
          4133  20201                             LX2    D.PSP-D.PRSP                                            FCC0812     6
                     0322003367 +                 PL     X2,IRA10    IF ^PRS[DI]                                 FCC0812     7
                                                                                                                 FCC0812     8
          4134  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
          4135  0331003367 +                      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
          4140  0400003367 +                      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
          4141  6120000051               PAC0     SB2    OC.ST                                                   GRA      5929
                                                                                                                 GRA      5930
          4142  5011000002               PAC      SA1    A1+2        CCW = RCT(J+2)                              GRA      5931
                          6122777727              SB2    B2-OC.LD    MODE = OC[R1] - OC.LD                       GRA      5932
          4143  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
          4144  53030                             SA0    X3                                                      GRA      5938
                     20166                        LX1    CC.MITP-CC.REG2P                                        GRA      5939
                          15717                   BX7    -X7*X1      REGN2 = REG2[CCW]                           GRA      5940
          4145  5142004206 +                      SA4    PACA+B2     OCW = PACA(MODE)                            GRA      5941
                          20303                   LX3    3                                                       FCC0646    23
                               43664              MX6    -8                                                      FCC0646    24
          4146  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
          4147  63360                             SB3    X6                                                      GRA      5947
                     7166000000                   SX6    B6+         R = TI                                      GRA      5948
          4150  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/05. 19.57.27.      PAGE   148
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PAC                 IRA 
  
                          0420004153 +            ZR     B2,PAC1     IF MODE = 0   */ LD                         GRA      5951
          4151  0521004165 +                      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
          4152  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
          4153  7040777773               PAC1     SX4    A0-4                                                    FCC0646    26
                          0304004173 +            ZR     X4,PAC4     IF IT = 4                                   FCC0646    27
                                                                                                                 FCC0646    28
                                        *         IT = 1 - 3 , RJ,RK ARE FROM *RVT*                              FCC0646    29
                                                                                                                 FCC0646    30
          4154  5237000130 C                      SA3    RVT+X7      K = RVT(REGN2)                              FCC0646    31
                          5222000130 C            SA2    RVT+X2      J = RVT(REGN1)                              FCC0646    32
          4155  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
          4156  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
          4157  53375                             SA3    "SB"+X7     LFW = [SB+F]                                GRA      5970
                     0307004161 +                 ZR     X7,PAC2     IF F = 0      */ NO RF OR A0                GRA      5971
                                                                                                                 GRA      5972
                               76100              SX1    B0          ZB = 0                                      GRA      5973
          4160  0323004161 +                      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
          4161  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
          4162  5123000000 X                      SA2    F.RDT+B3    D = RDT(NOC)                                GRA      5982
                          20744                   LX7    IH.RFP                                                  GRA      5983
                               74300              SX3    A0                                                      FCC0977    33
          4163  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
          4164  12737                             BX7    X3+X7       SRF[R2W] = IT & 40B                         FCC0977    38
                     0400003365 +                 EQ     TYIT                                                    GRA      5986
                                                                                                                 GRA      5987
                                        *         STT - SETUP LINK WORD AND CHECK FOR SPECIAL CASE               GRA      5988
                                                                                                                 GRA      5989
          4165  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
          4166  75101                             SX1    A0-B1                                                   GRA      5994
                     76660                        SX6    B6          R = TI                                      GRA      5995
                          0311004153 +            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/05. 19.57.27.      PAGE   149
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PAC                 IRA 
  
                                        *         *RCT* AND *RF* IS RVT(REGN1)                                   GRA      5999
                                                                                                                 GRA      6000
          4167  55111                             SA1    A1-B1       C2W = RCT(J+1)                              GRA      6001
                     5222000130 C                 SA2    RVT+X2                                                  GRA      6002
                               43352              MX3    -IH.CAL                                                 GRA      6003
          4170  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
          4171  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
          4172  0400003365 +                      EQ     TYIT                                                    GRA      6010
                                                                                                                 FCC0646    34
                                        *         IT = 4 , GET RJ FROM LINK WORK OF RF IN *SEQ*.                 FCC0646    35
                                                                                                                 FCC0646    36
          4173  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
          4174  0315004176 +                      NZ     X5,PAC5     IF F " 0                                    FCC0646    41
                                                                                                                 FCC0646    42
                          5222000130 C            SA2    RVT+X2      J = RVT(REGN1)                              FCC0646    43
          4175  43300                             MX3    0           K = 0                                       FCC0646    44
                     76110                        SX1    B1          ZB = 1                                      FCC0646    45
                          0400004202 +            EQ     PAC8                                                    FCC0646    46
                                                                                                                 FCC0646    47
          4176  53355                    PAC5     SA3    "SB"+X5     LFW = [SB+F]                                FCC0646    48
                     0323004177 +                 PL     X3,PAC6     IF ^INB[LFW]                                FCC0646    49
                               20352              LX3    -I.BRP      LFW = SHIFT(LFW,-I.BRP)                     FCC0646    50
          4177  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
          4200  0317004201 +                      NZ     X7,PAC7     IF REGN2 " 0  */ RF IS IN *RCT*             FCC0646    54
                          5232000130 C            SA3    RVT+X2      K = RVT(REGN1)                              FCC0646    55
          4201  7225000000               PAC7     SX2    X5+         J = F                                       FCC0646    56
                                                                                                                 FCC0646    57
          4202  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
          4203  20240                             LX2    R1.RJP                                                  FCC0646    61
                     20320                        LX3    R1.RKP                                                  FCC0646    62
                          12223                   BX2    X2+X3                                                   FCC0646    63
                               12526              BX5    X2+X6                                                   FCC0646    64
          4204  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
          4205  0400003365 +                      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
          4206                           PACA     BSS    0                                                       GRA      6016
          4206  12627061134000000000              OPT    PLD,SLD,SDL                                             GRA      6017
          4207  13027462136000000000              OPT    PST,SST,SDS                                             GRA      6018
          4210  12430063140000000000              OPT    STT,SA,SS                                               GRA      6019
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      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
          4211                           CUCA     BFMW   D,(^D,RJRS,PI,USES)                                     GRA      6043
                                                                                                                 GRA      6044
          4212  0200404212 +             CUC      ROUTINE                                                        GRA      6045
          4213  5120000000 X                      SA2    O.TXT                                                   GRA      6046
                          5130000000 X            SA3    L.TXT                                                   GRA      6047
          4214  5110004211 +                      SA1    CUCA                                                    GRA      6048
                          66211                   SB2    B1+B1                                                   GRA      6049
                               63722              S"TB"  X2+B2       TB = O.TXT + 2                              GRA      6050
          4215  6160000047                        SB6    D.PSP                                                   GRA      6051
                          7100600001              SX0    RN.MASK                                                 CCG11     122
          4216  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
          4217  43700                             MX7    0           [DI+1] = 0                                  GRA      6057
                     56771                        SA7    "TB"+B1     [TB+1] = 0    */ CLEAR LINK WD OF *BOS*     GRA      6058
                          0400004225 +            EQ     CUC1                                                    GRA      6059
  
  
  
          4220                                    PROCESS (PST,SST,SDS)                                          GRA      6061
          4220  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
          4221  12626                             BX6    X2+X6       PS[DIP] = 1                                 GRA      6066
                     5063000000                   SA6    A3+                                                     GRA      6067
                                                                                                                 GRA      6068
                                        *         TYPE I INSTRUCTION PROCESSING                                  GRA      6069
                                                                                                                 GRA      6070
          4222  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
          4223  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/05. 19.57.27.      PAGE   151
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYI                 CUC 
  
          4224  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
          4225                                    PROCESS (LAB,ENT,UJP,RJ3,RJ6,S,FMA,CLR)                        GRA      6084
                                                                                                                 GRA      6085
          4225  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
          4226  5133004305 +                      SA3    CUC.JT+B3                                               GRA      6090
                          0306004231 +            ZR     X6,CUC2     IF ^(^D,PI,RJRS)[DI] & USES[DI] = 0         GRA      6091
                                                                                                                 GRA      6092
          4227  63430                             SB4    X3                                                      GRA      6093
                     76710                        SX7    B1                                                      GRA      6094
                          0244000000              JP     B4          JUMP( ([UC.JT( OC[R1] )] )                  GRA      6095
                                                                                                                 GRA      6096
          4230                                    PROCESS DAR                                                    GRA      6097
          4230  43363                             MX3    -D.USESL                                                GRA      6098
                     15643                        BX6    -X3*X4                                                  GRA      6099
                          0316004222 +            NZ     X6,TYI      IF USES[DI] " 0                             GRA      6100
                                                                                                                 GRA      6101
                                        *         USELESS DEF, MARK AS DEAD                                      GRA      6102
                                                                                                                 GRA      6103
          4231  54640                    CUC2     SA6    A4          [DI] = 0                                    GRA      6104
                     54050                        SA0    A5          DD = R1                                     GRA      6105
                          0400004225 +            EQ     CUC1                                                    GRA      6106
                                                                                                                 GRA      6107
          4232                                    PROCESS EOS                                                    GRA      6108
          4232  73750                             SX7    X5                                                      GRA      6109
                     0307004225 +                 ZR     X7,CUC1     IF IH[R1] = 0 */ NOT AN OPT=2 *EOS*         GRA      6110
                                                                                                                 GRA      6111
          4233                                    PROCESS NOP                                                    GRA      6112
          4233  43600                             MX6    0                                                       GRA      6113
                     0400004231 +                 EQ     CUC2                                                    GRA      6114
                                                                                                                 GRA      6115
          4234                                    PROCESS DWL                                                    GRA      6116
          4234  43600                             MX6    0           PS = 0                                      CCGA039    11
                     20427                        LX4    59-D.L2P                                                CCGA039    12
                          0334004236 +            MI     X4,CUC10    IF L2[DI]                                   CCGA039    13
          4235  22667                             LX6    B6,X7       PS = 1                                      CCGA039    14
                                        *                                                                        CCGA039    15
          4236  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
          4237  54630                             SA6    A3                                                      GRA      6120
                     0400004222 +                 EQ     TYI                                                     GRA      6121
                                                                                                                 GRA      6122
          4240                                    PROCESS (UP,NR,RNZ)                                            GRA      6123
          4240  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
          4241  54630                             SA6    A3                                                      GRA      6128
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   152
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYI                 CUC 
  
                     0400004225 +                 EQ     CUC1                                                    GRA      6129
  
  
  
          4242                                    PROCESS RS                                                     GRA      6131
          4242  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
          4243  43363                             MX3    -D.USESL                                                GRA      6136
                     63360                        SB3    X6          LKT = SOLK[R1]                              GRA      6137
                          0723004252 +            GT     B3,B2,RS2   IF LKT = 3    */ RJ RS                      GRA      6138
                                                                                                                 GRA      6139
          4244  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
          4245  0431004247 +                      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
          4246  54620                             SA6    A2                                                      GRA      6148
                     0400004225 +                 EQ     CUC1                                                    GRA      6149
                                                                                                                 GRA      6150
          4247  15723                    RS1      BX7    -X3*X2                                                  GRA      6151
                     54620                        SA6    A2                                                      GRA      6152
                          0317004225 +            NZ     X7,CUC1     IF USES[DIP] " 0                            GRA      6153
                                                                                                                 GRA      6154
          4250  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
          4251  0400004225 +                      EQ     CUC1                                                    GRA      6159
                                                                                                                 GRA      6160
          4252  15643                    RS2      BX6    -X3*X4                                                  GRA      6161
                     20750                        LX7    D.RJRSP                                                 GRA      6162
                          0306004254 +            ZR     X6,RS3      IF USES[DI] = 0                             GRA      6163
          4253  12672                             BX6    X7+X2       RJRS[DIP] = 1                               GRA      6164
                     54620                        SA6    A2                                                      GRA      6165
                          0400004225 +            EQ     CUC1                                                    GRA      6166
                                                                                                                 GRA      6167
          4254  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
          4255  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
          4256  54630                             SA6    A3                                                      GRA      6176
                     0400004225 +                 EQ     CUC1                                                    GRA      6177
  
  
          4257                                    PROCESS DEF                                                    GRA      6179
          4257  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/05. 19.57.27.      PAGE   153
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                DEF                 CUC 
  
          4260  0400004225 +                      EQ     CUC1                                                    GRA      6183
  
  
  
          4261                                    PROCESS BOS                                                    GRA      6185
          4261  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
          4262  0460004212 +                      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
          4263  54444                    BOS1     SA4    A4+B4       DI = DI + 4                                 GRA      6197
                     0304004263 +                 ZR     X4,BOS1     IF [DI] = 0                                 GRA      6198
                                                                                                                 GRA      6199
                               55542              SA5    A4-B2       R1 = DI - 2                                 GRA      6200
          4264  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
          4265  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
          4266  66664                             SB6    B6+B4       SI = SI + 4                                 GRA      6209
                     0530004263 +                 NZ     B3,BOS1     IF OC[R1] " 0                               GRA      6210
                                                                                                                 GRA      6211
                               67572              SB5    "TB"-B2                                                 GRA      6212
          4267  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
          4270  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , OTL )                          GRA      6216
          4271  5140000000 X                      SA4    O.TXT                                                   GRA      6217
                          63720                   SB7    X2                                                      GRA      6218
                               43200              MX2    0                                                       GRA      6219
          4272  53040                             SA0    X4                                                      GRA      6220
                     0100000000 X                 CALL   RNI#        RENUMBER THE INSTRUCTIONS                   CCGNC     668
          4273  7160000000                        SX6    0                                                       GRA      6222
                          5160000000 X            SA6    L.RND       L.RND = 0                                   GRA      6223
          4274  0400004212 +                      EQ     CUC                                                     GRA      6224
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   154
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYIII               CUC 
  
          4275                                    PROCESS (ST,TST)                                               GRA      6226
          4275  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
          4276  12662                             BX6    X6+X2       PS[DIP] = 1                                 GRA      6231
                     54630                        SA6    A3                                                      GRA      6232
                                                                                                                 GRA      6233
          4277                                    PROCESS (LD,ILD,TLD,LDC,LDV,STT,KLS,KRS)                       CCG16     241
          4277  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
          4300  36627                             IX6    X2+X7       USES[DJ] = USES[DJ] + 1                     GRA      6239
                     54620                        SA6    A2                                                      GRA      6240
                          0400004225 +            EQ     CUC1                                                    GRA      6241
  
  
          4301                                    PROCESS (JPBB,RJXJ)                                            CCG2       19
          4301  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
          4302  36627                             IX6    X2+X7       USES[DJ] = USES[DJ] + 1                     GRA      6248
                     54620                        SA6    A2                                                      GRA      6249
                                                                                                                 GRA      6250
          4303                                    PROCESS (JIN,JPX)                                              GRA      6251
          4303  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
          4304  0400004225 +                      EQ     CUC1                                                    GRA      6256
                                                                                                                 GRA      6257
                                                  QUAL                                                           GRA      6258
                                3252 +   IRA      EQU    /IRA/IRA                                                GRA      6259
                                4212 +   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/05. 19.57.27.      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
          4305                           IRA.JT   BSS    0                                                       GRA      6286
          4305                           CUC.JT   BSS    0                                                       GRA      6287
          4305                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                                                                                                 GRA      6289
          4571                                    END                                                            GRA      6290
  
                             62500B CM  STORAGE USED            15074 STATEMENTS     2179 SYMBOLS      000040 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            5.034 SECONDS        3552 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AAD          2307   PROGRAM*       79/10     90/07 L   90/38
        AAD1         2317   PROGRAM*       90/13     90/19     90/25 L
        AAV          1560   PROGRAM*       62/17     67/14 L   67/16     68/40     70/11
        AAVA         1553   PROGRAM*       67/10 L   67/26
        AAV2         1566   PROGRAM*       67/32 L   67/35     67/37     67/41     67/44     67/50     68/09     68/15
        AAV2A        1575   PROGRAM*       67/48     67/51 L
        AAV3         1576   PROGRAM*       68/02 L   68/06     68/08
        AAV4         1602   PROGRAM*       68/03     68/11 L
        AAV5         1604   PROGRAM*       67/20     67/33     68/17 L
        AAV5A        1613   PROGRAM*       68/36     68/39 L
        AAV6         1616   PROGRAM*       68/48 L   70/07
        AAV8         1632   PROGRAM*       69/20     69/22     69/34 L
        AAV9         1636   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          2346   PROGRAM*       75/31     89/09     92/10 L   92/26
        AIR          1155   PROGRAM*       44/27     47/04     47/23     49/20 L   49/48     82/11     90/56
        AIR1         1153   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         1262   PROGRAM*       54/21 L   54/35
        ASP1         1271   PROGRAM*       54/40 L   54/49
        ASP2         1272   PROGRAM*       54/38     54/43 L   54/46     54/54     55/02     55/07
        ASP3         1277   PROGRAM*       55/01     55/04 L
        ATI           220   CCGSCR         74/21 S   74/27     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         3042   PROGRAM*      111/37 L  111/40    111/48    112/03    112/07    112/12
        AUM2         3052   PROGRAM*      111/54    111/55    112/05 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   156
        SYMBOLIC REFERENCE TABLE. 
  
        AUM3         3053   PROGRAM*      111/50    111/52    112/09 L
        AXCT         1554   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                  11/53     22/49     27/15     62/52     72/14     94/48    108/38    143/04
                                           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
        CA.APLNL        2                  20/35     67/46
        CA.APLNP       52                  20/37     67/45
        CA.CONP        67                  11/53     21/57     52/47     64/16     72/12     93/40    138/01
                                           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
        CA.CTL          3                  30/06
        CA.CTP         67                  30/07
        CA.DEFP        25                  11/53     16/45     23/27     44/24     53/10    108/45
                                           16/18     17/42     23/34     47/21     67/10    108/47
                                           16/22     17/47     31/45     52/51     67/43    111/12
        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/05. 19.57.27.      PAGE   157
        SYMBOLIC REFERENCE TABLE. 
  
        CA.EUP         63                  11/53     33/12     34/42     35/40     36/42     39/06     48/31    144/36
                                           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
        CA.FPP         66                  11/53     25/47     25/49     30/19     30/20     78/03     78/07     79/31
        CA.IAP         60                  11/53     35/40     48/49    111/13
        CA.IRAP        72                  11/53     43/05    130/41    137/46    138/01    147/22
        CA.KDP         22                  11/53     19/27     85/10    108/38    139/26    146/21
                                           18/55     48/50    108/34    139/13    146/04
        CA.LXP         23                  11/53     18/57     46/21     60/13     65/44    101/20    111/12
                                           16/10     43/05     54/37     60/15     65/47    101/22
        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                  11/53     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                  11/53     16/15     60/15    108/47    142/10    143/02
                                           15/26     54/57    101/22    111/12    142/40    143/04
        CA.RAFL         2 
        CA.RAFP        72 
        CA.RAP         73                  11/53     19/27     54/37     61/14     81/27    108/40    139/13
                                           17/47     46/08     54/57     67/45     83/44    108/45
                                           18/28     48/49     60/13     72/12    101/20    136/30
                                           18/33     50/14     61/13     72/14    101/37    137/46
        CA.RFP         62                  11/53     18/52     33/12     37/42     48/49    127/30
                                           14/02     21/30     35/43     39/24     50/14    128/29
                                           18/37     23/43     36/45     43/04    111/13
        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                  11/53     17/09     36/13     36/45     44/24     44/56     48/10
                                           16/22     33/14     36/42     44/22     44/41     46/46     75/16
        CA.UDIL        22                  30/26
        CA.UDIP         0 
        CA.USEP        24                  11/53     16/53     23/26     23/42     67/10
        CA.VCP         71                  11/53     18/16     25/53     38/39     43/04    100/04    121/39
                                           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
        CA.^RDP        61                  11/53     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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   158
        SYMBOLIC REFERENCE TABLE. 
  
        CC.I2P         72                  31/20     32/20     32/36     63/11     63/13    111/53
        CC.MITL         6                  32/49
        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          3225   PROGRAM*      114/17    118/12    118/34 L  118/57
        CIS1         3232   PROGRAM*      118/48 L  118/50
        CIS2         3234   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          3033   PROGRAM*       12/54    111/15 L  115/32    115/52
        CLBA         3031   PROGRAM*      111/12 L  112/29
        CLBB         3032   PROGRAM*      111/13 L  111/30
        CLB1         3054   PROGRAM*      111/31    111/38    112/17 L  116/07
        CLB10        3137   PROGRAM*      113/20    115/05    115/07    115/18 L
        CLB11        3145   PROGRAM*      115/37 L  115/48
        CLB12        3152   PROGRAM*      115/42    115/47 L
        CLB13        3153   PROGRAM*      115/41    115/50 L
        CLB14        3155   PROGRAM*      114/18    116/03 L
        CLB17        3163   PROGRAM*      116/04    116/12 L
        CLB2         3062   PROGRAM*      112/32    112/35 L  112/49
        CLB3         3066   PROGRAM*      112/36    112/39    112/48 L
        CLB4         3070   PROGRAM*      112/56 L  115/24
        CLB4A        3101   PROGRAM*      113/10    113/22 L
        CLB8         3123   PROGRAM*      114/34 L  114/39
        CLB9         3125   PROGRAM*      114/23    114/44 L
        CLW          3173   PROGRAM*      116/12    116/31 L  116/44
        CLW1         3177   PROGRAM*      116/40 L  116/42
        CMR          1366   PROGRAM*       52/05     59/21 L
        CMRA         1364   PROGRAM*       59/14 L   59/27
        CMR0         1365   PROGRAM*       59/16 L   59/43
        CMR1         1374   PROGRAM*       59/37 L   59/55
        CMR2         1375   PROGRAM*       59/38     59/40 L
        CMR4         1377   PROGRAM*       59/33     59/53     60/12     60/16     60/21
                                           59/50 L   59/57     60/14     60/19
        CMR6         1406   PROGRAM*       60/08     60/18 L
        CPR             0   PROGRAM*       11/29 L   11/44     12/29     12/46     12/57
                                           11/31     12/26     12/43     12/52
        CPRA           12   PROGRAM*       11/37 S   11/38 S   11/40 S   11/41     11/46 L
        CRW          1263   PROGRAM*       51/37     54/23 L   54/26     55/54     55/56
        CRWA         1261   PROGRAM*       50/57 S   51/32 S   54/20 L   57/01
        CRW0         1301   PROGRAM*       54/41     55/11 L
        CRW1         1304   PROGRAM*       55/23 L   55/42     55/48     56/34     56/37     56/44     56/51     56/55
        CRW10        1334   PROGRAM*       56/40     56/46 L
        CRW2         1311   PROGRAM*       55/29     55/40 L
        CRW3         1313   PROGRAM*       55/28     55/46 L
        CRW4         1320   PROGRAM*       55/46     56/03 L
        CRW5         1321   PROGRAM*       56/04     56/06 L
        CRW7         1323   PROGRAM*       55/34     55/36     56/10     56/16 L   56/29
        CRW8         1327   PROGRAM*       56/18     56/23     56/27     56/29 L
        CRW9         1330   PROGRAM*       55/41     56/33 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   159
        SYMBOLIC REFERENCE TABLE. 
  
        CUC          4212   PROGRAM*      113/29    154/36 D  154/37
        CUC.JT       4305   PROGRAM*      151/13    155/08 L
        CUC#         4212   PROGRAM*      154/37 E  154/37 D
        CXB          3212   PROGRAM*      118/03 L  118/06    118/25
        CXB#         3212   PROGRAM*      118/03 E  118/03 L
        DAA          1413   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         1410   PROGRAM*       61/12 L   62/29
        DAAB         1412   PROGRAM*       61/14 L   65/13     68/48     72/29
        DAA0         1421   PROGRAM*       61/20     61/27 L
        DAA0A        1431   PROGRAM*       61/41     61/47 L
        DAA1         1440   PROGRAM*       62/07     62/10     62/12 L
        DAA10        1521   PROGRAM*       65/12 L   66/39
        DAA10A       1536   PROGRAM*       65/46     65/48     66/03 L
        DAA11        1543   PROGRAM*       65/38     65/45     66/22 L   66/25
        DAA2         1451   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         1471   PROGRAM*       63/26     63/41 L
        DAA4         1473   PROGRAM*       62/43     63/50 L
        DAA5         1477   PROGRAM*       64/08 L   65/01
        DAA7         1513   PROGRAM*       64/13     64/21     64/36     64/48 L
        DAA8         1516   PROGRAM*       64/17     64/23     64/34     64/44     64/57 L
        DAA9         1517   PROGRAM*       64/10     64/55     65/03 L
        DMASK           0   EXTERNAL*     130/18    137/24
        DMASK#          0   EXTERNAL* 
        DMPRLST         0   EXTERNAL*      20/14    113/24    113/25
        DTL           250   CCGSCR        113/08    121/57 S
        DUM           522   PROGRAM*       12/19     41/19 D
        DUMA          516   PROGRAM*       33/12 L   34/29     34/37     34/50
        DUMB          517   PROGRAM*       33/13 L   35/17
        DUMC          520   PROGRAM*       33/14 L   35/42
        DUM.JT        702   PROGRAM*       33/48     42/34 L  140/37
        DVA             3   GPOGRA
        DXA          1170   PROGRAM*       12/42     50/16 L   50/56     51/49     53/25
                                           12/49     50/20     51/41     52/08
        DXAA         1166   PROGRAM*       50/13 L   50/32
        DXA1         1201   PROGRAM*       50/39 L   50/42     50/44     50/50
        DXA10        1245   PROGRAM*       52/43 L   53/20
        DXA11        1251   PROGRAM*       52/48     52/49     52/53     52/56 L   53/04
        DXA2         1205   PROGRAM*       50/40     50/52 L
        DXA3         1213   PROGRAM*       51/14 L   51/23
        DXA4         1216   PROGRAM*       51/22     51/28 L
        DXA4A        1217   PROGRAM*       50/18     51/31 L
        DXA5         1220   PROGRAM*       51/01     51/34 L   51/47
        DXA6         1225   PROGRAM*       51/31     51/45 L
        DXA7         1227   PROGRAM*       51/39     52/05 L
        DXA8         1236   PROGRAM*       52/14     52/17     52/23 L
        DXA9         1242   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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   160
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          2355   PROGRAM*       89/45     93/13 L   93/47
        ECC0         2354   PROGRAM*       93/09 L   93/25
        ECC1         2361   PROGRAM*       93/20     93/23 L   93/29
        EDC          2323   PROGRAM*       80/12     90/21     90/44 L   91/01
        EDCA         2331   PROGRAM*       77/22     90/46     91/03 L
        EMF            13   GPOGRA
        EPSI           33   GPOGRA        106/11    122/08
        ERC           236   PROGRAM*       12/20     32/52 D
        ERC.JT        702   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          3023   PROGRAM*      109/36    110/19 L  110/28    110/34
        FLB1         3027   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            21   PROGRAM*       12/06 L   13/09
        GRASRF         20   PROGRAM*       12/04 L   13/08 S   76/17 S
        GRASRF#        20   PROGRAM*       12/04 E   12/04 L
        GRA0           24   PROGRAM*       12/12 L  116/25
        GRA1           55   PROGRAM*       12/34     12/49 L
        GRA2           56   PROGRAM*       12/32     12/40     12/47     12/51 L
        GRA3           60   PROGRAM*       12/17     12/54 L
        GRA#           21   PROGRAM*       12/06 E   12/06 L
        HBI             0   EXTERNAL*      98/53
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   161
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          3252   PROGRAM*      113/05    154/35 D
        IRA.JT       4305   PROGRAM*      124/54    155/07 L
        IRP           102   PROGRAM*       12/12     13/15 L   13/50     13/57
        IRPA          122   PROGRAM*       13/22     14/02 L
        IRP1          116   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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   162
        SYMBOLIC REFERENCE TABLE. 
  
        LCV            21   GPOGRA         44/29 S   84/14     84/30     84/48     86/45     96/19    135/31
        LEA             7   GPOGRA         13/04     15/07    108/13
        LGL            16   GPOGRA        132/52
        LIH            25   GPOGRA        133/05    134/02    135/34
        LIV          2543   PROGRAM*       96/17     96/57     97/05     97/54     99/38 L  100/02    100/10    100/24
        LIV1         2551   PROGRAM*       99/51     99/53     99/56 L
        LIV2         2553   PROGRAM*       99/43    100/04 L
        LIV3         2556   PROGRAM*      100/05    100/14 L
        LIV4         2561   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/04     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*     107/54
        L$RCT           0   EXTERNAL* 
        L$RND           0   EXTERNAL*      43/55     74/28
        L$RXI           0   EXTERNAL* 
        L$SEQ           0   EXTERNAL*      20/14    113/24
        L$TET           0   EXTERNAL*      13/03
        L$TXT           0   EXTERNAL*     113/25
        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*      11/47     13/06 S   20/13 S   45/25     50/25     74/39 S   85/56     93/33
                                           12/21     15/05     43/25     48/09     71/27     76/55     90/45    116/20 S
        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         12/14
        MAA           204   CCGSCR         62/12 S   62/18     63/52     68/17
        MARA           17   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          1645   PROGRAM*       12/51     71/25 L   83/09     84/07     84/23     84/40     87/06
        MFAC         2054   PROGRAM*       79/05     79/26 L
        MFAD         2055   PROGRAM*       72/40     79/31 L   79/50
        MFA1         1656   PROGRAM*       71/50 L   72/11
        MFA10        1741   PROGRAM*       74/46 L   76/41     77/27     77/42     80/45
                                           75/32     76/53     77/34     79/24
        MFA10A       1754   PROGRAM*       75/18     75/23 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   163
        SYMBOLIC REFERENCE TABLE. 
  
        MFA11        1755   PROGRAM*       75/31 L   75/43     75/46     75/53     75/57
        MFA12        1757   PROGRAM*       75/27     75/36 L
        MFA13        2001   PROGRAM*       76/35     76/45 L
        MFA14        2013   PROGRAM*       77/17     77/22 L
        MFA2         1661   PROGRAM*       71/46     72/07 L   72/15     72/37     72/53
                                           71/53     72/13     72/20     72/44
        MFA2B        1673   PROGRAM*       72/27     72/32     72/37 L
        MFA2C        1676   PROGRAM*       72/35     72/42     72/46 L
        MFA20        2015   PROGRAM*       75/23     77/32 L
        MFA3         1701   PROGRAM*       72/08     72/55 L
        MFA30        2017   PROGRAM*       77/32     77/39 L
        MFA31        2022   PROGRAM*       77/52 L   77/56     78/18
        MFA32        2030   PROGRAM*       78/14     78/16 L
        MFA33        2034   PROGRAM*       78/34 L   78/40
        MFA34        2036   PROGRAM*       78/37     78/40 L
        MFA34A       2040   PROGRAM*       78/42     78/46 L
        MFA35        2044   PROGRAM*       79/04 L   79/14     79/22
        MFA4         1711   PROGRAM*       73/27 L   74/05
        MFA40        2056   PROGRAM*       75/11     75/17     75/21     77/40     78/24     78/44     79/36 L
        MFA41        2057   PROGRAM*       79/39 L   80/43
        MFA45        2071   PROGRAM*       79/48     80/16 L
        MFA46        2076   PROGRAM*       80/25     80/35 L
        MFA47        2077   PROGRAM*       79/54     79/55     80/10     80/33     80/40 L
        MFA48        2101   PROGRAM*       73/06     74/50     81/01 L
        MFA48A       2104   PROGRAM*       81/03     81/10 L
        MFA49        2110   PROGRAM*       81/23 L   81/45
        MFA5         1715   PROGRAM*       73/31     73/34     73/43 L   74/12
        MFA50        2113   PROGRAM*       81/29     81/33 L
        MFA51        2114   PROGRAM*       81/31     81/37 L
        MFA52        2116   PROGRAM*       81/35     81/42 L
        MFA53        2120   PROGRAM*       81/40     81/47 L
        MFA54        2126   PROGRAM*       81/57     82/06 L   82/13
        MFA55        2131   PROGRAM*       82/02     82/07     82/17 L
        MFA56        2133   PROGRAM*       82/24 L   83/01
        MFA57        2135   PROGRAM*       82/32 L   82/54
        MFA58        2141   PROGRAM*       82/39     82/47 L
        MFA59        2143   PROGRAM*       82/32     82/42     82/53 L
        MFA6         1721   PROGRAM*       73/23     74/01 L   74/08     74/10
        MFA6A        1075   PROGRAM*       46/14     46/19 L
        MFA60        2145   PROGRAM*       81/05     81/47     82/01     82/18     83/06 L
        MFA60A       2157   PROGRAM*       83/36 L   83/38     83/43     83/45
        MFA60B       2166   PROGRAM*       83/30     83/40     83/55 L
        MFA61        2170   PROGRAM*       83/13     84/05 L
        MFA62        2172   PROGRAM*       84/12 L   85/28
        MFA63        2177   PROGRAM*       84/08     84/27 L
        MFA64        2204   PROGRAM*       84/27     84/44 L
        MFA65        2212   PROGRAM*       85/03 L   85/22
        MFA66        2220   PROGRAM*       85/04     85/07     85/13     85/15     85/21 L   85/38     86/34
        MFA67        2222   PROGRAM*       85/19     85/33 L
        MFA67A       2231   PROGRAM*       86/05 L   86/09     86/21     86/29
        MFA67B       2242   PROGRAM*       86/12     86/17     86/19     86/33 L
        MFA68        2243   PROGRAM*       85/48     86/06     86/38 L
        MFA7         1725   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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   164
        SYMBOLIC REFERENCE TABLE. 
  
        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          1013   PROGRAM*       12/28     43/07 L   43/17     48/35
        MTAA         1011   PROGRAM*       43/04 L   43/34
        MTAB         1012   PROGRAM*       43/05 L   46/07     75/14
        MTAC         1151   PROGRAM*       48/28     48/49 L
        MTA1         1026   PROGRAM*       43/36 L   43/39     43/43     43/48
        MTA10        1110   PROGRAM*       46/11     46/24     46/31     47/01 L
        MTA11        1114   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        1124   PROGRAM*       43/52     46/38     47/02     47/39 L
        MTA14        1125   PROGRAM*       47/17     47/18     47/43 L
        MTA15        1136   PROGRAM*       48/17 L   48/23
        MTA16        1140   PROGRAM*       48/20     48/23 L
        MTA17        1141   PROGRAM*       48/14     48/15     48/28 L
        MTA18        1143   PROGRAM*       48/34 L   48/37     48/39     48/45     48/47
        MTA2         1032   PROGRAM*       43/37     43/50 L
        MTA2A        1044   PROGRAM*       44/38 L   45/14
        MTA3         1055   PROGRAM*       44/42     45/05     45/18 L
        MTA4         1061   PROGRAM*       45/30 L   45/32
        MTA5         1063   PROGRAM*       44/51     45/23     45/40 L
        MTA6         1071   PROGRAM*       45/43     46/06 L
        MTA7         1077   PROGRAM*       46/17     46/28 L
        MTA8         1104   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/27     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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   165
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          2563   PROGRAM*      100/19    100/23    100/35 L  102/08
        OILA         2622   PROGRAM*      100/45    102/21 L
        OIL0         2577   PROGRAM*      101/04    101/19 L
        OIL1         2602   PROGRAM*      100/56    101/27 L
        OIL1A        2601   PROGRAM*      101/17    101/24 L
        OIL2         2605   PROGRAM*      100/49    100/50    100/51    101/21    101/23    101/25    101/31    101/34 L
        OIL3         2607   PROGRAM*      101/38    101/44 L
        OIL4         2613   PROGRAM*      101/46    101/56 L  102/16    102/19
        OIL5         2617   PROGRAM*      100/47    102/12 L
        ORS          2371   PROGRAM*       94/28 L   96/35     97/35     98/02
        ORS0         2370   PROGRAM*       94/25 L   94/42     94/47     94/49     94/52
        OSI          2710   PROGRAM*      103/11    103/57    104/05    104/53    105/21 L  105/53
        OUTCI.          0   EXTERNAL*      74/27    116/06
        OUTPUT#         0   EXTERNAL*      74/27    116/06
        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*     107/54
        O$RCT           0   EXTERNAL* 
        O$RND           0   EXTERNAL*      43/55     74/28
        O$RXI           0   EXTERNAL* 
        O$SEQ           0   EXTERNAL*      20/14    113/24
        O$SYM           0   EXTERNAL* 
        O$TET           0   EXTERNAL*      13/03
        O$TXT           0   EXTERNAL*     113/25
        O.BIT           0   EXTERNAL*     107/14    118/36    119/13
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   166
        SYMBOLIC REFERENCE TABLE. 
  
        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* 
        O.RCT           0   EXTERNAL*      11/32     50/24     59/24     71/34     96/03    111/29    120/37
                                           15/04     52/32     62/27     84/44    106/19    112/27
                                           43/24     54/29     67/24     95/30    108/09    117/08
        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         12/14     20/24     62/26    106/18    122/15
                                           15/08     33/23    100/57    108/11
        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
        PRNTABV         0   EXTERNAL*      13/04     13/04
        PRNTGRA         0   EXTERNAL*      11/42
        PRNTUDI         0   EXTERNAL*      12/14
        PSC          2254   PROGRAM*       77/33     78/56     88/12 L   89/20     89/51
        PSC2         2257   PROGRAM*       88/24 L   88/30
        PSC3         2265   PROGRAM*       88/41 L   88/54
        PSC4         2270   PROGRAM*       88/49     88/52 L
        PSC5         2273   PROGRAM*       88/15     89/07 L
        PSC6         2277   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   12/46
        Q.DXA           6                  11/08 D   12/43
        Q.MFA          10                  11/08 D   12/52
        Q.MTA           5                  11/08 D   12/29
        Q.RAT           2                  11/08 D   12/29     12/52     12/57
        Q.RCT           1                  11/08 D   12/29     12/52
        Q.RVT           3                  11/08 D
        Q.SEE           4                  11/08 D   12/26
        Q.SUP          11                  11/08 D   12/57
        Q.SXC          12                  11/08 D
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   167
        SYMBOLIC REFERENCE TABLE. 
  
        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
        RA.R3P         44                  26/22     76/38     84/34     96/22    121/23
                                           76/23     77/02     92/14     97/12
        RLW          1353   PROGRAM*       55/50     56/57     57/39 L   57/46     58/02    113/27
        RLW1         1361   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
        RSR=            0   EXTERNAL*      11/43     13/04     20/14    113/24    116/06
                                           12/14     13/04     74/27    113/25
        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          3201   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          2332   PROGRAM*       79/47     90/11     90/17     91/16 L   91/46     91/51
        SDC1         2340   PROGRAM*       91/37 L   91/49
        SDC2         2344   PROGRAM*       91/41     91/42     91/47 L
        SEE           123   PROGRAM*       12/25     15/03 L   18/47     19/25
        SEEA          227   PROGRAM*       17/17     19/27 L   66/15     76/31     87/02
        SEE1          132   PROGRAM*       15/22 L   15/41
        SEE11         214   PROGRAM*       17/32     18/46 L
        SEE12         220   PROGRAM*       19/02 L   19/24
        SEE13         224   PROGRAM*       19/10     19/16 L
        SEE14         226   PROGRAM*       19/06     19/20     19/24 L
        SEE2          134   PROGRAM*       15/18     15/35     16/33     16/46     17/13     17/20
                                           15/32 L   15/52     16/44     16/54     17/15
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   168
        SYMBOLIC REFERENCE TABLE. 
  
        SEE2A         142   PROGRAM*       15/42     15/56 L
        SEE3          154   PROGRAM*       16/19     16/20     16/23     16/25     16/37 L
        SEE4          155   PROGRAM*       16/38     16/41 L
        SEE4A         162   PROGRAM*       16/51     17/02 L
        SEE5          166   PROGRAM*       16/57     17/10     17/15 L
        SEE6          170   PROGRAM*       15/33     17/26 L
        SEE7          175   PROGRAM*       17/36     17/39 L   18/42
        SEE7A         210   PROGRAM*       17/49     18/28 L
        SEE8          213   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          2626   PROGRAM*       96/31     97/18    100/09    103/13 L  104/54    105/06
        SIVA         2707   PROGRAM*      103/44    105/08 L
        SIV0         2625   PROGRAM*      103/09 L  103/20    103/34    103/40    103/46
        SIV1         2642   PROGRAM*      103/29    103/36    103/51 L
        SIV2         2643   PROGRAM*      103/49    103/55 L
        SIV2A        2665   PROGRAM*      104/38    104/42 L
        SIV2AA       2655   PROGRAM*      104/15    104/20 L
        SIV2AC       2662   PROGRAM*      104/11    104/29 L
        SIV2B        2666   PROGRAM*      104/41    104/44 L
        SIV2C        2670   PROGRAM*      104/23    104/27    104/32    104/47 L
        SIV3         2677   PROGRAM*      104/48    104/56 L
        SIV4         2703   PROGRAM*      104/56    105/04 L
        SLW          1342   PROGRAM*       54/28     57/15 L   57/18     57/32    113/03
        SLW1         1350   PROGRAM*       57/26 L   57/30
        SNP=            0   EXTERNAL*      13/03     43/55     74/28    107/54
        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          2403   PROGRAM*       12/56     95/07 L   99/28     99/30
        SUPA         2402   PROGRAM*       94/54 L   96/48     97/50
        SUP1         2444   PROGRAM*       96/24     96/29 L
        SUP10        2500   PROGRAM*       96/42     96/55     97/37 L
        SUP12        2502   PROGRAM*       97/46 L   98/07
        SUP13        2510   PROGRAM*       97/55     98/02 L
        SUP14        2511   PROGRAM*       97/47     97/52     98/04 L
        SUP15        2522   PROGRAM*       98/24     98/34 L
        SUP16        2526   PROGRAM*       98/45 L   98/49
        SUP17        2530   PROGRAM*       98/43     98/53 L
        SUP18        2532   PROGRAM*       99/02 L   99/05     99/13
        SUP19        2536   PROGRAM*       99/04     99/18 L   99/22
        SUP2         2445   PROGRAM*       96/27     96/33 L
        SUP20        2540   PROGRAM*       99/20     99/24 L
        SUP4         2447   PROGRAM*       95/37     96/39 L
        SUP5         2450   PROGRAM*       96/41 L   97/38
        SUP5A        2455   PROGRAM*       96/53     96/57 L
        SUP6         2465   PROGRAM*       97/04     97/12 L
        SUP7         2471   PROGRAM*       97/14     97/23 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   169
        SYMBOLIC REFERENCE TABLE. 
  
        SUP8         2475   PROGRAM*       97/28     97/32 L
        SUP9         2477   PROGRAM*       97/19     97/30     97/35 L
        SVA            11   GPOGRA        109/09
        SVR=            0   EXTERNAL*      11/30     13/04     20/14    113/24    116/06
                                           12/14     13/04     74/27    113/25
        SXC          2722   PROGRAM*       13/02    106/07 L  108/07    108/21    110/07
        SXC10        2777   PROGRAM*      108/36    108/54 L
        SXC11        3001   PROGRAM*      108/29    109/07 L
        SXC12        3004   PROGRAM*      109/15 L  109/20
        SXC13        3007   PROGRAM*      109/29 L  110/05
        SXC14        3011   PROGRAM*      109/36 L  109/56
        SXC15        3017   PROGRAM*      109/44    109/54 L
        SXC16        3020   PROGRAM*      109/52    109/56 L
        SXC17        3021   PROGRAM*      109/34    110/03 L
        SXC2         2733   PROGRAM*      106/31 L  107/49
        SXC3         2735   PROGRAM*      106/39 L  107/06
        SXC4         2743   PROGRAM*      106/48    107/04 L
        SXC5         2744   PROGRAM*      106/35    107/10 L
        SXC5A        2751   PROGRAM*      107/31 L  107/35
        SXC5B        2753   PROGRAM*      107/22    107/37 L
        SXC6         2755   PROGRAM*      107/11    107/45 L
        SXC7         2761   PROGRAM*      106/10    106/13    108/06 L
        SXC8         2767   PROGRAM*      108/23 L  108/39    108/41    108/48
        SXC9         2770   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            1   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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   170
        SYMBOLIC REFERENCE TABLE. 
  
        WFB#            0   EXTERNAL*     119/41
        WSC          3237   PROGRAM*      115/12    115/44    118/21    119/12 L  119/43
        WSC2         3247   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
        .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
        .9              1                  13/03 D   13/03 D   43/55 D   43/55 D   74/28 D   74/28 D  107/54 D  107/54 D
                                           13/03     13/03     43/55     43/55     74/28     74/28    107/54    107/54
                                           13/03 D   13/03 D   43/55 D   43/55 D   74/28 D   74/28 D  107/54 D  107/54 D
                                           13/03     13/03     43/55     43/55     74/28     74/28    107/54    107/54
                                           13/03 D   13/03 D   43/55 D   43/55 D   74/28 D   74/28 D  107/54 D  107/54 D
                                           13/03     13/03     43/55     43/55     74/28     74/28    107/54    107/54
                                           13/03 D   13/03 D   43/55 D   43/55 D   74/28 D   74/28 D  107/54 D  107/54 D
                                           13/03     13/03     43/55     43/55     74/28     74/28    107/54    107/54
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
        CLB             1                   2/15 D
        DAA             1                   2/15 D
        DXA             1                   2/15 D
        ERC             1                   2/15 D
        MFA             1                   2/15 D
        MTA             1                   2/15 D
        SEE             1                   2/15 D
        SUP             1                   2/15 D
        SXC             1                   2/15 D
        UDT             1                   2/15 D   12/13 F
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   171
        SYMBOLIC REFERENCE TABLE.                                     ERC 
  
                                                  SYMBOL QUALIFIER =  ERC 
  
  
        ERC           236   PROGRAM*       20/16 L   32/52
        ERC1          250   PROGRAM*       20/33     21/16     24/46     25/51     26/20
                                           20/43 L   22/33     25/27     25/55     27/39
        ERC2          251   PROGRAM*       20/48 L   22/13     23/05     24/31     27/37
                                           21/33     22/18     23/24     27/31
        FCP           417   PROGRAM*       25/26     27/49 L   27/52     27/56     28/06     28/08     28/10     28/13
        RS1           362   PROGRAM*       25/43     25/53 L
        RS2           364   PROGRAM*       25/39     25/48     25/50     25/57 L
        RS2A          373   PROGRAM*       26/17     26/22 L
        RS3           405   PROGRAM*       25/54     26/08     26/12     26/31     26/33     26/37     27/06 L
        RS4           413   PROGRAM*       27/25     27/28 L
        RS5           415   PROGRAM*       27/28     27/33 L
        RS9           250   PROGRAM*       25/09     25/12     25/15     25/24     25/31     26/02     27/39 D
        SCT           430   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          515   PROGRAM*       29/46     32/49 L
        SCT0          427   PROGRAM*       29/18 L   29/31
        SCT0A         434   PROGRAM*       29/25     29/30 L
        SCT0B         436   PROGRAM*       29/28     29/36 L
        SCT1          437   PROGRAM*       29/23     29/42 L
        SCT10         506   PROGRAM*       31/35     32/25 L
        SCT11         512   PROGRAM*       32/34     32/38 L
        SCT12         513   PROGRAM*       32/01     32/43 L
        SCT2          442   PROGRAM*       29/53 L   29/55     30/03     30/09
        SCT3          452   PROGRAM*       30/14     30/25 L
        SCT4          453   PROGRAM*       30/23     30/33 L
        SCT5          470   PROGRAM*       31/17     31/28 L
        SCT6          472   PROGRAM*       31/25     31/29     31/39 L
        SCT7          476   PROGRAM*       31/46     31/55 L
        SCT8          503   PROGRAM*       32/03     32/12 L
        SCT9          505   PROGRAM*       32/10     32/19 L
        SET1          255   PROGRAM*       21/11 L   21/43
        SET2          262   PROGRAM*       21/13     21/18     21/23 L   22/40
        STT1          303   PROGRAM*       22/37     22/39 L
        STT2          304   PROGRAM*       22/30     22/44 L
        ST1           325   PROGRAM*       23/35     23/46 L
        ST2           335   PROGRAM*       24/17     24/22 L
        ST2A          331   PROGRAM*       22/55     24/07 L
        ST2B          332   PROGRAM*       24/11 L   24/20
        ST3           337   PROGRAM*       24/13     24/23     24/29 L
        ST4           342   PROGRAM*       23/57     24/38 L
        TLDA          320   PROGRAM*       23/10     23/26 L
        TLD1          313   PROGRAM*       23/07     23/12 L
        TLD2          314   PROGRAM*       23/17 L   23/55
        TLD3          316   PROGRAM*       23/18     23/23 L
        TSTA          321   PROGRAM*       23/06     23/27 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  DUM 
  
  
        DUM           522   PROGRAM*       33/21 L   41/19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   172
        SYMBOLIC REFERENCE TABLE.                                     DUM 
  
        DUM1          531   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          535   PROGRAM*       33/49     33/57 L
        FBM           670   PROGRAM*       33/22     40/46 L
        FBM0          667   PROGRAM*       40/45 L   40/49     41/01     41/11
        FBM1          676   PROGRAM*       40/51     40/56     41/03 L
        FBM2          677   PROGRAM*       41/07 L   41/12     41/16
        IA1           565   PROGRAM*       35/39     35/42 L
        ILS1          554   PROGRAM*       34/54     34/57 L
        JPX1          573   PROGRAM*       36/09     36/12     36/15 L
        LBM           666   PROGRAM*       34/30     34/51     36/17     39/20     40/43 L   40/45 S
        LD0           646   PROGRAM*       39/22     39/27 L
        LD1           647   PROGRAM*       39/18     39/33 L
        LD2           655   PROGRAM*       39/35     39/44     40/01 L
        LD2A          660   PROGRAM*       40/02     40/11 L
        LD3           661   PROGRAM*       39/29     39/37     39/50     39/53     40/15 L
        SA1           545   PROGRAM*       34/32     34/35 L
        SA2           550   PROGRAM*       34/40     34/43 L
        STT1          605   PROGRAM*       36/53     36/56 L
        ST1           637   PROGRAM*       38/51     39/04 L
        TST1          624   PROGRAM*       38/14     38/19 L
        TST2          626   PROGRAM*       38/20     38/25 L
        TYI           536   PROGRAM*       34/07 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  IRA 
  
  
        APD          4047   PROGRAM*      141/24    144/09 L  144/49    145/48    145/53    145/55
        APD1         4051   PROGRAM*      144/13 L  144/15
        APD2         4055   PROGRAM*      144/20    144/27 L
        APD3         4064   PROGRAM*      144/28    144/51 L
        APD4         4065   PROGRAM*      144/38    144/57 L
        APD5         4075   PROGRAM*      145/33 L  145/39
        APD6         4077   PROGRAM*      145/35    145/38 L
        DEF1         3565   PROGRAM*      131/43    131/56 L
        DEF2         3570   PROGRAM*      132/03    132/06    132/09 L
        DWL0         3406   PROGRAM*      125/42    125/45 L
        DWL1         3407   PROGRAM*      125/30    125/35    125/47 L
        DWL2         3413   PROGRAM*      125/55    125/57    126/03 L
        DWL3         3414   PROGRAM*      126/03    126/05 L
        EOQ1         3324   PROGRAM*      122/42 L  123/25
        EOQ1A        3316   PROGRAM*      122/24 L  122/34
        EOQ1B        3321   PROGRAM*      122/28    122/29    122/33 L
        EOQ1C        3323   PROGRAM*      122/31    122/37 L
        EOQ2         3334   PROGRAM*      123/10    123/12 L
        EOQ3         3337   PROGRAM*      123/06    123/16 L
        EOQ4         3341   PROGRAM*      122/51    123/23 L
        EOQ5         3342   PROGRAM*      122/09    122/10    122/35    123/29 L
        EOQ6         3344   PROGRAM*      123/34 L  123/47
        EOQ7         3354   PROGRAM*      123/30    123/34    123/49 L
        FMA1         3554   PROGRAM*      131/24 L  131/44
        FMA2         3555   PROGRAM*      131/29 L  131/47    131/51
        IA           3446   PROGRAM*      127/28 L  127/56    128/10    128/23
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   173
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
        IAA          3447   PROGRAM*      127/14    127/30 L
        IA1          3453   PROGRAM*      127/37    127/40 L
        IA2          3454   PROGRAM*      127/35    127/42 L
        IA4          3444   PROGRAM*      127/17    127/20    127/24 L
        IA5          3460   PROGRAM*      127/26    127/54 L
        IA6          3462   PROGRAM*      127/22    128/02 L
        IA7          3464   PROGRAM*      128/07 L  128/19
        IA8          3465   PROGRAM*      128/09 L  128/14
        IRA          3252   PROGRAM*      120/31 L  123/55    154/35
        IRA1         3267   PROGRAM*      120/53    121/09 L
        IRA10        3367   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        3373   PROGRAM*      124/43    124/52 L
        IRA3         3271   PROGRAM*      121/15 L  121/54
        IRA5         3305   PROGRAM*      121/16    121/38    121/40    121/53 L
        IS1          3500   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
        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         3602   PROGRAM*      132/43 L  132/46
        JIN2         3604   PROGRAM*      132/40    132/43    132/52 L
        JIN3         3616   PROGRAM*      132/37    132/47    133/13 L  133/26    135/56    136/04    136/14
        JPX0         3627   PROGRAM*      134/11    134/15    134/21 L
        JPX1         3631   PROGRAM*      134/25 L  135/20
        JPX10        3670   PROGRAM*      136/09 L  136/12
        JPX2         3636   PROGRAM*      134/36    134/38 L
        JPX3         3641   PROGRAM*      134/33    134/51 L
        JPX4         3643   PROGRAM*      134/53    135/02 L
        JPX5         3644   PROGRAM*      134/47    135/06 L
        JPX7         3651   PROGRAM*      134/22    135/22 L
        JPX8         3660   PROGRAM*      135/36    135/41 L
        JPX9         3663   PROGRAM*      134/07    135/26    135/51 L
        LD1          3707   PROGRAM*      136/29    137/02 L  139/11    143/13
        LD2          3714   PROGRAM*      137/05    137/07    137/16 L  137/40
        LD3          3716   PROGRAM*      137/21    137/23 L
        PAC          4142   PROGRAM*      136/37    136/40    136/48    138/02    147/37 L
        PACA         4206   PROGRAM*      147/47    149/53 L
        PAC0         4141   PROGRAM*      139/27    147/35 L
        PAC1         4153   PROGRAM*      148/01    148/10 L  148/55
        PAC2         4161   PROGRAM*      148/26    148/29    148/33 L
        PAC3         4165   PROGRAM*      148/02    148/49 L
        PAC4         4173   PROGRAM*      148/11    149/16 L
        PAC5         4176   PROGRAM*      149/20    149/27 L
        PAC6         4177   PROGRAM*      149/28    149/30 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   174
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
        PAC7         4201   PROGRAM*      149/33    149/35 L
        PAC8         4202   PROGRAM*      149/25    149/37 L
        PLD1         3525   PROGRAM*      129/52    130/05 L
        PLD2         3526   PROGRAM*      130/05    130/07 L
        PLD3         3527   PROGRAM*      130/07    130/10 L
        PLD4         3533   PROGRAM*      130/22    130/24 L
        PVC          4106   PROGRAM*      126/24    129/13    131/22    136/31    146/03 L
        PVC1         4110   PROGRAM*      146/05    146/11 L
        PVC2         4123   PROGRAM*      146/35    146/41    146/49 L
        PVC5         4125   PROGRAM*      146/17    146/56 L
        PVC6         4132   PROGRAM*      147/03    147/05    147/14 L
        RS1          3540   PROGRAM*      130/37    130/41 L
        RS2          3547   PROGRAM*      130/39    130/45    131/03 L
        RS3          3551   PROGRAM*      130/47    130/54    131/01    131/11 L
        SA1          3430   PROGRAM*      126/25    126/27    126/37    126/38    126/46 L
        SA2          3432   PROGRAM*      126/31    126/52 L
        STT0         3721   PROGRAM*      137/35 L  137/44    138/14
        STT1         3730   PROGRAM*      137/47    137/50    137/52    138/01 L
        STT2         3733   PROGRAM*      138/12    138/16 L
        STT3         3735   PROGRAM*      138/19    138/22 L
        ST0          3742   PROGRAM*      139/07    139/13 L
        ST0A         3754   PROGRAM*      139/45    139/51 L
        ST0B         3755   PROGRAM*      139/47    139/55 L
        ST0C         3762   PROGRAM*      140/04    140/10 L
        ST1          3745   PROGRAM*      139/14    139/26 L
        ST1A         3763   PROGRAM*      139/37    139/50    139/56    140/16 L
        ST1B         3772   PROGRAM*      140/23    140/37 L
        ST1C         3776   PROGRAM*      140/07    140/12    140/17    140/40    140/52 L
        ST10         4043   PROGRAM*      142/16    142/28    143/01 L
        ST2          4004   PROGRAM*      140/55    140/57    141/04    141/10 L
        ST2A         4005   PROGRAM*      141/08    141/13 L
        ST3          4007   PROGRAM*      140/21    140/35    140/45    140/48    141/20 L
        ST3A         4011   PROGRAM*      141/22    141/26 L
        ST4          4016   PROGRAM*      141/37    141/39 L
        ST4A         4020   PROGRAM*      140/08    141/48 L
        ST5          4025   PROGRAM*      141/56    142/08 L
        ST6          4027   PROGRAM*      142/09    142/15 L
        ST7          4032   PROGRAM*      141/52    142/27 L
        ST8          4037   PROGRAM*      142/39    142/43 L
        ST9          4041   PROGRAM*      142/23    142/50 L
        TYI          3361   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         3364   PROGRAM*      124/19 L  127/07    129/44    131/33
        TYIII        3572   PROGRAM*      132/21 L  133/19
        TYIT         3365   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         3514   PROGRAM*      129/16    129/19    129/27 L
        XMT2         3517   PROGRAM*      129/32    129/37 L
        XMT3         3521   PROGRAM*      129/39    129/42 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  CUC 
  
  
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/05. 19.57.27.      PAGE   175
        SYMBOLIC REFERENCE TABLE.                                     CUC 
  
        BOS1         4263   PROGRAM*      153/17 L  153/18    153/30
        CUC          4212   PROGRAM*      150/24 L  153/10    153/44    154/36
        CUCA         4211   PROGRAM*      150/22 L  150/27
        CUC1         4225   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        4236   PROGRAM*      151/42    151/45 L
        CUC2         4231   PROGRAM*      151/14    151/27 L  151/37
        RS1          4247   PROGRAM*      152/18    152/25 L
        RS2          4252   PROGRAM*      152/12    152/35 L
        RS3          4254   PROGRAM*      152/37    152/42 L
        TYI          4222   PROGRAM*      150/51 L  151/23    151/50
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1224              IDENT  PROSEQ 
                       1224                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1224 
                                        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#          571+ 
                                        CC$OPTL          4+           CG$PAS          15+           ESR#           607+ 
  
  
                                        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/05. 19.57.33.      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/05. 19.57.33.      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
                     0100000607 +                 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/05. 19.57.33.      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/05. 19.57.33.      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/05. 19.57.33.      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/05. 19.57.33.      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/05. 19.57.33.      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/05. 19.57.33.      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/05. 19.57.33.      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  0100000223 +                      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/05. 19.57.33.      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/05. 19.57.33.      PAGE    12
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
                          0100000263 +            RJ     BDU         BUILD DEF-USE TABLE AND BCT AND PBT         PROSEQ    449
                                                                                                                 PROSEQ    450
                                         .T       IFNE   TEST,0                                                  PROSEQ    451
           212  5120000000 X                      SA2    O.DUT                                                   PROSEQ    452
                          57131                   SA1    B3-B1                                                   PROSEQ    453
                                                  LX1    -DP.NIP                                                 PROSEQ    454
                               37512              IX5    X1-X2                                                   PROSEQ    455
           213  7265000000                        SX6    X5+                                                     PROSEQ    456
                          5160000000 X            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
           214  0100000373 +                      RJ     IXU         INSERT EXTENDED USE INFO INTO BCT           PROSEQ    463
                                                  TRACE  AIS,BCT                                                 PROSEQ    464
                                                                                                                 PROSEQ    465
           215  7254777770                        SX5    X4-TRW                                                  PROSEQ    466
                          0335000173 +            MI     X5,AIS1     IF SMAXW .LT. TRW                           PROSEQ    467
                                                                                                                 PROSEQ    468
           216  0100000360 +                      RJ     IUP         INSERT USE INFO INTO PBT                    PROSEQ    469
                                                  TRACE  AIS,PBT                                                 PROSEQ    470
                                                                                                                 PROSEQ    471
           217  0100000415 +                      RJ     ABR         ASSIGN B-REGS AND TABLE MODS                PROSEQ    472
                                                  TRACE  AIS,RLIST,MOD                                           PROSEQ    473
                                                  TRACE  AIS,MLT                                                 PROSEQ    474
           220  0400000173 +                      EQ     AIS1                                                    PROSEQ    475
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           221  5110000021 C             LBM0     SA1    LBMA                                                    PROSEQ    489
                          5120000000 X            SA2    O.SEQ                                                   PROSEQ    490
           222  10611                             BX6    X1                                                      PROSEQ    491
                     5262777775                   SA6    X2-2        [O.SEQ-2] = SAVE                            PROSEQ    492
                                                                                                                 PROSEQ    493
           223  0200400223 +             LBM      ROUTINE                                                        PROSEQ    494
           224  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    495
                          53311                   SA3    X1+B1                                                   PROSEQ    496
           225  6223777775                        SB2    X3-2        LD = TXTL - 2                               PROSEQ    497
                          53512                   SA5    X1+B2       I = N.INS ; DIN = O.SEQ + LD ; DINW = [DIN] PROSEQ    498
           226  5231777775                        SA3    X1-2                                                    PROSEQ    499
                          43700                   MX7    0                                                       PROSEQ    500
                               10633              BX6    X3          SAVE = [O.SEQ-2]                            PROSEQ    501
           227  54730                             SA7    A3          [O.SEQ-2] = 0                               PROSEQ    502
                     5160000021 C                 SA6    LBMA                                                    PROSEQ    503
                               10177              BX1    X7          TUSES = 0                                   PROSEQ    504
           230  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
           231  5170000020 C                      SA7    MRF         MRF = 0                                     PROSEQ    509
                          0400000254 +            EQ     LBM5                                                    PROSEQ    510
                                                                                                                 PROSEQ    511
                                        *         BOUNDARY MARKER BREAKS SUBSEQUENCE.  FILE BM WORD FOR SEQUENCE PROSEQ    512
                                        *         JUST SCANNED (FOLLOWING).                                      PROSEQ    513
                                                                                                                 PROSEQ    514
           232  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
           233  0334000254 +                      MI     X4,LBM5     IF TY[DIW] = II                             PROSEQ    519
                          5035000002              SA3    A5+2        R1I = DIN + 2 ;  RIW = [R1I]                PROSEQ    520
           234  26423                             UX4    B2,X3                                                   PROSEQ    521
                     6152777775                   SB5    B2-OC.EOS                                               PROSEQ    522
           235  0550000237 +                      NZ     B5,LBM1A    IF OC[R1W] .NE. OC.EOS                      PROSEQ    523
                          73430                   SX4    X3                                                      PROSEQ    524
           236  0314000254 +                      NZ     X4,LBM5     IF IH[RIW] .NE. 0   */ OPT=2 EOS            PROSEQ    525
                                                                                                                 PROSEQ    526
           237  0330000241 +             LBM1A    MI     X0,LBM2     IF TY[DIW] .NE. III                         PROSEQ    527
                          6152777706              SB5    B2-OC.JIN                                               PROSEQ    528
           240  0550000254 +                      NZ     B5,LBM5     IF OC[RIW] .NE. OC.JIN                      PROSEQ    529
                                                                                                                 PROSEQ    530
           241  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/05. 19.57.33.      PAGE    14
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            LBM                 AIS 
  
           242  37736                             IX7    X3-X6                                                   PROSEQ    534
                     66773                        SB7    B7+B3                                                   PROSEQ    535
                          66300                   SB3    B0          NRF = 0                                     PROSEQ    536
           243  0327000244 +                      PL     X7,LBM3     IF MRF .GE. NRF                             PROSEQ    537
                          54630                   SA6    A3          MRF = NRF                                   PROSEQ    538
                                                                                                                 PROSEQ    539
           244  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
           245  20622                             LX6    BM.NRFP                                                 PROSEQ    548
                     12262                        BX2    X6+X2                                                   PROSEQ    549
                                                  LX7    BM.PP                                                   PROSEQ    550
                          12672                   BX6    X7+X2                                                   PROSEQ    551
           246  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    552
                          5065000005              SA6    A5+5        LI = DIN + 5 ;  [LI] = BMW(NRF,PLINK,MAXW)  PROSEQ    553
           247  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
           250  0305000221 +                      ZR     X5,LBM0     IF DINW = 0   */ IF I = 0                   PROSEQ    558
                          0400000254 +            EQ     LBM5                                                    PROSEQ    559
                                                                                                                 PROSEQ    560
           251  20645                    LBM4     LX6    D.RFP-D.BMP                                             PROSEQ    561
                     10766                        BX7    X6                                                      PROSEQ    562
                          0305000232 +            ZR     X5,LBM1     IF DINW = 0   */ BOS                        PROSEQ    563
           252  20701                             LX7    D.BMP-D.^DP                                             PROSEQ    564
                     0327000254 +                 PL     X7,LBM5     IF D[DIW]     */ POSSIBLE DEF               PROSEQ    565
           253  0336000232 +                      MI     X6,LBM1     IF BM[DIW]                                  PROSEQ    566
                                                                                                                 PROSEQ    567
           254  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
           255  20663                             LX6    -D.REGWP                                                PROSEQ    571
                     15460                        BX4    -X0*X6      REG = REGW[DIW]                             PROSEQ    572
                          37724                   IX7    X2-X4                                                   PROSEQ    573
           256  0327000257 +                      PL     X7,LBM6     IF MAXW .GE. REG                            PROSEQ    574
                          10244                   BX2    X4          MAXW = REG                                  PROSEQ    575
                                                                                                                 PROSEQ    576
           257  20661                    LBM6     LX6    59-D.RFP+D.REGWP                                        PROSEQ    577
                     0326000251 +                 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
           260  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
           261  20650                             LX6    D.USESP+59-D.RFP                                        PROSEQ    587
                     0400000251 +                 EQ     LBM4                                                    PROSEQ    588
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           262                           BDUA     BFMW   D,(PRS,RJRS,PI),59-D.RFP                                FCC0586     4
                                                                                                                 FCC0586     5
           263  0200400263 +             BDU      ROUTINE                                                        PROSEQ    601
           264  6122777773                        SB2    B2-4        R1I = R1F - 4                               PROSEQ    602
                          5110000000 X            SA1    O.DUT                                                   PROSEQ    603
           265  63710                             SB7    X1          DUI = O.DUT                                 PROSEQ    604
                                                                                                                 PROSEQ    605
           266  6122000004               BDU1     SB2    B2+4        R1I = R1I + 4                               PROSEQ    606
                          43063                   MX0    -D.USESL                                                PROSEQ    607
           267  5112000002                        SA1    B2+2        DI = R1I + 2 ;  DIW = [DI]                  PROSEQ    608
                          0423000263 +            EQ     B2,B3,BDU   IF R1I = R1L                                PROSEQ    609
           270  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
           271  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
           272  20122                             LX1    D.USESP+59-D.^DP                                        FCC0586    12
                     0331000301 +                 MI     X1,BDU2     IF ^D[DIW]                                  FCC0586    13
                               10011              BX0    X1                                                      FCC0586    14
           273  63737                             SB7    B7+X3       DUI = DUI + U                               FCC0586    15
                     20026                        LX0    D.^DP-D.RFP                                             FCC0586    16
                          0320000301 +            PL     X0,BDU2     IF ^RF[DIW]                                 FCC0586    17
           274  5130000262 +                      SA3    BDUA                                                    FCC0586    18
                          11030                   BX0    X3*X0                                                   FCC0586    19
           275  0310000301 +                      NZ     X0,BDU2     IF (PRS,RJRS,PI)[DIW]                       FCC0586    20
                          10011                   BX0    X1                                                      CCGA099    26
                               20011              LX0    D.^DP-D.XMTP                                            CCGA100    22
           276  0330000301 +                      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
           277  5130000000 X                      SA3    O.BCT                                                   PROSEQ    636
                          43054                   MX0    -R1.RIL                                                 PROSEQ    637
                               63540              SB5    X4                                                      PROSEQ    638
                                                  LX2    -R1.RIP                                                 PROSEQ    639
           300  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/05. 19.57.33.      PAGE    16
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                               54740              SA7    A4          L.BCT = L.BCT + 1                           PROSEQ    645
                                                                                                                 PROSEQ    646
           301  20152                    BDU2     LX1    1+D.^DP+58-D.TYP                                        FCC0586    21
                     36711                        IX7    X1+X1                                                   PROSEQ    648
                          0331000336 +            MI     X1,BDU6     IF TY[DIW] .GE. III                         PROSEQ    649
           302  0337000315 +                      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
           303  6156777724                        SB5    B6-OC.PLD                                               PROSEQ    656
                          15716                   BX7    -X6*X1                                                  PROSEQ    657
                               43054              MX0    -R1.RIL                                                 PROSEQ    658
           304  5237000000 X                      SA3    =XTYIOM+X7                                              PROSEQ    659
                          26643                   UX6    B4,X3                                                   PROSEQ    660
                               11362              BX3    X6*X2                                                   PROSEQ    661
           305  23443                             AX4    B4,X3                                                   PROSEQ    662
                     15340                        BX3    -X0*X4                                                  PROSEQ    663
                                                                                                                 PROSEQ    664
           306  0303000312 +             BDU3     ZR     X3,BDU4     IF OPN = 0                                  PROSEQ    665
                          0100000347 +            RJ     EDU         ENTER USE IN DUT                            PROSEQ    666
           307  0750000312 +                      MI     B5,BDU4     IF OCI .LT. OC.PLD                          PROSEQ    667
                          0450000311 +            ZR     B5,BDU3A    IF OCI = OC.PLD                             PROSEQ    668
           310  0551000312 +                      NE     B5,B1,BDU4  IF OCI .NE. OC.PST                          PROSEQ    669
                          0440000312 +            ZR     B4,BDU4     IF RI MOD                                   PROSEQ    670
                                                                                                                 PROSEQ    671
                                        *         SHORT USE. SET SU BIT IN DUT ENTRY.                            PROSEQ    672
                                                                                                                 PROSEQ    673
           311  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
           312  21420                    BDU4     AX4    R1.RIL                                                  PROSEQ    679
                     0304000266 +                 ZR     X4,BDU1     IF NO OPERANDS REMAIN                       PROSEQ    680
           313  6144000020                        SB4    B4+R1.RIL                                               PROSEQ    681
                          15340                   BX3    -X0*X4      OPN =                                       PROSEQ    682
           314  0400000306 +                      EQ     BDU3                                                    PROSEQ    683
                                                                                                                 PROSEQ    684
                                        *         TYPE II INSTRUCTION.                                           PROSEQ    685
                                                                                                                 PROSEQ    686
           315  20135                    BDU5     LX1    1+D.TYP-D.PIP                                           PROSEQ    687
                     0321000266 +                 PL     X1,BDU1     IF ^PI[DIW]                                 PROSEQ    688
                                                                                                                 PROSEQ    689
                                        *         RS OR DEF INSTRUCTION.                                         PROSEQ    690
                                                                                                                 PROSEQ    691
                               10322              BX3    X2                                                      PROSEQ    692
           316  20161                             LX1    D.PIP-D.^DP                                             PROSEQ    693
                     0321000322 +                 PL     X1,BDU5A    IF D[DIW]                                   PROSEQ    694
                               20345              LX3    59-R1.SOP-SO.LKP                                        PROSEQ    695
           317  0333000322 +                      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/05. 19.57.33.      PAGE    17
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                                                  LX2    -R1.RIP                                                 PROSEQ    702
           320  15320                             BX3    -X0*X2                                                  PROSEQ    703
                     0100000347 +                 RJ     EDU                                                     PROSEQ    704
           321  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
           322  43071                    BDU5A    MX0    -SO.RTL                                                 PROSEQ    707
                     20251                        LX2    -R1.SOP-SO.RTP                                          PROSEQ    708
                          15320                   BX3    -X0*X2                                                  PROSEQ    709
           323  6263777777                        SB6    X3-RT.BR                                                PROSEQ    710
                          0560000266 +            NZ     B6,BDU1     IF NOT B-REG LOCK                           PROSEQ    711
           324  20203                             LX2    SO.RTP-SO.RNP                                           PROSEQ    712
                     15320                        BX3    -X0*X2                                                  PROSEQ    713
                          0303000266 +            ZR     X3,BDU1     IF LOCK OF B0                               PROSEQ    714
           325  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
           326  5140000000 X                      SA4    O.PBT                                                   PROSEQ    720
                          20220                   LX2    SO.RNP+R1.SOP-R1.RIP                                    PROSEQ    721
                               43054              MX0    -R1.RIL                                                 PROSEQ    722
           327  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
           330  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
           331  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
           332  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
           333  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
           334  5140000000 C                      SA4    FLF                                                     PROSEQ    745
                          22252                   LX2    B5                                                      PROSEQ    746
                               12642              BX6    X4+X2                                                   PROSEQ    747
           335  54640                             SA6    A4                                                      PROSEQ    748
                     0400000266 +                 EQ     BDU1                                                    PROSEQ    749
                                                                                                                 PROSEQ    750
                                        *         TYPE III OR IV INSTRUCTION.                                    PROSEQ    751
                                                                                                                 PROSEQ    752
           336  0337000266 +             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/05. 19.57.33.      PAGE    18
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
           337  7100177776                        SX0    RMSK                                                    PROSEQ    755
                          0321000342 +            PL     X1,BDU7     IF D[DIW]                                   PROSEQ    756
           340  11302                             BX3    X0*X2                                                   PROSEQ    757
                     0303000342 +                 ZR     X3,BDU7     IF RI[R1W] .LT. 2                           PROSEQ    758
           341  6140000000                        SB4    0           SC = 0                                      PROSEQ    759
                          0100000347 +            RJ     EDU         ENTER USE OF RI IN DUT                      PROSEQ    760
                                                                                                                 PROSEQ    761
           342  56421                    BDU7     SA4    B2+B1       R2 = R1I + 1 ;  R2W = [R2]                  PROSEQ    762
                     20430                        LX4    -IH.RFP                                                 PROSEQ    763
                          11304                   BX3    X0*X4                                                   PROSEQ    764
           343  0303000266 +                      ZR     X3,BDU1     IF RF[R2W] .LT. 2                           PROSEQ    765
                          6140777733              SB4    -IH.RFP     SC = IH.RFP                                 PROSEQ    766
           344  0100000347 +                      RJ     EDU         FILE USE OF RF IN DUT                       PROSEQ    767
                                                                                                                 PROSEQ    768
                                        *         MARK SHORT USE.                                                PROSEQ    769
                                                                                                                 PROSEQ    770
           345  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
           346  0400000266 +                      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
           347  0200400347 +             EDU      ROUTINE                                                        PROSEQ    787
           350  64600                             SB6    A0                                                      PROSEQ    788
                     77626                        SX6    B2-B6       USE = R1I - O.SEQ                           PROSEQ    789
                          6060000003              SB6    A0+3                                                    PROSEQ    790
           351  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
           352  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
           353  20552                             LX5    DP.NIP-DP.IIP                                           FCC1837X   12
                     63650                        SB6    X5                                                      FCC1837X   13
                          75376                   SX3    A7-B6                                                   FCC1837X   14
           354  0303000347 +                      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/05. 19.57.33.      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
           355  73350                             SX3    X5                                                      FCC1837X   24
                     37363                        IX3    X6-X3                                                   FCC1837X   25
                                                  LX7    DU.USEP                                                 FCC1837X   26
                          0323000347 +            PL     X3,EDU      IF USE[NI] \ USE[NI-1]                      FCC1837X   27
                                                  LX5    DU.USEP                                                 FCC1837X   28
           356  55771                             SA7    A7-B1       SWAP( DUT(NI) , DUT(NI-1) )                 FCC1837X   29
                     10755                        BX7    X5                                                      FCC1837X   30
                          54771                   SA7    A7+B1                                                   FCC1837X   31
           357  0400000347 +                      EQ     EDU                                                     PROSEQ    802
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           360  0200400360 +             IUP      ROUTINE                                                        PROSEQ    810
           361  5110000000 X                      SA1    L.PBT                                                   PROSEQ    811
                          5120000000 X            SA2    O.PBT                                                   PROSEQ    812
           362  63720                             SB7    X2                                                      PROSEQ    813
                     53117                        SA1    X1+B7       PBC = PBT(L.PBT+1)                          PROSEQ    814
                          6070000003              SB7    A0+3                                                    PROSEQ    815
           363  43071                             MX0    -PB.RNL                                                 PROSEQ    816
                     0400000365 +                 EQ     IUP2                                                    PROSEQ    817
                                                                                                                 PROSEQ    818
           364  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
           365  55111                    IUP2     SA1    A1-B1       PBC = PBC - 1 ;  PBW = [PBC]                PROSEQ    824
                     0301000360 +                 ZR     X1,IUP      IF PBC = PBT(0)                             PROSEQ    825
                               20106              LX1    -PB.RNP                                                 PROSEQ    826
           366  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
           367  0332000365 +                      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
           370  54620                             SA6    A2          P[PI] = PBC                                 PROSEQ    835
                     73310                        SX3    X1                                                      PROSEQ    836
                          0313000364 +            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
           371  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
           372  73340                             SX3    X4                                                      PROSEQ    846
                     12113                        BX1    X1+X3       LU[PBW] = USE[DUW]                          PROSEQ    847
                          0400000364 +            EQ     IUP1                                                    PROSEQ    848
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           373  0200400373 +             IXU      ROUTINE                                                        PROSEQ    858
           374  5110000000 X                      SA1    O.BCT                                                   PROSEQ    859
                          5120000000 X            SA2    L.BCT                                                   PROSEQ    860
           375  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
           376  5211777776                        SA1    X1-1        N = 0                                       PROSEQ    865
                          6060000003              SB6    A0+3        OLS = O.SEQ + 3                             PROSEQ    866
           377  6050000002                        SB5    A0+2        ODS = O.SEQ + 2                             PROSEQ    867
                          0400000402 +            EQ     IXU3                                                    PROSEQ    868
                                                                                                                 PROSEQ    869
           400  37347                    IXU1     IX3    X4-X7                                                   PROSEQ    870
                     0323000401 +                 PL     X3,IXU2     IF SMAXW \ MAXR                             PROSEQ    871
                               10477              BX4    X7          SMAXW = MAXR                                PROSEQ    872
                                                                                                                 PROSEQ    873
                                         IXU2     LX1    BC.RIP                                                  PROSEQ    874
           401  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
           402  54111                    IXU3     SA1    A1+B1       N = N + 1 ; BCN = BCT(N) ;  BCW = [BCN]     PROSEQ    880
                     0301000373 +                 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
           403  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
           404  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
           405  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
           406  0327000407 +                      PL     X7,IXU5     IF XUI .LE. LXU                             PROSEQ    899
                          10655                   BX6    X5          LXU = XUI                                   PROSEQ    900
                                                                                                                 PROSEQ    901
           407  0532000404 +             IXU5     NE     B3,B2,IXU4  IF UI .NE. UEN                              PROSEQ    902
                          76700                   SX7    B0          MAXR = 0                                    PROSEQ    903
                               43063              MX0    -D.REGWL                                                PROSEQ    904
           410  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/05. 19.57.33.      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
           411  0732000400 +             IXU6     GT     B2,B3,IXU1  IF DJI .GT. DJE                             PROSEQ    909
                          56220                   SA2    B2          DJW = [DJI]                                 PROSEQ    910
                               20263              LX2    -D.REGWP                                                PROSEQ    911
           412  15320                             BX3    -X0*X2      RW = REGW[DJW]                              PROSEQ    912
                     37573                        IX5    X7-X3                                                   PROSEQ    913
                          6122000004              SB2    B2+4        DJI = DJI + 4                               PROSEQ    914
           413  0325000411 +                      PL     X5,IXU6     IF MAXR .GE. RW                             PROSEQ    915
                          10733                   BX7    X3          MAXR = RW                                   PROSEQ    916
           414  0400000411 +                      EQ     IXU6                                                    PROSEQ    917
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           415  0200400415 +             ABR      ROUTINE                                                        PROSEQ    926
           416  43600                             SETZERO  CAT,7                                                 PROSEQ    927
           420  5110000000 X                      SA1    O.BCT                                                   PROSEQ    928
                          5120000000 X            SA2    L.BCT                                                   PROSEQ    929
           421  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
           422  54111                    ABR1     SA1    A1+B1       BI = BI + 1 ;  BIW = [BI]                   PROSEQ    934
                     0301000415 +                 ZR     X1,ABR      IF BIW = 0    */ END OF BCT                 PROSEQ    935
                                                                                                                 PROSEQ    936
                                        *         AVOID ASSIGNING CANDIDATE WITH NO SHORT USES.                  PROSEQ    937
                                                                                                                 PROSEQ    938
           423  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
           424  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
           425  0434000422 +             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
           426  0322000425 +                      PL     X2,ABR1A    IF ^SU[IPW]                                 PROSEQ    952
                          20130                   LX1    -BC.MRWP                                                PROSEQ    953
           427  7201777770                        SX0    X1-TRW                                                  PROSEQ    954
                          0330000422 +            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
           430  57241                             SA2    B4-B1       FP = LP - 1 ;  FPW = [FP]                   FCC0508     7
                                                  LX2    59-DU.SUP                                               FCC0508     8
                     0322000422 +                 PL     X2,ABR1     IF ^SU[FPW]                                 FCC0508     9
                               20144              LX1    BC.MRWP-BC.RIP                                          PROSEQ    956
           431  63410                             SB4    X1                                                      PROSEQ    957
                     67304                        SB3    -B4         -RIN  = -RI[BIW]                            PROSEQ    958
                          66600                   SB6    B0          RN = 0                                      PROSEQ    959
           432  6170000007                        SB7    7                                                       PROSEQ    960
                                                                                                                 PROSEQ    961
                                        *         SCAN FOR AVAILABLE B REGISTER WITH NO LOCKS IN FUTURE.         PROSEQ    962
                                                                                                                 PROSEQ    963
           433  5126000001 C             ABR2     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                PROSEQ    964
                          0467000440 +            EQ     B6,B7,ABR3  IF RN = 7                                   PROSEQ    965
                                                  LX2    59-PI.NAP                                               PROSEQ    966
           434  66661                             SB6    B6+B1       RN = RN +1                                  PROSEQ    967
                     0332000433 +                 MI     X2,ABR2     IF NA[PNW]    */  RN OFF MARKET             PROSEQ    968
           435  0312000433 +                      NZ     X2,ABR2     IF P[PNW] .NE. 0  */ LOCK IN FUTURE         PROSEQ    969
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           436  20452                             LX4    -CA.LXUP                                                PROSEQ    971
                     73743                        SX7    X4+B3                                                   PROSEQ    972
                          0337000452 +            MI     X7,ABR7     IF LXU[CNW] .LT. RI[BIW]                    PROSEQ    973
           437  0567000433 +                      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
           440  66600                    ABR3     SB6    B0          RN = 0                                      PROSEQ    979
                                                                                                                 PROSEQ    980
           441  5126000001 C             ABR4     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                PROSEQ    981
                          0467000422 +            EQ     B6,B7,ABR1  IF RN = 7    */ CANT ASSIGN THIS CANDIDATE  PROSEQ    982
           442  66661                             SB6    B6+B1       RN = RN + 1                                 PROSEQ    983
                                                  LX2    59-PI.NAP                                               PROSEQ    984
                     0332000441 +                 MI     X2,ABR4     IF NA[PNW]    THIS REG OFF MARKET           PROSEQ    985
           443  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
           444  0327000441 +                      PL     X7,ABR4     IF LXU[CNW] .GE. RIN                        PROSEQ    989
                                                  LX2    1+PI.NAP-PI.PP  PL=P[PNW]                               PROSEQ    990
                                                                                                                 PROSEQ    991
           445  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
           446  0327000450 +                      PL     X7,ABR6     IF LU[PBW] .GT. RIN                         PROSEQ    997
                          10622                   BX6    X2                                                      PROSEQ    998
                               54620              SA6    A2          P[PNW] = PL                                 PROSEQ    999
           447  0312000445 +                      NZ     X2,ABR5     IF PL .NE. 0                                PROSEQ   1000
                                                                                                                 PROSEQ   1001
                                        *         NO LOCKS TO THIS REG PAST THIS CANDIDATE.                      PROSEQ   1002
                                                                                                                 PROSEQ   1003
                          0400000452 +            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
           450  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
           451  73530                             SX5    X3                                                      PROSEQ   1013
                     37754                        IX7    X5-X4                                                   PROSEQ   1014
                          0337000441 +            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
           452  54210                    ABR7     SA2    A1          BIW = [BI]                                  PROSEQ   1020
                     10622                        BX6    X2                                                      PROSEQ   1021
                          5166000007 C            SA6    CAT+B6-1    CAT(RN) = BIW                               PROSEQ   1022
           453  0100000463 +                      RJ     ISA         ISSUE SA-RS TO MOD                          PROSEQ   1023
           454  0100000524 +                      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/05. 19.57.33.      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
           455  54210                             SA2    A1          BJ = BI                                     PROSEQ   1029
                     20252                        LX2    -BC.LXUP                                                PROSEQ   1030
                          63720                   SB7    X2                                                      PROSEQ   1031
                               67507              SB5    -B7                                                     PROSEQ   1032
           456  76110                             SX1    B1                                                      PROSEQ   1033
                                                                                                                 PROSEQ   1034
           457  54221                    ABR8     SA2    A2+B1       BJ = BJ + 1 ;  BJW = [BJ]                   PROSEQ   1035
                     0302000422 +                 ZR     X2,ABR1     IF BJW = 0    */ END OF BCT                 PROSEQ   1036
                               20252              LX2    -BC.LXUP                                                PROSEQ   1037
           460  73725                             SX7    X2+B5                                                   PROSEQ   1038
                     0327000457 +                 PL     X7,ABR8     IF LXU[BJW] .GE. LXU[BIW]  */ OVERLAP       PROSEQ   1039
                               20252              LX2    BC.LXUP-BC.MRWP                                         PROSEQ   1040
           461  73720                             SX7    X2                                                      PROSEQ   1041
                     0307000457 +                 ZR     X7,ABR8     IF MRW[BJW] = 0                             PROSEQ   1042
                               37621              IX6    X2-X1                                                   PROSEQ   1043
           462  20644                             LX6    BC.MRWP                                                 PROSEQ   1044
                     54620                        SA6    A2          MRW[BJW] = MRW[BJW] - 1                     PROSEQ   1045
                          0400000457 +            EQ     ABR8                                                    PROSEQ   1046
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           463  0200400463 +             ISA      ROUTINE                                                        PROSEQ   1060
           464  5120000000 X                      SA2    O.MLT                                                   PROSEQ   1061
                          5130000000 X            SA3    L.MLT                                                   PROSEQ   1062
           465  5150000000 X                      SA5    O.MOD                                                   PROSEQ   1063
                          43600                   MX6    0                                                       PROSEQ   1064
                               36723              IX7    X2+X3                                                   PROSEQ   1065
           466  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
           467  5150000000 X                      SA5    L.MOD                                                   PROSEQ   1069
                                                                                                                 PROSEQ   1070
           470  0304000477 +             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
           471  20444                             LX4    ML.IIP-ML.MTIP                                          PROSEQ   1074
                     63540                        SB5    X4                                                      PROSEQ   1075
                          54441                   SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   PROSEQ   1076
           472  0317000470 +                      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
           473  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
           474  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
           475  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
           476  55441                             SA4    A4-B1       MI = MI - 1                                 PROSEQ   1092
                     0400000507 +                 EQ     ISA4                                                    PROSEQ   1093
                                                                                                                 PROSEQ   1094
           477  5120000000 X             ISA2     SA2    L.MLT                                                   PROSEQ   1095
                          73621                   SX6    X2+B1                                                   PROSEQ   1096
                               54620              SA6    A2          L.MLT = L.MLT + 1                           PROSEQ   1097
           500  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
           501  11702                             BX7    X0*X2                                                   PROSEQ   1101
                     55231                        SA2    A3-B1       R2I = DI - 1                                PROSEQ   1102
                          12675                   BX6    X7+X5       RI = L.MOD                                  PROSEQ   1103
           502  7100100000                        SX0    100000B                                                 PROSEQ   1104
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           503  36720                             IX7    X2+X0       RF = RF[R2I] + 100000                       PROSEQ   1108
                     12434                        BX4    X3+X4                                                   PROSEQ   1109
                          0334000505 +            MI     X4,ISA3 IF TY[DI] .GT. 1                                PROSEQ   1110
           504  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
           505  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
           506  54671                             SA6    A7+B1                                                   PROSEQ   1121
                     54761                        SA7    A6+B1                                                   PROSEQ   1122
                                                                                                                 PROSEQ   1123
           507  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
           510  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
           511  54740                             SA7    A4          [MI] = MLW(0,NIM,IIM,MTIM)                  PROSEQ   1135
                                                                                                                 PROSEQ   1136
                     6275000004                   SB7    X5+4        LMN = L.MOD + 4                             PROSEQ   1137
           512  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
           513  12665                             BX6    X6+X5                                                   PROSEQ   1142
                     43700                        MX7    0                                                       PROSEQ   1143
                          66472                   SB4    B7+B2                                                   PROSEQ   1144
           514  0100000565 +                      RJ     SRI                                                     PROSEQ   1145
           515  7130002200                        SX3    SO.BLOCK                                                PROSEQ   1146
                          76160                   SX1    B6                                                      PROSEQ   1147
                                                  LX1    SO.RNP                                                  PROSEQ   1148
                               12213              BX2    X1+X3                                                   PROSEQ   1149
           516  20220                             LX2    R1.SOP                                                  PROSEQ   1150
                     76770                        SX7    B7                                                      PROSEQ   1151
                                                  LX7    R1.RIP                                                  PROSEQ   1152
                          6150000004              SB5    OC.RS                                                   PROSEQ   1153
           517  12672                             BX6    X7+X2                                                   PROSEQ   1154
                     43700                        MX7    0                                                       PROSEQ   1155
                          0100000565 +            RJ     SRI                                                     PROSEQ   1156
           520  7177000010                        SX7    B7+8                                                    PROSEQ   1157
                          5170000000 X            SA7    L.MOD       L.MOD = LMN + 8                             PROSEQ   1158
           521  0400000463 +                      EQ     ISA                                                     PROSEQ   1159
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           522  00004000020000000000     IUMA     VFD    12/0,16/100000B,16/100000B,16/0                         PROSEQ   1171
                                                                                                                 PROSEQ   1172
           523  5120000022 C             IUM0     SA2    IUMB                                                    PROSEQ   1173
                          10622                   BX6    X2                                                      PROSEQ   1174
                               54630              SA6    A3          [UL] = SAVE                                 PROSEQ   1175
                                                                                                                 PROSEQ   1176
           524  0200400524 +             IUM      ROUTINE                                                        PROSEQ   1177
           525  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
           526  53430                             SA4    X3          UL = NI[LIW]                                PROSEQ   1182
                     10744                        BX7    X4          SAVE = [UL]                                 PROSEQ   1183
                          54640                   SA6    A4          [UL] = 0                                    PROSEQ   1184
           527  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
           530  56320                    IUM1     SA3    B2          UIW = [UI]                                  PROSEQ   1192
                     0303000523 +                 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
           531  0333000530 +                      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
           532  53236                             SA2    B6+X3       R1I = O.SEQ + USE[UIW] ;  R1W = [R1I]       PROSEQ   1201
                     5140000000 X                 SA4    O.MLT                                                   PROSEQ   1202
           533  5150000000 X                      SA5    L.MLT                                                   PROSEQ   1203
                          43600                   MX6    0                                                       PROSEQ   1204
                               36745              IX7    X4+X5                                                   PROSEQ   1205
           534  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
           535  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
           536  54441                    IUM2     SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   PROSEQ   1216
                     0304000544 +                 ZR     X4,IUM3     IF MIN = 0    */ NO *MOD* ENTRY MATCHES     PROSEQ   1217
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    29
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
                               20430              LX4    -ML.IIP                                                 PROSEQ   1218
           537  73745                             SX7    X4+B5                                                   PROSEQ   1219
                     0317000536 +                 NZ     X7,IUM2     IF II[MIN] .NE. USE[UIW]                    PROSEQ   1220
                                                                                                                 PROSEQ   1221
                                        *         *MOD* ENTRY TO SAME INSTRUCTION.                               PROSEQ   1222
                                                                                                                 PROSEQ   1223
           540  5150000000 X                      SA5    O.MOD                                                   PROSEQ   1224
                          20444                   LX4    ML.IIP-ML.MTIP                                          PROSEQ   1225
                               36745              IX7    X4+X5                                                   PROSEQ   1226
           541  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
           542  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
           543  22757                             LX7    B5                                                      PROSEQ   1234
                     54730                        SA7    A3                                                      PROSEQ   1235
                          0400000530 +            EQ     IUM1                                                    PROSEQ   1236
                                                                                                                 PROSEQ   1237
                                        *         NO MATCH.  CREATE NEW *MOD* ENTRY.                             PROSEQ   1238
                                                                                                                 PROSEQ   1239
           544  5042000002               IUM3     SA4    A2+2        DI = R1I + 2 ;  DIW = [DI]                  PROSEQ   1240
                                                  LX4    58-D.TYP                                                PROSEQ   1241
                          0334000546 +            MI     X4,IUM4     IF TY[DIW] .GT. 2                           PROSEQ   1242
           545  5130000522 +                      SA3    IUMA                                                    FCC0508    10
                          36223                   IX2    X2+X3       RJ[R1W] = RJ[R1W] + 100000B ;               FCC0508    11
                                        *                            RK[R1W] = RK[R1W] + 100000B                 PROSEQ   1245
                                                                                                                 PROSEQ   1246
           546  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
           547  0324000551 +                      PL     X4,IUM5     IF D[DIW]                                   FCC0508    14
                          15720                   BX7    -X0*X2                                                  FCC0508    15
           550  7277100000                        SX7    X7+100000B  RII = RI[R1W] + 100000B                     FCC0508    16
                                                                                                                 FCC0508    17
           551  11402                    IUM5     BX4    X0*X2                                                   FCC0508    18
                     6160000074                   SB6    60                                                      PROSEQ   1249
                               26151              UX1    B5,X1       RC = SC[UIW]                                PROSEQ   1250
           552  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
           553  12646                             BX6    X4+X6       RX[R1W] = RIM                               PROSEQ   1255
                     22656                        LX6    B5                                                      PROSEQ   1256
                          54221                   SA2    A2+B1       R2I = R1I + 1                               PROSEQ   1257
           554  7140100000                        SX4    100000B                                                 PROSEQ   1258
                          20444                   LX4    IH.RFP                                                  PROSEQ   1259
                               12724              BX7    X2+X4                                                   PROSEQ   1260
           555  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
           556  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/05. 19.57.33.      PAGE    30
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
           557  7275000004                        SX7    X5+4                                                    PROSEQ   1269
                          54750                   SA7    A5          L.MOD = L.MOD + 4                           PROSEQ   1270
           560  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
           561  5140000000 X                      SA4    O.MLT                                                   PROSEQ   1275
                          12505                   BX5    X0+X5                                                   PROSEQ   1276
                               20023              LX0    ML.NIP-ML.DELP     NIM = 1                              PROSEQ   1277
           562  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
           563  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
           564  0400000530 +                      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
           565  0200400565 +             SRI      ROUTINE                                                        PROSEQ   1301
           566  27656                             PX6    B5,X6                                                   PROSEQ   1302
                     5135000000 X                 SA3    =XF.RDT+B5                                              PROSEQ   1303
                               56640              SA6    B4                                                      PROSEQ   1304
           567  56741                             SA7    B4+B1                                                   PROSEQ   1305
                     10633                        BX6    X3                                                      PROSEQ   1306
                          43700                   MX7    0                                                       PROSEQ   1307
                               54671              SA6    A7+B1                                                   PROSEQ   1308
           570  54761                             SA7    A6+B1                                                   PROSEQ   1309
                     64471                        SB4    A7+B1                                                   PROSEQ   1310
                          0400000565 +            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/05. 19.57.33.      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
           571                           ESRA     ENTRY. -1,#        MAKE FP ONLY CALL ILLEGAL                   CCGNC     736
           572  00000000000000000000 X            VFD    42/,18/=XHO$LVL2                                        CCGNC     737
           573  00000000000000000006 +            VFD    42/,18/CC$SRF                                           CCGNC     738
           574  00000000000000000006 +            VFD    42/,18/CC$SRF                                           CCGNC     739
                                                                                                                 CCGNC     740
           575                     1     FSR      BSS    1           FIRST SPECIAL REF. (CHAIN HEAD)             PROSEQ   1337
           576                     1     LSF      BSS    1           LOAD/STORE/SET FLAG                         PROSEQ   1338
           577                     1     SQF      BSS    1           SQUEEZE FLAG                                PROSEQ   1339
           600                     1     R2W      BSS    1           R2 WORD OF CURRENT INSTRUCTION              FCC0643    47
                                                                                                                 PROSEQ   1340
           601  5130000000 X             ESR0     SA3    O.MOD                                                   PROSEQ   1341
                          6273777776              SB7    X3-1                                                    PROSEQ   1342
           602  75677                             SX6    A7-B7                                                   PROSEQ   1343
                     5160000000 X                 SA6    L.MOD                                                   PROSEQ   1344
                                                                                                                 PROSEQ   1345
           603  5110000000 X             ESR1     SA1    O.SEQ                                                   PROSEQ   1346
                          53210                   SA2    X1                                                      PROSEQ   1347
                               26722              UX7    B2,X2                                                   PROSEQ   1348
           604  5132000000 X                      SA3    F.RDT+B2                                                PROSEQ   1349
                          5140000577 +            SA4    SQF                                                     PROSEQ   1350
           605  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
           606  0336000607 +                      MI     X6,ESR      IF SQF < 0                                  PROSEQ   1354
                          0100000000 X            CALL   MPB#        MERGE MODS WITH SEQUENCE                    CCGNC     741
                                                                                                                 PROSEQ   1356
           607                           ESR      ENTRY. **,#                                                    CCGNC     742
           610  5245000570 +                      SA4    ESRA-1+X5                                               PROSEQ   1358
                          5160000577 +            SA6    SQF                                                     PROSEQ   1359
           611  53340                             SA3    X4                                                      PROSEQ   1360
                     0303000603 +                 ZR     X3,ESR1     IF FLAG(MODE) = 0  */ NO SPECIAL REFS       PROSEQ   1361
           612  5215000134 +                      SA1    TSBA+X5     MASK FOR SR BITS                            PROSEQ   1362
                          5140000000 X            SA4    O.SEQ                                                   PROSEQ   1363
           613  43700                             MX7    0                                                       PROSEQ   1364
                     10011                        BX0    X1                                                      PROSEQ   1365
                          5274000002              SA7    X4+2        LOOP TERMINATOR AT D(BOS)                   PROSEQ   1366
           614  0100000630 +                      RJ     MSR         MARK SPECIAL REFS                           PROSEQ   1367
           615  0420000603 +                      ZR     B2,ESR1     IF N.SR = 0                                 PROSEQ   1368
                                                                                                                 PROSEQ   1369
                          76120                   ALLOC  MLT,B2      ALLOC( MLT , N.SR )                         PROSEQ   1370
           617  10211                             BX2    X1                                                      PROSEQ   1371
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    32
        ESR - EXPAND SPECIAL REFERENCES                               ESR 
  
                     20104                        LX1    4                                                       PROSEQ   1372
                          20202                   LX2    2                                                       PROSEQ   1373
                               36112              IX1    X1+X2                                                   PROSEQ   1374
           620  5100000000 X                      ALLOC  MOD,X1      ALLOC (MOD, 5*4*N.SR )                      PROSEQ   1375
                                                                                                                 PROSEQ   1376
           621  0100000643 +                      RJ     GSR         GENERATE SPECIAL REFS                       PROSEQ   1377
           622  0400000601 +                      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
           623                           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    627                                    LOC    *O                                                      PROSEQ   1393
                                                                                                                 PROSEQ   1394
           627  76630                    MSR0     SX6    B3                                                      PROSEQ   1395
                     5160000575 +                 SA6    FSR         FIRST SPECIAL REF LINK ADDRESS              PROSEQ   1396
                                                                                                                 PROSEQ   1397
           630  0200400630 +             MSR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1398
           631  5255000622 +                      SA5    MSRA-1+X5                                               PROSEQ   1399
                          53241                   SA2    X4+B1                                                   PROSEQ   1400
                               73120              SX1    X2          LEN = TXTL[SEQ+1]                           PROSEQ   1401
           632  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
           633  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
           634  20725                             LX7    D.FPP                                                   PROSEQ   1409
                                                                                                                 PROSEQ   1410
           635  0303000627 +             MSR1     ZR     X3,MSR0     IF DI = 0     */ I = 0                      PROSEQ   1411
                          6177777773              SB7    B7-4        I = I - 1                                   PROSEQ   1412
           636  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
           637  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
           640  56370                             SA3    B7          DI=D(I)                                     PROSEQ   1421
                     0304000635 +                 ZR     X4,MSR1     IF NOT SPECIAL REF(MODE)                    PROSEQ   1422
                               66221              SB2    B2+B1       N.SR = N.SR + 1                             PROSEQ   1423
           641  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/05. 19.57.33.      PAGE    33
        ESR - EXPAND SPECIAL REFERENCES                               MSR 
  
           642  0400000635 +                      EQ     MSR1                                                    PROSEQ   1427
  
  
  
  
                                        **        GSR - GENERATE SPECIAL REFERENCES.                             PROSEQ   1429
                                        *                                                                        PROSEQ   1430
                                        *         ENTRY  B2 = CHAIN HEAD FOR SPECIAL REFS                        PROSEQ   1431
                                        *                                                                        PROSEQ   1432
           643  0200400643 +             GSR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1433
           644  5120000575 +                      SA2    FSR                                                     PROSEQ   1434
                          5110000000 X            SA1    O.SEQ                                                   PROSEQ   1435
           645  43700                             MX7    0                                                       PROSEQ   1436
                     63710                        SB7    X1                                                      PROSEQ   1437
                          63227                   SB2    X2+B7                                                   PROSEQ   1438
           646  6130100000                        SB3    100000B     OFFSET FOR MPB                              PROSEQ   1439
                          5110000000 X            SA1    O.MOD                                                   PROSEQ   1440
           647  5170000000 X                      SA7    L.MLT       L.MLT = 0                                   PROSEQ   1441
                          5271000003              SA7    X1+3        A7= FWA - 1 EXPANSION IN MOD                PROSEQ   1442
           650  6140000004                        SB4    4           RI = 4                                      PROSEQ   1443
                          0400000654 +            EQ     GSR3                                                    PROSEQ   1444
                                                                                                                 PROSEQ   1445
           651  0100000703 +             GSR1     RJ     ISC         ISSUE SET CODE                              PROSEQ   1446
                                                                                                                 PROSEQ   1447
           652  0100001212 +             GSR2     RJ     TRE         TERMINATE REF EXPANSION                     PROSEQ   1448
           653  5110000000 X                      SA1    O.SEQ                                                   PROSEQ   1449
                          6271000000              SB7    X1+                                                     PROSEQ   1450
                                                                                                                 PROSEQ   1451
           654  0427000643 +             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
           655  56320                             SA3    B2                                                      PROSEQ   1455
                     55211                        SA2    A1-B1       R2I = DI - 1                                FCC0643    49
                          10622                   BX6    X2          R2W = [R2I]                                 FCC0643    50
           656  5160000600 +                      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
           657  6160100000                        SB6    I.GL                                                    CCGA040    10
                          63520                   SB5    X2                                                      CCGA040    11
           660  0450000667 +                      ZR     B5,GSR3A    IF IH[R2] = 0                               CCGA040    12
                          0656000667 +            GE     B5,B6,GSR3A       IF I[R2] " 0                          CCGA040    13
           661  10511                             BX5    X1                                                      CCGA040    14
                     20501                        LX5    59-D.TYP                                                CCGA040    15
                          0335000667 +            MI     X5,GSR3A    IF TYPE[DI] = II & IV                       CCGA040    16
           662  5150000000 X                      SA5    =XO.SYM                                                 CCGA040    17
                          76455                   SX4    B5+B5                                                   CCGA040    18
                               63655              SB6    X5+B5                                                   CCGA040    19
           663  73546                             SX5    X4+B6                                                   CCGA040    20
                     53451                        SA4    X5+B1       WORDB = SYM(3*IH+1)                         CCGA040    21
                          20470                   LX4    59-WB.LABP                                              CCGA040    22
           664  0334000667 +                      MI     X4,GSR3A    IF LAB[WORDB]                               CCGA040    23
                          20423                   LX4    WB.LABP-WB.LEVNP+1                                      CCGA040    24
                               43572              MX5    -WB.LEVNL                                               CCGA040    25
           665  15545                             BX5    -X5*X4                                                  CCGA040    26
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    34
        ESR - EXPAND SPECIAL REFERENCES                               GSR 
  
                     0315000667 +                 NZ     X5,GSR3A    IF LEVN[WB] NE 0  */LEVEL 0                 CCGA040    27
                               20434              LX4    WB.LEVNP-WB.LCMP                                        CCGA040    28
           666  76610                             SX6    B1                                                      CCGA040    29
                     11646                        BX6    X4*X6       IFF LCM[WORDB]                              CCGA040    30
                          20644                   LX6    D.L2P                                                   CCGA040    31
                                        *                                                                        CCGA040    32
           667  5160001223 +             GSR3A    SA6    =SLEV0                                                  CCGA040    33
                          43272                   MX2    -D.LDSTL                                                CCG35      29
                               63237              SB2    X3+B7       I = I + 1                                   PROSEQ   1457
           670  10311                             BX3    X1                                                      PROSEQ   1458
                     20332                        LX3    -D.LDSTP                                                PROSEQ   1459
                          15232                   BX2    -X2*X3                                                  PROSEQ   1460
                               14622              BX6    -X2                                                     PROSEQ   1461
           671  5160000576 +                      SA6    LSF         LOAD/STORE/SET FLAG                         PROSEQ   1462
                          0306000651 +            ZR     X6,GSR1     IF NOT LOAD OR STORE                        PROSEQ   1463
                                                                                                                 PROSEQ   1464
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1465
           672  11201                             BX2    X0*X1                                                   PROSEQ   1466
                     20227                        LX2    59-D.L2P                                                PROSEQ   1467
                          0322000676 +            PL     X2,GSR4     IF NOT LCM REF                              PROSEQ   1468
           673  0100000703 +                      RJ     ISC         ISSUE SET                                   PROSEQ   1469
           674  0100001131 +                      RJ     IDR         ISSUE DIRECT LCM REF                        PROSEQ   1470
           675  0400000652 +                      EQ     GSR2                                                    PROSEQ   1471
                                                                                                                 PROSEQ   1472
           676                           GSR4     BSS    0                                                       PROSEQ   1473
                                         #DAL     ENDIF                                                          PROSEQ   1474
                                                                                                                 PROSEQ   1475
           676  0100001022 +                      RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1476
           677  0100001033 +                      RJ     IRA         ISSUE RA FOR RF                             PROSEQ   1477
           700  0100001121 +                      RJ     IPR         ISSUE PLD/PST                               PROSEQ   1478
           701  0400000652 +                      EQ     GSR2                                                    PROSEQ   1479
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
           702  43200                    ISC0     MX2    0                                                       PROSEQ   1506
                     0100001205 +                 RJ     SRI         STORE INSTRUCTION                           PROSEQ   1507
                                                                                                                 PROSEQ   1508
           703  0200400703 +             ISC      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1509
           704  11301                             BX3    X0*X1                                                   PROSEQ   1510
                     20327                        LX3    59-D.L2P                                                PROSEQ   1511
                          0333000712 +            MI     X3,ISC3     IF LCM REF                                  PROSEQ   1512
           705  20317                             LX3    D.L2P-D.FPP                                             PROSEQ   1513
                     0323000703 +                 PL     X3,ISC      IF NOT FP                                   PROSEQ   1514
                                                                                                                 PROSEQ   1515
           706  0100001022 +             ISC2     RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1516
           707  0100001033 +                      RJ     IRA         ISSUE IA FOR ANY RF                         PROSEQ   1517
           710  0100001072 +                      RJ     ISX         ISSUE STT/XMT                               PROSEQ   1518
           711  0400000703 +                      EQ     ISC                                                     PROSEQ   1519
                                                                                                                 PROSEQ   1520
           712  5140000000 X             ISC3     SA4    =XHO$LCM                                                CCGNC     743
                          0314000724 +            NZ     X4,ISC5     IF LCM=I MODE                               PROSEQ   1522
           713  5140001223 +                      SA4    LEV0                                                    CCG35      30
                          0314000724 +            NZ     X4,ISC5 IF LEVEL = 0                                    CCG35      31
                                                                                                                 PROSEQ   1523
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1524
           714  5140000576 +                      SA4    LSF                                                     PROSEQ   1525
                          0304000720 +            ZR     X4,ISC1     IF  STT LCM                                 PROSEQ   1526
           715  20317                             LX3    D.L2P-D.FPP                                             PROSEQ   1527
                     0333000706 +                 MI     X3,ISC2     IF FP                                       PROSEQ   1528
           716  0100001010 +                      RJ     ISI         ISSUE STT INSTRUCTIIN                       PROSEQ   1529
           717  0400000703 +                      EQ     ISC                                                     PROSEQ   1530
                                                                                                                 PROSEQ   1531
                                         #DAL     ENDIF                                                          PROSEQ   1532
                                                                                                                 PROSEQ   1533
           720  20317                    ISC1     LX3    D.L2P-D.FPP                                             PROSEQ   1534
                     0333000706 +                 MI     X3,ISC2     IF FP                                       PROSEQ   1535
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    36
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
           721  0100001010 +                      RJ     ISI         ISSUE STT                                   PROSEQ   1536
           722  0100001142 +                      RJ     IMO         ISSUE MASK-OR BIT 59                        PROSEQ   1537
           723  0400000703 +                      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
           724  20146                    ISC5     LX1    59-D.FPP    FP BIT IRREGARDLESS OF MODE                 PROSEQ   1544
                     0321000727 +                 PL     X1,ISC6     IF NOT FP                                   PROSEQ   1545
           725  0100001022 +                      RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1546
           726  43500                             MX5    0           RA = 0                                      CCG18     113
                     0400000740 +                 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
           727  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
           730  22217                             LX2    B1,X7                                                   CCG18     116
                     36272                        IX2    X7+X2                                                   CCG18     117
                          36732                   IX7    X3+X2                                                   CCG18     118
           731  5237000002                        SA3    X7+2                                                    CCG18     119
                          43262                   MX2    -WC.RBL                                                 CCG18     120
                               20314              LX3    -WC.RBP                                                 CCG18     121
           732  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
           733  5120000000 X                      SA2    =XO$CBT                                                 CCG18     126
                          36327                   IX3    X2+X7                                                   CCG18     127
           734  5223000001                        SA2    X3+CB.W                                                 CCG18     128
                          43352                   MX3    -CB.TAGL                                                CCG18     129
                               20244              LX2    -CB.TAGP                                                CCG18     130
           735  15723                             BX7    -X3*X2      IH = TAG[CBT(RB[WC(REF)])]                  CCG18     131
                     76210                        SX2    B1                                                      FCC0882    12
                          6150000050              SB5    OC.LD                                                   FCC0882    13
           736  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
           737  0100001205 +                      RJ     SRI         ISSUE LD LCM POINTER CELL                   PROSEQ   1560
                                                                                                                 PROSEQ   1561
           740  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
           741  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
           742  0332000747 +                      MI     X2,ISC8     IF RF(REF) .OR. CA(REF) .NE. 0              CCG0085     5
                          0312000747 +            NZ     X2,ISC8     IF RF(REF) .OR. CA(REF) .NE. 0              PROSEQ   1570
           743  5140000576 +                      SA4    LSF                                                     PROSEQ   1571
                          0314000703 +            NZ     X4,ISC      IF LD/ST                                    PROSEQ   1572
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    37
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
           744  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
           745  7124777773                        SX2    B4-4        RJ = RI(PRED)                               PROSEQ   1578
                          0100001110 +            RJ     IXI         ISSUE AN *XMT/SA*                           PROSEQ   1579
           746  0400000703 +                      EQ     ISC                                                     PROSEQ   1580
                                                                                                                 PROSEQ   1581
           747  76640                    ISC8     SX6    B4          RI                                          PROSEQ   1582
                     0304000773 +                 ZR     X4,ISC9     IF RF = 0                                   FCC1353     5
                               53547              SA5    B7+X4       R1P = SEQ(RF)                               FCC1353     6
           750  73443                             SX4    X4+B3       RF = RF + 100000B                           FCC1353     7
                     0313000755 +                 NZ     X3,ISC8A    IF CA " 0                                   FCC1353     8
                                                                                                                 FCC1353     9
                               26555              UX5    B5,X5                                                   FCC1353    10
           751  7175777772                        SX7    B5-OC.DEF                                               FCC1353    11
                          0317001002 +            NZ     X7,ISC11    IF OC[R1P] " OC.DEF                         FCC1353    12
           752  20547                             LX5    58-R1.SOP-SO.RTP                                        FCC1353    13
                     0335001002 +                 MI     X5,ISC11    IF SORT[R1P] = 2  */ OPERAND IN A X-REGISTE FCC1353    14
                                                                                                                 FCC1353    15
                               20440              LX4    R1.RJP                                                  FCC1353    16
           753  12664                             BX6    X6+X4                                                   FCC1353    17
                     43700                        MX7    0                                                       FCC1353    18
                          6150000060              SB5    OC.SA                                                   FCC1353    19
           754  0400001000 +                      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
           755  10233                    ISC8A    BX2    X3                                                      CCGA052     9
                     21221                        AX2    17                                                      CCGA052    10
                          0302000760 +            ZR     X2,ISC8B    IF CA FITS IN 18 BITS                       CCGA052    11
           756  0100001154 +                      RJ     ILC                                                     CCGA044    20
           757  0400000766 +                      EQ     ISC8D                                                   CCGA044    21
                                                                                                                 CCGA044    22
           760  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
           761  0312000764 +                      NZ     X2,ISC8C    IF LCM = I OR LCM = G                       CCGA099    29
                          6150000052              SB5    OC.STT                                                  CCG35      34
           762  20444                             LX4    IH.RFP                                                  PROSEQ   1588
                     20322                        LX3    IH.CAP                                                  PROSEQ   1589
                          12743                   BX7    X4+X3                                                   PROSEQ   1590
           763  0400001000 +                      EQ     ISC10                                                   PROSEQ   1591
                                                                                                                 CCG35      35
           764  6150000055               ISC8C    SB5    OC.S                                                    CCGA044    25
                          43700                   MX7    0                                                       CCG35      37
                               20336              LX3    R1.INP                                                  CCG35      38
           765  12663                             BX6    X6+X3                                                   CCG35      39
                     43200                        MX2    0                                                       CCG35      40
                          0100001205 +            RJ     SRI                                                     CCG35      41
                                                                                                                 CCGA044    26
           766  76640                    ISC8D    SX6    B4                                                      CCGA044    27
                     6150000036                   SB5    OC.IA                                                   CCG35      43
           767  7174777773                        SX7    B4-4                                                    CCG35      44
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    38
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
                          20740                   LX7    R1.RJP                                                  CCG35      45
                               20420              LX4    R1.RKP                                                  CCG35      46
           770  12774                             BX7    X7+X4                                                   CCG35      47
                     12667                        BX6    X6+X7                                                   CCG35      48
                          43700                   MX7    0                                                       CCG35      49
                               43200              MX2    0                                                       CCG35      50
           771  0100001205 +                      RJ     SRI                                                     CCG35      51
           772  7144777763                        SX4    B4-12                                                   CCG35      52
                          0400001002 +            EQ     ISC11                                                   CCG35      53
                                                                                                                 PROSEQ   1592
           773  10233                   ISC9      BX2    X3                                                      CCGA052    15
                     21221                        AX2    17                                                      CCGA052    16
                          0302000776 +            ZR     X2,ISC9A    IF CA FITS IN 18 BITS                       CCGA052    17
           774  0100001154 +                      RJ     ILC                                                     CCGA044    35
           775  7144777767                        SX4    B4-8                                                    CCGA044    36
                          0400001002 +            EQ     ISC11                                                   CCGA044    37
                                                                                                                 CCGA044    38
           776  20336                    ISC9A    LX3    R1.INP                                                  CCGA044    39
                     12663                        BX6    X6+X3                                                   PROSEQ   1594
                          43700                   MX7    0                                                       PROSEQ   1595
           777  6150000055                        SB5    OC.S                                                    PROSEQ   1596
                                                                                                                 PROSEQ   1597
          1000  43200                    ISC10    MX2    0                                                       PROSEQ   1598
                     0100001205 +                 RJ     SRI         STORE STT/S                                 PROSEQ   1599
          1001  7144777767                        SX4    B4-8        RK = RI(LCM ADDRESS LOAD)                   PROSEQ   1600
                                                                                                                 PROSEQ   1601
          1002  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
          1003  20640                             LX6    R1.RJP                                                  PROSEQ   1605
                     5120000576 +                 SA2    LSF                                                     PROSEQ   1606
                               76340              SX3    B4          RI = NRI                                    PROSEQ   1607
          1004  0312001006 +                      NZ     X2,ISC12    IF EXPANDING LCM LD/ST                      PROSEQ   1608
                          5031777775              SA3    A1-2        R1(REF)                                     PROSEQ   1609
          1005  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
          1006  12663                             BX6    X6+X3                                                   PROSEQ   1616
                     43700                        MX7    0                                                       PROSEQ   1617
                          6150000036              SB5    OC.IA                                                   PROSEQ   1618
          1007  0400000702 +                      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
          1010  0200401010 +             ISI      ROUTINE                                                        PROSEQ   1625
          1011  55211                             SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1626
                     6150000052                   SB5    OC.STT                                                  PROSEQ   1627
                               43652              MX6    -IH.RFL                                                 FCC0912    33
          1012  20230                             LX2    -IH.RFP                                                 FCC0912    34
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    39
        ESR - EXPAND SPECIAL REFERENCES                               ISI 
  
                     15326                        BX3    -X6*X2      R = RF[R2]                                  FCC0912    35
                          22702                   LX7    X2          R2W = [R2]                                  FCC0912    36
          1013  0303001014 +                      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
          1014  20744                    ISI1     LX7    IH.RFP      IHINFO(STT)                                 PROSEQ   1636
                     76640                        SX6    B4          RI                                          PROSEQ   1637
                          5021777775              SA2    A1-2        R1 WORD                                     FCC1677X    5
          1015  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
          1016  76310                             SX3    B1                                                      FCC0912    40
                     20325                        LX3    D.FPP                                                   FCC0912    41
                          11231                   BX2    X3*X1       FP = FP[DESCR]                              FCC0912    42
          1017  0100001205 +                      RJ     SRI                                                     PROSEQ   1640
          1020  0400001010 +                      EQ     ISI                                                     PROSEQ   1641
  
  
  
  
                                        **        IAL - ISSUE ADDRESS LOAD.                                      PROSEQ   1643
                                                                                                                 PROSEQ   1644
          1021  6150000050               IAL0     SB5    OC.LD                                                   CCG5      932
                          0100001205 +            RJ     SRI                                                     CCG5      933
                                                                                                                 PROSEQ   1646
          1022  0200401022 +             IAL      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1647
          1023  76640                             SX6    B4          RI                                          PROSEQ   1648
                     6150000050                   SB5    OC.LD                                                   PROSEQ   1649
                               76710              SX7    B1                                                      FCC0645    37
          1024  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
          1025  73220                             SX2    X2                                                      CCG18     136
                     5130000000 X                 SA3    =XO$SYM                                                 CCG18     137
                               22512              LX5    B1,X2                                                   CCG18     138
          1026  36252                             IX2    X5+X2                                                   CCG18     139
                     36332                        IX3    X3+X2                                                   CCG18     140
                          53331                   SA3    X3+B1                                                   CCG18     141
                               43263              MX2    -WB.FPOL                                                CCG18     142
          1027  20333                             LX3    -WB.FPOP                                                CCG18     143
                     15232                        BX2    -X2*X3                                                  CCG18     144
                          7252777776              SX5    X2-1        CA = FPNO[WORDB(IH)] - 1                    CCG18     145
          1030  20522                             LX5    IH.CAP                                                  PROSEQ   1658
                     12775                        BX7    X7+X5                                                   PROSEQ   1659
                          43200                   MX2    0                                                       PROSEQ   1660
          1031  0315001021 +                      NZ     X5,IAL0     IF CA = 0                                   PROSEQ   1661
                          43202                   MX2    2                                                       PROSEQ   1662
                               20231              LX2    2+D.SZP     INDICATE SIZE = 1                           PROSEQ   1663
          1032  0400001021 +                      EQ     IAL0                                                    PROSEQ   1664
                                                                                                                 PROSEQ   1665
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    40
        ESR - EXPAND SPECIAL REFERENCES                               IRA 
  
                                        **        IRA - ISSUE *IA* OR *IS* FOR RF IF EXISTANT                    FCC0643    52
                                                                                                                 PROSEQ   1668
          1033  0200401033 +             IRA      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1669
          1034  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
          1035  0304001033 +                      ZR     X4,IRA      IF RF[REF] = 0                              FCC1918    13
                                                                                                                 FCC1918    14
                          20350                   LX3    IH.RFP+59-IH.SIAP                                       FCC1918    15
          1036  0323001042 +                      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
          1037  7134777773                        SX3    B4-4                                                    FCC1918    19
                          20340                   LX3    R1.RJP                                                  FCC1918    20
                               76640              SX6    B4                                                      FCC1918    21
          1040  43200                             MX2    0                                                       FCC1918    22
                     12636                        BX6    X3+X6                                                   FCC1918    23
                          43700                   MX7    0                                                       FCC1918    24
          1041  0100001205 +                      RJ     SRI                                                     FCC1918    25
                                                                                                                 FCC1918    26
          1042  6150000036               IRA0     SB5    OC.IA                                                   FCC1918    27
                          5130000000 X            SA3    O.SEQ                                                   PROSEQ   1676
          1043  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
          1044  43700                             MX7    0                                                       PROSEQ   1680
                     0323001063 +                 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
          1045  20347                             LX3    59-R1.SOP-SO.RTP-1                                      PROSEQ   1686
                     0333001056 +                 MI     X3,IRA1     IF RT[SO[R1W]] .EQ. 2  */ DEF TO X-REG      PROSEQ   1687
          1046  6150000060                        SB5    OC.SA                                                   PROSEQ   1688
                          5130000000 X            SA3    =XHO$LCM                                                CCGNC     744
          1047  54110                             SA1    A1                                                      PROSEQ   1690
                     0303001056 +                 ZR     X3,IRA1     IF HO$LCM = 0  */ LCM = D                   CCGNC     745
                               20127              LX1    59-D.L2P                                                PROSEQ   1692
          1050  0321001056 +                      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
          1051  20540                             LX5    R1.RJP                                                  PROSEQ   1699
                     12645                        BX6    X4+X5                                                   PROSEQ   1700
                          76200                   SX2    B0                                                      PROSEQ   1701
          1052  0100001205 +                      RJ     SRI         SRI ( SA, B4, RJ )                          PROSEQ   1702
          1053  6150000036                        SB5    OC.IA                                                   PROSEQ   1703
                          7124777767              SX2    B4-8                                                    PROSEQ   1704
          1054  20220                             LX2    R1.RJP-R1.RKP                                           PROSEQ   1705
                     7154777773                   SX5    B4-4                                                    PROSEQ   1706
          1055  0400001057 +                      EQ     IRA2                                                    PROSEQ   1707
                                                                                                                 PROSEQ   1708
          1056  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/05. 19.57.33.      PAGE    41
        ESR - EXPAND SPECIAL REFERENCES                               IRA 
  
                               73543              SX5    X4+B3       RF MOD TO SEQ                               PROSEQ   1711
                                                                                                                 PROSEQ   1712
          1057  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
          1060  76200                             SX2    B0                                                      PROSEQ   1718
                     0100001205 +                 RJ     SRI         SRI(  IA/IS RI,RI-4,RF )                    FCC0643    54
          1061  54360                             SA3    A6                                                      FCC1239     5
                     76210                        SX2    B1                                                      FCC1239     6
                          20233                   LX2    D.USIP                                                  FCC1239     7
                               12623              BX6    X2+X3                                                   FCC1239     8
          1062  54630                             SA6    A3          USI[D] = 1                                  FCC1239     9
                     0400001033 +                 EQ     IRA                                                     PROSEQ   1720
                                                                                                                 FCC0643    55
          1063  53310                    IRA3     SA3    X1          R1W = SEQ(RF)                               FCC0643    56
                     10433                        BX4    X3                                                      FCC0643    57
                          21360                   AX3    R1.OCP                                                  FCC0643    58
          1064  7263775763                        SX6    X3-OC.XMTC-2000B                                        FCC0643    59
                          0316001056 +            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
          1065  20434                             LX4    -R1.RJP                                                 FCC0643    64
                     43254                        MX2    -R1.RIL                                                 FCC0643    65
                          6150000037              SB5    OC.IS                                                   FCC0643    66
          1066  15442                             BX4    -X2*X4      RF = RJ[R1W]  */ XMTC PRED                  FCC0643    67
                     5150000600 +                 SA5    R2W                                                     FCC0643    68
                               20244              LX2    IH.RFP                                                  FCC0643    69
          1067  7264200000                        SX6    X4+RF.MV                                                FCC0643    70
                          11525                   BX5    X2*X5                                                   FCC0643    71
                               20644              LX6    IH.RFP                                                  FCC0643    72
          1070  12656                             BX6    X5+X6       RF[R2W] = RF + RF.MV                        FCC0643    73
                     54650                        SA6    A5                                                      FCC0643    74
                          0400001056 +            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
          1071  43200                    ISX0     MX2    0                                                       PROSEQ   1726
                     0100001205 +                 RJ     SRI         STORE INSTRUCTION                           PROSEQ   1727
                                                                                                                 PROSEQ   1728
          1072  0200401072 +             ISX      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1729
          1073  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
          1074  7124777773                        SX2    B4-4        RP = RI(ADDRESS LOAD)                       PROSEQ   1734
                          76640                   SX6    B4          RI = NRI                                    PROSEQ   1735
          1075  5150000576 +                      SA5    LSF                                                     PROSEQ   1736
                          0315001077 +            NZ     X5,ISX1     IF EXPANDING LD OR ST                       PROSEQ   1737
          1076  55421                             SA4    A2-B1       R1(REF)                                     PROSEQ   1738
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
          1077  0303001106 +                      ZR     X3,ISX2     IF CA .EQ. 0                                PROSEQ   1745
                          20244                   LX2    IH.RFP      RF = RP                                     PROSEQ   1746
          1100  6150000052                        SB5    OC.STT                                                  PROSEQ   1747
                          20322                   LX3    IH.CAP                                                  PROSEQ   1748
                               12723              BX7    X2+X3                                                   PROSEQ   1749
          1101  0315001071 +                      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
          1102  0321001071 +                      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
          1103  0100001205 +                      RJ     SRI         STORE INSTRUCTION                           PROSEQ   1757
          1104  0100001142 +                      RJ     IMO         ISSUE MASK-OR BIT 59                        PROSEQ   1758
          1105  0400001072 +                      EQ     ISX                                                     PROSEQ   1759
                                                                                                                 PROSEQ   1760
          1106  0315001072 +             ISX2     NZ     X5,ISX      IF EXPANDING LOAD OR STORE                  PROSEQ   1761
                          0100001110 +            RJ     IXI         ISSUE A *SA/XMT*                            PROSEQ   1762
          1107  0400001072 +                      EQ     ISX                                                     PROSEQ   1763
  
  
  
                                        **        IXI - ISSUE *XMT/SA* INSTRUCTION                               PROSEQ   1765
                                                                                                                 PROSEQ   1766
          1110  0200401110 +             IXI      ROUTINE                                                        PROSEQ   1767
          1111  54110                             SA1    A1                                                      PROSEQ   1768
                     6150000010                   SB5    OC.XMT                                                  PROSEQ   1769
                               20125              LX1    59-D.PRSP                                               PROSEQ   1770
          1112  0321001115 +                      PL     X1,IXI1     IF ^PRS[DI]                                 PROSEQ   1771
                          5031000002              SA3    A1+2        R1RS = DI + 2                               FCC1596X    1
          1113  20347                             LX3    58-R1.SOP-SO.RTP                                        FCC1596X    2
                     0333001115 +                 MI     X3,IXI1     IF SORT [R1RS] = 2  */ RS TO AN X-REG       FCC1596X    3
          1114  6150000060                        SB5    OC.SA                                                   PROSEQ   1772
          1115  20240                    IXI1     LX2    R1.RJP                                                  PROSEQ   1773
                     76700                        SX7    B0                                                      PROSEQ   1774
                          12626                   BX6    X2+X6                                                   PROSEQ   1775
                               43200              MX2    0                                                       PROSEQ   1776
          1116  0100001205 +                      RJ     SRI                                                     PROSEQ   1777
          1117  0400001110 +                      EQ     IXI                                                     PROSEQ   1778
  
  
  
  
                                        **        IPR - ISSUE PARAMETER REFERENCE.                               PROSEQ   1780
                                                                                                                 PROSEQ   1781
          1120  0100001205 +             IPR0     RJ     SRI         STORE INSTRUCTION                           PROSEQ   1782
                                                                                                                 PROSEQ   1783
          1121  0200401121 +             IPR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1784
          1122  5021777775                        SA2    A1-2        R1(REF)                                     PROSEQ   1785
                                                  LX2    -R1.RIP                                                 PROSEQ   1786
                          5130000576 +            SA3    LSF                                                     PROSEQ   1787
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    43
        ESR - EXPAND SPECIAL REFERENCES                               IPR 
  
          1123  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
          1124  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
          1125  12624                             BX6    X2+X4                                                   PROSEQ   1795
                     5150000600 +                 SA5    R2W         IHINFO = R2W                                FCC0643    76
                               76130              SX1    B3          OFFSET FOR MPB                              PROSEQ   1797
          1126  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
          1127  73450                             SX4    X5                                                      PROSEQ   1802
                     0314001120 +                 NZ     X4,IPR0     IF CA .NE. 0                                PROSEQ   1803
                               43202              MX2    2                                                       PROSEQ   1804
          1130  20231                             LX2    2+D.SZP     INDICATE TOGGLE SIZE FIELD                  PROSEQ   1805
                     0400001120 +                 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
          1131  0200401131 +             IDR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1812
          1132  76530                             SX5    B3          100000B FOR MPB                             PROSEQ   1813
                     5120000600 +                 SA2    R2W         IHINFO = R2W                                FCC0643    77
          1133  5140000576 +                      SA4    LSF                                                     PROSEQ   1815
                          6254000066              SB5    OC.DRL+2+X4 OC.DRL/DWL                                  PROSEQ   1816
          1134  20544                             LX5    IH.RFP                                                  PROSEQ   1817
                     36725                        IX7    X2+X5       RF MOD TO SEQ                               PROSEQ   1818
                          43354                   MX3    -R1.RIL                                                 PROSEQ   1819
          1135  5021777775                        SA2    A1-2        R1I = DI - 2                                FCC0643    78
                          7150040000              SX5    IH.LCM                                                  PROSEQ   1821
                                                  LX5    IH.IHP                                                  PROSEQ   1822
          1136  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
          1137  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
          1140  5120001223 +                      SA2    LEV0                                                    CCG35      67
                          0100001205 +            RJ     SRI                                                     PROSEQ   1832
          1141  0400001131 +                      EQ     IDR                                                     PROSEQ   1833
                                                                                                                 PROSEQ   1834
                                         #DAL     ENDIF                                                          PROSEQ   1835
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      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
          1142  0200401142 +             IMO      ROUTINE                                                        PROSEQ   1845
          1143  6150000043                        SB5    OC.FMA                                                  PROSEQ   1846
                          76510                   SX5    B1                                                      PROSEQ   1847
                               20536              LX5    R1.INP                                                  PROSEQ   1848
          1144  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
          1145  0100001205 +                      RJ     SRI         STORE FMA(NRI,1)                            PROSEQ   1854
                                                                                                                 PROSEQ   1855
          1146  5041777775                        SA4    A1-2        R = R1(I)                                   PROSEQ   1856
                          43154                   MX1    -R1.RIL                                                 PROSEQ   1857
                                                  LX4    -R1.RIP                                                 PROSEQ   1858
          1147  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
          1150  7134777773                        SX3    B4-4        RJ = NRI - 4                                PROSEQ   1863
                          7243777773              SX4    X3-4        RK = NRI - 8                                PROSEQ   1864
          1151  20340                             LX3    R1.RJP                                                  PROSEQ   1865
                     12663                        BX6    X6+X3                                                   PROSEQ   1866
                          20420                   LX4    R1.RKP                                                  PROSEQ   1867
                               12664              BX6    X6+X4                                                   PROSEQ   1868
          1152  43700                             MX7    0                                                       PROSEQ   1869
                     76200                        SX2    B0                                                      PROSEQ   1870
                          0100001205 +            RJ     SRI         STORE OR(RIN,NRI-4,NRI-8)                   PROSEQ   1871
          1153  0400001142 +                      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
          1154  0200401154 +             ILC      ROUTINE            ** ENTRY/EXIT **                            CCGA044    50
          1155  5120000000 X                      SA2    O.MOD                                                   CCG0088    14
                          74100                   SX1    A0                                                      CCGA044    52
                               74510              SX5    A1                                                      CCGA044    53
          1156  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/05. 19.57.33.      PAGE    45
        ESR - EXPAND SPECIAL REFERENCES                               ILC 
  
          1157  5160001200 +                      SA6    SAVREG      SAVE MOD OFFSET                             CCG0088    18
                          12715                   BX7    X1+X5                                                   CCGA044    57
                               74270              SX2    A7                                                      CCGA044    58
          1160  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
          1161  76220                             SX2    B2                                                      CCGA044    63
                     76530                        SX5    B3                                                      CCGA044    64
                          15721                   BX7    -X1*X2                                                  CCGA044    65
                               76640              SX6    B4                                                      CCGA044    66
          1162  20722                             LX7    18                                                      CCGA044    67
                     15251                        BX2    -X1*X5                                                  CCGA044    68
                          12727                   BX7    X2+X7                                                   CCGA044    69
                               15661              BX6    -X1*X6                                                  CCGA044    70
          1163  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
          1164  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
          1165  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
          1166  5110001200 +                      SA1    SAVREG                                                  CCGA044    89
                          54411                   SA4    A1+B1                                                   CCGA044    90
                               54541              SA5    A4+B1                                                   CCGA044    91
          1167  5120000000 X                      SA2    O.MOD                                                   CCG0088    19
                          36112                   IX1    X1+X2                                                   CCG0088    20
                               20244              LX2    36                                                      CCG0088    21
          1170  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
          1171  5120000000 X                      SA2    =XS=CON     IH = CON.                                   CCGA044    98
                          6150000103              SB5    OC.LDC                                                  CCGA044    99
          1172  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
          1173  0100001205 +                      RJ     SRI                                                     CCGA044   104
                                                                                                                 CCGA044   105
                                        *         RESTORE THE REST OF THE REGISTERS                              CCGA044   106
                                                                                                                 CCGA044   107
          1174  54251                             SA2    A5+B1                                                   CCGA044   108
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    46
        ESR - EXPAND SPECIAL REFERENCES                               ILC 
  
                     21422                        AX4    18                                                      CCGA044   109
                          10022                   BX0    X2                                                      CCGA044   110
                               21522              AX5    18                                                      CCGA044   111
          1175  53140                             SA1    X4                                                      CCGA044   112
                     63350                        SB3    X5                                                      CCGA044   113
                          21422                   AX4    18                                                      CCGA044   114
                               53040              SA0    X4                                                      CCGA044   115
          1176  21522                             AX5    18                                                      CCGA044   116
                     63250                        SB2    X5                                                      CCGA044   117
                          54421                   SA4    A2+B1                                                   CCGA044   118
          1177  0400001154 +                      EQ     ILC                                                     CCGA044   119
                                                                                                                 CCGA044   120
                                                                                                                 CCGA044   121
          1200                     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
          1205  0200401205 +             SRI      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1880
          1206  27656                             PX6    B5,X6                                                   PROSEQ   1881
                     6144000004                   SB4    B4+4        RI = RI + 4                                 PROSEQ   1882
                               54671              SA6    A7+B1                                                   PROSEQ   1883
          1207  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
          1210  54671                             SA6    A7+B1                                                   PROSEQ   1887
                     43700                        MX7    0                                                       PROSEQ   1888
                          54761                   SA7    A6+B1                                                   PROSEQ   1889
          1211  0400001205 +                      EQ     SRI                                                     PROSEQ   1890
  
  
  
  
                                        **        TRE - TERMINATE REF EXPANSION.                                 PROSEQ   1892
                                                                                                                 PROSEQ   1893
          1212  0200401212 +             TRE      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1894
          1213  64700                             SB7    A0          IMA                                         PROSEQ   1895
                     75477                        SX4    A7-B7                                                   PROSEQ   1896
                          0304001212 +            ZR     X4,TRE      IF NO EXPANSION                             PROSEQ   1897
                                                                                                                 PROSEQ   1898
          1214  5130000000 X                      SA3    O.SEQ                                                   PROSEQ   1899
                          6263000002              SB6    X3+2                                                    PROSEQ   1900
          1215  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
          1216  5130000000 X                      SA3    O.MOD                                                   PROSEQ   1905
                          12145                   BX1    X4+X5                                                   PROSEQ   1906
          1217  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/05. 19.57.33.      PAGE    47
        ESR - EXPAND SPECIAL REFERENCES                               TRE 
  
                                                  LX6    ML.MTIP                                                 PROSEQ   1909
                               43701              MX7    1                                                       PROSEQ   1910
                                                  LX7    1+ML.DELP                                               PROSEQ   1911
          1220  12316                             BX3    X1+X6                                                   PROSEQ   1912
                     5140000000 X                 SA4    L.MLT                                                   PROSEQ   1913
                               12673              BX6    X7+X3                                                   PROSEQ   1914
          1221  5130000000 X                      SA3    O.MLT                                                   PROSEQ   1915
                          36534                   IX5    X3+X4                                                   PROSEQ   1916
                               53650              SA6    X5          MLT=                                        PROSEQ   1917
          1222  73641                             SX6    X4+B1                                                   PROSEQ   1918
                     54640                        SA6    A4          L.MLT = L.MLT + 1                           PROSEQ   1919
                          0400001212 +            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
          1224                                    END                                                            PROSEQ   2631
  
                             56300B CM  STORAGE USED             3600 STATEMENTS     1109 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.066 SECONDS        1095 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/05. 19.57.33.      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           607   PROGRAM*        3/42     31/40     31/43 L
        ESRA          571   PROGRAM*       31/17 L   31/44
        ESRA#         571   PROGRAM*       31/17 E   31/17 L
        ESR0          601   PROGRAM*       31/27 L   32/07
        ESR1          603   PROGRAM*       31/32 L   31/47     31/54
        ESR#          607   PROGRAM*       31/43 E   31/43 L
        FSR           575   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           643   PROGRAM*       32/06     33/10 L   33/29
        GSR1          651   PROGRAM*       33/23 L   34/15
        GSR2          652   PROGRAM*       33/25 L   34/23     34/31
        GSR3          654   PROGRAM*       33/21     33/29 L
        GSR3A         667   PROGRAM*       33/43     33/44     33/47     33/54     34/01     34/07 L
        GSR4          676   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          1022   PROGRAM*       34/28     35/36     36/11     39/28 L
        IAL0         1021   PROGRAM*       39/25 L   39/49     39/52
        IDR          1131   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/05. 19.57.33.      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          1154   PROGRAM*       37/35     38/14     44/50 L   46/11
        IMO          1142   PROGRAM*       36/02     42/20     44/09 L   44/36
        IPR          1121   PROGRAM*       34/30     42/54 L
        IPR0         1120   PROGRAM*       42/52 L   43/16     43/19
        IRA          1033   PROGRAM*       34/29     35/37     40/03 L   40/08     41/15
        IRA0         1042   PROGRAM*       40/11     40/22 L
        IRA1         1056   PROGRAM*       40/34     40/38     40/40     40/56 L   41/21     41/36
        IRA2         1057   PROGRAM*       40/54     41/03 L
        IRA3         1063   PROGRAM*       40/28     41/17 L
        ISC           703   PROGRAM*       33/23     35/29 L   35/39     36/03     37/08
                                           34/21     35/34     35/52     36/57
        ISC0          702   PROGRAM*       35/26 L   38/44
        ISC1          720   PROGRAM*       35/48     35/56 L
        ISC10        1000   PROGRAM*       37/26     37/46     38/23 L
        ISC11        1002   PROGRAM*       37/18     37/20     38/09     38/16     38/27 L
        ISC12        1006   PROGRAM*       38/33     38/40 L
        ISC2          706   PROGRAM*       35/36 L   35/50     35/57
        ISC3          712   PROGRAM*       35/32     35/41 L
        ISC5          724   PROGRAM*       35/42     35/44     36/09 L
        ISC6          727   PROGRAM*       36/10     36/18 L
        ISC7          740   PROGRAM*       36/13     36/46 L
        ISC8          747   PROGRAM*       36/54     36/55     37/10 L
        ISC8A         755   PROGRAM*       37/14     37/32 L
        ISC8B         760   PROGRAM*       37/34     37/38 L
        ISC8C         764   PROGRAM*       37/41     37/48 L
        ISC8D         766   PROGRAM*       37/36     37/55 L
        ISC9          773   PROGRAM*       37/11     38/11 L
        ISC9A         776   PROGRAM*       38/13     38/18 L
        ISI          1010   PROGRAM*       35/51     36/01     38/53 L   39/18
        ISI1         1014   PROGRAM*       39/03     39/07 L
        ISX          1072   PROGRAM*       35/38     41/48 L   42/21     42/23     42/25
        ISX0         1071   PROGRAM*       41/45 L   42/12     42/15
        ISX1         1077   PROGRAM*       41/56     42/06 L
        ISX2         1106   PROGRAM*       42/07     42/23 L
        IT.             0   EXTERNAL*       2/16 D
        IXI          1110   PROGRAM*       37/07     42/24     42/31 L   42/45
        IXI1         1115   PROGRAM*       42/35     42/38     42/40 L
        I.GL       100000   GTX             6/09     33/41
        LEV0         1223   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           576   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/05. 19.57.33.      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           630   PROGRAM*       31/53     32/29 L
        MSRA          623   PROGRAM*       32/18 L   32/30
        MSR0          627   PROGRAM*       32/26 L   32/42
        MSR1          635   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/05. 19.57.33.      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           600   PROGRAM*       31/25 L   33/35 S   41/29     43/09     43/30
        SAVREG       1200   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           577   PROGRAM*       31/24 L   31/36     31/45 S
        SRI          1205   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            1   GTX            12/03 F
        TRE          1212   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/05. 19.57.33.      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           415   PROGRAM*       12/24     23/08 L   23/17
        ABR1          422   PROGRAM*       23/16 L   23/30     23/37     23/43     24/13     25/10
        ABR1A         425   PROGRAM*       23/30 L   23/34
        ABR2          433   PROGRAM*       23/52 L   23/56     23/57     24/05
        ABR3          440   PROGRAM*       23/53     24/10 L
        ABR4          441   PROGRAM*       24/12 L   24/16     24/20     24/46
        ABR5          445   PROGRAM*       24/23 L   24/31
        ABR6          450   PROGRAM*       24/28     24/40 L
        ABR7          452   PROGRAM*       24/04     24/35     24/51 L
        ABR8          457   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           263   PROGRAM*       12/01     15/14 L   15/22
        BDUA          262   PROGRAM*       15/12 L   15/39
        BDU1          266   PROGRAM*       15/19 L   16/44     17/17     17/56     18/21
                                           16/36     17/14     17/52     18/11
        BDU2          301   PROGRAM*       15/34     15/38     15/41     15/44     16/03 L
        BDU3          306   PROGRAM*       16/21 L   16/39
        BDU3A         311   PROGRAM*       16/24     16/30 L
        BDU4          312   PROGRAM*       16/21     16/23     16/25     16/26     16/35 L
        BDU5          315   PROGRAM*       16/06     16/43 L
        BDU5A         322   PROGRAM*       16/50     16/52     17/10 L
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    53
        SYMBOLIC REFERENCE TABLE.                                     AIS 
  
        BDU6          336   PROGRAM*       16/05     17/56 L
        BDU7          342   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           347   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           463   PROGRAM*       24/54     26/13 L   27/55
        ISA1          470   PROGRAM*       26/24 L   26/30
        ISA2          477   PROGRAM*       26/24     26/48 L
        ISA3          505   PROGRAM*       27/06     27/12 L
        ISA4          507   PROGRAM*       26/46     27/20 L
        IT.             0   EXTERNAL*       8/24 D
        IUM           524   PROGRAM*       24/55     28/17 L
        IUMA          522   PROGRAM*       28/11 L   29/26
        IUMB           22   CCGSCR          9/45 L   28/13     28/25 S
        IUM0          523   PROGRAM*       28/13 L   28/33
        IUM1          530   PROGRAM*       28/32 L   28/36     29/19     30/19
        IUM2          536   PROGRAM*       28/56 L   29/03
        IUM3          544   PROGRAM*       28/57     29/23 L
        IUM4          546   PROGRAM*       29/25     29/30 L
        IUM5          551   PROGRAM*       29/33     29/37 L
        IUP           360   PROGRAM*       12/21     20/07 L   20/22
        IUP1          364   PROGRAM*       20/16 L   20/34     20/45
        IUP2          365   PROGRAM*       20/14     20/21 L   20/28
        IXU           373   PROGRAM*       12/15     21/09 L   21/32
        IXU1          400   PROGRAM*       21/21 L   22/03
        IXU2          401   PROGRAM*       21/22     21/25 L
        IXU3          402   PROGRAM*       21/19     21/31 L
        IXU4          404   PROGRAM*       21/41 L   21/53
        IXU5          407   PROGRAM*       21/50     21/53 L
        IXU6          411   PROGRAM*       22/03 L   22/09     22/11
        LBM           223   PROGRAM*       10/26     13/18 L
        LBMA           21   CCGSCR          9/44 L   13/13     13/27 S
        LBM0          221   PROGRAM*       13/13 L   14/25
        LBM1          232   PROGRAM*       13/39 L   14/30     14/33
        LBM1A         237   PROGRAM*       13/47     13/51 L
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/05. 19.57.33.      PAGE    54
        SYMBOLIC REFERENCE TABLE.                                     AIS 
  
        LBM2          241   PROGRAM*       13/51     13/55 L
        LBM3          244   PROGRAM*       14/04     14/07 L
        LBM4          251   PROGRAM*       14/28 L   14/45     14/55
        LBM5          254   PROGRAM*       13/34     13/43     13/49     13/53     14/26     14/32     14/35 L
        LBM6          257   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   12/09 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   12/04     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           565   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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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            2.377 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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.35.      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/05. 19.57.38.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3005              IDENT  MCG
                       3005                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2750 
                                        LITERALS* LOCAL        2750         1 
                                        DEBUG     LOCAL        2751        34 
                                        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     O$TREE    F$RDT     S$OT      ATS$      HO$OPT    SNP=
                                        L$OTI     L$TREE    S$IT      Z$OTI     Z$TXT     N$OT      PRNTMCG 
                                        O$PIT     O$TXT     O$SYM     MVE=      BDT#      HO$ER     SVR=
                                        L$PIT     L$TXT     Z$PIT     Z$TREE    RIO#      CC$PC     RSR=
  
  
  
  
                                                  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
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE     2
                                                                      MCG 
  
                                        *          4) EXPLICIT USE OF SPECIFIC RESOURCES ( REGISTERS ).          MCG        27
                                        *            I.E. THE REUSE/REDEFINITION OF A REGISTER MAY NOT OCCUR     MCG        28
                                        *         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
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE     3
                                                                      MCG 
  
                                        *         TRA(REGNO) = T(EX) + 1   WHEN A REGISTER IS RELEASED.          MCG        84
                                                                                                                 MCG        85
                                                  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/05. 19.57.38.      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/05. 19.57.38.      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
          2751  00000000000000000001     Z.ICL    CON    1           ISSUE CANIDATE LIST                         MCG       185
          2752  00000000000000000002     Z.II     CON    2           ISSUED INSTRUCTION                          MCG       186
          2753  00000000000000000003     Z.RUI    CON    3           REGISTER USEAGE INFO                        MCG       187
          2754  00000000000000000004     Z.TIMES  CON    4           FU AND X-REG AVAIL TIMES                    MCG       188
          2755  00000000000000000005     Z.FINAL  CON    5           FINAL SUMMARY                               MCG       189
          2756  00000000000000000006     Z.HEAD   CON    6           LISTING HEADER ( II AND FINAL OPTIONS ONLY  MCG       190
                                                                                                                 MCG       191
                                        **        CPR - CALL PRINT ROUTINE                                       MCG       192
                                                                                                                 MCG       193
          2757  0100000000 X             CPR0     RJ     =XRSR=                                                  CCG7      125
          2760  0200402760 +             CPR      ROUTINE                                                        MCG       195
          2761  0100000000 X                      RJ     =XSVR=                                                  CCG7      126
          2762  5110002760 +                      SA1    CPR                                                     MCG       197
                          5140000000 X            SA4    O.TXT                                                   MCG       198
          2763  20136                             LX1    30                                                      MCG       199
                     5221777776                   SA2    X1-1                                                    MCG       200
                               10644              BX6    X4                                                      MCG       201
          2764  53620                             SA6    X2          [APL] = [O.TXT]                             MCG       202
                     54160                        SA1    A6                                                      MCG       203
          2765  0100000000 X            +         RJ     =XPRNTMCG                                               MCG       204
          2766  5110000134 C                      SA1    EOQA                                                    MCG       205
                          0321002757 +            PL     X1,CPR0                                                 MCG       206
          2767  14611                             BX6    -X1                                                     MCG       207
                     54610                        SA6    A1                                                      MCG       208
                          0100000000 X            RJ     =XRSR=                                                  CCG7      127
          2770  0100000000 X                      SNAPT  TXT,CPR-ERR                                             MCG       210
          3004  0400002760 +                      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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/05. 19.57.38.      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
          3005                                    END                                                            MCG      4535
  
                             57700B CM  STORAGE USED             8493 STATEMENTS     1478 SYMBOLS      000024 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.537 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/05. 19.57.38.      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
        CPR          2760   PROGRAM*
        CPR0         2757   PROGRAM*
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   116
        SYMBOLIC REFERENCE TABLE. 
  
        D.JPL           1   GTX            99/08
        D.JPP          41   GTX            87/27     99/08
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   117
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/39
        F.CLC          46   MCG            13/20 S
        F.RDT           0   EXTERNAL*       1/39 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/39 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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   118
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/39
        L$PIT           0   EXTERNAL*       1/39
        L$TREE          0   EXTERNAL*       1/39
        L$TXT           0   EXTERNAL*       1/39
        L.CLC          63                  13/12
        L.OTI           0   EXTERNAL*       1/39 D   20/15     25/20     44/10     54/05 S  110/09
        L.PIT           0   EXTERNAL*       1/39 D    8/11     10/23 S   35/53 S
        L.TREE          0   EXTERNAL*       1/39 D    9/50 S   10/07 S
        L.TXT           0   EXTERNAL*       1/39 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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   119
        SYMBOLIC REFERENCE TABLE. 
  
        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/39
        O$PIT           0   EXTERNAL*       1/39
        O$SYM           0   EXTERNAL*       1/39
        O$TREE          0   EXTERNAL*       1/39
        O$TXT           0   EXTERNAL*       1/39
        O.OTI           0   EXTERNAL*       1/39 D  110/16
        O.PIT           0   EXTERNAL*       1/39 D  114/11
        O.SYM           0   EXTERNAL*       1/39 D
        O.TREE          0   EXTERNAL*       1/39 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/39 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
        PRNTMCG         0   EXTERNAL* 
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   120
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
        RSR=            0   EXTERNAL* 
        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
        SNP=            0   EXTERNAL* 
        SO.LKL          2   GTX            34/35
        SO.LKP          6   GTX            12/31     26/43     33/41     34/34
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   121
        SYMBOLIC REFERENCE TABLE. 
  
        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
        STL            14   MCG            14/33 S   20/03     20/11     42/20 S   44/18 S   54/50 S
        SVL             0   CCGSCR
        SVR=            0   EXTERNAL* 
        S$IT            0   EXTERNAL*       1/39
        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
        Z.FINAL      2755   PROGRAM*
        Z.HEAD       2756   PROGRAM*
        Z.ICL        2751   PROGRAM*
        Z.II         2752   PROGRAM*
        Z.RUI        2753   PROGRAM*
        Z.TIMES      2754   PROGRAM*
        .CPU          111   GTX             1/41     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
        .9              1 
  
  
  
  
                                                  SYMBOL QUALIFIER =  JAM 
  
  
        AIP          2743   PROGRAM*       69/32     89/23     89/53     91/36    110/13    113/49    114/10 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   122
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        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
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   123
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        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
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   124
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        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
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   125
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        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
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   126
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        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
        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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/05. 19.57.38.      PAGE   127
        SYMBOLIC REFERENCE TABLE.                                     SII 
  
                                                  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
        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/05. 19.57.41.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1074              IDENT  BDT
                       1074              F$BRDGE  END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1066 
                                        MCG       COMMON          0         3 
                                        CCGSCR    COMMON          0        40 
                                        DEBUG     LOCAL        1066         6 
  
  
                                        ENTRY POINTS. 
  
                                        B=BDT            0+           RIO#           464+           RNI#          1036+ 
                                        BDT#             1+           CRW#           761+           F$BRDGE       1074+ 
  
  
                                        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
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/05. 19.57.41.      PAGE     2
                                                                      BDT 
  
                                        *                (SIOCALL) = 1 IF CALL FROM *RIO* FOR A PARTIAL TREE     BDT        22
                                        *                *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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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
          1066  00000000000000001073 +   DTSA     CON    DTSB,0,L.TREE                                           BDT      1032
          1067  00000000000000000000
          1070  00000000000000000000 X
          1071                     2              BSSZ   2                                                       BDT      1033
          1073                     1     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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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/05. 19.57.41.      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
          1074                           F$BRDGE  END                                                            CCG11     138
  
                             56300B CM  STORAGE USED             3638 STATEMENTS     1074 SYMBOLS      000008 INVENTED SYMBOLS
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/05. 19.57.41.      PAGE    49
        RNI - RENUMBER INSTRUCTIONS                                   RNI 
  
                               PARALLEL CPU ASSEMBLY            1.092 SECONDS         916 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ATS$            0   EXTERNAL*       4/38     29/47     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/05. 19.57.41.      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      1074   PROGRAM*       48/54 E   48/55 L
        F$RDT           0   EXTERNAL*       1/43
        F.RDT           0   EXTERNAL*       1/43 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/43 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/43
        L$TET           0   EXTERNAL*       1/43
        L$TREE          0   EXTERNAL*       1/43
        L$TXT           0   EXTERNAL*       1/43
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/05. 19.57.41.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        L.IIT           0   EXTERNAL*       1/43 D
        L.TET           0   EXTERNAL*       1/43 D
        L.TREE          0   EXTERNAL*       1/43 D   23/32 S   28/07 S   28/36 S   29/30     30/56     42/20 S
        L.TXT           0   EXTERNAL*       1/43 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/11 L    9/46     20/45     25/26     41/49
                                            4/33 S   17/06     24/20     30/55
        N.ST            1   MCG             2/12 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/43
        O$SYM           0   EXTERNAL*       1/43
        O$TET           0   EXTERNAL*       1/43
        O$TREE          0   EXTERNAL*       1/43
        O$TXT           0   EXTERNAL*       1/43
        O.IIT           0   EXTERNAL*       1/43 D   12/09
        O.SYM           0   EXTERNAL*       1/43 D
        O.TET           0   EXTERNAL*       1/43 D   12/08
        O.TREE          0   EXTERNAL*       1/43 D    9/44     14/12     23/29     41/46
                                            5/05     12/10     22/05     27/06     41/51
        O.TXT           0   EXTERNAL*       1/43 D   22/25     29/48     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/05. 19.57.41.      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/13 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/05. 19.57.41.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        S$IT            0   EXTERNAL*       1/43
        TEST            1   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/51 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/47     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
        DTSA         1066   PROGRAM*       29/30 L
        DTSB         1073   PROGRAM*       29/30     29/34 L
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/05. 19.57.41.      PAGE    54
        SYMBOLIC REFERENCE TABLE.                                     BDT 
  
        FIL            12   PROGRAM*        5/05 L   29/55
        FIL1           23   PROGRAM*        5/39 L    6/02
        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/46 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
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/05. 19.57.41.      PAGE    55
        SYMBOLIC REFERENCE TABLE.                                     BDT 
  
        IPL3          166   PROGRAM*       12/25     12/36     12/51     12/55 L
        IRF1           63   PROGRAM*        7/54 L    7/56      8/25      8/29
        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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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            0.930 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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.42.      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/05. 19.57.43.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      375              IDENT  UDT
                        375              F$UDT    END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       372 
                                        BVINFO    COMMON          0         4 
                                        DEBUG     LOCAL         372         3 
  
  
                                        ENTRY POINTS. 
  
                                        B=UDT            0+           CMR#           225+           F$UDT          375+ 
                                        CG$INIT          0+           CG$CPL         261+ 
                                        AUT#           102+           PBB#           325+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BST     O$RXI     O$SYM     M.BBL#    Z$MOD     IMPA#     CC$PC     ATSTOG# 
                                        L$BST     L$RXI     Z$BST     Z$IOL     CC$OPF    CP.AFLL   CC$BLEN   ATSNAT# 
                                        O$IOL     O$TXT     Z$RXI     N$FPS     ADW$      CO.EC     CC$LBO    HO$OPT
                                        L$IOL     L$TXT     F.MEM     SHL#      Z$CFT     MAX.LCM   F$LBT     LCM#G 
                                        O$LBT     O$UDI     SMB#      RSR=      Z$UDI     SYS=      ATS$      HO$LCM
                                        L$LBT     L$UDI     CC$XR     DMPUDI    ISC=      CIO=      Z$TXT     HO$RDR
                                        O$RND     F$RDT     L.PTXT#   SVR=      HO$OBL    F.OPT     CWS#      CG$PTC
                                        L$RND     S$IT      MVE=      HO$SNAP   LM#       CC$FT     THRESH# 
  
  
  
  
                                                  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/05. 19.57.43.      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/05. 19.57.43.      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/05. 19.57.43.      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
             1  7170000000 X                      SX7    =XCG$PTC                                                CCGNC     843
                          5170000000 X            SA7    =XHO$RDR    HO$RDR = LOCF(CG$PTC)                       CCGNC     844
                                         .T       ENDIF                                                          CCG4       88
                                         .LCM     IFNE   .DAL,0                                                  CCG21      74
             2  5120000000 X                      SA2    =XHO$LCM                                                CCG21      75
                          0322000004 +            PL     X2,INIT0    IF NOT LCM=G                                CCG21      76
             3  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
             4                           INIT0    BSS    0                                                       CCG21      80
                                         .LCM     ENDIF                                                          CCG21      81
                                                                                                                 CCG4       89
                                        *         INITIALIZE TABLE MANAGER, ALLOCATE SPACE FOR *TXT*             CCG4       90
                                                                                                                 CCG4       91
             4  5120000000 X                      SA2    =XHO$OPT                                                CCGA025    11
                          0332000010 +            MI     X2,INIT0A   IF OPT = 2                                  CCGA025    12
             5  7160000007                        SX6    7                                                       CCGA025    13
                          5160000000 X            SA6    =XATSNAT#   NUMBER OF OPT1 *ACTIVE* TABLES              CCGA025    14
             6  7160000000                        SX6    0                                                       CCGA025    15
                          5160000000 X            SA6    =XATSTOG#   DONT TOGGLE                                 CCGA025    16
             7  7160001000                        SX6    1000B                                                   CCGA025    17
                          5160000000 X            SA6    =XTHRESH#   TABLE MANAGER SLOP                          CCGA025    18
                                                                                                                 CCGA025    19
            10                           INIT0A   BSS    0                                                       CCGA025    20
                                                  IFNE   HC.2OC,0,2                                              CCG16     291
                                                  SX6    O.UDB                                                   CCG16     292
                                                  SA6    =XLM#       LM = O.UDB                                  CCG16     293
            10  10011                             BX0    X1                                                      CCG4       92
                     0100000000 X                 CALL   CWS#                                                    CCGNC     845
            11  21602                             AX6    2                                                       CCG4       94
                     73160                        ALLOC  TXT,X6      ALLOC( TXT , CWS/4 )                        CCG4       95
            13  7160000004                        SX6    4                                                       CCG4       96
                          54630                   SA6    A3          L.TXT = 4                                   CCG4       97
            14  5110000000 X                      SA1    =XHO$OPT                                                CCGA011   112
                                                                                                                 CCG4       98
                                        *         INITIALIZE FLAGS FOR BLOCK PROCESSING                          CCG8      182
                                                                                                                 CCG8      183
                          10600                   BX6    X0                                                      CCGA025    21
            15  5240000000 X                      SA4    =XF$LBT+X0  GET INITIAL LENGTH OF BLOCK                 CCG31       2
                          73740                   SX7    X4                                                      CCG8      188
            16  5160000000 X                      SA6    =XCC$LBO    CC$LBO = PARAM                              CCGNC     846
                          5170000000 X            SA7    =XCC$BLEN                                               CCGNC     847
            17  21422                             AX4    18                                                      CCG8      191
                     73640                        SX6    X4                                                      CCG8      192
                          5160000000 X            SA6    =XCC$PC                                                 CCGNC     848
                                                                                                                 CCG4      119
            20  0321000070 +                      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/05. 19.57.43.      PAGE     5
        CG$INIT - INITIALIZE *CCG*                                    CG$INIT 
  
                                                                                                                 CCG4      125
                          5110000000 X            SA1    =XCC$FT                                                 CCG11     140
            21  0311000053 +                      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
            22  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
            24  7160150515                        MEMORY LCM,INITB,R                                             CCGA012    24
            30  5110000101 +                      SA1    INITB                                                   CCGA012    25
                          5120000000 X            SA2    =XMAX.LCM                                               CCGA012    26
            31  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
            33  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
            34  54620                             SA6    A2          MAX.LCM = MIN(MAX OBT.,200000B)             CCGA012    30
                     7160150515                   MEMORY LCM,INITA,R                                             CCGA012    31
            40  5110000100 +                      SA1    INITA                                                   CCGA012    32
                          21136                   AX1    30          CURRENT LCM                                 CCGA012    33
            41  5120000000 X                      SA2    MAX.LCM                                                 CCGA012    34
                          7160030000              SX6    30000B                                                  CCGA012    35
            42  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
            44  0323000052 +                      PL     X3,INIT05   IF WE ALREADY HAVE 30K ECS                  CCGA012    41
                          5170000100 +            SA7    INITA                                                   CCGA012    42
            45  7160150515                        MEMORY LCM,INITA,R,,NOABT      REQUEST 30K                     CCGA012    43
            51  5110000100 +                      SA1    INITA                                                   CCGA012    44
                          21136                   AX1    30                                                      CCGA012    45
                                                                                                                 CCGA012    46
            52  10711                    INIT05   BX7    X1                                                      CCGA012    47
                     5170000000 X                 SA7    =XCP.AFLL                                               CCGA012    48
                                         #ECS     ENDIF                                                          CCGA012    49
                                                                                                                 CCG11     145
            53  0100000000 X             INIT1    CALL   IMPA#       INITIALIZE MASS I/O PROCESSING              CCG11     146
            54  5150000000 X                      SA5    =XLM#                                                   CCGNC     852
                          7110000101 X            SX1    =XHO$OBL+101B     S = 101B + HO$OBL                     CCGNC     853
            55  5100000000 X                      ALLOC  TXT,X1      ALLOC( TXT , S )                            CCG4      128
            56  36615                             IX6    X1+X5                                                   CCG4      129
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE     6
        CG$INIT - INITIALIZE *CCG*                                    CG$INIT 
  
                     54650                        SA6    A5          LM = LM + S                                 CCG4      130
                          7170000004              SX7    4                                                       CCG4      131
            57  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
            61  76111                             ALLOC UDI,2        ALLOC( UDI , 2 )                            CCG4      135
                                                                                                                 CCG4      136
            63  7110000004                        ALLOC  BST,4       ALLOC( BST , 4 )                            CCG4      137
            65  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
            66  5100000000 X                      ADDWRD CFT,X1      ADDWRD CFT , (1,2) )                        CCG4      143
            67  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
            70  5120000000 X             INIT2    SA2    =XO.TXT                                                 CCG4      162
                          5140000001 X            SBOS                                                           CCG4      163
            73  7110000004                        ALLOC  MOD,4       ALLOC( MOD , 4 )                            CCG4      164
            75  5140000001 X                      SBOS                                                           CCG4      165
                          0400000000 +            EQ     CG$INIT                                                 CCGNC     855
                                                                                                                 CCGA012    50
           100                     1     INITA    BSSZ   1                                                       CCGA012    51
           101  77777777760000000000     INITB    VFD    30/-1,30/0                                              CCGA012    52
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      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
           102                           AUT      ENTRY. **,#                                                    CCGNC     856
           103  5150000000 X                      SA5    L.UDI                                                   UDT        62
                          7275777775              SX7    X5-2                                                    UDT        63
           104  0317000106 +                      NZ     X7,AUT0     IF L.UDI " 2  */ TABLE NON-EMPTY            UDT        64
                          76110                   ADDWRD UDI,1       ADDWRD( UDI , 1 )  */ DUMMY ENTRY           UDT        65
           106                           AUT0     BSS    0                                                       UDT        66
                                         .T       IFNE   TEST,0                                                  FCCT005     5
           106  5110000000 X                      SA1    =XHO$SNAP                                               CCGNC     857
                          20135                   LX1    1R2                                                     FCCT005     7
           107  0321000114 +                      PL     X1,AUTT     IF SNAP=2 NOT SELECTED                      FCCT005     8
                          0100000000 X            DCALL  DMPUDI,([O.UDI],L.UDI)    PRINT SYMBOL DICTIONARY       UDT        68
           114                           AUTT     BSS    0                                                       FCCT005     9
                                         .T       ENDIF                                                          FCCT005    10
           114  5150000000 X                      SA5    L.UDI                                                   UDT        70
                          10655                   BX6    X5                                                      UDT        71
                               20501              LX5    1                                                       UDT        72
           115  5160000001 C                      SA6    N.VAR       N.VAR = L.UDI                               UDT        73
                          7215000003              ALLOC  UDI,X5+3    ALLOC( UDI , 2*N.VAR + 3 )                  UDT        74
           117  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
           120  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
           121  5252000002                        SA5    X2+2        UI = O.UDI + 2                              UDT        82
                          20066                   LX0    UA.CRP                                                  UDT        83
                               66411              SB4    B1+B1                                                   UDT        84
           122  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
           123  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
           124  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
           125  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/05. 19.57.43.      PAGE     8
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                          0520000123 +            NZ     B2,AUT1     IF N " 0                                    UDT       102
                                                                                                                 UDT       103
           126  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
           127  5120000000 X                      SA2    O.UDI                                                   UDT       111
                          5130000000 X            SA3    O.SYM                                                   CCGNC     859
           130  76010                             SX0    B1                                                      UDT       113
                     5110000144 +                 SA1    AUTA                                                    UDT       114
                               20022              LX0    I.CRP                                                   UDT       115
           131  54500                             SA5    A0          TI = TL                                     UDT       116
                     63220                        SB2    X2                                                      UDT       117
                          6243000001              SB4    X3+1                                                    CCG1      380
           132  6160000035                        SB6    I.IHP-1                                                 UDT       119
                          76310                   SX3    B1                                                      FCC0807    17
                               20322              LX3    WB.LOCFP                                                CCG1      381
                                                                                                                 UDT       120
           133  0305000145 +             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
           134  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
           135  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
           136  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
           137  53762                             SA7    B2+X6       UDI(I) = UDIT(COM,C,0,0,0);  UL = UDI(I)    UDT       133
                     0302000133 +                 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
           140  12424                             BX4    X2+X4                                                   UDT       139
                     20624                        LX6    UD.BMIP                                                 UDT       140
                          36646                   IX6    X4+X6                                                   UDT       141
                                                                                                                 UDT       142
           141  23465                    AUT3     AX4    B6,X5                                                   UDT       143
                     63744                        SB7    X4+B4                                                   CCG20      33
                          0573000133 +            NE     B7,B3,AUT2  IF IH[TI] " IHB                             UDT       145
           142  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/05. 19.57.43.      PAGE     9
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                                                  LX2    -UD.ECLP                                                UDT       151
           143  10766                             BX7    X6                                                      UDT       152
                     53722                        SA7    B2+X2       UDI(J) = UDIT(COM,0,I,0);  UL = UDI(J)      UDT       153
                          0400000141 +            EQ     AUT3                                                    UDT       154
                                                                                                                 UDT       155
           144                           AUTA     BFMW   WB,(FP,COM)                                             CCG1      390
  
  
  
                                        *         FORM "SPOIL" BIT VECTOR FOR COMMON VARIABLES                   UDT       158
                                                                                                                 UDT       159
           145  5150000001 C             AUT4     SA5    N.VAR                                                   UDT       160
                          7120000074              SX2    60                                                      UDT       161
           146  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
           151  7267777776                        SX6    X7-1                                                    UDT       166
                          5160000002 C            SA6    BVL         BVL = L - 1                                 UDT       167
           152  20702                             LX7    2                                                       UDT       168
                     36127                        IX1    X2+X7                                                   UDT       169
                          5100000000 X            ALLOC  BVT,X1      ALLOC( BVT , 6*L )                          UDT       170
                                                                                                                 UDT       171
           154  5140000000 X                      SA4    O.UDI                                                   UDT       172
                          6225777775              SB2    X5-2        N = N.VAR - 2                               UDT       173
           155  67401                             SB4    -B1                                                     UDT       174
                     66600                        SB6    B0          BITN = 0                                    UDT       175
                          6170000074              SB7    60                                                      UDT       176
           156  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
           157  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
           160  55671                             SA6    A7-B1       UDI(2) = 0                                  UDT       184
                     7100000001                   SX0    1                                                       UDT       185
                               54571              SA5    A7+B1       UI = UDI(4)                                 UDT       186
           161  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
           162  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
           163  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
           164  66661                             SB6    B6+B1       BITN = BITN + 1                             UDT       199
                     0420000166 +                 ZR     B2,AUT6     IF N = 0                                    UDT       200
           165  0767000162 +                      LT     B6,B7,AUT5  IF BITN < 60                                UDT       201
                          6130000052              SB3    UD.COMP                                                 UDT       202
                                                                                                                 UDT       203
           166  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/05. 19.57.43.      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
           167  43600                             MX6    0           SV = 0                                      UDT       208
                     73771                        SX7    X7+B1       WI = WI + 1                                 UDT       209
                          0520000162 +            NZ     B2,AUT5     IF N " 0                                    UDT       210
                                                                                                                 UDT       211
           170  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
           171  5150000002 C                      SA5    BVL                                                     UDT       219
                          5110000206 +            SA1    AUTB                                                    UDT       220
           172  63651                             SB6    X5+B1       INDX = BVL + 1                              UDT       221
                     53051                        SA0    X5+B1       L = BVL + 1                                 UDT       222
                          0100000210 +            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
           173  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
           174  5262000002                        SA6    X2+2        BVI[BIT(2)] = 2*L                           UDT       235
                          43700                   MX7    0                                                       UDT       236
                               64707              SB7    B7+A0                                                   UDT       237
           175  56756                   +         SA7    B5+B6       FOR I = 0 TO BVL; DEF(0) = 0                UDT       238
                     66661                        SB6    B6+B1                                                   UDT       239
                          0767000175 +            LT     B6,B7,*                                                 UDT       240
           176  5110000207 +                      SA1    AUTC                                                    CCG1      392
                          0100000210 +            RJ     FSV         FORM EXIT BLOCK *USE* VECTOR                UDT       248
                                                                                                                 UDT       249
                                        *         SET LX = USE AND UBD = USE                                     UDT       250
                                                                                                                 UDT       251
           177  64200                             SB2    A0                                                      UDT       252
                     67662                        SB6    B6-B2       I = 4*L;  UL = 5*L                          UDT       253
           200  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
           201  54772                             SA7    A7+B2       LXA = UFA + L       [LXA] = VW              CCGA026     7
                     0767000200 +                 LT     B6,B7,AUT10 IF I < UL                                   UDT       259
                                                                                                                 UDT       260
           202  5120000000 X                      SA2    =XN$FPS                                                 CCGNC     860
                          0302000102 +            ZR     X2,AUT      IF N$FPS = 0   */ NO F.P. S                 CCGNC     861
           203  5110000207 +                      SA1    AUTC                                                    UDT       263
                          76710                   SX7    B1                                                      UDT       265
                               66600              SB6    B0          INDX = 0                                    UDT       266
           204  5170000003 C                      SA7    RCV         RCV = 1                                     UDT       267
                          0100000210 +            RJ     FSV         INCLUDE F.P.S IN COMMON VAR SPOIL VECTOR    UDT       268
                                                                                                                 UDT       269
           205  0400000102 +                      EQ     AUT                                                     UDT       270
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE    11
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                                                                                                                 UDT       271
           206                           AUTB     BFMW   UD,(CR,CM)                                              UDT       272
           207                           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
           210  0200400210 +             FSV      ROUTINE                                                        UDT       285
           211  5120000001 C                      SA2    N.VAR                                                   UDT       286
                          5130000000 X            SA3    O.BVT                                                   UDT       287
           212  5140000000 X                      SA4    O.UDI                                                   UDT       288
                          6242777775              SB4    X2-2        N = N.VAR - 2                               UDT       289
           213  63530                             SB5    X3                                                      UDT       290
                     64706                        SB7    B6+A0       UL = INDX + L                               UDT       291
                          5254000004              SA5    X4+4        UI = [O.UDI] + 4                            UDT       292
           214  66200                             SB2    B0          BITN = 0                                    UDT       293
                     6130000074                   SB3    60                                                      UDT       294
                               76010              SX0    B1                                                      UDT       295
           215  7160000000                        SX6    0           VW = 0                                      CCG1      395
                                                                                                                 UDT       296
           216  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
           217  0307000220 +                      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
           220  6122000001               FSV2     SB2    B2+1        BITN = BITN + 1                             UDT       303
                          0440000222 +            ZR     B4,FSV3     IF N = 0                                    UDT       304
           221  0723000216 +                      LT     B2,B3,FSV1  IF BITN < 60                                UDT       305
                          6120000000              SB2    0           BITN = 0                                    UDT       306
           222  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
           223  0767000216 +                      LT     B6,B7,FSV1  IF INDX < UL                                UDT       310
                                                                                                                 UDT       311
                          0400000210 +            EQ     FSV                                                     UDT       312
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      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
           224  7166000000               CMR0     SX6    B6+         L.UDI  = UI                                 UDT       320
                          5160000000 X            SA6    L.UDI                                                   UDT       321
                                                                                                                 UDT       322
           225                           CMR      ENTRY. **,#                                                    CCGNC     862
           226  5110000000 X                      SA1    L.TXT                                                   UDT       324
                          21102                   AX1    2                                                       UDT       325
           227  5100000000 X                      ALLOC  UDI,X1      ALLOC( UDI , L.TXT/4 );  UI = OLD( L.UDI )  UDT       326
           230  5150000000 X                      SA5    O.TXT                                                   UDT       327
                          63720                   SB7    X2          UDI = O.UDI                                 UDT       328
                               43072              MX0    -D.LDSTL                                                UDT       329
           231  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
           232  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
           233  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
           234  0430000224 +                      ZR     B3,CMR0     IF OC[R1] = 0 */ END OF BLOCK               UDT       342
                          0306000233 +            ZR     X6,CMR1     IF LDST[DI] = 0  */ NOT A MEM REF           UDT       343
                                                                                                                 UDT       344
           235  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
           236  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
           237  0316000233 +                      NZ     X6,CMR1     IF I[IH] " 0  */ REF TO GL/AP LIST          CCG1      399
                                                                                                                 CCG28      45
                          0530000255 +            NZ     B3,CMR6     IF C0 " 0     */ INDEXED REF                CCG28      46
           240  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
           241  20247                             LX2    59-WB.LDOP                                              CCG1      404
                     0332000253 +                 MI     X2,CMR5     IF LDO[WORDB] */ VAR IS LOAD ONLY           FCC1088    34
                               20204              LX2    WB.LDOP-WB.FPP                                          CCG23     143
           242  0322000244 +                      PL     X2,CMR2     IF ^FP[DI]                                  CCG23     144
                          54221                   SA2    A2+B1       WORDC = WORDB + 1                           CCG23     145
                               76310              SX3    B1                                                      CCG23     146
           243  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/05. 19.57.43.      PAGE    13
        CMR - CHAIN MEMORY REFERENCES TO *UDI*                        CMR 
  
                                                                                                                 UDT       362
           244  5224000000 X             CMR2     SA2    O.UDB+X4    CI = UDB(HI)                                UDT       363
                          0302000251 +            ZR     X2,CMR4     IF CI = 0     */ BASE TABLE ENTRY IS EMPTY  UDT       364
                                                                                                                 UDT       365
                                        *         SEARCH HASH CHAIN                                              UDT       366
                                                                                                                 UDT       367
           245  56770                             SA7    B7          [UDI] = IHF   */ SEARCH TERMINATOR          UDT       368
                     63320                        SB3    X2          C0 = CI       */ INDEX TO LAST ON CHAIN     UDT       369
                                                                                                                 UDT       370
           246  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
           247  73230                             SX2    X3          CI = HL[UDW]                                UDT       375
                     15461                        BX4    -X1*X6                                                  UDT       376
                          0314000246 +            NZ     X4,CMR3     IF CAIH[UDW] " IHF                          UDT       377
                                                                                                                 UDT       378
           250  0550000253 +                      NZ     B5,CMR5     IF CL " 0     */ ENTRY IN TABLE             UDT       379
                                                                                                                 UDT       380
                                        *         ADD  *CAIH* TO *UDI*                                           UDT       381
                                                                                                                 UDT       382
           251  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
           252  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
           253  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
           254  0400000233 +                      EQ     CMR1                                                    UDT       398
                                                                                                                 UDT       399
                                        *         INDEXED MEMORY REF                                             UDT       400
                                                                                                                 UDT       401
           255  66510                    CMR6     SB5    B1          CL = 1                                      UDT       402
                     0435000253 +                 EQ     B3,B5,CMR5  IF RF[R2] = 1                               UDT       403
           256  5130000260 +                      SA3    CMRA                                                    UDT       404
                          66300                   SB3    B0          C0 = 0                                      UDT       405
                               12737              BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                  UDT       406
           257  0400000244 +                      EQ     CMR2                                                    UDT       407
                                                                                                                 UDT       408
           260                           CMRA     BFMW   UA,(CR,CA)                                              UDT       409
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      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
           261                           CG$CPL   ENTRY.                                                         CCGNC     865
           262  20522                             LX5    18                                                      UDT       423
                     27425                        PX4    B2,X5                                                   UDT       424
                          76122                   SX1    B2+B2                                                   UDT       425
                               12546              BX5    X4+X6                                                   UDT       426
           263  5100000000 X                      ALLOC  IOL,X1      ALLOC( IOL , 2*LEN )                        UDT       427
           264  76060                             SX0    B6                                                      UDT       428
                     5100000000 X                 ALLOC  UDI,X1      ALLOC( UDI , 2*LEN );  UI = OLD(L.UDI)      UDT       429
           266  63420                             SB4    X2          UDI = O.UDI                                 UDT       430
                     26725                        UX7    B2,X5       N = LEN                                     UDT       431
                          5120000000 X            SA2    O.IOL                                                   UDT       432
           267  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
           270  36647                             IX6    X4+X7                                                   UDT       437
                     43030                        MX0    -IH.CAIHL                                               UDT       438
                          5130000000 X            SA3    O.SYM                                                   FCC1088    35
           271  5256000000                        SA5    X6+         TI = O.TBL + INDEX                          FCC1088    36
                          6273000001              SB7    X3+1                      (B7) = SYM + 1                CCG1      408
                                                                                                                 UDT       440
           272  15750                    CPL1     BX7    -X0*X5      IHF = CAIH[TI]                              UDT       441
                     20505                        LX5    59-AP.CRP                                               UDT       442
                          0325000275 +            PL     X5,CPL2     IF ^CR[TI]                                  UDT       443
           273  5130000260 +                      SA3    CMRA                                                    UDT       444
                          20567                   LX5    1+AP.CRP                                                UDT       445
                               12737              BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                  UDT       446
           274  0400000276 +                      EQ     CPL3                                                    UDT       447
                                                                                                                 UDT       448
           275  20571                    CPL2     LX5    AP.CRP-AP.P1P                                           UDT       449
                     0335000305 +                 MI     X5,CPL4     IF P1[TI]     */ DOUBLE / COMPLEX           UDT       450
                               20572              LX5    1+AP.P1P                                                UDT       451
                                                                                                                 UDT       452
           276  0100000312 +             CPL3     RJ     SUI                                                     UDT       453
           277  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
           300  54600                             SA6    A0          [SI] = (IO,USE)[TI] ! SUI( IHF )            FCC0789    28
                     54001                        SA0    A0+B1       SI = SI + 1                                 UDT       459
                          0520000272 +            NZ     B2,CPL1     IF N " 0                                    UDT       460
                                                                                                                 UDT       461
                                        *         SET EXIT CONDITIONS                                            UDT       462
                                                                                                                 UDT       463
           301  5120000000 X                      SA2    O.IOL                                                   UDT       464
                          63560                   SB5    X6                                                      UDT       465
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE    15
        CG$CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                CG$CPL
  
                               74300              SX3    A0                                                      UDT       466
           302  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
           303  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
           304  0400000261 +                      EQ     CG$CPL                                                  CCGNC     866
                                                                                                                 UDT       474
                                        *         DOUBLE/COMPLEX ENTRY                                           UDT       475
                                                                                                                 UDT       476
           305  20572                    CPL4     LX5    1+AP.P1P                                                UDT       477
                     0100000312 +                 RJ     SUI                                                     UDT       478
           306  11225                             BX2    X2*X5                                                   UDT       479
                     76410                        SX4    B1                                                      UDT       480
                          12626                   BX6    X2+X6                                                   UDT       481
                               20422              LX4    IH.CAP                                                  UDT       482
           307  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
           310  0400000276 +                      EQ     CPL3                                                    UDT       486
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      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
           311  76655                    SUI0     SX6    B5+B5       U0 = 2*CL                                   UDT       502
                     43202                        MX2    -AP.USEP                                                FCC0789    31
                                                                                                                 UDT       504
           312  0200400312 +             SUI      ROUTINE                                                        UDT       505
           313  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
           314  20247                             LX2    59-WB.LDOP                                              CCG1      413
                     0332000311 +                 MI     X2,SUI0     IF LDO[WORDB] */ VAR IS LD ONLY             FCC1088    44
                               43466              MX4    -6                                                      UDT       506
           315  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
           316  76400                             SX4    B0          C0 = 0                                      FCC1088    45
                     0302000322 +                 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
           317  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
           320  73230                             SX2    X3          CI = HL[UDW]                                UDT       521
                     15460                        BX4    -X0*X6                                                  UDT       522
                          0314000317 +            NZ     X4,SUI1     IF CAIH[UDW] " IHF                          UDT       523
                                                                                                                 UDT       524
           321  0550000311 +                      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
           322  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
           323  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
           324  0400000312 +                      EQ     SUI                                                     UDT       538
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      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
           325                           PBB      ENTRY. **,#                                                    CCGNC     867
           326  0100000225 +                      CALL   CMR         CHAIN MEMORY REFS TO *UDI*                  UDT       553
                                                                                                                 UDT       554
                                        *         SET INFO IN R1, R2 WORDS OF *BOS*                              UDT       555
                                                                                                                 UDT       556
           327  5130000000 X                      SA3    O.TXT                                                   UDT       557
                          5120000000 X            SA2    L.TXT                                                   UDT       558
           330  5110000000 X                      SA1    L.IOL                                                   UDT       559
                          53530                   SA5    X3          R1 = [O.TXT]                                UDT       560
                               43052              MX0    -IH.IHL                                                 UDT       561
           331  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
           332  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
           333  5130000000 X                      SA3    =XM.BBL#                                                CCGNC     868
                          37037                   IX0    X3-X7                                                   UDT       572
           334  0320000335 +                      PL     X0,PBB0     M.BBL = MAX( M.BBL , L.TXT + L.IOL )        UDT       573
                          5073000000              SA7    A3+                                                     UDT       574
                                                                                                                 UDT       575
           335  0301000342 +             PBB0     ZR     X1,PBB1     IF L.IOL = 0  */ NO PARAMETER LISTS         UDT       576
                          5100000000 X            ALLOC  TXT,X1                                                  UDT       577
           337  73326                             SX3    X2+B6                                                   UDT       578
                     5120000000 X                 SA2    O.IOL                                                   UDT       579
           340  0100000000 X                      MOVE   X1,X2,X3    MOVE( L.IOL , O.IOL , O.TXT + OLD(L.TXT) )  UDT       580
           341  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
           342  76110                    PBB1     ALLOC  BIT,1       ALLOC( BIT , 1 )                            UDT       587
           344  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
           345  20336                             LX3    -R1.INP                                                 UDT       591
                     73630                        SX6    X3                                                      UDT       592
                          20622                   LX6    BI.FLNP     FLN[BI] = IN[R1]                            UDT       593
           346  5214000004                        SA1    X4+4        R1 = R1 + 4   */ LOOKAT FIRST INSTRUCTION   UDT       594
                          26721                   UX7    B2,X1                                                   UDT       595
           347  6132777771                        SB3    B2-OC.LAB                                               UDT       596
                          0530000351 +            NZ     B3,PBB2     IF OC[R1] " OC.LAB                          UDT       597
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE    18
        PBB - PROCESS BASIC BLOCK FOR OPT = 2                         PBB 
  
           350  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
           351  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
           352  26725                             UX7    B2,X5                                                   UDT       606
                     7102777703                   SX0    B2-OC.UJP                                               UDT       607
           353  0300000355 +                      ZR     X0,PBB2A    IF OC[RI] = OC.UJP                          FCC1755X    5
                          7102777706              SX0    B2-OC.JIN                                               FCC1755X    6
           354  0310000360 +                      NZ     X0,PBB3      IF OC[R1L] " OC.JIN                        FCC1755X    7
           355  76010                    PBB2A    SX0    B1                                                      FCC1755X    8
                     20070                        LX0    BI.FJP                                                  UDT       610
                          12606                   BX6    X0+X6       FJ[BI] = 1    */ INDICATE FINAL *UJP*       UDT       611
           356  7272777763                        SX7    X2-12                                                   UDT       612
                          0317000360 +            NZ     X7,PBB3     IF LTXT " 12  */ NOT 2 INSTRUCTION BLOCK    UDT       613
           357  0530000360 +                      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
           360  5150000000 X             PBB3     SA5    L.TXT                                                   UDT       618
                          5130000000 X            SA3    =XL.PTXT#                                               CCGNC     869
           361  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
           362  5130000000 X                      SA3    =XCC$XR                                                 CCGNC     870
                          0337000364 +            MI     X7,PBB4     IF L.TXT < 2000B                            UDT       627
           363  20371                             LX3    1+BI.FJP                                                UDT       628
                     12636                        BX6    X3+X6       FJ[BI] = XR                                 UDT       629
                                                                                                                 UDT       630
           364  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
           365  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
           366  5274777776                        SA7    X4-1        [O.TXT-1] = BHW(0,OLD(L.BIT),0,L)           UDT       640
                          6120000000              SB2    0           FLCM = 0                                    UDT       641
           367  0100000000 X                      CALL   SMB#        SMB( O.TXT , L. TXT )                       CCGNC     871
           370  5100000000 X                      ADDWRD BIT,X1      ADDWRD( BIT , RIW )                         UDT       643
           371  0400000325 +                      EQ     PBB                                                     UDT       644
                                                                                                                 UDT       645
                                                  ENTRY  F$UDT                                                   CCGNC     872
                                                                                                                 CCGNC     873
           375                           F$UDT    END                                                            CCGNC     874
  
                             55400B CM  STORAGE USED             2827 STATEMENTS     1067 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.896 SECONDS         352 REFERENCES
  
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      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           102   PROGRAM*        7/13 L   10/50     10/57
        AUTA          144   PROGRAM*        8/15      9/06 L
        AUTB          206   PROGRAM*       10/14     11/02 L
        AUTC          207   PROGRAM*       10/35     10/51     11/03 L
        AUTT          114   PROGRAM*        7/22      7/24 L
        AUT0          106   PROGRAM*        7/16      7/18 L
        AUT1          123   PROGRAM*        7/47 L    8/01
        AUT10         200   PROGRAM*       10/42 L   10/47
        AUT2          133   PROGRAM*        8/24 L    8/41      8/52
        AUT3          141   PROGRAM*        8/50 L    9/04
        AUT4          145   PROGRAM*        8/24      9/12 L
        AUT5          162   PROGRAM*        9/43 L    9/53     10/05
        AUT6          166   PROGRAM*        9/52      9/56 L
        AUT#          102   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        261   PROGRAM*       14/12 E   14/12 L   15/08
        CG$INIT         0   PROGRAM*        4/06 E    4/06 L    6/36
        CG$PTC          0   EXTERNAL*       4/08
        CIO=            0   EXTERNAL*       5/06
        CMR           225   PROGRAM*       12/10 L   17/14
        CMRA          260   PROGRAM*       13/43     13/48 L   14/36
        CMR0          224   PROGRAM*       12/07 L   12/31
        CMR1          233   PROGRAM*       12/27 L   12/32     12/43     13/37
        CMR2          244   PROGRAM*       12/53     13/02 L   13/46
        CMR3          246   PROGRAM*       13/10 L   13/16
        CMR4          251   PROGRAM*       13/03     13/22 L
        CMR5          253   PROGRAM*       12/51     13/18     13/33 L   13/42
        CMR6          255   PROGRAM*       12/45     13/41 L
        CMR#          225   PROGRAM*       12/10 E   12/10 L
        CO.EC           0   EXTERNAL*       5/28
        CPL1          272   PROGRAM*       14/33 L   14/52
        CPL2          275   PROGRAM*       14/35     14/41 L
        CPL3          276   PROGRAM*       14/39     14/45 L   15/21
        CPL4          305   PROGRAM*       14/42     15/12 L
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        CP.AFLL         0   EXTERNAL*       5/50 S
        CT.ECS          1   GTX             5/10 F
        CWS#            0   EXTERNAL*       4/36
        DMPUDI          0   EXTERNAL*       7/23
        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           210   PROGRAM*       10/17     10/36     10/55     11/16 L   11/44
        FSV1          216   PROGRAM*       11/29 L   11/37     11/42
        FSV2          220   PROGRAM*       11/32     11/35 L
        FSV3          222   PROGRAM*       11/36     11/39 L
        F$LBT           0   EXTERNAL*       4/46
        F$RDT           0   EXTERNAL* 
        F$UDT         375   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
        HO$RDR          0   EXTERNAL*       4/09 S
        HO$SNAP         0   EXTERNAL*       7/20
        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         100   PROGRAM*        5/33      5/34      5/44 S    5/45      5/46      6/38 L
        INITB         101   PROGRAM*        5/21      5/22      6/39 L
        INIT0           4   PROGRAM*        4/13      4/17 L
        INIT0A         10   PROGRAM*        4/23      4/31 L
        INIT05         52   PROGRAM*        5/43      5/49 L
        INIT1          53   PROGRAM*        5/03      5/53 L
        INIT2          70   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* 
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        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* 
        L.TXT           0   EXTERNAL*      12/11     17/19     18/23
        L.UDI           0   EXTERNAL*       7/14      7/23      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*       7/23      8/12      9/24     11/19
        PBB           325   PROGRAM*       17/13 L   18/49
        PBB0          335   PROGRAM*       17/34     17/37 L
        PBB1          342   PROGRAM*       17/37     17/47 L
        PBB2          351   PROGRAM*       17/57     18/06 L
        PBB2A         355   PROGRAM*       18/11     18/14 L
        PBB3          360   PROGRAM*       18/13     18/18     18/19     18/23 L
        PBB4          364   PROGRAM*       18/32     18/36 L
        PBB#          325   PROGRAM*       17/13 E   17/13 L
        RCV             3   BVINFO         10/08 S   10/54 S
        RSR=            0   EXTERNAL*       7/23
        R1.INP         36   GTX            13/34     17/51
        SHL#            0   EXTERNAL*       8/04
        SMB#            0   EXTERNAL*      18/47
        SUI           312   PROGRAM*       14/45     15/13     16/19 L   16/57
        SUI0          311   PROGRAM*       16/16 L   16/25     16/44
        SUI1          317   PROGRAM*       16/36 L   16/42
        SUI2          322   PROGRAM*       16/31     16/50 L
        SVR=            0   EXTERNAL*       7/23
        SYS=            0   EXTERNAL*       5/21      5/33      5/45
        S$IT            0   EXTERNAL* 
        TEST            1   GTX             4/07 F    7/19 F
        THRESH#         0   EXTERNAL*       4/29 S
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/05. 19.57.43.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/05. 19.57.45.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      242              IDENT  FTN5TXT
                        242                       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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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
                                   1     TEST     =      1           ASSEMBLE COMPILER IN TEST MODE              OPTIONS   378
                                                                                                                 OPTIONS   381
                                  -1     SC2ZERO  SET    .OS-2                                                   FC5A158A   58
                                   1     .SPY     =      SC2ZERO/SC2ZERO*TEST                                    FC5A158A   59
                                        *                                                                        OPTIONS   383
                                        ***                                                                      OPTIONS   384
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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
      L      2                     1     EL=D     BSS    1           DEBUG                                       FTN5TXT    80
      L      3                     1     EL=T     BSS    1           TRIVIAL                                     FTN5TXT    81
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE    15
        ASSEMBLY CONSTANTS.                                           CONSTS
  
      L      4                     1     EL=W     BSS    1           WARNING                                     FTN5TXT    82
      L      5                     1     EL=F     BSS    1           FATAL                                       FTN5TXT    83
      L      6                     1     EL=C     BSS    1           CATASTROPHIC                                FTN5TXT    84
             5                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      PAGE    26
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.
  
             5                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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 - 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- 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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE    33
        DEBUG MACROS.                                                 DUMPT 
  
                                         -        VFD    30/APL                                                  FTN5TXT   169
                                        *                                                                        FTN5TXT   170
                                         #NUSE    IFC    EQ,/NUSE//                                              FTN5TXT   171
                                                  USE    DEBUG                                                   FTN5TXT   172
                                        *                                                                        FTN5TXT   173
                                         #NUSE    ELSE                                                           FTN5TXT   174
                                                  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 - 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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE    34
        DEBUG MACROS.                                                 STRING
  
                                                                                                                 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
                                        *                                                                        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE    35
        DEBUG MACROS.                                                 PRINT 
  
                                         .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
                                         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/05. 19.57.45.      PAGE    36
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         COMAIDP 
  
             5                           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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      PAGE    45
        COMACPU - GENERAL CPU MACROS. 
  
             5                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      PAGE    50
        COMAMGM - MORE (LESS) GENERAL MACROS. 
  
             5                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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
            13                                    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
                                  13 +   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/05. 19.57.45.      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
            54                                    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/05. 19.57.45.      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/05. 19.57.45.      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
           142                                    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/05. 19.57.45.      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/05. 19.57.45.      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
                                 142 +   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/05. 19.57.45.      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
                                 163 +   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
           206                                    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/05. 19.57.45.      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
           213                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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
           223                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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
           226                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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
           236                                    LOC    *O                                                      FC5A156     7
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      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
           241                                    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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      PAGE   123
        TABLE AND STRUCTURE DECLARATIONS. 
  
           242                                    END                                                            FTN5TXT  2364
  
                             65600B CM  STORAGE USED            18071 STATEMENTS     1411 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.384 SECONDS        1492 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/05. 19.57.45.      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/05. 19.57.45.      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/05. 19.57.45.      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            6                  15/03 L
        EL=D            2                  14/56 L
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   127
        SYMBOLIC REFERENCE TABLE. 
  
        EL=F            5                  15/02 L
        EL=T            3                  14/57 L
        EL=W            4                  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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   128
        SYMBOLIC REFERENCE TABLE. 
  
        IA.TAGL        22                 109/48 D  109/49    109/52
        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          13   PROGRAM*       80/38 D
        IPSUD         163   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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   129
        SYMBOLIC REFERENCE TABLE. 
  
        IT.ANSIP       22                 122/54 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   130
        SYMBOLIC REFERENCE TABLE. 
  
        KW.INFOL       22                 119/52 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   131
        SYMBOLIC REFERENCE TABLE. 
  
        L54.HHA         4                  15/24 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   132
        SYMBOLIC REFERENCE TABLE. 
  
        MO.SUBP        12                 116/11 D
        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        142   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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   133
        SYMBOLIC REFERENCE TABLE. 
  
        OC$PLIM        16                  86/04 L
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   134
        SYMBOLIC REFERENCE TABLE. 
  
        O.GE           23                  82/24 L
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   135
        SYMBOLIC REFERENCE TABLE. 
  
        PB.IL           3                  88/06 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   136
        SYMBOLIC REFERENCE TABLE. 
  
        SP.SMDP        41                 107/26 D
        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            1                  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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   137
        SYMBOLIC REFERENCE TABLE. 
  
        TE.SYMIP        0                 105/31 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   138
        SYMBOLIC REFERENCE TABLE. 
  
        TP.IODM       400                 108/20 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   139
        SYMBOLIC REFERENCE TABLE. 
  
        WB.ACTP        13                  94/53 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   140
        SYMBOLIC REFERENCE TABLE. 
  
        WB.FMTLP       41                  92/33 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   141
        SYMBOLIC REFERENCE TABLE. 
  
        WB.SREFP        6                  95/04 D
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   142
        SYMBOLIC REFERENCE TABLE. 
  
        XR.LINEL       26                 112/23 D
        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            1                  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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   143
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        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
        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
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/05. 19.57.45.      PAGE   144
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        PR.INT          2                   4/23 D    4/23
        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       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      542              IDENT  OUTPTK 
                        542                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       533 
                                        LITERALS* LOCAL         533         7 
                                        LINE      COMMON          0        22 
  
  
                                        ENTRY POINTS. 
  
                                        B=OUTPT          0+           SETST          475+           SPA.           522+ 
                                        OUTCI.          63+           REMARK         514+ 
                                        OUTCR.         115+           GOTOER.        520+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        MSG=      CO.PS     N$LINES   MVE=      F$STITL   N$STITL   FA=LOL
  
  
  
  
                                                  IDENT  OUTPTK                                                  OUTPTK      2
             0                           OUTPTK   RPVDEF                                                         CCG27       5
                                                  SST                                                            OUTPTK      4
                                                  LIST   F                                                       OUTPTK      5
                                                                                                                 OUTPTK      6
                                                                                                                 OUTPTK      8
                                         .TEST    IFNE   TEST,0                                                  OUTPTK      9
                                                  MACRO  FORM,NAME                                               OUTPTK     10
                                        NAME      BSS    0                                                       OUTPTK     11
                                        NAME()    SET    *                                                       OUTPTK     12
                                         FORM     ENDM                                                           OUTPTK     13
                                                                                                                 OUTPTK     14
                                        INVOKE    MACRO  FORM                                                    OUTPTK     15
                                                  SB7    FORM                                                    OUTPTK     16
                                                  RJ     RETURN                                                  OUTPTK     17
                                                  RMT                                                            OUTPTK     18
                                                  IF     -DEF,FORM(),1                                           OUTPTK     19
                                                  ERR    FORM NOT INVOKABLE, CHECK CROSS REFERENCES AND CHANGE   OUTPTK     20
                                                  RMT                                                            OUTPTK     21
                                        INVOKE    ENDM                                                           OUTPTK     22
  
  
  
                                        LOCN      MACRO  CHAR,ADDRESS                                            OUTPTK     24
                                        CHARNOW   MICRO  1,0, CHAR                                               OUTPTK     25
                                        LASTCHAR  MICRO  2,1, CHAR                                               OUTPTK     26
                                                  IFC    EQ, "LASTCHAR"  ,1                                      OUTPTK     27
                                        CHARNOW   MICRO  1,0, 1R_CHAR                                            OUTPTK     28
                                        *                                                                        OUTPTK     29
                                         .A       IFLE   "CHARNOW",LASTCHAR                                      OUTPTK     30
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     2
                                                                      LOCN
  
                                                  ERR    (CHAR) - FORMAT CHARACTER OUT OF SEQUENCE "SEQUENCE".   OUTPTK     31
                                         .A       ELSE                                                           OUTPTK     32
                                         .B       DUP    "CHARNOW"-LASTCHAR-1                                    OUTPTK     33
                                                  IFEQ   $,59,2                                                  OUTPTK     34
                                                  JP     ILLEGAL                                                 OUTPTK     35
                                                  SKIP   1                                                       OUTPTK     36
                                        -         JP     ILLEGAL                                                 OUTPTK     37
                                         .B       ENDD                                                           OUTPTK     38
                                         .A       ENDIF                                                          OUTPTK     39
                                        *                                                                        OUTPTK     40
                                                  IFEQ   $,59,2                                                  OUTPTK     41
                                                  JP     ADDRESS                                                 OUTPTK     42
                                                  SKIP   1                                                       OUTPTK     43
                                        -         JP     ADDRESS                                                 OUTPTK     44
                                        *                                                                        OUTPTK     45
                                         LASTCHAR SET    "CHARNOW"                                               OUTPTK     46
                                         LOCN     ENDM                                                           OUTPTK     47
                                                                                                                 OUTPTK     48
                                                                                                                 OUTPTK     49
                                  -1    LASTCHAR  SET    -1                                                      OUTPTK     50
                                         BSS      OPSYN  BSSZ                                                    OUTPTK     51
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     3
             SYMBOL AND STORAGE DEFINITION
  
             0  00000000077740000000    DIGMASK   DATA   00000000077740000000B                                   OUTPTK     53
             1                           NEEDW    BSS    0                                                       OUTPTK     54
                                                  ECHO   2,L=(A,I,L,O,R,T,Z)                                     OUTPTK     55
                                                  POS    60-1R_L                                                 OUTPTK     56
                                                  VFD    1/1                                                     OUTPTK     57
                         00000000000              VFD    *P/0                                                    OUTPTK     58
             2                     1    TEMPA0.   BSS    1                                                       OUTPTK     59
             3                     1    APLIST    BSS    1                                                       OUTPTK     60
             4                     1    R         BSS    1               FIELD DESCRIPTOR REPEAT COUNT           OUTPTK     61
             5                     1    W         BSS    1               WIDTH                                   OUTPTK     62
             6                     1    GOCELL    BSS    1                                                       OUTPTK     63
             7                     1    GRC       BSS    1               GROUP REPEAT COUNT FOR CURRENT GROUP    OUTPTK     64
            10                     1    FORMAT    BSS    1                                                       OUTPTK     65
            11                     1    LEVEL     BSS    1                                                       OUTPTK     66
            12                     1    GROUPADR  BSS    1                                                       OUTPTK     67
            13                     1    HCOUNT    BSS    1                                                       OUTPTK     68
                                   2    MAXLEVEL  EQU    2               THE MAXIMUM NUMBER OF GROUP LEVELS      OUTPTK     69
            14                     3    LEVSTACK  BSS    MAXLEVEL+1      STORAGE FOR GROUP LEVEL STACK           OUTPTK     70
            17                     1    UNIT      BSS    1               HOLDS I/O UNIT DESIGNATION              OUTPTK     71
            20                     1    MAXCOUNT  BSS    1                                                       OUTPTK     72
            21                     1     RESCAN   BSS    1               HOLDS LEVEL STACK INFORMATION FOR       OUTPTK     73
                                                                           RESCANNING THE FORMAT WHEN THE        OUTPTK     74
                                                                           TERMINAL RIGHT PARENTHESIS IS REACHED OUTPTK     75
            22                     1    PARENFLG  BSS    1                                                       OUTPTK     76
            23                     1    RESETLIN  BSS    1                                                       OUTPTK     77
            24                     1    RESETFMT  BSS    1                                                       OUTPTK     78
            25                     1    RESETX3   BSS    1               TEMPORARY STORAGE USED BY 'SLASH'       OUTPTK     79
            26                     1    RESETITM  BSS    1               TEMPORARY STORAGE USED BY 'SLASH'       OUTPTK     80
                                                                                                                 OUTPTK     81
            27  00000000000000000002 C  OUTADDR   VFD    60/BUFFER       BEGINNING OF OTUPUT LINE                OUTPTK     82
                                                  USE    /LINE/                                                  OUTPTK     83
             0                     1     CONTINUE BSSZ   1           * EXPLICIT LINE TERMINATION MODE FLAG *     OUTPTK     84
             1  20000000000000000002 C            VFD    12/2000B,48/BUFFER        VALUE TO SET TO FOR CONT MODE OUTPTK     85
             2                    20    BUFFER    BSSZ   16                                                      OUTPTK     86
                                                  USE    *                                                       OUTPTK     87
                                                                                                                 OUTPTK     88
            30                          FORMS     BSS    0                                                       OUTPTK     89
            30  0200000443 +                      LOCN   A,AFORMP        ALPHANUMERIC (LEFT JUSTIFIED)           OUTPTK     90
            31  0200000443 +                      LOCN   H,HFORM         HOLLERITH STRING PROCESSING (COUNT)     OUTPTK     91
                          0200000173 +            LOCN   I,IFORM         INTEGER CONVERSION                      OUTPTK     92
            35  0200000443 +                      LOCN   L,LFORM                                                 OUTPTK     93
                          0200000443 +            LOCN   O,OFORM         OCTAL CONVERSION                        OUTPTK     94
            40  0200000443 +                      LOCN   R,RFORM         ALPHANUMERIC (RIGHT JUSTIFIED)          OUTPTK     95
                          0200000443 +            LOCN   T,TFORM         TABULATE (TEXT EDITING)                 OUTPTK     96
                          0200000443 +            LOCN   X,XFORM         SPACING  (TEXT EDITING)                 OUTPTK     97
                          0200000443 +            LOCN   Z,ZFORM     OCTAL CONVERSION ( LEADING BLANK FILL )     OUTPTK     98
                          0200000443 +            LOCN   *,DELIM         HOLERITH STRING (DELIMITED)             OUTPTK     99
            54  0200000357 +                      LOCN   /,SLASH         TERMINATE CURRENT RECORD                OUTPTK    100
                          0200000306 +            LOCN   1R(,LPFORM      BEGIN FIELD DESCRIPTOR GROUPING         OUTPTK    101
            55  0200000317 +                      LOCN   1R),RPFORM      END FIELD DESCRIPTOR GROUPING           OUTPTK    102
                          0200000443 +            LOCN   55B,RETURNX                                             OUTPTK    103
            57  0200000412 +                      LOCN   (,),NEXTDESC    FIELD DESCRIPTOR SEPARATOR              OUTPTK    104
                          0200000443 +            LOCN   64B,DELIM       HOLLERITH STRING (DELIMITED)            OUTPTK    105
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     4
             INITIALIZATION INTERFACE 
  
                                        ************************************************************************ OUTPTK    107
                                        *                                                                      * OUTPTK    108
                                        *                                                                      * OUTPTK    109
                                        *                                                                      * OUTPTK    110
                                        *                O U T C I . -- INITIAL ENTRY POINT                    * OUTPTK    111
                                        *                                                                      * OUTPTK    112
                                        *                                                                      * OUTPTK    113
                                        *                SAVE THE FORMAT ADDRESS, THE UNIT NUMBER AND SETUP    * OUTPTK    114
                                        *             FOR PROCESSING THE BEGINNING OF AN I/O SEQUENCE.         * OUTPTK    115
                                        *                                                                      * OUTPTK    116
                                        *                                                                      * OUTPTK    117
                                        ************************************************************************ OUTPTK    118
  
            63                          OUTCI.    ENTRY.                                                         OUTPTK    120
            64  6110000001                        SB1    1                                                       OUTPTK    121
                          74600                   SX6    A0                                                      OUTPTK    122
                               54211              SA2    A1+B1           GET APLIST FORMAT WORD.                 OUTPTK    123
            65  5160000002 +                      SA6    TEMPA0.         SAVE FOR LATER RESTORATION.             OUTPTK    124
                          76710                   SX7    B1                                                      OUTPTK    125
                               73620              SX6    X2                                                      OUTPTK    126
            66  10466                             BX4    X6                                                      OUTPTK    127
                     5170000007 +                 SA7    GRC             SET THE GROUP REPEAT COUNT 'GRC' TO ONE OUTPTK    128
                                                                           FOR THE OUTER PARENTHESIS LEVEL.      OUTPTK    129
  
            67  5160000010 +                      SA6    FORMAT          SAVE THE FORMAT PARAMETER ADDRESS IN    OUTPTK    131
                                                                           'FORMAT'.                             OUTPTK    132
  
                          20202                   LX2    2               DETERMINE THE ADDRESS OF THE FIRST WORD OUTPTK    134
            70  0332000071 +                      NG     X2,INIT.1         OF THE FORMAT FROM THE 'VAR' BIT IN   OUTPTK    135
                          36467                   IX4    X6+X7             THE APLIST ENTRY.  IF THE BIT IS NOT  OUTPTK    136
                                                                           SET, THE ADDRESS IS INCREMENTED BY 1  OUTPTK    137
                                                                           TO YIELD THE TRUE FORMAT POINTER.     OUTPTK    138
  
            71  73310                   INIT.1    SX3    X1              DETERMINE THE UNIT NUMBER OF THE FILE   OUTPTK    140
                     0321000072 +                 PL     X1,INIT.2         TO BE ACCESSED.  IF THE 'VAR' BIT IS  OUTPTK    141
                               53310              SA3    X1                SET, THE ADDRESS POINTS TO A WORD     OUTPTK    142
                                                                           CONTAINING THE UNIT NUMBER.           OUTPTK    143
                                                                           OTHERWISE THE UNIT NUMBER IS          OUTPTK    144
                                                                           CONTAINED IN THE APLIST WORD ENTRY.   OUTPTK    145
  
            72  7061000002              INIT.2    SX6    A1+2                                                    OUTPTK    147
                          5160000003 +            SA6    APLIST          SAVE THE APLIST POINTER FOR LATER       OUTPTK    148
                                                                           PROCESSING OF THE LIST ITEMS.         OUTPTK    149
  
            73  10633                             BX6    X3                                                      OUTPTK    151
                     7150000060                   SX5    60-2*6          SET THE INITIAL SHIFT COUNT FOR THE     OUTPTK    152
                               63250              SB2    X5                FORMAT TO POINT JUST BEYOND THE       OUTPTK    153
                                                                           INITIAL LEFT PARENTHESIS.             OUTPTK    154
            74  5160000017 +                      SA6    UNIT              (SAVE THE UNIT DESIGNATION.)          OUTPTK    155
                          20522                   LX5    18                                                      OUTPTK    156
                               36654              IX6    X5+X4                                                   OUTPTK    157
            75  53240                             SA2    X4              FETCH THE FIRST FORMAT WORD.            OUTPTK    158
                     6160000074                   SB6    60                                                      OUTPTK    159
            76  5160000012 +                      SA6    GROUPADR        SAVE THE POINTERS TO THE OUTER          OUTPTK    160
                                                                           PARENTHESIS GROUP IN 'GROUPADR'.      OUTPTK    161
                          5150000027 +            SA5    OUTADDR                                                 OUTPTK    162
            77  20622                             LX6    18                                                      OUTPTK    163
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     5
             INITIALIZATION INTERFACE 
  
                     36767                        IX7    X6+X7                                                   OUTPTK    164
                          5170000014 +            SA7    LEVSTACK        SETUP THE INITIAL LEVEL STACK ENTRY--   OUTPTK    165
           100  5170000021 +                      SA7    RESCAN            THE LEVEL STACK CONTAINS THE          OUTPTK    166
                                                                           NECESSARY INFORMATION FOR RESTARTING  OUTPTK    167
                                                                           THE FORMAT SCAN AT THE BEGINNING OF   OUTPTK    168
                                                                           A PARENTHESIS GROUP, THE ZERO LEVEL   OUTPTK    169
                                                                           ENTRY MUST THEREFORE CONTAIN THE      OUTPTK    170
                                                                           INFORMATION FOR RESTARTING THE FORM   OUTPTK    171
                                                                           SCAN WHEN THE FINAL RIGHT PARENTHESIS OUTPTK    172
                                                                           IN THE FORMAT IS ENCOUNTERED.  THE    OUTPTK    173
                                                                           INFORMATION FOR THE ZERO ENTRY IS     OUTPTK    174
                                                                                SHIFTCT = 48, POSITION AFTER '(' OUTPTK    175
                                                                                WORD    = ADDRESS OF FIRST       OUTPTK    176
                                                                                          FORMAT WORD            OUTPTK    177
                                                                                GRC    = 1, REMAINING REPEAT     OUTPTK    178
                                                                                          COUNT FOR GROUP        OUTPTK    179
                          5130000000 C            SA3    CONTINUE                                                OUTPTK    180
           101  27505                             PX5    X5                                                      OUTPTK    181
                     13666                        BX6    X6-X6                                                   OUTPTK    182
                          5160000011 +            SA6    LEVEL           INITIALIZE THE LEVEL NUMBER FOR THE     OUTPTK    183
                                                                           LEVEL STACK.                          OUTPTK    184
  
           102  66400                             SB4    B0              SET THE ITEM COUNT TO ZERO              OUTPTK    186
                     5160000022 +                 SA6    PARENFLG        TURN OF THE TERMINAL RIGHT PAREN FLAG   OUTPTK    187
  
           103  0303000105 +                      ZR     X3,INIT.3       IF THE PROCESSING MODE IS 'EXPLICIT     OUTPTK    189
                          5140000020 +            SA4    MAXCOUNT          LINE TERMINATION' THEN CONTINUE THE   OUTPTK    190
           104  22503                             LX5    X3                LAST LINE WHERE THE PRECEDING WRITE   OUTPTK    191
                     10644                        BX6    X4                STATEMENT FINISHED (I.E. IF           OUTPTK    192
                                                                           'CONTINUE' IS NON-ZERO THEN IT        OUTPTK    193
                                                                           CONTAINS THE LINE INITIALIZING        OUTPTK    194
                                                                           INFORMATION, 'MAXCOUNT' SHOULD REMAIN OUTPTK    195
                                                                           UNCHANGED IF 'CONTINUE' IS NON-ZERO). OUTPTK    196
  
           105  5160000020 +            INIT.3    SA6    MAXCOUNT        SET THE MAXIMUM LENGTH ATTAINED FOR THE OUTPTK    198
                                                                           LINE (IF A TAB BACKWARD HAS OCCURRED) OUTPTK    199
  
                          26035                   UX0    X5,B3           SET THE LINE POSITION POINTERS AND THEN OUTPTK    201
           106  0400000412 +                      ZR     NEXTDESC          GO TO 'NEXTDESC' TO BEGIN PORCESSING. OUTPTK    202
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     6
             INITIALIZATION INTERFACE 
  
                                        **        OUTCR. - ITEM CONVERSION                                       OUTPTK    204
                                        *                                                                      * OUTPTK    205
                                        *         REGISTER CONVENTIONS --                                      * OUTPTK    206
                                        *                                                                      * OUTPTK    207
                                        *         B0 -- 0             A0 -- UNUSED        X0 -- OUTPUT WORD    * OUTPTK    208
                                        *         B1 -- 1             A1 -- DATA ADDRESS  X1 -- DATA ITEM      * OUTPTK    209
                                        *         B2 -- FORMAT SHIFT  A2 -- FORMAT ADDR   X2 -- FORMAT WORD    * OUTPTK    210
                                        *         B3 -- BITS FILLED   A3 -- SCRATCH       X3 -- SPECIAL HOLD   * OUTPTK    211
                                        *         B4 -- ITEM COUNT    A4 -- SCRATCH       X4 -- SCRATCH        * OUTPTK    212
                                        *         B5 -- SCRATCH       A5 -- SCRATCH       X5 -- SCRATCH        * OUTPTK    213
                                        *         B6 -- 60            A6 -- SCRATCH       X6 -- SCRATCH        * OUTPTK    214
                                        *         B7 -- SCRATCH       A7 -- SCRATCH       X7 -- SCRATCH        * OUTPTK    215
  
           107  27630                   OUTPTCX   PX6    X0,B3           SAVE THE CURRENT POINTERS TO THE OUTPUT OUTPTK    217
                     74520                        SX5    A2                LINE AND THE FORMAT.                  OUTPTK    218
                          5160000023 +            SA6    RESETLIN                                                OUTPTK    219
           110  27725                             PX7    X5,B2                                                   OUTPTK    220
                     66510                        SB5    B1                                                      OUTPTK    221
                          5170000024 +            SA7    RESETFMT                                                OUTPTK    222
           111  5120000002 +                      SA2    TEMPA0.                                                 OUTPTK    223
                          66210                   SB2    B1                                                      OUTPTK    224
                               53020              SA0    X2                                                      OUTPTK    225
  
           112  5120000003 +                      SA2    APLIST                                                  OUTPTK    227
                          53320                   SA3    X2              OBTAIN APLIST ITEM WORD ENTRY.          OUTPTK    228
  
                               67101              SB1    -B1             PRESET IN CASE OF TERMINAL CALL.        OUTPTK    230
           113  0313000121 +                      NZ     X3,PRESET       IF NOT END OF I/O PARAMETER LIST.       OUTPTK    231
                          0323000130 +            PL     X3,PRESET.2       ELSE GO TO 'PRESET.2' TO HANDLE THE   OUTPTK    232
                                                                           END OF I/O LIST PROCESSING.           OUTPTK    233
           114  0400000063 +                      EQ     OUTCI.                                                  OUTPTK    234
                                                                                                                 OUTPTK    235
           115                           OUTCR.   ENTRY.                   ENTRY POINT FOR INTERRUPTED I/O LIST  OUTPTK    236
           116  5120000003 +                      SA2    APLIST          MAKE THINGS LOOK AS IF THERE WAS NOT AN OUTPTK    237
                          5150000115 +            SA5    OUTCR.            INTERRUPTION.                         OUTPTK    238
           117  22705                             LX7    X5                                                      OUTPTK    239
                     74210                        SX2    A1                                                      OUTPTK    240
                          5170000063 +            SA7    OUTCI.                                                  OUTPTK    241
           120  10311                             BX3    X1                                                      OUTPTK    242
                     6110777776                   SB1    -1                                                      OUTPTK    243
                                                                                                                 OUTPTK    244
                                                                                                                 OUTPTK    245
           121  0303000125 +             PRESET   ZR     X3,PRESET.1       IF TERMINAL CALL                      OUTPTK    246
                          36433                   IX4    X3+X3                                                   OUTPTK    247
                               63130              SB1    X3                (B1) = DATA ITEM ADDRESS              OUTPTK    248
           122  0324000125 +                      PL     X4,PRESET.1       IF ITEM IS ^ F.P.                     OUTPTK    249
  
                          21401                   AX4    1                                                       OUTPTK    251
                               43066              MX0    60-6                                                    OUTPTK    252
           123  15640                             BX6    -X0*X4                                                  OUTPTK    253
                     20466                        LX4    60-6                                                    OUTPTK    254
                          63360                   SB3    X6                                                      OUTPTK    255
                               54503              SA5    A0+B3           COMPUTE THE DATA ITEM ADDRESS BY ADDING OUTPTK    256
           124  63640                             SB6    X4                THE FP OFFSET TO THE APPROPRIATE FP   OUTPTK    257
                     63156                        SB1    X5+B6             ADDRESS IN THE SUBROUTINE APLIST.     OUTPTK    258
  
           125  7272000001              PRESET.1  SX7    X2+1            INCREMENT THE APLIST POINTER, AND SET   OUTPTK    260
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     7
             INITIALIZATION INTERFACE 
  
                          21330                   AX3    24                THE ITEM COUNT INTO B2.  A ZERO ITEM  OUTPTK    261
                               54720              SA7    A2                COUNT WILL BE TREATED AS AN ITEM      OUTPTK    262
           126  63230                             SB2    X3                COUNT OF 1.                           OUTPTK    263
                     0520000130 +                 NZ     B2,PRESET.2                                             OUTPTK    264
           127  6120000001                        SB2    1                                                       OUTPTK    265
  
           130  5150000023 +            PRESET.2  SA5    RESETLIN                                                OUTPTK    267
                          5140000024 +            SA4    RESETFMT                                                OUTPTK    268
           131  0610000132 +                      PL     B1,SETUP.1      IF THIS IS NOT A FINAL ENTRY THEN GO    OUTPTK    269
                          66210                   SB2    B1                TO 'SETUP.1', OTHERWISE SWITCH THE    OUTPTK    270
                               67101              SB1    -B1               FINAL INDICATOR FOR A LATER CHECK.    OUTPTK    271
  
           132  5111777776              SETUP.1   SA1    B1-1            SET THE BASE DATA ITEM ADDRESS (I.E.    OUTPTK    273
                                                                           POINT TO THE WORD IMMEDIATELY PRIOR   OUTPTK    274
                                                                           TO THE SET OF DATA ITEMS).            OUTPTK    275
  
                          26035                   UX0    X5,B3           SETUP THE POINTERS TO THE LINE.         OUTPTK    277
                               53240              SA2    X4              PICK UP THE CURRENT FORMAT WORD.        OUTPTK    278
           133  66420                             SB4    B2              SETUP THE COUNT OF THE NUMBER OF ITEMS  OUTPTK    279
                                                                           TO CONVERT.                           OUTPTK    280
                     6110000001                   SB1    1                                                       OUTPTK    281
                               26424              UX4    X4,B2           SETUP THE FORMAT SHIFT COUNT POINTER9   OUTPTK    282
           134  6160000074                        SB6    60                                                      OUTPTK    283
                          5150000022 +            SA5    PARENFLG                                                OUTPTK    284
           135  0640000145 +                      PL     B4,INTER        IF THIS IS AN INTERMEDIATE ENTRY THEN   OUTPTK    285
                                                                           GO TO !INTER' TO ENTER THE            OUTPTK    286
                                                                           PROCESSING CYCLE.                     OUTPTK    287
                          5150000000 C            SA5    CONTINUE                                                OUTPTK    288
           136  5140000027 +                      SA4    OUTADDR                                                 OUTPTK    289
                          0315000143 +            NZ     X5,SETUP.2      IF THE PROCESSING MODE IS 'EXPLICIT     OUTPTK    290
                                                                           LINE TERMINATION' THEN GO TO          OUTPTK    291
                                                                           'SETUP.2'.                            OUTPTK    292
  
           137  5150000020 +                      SA5    MAXCOUNT        OTHERWISE INVOKE 'SLASH' TO DUMP THE    OUTPTK    294
                          37304                   IX3    X0-X4             CURRENT OUTPUT LINE IF IT IS NOT      OUTPTK    295
                               73633              SX6    X3+B3             EMPTY.                                OUTPTK    296
           140  12765                             BX7    X6+X5                                                   OUTPTK    297
                     0307000063 +                 ZR     X7,OUTCI.       WHEN (IF NECESSARY) THE OUTPUT LINE HAS OUTPTK    298
           141  6170000357 +                      INVOKE SLASH           BEEN DUMPED, RETURN TO THE CALLER.      OUTPTK    299
           142  0400000063 +                      EQ     OUTCI.                                                  OUTPTK    300
  
           143  27630                   SETUP.2   PX6    X0,B3           SINCE 'EXPLICIT LINE TERMINATION' IS IN OUTPTK    302
                     46000                        NO                       FORCE, SAVE THE CURRENT LINE POINTERS OUTPTK    303
                          5160000000 C            SA6    CONTINUE          AND  RETURN TO THE CALLER.            OUTPTK    304
           144  0400000063 +                      EQ     OUTCI.                                                  OUTPTK    305
  
           145  13777                   INTER     BX7    X7-X7                                                   OUTPTK    307
                     54750                        SA7    A5              CLEAR THE PAREN FLAG.                   OUTPTK    308
                          0305000432 +            ZR     X5,IFNOMORE     GO TO 'IFNOMORE' IF THE LAST ENTRY WAS  OUTPTK    309
                                                                           NOT STOPPED BY THE TERMINAL PAREN,    OUTPTK    310
           146  0400000412 +                      EQ     NEXTDESC                                                OUTPTK    311
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     8
             A -, R - FORMAT PROCESSING SECTIONS
  
                                        ************************************************************************ OUTPTK    313
                                        *                                                                      * OUTPTK    314
                                        *                       R - FORMAT PROCESSING                          * OUTPTK    315
                                        *                                                                      * OUTPTK    316
                                        *                CONVERT THE R-FORM DATA ITEM INTO A-FORM AND THEN USE * OUTPTK    317
                                        *             THE A-FORMAT PROCESSING SECTION TO PROCESS THE ITEM.     * OUTPTK    318
                                        *                                                                      * OUTPTK    319
                                        ************************************************************************ OUTPTK    320
  
           147                          RFORM     FORM                                                           OUTPTK    322
           147  63560                             SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN OUTPTK    323
                     0665000152 +                 LE     B5,B6,RFORM.1       CHARACTERS, THEN GO TO RFORM.1,     OUTPTK    324
                               77656              SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         OUTPTK    325
           150  0100000455 +                      CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      OUTPTK    326
           151  76660                             SX6    B6                                                      OUTPTK    327
           152  63760                   RFORM.1   SB7    X6                CALCULATE THE SHIFT COUNT NECESSARY T OUTPTK    328
                     67567                        SB5    B6-B7             TRANSFORM THE DATA ITEM INTO A-FORM   OUTPTK    329
                          22151                   LX1    X1,B5             AND THEN PERFORM THE TRANSFORMATION.  OUTPTK    330
           153  0400000157 +                      EQ     AFORM                                                   OUTPTK    331
                                                                                                                 OUTPTK    332
                                        ************************************************************************ OUTPTK    333
                                        *                                                                      * OUTPTK    334
                                        *                       A - FORMAT PROCESSING                          * OUTPTK    335
                                        *                                                                      * OUTPTK    336
                                        *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED IS      * OUTPTK    337
                                        *             GREATER THAN TEN, CALL SPACE TO INSERT THE CORRECT       * OUTPTK    338
                                        *             NUMBER OF BLANKS THEN GO TO AFORM.                       * OUTPTK    339
                                        *                THIS A FORMAT PROCESSOR IS CALLED ONLY WHEN THE       * OUTPTK    340
                                        *             A-FORMAT ACTUALLY APPEARS IN THE USER FORMAT.  THE OTHER * OUTPTK    341
                                        *             A-FORMAT PROCESSOR IS ONLY USED INTERNALLY.              * OUTPTK    342
                                                                                                                 OUTPTK    343
           154                           AFORMP   FORM                                                           OUTPTK    344
           154  63560                             SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN OUTPTK    345
                     0665000157 +                 LE     B5,B6,AFORM         CHARACTERS, THEN GO TO AFORM,       OUTPTK    346
                               77656              SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         OUTPTK    347
           155  0100000455 +                      CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      OUTPTK    348
           156  76660                             SX6    B6                                                      OUTPTK    349
                                                                                                                 OUTPTK    350
                                        ************************************************************************ OUTPTK    351
                                        *                                                                      * OUTPTK    352
                                        *                       A - FORMAT PROCESSING                          * OUTPTK    353
                                        *                                                                      * OUTPTK    354
                                        *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED FROM    * OUTPTK    355
                                        *             THE A-FORM DATA WILL FIT INTO THE SPACE REMAINING IN THE * OUTPTK    356
                                        *             CURRENT OUTPUT WORD, THEN THE SPACE IN THE OUTPUT WORD   * OUTPTK    357
                                        *             NECESSARY TO ACCOMODATE THE A-FORM DATA IS CLEARED AND   * OUTPTK    358
                                        *             THE A-FORM DATA INSERTED.  IF NOT ENOUGH SPACE IS        * OUTPTK    359
                                        *             AVAILABLE IN THE CURRENT OUTPUT WORD FOR THE A-FORM      * OUTPTK    360
                                        *             DATA, THEN THE DATA IS SPLIT TO OCCUPY THE END OF THE    * OUTPTK    361
                                        *             CURRENT OUTPUT WORD AND THE BEGINNING OF THE NEXT        * OUTPTK    362
                                        *             OUTPUT WORD.                                             * OUTPTK    363
                                        *                                                                      * OUTPTK    364
                                        ************************************************************************ OUTPTK    365
  
           157                          AFORM     FORM                                                           OUTPTK    367
           157  67563                             SB5    B6-B3           IF THE A-FORM DATA MUST BE SPLIT TO     OUTPTK    368
                     63760                        SB7    X6                OCCUPY TWO OUTPUT WORDS THEN GO       OUTPTK    369
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE     9
             A -, R - FORMAT PROCESSING SECTIONS
  
                          0757000164 +            LT     B5,B7,AFORM2WD    TO 'AFORM2WD'.                        OUTPTK    370
  
           160  43401                   AFORM.1   MX4    1               FORM THE MASK NECESSARY TO EXTRACT      OUTPTK    372
                     67771                        SB7    B7-B1             THE A-FORM DATA AND INSERT IT INTO    OUTPTK    373
                          53500                   SA5    X0                THE OUTPUT WORD.                      OUTPTK    374
                               23774              AX7    X4,B7                                                   OUTPTK    375
           161  11671                             BX6    X7*X1             (EXTRACT THE A-FORM DATA)             OUTPTK    376
                     22535                        LX5    X5,B3                                                   OUTPTK    377
                          66737                   SB7    B3+B7                                                   OUTPTK    378
                               15457              BX4    -X7*X5            (CLEAR SPACE IN THE OUTPUT WORD)      OUTPTK    379
           162  66371                             SB3    B7+B1             (INCREMENT THE COUNT OF BITS IN THE   OUTPTK    380
                                                                           CURRENT OUTPUT WORD)                  OUTPTK    381
  
                     12646                        BX6    X4+X6             (INSERT THE A-FORM DATA, THE BOOLEAN  OUTPTK    383
                                                                           UNIT MUST BE USED IN CASE AN ENTIRE   OUTPTK    384
                                                                           OUTPUT WORD CONSISTS OF SEMI-COLONS-- OUTPTK    385
                                                                           SINCE THE OUTPUT WORD WOULD BECOME    OUTPTK    386
                                                                           POSITIVE ZERO--NOT MINUS ZERO--IF     OUTPTK    387
                                                                           THE LONG ADD UNIT IS USED.)           OUTPTK    388
                          22756                   LX7    X6,B5                                                   OUTPTK    389
                               54750              SA7    A5                                                      OUTPTK    390
           163  0400000440 +                      ZR     RETURNX         GO TO 'RETURNX'.                        OUTPTK    391
  
  
           164  43401                   AFORM2WD  MX4    1               EXTRACT THE NUMBER OF CHARACTERS IN     OUTPTK    393
                     67331                        SB3    B3-B1             A-FORM NECESSARY TO FILL THIS OUTPUT  OUTPTK    394
                          22151                   LX1    X1,B5             WORD.                                 OUTPTK    395
                               67775              SB7    B7-B5                                                   OUTPTK    396
           165  66560                             SB5    B6                                                      OUTPTK    397
                     53500                        SA5    X0                                                      OUTPTK    398
                          23734                   AX7    X4,B3                                                   OUTPTK    399
                               15617              BX6    -X7*X1                                                  OUTPTK    400
           166  66300                             SB3    B0                                                      OUTPTK    401
                     73001                        SX0    X0+B1                                                   OUTPTK    402
                          11575                   BX5    X7*X5           CLEAR SPACE IN THE CURRENT OUTPUT WORD  OUTPTK    403
                                                                           TO ACCOMODATE THE AFORM DATA.         OUTPTK    404
  
                               12656              BX6    X5+X6                                                   OUTPTK    406
           167  54650                             SA6    A5              APPEND THE AFORM DATA TO THE CURRENT    OUTPTK    407
                     0400000160 +                 ZR     AFORM.1           OUTPUT WORD AND THEN GO TO 'AFORM.1'  OUTPTK    408
                                                                           TO PROCESS THE REMAINING CHARACTERS.  OUTPTK    409
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    10
             I - FORMAT PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    411
                                        *                                                                      * OUTPTK    412
                                        *                       I - FORMAT PROCESSING                          * OUTPTK    413
                                        *                                                                      * OUTPTK    414
                                        *                CONVERT THE BINARY INTEGER DATA ITEM TO DECIMAL       * OUTPTK    415
                                        *             REPRESENTATION, RIGHT-JUSTIFIED WITHIN THE SPECIFIED     * OUTPTK    416
                                        *             FIELD (WITH BLANK FILL IF NECESSARY).  AFTER THE DECIMAL * OUTPTK    417
                                        *             FORM HAS BEEN OBTAINED GO TO THE A-FORMAT PROCESSING     * OUTPTK    418
                                        *             SECTION TO INSERT THE CHARACTERS INTO THE OUTPUT LINE.   * OUTPTK    419
                                        *                                                                      * OUTPTK    420
                                        ************************************************************************ OUTPTK    421
  
           170  55555555555555555555    IFORMCON  DATA   10H          ,10.0P0,0.100000000001P48                  OUTPTK    423
  
           173                          IFORM     FORM                                                           OUTPTK    425
           173  63560                             SB5    X6              IF THE FIELD WIDTH IS LESS THAN ELEVEN  OUTPTK    426
                     0665000176 +                 LE     B5,B6,IFORM.1     CHARACTERS THEN GO TO 'IFORM.1',      OUTPTK    427
  
                               77656              SX6    B5-B6           OTHERWISE CALL 'SPACE' TO SPACE THE     OUTPTK    429
           174  0100000455 +                      CALL   SPACE             EXCESS NUMBER OF POSITIONS (I.E. IF   OUTPTK    430
           175  66560                             SB5    B6                THE FIELD WIDTH IS TWELVE CHARACTERS  OUTPTK    431
                                                                           THEN SPACE TWO CHARACTERS).           OUTPTK    432
  
           176                           IFORM.1  BSS    0                                                       OUTPTK    434
           176  0321000177 +                      PL     X1,IFORM.12     IF NEGATIVE NUMBER COMPLEMENT AND       OUTPTK    435
                          14111                   BX1    -X1               CHANGE TO POSITIVE NUMBER             OUTPTK    436
                               66600              SB6    B0                AND SET FLAG                          OUTPTK    437
           177                           IFORM.12 BSS    0                                                       OUTPTK    438
           177  27101                             PX1    X1              CONVERT THE INTEGER TO FLOATING         OUTPTK    439
                     66750                        SB7    B5                POINT FORM (UN-NORMALIZED) AND FETCH  OUTPTK    440
                          5150000170 +            SA5    IFORMCON          THE CONVERSION CONSTANTS.             OUTPTK    441
           200  10755                             BX7    X5                                                      OUTPTK    442
                     54451                        SA4    A5+B1                                                   OUTPTK    443
                          54541                   SA5    A4+B1                                                   OUTPTK    444
  
           201  42651                   IFORM.2   DX6    X5*X1           CONVERT THE BINARY VALUE, FORMING THE   OUTPTK    446
                     40151                        FX1    X5*X1             DECIMAL REPRESENTATION A DIGIT AT A   OUTPTK    447
                          6155777771              SB5    B5-6              TIME (FROM RIGHT TO LEFT).            OUTPTK    448
           202  40646                             FX6    X4*X6             METHOD: LET 'B' BE THE BINARY VALUE   OUTPTK    449
                     7266777755                   SX6    X6+1R0-1R           1)  XD = B*0.1   (FRACTIONAL PART)  OUTPTK    450
                               36767              IX7    X6+X7               2)  B  = B*0.1   (INTEGRAL PART)    OUTPTK    451
           203  24601                             NX6    X1                  3)  D  = XD*10.0 (DECIMAL DIGIT)    OUTPTK    452
                     20766                        LX7    -6                                                      OUTPTK    453
                          0316000201 +            NZ     X6,IFORM.2                                              OUTPTK    454
           204  0560000206 +                      NE     B6,B0,IFORM.3                                           OUTPTK    455
                          7150777770              SX5    1R--1R                                                  OUTPTK    456
           205  6160000074                        SB6    60                RESTORE B6                            OUTPTK    457
                          36775                   IX7    X7+X5                                                   OUTPTK    458
           206                           IFORM.3  BSS    0                                                       OUTPTK    459
  
           206  76670                             SX6    B7              CALL 'AFORM' TO APPEND THE PROPERLY     OUTPTK    461
                     67565                        SB5    B6-B5             POSITIONED AND JUSTIFIED DIGITS.      OUTPTK    462
                          22157                   LX1    X7,B5                                                   OUTPTK    463
           207  0400000157 +                      ZR     AFORM                                                   OUTPTK    464
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    11
        L - FORMAT PROCESSING SECTION 
  
                                        ************************************************************************ OUTPTK    466
                                        *        L - FORMAT PROCESSING                                         * OUTPTK    467
                                        *        PRINTS A T IF THE LOGICAL VARIABLE HAS A VALUE OF TRUE, ELSE  * OUTPTK    468
                                        *        PRINTS A F IF THE LOGICAL VARIABLE HAS A VALUE OF FALSE       * OUTPTK    469
                                        ************************************************************************ OUTPTK    470
           210                           LFORM    FORM                                                           OUTPTK    471
           210  63560                             SB5    X6              IF THE FIELD WIDTH IS LESS THAN         OUTPTK    472
                     0665000213 +                 LE     B5,B6,LFORM.1     ELEVEN CHARACTERS THEN GO TO LFORM.1  OUTPTK    473
                                                                                                                 OUTPTK    474
                               77656              SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE THE     OUTPTK    475
           211  0100000455 +                      CALL   SPACE             EXCESS NUMBER OF POSITIONS            OUTPTK    476
           212  66560                             SB5    B6                                                      OUTPTK    477
                                                                                                                 OUTPTK    478
           213                           LFORM.1  BSS    0                                                       OUTPTK    479
           213  5150000170 +                      SA5    IFORMCON          FILL WORD WITH BLANKS                 OUTPTK    480
                          7160777730              SX6    1RF-1R            F                                     OUTPTK    481
           214  0321000215 +                      PL     X1,LFORM.2                                              OUTPTK    482
                          7160777746              SX6    1RT-1R            T                                     OUTPTK    483
           215                           LFORM.2  BSS    0                                                       OUTPTK    484
           215  67765                             SB7    B6-B5                                                   OUTPTK    485
                     36165                        IX1    X6+X5                                                   OUTPTK    486
                          22171                   LX1    X1,B7             SHIFT LETTER TO BOTTOM OF FIELD       OUTPTK    487
                               76650              SX6    B5                                                      OUTPTK    488
           216  0400000157 +                      EQ     AFORM                                                   OUTPTK    489
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    12
             O - FORMAT PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    491
                                        *                                                                      * OUTPTK    492
                                        *                       O - FORMAT PROCESSING                          * OUTPTK    493
                                        *                                                                      * OUTPTK    494
                                        *                CONVERT THE BINARY DATA ITEM TO OCTAL FORM (ONLY THE  * OUTPTK    495
                                        *             NUMBER OF DIGITS SPECIFIED THOUGH), BLANK FILLING IF     * OUTPTK    496
                                        *             NECESSARY.                                               * OUTPTK    497
                                        *                                                                      * OUTPTK    498
                                        ************************************************************************ OUTPTK    499
  
           217  33333333333333333333    OFORMCON  DATA   10H0000000000,0                                         OUTPTK    501
  
           221  5140000533 +             ZFORM    SA4    =1H                                                     OUTPTK    503
                          7170777755              SX7    1R0-1R                                                  OUTPTK    504
           222  0400000224 +                      EQ     OFORM1                                                  OUTPTK    505
                                                                                                                 OUTPTK    506
           223  5140000534 +             OFORM    SA4    =10H0000000000                                          OUTPTK    507
                          43700                   MX7    0                                                       OUTPTK    508
                                                                                                                 OUTPTK    509
           224  5170000220 +             OFORM1   SA7    OFORMCON+1                                              OUTPTK    510
                          10744                   BX7    X4                                                      OUTPTK    511
                               55771              SA7    A7-B1                                                   OUTPTK    512
           225  63760                             SB7    X6                                                      OUTPTK    513
                     66566                        SB5    B6+B6                                                   OUTPTK    514
                          0667000244 +            LE     B7,B6,OFORM.3   IF THE WIDTH OF THE OCTAL FORMAT IS     OUTPTK    515
                                                                           LESS THAN ELEVEN CHARACTERS THEN      OUTPTK    516
                                                                           GO TO 'OFORM.4'.                      OUTPTK    517
  
           226  0657000231 +                      LE     B7,B5,OFORM.1   IF THE WIDTH IS BETWEEN ELEVEN AND      OUTPTK    519
                                                                           TWENTY CHARACTERS THEN GO TO          OUTPTK    520
                                                                           'OFORM.1',                            OUTPTK    521
                          77675                   SX6    B7-B5           OTHERWISE CALL 'SPACE' TO SKIP OVER     OUTPTK    522
           227  0100000455 +                      CALL   SPACE             THE EXCESS POSITIONS AND THEN         OUTPTK    523
           230  76666                             SX6    B6+B6             PROCESS AS A TWENTY DIGIT CONVERSION. OUTPTK    524
                     66766                        SB7    B6+B6                                                   OUTPTK    525
  
           231  67576                   OFORM.1   SB5    B7-B6           CONVERT THE BINARY VALUE TO TWENTY      OUTPTK    527
                     43771                        MX7    60-3              OCTAL DIGITS, EXTRACTING TWO DIGITS   OUTPTK    528
                          10477                   BX4    X7                AT A TIME.                            OUTPTK    529
                               20736              LX7    30                                                      OUTPTK    530
           232  11474                             BX4    X7*X4                                                   OUTPTK    531
                     37333                        IX3    X3-X3                                                   OUTPTK    532
                          43500                   MX5    0                                                       OUTPTK    533
                               66760              SB7    B6                                                      OUTPTK    534
  
           233  15714                   OFORM.2   BX7    -X4*X1          EXTRACT TWO OCTAL DIGITS (THIRTY BITS   OUTPTK    536
                     21103                        AX1    3                 APART),                               OUTPTK    537
                          7267000033              SX6    X7+1R0            CONVERT THE DIGITS TO DISPLAY CODE    OUTPTK    538
           234  36336                             IX3    X3+X6             AND APPEND THEM TO THE ACCUMULATED    OUTPTK    539
                     21736                        AX7    30                DIGITS.                               OUTPTK    540
                          7267000033              SX6    X7+1R0                                                  OUTPTK    541
           235  36556                             IX5    X5+X6                                                   OUTPTK    542
                     20366                        LX3    -6                                                      OUTPTK    543
                          6177777771              SB7    B7-6                                                    OUTPTK    544
           236  20566                             LX5    -6                                                      OUTPTK    545
                     0707000233 +                 GT     B7,B0,OFORM.2   CONTINUE UNTIL ALL DIGITS ARE PROCESSED OUTPTK    546
  
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    13
             O - FORMAT PROCESSING SECTION
  
                               10155              BX1    X5              CALL 'AFORM' TO PLACE THE APPROPRIATE   OUTPTK    548
           237  76650                             SX6    B5                DIGITS INTO THE OUTPUT LINE.          OUTPTK    549
                     6170000147 +                 INVOKE RFORM                                                   OUTPTK    550
           241  10133                             BX1    X3                                                      OUTPTK    551
                     76660                        SX6    B6                                                      OUTPTK    552
                          6170000157 +            INVOKE AFORM                                                   OUTPTK    553
           243  0400000410 +                      ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.            OUTPTK    554
  
  
           244  21601                   OFORM.3   AX6    1               IF TEN OR FEWER DIGITS ARE TO BE        OUTPTK    556
                     63561                        SB5    X6+B1             CONVERTED THEN PERFORM THE CONVERSION OUTPTK    557
                          5150000217 +            SA5    OFORMCON          ONE DIGIT AT A TIME, FROM RIGHT TO    OUTPTK    558
           245  43701                             MX7    1                 LEFT.  LEADING ZERO DIGITS WILL BE    OUTPTK    559
                     67565                        SB5    B6-B5             REPLACED BY THE CHARACTER WHICH IS    OUTPTK    560
                          54451                   SA4    A5+B1             REPLICATED TEN TIMES IN 'OFORMCON'    OUTPTK    561
                               23757              AX7    X7,B5             (AND OF COURSE THIS MAY BE THE        OUTPTK    562
           246  15117                             BX1    -X7*X1            CHARACTER ZERO).  SEE THE DESCRIPTION OUTPTK    563
                     63540                        SB5    X4                ABOVE FOR FUTHER DETAILS.             OUTPTK    564
                          76370                   SX3    B7                                                      OUTPTK    565
                               43471              MX4    60-3                                                    OUTPTK    566
  
           247  15614                   OFORM.4   BX6    -X4*X1          EXTRACT ONE DIGIT.                      OUTPTK    568
                     21103                        AX1    3               SHIFT VALUE TO POSITION THE NEXT DIGIT. OUTPTK    569
                          73765                   SX7    X6+B5           CONVERT THE DIGIT TO THE VALUE WHICH,   OUTPTK    570
                               36557              IX5    X5+X7             WHEN ADDED TO 'OFORMCON', WILL BE THE OUTPTK    571
           250  6177777771                        SB7    B7-6              DISPLAY CODE FOR THE DIGIT.           OUTPTK    572
                          46000                   NO                       DECREMENT WIDTH.                      OUTPTK    573
                               20566              LX5    -6              POSITION THE OCNVERTED DIGITS.          OUTPTK    574
           251  0311000247 +                      NZ     X1,OFORM.4      CONTINUE IF ANY NON-ZERO DIGITS REMAIN. OUTPTK    575
  
                          67567                   SB5    B6-B7           POSITION THE CONVERTED DIGITS AND       OUTPTK    577
                               22155              LX1    X5,B5             INVOKE 'AFORM' TO APPEND THE DIGITS   OUTPTK    578
           252  73630                             SX6    X3                TO THE OUTPUT LINE.                   OUTPTK    579
                     6170000157 +                 INVOKE AFORM                                                   OUTPTK    580
           254  0400000410 +                      ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.            OUTPTK    581
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    14
             H - FORMAT PROCESSING SECITON
  
                                        ************************************************************************ OUTPTK    583
                                        *                                                                      * OUTPTK    584
                                        *                                                                      * OUTPTK    585
                                        *                       H - FORMAT PROCESSING                          * OUTPTK    586
                                        *                                                                      * OUTPTK    587
                                        *                                                                      * OUTPTK    588
                                        ************************************************************************ OUTPTK    589
  
           255  63760                   HFORM     SB7    X6                                                      OUTPTK    591
                     6152000006                   SB5    B2+6                                                    OUTPTK    592
           256  0657000264 +                      LE     B7,B5,HFORM.2   IF THE CURRENT FORMAT WORD CONTAINS     OUTPTK    593
                                                                           ALL OF THE HOLLERITH TEXT THEN GO     OUTPTK    594
                                                                           TO 'HFORM.2'.                         OUTPTK    595
  
           257  77775                   HFORM.1   SX7    B7-B5           POSITION THE HOLLERITH TEXT IN A-FORM   OUTPTK    597
                     67765                        SB7    B6-B5             FOR PROCESSING BY THE 'AFORM' SECTION OUTPTK    598
                          22172                   LX1    X2,B7             (ALSO SET THE LENGTH OF THE TEXT      OUTPTK    599
                                                                           PORTION FOR 'HFORM').                 OUTPTK    600
  
                               76650              SX6    B5              SET THE LENGTH OF THE CHARACTERS TO BE  OUTPTK    602
                                                                           PROCESSED BY THE 'AFORM' SECTION.     OUTPTK    603
  
           260  5170000013 +                      SA7    HCOUNT          SAVE THE LENGTH OF THE HOLLERITH STRING OUTPTK    605
                                                                           WHICH REMAINS TO BE TRANSMITTED.      OUTPTK    606
  
                          6170000157 +            INVOKE AFORM           INVOKE THE 'AFORM' PROCESSING SECTION,  OUTPTK    608
                                                                           BUT RETURN HERE TO COMPLETE THE       OUTPTK    609
                                                                           H-FORMAT PROCESSING.                  OUTPTK    610
  
           262  54221                             SA2    A2+B1           FETCH THE NEXT FORMAT WORD AND SET THE  OUTPTK    612
                     66560                        SB5    B6                AVAILABLE STRING LENGTH TO SIXTY BITS OUTPTK    613
  
                          5150000013 +            SA5    HCOUNT          LOAD THE LENGTH OF THE REMAINING        OUTPTK    615
           263  63750                             SB7    X5                HOLLERITH TEXT TO BE TRANSMITTED AND  OUTPTK    616
                     0757000257 +                 GT     B7,B5,HFORM.1     IF THIS FORMAT WORD WILL NOT          OUTPTK    617
                                                                           COMPLETELY SATISFY THE TRANSFER TEHN  OUTPTK    618
                                                                           GO TO 'HFORM.1'.                      OUTPTK    619
  
           264  67257                   HFORM.2   SB2    B5-B7           RESET THE FORMAT SHIFT COUNT,           OUTPTK    621
                     67565                        SB5    B6-B5             POSITION THE LAST TEXT SECTION (AND   OUTPTK    622
                          22152                   LX1    X2,B5           THE LENGTH OF THIS SECTION) AND         OUTPTK    623
                               76670              SX6    B7              INVOKE THE 'AFORM' PROCESSING.          OUTPTK    624
           265  6122777771                        SB2    B2-6                                                    OUTPTK    625
                          6170000157 +            INVOKE AFORM                                                   OUTPTK    626
  
           267  0620000412 +                      PL     B2,NEXTDESC     IF THE CURRENT FORMAT WORD HAS BEEN     OUTPTK    628
                          54221                   SA2    A2+B1             EXHAUSTED THEN FETCH THE NEXT WORD    OUTPTK    629
                               66262              SB2    B6+B2             AND ADJUST THE FORMAT POINTERS BEFORE OUTPTK    630
           270  0400000412 +                      ZR     NEXTDESC          RETURNING TO 'NEXTDESC'.              OUTPTK    631
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    15
             DELIM -- HOLLERITH STRING PROCESSING (DELIMITER FORM)
  
                                        ************************************************************************ OUTPTK    634
                                        *                                                                      * OUTPTK    635
                                        *                                                                      * OUTPTK    636
                                        *                HOLLERITH STRING PROCESSING (DELIMITER FORM)          * OUTPTK    637
                                        *                                                                      * OUTPTK    638
                                        *                                                                      * OUTPTK    639
                                        ************************************************************************ OUTPTK    640
  
           271  76350                   DELIM     SX3    B5              PLACE THE STRING DELIMITER INTO         OUTPTK    642
                     6150000006                   SB5    6                 REGISTER X5 AND 6 INTO REGISTER       OUTPTK    643
                                                                           B5 FOR THE DURATION OF STRING         OUTPTK    644
                                                                           PROCESSING.                           OUTPTK    645
  
           272  66760                   DELIM.1   SB7    B6              INITIALIZE FOR ACCUMULATING UP TO TEN   OUTPTK    647
                     13111                        BX1    X1-X1             HOLLERITH CHARACTERS AT A TIME BEFORE OUTPTK    648
                          43766                   MX7    60-6              INVOKING THE 'AFORM' PROCESSING.      OUTPTK    649
  
           273  23422                   DELIM.2   AX4    X2,B2           EXTRACT THE NEXT CHARACTER FROM THE     OUTPTK    651
                     67225                        SB2    B2-B5             FORMAT, UPDATE THE FORMAT POINTERS,   OUTPTK    652
                          15547                   BX5    -X7*X4            AND IF THE END OF THE HOLLERITH       OUTPTK    653
                               37653              IX6    X5-X3             STRING HAS BEEN REACHED THEN GO TO    OUTPTK    654
           274  0620000275 +                      PL     B2,DELIM.3        'DELIM.4'.                            OUTPTK    655
                          66226                   SB2    B2+B6             (RESET FORMAT POINTERS WHEN STEPPING  OUTPTK    656
                               54221              SA2    A2+B1             OVER A WORD BOUNDARY.)                OUTPTK    657
           275  0306000302 +            DELIM.3   ZR     X6,DELIM.4                                              OUTPTK    658
  
                          12151                   BX1    X5+X1           OTHERWISE APPEND THE CHARACTER TO THE   OUTPTK    660
                               67775              SB7    B7-B5             ACCUMULATED STRING AND GO TO          OUTPTK    661
           276  20106                             LX1    6                 'DELIM.2' IF TEN CHARACTERS HAVE NOT  OUTPTK    662
                     0707000273 +                 GT     B7,B0,DELIM.2     YET BEEN ACCUMULATED.                 OUTPTK    663
                               76660              SX6    B6              SET THE 'AFORM' COUNT TO TEN CHARACTERS OUTPTK    664
           277  20166                             LX1    60-6              AND INVOKE THE 'AFORM' PROCESSING.    OUTPTK    665
                     6170000157 +                 INVOKE AFORM                                                   OUTPTK    666
  
           301  6150000006                        SB5    6                                                       OUTPTK    668
                          0400000272 +            ZR     DELIM.1         REENTER THE CYCLE AT 'DELIM.1' TO       OUTPTK    669
                                                                           INITIALIZE.                           OUTPTK    670
  
           302  77667                   DELIM.4  SX6     B6-B7           SET THE COUNT OF ACCUMULATED CHARACTERS OUTPTK    672
                     67775                       SB7     B7-B5                                                   OUTPTK    673
                          22171                  LX1     X1,B7             AND INVOKE THE 'AFORM' PROCESSING IF  OUTPTK    674
           303  0306000410 +                     ZR      X6,NEXTELEM       THERE WERE ANY ACCUMULATED CHARACTERS OUTPTK    675
                          6170000157 +            INVOKE AFORM                                                   OUTPTK    676
  
           305  0400000412 +                      ZR     NEXTDESC        AFTER PROCESSING THE CHARACTERS (IF     OUTPTK    678
                                                                           ANY) RETURN TO 'NEXTDESC' FOR THE     OUTPTK    679
                                                                           THE NEXT FORMAT FIELD DESCRIPTOR.     OUTPTK    680
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    16
             LEFT AND RIGHT PARENTHESIS PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    683
                                        *                                                                      * OUTPTK    684
                                        *                       LEFT PARENTHESIS PROCESSING                    * OUTPTK    685
                                        *                                                                      * OUTPTK    686
                                        *                SAVE THE PREVIOUS GROUP INFORMATION (BEGINNING GROUP  * OUTPTK    687
                                        *             ADDRESS AND GROUP REPEAT COUNT) IN THE LEVEL STACK AND   * OUTPTK    688
                                        *             SET THE CURRENT BEGINNING GROUP ADDRESS AND GROUP REPEAT * OUTPTK    689
                                        *             COUNT.  (IF THIS IS A LEVEL-1 GROUP, THEN ALSO SAVE THE  * OUTPTK    690
                                        *             CURRENT INFORMATION FOR RESTART PURPOSES WHEN THE END OF * OUTPTK    691
                                        *             THE FORMAT IS REACHED.)                                  * OUTPTK    692
                                        *                                                                      * OUTPTK    693
                                        ************************************************************************ OUTPTK    694
  
           306  5130000012 +            LPFORM    SA3    GROUPADR                                                OUTPTK    696
                          5150000007 +            SA5    GRC                                                     OUTPTK    697
           307  76420                             SX4    B2                                                      OUTPTK    698
                     20322                        LX3    18                                                      OUTPTK    699
                          74620                   SX6    A2                                                      OUTPTK    700
                               20422              LX4    18                                                      OUTPTK    701
           310  12746                             BX7    X4+X6                                                   OUTPTK    702
                     5140000011 +                 SA4    LEVEL           (THE LEVEL NUMBER STORED IN 'LEVEL' IS  OUTPTK    703
                                                                           ONE LESS THAN THE GROUP LEVEL.)       OUTPTK    704
  
                               54730              SA7    A3              SET THE BEGINNING ADDRESS OF THE        OUTPTK    706
                                                                           CURRENT FORMAT GROUP.                 OUTPTK    707
           311  12635                             BX6    X3+X5                                                   OUTPTK    708
                     22307                        LX3    X7                                                      OUTPTK    709
                          5150000004 +            SA5    R                                                       OUTPTK    710
           312  5264000015 +                      SA6    LEVSTACK+1+X4   SAVE THE PREVIOUS GROUP INFORMATION.    OUTPTK    711
                          10755                   BX7    X5                                                      OUTPTK    712
                               73641              SX6    X4+B1                                                   OUTPTK    713
           313  5170000007 +                      SA7    GRC             SET THE CURRENT GROUP REPEAT COUNT.     OUTPTK    714
                          63760                   SB7    X6                                                      OUTPTK    715
                               54640              SA6    A4              INCREMENT THE CURRENT LEVEL NUMBER.     OUTPTK    716
  
           314  0571000412 +                      NE     B7,B1,NEXTDESC  IF THE NEW GROUP LEVEL IS NOT LEVEL ONE OUTPTK    718
                                                                           THEN GO TO 'NEXTDESC',                OUTPTK    719
  
                          20322                   LX3    18              OTHERWISE SAVE THE NEW GROUP REPEAT     OUTPTK    721
                               12737              BX7    X3+X7             COUNT AND BEGINNING ADDRESS FOR       OUTPTK    722
           315  20666                             LX6    3*18              POSSIBLE USE AS A RESTART POSITION    OUTPTK    723
                     36767                        IX7    X6+X7             WHEN THE END OF THE FORMAT STRING IS  OUTPTK    724
                          5170000021 +            SA7    RESCAN            REACHED                               OUTPTK    725
           316  0400000412 +                      EQ     NEXTDESC                                                OUTPTK    726
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    17
             LEFT AND RIGHT PARENTHESIS PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    728
                                        *                                                                      * OUTPTK    729
                                        *                   RIGHT PARENTHESIS PROCESSING                       * OUTPTK    730
                                        *                                                                      * OUTPTK    731
                                        *                                                                      * OUTPTK    732
                                        ************************************************************************ OUTPTK    733
  
           317  5150000007 +            RPFORM    SA5    GRC                                                     OUTPTK    735
                          43773                   MX7    59                                                      OUTPTK    736
                               36657              IX6    X5+X7                                                   OUTPTK    737
           320  0306000323 +                      ZR     X6,RPFORM.1     IF THE GROUP REPEAT COUNT IS EXHAUSTED  OUTPTK    738
                                                                           THEN GO TO 'RPFORM.1'.                OUTPTK    739
  
                          5140000012 +            SA4    GROUPADR        OTHERWISE RESET THE FORMAT POINTERS TO  OUTPTK    741
           321  53240                             SA2    X4                THE BEGINNING OF THE CURRENT GROUP    OUTPTK    742
                     21422                        AX4    18                                                      OUTPTK    743
                          54650                   SA6    A5                                                      OUTPTK    744
                               63240              SB2    X4                                                      OUTPTK    745
           322  0400000412 +                      ZR     NEXTDESC        GO TO 'NEXTDESC' FOR HTE NEXT FORMAT    OUTPTK    746
                                                                           DESCRIPTOR.                           OUTPTK    747
  
           323  5130000011 +            RPFORM.1  SA3    LEVEL                                                   OUTPTK    749
                          0303000327 +            ZR     X3,RPFORM.2     IF THIS IS THE END OF THE FORMAT THEN   OUTPTK    750
                                                                           GO TO 'RPFORM.2'.                     OUTPTK    751
  
  
           324  5243000014 +                      SA4    LEVSTACK+X3     OTHERWISE RESET THE PARENTHESIS GROUP   OUTPTK    753
                          36637                   IX6    X3+X7             INFORMATION AND DECREMENT THE LEVEL   OUTPTK    754
                               73740              SX7    X4                                                      OUTPTK    755
           325  54630                             SA6    A3                                                      OUTPTK    756
                     21422                        AX4    18                                                      OUTPTK    757
                          54750                   SA7    A5                                                      OUTPTK    758
                               10644              BX6    X4                                                      OUTPTK    759
           326  5160000012 +                      SA6    GROUPADR                                                OUTPTK    760
                          0400000412 +            ZR     NEXTDESC        GO TO 'NEXTDESC' FOR THE NEXT FORMAT    OUTPTK    761
                                                                           DESCRIPTOR.                           OUTPTK    762
  
           327  5130000000 C             RPFORM.2 SA3    CONTINUE                                                OUTPTK    764
                          0313000331 +            NZ     X3,RPFORM3  IF EXPLICIT CONTINUATION MODE               OUTPTK    765
           330  6170000357 +                      INVOKE SLASH       OUTPUT THE CURRENT LINE                     OUTPTK    766
                                                                                                                 OUTPTK    767
           331  5130000021 +             RPFORM3  SA3    RESCAN      RESET THE FORMAT POINTERS AND THE CURRENT   OUTPTK    768
                          73730                   SX7    X3                CURRENT GROUP INFORMATION TO RESTART  OUTPTK    769
                               21322              AX3    18                THE FORMAT SCAN.                      OUTPTK    770
           332  53230                             SA2    X3                                                      OUTPTK    771
                     10633                        BX6    X3                                                      OUTPTK    772
                          5170000007 +            SA7    GRC                                                     OUTPTK    773
           333  21322                             AX3    18                                                      OUTPTK    774
                     5160000012 +                 SA6    GROUPADR                                                OUTPTK    775
                               63230              SB2    X3                                                      OUTPTK    776
           334  21322                             AX3    18                                                      OUTPTK    777
                     10633                        BX6    X3                                                      OUTPTK    778
                          5160000011 +            SA6    LEVEL                                                   OUTPTK    779
           335  0704000412 +                      GT     B4,B0,NEXTDESC  IF ANY MORE ITEMS REMAIN TO BE          OUTPTK    780
                                                                           CONVERTED THEN GO TO 'NEXTDESC',      OUTPTK    781
                          5170000022 +            SA7    PARENFLG                                                OUTPTK    782
           336  0400000107 +                      ZR     OUTPTCX         OTHERWISE EXIT.                         OUTPTK    783
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    18
             T - FORMAT PROCESSING SECTION
  
                                        **        T - FORMAT PROCESSING                                          OUTPTK    785
  
           337  5140000027 +            TFORM     SA4    OUTADDR         CALCULATE THE CURRENT DISTANCE FROM THE OUTPTK    787
                          37004                   IX0    X0-X4             BEGINNING OF THE LINE (IN BITS).      OUTPTK    788
                               22710              LX7    X0,B1                                                   OUTPTK    789
           340  5150000535 +                      SA5    =60.0                                                   OUTPTK    790
                          20005                   LX0    5                                                       OUTPTK    791
                               37707              IX7    X0-X7                                                   OUTPTK    792
           341  22017                             LX0    X7,B1                                                   OUTPTK    793
                     63303                        SB3    X0+B3             (CURRENT DISTANCE.)                   OUTPTK    794
                          5140000020 +            SA4    MAXCOUNT                                                OUTPTK    795
           342  63560                             SB5    X6                (POSITION TO TABULATE TO, IN BITS.)   OUTPTK    796
                     13333                        BX3    X3-X3                                                   OUTPTK    797
                          0735000352 +            GT     B5,B3,TFORM.2   IF A TAB FORWARD THEN GO TO 'TFORM.2'.  OUTPTK    798
  
           343  63740                             SB7    X4              SINCE THIS IS A TAB BACKWARD, SET       OUTPTK    800
                     0673000344 +                 LE     B3,B7,TFORM.1     'MAXCOUNT' TO THE MAXIMUM OF THE      OUTPTK    801
                               54640              SA6    A4                PREVIOUS VALUE OF 'MAXCOUNT' AND THE  OUTPTK    802
                                                                           CURRENT DISTANCE TO THE BEGINNING OF  OUTPTK    803
                                                                           THE LINE.                             OUTPTK    804
  
           344  27406                   TFORM.1   PX4    X6              RESET THE LINE POINTERS TO REFLECT      OUTPTK    806
                     44745                        FX7    X4/X5             THE POSITION TABULATED TO.            OUTPTK    807
                          5140000027 +            SA4    OUTADDR                                                 OUTPTK    808
           345  26577                             UX5    X7,B7                                                   OUTPTK    809
                     22775                        LX7    X5,B7                                                   OUTPTK    810
                          36074                   IX0    X7+X4                                                   OUTPTK    811
                               22517              LX5    X7,B1                                                   OUTPTK    812
           346  36455                             IX4    X5+X5                                                   OUTPTK    813
                     20706                        LX7    6                                                       OUTPTK    814
                          37474                   IX4    X7-X4                                                   OUTPTK    815
                               63740              SB7    X4                                                      OUTPTK    816
           347  67357                             SB3    B5-B7                                                   OUTPTK    817
                     0303000412 +                 ZR     X3,NEXTDESC     IF NO SPACING TO BE DONE THEN RETURN    OUTPTK    818
                               10633              BX6    X3              OTHERWISE CALL 'SPACE' TO COMPLETE THE  OUTPTK    819
           350  0100000455 +                      CALL   SPACE             TABULATION.                           OUTPTK    820
           351  0400000412 +                      ZR     NEXTDESC        RETURN FOR THE NEXT FORMAT DESCRIPTOR.  OUTPTK    821
  
           352  63740                   TFORM.2   SB7    X4              IF THIS TAB FORWARD DOES NOT EXCEED THE OUTPTK    823
                     0673000353 +                 LE     B3,B7,TFORM.3     MAXIMUM PREVIOUS LINE LENGTH ATTAINED OUTPTK    824
                               66730              SB7    B3                THEN GO TO 'IFORM.1' TO RESET THE     OUTPTK    825
           353  0675000344 +             TFORM.3  LE     B5,B7,TFORM.1     LINE POINTERS.                        OUTPTK    826
  
                          77357                   SX3    B5-B7           OTHERWISE PERFORM THE TAB BY HAVING THE OUTPTK    828
                               10644              BX6    X4                LINE POINTERS RESET TO THE MAXIMUM    OUTPTK    829
           354  63540                             SB5    X4                LINE LENGTH AND THEN SPACING OUT TO   OUTPTK    830
                     0400000344 +                 EQ     TFORM.1           THE POSITION TO BE TABULATED TO       OUTPTK    831
                                                                                                                 OUTPTK    832
                                        **        X - FORMAT PROCESSING                                          OUTPTK    833
  
           355                          XFORM     FORM                                                           OUTPTK    835
           355  0100000455 +                      CALL   SPACE           CALL 'SPACE' TO SPACE THE SPECIFIED     OUTPTK    836
           356  0400000412 +                      ZR     NEXTDESC          NUMBER OF POSITIONS AND THE RETURN.   OUTPTK    837
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    19
             SLASH -- LINE OUTPUT PROCESSING
  
                                        ************************************************************************ OUTPTK    839
                                        *                                                                      * OUTPTK    840
                                        *                                                                      * OUTPTK    841
                                        *                S L A S H -- LINE OUTPUT PROCESSING                   * OUTPTK    842
                                        *                                                                      * OUTPTK    843
                                        *                                                                      * OUTPTK    844
                                        ************************************************************************ OUTPTK    845
  
           357                          SLASH     FORM                                                           OUTPTK    847
           357  74520                             SX5    A2              SAVE THE CURRENT FORMAT POINTERS, THE   OUTPTK    848
                     27625                        PX6    X5,B2             THE HOLD REGISTER (REGISTER X3),      OUTPTK    849
                          10733                   BX7    X3              AND THE DATA ITEM POINTERS.             OUTPTK    850
                               74410              SX4    A1                                                      OUTPTK    851
           360  5160000024 +                      SA6    RESETFMT                                                OUTPTK    852
                          5170000025 +            SA7    RESETX3                                                 OUTPTK    853
           361  27644                             PX6    X4,B4                                                   OUTPTK    854
                     6140000060                   SB4    8*6                                                     OUTPTK    855
                               53500              SA5    X0                                                      OUTPTK    856
           362  5160000026 +                      SA6    RESETITM                                                OUTPTK    857
                          5140000027 +            SA4    OUTADDR                                                 OUTPTK    858
           363  37704                             IX7    X0-X4           IF THE CURRENT LINE POSITION IS NOT THE OUTPTK    859
                     66511                        SB5    B1+B1             MAXIMUM POSITION ATTAINED THEN RESET  OUTPTK    860
                          22657                   LX6    X7,B5             THE LINE POINTERS TO POINT TO THE END OUTPTK    861
                               20706              LX7    6                                                       OUTPTK    862
           364  5130000020 +                      SA3    MAXCOUNT          OF THE LINE.                          OUTPTK    863
                          37576                   IX5    X7-X6                                                   OUTPTK    864
                               73753              SX7    X5+B3                                                   OUTPTK    865
           365  37673                             IX6    X7-X3                                                   OUTPTK    866
                     27303                        PX3    X3                                                      OUTPTK    867
                          0326000371 +            PL     X6,SLASH.1      GO TO 'SLASH.1' IF THE CURRENT POSITION OUTPTK    868
                                                                           IS THE FARTHEST.                      OUTPTK    869
  
           366  5150000536 +                      SA5    =0.01666666667  (ONE SIXTIETH)                          OUTPTK    871
                          40753                   FX7    X5*X3             (INTEGRAL PORTION OF BITCOUNT/60)     OUTPTK    872
                               42653              DX6    X5*X3             (FRACTIONAL PART OF BITCOUNT/60)      OUTPTK    873
           367  5150000537 +                      SA5    =60.000000001   (SIXTY WITH A ROUND FACTOR.)            OUTPTK    874
                          36374                   IX3    X7+X4             (ADDRESS OF LAST WORD IN LINE)        OUTPTK    875
                               73030              SX0    X3                                                      OUTPTK    876
           370  40656                             FX6    X5*X6             (SET REMAINDER OF BITCOUNT/60)        OUTPTK    877
                     63360                        SB3    X6                                                      OUTPTK    878
           371  5130000540 +            SLASH.1   SA3    =8L                                                     OUTPTK    879
                          63640                   SB6    X4              (B6) = LINE FWA                         OUTPTK    880
                               53500              SA5    X0                                                      OUTPTK    881
           372  0643000375 +                      LE     B3,B4,SLASH.2   IF THE LAST WORD OF THE LINE CONTAINS   OUTPTK    882
                                                                           ENOUGH ROOM FOR THE LINE TERMINATOR   OUTPTK    883
                                                                           THEN GO TO 'SLASH.2'.                 OUTPTK    884
  
                          43766                   MX7    60-6            OTHERWISE FILL OUT THE WORD WITH A      OUTPTK    886
                               11575              BX5    X7*X5             BLANK AND MOVE THE POINTERS TO THE    OUTPTK    887
           373  7170000055                        SX7    1R                NEXT WORD (INDICATING THAT IT IS      OUTPTK    888
                          36657                   IX6    X5+X7             EMPTY OF COURSE).                     OUTPTK    889
                               53501              SA5    X0+B1                                                   OUTPTK    890
           374  66300                             SB3    B0                                                      OUTPTK    891
                     53600                        SA6    X0                                                      OUTPTK    892
  
           375  43001                   SLASH.2   MX0    1               TERMINATE THE LINE WITH A ZERO BYTE AND OUTPTK    894
                     67531                        SB5    B3-B1             BLANK FILL (IF NECESSARY).            OUTPTK    895
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    20
             SLASH -- LINE OUTPUT PROCESSING
  
                          23050                   AX0    X0,B5                                                   OUTPTK    896
                               10700              BX7    X0                                                      OUTPTK    897
           376  67761                             SB7    B6-B1                                                   OUTPTK    898
                     21773                        AX7    59                                                      OUTPTK    899
                          11070                   BX0    X7*X0                                                   OUTPTK    900
                               11505              BX5    X0*X5                                                   OUTPTK    901
           377  65757                             SB7    A5-B7           (B7) = LINE LENGTH (WORDS)              OUTPTK    902
                     15330                        BX3    -X0*X3                                                  OUTPTK    903
                          36653                   IX6    X5+X3                                                   OUTPTK    904
                               54650              SA6    A5              (LAST WORD WITH TERMINATOR.)            OUTPTK    905
                                                                                                                 OUTPTK    906
                                        *         WRITE LINE TO FILE.                                            OUTPTK    907
                                        *         AT PRESENT, FILE IS RESTRICTED TO -OUTPUT-.                    OUTPTK    908
                                                                                                                 OUTPTK    909
           400  7160000000                        LISTL  B6,B7           LINE TO SOURCE LISTING FILE             OUTPTK    910
                                                                                                                 OUTPTK    911
           401  5150000024 +            SLASH.4   SA5    RESETFMT        RESET THE FORMAT POINTERS, THE DATA     OUTPTK    912
                          26725                   UX7    X5,B2             POINTERS, THE SPECIAL REGISTER (X3),  OUTPTK    913
                               53250              SA2    X5                AND THE REGISTERS WITH CONSTANT VALUE OUTPTK    914
           402  5140000026 +                      SA4    RESETITM                                                OUTPTK    915
                          5150000002 +            SA5    TEMPA0.                                                 OUTPTK    916
           403  53050                             SA0    X5                                                      OUTPTK    917
                     26744                        UX7    X4,B4                                                   OUTPTK    918
                          53140                   SA1    X4                                                      OUTPTK    919
           404  5130000025 +                      SA3    RESETX3                                                 OUTPTK    920
                          6110000001              SB1    1                                                       OUTPTK    921
           405  5150000027 +                      SA5    OUTADDR                                                 OUTPTK    922
                          6160000074              SB6    60                                                      OUTPTK    923
           406  13666                             BX6    X6-X6                                                   OUTPTK    924
                     73050                        SX0    X5                                                      OUTPTK    925
                          5160000020 +            SA6    MAXCOUNT                                                OUTPTK    926
           407  66300                             SB3    B0                                                      OUTPTK    927
                     0400000440 +                 ZR     RETURNX         RETURN TO THE CALLER.                   OUTPTK    928
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    21
             FORMAT ITEM-DATA ITEM CONTROL
  
           410  5150000004 +            NEXTELEM  SA5    R               REDUCE THE FIELD DESCRIPTOR REPEAT      OUTPTK    930
                          43473                   MX4    59                COUNT AND ALSO DECREMENT THE COUNT    OUTPTK    931
                               36754              IX7    X5+X4             OF THE NUMBER OF DATA ITEMS TO BE     OUTPTK    932
           411  67441                             SB4    B4-B1             CONVERTED.                            OUTPTK    933
                     54750                        SA7    A5                                                      OUTPTK    934
                          0317000432 +            NZ     X7,IFNOMORE     IF THE REPEAT COUNT FOR THE CURRENT     OUTPTK    935
                                                                           FIELD DESCRIPTOR HAS NOT BEEN         OUTPTK    936
                                                                           EXHAUSTED THEN GO TO 'IFNOMORE'.      OUTPTK    937
  
           412                          NEXTDESC  BSS    0               (ENTER HERE FOR NEXT FIELD DESCRIPTOR.) OUTPTK    939
  
           412  23422                   NEXT.1    AX4    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER (AND  OUTPTK    941
                     76610                        SX6    B1                UPDATE THE FORMAT POINTERS).          OUTPTK    942
                          5150000000 +            SA5    DIGMASK                                                 OUTPTK    943
           413  0702000414 +                      GT     B2,B0,NEXT.2                                            OUTPTK    944
                          66260                   SB2    B6                                                      OUTPTK    945
                               54221              SA2    A2+B1                                                   OUTPTK    946
           414  43766                   NEXT.2    MX7    60-6            USE THE FUNCTION 'DECIMAL' TO OBTAIN    OUTPTK    947
                     15447                        BX4    -X7*X4            THE BINARY VALUE OF THE REPEAT COUNT  OUTPTK    948
                          63540                   SB5    X4                (ASSUME A VALUE OF ONE IF NO REPEAT   OUTPTK    949
                               22355              LX3    X5,B5             COUNT IS PRESENT).                    OUTPTK    950
           415  6122777771                        SB2    B2-6                                                    OUTPTK    951
                          0323000421 +            PL     X3,NEXT.4                                               OUTPTK    952
           416  7264777744                        SX6    X4-1R0                                                  OUTPTK    953
                          0100000452 +            RJ     DECIMAL                                                 OUTPTK    954
           417  0702000420 +                      GT     B2,B0,NEXT.3    (ADVANCE BEYOND THE CHARACTER WHICH     OUTPTK    955
                          66260                   SB2    B6                TERMINATED THE DECIMAL CONVERSION.)   OUTPTK    956
                               54221              SA2    A2+B1                                                   OUTPTK    957
           420  6122777771              NEXT.3    SB2    B2-6                                                    OUTPTK    958
  
           421  5150000001 +            NEXT.4    SA5    NEEDW           IF THE FORMAT ELEMENT IS A FIELD        OUTPTK    960
                          5160000004 +            SA6    R                 DESCRIPTOR AND NEEDS A WIDTH VALUE    OUTPTK    961
           422  5160000005 +                      SA6    W                 (EG. A-FORMAT, I-FORMAT, ETC.) THEN   OUTPTK    962
                          22555                   LX5    X5,B5             USE THE FUNCTION 'DECIMAL' AGAIN TO   OUTPTK    963
                               20473              LX4    -1                CONVERT THE NEEDED VALUE.             OUTPTK    964
           423  5234000030 +                      SA3    FORMS+X4                                                OUTPTK    965
                          0334000425 +            MI     X4,NEXT.5         (ALSO STORE AWAY THE ADDRESS OF THE   OUTPTK    966
           424  20336                             LX3    30                PROPER PROCESSING SECTION FOR THE     OUTPTK    967
           425  10633                   NEXT.5    BX6    X3                FORMAT DESCRIPTOR.)                   OUTPTK    968
                     5160000006 +                 SA6    GOCELL                                                  OUTPTK    969
           426  0325000433 +                      PL     X5,NEXT.6         GO TO 'NEXT.6' IF NO DATA ITEM IS     OUTPTK    970
                                                                           REQUIRED (I.E. NO WIDTH VALUE NEEDED) OUTPTK    971
  
                          5150000000 +            SA5    DIGMASK         SETUP DIGIT MASK FOR 'DECIMAL'          OUTPTK    973
           427  66750                             SB7    B5                                                      OUTPTK    974
                     13666                        BX6    X6-X6                                                   OUTPTK    975
                          0100000452 +            RJ     DECIMAL                                                 OUTPTK    976
           430  5160000005 +                      SA6    W                                                       OUTPTK    977
                          5150000006 +    SA5 GOCELL                                                             OUTPTK    978
           431  7265777440 -              SX6 X5-TFORM                                                           OUTPTK    979
                          0306000433 +    ZR X6,NEXT.6                                                           OUTPTK    980
  
  
           432  0604000107 +            IFNOMORE  LE     B4,B0,OUTPTCX   IF NO MORE ITEMS ARE LEFT THEN RETURN.  OUTPTK    982
                          54111                   SA1    A1+B1             (ELSE FETCH THE NEXT ITEM.)           OUTPTK    983
  
           433  5150000005 +            NEXT.6    SA5    W               CALL THE PROPER PROCESSING SECTION      OUTPTK    985
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    22
             FORMAT ITEM-DATA ITEM CONTROL
  
                          36655                   IX6    X5+X5             WITH THE WIDTH VALUE (OR COUNT VALUE  OUTPTK    986
                               22416              LX4    X6,B1             IN THE CASE OF X-FORMAT, H-FORMAT,    OUTPTK    987
           434  5150000006 +                      SA5    GOCELL            ETC.) IN BITS IN REGISTER  X6  AND    OUTPTK    988
                          36646                   IX6    X4+X6             THE DATA ITEM, IF ANY, IN REGISTER    OUTPTK    989
                               63750              SB7    X5                X1.                                   OUTPTK    990
           435  0100000441 +                      RJ     RETURN                                                  OUTPTK    991
  
  
           436  0736000410 +                      LT     B3,B6,NEXTELEM  UPON RETURN FROM THE PROCESSOR UPDATE   OUTPTK    993
                          73001                   SX0    X0+B1             THE OUTPUT LINE POINTERS IF THE END   OUTPTK    994
                               66300              SB3    B0                OF A WORD BOUNDARY HAS BEEN REACHED,  OUTPTK    995
           437  0400000410 +                      ZR     NEXTELEM          THEN GO TO 'NEXTELEM'.                OUTPTK    996
  
  
  
           440  0736000441 +            RETURNX   LT     B3,B6,RETURN    IF THE CURRENT OUTPUT WORD IS NOT FULL  OUTPTK    998
                                                                           THEN GO TO 'RETURN'.                  OUTPTK    999
  
                          73001                   SX0    X0+B1             INCREMENT THE OUTPUT POINTERS.        OUTPTK   1001
                               66300              SB3    B0                                                      OUTPTK   1002
  
           441                     1    RETURN    BSS    1               ENTRY/EXIT INFORMATION FOR INVOKED      OUTPTK   1004
                                                                           PROCESSORS.                           OUTPTK   1005
  
           442  0277000000                        JP     B7              JUMP TO THE APPROPRIATE PROCESSOR.      OUTPTK   1007
  
  
  
                                        **        ILLEGAL - PROCESS ILLEGAL FORMAT SPECIFICATION                 OUTPTK   1009
                                                                                                                 OUTPTK   1010
           443  6170000357 +             ILLEGAL  INVOKE SLASH                                                   OUTPTK   1011
           444  0400400444 +                      EQ     *+1S17      ABORT                                       OUTPTK   1012
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    23
             UTILITY: D E C I M A L 
  
                                        ************************************************************************ OUTPTK   1014
                                        *                                                                      * OUTPTK   1015
                                        *                       DECIMAL                                        * OUTPTK   1016
                                        *                                                                      * OUTPTK   1017
                                        *                THIS FUNCTION WILL CONVERT A STRING OF DECIMAL DIGITS * OUTPTK   1018
                                        *             (FROM THE FORMAT) TO BINARY.  CALLING SEQUENCE --        * OUTPTK   1019
                                        *                                                                      * OUTPTK   1020
                                        *                                RJ  DECIMAL                           * OUTPTK   1021
                                        *                                                                      * OUTPTK   1022
                                        *             WHERE THE FOLLOWING REGISTERS HAVE BEEN SET:             * OUTPTK   1023
                                        *                                X5 -- 'DIGMASK'                       * OUTPTK   1024
                                        *                                X6 -- INITIAL VALUE OF NUMBER         * OUTPTK   1025
                                        *                                X7 -- 7777 7777 7777 7777 7700B       * OUTPTK   1026
                                        *                                                                      * OUTPTK   1027
                                        *             UPON RETURN REGISTER  X6  WILL CONTAIN THE CONVERTED     * OUTPTK   1028
                                        *             NUMBER AND REGISTER  X4  WILL CONTAIN THE TERMINATING    * OUTPTK   1029
                                        *             (NON-DIGIT) CHARACTER, THE FORMAT POINTERS WILL NOT      * OUTPTK   1030
                                        *             HAVE BEEN UPDATED TO REFLECT THE EXTRACTION OF THE       * OUTPTK   1031
                                        *             TERMINATING CHARACTER.                                   * OUTPTK   1032
                                        *                                                                      * OUTPTK   1033
                                        ************************************************************************ OUTPTK   1034
  
           445  36366                   DEC.1     IX3    X6+X6           MULTIPLY THE ACCUMULATED NUMBER BY TEN  OUTPTK   1036
                     20603                        LX6    3                 AND ADD THE DIGIT JUST ENCOUNTERED.   OUTPTK   1037
                          7244777744              SX4    X4-1R0                                                  OUTPTK   1038
           446  36363                             IX3    X6+X3                                                   OUTPTK   1039
                     6122777771                   SB2    B2-6                                                    OUTPTK   1040
                               36634              IX6    X3+X4                                                   OUTPTK   1041
           447  0620000450 +                      PL     B2,DEC.2                                                OUTPTK   1042
                          66262                   SB2    B6+B2                                                   OUTPTK   1043
                               54221              SA2    A2+B1                                                   OUTPTK   1044
           450  23322                   DEC.2     AX3    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER AND   OUTPTK   1045
                     15437                        BX4    -X7*X3          IF IT IS A DIGIT THE CYCLE.             OUTPTK   1046
                          63540                   SB5    X4                                                      OUTPTK   1047
                               22355              LX3    X5,B5                                                   OUTPTK   1048
           451  0333000445 +                      MI     X3,DEC.1                                                OUTPTK   1049
                                                                           OTHERWISE RETURN.                     OUTPTK   1050
  
           452                     1    DECIMAL   BSS    1                                                       OUTPTK   1052
           453  23322                             AX3    X2,B2                                                   OUTPTK   1053
                     15437                        BX4    -X7*X3                                                  OUTPTK   1054
                          63540                   SB5    X4                                                      OUTPTK   1055
                               22355              LX3    X5,B5                                                   OUTPTK   1056
           454  0333000445 +                      MI     X3,DEC.1                                                OUTPTK   1057
                          0400000452 +            ZR     DECIMAL                                                 OUTPTK   1058
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    24
             UTILITY:  S P A C E
  
                                        ************************************************************************ OUTPTK   1060
                                        *                                                                      * OUTPTK   1061
                                        *                       S P A C E                                      * OUTPTK   1062
                                        *                                                                      * OUTPTK   1063
                                        *                THIS ROUTINE WILL APPEND A DESIGNATED NUMBER OF       * OUTPTK   1064
                                        *             SPACES TO THE CURRENT OUTPUT LINE AND RETURN WITH THE    * OUTPTK   1065
                                        *             LINE POINTERS UPDATED.                                   * OUTPTK   1066
                                        *                                                                      * OUTPTK   1067
                                        *                CALLING SEQUENCE--                                    * OUTPTK   1068
                                        *                                                                      * OUTPTK   1069
                                        *                       CALL  SPACE                                    * OUTPTK   1070
                                        *                                                                      * OUTPTK   1071
                                        *             WHERE REGISTER X6 HAS BEEN SET TO THE NUMBER OF BITS TO  * OUTPTK   1072
                                        *             BE FILLED BY BLANK CHARACTERS (I.E. SIX TIMES THE NUMBER * OUTPTK   1073
                                        *             OF BLANK CHARACTERS TO BE APPENDED).                     * OUTPTK   1074
                                        *                                                                      * OUTPTK   1075
                                        *                REGISTERS USED--  X4, X5, X6, X7                      * OUTPTK   1076
                                        *                                  A4, A5, A6                          * OUTPTK   1077
                                        *                                      B5,     B7                      * OUTPTK   1078
                                        *                                                                      * OUTPTK   1079
                                        *             THE NORMAL 'OUTPTK' REGISTER USAGES ARE ASSUMED          * OUTPTK   1080
                                        *             (I.E. B1=1, B6=60, X0=CURRENT OUTPUT WORD ADDRESS, ETC.).* OUTPTK   1081
                                        *                                                                      * OUTPTK   1082
                                        ************************************************************************ OUTPTK   1083
  
           455  0200400455 +            SPACE     ROUTINE                                                        OUTPTK   1085
           456  63760                             SB7    X6              (SET REGISTER B7 TO THE SPACE COUNT AND OUTPTK   1086
                     67563                        SB5    B6-B3             REGISTER X5 TO AN ALL BLANK WORD.)    OUTPTK   1087
                          5150000533 +            SA5    =10H                                                    OUTPTK   1088
           457  0775000466 +                      LT     B7,B5,SPACE.3   IF THE NUMBER OF COLUMNS TO SPACE LIES  OUTPTK   1089
                                                                           WITHIN THE CURRENT OUTPUT WORD BUT    OUTPTK   1090
                                                                           DOES NOT FILL IT, GO TO 'SPACE.3',    OUTPTK   1091
                          43401                   MX4    1               OTHERWISE FILL OUT THE CURRENT OUTPUT   OUTPTK   1092
                               67775              SB7    B7-B5             WORD WITH BLANKS.                     OUTPTK   1093
           460  67531                             SB5    B3-B1                                                   OUTPTK   1094
                     23454                        AX4    X4,B5                                                   OUTPTK   1095
                          10744                   BX7    X4                                                      OUTPTK   1096
                               21473              AX4    59                                                      OUTPTK   1097
           461  11747                             BX7    X4*X7                                                   OUTPTK   1098
                     15657                        BX6    -X7*X5                                                  OUTPTK   1099
                          53400                   SA4    X0                                                      OUTPTK   1100
                               11774              BX7    X7*X4                                                   OUTPTK   1101
           462  36676                             IX6    X7+X6                                                   OUTPTK   1102
                     53600                        SA6    X0                                                      OUTPTK   1103
                          0776000465 +            LT     B7,B6,SPACE.2   IF THE NUMBER OF BLANKS LEFT TO BE      OUTPTK   1104
                                                                           APPENDED WILL NOT FILL A COMPLETE     OUTPTK   1105
                                                                           WORD THEN GO TO 'SPACE.2',            OUTPTK   1106
  
           463  10655                             BX6    X5              OTHERWISE FILL AS MANY COMPLETE WORDS   OUTPTK   1108
           464  67776                   SPACE.1   SB7    B7-B6             AS NECESSARY UNTIL ONLY A PARTIAL     OUTPTK   1109
                     54661                        SA6    A6+B1             (OR NO) WORD REMAINS.                 OUTPTK   1110
                          0676000464 +            GE     B7,B6,SPACE.1                                           OUTPTK   1111
  
           465  74061                   SPACE.2   SX0    A6+B1           UPDATE THE OUTPUT LINE POINTERS.        OUTPTK   1113
                     66300                        SB3    B0                                                      OUTPTK   1114
  
           466  0470000455 +            SPACE.3   ZR     B7,SPACE        RETURN IF THERE ARE NO MORE SPACES TO   OUTPTK   1116
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    25
             UTILITY:  S P A C E
  
                                                                           APPEND,                               OUTPTK   1117
                          67563                   SB5    B6-B3           OTHERWISE APPEND THE SPACES, UPDATE THE OUTPTK   1118
                               43401              MX4    1                 LINE POINTERS AND RETURN.             OUTPTK   1119
           467  66337                             SB3    B3+B7                                                   OUTPTK   1120
                     67771                        SB7    B7-B1                                                   OUTPTK   1121
                          23774                   AX7    X4,B7                                                   OUTPTK   1122
                               53400              SA4    X0                                                      OUTPTK   1123
           470  22757                             LX7    X7,B5                                                   OUTPTK   1124
                     11575                        BX5    X7*X5                                                   OUTPTK   1125
                          15447                   BX4    -X7*X4                                                  OUTPTK   1126
                               36645              IX6    X4+X5                                                   OUTPTK   1127
           471  53600                             SA6    X0                                                      OUTPTK   1128
                     0400000455 +                 ZR     SPACE                                                   OUTPTK   1129
  
  
  
                                        **        SETST - SET SUB TITLE LINE                                     OUTPTK   1131
                                        *                                                                        OUTPTK   1132
                                        *         CALL SETST( WDS , "SUBTITLE" )                                 OUTPTK   1133
                                                                                                                 OUTPTK   1134
           472  7160000001               SETST0   SX6    1                                                       OUTPTK   1135
                          5160000000 X            SA6    =XN$STITL                                               OUTPTK   1136
           473  7170003355                        SX7    2R0                                                     OUTPTK   1137
                          20760                   LX7    48                                                      OUTPTK   1138
           474  5170000000 X                      SA7    =XF$STITL                                               OUTPTK   1139
                                                                                                                 OUTPTK   1140
           475                           SETST    ENTRY. **                                                      OUTPTK   1141
           476  53410                             SA4    X1                                                      OUTPTK   1142
                     6110000001                   SB1    1                                                       OUTPTK   1143
           477  0304000472 +                      ZR     X4,SETST0   IF WDS = 0    */ NO SUBSTITLE               OUTPTK   1144
                          10644                   BX6    X4                                                      OUTPTK   1145
           500  5160000000 X                      SA6    N$STITL                                                 OUTPTK   1146
                          54211                   SA2    A1+B1                                                   OUTPTK   1147
                               73140              MOVE   X4,X2,F$STITL                                           OUTPTK   1148
           502  5110000000 X                      SA1    =XN$LINES   LINES WRITTEN                               OUTPTK   1149
                          5130000000 X            SA3    =XCO.PS                                                 CCGA012     4
           503  37531                             IX5    X3-X1                                                   OUTPTK   1151
                     7215777772                   SX1    X5-5                                                    OUTPTK   1152
           504  0321000506 +                      PL     X1,SETST1   IF MORE THAN 4 LEFT                         OUTPTK   1153
                          7263000001              SX6    X3+1        FORCE AN EJECT                              OUTPTK   1154
           505  54610                             SA6    A1                                                      OUTPTK   1155
                                                                                                                 OUTPTK   1156
           506  6160000541 +             SETST1   LISTL  (=2C  ),1                                               OUTPTK   1157
           510  5110000000 X                      SA1    N$STITL                                                 OUTPTK   1158
                          6160000000 X            LISTL  F$STITL,X1                                              OUTPTK   1159
           513  0400000475 +                      EQ     SETST                                                   OUTPTK   1160
  
  
  
           514                           REMARK   ENTRY.                                                         OUTPTK   1162
           515  73110                             MESSAGE  X1                                                    OUTPTK   1163
           517  0400000514 +                      EQ     REMARK                                                  OUTPTK   1164
                                                                                                                 OUTPTK   1165
                                         .TEST    ENDIF                                                          OUTPTK   1166
                                                                                                                 OUTPTK   1167
           520                           GOTOER.  ENTRY.                                                         OUTPTK   1168
           521  0400400521 +                      EQ     *+1S17                                                  OUTPTK   1169
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    26
             UTILITY:  S P A C E                                      SPA.
  
                                        **        SPA. - SUBSTITUTE PARAMETER ADDRESS"S                          OUTPTK   1171
                                                                                                                 OUTPTK   1172
           522                           SPA.     ENTRY.                                                         OUTPTK   1173
           523  26433                   +         UX4    B3,X3                                                   OUTPTK   1174
                     64500                        SB5    A0                                                      OUTPTK   1175
                          21452                   AX4    42                                                      OUTPTK   1176
                               53145              SA1    X4+B5                                                   OUTPTK   1177
                                                                                                                 OUTPTK   1178
           524  53230                    SPA1     SA2    X3                                                      OUTPTK   1179
                     26433                        UX4    B3,X3                                                   OUTPTK   1180
                          43052                   MX0    42                                                      OUTPTK   1181
                               63410              SB4    X1                                                      OUTPTK   1182
                                                                                                                 OUTPTK   1183
           525  21422                    SPA2     AX4    18                                                      OUTPTK   1184
                     5033000001                   SA3    A3+1                                                    OUTPTK   1185
                               73544              SX5    X4+B4                                                   OUTPTK   1186
           526  22130                             LX1    B3,X0                                                   OUTPTK   1187
                     15650                        BX6    -X0*X5                                                  OUTPTK   1188
                          64220                   SB2    A2                                                      OUTPTK   1189
                               22536              LX5    B3,X6                                                   OUTPTK   1190
           527  11412                             BX4    X1*X2                                                   OUTPTK   1191
                     53230                        SA2    X3                                                      OUTPTK   1192
                          12645                   BX6    X4+X5                                                   OUTPTK   1193
                               26433              UX4    B3,X3                                                   OUTPTK   1194
           530  5162000000                        SA6    B2+                                                     OUTPTK   1195
                          0333000525 +            MI     X3,SPA2                                                 OUTPTK   1196
                                                                                                                 OUTPTK   1197
           531  21452                             AX4    42                                                      OUTPTK   1198
                     53145                        SA1    X4+B5                                                   OUTPTK   1199
                          0530000524 +            NZ     B3,SPA1                                                 OUTPTK   1200
           532  0400000522 +                      EQ     SPA.                                                    OUTPTK   1201
                                                                                                                 OUTPTK   1202
           542                                    END                                                            OUTPTK   1203
  
                             55600B CM  STORAGE USED             1593 STATEMENTS      916 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.589 SECONDS         421 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AFORM         157   PROGRAM*        8/19      8/55 L   11/24     13/34     14/44     15/43
                                            8/34     10/54     13/06     14/26     15/33
        AFORMP        154   PROGRAM*        3/38      8/32 L
        AFORMP()      154   PROGRAM*        8/32 D
        AFORM2WD      164   PROGRAM*        9/01      9/25 L
        AFORM()       157   PROGRAM*        8/55 D
        AFORM.1       160   PROGRAM*        9/03 L    9/40
        APLIST          3   PROGRAM*        3/08 L    4/42 S    6/24      6/34
        BUFFER          2   LINE            3/30      3/33      3/34 L
        CONTINUE        0   LINE            3/32 L    5/17      7/28      7/44 S   17/38
        CO.PS           0   EXTERNAL*      25/36
        DECIMAL       452   PROGRAM*       21/25     21/47     23/39 L   23/45
        DEC.1         445   PROGRAM*       23/23 L   23/36     23/44
        DEC.2         450   PROGRAM*       23/29     23/32 L
        DELIM         271   PROGRAM*        3/47      3/53     15/09 L
        DELIM.1       272   PROGRAM*       15/14 L   15/36
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    27
        SYMBOLIC REFERENCE TABLE. 
  
        DELIM.2       273   PROGRAM*       15/18 L   15/30
        DELIM.3       275   PROGRAM*       15/22     15/25 L
        DELIM.4       302   PROGRAM*       15/25     15/39 L
        DIGMASK         0   PROGRAM*        3/01 L   21/14     21/44
        FA=LOL          0   EXTERNAL*      20/15     25/43     25/45
        FORMAT         10   PROGRAM*        3/13 L    4/25 S
        FORMS          30   PROGRAM*        3/37 L   21/36
        F$STITL         0   EXTERNAL*      25/25 S   25/34     25/45
        GOCELL          6   PROGRAM*        3/11 L   21/40 S   21/49     22/03
        GOTOER.       520   PROGRAM*       25/56 E   25/56 L
        GRC             7   PROGRAM*        3/12 L    4/22 S   16/15     16/32 S   17/08     17/47 S
        GROUPADR       12   PROGRAM*        3/15 L    4/54 S   16/14     17/14     17/34 S   17/49 S
        HCOUNT         13   PROGRAM*        3/16 L   14/23 S   14/33
        HFORM         255   PROGRAM*        3/39     14/09 L
        HFORM.1       257   PROGRAM*       14/15 L   14/35
        HFORM.2       264   PROGRAM*       14/11     14/39 L
        IFNOMORE      432   PROGRAM*        7/49     21/06     21/54 L
        IFORM         173   PROGRAM*        3/40     10/15 L
        IFORMCON      170   PROGRAM*       10/13 L   10/31     11/15
        IFORM()       173   PROGRAM*       10/15 D
        IFORM.1       176   PROGRAM*       10/17     10/24 L
        IFORM.12      177   PROGRAM*       10/25     10/28 L
        IFORM.2       201   PROGRAM*       10/36 L   10/44
        IFORM.3       206   PROGRAM*       10/45     10/49 L
        ILLEGAL       443   PROGRAM*        3/38      3/41      3/44      3/47      3/47      3/51     22/31 L
                                            3/39      3/42      3/45      3/47      3/47      3/53
                                            3/39      3/42      3/45      3/47      3/47      3/53
                                            3/39      3/43      3/46      3/47      3/51      3/53
        INIT.1         71   PROGRAM*        4/29      4/34 L
        INIT.2         72   PROGRAM*        4/35      4/41 L
        INIT.3        105   PROGRAM*        5/26      5/35 L
        INTER         145   PROGRAM*        7/25      7/47 L
        LASTCHAR       64                   2/20 D    3/40 D    3/43 D    3/46 D    3/49 D    3/52 D
                                            3/38 D    3/41 D    3/44 D    3/47 D    3/50 D    3/53 D
                                            3/39 D    3/42 D    3/45 D    3/48 D    3/51 D
        LEVEL          11   PROGRAM*        3/14 L    5/20 S   16/21     17/22     17/53 S
        LEVSTACK       14   PROGRAM*        3/18 L    5/02 S   16/29 S   17/27
        LFORM         210   PROGRAM*        3/41     11/06 L
        LFORM()       210   PROGRAM*       11/06 D
        LFORM.1       213   PROGRAM*       11/08     11/14 L
        LFORM.2       215   PROGRAM*       11/17     11/19 L
        LPFORM        306   PROGRAM*        3/49     16/14 L
        MAXCOUNT       20   PROGRAM*        3/20 L    5/27      5/35 S    7/34     18/11     19/25     20/31 S
        MAXLEVEL        2                   3/17 D    3/18
        MSG=            0   EXTERNAL*      25/51
        MVE=            0   EXTERNAL*      25/34
        NEEDW           1   PROGRAM*        3/02 L   21/31
        NEXTDESC      412   PROGRAM*        3/52      7/51     14/49     16/36     17/19     17/54     18/37     21/10 L
                                            5/39     14/46     15/45     16/44     17/35     18/34     18/53
        NEXTELEM      410   PROGRAM*       13/07     13/35     15/42     21/01 L   22/09     22/12
        NEXT.1        412   PROGRAM*       21/12 L
        NEXT.2        414   PROGRAM*       21/15     21/18 L
        NEXT.3        420   PROGRAM*       21/26     21/29 L
        NEXT.4        421   PROGRAM*       21/23     21/31 L
        NEXT.5        425   PROGRAM*       21/37     21/39 L
        NEXT.6        433   PROGRAM*       21/41     21/51     21/57 L
        N$LINES         0   EXTERNAL*      25/35
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    28
        SYMBOLIC REFERENCE TABLE. 
  
        N$STITL         0   EXTERNAL*      25/22 S   25/32 S   25/44
        OFORM         223   PROGRAM*        3/42     12/17 L
        OFORMCON      217   PROGRAM*       12/11 L   12/20 S   13/12
        OFORM1        224   PROGRAM*       12/15     12/20 L
        OFORM.1       231   PROGRAM*       12/29     12/37 L
        OFORM.2       233   PROGRAM*       12/46 L   12/56
        OFORM.3       244   PROGRAM*       12/25     13/10 L
        OFORM.4       247   PROGRAM*       13/22 L   13/29
        OUTADDR        27   PROGRAM*        3/30 L    4/56      7/29     18/03     18/24     19/20     20/27
        OUTCI.         63   PROGRAM*        4/14 E    4/14 L    6/31      6/38 S    7/38      7/40      7/45
        OUTCR.        115   PROGRAM*        6/33 E    6/33 L    6/35
        OUTPTCX       107   PROGRAM*        6/14 L   17/57     21/54
        PARENFLG       22   PROGRAM*        3/24 L    5/24 S    7/24     17/56 S
        PRESET        121   PROGRAM*        6/28      6/43 L
        PRESET.1      125   PROGRAM*        6/43      6/46      6/57 L
        PRESET.2      130   PROGRAM*        6/29      7/04      7/07 L
        R               4   PROGRAM*        3/09 L   16/28     21/01     21/32 S
        REMARK        514   PROGRAM*       25/50 E   25/50 L   25/52
        RESCAN         21   PROGRAM*        3/21 L    5/03 S   16/43 S   17/42
        RESETFMT       24   PROGRAM*        3/26 L    6/19 S    7/08     19/14 S   20/17
        RESETITM       26   PROGRAM*        3/28 L   19/19 S   20/20
        RESETLIN       23   PROGRAM*        3/25 L    6/16 S    7/07
        RESETX3        25   PROGRAM*        3/27 L   19/15 S   20/25
        RETURN        441   PROGRAM*        7/39     13/06     14/26     15/33     17/40     22/16     22/31
                                           13/03     13/34     14/44     15/43     22/06     22/22 L
        RETURNX       440   PROGRAM*        3/51      9/22     20/33     22/16 L
        RFORM         147   PROGRAM*        3/43      8/10 L   13/03
        RFORM()       147   PROGRAM*        8/10 D
        RFORM.1       152   PROGRAM*        8/12      8/16 L
        RPFORM        317   PROGRAM*        3/50     17/08 L
        RPFORM3       331   PROGRAM*       17/39     17/42 L
        RPFORM.1      323   PROGRAM*       17/11     17/22 L
        RPFORM.2      327   PROGRAM*       17/23     17/38 L
        SETST         475   PROGRAM*       25/27 E   25/27 L   25/46
        SETST0        472   PROGRAM*       25/21 L   25/30
        SETST1        506   PROGRAM*       25/39     25/43 L
        SETUP.1       132   PROGRAM*        7/09      7/13 L
        SETUP.2       143   PROGRAM*        7/30      7/42 L
        SLASH         357   PROGRAM*        3/48      7/39     17/40     19/09 L   22/31
        SLASH()       357   PROGRAM*       19/09 D
        SLASH.1       371   PROGRAM*       19/30     19/41 L
        SLASH.2       375   PROGRAM*       19/44     19/56 L
        SLASH.4       401   PROGRAM*       20/17 L
        SPACE         455   PROGRAM*        8/14     10/20     12/33     18/52     24/57
                                            8/36     11/11     18/36     24/26 L   25/13
        SPACE.1       464   PROGRAM*       24/50 L   24/52
        SPACE.2       465   PROGRAM*       24/45     24/54 L
        SPACE.3       466   PROGRAM*       24/30     24/57 L
        SPA1          524   PROGRAM*       26/09 L   26/30
        SPA2          525   PROGRAM*       26/14 L   26/26
        SPA.          522   PROGRAM*       26/03 E   26/03 L   26/31
        TEMPA0.         2   PROGRAM*        3/07 L    4/18 S    6/20     20/21
        TEST            1   GTX             1/34 F
        TFORM         337   PROGRAM*        3/44     18/03 L   21/50
        TFORM.1       344   PROGRAM*       18/17     18/22 L   18/42     18/47
        TFORM.2       352   PROGRAM*       18/14     18/39 L
        TFORM.3       353   PROGRAM*       18/40     18/42 L
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/05. 19.57.52.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        UNIT           17   PROGRAM*        3/19 L    4/49 S
        W               5   PROGRAM*        3/10 L   21/33 S   21/48 S   21/57
        XFORM         355   PROGRAM*        3/45     18/51 L
        XFORM()       355   PROGRAM*       18/51 D
        ZFORM         221   PROGRAM*        3/46     12/13 L
1         SUBROUTINE DMPIIT     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE DMPIIT( IIT , N , PIC )                             DMPIIT      2    
                                                                                             DMPIIT      3    
                    **        DMP IIT - FORMAT AND LIST INC VALUES AND INC FORMULAS IN *IIT* DMPIIT      4    
                                                                                             DMPIIT      5    
         5                    IMPLICIT INTEGER(A-Z)                                          DMPIIT      6    
                              COMMON/LINE/LINECM(2)                                          DMPIIT      7    
                              INTEGER IIT(N)                                                 DMPIIT      8    
                              COMMON/BVINFO/VL                                               DMPIIT      9    
                              DATA VECNAM / 5L  LE   /                                       DMPIIT     10    
        10                                                                                   DMPIIT     11    
                              FIELD(X,P,L) = SHIFT(X,60-P) .A. .N.MASK(60-L)                 DMPIIT     12    
                    *                                  INC VALUES                            DMPIIT     13    
                              TYP(X) = FIELD(X,48,3)                                         DMPIIT     14    
                              VUDI(X) = FIELD(X,36,12)                                       DMPIIT     15    
        15                    VCA(X) = FIELD(X,18,18)                                        DMPIIT     16    
                              VIH(X) = FIELD(X,0,18)                                         DMPIIT     17    
                    *                                  IA WORD                               DMPIIT     18    
                              NWD(X) = FIELD(X,48,10)                                        DMPIIT     19    
                              CA(X) = FIELD(X,18,18)                                         DMPIIT     20    
        20                    UDI(X) = FIELD(X,1,17)                                         DMPIIT     21    
                    *                                  IB WORD                               DMPIIT     22    
                              NLD(X) = FIELD(X,48,10)                                        DMPIIT     23    
                              ILD(X) = FIELD(X,0,18)                                         DMPIIT     24    
                    *                                          E. WORD OF *RXI*              DMPIIT     25    
        25                    SCR(X) = FIELD(X,59,1)                                         DMPIIT     26    
                              JP(X) = FIELD(X,58,1)                                          DMPIIT     27    
                              ALLP(X) = FIELD(X,57,1)                                        DMPIIT     28    
                              PRED(X) = FIELD(X,33,15)                                       DMPIIT     29    
                              BI(X) = FIELD(X,0,15)                                          DMPIIT     30    
        30                                                                                   DMPIIT     31    
                                                                                             DMPIIT     32    
                              PRINT 1                                                        DMPIIT     33    
                     1        FORMAT(/*   TYP  VAL, INCREMENT VALUES*/)                      DMPIIT     34    
                              LINECM = LINECM(2)                                             DMPIIT     35    
        35                                                                                   DMPIIT     36    
                              DO 10 I = 1,PIC                                                DMPIIT     37    
                              T = TYP(IIT(I))                                                DMPIIT     38    
                              V = VIH(IIT(I))                                                DMPIIT     39    
                              PRINT 2,T                                                      DMPIIT     40    
        40           2        FORMAT(I5)                                                     DMPIIT     41    
                              IF( T .NE. 0 ) GO TO 4                                         DMPIIT     42    
                              PRINT 3,V                                                      DMPIIT     43    
                     3        FORMAT(Z8,*B*/)                                                DMPIIT     44    
                              GO TO 10                                                       DMPIIT     45    
        45                                                                                   DMPIIT     46    
                     4        ITW = IIT(I)                                                   DMPIIT     47    
                              PRINT 5,VCA(ITW),SYM(V),VUDI(ITW)/2                            DMPIIT     48    
                     5        FORMAT(Z8,* + *A7,I5,*UDI*/)                                   DMPIIT     49    
                     10       CONTINUE                                                       DMPIIT     50    
        50                                                                                   DMPIIT     51    
                    *         PRINT OUT THE INCREMENT FORMULAS                               DMPIIT     52    
                                                                                             DMPIIT     53    
                              I = PIC + 1                                                    DMPIIT     54    
                     15       PRINT 11                                                       DMPIIT     55    
        55           11       FORMAT(/)                                                      DMPIIT     56    
                              X = IIT(I)                                                     DMPIIT     57    
                              I = I + 1                                                      DMPIIT     58    
1         SUBROUTINE DMPIIT     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                              IPASS = 0                                                      DMPIIT     59    
                              PRINT 16,I-2,FIELD(X,59,1),FIELD(X,36,18),FIELD(X,18,18) ,     DMPIIT     60    
        60               1    FIELD(X,0,18)                                                  DMPIIT     61    
                     16       FORMAT(Z8*  PI WORD*Z3,3Z6/)                                   DMPIIT     62    
                                                                                             DMPIIT     63    
                     20       ITW = IIT(I)                                                   DMPIIT     64    
                              NW = NWD(ITW)                                                  DMPIIT     65    
        65                    PRINT 21,NW,CA(ITW),UDI(ITW),NLD(IIT(I+1)),ILD(IIT(I+1))       DMPIIT     66    
                     21       FORMAT(10X,*NWD,CA,UDI =*2Z5,I5*  N.LD,ILD =*2Z5/)             DMPIIT     67    
                              J = I + NW                                                     DMPIIT     68    
                              I = I + 2                                                      DMPIIT     69    
                                                                                             DMPIIT     70    
        70           30       PRINT 31                                                       DMPIIT     71    
                     31       FORMAT(10X)                                                    DMPIIT     72    
                              CALL PRNTRLI( IIT(I) )                                         DMPIIT     73    
                              I = I + 4                                                      DMPIIT     74    
                              IF( I .LT. J ) GO TO 30                                        DMPIIT     75    
        75                    IF( IPASS .NE. 0 ) GO TO 35                                    DMPIIT     76    
                              IPASS = 1                                                      DMPIIT     77    
                              GO TO 20                                                       DMPIIT     78    
                                                                                             DMPIIT     79    
                     35       IF( IIT(I) .NE. 0 ) GO TO 15                                   DMPIIT     80    
        80                                                                                   DMPIIT     81    
                              LINECM = 0                                                     DMPIIT     82    
                              RETURN                                                         DMPIIT     83    
                                                                                             DMPIIT     84    
                                                                                             DMPIIT     85    
        85                    ENTRY  PRNTRXI                                                 DMPIIT     86    
                                                                                             DMPIIT     87    
                    *         PRNT RXI - PRINT OUT REGION EXIT INFORMATION ( GPO/FXI )       DMPIIT     88    
                                                                                             DMPIIT     89    
                              I = 2                                                          DMPIIT     90    
        90                                                                                   DMPIIT     91    
                     100      X = IIT(I)                                                     DMPIIT     92    
                              PRINT 101,SCR(X),JP(X),ALLP(X),PRED(X),BI(X)                   DMPIIT     93    
                     101      FORMAT(/*    SCR,JP,ALLP =*3Z2*   PRED,SUCC BN =*2Z5/)         DMPIIT     94    
                              I = I+1                                                        DMPIIT     95    
        95                    CALL PRNTABV( VECNAM , IIT(I) )                                DMPIIT     96    
                              I = I + VL                                                     DMPIIT     97    
                              IF( IIT(I) .NE. 0 ) GO TO 100                                  DMPIIT     98    
                                                                                             DMPIIT     99    
                              RETURN                                                         DMPIIT    100    
       100                                                                                   DMPIIT    101    
                              END                                                            DMPIIT    102    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        34    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        81    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
1         SUBROUTINE DMPIIT     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  DMPIIT         122  PRNTRXI 
  
   VARIABLES     SN  TYPE           RELOCATION  
     317  I         INTEGER                              0  IIT       INTEGER    ARRAY     F.P.   
     324  IPASS     INTEGER                            322  ITW       INTEGER                     
     326  J         INTEGER                              0  LINECM    INTEGER    ARRAY    LINE    
       0  N         INTEGER              F.P.          325  NW        INTEGER                     
       0  PIC       INTEGER              F.P.          320  T         INTEGER                     
     321  V         INTEGER                            173  VECNAM    INTEGER                     
       0  VL        INTEGER             BVINFO         323  X         INTEGER                     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          PRNTABV              2                            PRNTRLI              1                
          SYM       INTEGER    1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ALLP      INTEGER    1    SF                      BI        INTEGER    1    SF          
          CA        INTEGER    1    SF                      FIELD     INTEGER    3    SF          
          ILD       INTEGER    1    SF                      JP        INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    NLD       INTEGER    1    SF          
          NWD       INTEGER    1    SF                      PRED      INTEGER    1    SF          
          SCR       INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TYP       INTEGER    1    SF                      UDI       INTEGER    1    SF          
          VCA       INTEGER    1    SF                      VIH       INTEGER    1    SF          
          VUDI      INTEGER    1    SF          
  
   STATEMENT LABELS         
     177  1       FMT                        210  2       FMT                        216  3       FMT                 
      25  4                                  227  5       FMT                         37  10                          
     236  11      FMT                         45  15                                 250  16      FMT                 
      63  20                                 264  21      FMT                        102  30                          
     275  31      FMT                        116  35                                 135  100                         
     310  101     FMT                 
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      14  10       I           36 49       26B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          LINE          2             
          BVINFO        1             
  
   STATISTICS     
     PROGRAM LENGTH                333B     219 
     CM LABELED COMMON LENGTH        3B       3 
             60300B CM USED 
1         SUBROUTINE DMPRLST    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE DMPRLST( CTR , TXT , LTXT )                         DMPRLST     2    
                                                                                             DMPRLST     3    
                    **        DMP RLST - PRINT *IL* INSTRUCTIONS IN *TXT* TABLE              DMPRLST     4    
                                                                                             DMPRLST     5    
         5                    IMPLICIT INTEGER(A-Z)                                          DMPRLST     6    
                              INTEGER TXT(LTXT) , CTR(5) , STPR(4) , ZPT(2)                  DMPRLST     7    
                              COMMON/LINE/LINECM(2)                                          DMPRLST     8    
                              DATA ZPT / 2R   , 2R Z /                                       DMPRLST     9    
                              DATA STPR / 3R    , 3R RS  , 3R SP  , 3R **  /                 DMPRLST    10    
        10                    FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                  DMPRLST    11    
                              ZP(X) = FIELD(X,32B,1)                                         DMPRLST    12    
                              PRS(X) = FIELD(X,38,2)                                         DMPRLST    13    
                              OC(X) = FIELD(X,48,10)                                         DMPRLST    14    
                                                                                             DMPRLST    15    
        15                    CTR(1) = CTR(1)+1                                              DMPRLST    16    
                              IF( CTR(1) .LT. CTR(3) ) RETURN                                DMPRLST    17    
                              IF( CTR(3) .GT. CTR(4) ) RETURN                                DMPRLST    18    
                              CTR(3) = CTR(3)+CTR(5)                                         DMPRLST    19    
                              CALL SETST( 1 , 8L            )                                DMPRLST    20    
        20                    PRINT 1,(CTR(I),I=1,2),LOCF(TXT)                               DMPRLST    21    
                     1        FORMAT(//*   CALL*I5* OF -IL- DUMP FROM -*A10*   FWA =*Z6      DMPRLST    22    
                         .    /13X,*LINK WORD   INDEX  DESCRIPTOR*)                          DMPRLST    23    
                                                                                             DMPRLST    24    
                              LINECM = LINECM(2)                                             DMPRLST    25    
        25                    N = LTXT                                                       DMPRLST    26    
                              I = 1                                                          DMPRLST    27    
                                                                                             DMPRLST    28    
                     10       DESCR = TXT(I+2)                                               DMPRLST    29    
                              PSB = STPR( PRS(DESCR)+1 )                                     DMPRLST    30    
        30                    ZPB = ZPT( ZP(DESCR) + 1 )                                     DMPRLST    31    
                                                                                             DMPRLST    32    
                              LW = TXT(I+3)                                                  DMPRLST    33    
                              UB = FIELD(LW,36,24)                                           DMPRLST    34    
                              MB = FIELD(LW,18,18)                                           DMPRLST    35    
        35                    J = I - 1                                                      DMPRLST    36    
                              UBD = FIELD(DESCR,18,42)                                       DMPRLST    37    
                              MBD = FIELD(DESCR,9,9)                                         DMPRLST    38    
                    C                                  PRINT THE LINK WORD                   DMPRLST    39    
                              PRINT  11,UB,MB,LW,J                                           DMPRLST    40    
        40           11       FORMAT(2X,O8,2Z6,Z8)                                           DMPRLST    41    
                    C                                  PRINT THE DESCRIPTOR WORD             DMPRLST    42    
                              IF( DESCR .NE. 0 ) GO TO 16                                    DMPRLST    43    
                              PRINT 12,DESCR                                                 CCG11     139    
                     12       FORMAT(I4,23X)                                                 DMPRLST    45    
        45                    GO TO 18                                                       DMPRLST    46    
                                                                                             DMPRLST    47    
                     16       PRINT 17,UBD,MBD,DESCR,ZPB,PSB                                 DMPRLST    48    
                     17       FORMAT(2X,O14,2Z3,R2,R3)                                       DMPRLST    49    
                    C                                  PRINT THE INSTRUCTION - OPCD  RI,...  DMPRLST    50    
        50           18       CALL PRNTRLI( TXT(I) )                                         DMPRLST    51    
                              I = I + 4                                                      DMPRLST    52    
                              IF( I .GT. N ) GO TO 50                                        DMPRLST    53    
                              IF( OC( TXT(I-4) ) .NE. 0 ) GO TO 10                           DMPRLST    54    
                                                                                             DMPRLST    55    
        55          *         PRINT TRAILING ENTRIES IN OCTAL                                DMPRLST    56    
                                                                                             DMPRLST    57    
                              PRINT 21                                                       DMPRLST    58    
1         SUBROUTINE DMPRLST    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                     21       FORMAT(/*  -- TRAILER WORDS --*//)                             DMPRLST    59    
                                                                                             DMPRLST    60    
        60           20       PRINT 22,TXT(I)                                                DMPRLST    61    
                     22       FORMAT(10X,O20/)                                               DMPRLST    62    
                              I = I + 1                                                      DMPRLST    63    
                              IF( I .LE. N ) GO TO 20                                        DMPRLST    64    
                                                                                             DMPRLST    65    
        65           50       LINECM = 0                                                     DMPRLST    66    
                              RETURN                                                         DMPRLST    67    
                              END                                                            DMPRLST    68    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        24    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        65    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  DMPRLST 
  
   VARIABLES     SN  TYPE           RELOCATION  
       0  CTR       INTEGER    ARRAY     F.P.          201  DESCR     INTEGER                     
     177  I         INTEGER                            207  J         INTEGER                     
       0  LINECM    INTEGER    ARRAY    LINE             0  LTXT      INTEGER              F.P.   
     204  LW        INTEGER                            206  MB        INTEGER                     
     211  MBD       INTEGER                            200  N         INTEGER                     
     202  PSB       INTEGER                            212  STPR      INTEGER    ARRAY            
       0  TXT       INTEGER    ARRAY     F.P.          205  UB        INTEGER                     
     210  UBD       INTEGER                            203  ZPB       INTEGER                     
     216  ZPT       INTEGER    ARRAY            
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          PRNTRLI              1                            SETST                2                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          FIELD     INTEGER    3    SF                      LOCF      INTEGER    1  INTRIN        
          MASK      NO TYPE    1  INTRIN                    OC        INTEGER    1    SF          
          PRS       INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          ZP        INTEGER    1    SF          
  
   STATEMENT LABELS         
     113  1       FMT                         24  10                                 135  11      FMT                 
     144  12      FMT                         51  16                                 156  17      FMT                 
      53  18                                  66  20                                 164  21      FMT                 
     174  22      FMT                         76  50                          
1         SUBROUTINE DMPRLST    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0  COMMON BLOCKS   LENGTH   
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH                222B     146 
     CM LABELED COMMON LENGTH        2B       2 
             60300B CM USED 
1         SUBROUTINE DMPSIT     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE DMP SIT( CTR , TREE , LTREE , TXT )                 DMPSIT      2    
                                                                                             DMPSIT      3    
                    **        DMP SIT - PRINT SUCCESSOR INDEX TABLE ( BDT EXIT )             DMPSIT      4    
                                                                                             DMPSIT      5    
         5                    IMPLICIT INTEGER(A-Z)                                          DMPSIT      6    
                              INTEGER TREE(LTREE),TXT(1),CTR(5),SUBTTL(6)                    DMPSIT      7    
                              COMMON/LINE/LINECM(2)                                          DMPSIT      8    
                              DATA SUBTTL(1) /                                               DMPSIT      9    
                         .  48L     LST    PRED  SUCC  T(S)  USES  N.PR  INST              / DMPSIT     10    
        10                                                                                   DMPSIT     11    
                              FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                  DMPSIT     12    
                              PRED(X) = FIELD(X,36,18)                                       DMPSIT     13    
                              ULST(X) = FIELD(X,18,18)                                       DMPSIT     14    
                              SUCC(X) = FIELD(X,0,18)                                        DMPSIT     15    
        15                                                                                   DMPSIT     16    
                              USES(X) = FIELD(X,48,9)                                        DMPSIT     17    
                              LST(X) = FIELD(X,18,15)                                        DMPSIT     18    
                              NPRED(X) = FIELD(X,0,18)                                       DMPSIT     19    
                                                                                             DMPSIT     20    
        20                    CTR = CTR + 1                                                  DMPSIT     21    
                              LN = FIELD(TXT,30,18)                                          DMPSIT     22    
                              PRINT 5,CTR(1),LN                                              DMPSIT     23    
                     5        FORMAT(//* CALL*I5* TO TREE DMP, LINE NUMBER =*I5)             DMPSIT     24    
                              CALL SETST( 5 , SUBTTL )                                       DMPSIT     25    
        25                                                                                   DMPSIT     26    
                              LINECM = LINECM(2)                                             DMPSIT     27    
                              PLAST = -1                                                     DMPSIT     28    
                                                                                             DMPSIT     29    
                              DO 30 J = 1,LTREE                                              DMPSIT     30    
        30                    S = SUCC( TREE(J) )                                            DMPSIT     31    
                              TS = ULST( TREE(J) )                                           DMPSIT     32    
                              P = PRED( TREE(J) )                                            DMPSIT     33    
                              IF( P .EQ. PLAST ) GO TO 20                                    DMPSIT     34    
                                                                                             DMPSIT     35    
        35                    PLAST = P                                                      DMPSIT     36    
                              LW = TXT(P+4)                                                  DMPSIT     37    
                              RK = LST(LW)                                                   DMPSIT     38    
                              U = USES(LW)                                                   DMPSIT     39    
                              NP = NPRED(LW)                                                 DMPSIT     40    
        40                    PRINT 15,RK,P,S,TS,U,NP                                        DMPSIT     41    
                     15       FORMAT(I8,Z8,Z6,3I6,2X)                                        DMPSIT     42    
                              CALL PRNT RLI( TXT(P+1) )                                      DMPSIT     43    
                              GO TO 30                                                       DMPSIT     44    
                                                                                             DMPSIT     45    
        45           20       PRINT 25,S,TS                                                  DMPSIT     46    
                     25       FORMAT(16X,Z6,I6/)                                             DMPSIT     47    
                                                                                             DMPSIT     48    
                     30       CONTINUE                                                       DMPSIT     49    
                                                                                             DMPSIT     50    
        50                    LINECM = 0                                                     DMPSIT     51    
                              RETURN                                                         DMPSIT     52    
                              END                                                            DMPSIT     53    
1         SUBROUTINE DMPSIT     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
         8    I          LST  HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS CHARACTERS INITIALIZED INTO SUCCEEDING WORDS. 
        20    I     CTR       ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        20    I     CTR       ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        26    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        50    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  DMPSIT  
  
   VARIABLES     SN  TYPE           RELOCATION  
       0  CTR       INTEGER    ARRAY     F.P.          117  J         INTEGER                     
       0  LINECM    INTEGER    ARRAY    LINE           115  LN        INTEGER                     
       0  LTREE     INTEGER              F.P.          123  LW        INTEGER                     
     126  NP        INTEGER                            122  P         INTEGER                     
     116  PLAST     INTEGER                            124  RK        INTEGER                     
     120  S         INTEGER                            127  SUBTTL    INTEGER    ARRAY            
       0  TREE      INTEGER    ARRAY     F.P.          121  TS        INTEGER                     
       0  TXT       INTEGER    ARRAY     F.P.          125  U         INTEGER                     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          PRNTRLI              1                            SETST                2                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          FIELD     INTEGER    3    SF                      LST       INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    NPRED     INTEGER    1    SF          
          PRED      INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          SUCC      INTEGER    1    SF                      ULST      INTEGER    1    SF          
          USES      INTEGER    1    SF          
  
   STATEMENT LABELS         
      62  5       FMT                        101  15      FMT                         42  20                          
     111  25      FMT                         44  30                          
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      20  30       J           29 48       27B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH                142B      98 
     CM LABELED COMMON LENGTH        2B       2 
             60300B CM USED 
1         SUBROUTINE DMPTREE    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE DMPTREE( CTR, TREE , LTREE , TXT )                  DMPTREE     2    
                                                                                             DMPTREE     3    
                    **        DMP TREE - PRINT DEPENDENCY TREE ( BDT/CIP )                   DMPTREE     4    
                                                                                             DMPTREE     5    
         5                    IMPLICIT INTEGER(A-Z)                                          DMPTREE     6    
                              INTEGER TREE(LTREE),TXT(1),CTR(5),SUBTTL(6)                    DMPTREE     7    
                              COMMON/LINE/LINECM(2)                                          DMPTREE     8    
                              COMMON/MCG/XX(2),SEQTIME                                       DMPTREE     9    
                              DATA SUBTTL(1) /                                               DMPTREE    10    
        10               .  58L     LST    TIME    SUCC  PRED  USES  N.PR  INST            / DMPTREE    11    
                                                                                             DMPTREE    12    
                              FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                  DMPTREE    13    
                              SUCCO(X) = FIELD(X,24,18)                                      DMPTREE    14    
                              SUCC(X) = FIELD(X,26,16)+1                                     DMPTREE    15    
        15                    PRED(X) = FIELD(X,2,16)+1                                      DMPTREE    16    
                                                                                             DMPTREE    17    
                              USES(X) = FIELD(X,48,9)                                        DMPTREE    18    
                              LST(X) = FIELD(X,18,15)                                        DMPTREE    19    
                              NPRED(X) = FIELD(X,0,18)                                       DMPTREE    20    
        20                                                                                   DMPTREE    21    
                              CTR(1) = CTR(1) + 1                                            DMPTREE    22    
                              LN = FIELD(TXT,30,18)                                          DMPTREE    23    
                              PRINT 5,CTR(1),LN                                              DMPTREE    24    
                     5        FORMAT(//*  CALL*I5* TO TREE DMP,LINE NUMBER = *I5)            DMPTREE    25    
        25                    CALL SETST( 6 , SUBTTL )                                       DMPTREE    26    
                              LINECM = LINECM(2)                                             DMPTREE    27    
                                                                                             DMPTREE    28    
                              SLAST = 0                                                      DMPTREE    29    
                              DO 30 J = 1,LTREE                                              DMPTREE    30    
        30                    S = SUCC( TREE(J) )                                            DMPTREE    31    
                              P = PRED( TREE(J) )                                            DMPTREE    32    
                              IF( S .EQ. SLAST ) GO TO 20                                    DMPTREE    33    
                                                                                             DMPTREE    34    
                              SLAST = S                                                      DMPTREE    35    
        35                    SO = SUCCO( TREE(J) )                                          DMPTREE    36    
                              LW = TXT( SO + 4 )                                             DMPTREE    37    
                              RK = LST(LW)                                                   DMPTREE    38    
                              PR = SEQTIME - RK                                              DMPTREE    39    
                              U = USES(LW)                                                   DMPTREE    40    
        40                    NP = NPRED(LW)                                                 DMPTREE    41    
                              PRINT 15,RK,PR,S,P,U,NP                                        DMPTREE    42    
                     15       FORMAT(3I8,3I6,2X)                                             DMPTREE    43    
                              CALL PRNT RLI( TXT( SO + 1 ) )                                 DMPTREE    44    
                              GO TO 30                                                       DMPTREE    45    
        45                                                                                   DMPTREE    46    
                     20       PRINT 25,P                                                     DMPTREE    47    
                     25       FORMAT(24X,I6/)                                                DMPTREE    48    
                                                                                             DMPTREE    49    
                     30       CONTINUE                                                       DMPTREE    50    
        50                                                                                   DMPTREE    51    
                              LINECM = 0                                                     DMPTREE    52    
                              RETURN                                                         DMPTREE    53    
                              END                                                            DMPTREE    54    
1         SUBROUTINE DMPTREE    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
         9    I          LST  HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS CHARACTERS INITIALIZED INTO SUCCEEDING WORDS. 
        26    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        51    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  DMPTREE 
  
   VARIABLES     SN  TYPE           RELOCATION  
       0  CTR       INTEGER    ARRAY     F.P.          120  J         INTEGER                     
       0  LINECM    INTEGER    ARRAY    LINE           116  LN        INTEGER                     
       0  LTREE     INTEGER              F.P.          124  LW        INTEGER                     
     130  NP        INTEGER                            122  P         INTEGER                     
     126  PR        INTEGER                            125  RK        INTEGER                     
     121  S         INTEGER                              2  SEQTIME   INTEGER             MCG     
     117  SLAST     INTEGER                            123  SO        INTEGER                     
     131  SUBTTL    INTEGER    ARRAY                     0  TREE      INTEGER    ARRAY     F.P.   
       0  TXT       INTEGER    ARRAY     F.P.          127  U         INTEGER                     
       0  XX        INTEGER    ARRAY    MCG     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          PRNTRLI              1                            SETST                2                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          FIELD     INTEGER    3    SF                      LST       INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    NPRED     INTEGER    1    SF          
          PRED      INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          SUCC      INTEGER    1    SF                      SUCCO     INTEGER    1    SF          
          USES      INTEGER    1    SF          
  
   STATEMENT LABELS         
      65  5       FMT                        104  15      FMT                         45  20                          
     113  25      FMT                         47  30                          
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      20  30       J           29 49       32B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          LINE          2             
          MCG           3             
  
   STATISTICS     
     PROGRAM LENGTH                144B     100 
     CM LABELED COMMON LENGTH        5B       5 
             60300B CM USED 
1         SUBROUTINE DMPUDI     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE DMPUDI( UDI , N )                                   DMPUDI      2    
                                                                                             DMPUDI      3    
                    **        DMPUDI - PRINT ENTRIES IN *UDI* BEFORE THEY ARE REFORMATTED    DMPUDI      4    
                                                                                             DMPUDI      5    
         5                    IMPLICIT INTEGER(A-Z)                                          DMPUDI      6    
                              INTEGER UDI(N)                                                 DMPUDI      7    
                              COMMON/LINE/LINECM(2)                                          DMPUDI      8    
                                                                                             DMPUDI      9    
                              FIELD(X,P,L) = SHIFT(X,60-P) .A. .N.MASK(60-L)                 DMPUDI     10    
        10                    IH(X) = FIELD(X,0,18)                                          DMPUDI     11    
                              CA(X) = FIELD(X,18,18)                                         DMPUDI     12    
                              CR(X) = FIELD(X,54,1)                                          DMPUDI     13    
                                                                                             DMPUDI     14    
                              DATA NN / 0 /                                                  DMPUDI     15    
        15                                                                                   DMPUDI     16    
                              PRINT 1                                                        DMPUDI     17    
                     1        FORMAT(///*  -- UDI SYMBOL DICTIONARY --*//)                   DMPUDI     18    
                     3        FORMAT(I6,4X)                                                  DMPUDI     19    
                     2        FORMAT(/)                                                      DMPUDI     20    
        20           4        FORMAT(4X,Z6,2X,A7)                                            DMPUDI     21    
                     5        FORMAT(12H   -CLASS-   ,A7)                                    DMPUDI     22    
                                                                                             DMPUDI     23    
                              LINECM = LINECM(2)                                             DMPUDI     24    
                              K = (N-2)/4                                                    DMPUDI     25    
        25                    I = 3                                                          DMPUDI     26    
                                                                                             DMPUDI     27    
                     10       J = I - 1                                                      DMPUDI     28    
                              PRINT 3, J                                                     DMPUDI     29    
                              J = MIN0( N , I+2 )                                            DMPUDI     30    
        30                                                                                   DMPUDI     31    
                              DO 20 K = I,J                                                  DMPUDI     32    
                              IHV = SYM( IH( UDI(K) ) )                                      DMPUDI     33    
                              CAV = CA( UDI(K) )                                             DMPUDI     34    
                              IF( CR( UDI(K) ) .NE. 0 ) GO TO 15                             DMPUDI     35    
        35                    IF( SHIFT(CAV,42) .LT. 0 ) CAV = CAV .O. MASK(42)              DMPUDI     36    
                              PRINT 4,CAV,IHV                                                DMPUDI     37    
                              GO TO 20                                                       DMPUDI     38    
                     15       PRINT 5,IHV                                                    DMPUDI     39    
                     20       CONTINUE                                                       DMPUDI     40    
        40                    PRINT 2                                                        DMPUDI     41    
                                                                                             DMPUDI     42    
                              I = I + 3                                                      DMPUDI     43    
                              IF( I .LE. N ) GO TO 10                                        DMPUDI     44    
                                                                                             DMPUDI     45    
        45                    IF( NN .NE. 0 ) RETURN                                         DMPUDI     46    
                                                                                             DMPUDI     47    
                    *         PRINT THE NAMES IN THE SYMBOL TABLE, 8 NAMES PER LINE          DMPUDI     48    
                                                                                             DMPUDI     49    
                              PRINT 25                                                       DMPUDI     50    
        50           25       FORMAT(///*  -- SYMBOL TABLE NAMES --*//)                      DMPUDI     51    
                              CALL GETNSYM( NN )                                             DMPUDI     52    
                              J = 1                                                          DMPUDI     53    
                                                                                             DMPUDI     54    
                     30       PRINT 31,J                                                     DMPUDI     55    
        55           31       FORMAT(Z6)                                                     DMPUDI     56    
                              K = MIN0( J+8 , NN )                                           CCG27      69    
                     40       IHV = SYM(J)                                                   DMPUDI     58    
1         SUBROUTINE DMPUDI     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                              PRINT 41, IHV                                                  DMPUDI     59    
                     41       FORMAT(2X,A8)                                                  DMPUDI     60    
        60                    J = J + 1                                                      DMPUDI     61    
                              IF( J .LE. K ) GO TO 40                                        DMPUDI     62    
                                                                                             DMPUDI     63    
                              PRINT 2                                                        DMPUDI     64    
                              IF( J .LT. NN ) GO TO 30                                       DMPUDI     65    
        65                                                                                   DMPUDI     66    
                              LINECM = 0                                                     DMPUDI     67    
                              RETURN                                                         DMPUDI     68    
                                                                                             DMPUDI     69    
                              END                                                            DMPUDI     70    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        23    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        66    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  DMPUDI  
  
   VARIABLES     SN  TYPE           RELOCATION  
     214  CAV       INTEGER                            211  I         INTEGER                     
     213  IHV       INTEGER                            212  J         INTEGER                     
     210  K         INTEGER                              0  LINECM    INTEGER    ARRAY    LINE    
       0  N         INTEGER              F.P.          116  NN        INTEGER                     
       0  UDI       INTEGER    ARRAY     F.P.   
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          GETNSYM              1                            SYM       INTEGER    1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          CA        INTEGER    1    SF                      CR        INTEGER    1    SF          
          FIELD     INTEGER    3    SF                      IH        INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MIN0      INTEGER    0  INTRIN        
          SHIFT     NO TYPE    2  INTRIN        
  
   STATEMENT LABELS         
     122  1       FMT                        131  2       FMT                        127  3       FMT                 
     133  4       FMT                        136  5       FMT                         15  10                          
      44  15                                  46  20                                 164  25      FMT                 
      64  30                                 175  31      FMT                         72  40                          
     203  41      FMT                 
1         SUBROUTINE DMPUDI     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0  LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      26  20       K           31 39       23B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH                220B     144 
     CM LABELED COMMON LENGTH        2B       2 
             60300B CM USED 
1         SUBROUTINE PRNTGRA    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE PRNT GRA( NAME , RCT , LEN , INDX )                 PRNTGRA     2    
                              IMPLICIT INTEGER(A-Z)                                          PRNTGRA     3    
                                                                                             PRNTGRA     4    
                    *         PRNT GRA - PRINT OUT TABLES USED BY *GRA*                      PRNTGRA     5    
         5                                                                                   PRNTGRA     6    
                              INTEGER RCT(LEN) , BVAL(17) , RCTTTL(6)                        PRNTGRA     7    
                              COMMON/RCTFMT/BNAM(16) /LINE/LINECM(2)                         PRNTGRA     8    
                              COMMON/CCGSCR/ DUM(64) , RAT(24),RVT(24) , IAI,TRA             CCG18     176    
                              COMMON/CCGSCR/ ERC(3),NVC,TUD,ABR,NAB,NTA,TRD,                 CCG18     177    
        10               1           NXC,XCT(5),MLW,NLD(2) , MAA,NAA,ACT(8) , MFA(10) , SUPS PRNTGRA    11    
                         2  , NXS,MRU,NPS,PST(13)                                            PRNTGRA    12    
                                                                                             PRNTGRA    13    
                              COMMON/GPOGRA/OMIT(10) , MXPITL,EMF,ITL,MRA,LGL,NHB,XRF ,      PRNTGRA    14    
                         1    LCV(2),LUL(2),LIH,LR2W,NLJ,LTT,OENL,NENL,EPSI,MAXW,NEBB,       PRNTGRA    15    
        15               2           PITL,STP                                                PRNTGRA    16    
                                                                                             PRNTGRA    17    
                              DATA RCTTTL / 58L RCT  RF     CA  IH     H2    REG1,2,IT PFT A PRNTGRA    18    
                         .PF NOC USE             /                                           PRNTGRA    19    
                                                                                             PRNTGRA    20    
        20                    FIELD(X,P,L) = .N.MASK(60-L).A.SHIFT(X,60-P)                   PRNTGRA    21    
                    *                                  CAW                                   PRNTGRA    22    
                              PRFT(X) = FIELD(X,44,3)                                        PRNTGRA    23    
                              APLN(X) = FIELD(X,42,2)                                        PRNTGRA    24    
                              NOCC(X) = FIELD(X,33,9)                                        PRNTGRA    25    
        25                    SUSE(X) = FIELD(X,24,9)                                        PRNTGRA    26    
                              UDI(X) = FIELD(X,0,18)                                         PRNTGRA    27    
                    *                                  C2W                                   PRNTGRA    28    
                              MSK(X) = FIELD(X,59,1)                                         PRNTGRA    29    
                              RF(X)  = FIELD(X,36,18)                                        PRNTGRA    30    
        30                    CA(X)  = FIELD(X,18,18)                                        PRNTGRA    31    
                              IH(X)  = FIELD(X,0,12)                                         PRNTGRA    32    
                    *                                  CCW                                   PRNTGRA    33    
                              INCB(X) = FIELD(X,57,3)                                        PRNTGRA    34    
                              INCP(X) = FIELD(X,36,18)                                       PRNTGRA    35    
        35                    H2(X) = FIELD(X,18,18)                                         PRNTGRA    36    
                              REG2(X) = FIELD(X,12,6)                                        PRNTGRA    37    
                              MIT(X) = FIELD(X,6,6)                                          PRNTGRA    38    
                              REG1(X) = FIELD(X,0,6)                                         PRNTGRA    39    
                    *                                  RAT                                   PRNTGRA    40    
        40                    INV(X) = FIELD(X,59,1)                                         PRNTGRA    41    
                              R3(X) = FIELD(X,36,18)                                         PRNTGRA    42    
                              R2(X) = FIELD(X,18,18)                                         PRNTGRA    43    
                              R1(X) = FIELD(X,0,18)                                          PRNTGRA    44    
                                                                                             PRNTGRA    45    
        45                    INDXL = INDX                                                   PRNTGRA    46    
                              PRINT 1,NAME                                                   PRNTGRA    47    
                     1        FORMAT(/*   PRNTGRA CALL FROM -*A10)                           PRNTGRA    48    
                     2        FORMAT(/)                                                      PRNTGRA    49    
                     3        FORMAT(6X)                                                     PRNTGRA    50    
        50           4        FORMAT(I4*U *)                                                 PRNTGRA    51    
                              IF( RCT(1) .EQ. 0 ) GO TO 10                                   PRNTGRA    52    
                                                                                             PRNTGRA    53    
                              CALL REMARK( 18L -- RCT ERROR -                )               PRNTGRA    54    
                              PRINT 6,RCT(1)                                                 PRNTGRA    55    
        55           6        FORMAT(//* ---- ERROR, RCT(0) = *O20* ----*//)                 PRNTGRA    56    
                                                                                             PRNTGRA    57    
                     10       INDXL = SHIFT(INDXL,6)                                         PRNTGRA    58    
1         SUBROUTINE PRNTGRA    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                              I = INDXL .A. 77B                                              PRNTGRA    59    
                              LINECM = 0                                                     PRNTGRA    60    
        60                    IF( I .EQ. 0 ) RETURN                                          PRNTGRA    61    
                                                                                             PRNTGRA    62    
                    *               RCT   RAT    RVT   SEE   MTA   DXA   DAA   MFA   SUP     PRNTGRA    63    
                              GO TO ( 20 , 100 , 140 , 160 , 180 , 200 , 220 , 240 , 260 ,   PRNTGRA    64    
                         1                       280 ) , I                                   PRNTGRA    65    
        65                                                                                   PRNTGRA    66    
                    *         PRINT CONTENTS OF *RCT*                                        PRNTGRA    67    
                                                                                             PRNTGRA    68    
                     20       PRINT 2                                                        PRNTGRA    69    
                              CALL SETST( 6 , RCTTTL )                                       PRNTGRA    70    
        70                    LINECM = LINECM(2)                                             PRNTGRA    71    
                                                                                             PRNTGRA    72    
                              RCT(1) = MASK(42)                                              PRNTGRA    73    
                              DO 50 J = 1,LEN,3                                              PRNTGRA    74    
                              CAW = RCT(J)                                                   PRNTGRA    75    
        75                    C2W = RCT(J+1)                                                 PRNTGRA    76    
                              CCW = RCT(J+2)                                                 PRNTGRA    77    
                              IHV = IH(C2W)                                                  PRNTGRA    78    
                              IF( IHV .EQ. 0 ) GO TO 23                                      PRNTGRA    79    
                              SYV = SYM(IHV)                                                 PRNTGRA    80    
        80                    GO TO 24                                                       PRNTGRA    81    
                     23       SYV = 7L                                                       PRNTGRA    82    
                              IF( MSK(C2W) .EQ. 0 ) GO TO 24                                 PRNTGRA    83    
                              SYV = 7L -MSK-                                                 PRNTGRA    84    
                                                                                             PRNTGRA    85    
        85           24       PRINT 21, J-1 , RF(C2W),CA(C2W),SYV                            PRNTGRA    86    
                     21       FORMAT(1X,I3,I4,Z7,1X,A7)                                      PRNTGRA    87    
                                                                                             PRNTGRA    88    
                              SYV = SYM( H2(CCW) )                                           PRNTGRA    89    
                                                                                             PRNTGRA    90    
        90                    PRINT 25,SYV,REG1(CCW),REG2(CCW),MIT(CCW)                      PRNTGRA    91    
                     25       FORMAT(1X,A7,Z3,Z2,Z3)                                         PRNTGRA    92    
                              PRINT 26,PRFT(CAW),APLN(CAW),NOCC(CAW),SUSE(CAW)               PRNTGRA    93    
                     26       FORMAT(4I4)                                                    PRNTGRA    94    
                                                                                             PRNTGRA    95    
        95                    IF( INCP(CCW) .EQ. 0 ) GO TO 40                                PRNTGRA    96    
                              PRINT 27,INCB(CCW),INCP(CCW)                                   PRNTGRA    97    
                     27       FORMAT(Z2,I4)                                                  PRNTGRA    98    
                              GO TO 41                                                       PRNTGRA    99    
                                                                                             PRNTGRA   100    
       100           40       PRINT 3                                                        PRNTGRA   101    
                                                                                             PRNTGRA   102    
                     41       U = UDI(CAW)/2                                                 PRNTGRA   103    
                              IF( U.NE. 0 ) GO TO 28                                         PRNTGRA   104    
                              PRINT 3                                                        PRNTGRA   105    
       105                    GO TO 29                                                       PRNTGRA   106    
                     28       PRINT 4,U                                                      PRNTGRA   107    
                                                                                             PRNTGRA   108    
                    *         COLLECT BIT VALUES AND PRINT THEM                              PRNTGRA   109    
                                                                                             PRNTGRA   110    
       110           29       DO 30 I = 1,17                                                 PRNTGRA   111    
                              BVAL(I) = 5R                                                   PRNTGRA   112    
                              IF( (SHIFT(CAW,BNAM(I)).A.1) .EQ. 0 ) GO TO 30                 PRNTGRA   113    
                              BVAL(I) = SHIFT( MASK(42).A.BNAM(I) , -18 )                    PRNTGRA   114    
                     30       CONTINUE                                                       PRNTGRA   115    
1         SUBROUTINE PRNTGRA    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0 
       115                                                                                   PRNTGRA   116    
                              PRINT 31,BVAL                                                  PRNTGRA   117    
                     31       FORMAT(3R3,2(R4,3R3),3R4,2R3,R4/)                              PRNTGRA   118    
                                                                                             PRNTGRA   119    
                     50       CONTINUE                                                       PRNTGRA   120    
       120                                                                                   PRNTGRA   121    
                              RCT(1) = 0                                                     PRNTGRA   122    
                              CALL SETST( 0 )                                                PRNTGRA   123    
                              GO TO 10                                                       PRNTGRA   124    
                                                                                             PRNTGRA   125    
       125          *         PRINT NON-ZERO LOCATIONS IN *RAT*                              PRNTGRA   126    
                                                                                             PRNTGRA   127    
                     100      PRINT 101                                                      PRNTGRA   128    
                     101      FORMAT(/* REGNO INV  R1  R2  R3*)                              PRNTGRA   129    
                                                                                             PRNTGRA   130    
       130                    DO 110 I = 1,24                                                PRNTGRA   131    
                              IF( RAT(I) .EQ. 0 ) GO TO 110                                  PRNTGRA   132    
                              R = RAT(I)                                                     PRNTGRA   133    
                              PRINT 105,I-1,INV(R),R1(R),R2(R),R3(R)                         PRNTGRA   134    
                     105      FORMAT(Z6,Z4,3I4)                                              PRNTGRA   135    
       135                                                                                   PRNTGRA   136    
                     110      CONTINUE                                                       PRNTGRA   137    
                              GO TO 10                                                       PRNTGRA   138    
                                                                                             PRNTGRA   139    
                    *         PRINT CONTENTS OF *RVT*                                        PRNTGRA   140    
       140                                                                                   PRNTGRA   141    
                     140      PRINT 141,(RVT(I),I = 2,24)                                    PRNTGRA   142    
                     141      FORMAT(* RVT -*23Z5)                                           PRNTGRA   143    
                              GO TO 10                                                       PRNTGRA   144    
                                                                                             PRNTGRA   145    
       145                                                                                   PRNTGRA   146    
                    *                                          SEE                           PRNTGRA   147    
                     160      XRFLG = XRF                                                    PRNTGRA   148    
                              IF( XRF .LT. 0 ) XRFLG = -1                                    PRNTGRA   149    
                              IF( STP .NE. 0 ) STP = 1                                       PRNTGRA   150    
       150                    NLJJ = NLJ .A. 77777B                                          PRNTGRA   151    
                              PRINT 161,MRA,NHB,XRFLG,NENL,EPSI,MAXW,NEBB,NVC,STP,NLJJ,LTT,  PRNTGRA   152    
                         1           TUD,LCV(1),LUL(1)                                       PRNTGRA   153    
                     161      FORMAT(/* SEE - MRA N.HB  XRF N.XN  EPSI MAXW N.EB N.VC  STP N PRNTGRA   154    
                         1.LJ  LTT  TUD*/Z10,3I5,Z6,7I5/*  LCV,LUL =*2O22)                   PRNTGRA   155    
       155                    GO TO 10                                                       PRNTGRA   156    
                                                                                             PRNTGRA   157    
                    *                                          MTA                           PRNTGRA   158    
                     180      PRINT 181,TRD,ABR                                              PRNTGRA   159    
                     181      FORMAT(/* MTA - TRD,ABR =*I3,2X,Z3)                            PRNTGRA   160    
       160                    GO TO 10                                                       PRNTGRA   161    
                                                                                             PRNTGRA   162    
                    *                                          DXA                           PRNTGRA   163    
                     200      PRINT 201,MLW,NLD,NXC,XCT                                      PRNTGRA   164    
                     201      FORMAT(/* DXA - MLW N.LD N.ST  NXC  -XCT-*/I10,9I5)            PRNTGRA   165    
       165                    GO TO 10                                                       PRNTGRA   166    
                                                                                             PRNTGRA   167    
                    *                                          DAA                           PRNTGRA   168    
                     220      IF( NAA .EQ. 0 ) GO TO 10                                      PRNTGRA   169    
                              LINECM = LINECM(2)                                             PRNTGRA   170    
       170                    PRINT 221,MAA,NAA                                              PRNTGRA   171    
                     221      FORMAT(/* DAA - MAX,N.AA = *2I3/*  A-CANIDATES, INC,ORD -*)    PRNTGRA   172    
1         SUBROUTINE PRNTGRA    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     4
0 
                                                                                             PRNTGRA   173    
                              DO 230 I = 1,NAA                                               PRNTGRA   174    
                              X = ACT(I)                                                     PRNTGRA   175    
       175                    PRINT 223,FIELD(X,57,3),FIELD(X,36,18),FIELD(X,0,18)           PRNTGRA   176    
                     223      FORMAT(Z6,I3* X*Z1)                                            PRNTGRA   177    
                     230      CONTINUE                                                       PRNTGRA   178    
                              PRINT 2                                                        PRNTGRA   179    
                              GO TO 10                                                       PRNTGRA   180    
       180                                                                                   PRNTGRA   181    
                    *                                          MFA                           PRNTGRA   182    
                     240      GO TO 10                                                       PRNTGRA   183    
                                                                                             PRNTGRA   184    
                    *                                          SUP                           PRNTGRA   185    
       185           260      IF( NPS .EQ. 0 ) GO TO 10                                      PRNTGRA   186    
                              PRINT 261                                                      PRNTGRA   187    
                     261      FORMAT(* POST STORES, REG RCT ORD*/)                           PRNTGRA   188    
                                                                                             PRNTGRA   189    
                              LINECM = LINECM(2)                                             PRNTGRA   190    
       190                    DO 270 I = 1,NPS                                               PRNTGRA   191    
                              X = PST(I)                                                     PRNTGRA   192    
                              PRINT 262,FIELD(X,18,18),FIELD(X,0,18)                         PRNTGRA   193    
                     262      FORMAT(Z5,I4)                                                  PRNTGRA   194    
                     270      CONTINUE                                                       PRNTGRA   195    
       195                    PRINT 2                                                        PRNTGRA   196    
                              GO TO 10                                                       PRNTGRA   197    
                                                                                             PRNTGRA   198    
                    *                                          SXC                           PRNTGRA   199    
                     280      GO TO 10                                                       PRNTGRA   200    
       200                                                                                   PRNTGRA   201    
                              END                                                            PRNTGRA   202    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        17    I      RCT  RF  HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS CHARACTERS INITIALIZED INTO SUCCEEDING WORDS. 
        59    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        70    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       122    I     )         ARGUMENT COUNT INCONSISTENT WITH PRIOR USAGE. 
       169    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       189    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  PRNTGRA 
  
   VARIABLES     SN  TYPE           RELOCATION  
     167  ABR       INTEGER             CCGSCR         206  ACT       INTEGER    ARRAY    CCGSCR  
       0  BNAM      INTEGER    ARRAY    RCTFMT         647  BVAL      INTEGER    ARRAY            
     635  CAW       INTEGER                            637  CCW       INTEGER                     
     636  C2W       INTEGER                              0  DUM       INTEGER    ARRAY    CCGSCR  
1         SUBROUTINE PRNTGRA    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     5
0  VARIABLES     SN  TYPE           RELOCATION  
      13  EMF       INTEGER             GPOGRA          33  EPSI      INTEGER             GPOGRA  
     162  ERC       INTEGER    ARRAY    CCGSCR         633  I         INTEGER                     
     160  IAI       INTEGER             CCGSCR         640  IHV       INTEGER                     
       0  INDX      INTEGER              F.P.          632  INDXL     INTEGER                     
      14  ITL       INTEGER             GPOGRA         634  J         INTEGER                     
      21  LCV       INTEGER    ARRAY    GPOGRA           0  LEN       INTEGER              F.P.   
      16  LGL       INTEGER             GPOGRA          25  LIH       INTEGER             GPOGRA  
       0  LINECM    INTEGER    ARRAY    LINE            26  LR2W      INTEGER             GPOGRA  
      30  LTT       INTEGER             GPOGRA          23  LUL       INTEGER    ARRAY    GPOGRA  
     204  MAA       INTEGER             CCGSCR          34  MAXW      INTEGER             GPOGRA  
     216  MFA       INTEGER    ARRAY    CCGSCR         201  MLW       INTEGER             CCGSCR  
      15  MRA       INTEGER             GPOGRA         232  MRU       INTEGER             CCGSCR  
      12  MXPITL    INTEGER             GPOGRA         205  NAA       INTEGER             CCGSCR  
     170  NAB       INTEGER             CCGSCR           0  NAME      INTEGER              F.P.   
      35  NEBB      INTEGER             GPOGRA          32  NENL      INTEGER             GPOGRA  
      17  NHB       INTEGER             GPOGRA         202  NLD       INTEGER    ARRAY    CCGSCR  
      27  NLJ       INTEGER             GPOGRA         645  NLJJ      INTEGER                     
     233  NPS       INTEGER             CCGSCR         171  NTA       INTEGER             CCGSCR  
     165  NVC       INTEGER             CCGSCR         173  NXC       INTEGER             CCGSCR  
     231  NXS       INTEGER             CCGSCR          31  OENL      INTEGER             GPOGRA  
       0  OMIT      INTEGER    ARRAY    GPOGRA          36  PITL      INTEGER             GPOGRA  
     234  PST       INTEGER    ARRAY    CCGSCR         643  R         INTEGER                     
     100  RAT       INTEGER    ARRAY    CCGSCR           0  RCT       INTEGER    ARRAY     F.P.   
     670  RCTTTL    INTEGER    ARRAY                   130  RVT       INTEGER    ARRAY    CCGSCR  
      37  STP       INTEGER             GPOGRA         230  SUPS      INTEGER             CCGSCR  
     641  SYV       INTEGER                            161  TRA       INTEGER             CCGSCR  
     172  TRD       INTEGER             CCGSCR         166  TUD       INTEGER             CCGSCR  
     642  U         INTEGER                            646  X         INTEGER                     
     174  XCT       INTEGER    ARRAY    CCGSCR          20  XRF       INTEGER             GPOGRA  
     644  XRFLG     INTEGER                     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          REMARK               1                            SETST                2                
          SYM       INTEGER    1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          APLN      INTEGER    1    SF                      CA        INTEGER    1    SF          
          FIELD     INTEGER    3    SF                      H2        INTEGER    1    SF          
          IH        INTEGER    1    SF                      INCB      INTEGER    1    SF          
          INCP      INTEGER    1    SF                      INV       INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MIT       INTEGER    1    SF          
          MSK       INTEGER    1    SF                      NOCC      INTEGER    1    SF          
          PRFT      INTEGER    1    SF                      REG1      INTEGER    1    SF          
          REG2      INTEGER    1    SF                      RF        INTEGER    1    SF          
          R1        INTEGER    1    SF                      R2        INTEGER    1    SF          
          R3        INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          SUSE      INTEGER    1    SF                      UDI       INTEGER    1    SF          
  
   STATEMENT LABELS         
     321  1       FMT                        326  2       FMT                        330  3       FMT                 
     332  4       FMT                        340  6       FMT                         16  10                          
      40  20                                 360  21      FMT                         61  23                          
      65  24                                 372  25      FMT                        404  26      FMT                 
     413  27      FMT                        135  28                                 137  29                          
1         SUBROUTINE PRNTGRA    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     6
0  STATEMENT LABELS         
     150  30                                 433  31      FMT                        126  40                          
     130  41                                   0  50                                 162  100                         
     442  101     FMT                        456  105     FMT                        200  110                         
     203  140                                465  141     FMT                        206  160                         
     511  161     FMT                        220  180                                532  181     FMT                 
     223  200                                545  201     FMT                        226  220                         
     560  221     FMT                        575  223     FMT                          0  230                         
     251  240                                252  260                                606  261     FMT                 
     620  262     FMT                          0  270                                274  280                         
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      50  50       J           73 119     106B              EXT REFS  NOT INNER         
     143  30       I          110 114       6B        OPT           
     165  110      I          130 136      16B              EXT REFS          
     233  230      I          173 177      13B              EXT REFS          
     260  270      I          190 194      11B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          RCTFMT       16             
          LINE          2             
          CCGSCR      169             
          GPOGRA       32             
  
   STATISTICS     
     PROGRAM LENGTH                704B     452 
     CM LABELED COMMON LENGTH      333B     219 
             60300B CM USED 
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                SUBROUTINE PRNTMIO(LAB,INDX,OBIT,LBIT,OBST,LBST,OBLK,LBLK,RL,MPW)  PRNTMIO     2    
                          IMPLICIT INTEGER (A-Z)                                             PRNTMIO     3    
                          DIMENSION OBLK(LBLK),OBIT(LBIT),OBST(LBST),CTR(5)                  PRNTMIO     4    
                          COMMON/LINE/LINECM(2)                                              PRNTMIO     5    
         5                DATA BLANK/10H          /,TEST/0/                                  PRNTMIO     6    
                          DATA NRL/1/                                                        PRNTMIO     7    
                                                                                             PRNTMIO     8    
                    *         FIELD DEFINITIONS                                              PRNTMIO     9    
                                                                                             PRNTMIO    10    
        10                FIELD(X,P,L) = SHIFT(X,60-P).A. .N. MASK(60-L)                     PRNTMIO    11    
                                                                                             PRNTMIO    12    
                    *         RANDOM INDEX WORD                                              PRNTMIO    13    
                                                                                             PRNTMIO    14    
                          RIC(X) = FIELD(X,59,1)                                             PRNTMIO    15    
        15                RAT(X) = FIELD(X,58,1)                                             PRNTMIO    16    
                          ROFS(X) = FIELD(X,30,9)                                            PRNTMIO    17    
                          RLEN(X) = FIELD(X,39,18)                                           PRNTMIO    18    
                          RRA(X) = FIELD(X,0,30)                                             PRNTMIO    19    
                          RFWA(X) = FIELD(X,18,18)                                           PRNTMIO    20    
        20                RLCM(X) = FIELD(X,0,18)                                            PRNTMIO    21    
                                                                                             PRNTMIO    22    
                    *         BLOCK ADDRESS WORD                                             PRNTMIO    23    
                                                                                             PRNTMIO    24    
                          ABLK(X) = FIELD(X,59,1)                                            PRNTMIO    25    
        25                APRI(X) = FIELD(X,58,1)                                            PRNTMIO    26    
                          AHB(X) = FIELD(X,57,1)                                             PRNTMIO    27    
                          AFW(X) = FIELD(X,56,1)                                             PRNTMIO    28    
                          ABI(X) = FIELD(X,36,18)                                            PRNTMIO    29    
                          ALEN(X) = FIELD(X,18,18)                                           PRNTMIO    30    
        30                AFWA(X) = FIELD(X,0,18)                                            PRNTMIO    31    
                                                                                             PRNTMIO    32    
                    *         BLOCK HEADER WORD                                              PRNTMIO    33    
                                                                                             PRNTMIO    34    
                          HAV(X) = FIELD(X,59,1)                                             PRNTMIO    35    
        35                HPRI(X) = FIELD(X,58,1)                                            PRNTMIO    36    
                          HHB(X) = FIELD(X,57,1)                                             PRNTMIO    37    
                          HFW(X) = FIELD(X,56,1)                                             PRNTMIO    38    
                          HBI(X) = FIELD(X,36,18)                                            PRNTMIO    39    
                          HBST(X) = FIELD(X,18,18)                                           PRNTMIO    40    
        40                HLEN(X) = FIELD(X,0,18)                                            PRNTMIO    41    
                                                                                             PRNTMIO    42    
                    *         BLOCK TRAILER WORD                                             PRNTMIO    43    
                                                                                             PRNTMIO    44    
                          TAV(X) = FIELD(X,59,1)                                             PRNTMIO    45    
        45                TLKF(X) = FIELD(X,18,18)                                           PRNTMIO    46    
                          TLKB(X) = FIELD(X,36,18)                                           PRNTMIO    47    
                          TLEN(X) = FIELD(X,0,18)                                            PRNTMIO    48    
                                                                                             PRNTMIO    49    
                    *         MISC. FIELD DEFS                                               PRNTMIO    50    
        50                                                                                   PRNTMIO    51    
                          ZA(X) = FIELD(X,54,6)                                              PRNTMIO    52    
                          ZB(X) = FIELD(X,36,18)                                             PRNTMIO    53    
                          ZC(X) = FIELD(X,18,18)                                             PRNTMIO    54    
                          ZD(X) = FIELD(X,0,18)                                              PRNTMIO    55    
        55                                                                                   PRNTMIO    56    
                    *         FORMAT SPECIFICATIONS                                          PRNTMIO    57    
                                                                                             PRNTMIO    58    
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                    10    FORMAT(/)                                                          PRNTMIO    59    
                    20    FORMAT(A6)                                                         PRNTMIO    60    
        60          30    FORMAT(*--RI WORD--   IC  AT     LEN     OFS              RA     F PRNTMIO    61    
                         XWA*)                                                               PRNTMIO    62    
                    40    FORMAT(*--BA WORD--  BLK PRI  HB  FW      BI     LEN     FWA*)     PRNTMIO    63    
                    50    FORMAT(*--BH WORD--   AV PRI  HB  FW      BI     BST     LEN*)     PRNTMIO    64    
                    60    FORMAT(*--BT WORD--   AV         LKF     LKB     LEN*/)            PRNTMIO    65    
        65          70    FORMAT(*--BLOCK INFORMATION TABLE--*/)                             PRNTMIO    66    
                    80    FORMAT(*--BLOCK STATUS TABLE--*/)                                  PRNTMIO    67    
                    90    FORMAT(*--CONTENTS OF BLK--*/)                                     PRNTMIO    68    
                    100   FORMAT(1H ,7X,Z7,3X)                                               PRNTMIO    69    
                    110   FORMAT(2I4,2Z8,6X,Z10,Z8)                                          PRNTMIO    70    
        70          120   FORMAT(4I4,3Z8)                                                    PRNTMIO    71    
                    130   FORMAT(I4,4X,3Z8)                                                  PRNTMIO    72    
                    140   FORMAT(8X)                                                         PRNTMIO    73    
                    150   FORMAT(10X,Z2,3Z7)                                                 PRNTMIO    74    
                    160   FORMAT(10X)                                                        PRNTMIO    75    
        75          165   FORMAT(16X)                                                        PRNTMIO    76    
                    170   FORMAT(10X,*--BIW--*/)                                             PRNTMIO    77    
                    180   FORMAT(10X,*--BSW--*/)                                             PRNTMIO    78    
                                                                                             PRNTMIO    79    
                          LINECM(1) = LINECM(2)                                              PRNTMIO    80    
        80                IF(TEST.EQ.LAB) GO TO 300                                          PRNTMIO    81    
                          TEST = LAB                                                         PRNTMIO    82    
                          PRINT 20, LAB                                                      PRNTMIO    83    
                          GO TO 500                                                          PRNTMIO    84    
                    300   PRINT 20, BLANK                                                    PRNTMIO    85    
        85                                                                                   PRNTMIO    86    
                    500   INDXX = INDX.AND.77B                                               PRNTMIO    87    
                          GO TO(1000,2000,3000,4000,5000,6000,7000),INDXX                    PRNTMIO    88    
                                                                                             PRNTMIO    89    
                    *         PRINT RANDOM INDEX WORD                                        PRNTMIO    90    
        90                                                                                   PRNTMIO    91    
                    1000  CONTINUE                                                           PRNTMIO    92    
                          PRINT 30                                                           PRNTMIO    93    
                          PRINT 10                                                           PRNTMIO    94    
                          MPL = MPW                                                          PRNTMIO    95    
        95                ICX = RIC(MPL)                                                     PRNTMIO    96    
                          ATX = RAT(MPL)                                                     PRNTMIO    97    
                          LENX = RLEN(MPL)                                                   PRNTMIO    98    
                          OFSX = ROFS(MPL)                                                   PRNTMIO    99    
                          RAX = RRA(MPL)                                                     PRNTMIO   100    
       100                FWAX = RFWA(MPL)                                                   PRNTMIO   101    
                          LCMX = RLCM(MPL)                                                   PRNTMIO   102    
                          IF(ICX.EQ.0) GO TO 1100                                            PRNTMIO   103    
                          OFSX = 0                                                           PRNTMIO   104    
                          RAX = LCMX                                                         PRNTMIO   105    
       105                GO TO 1200                                                         PRNTMIO   106    
                    1100  FWAX = 0                                                           PRNTMIO   107    
                          IF(ATX.EQ.1) RAX = LCMX                                            PRNTMIO   108    
                    1200  PRINT 100,RL                                                       PRNTMIO   109    
                          PRINT 110, ICX,ATX,LENX,OFSX,RAX,FWAX                              PRNTMIO   110    
       110                PRINT 10                                                           PRNTMIO   111    
                          GO TO 9000                                                         PRNTMIO   112    
                                                                                             PRNTMIO   113    
                    *         PRINT BLOCK ADDRESS WORD                                       PRNTMIO   114    
                                                                                             PRNTMIO   115    
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0 
       115          2000  CONTINUE                                                           PRNTMIO   116    
                          PRINT 40                                                           PRNTMIO   117    
                          PRINT 10                                                           PRNTMIO   118    
                          MPL = MPW                                                          PRNTMIO   119    
                          BLKX = ABLK(MPL)                                                   PRNTMIO   120    
       120                PRIX = APRI(MPL)                                                   PRNTMIO   121    
                          HBX = AHB(MPL)                                                     PRNTMIO   122    
                          FWX = AFW(MPL)                                                     PRNTMIO   123    
                          BIX = ABI(MPL)                                                     PRNTMIO   124    
                          LENX = ALEN(MPL)                                                   PRNTMIO   125    
       125                FWAX = AFWA(MPL)                                                   PRNTMIO   126    
                          PRINT 100, RL                                                      PRNTMIO   127    
                          PRINT 120, BLKX,PRIX,HBX,FWX,BIX,LENX,FWAX                         PRNTMIO   128    
                          PRINT 10                                                           PRNTMIO   129    
                          GO TO 9000                                                         PRNTMIO   130    
       130                                                                                   PRNTMIO   131    
                    *         PRINT BLOCK HEADER WORD                                        PRNTMIO   132    
                                                                                             PRNTMIO   133    
                    3000  CONTINUE                                                           PRNTMIO   134    
                          PRINT 50                                                           PRNTMIO   135    
       135                PRINT 10                                                           PRNTMIO   136    
                          MPL = MPW                                                          PRNTMIO   137    
                          AVX = HAV(MPL)                                                     PRNTMIO   138    
                          PRIX = HPRI(MPL)                                                   PRNTMIO   139    
                          HBX = HHB(MPL)                                                     PRNTMIO   140    
       140                FWX = HFW(MPL)                                                     PRNTMIO   141    
                          BIX = HBI(MPL)                                                     PRNTMIO   142    
                          BSTX = HBST(MPL)                                                   PRNTMIO   143    
                          LENX = HLEN(MPL)                                                   PRNTMIO   144    
                          PRINT 100, RL                                                      PRNTMIO   145    
       145                PRINT 120, AVX,PRIX,HBX,FWX,BIX,BSTX,LENX                          PRNTMIO   146    
                          PRINT 10                                                           PRNTMIO   147    
                          GO TO 9000                                                         PRNTMIO   148    
                                                                                             PRNTMIO   149    
                    *         PRINT BLOCK TRAILER WORD                                       PRNTMIO   150    
       150                                                                                   PRNTMIO   151    
                    4000  CONTINUE                                                           PRNTMIO   152    
                          PRINT 60                                                           PRNTMIO   153    
                          MPL = MPW                                                          PRNTMIO   154    
                          AVX = TAV(MPL)                                                     PRNTMIO   155    
       155                LKFX = TLKF(MPL)                                                   PRNTMIO   156    
                          LKBX = TLKB(MPL)                                                   PRNTMIO   157    
                          LENX = TLEN(MPL)                                                   PRNTMIO   158    
                          PRINT 100, RL                                                      PRNTMIO   159    
                          PRINT 130, AVX,LKFX,LKBX,LENX                                      PRNTMIO   160    
       160                PRINT 10                                                           PRNTMIO   161    
                          GO TO 9000                                                         PRNTMIO   162    
                                                                                             PRNTMIO   163    
                    *         PRINT BIT TABLE                                                PRNTMIO   164    
                                                                                             PRNTMIO   165    
       165          5000  CONTINUE                                                           PRNTMIO   166    
                          PRINT 10                                                           PRNTMIO   167    
                          PRINT 20, BLANK                                                    PRNTMIO   168    
                          PRINT 70                                                           PRNTMIO   169    
                          PRINT 20, BLANK                                                    PRNTMIO   170    
       170                PRINT 30                                                           PRNTMIO   171    
                          PRINT 170                                                          PRNTMIO   172    
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     4
0 
                          DO 5500 I = 1,LBIT,2                                               PRNTMIO   173    
                          MPZ = OBIT(I)                                                      PRNTMIO   174    
                          ZAX = ZA(MPZ)                                                      PRNTMIO   175    
       175                ZBX = ZB(MPZ)                                                      PRNTMIO   176    
                          ZCX = ZC(MPZ)                                                      PRNTMIO   177    
                          ZDX = ZD(MPZ)                                                      PRNTMIO   178    
                          MPL = OBIT(I+1)                                                    PRNTMIO   179    
                          MPLX = I-1                                                         PRNTMIO   180    
       180                ICX = RIC(MPL)                                                     PRNTMIO   181    
                          ATX = RAT(MPL)                                                     PRNTMIO   182    
                          LENX = RLEN(MPL)                                                   PRNTMIO   183    
                          OFSX = ROFS(MPL)                                                   PRNTMIO   184    
                          RAX = RRA(MPL)                                                     PRNTMIO   185    
       185                FWAX = RFWA(MPL)                                                   PRNTMIO   186    
                          LCMX = RLCM(MPL)                                                   PRNTMIO   187    
                          IF(ICX.EQ.0) GO TO 5100                                            PRNTMIO   188    
                          OFSX = 0                                                           PRNTMIO   189    
                          RAX = LCMX                                                         PRNTMIO   190    
       190                GO TO 5200                                                         PRNTMIO   191    
                    5100  FWAX = 0                                                           PRNTMIO   192    
                          IF(ATX.EQ.1) RAX = LCMX                                            PRNTMIO   193    
                    5200  PRINT 100, MPLX                                                    PRNTMIO   194    
                          PRINT 110, ICX,ATX,LENX,OFSX,RAX,FWAX                              PRNTMIO   195    
       195                PRINT 150, ZAX,ZBX,ZCX,ZDX                                         PRNTMIO   196    
                          PRINT 10                                                           PRNTMIO   197    
                    5500  CONTINUE                                                           PRNTMIO   198    
                          GO TO 9000                                                         PRNTMIO   199    
                                                                                             PRNTMIO   200    
       200          *         PRINT BST TABLE                                                PRNTMIO   201    
                                                                                             PRNTMIO   202    
                    6000  CONTINUE                                                           PRNTMIO   203    
                          PRINT 10                                                           PRNTMIO   204    
                          PRINT 20, BLANK                                                    PRNTMIO   205    
       205                PRINT 80                                                           PRNTMIO   206    
                          PRINT 20, BLANK                                                    PRNTMIO   207    
                          PRINT 40                                                           PRNTMIO   208    
                          PRINT 180                                                          PRNTMIO   209    
                          DO 6500 I = 1,LBST,2                                               PRNTMIO   210    
       210                MPL = OBST(I)                                                      PRNTMIO   211    
                          MPLX = I-1                                                         PRNTMIO   212    
                          BLKX = ABLK(MPL)                                                   PRNTMIO   213    
                          PRIX = APRI(MPL)                                                   PRNTMIO   214    
                          HBX = AHB(MPL)                                                     PRNTMIO   215    
       215                FWX = AFW(MPL)                                                     PRNTMIO   216    
                          BIX = ABI(MPL)                                                     PRNTMIO   217    
                          LENX = ALEN(MPL)                                                   PRNTMIO   218    
                          FWAX = AFWA(MPL)                                                   PRNTMIO   219    
                          PRINT 100, MPLX                                                    PRNTMIO   220    
       220                PRINT 120, BLKX,PRIX,HBX,FWX,BIX,LENX,FWAX                         PRNTMIO   221    
                          MPZ = OBST(I+1)                                                    PRNTMIO   222    
                          ZAX = ZA(MPZ)                                                      PRNTMIO   223    
                          ZBX = ZB(MPZ)                                                      PRNTMIO   224    
                          ZCX = ZC(MPZ)                                                      PRNTMIO   225    
       225                ZDX = ZD(MPZ)                                                      PRNTMIO   226    
                          PRINT 140                                                          PRNTMIO   227    
                          PRINT 150, ZAX,ZBX,ZCX,ZDX                                         PRNTMIO   228    
                          PRINT 10                                                           PRNTMIO   229    
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     5
0 
                    6500  CONTINUE                                                           PRNTMIO   230    
       230                GO TO 9000                                                         PRNTMIO   231    
                                                                                             PRNTMIO   232    
                    *         PRINT CONTENTS OF BLK                                          PRNTMIO   233    
                                                                                             PRNTMIO   234    
                    7000  CONTINUE                                                           PRNTMIO   235    
       235                PRINT 10                                                           PRNTMIO   236    
                          PRINT 20, BLANK                                                    PRNTMIO   237    
                          PRINT 90                                                           PRNTMIO   238    
                          I = 1                                                              PRNTMIO   239    
                    7100  I = I+1                                                            PRNTMIO   240    
       240                MPL = OBLK(I)                                                      PRNTMIO   241    
                          IF(MPL.EQ.0) GO TO 9000                                            PRNTMIO   242    
                          PRINT 20, BLANK                                                    PRNTMIO   243    
                          PRINT 50                                                           PRNTMIO   244    
                          PRINT 165                                                          PRNTMIO   245    
       245                PRINT 60                                                           PRNTMIO   246    
                          MPLX = LOCF(OBLK(I))                                               PRNTMIO   247    
                          AVX = HAV(MPL)                                                     PRNTMIO   248    
                          PRIX = HPRI(MPL)                                                   PRNTMIO   249    
                          HBX = HHB(MPL)                                                     PRNTMIO   250    
       250                FWX = HFW(MPL)                                                     PRNTMIO   251    
                          BIX = HBI(MPL)                                                     PRNTMIO   252    
                          BSTX = HBST(MPL)                                                   PRNTMIO   253    
                          LENX = HLEN(MPL)                                                   PRNTMIO   254    
                          PRINT 100, MPLX                                                    PRNTMIO   255    
       255                PRINT 120, AVX,PRIX,HBX,FWX,BIX,BSTX,LENX                          PRNTMIO   256    
                          PRINT 160                                                          PRNTMIO   257    
                          K = I+1                                                            PRNTMIO   258    
                          I = I+LENX-1                                                       PRNTMIO   259    
                          MPL = OBLK(I)                                                      PRNTMIO   260    
       260                MPLX = LOCF(OBLK(I))                                               PRNTMIO   261    
                          AVX = TAV(MPL)                                                     PRNTMIO   262    
                          LKFX = TLKF(MPL)                                                   PRNTMIO   263    
                          LKBX = TLKB(MPL)                                                   PRNTMIO   264    
                          LENX = TLEN(MPL)                                                   PRNTMIO   265    
       265                PRINT 100, MPLX                                                    PRNTMIO   266    
                          PRINT 130, AVX,LKFX,LKBX,LENX                                      PRNTMIO   267    
                          PRINT 10                                                           PRNTMIO   268    
                          IF(AVX.EQ.1) GO TO 7100                                            PRNTMIO   269    
                          IF(FWX.EQ.1) GO TO 7100                                            PRNTMIO   270    
       270                IF(NRL.EQ.1) GO TO 7100                                            PRNTMIO   271    
                          LTXT = LENX-2                                                      PRNTMIO   272    
                          CTR(1) = 0                                                         PRNTMIO   273    
                          CTR(2) = 10HPRNTBLK                                                PRNTMIO   274    
                          CTR(3) = 1                                                         PRNTMIO   275    
       275                CTR(4) = 2                                                         PRNTMIO   276    
                          CTR(5) = 1                                                         PRNTMIO   277    
                          CALL DMPRLST(CTR,OBLK(K),LTXT)                                     PRNTMIO   278    
                          LINECM(1) = LINECM(2)                                              PRNTMIO   279    
                          GO TO 7100                                                         PRNTMIO   280    
       280                                                                                   PRNTMIO   281    
                    *         END PROCESSING                                                 PRNTMIO   282    
                                                                                             PRNTMIO   283    
                    9000  LINECM(1) = 0                                                      PRNTMIO   284    
                          RETURN                                                             PRNTMIO   285    
       285                END                                                                PRNTMIO   286    
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     6
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  PRNTMIO 
  
   VARIABLES     SN  TYPE           RELOCATION  
    1133  ATX       INTEGER                           1146  AVX       INTEGER                     
    1145  BIX       INTEGER                            440  BLANK     INTEGER                     
    1141  BLKX      INTEGER                           1147  BSTX      INTEGER                     
    1163  CTR       INTEGER    ARRAY                  1137  FWAX      INTEGER                     
    1144  FWX       INTEGER                           1143  HBX       INTEGER                     
    1152  I         INTEGER                           1132  ICX       INTEGER                     
       0  INDX      INTEGER              F.P.         1130  INDXX     INTEGER                     
    1161  K         INTEGER                              0  LAB       INTEGER              F.P.   
       0  LBIT      INTEGER              F.P.            0  LBLK      INTEGER              F.P.   
       0  LBST      INTEGER              F.P.         1140  LCMX      INTEGER                     
    1134  LENX      INTEGER                              0  LINECM    INTEGER    ARRAY    LINE    
    1151  LKBX      INTEGER                           1150  LKFX      INTEGER                     
    1162  LTXT      INTEGER                           1131  MPL       INTEGER                     
    1160  MPLX      INTEGER                              0  MPW       INTEGER              F.P.   
    1153  MPZ       INTEGER                            442  NRL       INTEGER                     
       0  OBIT      INTEGER    ARRAY     F.P.            0  OBLK      INTEGER    ARRAY     F.P.   
       0  OBST      INTEGER    ARRAY     F.P.         1135  OFSX      INTEGER                     
    1142  PRIX      INTEGER                           1136  RAX       INTEGER                     
       0  RL        INTEGER              F.P.          441  TEST      INTEGER                     
    1154  ZAX       INTEGER                           1155  ZBX       INTEGER                     
    1156  ZCX       INTEGER                           1157  ZDX       INTEGER                     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          DMPRLST              3                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ABI       INTEGER    1    SF                      ABLK      INTEGER    1    SF          
          AFW       INTEGER    1    SF                      AFWA      INTEGER    1    SF          
          AHB       INTEGER    1    SF                      ALEN      INTEGER    1    SF          
          APRI      INTEGER    1    SF                      FIELD     INTEGER    3    SF          
          HAV       INTEGER    1    SF                      HBI       INTEGER    1    SF          
          HBST      INTEGER    1    SF                      HFW       INTEGER    1    SF          
          HHB       INTEGER    1    SF                      HLEN      INTEGER    1    SF          
          HPRI      INTEGER    1    SF                      LOCF      INTEGER    1  INTRIN        
          MASK      NO TYPE    1  INTRIN                    RAT       INTEGER    1    SF          
          RFWA      INTEGER    1    SF                      RIC       INTEGER    1    SF          
          RLCM      INTEGER    1    SF                      RLEN      INTEGER    1    SF          
          ROFS      INTEGER    1    SF                      RRA       INTEGER    1    SF          
          SHIFT     NO TYPE    2  INTRIN                    TAV       INTEGER    1    SF          
          TLEN      INTEGER    1    SF                      TLKB      INTEGER    1    SF          
          TLKF      INTEGER    1    SF                      ZA        INTEGER    1    SF          
          ZB        INTEGER    1    SF                      ZC        INTEGER    1    SF          
          ZD        INTEGER    1    SF          
  
   STATEMENT LABELS         
     443  10      FMT                        445  20      FMT                        447  30      FMT                 
     457  40      FMT                        466  50      FMT                        475  60      FMT                 
1         SUBROUTINE PRNTMIO    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     7
0  STATEMENT LABELS         
     504  70      FMT                        511  80      FMT                        515  90      FMT                 
     521  100     FMT                        524  110     FMT                        527  120     FMT                 
     531  130     FMT                        533  140     FMT                        535  150     FMT                 
     540  160     FMT                        542  165     FMT                        544  170     FMT                 
     547  180     FMT                         14  300                                 16  500                         
      33  1000                                54  1100                                61  1200                        
      70  2000                               116  3000                               144  4000                        
     164  5000                               226  5100                               233  5200                        
       0  5500                               247  6000                                 0  6500                        
     323  7000                               332  7100                               432  9000                        
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
     201  5500     I          172 197      45B              EXT REFS          
     264  6500     I          209 229      37B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH               1176B     638 
     CM LABELED COMMON LENGTH        2B       2 
             60300B CM USED 
1         SUBROUTINE PRNTUDI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE PRNTUDI( UDI , N )                                  PRNTUDI     2    
                                                                                             PRNTUDI     3    
                    *         PRNT UDI - PRINT *USE/DEF* BITS SET IN *UDT* ( GPO / GRA )     PRNTUDI     4    
                                                                                             PRNTUDI     5    
         5                    IMPLICIT INTEGER(A-Z)                                          PRNTUDI     6    
                              INTEGER UDI(N),BVAL(12),BV(7)                                  PRNTUDI     7    
                              COMMON/LINE/LINECM(2)                                          PRNTUDI     8    
                                                                                             PRNTUDI     9    
                              DATA BVAL / 1H  ,5H DEFR , 1H ,4H DEF , 1H  , 4H DBU           PRNTUDI    10    
        10               1  , 1H  , 4H USE , 1H  , 4H ^RD , 1H  , 4H IST /                   PRNTUDI    11    
                                                                                             PRNTUDI    12    
                              FIELD(X,P,L) = .N.MASK(60-L).A.SHIFT(X,60-P)                   PRNTUDI    13    
                              STC(X) = FIELD(X,45,9)                                         PRNTUDI    14    
                                                                                             PRNTUDI    15    
        15                    PRINT 1                                                        PRNTUDI    16    
                     1        FORMAT (/*  -- USE/DEF BIT SETTING --*/)                       PRNTUDI    17    
                     2        FORMAT(/)                                                      PRNTUDI    18    
                                                                                             PRNTUDI    19    
                              LINECM = LINECM(2)                                             PRNTUDI    20    
        20                    PC = 1                                                         PRNTUDI    21    
                                                                                             PRNTUDI    22    
                              DO 20 I = 1,N,2                                                PRNTUDI    23    
                              B = MASK(6) .A. UDI(I)                                         PRNTUDI    24    
                              IF( B .EQ. 0 ) GO TO 20                                        PRNTUDI    25    
        25                                                                                   PRNTUDI    26    
                              DO 15 K = 1,6                                                  PRNTUDI    27    
                              B = SHIFT(B,1)                                                 PRNTUDI    28    
                              J = B.A.1                                                      PRNTUDI    29    
                     15       BV(K) = BVAL(2*K+J-1)                                          PRNTUDI    30    
        30                                                                                   PRNTUDI    31    
                              BV(7) = STC( UDI(I) )                                          PRNTUDI    32    
                              J = I/2                                                        PRNTUDI    33    
                              PRINT 11,J,BV                                                  PRNTUDI    34    
                     11       FORMAT(I8*U *A5,5A4,I4)                                        PRNTUDI    35    
        35                                                                                   PRNTUDI    36    
                              PC = PC + 1                                                    PRNTUDI    37    
                              IF( (PC.A.1) .EQ. 0 ) PRINT 2                                  PRNTUDI    38    
                                                                                             PRNTUDI    39    
                     20       CONTINUE                                                       PRNTUDI    40    
        40                                                                                   PRNTUDI    41    
                              IF( (PC.A.1) .NE. 0 ) PRINT 2                                  PRNTUDI    42    
                              LINECM = 0                                                     PRNTUDI    43    
                                                                                             PRNTUDI    44    
                              RETURN                                                         PRNTUDI    45    
        45                                                                                   PRNTUDI    46    
                              END                                                            PRNTUDI    47    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        19    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        42    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
1         SUBROUTINE PRNTUDI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  PRNTUDI 
  
   VARIABLES     SN  TYPE           RELOCATION  
     103  B         INTEGER                            122  BV        INTEGER    ARRAY            
     106  BVAL      INTEGER    ARRAY                   102  I         INTEGER                     
     105  J         INTEGER                            104  K         INTEGER                     
       0  LINECM    INTEGER    ARRAY    LINE             0  N         INTEGER              F.P.   
     101  PC        INTEGER                              0  UDI       INTEGER    ARRAY     F.P.   
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   INLINE FUNCTIONS   TYPE   ARGS     
          FIELD     INTEGER    3    SF                      MASK      NO TYPE    1  INTRIN        
          SHIFT     NO TYPE    2  INTRIN                    STC       INTEGER    1    SF          
  
   STATEMENT LABELS         
      54  1       FMT                         61  2       FMT                         70  11      FMT                 
       0  15                                  40  20                          
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      13  20       I           22 39       30B              EXT REFS  NOT INNER         
      21  15       K           26 29        5B        OPT           
  
   COMMON BLOCKS   LENGTH   
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH                135B      93 
     CM LABELED COMMON LENGTH        2B       2 
             60300B CM USED 
1         SUBROUTINE PRNTABV    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE PRNTABV( NAME , BVT )                               PRNTABV     2    
                              IMPLICIT INTEGER(A-Z)                                          PRNTABV     3    
                                                                                             PRNTABV     4    
                    **        PRNTABV - PRINT A BIT VECTOR                                   PRNTABV     5    
         5          *                NAME = 5L NAM  , OR A RIGHT ADJUSTED BINARY NUMBER      PRNTABV     6    
                    *                BVT - FWA OF BIT VECTOR                                 PRNTABV     7    
                                                                                             PRNTABV     8    
                              COMMON/BVINFO/ VL, NVAR /LINE/LINECM(2)                        PRNTABV     9    
                              INTEGER BVT(1),B(3)                                            PRNTABV    10    
        10           1        FORMAT(/)                                                      PRNTABV    11    
                                                                                             PRNTABV    12    
                              LINECM = LINECM(2)                                             PRNTABV    13    
                              VN = 2-60                                                      PRNTABV    14    
                                                                                             PRNTABV    15    
        15                    DO 40 J = 1,VL                                                 PRNTABV    16    
                              VN = VN + 60                                                   PRNTABV    17    
                              IF( SHIFT(NAME,-54) .EQ. 0 ) GO TO 5                           PRNTABV    18    
                              PRINT 2,NAME                                                   PRNTABV    19    
                     2        FORMAT(A5)                                                     PRNTABV    20    
        20                    GO TO 15                                                       PRNTABV    21    
                     5        PRINT 3,NAME                                                   PRNTABV    22    
                     3        FORMAT(I4,1X)                                                  PRNTABV    23    
                                                                                             PRNTABV    24    
                     15       VM = MIN0( NVAR+1 , VN+59 )                                    PRNTABV    25    
        25                    DO 25 I = VN,VM,3                                              PRNTABV    26    
                     25       PRINT 26,I                                                     PRNTABV    27    
                     26       FORMAT(I4)                                                     PRNTABV    28    
                              PRINT 4                                                        PRNTABV    29    
                     4        FORMAT(/7X)                                                    PRNTABV    30    
        30                                                                                   PRNTABV    31    
                              KG = ( (VM-VN)/3 + 1 ) *3                                      PRNTABV    32    
                              BW = BVT(J)                                                    PRNTABV    33    
                                                                                             PRNTABV    34    
                              DO 30 I = 1,KG,3                                               PRNTABV    35    
        35                    SC = 1 - I                                                     PRNTABV    36    
                              B(1) = SHIFT(BW,SC).A.1                                        PRNTABV    37    
                              B(2) = SHIFT(BW,SC-1).A.1                                      PRNTABV    38    
                              B(3) = SHIFT(BW,SC-2).A.1                                      PRNTABV    39    
                     30       PRINT 22,B                                                     PRNTABV    40    
        40           22       FORMAT(1X,3O1)                                                 PRNTABV    41    
                              PRINT 1                                                        PRNTABV    42    
                                                                                             PRNTABV    43    
                     40       CONTINUE                                                       PRNTABV    44    
                                                                                             PRNTABV    45    
        45                    LINECM = 0                                                     PRNTABV    46    
                              RETURN                                                         PRNTABV    47    
                                                                                             PRNTABV    48    
                              END                                                            PRNTABV    49    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        12    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        45    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
1         SUBROUTINE PRNTABV    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  PRNTABV 
  
   VARIABLES     SN  TYPE           RELOCATION  
     140  B         INTEGER    ARRAY                     0  BVT       INTEGER    ARRAY     F.P.   
     136  BW        INTEGER                            134  I         INTEGER                     
     132  J         INTEGER                            135  KG        INTEGER                     
       0  LINECM    INTEGER    ARRAY    LINE             0  NAME      INTEGER              F.P.   
       1  NVAR      INTEGER             BVINFO         137  SC        INTEGER                     
       0  VL        INTEGER             BVINFO         133  VM        INTEGER                     
     131  VN        INTEGER                     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   INLINE FUNCTIONS   TYPE   ARGS     
          MIN0      INTEGER    0  INTRIN                    SHIFT     NO TYPE    2  INTRIN        
  
   STATEMENT LABELS         
      67  1       FMT                         75  2       FMT                        103  3       FMT                 
     116  4       FMT                         20  5                                   22  15                          
     124  22      FMT                          0  25                                 111  26      FMT                 
       0  30                                   0  40                          
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      12  40       J           15 43       54B              EXT REFS  NOT INNER         
      27  25       I           25 26        5B              EXT REFS          
      45  30       I           34 39       14B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          BVINFO        2             
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH                146B     102 
     CM LABELED COMMON LENGTH        4B       4 
             60300B CM USED 
1         SUBROUTINE PRNTBV     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE PRNTBV( BVT , INDX , NV )                           PRNTBV      2    
                                                                                             PRNTBV      3    
                    **        PRNTBV - PRINT BIT VECTORS / LIVE EXIT VECTORS                 PRNTBV      4    
                                                                                             PRNTBV      5    
         5                    IMPLICIT INTEGER(A-Z)                                          PRNTBV      6    
                              INTEGER BVT(1),INDX(1) , B(3) , VECTBL(3)                      PRNTBV      7    
                              COMMON/BVINFO/ VL, NVAR /LINE/LINECM(2)                        PRNTBV      8    
                              DATA VECTBL / 5H DEF  , 5H UBD  , 5H USE   /                   PRNTBV      9    
                                                                                             PRNTBV     10    
        10                    LINENR(X) = SHIFT(X,-18).A.77777B                              PRNTBV     11    
                              SETX(X) = X.A.377777B                                          PRNTBV     12    
                     1        FORMAT(/)                                                      PRNTBV     13    
                     2        FORMAT(/*  -- BIT VECTORS --*)                                 PRNTBV     14    
                     3        FORMAT(1X/)                                                    PRNTBV     15    
        15                    PRINT 2                                                        PRNTBV     16    
                              K = 1                                                          PRNTBV     17    
                              MODE = 0                                                       PRNTBV     18    
                              WI = INDX + 1                                                  PRNTBV     19    
                                                                                             PRNTBV     20    
        20           5        LINECM = LINECM(2)                                             PRNTBV     21    
                                                                                             PRNTBV     22    
                    *         LOOP FOR VECTOR                                                PRNTBV     23    
                              DO 50 KK = 1,NV                                                PRNTBV     24    
                              BLINE = 0                                                      PRNTBV     25    
        25                    VN = 2-60                                                      PRNTBV     26    
                                                                                             PRNTBV     27    
                              DO 40 J = 1,VL                                                 PRNTBV     28    
                              VN = VN + 60                                                   PRNTBV     29    
                              BW = BVT(WI)                                                   PRNTBV     30    
        30                    IF( BW .NE. 0 ) GO TO 15                                       PRNTBV     31    
                              IF( (MASK(1).A.BW) .EQ. 0 ) GO TO 40                           PRNTBV     32    
                                                                                             PRNTBV     33    
                     15       VM = MIN0( NVAR-1 , VN+59 )                                    PRNTBV     34    
                              IF( BLINE .NE. 0 ) GO TO 16                                    PRNTBV     35    
        35                    PRINT 3                                                        PRNTBV     36    
                              BLINE = 1                                                      PRNTBV     37    
                     16       IF( K .EQ. 0 ) GO TO 20                                        PRNTBV     38    
                              PRINT 21,VECTBL(K)                                             PRNTBV     39    
                     21       FORMAT(A5)                                                     PRNTBV     40    
        40                    GO TO 24                                                       PRNTBV     41    
                     20       I = LINENR( INDX(2*KK+1) )                                     PRNTBV     42    
                              PRINT 23,I                                                     PRNTBV     43    
                     23       FORMAT(I5)                                                     PRNTBV     44    
                                                                                             PRNTBV     45    
        45           24       DO 25 I = VN,VM,3                                              PRNTBV     46    
                     25       PRINT 26,I                                                     PRNTBV     47    
                     26       FORMAT(I4)                                                     PRNTBV     48    
                                                                                             PRNTBV     49    
                              PRINT 4                                                        PRNTBV     50    
        50           4        FORMAT(/7X)                                                    PRNTBV     51    
                              KG = VM+1 - VN                                                 PRNTBV     52    
                                                                                             PRNTBV     53    
                              DO 30 I = 1,KG,3                                               PRNTBV     54    
                              SC = 1 - I                                                     PRNTBV     55    
        55                    B(1) = SHIFT(BW,SC).A.1                                        PRNTBV     56    
                              B(2) = SHIFT(BW,SC-1).A.1                                      PRNTBV     57    
                              B(3) = SHIFT(BW,SC-2).A.1                                      PRNTBV     58    
1         SUBROUTINE PRNTBV     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                     30       PRINT 22,B                                                     PRNTBV     59    
                     22       FORMAT(1X,3O1)                                                 PRNTBV     60    
        60                    PRINT 1                                                        PRNTBV     61    
                                                                                             PRNTBV     62    
                     40       WI = WI + 1                                                    PRNTBV     63    
                              IF( MODE .NE. 0 ) GO TO 45                                     PRNTBV     64    
                              K = K + 1                                                      PRNTBV     65    
        65                    GO TO 50                                                       PRNTBV     66    
                     45       WI = SETX( INDX(2*KK+3) ) + MODE                               PRNTBV     67    
                     50       CONTINUE                                                       PRNTBV     68    
                                                                                             PRNTBV     69    
                              LINECM = 0                                                     PRNTBV     70    
        70                    IF( MODE .NE. 0 ) CALL SETST( 0 )                              PRNTBV     71    
                              RETURN                                                         PRNTBV     72    
                                                                                             PRNTBV     73    
                    *         PRNTLX - PRINT PROGRAM LIVE EXIT BIT VECTORS                   PRNTBV     74    
                                                                                             PRNTBV     75    
        75                    ENTRY  PRNTLX                                                  PRNTBV     76    
                              CALL SETST( 3 , 28L LINE   LIVE EXIT VECTORS            )      PRNTBV     77    
                              K = 0                                                          PRNTBV     78    
                              MODE = 3*VL + 1                                                PRNTBV     79    
                              WI = SETX( INDX(3) ) + MODE                                    PRNTBV     80    
        80                    GO TO 5                                                        PRNTBV     81    
                                                                                             PRNTBV     82    
                              END                                                            PRNTBV     83    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        18    I     INDX      ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        20    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        69    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        76    I     )         ARGUMENT COUNT INCONSISTENT WITH PRIOR USAGE. 
        79    I     INDX      ARRAY REFERENCE OUTSIDE DIMENSION BOUNDS. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  PRNTBV         130  PRNTLX  
  
   VARIABLES     SN  TYPE           RELOCATION  
     255  B         INTEGER    ARRAY                   245  BLINE     INTEGER                     
       0  BVT       INTEGER    ARRAY     F.P.          250  BW        INTEGER                     
     252  I         INTEGER                              0  INDX      INTEGER    ARRAY     F.P.   
     247  J         INTEGER                            241  K         INTEGER                     
     253  KG        INTEGER                            244  KK        INTEGER                     
       0  LINECM    INTEGER    ARRAY    LINE           242  MODE      INTEGER                     
       0  NV        INTEGER              F.P.            1  NVAR      INTEGER             BVINFO  
     254  SC        INTEGER                            260  VECTBL    INTEGER    ARRAY            
       0  VL        INTEGER             BVINFO         251  VM        INTEGER                     
     246  VN        INTEGER                            243  WI        INTEGER                     
1         SUBROUTINE PRNTBV     74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0  FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          SETST                1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          LINENR    INTEGER    1    SF                      MASK      NO TYPE    1  INTRIN        
          MIN0      INTEGER    0  INTRIN                    SETX      INTEGER    1    SF          
          SHIFT     NO TYPE    2  INTRIN        
  
   STATEMENT LABELS         
     160  1       FMT                        162  2       FMT                        166  3       FMT                 
     223  4       FMT                         15  5                                   30  15                          
      40  16                                  46  20                                 202  21      FMT                 
     231  22      FMT                        210  23      FMT                         53  24                          
       0  25                                 216  26      FMT                          0  30                          
     105  40                                 115  45                                 121  50                          
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      20  50       KK          23 67      104B              EXT REFS  NOT INNER         
      23  40       J           27 62       67B              EXT REFS  NOT INNER         
      55  25       I           45 46        5B              EXT REFS          
      67  30       I           53 58       14B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          BVINFO        2             
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH                274B     188 
     CM LABELED COMMON LENGTH        4B       4 
             60300B CM USED 
1         SUBROUTINE PRNTRLI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE PRNT RLI( FRW )                                     PRNTRLI     2    
                              IMPLICIT INTEGER(A-Z)                                          PRNTRLI     3    
                                                                                             PRNTRLI     4    
                    **        PRNT RLI - PRINT 1 *IL* ( RLIST ) INSTRUCTION                  PRNTRLI     5    
         5                                                                                   PRNTRLI     6    
                              INTEGER FRW(3),RLI(3),RTAB(3)                                  PRNTRLI     7    
                              INTEGER JPX(8),JPBB(8)                                         PRNTRLI     8    
                              COMMON/OPRS/ OPRS(1)                                           PRNTRLI     9    
                              EQUIVALENCE (RL2,RLI(2) )                                      PRNTRLI    10    
        10                                                                                   PRNTRLI    11    
                              DATA RTAB / 2RB0 , 2RA0 , 2RX0 /                               PRNTRLI    12    
                              DATA JPX / 2HZR , 2HNZ , 2HPL , 2HMI , 2HIR , 2HOR , 2HDF      CCG9      129    
                         .           , 2HID /                                                PRNTRLI    14    
                              DATA JPBB / 2HEQ , 2HNE , 2HGE , 2HLT /                        PRNTRLI    15    
        15                                                                                   PRNTRLI    16    
                              FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                  PRNTRLI    17    
                              KS(X) = FIELD(X,31,1)                                          PRNTRLI    18    
                    *                                  R1 WORD                               PRNTRLI    19    
                              OC(X) = FIELD(X,48,7)                                          PRNTRLI    20    
        20                    RJ(X) = FIELD(X,32,16)                                         PRNTRLI    21    
                              RK(X) = FIELD(X,16,16)                                         PRNTRLI    22    
                              RI(X) = FIELD(X,0,16)                                          PRNTRLI    23    
                    *                                  R1 WORD / TYPE II AND III             PRNTRLI    24    
                              IN(X) = FIELD(X,30,18)                                         PRNTRLI    25    
        25                    SO(X) = FIELD(X,16,13)                                         PRNTRLI    26    
                              H2(X) = FIELD(X,18,12)                                         PRNTRLI    27    
                    *                                  R2 OR IH WORD                         PRNTRLI    28    
                              RF(X) = FIELD(X,36,18)                                         PRNTRLI    29    
                              CA(X) = FIELD(X,18,18)                                         PRNTRLI    30    
        30                    IH(X) = FIELD(X,0,18)                                          PRNTRLI    31    
                                                                                             PRNTRLI    32    
                              RLI(1) = IABS( FRW(1) )                                        PRNTRLI    33    
                              RL2 = FRW(2)                                                   PRNTRLI    34    
                              RLI(3) = FRW(3)                                                PRNTRLI    35    
        35                    OCV = OC(RLI)+1                                                PRNTRLI    36    
                              RIV = RI(RLI)                                                  PRNTRLI    37    
                              NAM = OPRS(OCV).A.MASK(24)                                     PRNTRLI    38    
                              GO TO ( 20 , 30 , 33 , 50 ) OPRS(OCV) .A. 17B                  PRNTRLI    39    
                                                                                             PRNTRLI    40    
        40          **        TYPE I INSTRUCTION                                             PRNTRLI    41    
                                                                                             PRNTRLI    42    
                     20       RJV = RJ(RLI)                                                  PRNTRLI    43    
                              RKV = RK(RLI)                                                  PRNTRLI    44    
                              PRINT 21,NAM,RIV,RJV                                           PRNTRLI    45    
        45           21       FORMAT(2X,A4,Z6,Z7)                                            PRNTRLI    46    
                              IF( RKV .EQ. 0 ) GO TO 23                                      PRNTRLI    47    
                              PRINT 22,RKV                                                   PRNTRLI    48    
                     22       FORMAT(Z7)                                                     PRNTRLI    49    
                              GO TO 25                                                       PRNTRLI    50    
        50                                                                                   PRNTRLI    51    
                     23       PRINT 24                                                       PRNTRLI    52    
                     24       FORMAT(7X)                                                     PRNTRLI    53    
                                                                                             PRNTRLI    54    
                     25       IF( RL2 .EQ. 0 ) GO TO 100                                     PRNTRLI    55    
        55                    CAV = CA(RL2)                                                  PRNTRLI    56    
                              RFV = RF(RL2)                                                  PRNTRLI    57    
                              H2V = 0                                                        PRNTRLI    58    
1         SUBROUTINE PRNTRLI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                              GO TO 39                                                       PRNTRLI    59    
                                                                                             PRNTRLI    60    
        60          **        TYPE II INSTRUCTION                                            PRNTRLI    61    
                                                                                             PRNTRLI    62    
                     30       INV = IN(RLI)                                                  PRNTRLI    63    
                              PRINT 31,NAM,RIV,INV                                           PRNTRLI    64    
                     31       FORMAT(2X,A4,Z6,Z7,*B*)                                        PRNTRLI    65    
        65                                                                                   PRNTRLI    66    
                              SOX = SO(RLI)                                                  PRNTRLI    67    
                              IF( SOX. EQ. 0 ) GO TO 100                                     PRNTRLI    68    
                              INV = FIELD(SOX,8,2)                                           PRNTRLI    69    
                                                 SOX = SHIFT( 2R0  + (300B.A.SOX) , 12 ) .O. PRNTRLI    70    
        70               .           ( RTAB( (SOX.A.70B)/8 + 1 ) +(SOX.A.7B) )               PRNTRLI    71    
                              PRINT 32,INV,SOX                                               PRNTRLI    72    
                     32       FORMAT(Z3,1X,R4,4X)                                            PRNTRLI    73    
                                                                                             PRNTRLI    74    
                              IF( RL2 .EQ. 0 ) GO TO 100                                     PRNTRLI    75    
        75                    RFV = RF(RL2)                                                  PRNTRLI    76    
                              CAV = CA(RL2)                                                  PRNTRLI    77    
                              H2V = 0                                                        PRNTRLI    78    
                              PRINT 26                                                       PRNTRLI    79    
                     26       FORMAT(10X)                                                    PRNTRLI    80    
        80                    GO TO 40                                                       PRNTRLI    81    
                                                                                             PRNTRLI    82    
                    **        TYPE III INSTRUCTION                                           PRNTRLI    83    
                                                                                             PRNTRLI    84    
                     33       CAV = CA(RL2)                                                  PRNTRLI    85    
        85                    RFV = RF(RL2)                                                  PRNTRLI    86    
                              IF( (NAM.A.MASK(12)) .NE. 2LJP ) GO TO 35                      PRNTRLI    87    
                              I = NAM                                                        PRNTRLI    88    
                              NAM = JPX( (CAV.AND.63)+1 )                                    PRNTRLI    89    
                              IF( I .EQ. 4LJPX  ) GO TO 34                                   PRNTRLI    90    
        90                    NAM = JPBB( (CAV.AND.63)+1 )                                   PRNTRLI    91    
                     34       CAV = SHIFT(CAV,-6)                                            PRNTRLI    92    
                              GO TO 37                                                       PRNTRLI    93    
                                                                                             PRNTRLI    94    
                     35       IF( NAM .NE. 4LRJXJ ) GO TO 37                                 PRNTRLI    95    
        95                    NAM = 2LRJ.OR.SHIFT(JPX( (CAV.A.63)+1 ) , -12 )                PRNTRLI    96    
                              CAV = SHIFT(CAV,-6)                                            PRNTRLI    97    
                                                                                             PRNTRLI    98    
                     37       PRINT 21,NAM,RIV,RFV                                           PRNTRLI    99    
                                                                                             PRNTRLI   100    
       100                    IF( KS(RLI(3)) .EQ. 0 ) GO TO 38                               PRNTRLI   101    
                              PRINT 135,CAV                                                  PRNTRLI   102    
                     135      FORMAT(I6)                                                     PRNTRLI   103    
                              GO TO 100                                                      PRNTRLI   104    
                                                                                             PRNTRLI   105    
       105           38       PRINT 24                                                       PRNTRLI   106    
                              H2V = H2(RLI)                                                  PRNTRLI   107    
                              INV = IN(RLI)/2                                                PRNTRLI   108    
                              IF( INV .EQ. 0 ) GO TO 39                                      PRNTRLI   109    
                              PRINT 138,INV                                                  PRNTRLI   110    
       110           138      FORMAT(I5*U*)                                                  PRNTRLI   111    
                              GO TO 40                                                       PRNTRLI   112    
                                                                                             PRNTRLI   113    
                     39       PRINT 139                                                      PRNTRLI   114    
                     139      FORMAT(6X)                                                     PRNTRLI   115    
1         SUBROUTINE PRNTRLI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0 
       115                                                                                   PRNTRLI   116    
                    *         PRINT *IH* WORD - * IH +CA  RF -H2 *                           PRNTRLI   117    
                     40       IHV = IH(RL2)                                                  PRNTRLI   118    
                              IF( RFV .NE. 1 ) GO TO 41                                      CCG9      130    
                              SYV = 8L -A0-                                                  PRNTRLI   120    
       120                    GO TO 42                                                       PRNTRLI   121    
                     41       SYV = SYM(IHV)                                                 PRNTRLI   122    
                                                                                             PRNTRLI   123    
                     42       PRINT 140,SYV                                                  PRNTRLI   124    
                     140      FORMAT(1X,A8)                                                  PRNTRLI   125    
       125                                                                                   PRNTRLI   126    
                              IF( (CAV+RFV/2) .EQ. 0 ) GO TO 45                              PRNTRLI   127    
                              PRINT 142,CAV                                                  PRNTRLI   128    
                     142      FORMAT(*+*O6)                                                  PRNTRLI   129    
                                                                                             PRNTRLI   130    
       130                    IF( RFV/2 .EQ. 0 ) GO TO 45                                    PRNTRLI   131    
                              PRINT 143,RFV                                                  PRNTRLI   132    
                     143      FORMAT(*  R*O6)                                                PRNTRLI   133    
                                                                                             PRNTRLI   134    
                     45       IF( H2V .EQ. 0 ) GO TO 100                                     PRNTRLI   135    
       135                    SYV = SYM(H2V)                                                 PRNTRLI   136    
                              PRINT 145,SYV                                                  PRNTRLI   137    
                     145      FORMAT(*  -*A7)                                                PRNTRLI   138    
                              GO TO 100                                                      PRNTRLI   139    
                                                                                             PRNTRLI   140    
       140          **        TYPE IV INSTRUCTION                                            PRNTRLI   141    
                                                                                             PRNTRLI   142    
                     50       CAV = IN(RLI)                                                  PRNTRLI   143    
                              IHV = IH(RLI)                                                  PRNTRLI   144    
                              INV = H2(RLI)                                                  PRNTRLI   145    
       145                    IF( OCV .NE. 2 ) GO TO 52                                      PRNTRLI   146    
                    *                                          BOS                           PRNTRLI   147    
                              PRINT 51,CAV,IHV,INV                                           PRNTRLI   148    
                     51       FORMAT(* STMT*I5,Z6*B*Z2)                                      PRNTRLI   149    
                              GO TO 60                                                       PRNTRLI   150    
       150                                                                                   PRNTRLI   151    
                     52       IF( OCV .NE. 3 ) GO TO 54                                      PRNTRLI   152    
                    *                                          EOS                           PRNTRLI   153    
                              PRINT 53,NAM,IHV,INV                                           PRNTRLI   154    
                     53       FORMAT(2X,A4,Z10*B*Z2)                                         PRNTRLI   155    
       155                    GO TO 60                                                       PRNTRLI   156    
                                                                                             PRNTRLI   157    
                    *                                  LAB,UJP,RJX,EOQ, ETC                  PRNTRLI   158    
                     54       SYV = SYM(IHV)                                                 PRNTRLI   159    
                              PRINT 57,NAM,SYV,CAV                                           PRNTRLI   160    
       160           57       FORMAT(2X,A4,3X,A7,* / *O6)                                    PRNTRLI   161    
                                                                                             PRNTRLI   162    
                     60       IF( RL2 .EQ. 0 ) GO TO 100                                     PRNTRLI   163    
                              RIV = FIELD(RL2,0,18)                                          PRNTRLI   164    
                              RJV = FIELD(RL2,18,18)                                         PRNTRLI   165    
       165                    RKV = FIELD(RL2,36,18)                                         PRNTRLI   166    
                              OCV = FIELD(RL2,54,6)                                          PRNTRLI   167    
                              PRINT 61,OCV,RKV,RJV,RIV                                       PRNTRLI   168    
                     61       FORMAT(4X,O2,3Z6)                                              PRNTRLI   169    
                                                                                             PRNTRLI   170    
       170           100      PRINT 101                                                      PRNTRLI   171    
                     101      FORMAT(/)                                                      PRNTRLI   172    
1         SUBROUTINE PRNTRLI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     4
0 
                              RETURN                                                         PRNTRLI   173    
                                                                                             PRNTRLI   174    
                              END                                                            PRNTRLI   175    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        14    I     JPBB      DATA VARIABLE LIST EXCEEDS ITEM LIST, EXCESS VARIABLES NOT INITIALIZED. 
        69    I     0         A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITHMETIC OPERATOR. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  PRNTRLI 
  
   VARIABLES     SN  TYPE           RELOCATION  
     456  CAV       INTEGER                              0  FRW       INTEGER    ARRAY     F.P.   
     460  H2V       INTEGER                            463  I         INTEGER                     
     464  IHV       INTEGER                            461  INV       INTEGER                     
     504  JPBB      INTEGER    ARRAY                   474  JPX       INTEGER    ARRAY            
     453  NAM       INTEGER                            451  OCV       INTEGER                     
       0  OPRS      INTEGER    ARRAY    OPRS           457  RFV       INTEGER                     
     452  RIV       INTEGER                            454  RJV       INTEGER                     
     455  RKV       INTEGER                            466  RLI       INTEGER    ARRAY            
     467  RL2       INTEGER                            471  RTAB      INTEGER    ARRAY            
     462  SOX       INTEGER                            465  SYV       INTEGER                     
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          SYM       INTEGER    1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          CA        INTEGER    1    SF                      FIELD     INTEGER    3    SF          
          H2        INTEGER    1    SF                      IABS      INTEGER    1  INTRIN        
          IH        INTEGER    1    SF                      IN        INTEGER    1    SF          
          KS        INTEGER    1    SF                      MASK      NO TYPE    1  INTRIN        
          OC        INTEGER    1    SF                      RF        INTEGER    1    SF          
          RI        INTEGER    1    SF                      RJ        INTEGER    1    SF          
          RK        INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          SO        INTEGER    1    SF          
  
   STATEMENT LABELS         
      27  20                                 241  21      FMT                        250  22      FMT                 
      40  23                                 255  24      FMT                         42  25                          
     303  26      FMT                         47  30                                 265  31      FMT                 
     275  32      FMT                         75  33                                 110  34                          
     112  35                                 120  37                                 127  38                          
     140  39                                 142  40                                 150  41                          
     153  42                                 164  45                                 172  50                          
1         SUBROUTINE PRNTRLI    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     5
0  STATEMENT LABELS         
     377  51      FMT                        203  52                                 411  53      FMT                 
     210  54                                 422  57      FMT                        214  60                          
     435  61      FMT                        224  100                                442  101     FMT                 
     317  135     FMT                        330  138     FMT                        335  139     FMT                 
     343  140     FMT                        351  142     FMT                        357  143     FMT                 
     366  145     FMT                 
  
   COMMON BLOCKS   LENGTH   
          OPRS          1             
  
   STATISTICS     
     PROGRAM LENGTH                514B     332 
     CM LABELED COMMON LENGTH        1B       1 
             60300B CM USED 
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     1
0 
         1                    SUBROUTINE PRNT MCG( TXT , INDX , LAB )                        PRNTMCG     2    
                                                                                             PRNTMCG     3    
                    **        PRNT MCG - *MCG* DEBUGGING PRINT ROUTINES                      PRNTMCG     4    
                                                                                             PRNTMCG     5    
         5                    IMPLICIT INTEGER(A-Z)                                          PRNTMCG     6    
                              INTEGER TXT(1)                                                 PRNTMCG     7    
                              COMMON/MCG/NINST,NSTORES,SEQTIME,ICL,RMR,DUMMY,PBI(2),DT,IWT   PRNTMCG     8    
                              COMMON/MCG/AXR,ALR,STL,RVT(24),DUM2,TRA(24),ARA(8),TFU(12)     PRNTMCG     9    
                              COMMON/MCG/LST(2),LXR,NGX,T,PC,TRS                             PRNTMCG    10    
        10                    COMMON/MCG/ JLR,TLAB,TJP,EOQA,IIP(2),EIW,RBV(24)               PRNTMCG    11    
                                                                                             PRNTMCG    12    
                              COMMON/LINE/LINECM(2)                                          PRNTMCG    13    
                              INTEGER REGS(24),FUNITS(2,9),XREGT(2,8)                        PRNTMCG    14    
                              INTEGER SUBTTL(6)                                              PRNTMCG    15    
        15                    DATA SUBTTL(1) /                                               PRNTMCG    16    
                         .58L  PC  LATE     T   TIS   TEX   TRA   TFU  USES  REG  INST     / PRNTMCG    17    
                              DATA REGS / 2RB0,2RB1,2RB2,2RB3,2RB4,2RB5,2RB6,2RB7,           PRNTMCG    18    
                         .    2RA0,2RA1,2RA2,2RA3,2RA4,2RA5,2RA6,2RA7,2RX0,2RX1,2RX2,2RX3,   PRNTMCG    19    
                         .    2RX4,2RX5,2RX6,2RX7    /                                       PRNTMCG    20    
        20                    DATA (FUNITS(1,I),I=1,9) /5L BOOL , 5L SHFT , 5L IADD ,        PRNTMCG    21    
                         .    5L FADD , 5L MULT , 5L MUL2 , 5L DIV  , 5L INC1 , 5L INC2  /   PRNTMCG    22    
                                                                                             PRNTMCG    23    
                              FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                  PRNTMCG    24    
                                                                                             PRNTMCG    25    
        25                    LINK(X) = FIELD(X,0,18)                                        PRNTMCG    26    
                              RANK(X) = FIELD(X,18,15)                                       PRNTMCG    27    
                                                                                             PRNTMCG    28    
                              OC(X) = FIELD(X,48,7)                                          PRNTMCG    29    
                              RI(X) = FIELD(X,0,16)                                          PRNTMCG    30    
        30                    TI(X) = FIELD(X,0,18)                                          PRNTMCG    31    
                              TE(X) = FIELD(X,18,18)                                         PRNTMCG    32    
                              REG(X) = FIELD(X,48,6)                                         PRNTMCG    33    
                              FU(X)  = FIELD(X,48,6)                                         PRNTMCG    34    
                              LI(X) = FIELD(X,0,18)                                          PRNTMCG    35    
        35                                                                                   PRNTMCG    36    
                              USES(X) = FIELD(X,48,9)                                        PRNTMCG    37    
                              FT(X) = FIELD(X,53,5)                                          PRNTMCG    38    
                              SZ(X) = FIELD(X,23,2)                                          PRNTMCG    39    
                                                                                             PRNTMCG    40    
        40                    GO TO ( 1 , 100 , 200 , 300 , 400 , 500 ) INDX                 PRNTMCG    41    
                                                                                             PRNTMCG    42    
                    **        PRINT OUT THE ISSUE CANIDATE LIST                              PRNTMCG    43    
                                                                                             PRNTMCG    44    
                     1        IF( ICL .NE. 0 ) GO TO 10                                      PRNTMCG    45    
        45                    PRINT 5,LAB                                                    PRNTMCG    46    
                     5        FORMAT(A6," ** ERROR **, ICL = 0"/)                            PRNTMCG    47    
                              EOQA = -EOQA                                                   PRNTMCG    48    
                              RETURN                                                         PRNTMCG    49    
                                                                                             PRNTMCG    50    
        50           10       LINECM = LINECM(2)                                             PRNTMCG    51    
                              PRINT 11,LAB,ICL                                               PRNTMCG    52    
                     11       FORMAT(/A6* ICL =*Z6)                                          PRNTMCG    53    
                              J = 1                                                          PRNTMCG    54    
                    *         RL,RT,RR = RANK LAST, RANK THIS, RANK REVERSAL FLAG (*ERROR*)  PRNTMCG    55    
        55                    RL = RR = 0                                                    PRNTMCG    56    
                              K = ICL                                                        PRNTMCG    57    
                     20       K = LINK( TXT(K+4) )                                           PRNTMCG    58    
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     2
0 
                              IF( K .EQ. 0 ) GO TO 30                                        PRNTMCG    59    
                              RT = RANK( TXT(K+4) )                                          PRNTMCG    60    
        60                    IF( RT .LT. RL ) RR = K                                        PRNTMCG    61    
                              RL = RT                                                        PRNTMCG    62    
                              PRINT 21,K                                                     PRNTMCG    63    
                     21       FORMAT(Z6)                                                     PRNTMCG    64    
                              J = J + 1                                                      PRNTMCG    65    
        65                    IF( J .LT. 15 ) GO TO 20                                       PRNTMCG    66    
                              J = 0                                                          PRNTMCG    67    
                              PRINT 22                                                       PRNTMCG    68    
                     22       FORMAT(/12X)                                                   PRNTMCG    69    
                              IF( RR .EQ. 0 ) GO TO 20                                       PRNTMCG    70    
        70                                                                                   PRNTMCG    71    
                     30       IF( J .NE. 0 ) PRINT 31                                        PRNTMCG    72    
                     31       FORMAT(/)                                                      PRNTMCG    73    
                              IF( RR .EQ. 0 ) GO TO 40                                       PRNTMCG    74    
                              PRINT 32,RR                                                    PRNTMCG    75    
        75           32       FORMAT(6X,O6,* IS IN WRONG ORDER, RANK REVERSAL OR LOOP IN ICL PRNTMCG    76    
                         .*/)                                                                PRNTMCG    77    
                              EOQA = -EOQA                                                   PRNTMCG    78    
                              NRE = NRE + 1                                                  PRNTMCG    79    
                              IF( NRE .LE. 5 ) CALL REMARK(28L -RANK REVERSAL ERROR-       ) PRNTMCG    80    
        80                                                                                   PRNTMCG    81    
                     40       LINECM = 0                                                     PRNTMCG    82    
                              RETURN                                                         PRNTMCG    83    
                                                                                             PRNTMCG    84    
                    **        PRINT THE ISSUED INSTRUCTION                                   PRNTMCG    85    
        85                                                                                   PRNTMCG    86    
                     100      LIX = LI( PBI(2) )                                             PRNTMCG    87    
                              LIX = SHIFT( SHIFT(LIX,42) , -42)                              PRNTMCG    88    
                                                                                             PRNTMCG    89    
                     101      OCV = OC( TXT(LIX+1) )                                         PRNTMCG    90    
        90                    U = USES( TXT(LIX+4) )                                         PRNTMCG    91    
                              OCV = OC( TXT(LIX+1) )                                         PRNTMCG    92    
                              IWD = 0                                                        PRNTMCG    93    
                              LINECM = LINECM(2)                                             PRNTMCG    94    
                              IF( OCV .GT. 7 ) GO TO 110                                     PRNTMCG    95    
        95          *                            PRINT OUT TIME FOR PSEUDO INSTRUCTION       PRNTMCG    96    
                              IF( HEADER .NE. 0  ) GO TO 104                                 PRNTMCG    97    
                              PRINT 111,PC,IWD,T                                             PRNTMCG    98    
                              PRINT 102                                                      PRNTMCG    99    
                     102      FORMAT(29X)                                                    PRNTMCG   100    
       100                    GO TO 120                                                      PRNTMCG   101    
                                                                                             PRNTMCG   102    
                     104      PRINT 103,PC,T,U                                               PRNTMCG   103    
                     103      FORMAT(I4,6X,I6,24X,I6,5X)                                     PRNTMCG   104    
                              GO TO 120                                                      PRNTMCG   105    
       105                                                                                   PRNTMCG   106    
                     110      TIS = TI(PBI)                                                  PRNTMCG   107    
                              TEX = TE(PBI)                                                  PRNTMCG   108    
                              FUO = FU(PBI(2))                                               PRNTMCG   109    
                              REGNO = REG(PBI)                                               PRNTMCG   110    
       110                    TRAT = TRA(REGNO+1)                                            PRNTMCG   111    
                              TFUA = TFU(FUO+1)                                              PRNTMCG   112    
                              REGNO = REGS(REGNO+1)                                          PRNTMCG   113    
                              IWD = TIS - RANK( TXT(LIX+4) )                                 PRNTMCG   114    
                              MAXEST = MAX0( MAXEST , RANK(TXT(LIX+4))-T )                   PRNTMCG   115    
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     3
0 
       115                                                                                   PRNTMCG   116    
                              IF( HEADER. EQ. 0 ) GO TO 115                                  PRNTMCG   117    
                              PRINT 114,PC,IWD,T,TIS,TEX,TRAT,TFUA,U,REGNO                   PRNTMCG   118    
                     114      FORMAT(I4,7I6,3X,R2)                                           PRNTMCG   119    
                              GO TO 120                                                      PRNTMCG   120    
       120                                                                                   PRNTMCG   121    
                     115      PRINT 111,PC,IWD,T,TIS,TEX,TRAT,TFUA,U,REGNO                   PRNTMCG   122    
                     111      FORMAT(I4,* T,TI,TE,TRA,TFU,USES *7I6,3X,R2)                   PRNTMCG   123    
                                                                                             PRNTMCG   124    
                     120      CALL PRNTRLI( TXT( LIX+1 ) )                                   PRNTMCG   125    
       125                    LINECM = 0                                                     PRNTMCG   126    
                    C         CHECK FOR XMT/SA WITH RI = 0 AND SKIP CHECK IF SO              PRNTMCG   127    
                              IF( RI( TXT(LIX+1) ) .NE. 0 ) GO TO 240                        PRNTMCG   128    
                              IF( OCV .EQ. 10B ) RETURN                                      PRNTMCG   129    
                              IF( OCV .NE. 60B ) GO TO 240                                   PRNTMCG   130    
       130                    RETURN                                                         PRNTMCG   131    
                                                                                             PRNTMCG   132    
                    **        PRINT OUT REGISTER USEAGE INFO                                 PRNTMCG   133    
                     200      CONTINUE                                                       PRNTMCG   134    
                              PRINT 201,REGS                                                 PRNTMCG   135    
       135           201      FORMAT(4X,24(3X,R2))                                           PRNTMCG   136    
                              LINECM = LINECM(2)                                             PRNTMCG   137    
                                                                                             PRNTMCG   138    
                    *         PRINT R-NUMBERS IN REGISTERS                                   PRNTMCG   139    
                                                                                             PRNTMCG   140    
       140                    PRINT 202                                                      PRNTMCG   141    
                     202      FORMAT(*  RI*)                                                 PRNTMCG   142    
                              DO 220 I = 1,24                                                PRNTMCG   143    
                              IF( RVT(I) .NE. 0 ) GO TO 215                                  PRNTMCG   144    
                              PRINT 211                                                      PRNTMCG   145    
       145           211      FORMAT(5X)                                                     PRNTMCG   146    
                              GO TO 220                                                      PRNTMCG   147    
                     215      PRINT 216,RVT(I)                                               PRNTMCG   148    
                     216      FORMAT(Z5)                                                     PRNTMCG   149    
                     220      CONTINUE                                                       PRNTMCG   150    
       150                                                                                   PRNTMCG   151    
                    *         PRINT REMAINING USES OF RI IN REG                              PRNTMCG   152    
                                                                                             PRNTMCG   153    
                              PRINT 221                                                      PRNTMCG   154    
                     221      FORMAT(/*  USES D *)                                           PRNTMCG   155    
       155                    DO 230 I = 2,24                                                PRNTMCG   156    
                              IF( RVT(I) .NE. 0 ) GO TO 225                                  PRNTMCG   157    
                              PRINT 222                                                      PRNTMCG   158    
                     222      FORMAT(5X)                                                     PRNTMCG   159    
                              GO TO 230                                                      PRNTMCG   160    
       160                                                                                   PRNTMCG   161    
                     225      U = USES( TXT( RVT(I) + 4 ) )                                  PRNTMCG   162    
                              PRINT 226,U                                                    PRNTMCG   163    
                     226      FORMAT(I5)                                                     PRNTMCG   164    
                     230      CONTINUE                                                       PRNTMCG   165    
       165                    PRINT 31                                                       PRNTMCG   166    
                     240      LINECM = 0                                                     PRNTMCG   167    
                                                                                             PRNTMCG   168    
                    *         NOW RUN SOME CONSISENCY CHECKS                                 PRNTMCG   169    
                    *         REG( TXT(RVT(I))) = I - 1                                      PRNTMCG   170    
       170                                                                                   PRNTMCG   171    
                              RUSE = 0                                                       PRNTMCG   172    
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     4
0 
                              DO 250 I = 2,24                                                PRNTMCG   173    
                              IF( RVT(I) .EQ. 0 ) GO TO 250                                  PRNTMCG   174    
                              REGNO = LINK( TXT( RVT(I) + 4 ) )                              PRNTMCG   175    
       175                    IF( REGNO.EQ. I - 1 ) GO TO 250                                PRNTMCG   176    
                              IF( REGNO .EQ. 10B ) GO TO 250                                 PRNTMCG   177    
                              K = RVT(I)                                                     PRNTMCG   178    
                              PRINT 246,I-1,REGNO,TXT(K+4),K                                 PRNTMCG   179    
                     246      FORMAT("  ERROR, REG IN RVT("O2") IS "O2,2O22)                 PRNTMCG   180    
       180                    RUSE = 1                                                       PRNTMCG   181    
                     250      CONTINUE                                                       PRNTMCG   182    
                                                                                             PRNTMCG   183    
                                                                                             PRNTMCG   184    
                    *         MAKE SURE THAT *AXR* IS CORRECT                                PRNTMCG   185    
       185                                                                                   PRNTMCG   186    
                              DO 260 I = 2,24                                                PRNTMCG   187    
                              IF( RBV(I) .EQ. 0 ) GO TO 260                                  PRNTMCG   188    
                              BIT = AXR .A. RBV(I)                                           PRNTMCG   189    
                              IF( RVT(I) .NE. 0 ) GO TO 255                                  PRNTMCG   190    
       190                    IF( BIT .NE. 0 ) GO TO 260                                     PRNTMCG   191    
                              PRINT 251,I-1                                                  PRNTMCG   192    
                     251      FORMAT(" ** ERROR **, RVT("O2") = 0 AND REG NOT AVAIL")        PRNTMCG   193    
                              RUSE = 1                                                       PRNTMCG   194    
                              GO TO 260                                                      PRNTMCG   195    
       195                                                                                   PRNTMCG   196    
                     255      IF( BIT .EQ. 0 ) GO TO 260                                     PRNTMCG   197    
                              PRINT 256,I-1                                                  PRNTMCG   198    
                     256      FORMAT(" **ERROR **, RVT("O2*) " 0 AND REG IS AVAIL*)          PRNTMCG   199    
                              RUSE = 1                                                       PRNTMCG   200    
       200           260      CONTINUE                                                       PRNTMCG   201    
                              IF( RUSE .EQ. 0 ) RETURN                                       PRNTMCG   202    
                              NRUSEE = NRUSEE + 1                                            PRNTMCG   203    
                              IF( NRUSEE .LE. 5 ) CALL REMARK( 22L -REG USEAGE ERROR-      ) PRNTMCG   204    
                              RETURN                                                         PRNTMCG   205    
       205                                                                                   PRNTMCG   206    
                    **        PRINT FUNIT AND X-REG AVAIL TIMES                              PRNTMCG   207    
                                                                                             PRNTMCG   208    
                     300      DO 310 I = 1,9                                                 PRNTMCG   209    
                     310      FUNITS(2,I) = TFU(I+2)                                         PRNTMCG   210    
       210                    DO 320 I = 1,8                                                 PRNTMCG   211    
                              XREGT(1,I) = REGS(I+16)                                        PRNTMCG   212    
                     320      XREGT(2,I) = TRA(I+16)                                         PRNTMCG   213    
                              PRINT 321,LAB,FUNITS,XREGT,LST                                 PRNTMCG   214    
                     321      FORMAT(A6, 9(A5,I5)/6X,8(2X,R2,I6)," LST "I5," LLT"I6)         PRNTMCG   215    
       215                    RETURN                                                         PRNTMCG   216    
                                                                                             PRNTMCG   217    
                    **        FINAL CHECK                                                    PRNTMCG   218    
                    *         ENSURE JLR,LXR,NSTORES = 0 AND RVT(I) = 0 FOR I = 0 TO 23      PRNTMCG   219    
                    *         PRINT OUT SEQTIME AND MCG TIME                                 PRNTMCG   220    
       220                                                                                   PRNTMCG   221    
                     400      LINECM = LINECM(2)                                             PRNTMCG   222    
                              CALL SETST( 0 )                                                PRNTMCG   223    
                              PRINT 401,MAXEST,DT                                            PRNTMCG   224    
                     401      FORMAT(/* MCG SUMMARY, MAX(EST),DELTA T =*2I4,2X)              PRNTMCG   225    
       225                                                                                   PRNTMCG   226    
                              IF( NSTORES .GE. 0 ) GO TO 403                                 PRNTMCG   227    
                              PRINT 402,"N.ST = ", -NSTORES                                  PRNTMCG   228    
                     402      FORMAT(A10,O20)                                                PRNTMCG   229    
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     5
0 
                     403      IF( JLR .EQ. 0 ) GO TO 404                                     PRNTMCG   230    
       230                    PRINT 402, "  JLR = ",JLR                                      PRNTMCG   231    
                     404      IF( LXR .EQ. 0 ) GO TO 405                                     PRNTMCG   232    
                              PRINT 402, "  LXR = ",LXR                                      PRNTMCG   233    
                     405      IF( (AXR.A.377777B) .EQ. 377777B ) GO TO 410                   PRNTMCG   234    
                              PRINT 402 , "  AXR = " , AXR                                   PRNTMCG   235    
       235                                                                                   PRNTMCG   236    
                     410      RVTE = 0                                                       PRNTMCG   237    
                              DO 415 I = 1,24                                                PRNTMCG   238    
                     415      RVTE = RVTE + RVT(I)                                           PRNTMCG   239    
                              IF( RVTE .EQ. 0 ) GO TO 420                                    PRNTMCG   240    
       240                    PRINT 411                                                      PRNTMCG   241    
                     411      FORMAT(*  RVT " 0 *)                                           PRNTMCG   242    
                                                                                             PRNTMCG   243    
                    *                COMPUTE TIME FOR A SEQUENTIAL MACHINE                   PRNTMCG   244    
                     420      T64 = -1                                                       PRNTMCG   245    
       245                    DO 425 I = 2,NINST                                             PRNTMCG   246    
                     425      T64 = T64 + FT( TXT(4*I-1) )                                   PRNTMCG   247    
                                                                                             PRNTMCG   248    
                     430      PRINT 426, SEQTIME,T64,T                                       PRNTMCG   249    
                     426      FORMAT(/" *********"," PERT TIME, T(6400), T = ",3I6/)         PRNTMCG   250    
       250                    LINECM = 0                                                     PRNTMCG   251    
                              HEADER = 0                                                     PRNTMCG   252    
                              RETURN                                                         PRNTMCG   253    
                                                                                             PRNTMCG   254    
                    **        HEAD OPTION - SET LISTING HEADER FLAG AND SUB TITLE            PRNTMCG   255    
       255                                                                                   PRNTMCG   256    
                     500      HEADER = 1                                                     PRNTMCG   257    
                              CALL SETST( 6 , SUBTTL )                                       PRNTMCG   258    
                              LIX = 0                                                        PRNTMCG   259    
                              MAXEST = 0                                                     PRNTMCG   260    
       260                    GO TO 101                                                      PRNTMCG   261    
                                                                                             PRNTMCG   262    
                              END                                                            PRNTMCG   263    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
        15    I       PC  LA  HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS CHARACTERS INITIALIZED INTO SUCCEEDING WORDS. 
        50    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        81    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
        93    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       125    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       136    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       166    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       221    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       250    I     LINECM    ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEMENT WILL BE USED. 
       257    I     )         ARGUMENT COUNT INCONSISTENT WITH PRIOR USAGE. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     6
0  ENTRY POINTS   
       3  PRNTMCG 
  
   VARIABLES     SN  TYPE           RELOCATION  
      13  ALR       INTEGER             MCG             76  ARA       INTEGER    ARRAY    MCG     
      12  AXR       INTEGER             MCG           1013  BIT       INTEGER                     
      10  DT        INTEGER             MCG              5  DUMMY     INTEGER             MCG     
      45  DUM2      INTEGER             MCG            137  EIW       INTEGER             MCG     
     134  EOQA      INTEGER             MCG           1047  FUNITS    INTEGER    ARRAY            
    1004  FUO       INTEGER                           1001  HEADER    INTEGER                     
    1011  I         INTEGER                              3  ICL       INTEGER             MCG     
     135  IIP       INTEGER    ARRAY    MCG              0  INDX      INTEGER              F.P.   
    1000  IWD       INTEGER                             11  IWT       INTEGER             MCG     
     767  J         INTEGER                            131  JLR       INTEGER             MCG     
     772  K         INTEGER                              0  LAB       INTEGER              F.P.   
       0  LINECM    INTEGER    ARRAY    LINE           775  LIX       INTEGER                     
     122  LST       INTEGER    ARRAY    MCG            124  LXR       INTEGER             MCG     
    1010  MAXEST    INTEGER                            125  NGX       INTEGER             MCG     
       0  NINST     INTEGER             MCG            774  NRE       INTEGER                     
    1014  NRUSEE    INTEGER                              1  NSTORES   INTEGER             MCG     
     776  OCV       INTEGER                              6  PBI       INTEGER    ARRAY    MCG     
     127  PC        INTEGER             MCG            140  RBV       INTEGER    ARRAY    MCG     
    1005  REGNO     INTEGER                           1017  REGS      INTEGER    ARRAY            
     770  RL        INTEGER                              4  RMR       INTEGER             MCG     
     771  RR        INTEGER                            773  RT        INTEGER                     
    1012  RUSE      INTEGER                             15  RVT       INTEGER    ARRAY    MCG     
    1015  RVTE      INTEGER                              2  SEQTIME   INTEGER             MCG     
      14  STL       INTEGER             MCG           1111  SUBTTL    INTEGER    ARRAY            
     126  T         INTEGER             MCG           1003  TEX       INTEGER                     
     106  TFU       INTEGER    ARRAY    MCG           1007  TFUA      INTEGER                     
    1002  TIS       INTEGER                            133  TJP       INTEGER             MCG     
     132  TLAB      INTEGER             MCG             46  TRA       INTEGER    ARRAY    MCG     
    1006  TRAT      INTEGER                            130  TRS       INTEGER             MCG     
       0  TXT       INTEGER    ARRAY     F.P.         1016  T64       INTEGER                     
     777  U         INTEGER                           1071  XREGT     INTEGER    ARRAY            
  
   FILE NAMES        MODE             
          OUTPUT    FMT     
  
   EXTERNALS          TYPE   ARGS     
          PRNTRLI              1                            REMARK               1                
          SETST                1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          FIELD     INTEGER    3    SF                      FT        INTEGER    1    SF          
          FU        INTEGER    1    SF                      LI        INTEGER    1    SF          
          LINK      INTEGER    1    SF                      MASK      NO TYPE    1  INTRIN        
          MAX0      INTEGER    0  INTRIN                    OC        INTEGER    1    SF          
          RANK      INTEGER    1    SF                      REG       INTEGER    1    SF          
          RI        INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          SZ        INTEGER    1    SF                      TE        INTEGER    1    SF          
          TI        INTEGER    1    SF                      USES      INTEGER    1    SF          
  
   STATEMENT LABELS         
      21  1                                  413  5       FMT                         26  10                          
     425  11      FMT                         35  20                                 434  21      FMT                 
     441  22      FMT                         56  30                                 446  31      FMT                 
1         SUBROUTINE PRNTMCG    74/835  OPT=1                           FTN 4.8+871        24/05/05. 19.57.51       PAGE     7
0  STATEMENT LABELS         
     454  32      FMT                         72  40                                  74  100                         
      77  101                                474  102     FMT                        504  103     FMT                 
     115  104                                120  110                                542  111     FMT                 
     523  114     FMT                        143  115                                145  120                         
     157  200                                553  201     FMT                        561  202     FMT                 
     566  211     FMT                        171  215                                574  216     FMT                 
     175  220                                601  221     FMT                        607  222     FMT                 
     206  225                                615  226     FMT                        213  230                         
     217  240                                631  246     FMT                        236  250                         
     643  251     FMT                        254  255                                656  256     FMT                 
     262  260                                273  300                                  0  310                         
       0  320                                674  321     FMT                        314  400                         
     707  401     FMT                        722  402     FMT                        325  403                         
     330  404                                333  405                                337  410                         
     746  411     FMT                          0  415                                351  420                         
       0  425                                757  426     FMT                          0  430         INACTIVE        
     366  500                         
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
     165  220      I          142 149      13B              EXT REFS          
     202  230      I          155 164      14B              EXT REFS          
     222  250      I          172 181      17B              EXT REFS          
     242  260      I          186 200      23B              EXT REFS          
     276  310      I          208 209       3B        OPT           
     305  320      I          210 212       4B        OPT           
     343  415      I          237 238       3B        OPT           
     356  425      I          245 246       4B        OPT           
  
   COMMON BLOCKS   LENGTH   
          MCG         120             
          LINE          2             
  
   STATISTICS     
     PROGRAM LENGTH               1143B     611 
     CM LABELED COMMON LENGTH      172B     122 
             60300B CM USED 
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1422              IDENT  FTN
                       1422                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       420 
                                        COMPCOM   COMMON          0       140 
                                        BUFFERS   LOCAL         420      1002 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN            0+           CO.DBSB        112+           HO$OBL        1001
                                        CP.ABT           3+/COMPCOM/  CO.DBSL        113+           HO$SNAP        164+ 
                                        CP.ERCT          4+/COMPCOM/  CO.DBST        114+           HO$UO          144+ 
                                        CP.FLIN         26+/COMPCOM/  CO.DBTB        115+           HO$ARGC        105+ 
                                        CP.IFMT         17+/COMPCOM/  CO.DS          116+           FTNLFN         171+ 
                                        CP.LSTF          5+/COMPCOM/  CO.EC          117+           FTNLDR         172+ 
                                        CP.MXFL         15+/COMPCOM/  CO.EL          120+           FTNHHA         174+ 
                                        CP.STXT         50+/COMPCOM/  CO.ET          121+           O.TITL         175+ 
                                        CP.XTXT         16+/COMPCOM/  CO.GO          122+           TL.EJCT        175+ 
                                        CP.ILFL         22+/COMPCOM/  CO.LCM         123+           TL.PTYP        176+ 
                                        CP.AFLL         72+/COMPCOM/  CO.LL          124+           TL.PNAM        177+ 
                                        CP.AFLS         70+/COMPCOM/  CO.MD          125+           TL.CPU         200+ 
                                        CP.BLF          10+/COMPCOM/  CO.OPT         126+           TL.CSOP        201+ 
                                        CP.CARD         30+/COMPCOM/  CO.PS          127+           O.TTLA         204+ 
                                        CP.CPU          14+/COMPCOM/  CO.PW          130+           TL.DATE        206+ 
                                        CP.LCOM        135            CO.PWE         131+           TL.TIME        207+ 
                                        CP.LIB          60+/COMPCOM/  CO.PWT         110            TL.PAGE        211+ 
                                        CP.MODL         74+/COMPCOM/  CO.REWB        132+           O.CPV          212+ 
                                        CP.NFLL         73+/COMPCOM/  CO.REWE        133+           O.TA           217+ 
                                        CP.NFLS         71+/COMPCOM/  CO.REWI        134+           L.PWA          225+ 
                                        CP.PAGE          6+/COMPCOM/  CO.REWL        135+           L.TWO           14
                                        CP.PCOM         75+/COMPCOM/  CO.RNDA        136+           L.TA             5
                                        CP.PD           11+/COMPCOM/  CO.RNDS        137+           L.TB             7
                                        CP.PS           12+/COMPCOM/  CO.RNDM        140+           O.CC           226+ 
                                        CP.PW           13+/COMPCOM/  CO.RNDD        141+           O.C            235+ 
                                        CP.EPAG          7+/COMPCOM/  CO.SEQ         142+           L.PWB          243+ 
                                        SYS=             2+           CO.STAT        143+           L.TITL          15
                                        RCL=            15+           CO.UO          144+           L.TTLA           5
                                        WNB=            21+           CO.WPL         145+           L.TTLB           6
                                        MSG=            31+           CO.WPE         146+           L.CC            15
                                        INT.FL          37+           CO.C$          147+           L.CCA            7
                                        F.IN           100+/COMPCOM/  CO.CS          147+           L.CCB            7
                                        F.OUT          110+/COMPCOM/  CO.DOLG        150+           ERFO            47
                                        F.ERRS         120+/COMPCOM/  CO.DOOT        151+           LDCOM          261+ 
                                        F.LGO          130+/COMPCOM/  CO.LOA         152+           LOVER          266+ 
                                        F.PB            40+           CO.LOM         153+           LDPRI          320+ 
                                        F.SLST          40+           CO.LOO         154+           ABTFTN         340+ 
                                        F.IL            50+           CO.LOR         155+           MEMERR         343+ 
                                        F.REF           60+           CO.LOS         156+           IDPCHK         355+ 
                                        OUTPUT#        110+/COMPCOM/  CO.QC          157+           OFFSPY         366+ 
                                        FTIFL           70+           L.C$            11            ONSPY          374+ 
                                        JOT             71+           CO.BRK         160+           SPYW           405+ 
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        MAX.FL          72+           CO.CPL         161+           COD            411+ 
                                        NOM.FL          73+           CO.IDP         162+           COD=           411+ 
                                        OT.DAL          74+           CO.RFL         163+           IBUF           420+ 
                                        OT.RM           75+           CO.SNAP        164+           OBUF          1422+ 
                                        RAPFLAG         76+           CO.SPP         165+           FIN.FTN       1422+ 
                                        RS.PD           77+           LCM.OA         166+           FVTBL          420+ 
                                        TIME0          100+           LCM.MM         167+           RPV=FVT          2
                                        TIME1          101+           LCM.MU         170+           FV.IN            2
                                        ENOT=L         102+           LCM.FL          72+/COMPCOM/  FV.OUT           3
                                        CO.AL          103+           GT1             24+/COMPCOM/  FV.ERRS          4
                                        CO.ANSI        104+           GT2             25+/COMPCOM/  FV.LGO           5
                                        CO.ARGC        105+           HO$ER          107+           FV.PB            6
                                        CO.ARGF        106+           HO$TB          115+           FV.IL            7
                                        CO.DBB           4+/COMPCOM/  HO$IE          120+           FV.REF          10
                                        CO.DBER        107+           HO$LCM         123+           FVLEN           16
                                        CO.DBID        110+           HO$LO$S        156+ 
                                        CO.DBPM        111+           HO$MFLS         72+ 
  
  
                                        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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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  0400000316 +             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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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
                               12000     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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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/05. 19.57.57.      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  00000000000000000004     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/05. 19.57.57.      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
           160  00000000000000000000     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
           161  00000000000000000310     CO.CPL   CONENT 200         COMPILE TIME PAGE LIMIT                     FTN      1100
           162  00000000000000000000     CO.IDP   CONENT 0           IDP BREAK FLAGS                             FTN      1101
           163  00000000000000000000     CO.RFL   CONENT 0           COMPILER INITIAL FL                         FTN      1102
           164  00000000000000000000     CO.SNAP  CONENT 0           .NZ. IF SNAPS DESIRED                       FTN      1103
           165  00000000000000000000     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/05. 19.57.57.      PAGE    43
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          LCMFLAGS
  
                                        **        FLAGS ASSOCIATED WITH LCM USAGE ( OPT .GE. 2 )                 FTN      1107
                                                                                                                 FTN      1108
                                                                                                                 FTN      1109
           166  00000000000000000000     LCM.OA   CONENT 0           ORIGIN OF ALLOCATABLE LCM                   FTN      1110
           167  00000000000000000000     LCM.MM   CONENT 0           MEMORY MODE ( = 1S59 IF REDUCE MODE )       FTN      1111
           170  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/05. 19.57.57.      PAGE    44
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          OVERLAY 
  
                                        **        NAMES/FLAGS FOR OVERLAYS LOADED BY FTN.                        FTN      1138
                                                                                                                 FTN      1139
                                                                                                                 FTN      1140
           171  23312317261400000000     FTNLFN   CONENT 0L"FTNOVL"  FTN LIBRARY OR FILE NAME                    FTN      1141
                                                  ENTRY  FTNLDR                                                  FTN      1142
           172  00002140000000000000     FTNLDR   VFD    6/**,6/**,12/2140B,18/**,18/**    LOAD REQUEST WORD     FTN      1143
           173  01000140000000002777     CMPSLDR  VFD    6/01,6/00,12/0140B,18/**,18/CP.ORG                      FTN      1144
           174  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
           175                           O.TITL   BSSENT 0                                                       FTN      1158
                                                                                                                 FTN      1159
                                                  LIST   A                                                       FTN      1160
           175                                    CTEXT              COMFTTL - ALLOCATE TITLE LINE.              COMFTTL     2
           175  34555555555555555555     TL.EJCT  CONENT 10H1                            PRINTER SPACE CODE      COMFTTL     3
           176  55555555555555555555     TL.PTYP  CONENT 10H                             PROGRAM UNIT TYPE       COMFTTL     4
           177  55555555555555555555     TL.PNAM  CONENT 10H                             PROGRAM UNIT NAME       COMFTTL     5
                                         TL.CPU   CONENT (10H  70/"TARGET"    )          PROCESSING CPUS         COMFTTL     6
           200  55554233504336405555     TL.CPU   CONENT (10H  70/835     )          PROCESSING CPUS             COMFTTL     6
           201                           TL.CSOP  BSSENT 0                                                       F1039      27
           201  17202454555622172516              DATA   10HOPT= ,ROUN                   CONTROL STMT OPTIONS    F1039      28
           202  04545501505523505515              DATA   10HD= A/ S/ M                                           F1039      29
           203  50550456550423555555              DATA   10H/ D, DS                                              F1039      30
                                                                                                                 F1039      31
                                         O.TTLA   CONENT (10H  FTN "VER"+)                PROCESSOR NAME         COMFTTL    10
           204  55550624165540573445     O.TTLA   CONENT (10H  FTN 5.1+)                PROCESSOR NAME           COMFTTL    10
                                                  DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL     COMFTTL    11
           205  43423447244755555555              DATA   10H871*T*                        PROCESSOR MOD LEVEL    COMFTTL    11
                                        ,                                                                        COMFTTL    11
                                         TL.DATE  CONENT 10H"DATE"                       DATE                    COMFTTL    12
           206  55555555555555555555     TL.DATE  CONENT 10H 24/05/05.                       DATE                COMFTTL    12
                                        ,                                                                        COMFTTL    12
                                         TL.TIME  CONENT 10H"TIME"                       TIME OF DAY             COMFTTL    13
           207  55555555555555555555     TL.TIME  CONENT 10H 19.57.57.                       TIME OF DAY         COMFTTL    13
                                        ,                                                                        COMFTTL    13
           210  55555555555520010705              DATA    4APAGE                                                 COMFTTL    14
           211  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/05. 19.57.57.      PAGE    45
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          TITLE 
  
                                                                                                                 F1039      37
           212  55555555555555555555     O.CPV    CONENT 10H                             SKIP TO NEXT LINE       F1039      38
           213  04175455141716075055              DIS    2,DO= LONG/ OT,ARG= CO                                  F1039      39
           215  15151716505506113005              DIS    2,MMON/ FIXED,CS= USER                                  F1039      40
           217                           O.TA     BSSENT 0                                                       F1039      41
           217  50550611300504560402              DIS    2,/ FIXED,DB= TB/ SB/                                   F1039      42
           221  23145055052250551104              DIS    2,SL/ ER/ ID/ PMD/ ST,                                  F1039      43
           223  00011456201454000000              VFD    6/0,36/6HAL,PL=,18/0                                    FC5A444    42
           224  55555555555555555555              DATA   10H                             PRINT LIMIT             F1039      45
           225  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
           226  55555555555555555555     O.CC     CONENT 1H                             SKIP TO NEXT LINE        F1039      55
           227  55555555555555555555              DATA   1H ,1H ,1H ,1H ,1H ,1H         FORTRAN CALL CARD        F1039      56
           235                           O.C      BSSENT 0                              FIRST 120                F1039      57
           235  55555555555555555555              DATA   1H ,1H ,1H ,1H ,1H ,1H         CHARACTERS               F1039      58
           243  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    175                                    LOC    O.TITL                                                  FTN      1170
                                                                                                                 FTN      1171
                                                  LIST   A                                                       FTN      1172
      L    175                                    CTEXT              COMFTTL - ALLOCATE TITLE LINE.              COMFTTL     2
      L    175  34555555555555555555     TL.EJCT  CONENT 10H1                            PRINTER SPACE CODE      COMFTTL     3
      L    176  55555555555555555555     TL.PTYP  CONENT 10H                             PROGRAM UNIT TYPE       COMFTTL     4
      L    177  55555555555555555555     TL.PNAM  CONENT 10H                             PROGRAM UNIT NAME       COMFTTL     5
                                         TL.CPU   CONENT (10H  70/"TARGET"    )          PROCESSING CPUS         COMFTTL     6
      L    200  55554233504336405555     TL.CPU   CONENT (10H  70/835     )          PROCESSING CPUS             COMFTTL     6
      L    201                           TL.CSOP  BSSENT 0                                                       F1039      27
      L    201  17202454555622172516              DATA   10HOPT= ,ROUN                   CONTROL STMT OPTIONS    F1039      28
      L    202  04545501505523505515              DATA   10HD= A/ S/ M                                           F1039      29
      L    203  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/05. 19.57.57.      PAGE    46
        CONSTANTS, DATA, FLAGS, TEMP STORAGE
  
      L    204  55550624165540573445     O.TTLA   CONENT (10H  FTN 5.1+)                PROCESSOR NAME           COMFTTL    10
                                                  DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL     COMFTTL    11
      L    205  43423447244755555555              DATA   10H871*T*                        PROCESSOR MOD LEVEL    COMFTTL    11
                                        ,                                                                        COMFTTL    11
                                         TL.DATE  CONENT 10H"DATE"                       DATE                    COMFTTL    12
      L    206  55555555555555555555     TL.DATE  CONENT 10H 24/05/05.                       DATE                COMFTTL    12
                                        ,                                                                        COMFTTL    12
                                         TL.TIME  CONENT 10H"TIME"                       TIME OF DAY             COMFTTL    13
      L    207  55555555555555555555     TL.TIME  CONENT 10H 19.57.57.                       TIME OF DAY         COMFTTL    13
                                        ,                                                                        COMFTTL    13
      L    210  55555555555520010705              DATA    4APAGE                                                 COMFTTL    14
      L    211  00000000000000000000     TL.PAGE  CONENT 0                               PAGE NUMBER             COMFTTL    15
                                                  ENDX                                                           COMFTTL    16
           261                                    LOC    *O                                                      FTN      1174
                                                  LIST   *                                                       FTN      1175
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      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
           261                           LDCOM    BSSENT 0                                                       FTN      1183
           261  5150000072 C                      SA5    LCM.FL                                                  FTN      1184
                          5140000264 +            SA4    CPOVL       NAME OF COMPASS (1,0) OVERLAY               FC5A262     8
           262  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
           263  5110000173 +                      SA1    CMPSLDR     OVERLAY LEVEL, LDR FLAGS, FWA LOAD          FTN      1188
                          0400000271 +            EQ     LOV                                                     FTN      1190
                                                                                                                 FC5A262     9
           264  03171520365300000000     CPOVL    DATA   0L"CP.NAME"                                             FC5A262    10
           265  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
           266                           LOVER    BSSENT             ENTRY...                                    FTN      1202
           266  5150000265 +                      SA5    FTN5OVL                                                 FC5A262    12
                          5130000172 +            SA3    FTNLDR                                                  FTN      1204
           267  20230                             LX2    4*6                                                     FTN      1205
                     36652                        IX6    X5+X2       FORM OVERLAY NAME                           FTN      1206
                          5140000171 +            SA4    FTNLFN                                                  FTN      1207
           270  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/05. 19.57.57.      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
           271  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
           272  5170000100                        SA7    RA.ORG      SAVE (X7) = LDR REQUEST WORD 1              FTN      1230
                          5160000315 +            SA6    LOVOVR      SAVE OVERLAY NAME                           FTN      1231
           273  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
           274  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
           275  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
           300  0100000366 +                      CALL   OFFSPY      TURN *SPY* OFF                              FTN      1252
                                                                                                                 FTN      1253
                                                                                                                 FTN      1254
                                        **        LOAD OVERLAY.                                                  FTN      1255
                                                                                                                 FTN      1256
           301  7160140426                        LOADREQ  RA.LDP,RCL  REQUEST OVERLAY LOAD                      FTN      1257
           304  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
           305  0332000311 +                      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
                          5110000315 +            SA1    LOVOVR      NAME OF OVERLAY LOADED                      FTN      1267
           306  5120000264 +                      SA2    CPOVL       NAME OF COMPASS (1,0) OVERLAY               FC5A262    13
                          37612                   IX6    X1-X2                                                   FTN      1269
           307  0306000310 +                      ZR     X6,LOV2     IF COMPASS OVERLAY                          FTN      1270
                          0100000374 +            CALL   ONSPY                                                   FTN      1271
                                         .SPY     ENDIF                                                          FTN      1272
                                                                                                                 FTN      1273
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    49
        LOAD OVERLAYS                                                 LOV 
  
                                                                                                                 FTN      1274
                                        **        TRANSFER CONTROL TO NEWLY-LOADED OVERLAY.                      FTN      1275
                                                                                                                 FTN      1276
           310  0277000000               LOV2     JP     B7          TO NEW OVERLAY                              FTN      1277
                                                                                                                 FTN      1278
                                                                                                                 FTN      1279
                                        **        PROCESS ERROR IN LOADING OVERLAY.                              FTN      1280
                                                                                                                 FTN      1281
           311  7110000314 +             LOV3     MESSAGE LOVERM                                                 FTN      1282
           313  0400000340 +                      EQ     ABTFTN      ABORT                                       FTN      1283
                                                                                                                 FTN      1284
           314  55030116245514170104     LOVERM   DIS    1, CANT LOAD                                            FTN      1285
           315                     1     LOVOVR   BSSZ   1           SAVED NAME OF OVERLAY TO BE LOADED (0L FMT) FTN      1286
  
  
  
  
                                        **        *COMPASS* ASSEMBLER RETURN POINT.                              FTN      1288
                                                                                                                 FTN      1289
           316  6110000001               STOP     SB1    1                                                       FC5A158A   66
                          43601                   MX6    1                                                       FTN      1292
           317  5160000076 +                      SA6    RAPFLAG     SET READ ALREADY PERFORMED FLAG             FTN      1293
  
  
  
  
                                        **        LOAD *FTN* PRIMARY OVERLAY.                                    FTN      1300
                                                                                                                 FTN      1301
           320                           LDPRI    BSSENT 0                                                       FTN      1302
           320  5120000071 C                      SA2    CP.NFLS                                                 FC5A244     6
                          5110000174 +            SA1    FTNHHA                                                  FTN      1305
           321  73111                             =X1    X1+1                                                    FTN      1306
                     37221                        IX2    X2-X1                                                   FTN      1307
                          0322000335 +            PL     X2,LDP7     IF ROOM FOR PRIMARY                         FTN      1308
           322  5120000072 +                      SA2    MAX.FL                                                  FTN      1309
                          21236                   AX2    30                                                      FTN      1310
                               37221              IX2    X2-X1                                                   FTN      1311
           323  0332000343 +                      MI     X2,MEMERR   IF NOT ENOUGH MEMORY                        FTN      1312
                          7211000024              SX1    X1+2*FLSZ                                               FTN      1313
           324  20136                             LX1    30                                                      FTN      1314
                     10611                        BX6    X1                                                      FTN      1315
                          5160000024 C            SA6    GT1                                                     FTN      1316
           325  7160150515                        MEMORY SCM,GT1,RCL                                             FTN      1317
           330  5120000024 C                      SA2    GT1         NEW FL                                      FTN      1318
                          21236                   AX2    30                                                      FTN      1319
                               10622              BX6    X2                                                      FC5A119    14
           331  7272777765                        SX7    X2-FLSZ     LEAVE A SAFETY ZONE                         FTN      1323
                          5170000071 C            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             FTN      1324
           332  5160000070 C                      SA6    CP.AFLS     UPDATE TO CURRENT FL                        FTN      1326
                          5120000015 C            SA2    CP.MXFL     CURRENT MAX FL USED                         FTN      1327
           333  37726                             MX7    X2+X6       SELECT LARGER OF CP.AFLS, CP.MXFL           FTN      1328
                     5170000015 C                 SA7    CP.MXFL     UPDATE IT                                   FTN      1329
                                                                                                                 FTN      1330
           335  7120000100               LDP7     SX2    0100B       (1,0)                                       FTN      1331
                          5140000126 +            SA4    CO.OPT                                                  FC5A119    15
                                        *         SX7    FWA10       (ASSUMES FWA10 = FWA20)                     FTN      1332
           336  0304000337 +                      ZR     X4,LDP10    IF CALLING QCG                              FTN      1333
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    50
        LOAD OVERLAYS                                                 LDPRI 
  
                          7120000200              SX2    0200B       (2,0)                                       FTN      1334
                                                                                                                 FTN      1335
           337  7170000000 X             LDP10    LOVER  X2,=XFWA20                                              FTN      1336
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    51
        TERMINATE COMPILATION                                         ENDFTN
  
                                                                                                                 FTN      1380
           340                           ABTFTN   BSSENT 0           HERE TO DIE...                              FTN      1381
           340  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
           343                           MEMERR   BSSENT                                                         FTN      1456
           343  0100000411 +                      CALL   COD                                                     FTN      1457
           344  5120000353 +                      SA2    MSG.FL+2                                                FTN      1458
                          43130                   MX1    60-36                                                   FC5A244     7
                               15161              BX1    -X1*X6                                                  FC5A244     8
           345  20114                             LX1    12                                                      FC5A244     9
                     36621                        IX6    X2+X1                                                   FTN      1460
                          54620                   SA6    A2          INSERT MIN FL IN ERROR MSG TEXT             FTN      1461
           346  7110000351 +                      MESSAGE MSG.FL     ISSUE DAYFILE MESSAGE                       FTN      1462
           350  0400000340 +                      EQ     ABTFTN      ABORT                                       FTN      1463
                                                                                                                 FTN      1464
           351  55550624164055160505     MSG.FL   DIS    2,  FTN5 NEEDS AT LEAS                                  FC5A244    10
           353  24550000000000000255              VFD    12/2RT ,36/0,12/2RB                                     FC5A244    11
           354  03155506145700000000              DIS    ,/"SCM" FL./                                            FC5A244    12
  
  
  
  
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      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 - 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
           355  0400400355 +             IDPCHK   SUBR   =           ENTRY/EXIT...                               FTN      1533
           356  5110000160 +                      SA1    CO.BRK                                                  FTN      1534
                          66700                   =B7    0                                                       FC5A115     7
                               43060              MX0    -2*CHAR                                                 FC5A115     8
           357  0301000355 +                      ZR     X1,EXIT.    IF NO BREAKS                                FTN      1536
                          7261777776              =X6    X1-1                                                    FTN      1537
           360  0306000365 +                      ZR     X6,IDP2     IF BREAK *ALL*                              FTN      1538
                          5120000100              SA2    RA.ORG                                                  FTN      1539
           361  21260                             AX2    48-0                                                    FTN      1540
                     7140003333                   SX4    2R00                                                    FTN      1541
                               43301              MX3    1                                                       FTN      1542
           362  20114                    IDP1     LX1    2*CHAR                                                  FTN      1544
                     15610                        BX6    -X0*X1                                                  FTN      1545
                          20314                   LX3    2*CHAR                                                  FTN      1546
           363  0306000355 +                      ZR     X6,EXIT.    IF END OF OVR LIST OR (BREAK=PS) NOT SELECT FTN      1547
                          0333000355 +            MI     X3,EXIT.    IF FINISHED CHECKING ENTIRE WORD            FTN      1548
           364  37764                             IX7    X6-X4       (X7) = OVERLAY NRS IN (0P0S) FORM           FTN      1549
                     13672                        BX6    X7-X2                                                   FTN      1550
                          0316000362 +            NZ     X6,IDP1     IF NOT CALLING *IDP* FOR THIS OVERLAY       FTN      1551
           365  6170777776               IDP2     SB7    -1          SET TO *CALL IDP BEFORE OVERLAY START*      FTN      1552
                          0400000355 +            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
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    53
        TESTMODE SUBROUTINES                                          OFFSPY
  
                                                                                                                 FTN      1569
                                                                                                                 FTN      1570
                                         .SPY     IFEQ   .SPY,ON     IF SPY OPTION INSTALLED                     FTN      1571
                                                                                                                 FTN      1572
           366  0400400366 +             OFFSPY   SUBR   =           ENTRY/EXIT...                               FC5A158A   67
           367  5110000407 +                      SA1    SPYP+1                                                  FTN      1574
                          0301000366 +            ZR     X1,EXIT.    IF *SPY* NOT ON, EXIT...                    FTN      1575
           370  43601                             MX6    1                                                       FTN      1576
                     54610                        SA6    A1          TELL *SPY* TO STOP                          FTN      1577
                          74210                   RECALL A1                                                      FTN      1578
           372  13666                             BX6    X6-X6                                                   FTN      1579
                     5160000407 +                 SA6    SPYP+1                                                  FTN      1580
           373  0400000366 +                      EQ     EXIT.       EXIT...                                     FTN      1581
  
  
  
  
                                        **        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
           374  0400400374 +             ONSPY    SUBR   =           ENTRY/EXIT...                               FTN      1596
           375  5110000405 +                      SA1    SPYW                                                    FTN      1597
                          5120000100              SA2    RA.ORG      (X2) = SAVED OVERLAY CONTROL FLAGS, ETC.    FTN      1598
           376  0301000374 +                      ZR     X1,EXIT.    IF *SPY* OPTION NOT SELECTED                FTN      1599
                          21260                   AX2    48-0        (X2) = OVERLAY LEVEL                        FTN      1600
                               10611              BX6    X1                                                      FTN      1601
           377  5110000410 +                      SA1    SPYO                                                    FTN      1602
                          0302000401 +            ZR     X2,SPY1     IF (0,0) OVERLAY                            FTN      1603
           400  7222003333                        SX2    X2+2R00                                                 FTN      1604
                          20236                   LX2    30                                                      FTN      1605
           401  12712                    SPY1     BX7    X1+X2       5LFTN_P_S (3LFTN FOR (0,0))                 FTN      1606
                     55611                        SA6    A1-B1       LIMITS TO SPY PARAMETER LIST                FTN      1607
                          5170000406 +            SA7    SPYP        OVERLAY LEVEL TO LIST (SPYP)                FTN      1608
           402  7160232031                        SYSTEM SPY,RCL,A6                                              FTN      1609
           404  0400000374 +                      EQ     EXIT.                                                   FTN      1610
                                                                                                                 FTN      1611
           405                     1     SPYW     BSZENT 1           CONTROL STATEMENT SPY PARAMS                FTN      1612
                                        *         *SPY* REQUEST PARAMETER LIST                                   FTN      1613
           406                     1     SPYP     BSSZ   1           7LOVL0P0S                                   FTN      1614
           407                     1              BSSZ   1           12/BINW,12/:,12/LO,12/HI,12/0               FTN      1615
           410  06241600000000000000     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/05. 19.57.57.      PAGE    54
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.          COD 
  
           411                           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
           411  0400400411 +             COD      SUBR               ENTRY/EXIT                                  COMCCOD    33
           412  5140000417 +                      SA4    CODA        =1H                                         COMCCOD    34
                          6130000006              SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD    35
           413  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
           414  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/05. 19.57.57.      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
           415  21103                             AX1    3           SHIFT OFF DIGIT                             COMCCOD    43
                     36443                        IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD    44
                          0311000414 +            NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD    45
           416  20466                             LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD    46
                     22624                        LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD    47
                          0400000411 +            EQ     CODX        RETURN                                      COMCCOD    48
                                                                                                                 COMCCOD    49
           417  55555555555555555555     CODA     CON    1H                                                      COMCCOD    50
  
  
  
  
                                 D_D              BASE   *                                                       COMCCOD    52
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCOD    53
                                                  QUAL   *                                                       COMCCOD    54
                                 411 +   COD      EQU    /COMCCOD/COD                                            COMCCOD    55
                                 411 +   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/05. 19.57.57.      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
           420                           BUFFERS  BSS    0           START OF BUFFER AREA                        FTN      1630
                                                                                                                 FTN      1631
                                         .RM      IFEQ   CP#RM,0     IF USING CIO                                FTN      1632
           420                  1002     IBUF     BSSENT "BUFL"                                                  FTN      1633
          1422                           OBUF     BSSENT 0                                                       FTN      1634
                                         .RM      ELSE                                                           FC5A158A   68
                                         IBUF     EQUENT 0                                                       FC5A158A   69
                                         OBUF     EQUENT 0                                                       FC5A158A   70
                                         .RM      ENDIF                                                          FC5A158A   71
          1422                           FIN.FTN  BSSENT 0                                                       FC5A158A   72
           420                                    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/05. 19.57.57.      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
           420                           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
           436                                    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
                                -102              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 
  
          1422                                    END                                                            FTN      1697
  
                             74600B CM  STORAGE USED             3526 STATEMENTS     1600 SYMBOLS      000009 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.052 SECONDS         690 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN        340   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       420   PROGRAM*       56/05 L   56/15
        B1=1            0 
        CHAR            6   FTX            52/22     52/30     52/32
        CMPSLDR       173   PROGRAM*       44/07 L   47/16
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        COD           411   PROGRAM*       51/19     55/18 D   55/22 E   55/23
        CODED           0                  38/31 D   39/11     39/19     39/27
        COD=          411   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.BRK        160   PROGRAM*       42/42 L   42/42 E   52/20
        CO.CPL        161   PROGRAM*       42/48 L   42/48 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.IDP        162   PROGRAM*       42/49 L   42/49 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.RFL        163   PROGRAM*       42/50 L   42/50 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.SNAP       164   PROGRAM*       42/51 L   42/51 E   43/36
        CO.SPP        165   PROGRAM*       42/52 L   42/52 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
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        CPOVL         264   PROGRAM*       47/12     47/19 L   48/52
        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
        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      1422   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        174   PROGRAM*       44/08 L   44/08 E   49/31
        FTNLDR        172   PROGRAM*       44/05 E   44/06 L   47/37
        FTNLFN        171   PROGRAM*       44/04 L   44/04 E   47/40
        FTN5OVL       265   PROGRAM*       47/20 L   47/36
        FVLEN          16                  57/30 D   57/30 E
        FVTBL         420   PROGRAM*       57/07 L   57/07 E   57/30
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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   40/29     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$SNAP       164   PROGRAM*       43/36 D   43/36 E
        HO$TB         115   PROGRAM*       43/29 D   43/29 E
        HO$UO         144   PROGRAM*       43/37 D   43/37 E
        IBUF          420   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
        IDPCHK        355   PROGRAM*       52/19 L   52/19 E
        IDP1          362   PROGRAM*       52/30 L   52/37
        IDP2          365   PROGRAM*       52/25     52/38 L
        INT.FL         37   PROGRAM*       36/19 L   36/19 E
        IT.FL       12000                  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        167   PROGRAM*       43/05 L   43/05 E
        LCM.MU        170   PROGRAM*       43/06 L   43/06 E
        LCM.OA        166   PROGRAM*       43/04 L   43/04 E
        LDCOM         261   PROGRAM*       47/10 L   47/10 E
        LDPRI         320   PROGRAM*       49/29 L   49/29 E
        LDP10         337   PROGRAM*       49/57     50/03 L
        LDP7          335   PROGRAM*       49/34     49/54 L
        LDR.EP          3                  21/46 D   21/47     57/31
        LOV           271   PROGRAM*       47/17     48/15 L
        LOVER         266   PROGRAM*       47/35 L   47/35 E   50/03
        LOVERM        314   PROGRAM*       49/09     49/12 L
        LOVOVR        315   PROGRAM*       48/19 S   48/51     49/13 L
        LOV2          310   PROGRAM*       48/54     49/04 L
        LOV3          311   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
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        L.PWA         225   PROGRAM*       45/10 L   45/10 E
        L.PWB         243   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        343   PROGRAM*       49/38     51/18 L   51/18 E
        MIN.FL       6000                  26/07     36/14 D
        MIN.TABS     3000   FTX            36/14
        MSG=           31   PROGRAM*       32/47 D   34/40 E   49/09     51/26
        MSG.FL        351   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         1422   PROGRAM*       39/19     39/19     39/19     39/19     39/19     56/09 L   56/09 E
        OFFSPY        366   PROGRAM*       48/36     53/05 L   53/05 E
        ONSPY         374   PROGRAM*       48/55     53/31 L   53/31 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
        OUTPUT#       110   COMPCOM        40/29 D   40/29 E
        O.C           235   PROGRAM*       45/21 L   45/21 E   45/30     45/31
        O.CC          226   PROGRAM*       45/19 L   45/19 E   45/29     45/30
        O.CPV         212   PROGRAM*       45/02 L   45/02 E   45/12     45/13
        O.TA          217   PROGRAM*       45/05 L   45/05 E   45/13     45/14
        O.TITL        175   PROGRAM*       44/23 L   44/23 E   45/25     45/43
        O.TTLA        204   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   52/26     53/33     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
        SPYO          410   PROGRAM*       53/37     53/51 L
        SPYP          406   PROGRAM*       53/06     53/12 S   53/43 S   53/49 L
        SPYW          405   PROGRAM*       53/32     53/47 L   53/47 E
        SPY1          401   PROGRAM*       53/38     53/41 L
        STOP          316   PROGRAM*       24/11     49/20 L
        SYS=            2   PROGRAM*       32/44 D   34/40 E   48/30     48/41     49/43     51/03     53/44
        TEST            1   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        200   PROGRAM*       44/31 L   44/31 E   45/51 L   45/51 E
        TL.CSOP       201   PROGRAM*       44/32 L   44/32 E   45/52 L   45/52 E
        TL.DATE       206   PROGRAM*       44/43 L   44/43 E   46/06 L   46/06 E
        TL.EJCT       175   PROGRAM*       44/27 L   44/27 E   45/47 L   45/47 E
        TL.PAGE       211   PROGRAM*       44/49 L   44/49 E   45/25     45/26     46/12 L   46/12 E
        TL.PNAM       177   PROGRAM*       44/29 L   44/29 E   45/49 L   45/49 E
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/05. 19.57.57.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        TL.PTYP       176   PROGRAM*       44/28 L   44/28 E   45/27     45/48 L   45/48 E
        TL.TIME       207   PROGRAM*       44/46 L   44/46 E   46/09 L   46/09 E
        WNB=           21   PROGRAM*       32/46 D   34/40 E   53/10
        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
        .OS             1   FTX            42/41 F   52/02 F
        .SPY            1   FTX            48/35 F   48/50 F   53/03 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           411   PROGRAM*       54/50 L   55/18     55/19
        CODA          417   PROGRAM*       54/51     55/10 L
        COD1          414   PROGRAM*       54/56 L   55/05
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      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 
                                        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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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/05. 19.57.59.      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
          1052                                    END                                                            UTILITY    86
  
                             74600B CM  STORAGE USED             4299 STATEMENTS     1602 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.205 SECONDS         687 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
        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   15/32
        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
        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
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        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            1   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
  
  
        FA=SET         31   PROGRAM*        7/37 L    8/18     10/20
        SET2           34   PROGRAM*        7/40      7/46 L
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      PAGE    84
        SYMBOLIC REFERENCE TABLE.                                     COMCMVE 
  
                                                  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 
  
  
        COD             0   EXTERNAL*      15/32 D   17/19     20/09 S   22/25
        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
        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
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      PAGE    85
        SYMBOLIC REFERENCE TABLE.                                     COMCMNS 
  
                                                  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 
  
  
        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
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      PAGE    86
        SYMBOLIC REFERENCE TABLE.                                     COMCWOD 
  
                                                  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
  
  
  
  
                                                  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
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      PAGE    87
        SYMBOLIC REFERENCE TABLE.                                     COMCRDW 
  
        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
        WTH9          714   PROGRAM*       57/37     58/22 L
        WTH=          666   PROGRAM*       57/06 L   57/07     57/08     58/35
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTO 
  
  
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/05. 19.57.59.      PAGE    88
        SYMBOLIC REFERENCE TABLE.                                     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/05. 19.58.00.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      232              IDENT  LISTLNK
                        232                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       226 
                                        LITERALS* LOCAL         226         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=LISTL          0+           ALC=CNT        144+           PARSLEN        155+ 
                                        LUS              0+           MOVES          151+ 
  
  
                                        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
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/05. 19.58.00.      PAGE     2
                                                                      OCTAL 
  
                                         OCTAL    MACRO  FROM,TO                                                 FC5A150    64
                                                  =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
                     5170000225 +                 SA7    LUSTL                                                   FC5A150   104
             3  5170000224 +                      SA7    LUSTS       INITIALIZE COMMON LENGTH STORAGE CELLS      FC5A150   105
                          10611                   BX6    X1                                                      FC5A150   106
             4  5160000213 +                      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
             5  66771                             SB7    B7+B1       NR OF ALLOCS                                FC50492    10
                     5110000151 +                 SA1    MOVES                                                   FC50492    11
             6  0301000007 +                      ZR     X1,LUS02    IF NO TABLE CRASHES                         FC50492    12
                          66771                   SB7    B7+B1       NR OF TABLE CRASHES                         FC50492    13
                                                                                                                 FC50492    14
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/05. 19.58.00.      PAGE     3
                                                                      LUS 
  
             7  66771                    LUS02    SB7    B7+B1       LARGEST PARSED FILE LENGTH                  FC50492    15
                                         .TEST    ENDIF                                                          FC50492    16
                                                                                                                 FC50492    17
                     5110000000 X                 SA1    BLNKCOM                                                 FC50492    18
                               43200              MX2    0           SCM BLANK COMMON LENGTH                     FC50492    19
            10  43300                             MX3    0           LCM BLANK COMMON LENGTH                     FC50492    20
                     0301000017 +                 ZR     X1,LUS06    IF NO BLANK COMMON                          FC50492    21
            11  7211777775                        SX1    X1-2                                                    FC50492    22
                          5120000000 X            SA2    T.BLKS                                                  FC50492    23
            12  7222000002                        SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                        FC50492    24
                          36321                   IX3    X2+X1       ADDRESS OF BLANK COMMON                     FC50492    25
            13  5243000001                        SA4    X3+CB.W     FETCH WORD B                                FC50492    26
                          10544                   BX5    X4          SAVE COPY                                   FC50492    27
                               43044              MX0    -CB.BLENL                                               FC50492    28
                                                  LX4    -CB.BLENP                                               FC50492    29
            14  15240                             BX2    -X0*X4      ISOLATE SCM BLOCK LENGTH                    FC50492    30
                     43300                        MX3    0                                                       FC50492    31
                                                  HX5    CB.LCM                                                  FC50492    32
                          0325000016 +            PL     X5,LUS04    IF SCM                                      FC50492    33
            15  10322                             BX3    X2          SET LCM LENGTH                              FC50492    34
                     43200                        MX2    0           SET SCM LENGTH                              FC50492    35
                                                                                                                 FC50492    36
            16  66771                    LUS04    SB7    B7+B1       BLANK COMMON MESSAGE                        FC50492    37
                                                                                                                 FC50492    38
            17  5110000000 X             LUS06    SA1    COMSIZ                                                  FC50492    39
                          37112                   IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                FC50492    40
            20  0301000021 +                      ZR     X1,LUS08    IF NO LABELLED SCM                          FC50492    41
                          66771                   SB7    B7+B1       SCM LABELLED COMMON MSG                     FC50492    42
                                                                                                                 FC50492    43
            21  5111000000 X             LUS08    SA1    COMSIZ+B1                                               FC50492    44
                          37113                   IX1    X1-X3       SUBTRACT BLANK COMMON LENGTH                FC50492    45
            22  0301000023 +                      ZR     X1,LUS09    IF NO LABELLED LCM                          FC50492    46
                          66771                   SB7    B7+B1       LCM LABELLED COMMON MSG                     FC50492    47
                                                                                                                 FC50492    48
            23  5110000000 X             LUS09    SA1    LCNT                                                    FC50492    49
                          5120000000 X            SA2    CO.PS                                                   FC5A150   109
            24  37112                             IX1    X1-X2                                                   FC5A150   110
                     63217                        SB2    X1+B7       ADD NUMBER OF LINES REQUIRED                FC50492    50
                          0720000026 +            MI     B2,LUS10    IF SUFFICIENT ROOM                          FC5A150   112
            25  73721                             SX7    X2+B1                                                   FC5A150   113
                     54710                        SA7    A1                                                      FC5A150   114
            26  7110000222 +             LUS10    PLINE  LUSF,2,2    PRINT HEADING                               FC5A150   115
            30  6120000226 +                      SB2    =10H                                                    FC5A150   116
                          76120                   PLINE  B2,1        PRINT BLANK LINE                            FC5A150   117
                                         .TEST    IFEQ   TEST,ON     TEST MODE MESSAGES                          FC5A150   118
            32  5110000144 +                      SA1    ALC=CNT     (X1) = NR OF *ALLOC*S                       FC5A150   119
                          0100000000 X            CALL   CDD         CONVERT BINARY TO DECIMAL DPC               FC5A150   120
            33  20460                             LX4    -2*CHAR                                                 FC5A150   121
                     10644                        BX6    X4                                                      FC5A150   122
                          54610                   SA6    A1                                                      FC5A150   123
            34  7110000140 +                      PLINE  LUSAL,5     PRINT NR OF ALLOCS                          FC5A150   124
                                                                                                                 FC5A150   125
            36  5110000151 +                      SA1    MOVES                                                   FC5A150   126
                          0301000043 +            ZR     X1,LUS20    IF NO TABLE CRASHES                         FC5A150   127
            37  0100000000 X                      CALL   CDD                                                     FC5A150   128
            40  20460                             LX4    -2*CHAR     FORMAT PROPERLY                             FC5A150   129
                     10644                        BX6    X4                                                      FC5A150   130
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/05. 19.58.00.      PAGE     4
                                                                      LUS 
  
                          54610                   SA6    A1                                                      FC5A150   131
            41  7110000145 +                      PLINE  LUSTC,5      PRINT TABLE CRASHES                        FC5A150   132
            43  5110000155 +             LUS20    DECML  PARSLEN,PARSLEN+B1   CONVERT PARSLEN TO DECML DPC       FC5A150   133
            45  5110000155 +                      OCTAL  PARSLEN,PARSLEN   CONVERT IT TO  OCTAL DPC              FC5A150   134
            47  7110000152 +                      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
            51  5110000000 X                      OCTAL  SUM.LBT,LUSA+3   FORMAT AND PLACE OCTAL CONVERSION      FC5A150   140
            53  5110000000 X                      DECML SUM.LBT,LUSA+4   SAME FOR DECML CONVERSION               FC5A150   141
            55  7110000157 +                      PLINE  LUSA,5                                                  FC5A150   142
                                                                                                                 FC5A150   143
                                        **        PIECE TOGETHER AND OUTPUT BLANK COMMON LENGTH MESSAGE          FC5A150   144
                                                                                                                 FC5A150   145
            57  5110000000 X                      SA1    BLNKCOM                                                 FC5A150   146
                          0301000076 +            ZR     X1,LUS35    IF NO BLANK COMMON                          FC5A150   147
            60  7211777775                        SX1    X1-2                                                    FC5A150   148
                          5120000000 X            SA2    T.BLKS                                                  FC5A150   149
            61  7222000002                        SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                        FC5A150   150
                          36321                   IX3    X2+X1       ADDRESS OF BLANK COMMON                     FC5A150   151
            62  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
            63  15140                             BX1    -X0*X4      ISOLATE BLOCK LENGTH                        FC5A150   156
                     10611                        BX6    X1                                                      FC5A150   157
                          5160000224 +            SA6    LUSTS      SAVE COPY FOR LATER USE                      FC5A150   158
                                                  HX5    CB.LCM                                                  FC5A150   159
            64  6150000164 +                      SB5    LUSB                                                    FC5A150   160
                          6165000003              SB6    B5+3        ASSUME BLOCK IS CM/SCM                      FC5A150   161
            65  0325000070 +                      PL     X5,LUS30    IF ASSUMPTION CORRECT...                    FC5A150   162
                          6150000171 +            SB5    LUSBB                                                   FC5A150   163
            66  6165000003                        SB6    B5+3        IF NOT                                      FC5A150   164
                          5160000225 +            SA6    LUSTL                                                   FC5A150   165
            67  43600                             MX6    0                                                       FC5A150   166
                     5160000224 +                 SA6    LUSTS                                                   FC5A150   167
            70  10311                    LUS30    BX3    X1          SAVE COPY OF LENGTH                         FC5A150   168
                     0100000000 X                 OCTAL  A1,B6                                                   FC5A150   169
                               10133              BX1    X3                                                      FC5A150   170
            72  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
            76  5110000000 X             LUS35    SA1    COMSIZ                                                  FC5A150   176
                          5120000224 +            SA2    LUSTS                                                   FC5A150   177
            77  37112                             IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                FC5A150   178
                     0301000106 +                 ZR     X1,LUS40    IF NO SCM COMMON                            FC5A150   179
                               10311              BX3    X1          PIA WONT DESTROY THIS REGISTER              FC5A150   180
           100  0100000000 X                      OCTAL  A1,LUSC+3                                               FC5A150   181
           102  10133                             BX1    X3                                                      FC5A150   182
                     0100000000 X                 DECML  A1,LUSC+4                                               FC5A150   183
           104  7110000176 +                      PLINE  LUSC,5                                                  FC5A150   184
           106  5111000000 X             LUS40    SA1    COMSIZ+B1                                               FC5A150   185
                          5120000225 +            SA2    LUSTL                                                   FC5A150   186
           107  37112                             IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                FC5A150   187
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/05. 19.58.00.      PAGE     5
                                                                      LUS 
  
                     0301000116 +                 ZR     X1,LUS50    IF NO LCM COMMON                            FC5A150   188
                               10311              BX3    X1          PIA WONT DESTROY THIS REG                   FC5A150   189
           110  0100000000 X                      OCTAL  A1,LUSCC+3                                              FC5A150   190
           112  10133                             BX1    X3                                                      FC5A150   191
                     0100000000 X                 DECML  A1,LUSCC+4                                              FC5A150   192
           114  7110000203 +                      PLINE  LUSCC,5                                                 FC5A150   193
                                                                                                                 FC5A150   194
                                        **        PIECE TOGETHER AND OUTPUT STORAGE USED MESSAGE                 FC5A150   195
                                                                                                                 FC5A150   196
           116  5110000213 +             LUS50    DECML  LUSD+3,LUSD+4                                           FC5A150   197
           120  5110000213 +                      OCTAL  LUSD+3,LUSD+3                                           FC5A150   198
           122  7110000210 +                      PLINE  LUSD,5                                                  FC5A150   199
                                                                                                                 FC5A150   200
                                        **        PIECE TOGETHER AND OUTPUT CP TIME MESSAGE                      FC5A150   201
                                                                                                                 FC5A150   202
           124  5120000000 X                      SA2    TIME1       PROGRAM UNIT START TIME                     FC5A150   203
                          0100000000 X            CALL   CPTIM       ELAPSED TIME F10.3 FORMAT IN X6             FC5A150   204
           125  10766                             BX7    X6                                                      FC5A150   205
                     0100000000 X                 CALL   TIMER                                                   FC5A150   206
           126  5160000000 X                      SA6    TIME1       RESET START TIME                            FC5A150   207
                          10677                   BX6    X7                                                      FC5A150   208
                               43700              MX7    0                                                       FC5A150   209
           127  5170000217 +                      SA7    LUSE+2                                                  FC5A150   210
                          54771                   SA7    A7+B1                                                   FC5A150   211
                               54771              SA7    A7+B1       ERASE PREVIOUS MESSAGE                      FC5A150   212
           130  43022                             MX0    3*CHAR                                                  FC5A150   213
                     11706                        BX7    X0*X6       GRAB 3 LEFTMOST CHARACTERS                  FC5A150   214
                          20722                   LX7    3*CHAR                                                  FC5A150   215
           131  5110000227 +                      SA1    =7L                                                     FC5A150   216
                          12771                   BX7    X7+X1                                                   FC5A150   217
           132  5170000217 +                      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
           133  5110000230 +                      SA1    =3R SE                                                  FC5A150   221
                          12661                   BX6    X6+X1                                                   FC5A150   222
                               54671              SA6    A7+B1       STORE THEM IN MESSAGE                       FC5A150   223
           134  5110000231 +                      SA1    =10HCONDS                                               FC5A150   224
                          10611                   BX6    X1                                                      FC5A150   225
                               54661              SA6    A6+B1       COMPLETE THE MESSAGE                        FC5A150   226
           135  7110000215 +                      PLINE  LUSE,5      OUTPUT IT                                   FC5A150   227
           137  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
           140  55555516225517065501     LUSAL    DIS    4,   NR OF ALLOCS                                       FC5A150   235
           144  00000000000000000000     ALC=CNT  CONENT 0                                                       FC5A150   236
           145  55555524010214055503     LUSTC    DIS    4,   TABLE CRASHES                                      FC5A150   237
           151  00000000000000000000     MOVES    CONENT 0                                                       FC5A150   238
           152  55555514012207052324     LUSPF    DIS    3,   LARGEST PARSED FILE LENGTH                         FC5A150   239
           155  00000000000000000000     PARSLEN  CONENT 0                                                       FC5A150   240
           156  00000000000000000000              CON    0                                                       FC5A150   241
                                         .TEST    ENDIF                                                          FC5A150   242
                                                                                                                 FC5A150   243
           157  55555520221707220115     LUSA     DIS    3,   PROGRAM-UNIT LENGTH                                FC5A150   244
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/05. 19.58.00.      PAGE     6
                                                                      LUS 
  
           162                     2              BSS    2                                                       FC5A231    33
                                                                                                                 FC5A150   246
           164  55555503155502140116     LUSB     DIS    3,   "SCM" BLANK COMMON LENGTH                          FC5A150   247
           167                     2              BSS    2                                                       FC5A150   248
           171  55555505032355021401     LUSBB    DIS    3,   "LCM" BLANK COMMON LENGTH                          FC5A150   249
           174                     2              BSS    2                                                       FC5A150   250
                                                                                                                 FC5A150   251
           176  55555503155514010205     LUSC     DIS    3,   "SCM" LABELLED COMMON LENGTH                       FC5A150   252
           201                     2              BSS    2                                                       FC5A150   253
           203  55555505032355140102     LUSCC    DIS    3,   "LCM" LABELLED COMMON LENGTH                       FC5A150   254
           206                     2              BSS    2                                                       FC5A150   255
                                                                                                                 FC5A150   256
           210  55555503155523241722     LUSD     DIS    3,   "SCM" STORAGE USED                                 FC5A150   257
           213                     2              BSS    2                                                       FC5A150   258
                                                                                                                 FC5A150   259
           215  55555503171520111405     LUSE     DIS    2,   COMPILE TIME                                       FC5A150   260
           217                     3              BSS    3                                                       FC5A150   261
                                                                                                                 FC5A150   262
           222  55464623240124112324     LUSF     DIS    2, --STATISTICS--                                       FC5A150   263
                                                                                                                 FC5A150   264
                                         .TEST    IFEQ   TEST,ON                                                 FC5A150   265
                                  14     NUMLINES EQU    12                                                      FC5A150   266
                                         .TEST    ELSE                                                           FC5A150   267
                                         NUMLINES EQU    10                                                      FC5A150   268
                                         .TEST    ENDIF                                                          FC5A150   269
           224                     1     LUSTS    BSSZ   1           TEMPORARY FOR LENGTH SCM BLANK COMMON       FC5A150   270
           225                     1     LUSTL    BSSZ   1           TEMPORARY FOR LENGTH LCM BLANK COMMON       FC5A150   271
           232                                    END                                                            FC5A150   272
  
                             74000B CM  STORAGE USED              950 STATEMENTS     1380 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.389 SECONDS         159 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC=CNT       144   PROGRAM*        3/46      5/49 L    5/49 E
        BLNKCOM         0   EXTERNAL*       1/39 X    3/04      4/16
        B1=1            0 
        CB.BLENL       30   FTX             3/14      4/24
        CB.W            1   FTX             3/12      4/22
        CDD             0   EXTERNAL*       1/42 X    3/55      4/11      4/53      5/10
                                            3/47      4/03      4/41      5/05
        CHAR            6   FTX             3/48      4/03      4/41      5/05      5/26      5/33
                                            3/56      4/11      4/53      5/10      5/28
        COMSIZ          0   EXTERNAL*       1/39 X    3/25      3/30      4/46      4/55
        CO.PS           0   EXTERNAL*       1/39 X    3/36
        CPTIM           0   EXTERNAL*       1/36 X    5/17
        LCNT            0   EXTERNAL*       1/39 X    3/35
        LUS             0   PROGRAM*        2/42 L    2/42 E
        LUSA          157   PROGRAM*        4/10 S    4/11 S    4/12      5/57 L
        LUSAL         140   PROGRAM*        3/51      5/48 L
        LUSB          164   PROGRAM*        4/30      6/03 L
        LUSBB         171   PROGRAM*        4/33      6/05 L
        LUSC          176   PROGRAM*        4/51 S    4/53 S    4/54      6/08 L
        LUSCC         203   PROGRAM*        5/03 S    5/05 S    5/06      6/10 L
        LUSD          210   PROGRAM*        2/49 S    5/10      5/10 S    5/11      5/11 S    5/12      6/13 L
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/05. 19.58.00.      PAGE     7
        SYMBOLIC REFERENCE TABLE. 
  
        LUSE          215   PROGRAM*        5/23 S    5/31 S    5/40      6/16 L
        LUSF          222   PROGRAM*        3/42      6/19 L
        LUSPF         152   PROGRAM*        4/05      5/52 L
        LUSTC         145   PROGRAM*        4/02      5/50 L
        LUSTL         225   PROGRAM*        2/46 S    4/35 S    4/56      6/27 L
        LUSTS         224   PROGRAM*        2/47 S    4/28 S    4/37 S    4/47      6/26 L
        LUS02           7   PROGRAM*        2/55      3/01 L
        LUS04          16   PROGRAM*        3/19      3/23 L
        LUS06          17   PROGRAM*        3/07      3/25 L
        LUS08          21   PROGRAM*        3/27      3/30 L
        LUS09          23   PROGRAM*        3/32      3/35 L
        LUS10          26   PROGRAM*        3/39      3/42 L
        LUS20          43   PROGRAM*        3/54      4/03 L
        LUS30          70   PROGRAM*        4/32      4/38 L
        LUS35          76   PROGRAM*        4/17      4/46 L
        LUS40         106   PROGRAM*        4/49      4/55 L
        LUS50         116   PROGRAM*        5/01      5/10 L
        MOVES         151   PROGRAM*        2/54      3/53      5/51 L    5/51 E
        NUMLINES       14                   6/22 D
        PARSLEN       155   PROGRAM*        4/03      4/03 S    4/04      4/04 S    5/53 L    5/53 E
        PIA             0   EXTERNAL*       1/39 X    4/04      4/10      4/39      4/51      5/03      5/11
        SUM.LBT         0   EXTERNAL*       1/39 X    4/10      4/10      4/11
        TEST            1   FTX             2/52 F    3/45 F    5/47 F    6/21 F
        TIMER           0   EXTERNAL*       1/36 X    5/19
        TIME1           0   EXTERNAL*       1/36 X    5/16      5/20 S
        T.BLKS          0   EXTERNAL*       1/39 X    3/09      4/19
        WOF             0   EXTERNAL*       3/42      3/51      4/05      4/42      5/06      5/40
                                            3/44      4/02      4/12      4/54      5/12
        WO.LOA          0   EXTERNAL*       1/39 X    2/43
        Z=BLKS          2   FTX             3/10      4/20
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1552              IDENT  PUC
                       1552                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1527 
                                        LITERALS* LOCAL        1527        23 
  
  
                                        ENTRY POINTS. 
  
                                        B=PUC            0+           T=CLW           65+           PU.MFL         376+ 
                                        L=TABLE        632            L=CLW           65+           HO$PMLS        376+ 
                                        N.TABLE         47            T=CAC           66+           PASS           377+ 
                                        ORIGINS          0+           L=CAC           66+           PWBUF          400+ 
                                        BASES            0+           T=APL           67+           WOF=ERR        415+ 
                                        O.P2NUL          0+           L=APL           67+           REFIO          416+ 
                                        T.TB             0+           T=IOA           70+           RPV=CLN        346+ 
                                        T.LGOB           0+           L=IOA           70+           RPV=MSG        316+ 
                                        T.ARG            1+           T=API           71+           RPV=URP        417+ 
                                        T.PTXTR          1+           L=API           71+           HO$RDR         417+ 
                                        T.STF            2+           T=IOI           72+           SAVE           420+ 
                                        T.EQUS           2+           L=IOI           72+           THRESH         421+ 
                                        T.LINK           2+           T=GL            73+           USAVE          422+ 
                                        T.COMM           3+           L=GL            73+           L.TABS         423+ 
                                        T.BLST           4+           T=ASG           74+           SCR            424+ 
                                        T.FPO            3+           L=ASG           74+           WO.C$          436+ 
                                        T.DVV            3+           T=CON           75+           WO.CS          436+ 
                                        T.SLARG          3+           L=CON           75+           WO.DOLG        437+ 
                                        T.IOARG          3+           T=CUT           76+           WO.DOOT        440+ 
                                        T.DATI           5+           L=CUT           76+           WO.LOA         441+ 
                                        T.OUS            5+           T=SYM           77+           WO.LOM         442+ 
                                        T.SCR            5+           L=SYM           77+           WO.LOO         443+ 
                                        T.PTXT           5+           T=BLKS         100+           WO.LOR         444+ 
                                        T.DATL           6+           L=BLKS         100+           WO.LOS         445+ 
                                        T.EOT            6+           T=NLST         101+           WO.QC          446+ 
                                        T.FILL           6+           L=NLST         101+           WO.LCM         447+ 
                                        T.ILI            6+           T=DIM          102+           CONONE         450+ 
                                        T.SAP            7+           L=DIM          102+           CONZER         451+ 
                                        T.DATS           7+           T=ENTP         103+           CONZERI        452+ 
                                        T.IOLC           7+           L=ENTP         103+           VTRUE          453+ 
                                        T.PAR           10+           T=FPI          104+           VFALSE         454+ 
                                        T.DAR           10+           L=FPI          104+           F.SORD         455+ 
                                        T.XFIL          10+           T=VDI          105+           S=AEXIT        455+ 
                                        T.PCS           11+           L=VDI          105+           S=BU           456+ 
                                        T.STMT          12+           T=LA            76+           S=BUFIN        457+ 
                                        T.CLWB          12+           L.P2SAV        106+           S=BUF          460+ 
                                        T.SUB           13+           T=REF          106+           S=CES          461+ 
                                        T.VDIM          14+           T=LCA          107+           S=CL           462+ 
                                        T.SUB0          14+           T=ECT          110+           S=CON          463+ 
                                        T.C$IF          15+           T=ENT          111+           S=CP           464+ 
                                        O.P2USE         16+           T=LNT          112+           S=CPL          465+ 
                                        T.CLW           16+           T=LCC          113+           S=CT           466+ 
                                        O=CLW           16+           T=FMT          114+           S=ENTRY        467+ 
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        T.CAC           17+           T=END          115+           S=ERR          470+ 
                                        O=CAC           17+           RATES          116+           S=EXIT         471+ 
                                        T.APL           20+           NAMES          165+           S=FAR          472+ 
                                        O=APL           20+           ALTNAM         234+           S=FAS          473+ 
                                        T.IOA           21+           TV=DECL        262+           S=FID          474+ 
                                        O=IOA           21+           TV=EXU         263+           S=FMC          475+ 
                                        T.API           22+           TV=END         264+           S=FVS          477+ 
                                        O=API           22+           TV=CUR         265+           S=FILES        500+ 
                                        T.IOI           23+           F.LBT          266+           S=GPL          501+ 
                                        O=IOI           23+           BN=STRT          0            S=LA           502+ 
                                        T.GL            24+           BN=CODE          1            S=LC           503+ 
                                        O=GL            24+           BN=CON           2            S=LENP         504+ 
                                        T.ASG           25+           BN=FMT           3            S=LMC          505+ 
                                        O=ASG           25+           BN=TEM           4            S=MMC          506+ 
                                        T.CON           26+           BN=APL           5            S=IT           507+ 
                                        O=CON           26+           BN=IOAP          6            S=INIT         510+ 
                                        T.CUT           27+           BN=NLST          7            S=OT           511+ 
                                        O=CUT           27+           BN=VAR          10            S=RD           512+ 
                                        T.SYM           30+           BN=SUB          11            S=SA1          513+ 
                                        O=SYM           30+           BN=SUB0         12            S=SA0          514+ 
                                        T.BLKS          31+           BN=BUF          13            S=SLI          515+ 
                                        O=BLKS          31+           Z.LBT           14            S=SPA          516+ 
                                        T.NLST          32+           SUM.LBT        302+           S=ST           517+ 
                                        O=NLST          32+           COMSIZ         303+           S=SUB          520+ 
                                        T.DIM           33+           F$LBT          266+           S=SUBI         521+ 
                                        O=DIM           33+           Z$LBT           14            S=SUB0I        522+ 
                                        T.ENTP          34+           N$LBT           14            S=TRACE        523+ 
                                        O=ENTP          34+           ALC.PAR        305+           S=TA0          524+ 
                                        T.FPI           35+           BINIO          306+           S=UPW          525+ 
                                        O=FPI           35+           BLNKCOM        307+           S=VALUE        526+ 
                                        T.VDI           36+           CBI            310+           S=VD           527+ 
                                        O=VDI           36+           CHARDCL        311+           Z.SORD          53
                                        T.LA            27+           ERRORS         312+           S$CON          463+ 
                                        O.P2SAV         37+           ENTRJ          313+           S$IT           507+ 
                                        T.REF           37+           N$FERR         312+           S$LC           503+ 
                                        T.LCA           40+           FAILSFT        314+           S$OT           511+ 
                                        T.ECT           41+           O.TABS         315+           S$VD           527+ 
                                        T.ENT           42+           IDENT1         316+           ERRTYP         530+ 
                                        T.LNT           43+           HO$MSG         317+           ERR.A            0
                                        T.LCC           44+           IDENT          320+           ERR.M            1
                                        T.FMT           45+           HO$PRGN        320+           ERR.D            2
                                        T.END           46+           IO.TEM         321+           ERR.T            3
                                        SIZES           47+           LCNT           322+           ERR.W            4
                                        L.P2NUL         47+           N$LINES        322+           ERR.F            5
                                        T=TB            47+           LEVEL          324+           ERR.K            6
                                        T=LGOB          47+           LEVEL0         325+           ERR.C            7
                                        T=ARG           50+           LEVEL2         326+           N.ERRT          10
                                        T=PTXTR         50+           HO$LVL2        326+           ERR=A          540+ 
                                        T=STF           51+           LINEBUF        330+           ERR=M          541+ 
                                        T=EQUS          51+           LINES          346+           ERR=D          542+ 
                                        T=LINK          51+           CARDS          346+           ERR=T          543+ 
                                        T=COMM          52+           LINENR         346+           ERR=W          544+ 
                                        T=BLST          53+           HO$CSN         346+           ERR=F          545+ 
                                        T=FPO           52+           LOSTREF        347+           ERR=K          546+ 
                                        T=DVV           52+           MOD            350+           ERR=C          547+ 
                                        T=SLARG         52+           NARGS          351+           E=TOTAL        550+ 
                                        T=IOARG         52+           NOLIST         352+           PUC            552+ 
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        T=DATI          54+           NREXT          353+           ENDFTN         706+ 
                                        T=OUS           54+           NSQZLH         354+           CPTIM          777+ 
                                        T=SCR           54+           N.AP           355+           TIMER         1003+ 
                                        T=PTXT          54+           N.ARP          356+           CAF           1054+ 
                                        T=DATL          55+           N.BUF          357+           ECB           1101+ 
                                        T=EOT           55+           N.CPL          360+           ECS           1133+ 
                                        T=FILL          55+           N.CON          361+           GCL           1146+ 
                                        T=ILI           55+           N.CT           362+           GMC           1153+ 
                                        T=SAP           56+           N.CTMAX        363+           LJS           1173+ 
                                        T=DATS          56+           N.DOB          364+           MTD           1201+ 
                                        T=IOLC          56+           N.EPL          365+           MTU           1210+ 
                                        T=PAR           57+           N$SEP          365+           PIA           1236+ 
                                        T=DAR           57+           N.FP           366+           WOF           1352+ 
                                        T=XFIL          57+           N$FPS          366+           HDRBL         1546+ 
                                        T=PCS           60+           N.GL           367+           F.PIK         1411+ 
                                        T=STMT          61+           N.MAXIL        370+           PIK=PS        1411+ 
                                        T=CLWB          61+           N$LC           371+           PIK=EQ        1415+ 
                                        T=SUB           62+           N.ST           372+           PIK=LCM       1511+ 
                                        T=VDIM          63+           N.STMAX        373+           PIK=XJP       1513+ 
                                        T=SUB0          63+           N.VD           374+           PIK=PI        1523+ 
                                        T=C$IF          64+           N$VD           374+ 
                                        L.P2USE         65+           O.STITL        375+ 
  
  
                                        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
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE     4
                                                                      PUC 
  
                                        *         IN LISTLNK                                                     FC5A150   273
                                                  EXT    LUS                                                     FC5A150   274
                                                                                                                 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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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/05. 19.58.01.      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
           165                           NAMES    BSSENT 0           TABLE NAMES (TEST MODE ONLY)                PUC       230
                                                  LIST   G                                                       PUC       231
                                                                                                                 PUC       232
                                         NAMES    HERE                                                           PUC       233
           165  24025555555555000000              VFD    42/7LTB     ,18/-BASES+T.TB                            NAMES   .1
           166  01220755555555000001              VFD    42/7LARG    ,18/-BASES+T.ARG                           NAMES   .1
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    14
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
           167  23240655555555000002              VFD    42/7LSTF    ,18/-BASES+T.STF                           NAMES   .1
           170  03171515555555000003              VFD    42/7LCOMM   ,18/-BASES+T.COMM                          NAMES   .1
           171  02142324555555000004              VFD    42/7LBLST   ,18/-BASES+T.BLST                          NAMES   .1
           172  04012411555555000005              VFD    42/7LDATI   ,18/-BASES+T.DATI                          NAMES   .1
           173  04012414555555000006              VFD    42/7LDATL   ,18/-BASES+T.DATL                          NAMES   .1
           174  23012055555555000007              VFD    42/7LSAP    ,18/-BASES+T.SAP                           NAMES   .1
           175  20012255555555000010              VFD    42/7LPAR    ,18/-BASES+T.PAR                           NAMES   .1
           176  20032355555555000011              VFD    42/7LPCS    ,18/-BASES+T.PCS                           NAMES   .1
           177  23241524555555000012              VFD    42/7LSTMT   ,18/-BASES+T.STMT                          NAMES   .1
           200  23250255555555000013              VFD    42/7LSUB    ,18/-BASES+T.SUB                           NAMES   .1
           201  26041115555555000014              VFD    42/7LVDIM   ,18/-BASES+T.VDIM                          NAMES   .1
           202  03531106555555000015              VFD    42/7LC$IF   ,18/-BASES+T.C$IF                          NAMES   .1
           203  03142755555555000016              VFD    42/7LCLW    ,18/-BASES+T.CLW                           NAMES   .1
           204  03010355555555000017              VFD    42/7LCAC    ,18/-BASES+T.CAC                           NAMES   .1
           205  01201455555555000020              VFD    42/7LAPL    ,18/-BASES+T.APL                           NAMES   .1
           206  11170155555555000021              VFD    42/7LIOA    ,18/-BASES+T.IOA                           NAMES   .1
           207  01201155555555000022              VFD    42/7LAPI    ,18/-BASES+T.API                           NAMES   .1
           210  11171155555555000023              VFD    42/7LIOI    ,18/-BASES+T.IOI                           NAMES   .1
           211  07145555555555000024              VFD    42/7LGL     ,18/-BASES+T.GL                            NAMES   .1
           212  01230755555555000025              VFD    42/7LASG    ,18/-BASES+T.ASG                           NAMES   .1
           213  03171655555555000026              VFD    42/7LCON    ,18/-BASES+T.CON                           NAMES   .1
           214  03252455555555000027              VFD    42/7LCUT    ,18/-BASES+T.CUT                           NAMES   .1
           215  23311555555555000030              VFD    42/7LSYM    ,18/-BASES+T.SYM                           NAMES   .1
           216  02141323555555000031              VFD    42/7LBLKS   ,18/-BASES+T.BLKS                          NAMES   .1
           217  16142324555555000032              VFD    42/7LNLST   ,18/-BASES+T.NLST                          NAMES   .1
           220  04111555555555000033              VFD    42/7LDIM    ,18/-BASES+T.DIM                           NAMES   .1
           221  05162420555555000034              VFD    42/7LENTP   ,18/-BASES+T.ENTP                          NAMES   .1
           222  06201155555555000035              VFD    42/7LFPI    ,18/-BASES+T.FPI                           NAMES   .1
           223  26041155555555000036              VFD    42/7LVDI    ,18/-BASES+T.VDI                           NAMES   .1
           224  22050655555555000037              VFD    42/7LREF    ,18/-BASES+T.REF                           NAMES   .1
           225  14030155555555000040              VFD    42/7LLCA    ,18/-BASES+T.LCA                           NAMES   .1
           226  05032455555555000041              VFD    42/7LECT    ,18/-BASES+T.ECT                           NAMES   .1
           227  05162455555555000042              VFD    42/7LENT    ,18/-BASES+T.ENT                           NAMES   .1
           230  14162455555555000043              VFD    42/7LLNT    ,18/-BASES+T.LNT                           NAMES   .1
           231  14030355555555000044              VFD    42/7LLCC    ,18/-BASES+T.LCC                           NAMES   .1
           232  06152455555555000045              VFD    42/7LFMT    ,18/-BASES+T.FMT                           NAMES   .1
           233  05160455555555000046              VFD    42/7LEND    ,18/-BASES+T.END                           NAMES   .1
                                                                                                                 PUC       234
           234                           ALTNAM   BSSENT 0           ALTERNATE TABLE NAMES                       PUC       235
           234                           ALTNAM BSS 0                                                           BSSENT  .1
                                                                                                                 PUC       236
                                         ALTNAM   HERE                                                           PUC       237
           234  14071702555555000000              VFD    42/7LLGOB   ,18/T.TB-BASES                             ALTNAM  .1
           235  20243024225555000001              VFD    42/7LPTXTR  ,18/T.ARG-BASES                            ALTNAM  .1
           236  05212523555555000002              VFD    42/7LEQUS   ,18/T.STF-BASES                            ALTNAM  .1
           237  14111613555555000002              VFD    42/7LLINK   ,18/T.STF-BASES                            ALTNAM  .1
           240  06201755555555000003              VFD    42/7LFPO    ,18/T.COMM-BASES                           ALTNAM  .1
           241  04262655555555000003              VFD    42/7LDVV    ,18/T.COMM-BASES                           ALTNAM  .1
           242  23140122075555000003              VFD    42/7LSLARG  ,18/T.COMM-BASES                           ALTNAM  .1
           243  11170122075555000003              VFD    42/7LIOARG  ,18/T.COMM-BASES                           ALTNAM  .1
           244  17252355555555000005              VFD    42/7LOUS    ,18/T.DATI-BASES                           ALTNAM  .1
           245  23032255555555000005              VFD    42/7LSCR    ,18/T.DATI-BASES                           ALTNAM  .1
           246  20243024555555000005              VFD    42/7LPTXT   ,18/T.DATI-BASES                           ALTNAM  .1
           247  05172455555555000006              VFD    42/7LEOT    ,18/T.DATL-BASES                           ALTNAM  .1
           250  06111414555555000006              VFD    42/7LFILL   ,18/T.DATL-BASES                           ALTNAM  .1
           251  11141155555555000006              VFD    42/7LILI    ,18/T.DATL-BASES                           ALTNAM  .1
           252  04012423555555000007              VFD    42/7LDATS   ,18/T.SAP-BASES                            ALTNAM  .1
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    15
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
           253  11171403555555000007              VFD    42/7LIOLC   ,18/T.SAP-BASES                            ALTNAM  .1
           254  04012255555555000010              VFD    42/7LDAR    ,18/T.PAR-BASES                            ALTNAM  .1
           255  30061114555555000010              VFD    42/7LXFIL   ,18/T.PAR-BASES                            ALTNAM  .1
           256  03142702555555000012              VFD    42/7LCLWB   ,18/T.STMT-BASES                           ALTNAM  .1
           257  23250233555555000014              VFD    42/7LSUB0   ,18/T.VDIM-BASES                           ALTNAM  .1
           260  14015555555555000027              VFD    42/7LLA     ,18/T.CUT-BASES                            ALTNAM  .1
           261  00000000000000000000              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
           262  00000002001500003776     TV=DECL  CONENT "MCDECL"                                                FC5A128   112
           263  00000002000100603772     TV=EXU   CONENT "MCEXU"                                                 FC5A128   113
           264  00000000000000000746     TV=END   CONENT "MCEND"                                                 FC5A128   114
           265  00000000000000000000     TV=CUR   CONENT 0                                                       FC5A128   115
                                                                                                                 FC5A128   116
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    16
        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
           266                           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
           302                                    LOC    *O                                                      PUC       261
           302  00000000000000000000     SUM.LBT  CONENT 0           LOCAL LENGTH OF PROGRAM-UNIT                PUC       262
           303  00000000000000000000     COMSIZ   CONENT 0           LENGTH OF SCM COMMON                        PUC       263
           304  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/05. 19.58.01.      PAGE    17
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
                                        **        COMMON CELL DEFINITIONS.                                       PUC       268
                                                                                                                 PUC       269
           305  00000000000000000000     ALC.PAR  CONENT 0           MINIMUM ALLOCATION FOR PAR                  FC5A128   117
                                                                                                                 PUC       270
           306  77777777777777777776     BINIO    CONENT -1          -1 = CCG MODE OR F.PB FLUSHED               PUC       271
                                                                      0 = OTHERWISE                              PUC       272
                                                                                                                 PUC       273
           307  00000000000000000000     BLNKCOM  CONENT 0           BLOCK NUMBER OF BLANK COMMON                PUC       274
                                                                                                                 PUC       275
           310  00000000000000000000     CBI      CONENT 0           CURRENT INDEX TO  T.BLKS                    PUC       276
                                                                                                                 PUC       277
           311  00000000000000000000     CHARDCL  CONENT 0           CHARACTER DECLARATION PRESENT               PUC       278
                                                                                                                 PUC       279
           312  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
           313  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
           314  00000000000000000000     FAILSFT  CONENT 0           NON-ZERO IF TABLES OVERLAP CATASTROPHICALLY PUC       286
                                                                                                                 PUC       287
           315                     1     O.TABS   BSSENT  1          FWA OF MANAGED TABLE AREA                   PUC       288
                                                                                                                 PUC       289
           316  55555555555555555555     IDENT1   CONENT 10H         USED TO DISPLAY *COMPILING* MESSAGE         PUC       290
           317  03171520111411160755     HO$MSG   CONENT 10HCOMPILING                                            PUC       291
           320  00000000000000000000     IDENT    CONENT 0           ROUTINE NAME 0L FORMAT                      PUC       292
                                         HO$PRGN  EQUENT IDENT       CCG INTERFACE NAME                          PUC       293
                                                                                                                 PUC       294
           321  00000000000000000000     IO.TEM   CONENT 0           MAX TEMPORARY USED BY IO IN EACH PROGRAM    PUC       295
                                        *                            UNIT.                                       PUC       296
                                                                                                                 PUC       297
           322                     2     LCNT     BSZENT 2           LINE COUNT  L/E FILES                       PUC       298
                                         N$LINES  EQUENT LCNT        CCG INTERFACE NAME                          PUC       299
                                                                                                                 PUC       300
           324                     1     LEVEL    BSSENT 1           LEVEL STATEMENT ENCOUNTERED                 PUC       301
           325                     1     LEVEL0   BSSENT 1           LEVEL0 STATEMENT ENCOUNTERED                PUC       302
           326  00000000000000000000     LEVEL2   CONENT 0           IF ANY LCM/ECS RESIDENT DECLARATIONS        PUC       303
                                         HO$LVL2  EQUENT LEVEL2                                                  PUC       304
                                                                                                                 PUC       305
           327                     1              BSSZ   1           LINEBUF-1 USED BY *MAP*                     PUC       306
           330                    16     LINEBUF  BSZENT 14          GENERAL PRINT LINE WORKING AREA             PUC       307
                                                                                                                 PUC       308
           346  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
           347  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
           350  00000000000000000000     MOD      CONENT 0           SUBPROGRAM MODE  (SET BY *1ST CARD* SCANS)  PUC       319
                                                                                                                 PUC       320
           351  00000000000000000000     NARGS    CONENT 0           PROGRAM-UNIT ARGUMENT COUNT.                PUC       321
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    18
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
                                                                                                                 PUC       322
           352  40000000000000000000     NOLIST   CONENT 1S59        =1S59 IF C/-LIST,ALL ACTIVE                 PUC       323
                                                                     =0    IF C/-LIST,NONE ACTIVE                PUC       324
                                                                                                                 PUC       325
           353  00000000000000000000     NREXT    CONENT 0           COUNT OF EXTERNALS REFERENCED IN CURRENT    PUC       326
                                                                     PROGRAM-UNIT.  COMPUTED BY *END*.           PUC       327
                                                                                                                 PUC       328
           354                     1     NSQZLH   BSSENT 1           CCG DONT SQUEEZE LONG HOLLERITHS FLAG       FC5A415     7
                                                                                                                 FC5A415     8
           355                     1     N.AP     BSSENT 1           NUMBER OF ACTUAL-PARAMETER LISTS            PUC       329
                                                                                                                 PUC       330
           356  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
           357                     1     N.BUF    BSZENT 1           FIT LENGTHS, BUFL'S, MRL'S FOR USER FILES   F1037F5   183
           360                     1     N.CPL    BSSENT 1           LENGTH OF (CP.) ARRAY                       PUC       335
                                                                                                                 PUC       336
           361                     1     N.CON    BSSENT 1           LENGTH OF RUN-TIME CONSTANT TABLE           PUC       337
           362                     1     N.CT     BSSENT 1           LENGTH OF (CT.) AREA, IN WORDS              PUC       338
           363                     1     N.CTMAX  BSSENT 1           MAX (CT.) WORDS IN ANY SEGMENT              PUC       339
                                                                                                                 PUC       340
           364                     1     N.DOB    BSSENT 1           NUMBER OF INVENTED DO-BEGIN LABELS          PUC       341
                                                                                                                 PUC       342
           365  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
           366  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
           367                     1     N.GL     BSSENT 1           NUMBER OF GENERATED LABELS                  PUC       350
                                                                                                                 PUC       351
           370  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
           371  00000000000000000000     N$LC     CONENT 0           NUMBER OF FP LOCAL COPY CELLS               PUC       356
                                                                                                                 PUC       357
           372                     1     N.ST     BSSENT 1           NUMBER OF TEMPS IN ONE STATEMENT            PUC       358
           373                     1     N.STMAX  BSSENT 1           MAX NUMBER OF STATEMENT TEMPS               PUC       359
                                                                                                                 PUC       360
           374                     1     N.VD     BSSENT 1           NUMBER OF VARDIM EXPRESSIONS                PUC       361
                                         N$VD     EQUENT N.VD        CCG INTERFACE NAME                          PUC       362
                                                                                                                 PUC       363
           375  00000000000000000000     O.STITL  CONENT 0           ADDR AND LEN OF SUBTITLE - 30/LEN,30/ADDR   PUC       364
                                                                                                                 PUC       365
           376  00000000000000000000     PU.MFL   CONENT 0           PROGRAM UNIT MAX FL                         PUC       366
                                         HO$PMLS  EQUENT PU.MFL      CCG INTERFACE NAME                          PUC       367
                                                                                                                 PUC       368
           377  00000000000000000000     PASS     CONENT 0           CONTROLS ACTIONS OF TABLE MANAGER.          PUC       369
                                                                                                                 PUC       370
           400                    15     PWBUF    BSSENT 13          LIST BUFFER FOR PW MODE                     PUC       371
                                                                                                                 PUC       372
           415                     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/05. 19.58.01.      PAGE    19
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
           416  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
           417  00000000000000000000     RPV=URP  CONENT 0           USER REPRIEVE PROCESSOR                     PUC       381
                                         HO$RDR   EQUENT RPV=URP     CCG INTERFACE NAME                          PUC       382
                                                                                                                 PUC       383
           420  00000000000000000000     SAVE     CONENT  0          SAVE INDICATOR                              PUC       384
                                                                                                                 PUC       385
           421  00000000000000000000     THRESH   CONENT 0           THRESHHOLD FOR ALLOC BEFORE MEM REQUEST     PUC       386
                                                                                                                 PUC       387
           422  00000000000000000000     USAVE    CONENT 0           UNIVERSAL SAVE INDICATOR                    PUC       388
                                                                                                                 PUC       389
           423  00000000000000400000     L.TABS   CONENT 1S17        WIDTH OF MANAGED TABLE AREA                 PUC       390
  
  
  
  
                                        **        SCRATCH AREA.                                                  PUC       392
                                                                                                                 PUC       393
           424                    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
           436                           WO.C$    BSSENT 0           DIRECTIVE CONTROL                           PUC       404
                                                                                                                 PUC       405
           436                     1     WO.CS    BSSENT 1           COLLATE = USER WEIGHT TABLE                 PUC       406
           437                     1     WO.DOLG  BSSENT 1           DO = LONG                                   PUC       407
           440                     1     WO.DOOT  BSSENT 1           DO = OT (ONE TRIP)                          PUC       408
           441                     1     WO.LOA   BSSENT 1           LO = S                                      PUC       409
           442                     1     WO.LOM   BSSENT 1           LO = M                                      PUC       411
           443                     1     WO.LOO   BSSENT 1           LO = O                                      PUC       412
           444                     1     WO.LOR   BSSENT 1           LO = R                                      PUC       413
           445                     1     WO.LOS   BSSENT 1           LO = S                                      PUC       414
           446                     1     WO.QC    BSSENT 1           QC - SET TO QUICK CHECK AFTER FATAL ERRORS  PUC       415
           447                     1     WO.LCM   BSSENT 1                                                       FC5A132    26
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    20
        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
           450                           CONONE   CONST  1,INT                                                   PUC       431
           451                           CONZER   CONST  0,BOOL                                                  PUC       432
           452                           CONZERI  CONST  0,INT                                                   PUC       433
           453                           VTRUE    CONST  -1,LOG                                                  PUC       434
           454                           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
           455                           F.SORD   BSSENT                                                         PUC       451
                                                                                                                 PUC       452
           455                     1     S=AEXIT  BSSENT 1           AEXIT.    ALTERNATE RETURN EXIT LABEL       PUC       453
           456                     1     S=BU     BSSENT 1           *O+4S15   "BLOWUP"                          PUC       454
           457                     1     S=BUFIN  BSSENT 1           BUFIN.    FCL - BUFFER IN ROUTINE           PUC       455
           460                     1     S=BUF    BSSENT 1           FITS, BUFFERS, ETC. FOR USER FILES          F1037F5   184
           461                     1     S=CES    BSSENT 1           CES.      FCL - CHECK + EVALUATE SUBSCRIPT  PUC       456
           462                     1     S=CL     BSSENT 1           CL.       CHARACTER LENGTH DESCRIPTORS      PUC       457
           463                     1     S=CON    BSSENT 1           CON.      NUMERIC LITERALS                  PUC       458
           464                     1     S=CP     BSSENT 1           CP.       APL FOR COPY AP CALL              PUC       459
           465                     1     S=CPL    BSSENT 1           CPL.      FCL - COPY AP LIST                PUC       460
           466                     1     S=CT     BSSENT 1           CT.         CHARACTER TEMPS                 PUC       461
           467                     1     S=ENTRY  BSSENT 1           ENTRY.    MAIN ENTRY POINT                  PUC       462
           470  00000000000000000000     S=ERR    CONENT 0           FERR.     SOURCE PROGRAM FATAL ERROR        PUC       463
           471  00000000000000000000     S=EXIT   CONENT 0           EXIT.     SUBROUTINE EXIT LABEL             PUC       464
           472                     1     S=FAR    BSSENT 1           FARC.     FCL - FORM ARRAY REFERENCE        PUC       465
           473                     1     S=FAS    BSSENT 1           FASC.     FCL - FORM ARRAY SUBSTRING        PUC       466
           474                     1     S=FID    BSSENT 1           FID.      CID - FORTRAN INTERACTIVE DEBUG   PUC       467
           475                     1     S=FMC    BSSENT 1           FMC.      FCL - FIXED MULTIPLE COMPARE      PUC       468
           476                     1              BSSENT 1           UMC.      FCL - USER MULTIPLE COMPARE       PUC       469
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    21
        GLOBAL SYMBOL DEFINITIONS.                                    F.SORD
  
           477                     1     S=FVS    BSSENT 1           FVSC.     FCL - FORM VARIABLE SUBSTRING     PUC       470
           500                     1     S=FILES  BSSENT 1           FILVEC.   VECTOR OF FILE POINTERS           PUC       471
           501                     1     S=GPL    BSSENT 1           GPL.      GLOBAL PARAMETER LIST             PUC       472
           502                     1     S=LA     BSSENT 1           LA.       LABEL ASSIGN-ED WORDS             PUC       473
           503                     1     S=LC     BSSENT 1           LC.       LOCAL COPIES OF FP VALUES         PUC       474
           504                     1     S=LENP   BSSENT 1           LENP.     PROGRAM-UNIT LENGTH               PUC       475
           505                     1     S=LMC    BSSENT 1           LMC.      FCL - LEXICAL MULTIPLE COMPARE    PUC       476
           506                     1     S=MMC    BSSENT 1           MMC.      FCL - MOVE MULTIPLE CHARACTER     PUC       477
           507                     1     S=IT     BSSENT 1           IT.       OPTIMIZER TEMPS                   PUC       478
           510                     1     S=INIT   BSSENT 1           QXNTRY    FCL - INITIALIZATION              PUC       479
           511                     1     S=OT     BSSENT 1           OT.       OPTIMIZER TEMPS                   PUC       480
           512                     1     S=RD     BSSENT 1           RD.       RUN-TIME DIM TABLE                PUC       481
           513                     1     S=SA1    BSSENT 1           SAVEA1                                      PUC       482
           514                     1     S=SA0    BSSENT 1           SAVEA0                                      FC5A436    16
           515                     1     S=SLI    BSSENT 1           SLI.  FCL - SUB LEVEL0 INSTRUCTS.           PUC       483
           516                     1     S=SPA    BSSENT 1           SP5.      FCL - SUBSTITUTE PARAMETER ADDRS  PUC       484
           517                     1     S=ST     BSSENT 1           ST.       STATEMENT TEMPORARIES             PUC       485
           520                     1     S=SUB    BSSENT 1           SUB.      ARRAY OF ADDSUB DESCRIPTORS       PUC       486
           521                     1     S=SUBI   BSSENT 1           SUBI.     ARRAY OF ADDSUB INDICES           PUC       487
           522                     1     S=SUB0I  BSSENT 1           SUB0I.    ARRAY OF ADDSUB0 INDICES          PUC       488
           523                     1     S=TRACE  BSSENT 1           TRACE.    TRACEBACK WORD                    PUC       489
           524  00000000000000000000     S=TA0    CONENT 0           TEMPA0.   REMEMBER (A0) FROM ENTRY          PUC       490
           525                     1     S=UPW    BSSENT 1           UNIT POINTER WORD                           PUC       491
           526                     1     S=VALUE  BSSENT 1           VALUE.    FUNCTION RESULT                   PUC       492
           527  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/05. 19.58.01.      PAGE    22
        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
           530                           ERRTYP   BSSENT 0           TABLE OF ERROR FLAG WORDS                   PUC       529
      L      0                                    LOC    0                                                       PUC       530
                                        ****                                                                     PUC       531
      L      0  01554755001527 +         ANSI     ERRTYP ,(ANSI)                                                 PUC       532
      L      1  15554755001530 +         MDERR    ERRTYP ,(MDEP)                                                 F1037F5   185
      L      2                                    IFEQ   TEST,ON,1                                               PUC       533
      L      2  04554755001531 +         DEBUG    ERRTYP EL=D,(DEBUG)                                            PUC       534
      L      3  24554755001532 +         TRIVIAL  ERRTYP EL=T,(TRIVIAL)                                          PUC       535
      L      4  27554755001533 +         WARNING  ERRTYP EL=W,(WARNING)                                          PUC       536
      L      5  06554755001534 +         FATAL    ERRTYP EL=F,(FATAL)                                            PUC       537
      L      6  03554755001535 +         KILL     ERRTYP EL=C,(CATASTROPH)                                       PUC       538
      L      7  55554755001536 +         CONTINUE ERRTYP ,( )                                                    PUC       539
      L     10                          ****                                                                     PUC       540
      L     10                           N.ERRT   BSSENT 0           NUMBER OF ERROR TYPES                       PUC       541
           540                                    LOC    *O                                                      PUC       542
                                         ERRTYP   HERE                                                           PUC       543
           550  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
           551  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/05. 19.58.01.      PAGE    23
        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
           552                           PUC      BSSENT 0           ENTRY...                                    PUC       563
                                                                                                                 PUC       564
                                                                                                                 PUC       565
                                        **        SET UP LISTING PAGE FOR NEXT PROGRAM UNIT.                     PUC       566
                                                                                                                 PUC       567
           552  5140000000 X                      SA4    CO.PS                                                   FC5A107     9
                          5120000000 X            SA2    CP.LSTF                                                 PUC       569
           553  5130000000 X                      SA3    CP.PAGE                                                 PUC       570
                          5110000000 X            SA1    CP.BLF                                                  FC5A261     5
           554  73741                             SX7    X4+B1                                                   PUC       571
                     5170000322 +                 SA7    LCNT        SET EMPTY PAGE                              PUC       572
                               54771              SA7    A7+B1       EMPTY PAGE ON E-FILE                        PUC       573
           555  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
           556  0323000557 +                      PL     X3,PUC1     IF PROPAGATING PAGE COUNT                   PUC       578
                          43602                   MX6    2                                                       FC5A164    19
                               11663              BX6    X6*X3                                                   FC5A164    20
                                                                                                                 F1039      82
           557  54630                    PUC1     SA6    A3          UPDATE/RESET PAGE COUNT                     PUC       580
                     76710                        SX7    B1                                                      F1039      83
                          5170001347 +            SA7    NPU         RESET NEXT PROGRAM UNIT FLAG                F1039      84
           560  0301000563 +                      ZR     X1,PUC2     IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)     PUC       581
                          6160001537 +            WRITEH F.OUT,(=2L1 ),1  MAINTAIN PAGE PARITY                   PUC       582
                                                                                                                 PUC       583
                                                                                                                 PUC       584
                                        **        CLEAN UP SCRATCH FILES.                                        PUC       585
                                                                                                                 PUC       586
           563  5110000000 X             PUC2     SA1    CP.IFMT                                                 PUC       587
                          0331000571 +            MI     X1,PUC3     IF EOR ON LAST READ                         PUC       588
           564  13666                             BX6    0                                                       PUC       589
                     5120000000 X                 SA2    RAPFLAG     READ ALREADY PERFORMED FLAG                 PUC       590
                               54620              SA6    A2          RESET RAP FLAG                              PUC       591
           565  0312000573 +                      NZ     X2,PUC4     IF READ ALREADY PERFORMED                   PUC       592
                          6160000000 X            READC  F.IN,CP.CARD,16  GET NEXT INPUT LINE                    PUC       594
           570  0301000573 +                      ZR     X1,PUC4     IF NOT EOR ON INPUT                         PUC       595
                                                                                                                 F1039      85
           571                           PUC3     BSS                                                            PUC       596
           571  0100001054 +                      RJ     CAF         CLOSE ALL FILES                             PUC       597
           572  0400000706 +                      EQ     ENDFTN      TERMINATE COMPILATION                       PUC       598
                                                                                                                 PUC       599
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    24
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
           573  5120000000 X             PUC4     SA2    CO.OPT                                                  FC50090     5
                          0302000576 +            ZR     X2,PUC4A    IF NOT CCG MODE                             FC50090     6
           574  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
           576  5120000000 X             PUC4A    SA2    FV.LGO                                                  FC50090    11
                          5110000000 X            SA1    CO.LOO                                                  PUC       601
           577  12312                             BX3    X1+X2                                                   PUC       602
                     0303000613 +                 ZR     X3,PUC7     IF NEITHER BINARY NOR OBJECT LISTING        PUC       603
           600  0302000602 +                      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
           602  5140000306 +             PUC5     SA4    BINIO                                                   PUC       609
                          5120000000 X            SA2    CO.OPT                                                  PUC       610
           603  7160000000                        SX6    0                                                       PUC       611
                          0302000605 +            ZR     X2,PUC6     IF NOT CCG MODE                             PUC       612
           604  7160777776                        SX6    -1                                                      FC50090    12
                                                                                                                 F1039      87
           605  54640                    PUC6     SA6    A4          RESET (BINIO)                               PUC       615
                     10044                        BX0    X4                                                      PUC       616
                          5110000000 X            SA1    CO.OPT                                                  FC5A158A   93
           606  0311000611 +                      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
           611  0300000613 +             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
           613  5120000416 +             PUC7     SA2    REFIO                                                   FC5A132    28
                          0322000621 +            PL     X2,PUC8     IF REF NOT SPILLED TO DISK                  PUC       623
           614  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
           616  5110000000 X                      SA1    CO.OPT                                                  FC5A158A  100
                          0311000621 +            NZ     X1,PUC8     IF NOT QCG MODE                             FC5A158A  101
           617  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
           621  5150001536 +             PUC8     SA5    =1H                                                     PUC       631
                          5120000000 X            SA2    CP.CARD                                                 PUC       632
           622  43044                             MX0    6*CHAR                                                  PUC       633
                     54321                        SA3    A2+B1                                                   PUC       634
                          5140001540 +            SA4    =6LIDENT                                                PUC       635
           623  37125                             IX1    X2-X5                                                   PUC       636
                     0311000634 +                 NZ     X1,PUC9     IF COLS. 1-10 NOT BLANK                     PUC       637
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    25
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                               11603              BX6    X0*X3                                                   PUC       638
           624  37446                             IX4    X4-X6                                                   PUC       639
                     0314000634 +                 NZ     X4,PUC9     IF COL 11-16 NOT *IDENT *                   PUC       640
           625  5120000000 X                      SA2    CP.PAGE                                                 FC5A164    21
                          20201                   LX2    59-58                                                   FC5A164    22
           626  0322000630 +                      PL     X2,PUC85    IF NOT LIST OUTPUT                          FC5A164    23
                          7120000000 X            WRITER F.OUT,RCL                                               FC5A164    24
                                                                                                                 FC5A164    25
           630  5120000000 X             PUC85    SA2    CP.EPAG                                                 FC5A164    26
                          20201                   LX2    59-58                                                   FC5A164    27
           631  0322000000 X                      PL     X2,LDCOM    IF NO ERROR LIST OUTPUT                     FC5A164    28
                          7120000000 X            WRITER =XF.ERRS,RCL                                            PUC       647
           633  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
           634  5150000000 X             PUC9     SA5    CP.EPAG                                                 FC5A115    18
                          0305000644 +            ZR     X5,PUC11    IF EFILE NOT WRITTEN ON BY COMPASS          FC5A115    19
           635  5150000000 X                      SA5    CO.PWE                                                  FC5A115    20
                          5120001541 +            SA2    =10H-                                                   FC5A115    21
           636  10622                             BX6    X2                                                      FC5A115    22
                     7120000000 X                 SX2    TL.EJCT                                                 FC5A115    23
           637  7222000000 X                      SX2    X2+ERFO     X2 = ADDRESS FOR STORE                      F1039      92
                          7255777601              SX5    X5-126                                                  FC5A420    11
           640  0325000643 +                      PL     X5,PUC10    IF EFILE NOT IN PW MODE                     FC5A115    26
                          7120000000 X            SX2    O.TTLA                                                  FC5A115    27
           641  5222000000 X                      SA2    X2+ERFO                                                 F1039      93
                          43614                   MX6    2*CHAR                                                  FC5A115    29
                               15626              BX6    -X6*X2      ERASE PREVIOUS CARRIAGE CONTROL             FC5A115    30
           642  5130001542 +                      SA3    =2L-                                                    FC5A115    31
                          12663                   BX6    X6+X3       MERGE NEW ONE                               FC5A115    32
                               74220              SX2    A2          X2 = ADDRESS FOR STORE                      FC5A115    33
                                                                                                                 FC5A115    34
           643  53620                    PUC10    SA6    X2          UPDATE CARRIAGE CONTROL                     FC5A115    35
                                                                                                                 FC5A115    36
                                                                                                                 FC5A115    37
                                        **        PROCESS NEXT PROGRAM UNIT.                                     FC5A115    38
                                                                                                                 FC5A115    39
           644  0100000000 X             PUC11    CALL   FEL         FRONT END LOADER                            FC5A115    40
           645  0100000000 X                      CALL   CGL         CODE GENERATOR LOADER                       PUC       655
           646  0100000000 X                      CALL   REL         REAR END LOADER                             PUC       656
                                                                                                                 PUC       657
                                                                                                                 PUC       658
                                        **        UPDATE STORAGE USED.                                           PUC       659
                                                                                                                 PUC       660
           647  5110000000 X                      SA1    CP.AFLS                                                 PUC       661
                          5120000376 +            SA2    PU.MFL      PROGRAM UNIT MAX FL                         PUC       662
           650  37612                             MX6    X1+X2       MAX USED FOR PROGRAM UNIT                   PUC       663
                     5130000000 X                 SA3    CP.MXFL                                                 PUC       664
           652  7216000077                        SX1    X6+77B                                                  PUC       665
                          21106                   AX1    6                                                       PUC       666
                               20106              LX1    6           ROUND UP TO NEAREST 100B                    PUC       667
           653  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/05. 19.58.01.      PAGE    26
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                                                                                                                 PUC       671
                                         .SPY     IFEQ   .SPY,ON     IF SPYING                                   PUC       672
           655  5110000000 X                      SA1    SPYW                                                    PUC       673
                          0301000665 +            ZR     X1,PUC13    IF NOT SPYING THIS TIME                     FC5A115    41
           656  5110000000 X                      SA1    CP.AFLS                                                 PUC       675
                          0100000000 X            CALL   COD                                                     PUC       676
           657  20614                             LX6    12                                                      PUC       677
                     7150005300                   SX5    2R  -2RB                                                PUC       678
                               37665              IX6    X6-X5                                                   PUC       679
           660  5160001051 +                      SA6    PUCA+1      FL USED                                     PUC       680
                          5110000320 +            SA1    IDENT                                                   PUC       681
           661  0100000000 X                      CALL   SFN         SPACE FILE PROGRAM NAME                     PUC       682
           662  5160001050 +                      SA6    PUCA                                                    PUC       683
                          7110001050 +            MESSAGE PUCA,,R    PROGNAM  NNNNNNB CM USED                    PUC       684
                                                                                                                 F1039      94
           665                           PUC13    BSS                                                            FC5A115    42
                                         .SPY     ENDIF                                                          PUC       686
                                                                                                                 PUC       687
                                                                                                                 PUC       688
                                        **        LIST PROGRAM UNIT STATISTICS.                                  PUC       689
                                                                                                                 PUC       690
           665  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
           666  0100001003 +                      CALL   TIMER                                                   F1039      95
           667  5160000000 X                      SA6    TIME1                                                   FC5A132    32
                                                                                                                 FC5A132    33
                                        **        RETURN TO INITIAL FIELD LENGTH.                                FC5A132    34
                                                                                                                 FC5A132    35
                          5130000000 X            SA3    INT.FL                                                  FC5A132    36
           670  5120000315 +                      SA2    O.TABS                                                  PUC       698
                          7222003012              SX2    X2+MIN.TABS+10                                          FC5A132    37
           671  37123                             MX1    X2+X3       SELECT MAX OF TWO VALUES                    PUC       700
                     7211000077                   SX1    X1+77B                                                  FC5A132    38
                               21106              AX1    6                                                       FC5A132    39
           673  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
           674  0306000700 +                      ZR     X6,PUC20    IF CURRENT = INITIAL                        PUC       703
                          0100001153 +            RJ     GMC         RETURN TO INITIAL FL                        PUC       704
                                                                                                                 PUC       705
                                                  IFEQ   TEST,ON,1   IF TEST MODE                                PUC       706
           675  0571400675 +                      NE     B7,B1,"BLOWUP"    IF REQUEST NOT HONORED                PUC       707
                                                                                                                 PUC       708
                          5110000315 +            SA1    O.TABS      ORIGIN OF TABLE AREA                        PUC       709
           676  37661                             IX6    X6-X1                                                   PUC       710
                     5160000423 +                 SA6    L.TABS      LENGTH OF TABLE AREA                        PUC       711
                               21604              AX6    FLSLOP                                                  PUC       712
           677  7266001000                        SX6    X6+FLSLUP                                               PUC       713
                          5160000421 +            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/05. 19.58.01.      PAGE    27
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                                                                                                                 F1037F5   188
           700  76500                    PUC20    =X5    ERR.A       STARTING OFFSET                             F1037F5   189
                     5110000000 X                 SA1    CO.ANSI                                                 F1037F5   190
           701  0311000702 +                      NZ     X1,PUC30    IF ANSI DIAGNOSTICS DESIRED                 F1037F5   191
                          7150000001              SX5    ERR.M       AVOID ANSI DIAGNOSTICS                      F1037F5   192
                                                                                                                 F1037F5   193
           702  76610                    PUC30    =X6    ERR.M       ENDING OFFSET                               F1037F5   194
                                   0              ERRNZ  ERR.M-ERR.A-1     MUST BE CONSECUTIVE                   F1037F5   195
                     0100001216 +                 RJ     PES         PRINT ERROR SUMMARY                         F1037F5   196
                                                                                                                 F1037F5   197
                                        **        SEND REST OF ERROR SUMMARIES TO DAYFILE AND CONSOLE.           F1037F5   198
                                                                                                                 F1037F5   199
           703  76511                             =X5    ERR.M+1     STARTING OFFSET                             F1037F5   200
                     7160000007                   =X6    ERR.C       ENDING OFFSET                               F1037F5   201
                                  -4              ERRPL  ERR.T-ERR.C                                             F1037F5   202
           704  0100001216 +                      RJ     PES         PRINT ERROR SUMMARY                         F1037F5   203
           705  0400000552 +                      EQ     PUC         LOOP FOR NEXT PROGRAM UNIT...               PUC       773
                                                                                                                 PUC       774
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    28
        TERMINATE COMPILATION                                         ENDFTN
  
                                        **        TERMINATE COMPILATION.                                         FC5A158A  103
                                                                                                                 FC5A158A  104
                                                                                                                 FC5A158A  105
           706                           ENDFTN   BSSENT 0           ...ENTER HERE TO TERMINATE COMPILATION      FC51347     6
  
  
  
  
                                        **        SEND FL USED TO DAYFILE.                                       FC5A158A  108
                                                                                                                 FC5A158A  109
           706  5110000000 X                      SA1    CP.MXFL     MAX FL USED                                 FC5A158A  110
                          0100000000 X            CALL   COD         CONVERT OCTAL DIGITS                        FC5A158A  111
           707  5160000774 +                      SA6    FLUSED                                                  FC5A158A  112
                          7110000774 +            MESSAGE FLUSED,,RCL                                            FC5A158A  113
                                                                                                                 FC5A158A  114
                                                                                                                 FC5A158A  115
                                        **        SEND COMPILATION TIME TO DAYFILE.                              FC5A158A  116
                                                                                                                 FC5A158A  117
           712  5120000000 X                      SA2    TIME0       START OF COMPILATION TIME                   FC5A158A  118
                          0100000777 +            CALL   CPTIM       COMPUTE/CONVERT ELAPSED CPU TIME            FC5A158A  119
           713  5160000767 +                      SA6    CPTMSG      TIME TO DAYFILE MESSAGE TEXT                FC5A158A  120
                          7110000767 +            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
           716  0100000000 X                      CALL   OFFSPY                                                  FC5A158A  128
                                         .SPY     ENDIF                                                          FC5A158A  129
                                                                                                                 FC5A158A  130
                                                                                                                 FC5A158A  131
                                        **        PROCESS ABNORMAL TERMINATION CONDITIONS.                       FC5A158A  132
                                                                                                                 FC5A158A  133
           717  5110000000 X                      SA1    CP.ERCT                                                 FC5A158A  134
                          5120000000 X            SA2    CP.ABT                                                  FC5A158A  135
           720  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
           721  0301000724 +                      ZR     X1,END4     IF NO COMPILATION OR ASSEMBLY ERRORS        FC5A158A  140
                          0302000724 +            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
           722  0100001013 +                      CALL   WFA         WAIT FILE ACTIONS                           FC5A158A  144
           723  0400000000 X                      EQ     =XABTFTN                                                FC5A158A  145
                                                                                                                 FC5A158A  146
                                        **        PROCESS AUTO EXECUTE (GO-OPTION) REQUEST.                      FC5A158A  147
                                                                                                                 FC5A158A  148
           724  5110000000 X             END4     SA1    CO.GO                                                   FC5A158A  149
                          0301000747 +            ZR     X1,END5     IF GO-OPTION OFF                            FC5A158A  150
                                                                                                                 FC5A158A  151
           725  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
           726  0100001013 +                      CALL   WFA         WAIT FILE ACTIONS -- ALL QUIET              FC5A158A  156
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    29
        TERMINATE COMPILATION                                         ENDFTN
  
                                         .RM      ENDIF                                                          FC5A158A  157
                                                                                                                 FC5A158A  158
                                         .OS      IFNE   .OS,2       IF NOT SCOPE 2                              FC5A158A  159
           727  7160150515                        MEMORY SCM,LDRFL,RCL     RFL DOWN BEFORE CALLING LOADER        FC5A158A  160
                                         .EC      IFNE   CT.ECS,0                                                FC5A404     6
           732  5110000000 X                      SA1    CP.ILFL                                                 FC5A404     7
                          10611                   BX6    X1                                                      FC5A404     8
                               20636              LX6    30                                                      FC5A404     9
           733  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
           737  43700                             RPVOFF GT1         CANCEL REPRIEVE REQUEST                     FC5A158A  163
                                                                                                                 FC5A158A  164
           742  7110000064                        MESSAGE RA.PGN,,RCL                                            FC5A158A  165
           744  7160140426                        LOADREQ   0                                                    FC5A158A  166
           746  0400000746 +            +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST          FC5A158A  167
                                                                                                                 FC5A158A  168
                                                                                                                 FC5A158A  169
                                        **        TERMINATE COMPILATION NORMALLY.                                FC5A158A  170
                                                                                                                 FC5A158A  171
           747                           END5     BSS    0                                                       FC5A158A  172
                                                  IFEQ   CP#RM,0,1   IF USING CIO I/O                            FC5A158A  173
           747  0100001013 +                      CALL   WFA         WAIT FILE ACTIONS                           FC5A158A  174
           750  5110000000 X                      SA1    INT.FL      INITIAL FL                                  FC5A158A  175
                          5120000000 X            SA2    CP.AFLS     CURRENT FL                                  FC5A158A  176
           751  37612                             IX6    X1-X2                                                   FC5A158A  177
                     0306000756 +                 ZR     X6,END10    IF CURRENT = INITIAL FL                     FC5A158A  178
                               10611              BX6    X1                                                      FC5A158A  179
           752  20636                             LX6    30                                                      FC5A158A  180
                     5160000000 X                 SA6    GT1                                                     FC5A158A  181
           753  7160150515                        MEMORY SCM,GT1,RCL RETURN TO INITIAL FL                        FC5A158A  182
                                                                                                                 FC5A158A  183
           756  5110000000 X             END10    SA1    CP.ILFL     INITIAL LCM FL                              FC5A158A  184
                          5120000000 X            SA2    CP.AFLL     CURRENT LCM FL                              FC5A158A  185
           757  37612                             IX6    X1-X2                                                   FC5A158A  186
                     0306000765 +                 ZR     X6,END15    IF CURRENT = INITIAL LCM FL                 FC50314     6
                               10611              BX6    X1                                                      FC5A158A  188
           760  20636                             LX6    30                                                      FC5A158A  189
                     5160000000 X                 SA6    GT1                                                     FC5A158A  190
           761  7160150515                        MEMORY LCM,GT1,R,,NOABT  RETURN TO INITIAL LCM FL              FC5A158A  191
                                                                                                                 FC5A158A  192
           765  7160247021               END15    ENDRUN                                                         FC50314     7
                                                                                                                 FC5A158A  195
                                                                                                                 FC5A158A  196
                                        **        DAYFILE MESSAGES.                                              FC5A158A  197
                                                                                                                 FC5A158A  198
           767  55555516161657161616     CPTMSG   DIS    ,/   NNN.NNN CP SECONDS COMPILATION TIME./              FC5A158A  199
           774  00000000000000000000     FLUSED   CON    0                                                       FC5A158A  200
           775  55031555232417220107              DIS    ,/ "SCM" STORAGE USED./                                 FC5A158A  201
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    30
        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
           777  0400400777 +             CPTIM    SUBR   =           ENTRY/EXIT...                               FC5A158A  212
          1000  0100001003 +                      CALL   TIMER       RETURNS (X6) = CURRENT CPTIME               FC5A158A  213
          1001  37162                             IX1    X6-X2       (X1) = ELAPSED TIME (BINARY)                FC5A158A  214
                     0100001022 +                 CALL   CFD         CONVERT FLOATING DIGITS TO F10.3            FC5A158A  215
          1002  0400000777 +                      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
          1003  0400401003 +             TIMER    SUBR   =           ENTRY/EXIT...                               FC5A158A  233
          1004  7160241115                        TIME   GT1                                                     FC5A158A  234
          1007  5150000000 X                      SA5    GT1                                                     FC5A158A  235
                          43060                   MX0    60-12                                                   FC5A158A  236
                               15450              BX4    -X0*X5      MSEC                                        FC5A158A  237
          1010  21514                             AX5    12                                                      FC5A158A  238
                     7130001750                   SX3    1000D       SEC * 1000                                  FC5A158A  239
                               43044              MX0    60-24                                                   FC5A158A  240
          1011  15550                             BX5    -X0*X5                                                  FC5A158A  241
                     42353                        IX3    X5*X3                                                   FC5A158A  242
                          36634                   IX6    X3+X4                                                   FC5A158A  243
          1012  0400001003 +                      EQ     EXIT.       EXIT...                                     FC5A158A  244
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    31
        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
          1013  0400401013 +             WFA      SUBR   0           ENTRY/EXIT...                               FC5A158A  257
          1014  66200                             =B2    0                                                       FC5A158A  258
          1015  5152000002               WFA1     SA5    B2+RA.ARG   (X5) = FILE VECTOR ENTRY                    FC5A158A  259
                          66221                   =B2    B2+1                                                    FC5A158A  260
          1016  0335001013 +                      MI     X5,EXIT.    IF END OF TABLE, EXIT...                    FC5A158A  261
                          0305001015 +            ZR     X5,WFA1     IF FILE DESELECTED                          FC5A158A  262
          1017  73250                             SX2    X5                                                      FC5A158A  263
                     0100000000 X                 RECALL X2                                                      FC5A158A  264
          1020  0400001015 +                      EQ     WFA1        LOOP FOR MORE                               FC5A158A  265
                                         .RM      ENDIF                                                          FC5A158A  266
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    32
        COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.                   CFD 
  
          1020                           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
          1021  5140001047 +             CFD3     SA4    CFDC                                                    CPSA243    24
                          66300                   SB3    B0                                                      CPSA243    25
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    33
        COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.                   CFD                 COMCCFD 
  
                               10644              BX6    X4                                                      CPSA243    26
                                                                                                                 COMCCFD    40
          1022  0400401022 +             CFD      SUBR               ENTRY/EXIT                                  COMCCFD    41
          1023  5120001042 +                      SA2    CFDA        =.1P48+1                                    COMCCFD    42
                          5130001044 +            SA3    CFDB        =10.0P                                      COMCCFD    43
          1024  54421                             SA4    A2+B1       =7346544777B                                CPSA243    27
                     43636                        MX6    -30                                                     CPSA243    28
                          6150000006              SB5    6                                                       COMCCFD    45
          1025  15616                             BX6    -X6*X1      DISCARD UPPER BITS                          CPSA243    29
                     7170001750                   SX7    1000                                                    COMCCFD    47
                               37446              IX4    X4-X6                                                   CPSA243    30
          1026  0334001021 +                      MI     X4,CFD3     IF INPUT .GT. 999999.999                    CPSA243    31
                          6140777755              SB4    1R0-1R      (B4) = CONVERSION                           COMCCFD    49
          1027  54431                             SA4    A3+B1       (X4) = BACKGROUND                           COMCCFD    50
                     27106                        PX1    X6                                                      COMCCFD    51
                          37767                   IX7    X6-X7                                                   COMCCFD    52
                               67205              SB2    -B5                                                     COMCCFD    53
          1030  0327001031 +                      PL     X7,CFD1     IF INTEGER PRESENT                          COMCCFD    54
                          66400                   SB4    B0                                                      CPSA243    32
                               54441              SA4    A4+B1                                                   CPSA243    33
          1031  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
          1032  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
          1033  0317001031 +                      NZ     X7,CFD1     LOOP TO ZERO QUOTIENT                       COMCCFD    65
                          7130000057              SX3    1R.         INSERT DECIMAL POINT                        COMCCFD    66
          1034  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
          1035  20322                             LX3    18                                                      COMCCFD    70
                     15162                        BX1    -X2*X6      EXTRACT FRACTION                            COMCCFD    71
                          6130000036              SB3    6*5                                                     COMCCFD    72
          1036  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
          1037  0723001040 +                      LT     B2,B3,CFD2  LEFT JUSTIFY RESULT                         COMCCFD    77
                          6132000000              SB3    B2+                                                     COMCCFD    78
          1040  6133777703               CFD2     SB3    B3-60                                                   COMCCFD    79
                          23436                   AX4    X6,B3                                                   COMCCFD    80
          1041  0400001022 +                      EQ     CFDX        RETURN                                      COMCCFD    81
                                                                                                                 COMCCFD    82
          1042  17170631463146314632     CFDA     CON    0.1P48+1                                                COMCCFD    83
          1043  00000000007346544777              CON    7346544777B OVERFLOW BOUNDARY                           CPSA243    34
          1044  20000000000000000012     CFDB     CON    10.0P                                                   COMCCFD    84
          1045  55555555555555555500              CON    9L                                                      COMCCFD    85
          1046  55555555553333333300              CON    9L     0000                                             COMCCFD    86
          1047  47474747474747474747     CFDC     DATA   10R**********                                           CPSA243    35
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    34
        COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.                   CFD                 COMCCFD 
  
                                 D_D              BASE   *                                                       COMCCFD    90
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCFD    91
                                                  QUAL   *                                                       COMCCFD    92
                                1022 +   CFD      EQU    /COMCCFD/CFD                                            COMCCFD    93
                                1022 +   CFD=     EQU    /COMCCFD/CFD                                            F4720D      7
                                         QUAL$    ENDIF                                                          COMCCFD    94
                                         CFD      ENDX                                                           COMCCFD    95
                                                  IFEQ   .SPY,ON,1                                               PUC       775
          1050  00000000000000000000     PUCA     DATA   0,0,7LCM USED                                           PUC       776
          1053                     1     PUCB     BSS    1                                                       PUC       777
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    35
        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
          1054  0400401054 +             CAF      SUBR   =           ...ENTRY/EXIT...                            FC51347     7
                                                                                                                 PUC       788
          1055  76000                             =X0    0                                                       PUC       789
                     0100001065 +                 RJ     COF         CLOSE OUTPUT FILE                           PUC       790
          1056  76010                             =X0    1                                                       PUC       791
                     0100001065 +                 RJ     COF         CLOSE ERROR FILE                            PUC       792
                                                                                                                 PUC       793
                                                                                                                 PUC       794
                                        **        WRITE EOR ON LGO.                                              PUC       795
                                                                                                                 PUC       796
          1057  5120000000 X                      SA2    FV.LGO                                                  F1039      96
                          0302001064 +            ZR     X2,CAF3     IF BINARY OUTPUT SUPPRESSED (B=0)           PUC       798
          1060  7120000000 X                      WRITEF F.LGO                                                   FC50055     5
          1062  7120000000 X                      BKSP   F.LGO                                                   PUC       800
                                                                                                                 PUC       801
                                                                                                                 PUC       802
                                        **        EVICT SCRATCH FILES                                            PUC       803
                                                                                                                 PUC       804
          1064                           CAF3     BSS    0                                                       PUC       805
                                                                                                                 PUC       806
                                         .TEST    IFEQ   TEST,OFF    IF NOT TEST MODE                            PUC       807
                                                  SA1    BINIO                                                   PUC       808
                                                  PL     X1,CAF35    IF PREBIN FILE NOT USED                     PUC       809
                                                  CLOSE  F.PB,UNLOAD                                             PUC       810
                                                                                                                 FC5A132    41
                                         CAF35    SA1    CO.OPT                                                  FC5A132    42
                                                  ZR     X1,CAF36    IF QCG MODE                                 FC5A132    43
                                                  CLOSE  F.IL,UNLOAD                                             FC5A132    44
                                                                                                                 FC5A132    45
                                         CAF36    BSS    0                                                       FC5A132    46
                                                  SA2    REFIO                                                   PUC       816
                                                  PL     X2,CAF4     IF REF FILE NOT USED                        PUC       817
                                                  CLOSE  F.REF,UNLOAD                                            PUC       818
                                         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
          1064  0400001054 +                      EQ     EXIT.       EXIT...                                     PUC       835
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    36
        PUC SUPPORT ROUTINES
  
                                        **        COF - CLOSE OUTPUT FILE.                                       PUC       837
                                        *                                                                        PUC       838
                                        *         ENTRY  X0 = 0/1  OUTPUT/ERRS                                   PUC       839
                                                                                                                 PUC       840
          1065  0400401065 +             COF      SUBR                                                           PUC       841
                                                                                                                 PUC       842
                                        *         RESET PRINT DENSITY IF NECESSARY.                              FC50353     6
                                                                                                                 PUC       844
          1066  5210001345 +                      SA1    PAGELOC+X0  TOTAL NUMBER OF PAGES ON OUTPUT             FC5A164    29
                          53110                   SA1    X1                                                      FC5A164    30
                               20101              LX1    59-58                                                   FC5A164    31
          1067  0321001065 +                      PL     X1,EXIT.    IF NO LINES WRITTEN                         FC5A164    32
                          5220000000 X            SA2    FV.OUT+X0                                               PUC       847
                                         .RM      IFEQ   CP#RM,0                                                 FC5A158A  268
          1070  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
          1071  0331001077 +                      MI     X1,COF10    IF FILE CONNECTED                           FC5A187     8
                                                                                                                 PUC       851
                          5110000000 X            SA1    CP.PD                                                   FC5A426    23
          1072  5130000000 X                      SA3    RS.PD       JOB DEFAULT PRINT DENSITY CHAR              FC5A426    24
                          13113                   BX1    X1-X3                                                   FC5A426    25
          1073  0301001077 +                      ZR     X1,COF10    IF JOB DEFAULT IN USE                       FC5A426    26
                          10633                   BX6    X3                                                      FC5A426    27
          1074  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
          1075  6160000000 X                      WRITEH X2,GT1,1    RESET DENSITY                               PUC       861
                                                                                                                 PUC       862
          1077  7170000024               COF10    WRITER X2                                                      PUC       863
          1100  0400001065 +                      EQ     EXIT.                                                   PUC       864
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    37
        COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING
  
          1100                                    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
          1101  0400401101 +             ECB      SUBR   =                                                       COMFECB    15
          1102  63720                             SB7    X2                                                      COMFECB    16
                     22412                        LX4    B1,X2                                                   COMFECB    17
                          36242                   IX2    X4+X2                                                   COMFECB    18
                               73022              SX0    B2+X2                                                   COMFECB    19
          1103  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
          1104  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
          1105  15116                             BX1    -X6*X1      MODE[WB(ORD)]                               COMFECB    29
                     7201777771                   SX0    X1-M.CHAR                                               COMFECB    30
          1106  0300001107 +                      ZR     X0,ECB5     IF MODE = CHAR                              COMFECB    31
                          7130000012              SX3    10          SIMULATE CHAR*10                            COMFECB    32
                                                                                                                 COMFECB    33
          1107  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
          1110  36653                             IX6    X5+X3                                                   COMFECB    38
                     20230                        LX2    WC.BCPP                                                 COMFECB    39
                          0334001120 +            MI     X4,ECB10    IF WB.EQV[ORD[OPD]]                         COMFECB    40
          1111  5150001543 +                      WX5    X6,X7                                                   COMFECB    41
          1115  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
          1116  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
          1117  0400001101 +                      EQ     EXIT.                                                   COMFECB    50
                                                                                                                 COMFECB    51
          1120  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
          1121  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/05. 19.58.01.      PAGE    38
        COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING
  
                               73442              SX4    B2+X4                                                   COMFECB    59
          1122  5244000002                        SA4    X4+WC.W                                                 COMFECB    60
                          20444                   LX4    -WC.BCPP                                                COMFECB    61
                               15040              BX0    -X0*X4                                                  COMFECB    62
          1123  36660                             IX6    X6+X0                                                   COMFECB    63
                     5150001543 +                 WX5    X6,X7                                                   COMFECB    64
          1127  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
          1130  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
          1131  20730                             LX7    WC.BCPP                                                 COMFECB    73
                     43044                        MX0    -WC.RAL                                                 COMFECB    74
                          12171                   BX1    X7+X1                                                   COMFECB    75
                               15220              BX2    -X0*X2                                                  COMFECB    76
          1132  12612                             BX6    X1+X2                                                   COMFECB    77
                     0400001101 +                 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
          1133  0400401133 +             ECS      SUBR   =                                                       COMFECB    93
          1134  6233777776                        SB3    X3-1                                                    COMFECB    94
                          63240                   SB2    X4                                                      COMFECB    95
                               77723              SX7    B2-B3                                                   COMFECB    96
          1135  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
          1136  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
          1137  73643                             SX6    X4+B3                                                   COMFECB   106
                     5140001543 +                 WX4    X6,X2                                                   COMFECB   107
          1143  36343                             IX3    X4+X3                                                   COMFECB   108
                     20230                        LX2    WC.BCPP                                                 COMFECB   109
                          20136                   LX1    WC.CLENP                                                COMFECB   110
                               12212              BX2    X1+X2                                                   COMFECB   111
          1144  43044                             MX0    -WC.RAL                                                 COMFECB   112
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    39
        COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING                ECS 
  
                     15330                        BX3    -X0*X3                                                  COMFECB   113
                                                  LX3    WC.RAP                                                  COMFECB   114
                          12623                   BX6    X2+X3                                                   COMFECB   115
          1145  0400001133 +                      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
          1146  0400401146 +             GCL      SUBR   =                                                       PUC       917
          1147  22211                             LX2    B1,X1                                                   PUC       918
                     5130000030 +                 SA3    =XT.SYM                                                 PUC       919
                               36512              IX5    X1+X2                                                   PUC       920
          1150  43052                             MX0    -WC.CLENL                                               PUC       921
                     6223000002                   SB2    X3+WC.W                                                 PUC       922
                               53252              SA2    B2+X5                                                   PUC       923
          1151  20236                             LX2    -WC.CLENP                                               PUC       924
                     15120                        BX1    -X0*X2                                                  PUC       925
                          5130000527 +            SA3    =XS=VD                                                  PUC       926
                                                  LX2    WC.CLENP-1-WC.CTYPP                                     PUC       927
          1152  21273                             AX2    59                                                      PUC       928
                     11323                        BX3    X2*X3                                                   PUC       929
                          0400001146 +            EQ     EXIT.                                                   PUC       930
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    40
        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
          1153  0400401153 +             GMC      SUBR   =           ...ENTRY/EXIT...                            PUC      1136
          1154  5110000000 X                      SA1    MAX.FL      MAX FL FOR JOB STEP                         PUC      1137
                          5130000000 X            SA3    CP.AFLS     ACTUAL CURRENT FL                           PUC      1138
          1155  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
          1156  0324001160 +                      PL     X4,GMC10    IF NEWFL .LE. MAXFL                         PUC      1143
                                                                                                                 PUC      1144
                          6170777776              SB7    -1          FLAG MAXFL REQUESTED                        PUC      1145
          1157  37231                             IX2    X3-X1       CURRENT FL - MAXFL                          PUC      1146
                     0322001170 +                 PL     X2,GMC20    IF MAXFL .LE. CURRENT FL, DIE               PUC      1147
                                                                                                                 PUC      1148
                               10611              BX6    X1          NEWFL = MAXFL                               PUC      1149
          1160  20636                    GMC10    LX6    30                                                      PUC      1150
                     5160000000 X                 SA6    GT1                                                     PUC      1151
          1161  7160150515                        MEMORY SCM,GT1,RCL                                             PUC      1152
                                                                                                                 PUC      1153
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                PUC      1154
          1164  0100001245 +                      RJ     PCS         PRINT CORE STATISTICS                       PUC      1155
                                                                                                                 PUC      1156
          1165  5110000000 X                      SA1    GT1                                                     PUC      1157
                          21136                   AX1    30                                                      PUC      1158
                               10611              BX6    X1                                                      PUC      1159
          1166  5160000000 X                      SA6    CP.AFLS     SET ACTUAL FL                               PUC      1160
                          7266777765              SX6    X6-10                                                   PUC      1161
          1167  5160000000 X                      SA6    CP.NFLS     SET NOMINAL FL                              PUC      1162
                          0400001153 +            EQ     EXIT.       EXIT...                                     PUC      1163
                                                                                                                 PUC      1164
                                        *         HERE IF NO MORE ROOM.                                          PUC      1165
                                                                                                                 PUC      1166
          1170  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
          1171  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/05. 19.58.01.      PAGE    41
        PROGRAM UNIT SUPPORT ROUTINES                                 GMC 
  
          1172  0400001153 +                      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
          1173  0400401173 +             LJS      SUBR   =           ...ENTRY/EXIT...                            PUC      1185
                                                                                                                 PUC      1186
                                                  IFEQ   TEST,ON,1                                               PUC      1187
          1174  0305401174 +                      ZR     X5,"BLOWUP" IF ZERO -- COMPILER ERROR                   PUC      1188
                                                                                                                 PUC      1189
                          43206                   MX2    CHAR                                                    PUC      1190
          1175  7130005700                        SX3    2R.*-1R*    (X3) = 1R. SHIFTED 6                        PUC      1191
          1176  11625                    LJS4     BX6    X2*X5                                                   PUC      1192
                     20506                        LX5    CHAR                                                    PUC      1193
                          0306001176 +            ZR     X6,LJS4     IF (X5) NOT LEFT JUSTIFIED                  PUC      1194
          1177  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
          1200  0400001173 +                      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
          1201  0400401201 +             MTD      SUBR   =           ...ENTRY/EXIT...                            PUC      1213
          1202  6130000046                        SB3    N.TABLE-1                                               PUC      1214
                          67303                   SB3    -B3                                                     PUC      1215
                                                                                                                 PUC      1216
          1203  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
          1204  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
          1205  22703                             LX7    X3                                                      PUC      1222
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    42
        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
          1206  0100000000 X                      MOVE   X1,X2,X3    MOVE CURRENT TABLE DOWN                     PUC      1225
          1207  0530001203 +                      NZ     B3,MTD1     IF MORE TABLES TO MOVE                      PUC      1226
                          0400001201 +            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
          1210  0400401210 +             MTU      SUBR   =           ...ENTRY/EXIT...                            PUC      1242
          1211  6130000046                        SB3    N.TABLE-1   NUMBER OF TABLES TO MOVE                    PUC      1243
                                                                                                                 PUC      1244
          1212  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
          1213  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
          1214  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
          1215  0530001212 +                      NZ     B3,MTU1     IF MOVE TABLES TO MOVE                      PUC      1253
                          0400001210 +            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
          1216  0400401216 +             PES      SUBR               ENTRY/EXIT...                               F1037F5   221
          1217  5160000424 +                      SA6    PESA        PRESERVE ENDING OFFSET                      F1037F5   222
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    43
        PROGRAM UNIT SUPPORT ROUTINES                                 PES 
  
                                                                                                                 F1037F5   223
          1220  5215000540 +             PES10    SA1    ERR=A+X5    X1 = ERROR COUNT THIS LEVEL                 F1037F5   224
                          0301001234 +            ZR     X1,PES30    IF NO ERRORS THIS LEVEL                     F1037F5   225
          1221  63610                             SB6    X1          SAVE NUMBER OF ERRORS                       F1037F5   226
                     0100000000 X                 CALL   CDD         CONVERT TO DPC                              F1037F5   227
          1222  20606                             LX6    CHAR                                                    F1037F5   228
                     5225000530 +                 SA2    X5+ERRTYP   X2 = ERROR TYPE INFO                        F1037F5   229
                               21222              AX2    18                                                      F1037F5   230
          1223  53120                             SA1    X2          ERROR TYPE DPC                              F1037F5   231
                     5160000330 +                 SA6    LINEBUF                                                 F1037F5   232
          1224  5130001544 +                      SA3    =20L ERROR IN  ERRORS IN                                F1037F5   233
                          5120000320 +            SA2    IDENT                                                   F1037F5   234
          1225  10711                             BX7    X1                                                      F1037F5   235
                     0616001226 +                 LE     B6,B1,PES20 IF ONLY ONE ERROR                           F1037F5   236
                               54331              =A3    A3+1                                                    F1037F5   237
                                                                                                                 F1037F5   238
          1226  54761                    PES20    =A7    A6+1        +1 = (ERROR TYPE DPC)                       F1037F5   239
                     7110000055                   SX1    1R                                                      F1037F5   240
                               22603              LX6    X3                                                      F1037F5   241
          1227  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
          1230  7110000330 +                      MESSAGE  LINEBUF,,RCL                                          F1037F5   246
          1232  7110000330 +                      PLINE  LINEBUF,4,1                                             F1037F5   247
                                                                                                                 F1037F5   248
          1234  5110000424 +             PES30    SA1    PESA                                                    F1037F5   249
                          73551                   =X5    X5+1                                                    F1037F5   250
                               37615              IX6    X1-X5                                                   F1037F5   251
          1235  0326001220 +                      PL     X6,PES10    IF MORE ERROR TYPES                         F1037F5   252
                          0400001216 +            EQ     EXIT.                                                   F1037F5   253
                                                                                                                 F1037F5   254
                                 424 +   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/05. 19.58.01.      PAGE    44
        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
          1236  0400401236 +             PIA      SUBR   =           ** ENTRY/EXIT **                            PUC      1284
          1237  5120001536 +                      SA2    =10H                                                    PUC      1285
                          6170000014              SB7    2*CHAR                                                  PUC      1286
                                                                                                                 PUC      1287
          1240  43771                    PIA2     MX7    -3                                                      PUC      1288
                     6177000006                   SB7    B7+CHAR                                                 PUC      1289
                               15617              BX6    -X7*X1                                                  PUC      1290
          1241  20266                             LX2    -CHAR                                                   PUC      1291
                     7266777755                   SX6    X6+1R0-1R                                               PUC      1292
                               21103              AX1    3                                                       PUC      1293
          1242  36226                             IX2    X2+X6                                                   PUC      1294
                     0311001240 +                 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
          1243  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
          1244  0400001236 +                      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
          1245  0400401245 +             PCS      SUBR               ...ENTRY/EXIT...                            PUC      1311
          1246  5110000000 X                      SA1    GT1                                                     PUC      1312
                          76570                   SX5    B7          REMEMBER (B7)                               PUC      1313
                               21136              AX1    30                                                      PUC      1314
          1247  0100000000 X                      CALL   COD         CONVERT OCTAL DIGITS                        PUC      1315
          1250  10644                             BX6    X4                                                      PUC      1316
                     5160001257 +                 SA6    PCSB                                                    PUC      1317
          1251  7110001254 +                      PLINE  PCSA,PCSC                                               PUC      1318
          1253  63750                             SB7    X5          RESTORE (B7)                                PUC      1319
                     0400001245 +                 EQ     EXIT.       EXIT...                                     PUC      1320
                                                                                                                 PUC      1321
          1254  55464646464655555555     PCSA     DIS    3, -----    *         NEW FL IS                         PUC      1322
          1257  00000000000000000000     PCSB     CON    0           FL                                          PUC      1323
                                   4     PCSC     EQU    *-PCSA                                                  PUC      1324
                                         .TEST    ENDIF                                                          FC5A128   119
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    45
        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
          1260  0400401260 +             WHL      SUBR   0           ENTRY/EXIT...                               PUC      1333
          1261  5110000415 +                      SA1    WOF=ERR                                                 PUC      1334
                          7120000000 X            SX2    ERFO                                                    F1039      97
          1262  42612                             IX6    X1*X2                                                   PUC      1336
                     5160001344 +                 SA6    TTLOFF                                                  PUC      1337
          1263  5221001345 +                      SA2    PAGELOC+X1                                              FC5A164    33
                          53220                   SA2    X2                                                      FC5A164    34
                               20201              LX2    59-58                                                   FC5A164    35
          1264  0332001272 +                      MI     X2,WHL1     IF NOT FIRST TIME IN                        FC5A164    36
                          43601                   MX6    1                                                       FC5A164    37
                               12662              BX6    X6+X2                                                   FC5A164    38
          1265  20673                             LX6    58-59                                                   FC5A164    39
                     54620                        SA6    A2                                                      FC5A164    40
                          5211000000 X            SA1    CO.PW+X1                                                FC5A187    13
          1266  0331001272 +                      MI     X1,WHL1     IF FILE CONNECTED                           FC5A187    14
                          5110000000 X            SA1    CP.PD                                                   PUC      1342
          1267  0301001272 +                      ZR     X1,WHL1     IF PD NOT ON CONTROL CARD                   PUC      1343
                          5120001410 +            SA2    WOFB                                                    PUC      1344
          1270  6160000000 X                      WRITEH X2,CP.PD,1  SET PAGE DENSITY                            PUC      1345
                                                                                                                 FC50029     4
          1272  76600                    WHL1     =X6    0                                                       FC50029     5
                     5110000415 +                 SA1    WOF=ERR                                                 PUC      1347
          1273  5241001345 +                      SA4    PAGELOC+X1                                              PUC      1348
                          53440                   SA4    X4                                                      PUC      1349
          1274  5261000322 +                      SA6    LCNT+X1     RESET LINE COUNT                            PUC      1350
                          76310                   =X3    1                                                       PUC      1351
                               36743              IX7    X4+X3                                                   PUC      1352
          1275  73170                             SX1    X7                                                      PUC      1353
                     54740                        SA7    A4          UPDATE PAGE COUNT                           PUC      1354
                          0100000000 X            CALL   CDD         CONVERT PAGE NUMBER                         PUC      1366
          1276  5130000415 +                      SA3    WOF=ERR                                                 PUC      1367
                          5213000000 X            SA1    CO.PW+X3                                                PUC      1368
          1277  7211777601                        SX1    X1-126                                                  FC50353     7
                          5120001410 +            SA2    WOFB                                                    PUC      1370
          1300  5130001344 +                      SA3    TTLOFF                                                  PUC      1371
                          0331001320 +            MI     X1,WHL5     IF PW MODE                                  FC50353     8
          1301  20630                             LX6    10*CHAR-6*CHAR                                          PUC      1373
                     5263000000 X                 =A6    TL.PAGE+X3                                              PUC      1374
          1302  6263000000 X                      WRITEH X2,O.TITL+X3,L.TITL                                     PUC      1375
          1304  5110000415 +                      SA1    WOF=ERR                                                 F1039      98
                          5231001347 +            SA3    NPU+X1                                                  F1039      99
          1305  0303001313 +                      ZR     X3,WHL2     IF SECOND PAGE OF PROGRAM UNIT              F1039     100
                          0311001313 +            NZ     X1,WHL2     IF E FILE WRITE                             F1039     101
          1306  7160000002                        SX6    2                                                       F1039     102
                          5130001344 +            SA3    TTLOFF                                                  F1039     103
          1307  5160001351 +                      SA6    HLC         SET HEADER LINE COUNT                       F1039     104
                          6263000000 X            WRITEH X2,O.CPV+X3,L.TWO  SECOND LINE                          F1039     105
          1311  5130001344 +                      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/05. 19.58.01.      PAGE    46
        PROGRAM UNIT SUPPORT ROUTINES                                 WHL 
  
          1313                           WHL2     BSS    0                                                       F1039     109
          1313  5130000415 +                      SA3    WOF=ERR                                                 PUC      1376
                          0313001341 +            NZ     X3,WHL7     IF E-FILE WRITE                             PUC      1377
          1314  5120000375 +                      SA2    O.STITL                                                 PUC      1378
                          63220                   SB2    X2                                                      PUC      1379
                               21236              AX2    30                                                      PUC      1380
          1315  63420                             SB4    X2                                                      FC5A158A  278
                     7120000000 X                 SX2    F.OUT                                                   FC5A158A  279
                               66620              WRITEH X2,B2,B4                                                FC5A158A  280
          1317  0400001341 +                      EQ     WHL7                                                    PUC      1383
                                                                                                                 PUC      1384
          1320  5213777776 X             WHL5     SA1    TL.PAGE-1+X3                                            PUC      1385
                          43430                   MX4    -6*6                                                    PUC      1386
                               11141              BX1    X4*X1                                                   PUC      1387
          1321  15664                             BX6    -X4*X6                                                  PUC      1388
                     12661                        BX6    X6+X1                                                   PUC      1389
                          54610                   SA6    A1          10HPAGE 12345                               PUC      1390
          1322  6263000000 X                      WRITEH X2,O.TTLA+X3,L.TTLA                                     PUC      1391
          1324  5130001344 +                      SA3    TTLOFF                                                  PUC      1392
                          6263000000 X            WRITEH X2,TL.PTYP+X3,L.TTLB                                    PUC      1393
          1326  5110000415 +                      SA1    WOF=ERR                                                 F1039     110
                          5231001347 +            SA3    NPU+X1                                                  F1039     111
          1327  0303001341 +                      ZR     X3,WHL7     IF SECOND PAGE OF PROGRAM UNIT              F1039     112
                          0311001341 +            NZ     X1,WHL7     IF E FILE WRITE                             F1039     113
          1330  7160000004                        SX6    4           HEADER LINE COUNT                           F1039     114
                          5130001344 +            SA3    TTLOFF                                                  F1039     115
          1331  5160001351 +                      SA6    HLC         SET HEADER LINE COUNT                       F1039     116
                          6263000000 X            WRITEH X2,O.CPV+X3,L.TA                                        F1039     117
          1333  5130001344 +                      SA3    TTLOFF                                                  F1039     118
                          6263000000 X            WRITEH X2,O.TA+X3,L.TB                                         F1039     119
          1335  5130001344 +                      SA3    TTLOFF                                                  F1039     120
                          6263000000 X            WRITEH X2,O.CC+X3,L.CCA                                        F1039     121
          1337  5130001344 +                      SA3    TTLOFF                                                  F1039     122
                          6263000000 X            WRITEH X2,O.C+X3,L.CCB                                         F1039     123
                                                                                                                 PUC      1394
          1341  6160001546 +             WHL7     WRITEH X2,HDRBL,1                                              PUC      1395
          1343  0400001260 +                      EQ     EXIT.       EXIT...                                     PUC      1396
                                                                                                                 PUC      1397
          1344                     1     TTLOFF   BSS    1                                                       PUC      1398
          1345  00000000000000000000 X   PAGELOC  CON    CP.PAGE,CP.EPAG   LOCS OF PAGE COUNTS                   PUC      1399
          1346  00000000000000000000 X
          1347  00000000000000000000     NPU      CON    0,1         NEXT PROGRAM UNIT FLAG // HEADER LINE FLAG  F1039     124
          1350  00000000000000000001
                                        *                            FOR ERROR FILE.                             F1039     125
          1351  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/05. 19.58.01.      PAGE    47
        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
          1352  0400401352 +             WOF      SUBR   =           ENTRY/EXIT...                               PUC      1414
          1353  76640                             SX6    B4                                                      PUC      1415
                     5160001406 +                 SA6    WOFC                                                    PUC      1416
          1354  5140000415 +                      SA4    WOF=ERR                                                 PUC      1417
                          5234000000 X            SA3    FV.OUT+X4                                               PUC      1418
          1355  10633                             BX6    X3                                                      PUC      1419
                     0303001352 +                 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
          1356  5160001410 +                      SA6    WOFB        FET FOR OUT/ERR                             PUC      1421
                          5234000322 +            SA3    LCNT+X4                                                 PUC      1422
          1357  5140000000 X                      SA4    CO.PS                                                   FC5A107    11
                          73635                   SX6    X3+B5                                                   PUC      1424
                               37746              IX7    X4-X6                                                   PUC      1425
          1360  54630                             SA6    A3          UPDATE LINE COUNT                           PUC      1426
                     63610                        SB6    X1                                                      PUC      1427
                          0327001371 +            PL     X7,WOF1     IF PAGE NOT FULL                            PUC      1428
                                                                                                                 PUC      1429
                                        *         WRITE HEADER LINE.                                             PUC      1430
                                                                                                                 PUC      1431
          1361  20236                             LX2    30                                                      PUC      1432
                     36612                        IX6    X1+X2                                                   PUC      1433
                          5160001407 +            SA6    WOFA        SAVE FWA AND LENGTH OF LINE                 PUC      1434
          1362  0100001260 +                      RJ     WHL         WRITE HEADER LINES                          PUC      1435
          1363  5110000415 +                      SA1    WOF=ERR                                                 PUC      1436
                          22401                   LX4    X1                                                      F1039     127
          1364  5211000322 +                      SA1    LCNT+X1                                                 PUC      1437
                          73611                   =X6    X1+1                                                    PUC      1438
          1365  5224001347 +                      SA2    NPU+X4     X4  =  WOF=ERR                               F1039     128
                          0302001370 +            ZR     X2,WOF0    IF NOT FIRST PAGE OF PROGRAM UNIT            F1039     129
          1366  7272777776                        SX7    X2-1                                                    F1039     130
                          54720                   SA7    A2         NEXT PROGRAM UNIT FLAG                       F1039     131
          1367  5120001351 +                      SA2    HLC        HEADER LINE COUNT                            F1039     132
                          36662                   IX6    X6+X2      ACCOUNT FOR HEADER LINES                     F1039     133
                                                                                                                 F1039     134
          1370                           WOF0     BSS    0                                                       F1039     135
          1370  54610                             SA6    A1                                                      PUC      1439
                     0400001376 +                 EQ     WOF3        WRITE REQUESTED LINES                       PUC      1440
                                                                                                                 PUC      1441
                                        *         WRITE BLANK LINES BEFORE REQUESTED LINE.                       PUC      1442
                                                                                                                 PUC      1443
          1371  0451001377 +             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/05. 19.58.01.      PAGE    48
        PROGRAM UNIT SUPPORT ROUTINES                                 WOF 
  
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                PUC      1447
          1372  6170000004                        SB7    4                                                       PUC      1448
                          0775401372 +            GT     B5,B7,"BLOWUP" ONLY 4 BLANK LINES PROVIDED              PUC      1449
                                                                                                                 PUC      1450
          1373  6175777776                        SB7    B5-1                                                    PUC      1451
                                                                                                                 PUC      1452
                          5160001407 +            SA6    WOFA        SAVE FWA AND LENGTH                         PUC      1453
          1374  5120001410 +                      SA2    WOFB                                                    PUC      1454
                          6160001546 +            WRITEH X2,HDRBL,B7                                             PUC      1455
          1376  5120001407 +             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
          1377  0560001402 +             WOF4     NZ     B6,WOF5     IF LINE TO WRITE                            PUC      1462
                          5110000415 +            SA1    WOF=ERR                                                 PUC      1463
          1400  5211000322 +                      SA1    LCNT+X1                                                 PUC      1464
                          7261777776              =X6    X1-1                                                    PUC      1465
          1401  54610                             SA6    A1                                                      PUC      1466
                     0400001404 +                 EQ     WOF7                                                    PUC      1467
                                                                                                                 PUC      1468
          1402  6272000000               WOF5     SB7    X2+                                                     PUC      1469
                                                                                                                 PUC      1470
                                         .T       IFEQ   TEST,ON                                                 PUC      1471
                          0470401402 +            ZR     B7,"BLOWUP" REQUEST WITHOUT LENGTH NFG                  PUC      1472
                                         .T       ENDIF                                                          PUC      1473
                                                                                                                 PUC      1474
          1403  5120001410 +                      SA2    WOFB                                                    PUC      1475
                          0100000000 X            WRITEH X2,B6,B7                                                PUC      1476
          1404  5110001406 +             WOF7     SA1    WOFC                                                    PUC      1477
                          6241000000              SB4    X1+         RESTORE B4                                  PUC      1478
          1405  0400001352 +                      EQ     EXIT.       DONE...                                     PUC      1479
                                                                                                                 PUC      1480
          1406                     1     WOFC     BSS    1           SAVE B4                                     PUC      1481
          1407                     1     WOFA     BSS    1           SAVE FWA AND LENGTH                         PUC      1482
          1410                     1     WOFB     BSS    1           FET FOR OUTPUT/ERRORS                       PUC      1483
                                                                                                                 PUC      1484
                                                                                                                 PUC      1485
                                1546 +   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/05. 19.58.01.      PAGE    49
        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/05. 19.58.01.      PAGE    50
        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
          1411                           F.PIK    BSSENT 0           MACHINE OP DESCRIPTION VECTOR               PUC      1564
          1411                           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/05. 19.58.01.      PAGE    51
        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   1511                                    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
          1511                           PIK=LCM  BSSENT 0                                                       PUC      1642
          1511  01323000000000002230              INST   (RXJ XK)                014   DRL                       PUC      1643
          1512  01323000000000002730              INST   (WXJ XK)                015   DWL                       PUC      1644
                                         .DAL     ENDIF                                                          PUC      1645
                                                                                                                 PUC      1646
          1513                           PIK=XJP  BSSENT 0           X-REGISTER JUMPS                            PUC      1647
          1513  47322450000000003222              INST   (ZR  XJ,Q)              030                             PUC      1648
          1514  47322450000000001632              INST   (NZ  XJ,Q)            031                               PUC      1649
          1515  47322450000000002014              INST   (PL  XJ,Q)            032                               PUC      1650
          1516  47322450000000001511              INST   (MI  XJ,Q)            033                               PUC      1651
          1517  47322450000000001122              INST   (IR  XJ,Q)            034                               PUC      1652
          1520  47322450000000001722              INST   (OR  XJ,Q)            035                               PUC      1653
          1521  47322450000000000406              INST   (DF  XJ,Q)            036                               PUC      1654
          1522  47322450000000001104              INST   (ID  XJ,Q)            037                               PUC      1655
                                                                                                                 PUC      1656
          1523                           PIK=PI   BSSENT 0           PSEUDO-INST SKELETON TABLE                  PUC      1657
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    52
        INSTRUCTION SKELETON TABLE.                                   F.PIK 
  
          1523  51500000000000002212              INST   (RJK Q),(FUPA)          0001  RJT                       PUC      1658
          1524  57100000000000002212              INST   (RJ  Q),(FUPA)          0002  SHORT RJ                  PUC      1659
          1525  57301250000000001220              INST   (JP  CI+Q),(FUPA)       0003                            PUC      1660
          1526  57100000000000000521              INST   (EQ  Q),(FUPA)          0004                            PUC      1661
                                                                                                                 PUC      1681
                                                  PURGMAC INST                                                   PUC      1682
  
  
  
  
                                                  LIST   D                                                       PUC      1684
  
                                        CONTENT OF LITERALS BLOCK.
  
          1527  55011623115555555555     ANSI 
          1530  55150405205555555555     MDEP 
          1531  55040502250755555555     DEBUG
          1532  55242211261101145555     TRIVIAL
          1533  55270122161116075555     WARNING
          1534  55060124011455555555     FATAL
          1535  55030124012324221720     CATASTROP
          1536  55555555555555555555
          1537  34550000000000000000    1 
          1540  11040516245500000000    IDENT 
          1541  46555555555555555555    - 
          1542  46550000000000000000    - 
          1543  00000631463146314632      FY-Y-Y-Z
          1544  55052222172255111655     ERROR IN 
          1545  55052222172223551116     ERRORS IN
          1546  55550000000000000000
          1547  55550000000000000000
          1550  55550000000000000000
          1551  55550000000000000000
  
          1552                                    END                                                            PUC      1685
  
                             75600B CM  STORAGE USED             9209 STATEMENTS     1882 SYMBOLS      000005 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.732 SECONDS        1993 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN          0   EXTERNAL*       3/49 X   28/46
        ALC.PAR       305   PROGRAM*       17/03 L   17/03 E
        ALTNAM        234   PROGRAM*       14/39 L   14/39 E
        BASES           0   PROGRAM*       10/06 L   13/55     13/55     13/55     13/55     13/55     14/42     14/42
                                           10/06 E   13/55     13/55     13/55     13/55     14/42     14/42     14/42
                                           13/55     13/55     13/55     13/55     13/55     14/42     14/42     14/42
                                           13/55     13/55     13/55     13/55     13/55     14/42     14/42     14/42
                                           13/55     13/55     13/55     13/55     13/55     14/42     14/42     14/42
                                           13/55     13/55     13/55     13/55     13/55     14/42     14/42     14/42
                                           13/55     13/55     13/55     13/55     13/55     14/42     14/42     41/53
                                           13/55     13/55     13/55     13/55     13/55     14/42     14/42     42/26
        BINIO         306   PROGRAM*       17/05 L   17/05 E   24/17
        BLNKCOM       307   PROGRAM*       17/08 L   17/08 E
        B1=1            0 
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        CAF          1054   PROGRAM*       23/55     35/08 L   35/08 E
        CAF3         1064   PROGRAM*       35/19     35/26 L
        CARDS         346   PROGRAM*       17/46 D   17/46 E
        CBI           310   PROGRAM*       17/10 L   17/10 E
        CDD             0   EXTERNAL*       4/08 X   43/05     45/37
        CFD          1022   PROGRAM*       30/13     34/04 D
        CFD=         1022   PROGRAM*       34/05 D
        CGL             0   EXTERNAL*       4/05 X   25/42
        CHAR            6   FTX            24/53     41/22     41/28     43/22     44/14     44/23
                                           25/30     41/25     43/06     44/11     44/16     45/44
        CHARDCL       311   PROGRAM*       17/12 L   17/12 E
        CIO=            0   EXTERNAL*       4/08 X   24/30     25/07     35/20     36/35
                                           24/03     24/39     25/12     35/21
        COD             0   EXTERNAL*       3/49 X   26/06     28/12     44/44
        COF          1065   PROGRAM*       35/11     35/13     36/05 L
        COF10        1077   PROGRAM*       36/20     36/25     36/35 L
        COMSIZ        303   PROGRAM*       16/32 L   16/32 E
        CONONE        450   PROGRAM*       20/15 L   20/15 E
        CONZER        451   PROGRAM*       20/16 L   20/16 E
        CONZERI       452   PROGRAM*       20/17 L   20/17 E
        CO.ANSI         0   EXTERNAL*       3/49 X   27/03
        CO.GO           0   EXTERNAL*       3/49 X   28/50
        CO.LOO          0   EXTERNAL*       3/49 X   24/09
        CO.OPT          0   EXTERNAL*       3/49 X   24/01     24/18     24/25     24/44
        CO.PS           0   EXTERNAL*       3/49 X   23/21     47/25
        CO.PW           0   EXTERNAL*       3/49 X   36/19     45/21     45/39
        CO.PWE          0   EXTERNAL*       3/50 X   25/21
        CPTIM         777   PROGRAM*       28/20     30/10 L   30/10 E
        CPTMSG        767   PROGRAM*       28/21 S   28/22     29/49 L
        CP.ABT          0   EXTERNAL*       3/50 X   28/36
        CP.AFLL         0   EXTERNAL*       3/50 X   29/36
        CP.AFLS         0   EXTERNAL*       3/50 X   26/05     26/40     40/24     40/54
                                           25/48     26/22     29/27     40/46 S
        CP.BLF          0   EXTERNAL*       3/50 X   23/24
        CP.CARD         0   EXTERNAL*       3/50 X   23/51     24/52
        CP.EPAG         0   EXTERNAL*       3/50 X   25/09     25/19     46/40
        CP.ERCT         0   EXTERNAL*       3/51 X   28/35
        CP.IFMT         0   EXTERNAL*       3/51 X   23/45
        CP.ILFL         0   EXTERNAL*       3/51 X   29/06     29/35
        CP.LSTF         0   EXTERNAL*       3/51 X   23/22
        CP.MXFL         0   EXTERNAL*       3/51 X   25/51     28/11
        CP.NFLS         0   EXTERNAL*       3/51 X   40/48 S   40/56
        CP.PAGE         0   EXTERNAL*       3/51 X   23/23     25/04     46/40
        CP.PD           0   EXTERNAL*       3/52 X   36/22     45/23     45/26
        CP#RM           0   FTX            24/05 F   24/32 F   28/44 F   29/24 F   35/44 F   36/28 F
                                           24/14 F   24/41 F   28/56 F   31/10 F   36/14 F   47/21 F
        CT.ECS          1   FTX            29/05 F
        ECB          1101   PROGRAM*       37/14 L   37/14 E
        ECB10        1120   PROGRAM*       37/39     37/51 L
        ECB5         1107   PROGRAM*       37/30     37/33 L
        ECS          1133   PROGRAM*       38/38 L   38/38 E
        EL=C            6   FTX            22/38
        EL=D            2   FTX            22/34
        EL=F            5   FTX            22/37
        EL=T            3   FTX            22/35
        EL=W            4   FTX            22/36
        ENDFTN        706   PROGRAM*       23/56     28/04 L   28/04 E
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        END10         756   PROGRAM*       29/29     29/35 L
        END15         765   PROGRAM*       29/38     29/44 L
        END4          724   PROGRAM*       28/41     28/42     28/50 L
        END5          747   PROGRAM*       28/51     29/23 L
        ENTRJ         313   PROGRAM*       17/18 L   17/18 E
        ERFO            0   EXTERNAL*       3/52 X   25/25     25/29     45/10
        ERRORS        312   PROGRAM*       17/14 L   17/14 E   17/20
        ERRTYP        530   PROGRAM*       22/28 L   22/28 E   43/07
        ERR=A         540   PROGRAM*       22/43 L   22/43 E   43/02
        ERR=C         547   PROGRAM*       22/43 L   22/43 E
        ERR=D         542   PROGRAM*       22/43 L   22/43 E
        ERR=F         545   PROGRAM*       22/43 L   22/43 E
        ERR=K         546   PROGRAM*       22/43 L   22/43 E
        ERR=M         541   PROGRAM*       22/43 L   22/43 E
        ERR=T         543   PROGRAM*       22/43 L   22/43 E
        ERR=W         544   PROGRAM*       22/43 L   22/43 E
        ERR.A           0                  22/31 E   22/31 L   27/02     27/08
        ERR.C           7                  22/39 E   22/39 L   27/14     27/15
        ERR.D           2                  22/34 E   22/34 L
        ERR.F           5                  22/37 E   22/37 L
        ERR.K           6                  22/38 E   22/38 L
        ERR.M           1                  22/32 E   22/32 L   27/05     27/07     27/08     27/13
        ERR.T           3                  22/35 E   22/35 L   27/15
        ERR.W           4                  22/36 E   22/36 L
        E=TOTAL       550   PROGRAM*       22/44 L   22/44 E
        FAILSFT       314   PROGRAM*       17/22 L   17/22 E
        FA=SET          0   EXTERNAL*       4/08 X   24/27     24/46
        FEL             0   EXTERNAL*       4/05 X   25/41
        FLSLOP          4   FTX            26/51
        FLSLUP       1000   FTX            26/52
        FLUSED        774   PROGRAM*       28/13 S   28/14     29/50 L
        FV.LGO          0   EXTERNAL*       3/52 X   24/08     35/18
        FV.OUT          0   EXTERNAL*       3/52 X   36/13     36/29     47/18
        F$LBT         266   PROGRAM*       16/34 D   16/34 E
        F.ERRS          0   EXTERNAL*       3/52 X   25/12
        F.IL            0   EXTERNAL*       3/52 X   24/03
        F.IN            0   EXTERNAL*       3/52 X   23/51
        F.LBT         266   PROGRAM*       16/12 L   16/12 E   16/34
        F.LGO           0   EXTERNAL*       3/52 X   24/15     35/20     35/21     35/21
        F.OUT           0   EXTERNAL*       3/52 X   23/40     25/07     46/08
        F.PB            0   EXTERNAL*       3/53 X   24/27     24/30
        F.PIK        1411   PROGRAM*       50/21 L   50/21 E   51/39
        F.REF           0   EXTERNAL*       3/53 X   24/39     24/46
        F.SORD        455   PROGRAM*       20/38 L   20/38 E   21/27
        GCL          1146   PROGRAM*       39/20 L   39/20 E
        GMC          1153   PROGRAM*       26/43     40/22 L   40/22 E
        GMC10        1160   PROGRAM*       40/29     40/36 L
        GMC20        1170   PROGRAM*       40/33     40/53 L
        GT1             0   EXTERNAL*       3/53 X   29/10     29/32 S   29/41 S   30/35     36/27 S   40/37 S   40/43
                                           29/09 S   29/14 S   29/33     29/42     30/36     36/33     40/38     44/41
        HDRBL        1546   PROGRAM*       46/36     48/09     48/40 L   48/41 E
        HLC          1351   PROGRAM*       45/53 S   46/27 S   46/45 L   47/46
        HO$CSN        346   PROGRAM*       17/48 D   17/48 E
        HO$LVL2       326   PROGRAM*       17/40 D   17/40 E
        HO$MSG        317   PROGRAM*       17/27 L   17/27 E
        HO$PMLS       376   PROGRAM*       18/49 D   18/49 E
        HO$PRGN       320   PROGRAM*       17/29 D   17/29 E
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        HO$RDR        417   PROGRAM*       19/07 D   19/07 E
        IDENT         320   PROGRAM*       17/28 L   17/28 E   17/29     26/11     43/12
        IDENT1        316   PROGRAM*       17/26 L   17/26 E   19/05
        INT.FL          0   EXTERNAL*       3/53 X   26/33     29/26
        IO.TEM        321   PROGRAM*       17/31 L   17/31 E
        I.CBSET         5   FTX            24/27     24/46
        LCNT          322   PROGRAM*       17/34 L   17/34 E   17/35     23/26 S   45/32 S   47/24     47/40     48/18
        LDCOM           0   EXTERNAL*       3/53 X   25/11     25/13
        LDRFL         551   PROGRAM*       22/49 L   29/04
        LEVEL         324   PROGRAM*       17/37 L   17/37 E
        LEVEL0        325   PROGRAM*       17/38 L   17/38 E
        LEVEL2        326   PROGRAM*       17/39 L   17/39 E   17/40
        LINEBUF       330   PROGRAM*       17/43 L   17/43 E   43/10 S   43/24     43/25
        LINENR        346   PROGRAM*       17/47 D   17/47 E
        LINES         346   PROGRAM*       17/45 L   17/45 E   17/46     17/47     17/48     19/04
        LJS          1173   PROGRAM*       41/17 L   41/17 E
        LJS4         1176   PROGRAM*       41/24 L   41/26
        LOSTREF       347   PROGRAM*       17/50 L   17/50 E
        LUS             0   EXTERNAL*       4/02 X   26/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/53 X   45/56
        L.CCA           0   EXTERNAL*       3/53 X   46/32
        L.CCB           0   EXTERNAL*       3/53 X   46/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/53 X   46/28
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        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        423   PROGRAM*       19/15 L   19/15 E   26/50 S
        L.TB            0   EXTERNAL*       3/53 X   46/30
        L.TITL          0   EXTERNAL*       3/54 X   45/46
        L.TTLA          0   EXTERNAL*       3/54 X   46/18
        L.TTLB          0   EXTERNAL*       3/54 X   46/20
        L.TWO           0   EXTERNAL*       3/54 X   45/54
        MAX.FL          0   EXTERNAL*       3/54 X   40/23
        MEM.GOFL    34000   FTX            22/49
        MIN.TABS     3000   FTX            26/35
        MOD           350   PROGRAM*       17/55 L   17/55 E
        MSG=            0   EXTERNAL*       3/54 X   26/14     28/14     28/22     29/16     43/24
        MTD          1201   PROGRAM*       41/48 L   41/48 E
        MTD1         1203   PROGRAM*       41/52 L   42/04
        MTU          1210   PROGRAM*       42/23 L   42/23 E
        MTU1         1212   PROGRAM*       42/26 L   42/34
        MVE=            0   EXTERNAL*       4/08 X   42/03     42/33
        M.BOOL          0   FTX            20/16
        M.CHAR          6   FTX            37/29
        M.INT           2   FTX            20/15     20/17
        M.LOG           1   FTX            20/18     20/19
        NAMES         165   PROGRAM*       13/52 L   13/52 E
        NARGS         351   PROGRAM*       17/57 L   17/57 E
        NOLIST        352   PROGRAM*       18/02 L   18/02 E
        NPU          1347   PROGRAM*       23/38 S   45/48     46/22     46/42 L   47/42
        NREXT         353   PROGRAM*       18/05 L   18/05 E
        NSQZLH        354   PROGRAM*       18/08 L   18/08 E
        N$FERR        312   PROGRAM*       17/20 D   17/20 E
        N$FPS         366   PROGRAM*       18/30 D   18/30 E
        N$LBT          14                  16/36 D   16/36 E
        N$LC          371   PROGRAM*       18/38 L   18/38 E
        N$LINES       322   PROGRAM*       17/35 D   17/35 E
        N$SEP         365   PROGRAM*       18/26 D   18/26 E
        N$VD          374   PROGRAM*       18/44 D   18/44 E
        N.AP          355   PROGRAM*       18/10 L   18/10 E
        N.ARP         356   PROGRAM*       18/12 L   18/12 E
        N.BUF         357   PROGRAM*       18/16 L   18/16 E
        N.CON         361   PROGRAM*       18/19 L   18/19 E
        N.CPL         360   PROGRAM*       18/17 L   18/17 E
        N.CT          362   PROGRAM*       18/20 L   18/20 E
        N.CTMAX       363   PROGRAM*       18/21 L   18/21 E
        N.DOB         364   PROGRAM*       18/23 L   18/23 E
        N.EPL         365   PROGRAM*       18/25 L   18/25 E   18/26
        N.ERRT         10                  22/41 L   22/41 E
        N.FP          366   PROGRAM*       18/28 L   18/28 E   18/30
        N.GL          367   PROGRAM*       18/32 L   18/32 E
        N.MAXIL       370   PROGRAM*       18/34 L   18/34 E
        N.ST          372   PROGRAM*       18/40 L   18/40 E
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        N.STMAX       373   PROGRAM*       18/41 L   18/41 E
        N.TABLE        47                   9/36 D    9/36 E   41/49     41/52     42/24
        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          374   PROGRAM*       18/43 L   18/43 E   18/44
        OD.ATRL        11   FTX            49/23     49/29
        OD.BJMPP       72   FTX            49/25
        OD.EDL          4   FTX            49/27
        OD.EDN         11   FTX            50/24     50/35     50/46     50/57     51/12     51/23     51/34     51/52
                                           50/25     50/36     50/47     51/01     51/13     51/24     51/35     51/53
                                           50/26     50/37     50/48     51/03     51/14     51/25     51/36     51/54
                                           50/27     50/38     50/49     51/04     51/15     51/26     51/37     51/55
                                           50/28     50/39     50/51     51/05     51/16     51/27     51/43     52/01
                                           50/29     50/40     50/52     51/06     51/17     51/28     51/44     52/02
                                           50/30     50/42     50/53     51/07     51/18     51/30     51/48     52/03
                                           50/31     50/43     50/54     51/08     51/19     51/31     51/49     52/04
                                           50/33     50/44     50/55     51/09     51/21     51/32     51/50
                                           50/34     50/45     50/56     51/10     51/22     51/33     51/51
        OD.FUPAP       71   FTX            49/26
        OD.GHL         14   FTX            49/28
        OD.QP          73   FTX            49/24
        OFFSPY          0   EXTERNAL*       3/54 X   28/29
        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/54 X   46/34
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        O.CC            0   EXTERNAL*       3/54 X   45/56     46/32
        O.CPV           0   EXTERNAL*       3/55 X   45/54     46/28
        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       375   PROGRAM*       18/46 L   18/46 E   46/04
        O.TA            0   EXTERNAL*       3/55 X   46/30
        O.TABS        315   PROGRAM*       17/24 L   17/24 E   26/34     26/48
        O.TITL          0   EXTERNAL*       3/55 X   45/46
        O.TTLA          0   EXTERNAL*       3/55 X   25/28     46/18
        PAGELOC      1345   PROGRAM*       36/09     45/13     45/30     46/40 L
        PASS          377   PROGRAM*       18/51 L   18/51 E
        PCS          1245   PROGRAM*       40/41     44/40 L
        PCSA         1254   PROGRAM*       44/47     44/51 L   44/53
        PCSB         1257   PROGRAM*       44/46 S   44/52 L
        PCSC            4                  44/47     44/53 D
        PES          1216   PROGRAM*       27/09     27/16     42/56 L
        PESA          424   PROGRAM*       42/57 S   43/27     43/33 D
        PES10        1220   PROGRAM*       43/02 L   43/30
        PES20        1226   PROGRAM*       43/14     43/17 L
        PES30        1234   PROGRAM*       43/03     43/27 L
        PIA          1236   PROGRAM*       44/09 L   44/09 E
        PIA2         1240   PROGRAM*       44/13 L   44/20
        PIK=EQ       1415   PROGRAM*       51/39 D   51/39 E
        PIK=LCM      1511   PROGRAM*       51/42 L   51/42 E
        PIK=PI       1523   PROGRAM*       51/57 L   51/57 E
        PIK=PS       1411   PROGRAM*       50/22 L   50/22 E
        PIK=XJP      1513   PROGRAM*       51/47 L   51/47 E
        PIK.EQ          4                  50/28 L   51/39
        PUC           552   PROGRAM*       23/16 L   23/16 E   27/17
        PUCA         1050   PROGRAM*       26/10 S   26/13 S   26/14     34/09 L
        PUCB         1053   PROGRAM*       34/10 L
        PUC1          557   PROGRAM*       23/32     23/36 L
        PUC10         643   PROGRAM*       25/27     25/36 L
        PUC11         644   PROGRAM*       25/20     25/41 L
        PUC13         665   PROGRAM*       26/04     26/16 L
        PUC2          563   PROGRAM*       23/39     23/45 L
        PUC20         700   PROGRAM*       26/42     27/02 L
        PUC3          571   PROGRAM*       23/46     23/54 L
        PUC30         702   PROGRAM*       27/04     27/07 L
        PUC4          573   PROGRAM*       23/50     23/52     24/01 L
        PUC4A         576   PROGRAM*       24/02     24/08 L
        PUC5          602   PROGRAM*       24/12     24/17 L
        PUC6          605   PROGRAM*       24/20     24/23 L
        PUC6A         611   PROGRAM*       24/26     24/29 L
        PUC7          613   PROGRAM*       24/11     24/29     24/35 L
        PUC8          621   PROGRAM*       24/36     24/45     24/51 L
        PUC85         630   PROGRAM*       25/06     25/09 L
        PUC9          634   PROGRAM*       24/57     25/03     25/19 L
        PU.MFL        376   PROGRAM*       18/48 L   18/48 E   18/49     25/49
        PWBUF         400   PROGRAM*       18/53 L   18/53 E
  U     QUAL$                              32/06 F   34/02 F
        RAPFLAG         0   EXTERNAL*       3/55 X   23/48
        RATES         116   PROGRAM*       13/05 L   13/05 E
        RA.ARG          2   CPUTEXT        31/14
        RA.PGN         64   CPUTEXT        28/54 S   29/16
        RDC=            0   EXTERNAL*       4/08 X   23/51
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        REFIO         416   PROGRAM*       19/01 L   19/01 E   24/35
        REL             0   EXTERNAL*       4/05 X   25/43
        RPV=CLN       346   PROGRAM*       19/04 D   19/04 E
        RPV=MSG       316   PROGRAM*       19/05 D   19/05 E
        RPV=URP       417   PROGRAM*       19/06 L   19/06 E   19/07
        RS.PD           0   EXTERNAL*       3/55 X   36/23
        SAVE          420   PROGRAM*       19/09 L   19/09 E
        SCR           424   PROGRAM*       19/22 L   19/22 E   43/33
        SFN             0   EXTERNAL*       4/08 X   26/12     41/29
        SIZES          47   PROGRAM*       11/34 L   11/34 E   41/54     42/27
        SPYW            0   EXTERNAL*       3/55 X   26/03
        SUM.LBT       302   PROGRAM*       16/31 L   16/31 E
        SYS=            0   EXTERNAL*       3/55 X   29/10     29/17     29/42     30/35
                                           29/04     29/14     29/33     29/44     40/38
        S$CON         463   PROGRAM*       21/30 D   21/30 E
        S$IT          507   PROGRAM*       21/31 D   21/31 E
        S$LC          503   PROGRAM*       21/32 D   21/32 E
        S$OT          511   PROGRAM*       21/33 D   21/33 E
        S$VD          527   PROGRAM*       21/34 D   21/34 E
        S=AEXIT       455   PROGRAM*       20/40 L   20/40 E
        S=BU          456   PROGRAM*       20/41 L   20/41 E
        S=BUF         460   PROGRAM*       20/43 L   20/43 E
        S=BUFIN       457   PROGRAM*       20/42 L   20/42 E
        S=CES         461   PROGRAM*       20/44 L   20/44 E
        S=CL          462   PROGRAM*       20/45 L   20/45 E
        S=CON         463   PROGRAM*       20/46 L   20/46 E   21/30
        S=CP          464   PROGRAM*       20/47 L   20/47 E
        S=CPL         465   PROGRAM*       20/48 L   20/48 E
        S=CT          466   PROGRAM*       20/49 L   20/49 E
        S=ENTRY       467   PROGRAM*       20/50 L   20/50 E
        S=ERR         470   PROGRAM*       20/51 L   20/51 E
        S=EXIT        471   PROGRAM*       20/52 L   20/52 E
        S=FAR         472   PROGRAM*       20/53 L   20/53 E
        S=FAS         473   PROGRAM*       20/54 L   20/54 E
        S=FID         474   PROGRAM*       20/55 L   20/55 E
        S=FILES       500   PROGRAM*       21/02 L   21/02 E
        S=FMC         475   PROGRAM*       20/56 L   20/56 E
        S=FVS         477   PROGRAM*       21/01 L   21/01 E
        S=GPL         501   PROGRAM*       21/03 L   21/03 E
        S=INIT        510   PROGRAM*       21/10 L   21/10 E
        S=IT          507   PROGRAM*       21/09 L   21/09 E   21/31
        S=LA          502   PROGRAM*       21/04 L   21/04 E
        S=LC          503   PROGRAM*       21/05 L   21/05 E   21/32
        S=LENP        504   PROGRAM*       21/06 L   21/06 E
        S=LMC         505   PROGRAM*       21/07 L   21/07 E
        S=MMC         506   PROGRAM*       21/08 L   21/08 E
        S=OT          511   PROGRAM*       21/11 L   21/11 E   21/33
        S=RD          512   PROGRAM*       21/12 L   21/12 E
        S=SA0         514   PROGRAM*       21/14 L   21/14 E
        S=SA1         513   PROGRAM*       21/13 L   21/13 E
        S=SLI         515   PROGRAM*       21/15 L   21/15 E
        S=SPA         516   PROGRAM*       21/16 L   21/16 E
        S=ST          517   PROGRAM*       21/17 L   21/17 E
        S=SUB         520   PROGRAM*       21/18 L   21/18 E
        S=SUBI        521   PROGRAM*       21/19 L   21/19 E
        S=SUB0I       522   PROGRAM*       21/20 L   21/20 E
        S=TA0         524   PROGRAM*       21/22 L   21/22 E
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        S=TRACE       523   PROGRAM*       21/21 L   21/21 E
        S=UPW         525   PROGRAM*       21/23 L   21/23 E
        S=VALUE       526   PROGRAM*       21/24 L   21/24 E
        S=VD          527   PROGRAM*       21/25 L   21/25 E   21/34     39/29
        TEST            1   FTX            13/51 F   26/45 F   40/40 F   44/39 F   48/25 F
                                           22/33 F   35/28 F   41/19 F   48/01 F
        THRESH        421   PROGRAM*       19/11 L   19/11 E   26/53 S
        TIMER        1003   PROGRAM*       26/28     30/11     30/34 L   30/34 E
        TIME0           0   EXTERNAL*       3/56 X   28/19
        TIME1           0   EXTERNAL*       3/56 X   26/29 S
        TL.EJCT         0   EXTERNAL*       3/56 X   25/24
        TL.PAGE         0   EXTERNAL*       3/56 X   45/45     45/45 S   46/12
        TL.PTYP         0   EXTERNAL*       3/56 X   46/20
        TP.BIASL       30   FTX            20/15     20/16     20/17     20/18     20/19
        TP.MODEL        3   FTX            20/15     20/16     20/17     20/18     20/19
        TP.ORDL        20   FTX            20/15     20/16     20/17     20/18     20/19
        TP.SHRTP       14   FTX            20/15     20/16     20/17     20/18     20/19
        TTLOFF       1344   PROGRAM*       45/12 S   45/52     46/19     46/29     46/33
                                           45/42     45/55     46/26     46/31     46/39 L
        TV=CUR        265   PROGRAM*       15/17 L   15/17 E
        TV=DECL       262   PROGRAM*       15/14 L   15/14 E
        TV=END        264   PROGRAM*       15/16 L   15/16 E
        TV=EXU        263   PROGRAM*       15/15 L   15/15 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
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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     13/55
        T.APL          20   PROGRAM*       10/49 L   10/49 E   10/50     12/20     13/55
        T.ARG           1   PROGRAM*       10/12 L   10/12 E   10/13     11/40     13/55     14/42
        T.ASG          25   PROGRAM*       11/02 L   11/02 E   11/03     12/30     13/55
        T.BLKS         31   PROGRAM*       11/10 L   11/10 E   11/11     12/38     13/55
        T.BLST          4   PROGRAM*       10/18 L   10/18 E   11/46     13/55
        T.CAC          17   PROGRAM*       10/47 L   10/47 E   10/48     12/18     13/55
        T.CLW          16   PROGRAM*       10/45 L   10/45 E   10/46     12/16     13/55
        T.CLWB         12   PROGRAM*       10/39 D   10/39 E   12/10
        T.COMM          3   PROGRAM*       10/17 L   10/19     10/21     11/45     14/42     14/42
                                           10/17 E   10/20     10/22     13/55     14/42     14/42
        T.CON          26   PROGRAM*       11/04 L   11/04 E   11/05     12/32     13/55
        T.CUT          27   PROGRAM*       11/06 L   11/06 E   11/07     11/22     12/34     13/55     14/42
        T.C$IF         15   PROGRAM*       10/43 L   10/43 E   12/14     13/55
        T.DAR          10   PROGRAM*       10/35 D   10/35 E   12/06
        T.DATI          5   PROGRAM*       10/23 L   10/24     10/26     13/55     14/42
                                           10/23 E   10/25     11/51     14/42     14/42
        T.DATL          6   PROGRAM*       10/27 L   10/28     10/30     13/55     14/42
                                           10/27 E   10/29     11/55     14/42     14/42
        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     13/55
        T.DVV           3   PROGRAM*       10/20 D   10/20 E   11/48
        T.ECT          41   PROGRAM*       11/26 L   11/26 E   12/54     13/55
        T.END          46   PROGRAM*       11/31 L   11/31 E   13/02     13/55
        T.ENT          42   PROGRAM*       11/27 L   11/27 E   12/55     13/55
        T.ENTP         34   PROGRAM*       11/16 L   11/16 E   11/17     12/44     13/55
        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     13/55
        T.FPI          35   PROGRAM*       11/18 L   11/18 E   11/19     12/46     13/55
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        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     13/55
        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     13/55
        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     13/55
        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     13/55
        T.LCC          44   PROGRAM*       11/29 L   11/29 E   12/57     13/55
        T.LGOB          0   PROGRAM*       10/11 D   10/11 E   11/39
        T.LINK          2   PROGRAM*       10/16 D   10/16 E   11/44
        T.LNT          43   PROGRAM*       11/28 L   11/28 E   12/56     13/55
        T.NLST         32   PROGRAM*       11/12 L   11/12 E   11/13     12/40     13/55
        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     13/55     14/42     14/42
        T.PCS          11   PROGRAM*       10/37 L   10/37 E   12/08     13/55
        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     13/55
        T.SAP           7   PROGRAM*       10/31 L   10/31 E   10/32     10/33     12/02     13/55     14/42     14/42
        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     13/55     14/42     14/42
        T.STMT         12   PROGRAM*       10/38 L   10/38 E   10/39     12/09     13/55     14/42
        T.SUB          13   PROGRAM*       10/40 L   10/40 E   12/11     13/55
        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     13/55     39/22
        T.TB            0   PROGRAM*       10/10 L   10/10 E   10/11     11/38     13/55     14/42
        T.VDI          36   PROGRAM*       11/20 L   11/20 E   11/21     12/48     13/55
        T.VDIM         14   PROGRAM*       10/41 L   10/41 E   10/42     12/12     13/55     14/42
        T.XFIL         10   PROGRAM*       10/36 D   10/36 E   12/07
        USAVE         422   PROGRAM*       19/13 L   19/13 E
        VFALSE        454   PROGRAM*       20/19 L   20/19 E
        VTRUE         453   PROGRAM*       20/18 L   20/18 E
        WB.BASEL       14   FTX            37/52
        WB.BASEP       41   FTX            37/51
        WB.EQVL         1   FTX            37/22
        WB.EQVP        11   FTX            37/22     37/51
        WB.MODEL        3   FTX            37/25
        WB.W            1   FTX            37/19     37/20
        WC.BCPL         4   FTX            37/35     37/43     37/56     38/48
        WC.BCPP        30   FTX            37/34     37/38     37/45     38/03     38/15     38/49     38/54
        WC.CLENL       22   FTX            37/23     38/09     38/10     39/24
        WC.CLENP       36   FTX            37/26     37/34     38/10     38/55     39/27
        WC.RAL         30   FTX            37/41     38/07     38/12     38/16     38/46     38/57
                                           37/43     38/08     38/13     38/42     38/47
        WC.RAP          0   FTX            38/49
        WC.W            2   FTX            37/20     38/02     39/25
        WFA          1013   PROGRAM*       28/45     28/57     29/25     31/12 L
        WFA1         1015   PROGRAM*       31/14 L   31/17     31/20
        WHL          1260   PROGRAM*       45/08 L   47/37
        WHL1         1272   PROGRAM*       45/16     45/22     45/24     45/28 L
        WHL2         1313   PROGRAM*       45/49     45/50     46/01 L
        WHL5         1320   PROGRAM*       45/43     46/12 L
        WHL7         1341   PROGRAM*       46/03     46/10     46/23     46/24     46/36 L
        WNB=            0   EXTERNAL*       3/56 X   24/15     31/19
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/05. 19.58.01.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        WOF          1352   PROGRAM*       43/25     44/47     47/14 L   47/14 E
        WOFA         1407   PROGRAM*       47/36 S   48/07 S   48/10     48/36 L
        WOFB         1410   PROGRAM*       45/25     45/41     47/23 S   48/08     48/29     48/37 L
        WOFC         1406   PROGRAM*       47/16 S   48/31     48/35 L
        WOF0         1370   PROGRAM*       47/43     47/49 L
        WOF1         1371   PROGRAM*       47/30     47/55 L
        WOF3         1376   PROGRAM*       47/51     48/10 L
        WOF4         1377   PROGRAM*       47/55     48/16 L
        WOF5         1402   PROGRAM*       48/16     48/23 L
        WOF7         1404   PROGRAM*       48/21     48/31 L
        WOF=ERR       415   PROGRAM*       18/55 L   45/09     45/38     46/02     47/17     48/17
                                           18/55 E   45/29     45/47     46/21     47/38
        WO.CS         436   PROGRAM*       19/37 L   19/37 E
        WO.C$         436   PROGRAM*       19/35 L   19/35 E
        WO.DOLG       437   PROGRAM*       19/38 L   19/38 E
        WO.DOOT       440   PROGRAM*       19/39 L   19/39 E
        WO.LCM        447   PROGRAM*       19/46 L   19/46 E
        WO.LOA        441   PROGRAM*       19/40 L   19/40 E
        WO.LOM        442   PROGRAM*       19/41 L   19/41 E
        WO.LOO        443   PROGRAM*       19/42 L   19/42 E
        WO.LOR        444   PROGRAM*       19/43 L   19/43 E
        WO.LOS        445   PROGRAM*       19/44 L   19/44 E
        WO.QC         446   PROGRAM*       19/45 L   19/45 E
        WTH=            0   EXTERNAL*       4/08 X   45/26     45/56     46/20     46/32     48/09
                                           23/40     45/46     46/09     46/28     46/34     48/30
                                           36/33     45/54     46/18     46/30     46/36
        Z$LBT          14                  16/35 D   16/35 E
        Z=BLKS          2   FTX             8/57     11/10
        Z=SYM           3   FTX             8/55     11/08
        Z=TURP          3   FTX            18/34
        Z.LBT          14                  16/29 L   16/29 E   16/35     16/36
        Z.SORD         53                  21/27 D   21/27 E
        .DAL            1   FTX            51/41 F
        .OS             1   FTX            28/28 F   29/03 F
        .SPY            1   FTX            26/02 F   28/27 F   34/08 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCFD 
  
  
        CFD          1022   PROGRAM*       33/03 L   34/04     34/05
        CFDA         1042   PROGRAM*       33/04     33/47 L
        CFDB         1044   PROGRAM*       33/05     33/49 L
        CFDC         1047   PROGRAM*       32/56     33/52 L
        CFD1         1031   PROGRAM*       33/18     33/21 L   33/29
        CFD2         1040   PROGRAM*       33/41     33/43 L
        CFD3         1021   PROGRAM*       32/56 L   33/12
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/05. 19.58.05.      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/05. 19.58.05.      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/05. 19.58.05.      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/05. 19.58.05.      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/05. 19.58.05.      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/05. 19.58.05.      PAGE     6
        REAR END LOADER                                               PIS 
  
                                                                                                                 QCGLINK   130
                                                                                                                 QCGLINK   131
                                                  LIST   D                                                       QCGLINK   132
            23                                    END                                                            QCGLINK   133
  
                             74000B CM  STORAGE USED              301 STATEMENTS     1368 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.209 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/05. 19.58.06.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      171              IDENT  CCGLINK
                        171                       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/05. 19.58.06.      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/05. 19.58.06.      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/05. 19.58.06.      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  0100000157 +                      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/05. 19.58.06.      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/05. 19.58.06.      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/05. 19.58.06.      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
                          5160000144 +            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
            66                           COMSTAB  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAB     2
                                                                                                                 COMSTAB     3
            66                           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
            66  5110000000 X             CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
            67  5110000000 X             CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
            70  5110000000 X             APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
            71  5110000000 X             IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
            72  5110000000 X             API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
            73  5110000000 X             IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
            74  5110000000 X             GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
            75  5110000000 X             ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
            76  5110000000 X             CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
            77  5110000000 X             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/05. 19.58.06.      PAGE     8
        LINKAGE SUPPORT                                               MAT 
  
            77                           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
           100  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
           101  5110000000 X             BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
           102  5110000000 X             NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
           103  5110000000 X             DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
           104  5110000000 X             ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
           105  5110000000 X             FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
           106  5110000000 X             VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
                                                                                                                 COMSTAB     6
                                         COMSTAB  ENDX                                                           COMSTAB     7
                                                                                                                 CCGLINK   167
           107  0306000113 +                      ZR     X6,MAT2     IF ALL TRASHED TABLES EMPTY                 CCGLINK   168
                          7110000145 +            PLINE  MATB,5                                                  CCGLINK   169
           112  0400000115 +                      EQ     MAT3        PRINT TABLE STATISTICS                      CCGLINK   170
                                                                                                                 CCGLINK   171
           113  5110000000 X             MAT2     SA1    =XCO.SNAP                                               CCGLINK   172
                          20124                   LX1    1RT                                                     CCGLINK   173
           114  0321000120 +                      PL     X1,MAT4     IF SNAP NOT DESIRED                         CCGLINK   174
           115  7110000152 +             MAT3     PLINE  MATC,5                                                  CCGLINK   175
           117  0100000000 X                      CALL   PTO         PRINT TABLE ORIGINS                         CCGLINK   176
           120                           MAT4     BSS                                                            CCGLINK   177
                                         .TEST    ENDIF                                                          CCGLINK   178
                                                                                                                 CCGLINK   179
                                        *         SUM PRESERVED TABLE SIZES.                                     CCGLINK   180
                                                                                                                 CCGLINK   181
           120  6160000000 X                      SB6    =XL.P2SAV   START OF TABLES SAVED ACROSS CCG            CCGLINK   182
                          6170000000 X            SB7    =XT=END     LAST TABLE SIZE WORD                        CCGLINK   183
           121  7160000000                        SX6    0+          INITIALIZE LENGTH                           CCGLINK   184
           122  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
           123  0767000122 +                      LT     B6,B7,MAT5  IF MORE TABLES TO GO                        CCGLINK   188
                          5160000004 +            SA6    L=FE        SAVE LENGTH OF PRESERVED TABLES             CCGLINK   189
           124  5110000144 +                      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
           125  5120000104                        SA2    RA.ORG+L54.HHA    (X2) = HIGHEST HIGH ADDRESS           CCGLINK   197
                          5130000000 X            SA3    =XCP.NFLS   (X3) = NOMINAL FL                           CCGLINK   198
           126  37432                             IX4    X3-X2       (X4) = AVAILABLE SPACE                      CCGLINK   199
                     37664                        IX6    X6-X4       (X5) = NEEDED-AVAILABLE                     CCGLINK   200
                          0336000132 +            MI     X6,MAT6     IF ENOUGH ROOM                              CCGLINK   201
           127  0100000000 X                      CALL   GMC         GET MORE CORE                               CCGLINK   202
           130  0707000132 +                      GT     B7,MAT6     IF REQUEST HONORED                          CCGLINK   203
                          7160000002              SX6    2                                                       CCGLINK   204
           131  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/05. 19.58.06.      PAGE     9
        LINKAGE SUPPORT                                               MAT 
  
                                                                                                                 CCGLINK   209
           132  5120000000 X             MAT6     SA2    =XCP.NFLS                                               CCGLINK   210
                          7202777776              SX0    X2-1        FUTURE LWA OF RESERVED TABLES               CCGLINK   211
           133  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
           134  36442                             IX4    X4+X2       (X4) = LWA+1 OF LAST TABLE                  CCGLINK   214
                     37604                        IX6    X0-X4                                                   CCGLINK   215
                          0326000141 +            PL     X6,MAT7     IF NO MOVE DOWN NEEDED                      CCGLINK   216
           135  10700                             BX7    X0                                                      CCGLINK   217
                     5120000000 X                 SA2    =XO.TABS    (X2) = START OF TABLE AREA                  CCGLINK   218
           136  5170000144 +                      SA7    MATA        SAVE FUTURE LWA OF PRESERVED TABLES         CCGLINK   219
                          10022                   BX0    X2          (X0) = FWA TO MOVE TO                       CCGLINK   220
           137  0100000000 X                      CALL   MTD         MOVE TABLES DOWN                            CCGLINK   221
           140  5120000144 +                      SA2    MATA                                                    CCGLINK   222
                          10022                   BX0    X2          (X0) = LWA FOR MOVE UP                      CCGLINK   223
           141  0100000000 X             MAT7     CALL   MTU         MOVE TABLES UP                              CCGLINK   224
           142  5110000000 X                      SA1    =XO.P2SAV                                               CCGLINK   225
                          10611                   BX6    X1                                                      CCGLINK   226
           143  5160000003 +                      SA6    O=FE        START OF PRESERVED TABLES                   CCGLINK   227
                          0400000061 +            EQ     EXIT.                                                   CCGLINK   228
                                                                                                                 CCGLINK   229
           144  00000000000000000000     MATA     CON    0           TEMP SAVE CELL                              CCGLINK   230
                                                                                                                 CCGLINK   231
                                         .T       IFEQ   TEST,ON                                                 CCGLINK   232
           145  55554646464646555555     MATB     DIS    5,  -----    *         TRASHED TABLES NOT ALL EMPTY     CCGLINK   233
           152  55555524010214055523     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
           157  0400400157 +             UTP      SUBR               ...ENTRY/EXIT...                            CCGLINK   243
                                                                                                                 CCGLINK   244
                                        *         SET FWA OF ALL TABLES BELOW O.P2USE TO SAME ORIGIN.            CCGLINK   245
                                                                                                                 CCGLINK   246
           160  6160000000 X                      SB6    =XO.P2USE                                               CCGLINK   247
                          6170000000 X            SB7    =XBASES                                                 CCGLINK   248
           161  56160                             SA1    B6          (X1) = FWA OF FIRST (USED) TABLE            CCGLINK   249
                     10611                        BX6    X1                                                      CCGLINK   250
           162  56670                    UTP1     SA6    B7                                                      CCGLINK   251
                     66771                        =B7    B7+1                                                    CCGLINK   252
                          0776000162 +            LT     B7,B6,UTP1  IF MORE TO GO                               CCGLINK   253
                                                                                                                 CCGLINK   254
                                        *         UPDATE FWA OF PRESERVED TABLES.                                CCGLINK   255
                                                                                                                 CCGLINK   256
           163  5110000003 +                      SA1    O=FE                                                    CCGLINK   257
                          6170000000 X            SB7    =XO.P2SAV                                               CCGLINK   258
           164  6160000000 X                      SB6    =XBASES                                                 CCGLINK   259
                          73610                   SX6    X1                                                      CCGLINK   260
                               67776              SB7    B7-B6                                                   CCGLINK   261
           165  6160000000 X                      SB6    =XN.TABLE                                               CCGLINK   262
           166  5167000000 X             UTP2     SA6    B7+=XBASES                                              CCGLINK   263
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    10
        LINKAGE SUPPORT                                               UTP 
  
                          5117000000 X            SA1    B7+=XSIZES                                              CCGLINK   264
           167  66771                             =B7    B7+1                                                    CCGLINK   265
                     36661                        IX6    X6+X1                                                   CCGLINK   266
                          0776000166 +            LT     B7,B6,UTP2                                              CCGLINK   267
           170  0400000157 +                      EQ     EXIT.       DONE...                                     CCGLINK   290
                                                                                                                 CCGLINK   291
                                                                                                                 CCGLINK   292
                                                  LIST   D                                                       CCGLINK   293
           171                                    END                                                            CCGLINK   294
  
                             74000B CM  STORAGE USED              756 STATEMENTS     1424 SYMBOLS      000006 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.281 SECONDS         214 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    8/23
        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          144   PROGRAM*        7/18 S    8/41      9/11 S    9/14      9/22 L
        MATB          145   PROGRAM*        8/20      9/25 L
        MATC          152   PROGRAM*        8/26      9/26 L
        MAT1           64   PROGRAM*        7/14 L    7/17
        MAT2          113   PROGRAM*        8/19      8/23 L
        MAT3          115   PROGRAM*        8/21      8/26 L
        MAT4          120   PROGRAM*        8/25      8/28 L
        MAT5          122   PROGRAM*        8/36 L    8/39
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    11
        SYMBOLIC REFERENCE TABLE. 
  
        MAT6          132   PROGRAM*        8/50      8/52      9/02 L
        MAT7          141   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
        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    8/27
        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            1   FTX             7/20 F    9/24 F
        T=API           0   EXTERNAL*       1/48 X    7/50
        T=APL           0   EXTERNAL*       1/48 X    7/48
        T=ASG           0   EXTERNAL*       1/48 X    7/53
        T=BLKS          0   EXTERNAL*       1/48 X    8/08
        T=CAC           0   EXTERNAL*       1/50 X    7/47
        T=CLW           0   EXTERNAL*       1/50 X    7/46
        T=CON           0   EXTERNAL*       1/48 X    7/54
        T=CUT           0   EXTERNAL*       1/50 X    7/55
        T=DIM           0   EXTERNAL*       1/50 X    8/10
        T=END           0   EXTERNAL*       1/49 X    8/34      9/05
        T=ENTP          0   EXTERNAL*       1/50 X    8/11
        T=FPI           0   EXTERNAL*       1/50 X    8/12
        T=GL            0   EXTERNAL*       1/49 X    7/52
        T=IOA           0   EXTERNAL*       1/49 X    7/49
        T=IOI           0   EXTERNAL*       1/49 X    7/51
        T=NLST          0   EXTERNAL*       1/49 X    8/09
        T=REF           0   EXTERNAL*       1/49 X    4/35      4/39      4/39 S    5/06
        T=SYM           0   EXTERNAL*       1/49 X    8/06
        T=VDI           0   EXTERNAL*       1/50 X    8/13
        T.END           0   EXTERNAL*       1/49 X    9/04
        T.REF           0   EXTERNAL*       1/50 X    4/36      5/07
        UTP           157   PROGRAM*        4/54      9/37 L
        UTP1          162   PROGRAM*        9/45 L    9/47
        UTP2          166   PROGRAM*        9/57 L   10/04
        WNB=            0   EXTERNAL*       1/38 X    4/49
        WOF             0   EXTERNAL*       1/50 X    8/20      8/26
        WO.QC           0   EXTERNAL*       1/51 X    4/14
        WTW=            0   EXTERNAL*       1/54 X    4/37      5/08
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CSNAP
                          0              ENDSNAP  END                MARK END OF SNAP DECK
  
  
                                        ENTRY POINTS. 
  
                                        B=CSNAP          0+ 
  
  
  
  
                                        **IF DEF,TEST                                                            FC5A388     6
                                                  IDENT  CSNAP                                                   CSNAP       2
                                         CSNAP    SECT   (BRIDGE TEST MODE SNAP PACKAGE.)                        CSNAP       3
  
  
  
  
  
                                        ***              CSNAP PROVIDES SNAPSHOT AND DEBUGGING ROUTINES SPECIFIC CSNAP       5
                                        *         TO PASS TWO / BRIDGE.                                          CSNAP       6
                                                                                                                 CSNAP       7
                                                                                                                 CSNAP       8
                                         #SNAP    IFEQ   TEST,ON                                                 CSNAP       9
                                                                                                                 CSNAP      10
                                                                                                                 CSNAP      11
                                                                                                                 CSNAP      12
 7                                       7        ERR    THIS WILL NOT YET ASSEMBLE.                             CSNAP      13
                                         #CSNAP   SKIP               **** TEMP ****                              CSNAP      14
                                                                                                                 CSNAP      15
                                        *         IN WHERE                                                       CSNAP      16
                                         ORIGINS  EQU    ****                                                    CSNAP      17
                                         IDP      SPACE  4,10                                                    CSNAP      18
                                        ***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.                         CSNAP      19
                                        *                                                                        CSNAP      20
                                        *                                                                        CSNAP      21
                                                                                                                 CSNAP      22
                                                                                                                 CSNAP      23
                                         CAD      EQUEXT IDP=CAD                                                 CSNAP      24
                                         CHK      EQUEXT IDP=CHK                                                 CSNAP      25
                                         FLL      EQUEXT IDP=FLL                                                 CSNAP      26
                                         FRK      EQUEXT IDP=FRK                                                 CSNAP      27
                                         HDR      EQUEXT IDP=HDR                                                 CSNAP      28
                                         PAS      EQUEXT IDP=PAS                                                 CSNAP      29
                                         PAT      EQUEXT IDP=PAT                                                 CSNAP      30
                                         SKT      EQUEXT IDP=SKT                                                 CSNAP      31
                                         SOB      EQUEXT IDP=SOB                                                 CSNAP      32
                                                                                                                 CSNAP      33
                                                                                                                 CSNAP      34
                                         CDD      EQUEXT IDP=CDD                                                 CSNAP      35
                                         COD      EQUEXT IDP=COD                                                 CSNAP      36
                                         DXB      EQUEXT IDP=DXB                                                 CSNAP      37
                                         MCS      EQUEXT IDP=MCS                                                 CSNAP      38
                                         SFN      EQUEXT IDP=SFN                                                 CSNAP      39
                                         SYS=     EQUEXT IDP=SYS                                                 CSNAP      40
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     2
                                                                      CSNAP 
  
                                         WOD      EQUEXT IDP=WOD                                                 CSNAP      41
                                         ZTB      EQUEXT IDP=ZTB                                                 CSNAP      42
                                         MISC     SPACE  4,10                                                    CSNAP      43
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              CSNAP      44
                                        *                                                                        CSNAP      45
                                        *                                                                        CSNAP      46
                                                                                                                 CSNAP      47
                                                                                                                 CSNAP      48
                                         SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER    CSNAP      49
                                                                                                                 CSNAP      50
                                                                                                                 CSNAP      51
                                         IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                          CSNAP      52
                                         PRBDO    SPACE  4,10                                                    CSNAP      53
                                        **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                    CSNAP      54
                                                                                                                 CSNAP      55
                                                  PURGMAC PRBDO                                                  CSNAP      56
                                                                                                                 CSNAP      57
                                         PRBDO    OPSYN  PLINE                                                   CSNAP      58
                                         TEXTS    SPACE  4,10                                                    CSNAP      59
                                        ***       TEXTS - INTERFACE TEXTS.                                       CSNAP      60
                                        *                                                                        CSNAP      61
                                                                                                                 CSNAP      62
                                                                                                                 CSNAP      63
                                                  QUAL   IDP                                                     CSNAP      64
                                         QUAL$    =      1           DESELECT QUALS IN /IDP/                     CSNAP      65
                                                  LIST   -L          *COMSIDP* IS LISTED IN DECK *IDP*           CSNAP      66
                                         COMSIDP  TITLE  COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.     COMSIDP     2
                                         COMSIDP  SPACE  4,8                                                     COMSIDP     3
                                                  BASE   D                                                       COMSIDP     4
                                         COMSIDP  SPACE  4,8                                                     COMSIDP     5
                                        ***       COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.            COMSIDP     6
                                        *         75/11/01           P CLARE                                     COMSIDP     7
                                        *         77/05/12           P CLARE                                     COMSIDP     8
                                         COMSIDP  SPACE  4,8                                                     COMSIDP     9
                                        ***       COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.            COMSIDP    10
                                        *                                                                        COMSIDP    11
                                        *                                                                        COMSIDP    12
                                        *         *COMSIDP* CONTAINS THE MACRO AND SYMBOL DEFINITIONS USED       COMSIDP    13
                                        *         BY IDP AND ANY USER ROUTINES THAT ARE INTERFACING TO IT.       COMSIDP    14
                                         .OS      SPACE  4,10                                                    COMSIDP    15
                                        **        DEFINE DEFAULT OPERATING SYSTEM.                               COMSIDP    16
                                                                                                                 COMSIDP    17
                                                  IF     -DEF,.OS,1                                              COMSIDP    18
                                         .OS      =      3           SCOPE 3                                     COMSIDP    19
                                         CEQU     SPACE  4,10                                                    COMSIDP    20
                                        **        CEQU - CONDITIONAL EQU.                                        COMSIDP    21
                                        *                                                                        COMSIDP    22
                                        *                                                                        COMSIDP    23
                                        * A       CEQU   B                                                       COMSIDP    24
                                        *                                                                        COMSIDP    25
                                        *         ENTRY  A = SYMBOL NAME TO EQU TO *B*, ONLY IF *A* NOT          COMSIDP    26
                                        *                     ALREADY DEFINED.                                   COMSIDP    27
                                        *                B  = NEW VALUE FOR *A*, IF *A* NOT ALREADY DEFINED.     COMSIDP    28
                                        *                                                                        COMSIDP    29
                                        *         EXIT   NONE                                                    COMSIDP    30
                                        *                                                                        COMSIDP    31
                                        *         USES   NONE                                                    COMSIDP    32
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     3
                                                                      CSNAP 
  
                                        *                                                                        COMSIDP    33
                                        *         CALLS  NONE                                                    COMSIDP    34
                                                                                                                 COMSIDP    35
                                                                                                                 COMSIDP    36
                                                  PURGMAC CEQU                                                   COMSIDP    37
                                                                                                                 COMSIDP    38
                                                  MACRO  CEQU,AA,BB                                              COMSIDP    39
                                          IF -DEF,AA,1                                                           COMSIDP    40
                                         AA = BB                                                                 COMSIDP    41
                                         CEQU ENDM                                                               COMSIDP    42
                                         DEFTOT   SPACE  4,10                                                    COMSIDP    43
                                        **        DEFTOT - DEFINE TOKEN TYPE.                                    COMSIDP    44
                                        *                                                                        COMSIDP    45
                                        *                                                                        COMSIDP    46
                                        * TOT     DEFTOT                                                         COMSIDP    47
                                        *                                                                        COMSIDP    48
                                        *         ENTRY  TOT = TOKEN TYPE TO DEFINE.  NOTE THAT *TOT* WILL       COMSIDP    49
                                        *                      BE PREFIXED WITH "O.".                            COMSIDP    50
                                        *                                                                        COMSIDP    51
                                        *         EXIT   NONE                                                    COMSIDP    52
                                        *                                                                        COMSIDP    53
                                        *         USES   NONE                                                    COMSIDP    54
                                        *                                                                        COMSIDP    55
                                        *         CALLS  NONE                                                    COMSIDP    56
                                                                                                                 COMSIDP    57
                                                                                                                 COMSIDP    58
                                                  PURGMAC DEFTOT                                                 COMSIDP    59
                                                                                                                 COMSIDP    60
                                                  MACRO  DEFTOT,TOT                                              COMSIDP    61
                                        *                                                                        COMSIDP    62
                                          IF -DEF,'?IDSTOT,1                                                     COMSIDP    63
                                         '?IDSTOT SET -1                                                         COMSIDP    64
                                        *                                                                        COMSIDP    65
                                         '?IDSTOT SET '?IDSTOT+1                                                 COMSIDP    66
                                        *                                                                        COMSIDP    67
                                         O.TOT = '?IDSTOT                                                        COMSIDP    68
                                        *                                                                        COMSIDP    69
                                         DEFTOT   ENDM                                                           COMSIDP    70
                                         ERROR    SPACE  4,10                                                    COMSIDP    71
                                        **        ERROR - DEFINE IDP ERROR MESSAGE.                              COMSIDP    72
                                        *                                                                        COMSIDP    73
                                        *                                                                        COMSIDP    74
                                        * LOC     ERROR  MSG,JMP                                                 COMSIDP    75
                                        *                                                                        COMSIDP    76
                                        *         ENTRY  LOC = LOCATION FIELD TO JUMP TO FOR THIS ERROR.         COMSIDP    77
                                        *                MSG = ERROR MSG TEXT.                                   COMSIDP    78
                                        *                JMP = ADDR TO JUMP TO FOR THIS ERROR,                   COMSIDP    79
                                        *                      (DEFAULT = *IDP=ERR*).                            COMSIDP    80
                                        *                                                                        COMSIDP    81
                                        *         EXIT   NONE                                                    COMSIDP    82
                                        *                                                                        COMSIDP    83
                                        *         USES   NONE                                                    COMSIDP    84
                                        *                                                                        COMSIDP    85
                                        *         CALLS  NONE                                                    COMSIDP    86
                                                                                                                 COMSIDP    87
                                                                                                                 COMSIDP    88
                                                  MACRO  ERROR,LOC,MSG,JMP                                       COMSIDP    89
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     4
                                                                      CSNAP 
  
                                        *                                                                        COMSIDP    90
                                         '?ID#002 IFNE OI.ERR,0                                                  COMSIDP    91
                                        *                                                                        COMSIDP    92
                                         LOC BSS 0                                                               COMSIDP    93
                                        *                                                                        COMSIDP    94
                                          IF -DEF,'?IDSERR,1                                                     COMSIDP    95
                                         '?IDSERR SET 0                                                          COMSIDP    96
                                        *                                                                        COMSIDP    97
                                         '?IDSERR SET '?IDSERR+1                                                 COMSIDP    98
                                        *                                                                        COMSIDP    99
                                         '?IDCS01 MICRO 1,,# MSG_#                                               COMSIDP   100
                                         '?IDS001 MICCNT '?IDCS01                                                COMSIDP   101
                                          IFGT '?IDS001,80D,1                                                    COMSIDP   102
                                         P ERR ERR MESSAGE TOO LONG.                                             COMSIDP   103
                                        *                                                                        COMSIDP   104
                                         '?ID#001 IFEQ OI.ERR,2                                                  COMSIDP   105
                                          SX6 =C# MSG_#                                                          COMSIDP   106
                                         '?ID#001 ELSE                                                           COMSIDP   107
                                          SX6 '?IDSERR                                                           COMSIDP   108
                                         '?ID#001 ENDIF                                                          COMSIDP   109
                                        *                                                                        COMSIDP   110
                                         '?ID#002 ELSE                                                           COMSIDP   111
                                         LOC = IDP=ER                                                            COMSIDP   112
                                         '?ID#002 ENDIF                                                          COMSIDP   113
                                        *                                                                        COMSIDP   114
                                          EQ JMP IDP=ERR                                                         COMSIDP   115
                                        *                                                                        COMSIDP   116
                                         ERROR    ENDM                                                           COMSIDP   117
                                         KEYW     SPACE  4,10                                                    COMSIDP   118
                                        **        KEYW - *IDP* KEYWORD TABLE GENERATOR.                          COMSIDP   119
                                        *                                                                        COMSIDP   120
                                        *                                                                        COMSIDP   121
                                        *         MACRO USED TO GENERATE THE *IDP* COMMAND KEYWORD TABLE.        COMSIDP   122
                                        *                                                                        COMSIDP   123
                                        * LAB     KEYW   KEY,XAT,ATTR                                            COMSIDP   124
                                        *                                                                        COMSIDP   125
                                        *         ENTRY  LAB  = CHARS USED FOR GENERATING USER-SPECIFIED         COMSIDP   126
                                        *                       ADDR REFS FOR THIS KEYWORD.  THAT IS, THE        COMSIDP   127
                                        *                       *KEYW* MACRO WILL CONCATENATE PREDETERMINED      COMSIDP   128
                                        *                       CHARACTERS TO *LAB* TO GENERATE THE FOLLOWING    COMSIDP   129
                                        *                       ADDRESSES --                                     COMSIDP   130
                                        *                                                                        COMSIDP   131
                                        *                         ST=LAB  = ADDR OF STMT PROCESSOR FOR THIS      COMSIDP   132
                                        *                                   KEYWORD.                             COMSIDP   133
                                        *                         ST.LAB  = ADDR OF WORD 1 OF THIS *KEYW* ENTRY. COMSIDP   134
                                        *                         LIP=LAB = ADDR OF *LIST* PROCESSOR FOR THIS    COMSIDP   135
                                        *                                   KEYWORD.                             COMSIDP   136
                                        *                                                                        COMSIDP   137
                                        *                KEY  = CHARS THAT CONSTITUTE THIS KEYWORD AND *HELP*    COMSIDP   138
                                        *                       STRING.  FORMAT IS AS FOLLOWS --                 COMSIDP   139
                                        *                                                                        COMSIDP   140
                                        *                         (BREAK FWA,LWA,LEN,LL,UL,INC)                  COMSIDP   141
                                        *                                                                        COMSIDP   142
                                        *                       NOTE THAT ACTUAL KEYWORD AND *HELP* STRING       COMSIDP   143
                                        *                       **MUST** BE SEPARATED BY A BLANK (55B) CHAR.     COMSIDP   144
                                        *                                                                        COMSIDP   145
                                        *                       NOTE ALSO THAT *HELP* STRING IS OPTIONAL.        COMSIDP   146
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     5
                                                                      CSNAP 
  
                                        *                                                                        COMSIDP   147
                                        *                XAT  = EXCLUSIVE ATTRIBUTE FOR THIS KEYWORD.            COMSIDP   148
                                        *                                                                        COMSIDP   149
                                        *                ATTR = NON-EXCLUSIVE ATTRIBUTES FOR THIS KEYWORD.       COMSIDP   150
                                        *                       NULL IF NONE.  (CURRENTLY UNUSED FIELD).         COMSIDP   151
                                        *                                                                        COMSIDP   152
                                        *         EXIT   NONE                                                    COMSIDP   153
                                        *                                                                        COMSIDP   154
                                        *         USES   NONE                                                    COMSIDP   155
                                        *                                                                        COMSIDP   156
                                        *         CALLS  '?IDMKWL                                                COMSIDP   157
                                                                                                                 COMSIDP   158
                                                                                                                 COMSIDP   159
                                                  PURGMAC  KEYW                                                  COMSIDP   160
                                                                                                                 COMSIDP   161
                                                  MACRO  KEYW,LAB,KEY,XA,ATTR                                    COMSIDP   162
                                                  LOCAL  '?ID#001                                                COMSIDP   163
                                        *                                                                        COMSIDP   164
                                         '?IDCKEY MICRO 1,, KEY                                                  COMSIDP   165
                                         '?IDSKEY MICCNT '?IDCKEY                                                COMSIDP   166
                                         '?IDSBIT SET '?IDSKEY*CHAR                                              COMSIDP   167
                                         '?IDCHLP MICRO '?IDSKEY+2,, KEY                                         COMSIDP   168
                                        *                                                                        COMSIDP   169
                                         '?ID#001 '?IDMKWL                                                       COMSIDP   170
                                        *                                                                        COMSIDP   171
                                         '?ID#002 IFEQ OI.ERR,2                                                  COMSIDP   172
                                         '?IDCS01 MICRO 1,,#=0C "'?IDCHLP" #                                     COMSIDP   173
                                         '?ID#002 ELSE                                                           COMSIDP   174
                                         '?IDCS01 MICRO 1,, 0                                                    COMSIDP   175
                                         '?ID#002 ENDIF                                                          COMSIDP   176
                                        *                                                                        COMSIDP   177
                                          IF -DEF,ST.LAB,1                                                       COMSIDP   178
                                         ST.LAB BSS 0                                                            COMSIDP   179
                                        *                                                                        COMSIDP   180
                                         LIP.LAB CEQU 0                                                          COMSIDP   181
                                         PTR.LAB CEQU 0                                                          COMSIDP   182
                                         UDO.LAB CEQU 0                                                          COMSIDP   183
                                        *                                                                        COMSIDP   184
                                         + VFD KW.PNRL/PTR.LAB,KW.PADL/=YST=LAB,KW.XATL/XA,KW.LENL/'?IDSBIT,____ COMSIDP   185
                                        ,KW.KEYL/'?ID#001                                                        COMSIDP   186
                                         + VFD KW.ATTRL/0,KW.LADL/LIP.LAB,KW.UDOL/UDO.LAB,KW.HADL/"'?IDCS01"     COMSIDP   187
                                        *                                                                        COMSIDP   188
                                         KEYW     ENDM                                                           COMSIDP   189
                                         LXQ      SPACE  4,8                                                     COMSIDP   190
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     COMSIDP   191
                                        *                                                                        COMSIDP   192
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    COMSIDP   193
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       COMSIDP   194
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        COMSIDP   195
                                        *                                                                        COMSIDP   196
                                        *         LXI       JK                                                   COMSIDP   197
                                        *                                                                        COMSIDP   198
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              COMSIDP   199
                                        *                *JK* = SHIFT COUNT EXPRESSION                           COMSIDP   200
                                        *                                                                        COMSIDP   201
                                        *         USES   XI                                                      COMSIDP   202
                                                                                                                 COMSIDP   203
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     6
                                                                      CSNAP 
  
                                                                                                                 COMSIDP   204
                                                  PURGDEF ^XQ                                                    COMSIDP   205
                                                  PURGDEF   LXQ                                                  COMSIDP   206
                                         ^XQ      CPOP   0,200B,100B                                             COMSIDP   207
                                                                                                                 COMSIDP   208
                                         LXQ      OPDEF     I,JK                                                 COMSIDP   209
                                          IFNE JK,0,2                                                            COMSIDP   210
                                          IFNE JK_&60D,0,1                                                       COMSIDP   211
                                          ^X.I JK                                                                COMSIDP   212
                                          ENDM                                                                   COMSIDP   213
                                         PASOP    SPACE  4,10                                                    COMSIDP   214
                                        **        PASOP - DEFINE *POT* TABLE ENTRY.                              COMSIDP   215
                                        *                                                                        COMSIDP   216
                                        *                                                                        COMSIDP   217
                                        *         THIS MACRO DEFINES A *POT* (PARSING OPERATOR/OPERAND TABLE)    COMSIDP   218
                                        *         ENTRY.  SEE *POT* IN *COMCIDP*.                                COMSIDP   219
                                        *                                                                        COMSIDP   220
                                        * TOT     PASOP  POP=A,PIP=B,UPIP=C,PRI=D                                COMSIDP   221
                                        *                                                                        COMSIDP   222
                                        *         ENTRY  TOT  = TOKEN TYPE, **WITHOUT** 'O.' PREFIX.             COMSIDP   223
                                        *                POP  = POLISH OUT PROCESSOR ADDR.                       COMSIDP   224
                                        *                PIP  = POLISH IN PROCESSOR ADDR.                        COMSIDP   225
                                        *                UPIP = POLISH IN PROCESSOR ADDR IF UNARY OPERATION.     COMSIDP   226
                                        *                PRI  = PARSING PRIORITY.                                COMSIDP   227
                                        *                                                                        COMSIDP   228
                                        *         EXIT   NONE                                                    COMSIDP   229
                                        *                                                                        COMSIDP   230
                                        *         USES   NONE                                                    COMSIDP   231
                                        *                                                                        COMSIDP   232
                                        *         CALLS  NONE                                                    COMSIDP   233
                                                                                                                 COMSIDP   234
                                                                                                                 COMSIDP   235
                                                  PURGMAC PASOP                                                  COMSIDP   236
                                                                                                                 COMSIDP   237
                                                  MACROE PASOP,TOT,POP,PIP,UPIP,PRI                              COMSIDP   238
                                        *                                                                        COMSIDP   239
                                        *         CHECK FOR *TABLE OUT-OF-ORDER*.                                COMSIDP   240
                                        *                                                                        COMSIDP   241
                                          IFLE O.TOT,'?IDSTOT,1                                                  COMSIDP   242
                                         P ERR *POT* OUT-OF-ORDER OR DUPLICATE ENTRY                             COMSIDP   243
                                        *                                                                        COMSIDP   244
                                          IFNE O.TOT,'?IDSTOT+1,1                                                COMSIDP   245
                                         P ERR *POT* ENTRY MISSING.                                              COMSIDP   246
                                        *                                                                        COMSIDP   247
                                         '?IDSTOT SET O.TOT                                                      COMSIDP   248
                                        *                                                                        COMSIDP   249
                                        *         SET UP DEFAULTS.                                               COMSIDP   250
                                        *                                                                        COMSIDP   251
                                         '?IDCS01 MICRO 1,, POP                                                  COMSIDP   252
                                          IFC EQ, POP  ,1                                                        COMSIDP   253
                                         '?IDCS01 MICRO 1,, E.POP                                                COMSIDP   254
                                        *                                                                        COMSIDP   255
                                         '?IDCS02 MICRO 1,, PIP                                                  COMSIDP   256
                                          IFC EQ, PIP  ,1                                                        COMSIDP   257
                                         '?IDCS02 MICRO 1,, SE.NPP                                               COMSIDP   258
                                        *                                                                        COMSIDP   259
                                         '?IDCS03 MICRO 1,, UPIP                                                 COMSIDP   260
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     7
                                                                      CSNAP 
  
                                          IFC EQ, UPIP  ,1                                                       COMSIDP   261
                                         '?IDCS03 MICRO 1,, E.UNOP                                               COMSIDP   262
                                        *                                                                        COMSIDP   263
                                        *         GENERATE *POT* ENTRY.                                          COMSIDP   264
                                        *                                                                        COMSIDP   265
                                         + VFD PS.PRIL/PRI,PS.UPIPL/"'?IDCS03",PS.PIPL/"'?IDCS02",PS.POPL/______ COMSIDP   266
                                        ,___"'?IDCS01"                                                           COMSIDP   267
                                        *                                                                        COMSIDP   268
                                         PASOP    ENDM                                                           COMSIDP   269
                                         PRBDO    SPACE  4,8                                                     COMSIDP   270
                                        **        PRBDO - PRINT CODED LINE ON BATCH DEBUG OUTPUT FILE.           COMSIDP   271
                                        *                                                                        COMSIDP   272
                                        *                                                                        COMSIDP   273
                                        *                IF THE USER DID NOT DEFINE A BATCH DEBUG OUTPUT FILE,   COMSIDP   274
                                        *         (F.BDO -DEF), THEN *IDP* WILL INVENT ONE AND ACCESS IT VIA     COMSIDP   275
                                        *         *PRBDO* MACRO. IF *F.BDO* IS DEFINED, THEN THE USER SUPPLIES   COMSIDP   276
                                        *         HER OWN *PRBDO*.                                               COMSIDP   277
                                        *                                                                        COMSIDP   278
                                        *         PRBDO  FWA,LEN                                                 COMSIDP   279
                                        *                                                                        COMSIDP   280
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          COMSIDP   281
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         COMSIDP   282
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     COMSIDP   283
                                        *                                                                        COMSIDP   284
                                        *         EXIT   NONE                                                    COMSIDP   285
                                        *                                                                        COMSIDP   286
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              COMSIDP   287
                                        *                                                                        COMSIDP   288
                                        *         CALLS  WRITEC                                                  COMSIDP   289
                                                                                                                 COMSIDP   290
                                                                                                                 COMSIDP   291
                                         #BDO     IF     -MAC,PRBDO                                              COMSIDP   292
                                                                                                                 COMSIDP   293
                                                  PURGMAC PRBDO                                                  COMSIDP   294
                                                                                                                 COMSIDP   295
                                         PRBDO    MACRO  FWA,LEN                                                 COMSIDP   296
                                                  WRITEC =XF.BDO,(FWA),(LEN)                                     COMSIDP   297
                                         PRBDO    ENDM                                                           COMSIDP   298
                                         #BDO     ENDIF                                                          COMSIDP   299
                                         PRIDP    SPACE  4,8                                                     COMSIDP   300
                                        **        PRIDP - PRINT CODED LINE ON OUTPUT FILE.                       COMSIDP   301
                                        *                                                                        COMSIDP   302
                                        *                                                                        COMSIDP   303
                                        *         PRIDP  FWA,LEN,NRB                                             COMSIDP   304
                                        *                                                                        COMSIDP   305
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          COMSIDP   306
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         COMSIDP   307
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     COMSIDP   308
                                        *                NRB = NR OF BLANK LINES TO OUTPUT PRECEDING THE LINE    COMSIDP   309
                                        *                                                                        COMSIDP   310
                                        *         EXIT   NONE                                                    COMSIDP   311
                                        *                                                                        COMSIDP   312
                                        *         USES   ALL BUT B4,A0,X0,A5,X5 (INCLUDES ALL CALLS)             COMSIDP   313
                                        *                                                                        COMSIDP   314
                                        *         CALLS  ROL                                                     COMSIDP   315
                                                                                                                 COMSIDP   316
                                                                                                                 COMSIDP   317
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     8
                                                                      CSNAP 
  
                                                  PURGMAC PRIDP                                                  COMSIDP   318
                                                                                                                 COMSIDP   319
                                         PRIDP    MACRO  FWA,LEN,NRB                                             COMSIDP   320
                                                  =X6    FWA                                                     COMSIDP   321
                                                  =X7    LEN                                                     COMSIDP   322
                                                  =X4    NRB                                                     COMSIDP   323
                                                  RJ     =XROL=                                                  COMSIDP   324
                                         PRIDP    ENDM                                                           COMSIDP   325
                                         REQUEST  SPACE  4,10                                                    COMSIDP   326
                                        **        REQUEST - REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.            COMSIDP   327
                                        *                                                                        COMSIDP   328
                                        *                                                                        COMSIDP   329
                                        *         THIS MACRO IS FOR *KRONOS/NOS* **ONLY**.  IT EXISTS BECAUSE    COMSIDP   330
                                        *         OF A CONFLICT BETWEEN THE *REQUEST* MACRO DEFINITION IN        COMSIDP   331
                                        *         *CPUTEXT* (WHICH IS FOR *SCOPE*) AND ANY REFERENCES TO THIS    COMSIDP   332
                                        *         MACRO ON *KRONOS*.  I.E. THEY ARE INCOMPATIBLE.                COMSIDP   333
                                        *                                                                        COMSIDP   334
                                        *         COPIED FROM *OPL/CPCOM*.                                       COMSIDP   335
                                        *                                                                        COMSIDP   336
                                        *         REQUEST FILE,UNIT                                              COMSIDP   337
                                        *                                                                        COMSIDP   338
                                        *         ENTRY  *UNIT* IF USED ASSIGNS THE EQUIPMENT DESIGNATED         COMSIDP   339
                                        *                IN THE *DTY* POSITION IN (FILE+1).                      COMSIDP   340
                                        *                                                                        COMSIDP   341
                                        *         CALLS  LFM=                                                    COMSIDP   342
                                                                                                                 COMSIDP   343
                                                                                                                 COMSIDP   344
                                         #OS1     IFEQ   .OS,1       IF *KRONOS/NOS*                             COMSIDP   345
                                                  PURGMAC REQUEST                                                COMSIDP   346
                                                                                                                 COMSIDP   347
                                         REQUEST  MACRO  F,U                                                     COMSIDP   348
                                          R= X2,F                                                                COMSIDP   349
                                         '?ID#001 IFC EQ,$U$$                                                    COMSIDP   350
                                          SX7 14B                                                                COMSIDP   351
                                         '?ID#001 ELSE                                                           COMSIDP   352
                                          SX7 15B                                                                COMSIDP   353
                                         '?ID#001 ENDIF                                                          COMSIDP   354
                                          RJ =XLFM=                                                              COMSIDP   355
                                         REQUEST ENDM                                                            COMSIDP   356
                                         #OS1     ENDIF                                                          COMSIDP   357
                                         SCTOT    SPACE  4,10                                                    COMSIDP   358
                                        **        SCTOT - DEFINE *STMT CONTROL* TABLE ENTRY.                     COMSIDP   359
                                        *                                                                        COMSIDP   360
                                        *                                                                        COMSIDP   361
                                        * TOT     SCTOT  PAD                                                     COMSIDP   362
                                        *                                                                        COMSIDP   363
                                        *         ENTRY  TOT = TOKEN TYPE (WITHOUT *O.* PREFIX*).                COMSIDP   364
                                        *                PAD = PROCESSOR ADDR FOR THIS *TOT*.                    COMSIDP   365
                                        *                                                                        COMSIDP   366
                                        *         EXIT   NONE                                                    COMSIDP   367
                                        *                                                                        COMSIDP   368
                                        *         USES   NONE                                                    COMSIDP   369
                                        *                                                                        COMSIDP   370
                                        *         CALLS  NONE                                                    COMSIDP   371
                                                                                                                 COMSIDP   372
                                                                                                                 COMSIDP   373
                                                  PURGMAC SCTOT                                                  COMSIDP   374
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE     9
                                                                      CSNAP 
  
                                                                                                                 COMSIDP   375
                                                  MACRO  SCTOT,TOT,PAD                                           COMSIDP   376
                                        *                                                                        COMSIDP   377
                                         '?IDS001 SET    SC.TOTP-SC.PADP-SC.PADL                                 COMSIDP   378
                                         + VFD SC.TOTL/O.TOT,'?IDS001/0,SC.PADL/PAD                              COMSIDP   379
                                        *                                                                        COMSIDP   380
                                         SCTOT    ENDM                                                           COMSIDP   381
                                         SUBKEY   SPACE  4,10                                                    COMSIDP   382
                                        **        SUBKEY - GENERATE SUB-KEYWORD TABLE ENTRY.                     COMSIDP   383
                                        *                                                                        COMSIDP   384
                                        *                                                                        COMSIDP   385
                                        *         MACRO USED TO GENERATE AN IDP SUB-KEYWORD ENTRY.               COMSIDP   386
                                        *                                                                        COMSIDP   387
                                        *         SUBKEY KEY,VAL                                                 COMSIDP   388
                                        *                                                                        COMSIDP   389
                                        *         ENTRY  KEY  = SUB-KEYWORD.                                     COMSIDP   390
                                        *                VAL  = VALUE TO BE PLACED IN LOWER 18 BITS OF *SUBKEY*  COMSIDP   391
                                        *                       ENTRY.                                           COMSIDP   392
                                        *                                                                        COMSIDP   393
                                        *         EXIT   NONE                                                    COMSIDP   394
                                        *                                                                        COMSIDP   395
                                        *         USES   NONE                                                    COMSIDP   396
                                        *                                                                        COMSIDP   397
                                        *         CALLS  NONE                                                    COMSIDP   398
                                                                                                                 COMSIDP   399
                                                                                                                 COMSIDP   400
                                                  PURGMAC  SUBKEY                                                COMSIDP   401
                                                                                                                 COMSIDP   402
                                         SUBKEY   MACRO  KEY,VAL                                                 COMSIDP   403
                                                  VFD    42/0L_KEY,18/VAL                                        COMSIDP   404
                                         SUBKEY   ENDM                                                           COMSIDP   405
                                         SYSERR   SPACE  4,10                                                    COMSIDP   406
                                        **        SYSERR - SYSTEM ERROR.                                         COMSIDP   407
                                        *                                                                        COMSIDP   408
                                        *                                                                        COMSIDP   409
                                        * LOC     SYSERR MSG,JMP                                                 COMSIDP   410
                                        *                                                                        COMSIDP   411
                                        *         ENTRY  LOC = LOCATION FIELD TO JUMP TO FOR THIS SYS ERR.       COMSIDP   412
                                        *                MSG = ERROR MSG TEXT.                                   COMSIDP   413
                                        *                JMP = ADDR TO JUMP TO FOR THIS SYS ERR,                 COMSIDP   414
                                        *                      (DEFAULT = *IDP=SER*).                            COMSIDP   415
                                        *                                                                        COMSIDP   416
                                        *         EXIT   NONE                                                    COMSIDP   417
                                        *                                                                        COMSIDP   418
                                        *         USES   NONE                                                    COMSIDP   419
                                        *                                                                        COMSIDP   420
                                        *         CALLS  NONE                                                    COMSIDP   421
                                                                                                                 COMSIDP   422
                                                                                                                 COMSIDP   423
                                                  PURGMAC SYSERR                                                 COMSIDP   424
                                                                                                                 COMSIDP   425
                                                  MACRO  SYSERR,LOC,MSG,JMP                                      COMSIDP   426
                                        *                                                                        COMSIDP   427
                                         LOC BSS 0                                                               COMSIDP   428
                                        *                                                                        COMSIDP   429
                                          IF -DEF,'?IDSSER,1                                                     COMSIDP   430
                                         '?IDSSER SET 0                                                          COMSIDP   431
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    10
                                                                      CSNAP 
  
                                        *                                                                        COMSIDP   432
                                         '?IDSSER SET '?IDSSER+1                                                 COMSIDP   433
                                        *                                                                        COMSIDP   434
                                         '?IDCS01 MICRO 1,,# MSG_#                                               COMSIDP   435
                                         '?IDS001 MICCNT '?IDCS01                                                COMSIDP   436
                                          IFGT '?IDS001,70D,1                                                    COMSIDP   437
                                         P ERR ERR MESSAGE TOO LONG.                                             COMSIDP   438
                                        *                                                                        COMSIDP   439
                                          SX6 =C# MSG_#                                                          COMSIDP   440
                                          EQ JMP IDP=SER                                                         COMSIDP   441
                                        *                                                                        COMSIDP   442
                                         SYSERR   ENDM                                                           COMSIDP   443
                                         '?IDMKWL SPACE  4,10                                                    COMSIDP   444
                                        **        '?IDMKWL - GENERATE KEYWORD LITERAL.                           COMSIDP   445
                                        *                                                                        COMSIDP   446
                                        *                                                                        COMSIDP   447
                                        * LAB     '?IDMKWL                                                       COMSIDP   448
                                        *                                                                        COMSIDP   449
                                        *         ENTRY  '?IDCKEY = MICRO CONTAINING KEYWORD.                    COMSIDP   450
                                        *                '?IDSKEY = LEN OF '?IDCKEY (IN CHARS, I.E. *MICCNT*).   COMSIDP   451
                                        *                LAB      = LABEL FIELD FOR THIS KEYWORD LITERAL.        COMSIDP   452
                                        *                                                                        COMSIDP   453
                                        *         EXIT   NONE                                                    COMSIDP   454
                                        *                                                                        COMSIDP   455
                                        *         USES   NONE                                                    COMSIDP   456
                                        *                                                                        COMSIDP   457
                                        *         CALLS  NONE                                                    COMSIDP   458
                                                                                                                 COMSIDP   459
                                                                                                                 COMSIDP   460
                                                  PURGMAC '?IDMKWL                                               COMSIDP   461
                                                                                                                 COMSIDP   462
                                                  MACRO  '?IDMKWL,LAB                                            COMSIDP   463
                                          LOCAL '?ID#001                                                         COMSIDP   464
                                        *                                                                        COMSIDP   465
                                         '?IDCS02 MICRO 1,, 0L                                                   COMSIDP   466
                                         '?IDS001 SET '?IDSKEY/7+1                                               COMSIDP   467
                                         '?IDS002 SET 1                                                          COMSIDP   468
                                        *                                                                        COMSIDP   469
                                         '?ID#001 DUP '?IDS001                                                   COMSIDP   470
                                         '?IDCS01 MICRO '?IDS002,7, "'?IDCKEY"                                   COMSIDP   471
                                         '?IDCS02 MICRO 1,, "'?IDCS02",0L"'?IDCS01"                              COMSIDP   472
                                         '?IDS002 SET '?IDS002+7                                                 COMSIDP   473
                                        *                                                                        COMSIDP   474
                                         '?ID#001 ENDD                                                           COMSIDP   475
                                        *                                                                        COMSIDP   476
                                         LAB LIT "'?IDCS02"                                                      COMSIDP   477
                                        *                                                                        COMSIDP   478
                                         '?IDMKWL ENDM                                                           COMSIDP   479
                                         '?IDMLIT SPACE  4,10                                                    COMSIDP   480
                                        **        '?IDMLIT - GENERATE IDP LITERAL.                               COMSIDP   481
                                        *                                                                        COMSIDP   482
                                        *                                                                        COMSIDP   483
                                        *         THIS MACRO GENERATES A LITERAL TO IDP.S LITERAL BLOCK,         COMSIDP   484
                                        *         '?IDRLIT.  *'?IDMLIT*, THEN, SIMULATES THE COMPASS *LIT*       COMSIDP   485
                                        *         PSEUDO, WITH THE PRIMARY DIFFERENCE BEING THAT *'?IDMLIT*      COMSIDP   486
                                        *         DOES NOT GENERATE TO THE PROGRAM LITERAL BLOCK.                COMSIDP   487
                                        *                                                                        COMSIDP   488
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    11
                                                                      CSNAP 
  
                                        *         THIS SHOULD HELP TO MINIMIZE UNFAVOURABLE IDP/HOST             COMSIDP   489
                                        *         INTERACTIONS.                                                  COMSIDP   490
                                        *                                                                        COMSIDP   491
                                        * LOC     '?IDMLIT LIT                                                   COMSIDP   492
                                        *                                                                        COMSIDP   493
                                        *         ENTRY  LOC = ADDR/LOCATION FIELD FOR THIS LITERAL.             COMSIDP   494
                                        *                LIT = LITERAL STRING.                                   COMSIDP   495
                                        *                                                                        COMSIDP   496
                                        *         EXIT   NONE                                                    COMSIDP   497
                                        *                                                                        COMSIDP   498
                                        *         USES   NONE                                                    COMSIDP   499
                                        *                                                                        COMSIDP   500
                                        *         CALLS  NONE                                                    COMSIDP   501
                                                                                                                 COMSIDP   502
                                                                                                                 COMSIDP   503
                                                  PURGMAC '?IDMLIT                                               COMSIDP   504
                                                                                                                 COMSIDP   505
                                                  MACRO  '?IDMLIT,LOC,LIT                                        COMSIDP   506
                                        *                                                                        COMSIDP   507
                                         '?IDCS01 MICRO 1,,#_LIT_#                                               COMSIDP   508
                                          '?IDMSMA 1,4                                                           COMSIDP   509
                                        *                                                                        COMSIDP   510
                                         '?ID#001 IFEQ '?IDS001,0                                                COMSIDP   511
                                         '?ID1LEN SET '?ID1LEN+1                                                 COMSIDP   512
                                        *                                                                        COMSIDP   513
                                          IFGT '?ID1LEN,999D,1                                                   COMSIDP   514
                                         P ERR TOO MANY LITERALS                                                 COMSIDP   515
                                        *                                                                        COMSIDP   516
                                         '?IDCS02 DECMIC '?ID1LEN,3                                              COMSIDP   517
                                         '?ID1"'?IDCS02" MICRO 1,,#"'?IDCS01"#                                   COMSIDP   518
                                        *                                                                        COMSIDP   519
                                         '?IDS001 SET '?ID1LEN                                                   COMSIDP   520
                                         '?IDRLIT '?IDMRMT (  DATA LIT)                                          COMSIDP   521
                                        *                                                                        COMSIDP   522
                                         '?ID#001 ENDIF                                                          COMSIDP   523
                                        *                                                                        COMSIDP   524
                                         LOC = FW.L_I_T+'?IDS001                                                 COMSIDP   525
                                        *                                                                        COMSIDP   526
                                         '?IDMLIT ENDM                                                           COMSIDP   527
                                         '?IDMMEQ SPACE  4,10                                                    COMSIDP   528
                                        **        '?IDMMEQ - MICRO EQUIVALENCE.                                  COMSIDP   529
                                        *                                                                        COMSIDP   530
                                        *                                                                        COMSIDP   531
                                        *         THIS MACRO EQUATES TWO MICRO STRINGS.  IT IS ONLY TRULY        COMSIDP   532
                                        *         USEFUL WHEN THE MICRO NAME ON THE RIGHT-SIDE OF THE            COMSIDP   533
                                        *         EQUIVALENCE IS BEING GENERATED VIA MICRO STRINGS.              COMSIDP   534
                                        *                                                                        COMSIDP   535
                                        * A       '?IDMMEQ B                                                     COMSIDP   536
                                        *                                                                        COMSIDP   537
                                        *         ENTRY  A = MICRO NAME TO EQUATE *B* TO.                        COMSIDP   538
                                        *                B = OLD MICRO NAME.                                     COMSIDP   539
                                        *                                                                        COMSIDP   540
                                        *         EXIT   "A" CREATED AND "B" LEFT ALONE.                         COMSIDP   541
                                        *                                                                        COMSIDP   542
                                        *         CALLS  NONE                                                    COMSIDP   543
                                                                                                                 COMSIDP   544
                                                                                                                 COMSIDP   545
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    12
                                                                      CSNAP 
  
                                                  PURGMAC '?IDMMEQ                                               COMSIDP   546
                                                                                                                 COMSIDP   547
                                          MACRO '?IDMMEQ,A,B                                                     COMSIDP   548
                                         A MICRO 1,, "B"                                                         COMSIDP   549
                                         '?IDMMEQ ENDM                                                           COMSIDP   550
                                         '?IDMRMT SPACE  4,10                                                    COMSIDP   551
                                        **        '?IDMRMT - FORCE MICRO EVALUATION FOR *RMT* BLOCKS.            COMSIDP   552
                                        *                                                                        COMSIDP   553
                                        *                                                                        COMSIDP   554
                                        *         THIS MACRO IS USED SOLEY FOR THE PURPOSE OF FORCING            COMSIDP   555
                                        *         MICRO EVALUATION IN *RMT* BLOCKS.                              COMSIDP   556
                                        *                                                                        COMSIDP   557
                                        * BLK     '?IDMRMT S                                                     COMSIDP   558
                                        *                                                                        COMSIDP   559
                                        *         ENTRY  BLK = REMOTE BLOCK NAME                                 COMSIDP   560
                                        *                S   = STMT TO BE ENTERED INTO REMOTE BLOCK *BLK*.       COMSIDP   561
                                        *                                                                        COMSIDP   562
                                        *         EXIT   NONE                                                    COMSIDP   563
                                        *                                                                        COMSIDP   564
                                        *         USES   NONE                                                    COMSIDP   565
                                        *                                                                        COMSIDP   566
                                        *         CALLS  NONE                                                    COMSIDP   567
                                                                                                                 COMSIDP   568
                                                                                                                 COMSIDP   569
                                                  PURGMAC '?IDMRMT                                               COMSIDP   570
                                                                                                                 COMSIDP   571
                                                  MACRO  '?IDMRMT,BLK,S                                          COMSIDP   572
                                         BLK RMT                                                                 COMSIDP   573
                                         S                                                                       COMSIDP   574
                                         BLK RMT                                                                 COMSIDP   575
                                         '?IDMRMT ENDM                                                           COMSIDP   576
                                         '?IDMSMA SPACE  4,10                                                    COMSIDP   577
                                        **        '?IDMSMA - SCAN MICRO ARRAY.                                   COMSIDP   578
                                        *                                                                        COMSIDP   579
                                        *                                                                        COMSIDP   580
                                        *         '?IDMSMA N,FC,NC                                               COMSIDP   581
                                        *                                                                        COMSIDP   582
                                        *         ENTRY  N  - MICRO ARRAY NR.                                    COMSIDP   583
                                        *                FC = 1ST CHAR POSITION IN EACH ARRAY ELEMENT            COMSIDP   584
                                        *                     TO SEARCH AT.                                      COMSIDP   585
                                        *                NC = NR OF CHARS (BEGINNING AT *FC*) TO COMPARE,        COMSIDP   586
                                        *                   = 0 IF REST OF MICRO ARRAY ENTRY (AS IN *MICRO*      COMSIDP   587
                                        *                     PSEUDO).                                           COMSIDP   588
                                        *                                                                        COMSIDP   589
                                        *                '?IDCS01 = ELEMENT TO SEARCH FOR.                       COMSIDP   590
                                        *                '?IDNLEN = NR OF ENTRIES IN THIS MICRO ARRAY            COMSIDP   591
                                        *                           (WHERE *N* IS MICRO ARRAY NR).               COMSIDP   592
                                        *                                                                        COMSIDP   593
                                        *         EXIT   '?IDCS01 = UNCHANGED.                                   COMSIDP   594
                                        *                '?IDS001 = MICRO ARRAY ELEMENT NR IF A FIND, ELSE       COMSIDP   595
                                        *                         = .ZR. IF NO FIND.                             COMSIDP   596
                                        *                '?IDCS02 = MICRO CONTAINING FOUND ENTRY IN '?IDNXXX.    COMSIDP   597
                                        *                '?IDCS03 = MICRO CONTAINING MICRO NAME OF FOUND         COMSIDP   598
                                        *                           ENTRY.                                       COMSIDP   599
                                        *                           I.E. "'?IDCS03" MICRO 1,, "'?IDCS02"         COMSIDP   600
                                        *                                                                        COMSIDP   601
                                        *         CALLS  '?IDMMEQ                                                COMSIDP   602
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    13
                                                                      CSNAP 
  
                                                                                                                 COMSIDP   603
                                                                                                                 COMSIDP   604
                                                  PURGMAC '?IDMSMA                                               COMSIDP   605
                                                                                                                 COMSIDP   606
                                         '?IDMSMA MACRO A,B,C                                                    COMSIDP   607
                                          LOCAL '?ID#001,'?ID#002,'?ID#003                                       COMSIDP   608
                                        *                                                                        COMSIDP   609
                                         '?IDS001 SET '?ID_A_LEN                                                 COMSIDP   610
                                         '?ID#002 IFGT '?IDS001,0                                                COMSIDP   611
                                        *                                                                        COMSIDP   612
                                         '?ID#001 DUP '?ID_A_LEN                                                 COMSIDP   613
                                        *                                                                        COMSIDP   614
                                         '?IDCS03 DECMIC '?IDS001,3                                              COMSIDP   615
                                         '?IDCS03 MICRO 1,, '?ID_A_"'?IDCS03"                                    COMSIDP   616
                                         '?IDCS02 '?IDMMEQ "'?IDCS03"                                            COMSIDP   617
                                         '?IDCS04 MICRO B,C, "'?IDCS02"                                          COMSIDP   618
                                         '?ID#003  IFC EQ, "'?IDCS01" "'?IDCS04"                                 COMSIDP   619
                                          STOPDUP                                                                COMSIDP   620
                                        *                                                                        COMSIDP   621
                                         '?ID#003 ELSE                                                           COMSIDP   622
                                         '?IDS001 SET '?IDS001-1                                                 COMSIDP   623
                                         '?ID#003 ENDIF                                                          COMSIDP   624
                                         '?ID#001 ENDD                                                           COMSIDP   625
                                         '?ID#002 ENDIF                                                          COMSIDP   626
                                        *                                                                        COMSIDP   627
                                         '?IDMSMA ENDM                                                           COMSIDP   628
                                         MICROS   SPACE  4,8                                                     COMSIDP   629
                                        **        DEFINE DEFAULT MICROS.                                         COMSIDP   630
                                                                                                                 COMSIDP   631
                                                  IF     -MIC,EOS,1                                              COMSIDP   632
                                         EOS      MICRO  1,,/;/                                                  COMSIDP   633
                                                                                                                 COMSIDP   634
                                                                                                                 COMSIDP   635
                                                  IF     -MIC,IDPVER,1                                           COMSIDP   636
                                         IDPVER   MICRO  1,,/1.1/                                                COMSIDP   637
                                                                                                                 COMSIDP   638
                                                  IF     -MIC,PROMPT,1                                           COMSIDP   639
                                         PROMPT   MICRO  1,,/>>/                                                 COMSIDP   640
                                         OI.      SPACE  4,10                                                    COMSIDP   641
                                        **        OI. - IDP OPTIONS.                                             COMSIDP   642
                                        *                                                                        COMSIDP   643
                                        *                                                                        COMSIDP   644
                                        *         SYMBOLS OF THE FORM *OI.XXX*, WHERE *OI.* IS A COMMON PREFIX   COMSIDP   645
                                        *         AND *XXX* IS A UNIQUE OPTION NAME, DEFINE MISCELLANEOUS IDP    COMSIDP   646
                                        *         OPTIONS.                                                       COMSIDP   647
                                        *                                                                        COMSIDP   648
                                        *         MOST OF THESE OPTIONS ARE RELATED TO THE CONFIGURING OF IDP    COMSIDP   649
                                        *         AND ITS SUPPORTING COMDECKS.  TO SET ONE OR MORE OF THESE      COMSIDP   650
                                        *         OPTIONS, THE IDP INSTALLER NEED ONLY TO DEFINE THE APPROPRIATE COMSIDP   651
                                        *         DESIRED *OI.XXX* SYMBOL.  IDP DOES THE REST.                   COMSIDP   652
                                        *                                                                        COMSIDP   653
                                        *         OPTIONS, *XXX*, ARE --                                         COMSIDP   654
                                        *                                                                        COMSIDP   655
                                        *         ERR  = SELECT/DESELECT ERROR MESSAGES.                         COMSIDP   656
                                        *              = 0 MEANS *DESELECT ERROR MESSAGES*.  THAT IS, IF AN      COMSIDP   657
                                        *                  ERROR IS DETECTED BY IDP, ALL ONE GETS IS THE ERROR   COMSIDP   658
                                        *                  PROMPT.                                               COMSIDP   659
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    14
                                                                      CSNAP 
  
                                        *                                                                        COMSIDP   660
                                        *              = 1 MEANS *SELECT SHORT MESSAGES*.  THAT IS, IF AN ERROR  COMSIDP   661
                                        *                  IS DETECTED BY IDP, ONE GETS THE ERROR MSG NUMBER.    COMSIDP   662
                                        *                                                                        COMSIDP   663
                                        *              = 2 (DEFAULT) MEANS *SELECT FULL ERROR MESSAGES*.  IF AN  COMSIDP   664
                                        *                  ERROR IS DETECTED IN THIS MODE, IDP ISSUES THE FULL   COMSIDP   665
                                        *                  ERROR MSG.                                            COMSIDP   666
                                        *                                                                        COMSIDP   667
                                        *                THE MAIN DIFFERENCE BETWEEN THESE DIFFERENT *ERR*       COMSIDP   668
                                        *                OPTIONS IS ONE OF SPACE (I.E. IDP REQUIRES MORE         COMSIDP   669
                                        *                CM STORAGE TO HOLD THE ERROR MESSAGES).  IT IS ADVISED  COMSIDP   670
                                        *                THAT ONE USE/INSTALL IDP WITH FULL ERROR MSGS...AFTER   COMSIDP   671
                                        *                ALL, ONE IS USING IDP TO MAKE LIFE EASIER FOR ONESELF.  COMSIDP   672
                                                                                                                 COMSIDP   673
                                                                                                                 COMSIDP   674
                                         OI.ERR   CEQU   2           INDICATE FULL ERR MSGS                      COMSIDP   675
                                         DEFS     SPACE  4,8                                                     COMSIDP   676
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              COMSIDP   677
                                                                                                                 COMSIDP   678
                                                                                                                 COMSIDP   679
                                         CHAR     =      6           LENGTH OF CYBER CHARACTER                   COMSIDP   680
                                                                                                                 COMSIDP   681
                                         DXB1$    =      1           SET TO *ALLOW /COMCDXB/ TO CONVERT DIGITS   COMSIDP   682
                                        *                            WITH AN 8 OR 9 BUT NO EXPLICIT *B* OR *D*   COMSIDP   683
                                        *                            SUFFIX TO DEFAULT BASE DECIMAL*             COMSIDP   684
                                                                                                                 COMSIDP   685
                                         L.BSL    =      4           NR OF CM WORDS DUMPED ON LINE (BATCH)       COMSIDP   686
                                         L.ISL    =      2           NR OF CM WORDS DUMPED ON LINE (INTERACTIVE) COMSIDP   687
                                                                                                                 COMSIDP   688
                                         L.PRB    =      0           NR OF PRECEDING BLANKS TO OUTPUT            COMSIDP   689
                                        *                              FOR SPACING PURPOSES                      COMSIDP   690
                                         SVRDEFS  SPACE  4,10                                                    COMSIDP   691
                                        **        *COMCSVR* DEFINITIONS.                                         COMSIDP   692
                                                                                                                 COMSIDP   693
                                                                                                                 COMSIDP   694
                                         #SVR     =      1           SELECT *IDP USES ITS OWN REG SAVE AREA*     COMSIDP   695
                                         BAX      MICRO  1,,/BAX/                                                COMSIDP   696
                                         DEFS     SPACE  4,8                                                     COMSIDP   697
                                        **        SNAP PARAMETER LIST SYMBOL DEFINITIONS.                        COMSIDP   698
                                        *           THESE SYMBOLS DEFINE THE ORDINALS INTO THE SNAP PARAMETER    COMSIDP   699
                                        *           LIST. (DESIRED WORD IS AT-- FWA OF PARAMETER LIST + SN=XXX)  COMSIDP   700
                                                                                                                 COMSIDP   701
                                                                                                                 COMSIDP   702
                                         SN=FRK   =      0           1ST WORD OF FREQUENCY PARAMETER LIST        COMSIDP   703
                                         SN=LL    =      0           LOWER LIMIT                                 COMSIDP   704
                                         SN=UL    =      1           UPPER LIMIT                                 COMSIDP   705
                                         SN=INC   =      2           INCREMENT                                   COMSIDP   706
                                         SN=HDR   =      3           HEADER                                      COMSIDP   707
                                         SN=CNT   =      4           SNAP COUNT                                  COMSIDP   708
                                         SN=FWA   =      5           FWA                                         COMSIDP   709
                                         SN=LWA   =      6           LWA                                         COMSIDP   710
                                         SN=LEN   =      7           LENGTH                                      COMSIDP   711
                                         SN=USF   =      8           USER *SNAP* MACRO FLAGS                     COMSIDP   712
                                         SN=SRL   =      9           1ST WORD OF *RGR=* LIST FOR *SNAP* MACRO    COMSIDP   713
                                                                                                                 COMSIDP   714
                                         SN=URF   =      5           USER *REG* MACRO FLAGS                      COMSIDP   715
                                         SN=RRL   =      6           1ST WORD OF *RGR=* LIST FOR *REG* MACRO     COMSIDP   716
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    15
                                                                      CSNAP 
  
                                                                                                                 COMSIDP   717
                                         SN=BRF   =      5           USER *BREAK* MACRO FLAGS                    COMSIDP   718
                                         SN=BRAD  =      6           USER-SPECIFIED *BREAK* ADDR                 COMSIDP   719
                                         O.       SPACE  4,10                                                    COMSIDP   720
                                        **        O. - DEFINE TOKEN (OPERATOR/OPERAND) TYPES.                    COMSIDP   721
                                                                                                                 COMSIDP   722
                                                                                                                 COMSIDP   723
                                         BOS      DEFTOT                                                         COMSIDP   724
                                         O.EOS    =      O.BOS                                                   COMSIDP   725
                                         O.NUL    =      O.BOS                                                   COMSIDP   726
                                         KEY      DEFTOT                                                         COMSIDP   727
                                         VAR      DEFTOT                                                         COMSIDP   728
                                         CONS     DEFTOT                                                         COMSIDP   729
                                         REG      DEFTOT                                                         COMSIDP   730
                                                                                                                 COMSIDP   731
                                         PLUS     DEFTOT             +                                           COMSIDP   732
                                         MIN      DEFTOT             -                                           COMSIDP   733
                                         STAR     DEFTOT             *                                           COMSIDP   734
                                         LP       DEFTOT             (                                           COMSIDP   735
                                         RP       DEFTOT             )                                           COMSIDP   736
                                         SHFT     DEFTOT             $                                           COMSIDP   737
                                         AND      DEFTOT             .AND.                                       COMSIDP   738
                                         OR       DEFTOT             .OR.                                        COMSIDP   739
                                         XOR      DEFTOT             .XOR.                                       COMSIDP   740
                                         NOT      DEFTOT             .NOT.                                       COMSIDP   741
                                         COM      DEFTOT             ,                                           COMSIDP   742
                                         PER      DEFTOT             .                                           COMSIDP   743
                                         SQOT     DEFTOT             '                                           COMSIDP   744
                                         QQQ      DEFTOT             ?                                           COMSIDP   745
                                         ILL      DEFTOT                                                         COMSIDP   746
                                         O.SEP    =      O.PLUS                                                  COMSIDP   747
                                         BB.      SPACE  4,10                                                    COMSIDP   748
                                        **        BB. - *COMCBUB* STRUCTURE DEFINITIONS.                         COMSIDP   749
                                        *                                                                        COMSIDP   750
                                        *                                                                        COMSIDP   751
                                                                                                                 COMSIDP   752
                                                                                                                 COMSIDP   753
                                                  DESCRIBE BB.                                                   COMSIDP   754
                                         TOC      DEFINE 42                                                      COMSIDP   755
                                         TOT      DEFINE 18                                                      COMSIDP   756
                                         BN.      SPACE  4,10                                                    COMSIDP   757
                                        **        BN. - *COMCBUN* STRUCTURE DEFINITIONS.                         COMSIDP   758
                                        *                                                                        COMSIDP   759
                                        *                                                                        COMSIDP   760
                                                                                                                 COMSIDP   761
                                                                                                                 COMSIDP   762
                                                  DESCRIBE BN.                                                   COMSIDP   763
                                         TOC      DEFINE 42                                                      COMSIDP   764
                                         TOT      DEFINE 18                                                      COMSIDP   765
                                         BTC/XTC  SPACE  4,10                                                    COMSIDP   766
                                        **        BTC/XTC - *BREAK/STEP* TYPE CODES.                             COMSIDP   767
                                        *                                                                        COMSIDP   768
                                        *                                                                        COMSIDP   769
                                                                                                                 COMSIDP   770
                                                                                                                 COMSIDP   771
                                         BTC.PL   =      1           BRPL                                        COMSIDP   772
                                         XTC.PL   =      1           STPL                                        COMSIDP   773
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    16
                                                                      CSNAP 
  
                                                                                                                 COMSIDP   774
                                         BTC.MI   =      2           BRMI                                        COMSIDP   775
                                         XTC.MI   =      2           STMI                                        COMSIDP   776
                                                                                                                 COMSIDP   777
                                         BTC.ZR   =      3           BRZR                                        COMSIDP   778
                                         XTC.ZR   =      3           STZR                                        COMSIDP   779
                                                                                                                 COMSIDP   780
                                         BTC.NZ   =      4           BRNZ                                        COMSIDP   781
                                         XTC.NZ   =      4           STNZ                                        COMSIDP   782
                                                                                                                 COMSIDP   783
                                         BTC.EQ   =      5           BREQ                                        COMSIDP   784
                                         XTC.EQ   =      5           STEQ                                        COMSIDP   785
                                                                                                                 COMSIDP   786
                                         BTC.NE   =      6           BRNE                                        COMSIDP   787
                                         XTC.NE   =      6           STNE                                        COMSIDP   788
                                                                                                                 COMSIDP   789
                                         BTC.LT   =      7           BRLT                                        COMSIDP   790
                                         XTC.LT   =      7           STLT                                        COMSIDP   791
                                                                                                                 COMSIDP   792
                                         BTC.GE   =      8           BRGE                                        COMSIDP   793
                                         XTC.GE   =      8           STGE                                        COMSIDP   794
                                                                                                                 COMSIDP   795
                                         BTC.LE   =      9           BRLE                                        COMSIDP   796
                                         XTC.LE   =      9           STLE                                        COMSIDP   797
                                                                                                                 COMSIDP   798
                                         BTC.GT   =      10          BRGT                                        COMSIDP   799
                                         XTC.GT   =      10          STGT                                        COMSIDP   800
                                                                                                                 COMSIDP   801
                                         XTC.RNG  =      11          STRANGE                                     COMSIDP   802
                                         XTC.NR   =      12          STNR                                        COMSIDP   803
                                         XTC.AR   =      13          STAR                                        COMSIDP   804
                                         IDF.     SPACE  4,8                                                     COMSIDP   805
                                        **        IDF. - *IDPFLG* STRUCTURE DEFINITIONS.                         COMSIDP   806
                                                                                                                 COMSIDP   807
                                                                                                                 COMSIDP   808
                                                  DESCRIBE IDF.                                                  COMSIDP   809
                                         IDO      DEFINE 1                                                       COMSIDP   810
                                         IKO      DEFINE 1                                                       COMSIDP   811
                                                  DEFINE 1                                                       COMSIDP   812
                                         BDO      DEFINE 1                                                       COMSIDP   813
                                         BKO      DEFINE 1                                                       COMSIDP   814
                                                  DEFINE 1                                                       COMSIDP   815
                                         FTO      DEFINE 1                                                       COMSIDP   816
                                         INP      DEFINE 1                                                       COMSIDP   817
                                         ADR      DEFINE 1                                                       COMSIDP   818
                                         XEC      DEFINE 3                                                       COMSIDP   819
                                         BRF      DEFINE 1                                                       COMSIDP   820
                                         MEM      DEFINE 1                                                       COMSIDP   821
                                         RAP      DEFINE 1                                                       COMSIDP   822
                                         XJR      DEFINE 1                                                       COMSIDP   823
                                                  DEFINE 26                                                      COMSIDP   824
                                         SNL      DEFINE 18                                                      COMSIDP   825
                                         KW.      SPACE  4,10                                                    COMSIDP   826
                                        **        *KEYW* TABLE STRUCTURE DEFINITIONS.                            COMSIDP   827
                                                                                                                 COMSIDP   828
                                                                                                                 COMSIDP   829
                                                  DESCRIBE KW.                                                   COMSIDP   830
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    17
                                                                      CSNAP 
  
                                         PNR      DEFINE 6                                                       COMSIDP   831
                                         PAD      DEFINE 18                                                      COMSIDP   832
                                         XAT      DEFINE 9                                                       COMSIDP   833
                                         LEN      DEFINE 9                                                       COMSIDP   834
                                         KEY      DEFINE 18                                                      COMSIDP   835
                                                                                                                 COMSIDP   836
                                                  REDEF                                                          COMSIDP   837
                                         ATTR     DEFINE 24                                                      COMSIDP   838
                                         LAD      DEFINE 9                                                       COMSIDP   839
                                         UDO      DEFINE 9                                                       COMSIDP   840
                                         HAD      DEFINE 18                                                      COMSIDP   841
                                         PAF.     SPACE  4,8                                                     COMSIDP   842
                                        **        PAF. - *PATFLG* STRUCTURE DEFINITIONS.                         COMSIDP   843
                                                                                                                 COMSIDP   844
                                                                                                                 COMSIDP   845
                                                  DESCRIBE PAF.,15                                               COMSIDP   846
                                         LWA      DEFINE 1                                                       COMSIDP   847
                                                  DEFINE 2                                                       COMSIDP   848
                                         LEN      DEFINE 1                                                       COMSIDP   849
                                                  DEFINE 11                                                      COMSIDP   850
                                         PS.      SPACE  4,10                                                    COMSIDP   851
                                        **        PS. - *POT* STRUCTURE DEFINITIONS.                             COMSIDP   852
                                                                                                                 COMSIDP   853
                                                                                                                 COMSIDP   854
                                                  DESCRIBE PS.                                                   COMSIDP   855
                                         PRI      DEFINE 6                                                       COMSIDP   856
                                         UPIP     DEFINE 18                                                      COMSIDP   857
                                         PIP      DEFINE 18                                                      COMSIDP   858
                                         POP      DEFINE 18                                                      COMSIDP   859
                                         TOT      DEQU   POP                                                     COMSIDP   860
                                         PT.      SPACE  4,10                                                    COMSIDP   861
                                        **        PT. - *PTR* (POINTER) TABLE STRUCTURE DEFINITIONS.             COMSIDP   862
                                                                                                                 COMSIDP   863
                                                                                                                 COMSIDP   864
                                                  DESCRIBE PT.                                                   COMSIDP   865
                                         FWA      DEFINE 30                                                      COMSIDP   866
                                         LEN      DEFINE 30                                                      COMSIDP   867
                                                                                                                 COMSIDP   868
                                         L1.PTR   =      2           SELECT 1ST AND 2ND DEFAULTS ONLY            COMSIDP   869
                                         PTR.     SPACE  4,10                                                    COMSIDP   870
                                        **        PTR. - DEFINE *PTR* ORDINALS.                                  COMSIDP   871
                                        *                                                                        COMSIDP   872
                                        *                                                                        COMSIDP   873
                                                                                                                 COMSIDP   874
                                                                                                                 COMSIDP   875
                                         PTR.COD  CEQU   1                                                       COMSIDP   876
                                         PTR.DPC  CEQU   3                                                       COMSIDP   877
                                         PTR.SNP  CEQU   3                                                       COMSIDP   878
                                         PTR.STO  CEQU   3                                                       COMSIDP   879
                                         PTR.WHR  CEQU   1                                                       COMSIDP   880
                                         PTR.BRK  CEQU   1                                                       COMSIDP   881
                                         SC.      SPACE  4,10                                                    COMSIDP   882
                                        **        SC. - *STMT CONTROL* TABLE STRUCTURE DEFINITIONS.              COMSIDP   883
                                                                                                                 COMSIDP   884
                                                                                                                 COMSIDP   885
                                                  DESCRIBE SC.                                                   COMSIDP   886
                                         TOT      DEFINE 18                                                      COMSIDP   887
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    18
                                                                      CSNAP 
  
                                                  DEFINE 24                                                      COMSIDP   888
                                         PAD      DEFINE 18                                                      COMSIDP   889
                                         SY.      SPACE  4,10                                                    COMSIDP   890
                                        **        SY. - SYMBOL TYPES.                                            COMSIDP   891
                                                                                                                 COMSIDP   892
                                                                                                                 COMSIDP   893
                                         SY.NONE  =      0           UNDEFINED                                   COMSIDP   894
                                         SY.DECK  =      1           *FAA/RPV=RNA* DECK NAME                     COMSIDP   895
                                         SY.SET   =      2           *SET* NAME                                  COMSIDP   896
                                         SY.LFN   =      3           LFN/FET NAME                                COMSIDP   897
                                         SY.USY   =      4           USER-DEFINED SYMBOL (VIA *USY=*)            COMSIDP   898
                                         TB.      SPACE  4,8                                                     COMSIDP   899
                                        **        TB. - TOKEN BUFFER STRUCTURE DEFINITIONS.                      COMSIDP   900
                                                                                                                 COMSIDP   901
                                                                                                                 COMSIDP   902
                                                  DESCRIBE TB.                                                   COMSIDP   903
                                         LAS      DEFINE 1                                                       COMSIDP   904
                                                  DEFINE 23                                                      COMSIDP   905
                                         PRS      DEFINE 18                                                      COMSIDP   906
                                         LEN      DEFINE 18                                                      COMSIDP   907
                                         TB.      SPACE  4,10                                                    COMSIDP   908
                                                  REDEF                                                          COMSIDP   909
                                         TOC      DEFINE BB.TOCL                                                 COMSIDP   910
                                         TOT      DEFINE BB.TOTL                                                 COMSIDP   911
                                         BB.      SPACE  4,10                                                    COMSIDP   912
                                                  REDEF                                                          COMSIDP   913
                                                  DEFINE 24                                                      COMSIDP   914
                                         0TR      DEFINE 18                                                      COMSIDP   915
                                         TOT      DEFINE 18                                                      COMSIDP   916
                                         COMSIDP  SPACE  4,8                                                     COMSIDP   917
                                                  BASE   *                                                       COMSIDP   918
                                                  LIST   *                                                       CSNAP      68
                                                  QUAL   *                                                       CSNAP      69
                                         DATA     SPACE  4,10                                                    CSNAP      70
                                        ***       DATA STRUCTURES.                                               CSNAP      71
                                        *                                                                        CSNAP      72
                                        *                                                                        CSNAP      73
                                        *         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE        CSNAP      74
                                        *         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE           CSNAP      75
                                        *         ROUTINES IN *CSNAP*.                                           CSNAP      76
                                         FI=      SPACE  4,10                                                    CSNAP      77
                                        **        FI= - FTN/IDP CELLS.                                           CSNAP      78
                                        *                                                                        CSNAP      79
                                        *         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED           CSNAP      80
                                        *         FOR FTN/IDP COMMUNICATION.                                     CSNAP      81
                                         FI=BRLI  SPACE  4,10                                                    CSNAP      82
                                        **        FI=BRLI - *BRLINE NR* CELL.                                    CSNAP      83
                                        *                                                                        CSNAP      84
                                        *         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED         CSNAP      85
                                        *         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS        CSNAP      86
                                        *         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS          CSNAP      87
                                        *         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN          CSNAP      88
                                        *         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END           CSNAP      89
                                        *         MASTER LOOP.                                                   CSNAP      90
                                                                                                                 CSNAP      91
                                                                                                                 CSNAP      92
                                         FI=BRLI  CONENT 0                                                       CSNAP      93
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    19
                                                                      CSNAP 
  
                                                  TITLE  FTN5 SNAPPING ROUTINES.                                 CSNAP      94
                                         ST=      SPACE  4,10                                                    CSNAP      95
                                        ***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.       CSNAP      96
                                        *                                                                        CSNAP      97
                                        *                                                                        CSNAP      98
                                        *         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC      CSNAP      99
                                        *         STMT PROCESSORS FOR IDP COMMANDS.                              CSNAP     100
                                         UKT=CG   SPACE  4,10                                                    CSNAP     101
                                        **        UKT=CG - USER IDP KEYWORD TABLE FOR *BRIDGE*.                  CSNAP     102
                                                                                                                 CSNAP     103
                                                                                                                 CSNAP     104
                                         UKT=CG   BSSENT 0           ** FWA OF KEYWORD TABLE **                  CSNAP     105
                                                  QUAL   IDP                                                     CSNAP     106
                                         BRL      KEYW   (BRLINE NR)                                             CSNAP     107
                                         DMT      KEYW   (DUMPT FWA,LWA,LEN)                                     CSNAP     108
                                                  QUAL   *                                                       CSNAP     109
                                                  DATA   0           ** END OF TABLE MARK **                     CSNAP     110
                                         UKT=LNK  DATA   0           ** LINK WORD **                             CSNAP     111
                                         ST=BRL   SPACE  4,10                                                    CSNAP     112
                                        **        ST=BRL - HERE TO PROCESS *BRLINE NR*.                          CSNAP     113
                                                                                                                 CSNAP     114
                                                                                                                 CSNAP     115
                                         ST=BRL   BSS    0           ** ENTRY **                                 CSNAP     116
                                                  RJ     PAS         PARSE SUBEXPRESSION                         CSNAP     117
                                                  SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT         CSNAP     118
                                                  EQ     IDP=MN                                                  CSNAP     119
                                         CTEXT    SPACE  4,10                                                    CSNAP     120
                                        *         COMMON DECKS.                                                  CSNAP     121
                                                                                                                 CSNAP     122
                                                                                                                 CSNAP     123
                                                  CTEXT  COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                  COMDDMT     2
                                                                                                                 COMDDMT     3
                                                                                                                 COMDDMT     4
                                                  IF     -DEF,QUAL$,1                                            COMDDMT     5
                                                  QUAL   COMDDMT                                                 COMDDMT     6
                                                  BASE   D                                                       COMDDMT     7
                                         DAT      SPACE  4,10                                                    COMDDMT     8
                                        **        DAT - DUMP A TABLE.                                            COMDDMT     9
                                        *                                                                        COMDDMT    10
                                        *                                                                        COMDDMT    11
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN (TT.) WORD        COMDDMT    12
                                        *                (X2) = 42/7LNAME,18/ORDINAL OF TABLE                    COMDDMT    13
                                        *                                                                        COMDDMT    14
                                        *         EXIT   NONE                                                    COMDDMT    15
                                        *                                                                        COMDDMT    16
                                        *         USES   ALL                                                     COMDDMT    17
                                        *                                                                        COMDDMT    18
                                        *         CALLS  COD,DCM,PRIDP                                           COMDDMT    19
                                                                                                                 COMDDMT    20
                                                                                                                 COMDDMT    21
                                         DAT8     RJ     DSY         DUMP SYMBOL TABLE                           COMDDMT    22
                                                                                                                 COMDDMT    23
                                         DAT      SUBR               ** ENTRY/EXIT **                            COMDDMT    24
                                                  SA3    =3R                                                     COMDDMT    25
                                                  MX4    42                                                      COMDDMT    26
                                                  BX5    X4*X2       REMOVE ORDINAL                              COMDDMT    27
                                                  BX6    X5+X3       ADD BLANKS                                  COMDDMT    28
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    20
                                                                      CSNAP 
  
                                                  SA6    DATB+2      TABLE NAME 10H FMT                          COMDDMT    29
                                                  SB5    A1+         (B5) = ADDR OF TABLE ORIGIN WORD            COMDDMT    30
                                                  SA1    A1+N.TABLE  (X1) = LEN OF TABLE                         COMDDMT    31
                                                  SA2    DATB                                                    COMDDMT    32
                                                  SA3    A2+B1                                                   COMDDMT    33
                                                  BX6    X2                                                      COMDDMT    34
                                                  SA4    A3+B1                                                   COMDDMT    35
                                                  SA6    SNAPLNE                                                 COMDDMT    36
                                                  LX7    X3                                                      COMDDMT    37
                                                  SA7    A6+B1                                                   COMDDMT    38
                                                  SA5    A4+B1                                                   COMDDMT    39
                                                  BX6    X4                                                      COMDDMT    40
                                                  LX7    X5                                                      COMDDMT    41
                                                  SA6    A7+B1                                                   COMDDMT    42
                                                  SA7    A6+B1                                                   COMDDMT    43
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (TBL LEN)       COMDDMT    44
                                                  SA6    A7+B1                                                   COMDDMT    45
                                                  MX7    0                                                       COMDDMT    46
                                                  SA7    A6+B1       MARK EOL                                    COMDDMT    47
                                                  SB4    B5          (B4) = ADDR OF TABLE ORIGIN WORD            COMDDMT    48
                                                  PRIDP  SNAPLNE,,1                                              COMDDMT    49
                                                  SA1    =10HSYM                                                 COMDDMT    50
                                                  SA2    DATB+2      TABLE NAME                                  COMDDMT    51
                                                  IX6    X1-X2                                                   COMDDMT    52
                                                  ZR     X6,DAT8     IF SYMBOL TABLE TO BE DUMPED                COMDDMT    53
                                                  SA2    B4          (X2) = ORIGIN (FWA) OF TABLE                COMDDMT    54
                                                  MX3    0           (X3) = LWA (NULL)                           COMDDMT    55
                                                  SA4    B4+N.TABLE  (X4) = LENGTH OF TABLE                      COMDDMT    56
                                                  ZR     X4,EXIT.    IF TABLE EMPTY -- AVOID DUMP                COMDDMT    57
                                                  CALL   DCM=        DUMP CENTRAL MEMORY                         COMDDMT    58
                                                  EQ     EXIT.                                                   COMDDMT    59
                                                                                                                 COMDDMT    60
                                                                                                                 COMDDMT    61
                                         DATB     DIS    2,      DUMP OF TABLE                                   COMDDMT    62
                                                  DATA   0           NAME OF TABLE 10H FMT                       COMDDMT    63
                                                  DATA   10H LENGTH =                                            COMDDMT    64
                                        *         DATA   10H NNNNNNB                                             COMDDMT    65
                                         DMT      SPACE  4,10                                                    COMDDMT    66
                                        **        DMT - DUMP TABLES.                                             COMDDMT    67
                                        *                                                                        COMDDMT    68
                                        *                                                                        COMDDMT    69
                                        *                CALLED BY *DUMPT* MACRO.                                COMDDMT    70
                                        *                                                                        COMDDMT    71
                                        *         ENTRY  LOWER HALF OF *RJ DMT=* WORD HAS FWA OF PARAMETER LIST- COMDDMT    72
                                        * +       RJ     DMT=                                                    COMDDMT    73
                                        * -       VFD    30/FWA OF PARAMETER LIST                                COMDDMT    74
                                        *                                                                        COMDDMT    75
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP    COMDDMT    76
                                        *         BY *DUMPT* MACRO.  (SEE *TSTEXT*) --                           COMDDMT    77
                                        *                                                                        COMDDMT    78
                                        *         VFD    60/LOWER LIMIT (LL)                                     COMDDMT    79
                                        *         VFD    60/UPPER LIMIT (UL)                                     COMDDMT    80
                                        *         VFD    60/INCREMENT (INC)                                      COMDDMT    81
                                        *         VFD    60/10HSNAP NAME   (OR .ZR. IF NO NAME)                  COMDDMT    82
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          COMDDMT    83
                                        *         VFD    42/7LTN1,18/0                                           COMDDMT    84
                                        *                 .                                                      COMDDMT    85
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    21
                                                                      CSNAP 
  
                                        *                 .                                                      COMDDMT    86
                                        *         VFD    42/7LTNN,18/0                                           COMDDMT    87
                                        *         VFD    60/0        END OF TABLE MARK                           COMDDMT    88
                                        *                                                                        COMDDMT    89
                                        *                WHERE TN1,...,TNN ARE THE NAMES OF TABLES IN THE        COMDDMT    90
                                        *                NAMES TABLE (SEE *TABLES* MACRO IN *TABLES*).           COMDDMT    91
                                        *                                                                        COMDDMT    92
                                        *         EXIT   NONE                                                    COMDDMT    93
                                        *                                                                        COMDDMT    94
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      COMDDMT    95
                                        *                                                                        COMDDMT    96
                                        *         CALLS  DAT,FRK,HDR,RSR=,SOB,SVR=                               COMDDMT    97
                                                                                                                 COMDDMT    98
                                                                                                                 COMDDMT    99
                                         DMT=     SUBR   =           ** ENTRY/EXIT **                            COMDDMT   100
                                                  RJ     SVR=        SAVE ALL REGISTERS                          COMDDMT   101
                                                  SX1    3           SET TO *EXECUTIVE IS /DMT=/*                COMDDMT   102
                                                  RJ     SOB         SET OUTPUT BIT FLAGS                        COMDDMT   103
                                                  SA4    DMT=                                                    COMDDMT   104
                                                  LX4    30                                                      COMDDMT   105
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       COMDDMT   106
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                COMDDMT   107
                                                  SA6    FW=IDPL                                                 COMDDMT   108
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMDDMT   109
                                                  ZR     X5,DMT3     IF NO DUMP THIS TIME                        COMDDMT   110
                                                  RJ     HDR         OUTPUT HEADING                              COMDDMT   111
                                                  SX2    X5+SN=DMT-1 (X2+1) = ADDR OF 1ST TABLE PARAMETER WORD   COMDDMT   112
                                                                                                                 COMDDMT   113
                                        **        PICK UP NEXT *DUMPT* PARAMETER LIST ENTRY.                     COMDDMT   114
                                                                                                                 COMDDMT   115
                                         DMT2     SX6    X2+B1                                                   COMDDMT   116
                                                  SA1    X6          (X1) = 42/7LTABLENAME,18/0                  COMDDMT   117
                                                  SA6    FW=IDPL     RESET START OF PARAMETER LIST               COMDDMT   118
                                                  ZR     X1,DMT3     IF NO MORE TABLES TO DUMP                   COMDDMT   119
                                                                                                                 COMDDMT   120
                                                  MX0    42                                                      COMDDMT   121
                                                  SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS              COMDDMT   122
                                                  CALL   SKT         SEARCH TABLE FOR MATCH                      COMDDMT   123
                                                  ZR     X2,"BLOWUP" IF UNKNOW TABLE ON DUMPT MACRO              COMDDMT   124
                                                                                                                 COMDDMT   125
                                                  SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  COMDDMT   126
                                                  RJ     DAT         DUMP A TABLE                                COMDDMT   127
                                                  SA2    FW=IDPL     ADDRESS OF NEXT PARAMETER                   COMDDMT   128
                                                  EQ     DMT2        LOOP FOR NEXT...                            COMDDMT   129
                                                                                                                 COMDDMT   130
                                         DMT3     RJ     RSR=        RESTORE ALL REGISTERS                       COMDDMT   131
                                                  EQ     EXIT.                                                   COMDDMT   132
                                         DSY      EJECT  4,10                                                    COMDDMT   133
                                        **        DSY - DUMP SYMBOL TABLE.                                       COMDDMT   134
                                                                                                                 COMDDMT   135
                                                                                                                 COMDDMT   136
                                         DSY      SUBR                                                           COMDDMT   137
                                                  SA1    IDPFLG                                                  COMDDMT   138
                                                  MX0    -1                                                      COMDDMT   139
                                                  LX1    -/IDP/IDF.IDOP                                          COMDDMT   140
                                                  BX2    -X0*X1      (X2) = 1 IF WRITING INTERACTIVELY           COMDDMT   141
                                                  SX6    X2+SNAPLNE                                              COMDDMT   142
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    22
                                                                      CSNAP 
  
                                                  SB6    X2+DSYB     SKIP 10 COLUMNS IF INTERACTIVE              COMDDMT   143
                                                  SA6    DSYC                                                    COMDDMT   144
                                                  SB2    DSYB+DSYBL  (B2) = LWA+1 OF HEADER                      COMDDMT   145
                                                  PRIDP  B6,B2-B6    LIST HEADING                                COMDDMT   146
                                                  SB5    B0          (B5) = SYMTAB ENTRY ORDINAL                 COMDDMT   147
                                                  BX5    0           (X5) = SYMTAB WORD INDEX                    COMDDMT   148
                                         DSY2     SB6    SNAPLNE                                                 COMDDMT   149
                                                  SX1    X5                                                      COMDDMT   150
                                                  RJ     COD         CONVERT WORD INDEX                          COMDDMT   151
                                                  SX2    1R+&1R                                                  COMDDMT   152
                                                  LX2    B2                                                      COMDDMT   153
                                                  BX6    X6-X2                                                   COMDDMT   154
                                                  LX6    3*6         -+12345---                                  COMDDMT   155
                                                  SA6    B6                                                      COMDDMT   156
                                                  SX1    B5          CONVERT ORDINAL                             COMDDMT   157
                                                  RJ     COD                                                     COMDDMT   158
                                                  SA2    =XT.SYM                                                 COMDDMT   159
                                                  MX7    7*6                                                     COMDDMT   160
                                                  SB3    X5          (B3) = WORD INDEX                           COMDDMT   161
                                                  LX6    5*6         12345-----                                  COMDDMT   162
                                                  BX4    X7*X6       12345--...                                  COMDDMT   163
                                                  SA5    X2+B3       (X5) = SYMTAB WORD WA                       COMDDMT   164
                                                  SB7    X5          (B7) = HASH CHAIN LINK                      COMDDMT   165
                                                  LX5    3*6         DEFG123ABC                                  COMDDMT   166
                                                  BX6    -X7*X5      .......ABC                                  COMDDMT   167
                                                  MX3    4*6                                                     COMDDMT   168
                                                  BX0    X3*X5       DEFG......                                  COMDDMT   169
                                                  BX1    X6+X4       12345--ABC                                  COMDDMT   170
                                                  RJ     ZTB         ZEROES TO BLANKS                            COMDDMT   171
                                                  SA6    B6+B1                                                   COMDDMT   172
                                                  SX1    B7                                                      COMDDMT   173
                                                  RJ     COD         CONVERT HASH LINK                           COMDDMT   174
                                                  MX3    -6*6                                                    COMDDMT   175
                                                  BX2    -X3*X6      ....-12345                                  COMDDMT   176
                                                  IX1    X2+X0       DEFG-12345                                  COMDDMT   177
                                                  RJ     ZTB                                                     COMDDMT   178
                                                  SA6    B6+2                                                    COMDDMT   179
                                                                                                                 COMDDMT   180
                                                  =A5    A5+WB.W     (X5) = SYMTAB WORD WB                       COMDDMT   181
                                                  MX2    -2          LEVN                                        COMDDMT   182
                                                  LX5    -45                                                     COMDDMT   183
                                                  BX4    -X2*X5      (X4) = LEVEL NUMBER                         COMDDMT   184
                                                  LX5    45-47                                                   COMDDMT   185
                                                  SX0    X4+1R0-1R   CONVERT LEVEL NUMBER                        COMDDMT   186
                                                  MX7    -13         PTRF                                        COMDDMT   187
                                                  BX1    -X7*X5                                                  COMDDMT   188
                                                  LX0    6                                                       COMDDMT   189
                                                  RJ     COD         CONVERT POINTER FIELD                       COMDDMT   190
                                                  LX6    4*6                                                     COMDDMT   191
                                                  IX7    X6+X0       -12345--L-                                  COMDDMT   192
                                                  SA7    A6+B1                                                   COMDDMT   193
                                                  LX5    47-33       RB/FPNO/FUNI                                COMDDMT   194
                                                  MX2    -12                                                     COMDDMT   195
                                                  BX1    -X2*X5                                                  COMDDMT   196
                                                  LX5    33-0                                                    COMDDMT   197
                                                  MX4    -3                                                      COMDDMT   198
                                                  BX3    -X4*X5                                                  COMDDMT   199
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    23
                                                                      CSNAP 
  
                                                  SB7    X3          (B7) = MODE                                 COMDDMT   200
                                                  RJ     COD         CONVERT RB/FPNO/FUNI                        COMDDMT   201
                                                  LX6    6*6                                                     COMDDMT   202
                                                  SA6    A7+B1                                                   COMDDMT   203
                                                  LX5    0-3                                                     COMDDMT   204
                                                  SB3    A5          SAVE (B3) = (A5)                            COMDDMT   205
                                                  BX1    X5                                                      COMDDMT   206
                                                  RJ     WOD         CONVERT ALL OF WORD WB                      COMDDMT   207
                                                  SA1    A6          FUNI------                                  COMDDMT   208
                                                  MX2    6*6                                                     COMDDMT   209
                                                  LX7    4*6         5678901234                                  COMDDMT   210
                                                  BX1    X2*X1       ABCD--....                                  COMDDMT   211
                                                  BX3    -X2*X7      ......1234                                  COMDDMT   212
                                                  BX7    X2*X7       567890....                                  COMDDMT   213
                                                  SA4    DSYA+B7     ......--M-                                  COMDDMT   214
                                                  BX6    X1+X3                                                   COMDDMT   215
                                                  SA6    A6          FUNI---1234                                 COMDDMT   216
                                                  BX7    X4+X7       567890--M-                                  COMDDMT   217
                                                  SA7    A6+B1                                                   COMDDMT   218
                                                                                                                 COMDDMT   219
                                                  =A5    B3-WB.W+WC.W      FETCH (X5) = SYMTAB WORD WC           COMDDMT   220
                                                  MX3    -12         (X3) = BASE                                 COMDDMT   221
                                                  LX5    -48                                                     COMDDMT   222
                                                  BX1    -X3*X5      (X1) = EQUIV CLASS BASE                     COMDDMT   223
                                                  RJ     COD         CONVERT OCTAL                               COMDDMT   224
                                                  MX2    7*6                                                     COMDDMT   225
                                                  LX6    5*6         -BASE-----                                  COMDDMT   226
                                                  BX0    X2*X6       -BASE--...                                  COMDDMT   227
                                                  MX4    -18                                                     COMDDMT   228
                                                  LX5    48-30                                                   COMDDMT   229
                                                  BX1    -X4*X5      (X1) = CHARACTER LENGTH                     COMDDMT   230
                                                  RJ     COD         CONVERT OCTAL                               COMDDMT   231
                                                  LX6    7*6         456----123                                  COMDDMT   232
                                                  MX2    7*6                                                     COMDDMT   233
                                                  BX3    -X2*X6      .......123                                  COMDDMT   234
                                                  BX7    X0+X3       -BASE--123                                  COMDDMT   235
                                                  SA7    A7+B1                                                   COMDDMT   236
                                                  LX5    30-28                                                   COMDDMT   237
                                                  MX4    -2                                                      COMDDMT   238
                                                  BX1    -X4*X5                                                  COMDDMT   239
                                                  SX3    X1+1R0-1R   CONVERT CHARACTER TYPE                      COMDDMT   240
                                                  LX3    4*6         .....C....                                  COMDDMT   241
                                                  IX6    X6+X3       456--C-123                                  COMDDMT   242
                                                  BX0    X2*X6       456--C-...                                  COMDDMT   243
                                                  LX5    28-24                                                   COMDDMT   244
                                                  MX4    -4                                                      COMDDMT   245
                                                  BX1    -X4*X5      (X1) = BEGINNING CHARACTER POSITION         COMDDMT   246
                                                  SA2    =3R  0                                                  COMDDMT   247
                                                  IX6    X2+X1       .......--P                                  COMDDMT   248
                                                  BX7    X6+X0       456--C---P                                  COMDDMT   249
                                                  SA7    A7+B1                                                   COMDDMT   250
                                                  LX5    24-0                                                    COMDDMT   251
                                                  MX4    -24                                                     COMDDMT   252
                                                  BX1    -X4*X5      (X1) = WC.RA                                COMDDMT   253
                                                  RJ     COD         CONVERT OCTAL                               COMDDMT   254
                                                  SA6    A7+B1       --12345678                                  COMDDMT   255
                                                  MX7    0                                                       COMDDMT   256
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    24
                                                                      CSNAP 
  
                                                  SX5    B5+B1       ADVANCE ORDINAL                             COMDDMT   257
                                                  SA2    DSYC                                                    COMDDMT   258
                                                  SA7    A6+B1       MARK END OF LINE                            COMDDMT   259
                                                  SB6    X2                                                      COMDDMT   260
                                                  PRIDP  B6,A7-B6                                                COMDDMT   261
                                                  SB5    X5          (B5) = ORDINAL                              COMDDMT   262
                                                  SA2    =XT=SYM                                                 COMDDMT   263
                                                  LX3    X5,B1                                                   COMDDMT   264
                                                  IX5    X3+X5       (X5) = INDEX                                COMDDMT   265
                                                  IX7    X5-X2                                                   COMDDMT   266
                                                  MI     X7,DSY2     IF INDEX .LT. LENGTH                        COMDDMT   267
                                                  EQ     EXIT.                                                   COMDDMT   268
                                                                                                                 COMDDMT   269
                                         DSYA     BSS                                                            COMDDMT   270
                                                  LOC    0                                                       COMDDMT   271
                                         M.UNIV   CON    4R  0       CHAMELEON                                   COMDDMT   272
                                         M.LOG    CON    4R  L       LOGICAL                                     COMDDMT   273
                                         M.INT    CON    4R  I       INTEGER                                     COMDDMT   274
                                         M.REAL   CON    4R  R       REAL                                        COMDDMT   275
                                         M.DBL    CON    4R  D       DOUBLE                                      COMDDMT   276
                                         M.CPLX   CON    4R  Z       COMPLEX                                     COMDDMT   277
                                                  CON    4R  6       BOOLEAN                                     COMDDMT   278
                                                  CON    4R  7       CHARACTER                                   COMDDMT   279
                                                  LOC    *O                                                      COMDDMT   280
                                                                                                                 COMDDMT   281
                                         DSYB     DIS    5,  INDEX   ORDNL  SYMBOL  CHAIN  PTRF LV BASE          COMDDMT   282
                                                  DIS    4,CLASS   M  FUNI    CLEN  C BCP    RELADD              COMDDMT   283
                                                  CON    0                                                       COMDDMT   284
                                         DSYBL    =      *-DSYB                                                  COMDDMT   285
                                                                                                                 COMDDMT   286
                                         DSYC     CON    SNAPLNE     FWA OF LINE TO OUTPUT                       COMDDMT   287
                                         ST=DMT   SPACE  4,10                                                    COMDDMT   288
                                        **        HERE TO PROCESS *DUMPT T1,T2,...,TN*.                          COMDDMT   289
                                                                                                                 COMDDMT   290
                                                                                                                 COMDDMT   291
                                         ST=DMT   SX6    A5                                                      COMDDMT   292
                                                  SA6    IDPSA5      SAVE (A5) = NEXT TOKEN ADDR                 COMDDMT   293
                                                                                                                 COMDDMT   294
                                         ST=DMT2  SA5    X6                                                      COMDDMT   295
                                                  MX0    7*CHAR                                                  COMDDMT   296
                                                  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMDDMT   297
                                                  SX6    X5-/IDP/O.VAR                                           COMDDMT   298
                                                  NZ     X6,ST=DMT3  IF NOT A NAME TOKEN                         COMDDMT   299
                                                  BX1    X0*X5                                                   COMDDMT   300
                                                  RJ     =XSFN       SPACE FILL NAME                             COMDDMT   301
                                                  BX1    X6          (X1) = 10HTABLE NAME                        COMDDMT   302
                                                  SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS              COMDDMT   303
                                                  RJ     SKT         SEARCH TABLE FOR MATCH                      COMDDMT   304
                                                  ZR     X2,ST=DMT3  IF NO FIND                                  COMDDMT   305
                                                  SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  COMDDMT   306
                                                  RJ     DAT         DUMP A TABLE                                COMDDMT   307
                                                                                                                 COMDDMT   308
                                         ST=DMT3  SA1    IDPSA5                                                  COMDDMT   309
                                                  SX6    X1+B1                                                   COMDDMT   310
                                                  SA6    A1                                                      COMDDMT   311
                                                  EQ     ST=DMT2                                                 COMDDMT   312
                                         QUAL$    SPACE  4,10                                                    COMDDMT   313
1       CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                        COMPASS 3.7-871.     24/05/05. 19.58.06.      PAGE    25
                                                                      CSNAP 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMDDMT   314
                                                  QUAL   *                                                       COMDDMT   315
                                         DAT      EQU    /COMDDMT/DAT                                            COMDDMT   316
                                         DMT=     EQU    /COMDDMT/DMT=                                           COMDDMT   317
                                         ST=DMT   EQU    /COMDDMT/ST=DMT                                         COMDDMT   318
                                         QUAL$    ENDIF                                                          COMDDMT   319
                                                  BASE   *                                                       COMDDMT   320
                                                                                                                 COMDDMT   321
                                         COMDDMT  ENDX                                                           COMDDMT   322
                                                                                                                 CSNAP     125
                                         CSNAP    SPACE  4,10                                                    CSNAP     126
                                         #CSNAP   ENDIF              **** TEMP ****                              CSNAP     127
                                         #SNAP    ENDIF                                                          CSNAP     128
                                                  LIST   D                                                       CSNAP     129
             0                           ENDSNAP  END                MARK END OF SNAP DECK                       CSNAP     130
  
                             74000B CM  STORAGE USED             1399 STATEMENTS     1336 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.417 SECONDS           2 REFERENCES
  
  
  
        ERROR DIRECTORY.
  
              7 TYPE ERROR              ADDRESS VALUE EXCEEDS FIELD SIZE, RESULT TRUNCATED
                     OCCURRED ON PAGES          1 
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        ENDSNAP         0   PROGRAM*       25/15 L
        TEST            1   FTX             1/26 F
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/05. 19.58.07.      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=
  
  
  
  
                                        **ENDIF TEST                                                             FC5A388     8
                                                  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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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
                          6221777772              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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      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
  
                             74100B CM  STORAGE USED             1356 STATEMENTS     1457 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.511 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            5   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/05. 19.58.07.      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/05. 19.58.07.      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/05. 19.58.07.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      420              IDENT  ALLOC
                        420                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=ALLOC          0+           ALC             16+           ALC.CAI        167+ 
                                        ADW              0+           ALC.REG        163+           PTA            314+ 
                                        ADW.ALC         10+           ALC.00         165+           PTS            324+ 
                                        ADWT            12+           ALC.STF        166+ 
  
  
                                        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
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     2
                                                                      ALLOC 
  
                                                  EXT    ALC=CNT,MOVES                                           FC5A150   283
                                                                                                                 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
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     3
                                                                      ADW 
  
                          5160000012 +            SA6    ADWT        SAVE DATUM                                  ALLOC      57
             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
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     4
                                                                      ALC 
  
                                        *                S = SIZE OF MANAGABLE STORAGE (L.TABS).                 ALLOC     105
                                        *                                                                        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
            17  5120000000 X                      SA2    ALC=CNT                                                 ALLOC     126
                          73621                   SX6    X2+B1                                                   ALLOC     127
                               54620              SA6    A2                                                      ALLOC     128
                                        .T        ENDIF                                                          ALLOC     129
                                                                                                                 ALLOC     130
            20  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
            21  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
            22  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
            23  0332400023 +                      MI     X2,"BLOWUP" IF L(T) .LT. 0                              ALLOC     147
                          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
            24  37620                             IX6    X2-X0       L(T)=L(T)-D (BACK AGAIN)                    ALLOC     154
                     10755                        BX7    X5                                                      ALLOC     155
                          54620                   SA6    A2          RESTORE ORIGINAL SIZE, TEMPORARILY          ALLOC     156
                               22604              LX6    X4                                                      ALLOC     157
                                        *                            (ALCA)                                      ALLOC     158
            25  5170000162 +                      SA7    ALCA+8      +8 = (X5)                                   ALLOC     159
                          55671                   =A6    A7-1        +7 = (X4)                                   ALLOC     160
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     5
                                                                      ALC 
  
                               74750              SX7    A5                                                      ALLOC     161
            26  74640                             SX6    A4                                                      ALLOC     162
                     55761                        =A7    A6-1        +6 = (A5)                                   ALLOC     163
                          55671                   =A6    A7-1        +5 = (A4)                                   ALLOC     164
                               77760              SX7    B6-B0                                                   ALLOC     165
            27  77650                             SX6    B5-B0                                                   ALLOC     166
                     55761                        =A7    A6-1        +4 = (B6)                                   ALLOC     167
                          55671                   =A6    A7-1        +3 = (B5)                                   ALLOC     168
                               77740              SX7    B4-B0                                                   ALLOC     169
            30  77630                             SX6    B3-B0                                                   ALLOC     170
                     55761                        =A7    A6-1        +2 = (B4)                                   ALLOC     171
                          55671                   =A6    A7-1        +1 = (B3)                                   ALLOC     172
                               77720              SX7    B2-B0                                                   ALLOC     173
            31  6120000000 X                      SB2    BASES                                                   ALLOC     174
                          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
            32  5120000163 +                      SA2    ALC.REG                                                 ALLOC     181
                          53120                   SA1    X2          FETCH OLD BASE                              ALLOC     182
                               10611              BX6    X1                                                      ALLOC     183
            33  54621                             =A6    A2+1                                                    ALLOC     184
                                                                                                                 ALLOC     185
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     186
                     0100000324 +                 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
            34  5120000000 X             ALC10    SA2    =XTV=CUR    TV */TABLE VECTOR,=1 IF ACTIVE              FC5A128   146
                          76310                   SX3    B1                                                      FC5A128   147
                               43700              MX7    0                                                       FC5A128   148
            35  22323                             LX3    B2,X3       (X3) = TV MASK FOR BIT POSITION T           FC5A128   149
                     11123                        BX1    X2*X3                                                   FC5A128   150
                          0301000037 +            ZR     X1,ALC14    IF T NOT ACTIVE                             FC5A128   151
            36  10700                             BX7    X0          LACT = D                                    FC5A128   152
                                                                                                                 FC5A128   153
            37  22300                    ALC14    LX3    X0          L = D                                       FC5A128   154
                     6150000073                   SB5    59                                                      FC5A128   155
            40  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
            41  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
            42  0322000043 +                      PL     X2,ALC22    IF I NOT ACTIVE                             FC5A128   163
                          36771                   IX7    X7+X1       LACT = LACT + L(I)                          FC5A128   164
                                                                                                                 FC5A128   165
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     6
                                                                      ALC 
  
            43  20201                    ALC22    LX2    1                                                       FC5A128   166
                     0670000041 +                 PL     B7,ALC20    LOOP FOR ALL TABLES                         FC5A128   167
                                                                                                                 FC5A128   168
            44  5120000000 X                      SA2    L.TABS      = S                                         FC5A128   169
                          63370                   SB3    X7          (B3) = LACT                                 FC5A128   170
            45  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
            46  43700                             MX7    0                                                       ALLOC     210
                     6150000000 X                 SB5    SIZES                                                   FC5A128   174
            47  5120000000 X                      SA2    T=PAR                                                   ALLOC     211
                          5130000000 X            SA3    =XALC.PAR                                               FC5A128   175
            50  37223                             IX2    X2-X3                                                   FC5A128   176
                     65525                        SB5    A2-B5       (B5) = INDEX FOR PAR                        FC5A128   177
                          0322000052 +            PL     X2,ALC26    IF T=PAR GT ALCPAR                          FC5A128   178
            51  14722                             BX7    -X2                                                     ALLOC     214
                                                                                                                 ALLOC     215
            52  5120000000 X             ALC26    SA2    THRESH                                                  FC5A128   179
                          36227                   IX2    X2+X7       RESERVED FOR T.PAR MIN                      ALLOC     217
            53  5170000417 +                      SA7    =SALCB                                                  ALLOC     218
                          37162                   IX1    X6-X2       SUBTRACT THRESHOLD AMOUNT                   ALLOC     219
            54  0321000056 +                      PL     X1,ALC30    IF ENOUGH ROOM FOR TABLE                    ALLOC     220
                                                                                                                 ALLOC     221
                          0100000174 +            RJ     GMR         GET MORE ROOM                               ALLOC     222
            55  0400000034 +                      EQ     ALC10       CHECK IF ENOUGH NOW                         ALLOC     223
                                                                                                                 ALLOC     224
                                        *                ADJUST L,LACT,AND A FOR T.PAR ADJUSTMENT                FC5A128   180
                                                                                                                 FC5A128   181
            56  5120000000 X             ALC30    SA2    =XTV=CUR                                                FC5A128   182
                          76110                   SX1    B1                                                      FC5A128   183
                               63474              SB4    B4+X7       L = L + P                                   FC5A128   184
            57  22151                             LX1    B5,X1                                                   FC5A128   185
                     37667                        IX6    X6-X7       A = A - P                                   FC5A128   186
                          11312                   BX3    X1*X2                                                   FC5A128   187
            60  0303000061 +                      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
            61  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
            62  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
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     7
                                                                      ALC 
  
                                        *         TABLES BY D2, THE LARGER RECIEVING THE MOST OF AM.             FC5A128   208
                                                                                                                 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
                          0430000070 +            ZR     B3,ALC33    IF LACT = 0                                 FC5A128   217
            63  21601                             AX6    1                                                       FC5A128   218
                     27606                        IX7    X6/X3                                                   FC5A128   219
            65  76530                             SX5    B3                                                      FC5A128   220
                     5170000171 +                 SA7    ALCD1+1     D1 = AA * 1/2 * 1/NAT                       FC5A128   221
                               27505              PX5    X5                                                      FC5A128   222
            66  24505                             NX5    X5                                                      FC5A128   223
                     44765                        FX7    X6/X5                                                   FC5A128   224
                          5170000173 +            SA7    ALCD2+1     D2 = AA * 1/2 * 1/LACT                      FC5A128   225
            67  0400000074 +                      EQ     ALC36                                                   FC5A128   226
                                                                                                                 FC5A128   227
            70  27606                    ALC33    IX7    X6/X3                                                   FC5A128   228
                               43600              MX6    0                                                       FC5A128   229
            72  5170000171 +                      SA7    ALCD1+1     D1 = AA * 1/NAT                             FC5A128   230
                          27606                   PX6    X6                                                      FC5A128   231
            73  5160000173 +                      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
            74  7170777776 X             ALC36    SX7    N.TABLE-1                                               FC5A128   240
                          47322                   CX3    X2                                                      FC5A128   241
                               77543              SX5    B4-B3       = L - LACT                                  FC5A128   242
            75  37373                             IX3    X7-X3       N - NAT                                     FC5A128   243
                     0305000102 +                 ZR     X5,ALC37    IF L - LACT = 0                             FC5A128   244
                               21101              AX1    1                                                       FC5A128   245
            76  27101                             IX7    X1/X3                                                   FC5A128   246
                               27505              PX5    X5                                                      FC5A128   247
           100  5170000170 +                      SA7    ALCD1       D1 = AI * 1/2 * 1/(N-NAT)                   FC5A128   248
                          24505                   NX5    X5                                                      FC5A128   249
                               44715              FX7    X1/X5                                                   FC5A128   250
           101  5170000172 +                      SA7    ALCD2       D2 = AI * 1/2 * 1/(L-LACT)                  FC5A128   251
                          0400000106 +            EQ     ALC38                                                   FC5A128   252
                                                                                                                 FC5A128   253
           102  43600                    ALC37    MX6    0                                                       FC5A128   254
                     27101                        IX7    X1/X3                                                   FC5A128   255
           104  27606                             PX6    X6                                                      FC5A128   256
                     5170000170 +                 SA7    ALCD1       D1 = AI * 1/(N-NAT)                         FC5A128   257
           105  5160000172 +                      SA6    ALCD2       D2 = 0                                      FC5A128   258
                                                                                                                 FC5A128   259
                                        **               PACK ALL TABLES DOWN TO BOTTOM OF TABLE SPACE           FC5A128   260
                                                                                                                 FC5A128   261
           106  63600                    ALC38    SB6    X0          (B6) = D, DEMANDED CHANGE                   FC5A128   262
                     5120000000 X                 SA2    O.TABS                                                  ALLOC     232
                               10022              BX0    X2                                                      ALLOC     233
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     8
                                                                      ALC 
  
           107  0100000000 X                      RJ     MTD         MOVE TABLES DOWN TO LOW CORE                ALLOC     234
           110  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
           111  5110000000 X                      SA1    T=PAR                                                   ALLOC     238
                          5120000417 +            SA2    ALCB                                                    ALLOC     239
           112  36612                             IX6    X1+X2                                                   ALLOC     240
                     54610                        SA6    A1          ALLOCATE MIN FOR T.PAR                      ALLOC     241
                          5110000000 X            SA1    O.TABS                                                  ALLOC     242
           113  5120000000 X                      SA2    L.TABS                                                  ALLOC     243
                          36512                   IX5    X1+X2       (X5) = F+S, LWA+1 OF CORE                   ALLOC     244
           114  6130777776 X                      SB3    N.TABLE-1                                               ALLOC     245
                                                                                                                 ALLOC     246
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     247
                          0440400114 +            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
           115  5130000000 X                      SA3    =XTV=CUR                                                FC5A128   265
                          6150000075              SB5    61                                                      FC5A128   266
           116  67453                             SB4    B5-B3                                                   FC5A128   267
                     22043                        LX0    B4,X3       SHIFT 60-N+1                                FC5A128   268
                                                                                                                 FC5A128   269
                                                                                                                 ALLOC     256
           117  67331                    ALC40    SB3    B3-B1       DECREMENT TABLE POINTER                     ALLOC     257
                     5123000000 X                 SA2    B3+BASES    (X2) = F(I),  TABLE ORIGIN                  ALLOC     258
           120  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
           121  5236000172 +                      SA3    ALCD2+X6    = D2                                        FC5A128   272
                          27101                   PX1    X1                                                      FC5A128   273
           122  5246000170 +                      SA4    ALCD1+X6                                                FC5A128   274
                          24101                   NX1    X1                                                      FC5A128   275
                               40731              FX7    X3*X1       = D2 * L(I)                                 FC5A128   276
           123  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
           124  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
           125  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
           126  0301000127 +                      ZR     X1,ALC50    IF EMPTY TABLE                              ALLOC     276
                          0100000000 X            MOVE   X1,X2,X3                                                ALLOC     277
           127  0531000117 +             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
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE     9
                                                                      ALC 
  
                                                                                                                 ALLOC     284
                          5130000000 X            SA3    T=PAR                                                   ALLOC     285
           130  5120000417 +                      SA2    ALCB                                                    ALLOC     286
                          37632                   IX6    X3-X2       DEALLOCATE T.PAR FUDGE                      ALLOC     287
                               54630              SA6    A3                                                      ALLOC     288
           131  5130000000 X                      SA3    O.TABS                                                  ALLOC     289
                          5120000000 X            SA2    BASES       FETCH FWA                                   ALLOC     290
           132  5110000000 X                      SA1    SIZES       FETCH SIZE                                  ALLOC     291
                          22603                   LX6    X3                                                      ALLOC     292
                               13432              BX4    X3-X2                                                   ALLOC     293
           133  54620                             SA6    A2                                                      ALLOC     294
                     0304000135 +                 ZR     X4,ALC60    IF LOWEST TABLE NOT MOVED                   ALLOC     295
           134  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
           135  5120000163 +             ALC60    SA2    ALC.REG                                                 ALLOC     301
                          54121                   =A1    A2+1        = OLD ORIGIN                                ALLOC     302
                               53320              SA3    X2          = NEW ORIGIN                                ALLOC     303
           136  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
           137  54620                             SA6    A2          STORE NEW REGISTER VALUE                    ALLOC     308
                                                                                                                 ALLOC     309
                                         .TEST    IFEQ   TEST,ON                                                 ALLOC     310
                     5110000000 X                 SA1    CO.SNAP                                                 ALLOC     311
                               20125              LX1    1RU                                                     ALLOC     312
           140  0321000143 +                      PL     X1,ALC61    IF SNAP=U NOT SELECTED                      ALLOC     313
                          5112000000 X            SA1    B2+NAMES                                                ALLOC     314
           141  43652                             MX6    42                                                      ALLOC     315
                     11661                        BX6    X6*X1                                                   ALLOC     316
                          5160000000 X            SA6    FILL.                                                   ALLOC     317
           142  6170000000 X                      TRIV   E.TC1       ISSUE CRASH MESSAGE                         ALLOC     318
                                                                                                                 ALLOC     319
           143                           ALC61    BSS    0                                                       ALLOC     320
                                         .TEST    ENDIF                                                          ALLOC     321
                                                                                                                 ALLOC     322
           143  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
                          5150000152 +            SA5    ALCA        +0 = (B2)                                   ALLOC     330
           144  63250                             SB2    X5                                                      ALLOC     331
                     54451                        =A4    A5+1        +1 = (B3)                                   ALLOC     332
                          63340                   SB3    X4                                                      ALLOC     333
                               54341              =A3    A4+1        +2 = (B4)                                   ALLOC     334
           145  63430                             SB4    X3                                                      ALLOC     335
                     54231                        =A2    A3+1        +3 = (B5)                                   ALLOC     336
                          63520                   SB5    X2                                                      ALLOC     337
                               54521              =A5    A2+1        +4 = (B6)                                   ALLOC     338
           146  63650                             SB6    X5                                                      ALLOC     339
                                                                                                                 ALLOC     340
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    10
                                                                      ALC 
  
                     54451                        =A4    A5+1        +5 = (A4)                                   ALLOC     341
                          54341                   =A3    A4+1        +6 = (A5)                                   ALLOC     342
                               54231              =A2    A3+1        +7 = (X4)                                   ALLOC     343
           147  53440                             SA4    X4                                                      ALLOC     344
                     53530                        SA5    X3                                                      ALLOC     345
                          54321                   =A3    A2+1        +8 = (X5)                                   ALLOC     346
                               10422              BX4    X2                                                      ALLOC     347
           150  22503                             LX5    X3                                                      ALLOC     348
                                                                                                                 ALLOC     349
                     5021000000 X                 SA2    A1+N.TABLE  RECLAIM L(T), TABLE LENGTH WORD             ALLOC     350
                               36612              IX6    X1+X2       F(T)+L(T)                                   ALLOC     351
           151  63760                             SB7    X6          (B7) = LWA + 1 OF TABLE                     ALLOC     352
                     0400000016 +                 EQ     EXIT.       EXIT...                                     ALLOC     353
                                                                                                                 ALLOC     354
                                        *                            SAVE CELLS DURING TABLE MOVES --            ALLOC     355
           152                     1     ALCA     BSS    1           (B2)                                        ALLOC     356
           153                     1              BSS    1           (B3)                                        ALLOC     357
           154                     1     ALC=B4   BSS    1           (B4)                                        ALLOC     358
           155                     1     ALC=B5   BSS    1           (B5)                                        ALLOC     359
           156                     1              BSS    1           (B6)                                        ALLOC     360
           157                     1              BSS    1           (A4)                                        ALLOC     361
           160                     1     ALC=A5   BSS    1           (A5)                                        ALLOC     362
           161                     1              BSS    1           (X4)                                        ALLOC     363
           162                     1              BSS    1           (X5)                                        ALLOC     364
                                                                                                                 ALLOC     365
                                 151 +   ALC=00   EQU    ALCA-1      FAKE, USED TO NO-OP RELATIVE REGISTER       ALLOC     366
                                                                                                                 ALLOC     367
           163  00000000000151 +         ALC.REG  VFD    24/0,18/ALC=00,18/BASES                                 ALLOC     368
                              000000 X
                                                  ENTRY  ALC.REG                                                 ALLOC     369
           164                     1              BSS    1           SAVE CELL FOR ORIGIN OF RELATIVE TABLE      ALLOC     370
                                                                                                                 ALLOC     371
           165  00000000000151 +         ALC.00   VFD    24/0,18/ALC=00,18/BASES                                 ALLOC     372
                              000000 X
                                                  ENTRY  ALC.00                                                  ALLOC     373
           166  00000000000154 +         ALC.STF  VFD    24/0,18/ALC=B4,18/T.STF                                 ALLOC     374
                              000000 X
                                                  ENTRY  ALC.STF                                                 ALLOC     375
           167  00000000000154 +         ALC.CAI  VFD    24/0,18/ALC=B4,18/T.PAR                                 ALLOC     376
                              000000 X
                                                  ENTRY  ALC.CAI                                                 ALLOC     377
           170                     2     ALCD1    BSS    2           CELL FOR D1 (ACTIVE AND INACTIVE)           FC5A128   283
                                                                                                                 FC5A128   284
           172                     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
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    11
                                                                      GMR 
  
                                        *         KEEPS  B2, X0                                                  ALLOC     388
                                        *                                                                        ALLOC     389
                                        *         CALLS  DLF, GMC, NOTE, OPEN, READ, REWIND, WRITER, WRITEW      ALLOC     390
                                                                                                                 ALLOC     391
                                                                                                                 ALLOC     392
           174  0400400174 +             GMR      SUBR   ...ENTRY/EXIT...                                        ALLOC     393
           175  76620                             SX6    B2          SAVE ENTRY CALL VALUES                      ALLOC     394
                     10700                        BX7    X0                                                      ALLOC     395
                          5160000306 +            SA6    GMRA        REQUESTING TABLE ORIGIN WORD ORDINAL        ALLOC     396
           176  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
           177  5110000000 X                      SA1    PASS                                                    ALLOC     404
                          5120000000 X            SA2    T=LINK                                                  ALLOC     405
           200  6221777772                        =B2    X1-PASS=FAS                                             ALLOC     406
                          5130000000 X            SA3    T=FILL                                                  ALLOC     407
           201  0520000211 +                      NZ     B2,GMR20    IF NOT IN ASSEMBLY PHASE                    ALLOC     408
                                                                                                                 ALLOC     409
                          5110000000 X            SA1    NREXT                                                   ALLOC     410
           202  36023                             IX0    X2+X3                                                   ALLOC     411
                     37701                        IX7    X0-X1                                                   ALLOC     412
                          5130000000 X            SA3    T=XFIL                                                  ALLOC     413
           203  36773                             IX7    X7+X3                                                   ALLOC     414
                     6277777775                   SB7    X7-2                                                    ALLOC     415
           204  0607000211 +                      LE     B7,GMR20    IF NO ROOM TO BUY                           ALLOC     416
                                                                                                                 ALLOC     417
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                ALLOC     418
                          5110000000 X            SA1    CO.SNAP                                                 ALLOC     419
           205  20124                             LX1    1RT                                                     ALLOC     420
                     0321000207 +                 PL     X1,GMR10    IF NO TABLE SNAP REQUESTED                  ALLOC     421
           206  6170000000 X                      TRIV   E.MO7       LINK AND FILL DUMPED                        ALLOC     422
                                         .TEST    ENDIF                                                          ALLOC     423
                                                                                                                 ALLOC     424
           207  0100000000 X             GMR10    CALL   DLF         DUMP LINK AND FILL                          ALLOC     425
           210  0400000240 +                      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
           211  5140000000 X             GMR20    SA4    NOM.FL                                                  FC5A132    47
                          5130000000 X            SA3    CP.AFLS     TOTAL FIELD LENGTH                          FC5A132    48
           212  7160002000                        SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL FC5A132    49
                          37243                   IX2    X4-X3                                                   FC5A132    50
           213  0322000214 +                      PL     X2,GMR30    IF FL .LT. NOMINAL                          FC5A132    51
                          7160004000              SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL FC5A132    52
                                                                                                                 FC5A132    53
           214  67701                    GMR30    =B7    PASS=MAP-PASS=FAS                                       FC5A132    54
                     0472000233 +                 EQ     B7,B2,GMR70 IF IN REF MAP PASS, GET MORE CORE           FC5A132    55
           215  5120000000 X                      SA2    T=REF                                                   FC5A132    56
                          5110000310 +            SA1    GMRA+2      (X1) = - (AMOUNT NEEDED)                    ALLOC     445
           216  36221                             IX2    X2+X1                                                   ALLOC     446
                     0332000233 +                 MI     X2,GMR70    IF NO ROOM TO BUY                           ALLOC     447
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    12
                                                                      GMR 
  
                                                                                                                 ALLOC     448
           217  5110000000 X                      SA1    REFIO                                                   ALLOC     449
                          0331000233 +            MI     X1,GMR70    IF REFS ALREADY SPILLED                     ALLOC     450
           220  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
           226  5130000000 X             GMR60    SA3    T=REF                                                   ALLOC     457
                          5110000000 X            SA1    T.REF                                                   ALLOC     458
           227  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
           231  6170000000 X                      TRIV   E.MO5       CROSS REFERENCE GOES TO DISK                ALLOC     463
                                                                                                                 ALLOC     464
           232  0400000240 +                      EQ     GMR80       TRY AGAIN...                                ALLOC     465
                                                                                                                 ALLOC     466
                                                                                                                 ALLOC     467
                                        **        WE NEED MORE CORE.                                             ALLOC     468
                                                                                                                 ALLOC     469
           233  0100000000 X             GMR70    RJ     GMC         GET MORE CORE                               ALLOC     470
           234  0470000242 +                      ZR     B7,GMR90    IF REQUEST FAILED                           ALLOC     471
                                                                                                                 ALLOC     472
                          5110000000 X            SA1    O.TABS      BEGINNING OF TABLES                         ALLOC     473
           235  5160000000 X                      SA6    =XT.END                                                 FC5A128   287
                          37661                   IX6    X6-X1                                                   ALLOC     474
           236  5160000000 X                      SA6    L.TABS      AMOUNT OF CORE TO BE MANAGED                ALLOC     475
                          21604                   AX6    FLSLOP                                                  ALLOC     476
           237  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
           240  5130000307 +             GMR80    SA3    GMRA+1      RESTORE TABLE SIZE                          ALLOC     484
                          55231                   =A2    A3-1        AND ORDINAL                                 ALLOC     485
                               10033              BX0    X3                                                      ALLOC     486
           241  63220                             SB2    X2                                                      ALLOC     487
                     0400000174 +                 EQ     EXIT.       EXIT...                                     ALLOC     488
                                                                                                                 ALLOC     489
                                                                                                                 ALLOC     490
                                        **        IT WAS ALL TO NO AVAIL.  REPORT FAILURE AND ABORT.             ALLOC     491
                                                                                                                 ALLOC     492
           242  5110000310 +             GMR90    SA1    GMRA+2      -(AMOUNT NEEDED)                            ALLOC     493
                          5120000000 X            SA2    THRESH                                                  ALLOC     494
           243  36121                             IX1    X2+X1                                                   ALLOC     495
                     0331000247 +                 MI     X1,GMR92    IF NOT THRESHOLD ALARM                      ALLOC     496
                                                                                                                 ALLOC     497
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     498
           244  0100000314 +                      CALL   PTA         PRINT THRESHOLD ALARM                       ALLOC     499
                                                                                                                 ALLOC     500
           245  43600                             MX6    0                                                       ALLOC     501
                     5160000000 X                 SA6    THRESH      ALLOW USE OF THRESH AREA                    ALLOC     502
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    13
                                                                      GMR 
  
           246  0400000240 +                      EQ     GMR80                                                   FC50007     6
                                                                                                                 ALLOC     504
           247  5120000000 X             GMR92    SA2    FAILSFT                                                 ALLOC     505
                          0312000273 +            NZ     X2,GMR94    IF ALREADY HAD OVERFLOW                     ALLOC     506
           250  5110000000 X                      SA1    PASS                                                    FC50889     9
                          0311000256 +            NZ     X1,GMR93    IF NOT FRONT END PROCESSING                 FC50889    10
                                   0              ERRNZ  PASS=FE                                                 FC50889    11
           251  5110000000 X                      SA1    LEXFLG                                                  FC50889    12
                                                  HX1    LF.HDR                                                  FC50889    13
                          0321000256 +            PL     X1,GMR93    IF NOT HEADER DELAY                         FC50889    14
           252  5110000000 X                      SA1    T=STMT                                                  FC50889    15
                          0301000256 +            ZR     X1,GMR93    IF NOTHING TO TRASH                         FC50889    16
           253  0100000000 X                      CALL   LDB         LIST THE DEFFERED BUFFER                    FC50889    17
           254  76600                             SHRINK T=STMT,0                                                FC50889    18
           255  0400000240 +                      EQ     GMR80                                                   FC50889    19
                                                                                                                 ALLOC     507
           256  13666                    GMR93    BX6    0                                                       FC50889    20
                     73721                        =X7    X2+1                                                    ALLOC     509
                          5160000000 X            SHRINK T=STF,X6                                                ALLOC     510
           257  54720                             SA7    A2          SET FAILSOFT FLAG                           ALLOC     511
                     5160000000 X                 SHRINK T=DIM,X6                                                ALLOC     512
           260  5160000000 X                      SHRINK T=SCR,X6                                                ALLOC     513
                          5160000000 X            SHRINK T=CON,X6                                                ALLOC     514
           261  5160000000 X                      SHRINK T=BLST,X6                                               ALLOC     515
                          5160000000 X            SHRINK T=EQUS,X6                                               ALLOC     516
           262  5160000000 X                      SHRINK T=FMT,X6                                                ALLOC     517
                          5160000000 X            SHRINK T=PAR,X6                                                ALLOC     518
           263  5160000000 X                      SHRINK T=NLST,X6                                               ALLOC     519
                          5160000000 X            SHRINK T=APL,X6                                                ALLOC     520
           264  5160000000 X                      SHRINK T=GL,X6                                                 ALLOC     521
                          5160000000 X            SHRINK T=DATS,X6                                               ALLOC     522
           265  5160000000 X                      SHRINK T=REF,X6                                                ALLOC     523
                          7170000000 X            =X7    FEC=BY                                                  ALLOC     524
           266  5160000000 X                      SHRINK T=BLKS,X6                                               ALLOC     525
                          5160000000 X            SHRINK T=ENT,X6                                                ALLOC     526
           267  5170000000 X                      SA7    STAGE       BYPASS REST OF PROGRAM                      ALLOC     527
                          6170000000 X            FATAL  E.MO2                                                   ALLOC     528
           271  5110000000 X                      SA1    PASS                                                    ALLOC     529
                          7211777774              SX1    X1-PASS=END                                             ALLOC     530
           272  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
           273  5110000000 X             GMR94    SA1    IDENT       ROUTINE NAME 0L FORMAT                      ALLOC     539
                          10611                   BX6    X1                                                      ALLOC     540
           274  5160000313 +                      SA6    GMRC                                                    ALLOC     541
                          7110000311 +            PLINE  GMRB,3,2                                                ALLOC     542
           277  7110000311 +                      MESSAGE GMRB,,RCL                                              ALLOC     543
           301  7120000000 X                      WRITER F.OUT                                                   ALLOC     544
           303  7120000000 X                      WRITER F.LGO                                                   ALLOC     545
           305  0400000000 X                      EQ     ABTFTN      EXIT TO ABORT JOBSTEP...                    ALLOC     546
                                                                                                                 ALLOC     547
           306  00000000000000000000     GMRA     DATA   0,0         TEMPORARY STORAGE FOR OVERFLOW              ALLOC     548
           310  00000000000000000000              CON    0           SAVE CORE REQUIRED                          ALLOC     549
           311  55240102140555172605     GMRB     DIS    2, TABLE OVERFLOW IN                                    ALLOC     550
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    14
                                                                      GMR 
  
           313  00000000000000000000     GMRC     CON    0           ROUTINE NAME 0L FORMAT                      ALLOC     551
  
  
  
  
                                         .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
           314  0400400314 +             PTA      SUBR   =           ...ENTRY/EXIT...                            ALLOC     564
           315  5110000000 X                      SA1    THRESH                                                  ALLOC     565
                          0100000000 X            CALL   COD         CONVERT OCTAL DIGITS                        ALLOC     566
           316  10644                             BX6    X4                                                      ALLOC     567
                     5160000000 X                 SA6    FILL.                                                   ALLOC     568
           317  5110000000 X                      SA1    MAX.FL                                                  ALLOC     569
                          21136                   AX1    30                                                      ALLOC     570
           320  0100000000 X                      CALL   COD         CONVERT OCTAL DIGITS                        ALLOC     571
           321  10644                             BX6    X4                                                      ALLOC     572
                     5160000000 X                 SA6    FILL.2                                                  ALLOC     573
           322  6170000000 X                      TRIV   E.MO6       THRESHOLD REACHED                           ALLOC     574
           323  0400000314 +                      EQ     EXIT.       EXIT...                                     ALLOC     575
  
  
  
  
                                        **        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
           324  0400400324 +             PTS      SUBR   =           ** ENTRY/EXIT **                            ALLOC     585
           325  10600                             BX6    X0                                                      ALLOC     586
                     5160000370 +                 SA6    PTSA        SAVE X0                                     ALLOC     587
                               76620              SX6    B2                                                      ALLOC     588
           326  54661                             =A6    A6+1        SAVE B2                                     ALLOC     589
                     74600                        SX6    A0                                                      ALLOC     590
                          54661                   =A6    A6+1        SAVE A0                                     ALLOC     591
           327  5130000000 X                      SA3    MOVES                                                   ALLOC     592
                          5120000000 X            SA2    CO.SNAP                                                 ALLOC     593
           330  20224                             LX2    1RT                                                     ALLOC     594
                     73631                        SX6    X3+B1       COUNT TABLE CRASHES                         ALLOC     595
                          54630                   SA6    A3                                                      ALLOC     596
           331  0322000324 +                      PL     X2,EXIT.    IF SNAP NOT DESIRED                         ALLOC     597
                          5120000016 +            SA2    ALC                                                     ALLOC     598
           332  21236                             AX2    30                                                      ALLOC     599
                     6170000010 +                 SB7    ADW.ALC     SEE IF CALLED BY ADW                        ALLOC     600
                               67707              SB7    -B7                                                     ALLOC     601
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    15
                                                                      PTS 
  
           333  63727                             SB7    X2+B7                                                   ALLOC     602
                     0570000337 +                 NZ     B7,PTS2     IF NOT CALLED FROM ADDWORD                  ALLOC     603
           334  7110000373 +                      PLINE  PTSB,PTSBL                                              ALLOC     604
           336  5120000000 +                      SA2    ADW                                                     ALLOC     605
                          21236                   AX2    30                                                      ALLOC     606
           337  73120                    PTS2     SX1    X2                                                      ALLOC     607
                     6170000341 +                 SB7    PTS3        RETURN ADDRESS                              ALLOC     608
           340  0400000000 X                      EQ     FRA=        FIND RELATIVE ADDRESS                       ALLOC     609
           341  5160000401 +             PTS3     SA6    PTSC1                                                   ALLOC     610
                          54761                   =A7    A6+1                                                    ALLOC     611
           342  7110000376 +                      PLINE  PTSC,PTSCL                                              ALLOC     612
                                                                                                                 ALLOC     613
           344  5110000371 +                      SA1    PTSA+1      (X1) = TABLE ORDINAL                        ALLOC     614
                          63510                   SB5    X1                                                      ALLOC     615
           345  0100000000 X                      CALL   COD         CONVERT OCTAL DIGITS                        ALLOC     616
           346  5160000405 +                      SA6    PTSE1       TABLE NUMBER                                ALLOC     617
                          5110000370 +            SA1    PTSA        (X1) = INCREMENT TO TABLE SIZE              ALLOC     618
           347  0100000000 X                      RJ     COD         CONVERT INCREMENT                           ALLOC     619
           350  5160000407 +                      SA6    PTSE2                                                   ALLOC     620
                          5115000000 X            SA1    B5+SIZES                                                ALLOC     621
           351  0100000000 X                      RJ     COD         CONVERT PREVIOUS SIZE                       ALLOC     622
           352  5160000411 +                      SA6    PTSE3                                                   ALLOC     623
                          7110000403 +            PLINE  PTSE,PTSEL                                              ALLOC     624
           355  0100000000 X                      CALL   PTO         PRINT TABLE ORIGINS                         ALLOC     625
           356  5120000370 +                      SA2    PTSA        (X2) = INCREMENT                            ALLOC     626
                          36102                   IX1    X0+X2       TOTAL TABLE SPACE USED                      ALLOC     627
           357  0100000000 X                      RJ     COD         CONVERT NECESSARY STORAGE                   ALLOC     628
           360  5160000414 +                      SA6    PTSF1                                                   ALLOC     629
                          5110000000 X            SA1    L.TABS                                                  ALLOC     630
           361  0100000000 X                      RJ     COD                                                     ALLOC     631
           362  5160000416 +                      SA6    PTSF2                                                   ALLOC     632
                          7110000412 +            PLINE  PTSF,PTSFL                                              ALLOC     633
           365  5110000370 +                      SA1    PTSA                                                    ALLOC     634
                          10011                   BX0    X1          RESTORE X0                                  ALLOC     635
                               54211              =A2    A1+1                                                    ALLOC     636
           366  63220                             SB2    X2          RESTORE B2                                  ALLOC     637
                     54121                        =A1    A2+1                                                    ALLOC     638
                          53010                   SA0    X1          RESTORE A0                                  ALLOC     639
           367  0400000324 +                      EQ     EXIT.       EXIT...                                     ALLOC     640
                                                                                                                 ALLOC     641
           370                     3     PTSA     BSS    3           X0, B2, A0                                  ALLOC     642
                                                                                                                 ALLOC     643
           373  55555555555555555555     PTSB     DATA   H/          CALLED FROM *ADDWD*./                       ALLOC     644
                                   3     PTSBL    EQU    *-PTSB                                                  ALLOC     645
                                                                                                                 ALLOC     646
           376  55555555555555555555     PTSC     DATA   H/          CALLED FROM /                               ALLOC     647
           401  00000000000000000000     PTSC1    DATA   0,0         *NNNNNN IN ROUTINENAME*                     ALLOC     648
                                   5     PTSCL    EQU    *-PTSC                                                  ALLOC     649
                                                                                                                 ALLOC     650
           403  55552401021405551625     PTSE     DIS    2,  TABLE NUMBER                                        ALLOC     651
           405  00000000000000000000     PTSE1    DATA   0           TABLE ORDINAL                               ALLOC     652
           406  55010404111607555555              DIS    1, ADDING                                               ALLOC     653
           407  00000000000000000000     PTSE2    DATA   0           INCREMENT TO SIZE                           ALLOC     654
           410  55241755202205265555              DIS    1, TO PREV                                              ALLOC     655
           411  00000000000000000000     PTSE3    DATA   0           ORIGINAL TABLE LENGTH                       ALLOC     656
                                   7     PTSEL    EQU    *-PTSE                                                  ALLOC     657
                                                                                                                 ALLOC     658
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    16
                                                                      PTS 
  
           412  55551617275525231116     PTSF     DIS    2,  NOW USING                                           ALLOC     659
           414  00000000000000000000     PTSF1    DATA   0           TOTAL USED, INCLUDING INCREMENT             ALLOC     660
           415  55172524551706555555              DIS    1, OUT OF                                               ALLOC     661
           416  00000000000000000000     PTSF2    DATA   0           SIZE OF TABLE AREA                          ALLOC     662
                                   5     PTSFL    EQU    *-PTSF                                                  ALLOC     663
                                         .TEST    ENDIF                                                          ALLOC     664
                                                                                                                 ALLOC     665
                                                                                                                 ALLOC     666
                                                  LIST   D                                                       ALLOC     667
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        TV=CUR
             0 X                        ALC.PAR 
           417                          ALCB
             0 X                        TV=DECL 
             0 X                        TV=EXU
             0 X                        T.END 
  
           420                                    END                                                            ALLOC     668
  
                             74200B CM  STORAGE USED             1903 STATEMENTS     1485 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.545 SECONDS         421 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN          0   EXTERNAL*       1/48 X   13/53
        ADW             0   PROGRAM*        2/40 L    2/40 E   15/04
        ADWT           12   PROGRAM*        3/01 S    3/04      3/09 L    3/09 E
        ADW10           6   PROGRAM*        2/50      2/56 L
        ADW.ALC        10   PROGRAM*        3/03 L    3/03 E   14/56
        ALC            16   PROGRAM*        3/02      4/20 L    4/20 E   14/54
        ALCA          152   PROGRAM*        4/56 S    9/47     10/16 L   10/26
        ALCB          417   PROGRAM*        6/23 S    8/06      9/03
        ALCD1         170   PROGRAM*        7/14 S    7/23 S    7/41 S    7/50 S    8/35     10/42 L
        ALCD2         172   PROGRAM*        7/18 S    7/25 S    7/44 S    7/51 S    8/33     10/44 L
        ALC10          34   PROGRAM*        5/38 L    6/28
        ALC14          37   PROGRAM*        5/43      5/46 L
        ALC20          41   PROGRAM*        5/52 L    6/02
        ALC22          43   PROGRAM*        5/55      6/01 L
        ALC26          52   PROGRAM*        6/18      6/21 L
        ALC30          56   PROGRAM*        6/25      6/32 L
        ALC32          61   PROGRAM*        6/38      6/45 L
        ALC33          70   PROGRAM*        7/10      7/21 L
        ALC36          74   PROGRAM*        7/19      7/33 L
        ALC37         102   PROGRAM*        7/37      7/47 L
        ALC38         106   PROGRAM*        7/45      7/55 L
        ALC40         117   PROGRAM*        8/28 L    8/52
        ALC50         127   PROGRAM*        8/50      8/52 L
        ALC60         135   PROGRAM*        9/12      9/18 L
        ALC61         143   PROGRAM*        9/30      9/37 L
        ALC=A5        160   PROGRAM*       10/22 L
        ALC=B4        154   PROGRAM*       10/18 L   10/36     10/39
        ALC=B5        155   PROGRAM*       10/19 L
        ALC=CNT         0   EXTERNAL*       2/01 X    4/23
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        ALC=00        151   PROGRAM*       10/26 D   10/28     10/33
        ALC.CAI       167   PROGRAM*       10/39 L   10/41 E
        ALC.PAR         0   EXTERNAL*       6/15
        ALC.REG       163   PROGRAM*        5/21      9/18     10/28 L   10/30 E
        ALC.STF       166   PROGRAM*       10/36 L   10/38 E
        ALC.00        165   PROGRAM*       10/33 L   10/35 E
        BASES           0   EXTERNAL*       2/07 X    5/14      8/29      9/07      9/40     10/28     10/33     12/06
        BINIO           0   EXTERNAL*       2/07 X
        B1=1            0 
        CIO=            0   EXTERNAL*       2/14 X   13/51     13/52
        COD             0   EXTERNAL*       1/48 X   14/19     14/24     15/15     15/18     15/21     15/27     15/30
        CO.SNAP         0   EXTERNAL*       1/48 X    9/28     11/32     14/49
        CP.AFLS         0   EXTERNAL*       1/48 X   11/46
        CP#RM           0   FTX            12/08 F
        DLF             0   EXTERNAL*       1/39 X   11/38
        E.MO2           0   EXTERNAL*       1/45 X   13/37
        E.MO4           0   EXTERNAL*       1/45 X
        E.MO5           0   EXTERNAL*       1/45 X   12/17
        E.MO6           0   EXTERNAL*       1/45 X   14/27     14/27
        E.MO7           0   EXTERNAL*       1/45 X   11/35     11/35
        E.TC1           0   EXTERNAL*       1/45 X    9/35
        FAILSFT         0   EXTERNAL*       2/07 X   13/03
        FEC=BY          0   EXTERNAL*       1/42 X   13/33
        FEC.RTN         0   EXTERNAL*       1/42 X   13/40
        FILL.           0   EXTERNAL*       1/45 X    9/34 S   14/21 S
        FILL.2          0   EXTERNAL*       1/45 X   14/26 S
        FLSLOP          4   FTX            12/31
        FLSLUP2      1400   FTX            12/32
        FRA=            0   EXTERNAL*       2/14 X   15/08
        FUDGE           1   FTX             2/44      4/31      6/06      8/42
        F.LGO           0   EXTERNAL*       1/48 X   13/52     13/52
        F.OUT           0   EXTERNAL*       1/48 X   13/51
        F.PB            0   EXTERNAL*       1/48 X
        F.REF           0   EXTERNAL*       1/48 X   12/14
        GMC             0   EXTERNAL*       2/07 X   12/24
        GMR           174   PROGRAM*        6/27     11/06 L
        GMRA          306   PROGRAM*       11/09 S   11/55     12/39     12/48     13/55 L
        GMRB          311   PROGRAM*       13/49     13/50     13/57 L
        GMRC          313   PROGRAM*       13/48 S   14/01 L
        GMR10         207   PROGRAM*       11/34     11/38 L
        GMR20         211   PROGRAM*       11/21     11/29     11/45 L
        GMR30         214   PROGRAM*       11/49     11/52 L
        GMR60         226   PROGRAM*       12/11 L
        GMR70         233   PROGRAM*       11/53     11/57     12/03     12/24 L
        GMR80         240   PROGRAM*       11/39     12/19     12/39 L   13/01     13/15
        GMR90         242   PROGRAM*       12/25     12/48 L
        GMR92         247   PROGRAM*       12/51     13/03 L
        GMR93         256   PROGRAM*       13/06     13/10     13/12     13/17 L
        GMR94         273   PROGRAM*       13/04     13/46 L
        IDENT           0   EXTERNAL*       2/07 X   13/46
        INC.GTN      4000   FTX            11/50
        INC.LTN      2000   FTX            11/47
        LDB             0   EXTERNAL*       1/55 X   13/13
        LEXFLG          0   EXTERNAL*       1/55 X   13/08
        L.TABS          0   EXTERNAL*       2/07 X    6/04      8/10     12/30 S   15/29
        MAX.FL          0   EXTERNAL*       1/49 X   14/22
        MOVES           0   EXTERNAL*       2/01 X   14/48
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        MSG=            0   EXTERNAL*       1/49 X   13/50
        MTD             0   EXTERNAL*       2/07 X    8/01
        MVE=            0   EXTERNAL*       2/14 X    8/51      9/13
        NAMES           0   EXTERNAL*       2/08 X    9/31
        NOM.FL          0   EXTERNAL*       1/49 X   11/45
        NREXT           0   EXTERNAL*       2/08 X   11/23
        N.TABLE         0   EXTERNAL*       2/08 X    4/28      6/06      8/12     10/10
                                            2/41      5/48      7/33      8/30
        O.TABS          0   EXTERNAL*       2/08 X    7/56      8/09      9/06     12/27
        PASS            0   EXTERNAL*       2/08 X   11/17     13/05     13/38
        PASS=END        3   FTX            13/39
        PASS=FAS        5   FTX            11/19     11/52
        PASS=FE         0   FTX            13/07
        PASS=MAP        4   FTX            11/52
        PDM             0   EXTERNAL*       2/04 X    9/35     11/35     12/17     13/37     14/27
        PTA           314   PROGRAM*       12/54     14/17 L   14/17 E
        PTO             0   EXTERNAL*       1/52 X   15/24
        PTS           324   PROGRAM*        5/27     14/41 L   14/41 E
        PTSA          370   PROGRAM*       14/43 S   15/13     15/17     15/25     15/33     15/41 L
        PTSB          373   PROGRAM*       15/03     15/43 L   15/44
        PTSBL           3                  15/03     15/44 D
        PTSC          376   PROGRAM*       15/11     15/46 L   15/48
        PTSCL           5                  15/11     15/48 D
        PTSC1         401   PROGRAM*       15/09 S   15/47 L
        PTSE          403   PROGRAM*       15/23     15/50 L   15/56
        PTSEL           7                  15/23     15/56 D
        PTSE1         405   PROGRAM*       15/16 S   15/51 L
        PTSE2         407   PROGRAM*       15/19 S   15/53 L
        PTSE3         411   PROGRAM*       15/22 S   15/55 L
        PTSF          412   PROGRAM*       15/32     16/01 L   16/05
        PTSFL           5                  15/32     16/05 D
        PTSF1         414   PROGRAM*       15/28 S   16/02 L
        PTSF2         416   PROGRAM*       15/31 S   16/04 L
        PTS2          337   PROGRAM*       15/02     15/06 L
        PTS3          341   PROGRAM*       15/07     15/09 L
        REFIO           0   EXTERNAL*       2/08 X   12/02
        SIZES           0   EXTERNAL*       2/08 X    5/52      6/13      8/02      9/08     15/20
        STAGE           0   EXTERNAL*       1/42 X   13/36 S
        TEST            1   FTX             4/22 F    5/26 F    9/27 F   12/16 F   14/06 F
                                            4/43 F    8/14 F   11/31 F   12/53 F
        THRESH          0   EXTERNAL*       2/08 X    6/21     12/33 S   12/49     12/57 S   14/18
        TV=CUR          0   EXTERNAL*       5/38      6/32      8/22     12/06
        TV=DECL         0   EXTERNAL*      12/06
        TV=EXU          0   EXTERNAL*      12/06
        T=APL           0   EXTERNAL*       2/09 X   13/29     13/29 S
        T=BLKS          0   EXTERNAL*       2/09 X   13/34     13/34 S
        T=BLST          0   EXTERNAL*       2/09 X   13/24     13/24 S
        T=CON           0   EXTERNAL*       2/09 X   13/23     13/23 S
        T=DATS          0   EXTERNAL*       2/09 X   13/31     13/31 S
        T=DIM           0   EXTERNAL*       2/09 X   13/21     13/21 S
        T=ENT           0   EXTERNAL*       2/09 X   13/35     13/35 S
        T=EQUS          0   EXTERNAL*       2/09 X   13/25     13/25 S
        T=FILL          0   EXTERNAL*       2/10 X   11/20
        T=FMT           0   EXTERNAL*       2/10 X   13/26     13/26 S
        T=GL            0   EXTERNAL*       2/10 X   13/30     13/30 S
        T=LINK          0   EXTERNAL*       2/10 X   11/18
        T=NLST          0   EXTERNAL*       2/10 X   13/28     13/28 S
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/05. 19.58.07.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        T=PAR           0   EXTERNAL*       2/10 X    6/14      8/05      9/02     13/27     13/27 S
        T=REF           0   EXTERNAL*       2/10 X   11/54     12/11     13/32     13/32 S
        T=SCR           0   EXTERNAL*       2/10 X   13/22     13/22 S
        T=STF           0   EXTERNAL*       2/11 X   13/19     13/19 S
        T=STMT          0   EXTERNAL*       2/11 X   13/11     13/14     13/14 S
        T=XFIL          0   EXTERNAL*       2/11 X   11/26
        T.END           0   EXTERNAL*      12/28 S
        T.PAR           0   EXTERNAL*       2/11 X   10/39
        T.REF           0   EXTERNAL*       2/11 X   12/06     12/12
        T.STF           0   EXTERNAL*       2/11 X   10/36
        WOF             0   EXTERNAL*       2/11 X   13/49     15/03     15/11     15/23     15/32
        WTW=            0   EXTERNAL*       2/14 X   12/14
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     6532              IDENT  IDP
                       6532                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      6164 
                                        LITERALS* LOCAL        6164       346 
  
  
                                        ENTRY POINTS. 
  
                                        B=IDP            0+           IDP=PAS       3603+           IDP=SKT       4157+ 
                                        IDP=          1515+           IDP=PAT       3741+           IDP=SOB       4213+ 
                                        REG=          1663+           PAT#FWA        157+           IDP=CDD       4756+ 
                                        SNP=          1700+           PAT#LEN        161+           IDP=COD       5002+ 
                                        ROL=          4115+           IDP=DXB       5022+           IDP=WOD       5643+ 
                                        RSR=          6125+           IDP=MCS       5031+           IDP=ZTB       6043+ 
                                        SNAPLNE        607+           IDP=SFN       5274+           RSR           6125+ 
                                        SOB           4213+           IDP=SYS       5416+           SVR           6102+ 
                                        SVR=          6102+           IDP=SVB        422+           RESET=        6125+ 
                                        UKT=LNK          5+           IDP=SVA        432+           SVB           6052+ 
                                        PTO             12+           IDP=SVX        442+           SAV.B         6052+ 
                                        UIO=           104+           IDPFLG         454+           SV=B          6052+ 
                                        URO=           113+           FW=IDPL        452+           SVA           6062+ 
                                        USO=           121+           IDP=CAD       2416+           SAV.A         6062+ 
                                        IDP=USY        141+           IDP=CHK       2447+           SV=A          6062+ 
                                        IDP=MN        1553+           IDP=DAR       2644+           SVX           6072+ 
                                        IDP=ER        1642+           DCM=          3132+           SAV.X         6072+ 
                                        IDP=CLZ       2546+           IDP=FRK       3342+           SV=X          6072+ 
                                        IDP=FLL       3265+           IDP=HDR       3411+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   F.IN      ALTNAM    NAMES     SIZES     RPV=RNA   UFR=    * FAA=    * 
                                        CP.NFLS   F.OUT     BASES     N.TABLE   WOF       FRA=      UFO=    * WNB=
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    10
                                                  IDENT  IDP                                                     IDP         4
                                         IDP      SECT   (INTERACTIVE DEBUG PACKAGE)                             IDP         5
  
  
  
  
  
                                        *         IN FTN                                                         IDP         7
                                                  EXT    CO.SNAP,CP.NFLS,F.IN,F.OUT                              IDP         8
                                                                                                                 IDP         9
                                        *         IN PUC                                                         IDP        10
                                                  EXT    ALTNAM,BASES,NAMES,N.TABLE,SIZES,WOF                    IDP        11
                                                                                                                 IDP        12
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     2
                                                                      IDP 
  
                                        *         IN RPV10                                                       IDP        13
                                                  EXT    RPV=RNA                                                 IDP        14
                                                                                                                 IDP        15
                                        *         IN UTILITY                                                     IDP        16
                                                  EXT    FRA=                                                    IDP        17
  
  
  
  
                                        ***       IDP - INTERACTIVE DEBUGGING PACKAGE.                           IDP        19
                                        *                                                                        IDP        20
                                        *                                                                        IDP        21
                                        *         THIS IS THE IDP PACKAGE THAT IS COMMON TO ALL FTN 5 OVERLAYS.  IDP        22
                                        *         IT **SHOULD** NOT CONTAIN ANY OVERLAY SPECIFIC STUFF.  IT      IDP        23
                                        *         IS INTENDED TO BE COMMON TO ALL OVERLAYS, AND BECAUSE IT       IDP        24
  
  
  
  
                                        ***       DEFINE IDP LINKAGE SYMBOLS.                                    IDP        26
                                        *                                                                        IDP        27
                                        *                                                                        IDP        28
                                                                                                                 IDP        29
                                         F.BDO    EQUEXT F.OUT                                                   IDP        30
                                                                                                                 IDP        31
                                         #IDPOS   IFNE   .OS,2,1                                                 FC5A158A  296
                                                  ENTRY  IDP=                                                    FC5A158A  297
                                                                                                                 FC5A158A  298
                                                  ENTRY  REG=,SNP=                                               FC5A158A  299
                                                                                                                 IDP        33
                                                  ENTRY  ROL=,RSR=                                               IDP        34
                                                  ENTRY  SNAPLNE,SOB,SVR=                                        IDP        35
  
  
  
  
                                        **        IDPENT - DECLARE IDP ENTRY POINT.                              IDP        37
                                        *                                                                        IDP        38
                                        *                                                                        IDP        39
                                        * LOC     IDPENT SYM                                                     IDP        40
                                        *                                                                        IDP        41
                                        *         ENTRY  LOC = OPTIONAL LOCATION FIELD FOR SYMBOL TO BE DECLARED IDP        42
                                        *                      AN ENTRY POINT.                                   IDP        43
                                        *                                                                        IDP        44
                                        *                SYM = /IDP/SYM TO BE DECLARED AS AN ENTRY POINT.        IDP        45
                                        *                                                                        IDP        46
                                        *                                                                        IDP        47
                                        *         EXIT   NONE                                                    IDP        48
                                        *                                                                        IDP        49
                                        *         USES   NONE                                                    IDP        50
                                        *                                                                        IDP        51
                                        *         CALLS  EQUENT                                                  IDP        52
                                                                                                                 IDP        53
                                                                                                                 IDP        54
                                                  PURGMAC IDPENT                                                 IDP        55
                                                                                                                 IDP        56
                                                  MACRO  IDPENT,LOC,SYM                                          IDP        57
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     3
                                                                      IDPENT
  
                                         SYM = /IDP/SYM                                                          IDP        58
                                         '?ID#001 IFC EQ, LOC                                                    IDP        59
                                         IDP=SYM EQUENT SYM                                                      IDP        60
                                         '?ID#001 ELSE                                                           IDP        61
                                         LOC EQUENT SYM                                                          IDP        62
                                         '?ID#001 ENDIF                                                          IDP        63
                                         IDPENT   ENDM                                                           IDP        64
  
  
  
  
                                        **        OI. - DEFINE/SET UP IDP OPTIONS.                               IDP        66
                                        *                                                                        IDP        67
                                        *                                                                        IDP        68
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  300
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     4
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     5
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     6
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     7
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     8
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE     9
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    10
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    11
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    12
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    13
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    14
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    15
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    16
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    17
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    18
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    19
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    20
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    21
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    22
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    23
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    24
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    25
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    26
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    27
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    28
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    29
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    30
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    31
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    32
        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    33
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMTOK
  
                                         E RMT                                                                   COMATOK  1550
                                         '?TKMTOK ENDM                                                           COMATOK  1551
                                         COMATOK  ENDX                                                           COMATOK  1552
                                         #IDPOS   ENDIF                                                          FC5A158A  302
  
  
  
  
                                                  QUAL   IDP                                                     IDP        71
                                                                                                                 IDP        72
                                                                                                                 IDP        73
                                   1     QUAL$    =      1           DESELECT COMDECK QUALS                      IDP        74
                                                                                                                 IDP        75
                                   0     TEST     =      0           DESELECT *TEST* MODE FOR IDP                IDP        76
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    34
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           COMSIDP             IDP 
  
                                 D_D              BASE   D                                                       COMSIDP     4
  
  
  
  
                                        ***       COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.            COMSIDP     6
                                        *         75/11/01           P CLARE                                     COMSIDP     7
                                        *         77/05/12           P CLARE                                     COMSIDP     8
  
  
  
  
                                        ***       COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.            COMSIDP    10
                                        *                                                                        COMSIDP    11
                                        *                                                                        COMSIDP    12
                                        *         *COMSIDP* CONTAINS THE MACRO AND SYMBOL DEFINITIONS USED       COMSIDP    13
                                        *         BY IDP AND ANY USER ROUTINES THAT ARE INTERFACING TO IT.       COMSIDP    14
  
  
  
  
                                        **        DEFINE DEFAULT OPERATING SYSTEM.                               COMSIDP    16
                                                                                                                 COMSIDP    17
                                                  IF     -DEF,.OS,1                                              COMSIDP    18
                                         .OS      =      3           SCOPE 3                                     COMSIDP    19
  
  
  
  
                                        **        CEQU - CONDITIONAL EQU.                                        COMSIDP    21
                                        *                                                                        COMSIDP    22
                                        *                                                                        COMSIDP    23
                                        * A       CEQU   B                                                       COMSIDP    24
                                        *                                                                        COMSIDP    25
                                        *         ENTRY  A = SYMBOL NAME TO EQU TO *B*, ONLY IF *A* NOT          COMSIDP    26
                                        *                     ALREADY DEFINED.                                   COMSIDP    27
                                        *                B  = NEW VALUE FOR *A*, IF *A* NOT ALREADY DEFINED.     COMSIDP    28
                                        *                                                                        COMSIDP    29
                                        *         EXIT   NONE                                                    COMSIDP    30
                                        *                                                                        COMSIDP    31
                                        *         USES   NONE                                                    COMSIDP    32
                                        *                                                                        COMSIDP    33
                                        *         CALLS  NONE                                                    COMSIDP    34
                                                                                                                 COMSIDP    35
                                                                                                                 COMSIDP    36
                                                  PURGMAC CEQU                                                   COMSIDP    37
                                                                                                                 COMSIDP    38
                                                  MACRO  CEQU,AA,BB                                              COMSIDP    39
                                          IF -DEF,AA,1                                                           COMSIDP    40
                                         AA = BB                                                                 COMSIDP    41
                                         CEQU ENDM                                                               COMSIDP    42
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    35
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           DEFTOT              IDP 
  
                                        **        DEFTOT - DEFINE TOKEN TYPE.                                    COMSIDP    44
                                        *                                                                        COMSIDP    45
                                        *                                                                        COMSIDP    46
                                        * TOT     DEFTOT                                                         COMSIDP    47
                                        *                                                                        COMSIDP    48
                                        *         ENTRY  TOT = TOKEN TYPE TO DEFINE.  NOTE THAT *TOT* WILL       COMSIDP    49
                                        *                      BE PREFIXED WITH "O.".                            COMSIDP    50
                                        *                                                                        COMSIDP    51
                                        *         EXIT   NONE                                                    COMSIDP    52
                                        *                                                                        COMSIDP    53
                                        *         USES   NONE                                                    COMSIDP    54
                                        *                                                                        COMSIDP    55
                                        *         CALLS  NONE                                                    COMSIDP    56
                                                                                                                 COMSIDP    57
                                                                                                                 COMSIDP    58
                                                  PURGMAC DEFTOT                                                 COMSIDP    59
                                                                                                                 COMSIDP    60
                                                  MACRO  DEFTOT,TOT                                              COMSIDP    61
                                        *                                                                        COMSIDP    62
                                          IF -DEF,'?IDSTOT,1                                                     COMSIDP    63
                                         '?IDSTOT SET -1                                                         COMSIDP    64
                                        *                                                                        COMSIDP    65
                                         '?IDSTOT SET '?IDSTOT+1                                                 COMSIDP    66
                                        *                                                                        COMSIDP    67
                                         O.TOT = '?IDSTOT                                                        COMSIDP    68
                                        *                                                                        COMSIDP    69
                                         DEFTOT   ENDM                                                           COMSIDP    70
  
  
  
  
                                        **        ERROR - DEFINE IDP ERROR MESSAGE.                              COMSIDP    72
                                        *                                                                        COMSIDP    73
                                        *                                                                        COMSIDP    74
                                        * LOC     ERROR  MSG,JMP                                                 COMSIDP    75
                                        *                                                                        COMSIDP    76
                                        *         ENTRY  LOC = LOCATION FIELD TO JUMP TO FOR THIS ERROR.         COMSIDP    77
                                        *                MSG = ERROR MSG TEXT.                                   COMSIDP    78
                                        *                JMP = ADDR TO JUMP TO FOR THIS ERROR,                   COMSIDP    79
                                        *                      (DEFAULT = *IDP=ERR*).                            COMSIDP    80
                                        *                                                                        COMSIDP    81
                                        *         EXIT   NONE                                                    COMSIDP    82
                                        *                                                                        COMSIDP    83
                                        *         USES   NONE                                                    COMSIDP    84
                                        *                                                                        COMSIDP    85
                                        *         CALLS  NONE                                                    COMSIDP    86
                                                                                                                 COMSIDP    87
                                                                                                                 COMSIDP    88
                                                  MACRO  ERROR,LOC,MSG,JMP                                       COMSIDP    89
                                        *                                                                        COMSIDP    90
                                         '?ID#002 IFNE OI.ERR,0                                                  COMSIDP    91
                                        *                                                                        COMSIDP    92
                                         LOC BSS 0                                                               COMSIDP    93
                                        *                                                                        COMSIDP    94
                                          IF -DEF,'?IDSERR,1                                                     COMSIDP    95
                                         '?IDSERR SET 0                                                          COMSIDP    96
                                        *                                                                        COMSIDP    97
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    36
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           ERROR               IDP 
  
                                         '?IDSERR SET '?IDSERR+1                                                 COMSIDP    98
                                        *                                                                        COMSIDP    99
                                         '?IDCS01 MICRO 1,,# MSG_#                                               COMSIDP   100
                                         '?IDS001 MICCNT '?IDCS01                                                COMSIDP   101
                                          IFGT '?IDS001,80D,1                                                    COMSIDP   102
                                         P ERR ERR MESSAGE TOO LONG.                                             COMSIDP   103
                                        *                                                                        COMSIDP   104
                                         '?ID#001 IFEQ OI.ERR,2                                                  COMSIDP   105
                                          SX6 =C# MSG_#                                                          COMSIDP   106
                                         '?ID#001 ELSE                                                           COMSIDP   107
                                          SX6 '?IDSERR                                                           COMSIDP   108
                                         '?ID#001 ENDIF                                                          COMSIDP   109
                                        *                                                                        COMSIDP   110
                                         '?ID#002 ELSE                                                           COMSIDP   111
                                         LOC = IDP=ER                                                            COMSIDP   112
                                         '?ID#002 ENDIF                                                          COMSIDP   113
                                        *                                                                        COMSIDP   114
                                          EQ JMP IDP=ERR                                                         COMSIDP   115
                                        *                                                                        COMSIDP   116
                                         ERROR    ENDM                                                           COMSIDP   117
  
  
  
  
                                        **        KEYW - *IDP* KEYWORD TABLE GENERATOR.                          COMSIDP   119
                                        *                                                                        COMSIDP   120
                                        *                                                                        COMSIDP   121
                                        *         MACRO USED TO GENERATE THE *IDP* COMMAND KEYWORD TABLE.        COMSIDP   122
                                        *                                                                        COMSIDP   123
                                        * LAB     KEYW   KEY,XAT,ATTR                                            COMSIDP   124
                                        *                                                                        COMSIDP   125
                                        *         ENTRY  LAB  = CHARS USED FOR GENERATING USER-SPECIFIED         COMSIDP   126
                                        *                       ADDR REFS FOR THIS KEYWORD.  THAT IS, THE        COMSIDP   127
                                        *                       *KEYW* MACRO WILL CONCATENATE PREDETERMINED      COMSIDP   128
                                        *                       CHARACTERS TO *LAB* TO GENERATE THE FOLLOWING    COMSIDP   129
                                        *                       ADDRESSES --                                     COMSIDP   130
                                        *                                                                        COMSIDP   131
                                        *                         ST=LAB  = ADDR OF STMT PROCESSOR FOR THIS      COMSIDP   132
                                        *                                   KEYWORD.                             COMSIDP   133
                                        *                         ST.LAB  = ADDR OF WORD 1 OF THIS *KEYW* ENTRY. COMSIDP   134
                                        *                         LIP=LAB = ADDR OF *LIST* PROCESSOR FOR THIS    COMSIDP   135
                                        *                                   KEYWORD.                             COMSIDP   136
                                        *                                                                        COMSIDP   137
                                        *                KEY  = CHARS THAT CONSTITUTE THIS KEYWORD AND *HELP*    COMSIDP   138
                                        *                       STRING.  FORMAT IS AS FOLLOWS --                 COMSIDP   139
                                        *                                                                        COMSIDP   140
                                        *                         (BREAK FWA,LWA,LEN,LL,UL,INC)                  COMSIDP   141
                                        *                                                                        COMSIDP   142
                                        *                       NOTE THAT ACTUAL KEYWORD AND *HELP* STRING       COMSIDP   143
                                        *                       **MUST** BE SEPARATED BY A BLANK (55B) CHAR.     COMSIDP   144
                                        *                                                                        COMSIDP   145
                                        *                       NOTE ALSO THAT *HELP* STRING IS OPTIONAL.        COMSIDP   146
                                        *                                                                        COMSIDP   147
                                        *                XAT  = EXCLUSIVE ATTRIBUTE FOR THIS KEYWORD.            COMSIDP   148
                                        *                                                                        COMSIDP   149
                                        *                ATTR = NON-EXCLUSIVE ATTRIBUTES FOR THIS KEYWORD.       COMSIDP   150
                                        *                       NULL IF NONE.  (CURRENTLY UNUSED FIELD).         COMSIDP   151
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    37
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           KEYW                IDP 
  
                                        *                                                                        COMSIDP   152
                                        *         EXIT   NONE                                                    COMSIDP   153
                                        *                                                                        COMSIDP   154
                                        *         USES   NONE                                                    COMSIDP   155
                                        *                                                                        COMSIDP   156
                                        *         CALLS  '?IDMKWL                                                COMSIDP   157
                                                                                                                 COMSIDP   158
                                                                                                                 COMSIDP   159
                                                  PURGMAC  KEYW                                                  COMSIDP   160
                                                                                                                 COMSIDP   161
                                                  MACRO  KEYW,LAB,KEY,XA,ATTR                                    COMSIDP   162
                                                  LOCAL  '?ID#001                                                COMSIDP   163
                                        *                                                                        COMSIDP   164
                                         '?IDCKEY MICRO 1,, KEY                                                  COMSIDP   165
                                         '?IDSKEY MICCNT '?IDCKEY                                                COMSIDP   166
                                         '?IDSBIT SET '?IDSKEY*CHAR                                              COMSIDP   167
                                         '?IDCHLP MICRO '?IDSKEY+2,, KEY                                         COMSIDP   168
                                        *                                                                        COMSIDP   169
                                         '?ID#001 '?IDMKWL                                                       COMSIDP   170
                                        *                                                                        COMSIDP   171
                                         '?ID#002 IFEQ OI.ERR,2                                                  COMSIDP   172
                                         '?IDCS01 MICRO 1,,#=0C "'?IDCHLP" #                                     COMSIDP   173
                                         '?ID#002 ELSE                                                           COMSIDP   174
                                         '?IDCS01 MICRO 1,, 0                                                    COMSIDP   175
                                         '?ID#002 ENDIF                                                          COMSIDP   176
                                        *                                                                        COMSIDP   177
                                          IF -DEF,ST.LAB,1                                                       COMSIDP   178
                                         ST.LAB BSS 0                                                            COMSIDP   179
                                        *                                                                        COMSIDP   180
                                         LIP.LAB CEQU 0                                                          COMSIDP   181
                                         PTR.LAB CEQU 0                                                          COMSIDP   182
                                         UDO.LAB CEQU 0                                                          COMSIDP   183
                                        *                                                                        COMSIDP   184
                                         + VFD KW.PNRL/PTR.LAB,KW.PADL/=YST=LAB,KW.XATL/XA,KW.LENL/'?IDSBIT,____ COMSIDP   185
                                        ,KW.KEYL/'?ID#001                                                        COMSIDP   186
                                         + VFD KW.ATTRL/0,KW.LADL/LIP.LAB,KW.UDOL/UDO.LAB,KW.HADL/"'?IDCS01"     COMSIDP   187
                                        *                                                                        COMSIDP   188
                                         KEYW     ENDM                                                           COMSIDP   189
  
  
  
  
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     COMSIDP   191
                                        *                                                                        COMSIDP   192
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    COMSIDP   193
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       COMSIDP   194
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        COMSIDP   195
                                        *                                                                        COMSIDP   196
                                        *         LXI       JK                                                   COMSIDP   197
                                        *                                                                        COMSIDP   198
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              COMSIDP   199
                                        *                *JK* = SHIFT COUNT EXPRESSION                           COMSIDP   200
                                        *                                                                        COMSIDP   201
                                        *         USES   XI                                                      COMSIDP   202
                                                                                                                 COMSIDP   203
                                                                                                                 COMSIDP   204
                                                  PURGDEF ^XQ                                                    COMSIDP   205
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    38
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           LXQ                 IDP 
  
                                                  PURGDEF   LXQ                                                  COMSIDP   206
                                         ^XQ      CPOP   0,200B,100B                                             COMSIDP   207
                                                                                                                 COMSIDP   208
                                         LXQ      OPDEF     I,JK                                                 COMSIDP   209
                                          IFNE JK,0,2                                                            COMSIDP   210
                                          IFNE JK_&60D,0,1                                                       COMSIDP   211
                                          ^X.I JK                                                                COMSIDP   212
                                          ENDM                                                                   COMSIDP   213
  
  
  
  
                                        **        PASOP - DEFINE *POT* TABLE ENTRY.                              COMSIDP   215
                                        *                                                                        COMSIDP   216
                                        *                                                                        COMSIDP   217
                                        *         THIS MACRO DEFINES A *POT* (PARSING OPERATOR/OPERAND TABLE)    COMSIDP   218
                                        *         ENTRY.  SEE *POT* IN *COMCIDP*.                                COMSIDP   219
                                        *                                                                        COMSIDP   220
                                        * TOT     PASOP  POP=A,PIP=B,UPIP=C,PRI=D                                COMSIDP   221
                                        *                                                                        COMSIDP   222
                                        *         ENTRY  TOT  = TOKEN TYPE, **WITHOUT** 'O.' PREFIX.             COMSIDP   223
                                        *                POP  = POLISH OUT PROCESSOR ADDR.                       COMSIDP   224
                                        *                PIP  = POLISH IN PROCESSOR ADDR.                        COMSIDP   225
                                        *                UPIP = POLISH IN PROCESSOR ADDR IF UNARY OPERATION.     COMSIDP   226
                                        *                PRI  = PARSING PRIORITY.                                COMSIDP   227
                                        *                                                                        COMSIDP   228
                                        *         EXIT   NONE                                                    COMSIDP   229
                                        *                                                                        COMSIDP   230
                                        *         USES   NONE                                                    COMSIDP   231
                                        *                                                                        COMSIDP   232
                                        *         CALLS  NONE                                                    COMSIDP   233
                                                                                                                 COMSIDP   234
                                                                                                                 COMSIDP   235
                                                  PURGMAC PASOP                                                  COMSIDP   236
                                                                                                                 COMSIDP   237
                                                  MACROE PASOP,TOT,POP,PIP,UPIP,PRI                              COMSIDP   238
                                        *                                                                        COMSIDP   239
                                        *         CHECK FOR *TABLE OUT-OF-ORDER*.                                COMSIDP   240
                                        *                                                                        COMSIDP   241
                                          IFLE O.TOT,'?IDSTOT,1                                                  COMSIDP   242
                                         P ERR *POT* OUT-OF-ORDER OR DUPLICATE ENTRY                             COMSIDP   243
                                        *                                                                        COMSIDP   244
                                          IFNE O.TOT,'?IDSTOT+1,1                                                COMSIDP   245
                                         P ERR *POT* ENTRY MISSING.                                              COMSIDP   246
                                        *                                                                        COMSIDP   247
                                         '?IDSTOT SET O.TOT                                                      COMSIDP   248
                                        *                                                                        COMSIDP   249
                                        *         SET UP DEFAULTS.                                               COMSIDP   250
                                        *                                                                        COMSIDP   251
                                         '?IDCS01 MICRO 1,, POP                                                  COMSIDP   252
                                          IFC EQ, POP  ,1                                                        COMSIDP   253
                                         '?IDCS01 MICRO 1,, E.POP                                                COMSIDP   254
                                        *                                                                        COMSIDP   255
                                         '?IDCS02 MICRO 1,, PIP                                                  COMSIDP   256
                                          IFC EQ, PIP  ,1                                                        COMSIDP   257
                                         '?IDCS02 MICRO 1,, SE.NPP                                               COMSIDP   258
                                        *                                                                        COMSIDP   259
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    39
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           PASOP               IDP 
  
                                         '?IDCS03 MICRO 1,, UPIP                                                 COMSIDP   260
                                          IFC EQ, UPIP  ,1                                                       COMSIDP   261
                                         '?IDCS03 MICRO 1,, E.UNOP                                               COMSIDP   262
                                        *                                                                        COMSIDP   263
                                        *         GENERATE *POT* ENTRY.                                          COMSIDP   264
                                        *                                                                        COMSIDP   265
                                         + VFD PS.PRIL/PRI,PS.UPIPL/"'?IDCS03",PS.PIPL/"'?IDCS02",PS.POPL/______ COMSIDP   266
                                        ,___"'?IDCS01"                                                           COMSIDP   267
                                        *                                                                        COMSIDP   268
                                         PASOP    ENDM                                                           COMSIDP   269
  
  
  
  
                                        **        PRBDO - PRINT CODED LINE ON BATCH DEBUG OUTPUT FILE.           COMSIDP   271
                                        *                                                                        COMSIDP   272
                                        *                                                                        COMSIDP   273
                                        *                IF THE USER DID NOT DEFINE A BATCH DEBUG OUTPUT FILE,   COMSIDP   274
                                        *         (F.BDO -DEF), THEN *IDP* WILL INVENT ONE AND ACCESS IT VIA     COMSIDP   275
                                        *         *PRBDO* MACRO. IF *F.BDO* IS DEFINED, THEN THE USER SUPPLIES   COMSIDP   276
                                        *         HER OWN *PRBDO*.                                               COMSIDP   277
                                        *                                                                        COMSIDP   278
                                        *         PRBDO  FWA,LEN                                                 COMSIDP   279
                                        *                                                                        COMSIDP   280
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          COMSIDP   281
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         COMSIDP   282
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     COMSIDP   283
                                        *                                                                        COMSIDP   284
                                        *         EXIT   NONE                                                    COMSIDP   285
                                        *                                                                        COMSIDP   286
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              COMSIDP   287
                                        *                                                                        COMSIDP   288
                                        *         CALLS  WRITEC                                                  COMSIDP   289
                                                                                                                 COMSIDP   290
                                                                                                                 COMSIDP   291
                                         #BDO     IF     -MAC,PRBDO                                              COMSIDP   292
                                                                                                                 COMSIDP   293
                                                  PURGMAC PRBDO                                                  COMSIDP   294
                                                                                                                 COMSIDP   295
                                         PRBDO    MACRO  FWA,LEN                                                 COMSIDP   296
                                                  WRITEC =XF.BDO,(FWA),(LEN)                                     COMSIDP   297
                                         PRBDO    ENDM                                                           COMSIDP   298
                                         #BDO     ENDIF                                                          COMSIDP   299
  
  
  
  
                                        **        PRIDP - PRINT CODED LINE ON OUTPUT FILE.                       COMSIDP   301
                                        *                                                                        COMSIDP   302
                                        *                                                                        COMSIDP   303
                                        *         PRIDP  FWA,LEN,NRB                                             COMSIDP   304
                                        *                                                                        COMSIDP   305
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          COMSIDP   306
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         COMSIDP   307
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     COMSIDP   308
                                        *                NRB = NR OF BLANK LINES TO OUTPUT PRECEDING THE LINE    COMSIDP   309
                                        *                                                                        COMSIDP   310
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    40
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           PRIDP               IDP 
  
                                        *         EXIT   NONE                                                    COMSIDP   311
                                        *                                                                        COMSIDP   312
                                        *         USES   ALL BUT B4,A0,X0,A5,X5 (INCLUDES ALL CALLS)             COMSIDP   313
                                        *                                                                        COMSIDP   314
                                        *         CALLS  ROL                                                     COMSIDP   315
                                                                                                                 COMSIDP   316
                                                                                                                 COMSIDP   317
                                                  PURGMAC PRIDP                                                  COMSIDP   318
                                                                                                                 COMSIDP   319
                                         PRIDP    MACRO  FWA,LEN,NRB                                             COMSIDP   320
                                                  =X6    FWA                                                     COMSIDP   321
                                                  =X7    LEN                                                     COMSIDP   322
                                                  =X4    NRB                                                     COMSIDP   323
                                                  RJ     =XROL=                                                  COMSIDP   324
                                         PRIDP    ENDM                                                           COMSIDP   325
  
  
  
  
                                        **        REQUEST - REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.            COMSIDP   327
                                        *                                                                        COMSIDP   328
                                        *                                                                        COMSIDP   329
                                        *         THIS MACRO IS FOR *KRONOS/NOS* **ONLY**.  IT EXISTS BECAUSE    COMSIDP   330
                                        *         OF A CONFLICT BETWEEN THE *REQUEST* MACRO DEFINITION IN        COMSIDP   331
                                        *         *CPUTEXT* (WHICH IS FOR *SCOPE*) AND ANY REFERENCES TO THIS    COMSIDP   332
                                        *         MACRO ON *KRONOS*.  I.E. THEY ARE INCOMPATIBLE.                COMSIDP   333
                                        *                                                                        COMSIDP   334
                                        *         COPIED FROM *OPL/CPCOM*.                                       COMSIDP   335
                                        *                                                                        COMSIDP   336
                                        *         REQUEST FILE,UNIT                                              COMSIDP   337
                                        *                                                                        COMSIDP   338
                                        *         ENTRY  *UNIT* IF USED ASSIGNS THE EQUIPMENT DESIGNATED         COMSIDP   339
                                        *                IN THE *DTY* POSITION IN (FILE+1).                      COMSIDP   340
                                        *                                                                        COMSIDP   341
                                        *         CALLS  LFM=                                                    COMSIDP   342
                                                                                                                 COMSIDP   343
                                                                                                                 COMSIDP   344
                                         #OS1     IFEQ   .OS,1       IF *KRONOS/NOS*                             COMSIDP   345
                                                  PURGMAC REQUEST                                                COMSIDP   346
                                                                                                                 COMSIDP   347
                                         REQUEST  MACRO  F,U                                                     COMSIDP   348
                                          R= X2,F                                                                COMSIDP   349
                                         '?ID#001 IFC EQ,$U$$                                                    COMSIDP   350
                                          SX7 14B                                                                COMSIDP   351
                                         '?ID#001 ELSE                                                           COMSIDP   352
                                          SX7 15B                                                                COMSIDP   353
                                         '?ID#001 ENDIF                                                          COMSIDP   354
                                          RJ =XLFM=                                                              COMSIDP   355
                                         REQUEST ENDM                                                            COMSIDP   356
                                         #OS1     ENDIF                                                          COMSIDP   357
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    41
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           SCTOT               IDP 
  
                                        **        SCTOT - DEFINE *STMT CONTROL* TABLE ENTRY.                     COMSIDP   359
                                        *                                                                        COMSIDP   360
                                        *                                                                        COMSIDP   361
                                        * TOT     SCTOT  PAD                                                     COMSIDP   362
                                        *                                                                        COMSIDP   363
                                        *         ENTRY  TOT = TOKEN TYPE (WITHOUT *O.* PREFIX*).                COMSIDP   364
                                        *                PAD = PROCESSOR ADDR FOR THIS *TOT*.                    COMSIDP   365
                                        *                                                                        COMSIDP   366
                                        *         EXIT   NONE                                                    COMSIDP   367
                                        *                                                                        COMSIDP   368
                                        *         USES   NONE                                                    COMSIDP   369
                                        *                                                                        COMSIDP   370
                                        *         CALLS  NONE                                                    COMSIDP   371
                                                                                                                 COMSIDP   372
                                                                                                                 COMSIDP   373
                                                  PURGMAC SCTOT                                                  COMSIDP   374
                                                                                                                 COMSIDP   375
                                                  MACRO  SCTOT,TOT,PAD                                           COMSIDP   376
                                        *                                                                        COMSIDP   377
                                         '?IDS001 SET    SC.TOTP-SC.PADP-SC.PADL                                 COMSIDP   378
                                         + VFD SC.TOTL/O.TOT,'?IDS001/0,SC.PADL/PAD                              COMSIDP   379
                                        *                                                                        COMSIDP   380
                                         SCTOT    ENDM                                                           COMSIDP   381
  
  
  
  
                                        **        SUBKEY - GENERATE SUB-KEYWORD TABLE ENTRY.                     COMSIDP   383
                                        *                                                                        COMSIDP   384
                                        *                                                                        COMSIDP   385
                                        *         MACRO USED TO GENERATE AN IDP SUB-KEYWORD ENTRY.               COMSIDP   386
                                        *                                                                        COMSIDP   387
                                        *         SUBKEY KEY,VAL                                                 COMSIDP   388
                                        *                                                                        COMSIDP   389
                                        *         ENTRY  KEY  = SUB-KEYWORD.                                     COMSIDP   390
                                        *                VAL  = VALUE TO BE PLACED IN LOWER 18 BITS OF *SUBKEY*  COMSIDP   391
                                        *                       ENTRY.                                           COMSIDP   392
                                        *                                                                        COMSIDP   393
                                        *         EXIT   NONE                                                    COMSIDP   394
                                        *                                                                        COMSIDP   395
                                        *         USES   NONE                                                    COMSIDP   396
                                        *                                                                        COMSIDP   397
                                        *         CALLS  NONE                                                    COMSIDP   398
                                                                                                                 COMSIDP   399
                                                                                                                 COMSIDP   400
                                                  PURGMAC  SUBKEY                                                COMSIDP   401
                                                                                                                 COMSIDP   402
                                         SUBKEY   MACRO  KEY,VAL                                                 COMSIDP   403
                                                  VFD    42/0L_KEY,18/VAL                                        COMSIDP   404
                                         SUBKEY   ENDM                                                           COMSIDP   405
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    42
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           SYSERR              IDP 
  
                                        **        SYSERR - SYSTEM ERROR.                                         COMSIDP   407
                                        *                                                                        COMSIDP   408
                                        *                                                                        COMSIDP   409
                                        * LOC     SYSERR MSG,JMP                                                 COMSIDP   410
                                        *                                                                        COMSIDP   411
                                        *         ENTRY  LOC = LOCATION FIELD TO JUMP TO FOR THIS SYS ERR.       COMSIDP   412
                                        *                MSG = ERROR MSG TEXT.                                   COMSIDP   413
                                        *                JMP = ADDR TO JUMP TO FOR THIS SYS ERR,                 COMSIDP   414
                                        *                      (DEFAULT = *IDP=SER*).                            COMSIDP   415
                                        *                                                                        COMSIDP   416
                                        *         EXIT   NONE                                                    COMSIDP   417
                                        *                                                                        COMSIDP   418
                                        *         USES   NONE                                                    COMSIDP   419
                                        *                                                                        COMSIDP   420
                                        *         CALLS  NONE                                                    COMSIDP   421
                                                                                                                 COMSIDP   422
                                                                                                                 COMSIDP   423
                                                  PURGMAC SYSERR                                                 COMSIDP   424
                                                                                                                 COMSIDP   425
                                                  MACRO  SYSERR,LOC,MSG,JMP                                      COMSIDP   426
                                        *                                                                        COMSIDP   427
                                         LOC BSS 0                                                               COMSIDP   428
                                        *                                                                        COMSIDP   429
                                          IF -DEF,'?IDSSER,1                                                     COMSIDP   430
                                         '?IDSSER SET 0                                                          COMSIDP   431
                                        *                                                                        COMSIDP   432
                                         '?IDSSER SET '?IDSSER+1                                                 COMSIDP   433
                                        *                                                                        COMSIDP   434
                                         '?IDCS01 MICRO 1,,# MSG_#                                               COMSIDP   435
                                         '?IDS001 MICCNT '?IDCS01                                                COMSIDP   436
                                          IFGT '?IDS001,70D,1                                                    COMSIDP   437
                                         P ERR ERR MESSAGE TOO LONG.                                             COMSIDP   438
                                        *                                                                        COMSIDP   439
                                          SX6 =C# MSG_#                                                          COMSIDP   440
                                          EQ JMP IDP=SER                                                         COMSIDP   441
                                        *                                                                        COMSIDP   442
                                         SYSERR   ENDM                                                           COMSIDP   443
  
  
  
  
                                        **        '?IDMKWL - GENERATE KEYWORD LITERAL.                           COMSIDP   445
                                        *                                                                        COMSIDP   446
                                        *                                                                        COMSIDP   447
                                        * LAB     '?IDMKWL                                                       COMSIDP   448
                                        *                                                                        COMSIDP   449
                                        *         ENTRY  '?IDCKEY = MICRO CONTAINING KEYWORD.                    COMSIDP   450
                                        *                '?IDSKEY = LEN OF '?IDCKEY (IN CHARS, I.E. *MICCNT*).   COMSIDP   451
                                        *                LAB      = LABEL FIELD FOR THIS KEYWORD LITERAL.        COMSIDP   452
                                        *                                                                        COMSIDP   453
                                        *         EXIT   NONE                                                    COMSIDP   454
                                        *                                                                        COMSIDP   455
                                        *         USES   NONE                                                    COMSIDP   456
                                        *                                                                        COMSIDP   457
                                        *         CALLS  NONE                                                    COMSIDP   458
                                                                                                                 COMSIDP   459
                                                                                                                 COMSIDP   460
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    43
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           '?IDMKWL            IDP 
  
                                                  PURGMAC '?IDMKWL                                               COMSIDP   461
                                                                                                                 COMSIDP   462
                                                  MACRO  '?IDMKWL,LAB                                            COMSIDP   463
                                          LOCAL '?ID#001                                                         COMSIDP   464
                                        *                                                                        COMSIDP   465
                                         '?IDCS02 MICRO 1,, 0L                                                   COMSIDP   466
                                         '?IDS001 SET '?IDSKEY/7+1                                               COMSIDP   467
                                         '?IDS002 SET 1                                                          COMSIDP   468
                                        *                                                                        COMSIDP   469
                                         '?ID#001 DUP '?IDS001                                                   COMSIDP   470
                                         '?IDCS01 MICRO '?IDS002,7, "'?IDCKEY"                                   COMSIDP   471
                                         '?IDCS02 MICRO 1,, "'?IDCS02",0L"'?IDCS01"                              COMSIDP   472
                                         '?IDS002 SET '?IDS002+7                                                 COMSIDP   473
                                        *                                                                        COMSIDP   474
                                         '?ID#001 ENDD                                                           COMSIDP   475
                                        *                                                                        COMSIDP   476
                                         LAB LIT "'?IDCS02"                                                      COMSIDP   477
                                        *                                                                        COMSIDP   478
                                         '?IDMKWL ENDM                                                           COMSIDP   479
  
  
  
  
                                        **        '?IDMLIT - GENERATE IDP LITERAL.                               COMSIDP   481
                                        *                                                                        COMSIDP   482
                                        *                                                                        COMSIDP   483
                                        *         THIS MACRO GENERATES A LITERAL TO IDP.S LITERAL BLOCK,         COMSIDP   484
                                        *         '?IDRLIT.  *'?IDMLIT*, THEN, SIMULATES THE COMPASS *LIT*       COMSIDP   485
                                        *         PSEUDO, WITH THE PRIMARY DIFFERENCE BEING THAT *'?IDMLIT*      COMSIDP   486
                                        *         DOES NOT GENERATE TO THE PROGRAM LITERAL BLOCK.                COMSIDP   487
                                        *                                                                        COMSIDP   488
                                        *         THIS SHOULD HELP TO MINIMIZE UNFAVOURABLE IDP/HOST             COMSIDP   489
                                        *         INTERACTIONS.                                                  COMSIDP   490
                                        *                                                                        COMSIDP   491
                                        * LOC     '?IDMLIT LIT                                                   COMSIDP   492
                                        *                                                                        COMSIDP   493
                                        *         ENTRY  LOC = ADDR/LOCATION FIELD FOR THIS LITERAL.             COMSIDP   494
                                        *                LIT = LITERAL STRING.                                   COMSIDP   495
                                        *                                                                        COMSIDP   496
                                        *         EXIT   NONE                                                    COMSIDP   497
                                        *                                                                        COMSIDP   498
                                        *         USES   NONE                                                    COMSIDP   499
                                        *                                                                        COMSIDP   500
                                        *         CALLS  NONE                                                    COMSIDP   501
                                                                                                                 COMSIDP   502
                                                                                                                 COMSIDP   503
                                                  PURGMAC '?IDMLIT                                               COMSIDP   504
                                                                                                                 COMSIDP   505
                                                  MACRO  '?IDMLIT,LOC,LIT                                        COMSIDP   506
                                        *                                                                        COMSIDP   507
                                         '?IDCS01 MICRO 1,,#_LIT_#                                               COMSIDP   508
                                          '?IDMSMA 1,4                                                           COMSIDP   509
                                        *                                                                        COMSIDP   510
                                         '?ID#001 IFEQ '?IDS001,0                                                COMSIDP   511
                                         '?ID1LEN SET '?ID1LEN+1                                                 COMSIDP   512
                                        *                                                                        COMSIDP   513
                                          IFGT '?ID1LEN,999D,1                                                   COMSIDP   514
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    44
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           '?IDMLIT            IDP 
  
                                         P ERR TOO MANY LITERALS                                                 COMSIDP   515
                                        *                                                                        COMSIDP   516
                                         '?IDCS02 DECMIC '?ID1LEN,3                                              COMSIDP   517
                                         '?ID1"'?IDCS02" MICRO 1,,#"'?IDCS01"#                                   COMSIDP   518
                                        *                                                                        COMSIDP   519
                                         '?IDS001 SET '?ID1LEN                                                   COMSIDP   520
                                         '?IDRLIT '?IDMRMT (  DATA LIT)                                          COMSIDP   521
                                        *                                                                        COMSIDP   522
                                         '?ID#001 ENDIF                                                          COMSIDP   523
                                        *                                                                        COMSIDP   524
                                         LOC = FW.L_I_T+'?IDS001                                                 COMSIDP   525
                                        *                                                                        COMSIDP   526
                                         '?IDMLIT ENDM                                                           COMSIDP   527
  
  
  
  
                                        **        '?IDMMEQ - MICRO EQUIVALENCE.                                  COMSIDP   529
                                        *                                                                        COMSIDP   530
                                        *                                                                        COMSIDP   531
                                        *         THIS MACRO EQUATES TWO MICRO STRINGS.  IT IS ONLY TRULY        COMSIDP   532
                                        *         USEFUL WHEN THE MICRO NAME ON THE RIGHT-SIDE OF THE            COMSIDP   533
                                        *         EQUIVALENCE IS BEING GENERATED VIA MICRO STRINGS.              COMSIDP   534
                                        *                                                                        COMSIDP   535
                                        * A       '?IDMMEQ B                                                     COMSIDP   536
                                        *                                                                        COMSIDP   537
                                        *         ENTRY  A = MICRO NAME TO EQUATE *B* TO.                        COMSIDP   538
                                        *                B = OLD MICRO NAME.                                     COMSIDP   539
                                        *                                                                        COMSIDP   540
                                        *         EXIT   "A" CREATED AND "B" LEFT ALONE.                         COMSIDP   541
                                        *                                                                        COMSIDP   542
                                        *         CALLS  NONE                                                    COMSIDP   543
                                                                                                                 COMSIDP   544
                                                                                                                 COMSIDP   545
                                                  PURGMAC '?IDMMEQ                                               COMSIDP   546
                                                                                                                 COMSIDP   547
                                          MACRO '?IDMMEQ,A,B                                                     COMSIDP   548
                                         A MICRO 1,, "B"                                                         COMSIDP   549
                                         '?IDMMEQ ENDM                                                           COMSIDP   550
  
  
  
  
                                        **        '?IDMRMT - FORCE MICRO EVALUATION FOR *RMT* BLOCKS.            COMSIDP   552
                                        *                                                                        COMSIDP   553
                                        *                                                                        COMSIDP   554
                                        *         THIS MACRO IS USED SOLEY FOR THE PURPOSE OF FORCING            COMSIDP   555
                                        *         MICRO EVALUATION IN *RMT* BLOCKS.                              COMSIDP   556
                                        *                                                                        COMSIDP   557
                                        * BLK     '?IDMRMT S                                                     COMSIDP   558
                                        *                                                                        COMSIDP   559
                                        *         ENTRY  BLK = REMOTE BLOCK NAME                                 COMSIDP   560
                                        *                S   = STMT TO BE ENTERED INTO REMOTE BLOCK *BLK*.       COMSIDP   561
                                        *                                                                        COMSIDP   562
                                        *         EXIT   NONE                                                    COMSIDP   563
                                        *                                                                        COMSIDP   564
                                        *         USES   NONE                                                    COMSIDP   565
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    45
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           '?IDMRMT            IDP 
  
                                        *                                                                        COMSIDP   566
                                        *         CALLS  NONE                                                    COMSIDP   567
                                                                                                                 COMSIDP   568
                                                                                                                 COMSIDP   569
                                                  PURGMAC '?IDMRMT                                               COMSIDP   570
                                                                                                                 COMSIDP   571
                                                  MACRO  '?IDMRMT,BLK,S                                          COMSIDP   572
                                         BLK RMT                                                                 COMSIDP   573
                                         S                                                                       COMSIDP   574
                                         BLK RMT                                                                 COMSIDP   575
                                         '?IDMRMT ENDM                                                           COMSIDP   576
  
  
  
  
                                        **        '?IDMSMA - SCAN MICRO ARRAY.                                   COMSIDP   578
                                        *                                                                        COMSIDP   579
                                        *                                                                        COMSIDP   580
                                        *         '?IDMSMA N,FC,NC                                               COMSIDP   581
                                        *                                                                        COMSIDP   582
                                        *         ENTRY  N  - MICRO ARRAY NR.                                    COMSIDP   583
                                        *                FC = 1ST CHAR POSITION IN EACH ARRAY ELEMENT            COMSIDP   584
                                        *                     TO SEARCH AT.                                      COMSIDP   585
                                        *                NC = NR OF CHARS (BEGINNING AT *FC*) TO COMPARE,        COMSIDP   586
                                        *                   = 0 IF REST OF MICRO ARRAY ENTRY (AS IN *MICRO*      COMSIDP   587
                                        *                     PSEUDO).                                           COMSIDP   588
                                        *                                                                        COMSIDP   589
                                        *                '?IDCS01 = ELEMENT TO SEARCH FOR.                       COMSIDP   590
                                        *                '?IDNLEN = NR OF ENTRIES IN THIS MICRO ARRAY            COMSIDP   591
                                        *                           (WHERE *N* IS MICRO ARRAY NR).               COMSIDP   592
                                        *                                                                        COMSIDP   593
                                        *         EXIT   '?IDCS01 = UNCHANGED.                                   COMSIDP   594
                                        *                '?IDS001 = MICRO ARRAY ELEMENT NR IF A FIND, ELSE       COMSIDP   595
                                        *                         = .ZR. IF NO FIND.                             COMSIDP   596
                                        *                '?IDCS02 = MICRO CONTAINING FOUND ENTRY IN '?IDNXXX.    COMSIDP   597
                                        *                '?IDCS03 = MICRO CONTAINING MICRO NAME OF FOUND         COMSIDP   598
                                        *                           ENTRY.                                       COMSIDP   599
                                        *                           I.E. "'?IDCS03" MICRO 1,, "'?IDCS02"         COMSIDP   600
                                        *                                                                        COMSIDP   601
                                        *         CALLS  '?IDMMEQ                                                COMSIDP   602
                                                                                                                 COMSIDP   603
                                                                                                                 COMSIDP   604
                                                  PURGMAC '?IDMSMA                                               COMSIDP   605
                                                                                                                 COMSIDP   606
                                         '?IDMSMA MACRO A,B,C                                                    COMSIDP   607
                                          LOCAL '?ID#001,'?ID#002,'?ID#003                                       COMSIDP   608
                                        *                                                                        COMSIDP   609
                                         '?IDS001 SET '?ID_A_LEN                                                 COMSIDP   610
                                         '?ID#002 IFGT '?IDS001,0                                                COMSIDP   611
                                        *                                                                        COMSIDP   612
                                         '?ID#001 DUP '?ID_A_LEN                                                 COMSIDP   613
                                        *                                                                        COMSIDP   614
                                         '?IDCS03 DECMIC '?IDS001,3                                              COMSIDP   615
                                         '?IDCS03 MICRO 1,, '?ID_A_"'?IDCS03"                                    COMSIDP   616
                                         '?IDCS02 '?IDMMEQ "'?IDCS03"                                            COMSIDP   617
                                         '?IDCS04 MICRO B,C, "'?IDCS02"                                          COMSIDP   618
                                         '?ID#003  IFC EQ, "'?IDCS01" "'?IDCS04"                                 COMSIDP   619
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    46
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           '?IDMSMA            IDP 
  
                                          STOPDUP                                                                COMSIDP   620
                                        *                                                                        COMSIDP   621
                                         '?ID#003 ELSE                                                           COMSIDP   622
                                         '?IDS001 SET '?IDS001-1                                                 COMSIDP   623
                                         '?ID#003 ENDIF                                                          COMSIDP   624
                                         '?ID#001 ENDD                                                           COMSIDP   625
                                         '?ID#002 ENDIF                                                          COMSIDP   626
                                        *                                                                        COMSIDP   627
                                         '?IDMSMA ENDM                                                           COMSIDP   628
  
  
  
  
                                        **        DEFINE DEFAULT MICROS.                                         COMSIDP   630
                                                                                                                 COMSIDP   631
                                                  IF     -MIC,EOS,1                                              COMSIDP   632
                                         EOS      MICRO  1,,/;/                                                  COMSIDP   633
                                                                                                                 COMSIDP   634
                                                                                                                 COMSIDP   635
                                                  IF     -MIC,IDPVER,1                                           COMSIDP   636
                                         IDPVER   MICRO  1,,/1.1/                                                COMSIDP   637
                                                                                                                 COMSIDP   638
                                                  IF     -MIC,PROMPT,1                                           COMSIDP   639
                                         PROMPT   MICRO  1,,/>>/                                                 COMSIDP   640
  
  
  
  
                                        **        OI. - IDP OPTIONS.                                             COMSIDP   642
                                        *                                                                        COMSIDP   643
                                        *                                                                        COMSIDP   644
                                        *         SYMBOLS OF THE FORM *OI.XXX*, WHERE *OI.* IS A COMMON PREFIX   COMSIDP   645
                                        *         AND *XXX* IS A UNIQUE OPTION NAME, DEFINE MISCELLANEOUS IDP    COMSIDP   646
                                        *         OPTIONS.                                                       COMSIDP   647
                                        *                                                                        COMSIDP   648
                                        *         MOST OF THESE OPTIONS ARE RELATED TO THE CONFIGURING OF IDP    COMSIDP   649
                                        *         AND ITS SUPPORTING COMDECKS.  TO SET ONE OR MORE OF THESE      COMSIDP   650
                                        *         OPTIONS, THE IDP INSTALLER NEED ONLY TO DEFINE THE APPROPRIATE COMSIDP   651
                                        *         DESIRED *OI.XXX* SYMBOL.  IDP DOES THE REST.                   COMSIDP   652
                                        *                                                                        COMSIDP   653
                                        *         OPTIONS, *XXX*, ARE --                                         COMSIDP   654
                                        *                                                                        COMSIDP   655
                                        *         ERR  = SELECT/DESELECT ERROR MESSAGES.                         COMSIDP   656
                                        *              = 0 MEANS *DESELECT ERROR MESSAGES*.  THAT IS, IF AN      COMSIDP   657
                                        *                  ERROR IS DETECTED BY IDP, ALL ONE GETS IS THE ERROR   COMSIDP   658
                                        *                  PROMPT.                                               COMSIDP   659
                                        *                                                                        COMSIDP   660
                                        *              = 1 MEANS *SELECT SHORT MESSAGES*.  THAT IS, IF AN ERROR  COMSIDP   661
                                        *                  IS DETECTED BY IDP, ONE GETS THE ERROR MSG NUMBER.    COMSIDP   662
                                        *                                                                        COMSIDP   663
                                        *              = 2 (DEFAULT) MEANS *SELECT FULL ERROR MESSAGES*.  IF AN  COMSIDP   664
                                        *                  ERROR IS DETECTED IN THIS MODE, IDP ISSUES THE FULL   COMSIDP   665
                                        *                  ERROR MSG.                                            COMSIDP   666
                                        *                                                                        COMSIDP   667
                                        *                THE MAIN DIFFERENCE BETWEEN THESE DIFFERENT *ERR*       COMSIDP   668
                                        *                OPTIONS IS ONE OF SPACE (I.E. IDP REQUIRES MORE         COMSIDP   669
                                        *                CM STORAGE TO HOLD THE ERROR MESSAGES).  IT IS ADVISED  COMSIDP   670
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    47
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           OI.                 IDP 
  
                                        *                THAT ONE USE/INSTALL IDP WITH FULL ERROR MSGS...AFTER   COMSIDP   671
                                        *                ALL, ONE IS USING IDP TO MAKE LIFE EASIER FOR ONESELF.  COMSIDP   672
                                                                                                                 COMSIDP   673
                                                                                                                 COMSIDP   674
                                         OI.ERR   CEQU   2           INDICATE FULL ERR MSGS                      COMSIDP   675
  
  
  
  
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              COMSIDP   677
                                                                                                                 COMSIDP   678
                                                                                                                 COMSIDP   679
                                   6     CHAR     =      6           LENGTH OF CYBER CHARACTER                   COMSIDP   680
                                                                                                                 COMSIDP   681
                                   1     DXB1$    =      1           SET TO *ALLOW /COMCDXB/ TO CONVERT DIGITS   COMSIDP   682
                                        *                            WITH AN 8 OR 9 BUT NO EXPLICIT *B* OR *D*   COMSIDP   683
                                        *                            SUFFIX TO DEFAULT BASE DECIMAL*             COMSIDP   684
                                                                                                                 COMSIDP   685
                                   4     L.BSL    =      4           NR OF CM WORDS DUMPED ON LINE (BATCH)       COMSIDP   686
                                   2     L.ISL    =      2           NR OF CM WORDS DUMPED ON LINE (INTERACTIVE) COMSIDP   687
                                                                                                                 COMSIDP   688
                                   0     L.PRB    =      0           NR OF PRECEDING BLANKS TO OUTPUT            COMSIDP   689
                                        *                              FOR SPACING PURPOSES                      COMSIDP   690
  
  
  
  
                                        **        *COMCSVR* DEFINITIONS.                                         COMSIDP   692
                                                                                                                 COMSIDP   693
                                                                                                                 COMSIDP   694
                                   1     #SVR     =      1           SELECT *IDP USES ITS OWN REG SAVE AREA*     COMSIDP   695
                                         BAX      MICRO  1,,/BAX/                                                COMSIDP   696
  
  
  
  
                                        **        SNAP PARAMETER LIST SYMBOL DEFINITIONS.                        COMSIDP   698
                                        *           THESE SYMBOLS DEFINE THE ORDINALS INTO THE SNAP PARAMETER    COMSIDP   699
                                        *           LIST. (DESIRED WORD IS AT-- FWA OF PARAMETER LIST + SN=XXX)  COMSIDP   700
                                                                                                                 COMSIDP   701
                                                                                                                 COMSIDP   702
                                   0     SN=FRK   =      0           1ST WORD OF FREQUENCY PARAMETER LIST        COMSIDP   703
                                   0     SN=LL    =      0           LOWER LIMIT                                 COMSIDP   704
                                   1     SN=UL    =      1           UPPER LIMIT                                 COMSIDP   705
                                   2     SN=INC   =      2           INCREMENT                                   COMSIDP   706
                                   3     SN=HDR   =      3           HEADER                                      COMSIDP   707
                                   4     SN=CNT   =      4           SNAP COUNT                                  COMSIDP   708
                                   5     SN=FWA   =      5           FWA                                         COMSIDP   709
                                   6     SN=LWA   =      6           LWA                                         COMSIDP   710
                                   7     SN=LEN   =      7           LENGTH                                      COMSIDP   711
                                  10     SN=USF   =      8           USER *SNAP* MACRO FLAGS                     COMSIDP   712
                                  11     SN=SRL   =      9           1ST WORD OF *RGR=* LIST FOR *SNAP* MACRO    COMSIDP   713
                                                                                                                 COMSIDP   714
                                   5     SN=URF   =      5           USER *REG* MACRO FLAGS                      COMSIDP   715
                                   6     SN=RRL   =      6           1ST WORD OF *RGR=* LIST FOR *REG* MACRO     COMSIDP   716
                                                                                                                 COMSIDP   717
                                   5     SN=BRF   =      5           USER *BREAK* MACRO FLAGS                    COMSIDP   718
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    48
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           DEFS                IDP 
  
                                   6     SN=BRAD  =      6           USER-SPECIFIED *BREAK* ADDR                 COMSIDP   719
  
  
  
  
                                        **        O. - DEFINE TOKEN (OPERATOR/OPERAND) TYPES.                    COMSIDP   721
                                                                                                                 COMSIDP   722
                                                                                                                 COMSIDP   723
                                         BOS      DEFTOT                                                         COMSIDP   724
                                   0     O.EOS    =      O.BOS                                                   COMSIDP   725
                                   0     O.NUL    =      O.BOS                                                   COMSIDP   726
                                         KEY      DEFTOT                                                         COMSIDP   727
                                         VAR      DEFTOT                                                         COMSIDP   728
                                         CONS     DEFTOT                                                         COMSIDP   729
                                         REG      DEFTOT                                                         COMSIDP   730
                                                                                                                 COMSIDP   731
                                         PLUS     DEFTOT             +                                           COMSIDP   732
                                         MIN      DEFTOT             -                                           COMSIDP   733
                                         STAR     DEFTOT             *                                           COMSIDP   734
                                         LP       DEFTOT             (                                           COMSIDP   735
                                         RP       DEFTOT             )                                           COMSIDP   736
                                         SHFT     DEFTOT             $                                           COMSIDP   737
                                         AND      DEFTOT             .AND.                                       COMSIDP   738
                                         OR       DEFTOT             .OR.                                        COMSIDP   739
                                         XOR      DEFTOT             .XOR.                                       COMSIDP   740
                                         NOT      DEFTOT             .NOT.                                       COMSIDP   741
                                         COM      DEFTOT             ,                                           COMSIDP   742
                                         PER      DEFTOT             .                                           COMSIDP   743
                                         SQOT     DEFTOT             '                                           COMSIDP   744
                                         QQQ      DEFTOT             ?                                           COMSIDP   745
                                         ILL      DEFTOT                                                         COMSIDP   746
                                   5     O.SEP    =      O.PLUS                                                  COMSIDP   747
  
  
  
  
                                        **        BB. - *COMCBUB* STRUCTURE DEFINITIONS.                         COMSIDP   749
                                        *                                                                        COMSIDP   750
                                        *                                                                        COMSIDP   751
                                                                                                                 COMSIDP   752
                                                                                                                 COMSIDP   753
                                                  DESCRIBE BB.                                                   COMSIDP   754
      L     22  77777777777777000000     TOC      DEFINE 42                                                      COMSIDP   755
             0  00000000000000777777     TOT      DEFINE 18                                                      COMSIDP   756
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    49
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           BN.                 IDP 
  
                                        **        BN. - *COMCBUN* STRUCTURE DEFINITIONS.                         COMSIDP   758
                                        *                                                                        COMSIDP   759
                                        *                                                                        COMSIDP   760
                                                                                                                 COMSIDP   761
                                                                                                                 COMSIDP   762
                                                  DESCRIBE BN.                                                   COMSIDP   763
      L     22  77777777777777000000     TOC      DEFINE 42                                                      COMSIDP   764
             0  00000000000000777777     TOT      DEFINE 18                                                      COMSIDP   765
  
  
  
  
                                        **        BTC/XTC - *BREAK/STEP* TYPE CODES.                             COMSIDP   767
                                        *                                                                        COMSIDP   768
                                        *                                                                        COMSIDP   769
                                                                                                                 COMSIDP   770
                                                                                                                 COMSIDP   771
                                   1     BTC.PL   =      1           BRPL                                        COMSIDP   772
                                   1     XTC.PL   =      1           STPL                                        COMSIDP   773
                                                                                                                 COMSIDP   774
                                   2     BTC.MI   =      2           BRMI                                        COMSIDP   775
                                   2     XTC.MI   =      2           STMI                                        COMSIDP   776
                                                                                                                 COMSIDP   777
                                   3     BTC.ZR   =      3           BRZR                                        COMSIDP   778
                                   3     XTC.ZR   =      3           STZR                                        COMSIDP   779
                                                                                                                 COMSIDP   780
                                   4     BTC.NZ   =      4           BRNZ                                        COMSIDP   781
                                   4     XTC.NZ   =      4           STNZ                                        COMSIDP   782
                                                                                                                 COMSIDP   783
                                   5     BTC.EQ   =      5           BREQ                                        COMSIDP   784
                                   5     XTC.EQ   =      5           STEQ                                        COMSIDP   785
                                                                                                                 COMSIDP   786
                                   6     BTC.NE   =      6           BRNE                                        COMSIDP   787
                                   6     XTC.NE   =      6           STNE                                        COMSIDP   788
                                                                                                                 COMSIDP   789
                                   7     BTC.LT   =      7           BRLT                                        COMSIDP   790
                                   7     XTC.LT   =      7           STLT                                        COMSIDP   791
                                                                                                                 COMSIDP   792
                                  10     BTC.GE   =      8           BRGE                                        COMSIDP   793
                                  10     XTC.GE   =      8           STGE                                        COMSIDP   794
                                                                                                                 COMSIDP   795
                                  11     BTC.LE   =      9           BRLE                                        COMSIDP   796
                                  11     XTC.LE   =      9           STLE                                        COMSIDP   797
                                                                                                                 COMSIDP   798
                                  12     BTC.GT   =      10          BRGT                                        COMSIDP   799
                                  12     XTC.GT   =      10          STGT                                        COMSIDP   800
                                                                                                                 COMSIDP   801
                                  13     XTC.RNG  =      11          STRANGE                                     COMSIDP   802
                                  14     XTC.NR   =      12          STNR                                        COMSIDP   803
                                  15     XTC.AR   =      13          STAR                                        COMSIDP   804
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    50
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           IDF.                IDP 
  
                                        **        IDF. - *IDPFLG* STRUCTURE DEFINITIONS.                         COMSIDP   806
                                                                                                                 COMSIDP   807
                                                                                                                 COMSIDP   808
                                                  DESCRIBE IDF.                                                  COMSIDP   809
      L     73  40000000000000000000     IDO      DEFINE 1                                                       COMSIDP   810
      L     72  20000000000000000000     IKO      DEFINE 1                                                       COMSIDP   811
                                                  DEFINE 1                                                       COMSIDP   812
      L     70  04000000000000000000     BDO      DEFINE 1                                                       COMSIDP   813
      L     67  02000000000000000000     BKO      DEFINE 1                                                       COMSIDP   814
                                                  DEFINE 1                                                       COMSIDP   815
      L     65  00400000000000000000     FTO      DEFINE 1                                                       COMSIDP   816
      L     64  00200000000000000000     INP      DEFINE 1                                                       COMSIDP   817
      L     63  00100000000000000000     ADR      DEFINE 1                                                       COMSIDP   818
      L     60  00070000000000000000     XEC      DEFINE 3                                                       COMSIDP   819
      L     57  00004000000000000000     BRF      DEFINE 1                                                       COMSIDP   820
      L     56  00002000000000000000     MEM      DEFINE 1                                                       COMSIDP   821
      L     55  00001000000000000000     RAP      DEFINE 1                                                       COMSIDP   822
      L     54  00000400000000000000     XJR      DEFINE 1                                                       COMSIDP   823
                                                  DEFINE 26                                                      COMSIDP   824
             0  00000000000000777777     SNL      DEFINE 18                                                      COMSIDP   825
  
  
  
  
                                        **        *KEYW* TABLE STRUCTURE DEFINITIONS.                            COMSIDP   827
                                                                                                                 COMSIDP   828
                                                                                                                 COMSIDP   829
                                                  DESCRIBE KW.                                                   COMSIDP   830
      L     66  77000000000000000000     PNR      DEFINE 6                                                       COMSIDP   831
      L     44  00777777000000000000     PAD      DEFINE 18                                                      COMSIDP   832
      L     33  00000000777000000000     XAT      DEFINE 9                                                       COMSIDP   833
      L     22  00000000000777000000     LEN      DEFINE 9                                                       COMSIDP   834
             0  00000000000000777777     KEY      DEFINE 18                                                      COMSIDP   835
                                                                                                                 COMSIDP   836
                                                  REDEF                                                          COMSIDP   837
      L     44  77777777000000000000     ATTR     DEFINE 24                                                      COMSIDP   838
      L     33  00000000777000000000     LAD      DEFINE 9                                                       COMSIDP   839
      L     22  00000000000777000000     UDO      DEFINE 9                                                       COMSIDP   840
             0  00000000000000777777     HAD      DEFINE 18                                                      COMSIDP   841
  
  
  
  
                                        **        PAF. - *PATFLG* STRUCTURE DEFINITIONS.                         COMSIDP   843
                                                                                                                 COMSIDP   844
                                                                                                                 COMSIDP   845
                                                  DESCRIBE PAF.,15                                               COMSIDP   846
                               40000     LWA      DEFINE 1                                                       COMSIDP   847
                                                  DEFINE 2                                                       COMSIDP   848
                               04000     LEN      DEFINE 1                                                       COMSIDP   849
                                                  DEFINE 11                                                      COMSIDP   850
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    51
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           PS.                 IDP 
  
                                        **        PS. - *POT* STRUCTURE DEFINITIONS.                             COMSIDP   852
                                                                                                                 COMSIDP   853
                                                                                                                 COMSIDP   854
                                                  DESCRIBE PS.                                                   COMSIDP   855
      L     66  77000000000000000000     PRI      DEFINE 6                                                       COMSIDP   856
      L     44  00777777000000000000     UPIP     DEFINE 18                                                      COMSIDP   857
      L     22  00000000777777000000     PIP      DEFINE 18                                                      COMSIDP   858
             0  00000000000000777777     POP      DEFINE 18                                                      COMSIDP   859
             0  00000000000000777777     TOT      DEQU   POP                                                     COMSIDP   860
  
  
  
  
                                        **        PT. - *PTR* (POINTER) TABLE STRUCTURE DEFINITIONS.             COMSIDP   862
                                                                                                                 COMSIDP   863
                                                                                                                 COMSIDP   864
                                                  DESCRIBE PT.                                                   COMSIDP   865
      L     36  77777777770000000000     FWA      DEFINE 30                                                      COMSIDP   866
             0  00000000007777777777     LEN      DEFINE 30                                                      COMSIDP   867
                                                                                                                 COMSIDP   868
                                   2     L1.PTR   =      2           SELECT 1ST AND 2ND DEFAULTS ONLY            COMSIDP   869
  
  
  
  
                                        **        PTR. - DEFINE *PTR* ORDINALS.                                  COMSIDP   871
                                        *                                                                        COMSIDP   872
                                        *                                                                        COMSIDP   873
                                                                                                                 COMSIDP   874
                                                                                                                 COMSIDP   875
                                         PTR.COD  CEQU   1                                                       COMSIDP   876
                                         PTR.DPC  CEQU   3                                                       COMSIDP   877
                                         PTR.SNP  CEQU   3                                                       COMSIDP   878
                                         PTR.STO  CEQU   3                                                       COMSIDP   879
                                         PTR.WHR  CEQU   1                                                       COMSIDP   880
                                         PTR.BRK  CEQU   1                                                       COMSIDP   881
  
  
  
  
                                        **        SC. - *STMT CONTROL* TABLE STRUCTURE DEFINITIONS.              COMSIDP   883
                                                                                                                 COMSIDP   884
                                                                                                                 COMSIDP   885
                                                  DESCRIBE SC.                                                   COMSIDP   886
      L     52  77777700000000000000     TOT      DEFINE 18                                                      COMSIDP   887
                                                  DEFINE 24                                                      COMSIDP   888
             0  00000000000000777777     PAD      DEFINE 18                                                      COMSIDP   889
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    52
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           SY.                 IDP 
  
                                        **        SY. - SYMBOL TYPES.                                            COMSIDP   891
                                                                                                                 COMSIDP   892
                                                                                                                 COMSIDP   893
                                   0     SY.NONE  =      0           UNDEFINED                                   COMSIDP   894
                                   1     SY.DECK  =      1           *FAA/RPV=RNA* DECK NAME                     COMSIDP   895
                                   2     SY.SET   =      2           *SET* NAME                                  COMSIDP   896
                                   3     SY.LFN   =      3           LFN/FET NAME                                COMSIDP   897
                                   4     SY.USY   =      4           USER-DEFINED SYMBOL (VIA *USY=*)            COMSIDP   898
  
  
  
  
                                        **        TB. - TOKEN BUFFER STRUCTURE DEFINITIONS.                      COMSIDP   900
                                                                                                                 COMSIDP   901
                                                                                                                 COMSIDP   902
                                                  DESCRIBE TB.                                                   COMSIDP   903
      L     73  40000000000000000000     LAS      DEFINE 1                                                       COMSIDP   904
                                                  DEFINE 23                                                      COMSIDP   905
      L     22  00000000777777000000     PRS      DEFINE 18                                                      COMSIDP   906
             0  00000000000000777777     LEN      DEFINE 18                                                      COMSIDP   907
  
  
  
  
                                                  REDEF                                                          COMSIDP   909
      L     22  77777777777777000000     TOC      DEFINE BB.TOCL                                                 COMSIDP   910
             0  00000000000000777777     TOT      DEFINE BB.TOTL                                                 COMSIDP   911
  
  
  
  
                                                  REDEF                                                          COMSIDP   913
                                                  DEFINE 24                                                      COMSIDP   914
      L     22  00000000777777000000     0TR      DEFINE 18                                                      COMSIDP   915
             0  00000000000000777777     TOT      DEFINE 18                                                      COMSIDP   916
  
  
  
  
                                 D_D              BASE   *                                                       COMSIDP   918
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  303
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    53
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          COMSTOK             IDP 
  
             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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    54
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          TC.                 IDP 
  
                                        **        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    55
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          CALT                IDP 
  
                                        **        *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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    56
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          GOTO                IDP 
  
                                        **        *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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    57
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          TK.                 IDP 
  
                                        **         *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
                                         #IDPOS   ENDIF                                                          FC5A158A  305
  
  
  
  
                                                  QUAL   *                                                       IDP        80
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  306
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    58
        FTN 5 OWNCODE SUPPORT FOR IDP.                                OWNCODE 
  
                                        ***       FTN 5 OWNCODE SUPPORT FOR IDP.                                 IDP        82
                                        *                                                                        IDP        83
                                        *                                                                        IDP        84
                                        *         THE FOLLOWING SECTION CONTAINS FTN 5 OWNCODE SUPPORT           IDP        85
                                        *         AND INTERFACES TO IDP.  THIS SECTION IS INTENDED FOR           IDP        86
                                        *         **GENERAL** FTN USE, AND THEREFORE, SHOULD NOT CONTAIN         IDP        87
                                        *         ANY OVERLAY SPECIFIC STUFF.                                    IDP        88
  
  
  
  
                                        **        UKT= - USER KEYWORD TABLE.                                     IDP        90
                                        *                                                                        IDP        91
                                        *                                                                        IDP        92
                                        *         *UKT=* IS THE 1ST FTN USER KEYWORD TABLE IN IDP.S LINKED       IDP        93
                                        *         LIST OF USER KEYWORD TABLES.  IT CONTAINS PROCESSORS/KEYWORDS  IDP        94
                                        *         THAT CAN BE USED ANYWHERE DURING A FTN COMPILATION (I.E. NO    IDP        95
                                        *         OVERLAY SPECIFIC KEYWORDS).                                    IDP        96
                                        *                                                                        IDP        97
                                        *         ANY KEYWORD PROCESSORS FOR HIGHER OVERLAYS WILL BE DYNAMICALLY IDP        98
                                        *         LINKED WHEN THAT OVERLAY IS LOADED BY STORING THE NEXT         IDP        99
                                        *         KEYWORD LINK ADDR INTO (UKT=LNK).                              IDP       100
                                                                                                                 IDP       101
                                                                                                                 IDP       102
             0                           UKT=     BSS    0           ** FWA **                                   IDP       103
                                                  QUAL   IDP                                                     IDP       104
             0                           ABT      KEYW   ABT                                                     IDP       105
             2  00000006 +               ABT      KEYW   ABORT                                                   IDP       106
                                                  QUAL   *                                                       IDP       107
             4  00000000000000000000              DATA   0           ** END OF TABLE **                          IDP       108
             5  00000000000000000000     UKT=LNK  CONENT 0                                                       IDP       109
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    59
        FTN 5 OWNCODE SUPPORT FOR IDP.                                STMTPROC
  
                                        ***       FTN 5 IDP OWNCODE STMT PROCESSORS.                             IDP       111
                                        *                                                                        IDP       112
                                        *                                                                        IDP       113
                                        *         THE FOLLOWING ARE STMT PROCESSORS FOR PROCESSING               IDP       114
                                        *         THE KEYWORDS IN *UKT=* (USER KEYWORD TABLE).                   IDP       115
  
  
  
  
                                        **        ST=ABT - ABORT FROM IDP.                                       IDP       117
                                        *                                                                        IDP       118
                                        *                                                                        IDP       119
                                                                                                                 IDP       120
                                                                                                                 IDP       121
             6                           ST=ABT   BSS    0           ** ENTRY **                                 IDP       122
             6  0100006125 +                      RJ     RSR=        RESTORE REGISTERS                           IDP       123
             7  7160041121                        ABORT                                                          IDP       124
            11  0400000011 +             +        EQ     *           WAIT...                                     IDP       125
                                         #IDPOS   ENDIF                                                          FC5A158A  307
  
  
  
  
  
  
  
  
  
  
                                        ***       FTN 5 SUPPORT SUBROUTINES.                                     IDP       127
                                        *                                                                        IDP       128
                                        *         THE FOLLOWING ARE SUBROUTINES THAT INTERFACE TO IDP.           IDP       129
  
  
  
  
                                        **        DXP= - DUMP EXCHANGE PACKAGE.                                  IDP       131
                                        *                                                                        IDP       132
                                        *                                                                        IDP       133
                                        *                BECAUSE SCOPE 2 REPRIEVE HAS NO RESET, THE SYSTEM DUMPS IDP       134
                                        *         ALL REGISTERS AS THEY WERE DURING REPRIEVE PROCESSING; AND     IDP       135
                                        *         BECAUSE THIS IS NOT USEFUL, THIS ROUTINE DUMPS ALL REGISTERS   IDP       136
                                        *         AS THEY WERE WHEN REPRIEVE WAS CALLED. IT ALSO DUMPS 100       IDP       137
                                        *         WORDS EITHER SIDE OF WHAT THE -P- REGISTER WAS WHEN REPRIEVE   IDP       138
                                        *         WAS CALLED.                                                    IDP       139
                                        *                                                                        IDP       140
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE         IDP       141
                                        *                                                                        IDP       142
                                        *         EXIT   NONE                                                    IDP       143
                                        *                                                                        IDP       144
                                        *         USES   ALL BUT A0,A5,X5                                        IDP       145
                                        *                                                                        IDP       146
                                        *         CALLS  COD,DAR,DCM,PRIDP,TEX                                   IDP       147
                                                                                                                 IDP       148
                                         .OS      IFEQ   .OS,2       IF SCOPE 2                                  IDP       149
                                                                                                                 IDP       150
                                         DXP=     SUBR   =           ** ENTRY/EXIT **                            IDP       151
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    60
        FTN 5 OWNCODE SUPPORT FOR IDP.                                DXP=
  
                                                  RJ     TEX         TRANSFER EXCHANGE PACKAGE REGISTERS         IDP       152
                                                                                                                 IDP       153
                                        *         DUMP P,RA,FL,EM,RE,FE, AND MA.                                 IDP       154
                                                                                                                 IDP       155
                                         DXP2     SA3    DXPB                                                    IDP       156
                                                  SX6    X3-6                                                    IDP       157
                                                  ZR     X6,DXP3     IF DONE                                     IDP       158
                                                  SX6    X3+B1                                                   IDP       159
                                                  SA6    A3                                                      IDP       160
                                                  SA2    DXPA+X3     (X2) = .......XX.   (.=BLANK(55B))          IDP       161
                                                  SA1    HARDREG+X3  (X1) = SAVED CONTENTS OF HARDWARE REGISTER  IDP       162
                                                  BX6    X2                                                      IDP       163
                                                  SA6    =XSNAPLNE                                               IDP       164
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 IDP       165
                                                  LX6    3*CHAR      (X6) = .NNNNNN...                           IDP       166
                                                  SA6    A6+B1                                                   IDP       167
                                                  MX7    0                                                       IDP       168
                                                  SA7    A6+B1       MARK EOL                                    IDP       169
                                                  PRIDP  SNAPLNE,3                                               IDP       170
                                                  EQ     DXP2                                                    IDP       171
                                                                                                                 IDP       172
                                        *         HERE TO DUMP ALL REGISTERS.                                    IDP       173
                                                                                                                 IDP       174
                                         DXP3     RJ     DAR         DUMP ALL REGISTERS                          IDP       175
                                                                                                                 IDP       176
                                        *         HERE TO DUMP 100B WORDS EITHER SIDE OF -P- REGISTER            IDP       177
                                                                                                                 IDP       178
                                                  SA1    HARDREG     (X1) = -P- REGISTER                         IDP       179
                                                  SX4    200B        (X4) = NR OF WORDS TO DUMP (LEN)            IDP       180
                                                  NZ     X1,DXP4     IF -P- REGISTER NONZERO                     IDP       181
                                                  SA1    B0          EXTRACT -P- FROM RA+0                       IDP       182
                                                  LX1    59-47+18                                                IDP       183
                                                                                                                 IDP       184
                                         DXP4     MX0    -18                                                     IDP       185
                                                  BX1    -X0*X1                                                  IDP       186
                                                  SX2    X1-100B     (X2) = FWA TO DUMP                          IDP       187
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         IDP       188
                                                  EQ     EXIT.                                                   IDP       189
                                                                                                                 IDP       190
                                                                                                                 IDP       191
                                         DXPA     DATA   10H1       P  NNNNNN                                    IDP       192
                                                  DATA   10H       RA  NNNNNN                                    IDP       193
                                                  DATA   10H       FL  NNNNNN                                    IDP       194
                                                  DATA   10H       EM  NNNNNN                                    IDP       195
                                                  DATA   10H       RE  NNNNNN                                    IDP       196
                                                  DATA   10H       FE  NNNNNN                                    IDP       197
                                                  DATA   10H       MA  NNNNNN                                    IDP       198
                                                                                                                 IDP       199
                                         DXPB     BSSZ   1                                                       IDP       200
                                         .OS      ENDIF                                                          IDP       201
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    61
        FTN 5 OWNCODE SUPPORT FOR IDP.                                PTO 
  
                                        **        PTO - PRINT TABLE ORIGINS.                                     IDP       203
                                        *                                                                        IDP       204
                                        *                                                                        IDP       205
                                        *                PRINTS TABLE STATISTICS IN THE FOLLOWING FORMAT--       IDP       206
                                        *     COL 1         1         1         1         (.=BLANK(55B))         IDP       207
                                        *         ..........TABLE.......ORIGIN......SIZE.....SLOP...             IDP       208
                                        *         ......NN..NAME........NNNNNN....NNNNNN...NNNNNN...             IDP       209
                                        *                                                                        IDP       210
                                        *         ENTRY  NONE                                                    IDP       211
                                        *                                                                        IDP       212
                                        *         EXIT   (X0) = TOTAL LENGTH OF ALL TABLES                       IDP       213
                                        *                                                                        IDP       214
                                        *         USES   ALL                                                     IDP       215
                                        *                                                                        IDP       216
                                        *         CALLS  COD,PLINE                                               IDP       217
                                                                                                                 IDP       218
                                                                                                                 IDP       219
            12  0400400012 +             PTO      SUBR   =                                                       IDP       220
            13  56000                             SA0    B0          (A0) = TABLE ORDINAL                        IDP       221
                     76000                        =X0    0                                                       IDP       222
                          7110000050 +            PLINE  PTOA,5,1                                                IDP       223
                                                                                                                 IDP       224
            16  74100                    PTO2     SX1    A0                                                      IDP       225
                     0100005002 +                 RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- TABLE ORD    IDP       226
            17  5010000000 X                      SA1    =XNAMES+A0  (X1) = 42/7LNAME,18/ORDINAL                 IDP       227
                          43452                   MX4    7*6                                                     IDP       228
            20  5150006167 +                      SA5    =3R                                                     IDP       229
                          11241                   BX2    X4*X1       REMOVE TABLE ORDINAL                        IDP       230
                               20614              LX6    2*CHAR      (X6) = ......NN..   (.=BLANK(55B))          IDP       231
            21  12725                             BX7    X2+X5                                                   IDP       232
                     5160000607 +                 SA6    =XSNAPLNE                                               IDP       233
            22  5010000000 X                      SA1    =XBASES+A0  (X1) = TABLE ORIGIN                         IDP       234
                          54761                   SA7    A6+B1                                                   IDP       235
                               73511              =X5    X1+FUDGE    (X5) = ORIGIN + FUDGE                       IDP       236
            23  0100005002 +                      RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ORIGIN       IDP       237
            24  20614                             LX6    2*CHAR                                                  IDP       238
                     54671                        SA6    A7+B1       (X6) = ..NNNNNN..   (.=BLANK(55B))          IDP       239
                                                                                                                 IDP       240
                          54311                   SA3    A1+B1       (X3) = ORIGIN OF NEXT TABLE                 IDP       241
            25  5010000000 X                      SA1    A0+=XSIZES  (X1) = TABLE LENGTH                         IDP       242
                          36001                   IX0    X0+X1       TOTAL LENGTH                                IDP       243
                               36551              IX5    X5+X1                                                   IDP       244
            26  37535                             IX5    X3-X5       (X5) = AMOUNT OF SLOP SPACE                 IDP       245
                     0100005002 +                 RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- LENGTH       IDP       246
            27  20614                             LX6    2*CHAR      (X6) = ..NNNNNN..   (.=BLANK(55B))          IDP       247
                     54661                        SA6    A6+B1                                                   IDP       248
                                                                                                                 IDP       249
                          10155                   BX1    X5                                                      IDP       250
            30  0100005002 +                      RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- SLOP         IDP       251
            31  20614                             LX6    2*CHAR                                                  IDP       252
                     54661                        SA6    A6+B1                                                   IDP       253
                          10500                   BX5    X0          SAVE X0                                     IDP       254
            32  7160000000 X                      SX6    =XALTNAM    START OF ALTERNATE NAME TABLE               IDP       255
                          5160000055 +            SA6    PTOB        SAVE IT                                     IDP       256
            33  7120000005                        SX2    5           LENGTH FOR WOF                              IDP       257
            34  7110000607 +             PTO3     PLINE  SNAPLNE,X2                                              IDP       258
            36  5110000055 +                      SA1    PTOB                                                    IDP       259
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    62
        FTN 5 OWNCODE SUPPORT FOR IDP.                                PTO 
  
                          63610                   SB6    X1          CURRENT POSITION IN ALTERNAME NAME TABLE    IDP       260
                               43022              MX0    18                                                      IDP       261
            37  20022                             LX0    18                                                      IDP       262
                     74100                        SX1    A0          ORDINAL TO SEARCH FOR                       IDP       263
                          0100004157 +            CALL   SKT         FIND ALTERNATE NAME                         IDP       264
            40  0302000045 +                      ZR     X2,PTO4     IF NO ALTERNATES                            IDP       265
                                                                                                                 IDP       266
                          43452                   MX4    42                                                      IDP       267
                               11642              BX6    X4*X2       REMOVE ORDINAL                              IDP       268
            41  5110006170 +                      SA1    =10H                                                    IDP       269
                          10711                   BX7    X1                                                      IDP       270
            42  5170000607 +                      SA7    =XSNAPLNE                                               IDP       271
                          54671                   SA6    A7+B1                                                   IDP       272
                               74621              =X6    A2+1        NEXT WORD IN ALTNAM TABLE                   IDP       273
            43  5160000055 +                      SA6    PTOB        SAVE IT                                     IDP       274
                          7120000002              SX2    2           LENGTH FOR WOF                              IDP       275
            44  0400000034 +                      EQ     PTO3        FIND MORE ALTERNATES                        IDP       276
                                                                                                                 IDP       277
            45  10055                    PTO4     BX0    X5          RESTORE X0                                  IDP       278
                     6160777776 X                 SB6    =XN.TABLE-1                                             IDP       279
                               54001              SA0    A0+B1                                                   IDP       280
            46  64700                             SB7    A0                                                      IDP       281
                     0776000016 +                 LT     B7,B6,PTO2  IF MORE TABLES TO GO                        IDP       282
            47  0400000012 +                      EQ     EXIT.                                                   IDP       283
                                                                                                                 IDP       284
                                                                                                                 IDP       285
            50  55555555555555555555     PTOA     DIS    5,          TABLE      ORIGIN      SIZE     SLOP        IDP       286
            55  00000000000000000000     PTOB     CON    0           SAVE WORD FOR ALTNAM POINTER                IDP       287
  
  
  
  
                                        **        TEX - TRANSFER EXCHANGE PACKAGE REGISTERS.                     IDP       289
                                        *                                                                        IDP       290
                                        *                                                                        IDP       291
                                        *                THIS ROUTINE WILL TRANSFER THE CONTENTS OF THE          IDP       292
                                        *         REGISTERS IN THE SAVED EXCHANGE PACKAGE TO THE REGISTER SAVE   IDP       293
                                        *         AREA (SVB,SVA,SVX -- AS SET UP BY *COMCSVR*). A SUBSEQUENT     IDP       294
                                        *         CALL TO *RSR=* WOULD RESTORE ALL REGISTERS TO THEIR VALUES     IDP       295
                                        *         AT THE TIME OF THE EXCHANGE.                                   IDP       296
                                        *                                                                        IDP       297
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE         IDP       298
                                        *                                                                        IDP       299
                                        *         EXIT   NONE                                                    IDP       300
                                        *                                                                        IDP       301
                                        *         USES   X - 0,1,6,7                                             IDP       302
                                        *                A - 1,6,7                                               IDP       303
                                        *                B - 2,3,4,5,7                                           IDP       304
                                        *                                                                        IDP       305
                                        *         CALLS  NONE                                                    IDP       306
                                                                                                                 IDP       307
                                                                                                                 IDP       308
            56  5110000074 +                      SA1    HARDREG     P-REGISTER                                  IDP       309
                          7261777775              SX6    X1-2                                                    IDP       310
            57  0321000012 +                      PL     X1,EXIT.    IF P-REGISTER NOT CLEARED                   IDP       311
                          43053                   MX0    -17                                                     IDP       312
                               56500              =A5    0                                                       IDP       313
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    63
        FTN 5 OWNCODE SUPPORT FOR IDP.                                TEX 
  
            60  20536                             LX5    59-47+18                                                IDP       314
                     15650                        BX6    -X0*X5                                                  IDP       315
                          5160000074 +            SA6    HARDREG     SET UP P-REGISTER                           IDP       316
            61  0400400061 +             TEX      SUBR               ** ENTRY/EXIT **                            IDP       317
            62  5011000017                        SA1    A1+16-1     (X1) = LAST WORD OF 16 WORD EXCHANGE PKG    IDP       318
                          6120006052 +            SB2    =XSVB                                                   IDP       319
            63  6130006062 +                      SB3    =XSVA                                                   IDP       320
                          6140006072 +            SB4    =XSVX                                                   IDP       321
            64  6150000074 +                      SB5    HARDREG                                                 IDP       322
                          6170000007              SB7    7           (B7) = LOOP COUNT -N-                       IDP       323
            65  43052                             MX0    -18                                                     IDP       324
                                                                                                                 IDP       325
                                        *         RESTORE -X- REGISTERS.                                         IDP       326
                                                                                                                 IDP       327
            66  10611                    TEX2     BX6    X1                                                      IDP       328
                     56647                        SA6    B4+B7                                                   IDP       329
                          67771                   SB7    B7-B1       N-1                                         IDP       330
                               55111              SA1    A1-B1                                                   IDP       331
            67  0670000066 +                      GE     B7,B0,TEX2  IF MORE -X- REGS TO GO                      IDP       332
                                                                                                                 IDP       333
                                        *         RESTORE -B- AND -A- REGS, AND SAVE P,RA,FL,EM,RE,FE,MA.        IDP       334
                                                                                                                 IDP       335
                          6170000007              SB7    7           (B7) = LOOP COUNT -N-                       IDP       336
                                                                                                                 IDP       337
            70  15610                    TEX3     BX6    -X0*X1      (X6) = (B-N-)                               IDP       338
                     20152                        LX1    -18                                                     IDP       339
                          15710                   BX7    -X0*X1      (X7) = (A-N-)                               IDP       340
                               56627              SA6    B2+B7                                                   IDP       341
            71  56737                             SA7    B3+B7                                                   IDP       342
                     20152                        LX1    -18                                                     IDP       343
                          15610                   BX6    -X0*X1      (X6) = P,RA,FL,EM,RE,FE,OR MA               IDP       344
                               56657              SA6    B5+B7                                                   IDP       345
            72  67771                             SB7    B7-B1       N-1                                         IDP       346
                     55111                        SA1    A1-B1                                                   IDP       347
                          0670000070 +            GE     B7,B0,TEX3  IF NOT DONE                                 IDP       348
            73  0400000061 +                      EQ     EXIT.                                                   IDP       349
                                                                                                                 IDP       350
                                                                                                                 IDP       351
            74                    10     HARDREG  BSSZ   8           SAVED HARDWARE REGISTERS                    IDP       352
                                        *         BSSZ   1           SAVED P                                     IDP       353
                                        *         BSSZ   1           SAVED RA                                    IDP       354
                                        *         BSSZ   1           SAVED FL                                    IDP       355
                                        *         BSSZ   1           SAVED EM                                    IDP       356
                                        *         BSSZ   1           SAVED RE                                    IDP       357
                                        *         BSSZ   1           SAVED FE                                    IDP       358
                                        *         BSSZ   1           SAVED MA                                    IDP       359
                                        *         BSSZ   1           DUMMY FOR CONSISTENCY                       IDP       360
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    64
        FTN 5 OWNCODE SUPPORT FOR IDP.                                UIO=
  
                                        **        UIO= - USER IDP OWNCODE.                                       IDP       362
                                        *                                                                        IDP       363
                                        *                                                                        IDP       364
                                        *         ENTRY  (RA.ORG) =  12/LAST OVERLAY LOADED (0P0S FMT),48/OTHER  IDP       365
                                        *                (UIOA)   =  48/0,12/LAST OVERLAY LOADED ON PREVIOUS     IDP       366
                                        *                              IDP CALL (0P0S FMT)                       IDP       367
                                        *                                                                        IDP       368
                                        *         EXIT   (X1)     =  .MI., I.E. HONOR BREAK                      IDP       369
                                        *                                                                        IDP       370
                                        *                WARNING -- IF THE USER HAS NOT ALLOTTED ENOUGH SPACE    IDP       371
                                        *                  FOR THE USER *SET* NAME TABLE *IDPSET* TO CONTAIN     IDP       372
                                        *                  ALL THE DEFAULT *SET* NMAES, THEN *ADZ* (CALLED BY    IDP       373
                                        *                  *IST*) WILL SENSE TABLE OVERFLOW AND XIT TO *IDP=ER*. IDP       374
                                        *                  THIS CONDITION SHOULD BE AVOIDED.                     IDP       375
                                        *                                                                        IDP       376
                                        *         USES   X - 0,1,2,3,6,7   (INCLUDES ALL CALLS)                  IDP       377
                                        *                A - 1,2,6                                               IDP       378
                                        *                B - 6,7                                                 IDP       379
                                        *                                                                        IDP       380
                                        *         CALLS  CLZ,IST                                                 IDP       381
                                                                                                                 IDP       382
                                         #OS      IFNE   .OS,2                                                   IDP       383
                                                                                                                 IDP       384
           104  0400400104 +             UIO=     SUBR   =           ** ENTRY/EXIT **                            IDP       385
           105  5120000100                        SA2    RA.ORG                                                  IDP       386
                          5130000112 +            SA3    UIOA                                                    IDP       387
           106  43101                             MX1    1           SET TO *HONOR BREAK*                        IDP       388
                     21260                        AX2    48-0                                                    IDP       389
                          37723                   IX7    X2-X3                                                   IDP       390
                               10622              BX6    X2                                                      IDP       391
           107  0307000104 +                      ZR     X7,EXIT.    IF WE ARE STILL IN THE SAME OVERLAY         IDP       392
                          54630                   SA6    A3                                                      IDP       393
           110  6160001327 +                      SB6    /IDP/IDPBA                                              IDP       394
                          0100002546 +            RJ     CLZ         CLEAR IDP TABLE -- BREAK ADDRESSES          IDP       395
           111  43101                             MX1    1           SET TO *HONOR BREAK*                        IDP       396
                     0400000104 +                 EQ     EXIT.                                                   IDP       397
                                                                                                                 IDP       398
                                                                                                                 IDP       399
           112                     1     UIOA     BSSZ   1           USED TO TELL WHETHER OR NOT A NEW OVERLAY   IDP       400
                                        *                              HAS BEEN LOADED SINCE THE LAST *IDP*      IDP       401
                                        *                              CALL-- CONTAINS THE MOST RECENT OVERLAY   IDP       402
                                        *                              LOADED NR FROM *RA.ORG* -- 48/0,12/0P0S   IDP       403
                                         #OS      ENDIF                                                          IDP       404
  
  
  
  
                                        **        URO= - USER REG= OWNCODE.                                      IDP       406
                                        *                                                                        IDP       407
                                        *         ENTRY  (X5) = FWA OF *REG=* PARAMETER LIST                     IDP       408
                                        *                                                                        IDP       409
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.            IDP       410
                                        *                                                                        IDP       411
                                        *         USES   ALL                                                     IDP       412
                                        *                                                                        IDP       413
                                        *         CALLS  NONE                                                    IDP       414
                                                                                                                 IDP       415
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    65
        FTN 5 OWNCODE SUPPORT FOR IDP.                                URO=
  
                                                                                                                 IDP       416
           113  0400400113 +             URO=     SUBR   =           ** ENTRY/EXIT **                            IDP       417
           114  5120000000 X                      SA2    =XCO.SNAP                                               IDP       418
                          5235000005              SA3    X5+/IDP/SN=URF  (X3) = USER *REG* FLAGS                 IDP       419
           115  14122                             BX1    -X2                                                     IDP       420
                     20107                        LX1    1RG                                                     IDP       421
                          0321000113 +            PL     X1,EXIT.    IF *SNAP=G* SELECTED, NO SNAPS...           IDP       422
           116  0303000113 +                      ZR     X3,EXIT.    IF *USF* WORD IS .ZR., SELECT SNAPS...      IDP       423
                                                                                                                 IDP       424
                          11623                   BX6    X2*X3                                                   IDP       425
           117  0316000113 +                      NZ     X6,EXIT.    IF A MATCH SOMEWHERE, SELECT SNAPS...       IDP       426
                          13111                   BX1    X1-X1       SET TO *DESELECT SNAPS*                     IDP       427
           120  0400000113 +                      EQ     EXIT.                                                   IDP       428
  
  
  
  
                                        **        USO= - USER SNP= OWNCODE.                                      IDP       430
                                        *                                                                        IDP       431
                                        *         ENTRY  (X5) = FWA OF *SNP=* PARAMETER LIST                     IDP       432
                                        *                                                                        IDP       433
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.            IDP       434
                                        *                                                                        IDP       435
                                        *         USES   ALL                                                     IDP       436
                                        *                                                                        IDP       437
                                        *         CALLS  NONE                                                    IDP       438
                                                                                                                 IDP       439
                                                                                                                 IDP       440
           121  0400400121 +             USO=     SUBR   =           ** ENTRY/EXIT **                            IDP       441
           122  5120000000 X                      SA2    =XCO.SNAP                                               IDP       442
                          5235000010              SA3    X5+/IDP/SN=USF  (X3) = USER *SNP* FLAGS                 IDP       443
           123  14122                             BX1    -X2                                                     IDP       444
                     20107                        LX1    1RG                                                     IDP       445
                          0321000121 +            PL     X1,EXIT.    IF *SNAP=G* SELECTED, NO SNAPS...           IDP       446
           124  0303000121 +                      ZR     X3,EXIT.    IF *USF* WORD IS .ZR., SELECT SNAPS...      IDP       447
                                                                                                                 IDP       448
                          11623                   BX6    X2*X3                                                   IDP       449
           125  0316000121 +                      NZ     X6,EXIT.    IF A MATCH SOMEWHERE, SELECT SNAPS...       IDP       450
                          13111                   BX1    X1-X1       SET TO *DESELECT SNAPS*                     IDP       451
           126  0400000121 +                      EQ     EXIT.                                                   IDP       452
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  308
                                        **        USY= - USER IDP SYMBOL SEARCH.                                 IDP       453
                                        *                                                                        IDP       454
                                        *                                                                        IDP       455
                                        *         *USY=* PROVIDES A LINKAGE TO AN IDP SYMBOL SEARCH              IDP       456
                                        *         ROUTINE IN ANOTHER (POSSIBLY HIGHER) OVERLAY.  THIS            IDP       457
                                        *         IS DONE BY CONSTRUCTING AN *RJ* TO THE ADDRESS                 IDP       458
                                        *         OF A SUBROUTINE THAT WAS PREVIOUSLY SET UP DURING              IDP       459
                                        *         OVERLAY INITIALIZATION.  SEE *USY=* IN COMCIDP, AND THE        IDP       460
                                        *         *INITXX*S.                                                     IDP       461
                                        *                                                                        IDP       462
                                        *         ENTRY  (X1) = SYMBOL TO SEARCH FOR, -L- FMT.                   IDP       463
                                        *                                                                        IDP       464
                                        *         EXIT   (X1) = .NZ. IF A FIND, ELSE .ZR.                        IDP       465
                                        *                (X6) = BINARY VALUE FOR SYMBOL.                         IDP       466
                                        *                                                                        IDP       467
                                        *         USES   ALL BUT A0,X0,A5,X5                                     IDP       468
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    66
        FTN 5 OWNCODE SUPPORT FOR IDP.                                USO=
  
                                        *                                                                        IDP       469
                                        *         CALLS  USY=XX(VIA CONSTRUCTED *RJ*)                            IDP       470
                                                                                                                 IDP       471
                                                                                                                 IDP       472
           127  0400400127 +             USY=     SUBR               ** ENTRY/EXIT **                            IDP       473
           130  5120000141 +                      SA2    IDP=USY     (X2) = ADDR OF *USY=XX* SUBROUTINE          IDP       474
                          63220                   SB2    X2                                                      IDP       475
                               10611              BX6    X1                                                      IDP       476
           131  5160000137 +                      SA6    USYA        SAVE (X1)                                   IDP       477
                          0100002447 +            RJ     /IDP/CHK    CHECK CM ADDRESS                            IDP       478
           132  13111                             BX1    X1-X1       PRESET TO *NO FIND*                         IDP       479
                     76320                        SX3    B2                                                      IDP       480
                          0602000127 +            LE     B2,B0,EXIT. IF USER DID NOT PROVIDE *USY=XX*            IDP       481
                                                                                                                 IDP       482
           133  5110000137 +                      SA1    USYA                                                    IDP       483
                          5120000140 +            SA2    USYB        (X2) = *RJ* SKELETON                        IDP       484
           134  20336                             LX3    30                                                      IDP       485
                     12623                        BX6    X2+X3       CONSTRUCT *RJ USY=XX*                       IDP       486
                          5160000135 +            SA6    USY=RJ                                                  IDP       487
                                                                                                                 IDP       488
           135                     1     USY=RJ   BSSZ   1                                                       IDP       489
           136  0400000127 +                      EQ     EXIT.                                                   IDP       490
                                                                                                                 IDP       491
                                                                                                                 IDP       492
           137                     1     USYA     BSSZ   1           SAVED (X1)                                  IDP       493
                                                                                                                 IDP       494
           140  0100000000               USYB     RJ     0           RJ SKELETON                                 IDP       495
                                                                                                                 IDP       496
                                                                                                                 IDP       497
           141  00000000000000400141 +   IDP=USY  CONENT "BLOWUP"    ADDR OF *USY=XX* SUBROUTINE                 IDP       498
  
  
  
  
                                        **        UFT= - USER FILE NAME TABLE.                                   IDP       500
                                                                                                                 IDP       501
                                                                                                                 IDP       503
           142                           UFT=     BSS    0                                                       IDP       504
           142  11162025240000000000 X            VFD    42/0LINPUT,18/=XF.IN                                    IDP       505
           143  06571725240000000000 X            VFD    42/0LF.OUT,18/=XF.OUT                                   IDP       506
           144  17252420252400000000 X            VFD    42/0LOUTPUT,18/=XF.OUT                                  IDP       507
           145  00000000000000000000              DATA   0           END OF TABLE MARK                           IDP       508
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    67
        COMCLFM - LOCAL FILE MANAGER PROCESSOR. 
  
           146                                    CTEXT  COMCLFM - LOCAL FILE MANAGER PROCESSOR.                 COMCLFM     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCLFM     4
                                                  QUAL   COMCLFM                                                 COMCLFM     5
                                 D_D              BASE   D                                                       COMCLFM     6
                                        *         COMMENT COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.             CCG*94     10
  
  
  
  
                                        ***       LFM - LOCAL FILE MANAGER PROCESSOR.                            COMCLFM     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCLFM    10
  
  
  
  
                                        ***              LFM PROCESSES REQUESTS FOR THE LOCAL FILE MANAGER PP    COMCLFM    12
                                        *         PROGRAM *LFM*.                                                 COMCLFM    13
                                        *         IF THE SPECIFIED FET IS BUSY, A FILE RECALL IS PERFORMED.      COMCLFM    14
                                        *         IF THE SPECIFIED FET IS BLANK, LFM RETURNS WITH NO ACTION      COMCLFM    15
                                        *         TAKEN.                                                         COMCLFM    16
                                        *                                                                        COMCLFM    17
                                        *         ENTRY  (X2) = ADDRESS OF FET.                                  COMCLFM    18
                                        *                (X7) = FUNCTION CODE.                                   COMCLFM    19
                                        *                                                                        COMCLFM    20
                                        *         EXIT   (X2) = ADDRESS OF FET.                                  COMCLFM    21
                                        *                                                                        COMCLFM    22
                                        *         USES   X - 1, 6, 7.                                            COMCLFM    23
                                        *                B - NONE.                                               COMCLFM    24
                                        *                A - 1.                                                  COMCLFM    25
                                        *                                                                        COMCLFM    26
                                        *         CALLS  SYS=.                                                   COMCLFM    27
                                                                                                                 COMCLFM    28
                                                                                                                 COMCLFM    29
           146  73220                    LFM2     SX2    X2                                                      COMCLFM    30
                     0100005416 +                 RJ     =XSYS=                                                  COMCLFM    31
                                                                                                                 COMCLFM    32
           147  0000000000               LFM=     PS                 ENTRY/EXIT                                  COMCLFM    33
           150  53120                             SA1    X2          CHECK FILE STATUS                           COMCLFM    34
                     20173                        LX1    59                                                      COMCLFM    35
                          0331000152 +            NG     X1,LFM1     IF NOT BUSY                                 COMCLFM    36
           151  0301000147 +                      ZR     X1,LFM=     RETURN IF BLANK FET                         COMCLFM    37
                          0100000000 X            RECALL X2                                                      COMCLFM    38
           152  53120                    LFM1     SA1    X2          SET FET BUSY                                COMCLFM    39
                     43673                        MX6    59                                                      COMCLFM    40
                          11661                   BX6    X6*X1                                                   COMCLFM    41
                               54610              SA6    A1                                                      COMCLFM    42
           153  5110000155 +                      SA1    LFMA        SET *LFM* REQUEST                           COMCLFM    43
                          20730                   LX7    24                                                      COMCLFM    44
                               12117              BX1    X1+X7                                                   COMCLFM    45
           154  12612                             BX6    X1+X2                                                   COMCLFM    46
                     0400000146 +                 EQ     LFM2                                                    COMCLFM    47
                                                                                                                 COMCLFM    48
           155  14061520000000000000     LFMA     CON    0LLFM+1S40                                              COMCLFM    49
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    68
        COMCLFM - LOCAL FILE MANAGER PROCESSOR.                                           COMCLFM 
  
                                 D_D              BASE   *                                                       COMCLFM    51
                                         QUAL$    IF     -DEF,QUAL$                                              COMCLFM    52
                                                  QUAL   *                                                       COMCLFM    53
                                 147 +   LFM=     EQU    /COMCLFM/LFM=                                           COMCLFM    54
                                         QUAL$    ENDIF                                                          COMCLFM    55
                                                  ENDX                                                           COMCLFM    56
                                         #IDPOS   ENDIF                                                          FC5A158A  309
  
  
  
  
                                                  QUAL   IDP                                                     IDP       512
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    69
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
           156                           COMCIDP  CTEXT  COMCIDP "IDPVER" - INTERACTIVE DEBUG PACKAGE.           COMCIDP     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCIDP     4
                                                  QUAL   COMCIDP                                                 COMCIDP     5
                                 D_D              BASE   D                                                       COMCIDP     6
                                                                                                                 COMCIDP     7
                                         IDP      MICRO  1,,/"QUAL"/                                             COMCIDP     8
  
  
  
  
                                        ***       COMCIDP - INTERACTIVE AND BATCH DEBUG PACKAGES.                COMCIDP    10
                                        *                                                                        COMCIDP    11
                                        *                                                                        COMCIDP    12
                                        *         CONTAINS THE INTERACTIVE DEBUG PACKAGE (IDP=), WHICH PLACES    COMCIDP    13
                                        *         A HOST PROGRAM IN INTERACTIVE MODE;  AND THE 2 BATCH           COMCIDP    14
                                        *         DEBUGGING ROUTINES (REG=,SNP=), WHICH PROVIDE REGISTER AND     COMCIDP    15
                                        *         CORE SNAPSHOT DUMPS.                                           COMCIDP    16
                                        *                                                                        COMCIDP    17
                                        *         IN THE SECTIONS THAT FOLLOW, *IDP DEPENDENCIES* ARE DEFINED    COMCIDP    18
                                        *         TO BE THE INTERFACES THAT THE IDP INSTALLER MUST PROVIDE;      COMCIDP    19
                                        *         AND *IDP OPTIONS* ARE THOSE INTERFACES WHICH ARE OPTIONAL.     COMCIDP    20
                                        *         THAT IS, INTERFACES THAT HAVE DEFAULT CONDITIONS.              COMCIDP    21
                                        *                                                                        COMCIDP    22
                                        *         IN THE CASE WHERE THE USER PROVIDES A SUBROUTINE THAT WILL     COMCIDP    23
                                        *         BE CALLED BY IDP, THE *ENTRY* AND *EXIT* CONDITIONS ARE SHOWN. COMCIDP    24
                                        *         IN ADDITION, THE REGISTERS THAT CANNOT BE ALTERED BY THE USER  COMCIDP    25
                                        *         SUBROUTINE ARE SPECIFIED VIA *LOCKED*.  (B1) ARE ASSUMED TO BE COMCIDP    26
                                        *         EQUAL TO 1 (LOCKED), AND WILL THEREFORE NOT BE MENTIONED       COMCIDP    27
                                        *         AGAIN.                                                         COMCIDP    28
                                        *                                                                        COMCIDP    29
                                        ************************************************************************ COMCIDP    30
                                        *                                                                        COMCIDP    31
                                        *         IDP DEPENDENCIES--                                             COMCIDP    32
                                        *                                                                        COMCIDP    33
                                        ************************************************************************ COMCIDP    34
                                        *                                                                        COMCIDP    35
                                        *         COMDECKS NEEDED BY *COMCIDP*.  ALTHOUGH THESE COMDECKS         COMCIDP    36
                                        *         ARE NOT ALL STRICTLY ASSEMBLY-TIME DEPENDENCIES (I.E. SOME CAN COMCIDP    37
                                        *         BE SATISFIED AT LOAD-TIME), THE POINT IS THAT THEY ALL HAVE    COMCIDP    38
                                        *         TO BE AROUND FOR *COMCIDP* TO WORK.  SOME ARE THE CLASSIC      COMCIDP    39
                                        *         *KRONOS* COMDECKS AND SOME ARE NEW.  ALL CAN BE FOUND ON       COMCIDP    40
                                        *         *IDPPL* (IDP OLDPL), *OLDPL,ID=COMPASS*, OR *CPUTEXT*.         COMCIDP    41
                                        *                                                                        COMCIDP    42
                                        *         WARNING-- IT IS SUGGESTED THAT THE IDP INSTALLER PROVIDE       COMCIDP    43
                                        *         SEPARATE COPIES OF CODE COMDECKS FOR *COMCIDP*, EVEN IF        COMCIDP    44
                                        *         THE HOST ALREADY HAS COPIES OF THESE COMDECKS.  THIS WILL      COMCIDP    45
                                        *         AVOID PROBLEMS THAT CAN OCCUR IN *STEP* MODE WHEN IDP          COMCIDP    46
                                        *         TRIES TO STEP COMDECKS THAT IT IS ALSO USING ITSELF.           COMCIDP    47
                                        *                                                                        COMCIDP    48
                                        *         ACTCOM    COMACIO   COMADEF   COMAFET   COMAIDP   COMAREG      COMCIDP    49
                                        *         COMATOK                                                        COMCIDP    50
                                        *                                                                        COMCIDP    51
                                        *         COMCBUB   COMCBUN   COMCCDD   COMCCIO   COMCCOD   COMCLFM      COMCIDP    52
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    70
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
                                        *         COMCMCS   COMCRDC   COMCRDW   COMCRSR   COMCSBM   COMCSFN      COMCIDP    53
                                        *         COMCSVR   COMCSYS   COMCTOK   COMCWOD   COMCWTC   COMCWTW      COMCIDP    54
                                        *         COMCXJR   COMCZTB                                              COMCIDP    55
                                        *                                                                        COMCIDP    56
                                        *         COMSIDP   COMSRAS   COMSTOK                                    COMCIDP    57
                                        ************************************************************************ COMCIDP    58
                                        *                                                                        COMCIDP    59
                                        *         IDP OPTIONS--                                                  COMCIDP    60
                                        *                                                                        COMCIDP    61
                                        ************************************************************************ COMCIDP    62
                                        *                                                                        COMCIDP    63
                                        *         CP.NFLS - NOMINAL FIELD LENGTH SCM.                            COMCIDP    64
                                        *                                                                        COMCIDP    65
                                        *         IF THE SYMBOL *CP.NFLS* IS AVAILABLE (=Y), THEN IT IS THE      COMCIDP    66
                                        *         ADDR OF THE SCM LOCATION THAT CONTAINS THE CURRENT NOMINAL     COMCIDP    67
                                        *         FIELD LENGTH SCM FOR THE HOST PROGRAM.  THIS OPTION IS         COMCIDP    68
                                        *         INTENDED FOR HOST PROGRAMS THAT PERFORM THEIR OWN MEMORY       COMCIDP    69
                                        *         MANAGEMENT.  IF *CP.NFLS* IS AVAILABLE, THEN *IDP* USES ITS    COMCIDP    70
                                        *         CONTENTS FOR ADDR LEGALITY CHECKS AND ASSUMES THAT THE HOST    COMCIDP    71
                                        *         IS KEEPING IT UPDATED.                                         COMCIDP    72
                                        *                                                                        COMCIDP    73
                                        *                0 .LE. LEGAL ADDR .LT. (CP.NFLS)                        COMCIDP    74
                                        *                                                                        COMCIDP    75
                                        *         FORMAT --                                                      COMCIDP    76
                                        *                VFD   42/0,18/FL                                        COMCIDP    77
                                        *                                                                        COMCIDP    78
                                        *         IF THE SYMBOL *CP.NFLS* IS NOT AVAILABLE, THEN *IDP*           COMCIDP    79
                                        *         WILL CHECK SCM ADDRESSES USING THE FOLLOWING SCHEME--          COMCIDP    80
                                        *                                                                        COMCIDP    81
                                        *           1. IF BITS 0 THRU 17 OF (RA.LWP) ARE .MI., THEN *CMM*        COMCIDP    82
                                        *              IS ACTIVE.  *IDP* WILL THEREFORE TRY AND FIND THE         COMCIDP    83
                                        *              CURRENT FL AT (DABA), I.E. (-(RA.LWP)).  HOWEVER,         COMCIDP    84
                                        *              BECAUSE *CMM* IS NOT REAL GOOD AT KEEPING *DABA*          COMCIDP    85
                                        *              UPDATED PROPERLY, *IDP* WILL DOUBLE CHECK AN              COMCIDP    86
                                        *              ADDR THAT *DABA* INDICATES IS OUT-OF-RANGE BY PERFORMING  COMCIDP    87
                                        *              A SYSTEM *MEMORY* (*MEM* REQUEST) TO FIND OUT THE TRUE    COMCIDP    88
                                        *              FL.  NOTE-- *IDP* DOES NOT UNCONDITIONALLY CHECK ADDRS    COMCIDP    89
                                        *              AGAINST A *MEMORY* FOR EFFICIENCY REASONS.                COMCIDP    90
                                        *                                                                        COMCIDP    91
                                        *           2. IF BITS 0 THRU 17 OF (RA.LWP) ARE .PL., THEN ADDRESSES    COMCIDP    92
                                        *              ARE CHECKED AGAINST A *MEMORY* REQUEST.                   COMCIDP    93
                                        *                                                                        COMCIDP    94
                                        ************************************************************************ COMCIDP    95
                                        *                                                                        COMCIDP    96
                                        *         EOS - END-OF-STATEMENT MICRO.                                  COMCIDP    97
                                        *                                                                        COMCIDP    98
                                        *         IF THE SYMBOL *EOS* IS A MICRO NAME (MIC), THEN                COMCIDP    99
                                        *         "EOS" IS A MICRO WHICH DEFINES THE INTERACTIVE                 COMCIDP   100
                                        *         END-OF-STATEMENT CHARACTER.  THE USE OF THIS CHARACTER ALLOWS  COMCIDP   101
                                        *         AN *IDP* USER TO ENTER MORE THAN ONE INTERACTIVE COMMAND ON    COMCIDP   102
                                        *         A SINGLE LINE.                                                 COMCIDP   103
                                        *                                                                        COMCIDP   104
                                        *         DEFAULT IS --                                                  COMCIDP   105
                                        *                                                                        COMCIDP   106
                                        *         EOS    MICRO  1,,/;/                                           COMCIDP   107
                                        *                                                                        COMCIDP   108
                                        *         E.G.   SNAP,100;REG,X1;END                                     COMCIDP   109
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    71
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
                                        *                                                                        COMCIDP   110
                                        *         NOTE   THE END OF STATEMENT LOGIC WILL NOT WORK PROPERLY IF    COMCIDP   111
                                        *                "EOS" IS ONE OF THE FOLLOWING 8 CHARACTERS --           COMCIDP   112
                                        *                JKLMNOPQ                                                COMCIDP   113
                                        ************************************************************************ COMCIDP   114
                                        *                                                                        COMCIDP   115
                                        *         FAA= - FIND ABSOLUTE ADDRESS.                                  COMCIDP   116
                                        *                                                                        COMCIDP   117
                                        *         IF THE SYMBOL *FAA=* IS AVAILABLE (=Y), THEN *FAA= - FIND      COMCIDP   118
                                        *         ABSOLUTE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE       COMCIDP   119
                                        *         *COMCIDP* WITH AN ABSOLUTE ADDRESS ASSOCIATED WITH A *NAME*.   COMCIDP   120
                                        *         THIS OPTION IS INTENDED FOR HOST PROGRAMS THAT CONSIST OF      COMCIDP   121
                                        *         MULTIPLE *DECK*S OR *IDENT*S, AND WHERE USERS OF *IDP* WOULD   COMCIDP   122
                                        *         LIKE TO BE ABLE TO REFERENCE ADDRESSES RELATIVE TO A           COMCIDP   123
                                        *         DECK NAME--  E.G. SNAP NAME+20,,10                             COMCIDP   124
                                        *                                                                        COMCIDP   125
                                        *         IF *FAA=* IS AVAILABLE, THEN *IDP* WILL *RJ =XFAA=* TO TRY TO  COMCIDP   126
                                        *         ASSOCIATE AN ABSOLUTE ADDRESS WITH *NAME* BEFORE HE SEARCHS    COMCIDP   127
                                        *         THE USER *SET* TABLE.                                          COMCIDP   128
                                        *                                                                        COMCIDP   129
                                        **        FAA= - FIND ABSOLUTE ADDRESS.                                  COMCIDP   130
                                        *                                                                        COMCIDP   131
                                        *         ENTRY  (X0) = MX0 7*CHAR     (CHAR=6)                          COMCIDP   132
                                        *                (X1) = 42/0LNAME, 18/0                                  COMCIDP   133
                                        *                                                                        COMCIDP   134
                                        *         EXIT   (X6) = .PL. IF ABS ADDR ASSOCIATED WITH NAME            COMCIDP   135
                                        *                       .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)  COMCIDP   136
                                        *                                                                        COMCIDP   137
                                        *         LOCKED X - 0,1                                                 COMCIDP   138
                                        ************************************************************************ COMCIDP   139
                                        *                                                                        COMCIDP   140
                                        *         FRA= - FIND RELATIVE ADDRESS.                                  COMCIDP   141
                                        *                                                                        COMCIDP   142
                                        *         IF THE SYMBOL *FRA=* IS AVAILABLE (=Y), THEN *FRA= - FIND      COMCIDP   143
                                        *         RELATIVE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE       COMCIDP   144
                                        *         *COMCIDP* WITH A DISPLAY CODE (DPC) NAME AND RELATIVE OFFSET   COMCIDP   145
                                        *         ASSOCIATED WITH AN ABSOLUTE ADDRESS. THIS ROUTINE IS THE       COMCIDP   146
                                        *         LOGICAL COMPLEMENT TO *FAA=*, AND IS USED BY ROUTINES IN       COMCIDP   147
                                        *         *COMCIDP* TO OUTPUT A MORE HUMAN READABLE ADDRESS FORMAT.      COMCIDP   148
                                        *                                                                        COMCIDP   149
                                        *         E.G. IN RESPONSE TO *IDP* COMMAND-- CODE NAME+10               COMCIDP   150
                                        *                                                                        COMCIDP   151
                                        *         1025   010001023         RJ    1023     6 IN NAME              COMCIDP   152
                                        *                                                                        COMCIDP   153
                                        *         IF *FRA=* IS AVAILABLE, WHENEVER A ROUTINE IN *COMCIDP*        COMCIDP   154
                                        *         REQUIRES THIS RELATIVE ADDRESS PLUS OFFSET DPC FORMAT, A       COMCIDP   155
                                        *         *EQ =XFRA=* IS EXECUTED.                                       COMCIDP   156
                                        *                                                                        COMCIDP   157
                                        *         IT IS SUGGESTED THAT THE IDP INSTALLER USE THE COMDECK         COMCIDP   158
                                        *         NAMED *CCOMRPV* (COMPILER COMMON REPRIEVE PROCESSOR).          COMCIDP   159
                                        *         *CCOMRPV* CONTAINS, AMONG OTHER THINGS, A REASONABLE VERSION   COMCIDP   160
                                        *         OF *FRA=*.  SEE *CCOMRPV*.                                     COMCIDP   161
                                        *                                                                        COMCIDP   162
                                        *         SEE ALSO PREAMBLE TO SUBROUTINE *FRA* (FIND RELATIVE ADDRESS)  COMCIDP   163
                                        *         IN *COMCIDP*.                                                  COMCIDP   164
                                        *                                                                        COMCIDP   165
                                        **        FRA= - FIND RELATIVE ADDRESS.                                  COMCIDP   166
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    72
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
                                        *                                                                        COMCIDP   167
                                        *         ENTRY  (X1) = 60/ABS ADDR                                      COMCIDP   168
                                        *                (B7) = RETURN ADDRESS-- AN *RJ =XFRA=* IS NOT USED      COMCIDP   169
                                        *                         BECAUSE IF THE HOST PROGRAM HAS REPRIEVE       COMCIDP   170
                                        *                         PROCESSING, THEN *FRA=* COULD BE INCORPORATED  COMCIDP   171
                                        *                         INTO IT AND EXIST IN AN AREA CHECKSUMMED       COMCIDP   172
                                        *                         BY *RPV*                                       COMCIDP   173
                                        *                                                                        COMCIDP   174
                                        *         EXIT   (X6) = 1ST WORD OF DPC RESULT                           COMCIDP   175
                                        *                         E.G. (X6) = NNNNNN.IN.     (.=BLANK(55B))      COMCIDP   176
                                        *                (X7) = 2ND WORD OF DPC RESULT  (-C- FORMAT)             COMCIDP   177
                                        *                         E.G. (X7) = XXXXXXX000     (0=00B)             COMCIDP   178
                                        *                                                                        COMCIDP   179
                                        *         LOCKED X - 5                                                   COMCIDP   180
                                        *                A - 0,5,6,7                                             COMCIDP   181
                                        ************************************************************************ COMCIDP   182
                                        *                                                                        COMCIDP   183
                                        *         PROMPT - INTERACTIVE PROMPT MICRO NAME                         COMCIDP   184
                                        *                                                                        COMCIDP   185
                                        *         IF THE SYMBOL *PROMPT* IS A MICRO NAME (MIC), THEN             COMCIDP   186
                                        *         "PROMPT" IS A MICRO WHICH DEFINES THE INTERACTIVE PROMPT.      COMCIDP   187
                                        *         THIS PROMPT WILL BE ISSUED WHENEVER *IDP* REQUIRES THAT THE    COMCIDP   188
                                        *         USER ENTER A COMMAND.                                          COMCIDP   189
                                        *                                                                        COMCIDP   190
                                        *         DEFAULT IS --                                                  COMCIDP   191
                                        *                                                                        COMCIDP   192
                                        *         PROMPT MICRO  1,,/>>/                                          COMCIDP   193
                                        *                                                                        COMCIDP   194
                                        *         NOTE - *IDP* PREFIXES THE "PROMPT" WITH A BLANK (55B) PRINT    COMCIDP   195
                                        *                CONTROL CHARACTER.                                      COMCIDP   196
                                        ************************************************************************ COMCIDP   197
                                        *                                                                        COMCIDP   198
                                        *         UKT=/FW=UKT - USER KEYWORD TABLE DEFINITION AND LINKING.       COMCIDP   199
                                        *                                                                        COMCIDP   200
                                        *         IF THE SYMBOL *UKT=* IS AVAILABLE (=Y), THEN *UKT=* IS THE     COMCIDP   201
                                        *         FWA OF THE USER KEYWORD TABLE.  THIS OPTION ALLOWS THE USER TO COMCIDP   202
                                        *         PERFORM HER OR HIS OWN KEYWORD PROCESSING IN INTERACTIVE MODE, COMCIDP   203
                                        *         THEREBY USING IDP AS A TERMINAL HANDLER FOR ONES OWN SCHEMES.  COMCIDP   204
                                        *                                                                        COMCIDP   205
                                        *         IN GENERAL TERMS, THIS WORKS AS FOLLOWS: AFTER IDP HAS         COMCIDP   206
                                        *         SEARCHED ITS OWN KEYWORD TABLE, HE WILL SEARCH THE USER        COMCIDP   207
                                        *         KEYWORD TABLE AT *UKT=* ET SEQ.  IF IDP FINDS A KEYWORD MATCH  COMCIDP   208
                                        *         IN THE USER'S KEYWORD TABLE, THEN IDP TRANSFERS CONTROL TO     COMCIDP   209
                                        *         A SPECIFIED USER PROCESSOR.                                    COMCIDP   210
                                        *                                                                        COMCIDP   211
                                        *         NOTE THAT AS STATED ABOVE, THIS ALGORITHM GIVES PRECEDENCE     COMCIDP   212
                                        *         TO IDP'S KEYWORDS OVER THE USER'S KEYWORDS.                    COMCIDP   213
                                        *                                                                        COMCIDP   214
                                        *         THE KEYWORD TABLE(S) FOR IDP CAN BE LINKED TOGETHER IN THE     COMCIDP   215
                                        *         FOLLOWING WAY --                                               COMCIDP   216
                                        *                                                                        COMCIDP   217
                                        *                +++++++++++++++++++++                                   COMCIDP   218
                                        *                +                   +                                   COMCIDP   219
                                        *                + IDP KEYWORD TABLE +                                   COMCIDP   220
                                        *                +                   +                                   COMCIDP   221
                                        *                +++++++++++++++++++++  .....                            COMCIDP   222
                                        *                                           .                            COMCIDP   223
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    73
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
                                        *                +++++++++++++++++++++  <....                            COMCIDP   224
                                        *                +                   +                                   COMCIDP   225
                                        *                + UKT NUMBER 1      +                                   COMCIDP   226
                                        *                +                   +                                   COMCIDP   227
                                        *                +++++++++++++++++++++  .....                            COMCIDP   228
                                        *                                           .                            COMCIDP   229
                                        *                         .                 .                            COMCIDP   230
                                        *                         .                 .                            COMCIDP   231
                                        *                +++++++++++++++++++++  <....                            COMCIDP   232
                                        *                +                   +                                   COMCIDP   233
                                        *                + UKT NUMBER N      +                                   COMCIDP   234
                                        *                +                   +                                   COMCIDP   235
                                        *                +++++++++++++++++++++                                   COMCIDP   236
                                        *                                                                        COMCIDP   237
                                        *         THIS IMPLIES, THEREFORE, THAT THERE CAN BE ANY NUMBER OF USER  COMCIDP   238
                                        *         KEYWORD TABLES LINKED TO IDP AT ANY TIME.                      COMCIDP   239
                                        *                                                                        COMCIDP   240
                                        *         EACH KEYWORD TABLE IS TERMINATED BY A FULL ZERO WORD.  A 2ND   COMCIDP   241
                                        *         FULL WORD IMMEDIATELY FOLLOWING THE END-OF-TABLE WORD IS USED  COMCIDP   242
                                        *         FOR LINKING TO MORE KEYWORD TABLES, IF DESIRED.  IT SHOULD     COMCIDP   243
                                        *         CONTAIN THE FWA OF THE **NEXT** USER KEYWORD TABLE, OR BE      COMCIDP   244
                                        *         ZERO TO INDICATE END-OF-ALL-KEYWORD-TABLES.                    COMCIDP   245
                                        *                                                                        COMCIDP   246
                                        *         EACH INDIVIDUAL KEYWORD TABLE ENTRY SHOULD BE DEFINED VIA THE  COMCIDP   247
                                        *         *KEYW* MACRO IN *COMSIDP* (IDP INTERFACE TEXT).                COMCIDP   248
                                        *                                                                        COMCIDP   249
                                        *         AFTER KEYWORD PROCESSING, THE USER SHOULD RETURN CONTROL BACK  COMCIDP   250
                                        *         TO IDP BY EXECUTING A BRANCH TO *IDP=MN* (IDP MAIN LOOP NODE)  COMCIDP   251
                                        *         IF THERE WERE NO ERRORS, OR TO ONE OF IDP'S ERROR PROCESSORS:  COMCIDP   252
                                        *                                                                        COMCIDP   253
                                        *         *IDP=ER* IS INVOKED FOR USER DETECTED ERRORS FOR WHICH THERE   COMCIDP   254
                                        *         IS NO ERROR MESSAGE.  THIS PROCESSOR EXISTS PRIMARILY FOR      COMCIDP   255
                                        *         COMPATABILITY WITH AN OLDER VERSION OF IDP CALLED *DBG=IDP*.   COMCIDP   256
                                        *         I ADVISE **NOT** USING THIS ERROR PROCESSOR FOR THE SIMPLE     COMCIDP   257
                                        *         REASON THAT ERROR MESSAGES ARE NICE THINGS TO HAVE...          COMCIDP   258
                                        *                                                                        COMCIDP   259
                                        *         THE MACRO *ERROR* (DEFINED IN *COMSIDP*) IS USED TO SPECIFY    COMCIDP   260
                                        *         AN ERROR THAT **DOES** HAVE AN ERROR MESSAGE.  SEE *COMSIDP*.  COMCIDP   261
                                        *                                                                        COMCIDP   262
                                        *         THE MACRO *SYSERR* (DEFINED IN *COMSIDP*) IS USED FOR ERRORS   COMCIDP   263
                                        *         THAT ARE DETECTED VIA *SELF CHECKING* TYPE CODE.  THESE ARE    COMCIDP   264
                                        *         INTERNAL TYPE IDP SYSTEM ERRORS THAT COULD POTENTIALLY BE      COMCIDP   265
                                        *         VERY DANGEROUS/CONFUSING TO THE DEBUGGER WHO IS NOT INTERESTED COMCIDP   266
                                        *         IN DEBUGGING IDP ITSELF.  IDP CONTAINS A GOODLY AMOUNT OF      COMCIDP   267
                                        *         SELF-CHECKING CODE THAT AIMS AT MINIMIZING IDP SCREW-UPS.      COMCIDP   268
                                        *                                                                        COMCIDP   269
                                        ************************************************************************ COMCIDP   270
                                        *                                                                        COMCIDP   271
                                        *         UIO= - USER IDP OWNCODE.                                       COMCIDP   272
                                        *                                                                        COMCIDP   273
                                        *         IF THE SYMBOL *UIO=* IS AVAILABLE (=Y), THEN *UIO= - USER      COMCIDP   274
                                        *         IDP OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY   COMCIDP   275
                                        *         TO *IDP=*. IT ALLOWS THE USER TO PERFORM HER OWN TASKS BEFORE  COMCIDP   276
                                        *         ENTERING INTERACTIVE MODE (E.G. CHECKING A MASTER SNAP FLAG).  COMCIDP   277
                                        *                                                                        COMCIDP   278
                                        **        UIO= - USER IDP OWNCODE.                                       COMCIDP   279
                                        *                                                                        COMCIDP   280
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    74
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
                                        *         ENTRY  NONE                                                    COMCIDP   281
                                        *                                                                        COMCIDP   282
                                        *         EXIT   (X1) = .MI. IF TO ENTER INTERACTIVE MODE                COMCIDP   283
                                        *                     = .PL. IF NOT ENTERING INTERACTIVE MODE THIS TIME  COMCIDP   284
                                        *                              I.E. ALL REGISTERS ARE RESTORED AND       COMCIDP   285
                                        *                                   CONTROL RETURNS TO CALLER            COMCIDP   286
                                        *                                                                        COMCIDP   287
                                        *         LOCKED X - 5                                                   COMCIDP   288
                                        ************************************************************************ COMCIDP   289
                                        *                                                                        COMCIDP   290
                                        *         .OS - DEFINE OPERATING SYSTEM.                                 COMCIDP   291
                                        *                                                                        COMCIDP   292
                                        *         .OS = 1   KRONOS 2 OR NOS 1/TS                                 COMCIDP   293
                                        *         .OS = 2   SCOPE 2  (CYBER 76)                                  COMCIDP   294
                                        *         .OS = 3   SCOPE 3 OR NOS 1/BE  (DEFAULT)                       COMCIDP   295
                                        ************************************************************************ COMCIDP   296
                                        *                                                                        COMCIDP   297
                                        *         URO= - USER *REG=* OWNCODE.                                    COMCIDP   298
                                        *                                                                        COMCIDP   299
                                        *         IF THE SYMBOL *URO=* IS AVAILABLE (=Y), THEN *URO= - USER      COMCIDP   300
                                        *         REG= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY  COMCIDP   301
                                        *         TO THE REGISTER SNAPSHOT ROUTINE *REG=* (CALLED VIA *REG*      COMCIDP   302
                                        *         MACRO IN *COMAIDP*). IT ALLOWS THE USER TO PERFORM HIS OWN     COMCIDP   303
                                        *         TASKS BEFORE THE REGISTER SNAPSHOT IS TAKEN (E.G. CHECKING A   COMCIDP   304
                                        *         MASTER SNAP FLAG).                                             COMCIDP   305
                                        *                                                                        COMCIDP   306
                                        **        URO= - USER REG= OWNCODE.                                      COMCIDP   307
                                        *                                                                        COMCIDP   308
                                        *         ENTRY  (X5)+SN=URF = ADDRESS OF USER FLAGS                     COMCIDP   309
                                        *                                                                        COMCIDP   310
                                        *         EXIT   (X1) = .MI. IF TO PERFORM REGISTER SNAPSHOT             COMCIDP   311
                                        *                     = .PL. IF NO REGISTER SNAPSHOT THIS TIME           COMCIDP   312
                                        ************************************************************************ COMCIDP   313
                                        *                                                                        COMCIDP   314
                                        *         USO= - USER *SNP=* OWNCODE.                                    COMCIDP   315
                                        *                                                                        COMCIDP   316
                                        *         IF THE SYMBOL *USO=* IS AVAILABLE (=Y), THEN *USO= - USER      COMCIDP   317
                                        *         SNP= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY  COMCIDP   318
                                        *         TO THE CORE SNAPSHOT ROUTINE *SNP=* (CALLED VIA *SNAP* MACRO   COMCIDP   319
                                        *         IN *COMAIDP*). IT ALLOWS THE USER TO PERFORM HIS OWN TASKS     COMCIDP   320
                                        *         BEFORE THE SNAPSHOT IS TAKEN (E.G. CHECKING A MASTER SNAP      COMCIDP   321
                                        *         FLAG).                                                         COMCIDP   322
                                        *                                                                        COMCIDP   323
                                        **        USO= - USER SNP= OWNCODE.                                      COMCIDP   324
                                        *                                                                        COMCIDP   325
                                        *         ENTRY  (X5)+SN=USF = ADDRESS OF USER FLAGS                     COMCIDP   326
                                        *                                                                        COMCIDP   327
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE TAKEN                         COMCIDP   328
                                        *                     = .PL. IF NO SNAP THIS TIME                        COMCIDP   329
                                        ************************************************************************ COMCIDP   330
                                        *                                                                        COMCIDP   331
                                        *         USY= - USER SYMBOL TABLES SEARCH.                              COMCIDP   332
                                        *                                                                        COMCIDP   333
                                        *         IF THE SYMBOL *USY=* IS AVAILABLE (=Y), THEN *USY=* (USER      COMCIDP   334
                                        *         SYMBOL TABLES SEARCH) IS A USER SUBROUTINE THAT IS CALLED      COMCIDP   335
                                        *         WHEN IDP WISHES TO ASSOCIATE A BINARY VALUE WITH A DPC         COMCIDP   336
                                        *         SYMBOL.                                                        COMCIDP   337
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    75
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      COMCIDP             IDP 
  
                                        *                                                                        COMCIDP   338
                                        *         FOR EXAMPLE, IF THE INTERACTIVE PERSON TYPES --                COMCIDP   339
                                        *                                                                        COMCIDP   340
                                        *                SNAP FROM,TO                                            COMCIDP   341
                                        *                                                                        COMCIDP   342
                                        *         AND IDP CAN NOT FIND THE SYMBOLS *FROM* AND/OR *TO* VIA        COMCIDP   343
                                        *         ITS OWN SEARCHING, THEN IDP WILL TRY AND CALL *USY=* TO        COMCIDP   344
                                        *         ALLOW THE HOST TO TRY AND ASSOCIATE A BINARY VALUE WITH        COMCIDP   345
                                        *         THIS SO FAR UNDEFINED SYMBOL.                                  COMCIDP   346
                                        *                                                                        COMCIDP   347
                                        **        USY= - USER SYMBOL TABLES SEARCH.                              COMCIDP   348
                                        *                                                                        COMCIDP   349
                                        *         ENTRY  (X1) = SYMBOL TO SEARCH FOR, -L- FMT.                   COMCIDP   350
                                        *                                                                        COMCIDP   351
                                        *         EXIT   (X1) = .NZ. IF A FIND, ELSE .ZR.                        COMCIDP   352
                                        *                (X6) = BINARY VALUE TO ASSOCIATE WITH THIS SYMBOL.      COMCIDP   353
                                        *                                                                        COMCIDP   354
                                        *         LOCKED A0,X0,A5,X5                                             COMCIDP   355
                                        *                                                                        COMCIDP   356
                                        ************************************************************************ COMCIDP   357
  
  
  
  
                                        ***       COMMENTING/CODING CONVENTIONS.                                 COMCIDP   359
                                        *                                                                        COMCIDP   360
                                        *                                                                        COMCIDP   361
                                        *         A NUMBER OF COMMENTING AND CODING CONVENTIONS HAVE BEEN        COMCIDP   362
                                        *         ADOPTED IN THIS PIECE OF CODE WHICH SHOULD MAKE IT EASIER      COMCIDP   363
                                        *         TO READ AND UNDERSTAND.  THIS AUTHOR BELIEVES VERY STRONGLY    COMCIDP   364
                                        *         THAT THE **NOTATION** USED TO DESCRIBE A PARTICULAR DESIGN     COMCIDP   365
                                        *         IMPLEMENTATION IS AS IMPORTANT AS THE DESIGN ITSELF.  AND      COMCIDP   366
                                        *         INSTEAD OF REQUIRING THAT YOU DECIPHER **MY** NOTATION ON      COMCIDP   367
                                        *         THE FLY, I WILL TELL YOU HERE AND NOW HOW IT WORKS...          COMCIDP   368
                                        *                                                                        COMCIDP   369
                                        *         THIS DISCUSSION CAN BE DIVIDED INTO 3 PARTS: CODE FORM,        COMCIDP   370
                                        *         SYMBOL NAMING, AND A GLOSSARY OF ABBREVIATIONS.                COMCIDP   371
                                        *                                                                        COMCIDP   372
                                        ************************************************************************ COMCIDP   373
                                        *                                                                        COMCIDP   374
                                        *         CODE FORM                                                      COMCIDP   375
                                        *                                                                        COMCIDP   376
                                        *         THIS IS A DESCRIPTION OF HOW ONE CAN EXPECT CODE TO LOOK       COMCIDP   377
                                        *         ON A PAGE.  THE *MACE/KRONOS* CONVENTION IS THE MODEL.         COMCIDP   378
                                        *         *MACE* IS A VERY STYLIZED CODING CONVENTION WHICH IS AIMED     COMCIDP   379
                                        *         PRIMARILY AT FORMALIZING SUBROUTINE STRUCTURE.                 COMCIDP   380
                                        *                                                                        COMCIDP   381
                                        *         *MACE*, BRIEFLY --                                             COMCIDP   382
                                        *                                                                        COMCIDP   383
                                        *           1. SUBROUTINES ARE USED THAT ENTER AND EXIT AT A COMMON      COMCIDP   384
                                        *              POINT, I.E. ARE INVOKED BY AN *RJ* INSTRUCTION.           COMCIDP   385
                                        *                                                                        COMCIDP   386
                                        *           2. ALL SUBROUTINES HAVE 3 CHARACTER MNEMONIC NAMES           COMCIDP   387
                                        *              THAT DESCRIBE THEIR FUNCTION.                             COMCIDP   388
                                        *                                                                        COMCIDP   389
                                        *           3. ALL SUBROUTINES BEGIN WITH AN EXTREMELY STYLIZED          COMCIDP   390
                                        *              PREAMBLE WHICH GIVES THE NAME OF THE SUBROUTINE, ITS      COMCIDP   391
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    76
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      CODING              IDP 
  
                                        *              FUNCTION, ITS ENTRY AND EXIT CONDITIONS, THE REGISTERS    COMCIDP   392
                                        *              IT USES/DESTROYS, AND A LIST OF ALL THE SUBROUTINES       COMCIDP   393
                                        *              AND/OR MACROS THAT IT CALLS/REFERENCES.                   COMCIDP   394
                                        *                                                                        COMCIDP   395
                                        *              A DETAILED DESCRIPTION OF THE PREAMBLE IS BASICALLY       COMCIDP   396
                                        *              A WASTE OF TIME.  THEY ARE ALL EXACTLY ALIKE...JUST GO    COMCIDP   397
                                        *              LOOK AT ONE.                                              COMCIDP   398
                                        *                                                                        COMCIDP   399
                                        *           4. ALL SUBROUTINE EXECUTABLE CODE LABELS CONSIST OF THE      COMCIDP   400
                                        *              SUBROUTINE 3 CHARACTER MNEMONIC FOLLOWED BY A DIGIT       COMCIDP   401
                                        *              OR DIGITS IN ASCENDING ORDER.                             COMCIDP   402
                                        *                                                                        COMCIDP   403
                                        *           5. SUBROUTINE LOCAL-ONLY SCRATCH CELLS HAVE LABELS THAT      COMCIDP   404
                                        *              CONSIST OF THE SUBROUTINE 3 CHARACTER MNEMONIC FOLLOWED   COMCIDP   405
                                        *              BY A SINGLE LETTER (BEGINNING AT -A-) IN ASCENDING        COMCIDP   406
                                        *              ORDER.                                                    COMCIDP   407
                                        *                                                                        COMCIDP   408
                                        *           6. THE *COMPASS* 2,11,18,30 TABBING CONVENTION IS STRICTLY   COMCIDP   409
                                        *              FOLLOWED.  I.E. LABEL FIELD IN COL 2, OPERATION FIELD     COMCIDP   410
                                        *              IN COL 11, ADDRESS FIELD IN COL 18, AND COMMENT FIELD     COMCIDP   411
                                        *              IN COL 30.                                                COMCIDP   412
                                        *                                                                        COMCIDP   413
                                        *           7. COMMENTS THAT DESCRIBE HARDWARE FUNCTION ARE AVOIDED.     COMCIDP   414
                                        *              E.G.  SA1  ZIP    LOAD FLAG                               COMCIDP   415
                                        *                    LX1  4      LEFT-SHIFT (X1)                         COMCIDP   416
                                        *                                                                        COMCIDP   417
                                        *           8. **ALL** CONDITIONAL BRANCH INSTRUCTIONS CONTAIN A COMMENT COMCIDP   418
                                        *              IN COLS 30-72 THAT BEGINS WITH THE WORD *IF* AND          COMCIDP   419
                                        *              DESCRIBES THE *BRANCH TAKEN* CONDITION.  E.G.             COMCIDP   420
                                        *                                                                        COMCIDP   421
                                        *                    ZR   X1,EXIT. IF AT END OF TABLE                    COMCIDP   422
                                        *                                                                        COMCIDP   423
                                        *         FOR ME, *MACE*S PRIMARY VIRTUE IS THAT IS MAKES FOREIGN CODE   COMCIDP   424
                                        *         LOOK NOT-SO-FOREIGN.  SIMPLE.                                  COMCIDP   425
                                        *                                                                        COMCIDP   426
                                        *         IN ADDITION, THIS CODE USES A FEW EXTENSIONS TO THE *MACE*     COMCIDP   427
                                        *         WAY... THEY ARE --                                             COMCIDP   428
                                        *                                                                        COMCIDP   429
                                        *           1. THE COMMENT FIELD FOR A LINE CONTAINING A MACHINE         COMCIDP   430
                                        *              MNEMONIC INSTRUCTIONS (I.E. COLS 30-72) IS GENERALLY      COMCIDP   431
                                        *              RESERVED FOR A DESCRIPTION OF THE DATA STRUCTURE          COMCIDP   432
                                        *              RESULTING FROM THE HARDWARE INSTRUCTION ON THAT LINE.     COMCIDP   433
                                        *                                                                        COMCIDP   434
                                        *              USUALLY, THIS IS NOTATED VERY FORMALLY, WITH THE EXPLICIT COMCIDP   435
                                        *              RESULT REGISTER SPECIFIED.  E.G. --                       COMCIDP   436
                                        *                                                                        COMCIDP   437
                                        *                BX4  -X0*X5    (X4) = NEXT CHAR TO PACK, -R- FORMAT     COMCIDP   438
                                        *                                                                        COMCIDP   439
                                        *              WHEN SETTING A LOGICAL FLAG, IT DIFFERS --                COMCIDP   440
                                        *                                                                        COMCIDP   441
                                        *                SA6  TF=SQZ    SET TO *INDICATE NO BLANK SQUEEZE*       COMCIDP   442
                                        *                                                                        COMCIDP   443
                                        *              OR WHEN MANIPULATING A *COMADEF* STRUCTURE --             COMCIDP   444
                                        *                                                                        COMCIDP   445
                                        *                BX6  X6+X1     MERGE *LEN*                              COMCIDP   446
                                        *                                                                        COMCIDP   447
                                        *              IN ITS MOST COMMON FORM, THE RESULT REGISTER IS           COMCIDP   448
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    77
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      CODING              IDP 
  
                                        *              EXPLICITLY SPECIFIED SO THAT THE READER KNOWS             COMCIDP   449
                                        *              **ABSOLUTELY** WHAT IS MEANT.                             COMCIDP   450
                                        *                                                                        COMCIDP   451
                                        *              IN ANY CASE, RESERVING COLS 30-72 FOR DATA STRUCTURE      COMCIDP   452
                                        *              DESCRIPTIONS MAKES DEBUGGING EASIER BECAUSE ONE CAN       COMCIDP   453
                                        *              CONSTANTLY COMPARE WHAT **IS** WITH WHAT **SHOULD BE**.   COMCIDP   454
                                        *                                                                        COMCIDP   455
                                        *           2. FUNCTIONAL COMMENTS (I.E. WHAT IS GOING ON, OR HOW IT     COMCIDP   456
                                        *              IS DONE, OR MORE IMPORTANTLY, WHY ARE WE DOING IT) ARE    COMCIDP   457
                                        *              USUALLY PLACED ON A SEPARATE COMMENT LINE THAT PRECEDES   COMCIDP   458
                                        *              PARAGRAPH OF CODE THAT IT PERTAINS TO.                    COMCIDP   459
                                        *                                                                        COMCIDP   460
                                        *              THIS TENDS TO MAKE CODE OCCUR IN FUNCTIONAL BLOCKS...GOOD COMCIDP   461
                                        *              FOR A QUICK ONCE-OVER EYE SCAN.                           COMCIDP   462
                                        *                                                                        COMCIDP   463
                                        *           3. A FLAG CELL DEFINITION WILL CONTAIN (AT A MINIMUM)        COMCIDP   464
                                        *              A COMMENT THAT SPECIFIED/DESCRIBES **ALL** POSSIBLE       COMCIDP   465
                                        *              VALUES THAT THIS FLAG MAY TAKE, AND IDEALLY, UNDER        COMCIDP   466
                                        *              WHAT CONDITIONS THE FLAG WILL TAKE THOSE VALUES.          COMCIDP   467
                                        *                                                                        COMCIDP   468
                                        *              THIS IS DONE BECAUSE OFTENTIMES, THE FLAG CELL DEFINITION COMCIDP   469
                                        *              IS THE ONLYPLACE WHERE THE INTRICACIES AND PATHOLOGIES    COMCIDP   470
                                        *              ASSOCIATED WITH THE USE OF THE FLAG CAN BE INTEGRATED.    COMCIDP   471
                                        *                                                                        COMCIDP   472
                                        ************************************************************************ COMCIDP   473
                                        *                                                                        COMCIDP   474
                                        *         SYMBOL NAMING                                                  COMCIDP   475
                                        *                                                                        COMCIDP   476
                                        *         THIS IS A DESCRIPTION OF THE CONVENTIONS USED IN SYMBOL        COMCIDP   477
                                        *         NAMING.  THE INTENT OF THSE CONVENTIONS IS TO TRANSMIT TO      COMCIDP   478
                                        *         THE READER AS MUCH INFORMATION AS POSSIBLE BY MERELY SEEING    COMCIDP   479
                                        *         A SYMBOL NAME ITSELF.  OFTEN, THIS INFORMATION IMPLIES HOW     COMCIDP   480
                                        *         ONE CAN **EXPECT** A SYMBOL TO BE USED.                        COMCIDP   481
                                        *                                                                        COMCIDP   482
                                        *         TWO BASIC SYMBOL NAME-FORMING RULES ARE USED: FIRST, SYMBOL    COMCIDP   483
                                        *         PREFIXES ARE USED HEAVILY.  AND SECOND, THE CHARACTER THAT     COMCIDP   484
                                        *         SEPARATES A SYMBOL PREFIX FROM THE REST OF THE SYMBOL NAME     COMCIDP   485
                                        *         IS GIVEN SEMANTIC MEAING.  CURRENTLY, THERE ARE ONLY 2 SUCH    COMCIDP   486
                                        *         CHARACTERS: -.- IMPLIES THAT THE VALUE OF THE SYMBOL IS        COMCIDP   487
                                        *         AVAILABLE AT ASSEMBLY-TIME.  E.G. --                           COMCIDP   488
                                        *                                                                        COMCIDP   489
                                        *                SX1    L.KEYW  (X1) = LEN (IN WORDS) OF *KEYW* TABLE    COMCIDP   490
                                        *                                                                        COMCIDP   491
                                        *         AN -=- CHARACTER IMPLIES THAT THE VALUE OF THE SYMBOL IS       COMCIDP   492
                                        *         AVAILABLE ONLY AT EXECUTION-TIME (I.E. IT IS ONLY THE ADDRESS  COMCIDP   493
                                        *         OF A CELL AT ASSEMBLY-TIME).  E.G. --                          COMCIDP   494
                                        *                                                                        COMCIDP   495
                                        *                SA1    L=KEYW  (X1) = LEN (IN WORDS) OF *KEYW* TABLE    COMCIDP   496
                                        *                                                                        COMCIDP   497
                                        *         THESE SYMBOLS ARE, THEREFORE, INDIRECT.                        COMCIDP   498
                                        *                                                                        COMCIDP   499
                                        *         NOTE THE USE OF THE WORD *VALUE* IN THE ABOVE PARAGRAPH.       COMCIDP   500
                                        *         OBVIOUSLY, *COMPASS* MUST BE ABLE TO ASSOCIATE SOME BINARY     COMCIDP   501
                                        *         NUMBER WITH BOTH TYPES OF SYMBOLS AT ASSEMBLY-TIME.  IN A      COMCIDP   502
                                        *         HUMAN SENSE, THOUGH, THE SYMBOL NAMES IN THE ABOVE EXAMPLES    COMCIDP   503
                                        *         TELL WHETHER THE *VALUE* OF THE SYMBOL WILL BE USED IN         COMCIDP   504
                                        *         A DIRECT, OR AN INDIRECT MANNER.  A SUBTLE DIFFERENCE THAT     COMCIDP   505
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    78
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      CODING              IDP 
  
                                        *         CAN BE HANDY WHEN READING CODE.                                COMCIDP   506
                                        *                                                                        COMCIDP   507
                                        *         SYMBOL NAMES CAN BE DIVIDED INTO THE FOLLOWING GENERAL         COMCIDP   508
                                        *         TYPES --                                                       COMCIDP   509
                                        *                                                                        COMCIDP   510
                                        *           1. SYMBOLS THAT DESCRIBE COMMON COMPUTER OR CDC CONCEPTS,    COMCIDP   511
                                        *              SUCH AS: LENGTH, FIRST WORD ADDRESS, ETC...  THESE        COMCIDP   512
                                        *              SYMBOL NAMES ARE STRUCTURED SO THAT THE PREFIX DESCRIBES  COMCIDP   513
                                        *              THE COMMON IDEA.  I.E. -                                  COMCIDP   514
                                        *                                                                        COMCIDP   515
                                        *                L.XXX  - LENGTH OF XXX.                                 COMCIDP   516
                                        *                FW.XXX - FWA OF XXX.                                    COMCIDP   517
                                        *                F.XXX  - FWA OF A FET/FIT FOR FILE XXX.                 COMCIDP   518
                                        *                                                                        COMCIDP   519
                                        *           2. *COMADEF* STRUCTURES.  *COMADEF* IS A COMDECK THAT        COMCIDP   520
                                        *              CONTAINS MACROS FOR DESCRIBE/DEFINING SOFTWARE DATA       COMCIDP   521
                                        *              STRUCTURES.  CONCEPTUALLY, IT WORKS MUCH LIKE THE *COBOL* COMCIDP   522
                                        *              *PICTURE*.  VIA THE *COMADEF* MACROS, ONE CAN DRAW        COMCIDP   523
                                        *              A PICTURE OF WHAT A DATA STRUCTURE ELEMENT WILL LOOK      COMCIDP   524
                                        *              LIKE.                                                     COMCIDP   525
                                        *                                                                        COMCIDP   526
                                        *              NOW WHEN ONE WISHES TO BUILD OR ACCESS SOME PART OF THE   COMCIDP   527
                                        *              DATA STRUCTURE, YOU CAN DO IT **SYMBOLICALLY** VIA        COMCIDP   528
                                        *              SYMBOLS THAT THE *COMADEF* MACROS DEFINED IN RESPONSE     COMCIDP   529
                                        *              TO THE PICTURE THAT WAS DRAWN VIA THOSE MACROS.           COMCIDP   530
                                        *                                                                        COMCIDP   531
                                        *              *COMADEF* SYMBOLS TAKE THE FORM --                        COMCIDP   532
                                        *                                                                        COMCIDP   533
                                        *                  DD.XXXP  AND DD.XXXL                                  COMCIDP   534
                                        *                                                                        COMCIDP   535
                                        *              WHERE *DD* IS A COMMON PREFIX FOR THIS DATA STRUCTURE,    COMCIDP   536
                                        *              *XXX* IS A UNIQUE NAME FOR A FIELD WITHIN THE DATA        COMCIDP   537
                                        *              STRUCTURE *DD*, *P* IS A SUFFIX THAT DENOTES THE RIGHT-   COMCIDP   538
                                        *              MOST BIT POSITION OF FIELD *XXX* WITHIN *DD*, AND *L*     COMCIDP   539
                                        *              IS A SUFFIX THAT DENOTES THE LENGTH (IN BITS) OF FIELD    COMCIDP   540
                                        *              *XXX*.                                                    COMCIDP   541
                                        *                                                                        COMCIDP   542
                                        *              FOR EXAMPLE --                                            COMCIDP   543
                                        *                                                                        COMCIDP   544
                                        *                  SA1  A1+B1    (X1) = NEXT ELEMENT IN STRUCTURE *BB.*  COMCIDP   545
                                        *                  MX2  -BB.TOTL (X2) = MASK FOR EXTRACTING *TOT* FIELD  COMCIDP   546
                                        *                  LX1  0-BB.TOTP RIGHT-JUSTIFY *TOT* FIELD              COMCIDP   547
                                        *                  BX6  -X2*X1   (X6) = CONTENTS OF *TOT* FIELD          COMCIDP   548
                                        *                                                                        COMCIDP   549
                                        *              ONCE ONE BECOMES FAMILIAR WITH THE *COMADEF* NOTATION,    COMCIDP   550
                                        *              MOST OF THE ABOVE COMMENTS ARE UNNECESSARY.  THE          COMCIDP   551
                                        *              ACCESSING OF A *COMADEF* STRUCTURE IS SO STYLIZED THAT    COMCIDP   552
                                        *              ONE CAN PRETTY MUCH RECOGNIZE IT ANYWHERE, BY ANYONE,     COMCIDP   553
                                        *              AND IN AN INFINITY OF CIRCUMSTANCES.                      COMCIDP   554
                                        *                                                                        COMCIDP   555
                                        *           3. SYMBOLS THAT ONE WISHES TO ASSOCIATE VIA A COMMON PREFIX. COMCIDP   556
                                        *              THESE ARE SYMBOLS THAT THE PROGRAMMER FEELS HAVE AN       COMCIDP   557
                                        *              INTERRELATIONSHIP WITHIN THE CONTEXT OF A SPECIFIC        COMCIDP   558
                                        *              PIECE OF CODE.  FOR EXAMPLE, ALL SYMBOL TYPES (DECK NAME, COMCIDP   559
                                        *              *SET* NAME, ETC) ARE DEFINED VIA SYMBOLS THAT HAVE THE    COMCIDP   560
                                        *              THE COMMON PREFIX *SY.*, E.G. *SY.DECK*, *SY.SET*, ETC.   COMCIDP   561
                                        *                                                                        COMCIDP   562
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    79
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      CODING              IDP 
  
                                        *              CERTAIN GROUPS OF DATA CELLS ARE ALSO ASSOCIATED VIA      COMCIDP   563
                                        *              A COMMON PREFIX: E.G. ALL THE CELLS THAT CONTAIN          COMCIDP   564
                                        *              INFORMATION THAT *IDP* HAS GATHERED ABOUT THE TOKEN       COMCIDP   565
                                        *              BUFFER HAVE THE COMMON PREFIX *TB=*.                      COMCIDP   566
                                        *                                                                        COMCIDP   567
                                        *           4. SYMBOLS WITHIN MACRO DEFINITIONS.  THE CONVENTION         COMCIDP   568
                                        *              USED FOR NAMING SYMBOLS WITHIN A MACRO DEFINITION IS      COMCIDP   569
                                        *              AS FOLLOWS.  SYMBOLS ARE OF THE FORM --                   COMCIDP   570
                                        *                                                                        COMCIDP   571
                                        *                '?PPTXXX                                                COMCIDP   572
                                        *                                                                        COMCIDP   573
                                        *              WHERE '?  = COMMON *MACRO SYMBOL* PREFIX.                 COMCIDP   574
                                        *                    PP  = A COMMON PREFIX FOR SYMBOLS WITHIN THIS       COMCIDP   575
                                        *                          MACRO DEFINITION, OR WITHIN A GROUP OF        COMCIDP   576
                                        *                          RELATED MACRO DEFINITIONS.                    COMCIDP   577
                                        *                    T   = SYMBOL TYPE.  SEE BELOW.                      COMCIDP   578
                                        *                    XXX = UNIQUE NAME FOR THIS SYMBOL.                  COMCIDP   579
                                        *                                                                        COMCIDP   580
                                        *              SYMBOL TYPES, *T*, ARE USED TO SIMPLIFY THE READING       COMCIDP   581
                                        *              OF MACRO CODE A LITTLE BIT.  EACH SYMBOL TYPE DENOTES     COMCIDP   582
                                        *              HOW THE SYMBOL WILL BE USED WITHIN THE MACRO.             COMCIDP   583
                                        *                                                                        COMCIDP   584
                                        *              SYMBOL TYPES ARE --                                       COMCIDP   585
                                        *                                                                        COMCIDP   586
                                        *                S = *SET* SYMBOL, I.E. ANY SYMBOL THAT IS ASSIGNED AN   COMCIDP   587
                                        *                    ABSOLUTE VALUE.  E.G. '?PPSXXX SET 1                COMCIDP   588
                                        *                                                                        COMCIDP   589
                                        *                C = *MICRO* NAME.  E.G. '?PPCXXX MICRO 1,,/HARPIES/     COMCIDP   590
                                        *                                                                        COMCIDP   591
                                        *                R = *RMT* BLOCK NAME.  E.G. '?PPRXXX RMT                COMCIDP   592
                                        *                                                                        COMCIDP   593
                                        *                M = *MACRO* NAME.  I.E. USED FOR INTERNAL MACROS WHICH  COMCIDP   594
                                        *                    THE PROGRAMMER WISHES TO BE **INVISIBLE** TO THE    COMCIDP   595
                                        *                    REST OF THE WORLD.                                  COMCIDP   596
                                        *                                                                        COMCIDP   597
                                        *           5. NONE OF THE ABOVE.  THERE WILL ALWAYS BE EXCEPTIONS...    COMCIDP   598
                                        *              SOME OF THESE ARE BECAUSE THERE IS NO CONVENTION, SOME    COMCIDP   599
                                        *              ARE BECAUSE THE CONVENTION DIDNT SEEM RIGHT FOR THIS      COMCIDP   600
                                        *              PARTICULAR CASE, ETC, ETC, ETC...                         COMCIDP   601
                                        *                                                                        COMCIDP   602
                                        ************************************************************************ COMCIDP   603
                                        *                                                                        COMCIDP   604
                                        *         GLOSSARY                                                       COMCIDP   605
                                        *                                                                        COMCIDP   606
                                        *         THE FOLLOWING IS A GLOSSARY OF COMMON ABBREVIATIONS,           COMCIDP   607
                                        *         NOTATIONS, AND SYMBOL PREFIXES THAT ARE NOT IN PARTICULAR      COMCIDP   608
                                        *         *IDP* DEPENDENT.                                               COMCIDP   609
                                        *                                                                        COMCIDP   610
                                        *         A+C    ADDRESS AND CONTENTS.  USED PRIMARILY IN CONJUNCTION    COMCIDP   611
                                        *                WITH A LOAD INSTRUCTION WHERE BOTH THE ADDRESS AND      COMCIDP   612
                                        *                THE CONTENTS OF THE ADDRESS ARE MEANINGFUL, AS IN --    COMCIDP   613
                                        *                                                                        COMCIDP   614
                                        *                    SA1   A1+B1   (A1,X1) = A+C OF NEXT TABLE ENTRY     COMCIDP   615
                                        *                                                                        COMCIDP   616
                                        *                AS OPPOSED TO --                                        COMCIDP   617
                                        *                                                                        COMCIDP   618
                                        *                    SA1   LN=TYPE (X1) = LINE TYPE                      COMCIDP   619
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    80
        COMCIDP 1.1 - INTERACTIVE DEBUG PACKAGE.                      CODING              IDP 
  
                                        *                                                                        COMCIDP   620
                                        *         ADDR   ADDRESS.                                                COMCIDP   621
                                        *                                                                        COMCIDP   622
                                        *         FWA    FIRST WORD ADDRESS.                                     COMCIDP   623
                                        *                                                                        COMCIDP   624
                                        *         F.XXX  FWA OF A LOGICAL FILE *FET*.                            COMCIDP   625
                                        *                                                                        COMCIDP   626
                                        *         FW=XXX A CELL THAT CONTAINS A FWA.                             COMCIDP   627
                                        *                                                                        COMCIDP   628
                                        *         FW.XXX A SYMBOL WHOSE VALUE SPECIFIES A FWA.                   COMCIDP   629
                                        *                                                                        COMCIDP   630
                                        *         L=XXX  A CELL THAT CONTAINS A LENGTH (NOT A MANAGED TABLE      COMCIDP   631
                                        *                *LENGTH*, HOWEVER).                                     COMCIDP   632
                                        *                                                                        COMCIDP   633
                                        *         L.XXX  A SYMBOL WHOSE VALUE SPECIFIES A LENGTH IN WORDS.       COMCIDP   634
                                        *                                                                        COMCIDP   635
                                        *         L1.XXX A SYMBOL WHOSE VALUE SPECIFIES THE LENGTH (IN WORDS)    COMCIDP   636
                                        *                OF A SINGLE TABLE ENTRY.  FOR EXAMPLE --                COMCIDP   637
                                        *                                                                        COMCIDP   638
                                        *                    SA1   FW.TBL    (A1,X1) = A+C OF 1ST *TBL* ENTRY    COMCIDP   639
                                        *                    SA2   A1+L1.TBL (A2,X2) = A+C OF 2ND *TBL* ENTRY    COMCIDP   640
                                        *                                                                        COMCIDP   641
                                        ************************************************************************ COMCIDP   642
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    81
        IDP 1.1/DATA STRUCTURES.                                      ADR=RJ              IDP 
  
                                        **        ADR=RJ - ADDRESS OF CALLING RJ.                                COMCIDP   645
                                        *                                                                        COMCIDP   646
                                        *                                                                        COMCIDP   647
                                        *         *ADR=RJ* CONTAINS THE ADDRESS OF THE *RJ* INSTRUCTION THAT     COMCIDP   648
                                        *         LAST INVOKED ONE OF THE EXECUTIVES (IDP=,REG=,SNP=) IN         COMCIDP   649
                                        *         *COMCIDP*.  IT IS SET UP BY *IEX* (INITIALIZE EXECUTIVE),      COMCIDP   650
                                        *         AND IS USED WHENEVER SOMEONE WISHES TO KNOW THE ADDR OF        COMCIDP   651
                                        *         AN IDP CALLER.  E.G. *HDR* (OUTPUT HEADER) USES (ADR=RJ)       COMCIDP   652
                                        *         IN OUTPUTING THE *CALLED BY*-TYPE HEADERS.                     COMCIDP   653
                                                                                                                 COMCIDP   654
                                                                                                                 COMCIDP   655
           156                     1     ADR=RJ   BSSZ   1                                                       COMCIDP   656
  
  
  
  
                                        **        APL - IDP APLIST.                                              COMCIDP   658
                                        *                                                                        COMCIDP   659
                                        *                                                                        COMCIDP   660
                                        *         *APL* IS AN AREA USED FOR 2 PURPOSES --                        COMCIDP   661
                                        *                                                                        COMCIDP   662
                                        *           1. WHEN IDP IS INVOKED VIA AN INTERACTIVE BREAK (I.E. NOT    COMCIDP   663
                                        *              AN ASSEMBLED BREAK), THEN *BRK* (BREAKPOINT PROCESSOR)    COMCIDP   664
                                        *              EXPANDS ITS INTERNAL BREAKPOINT INFORMATION FROM *IDPBA*  COMCIDP   665
                                        *              (BREAKPOINT ADDRESS TABLE) AND *IDPBC* (BREAKPOINT        COMCIDP   666
                                        *              CONTENTS TABLE) INTO *APL* ET SEQ SO THAT THIS            COMCIDP   667
                                        *              INFORMATION **LOOKS** JUST LIKE AN ASSEMBLED BREAKPOINT   COMCIDP   668
                                        *              PARAMETER LIST.                                           COMCIDP   669
                                        *                                                                        COMCIDP   670
                                        *           2. AND BECAUSE THIS *BREAKPOINT INFORMATION* IS NOT NEEDED   COMCIDP   671
                                        *              FOR VERY LONG, IDP REUSES THIS AREA FOR SCRATCH CELLS.    COMCIDP   672
                                                                                                                 COMCIDP   673
                                                                                                                 COMCIDP   674
                                  10     L.APL    =      SN=LEN+1                                                COMCIDP   675
           157                    10     APL      BSSZ   L.APL                                                   COMCIDP   676
                                                                                                                 COMCIDP   677
      L    157                                    LOC    APL                                                     COMCIDP   678
                                                                                                                 COMCIDP   679
                                 157 +   AP=LL    =      *+SN=LL                                                 COMCIDP   680
                                 160 +   AP=UL    =      *+SN=UL                                                 COMCIDP   681
                                 161 +   AP=INC   =      *+SN=INC                                                COMCIDP   682
                                 162 +   AP=HDR   =      *+SN=HDR                                                COMCIDP   683
                                 163 +   AP=CNT   =      *+SN=CNT                                                COMCIDP   684
                                 164 +   AP=FWA   =      *+SN=FWA                                                COMCIDP   685
                                 165 +   AP=LWA   =      *+SN=LWA                                                COMCIDP   686
                                 166 +   AP=LEN   =      *+SN=LEN                                                COMCIDP   687
           167                                    LOC    *O                                                      COMCIDP   688
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    82
        IDP 1.1/DATA STRUCTURES.                                      BC=BRAD             IDP 
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018     5
                                        **        BC=BRAD - PREVIOUS CONTENTS OF BREAK ADDRESS.                  COMCIDP   690
                                        *                                                                        COMCIDP   691
                                        *                                                                        COMCIDP   692
                                                                                                                 COMCIDP   693
                                                                                                                 COMCIDP   694
           167                     1     BC=BRAD  BSSZ   1                                                       COMCIDP   695
  
  
  
  
                                        ***       F. - FILE FETS.                                                COMCIDP   697
                                        *                                                                        COMCIDP   698
                                        *                                                                        COMCIDP   699
                                        *         SYMBOLS OF THE FORM *F.XXX*, WHERE *F.* IS A COMMON PREFIX,    COMCIDP   700
                                        *         AND *XXX* IS A UNIQUE FILE, DEFINE THE FWA OF A FET USED       COMCIDP   701
                                        *         BY *IDP*.                                                      COMCIDP   702
                                        *                                                                        COMCIDP   703
                                        *         FOLLOWING ARE ALL THE DEFINITIONS OF FETS USED BY *IDP*,       COMCIDP   704
                                        *         WITH THE **EXCEPTION** OF *F.FRZ*, THE *FREEZE* FILE           COMCIDP   705
                                        *         (SEE *IFR*, IDP FREEZE RESTART).                               COMCIDP   706
                                        *                                                                        COMCIDP   707
                                        ****************************************************************         COMCIDP   708
  
  
  
  
                                        **        F.BDO - FET AND BUFFER FOR BATCH DEBUG OUTPUT FILE.            COMCIDP   710
                                                                                                                 COMCIDP   711
                                         #BDO     IF     -DEF,F.BDO                                              COMCIDP   712
                                         L.BDO    =      101B        LENGTH OF BATCH OUTPUT BUFFER               COMCIDP   713
                                                                                                                 COMCIDP   714
                                         F.BDO    BSS    0           ** FWA OF FET **                            COMCIDP   715
                                         BDO      FILEC  IDPBDO,L.BDO                                            COMCIDP   716
                                         IDPBDO   BSS    L.BDO                                                   COMCIDP   717
                                         #BDO     ENDIF                                                          COMCIDP   718
  
  
  
  
                                        **        F.IDI - FET, LINE IMAGE AREA, AND BUFFER FOR INTERACTIVE       COMCIDP   720
                                        *           DEBUG INPUT FILE.                                            COMCIDP   721
                                                                                                                 COMCIDP   722
                                         #IDI     IF     -DEF,F.IDI                                              COMCIDP   723
                                 101     L.IDI    =      101B        LENGTH OF *IDP* INPUT BUFFER                COMCIDP   724
                                                                                                                 COMCIDP   725
           170                           F.IDI    BSS    0           ** FWA OF FET **                            COMCIDP   726
           170  32323232320411000001     ZZZZZDI  FILEC  IDPIDI,L.IDI,(FET=7)                                    COMCIDP   727
           177  55474711042047475555              DIS    1, **IDP**                                              COMCIDP   728
           200  11162405220103241126     FW.LIM   DIS    8,INTERACTIVE DEBUG LINE IMAGE AREA.                    COMCIDP   729
           210                   101     IDPIDI   BSS    L.IDI                                                   COMCIDP   730
                                                                                                                 COMCIDP   731
           311                     1     L=LIM    BSSZ   1           NR OF WORDS IN SOURCE LINE IMAGE AT         COMCIDP   732
                                        *                              (FW.LIM) ET SEQ (INCLUDES WORD CONTAINING COMCIDP   733
                                        *                              EOL MARK)                                 COMCIDP   734
                                         #IDI     ENDIF                                                          COMCIDP   735
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    83
        IDP 1.1/DATA STRUCTURES.                                      F.BDI               IDP 
  
                                 170 +   F.BDI    =      F.IDI                                                   COMCIDP   737
  
  
  
  
                                        **        F.IDO - FET AND BUFFER FOR INTERACTIVE DEBUG OUTPUT FILE.      COMCIDP   739
                                                                                                                 COMCIDP   740
                                         #IDO     IF     -DEF,F.IDO                                              COMCIDP   741
                                 101     L.IDO    =      101B        LENGTH OF *IDP* OUTPUT BUFFER               COMCIDP   742
                                                                                                                 COMCIDP   743
           312                           F.IDO    BSS    0           ** FWA OF FET **                            COMCIDP   744
           312  32323232320417000001     ZZZZZDO  FILEC  IDPIDO,L.IDO,(FET=7)                                    COMCIDP   745
           321                   101     IDPIDO   BSS    L.IDO                                                   COMCIDP   746
                                         #IDO     ENDIF                                                          COMCIDP   747
                                         .IDPOS   ENDIF                                                          CCGA018     6
  
  
  
  
                                        **        FW.SVR - SAVED REGISTER AREA.                                  COMCIDP   749
                                        *                                                                        COMCIDP   750
                                        *                                                                        COMCIDP   751
                                        *         THIS IS WHERE IDP SAVES THE USERS REGISTERS.                   COMCIDP   752
                                                                                                                 COMCIDP   753
                                                                                                                 COMCIDP   754
           422                           FW.SVR   BSS    0           ** FWA **                                   COMCIDP   755
           422                    10     IDP=SVB  BSSZ   8           SAVED -B- REGISTERS                         COMCIDP   756
           432                    10     IDP=SVA  BSSZ   8           SAVED -A- REGISTERS                         COMCIDP   757
           442                    10     IDP=SVX  BSSZ   8           SAVED -X- REGISTERS                         COMCIDP   758
  
  
  
  
                                        **        FW=PARM - FWA OF BREAK/SNAP/REG PARAMETER LIST.                COMCIDP   760
                                        *                                                                        COMCIDP   761
                                        *                                                                        COMCIDP   762
                                                                                                                 COMCIDP   763
                                                                                                                 COMCIDP   764
           452                     1     FW=PARM  BSSZ   1           SAVE CELL FOR FWA OF PARAMETER LIST         COMCIDP   765
  
  
  
  
                                        **        IDPERR - IDP ERROR CELL.                                       COMCIDP   767
                                        *                                                                        COMCIDP   768
                                        *                                                                        COMCIDP   769
                                        *         *IDPERR* IS SET BY *IDP=ER* WHEN AN ERROR IS DETECTED.         COMCIDP   770
                                        *         ITS VALUE DEPENDS ON THE IDP ASSEMBLY-TIME OPTION *OI.ERR* --  COMCIDP   771
                                        *                                                                        COMCIDP   772
                                        *           1. IF *OI.ERR = 0*, THEN (IDPERR) ARE ALWAYS SET TO .ZR.     COMCIDP   773
                                        *              TO INDICATE THAT NO ERROR MSG IS AVAILABLE.               COMCIDP   774
                                        *                                                                        COMCIDP   775
                                        *           2. IF *OI.ERR = 1*, THEN (IDPERR) ARE SET TO THE ERROR MSG   COMCIDP   776
                                        *              NR FOR THIS ERROR.                                        COMCIDP   777
                                        *                                                                        COMCIDP   778
                                        *           3. IF *OI.ERR = 2*, THEN (IDPERR) ARE SET TO THE FWA OF THE  COMCIDP   779
                                        *              ERROR MSG ITSELF.                                         COMCIDP   780
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    84
        IDP 1.1/DATA STRUCTURES.                                      IDPERR              IDP 
  
                                        *                                                                        COMCIDP   781
                                        *         SEE *OI.ERR* (IN *COMSIDP*) FOR MORE INFORMATION.              COMCIDP   782
                                                                                                                 COMCIDP   783
                                                                                                                 COMCIDP   784
           453                     1     IDPERR   BSSZ   1                                                       COMCIDP   785
  
  
  
  
                                        **        IDPFLG - INTERACTIVE/BATCH MASTER CONTROL FLAG.                COMCIDP   787
                                        *                                                                        COMCIDP   788
                                        *                CONTAINS GLOBAL CONTROL INFORMATION THAT IS USED        COMCIDP   789
                                        *         THROUGH OUT *COMCIDP*.  THE FIELDS IN *IDPFLG* ARE DESCRIBED   COMCIDP   790
                                        *         BY PAIRS OF SYMBOLS OF THE FORM *IDF.XXXP* AND *IDF.XXXL*,     COMCIDP   791
                                        *         WHERE *IDF* IS THE COMMON PREFIX, *XXX* IS THE FIELD           COMCIDP   792
                                        *         DESCRIPTOR, *P* DENOTES THE RIGHT-MOST BIT OF THE FIELD, AND   COMCIDP   793
                                        *         *L* DENOTES THE LENGTH OF THE FIELD.                           COMCIDP   794
                                        *                                                                        COMCIDP   795
                                        *                FIELD DESCRIPTIONS (XXX) ARE --                         COMCIDP   796
                                        *                                                                        COMCIDP   797
                                        *         ADR  = 0  IF ADDRESSES ARE TO BE OUTPUT AS ABSOLUTE            COMCIDP   798
                                        *              = 1  IF ADDRESSES ARE TO BE OUTPUT AS DECK RELATIVE       COMCIDP   799
                                        *                                                                        COMCIDP   800
                                        *         BDO  = 1  IF WRITING TO BATCH DEBUG OUTPUT FILE (F.BDO),       COMCIDP   801
                                        *                     ELSE 0                                             COMCIDP   802
                                        *                                                                        COMCIDP   803
                                        *         BKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO        COMCIDP   804
                                        *                     BATCH DEBUG OUTPUT FILE *F.BDO*, ELSE 0            COMCIDP   805
                                        *                                                                        COMCIDP   806
                                        *         BRF  = 1  IF IN *BRIEF* MODE (I.E. DO NOT ISSUE INTERACTIVE    COMCIDP   807
                                        *                     PROMPT), ELSE 0.                                   COMCIDP   808
                                        *                                                                        COMCIDP   809
                                        *         FTO  = 0  IF THIS IS 1ST TIME *IDP* HAS BEEN CALLED, ELSE 1    COMCIDP   810
                                        *                                                                        COMCIDP   811
                                        *         IDO  = 1  IF WRITING TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO), COMCIDP   812
                                        *                     ELSE 0                                             COMCIDP   813
                                        *                                                                        COMCIDP   814
                                        *         IKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO        COMCIDP   815
                                        *                     INTERACTIVE DEBUG OUTPUT FILE *F.IDO*, ELSE 0      COMCIDP   816
                                        *                                                                        COMCIDP   817
                                        *         INP  = 1  IF READING FROM BATCH DEBUG INPUT FILE (F.BDI)       COMCIDP   818
                                        *                     (I.E. READING FROM AN UNCONNECTED INPUT FILE)      COMCIDP   819
                                        *              = 0  IF READING FROM INTERACTIVE DEBUG INPUT FILE (F.IDI) COMCIDP   820
                                        *                                                                        COMCIDP   821
                                        *         MEM  = 0  IF ALL MEMORY REFERENCES ARE TO BE CHECKED           COMCIDP   822
                                        *                   IN THE *NORMAL* WAY, ELSE                            COMCIDP   823
                                        *                                                                        COMCIDP   824
                                        *              = 1  IF ALL MEMORY REFERENCES ARE TO BE CHECKED           COMCIDP   825
                                        *                   VIA A SYSTEM *MEM/MEMORY* CALL.  THIS OPTION         COMCIDP   826
                                        *                   IS INTENDED FOR THOSE TIMES WHEN IDP IS MODING       COMCIDP   827
                                        *                   OUT BECAUSE THE HOST MEMORY MANAGEMENT IS            COMCIDP   828
                                        *                   SCREWING UP (I.E. TELLING IDP THAT OUT-OF-RANGE ADDR COMCIDP   829
                                        *                   ARE OK), PUTTING THE USER UP SHIT CREEK SO TO SPEAK. COMCIDP   830
                                        *                                                                        COMCIDP   831
                                        *                   WHEN *MEM* IS SET, IDP WILL IGNORE ALL HOST MEMORY   COMCIDP   832
                                        *                   MANAGEMENT SCHEMES, RELYING SOLEY UPON THE OPERATING COMCIDP   833
                                        *                   SYSTEM FOR FL INFORMATION.                           COMCIDP   834
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    85
        IDP 1.1/DATA STRUCTURES.                                      IDPFLG              IDP 
  
                                        *                                                                        COMCIDP   835
                                        *         RAP  = 1  IF A CIO READ WAS ALREADY PERFORMED                  COMCIDP   836
                                        *              = 0  IF A CIO READ NEEDS TO BE PERFORMED                  COMCIDP   837
                                        *                                                                        COMCIDP   838
                                        *         SNL  = NR OF CM WORDS TO BE DUMPED (BY *DCM*) ON A SINGLE LINE COMCIDP   839
                                        *              = L.BSL  IN BATCH MODE                                    COMCIDP   840
                                        *              = L.ISL  IN INTERACTIVE MODE                              COMCIDP   841
                                        *                                                                        COMCIDP   842
                                        *         XEC  = 0  IF THE EXECUTIVE IS *IDP=*                           COMCIDP   843
                                        *              = 1  IF THE EXECUTIVE IS *REG=*                           COMCIDP   844
                                        *              = 2  IF THE EXECUTIVE IS *SNP=*                           COMCIDP   845
                                        *                                                                        COMCIDP   846
                                        *         XJR  = 1  IF *COMCXJR* IS TO BE USED FOR RESTORING REGISTERS,  COMCIDP   847
                                        *                   ELSE                                                 COMCIDP   848
                                        *              = 0  IF *COMCRSR* IS TO BE USED FOR RESTORING REGISTERS.  COMCIDP   849
                                        *                                                                        COMCIDP   850
                                        *                   SEE *OPTION,XJR* COMMAND IN IDP EXTERNAL REFERENCE   COMCIDP   851
                                        *                   MANUAL FOR EXAMPLE OF USE.                           COMCIDP   852
                                                                                                                 COMCIDP   853
                                                                                                                 COMCIDP   854
           454                     1     IDPFLG   BSSZ   1                                                       COMCIDP   855
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018     7
                                        **        MX= - MASKS.                                                   COMCIDP   857
                                        *                                                                        COMCIDP   858
                                        *                                                                        COMCIDP   859
                                                                                                                 COMCIDP   860
                                                                                                                 COMCIDP   861
                                         '?IDCS01 CHMIC  (B,A,X)                                                 COMCIDP   862
                                6171 +   MX=BAX   LIT    "'?IDCS01"                                              COMCIDP   863
                                                                                                                 COMCIDP   864
                                         '?IDCS01 CHMIC  (0,1,2,3,4,5,6,7)                                       COMCIDP   865
                                6172 +   MX=0..7  LIT    "'?IDCS01"                                              COMCIDP   866
  
  
  
  
                                        **        MX=PREUN - PRE-UNARY TOKEN TYPE SHIFT MASK.                    COMCIDP   868
                                        *                                                                        COMCIDP   869
                                        *                                                                        COMCIDP   870
                                        *         *MX=PREUN* IS A SHIFT MASK USED BY *PAS* (PARSE SUBEXPRESSION) COMCIDP   871
                                        *         FOR DETERMINING WHETHER AN OPERATOR IS UNARY OR NOT.           COMCIDP   872
                                        *                                                                        COMCIDP   873
                                        *         FOR EXAMPLE --                                                 COMCIDP   874
                                        *                                                                        COMCIDP   875
                                        *                SNAP -A     IS UNARY                                    COMCIDP   876
                                        *                SNAP A-B    IS BINARY                                   COMCIDP   877
                                                                                                                 COMCIDP   878
                                                                                                                 COMCIDP   879
                                         '?IDCS01 CHMIC  (O.VAR,O.CONS,O.REG,O.RP)                               COMCIDP   880
                                6173 +   MX=PREUN LIT    -"'?IDCS01"                                             COMCIDP   881
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    86
        IDP 1.1/DATA STRUCTURES.                                      MX=TET              IDP 
  
                                        **        MX=TET - TERMINATING TOKEN TYPE SHIFT MASK.                    COMCIDP   883
                                        *                                                                        COMCIDP   884
                                        *                                                                        COMCIDP   885
                                        *         *MX=TET* CONTAINS A SHIFT MASK THAT IS USED BY *PAS* (PARSE    COMCIDP   886
                                        *         SUBEXPRESSION) TO DETERMINE WHAT TOKEN TYPES (*TOT*) ARE TO    COMCIDP   887
                                        *         TERMINATE THE PARSE.                                           COMCIDP   888
                                        *                                                                        COMCIDP   889
                                        *         FOR MOST STMTS, THEY ARE THE *EOS* (END-OF-STMT) AND *COM*     COMCIDP   890
                                        *         (COMMA) TOKENS, BUT BECAUSE THIS MAY CHANGE SOME DAY (FUNCTION COMCIDP   891
                                        *         REFERENCES, FOR EXAMPLE), *PAS* USES THIS SHIFT MASK.          COMCIDP   892
                                        *                                                                        COMCIDP   893
                                        *         NOTE THAT *PAS* INTERNALLY USES (PAS=TET) FOR ITS TERMINATING  COMCIDP   894
                                        *         *TOT* SHIFT MASK, BUT **GUARANTEES** THAT, UPON EXIT,          COMCIDP   895
                                        *         (PAS=TET) IS SET TO (MX=TET).  THIS RELATIONSHIP CAN BE        COMCIDP   896
                                        *         THOUGHT OF AS A MASTER/SLAVE, AND ALLOWS A CALLER TO ALTER     COMCIDP   897
                                        *         THE WAY *PAS* PARSES, BUT DOES NOT REQUIRE THAT ALL THE        COMCIDP   898
                                        *         RUN-OF-THE-MILL CALLERS SET UP (PAS=TET).                      COMCIDP   899
                                        *                                                                        COMCIDP   900
                                        *         NOTE HOW THE MICRO *'?IDCTET* IS USED TO INITIALLY SET UP      COMCIDP   901
                                        *         **BOTH** (MX=TET) AND (PAS=TET).                               COMCIDP   902
                                        *                                                                        COMCIDP   903
                                        *         I CONSIDER IT A SAFE PRACTICE TO PLACE *BITMIC* PARAMETERS     COMCIDP   904
                                        *         IN **ASCENDING** ORDER...THIS AVOIDS A PROBLEM THAT CAN OCCUR  COMCIDP   905
                                        *         BECAUSE COMPASS SOMETIMES DOESN'T HONOR MIXED UP *POS*ING      COMCIDP   906
                                        *         (IT APPARENTLY HAS SOMETHING TO DO WITH WHEN COMPASS ACTUALLY  COMCIDP   907
                                        *         FORCES OUT BINARY WHEN ASSEMBLING PARTIAL WORDS).              COMCIDP   908
                                                                                                                 COMCIDP   909
                                                                                                                 COMCIDP   910
                                         '?IDCTET CHMIC  (O.EOS,O.COM)                                           COMCIDP   911
                                                                                                                 COMCIDP   912
           455  40000400000000000000     MX=TET   CON    "'?IDCTET"                                              COMCIDP   913
  
  
  
  
                                        **        POT - PARSING OPERATOR/OPERAND TABLE.                          COMCIDP   915
                                        *                                                                        COMCIDP   916
                                        *                                                                        COMCIDP   917
                                        *         *POT* IS THE PARSERS OPERATOR/OPERAND TABLE WHICH DETERMINES   COMCIDP   918
                                        *         HOW/WHEN/WHERE OPERATORS AND OPERANDS ARE PARSED.              COMCIDP   919
                                        *                                                                        COMCIDP   920
                                        *         FIELDS WITHIN *POT* ARE DEFINED VIA SYMBOLS OF THE FORM --     COMCIDP   921
                                        *                                                                        COMCIDP   922
                                        *                PS.XXXP  AND  PS.XXXL                                   COMCIDP   923
                                        *                                                                        COMCIDP   924
                                        *         WHERE *PS.* IS A COMMON PREFIX, *XXX* IS A UNIQUE FIELD NAME,  COMCIDP   925
                                        *         AND *L/P* ARE THE *COMADEF* LENGTH AND RIGHT-MOST BIT POSITION COMCIDP   926
                                        *         INDICATORS (SEE *COMADEF* FOR MORE INFO).                      COMCIDP   927
                                        *                                                                        COMCIDP   928
                                        *         FIELDS, *XXX*, ARE --                                          COMCIDP   929
                                        *                                                                        COMCIDP   930
                                        *           PIP  = POLISH IN PROCESSOR ADDR.  *PIP* CONTAINS THE         COMCIDP   931
                                        *                  ADDR OF THE POLISH IN PROCESSOR FOR THIS OPERATOR/    COMCIDP   932
                                        *                  OPERAND.                                              COMCIDP   933
                                        *                                                                        COMCIDP   934
                                        *                  THIS FIELD HAS SIGNIFICANCE WHEN A PARTICULAR *RPN*   COMCIDP   935
                                        *                  HAS BEEN CONSTRUCTED **FOR** AN OPERATOR OR OPERAND   COMCIDP   936
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    87
        IDP 1.1/DATA STRUCTURES.                                      POT                 IDP 
  
                                        *                  **FROM** ITS CORRESPONDING *POT* ENTRY.  SEE BELOW.   COMCIDP   937
                                        *                                                                        COMCIDP   938
                                        *           POP  = POLISH OUT PROCESSOR ADDR.  *POP* CONTAINS THE        COMCIDP   939
                                        *                  ADDR OF THE POLISH OUT PROCESSOR FOR THIS OPERATOR/   COMCIDP   940
                                        *                  OPERAND.                                              COMCIDP   941
                                        *                                                                        COMCIDP   942
                                        *                  *POP* IS USED IN THE **CREATION** OF AN *RPN* ENTRY.  COMCIDP   943
                                        *                                                                        COMCIDP   944
                                        *           PRI  = PARSING PRIORITY FOR THIS OPERATOR (IGNORED FOR       COMCIDP   945
                                        *                  OPERANDS AND UNARY OPERATORS).                        COMCIDP   946
                                        *                                                                        COMCIDP   947
                                        *                  *PRI* HELPS DETERMINE THE ORDER IN WHICH OPERATORS    COMCIDP   948
                                        *                  GET POPPED OFF THE PARSING STACK (*PAST*), AND        COMCIDP   949
                                        *                  THEREFORE, THE ORDER IN WHICH THINGS COME OUT ON      COMCIDP   950
                                        *                  *RPN*.                                                COMCIDP   951
                                        *                                                                        COMCIDP   952
                                        *           UPIP = UNARY OPERATOR POLISH IN PROCESSOR ADDRESS.  *UPIP*   COMCIDP   953
                                        *                  IS USED WHEN AN OPERATOR HAS BOTH A BINARY **AND**    COMCIDP   954
                                        *                  A UNARY FORM, AS DOES MINUS  --                       COMCIDP   955
                                        *                                                                        COMCIDP   956
                                        *                       SNAP A-B                                         COMCIDP   957
                                        *                       SNAP -A                                          COMCIDP   958
                                        *                                                                        COMCIDP   959
                                        *         SEE ALSO *RPN* (REVERSE POLISH NOTATION TABLE) AND *PAS*       COMCIDP   960
                                        *         (PARSE SUBEXPRESSION).                                         COMCIDP   961
                                        *                                                                        COMCIDP   962
                                        *         NOTE THAT BECAUSE *PAS* USES TOKEN TYPES (*O.* SYMBOLS)        COMCIDP   963
                                        *         AS ORDINALS INTO *POT*, THAT THIS IMPLIES THAT *POT* ENTRIES   COMCIDP   964
                                        *         MUST BE IN THE SAME ORDER AS THE TOKEN TYPES.  THAT IS,        COMCIDP   965
                                        *         THERE IS A ONE-TO-ONE CORRESPONDENCE BETWEEN *O.* TOKEN        COMCIDP   966
                                        *         TYPES AND *POT*.  SEE ALSO *DEFTOT* (DEFINE TOKEN TYPE)        COMCIDP   967
                                        *         MACRO IN *COMSIDP* (IDP INTERFACE TEXT).                       COMCIDP   968
                                                                                                                 COMCIDP   969
                                                                                                                 COMCIDP   970
                                   1     '?IDSTOT SET    O.VAR-1                                                 COMCIDP   971
                                                                                                                 COMCIDP   972
           456                           FW.POT   BSS    0           ** FWA **                                   COMCIDP   973
           456  00001310 +               VAR      PASOP  POP=PAS24,PIP=PAS34                                     COMCIDP   974
           457  00001310 +               CONS     PASOP  POP=PAS26,PIP=PAS34                                     COMCIDP   975
           460  00001310 +               REG      PASOP  POP=PAS28,PIP=PAS34                                     COMCIDP   976
                                                                                                                 COMCIDP   977
           461  40003702 +               PLUS     PASOP  POP=PAS20,PIP=PAS36,UPIP=PAS38,PRI=40B                  COMCIDP   978
           462  40003714 +               MIN      PASOP  POP=PAS20,PIP=PAS40,UPIP=PAS42,PRI=40B                  COMCIDP   979
           463  42003716 +               STAR     PASOP  POP=PAS20,PIP=PAS44,UPIP=PAS46,PRI=42B                  COMCIDP   980
           464  00001310 +               LP       PASOP  POP=PAS16                                               COMCIDP   981
           465  00001310 +               RP       PASOP  POP=PAS18                                               COMCIDP   982
           466  40001310 +               SHFT     PASOP  POP=PAS20,PIP=PAS48,PRI=40B                             COMCIDP   983
           467  40001310 +               AND      PASOP  POP=PAS20,PIP=PAS52,PRI=40B                             COMCIDP   984
           470  40001310 +               OR       PASOP  POP=PAS20,PIP=PAS50,PRI=40B                             COMCIDP   985
           471  40001310 +               XOR      PASOP  POP=PAS20,PIP=PAS54,PRI=40B                             COMCIDP   986
           472  77003714 +               NOT      PASOP  POP=PAS20,UPIP=PAS42,PRI=77B                            COMCIDP   987
                                                                                                                 COMCIDP   988
                                                                                                                 COMCIDP   989
                                  15     L.POT    =      *-FW.POT                                                COMCIDP   990
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    88
        IDP 1.1/DATA STRUCTURES.                                      PAST                IDP 
  
                                        **        PAST - PARSING STACK.                                          COMCIDP   992
                                        *                                                                        COMCIDP   993
                                        *                                                                        COMCIDP   994
                                        *         *PAST* IS THE STACK USED BY THE PARSER *PAS* (PARSE            COMCIDP   995
                                        *         SUBEXPRESSION) DURING THE GENERATION AND EVALUATION            COMCIDP   996
                                        *         OF THE *RPN* (REVERSE POLISH NOTATION) TABLE.                  COMCIDP   997
                                        *                                                                        COMCIDP   998
                                        *         DURING GENERATION OF *RPN* (I.E. POLISH OUT), *PAS*            COMCIDP   999
                                        *         PUSHS AND POPS OPERATORS ON AND OFF *PAST* IN ORDER TO GET     COMCIDP  1000
                                        *         THEM TO COME OUT IN THEIR PROPER ORDER ONTO *RPN*.             COMCIDP  1001
                                        *                                                                        COMCIDP  1002
                                        *         DURING THE EVALUATION OF *RPN* (I.E. POLISH IN), *PAS*         COMCIDP  1003
                                        *         PUSHS AND POPS OPERANDS ON AND OFF *PAST* IN ORDER TO GET      COMCIDP  1004
                                        *         THEM EVALUATED PROPERLY.  DURING THIS PHASE, THE FINAL         COMCIDP  1005
                                        *         ANSWER/EVALUATION IS THE ONLY THING LEFT ON *PAST* WHEN        COMCIDP  1006
                                        *         WE ARE DONE (ASSUMING NO ERRORS, OF COURSE).                   COMCIDP  1007
                                        *                                                                        COMCIDP  1008
                                        *         SEE *PAS* AND *RPN*                                            COMCIDP  1009
                                                                                                                 COMCIDP  1010
                                                                                                                 COMCIDP  1011
                                  36     L.PAST   =      30                                                      COMCIDP  1012
           473                     1              BSSZ   1                                                       COMCIDP  1013
           474                    36     FW.PAST  BSSZ   L.PAST                                                  COMCIDP  1014
  
  
  
  
                                        **        RPN - REVERSE POLISH NOTATION TABLE.                           COMCIDP  1016
                                        *                                                                        COMCIDP  1017
                                        *                                                                        COMCIDP  1018
                                        *         *RPN* CONTAINS THE REVERSE POLISH NOTATION FORM OF EACH        COMCIDP  1019
                                        *         SUBEXPRESSION DURING PARSING BY *PAS* (PARSE SUBEXPRESSION).   COMCIDP  1020
                                        *                                                                        COMCIDP  1021
                                        *         *RPN* IS GENERATED BY THE POLISH OUT PROCESSORS OF *PAS*,      COMCIDP  1022
                                        *         AND IS READ BY THE POLISH IN PROCESSORS OF *PAS*.  IT IS,      COMCIDP  1023
                                        *         THEREFORE, AN INTERNAL FORM OF COMMUNICATION WITHIN THE        COMCIDP  1024
                                        *         PARSER.                                                        COMCIDP  1025
                                        *                                                                        COMCIDP  1026
                                        *         INDIVIDUAL *RPN* ENTRIES ARE CONSTRUCTED FROM *POT* (PARSING   COMCIDP  1027
                                        *         OPERATOR/OPERAND TABLE) AND *TB* (TOKEN BUFFER) BY THE         COMCIDP  1028
                                        *         POLISH OUT PROCESSORS.                                         COMCIDP  1029
                                        *                                                                        COMCIDP  1030
                                        *         *RPN* ENTRIES TAKE 2 GENERAL FORMS: OPERATOR ENTRIES, AND      COMCIDP  1031
                                        *         OPERAND ENTRIES.  BOTH FORMS ARE SIMILAR IN THAT THEY          COMCIDP  1032
                                        *         CONTAIN *POLISH IN* INFORMATION (FOR EXAMPLE, THE POLISH       COMCIDP  1033
                                        *         IN PROCESSOR ADDR FOR A PARTICULAR TOKEN/*RPN* ENTRY).         COMCIDP  1034
                                        *                                                                        COMCIDP  1035
                                        *         THE PRIMARY DIFFERENCE BETWEEN THESE 2 FORMS IS THAT OPERAND   COMCIDP  1036
                                        *         ENTRIES ALSO CONTAIN THE BINARY VALUE THAT *PAS*S POLISH OUT   COMCIDP  1037
                                        *         PROCESSORS WERE ABLE TO ASSOCIATE/EVALUATE WITH THIS OPERAND.  COMCIDP  1038
                                        *                                                                        COMCIDP  1039
                                        *         WHILE OPERATOR ENTRIES ARE 1 WORD IN LENGTH EACH, OPERAND      COMCIDP  1040
                                        *         ENTRIES ARE 2 WORDS EACH: THE EXTRA WORD CONTAINING THE        COMCIDP  1041
                                        *         BINARY VALUE OF THE OPERAND.                                   COMCIDP  1042
                                        *                                                                        COMCIDP  1043
                                        *         SEE ALSO *PAS*, *POT*.                                         COMCIDP  1044
                                        *                                                                        COMCIDP  1045
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    89
        IDP 1.1/DATA STRUCTURES.                                      RPN                 IDP 
  
                                        *         REVERSE POLISH NOTATION EXAMPLES --                            COMCIDP  1046
                                        *                                                                        COMCIDP  1047
                                        *                A + B          A B +                                    COMCIDP  1048
                                        *                -A             A -                                      COMCIDP  1049
                                        *                *(A+B)         A B + *                                  COMCIDP  1050
                                        *                *(A$B)+C       A B $ * C +                              COMCIDP  1051
                                                                                                                 COMCIDP  1052
                                                                                                                 COMCIDP  1053
                                  55     L.RPN    =      L.PAST+L.PAST/2                                         COMCIDP  1054
           532                    55     FW.RPN   BSSZ   L.RPN                                                   COMCIDP  1055
                                         .IDPOS   ENDIF                                                          CCGA018     8
  
  
  
  
                                        **        SNAPLNE - OUTPUT LINE IMAGE AREA.                              COMCIDP  1057
                                        *                                                                        COMCIDP  1058
                                        *                                                                        COMCIDP  1059
                                                                                                                 COMCIDP  1060
                                                                                                                 COMCIDP  1061
           607                    17     SNAPLNE  BSSZ   15          INTERACTIVE AND BATCH DEBUG OUTPUT LINE     COMCIDP  1062
                                        *                              IMAGE AREA                                COMCIDP  1063
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018     9
                                        **        TB=FLL - CURRENT *FWA,LWA,LEN* KEYWORD POINTER.                COMCIDP  1065
                                        *                                                                        COMCIDP  1066
                                        *                                                                        COMCIDP  1067
                                        *         *TB=FLL* CONTAINS THE ADDR OF THE MOST RECENT *KEYW*           COMCIDP  1068
                                        *         ENTRY FOR A *PTR* DRIVEN KEYWORD.  THAT IS, A KEYWORD          COMCIDP  1069
                                        *         WHICH HAS THE *PTR* FIELD IN ITS *KEYW* ENTRY .NZ.             COMCIDP  1070
                                        *                                                                        COMCIDP  1071
                                        *         (TB=FLL) ARE USED BY THE *UP* AND *DOWN* PROCESSORS            COMCIDP  1072
                                        *         FOR DETERMINING WHICH *KEYW* POINTER (AT *FW.PTR* ET SEQ)      COMCIDP  1073
                                        *         THE INTERACTIVE USER WISHES TO MOVE *UP* OR *DOWN*.            COMCIDP  1074
                                                                                                                 COMCIDP  1075
                                                                                                                 COMCIDP  1076
           626                     1     TB=FLL   BSSZ   1                                                       COMCIDP  1077
  
  
  
  
                                        **        TB=KEY - CURRENT KEYWORD POINTER.                              COMCIDP  1079
                                        *                                                                        COMCIDP  1080
                                        *                                                                        COMCIDP  1081
                                        *         *TB=KEY* CONTAINS THE ADDRESS OF THE MOST RECENT *KEYW*        COMCIDP  1082
                                        *         ENTRY FOUND BY *CST* (CLASSIFY STMT).  IT IS USED              COMCIDP  1083
                                        *         WHENEVER ANYONE WISHES TO GET TO ANY INFORMATION CONTAINED     COMCIDP  1084
                                        *         IN THE *KEYW* ENTRY FOR THE CURRENT STMT.                      COMCIDP  1085
                                        *                                                                        COMCIDP  1086
                                        *         FOR EXAMPLE, *IDP*S MAIN LOOP USES (TB=KEY) TO DETERMINE       COMCIDP  1087
                                        *         WHICH STMT PROCESSOR TO TRANSFER CONTROL TO FOR A STMT         COMCIDP  1088
                                        *         IN THE TOKEN BUFFER.  THAT IS, AFTER A *CST* CALL, (TB=KEY)    COMCIDP  1089
                                        *         POINTS TO THE *FOUND* KEYWORD ENTRY.                           COMCIDP  1090
                                                                                                                 COMCIDP  1091
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    90
        IDP 1.1/DATA STRUCTURES.                                      TB=KEY              IDP 
  
                                                                                                                 COMCIDP  1092
           627                     1     TB=KEY   BSSZ   1                                                       COMCIDP  1093
  
  
  
  
                                        **        TB=STMT - CURRENT STMT POINTER.                                COMCIDP  1095
                                        *                                                                        COMCIDP  1096
                                        *                                                                        COMCIDP  1097
                                        *         *TB=STMT* CONTAINS INFORMATION ABOUT THE CURRENT STMT          COMCIDP  1098
                                        *         IN THE TOKEN BUFFER, *IDPTB*.  *TB=STMT* IS USED IN 2          COMCIDP  1099
                                        *         DISTINCTLY DIFFERENT WAYS --                                   COMCIDP  1100
                                        *                                                                        COMCIDP  1101
                                        *           1. DURING TOKEN GENERATION OF A SOURCE LINE BY *COMCTOK*,    COMCIDP  1102
                                        *              *TB=STMT* CONTAINS THE ADDR OF THE STMT INFORMATION       COMCIDP  1103
                                        *              HEADER WORD FOR THE STMT BEING ENTOKENED.                 COMCIDP  1104
                                        *                                                                        COMCIDP  1105
                                        *              WHEN *TOK* ENCOUNTERS AN END-OF-STMT CONDITION (I.E.      COMCIDP  1106
                                        *              EITHER END-OF-LINE OR * *), THEN *TOK=EOS* (END-OF-       COMCIDP  1107
                                        *              STMT PROCESSING FOR *COMCTOK*) USES (TB=STMT) TO FIND     COMCIDP  1108
                                        *              THE STMT INFO HEADER WORD FOR THE STMT JUST ENTOKENED     COMCIDP  1109
                                        *              SO THAT HE CAN GO BACK AND FILL IN THE LENGTH OF THIS     COMCIDP  1110
                                        *              STMT.                                                     COMCIDP  1111
                                        *                                                                        COMCIDP  1112
                                        *           2. DURING THE STMT PROCESSING PHASE, *TB=STMT* CONTAINS      COMCIDP  1113
                                        *              THE ADDR OF THE CURRENT STMT BEING PROCESSED.  IN THIS    COMCIDP  1114
                                        *              WAY, IDP.S MAIN LOOP CAN ADVANCE TO EACH NEW STMT THAT    COMCIDP  1115
                                        *              OCCURS ON A SINGLE SOURCE LINE.                           COMCIDP  1116
                                                                                                                 COMCIDP  1117
                                                                                                                 COMCIDP  1118
           630  00000000000000000735 +   TB=STMT  CON    IDPTB                                                   COMCIDP  1119
  
  
  
  
                                        **        *IDP* DATA DECLARATIONS.                                       COMCIDP  1121
                                                                                                                 COMCIDP  1122
                                                                                                                 COMCIDP  1123
           631                     3     IDPSTO   BSSZ   3                                                       COMCIDP  1124
                                                                                                                 COMCIDP  1125
      L    631                                    LOC    IDPSTO                                                  COMCIDP  1126
                                 631 +   IDPSTA   =      *           ADDR TO STORE INTO FOR *STORE* PROCESSING   COMCIDP  1127
                                 632 +   IDPSTC   =      *+1         NEW VALUE ASSEMBLED FROM C1 THRU C4 ON      COMCIDP  1128
                                        *                              *STORE* COMMAND                           COMCIDP  1129
                                 633 +   IDPSTM   =      *+2         MASK ASSEMBLED FROM NULL C1 THRU C4 ON      COMCIDP  1130
                                        *                              *STORE* COMMAND. IDP USES THIS MASK TO    COMCIDP  1131
                                        *                              PICK UP THE PREVIOUS CONTENTS OF THE C-N- COMCIDP  1132
                                        *                              FIELD IF THE NEW C-N- FIELD IS NULL       COMCIDP  1133
                                        *                              E.G.  STORE ADDR,,22222,,44444            COMCIDP  1134
                                        *                              PREVIOUS (STA) = 01020304050607080910     COMCIDP  1135
                                        *                                       (STC) = 00000222220000044444     COMCIDP  1136
                                        *                                       (STM) = 77777000007777700000     COMCIDP  1137
                                        *                                   NEW (STA) = 01020222220607044444     COMCIDP  1138
           634                                    LOC    *O                                                      COMCIDP  1139
           634                     1     IDPBTC   BSSZ   1           BREAK TYPE CODE                             COMCIDP  1140
                                                                                                                 COMCIDP  1141
           635                     1     IDPACC   BSSZ   1           ACCUMULATOR FOR THIS SUBEXPRESSION          COMCIDP  1142
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    91
        IDP 1.1/DATA STRUCTURES.                                      DATA                IDP 
  
           636                     1     IDPNUL   BSSZ   1           .ZR. IF JUST PARSED NULL EXPRESSION         COMCIDP  1143
                                        *                                   E.G.   SNAP FWA,,LEN   (LWA IS NULL) COMCIDP  1144
                                                                                                                 COMCIDP  1145
           637                     1     IDP0TR   BSSZ   1           REGISTER DESIGNATOR                         COMCIDP  1146
                                        *                              USED FOR *REG R1,R2,...,RN* PROCESSING.   COMCIDP  1147
                                        *                              FORMAT IS--  60/0TR WHERE                 COMCIDP  1148
                                        *                                  T = REGISTER TYPE (B=0,A=1,X=2)       COMCIDP  1149
                                        *                                  R = REGISTER NR (0-7)                 COMCIDP  1150
                                                                                                                 COMCIDP  1151
           640                     1     IDPNAM   BSSZ   1           SAVE CELL FOR *ST=SET* -- SET NAME (0L FMT) COMCIDP  1152
                                                                                                                 COMCIDP  1153
           641                     1     IDPFAD   BSSZ   1           .NZ. IF *DAZ* IS TO FORCE OUT ADDR OF INST- COMCIDP  1154
                                        *                              RUCTION BEING DEASSEMBLED EVEN IF NOT     COMCIDP  1155
                                        *                              FORCED UPPER IN WORD, ELSE .ZR.           COMCIDP  1156
                                        *                              E.G. IF *FAD* IS .ZR. --                  COMCIDP  1157
                                        *                              ADDR  54111                 SA1  A1+B1    COMCIDP  1158
                                        *                                         0311000000       NZ   X1,...   COMCIDP  1159
                                        *                                                   10611  BX6  X1       COMCIDP  1160
                                        *                              E.G. IF *FAD* IS .NZ. --                  COMCIDP  1161
                                        *                              ADDR  54111                 SA1  A1+B1    COMCIDP  1162
                                        *                              ADDR       0311000000       NZ   X1,...   COMCIDP  1163
                                        *                              ADDR                 10611  BX6  X1       COMCIDP  1164
                                        *                              NOTE-- *DAZ* WILL ALWAYS ZERO *FAD*       COMCIDP  1165
                                                                                                                 COMCIDP  1166
           642                     2     IDPPPP   BSSZ   2           PSEUDO P REGISTER AND POS COUNTER           COMCIDP  1167
                                                                                                                 COMCIDP  1168
      L    642                                    LOC    IDPPPP                                                  COMCIDP  1169
                                 642 +   IDPPREG  =      *           PSEUDO P REGISTER. POINTS TO WORD CONTAIN-  COMCIDP  1170
                                        *                              ING NEXT INSTRUCTION TO BE XEQ            COMCIDP  1171
                                 643 +   IDPPOS   =      *+1         POSITION COUNTER. LEFT MOST BIT OF INST-    COMCIDP  1172
                                        *                              RUCTION TO XEQ IS BIT (IDPPOS)-1 IN       COMCIDP  1173
                                        *                              ((IDPPREG)).(BITS ARE NUMBERED 59 THRU 0) COMCIDP  1174
           644                                    LOC    *O                                                      COMCIDP  1175
                                                                                                                 COMCIDP  1176
           644                     1     IDPXAR   BSSZ   1           .MI. IF NO ADDR REF VIA LOAD/STORE, ELSE    COMCIDP  1177
                                        *                              ADDR THAT WAS REFERENCED. USED IN *STAR*  COMCIDP  1178
                                        *                              PROCESSING.                               COMCIDP  1179
           645                     2     IDPXCA   BSSZ   2           CONDITIONAL *STEP* COMPARE ADDRESSES.       COMCIDP  1180
                                        *                              IF THIS IS A CONDITIONAL STEP (STNE,...), COMCIDP  1181
                                        *                              THEN ((XA1)) WILL BE COMPARED TO ((XA2))  COMCIDP  1182
                                                                                                                 COMCIDP  1183
      L    645                                    LOC    IDPXCA                                                  COMCIDP  1184
                                 645 +   IDPXA1   =      *                                                       COMCIDP  1185
                                 646 +   IDPXA2   =      *+1                                                     COMCIDP  1186
           647                                    LOC    *O                                                      COMCIDP  1187
                                                                                                                 COMCIDP  1188
           647                     1     IDPXFR   BSSZ   1           .MI. IF NO XFER OF CONTROL BY BRANCH OR RJ, COMCIDP  1189
                                        *                              ELSE ADDR TO XFER CONTROL TO. USED IN     COMCIDP  1190
                                        *                              STEP MODE SO THAT PSEUDO P REGISTER IS    COMCIDP  1191
                                        *                              NOT PREMATURELY UPDATED WHEN BRANCHING.   COMCIDP  1192
           650                     1     IDPXLST  BSSZ   1           .NZ. IF LISTING THIS INSTRUCTION IN STEP    COMCIDP  1193
                                        *                              MODE, ELSE .ZR.                           COMCIDP  1194
           651                     1     IDPXRJ   BSSZ   1           .ZR. IF AT LEVEL 0 (I.E. NO *RJ* ACTIVE),   COMCIDP  1195
                                        *                              ELSE ADDR OF ENTRY POINT TO ROUTINE       COMCIDP  1196
                                        *                              CALLED FROM LEVEL 0. USED IN STEP MODE TO COMCIDP  1197
                                        *                              DETERMINE WHEN TO TURN LISTING BACK ON    COMCIDP  1198
                                        *                              WHEN /-RJ/ OPTION SELECTED                COMCIDP  1199
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    92
        IDP 1.1/DATA STRUCTURES.                                      DATA                IDP 
  
           652                     1     IDPXTC   BSSZ   1           *STEP* TYPE CODE                            COMCIDP  1200
                                                                                                                 COMCIDP  1201
           653                     2     IDPXOP   BSSZ   2           STEP OPTIONS FLAGS. THERE IS A ONE-TO-ONE   COMCIDP  1202
                                        *                              RELATIONSHIP BETWEEN THE STEP OPTIONS     COMCIDP  1203
                                        *                              FLAGS AND THE STEP OPTIONS KEYWORD TABLE. COMCIDP  1204
                                        *                              WHEN *POL* RETURNS WITH A KEYWORD FIND    COMCIDP  1205
                                        *                              AND AN OPTIONS FLAG VALUE, THE ORDINAL OF COMCIDP  1206
                                        *                              FIND IN THE STEP OPTIONS KEYWORD TABLE IS COMCIDP  1207
                                        *                              THE ORDINAL TO STORE INTO *IDPXOP*.       COMCIDP  1208
                                                                                                                 COMCIDP  1209
      L    653                                    LOC    IDPXOP                                                  COMCIDP  1210
                                 653 +   IDPXOL   =      *           .NZ. IF /L/ SELECTED ON STEP COMAND,        COMCIDP  1211
                                        *                              ELSE .ZR. IF /-L/ SELECTED                COMCIDP  1212
                                 654 +   IDPXORJ  =      *+1         .NZ. IF /RJ/ SELECTED ON STEP COMMAND,      COMCIDP  1213
                                        *                              ELSE .ZR. IF /-RJ/ SELECTED               COMCIDP  1214
           655                                    LOC    *O                                                      COMCIDP  1215
  
  
  
  
                                        **        *IDP* MESSAGES.                                                COMCIDP  1217
                                                                                                                 COMCIDP  1218
           655  55030114140455023155     IDPMSG2  DIS    3, CALLD BY 000000 IN XXXXXXX                           COMCIDP  1219
           660  55171404552601142555     IDPMSG4  DIS    3, OLD VALU 00000000000000000000                        COMCIDP  1220
           663  00000000000000000000              DATA   0                                                       COMCIDP  1221
           664  55160527552601142555     IDPMSG5  DIS    3, NEW VALU 00000000000000000000                        COMCIDP  1222
           667  00000000000000000000              DATA   0                                                       COMCIDP  1223
  
  
  
  
                                        **        PATFLG - PARSE *FWA,LWA,LEN* TRIPLE FLAG.                      COMCIDP  1225
                                        *                                                                        COMCIDP  1226
                                        *                                                                        COMCIDP  1227
                                        *         CONTAINS STATUS ABOUT THE *FWA,LWA,LEN* TRIPLE BEING           COMCIDP  1228
                                        *         PARSED/PROCESSED BY ROUTINE *PAT*.  USED SO THAT *PAT*         COMCIDP  1229
                                        *         CAN RESOLVE ANY POSSIBLE SYNTACTIC DIFFERENCES/PROBLEMS        COMCIDP  1230
                                        *         THAT MIGHT OCCUR BETWEEN THE *LWA* AND *LEN* PARAMETERS.       COMCIDP  1231
                                        *         SEE SUBROUTINE *PAT*.                                          COMCIDP  1232
                                        *                                                                        COMCIDP  1233
                                        *         BIT FLAGS WITHIN *PATFLG* MUST EXIST IN BITS 0 THRU 16         COMCIDP  1234
                                        *         (I.E. FIELD MANIPULATION IS DONE VIA *SX.I* TYPE INSTRUCTIONS) COMCIDP  1235
                                        *         AND ARE DESCRIBE/DEFINED IN THE USUAL MANNER VIA SYMBOLS       COMCIDP  1236
                                        *         OF THE FORM --                                                 COMCIDP  1237
                                        *                                                                        COMCIDP  1238
                                        *                PAF.XXXP  AND  PAF.XXXL                                 COMCIDP  1239
                                        *                                                                        COMCIDP  1240
                                        *         WHERE *PAF.* IS A COMMON PREFIX AND *XXX* IS A UNIQUE          COMCIDP  1241
                                        *         BIT FLAG (FIELD) NAME.                                         COMCIDP  1242
                                        *                                                                        COMCIDP  1243
                                        *         BIT FLAGS *XXX* ARE --                                         COMCIDP  1244
                                        *                                                                        COMCIDP  1245
                                        *         LWA  = 1 IF LWA WAS SPECIFIED EXPLICITLY (I.E. NON-NULL),      COMCIDP  1246
                                        *                  ELSE 0.                                               COMCIDP  1247
                                        *         LEN  = 1 IF LEN WAS SPECIFIED EXPLICITLY (I.E. NON-NULL),      COMCIDP  1248
                                        *                  ELSE 0.                                               COMCIDP  1249
                                                                                                                 COMCIDP  1250
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    93
        IDP 1.1/DATA STRUCTURES.                                      PATFLG              IDP 
  
                                                                                                                 COMCIDP  1251
           670                     1     PATFLG   BSSZ   1                                                       COMCIDP  1252
  
  
  
  
                                        **        PTR - POINTER AREA.                                            COMCIDP  1254
                                        *                                                                        COMCIDP  1255
                                        *                                                                        COMCIDP  1256
                                                                                                                 COMCIDP  1257
                                                                                                                 COMCIDP  1258
                                  12     N.PTR    =      10          NR OF *PTR* ENTRIES                         COMCIDP  1259
                                                                                                                 COMCIDP  1260
           671                           FW.PTR   BSS    0                                                       COMCIDP  1261
                                  12     '?ID#001 DUP    N.PTR                                                   COMCIDP  1262
                                                  DUP    L1.PTR,1                                                COMCIDP  1263
                                                  VFD    PT.FWAL/0,PT.LENL/1                                     COMCIDP  1264
                                         '?ID#001 ENDD                                                           COMCIDP  1265
                                                                                                                 COMCIDP  1266
                                                                                                                 COMCIDP  1267
                                  24     L.PTR    =      *-FW.PTR                                                COMCIDP  1268
  
  
  
  
                                        **        TC= - *TOKCOM*, THE *USER/TOK* COMMUNICATIONS AREA.            COMCIDP  1270
                                        *                                                                        COMCIDP  1271
                                        *                                                                        COMCIDP  1272
                                        *         SYMBOLS WITH THE COMMON PREFIX *TC=* CONTAIN INFORMATION       COMCIDP  1273
                                        *         THAT IS TO BE PASSED BETWEEN IDP AND *COMCTOK* (THE COMMON     COMCIDP  1274
                                        *         TOKEN GENERATOR).                                              COMCIDP  1275
                                        *                                                                        COMCIDP  1276
                                        *         LOCATIONS WITHIN *TOKCOM* ARE DEFINED VIA ORDINALS.  THESE     COMCIDP  1277
                                        *         ORDINALS ARE DEFINED VIA SYMBOLS OF THE FORM --                COMCIDP  1278
                                        *                                                                        COMCIDP  1279
                                        *                TC.XXX                                                  COMCIDP  1280
                                        *                                                                        COMCIDP  1281
                                        *         WHERE *TC.* IS A COMMON PREFIX, AND *XXX* IS A *TOKCOM*        COMCIDP  1282
                                        *         LOCATION ORDINAL NAME (*TC.XXX* SYMBOLS ARE DEFINED            COMCIDP  1283
                                        *         IN *COMSTOK*, THE COMMON TOKEN GENERATOR INTERFACE TEXT).      COMCIDP  1284
                                        *                                                                        COMCIDP  1285
                                        *         TO AVOID BUGS, MISUNDERSTANDINGS, AND GENERAL CONFUSION,       COMCIDP  1286
                                        *         **ALL** LOCATIONS WITHIN *TOKCOM* SHOULD BE DEFINED/REFERENCED COMCIDP  1287
                                        *         VIA *TC.XXX* SYMBOLS.                                          COMCIDP  1288
                                                                                                                 COMCIDP  1289
                                                                                                                 COMCIDP  1290
           715                    20     FW.TCOM  BSSZ   L.TCOM                                                  COMCIDP  1291
                                                                                                                 COMCIDP  1292
      L    715                                    LOC    FW.TCOM                                                 COMCIDP  1293
                                 721 +   TC=P     =      *+TC.P                                                  COMCIDP  1294
                                 722 +   TC=SOA   =      *+TC.SOA                                                COMCIDP  1295
                                 723 +   TC=SOX   =      *+TC.SOX                                                COMCIDP  1296
                                 724 +   TC=SOL   =      *+TC.SOL                                                COMCIDP  1297
                                 725 +   TC=SOB   =      *+TC.SOB                                                COMCIDP  1298
                                 726 +   TC=SOC   =      *+TC.SOC                                                COMCIDP  1299
                                 727 +   TC=TBA   =      *+TC.TBA                                                COMCIDP  1300
                                 730 +   TC=TBB   =      *+TC.TBB                                                COMCIDP  1301
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    94
        IDP 1.1/DATA STRUCTURES.                                      TC=                 IDP 
  
                                 731 +   TC=RSF   =      *+TC.RSF                                                COMCIDP  1302
                                 732 +   TC=BOL   =      *+TC.BOL                                                COMCIDP  1303
                                 733 +   TC=EOL   =      *+TC.EOL                                                COMCIDP  1304
                                 734 +   TC=REST  =      *+TC.REST                                               COMCIDP  1305
           735                                    LOC    *O                                                      COMCIDP  1306
  
  
  
  
                                        **        IDPTB - COMMAND LINE TOKEN BUFFER.                             COMCIDP  1308
                                        *                                                                        COMCIDP  1309
                                        *                CONTAINS THE CURRENT COMMAND LINE IN TOKEN FORM.        COMCIDP  1310
                                        *                                                                        COMCIDP  1311
                                        *         TOKEN BUFFER FORMAT --                                         COMCIDP  1312
                                        *                                                                        COMCIDP  1313
                                        *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 1)        COMCIDP  1314
                                        *         VFD    42/0LCHARS,18/TOKEN TYPE                                COMCIDP  1315
                                        *         VFD    42/0LCHAR ,18/TOKEN TYPE                                COMCIDP  1316
                                        *          .                                                             COMCIDP  1317
                                        *          .                                                             COMCIDP  1318
                                        *         VFD    60/0   (END OF STATEMENT MARK FOR STMT 1)               COMCIDP  1319
                                        *                                                                        COMCIDP  1320
                                        *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 2)        COMCIDP  1321
                                        *          .                                                             COMCIDP  1322
                                        *         ETC                                                            COMCIDP  1323
                                        *                                                                        COMCIDP  1324
                                        *                THE FIELDS IN THE TOKEN INFORMATION WORDS ARE DESCRIBED COMCIDP  1325
                                        *         BY PAIRS OF SYMBOLS OF THE FORM *TB.XXXP* AND *TB.XXXL*,       COMCIDP  1326
                                        *         WHERE *TB* IS THE COMMON PREFIX, AND *XXX* IS THE FIELD        COMCIDP  1327
                                        *         DESCRIPTION.                                                   COMCIDP  1328
                                        *                                                                        COMCIDP  1329
                                        *         FIELD DESCRIPTIONS (XXX) ARE --                                COMCIDP  1330
                                        *                                                                        COMCIDP  1331
                                        *         LAS  = 1  IF THIS IS LAST STMT ON LINE, ELSE 0                 COMCIDP  1332
                                        *                                                                        COMCIDP  1333
                                        *         LEN  = NR OF WORDS OR TOKENS IN STMT  (INCLUDES EOL MARK)      COMCIDP  1334
                                        *                  NOTE--IF LAS .EQ. 0, TOKEN INFO WORD FOR NEXT         COMCIDP  1335
                                        *                  STMT IS AT -- TOKEN INFO WORD + LEN + 1               COMCIDP  1336
                                                                                                                 COMCIDP  1337
                                                                                                                 COMCIDP  1338
                                 144     L.TB     =      100         LENGTH OF TOKEN BUFFER                      COMCIDP  1339
           735                   144     IDPTB    BSSZ   L.TB                                                    COMCIDP  1340
  
  
  
  
                                        **        SCT - STATEMENT CONTROL TOKEN TABLE.                           COMCIDP  1342
                                        *                                                                        COMCIDP  1343
                                        *                                                                        COMCIDP  1344
                                        *         THE FOLLOWING IS THE TABLE CONTAINING ALL THE *STMT            COMCIDP  1345
                                        *         CONTROL* TOKENS AND THEIR RESPECTIVE PROCESSOR ADDRESSES       COMCIDP  1346
                                        *         FOR ALL THE SPECIAL *STMT CONTROL* TOKENS THAT CAN             COMCIDP  1347
                                        *         PRECEDE AN IDP STMT KEYWORD.                                   COMCIDP  1348
                                                                                                                 COMCIDP  1349
                                                                                                                 COMCIDP  1350
          1101                           FW.SCT   BSS    0           ** FWA **                                   COMCIDP  1351
          1101  00002000000000001717 +   PER      SCTOT  SC=BRF      .                                           COMCIDP  1352
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    95
        IDP 1.1/DATA STRUCTURES.                                      SCT                 IDP 
  
          1102  00002200000000001721 +   QQQ      SCTOT  SC=QQQ      ?                                           COMCIDP  1353
          1103  00000000000000000000              DATA   0           ** END OF TABLE **                          COMCIDP  1354
  
  
  
  
                                        **        *IDP* KEYWORD TABLE.                                           COMCIDP  1356
                                        *                                                                        COMCIDP  1357
                                        *                                                                        COMCIDP  1358
                                                                                                                 COMCIDP  1359
                                                                                                                 COMCIDP  1360
          1104  00000000000000001105 +   FW=KEY   CON    FW.KEY                                                  COMCIDP  1361
  
  
  
  
          1105                           FW.KEY   BSS    0           ** FWA OF KEYW TABLE **                     COMCIDP  1363
          1105                           ABS      KEYW   ABS                                                     COMCIDP  1364
          1107                           COD      KEYW   (CODE FWA,LWA,LEN)                                      COMCIDP  1365
          1111                           CON      KEYW   CONNECT                                                 COMCIDP  1366
          1113                           DPC      KEYW   (DPC FWA,LWA,LEN)                                       COMCIDP  1367
          1115                           DSC      KEYW   DISCONT                                                 COMCIDP  1368
          1117                           END      KEYW   END                                                     COMCIDP  1369
          1121                           FRZ      KEYW   FREEZE                                                  COMCIDP  1370
          1123                           JP       KEYW   (JUMP ADDR)                                             COMCIDP  1371
          1125                           OPT      KEYW   (OPTION P1,...,PN)                                      COMCIDP  1372
          1127                           OUT      KEYW   (OUTPUT I,B,IE,BE)                                      COMCIDP  1373
          1131                           REG      KEYW   (REGS R1,...,R.N)                                       COMCIDP  1374
          1133                           REL      KEYW   REL                                                     COMCIDP  1375
          1135                           SET      KEYW   (SET NAME,VALUE)                                        COMCIDP  1376
          1137                           SNP      KEYW   (SNAP FWA,LWA,LEN)                                      COMCIDP  1377
          1141                           STO      KEYW   (STORE ADDR,C1,C2,C3,C4)                                COMCIDP  1378
          1143                           STA      KEYW   STATUS                                                  COMCIDP  1379
          1145                           TIM      KEYW   TIME                                                    COMCIDP  1380
          1147                           UBK      KEYW   (UNBREAK BRAD1,...,BRAD.N)                              COMCIDP  1381
          1151                           UST      KEYW   (UNSET NAME1,...,NAME.N)                                COMCIDP  1382
          1153  00002314 +               UBK      KEYW   (UB BRAD1,...,BRAD.N)                                   COMCIDP  1383
          1155  00002320 +               UST      KEYW   (US NAME1,...,NAME.N)                                   COMCIDP  1384
          1157                           WHR      KEYW   (WHERE ADDR1,...,ADDR.N)                                COMCIDP  1385
          1161                           XEQ      KEYW   XEQ                                                     COMCIDP  1386
          1163                           XFR      KEYW   (XFER NR)                                               COMCIDP  1387
                                                                                                                 COMCIDP  1388
                                        *         *BREAK* KEYWORDS.                                              COMCIDP  1389
                                        *                                                                        COMCIDP  1390
                                        *         NOTE THAT THE *BREAK* TYPE CODE (BTC) IS PLACED IN THE *XAT*   COMCIDP  1391
                                        *         FIELD IN WORD 1 OF EACH *BREAK* KEYWORD.                       COMCIDP  1392
                                        *                                                                        COMCIDP  1393
                                        *         *BTC* VALUES HAVE THE FOLLOWING SIGNIFICANCE --                COMCIDP  1394
                                        *                                                                        COMCIDP  1395
                                        *                BTC = 0  IS A BREAK WITH ONLY ONE ADDRESS EXPRESSION--  COMCIDP  1396
                                        *                            BREAK ADDR                                  COMCIDP  1397
                                        *                BTC .LT. BTC.EQ  ARE BREAKS WITH 2 ADDR EXPRESSIONS--   COMCIDP  1398
                                        *                            BRPL ADDR,ADDR1                             COMCIDP  1399
                                        *                BTC .GE. BTC.EQ  ARE BREAKS WITH 3 ADDR EXPRESSIONS--   COMCIDP  1400
                                        *                            BREQ ADDR,ADDR1,ADDR2                       COMCIDP  1401
                                        *                                                                        COMCIDP  1402
                                        *           THIS INFORMATION IS USED THROUGHOUT BREAK PROCESSING.        COMCIDP  1403
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    96
        IDP 1.1/DATA STRUCTURES.                                      FW.KEY              IDP 
  
                                                                                                                 COMCIDP  1404
          1165                           BRK      KEYW   (BREAK BRAD,LL,UL,INC),0                                COMCIDP  1405
          1167  01001725 +               BRK      KEYW   (BRPL BRAD,A1,LL,UL,INC),BTC.PL                         COMCIDP  1406
          1171  01001725 +               BRK      KEYW   (BRMI BRAD,A1,LL,UL,INC),BTC.MI                         COMCIDP  1407
          1173  01001725 +               BRK      KEYW   (BRZR BRAD,A1,LL,UL,INC),BTC.ZR                         COMCIDP  1408
          1175  01001725 +               BRK      KEYW   (BRNZ BRAD,A1,LL,UL,INC),BTC.NZ                         COMCIDP  1409
          1177  01001725 +               BRK      KEYW   (BREQ BRAD,A1,A2,LL,UL,INC),BTC.EQ                      COMCIDP  1410
          1201  01001725 +               BRK      KEYW   (BRNE BRAD,A1,A2,LL,UL,INC),BTC.NE                      COMCIDP  1411
          1203  01001725 +               BRK      KEYW   (BRLT BRAD,A1,A2,LL,UL,INC),BTC.LT                      COMCIDP  1412
          1205  01001725 +               BRK      KEYW   (BRGE BRAD,A1,A2,LL,UL,INC),BTC.GE                      COMCIDP  1413
          1207  01001725 +               BRK      KEYW   (BRLE BRAD,A1,A2,LL,UL,INC),BTC.LE                      COMCIDP  1414
          1211  01001725 +               BRK      KEYW   (BRGT BRAD,A1,A2,LL,UL,INC),BTC.GT                      COMCIDP  1415
                                                                                                                 COMCIDP  1416
                                        *         *STEP* KEYWORDS.                                               COMCIDP  1417
                                        *                                                                        COMCIDP  1418
                                        *         NOTE THAT THE *STEP* TYPE CODE (XTC) IS PLACED IN THE *XAT*    COMCIDP  1419
                                        *         FIELD OF EACH *STEP* KEYWORD.                                  COMCIDP  1420
                                        *                                                                        COMCIDP  1421
                                        *         *STEP* TYPE CODES (XTC) HAVE THE FOLLOWING SIGNIFICANCE --     COMCIDP  1422
                                        *                                                                        COMCIDP  1423
                                        *                XTC = 0  IS A STEP WITH NO ADDR EXPRESSION--            COMCIDP  1424
                                        *                            STEP L,RJ                                   COMCIDP  1425
                                        *                XTC .LT. XTC.EQ ARE STEPS WITH 1 ADDR EXPRESSION--      COMCIDP  1426
                                        *                            STMI ADDR,L,RJ                              COMCIDP  1427
                                        *                XTC .GE. XTC.EQ AND                                     COMCIDP  1428
                                        *                    .LT. XTC.RNG ARE STEPS WITH 2 ADDR EXPRESSIONS--    COMCIDP  1429
                                        *                            STGT ADDR1,ADDR2,L,RJ                       COMCIDP  1430
                                        *                XTC .GE. XTC.RNG ARE STEPS THAT ARE SPECIAL CASED--     COMCIDP  1431
                                        *                            STAR ADDR,L,RJ                              COMCIDP  1432
                                        *                                                                        COMCIDP  1433
                                        *           (ALSO SEE *BREAK* KEYWORDS)                                  COMCIDP  1434
                                                                                                                 COMCIDP  1435
          1213                           STP      KEYW   (STEP L,RJ),0                                           COMCIDP  1436
          1215  00002223 +               STP      KEYW   (STPL A1,L,RJ),XTC.PL                                   COMCIDP  1437
          1217  00002223 +               STP      KEYW   (STMI A1,L,RJ),XTC.MI                                   COMCIDP  1438
          1221  00002223 +               STP      KEYW   (STZR A1,L,RJ),XTC.ZR                                   COMCIDP  1439
          1223  00002223 +               STP      KEYW   (STNZ A1,L,RJ),XTC.NZ                                   COMCIDP  1440
          1225  00002223 +               STP      KEYW   (STEQ A1,A2,L,RJ),XTC.EQ                                COMCIDP  1441
          1227  00002223 +               STP      KEYW   (STNE A1,A2,L,RJ),XTC.NE                                COMCIDP  1442
          1231  00002223 +               STP      KEYW   (STLT A1,A2,L,RJ),XTC.LT                                COMCIDP  1443
          1233  00002223 +               STP      KEYW   (STGE A1,A2,L,RJ),XTC.GE                                COMCIDP  1444
          1235  00002223 +               STP      KEYW   (STLE A1,A2,L,RJ),XTC.LE                                COMCIDP  1445
          1237  00002223 +               STP      KEYW   (STGT A1,A2,L,RJ),XTC.GT                                COMCIDP  1446
          1241  00002223 +               STP      KEYW   (STRANGE A1,A2,L,RJ),XTC.RNG                            COMCIDP  1447
          1243                           XNR      KEYW   (STNR NR,L,RJ),XTC.NR                                   COMCIDP  1448
          1245  00002223 +               STP      KEYW   (STAR A1,A2,L,RJ),XTC.AR                                COMCIDP  1449
          1247  00000000000000000000              DATA   0           END OF TABLE MARK                           COMCIDP  1450
                                                                                                                 COMCIDP  1451
                                                                                                                 COMCIDP  1452
          1250  00000000000000000000     FW=UKT   DATA   0           ** LINK WORD **                             COMCIDP  1453
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    97
        IDP 1.1/DATA STRUCTURES.                                      IDPKSTO             IDP 
  
                                        **        *STEP* OPTIONS KEYWORD TABLE.                                  COMCIDP  1455
                                        *                                                                        COMCIDP  1456
                                        *           THERE IS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP OPTIONS  COMCIDP  1457
                                        *           KEYWORD TABLE AND THE STEP OPTIONS FLAGS (SEE *IDPXOP*)      COMCIDP  1458
                                                                                                                 COMCIDP  1459
          1251                           IDPKSTO  BSS    0                                                       COMCIDP  1460
          1251  14000000000000000001              SUBKEY L,1                                                     COMCIDP  1461
          1252  22120000000000000001              SUBKEY RJ,1                                                    COMCIDP  1462
          1253  00000000000000000000              DATA   0           END OF TABLE MARK                           COMCIDP  1463
  
  
  
  
                                        **        *OUTPUT* OPTIONS KEYWORD TABLE.                                COMCIDP  1465
                                                                                                                 COMCIDP  1466
          1254                           IDPKOUT  BSS    0                                                       COMCIDP  1467
          1254  02000000000000002112 +            SUBKEY B,ST=OUT3                                               COMCIDP  1468
          1255  02050310170000002114 +            SUBKEY BECHO,ST=OUT4                                           COMCIDP  1469
          1256  11000000000000002110 +            SUBKEY I,ST=OUT2                                               COMCIDP  1470
          1257  11050310170000002116 +            SUBKEY IECHO,ST=OUT5                                           COMCIDP  1471
          1260  00000000000000000000              DATA   0           END OF TABLE MARK                           COMCIDP  1472
  
  
  
  
                                        **        FW.KOPT - *OPTION* SUBKEYWORD TABLE.                           COMCIDP  1474
                                        *                                                                        COMCIDP  1475
                                        *                                                                        COMCIDP  1476
                                                                                                                 COMCIDP  1477
                                                                                                                 COMCIDP  1478
          1261                           FW.KOPT  BSS    0           ** FWA **                                   COMCIDP  1479
          1261  15051500000000002077 +            SUBKEY MEM,ST=OPT2                                             COMCIDP  1480
          1262  30122200000000002101 +            SUBKEY XJR,ST=OPT3                                             COMCIDP  1481
          1263  00000000000000000000              DATA   0           ** EOT **                                   COMCIDP  1482
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    98
        IDP 1.1/DATA STRUCTURES.                                      ERROR               IDP 
  
                                        ***       IDP ERROR MESSAGES.                                            COMCIDP  1484
                                        *                                                                        COMCIDP  1485
                                        *                                                                        COMCIDP  1486
                                                                                                                 COMCIDP  1487
                                                                                                                 COMCIDP  1488
          1264                           FW.ERR   BSS    0           ** FWA **                                   COMCIDP  1489
          1264                           E.ADDR   ERROR  (ADDR OUT-OF-RANGE)                                     COMCIDP  1490
          1265                           E.SC     ERROR  (STMT KEYWORD PRECEDED BY UNKNOWN CHARACTER)            COMCIDP  1491
          1266                           E.KEY    ERROR  (UNKNOWN KEYWORD)                                       COMCIDP  1492
          1267                           E.BRAD   ERROR  (*BREAK* ADDR IS OUT-OF-RANGE)                          COMCIDP  1493
          1270                           E.BRA1   ERROR  (*ADDR1* IS OUT-OF-RANGE)                               COMCIDP  1494
          1271                           E.BRA2   ERROR  (*ADDR2* IS OUT-OF-RANGE)                               COMCIDP  1495
          1272                           E.FLL    ERROR  (FWA, LWA, OR LEN OUT-OF-RANGE)                         COMCIDP  1496
          1273                           E.LFN    ERROR  (YOU MUST SPECIFY AN LFN)                               COMCIDP  1497
          1274                           E.JP     ERROR  (*JUMP* ADDR OUT-OF-RANGE)                              COMCIDP  1498
          1275                           E.REG    ERROR  (YOU SPECIFIED A NON-REGISTER NAME)                     COMCIDP  1499
          1276                           E.SET    ERROR  (YOU MUST SPECIFY A *SET* NAME)                         COMCIDP  1500
          1277                           E.STO    ERROR  (*STORE* ADDR IS MISSING OR OUT-OF-RANGE)               COMCIDP  1501
          1300                           E.POP    ERROR  (PARSER ENCOUNTERED ILLEGAL TOKEN/OPERATOR/OPERAND)     COMCIDP  1502
          1301                           E.VAR    ERROR  (YOU SPECIFIED AN UNKNOWN/UNDEFINED SYMBOL NAME)        COMCIDP  1503
          1302                           E.CON    ERROR  (ERROR DURING CONSTANT CONVERSION)                      COMCIDP  1504
          1303                           E.IND    ERROR  (INDIRECT ADDR OUT-OF-RANGE)                            COMCIDP  1505
          1304                           E.OPT    ERROR  (YOU JUST SPECIFIED AN UNKNOWN OPTION)                  COMCIDP  1506
          1305                           E.PAST   ERROR  (PARSER COULD NOT BALANCE OPERATORS AND OPERANDS)       COMCIDP  1507
          1306                           E.STB    ERROR  (STMT TOO BIG FOR PARSER.  PLEASE SIMPLIFY)             COMCIDP  1508
          1307                           E.SYTL   ERROR  (SYMBOL NAME TOO LONG)                                  COMCIDP  1509
          1310                           E.UNOP   ERROR  (YOU JUST TRIED TO USE A BINARY OPERATOR AS A UNARY)    COMCIDP  1510
                                                                                                                 COMCIDP  1511
                                  25     L.ERR    =      *-FW.ERR                                                COMCIDP  1512
  
  
  
  
                                        ***       IDP *SYSTEM* ERRORS.                                           COMCIDP  1514
                                        *                                                                        COMCIDP  1515
                                        *                                                                        COMCIDP  1516
                                        *         THE FOLLOWING ARE THE UNSUPPRESSABLE *SYSTEM* TYPE             COMCIDP  1517
                                        *         ERRORS THAT IDP OUTPUTS WHEN IT DETECTS AN INTERNAL            COMCIDP  1518
                                        *         ERROR.                                                         COMCIDP  1519
                                                                                                                 COMCIDP  1520
                                                                                                                 COMCIDP  1521
          1311                           FW.SER   BSS    0           ** FWA **                                   COMCIDP  1522
          1311                           SE.KEY   SYSERR (ONE OF IDP'S KEYWORD TABLES IS OUT-OF-RANGE)           COMCIDP  1523
          1312                           SE.CON   SYSERR (PPU PGM *CON* DETECTED AN ERROR W/ CONNECT OR DISCONT) COMCIDP  1524
          1313                           SE.FLL   SYSERR (SOMEONE SCREWED UP YOUR FWA, LWA, LEN.  WILD STORE?)   COMCIDP  1525
          1314                           SE.TOV   SYSERR (TABLE OVERFLOW.  GIVE UP AN ENTRY, TRY AGAIN)          COMCIDP  1526
          1315                           SE.PAD   SYSERR (ADDR OF PROCESSOR FOR THIS KEYWORD IS OUT-OF-RANGE)    COMCIDP  1527
          1316                           SE.PTR   SYSERR (NO POINTER DEFINED FOR THIS KEYWORD)                   COMCIDP  1528
          1317                           SE.BPTR  SYSERR (BAD POINTER REF.  CHECK ENTRY REGS TO *PTR*)           COMCIDP  1529
          1320                           SE.TOK   SYSERR (ERROR DURING TOKEN GENERATION.  ENTIRE LINE TRASHED)   COMCIDP  1530
          1321                           SE.UFT   SYSERR (*UFT=* ENTRY IS OUT-OF-RANGE)                          COMCIDP  1531
          1322                           SE.UNPL  SYSERR (*FRA/FAA* ERROR WITH UNARY PLUS)                       COMCIDP  1532
          1323                           SE.BRK   SYSERR (NO BREAK TABLE ENTRY FOR THIS BREAK.  YOUR MOVE...)    COMCIDP  1533
          1324                           SE.NPP   SYSERR (NO PIP PROCESSOR)                                      COMCIDP  1534
          1325                           SE.RPN   SYSERR (RPN TABLE OVERFLOW)                                    COMCIDP  1535
          1326                           SE.CONS  SYSERR (ERROR DURING CONSTANT CONVERSION)                      COMCIDP  1536
                                  16     L.SER    =      *-FW.SER                                                COMCIDP  1537
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE    99
        IDP 1.1/DATA STRUCTURES.                                      IDPBA               IDP 
  
                                        **        IDPBA/IDPBC - BREAK ADDRESS AND BREAK CONTENTS PARALLEL TBLS.  COMCIDP  1539
                                                                                                                 COMCIDP  1540
                                  12     L.BA     =      10          LENGTH OF *IDPBA*                           COMCIDP  1541
          1327                           IDPBA    BSS    0           FWA OF *BREAK* ADDR TABLE                   COMCIDP  1542
                                  12     .BA      DUP    L.BA,1                                                  COMCIDP  1543
                                                  CON    -1                                                      COMCIDP  1544
          1341  00000000000000000000              DATA   0           END OF TABLE TERMINATOR                     COMCIDP  1545
          1342                    24     IDPBC    BSSZ   2*L.BA      *BREAK* ADDR CONTENTS TABLE                 COMCIDP  1546
  
  
  
  
                                        **        IDP USER *TEMP* TABLE.                                         COMCIDP  1548
                                                                                                                 COMCIDP  1549
                                  12     L.TMP    =      10D                                                     COMCIDP  1550
          1366                    12     IDPTMP   BSSZ   L.TMP                                                   COMCIDP  1551
  
  
  
  
                                        **        IDP *SET* TABLE DEFINITION.                                    COMCIDP  1553
                                                                                                                 COMCIDP  1554
                                  30     L.SET    =      30B         LENGTH OF IDP *SET* TABLE                   COMCIDP  1555
          1400                           IDPSET   BSS    0                                                       COMCIDP  1556
                                  30              DUP    L.SET,1                                                 COMCIDP  1557
                                                  CON    -1                                                      COMCIDP  1558
          1430  00000000000000000000              DATA   0                                                       COMCIDP  1559
  
  
  
  
                                        **        IDPXFT - MOST RECENT TRANSFER ADDRESSES TABLE.                 COMCIDP  1561
                                        *                                                                        COMCIDP  1562
                                        *           TABLE FORMAT --                                              COMCIDP  1563
                                        *                                                                        COMCIDP  1564
                                        *             XFT+0    VFD  30/-1  AVAILABLE ENTRY(ONLY IF XFT NOT FULL) COMCIDP  1565
                                        *                       .                                                COMCIDP  1566
                                        *                       .                                                COMCIDP  1567
                                        *                +N    VFD  30/POS COUNTER,30/P REG OF EARLIEST XFER     COMCIDP  1568
                                        *                +N+1  VFD  30/POS COUNTER,30/P REG OF LATER XFER        COMCIDP  1569
                                        *                       .                                                COMCIDP  1570
                                        *               +L.XFT VFD  60/0   END OF TABLE MARK                     COMCIDP  1571
                                                                                                                 COMCIDP  1572
                                   4     L.XFT    =      4                                                       COMCIDP  1573
          1431                           IDPXFT   BSS    0                                                       COMCIDP  1574
                                   4              DUP    L.XFT,1                                                 COMCIDP  1575
                                                  CON    -1                                                      COMCIDP  1576
          1435  00000000000000000000              DATA   0                                                       COMCIDP  1577
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   100
        IDP 1.1/DATA STRUCTURES.                                      IFR                 IDP 
  
                                        ***       IFR - IDP FREEZE RESTART.                                      COMCIDP  1579
                                        *                                                                        COMCIDP  1580
                                        *                                                                        COMCIDP  1581
                                                                                                                 COMCIDP  1582
          1436                           FW.IFR   BSS    0           MARK FWA OF *FREEZE* RESTART AREA           COMCIDP  1583
                                                                                                                 COMCIDP  1584
                                                  QUAL   IFR                                                     COMCIDP  1585
  
  
  
  
                                        **        IFR - IDP FREEZE RECOVERY/RESTART.                             COMCIDP  1587
                                        *                                                                        COMCIDP  1588
                                        *                                                                        COMCIDP  1589
                                        *         THIS ROUTINE IS USED TO RESTART (I.E. SWAPIN) AN               COMCIDP  1590
                                        *         IDP HOST PROGRAM THAT WAS FROZEN VIA *FREEZE*                  COMCIDP  1591
                                        *         COMMAND.  THE PROGRAM TO RESTART WAS WRITTEN BY *FRZ*          COMCIDP  1592
                                        *         TO LFN *F.FRZ* IN A SPECIAL FORMAT --                          COMCIDP  1593
                                        *                                                                        COMCIDP  1594
                                        *           RECORD 1  CONTAINS *IFR* (THE CODE YOU ARE LOOKING AT)       COMCIDP  1595
                                        *                     IN THE FORMAT OF AN ABSOLUTE BINARY.               COMCIDP  1596
                                        *                                                                        COMCIDP  1597
                                        *           RECORD 2  CONTAINS THE CORE IMAGE OF THE FROZEN PROGRAM.     COMCIDP  1598
                                        *                                                                        COMCIDP  1599
                                        *         BECAUSE RECORD 1 OF *F.FRZ* LOOKS LIKE AN ABS BINARY, THE      COMCIDP  1600
                                        *         PROGRAMMER NEED ONLY ENTER THE NAME OF THE FREEZE FILE AT      COMCIDP  1601
                                        *         HIS OR HER TERMINAL IN ORDER TO RESTART THE HOST.              COMCIDP  1602
                                        *                                                                        COMCIDP  1603
                                        *         AFTER *IFR* HAS BEEN LOADED, IT WILL MAKE AN OPERATING SYSTEM  COMCIDP  1604
                                        *         REQUEST FOR THE AMOUNT OF CM THAT THE HOST HAD AT THE TIME IT  COMCIDP  1605
                                        *         WAS FROZEN PLUS ENOUGH FOR *IFR* TO PERFORM THE FOLLOWING      COMCIDP  1606
                                        *         TASKS.  AFTER *IFR* HAS CREATED A HOLE FOR THE HOST            COMCIDP  1607
                                        *         BY *MEM*ING, IT WILL *PLUG* SOME CODE UP ABOVE THE HOLE,       COMCIDP  1608
                                        *         WHICH WILL READ IN THE 2ND RECORD OF *F.FRZ*.                  COMCIDP  1609
                                        *                                                                        COMCIDP  1610
                                        *         WE ALL HAVE CHET RICHARDS OF SVLOPS TO THANK FOR THIS          COMCIDP  1611
                                        *         DIABOLICALLY CLEVER IDEA.  HI HO SILVER, AND AWAY...           COMCIDP  1612
                                        *                                                                        COMCIDP  1613
                                        *         IMPORTANT NOTE--  IT IS IMPORTANT TO REALIZE THAT              COMCIDP  1614
                                        *         THIS CODE, AS IT EXISTS IN /COMCIDP/, IS A DATA SECTION,       COMCIDP  1615
                                        *         I.E. IT CANNOT BE EXECUTED.  IT IS HERE ONLY SO THAT *FRZ*     COMCIDP  1616
                                        *         CAN WRITE IT OUT AS THE 1ST RECORD ON *F.FRZ*.                 COMCIDP  1617
                                        *                                                                        COMCIDP  1618
                                        *         ENTRY  NONE                                                    COMCIDP  1619
                                        *                                                                        COMCIDP  1620
                                        *         EXIT   TO *RHH* IN HIGH CORE TO READ IN FROZEN HOST            COMCIDP  1621
                                        *                                                                        COMCIDP  1622
                                        *         USES   IRRELEVANT                                              COMCIDP  1623
                                        *                                                                        COMCIDP  1624
                                        *         CALLS  MEMORY                                                  COMCIDP  1625
                                                                                                                 COMCIDP  1626
                                                                                                                 COMCIDP  1627
      L    100                                    LOC    RA.ORG                                                  COMCIDP  1628
                                                                                                                 COMCIDP  1629
      L    100  50000000000100000101              VFD    12/5000B,12/0,18/RA.ORG,18/IFR                          COMCIDP  1630
      L                                                                                                          COMCIDP  1631
      L    101                           IFR      BSS    0           ** LOADER ENTRY POINT **                    COMCIDP  1632
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   101
        IDP 1.1/DATA STRUCTURES.                                      IFR                 IFR 
  
      L    101  6110000001                        SB1    1                                                       COMCIDP  1633
                                                                                                                 COMCIDP  1634
                                        *         REQUEST ENOUGH MEMORY FOR THE FROZEN HOST PLUS *RHH*.          COMCIDP  1635
                                        *         ALSO, IF *CMM* WAS ACTIVE IN FROZEN HOST, INDICATE SO TO       COMCIDP  1636
                                        *         OPERATING SYSTEM.                                              COMCIDP  1637
                                                                                                                 COMCIDP  1638
                          5120000146              SA2    MEM#HOST    (X2) = 30/AFLS OF FROZEN HOST,30/OTHER      COMCIDP  1639
      L    102  7160000031                        SX6    L.RHH+L.IFRSZ+10B                                       COMCIDP  1640
                          20636                   LX6    30                                                      COMCIDP  1641
                               36626              IX6    X2+X6       (X6) = 30/ENOUGH CORE FOR FROZEN HOST       COMCIDP  1642
                                        *                                    AND *RHH*, 30/OTHER                 COMCIDP  1643
      L    103  5160000145                        SA6    MEM#RHH                                                 COMCIDP  1644
                                                                                                                 COMCIDP  1645
                                                                                                                 COMCIDP  1646
                          5110000130              SA1    IFRA        (X1) = *MEM* REQUEST WORD                   COMCIDP  1647
      L    104  10611                             BX6    X1                                                      COMCIDP  1648
                     0100000135                   RJ     SYS         MAKE SYSTEM REQUEST                         COMCIDP  1649
                                                                                                                 COMCIDP  1650
                                        *         SET UP *F.FRZ* FET SO THAT A *READSKP* WILL READ               COMCIDP  1651
                                        *         THE FROZEN HOST FROM *F.FRZ/RECORD 2* INTO                     COMCIDP  1652
                                        *         THE HOLE CREATED BY *MEM*.                                     COMCIDP  1653
                                                                                                                 COMCIDP  1654
      L    105  5110000064                        SA1    RA.PGN                                                  COMCIDP  1655
                          21236                   AX2    30                                                      COMCIDP  1656
                               73720              SX7    X2          (X7) = OUT = AFLS OF FROZEN HOST            COMCIDP  1657
      L    106  43352                             MX3    60-18                                                   COMCIDP  1658
                     5170000155                   SA7    F.FRZ+3     OUT = AFLS OF FROZEN HOST                   COMCIDP  1659
      L    107  7140000122                        SX4    122B        (X4) = *OPEN/NO REWIND* CIO CODE            COMCIDP  1660
                          11631                   BX6    X3*X1                                                   COMCIDP  1661
                               73771              SX7    X7+B1       (X7) = LIMIT = AFLS+1 OF FROZEN HOST        COMCIDP  1662
      L    110  36664                             IX6    X6+X4                                                   COMCIDP  1663
                     54771                        SA7    A7+B1       LIMIT = AFLS+1 OF FROZEN HOST               COMCIDP  1664
                          5160000152              SA6    F.FRZ                                                   COMCIDP  1665
      L    111  76711                             =X7    RA.MTR+1                                                COMCIDP  1666
                     54761                        SA7    A6+B1       FIRST = RA.MTR+1                            COMCIDP  1667
                          54771                   SA7    A7+B1       IN = FIRST =RA.MTR+1                        COMCIDP  1668
                                                                                                                 COMCIDP  1669
                                        *         MOVE *RHH* AND *F.FRZ* FET TO HIGH CORE                        COMCIDP  1670
                                        *         (ABOVE HOLE CREATED FOR FROZEN HOST).                          COMCIDP  1671
                                                                                                                 COMCIDP  1672
                               66400              SB4    B0                                                      COMCIDP  1673
      L    112  5110000147                        SA1    FW.RHH      (A1,X1) = A+C OF 1ST WORD TO MOVE           COMCIDP  1674
                          6130000011              SB3    L.RHH       (B2) = NR OF WORDS TO MOVE                  COMCIDP  1675
      L    113  6222000010                        SB2    X2+L.IFRSZ  (B2) = ADDR TO MOVE TO                      COMCIDP  1676
                                                                                                                 COMCIDP  1677
      L    114  10611                    IFR2     BX6    X1                                                      COMCIDP  1678
                     56624                        SA6    B2+B4                                                   COMCIDP  1679
                          66441                   SB4    B4+B1                                                   COMCIDP  1680
                               54111              SA1    A1+B1                                                   COMCIDP  1681
      L    115  0743000114                        LT     B4,B3,IFR2  IF NOT DONE                                 COMCIDP  1682
                                                                                                                 COMCIDP  1683
                                        *         OPEN *F.FRZ*.                                                  COMCIDP  1684
                                                                                                                 COMCIDP  1685
                          5110000131              SA1    IFRB        (X1) = *CIO* REQUEST WORD                   COMCIDP  1686
      L    116  7122000003                        SX2    B2+F.FRZ-FW.RHH   (X2) = FWA OF *F.FRZ* FET             COMCIDP  1687
                          12612                   BX6    X1+X2                                                   COMCIDP  1688
                               54610              SA6    A1          SAVE *CIO* REQUEST W/ ADDR OF MOVED *F.FRZ* COMCIDP  1689
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   102
        IDP 1.1/DATA STRUCTURES.                                      IFR                 IFR 
  
      L    117  0100000135                        RJ     SYS         MAKE SYSTEM REQUEST TO OPEN *F.FRZ*         COMCIDP  1690
                                                                                                                 COMCIDP  1691
                                        *         SET UP SYSTEM REQUEST TO PERFORM THE *READSKP*                 COMCIDP  1692
                                        *         WHICH WILL READ THE FROZEN HOST INTO THE HOLE CREATED          COMCIDP  1693
                                        *         BY *MEM*.                                                      COMCIDP  1694
                                                                                                                 COMCIDP  1695
      L    120  5110000001               IFR3     SA1    RA.MTR                                                  COMCIDP  1696
                          0311000120              NZ     X1,IFR3     IF (RA.MTR) NOT CLEAR, WAIT...              COMCIDP  1697
                                                                                                                 COMCIDP  1698
      L    121  5110000134                        SA1    SYS1                                                    COMCIDP  1699
                          5122000003              SA2    B2+F.FRZ-FW.RHH   (A2,X2) = A+C OF *F.FRZ* FET WORD 1   COMCIDP  1700
      L    122  5130000131                        SA3    IFRB        (X3) = *CIO* REQUEST WORD                   COMCIDP  1701
                          43452                   MX4    60-18                                                   COMCIDP  1702
                               10711              BX7    X1                                                      COMCIDP  1703
      L    123  20103                             LX1    59-56       (X1) = .MI. IF *EQ* INSTRUCTION             COMCIDP  1704
                                        *                                 = .PL. IF *XJ* INSTRUCTION             COMCIDP  1705
                     11642                        BX6    X4*X2       CLEAR BITS 0 THRU 17 OF *F.FRZ* WORD 1      COMCIDP  1706
                          7140000022              SX4    22B         (X4) = *READSKP* CIO CODE                   COMCIDP  1707
      L    124  36664                             IX6    X6+X4       MERGE *READSKP* CIO CODE                    COMCIDP  1708
                     54620                        SA6    A2                                                      COMCIDP  1709
                          10633                   BX6    X3          (X6) = *CIO* REQUEST WORD                   COMCIDP  1710
                                                                                                                 COMCIDP  1711
                                        *         RELOCATE *WAIT (RA.MTR) LOOP* IF NOT USING                     COMCIDP  1712
                                        *         *XJ* INSTRUCTION.                                              COMCIDP  1713
                                                                                                                 COMCIDP  1714
      L    125  0321000127                        PL     X1,IFR4     IF USING *XJ*                               COMCIDP  1715
                          43252                   MX2    -18                                                     COMCIDP  1716
                               76321              SX3    B2+B1       (X3) = ADDR OF *RHH* INSTRUCTIONS WHICH     COMCIDP  1717
                                        *                                   ACTUALLY MAKES THE *CIO* REQUEST     COMCIDP  1718
                                        *                                   TO READ *F.FRZ*                      COMCIDP  1719
      L    126  11727                             BX7    X2*X7       CLEAR OLD ADDR                              COMCIDP  1720
                     36773                        IX7    X7+X3       MERGE NEW ADDR                              COMCIDP  1721
                          56721                   SA7    B2+B1                                                   COMCIDP  1722
                                                                                                                 COMCIDP  1723
                                        *         EVERYTHING IS READY TO GO...                                   COMCIDP  1724
                                        *         TRANSFER CONTROL TO *RHH* UP IN HIGH CORE.                     COMCIDP  1725
                                                                                                                 COMCIDP  1726
      L    127  0222000000               IFR4     JP     B2+                                                     COMCIDP  1727
                                                                                                                 COMCIDP  1728
                                                                                                                 COMCIDP  1729
                                        *         *MEM* REQUEST WORD.                                            COMCIDP  1730
                                                                                                                 COMCIDP  1731
      L    130  15051520000000000145     IFRA     VFD    18/3LMEM,3/2,21/0,18/MEM#RHH                            COMCIDP  1732
      L                                                                                                          COMCIDP  1733
                                        *         *CIO* REQUEST WORD.                                            COMCIDP  1734
                                                                                                                 COMCIDP  1735
      L    131  03111720000000000000     IFRB     VFD    18/3LCIO,3/2,21/0,18/0                                  COMCIDP  1736
  
  
  
  
                                        ***       SYS - PROCESS SYSTEM REQUEST.                                  COMCIDP  1738
                                        *                                                                        COMCIDP  1739
                                        *         ENTRY  (X6) = SYSTEM REQUEST.                                  COMCIDP  1740
                                        *                                                                        COMCIDP  1741
                                        *         EXIT   REQUEST PROCESSED.                                      COMCIDP  1742
                                        *                                                                        COMCIDP  1743
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   103
        IDP 1.1/DATA STRUCTURES.                                      SYS                 IFR 
  
                                        *         USES   X - 1.                                                  COMCIDP  1744
                                        *                B - NONE.                                               COMCIDP  1745
                                        *                A - 1, 6.                                               COMCIDP  1746
                                        *                                                                        COMCIDP  1747
                                        *         CALLS  NONE.                                                   COMCIDP  1748
                                                                                                                 COMCIDP  1749
                                                                                                                 COMCIDP  1750
                                        *         INSTRUCTION WORDS FOR MONITOR CALL.                            COMCIDP  1751
                                                                                                                 COMCIDP  1752
      L    132                           SYSA     BSS    0                                                       COMCIDP  1753
      L    134                                    LOC    *+2                                                     COMCIDP  1754
      L    134  54110                    +        SA1    A1          WAIT (RA+1) CLEAR IF AUTO RECALL            COMCIDP  1755
                     20123                        LX1    59-40                                                   COMCIDP  1756
                          0331000134              NG     X1,*                                                    COMCIDP  1757
      L    133                                    LOC    SYSA+1                                                  COMCIDP  1758
                                                                                                                 COMCIDP  1759
      L    133  0130000000                        XJ                                                             COMCIDP  1760
                                                                                                                 COMCIDP  1761
      L    134  0400000140               SYS1     EQ     SYS2        FIRST ENTRY                                 COMCIDP  1762
                                                                                                                 COMCIDP  1763
      L    135  0000000000               SYS      PS                 ENTRY/EXIT                                  COMCIDP  1764
      L    136  5110000001               +        SA1    1           WAIT (RA+1) CLEAR                           COMCIDP  1765
                          0311000136              NZ     X1,*                                                    COMCIDP  1766
      L    137  54610                             SA6    A1          ENTER REQUEST                               COMCIDP  1767
                     0400000134                   EQ     SYS1                                                    COMCIDP  1768
                                                                                                                 COMCIDP  1769
                                        *         INITIAL ENTRY TO SET TYPE OF CALL.                             COMCIDP  1770
                                                                                                                 COMCIDP  1771
      L    140  5110000132               SYS2     SA1    SYSA        NO MEJ/CEJ OPTION                           COMCIDP  1772
                          10611                   BX6    X1                                                      COMCIDP  1773
                                                                                                                 COMCIDP  1774
      L    141  5110000066                        SA1    RA.CEJ                                                  COMCIDP  1775
                          0321000143              PL     X1,SYS3     IF NO MEJ/CEJ PRESENT                       COMCIDP  1776
      L    142  5110000133                        SA1    SYSA+1                                                  COMCIDP  1777
                          10611                   BX6    X1                                                      COMCIDP  1778
      L    143                           SYS3     BSS    0                                                       COMCIDP  1779
                                                                                                                 COMCIDP  1780
      L    143  5160000134                        SA6    SYS1        SET MONITOR CALL                            COMCIDP  1781
                          5110000001              SA1    1           RESET (A1)                                  COMCIDP  1782
      L    144  10611                             BX6    X1                                                      COMCIDP  1783
                     0100000133                   RJ     SYS1-1      CLEAR STACK                                 COMCIDP  1784
  
  
  
  
      L    145                     1     MEM#RHH  BSSZ   1           30/AFLS OF HOST PLUS *RHH*,30/OTHER         COMCIDP  1786
                                                                                                                 COMCIDP  1787
      L    146                     1     MEM#HOST BSSZ   1           30/AFLS OF HOST,30/OTHER                    COMCIDP  1788
                                                                                                                 COMCIDP  1789
                                  10     L.IFRSZ  =      10B         LEN OF SAFETY ZONE BETWEEN HOST AND *RHH*   COMCIDP  1790
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   104
        IDP 1.1/DATA STRUCTURES.                                      RHH                 IFR 
  
                                        **        RHH - READ HOST INTO HOLE.                                     COMCIDP  1792
                                        *                                                                        COMCIDP  1793
                                        *                                                                        COMCIDP  1794
                                        *         THIS ROUTINE MAKES THE ACTUAL OPERATING SYSTEM REQUEST         COMCIDP  1795
                                        *         TO READ THE FROZEN HOST FROM *F.FRZ/RECORD 2*                  COMCIDP  1796
                                        *         INTO THE HOLE CREATED BY *IFR*.                                COMCIDP  1797
                                        *                                                                        COMCIDP  1798
                                        *         ENTRY  (X6) = *CIO* REQUEST WORD                               COMCIDP  1799
                                        *                                                                        COMCIDP  1800
                                        *         EXIT   TO *IDP=IFR* IN UNFROZEN HOST                           COMCIDP  1801
                                        *                                                                        COMCIDP  1802
                                        *         USES                                                           COMCIDP  1803
                                        *                                                                        COMCIDP  1804
                                        *         CALLS  NONE                                                    COMCIDP  1805
                                                                                                                 COMCIDP  1806
      L    147                           FW.RHH   BSS    0           MARK FWA OF*RHH*                            COMCIDP  1807
                                                                                                                 COMCIDP  1808
      L    147                           RHH      BSS    0           ** ENTRY **                                 COMCIDP  1809
      L    147  5160000001                        SA6    RA.MTR                                                  COMCIDP  1810
                                                                                                                 COMCIDP  1811
                                        *         THE FOLLOWING LOCATION WILL BE PLUGGED WITH                    COMCIDP  1812
                                        *         A *WAIT (RA.MTR)* LOOP BY *IFR* IF NO *XJ* INSTRUCTION         COMCIDP  1813
                                        *         AVAILABLE.                                                     COMCIDP  1814
                                                                                                                 COMCIDP  1815
      L    150  0130000000              +         XJ                                                             COMCIDP  1816
                                                                                                                 COMCIDP  1817
                                        *         THE INTERACTIVE HOST IS NOW BACK IN CORE... RE-ENTER *IDP*.    COMCIDP  1818
                                                                                                                 COMCIDP  1819
      L    151  0400001651 +            +         EQ     /"IDP"/IDP=IFR                                          COMCIDP  1820
  
  
  
  
                                        **        F.FRZ - FET FOR *FREEZE* FILE.                                 COMCIDP  1822
                                                                                                                 COMCIDP  1823
      L    152                           F.FRZ    BSS    0           ** FWA OF FET **                            COMCIDP  1824
                                 101     L.FRZ    =      101B        LENGTH OF *F.FRZ* BUFFER FOR RECORD 1 WRITE COMCIDP  1825
                                        *                            (I.E. SMALLEST POSSIBLE, 1 PRU)             COMCIDP  1826
      L    152  06223200000000000003     FRZ      FILEB  /"IDP"/FW.IFR,L.FRZ                                     COMCIDP  1827
                                                                                                                 COMCIDP  1828
                                                                                                                 COMCIDP  1829
                                  11     L.RHH    =      *-FW.RHH+1                                              COMCIDP  1830
                                                                                                                 COMCIDP  1831
          1515                                    LOC    *O                                                      COMCIDP  1832
                                                  QUAL   *                                                       COMCIDP  1833
                                                                                                                 COMCIDP  1834
                                  60     L.IFR    =      *-FW.IFR+1  LENGTH OF IDP FREEZE RESTART PROGRAM        COMCIDP  1835
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   105
        IDP 1.1/DATA STRUCTURES.                                      IFR                 IDP 
  
                                        **        REDEFINE SYMBOLS THAT *IDP* NEEDS TO REFERENCE INSIDE /IFR/.   COMCIDP  1837
                                                                                                                 COMCIDP  1838
                                1510 +   F.FRZ    =      FW.IFR+/IFR/F.FRZ-RA.ORG                                COMCIDP  1839
                                1503 +   MEM#RHH  =      FW.IFR+/IFR/MEM#RHH-RA.ORG                              COMCIDP  1840
                                1504 +   MEM#HOST =      FW.IFR+/IFR/MEM#HOST-RA.ORG                             COMCIDP  1841
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   106
        IDP 1.1/THE EXECUTIVES.                                       IDP                 IDP 
  
                                        **        IDP - INTERACTIVE DEBUGGING PACKAGE.                           COMCIDP  1844
                                        *                                                                        COMCIDP  1845
                                        *                                                                        COMCIDP  1846
                                        *                THIS IS THE INTERACTIVE DEBUGGING PACKAGE WHICH ALLOWS  COMCIDP  1847
                                        *         ITS USER THE JOYS AND SORROWS OF INTERACTIVE DEBUGGING.        COMCIDP  1848
                                        *                                                                        COMCIDP  1849
                                        *                INITIAL ENTRY IS VIA *BREAK* MACRO (COMAIDP), WHICH     COMCIDP  1850
                                        *         ASSEMBLES AN *RJ IDP=* AT THE DESIRED LOCATION TO BE BREAK-    COMCIDP  1851
                                        *         POINTED. SUBSEQUENT ENTRIES CAN BE VIA MORE ASSEMBLED *BREAK*S COMCIDP  1852
                                        *         OR BY PLACING AN *IDP* GENERATED BREAKPOINT, VIA *BREAK*       COMCIDP  1853
                                        *         COMMAND, AT THE DESIRED LOCATION TO BE BREAKPOINTED.           COMCIDP  1854
                                        *                                                                        COMCIDP  1855
                                        *         FOR A LIST OF IDP'S OWN (I.E. NOT USER KEYWORDS), SEE IDP'S    COMCIDP  1856
                                        *         KEYWORD LIST AT *FW.KEY* ET SEQ.                               COMCIDP  1857
                                        *                                                                        COMCIDP  1858
                                        *         MAY THE GODS BE WITH YOU...                                    COMCIDP  1859
                                        *                                                                        COMCIDP  1860
                                        *         ENTRY  NONE                                                    COMCIDP  1861
                                        *                                                                        COMCIDP  1862
                                        *         EXIT   NONE                                                    COMCIDP  1863
                                        *                                                                        COMCIDP  1864
                                        *         USES   NONE        (OR IT WOULDNT BE ANY GOOD)                 COMCIDP  1865
                                        *                                                                        COMCIDP  1866
                                        *         CALLS  (EXTERNAL TO COMCIDP)--                                 COMCIDP  1867
                                        *                CDD,COD,DXB,OPEN,READC,RSR=,SFN,SVR=,WRITEC,WRITER      COMCIDP  1868
                                                                                                                 COMCIDP  1869
                                                                                                                 COMCIDP  1870
                                                                                                                 COMCIDP  1871
          1515  0400401515 +             IDP=     SUBR               ** ENTRY **                                 COMCIDP  1872
          1516  0100005303 +             +        RJ     =XSVR       SAVE ALL REGISTERS                          COMCIDP  1873
                          0000000422 +   -        VFD    30/FW.SVR                                               COMCIDP  1874
                                                                                                                 COMCIDP  1875
                                        *         SET UP *IDPFLG* - MASTER CONTROL FLAG.                         COMCIDP  1876
                                        *                                                                        COMCIDP  1877
                                        *           SET  XEC = *IDP=*                                            COMCIDP  1878
                                        *           IF 1ST TIME *IDP* HAS BEEN ENTERED (BIT *FTO* OFF), SET --   COMCIDP  1879
                                        *                FTO = 1ST TIME ONLY CODE HAS BEEN EXECUTED              COMCIDP  1880
                                        *                IDO = WRITING INTERACTIVELY (F.IDO)                     COMCIDP  1881
                                        *                SNL = L.ISL                                             COMCIDP  1882
                                                                                                                 COMCIDP  1883
          1517  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  1884
                          43271                   MX2    -IDF.XECL                                               COMCIDP  1885
                               43301              MX3    1                                                       COMCIDP  1886
          1520  20260                             LX2    IDF.XECP-0                                              COMCIDP  1887
                     11621                        BX6    X2*X1       CLEAR OLD *XEC*/SET NEW *XEC*               COMCIDP  1888
                          43452                   MX4    -IDF.SNLL                                               COMCIDP  1889
                               20106              LX1    59-IDF.FTOP                                             COMCIDP  1890
          1521  54610                             SA6    A1                                                      COMCIDP  1891
                     0331001534 +                 MI     X1,IDP2     IF NOT 1ST TIME                             COMCIDP  1892
                                                                                                                 COMCIDP  1893
                                                  LX4    IDF.SNLP-0                                              COMCIDP  1894
                               20366              LX3    IDF.FTOP-59                                             COMCIDP  1895
          1522  11646                             BX6    X4*X6       CLEAR OLD *SNL*                             COMCIDP  1896
                     76111                        =X1    L.ISL                                                   COMCIDP  1897
                          12663                   BX6    X6+X3       MERGE *FTO*                                 COMCIDP  1898
                               20306              LX3    IDF.IDOP-IDF.FTOP                                       COMCIDP  1899
          1523  12661                             BX6    X6+X1       MERGE NEW *SNL*                             COMCIDP  1900
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   107
        IDP 1.1/THE EXECUTIVES.                                       IDP                 IDP 
  
                     12663                        BX6    X6+X3       MERGE *IDO*                                 COMCIDP  1901
                          54610                   SA6    A1                                                      COMCIDP  1902
                                                                                                                 COMCIDP  1903
                                        *         SET UP LINK TO USER KEYWORD TABLE, *UKT=*.                     COMCIDP  1904
                                                                                                                 COMCIDP  1905
          1524  5110001250 +                      SA1    FW=UKT      (X1) = LINK WORD TO USER KEYWORD TABLES     COMCIDP  1906
                          7160000000 +            SX6    =YUKT=      (X6) = FWA OF 1ST USER KEYWORD TABLE        COMCIDP  1907
          1525  0311001527 +                      NZ     X1,IDP1     IF USER HAS ALREADY LINKED TABLES THEMSELF  COMCIDP  1908
                          0336001527 +            MI     X6,IDP1     IF USER DID NOT PROVIDE *UKT=*              COMCIDP  1909
          1526  5061000000                        SA6    A1+                                                     COMCIDP  1910
                                                                                                                 COMCIDP  1911
                                        *         SET UP INTERACTIVE FILES.                                      COMCIDP  1912
                                                                                                                 COMCIDP  1913
          1527  0100003444 +             IDP1     RJ     IIF         INITIALIZE INTERACTIVE FILES                COMCIDP  1914
                                                                                                                 COMCIDP  1915
                                        *         CLEAR/INITIALIZE TABLES.                                       COMCIDP  1916
                                                                                                                 COMCIDP  1917
          1530  6160001327 +                      SB6    IDPBA                                                   COMCIDP  1918
                          0100002546 +            RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES        COMCIDP  1919
          1531  6160001400 +                      SB6    IDPSET                                                  COMCIDP  1920
                          0100002546 +            RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES              COMCIDP  1921
          1532  0100003460 +                      RJ     IST         (RE)INITIALIZE *SET* TABLE                  COMCIDP  1922
          1533  6160001431 +                      SB6    IDPXFT                                                  COMCIDP  1923
                          0100002546 +            RJ     CLZ         CLEAR *IDP* TABLE -- XFER ADDRESSES         COMCIDP  1924
                                                                                                                 COMCIDP  1925
                                        *         INITIAL BREAK PROCESSING.                                      COMCIDP  1926
                                                                                                                 COMCIDP  1927
          1534  5110001515 +             IDP2     SA1    IDP=        (A1,X1) = A+C OF IDP ENTRY POINT            COMCIDP  1928
                          0100002362 +            RJ     BRK         BREAK PROCESSOR                             COMCIDP  1929
          1535  0305002044 +                      ZR     X5,ST=END3  IF CONDITIONAL BREAK NOT SATISFIED          COMCIDP  1930
                          0100003342 +            RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMCIDP  1931
          1536  0305002044 +                      ZR     X5,ST=END3  IF NO BREAK THIS TIME                       COMCIDP  1932
                          0100004642 +            RJ     UIO         USER IDP OWNCODE                            COMCIDP  1933
          1537  0321002044 +                      PL     X1,ST=END3  IF NO INTERACTIVE BREAK THIS TIME           COMCIDP  1934
                                                                                                                 COMCIDP  1935
                                        *         FLUSH *F.BDO - BATCH DEBUG OUTPUT FILE*.                       COMCIDP  1936
                                                                                                                 COMCIDP  1937
                          6120000000 X            SB2    =YF.BDO                                                 COMCIDP  1938
          1540  0100003312 +                      RJ     FOF         FLUSH OUTPUT FILE                           COMCIDP  1939
                                                                                                                 COMCIDP  1940
                                        *         INTRODUCE YOURSELF.                                            COMCIDP  1941
                                                                                                                 COMCIDP  1942
          1541                           IDP2A    BSS    0                                                       COMCIDP  1943
          1541  5110006476 +                      SA1    =10H **IDP**                                            COMCIDP  1944
                          5120006477 +            SA2    =10H CALLD BY                                           COMCIDP  1945
          1542  5235000003                        SA3    X5+SN=HDR                                               COMCIDP  1946
                          10611                   BX6    X1                                                      COMCIDP  1947
                               22702              LX7    X2                                                      COMCIDP  1948
          1543  5160000607 +                      SA6    SNAPLNE                                                 COMCIDP  1949
                          54761                   SA7    A6+B1                                                   COMCIDP  1950
                               10633              BX6    X3                                                      COMCIDP  1951
          1544  0303001545 +                      ZR     X3,IDP4     IF NO HEADER PROVIDED BY CALLER .OR.        COMCIDP  1952
                                        *                              IDP GENERATED BREAK                       COMCIDP  1953
                          54661                   SA6    A6+B1                                                   COMCIDP  1954
                               54761              SA7    A6+B1                                                   COMCIDP  1955
                                                                                                                 COMCIDP  1956
          1545  5110000642 +             IDP4     SA1    IDPPREG                                                 COMCIDP  1957
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   108
        IDP 1.1/THE EXECUTIVES.                                       IDP                 IDP 
  
                          7211777776              SX1    X1-1                                                    COMCIDP  1958
          1546  0100003320 +                      RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  1959
          1547  0670001551 +                      PL     B7,IDP5     IF USER PROVIDED *FRA=*                     COMCIDP  1960
                                                                                                                 COMCIDP  1961
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  1962
          1550  10644                             BX6    X4                                                      COMCIDP  1963
                     43700                        MX7    0                                                       COMCIDP  1964
                                                                                                                 COMCIDP  1965
          1551  54671                    IDP5     SA6    A7+B1                                                   COMCIDP  1966
                     54761                        SA7    A6+B1                                                   COMCIDP  1967
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  1968
  
  
  
  
                                        *         ** MAIN LOOP NODE **                                           COMCIDP  1970
                                                                                                                 COMCIDP  1971
          1553                           IDP=MN   BSS    0                                                       COMCIDP  1972
          1553  5110000630 +                      SA1    TB=STMT                                                 COMCIDP  1973
                          0321001555 +            PL     X1,IDP7     IF LAST STMT PROCESSED WAS NOT IN *PROC*    COMCIDP  1974
                                                                                                                 COMCIDP  1975
                                        *         HERE IF LAST STATEMENT WAS IN A PROCEDURE.                     COMCIDP  1976
                                                                                                                 COMCIDP  1977
          1554  0400401554 +                      EQ     *+4S15      OOPS...                                     COMCIDP  1978
                                                                                                                 COMCIDP  1979
                                        *         CHECK FOR AVAILABILITY OF NEXT STATEMENT.                      COMCIDP  1980
                                                                                                                 COMCIDP  1981
          1555  53210                    IDP7     SA2    X1          (X2) = LEN WORD FOR LAST STMT PROCESSED     COMCIDP  1982
                                                  LX2    0-TB.LENP                                               COMCIDP  1983
                     73110                        SX1    X1                                                      COMCIDP  1984
                          73221                   SX2    X2+B1                                                   COMCIDP  1985
                               36612              IX6    X1+X2       (X6) = ADDR OF LEN WORD FOR NEXT STMT       COMCIDP  1986
          1556  5160000630 +                      SA6    TB=STMT                                                 COMCIDP  1987
                          53160                   SA1    X6                                                      COMCIDP  1988
                               53561              SA5    X6+B1       (A5,X5) = A+C OF 1ST TOKEN IN NEXT STMT     COMCIDP  1989
          1557  0311001616 +                      NZ     X1,IDP12    IF NOT END-OF-LINE IN TOKEN BUFFER          COMCIDP  1990
                                                                                                                 COMCIDP  1991
                                        *         HERE TO READ NEW LINE.                                         COMCIDP  1992
                                                                                                                 COMCIDP  1993
          1560  5110000454 +             IDP8     SA1    IDPFLG                                                  COMCIDP  1994
                          10211                   BX2    X1                                                      COMCIDP  1995
                               20107              LX1    59-IDF.INPP                                             COMCIDP  1996
          1561  20214                             LX2    59-IDF.BRFP                                             COMCIDP  1997
                     12612                        BX6    X1+X2                                                   COMCIDP  1998
                          0336001564 +            MI     X6,IDP8A    IF READING FROM BATCH INPUT (F.BDI) .OR.    COMCIDP  1999
                                        *                              IN *BRIEF* MODE                           COMCIDP  2000
                                                                                                                 COMCIDP  2001
                                   0              DUP    L.PRB,1                                                 COMCIDP  2002
                                                  WRITEC =XF.IDO,(=C=  =)                                        COMCIDP  2003
                                                                                                                 COMCIDP  2004
          1562  6160006500 +                      WRITEC =XF.IDO,(=C= "PROMPT"=)                                 COMCIDP  2005
                                                                                                                 COMCIDP  2006
          1564  6120000312 +             IDP8A    SB2    F.IDO                                                   COMCIDP  2007
                          0100003312 +            RJ     FOF         FLUSH OUTPUT FILE                           COMCIDP  2008
                                                                                                                 COMCIDP  2009
          1565  0100004063 +             IDP9     RJ     RIL         READ IDP LINE                               COMCIDP  2010
          1566  5120000454 +                      SA2    IDPFLG                                                  COMCIDP  2011
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   109
        IDP 1.1/THE EXECUTIVES.                                       IDP=MN              IDP 
  
                          5150000200 +            SA5    FW.LIM      (A5,X5) = A+C OF 1ST WORD IN SOURCE LINE    COMCIDP  2012
          1567  0301001573 +                      ZR     X1,IDP10    IF EOR/EOF NOT ENCOUNTERED                  COMCIDP  2013
                          43301                   MX3    1                                                       COMCIDP  2014
                               20356              LX3    IDF.RAPP-59                                             COMCIDP  2015
          1570  15623                             BX6    -X3*X2      CLEAR *RAP*                                 COMCIDP  2016
                     20307                        LX3    IDF.INPP-IDF.RAPP                                       COMCIDP  2017
                          15663                   BX6    -X3*X6      CLEAR *INP*                                 COMCIDP  2018
                               20207              LX2    59-IDF.INPP                                             COMCIDP  2019
          1571  5062000000                        SA6    A2+                                                     COMCIDP  2020
                          0322002165 +            PL     X2,ST=STA   IF INTERACTIVE INPUT, EOR IS *STATUS*...    COMCIDP  2021
          1572  0400001560 +                      EQ     IDP8                                                    COMCIDP  2022
                                                                                                                 COMCIDP  2023
                                        *         HERE TO ECHO LINE TO BATCH DEBUG OUTPUT FILE (F.BDO),          COMCIDP  2024
                                        *           IF REQUESTED.                                                COMCIDP  2025
                                                                                                                 COMCIDP  2026
          1573  10322                    IDP10    BX3    X2                                                      COMCIDP  2027
                     20204                        LX2    59-IDF.BKOP                                             COMCIDP  2028
                          20303                   LX3    59-IDF.BDOP                                             COMCIDP  2029
                               11423              BX4    X2*X3                                                   COMCIDP  2030
          1574  0324001600 +                      PL     X4,IDP10A   IF NO ECHO REQUESTED .OR. NOT WRITING TO    COMCIDP  2031
                                        *                              BATCH DEBUG OUTPUT FILE (F.BDO)           COMCIDP  2032
                          6160006501 +            PRBDO  (=C=  =),1                                              COMCIDP  2033
          1576  5120000311 +                      SA2    L=LIM                                                   COMCIDP  2034
                          6160000177 +            PRBDO  FW.LIM-1,X2                                             COMCIDP  2035
                                                                                                                 COMCIDP  2036
                                        *         HERE TO ECHO LINE TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO),    COMCIDP  2037
                                        *           IF REQUESTED.                                                COMCIDP  2038
                                                                                                                 COMCIDP  2039
          1600  5110000454 +             IDP10A   SA1    IDPFLG                                                  COMCIDP  2040
                          10211                   BX2    X1                                                      COMCIDP  2041
                               20101              LX1    59-IDF.IKOP                                             COMCIDP  2042
                                                  LX2    59-IDF.IDOP                                             COMCIDP  2043
          1601  11312                             BX3    X1*X2                                                   COMCIDP  2044
                     0323001604 +                 PL     X3,IDP11    IF NO ECHO REQUESTED .OR. NOT WRITING TO    COMCIDP  2045
                                        *                              INTERACTIVE DEBUG OUTPUT FILE (F.IDO)     COMCIDP  2046
                                                                                                                 COMCIDP  2047
                                   0              DUP    L.PRB,1                                                 COMCIDP  2048
                                                  WRITEC =XF.IDO,(=C=  =)                                        COMCIDP  2049
                                                                                                                 COMCIDP  2050
          1602  6160000177 +                      WRITEC =XF.IDO,FW.LIM-1                                        COMCIDP  2051
                                                                                                                 COMCIDP  2052
                                        *         HERE WHEN READY TO ENTOKEN LINE.                               COMCIDP  2053
                                        *                                                                        COMCIDP  2054
                                        *           1. SET UP *TOKCOM*, THE *USER/TOK* COMMUNICATIONS AREA.      COMCIDP  2055
                                        *                                                                        COMCIDP  2056
                                        *           2. CALL *COMCTOK* (COMMON TOKEN GENERATOR) TO ENTOKEN        COMCIDP  2057
                                        *              THIS LINE.                                                COMCIDP  2058
                                                                                                                 COMCIDP  2059
          1604  7160004462 +             IDP11    SX6    TOM=BOL     (X6) = ADDR OF 1ST *TOGEL* INST TO XEQ      COMCIDP  2060
                          7170000200 +            SX7    FW.LIM      (X7) = FWA OF LINE IMAGE TO ENTOKEN         COMCIDP  2061
          1605  5160000721 +                      SA6    TC=P                                                    COMCIDP  2062
                          5170000722 +            SA7    TC=SOA                                                  COMCIDP  2063
                                                                                                                 COMCIDP  2064
          1606  53170                             SA1    X7                                                      COMCIDP  2065
                     10611                        BX6    X1                                                      COMCIDP  2066
                          5160000723 +            SA6    TC=SOX                                                  COMCIDP  2067
          1607  7160777776                        SX6    -1                                                      COMCIDP  2068
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   110
        IDP 1.1/THE EXECUTIVES.                                       IDP=MN              IDP 
  
                          7170000735 +            SX7    IDPTB       (X7) = FWA OF TOKEN BUFFER                  COMCIDP  2069
          1610  5160000726 +                      SA6    TC=SOC      SET TO *NO USEABLE CHAR IN (X4)*            COMCIDP  2070
                          5170000727 +            SA7    TC=TBA                                                  COMCIDP  2071
          1611  5170000630 +                      SA7    TB=STMT                                                 COMCIDP  2072
                                                                                                                 COMCIDP  2073
                          6120000715 +            SB2    FW.TCOM     (B2) = FWA OF *TOKCOM*                      COMCIDP  2074
          1612  0100005456 +                      RJ     =XTOK       TOKEN GENERATOR                             COMCIDP  2075
          1613  7160000735 +                      SX6    IDPTB                                                   COMCIDP  2076
                          5150000736 +            SA5    IDPTB+1                                                 COMCIDP  2077
          1614  5160000630 +                      SA6    TB=STMT                                                 COMCIDP  2078
                          0400001616 +            EQ     IDP12                                                   COMCIDP  2079
                                                                                                                 COMCIDP  2080
                                        *         BACK FROM *STATEMENT CONTROL* PROCESSING.  INCREMENT           COMCIDP  2081
                                        *         TOKEN BUFFER POINTER.                                          COMCIDP  2082
                                                                                                                 COMCIDP  2083
          1615                           IDP=SC   BSS    0           ** ENTRY **                                 COMCIDP  2084
          1615  5055000001                        SA5    A5+1                                                    COMCIDP  2085
                                                                                                                 COMCIDP  2086
                                        *         HERE WITH A NEW STATEMENT TO BE PROCESSED.                     COMCIDP  2087
                                        *                                                                        COMCIDP  2088
                                        *           1. CHECK FOR AND PROCESS ANY *STMT CONTROL* TOKENS           COMCIDP  2089
                                        *              THAT PRECEDE THE STMT KEYWORD.                            COMCIDP  2090
                                        *                                                                        COMCIDP  2091
                                        *           2. SEARCH FOR THE STMT KEYWORD VIA THE LINKED LIST(S)        COMCIDP  2092
                                        *              OF KEYWORD TABLES.                                        COMCIDP  2093
                                        *                                                                        COMCIDP  2094
                                        *           3. TRANSFER CONTROL TO THE APPROPRIATE STMT PROCESSOR        COMCIDP  2095
                                        *              FOR THIS KEYWORD.                                         COMCIDP  2096
                                                                                                                 COMCIDP  2097
          1616  43052                    IDP12    MX0    TB.TOCL                                                 COMCIDP  2098
                     11105                        BX1    X0*X5       (X1) = KEYWORD, IN -L- FMT                  COMCIDP  2099
                          0305001553 +            ZR     X5,IDP=MN   IF A NULL STMT, IGNORE...                   COMCIDP  2100
                                        *                              (PROBABLE "EOS" "EOS" SYNTAX)             COMCIDP  2101
          1617  7265777776                        SX6    X5-O.KEY                                                COMCIDP  2102
                          0306001624 +            ZR     X6,IDP13    IF *KEY* TOKEN, NO *STMT CTL*...            COMCIDP  2103
                                                                                                                 COMCIDP  2104
                                        *         CHECK FOR *STATEMENT CONTROL* TOKEN.                           COMCIDP  2105
                                                                                                                 COMCIDP  2106
          1620  15150                             BX1    -X0*X5      (X1) = *TOT*                                COMCIDP  2107
                     6160001101 +                 SB6    FW.SCT      (B6) = FWA OF *STMT CTL* PROCESSOR TABLE    COMCIDP  2108
                               20152              LX1    SC.TOTP-0                                               COMCIDP  2109
          1621  43022                             MX0    SC.TOTL     (X0) = EXTRACTION MASK FOR *SKT*            COMCIDP  2110
                     0100004157 +                 RJ     SKT         SEARCH IDP TABLE                            COMCIDP  2111
          1622  0302001265 +                      ZR     X2,E.SC     IF NO FIND                                  COMCIDP  2112
                                                  LX2    0-SC.PADP                                               COMCIDP  2113
                          6222000000              SB2    X2+         (B2) = ADDR OF PROCESSOR FOR THIS *TOT*     COMCIDP  2114
          1623  0222000000                        JP     B2                                                      COMCIDP  2115
                                                                                                                 COMCIDP  2116
                                        *         CLASSIFY THIS STATEMENT.                                       COMCIDP  2117
                                        *                                                                        COMCIDP  2118
                                        *         NOTE THAT *CST* DOES NOT RETURN IF AN ERROR IS DETECTED.       COMCIDP  2119
                                                                                                                 COMCIDP  2120
          1624  0100002573 +             IDP13    RJ     CST         CLASSIFY STATEMENT                          COMCIDP  2121
          1625  0306001266 +                      ZR     X6,E.KEY    IF NO FIND, ERROR...                        COMCIDP  2122
                          5160000627 +            SA6    TB=KEY      SAVE ADDR OF FOUND *KEYW* ENTRY             COMCIDP  2123
                                                                                                                 COMCIDP  2124
                                        *         HERE IF WE HAVE A KEYWORD MATCH.                               COMCIDP  2125
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   111
        IDP 1.1/THE EXECUTIVES.                                       IDP=MN              IDP 
  
                                        *                                                                        COMCIDP  2126
                                        *         READY TO TRANSFER CONTROL TO THE APPROPRIATE STMT PROCESSOR.   COMCIDP  2127
                                        *         FIRST, HOWEVER, WE NEED TO FIDDLE WITH (A5) AND (X5) SO        COMCIDP  2128
                                        *         THAT UPON ENTRY TO THE STMT PROCESSOR --                       COMCIDP  2129
                                        *                                                                        COMCIDP  2130
                                        *                (A1,X1)= A+C OF *KEYW* ENTRY, WORD 1.                   COMCIDP  2131
                                        *                (A5+1) = ADDR OF 1ST TOKEN TO LOOK AT.                  COMCIDP  2132
                                        *                (X5)   = .ZR. IF KEYWORD IMMEDIATELY FOLLOWED BY EOS,   COMCIDP  2133
                                        *                         ELSE .NZ.                                      COMCIDP  2134
                                                                                                                 COMCIDP  2135
          1626  10655                    IDP14    BX6    X5                                                      COMCIDP  2136
                     7275777760                   SX7    X5-O.COM                                                COMCIDP  2137
          1627  0307001630 +                      ZR     X7,IDP15    IF KEYWORD FOLLOWED BY COMMA                COMCIDP  2138
                          55551                   SA5    A5-B1                                                   COMCIDP  2139
                               22506              LX5    X6                                                      COMCIDP  2140
                                                                                                                 COMCIDP  2141
          1630  5110000627 +             IDP15    SA1    TB=KEY      (X1) = ADDR OF *KEYW* ENTRY FOR THIS KEYWRD COMCIDP  2142
                          5221000000              SA2    X1+         (A2,X2) = A+C OF *KEYW* ENTRY, WORD 1       COMCIDP  2143
          1631  20230                             LX2    0-KW.PADP                                               COMCIDP  2144
                     63220                        SB2    X2          (B2) = ADDR OF STMT PROCESSOR               COMCIDP  2145
                          0100002447 +            RJ     CHK         CHECK CM ADDR (BEST TO BE CAREFUL...)       COMCIDP  2146
          1632  5120000627 +                      SA2    TB=KEY                                                  COMCIDP  2147
                          0720001315 +            MI     B2,SE.PAD   IF STMT PROCESSOR ADDR IS BAD               COMCIDP  2148
          1633  53120                             SA1    X2          (A1,X1) = A+C OF FOUND *KEYW* ENTRY, WORD 1 COMCIDP  2149
                     0222000000                   JP     B2          FLY AWAY...                                 COMCIDP  2150
  
  
  
  
                                        **        IDP=XIT - EXIT IDP.                                            COMCIDP  2152
                                        *                                                                        COMCIDP  2153
                                        *                                                                        COMCIDP  2154
                                                                                                                 COMCIDP  2155
          1634                           IDP=XIT  BSS    0           ** ENTRY **                                 COMCIDP  2156
          1634  5110000642 +                      SA1    IDPPREG     (X1) = ADDR OF NEXT INSTRUCTION TO XEQ      COMCIDP  2157
                          5120001640 +            SA2    IDP=JPS     (X2) = *JP B0+0* PLUG SKELETON              COMCIDP  2158
          1635  20136                             LX1    30                                                      COMCIDP  2159
                     12621                        BX6    X2+X1       (X6) = 30/JP B0+PREG,30/NO-OP               COMCIDP  2160
                          5160001637 +            SA6    IDP=JP                                                  COMCIDP  2161
                                                                                                                 COMCIDP  2162
          1636  7110000422 +                      SX1    FW.SVR      (X1) = FWA OF SAVED REGISTERS               COMCIDP  2163
                          0100004107 +            RJ     RIR         RESTORE INTERACTIVE REGISTERS               COMCIDP  2164
                                                                                                                 COMCIDP  2165
          1637  0400401637 +             IDP=JP   JP     *+4S15      PLUGGED W/ *JP B0+RETURN ADDR*              COMCIDP  2166
                                                                                                                 COMCIDP  2167
          1640  0200000000               IDP=JPS  JP     B0+0        PLUG SKELETON                               COMCIDP  2168
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   112
        IDP 1.1/THE EXECUTIVES.                                       IDP=ER              IDP 
  
                                        *         HERE FOR ERROR CONDITION.                                      COMCIDP  2170
                                                                                                                 COMCIDP  2171
          1641                           IDP=ER   BSS    0           ** ERROR **                                 COMCIDP  2172
          1641                           IDP.ER   BSS    0                                                       COMCIDP  2173
          1641  7160777776                        SX6    -1          SET TO *NO ERROR MSG AVAILABLE*             COMCIDP  2174
                                                                                                                 COMCIDP  2175
          1642                           IDP=ERR  BSS    0           ** ENTRY FROM /ERROR/ MACRO **              COMCIDP  2176
          1642  5160000453 +                      SA6    IDPERR                                                  COMCIDP  2177
                          6160006502 +            WRITEC =XF.IDO,(=C. ?.)                                        COMCIDP  2178
          1644  0400001560 +                      EQ     IDP8        TRASH CURRENT LINE/READ NEW LINE...         COMCIDP  2179
  
  
  
  
                                        **        IDP=SER - *SYSTEM* ERROR.                                      COMCIDP  2181
                                        *                                                                        COMCIDP  2182
                                        *                                                                        COMCIDP  2183
                                        *         HERE WHEN IDP SENSES AN INTERNAL-TYPE ERROR.                   COMCIDP  2184
                                                                                                                 COMCIDP  2185
                                                                                                                 COMCIDP  2186
          1645                           IDP=SER  BSS    0           ** ENTRY **                                 COMCIDP  2187
          1645  5160000453 +                      SA6    IDPERR                                                  COMCIDP  2188
                          6120000000 X            SB2    =YF.BDO                                                 COMCIDP  2189
          1646  0100003312 +                      RJ     FOF         FLUSH OUTPUT FILE                           COMCIDP  2190
          1647  0100004005 +                      RJ     PEM         PRINT ERROR MSG                             COMCIDP  2191
          1650  0400001560 +                      EQ     IDP8        TRASH CURRENT LINE/READ NEW LINE...         COMCIDP  2192
  
  
  
  
                                        **        IDP=IFR - IDP RESTART.                                         COMCIDP  2194
                                        *                                                                        COMCIDP  2195
                                        *         HERE FROM *RHH* WHEN HOST HAS JUST BEEN RESTARTED              COMCIDP  2196
                                        *         VIA *IFR*.  NEED TO --                                         COMCIDP  2197
                                        *                                                                        COMCIDP  2198
                                        *           1.*MEM* BACK DOWN TO ORIGINAL FIELD LENGTH.                  COMCIDP  2199
                                        *                                                                        COMCIDP  2200
                                        *           2. RESTORE THE WORDS AT (RA.SSW), (FL-2), AND (FL-1).        COMCIDP  2201
                                        *                                                                        COMCIDP  2202
                                        *           3. (RE)OPEN AND CONNECT INTERACTIVE FILES, JUST IN CASE      COMCIDP  2203
                                        *              USER IS RESTARTING ON ANOTHER DAY.                        COMCIDP  2204
                                        *                                                                        COMCIDP  2205
                                        *           4. CALL *UFR* (USER FREEZE RESTART OWNCODE) TO ALLOW         COMCIDP  2206
                                        *              THE HOST TO PERFORM FREEZE RESTART OWNCODE  (LIKE         COMCIDP  2207
                                        *              RE-SETTING UP FILES, FER INSTANCE...).                    COMCIDP  2208
                                                                                                                 COMCIDP  2209
                                                                                                                 COMCIDP  2210
          1651                           IDP=IFR  BSS    0           ** ENTRY **                                 COMCIDP  2211
          1651  5140001504 +                      SA4    MEM#HOST                                                COMCIDP  2212
                          76310                   SX3    B1                                                      COMCIDP  2213
                               15643              BX6    -X3*X4      CLEAR COMPLETE BIT                          COMCIDP  2214
          1652  54640                             SA6    A4                                                      COMCIDP  2215
                     7160150515                   MEMORY SCM,A4,RCL                                              COMCIDP  2216
                                                                                                                 COMCIDP  2217
          1655  5110000157 +                      SA1    FRZ#SAV                                                 COMCIDP  2218
                          54211                   SA2    A1+B1                                                   COMCIDP  2219
                               54321              SA3    A2+B1                                                   COMCIDP  2220
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   113
        IDP 1.1/THE EXECUTIVES.                                       IDP=IFR             IDP 
  
          1656  22601                             LX6    X1                                                      COMCIDP  2221
                     10722                        BX7    X2                                                      COMCIDP  2222
                          21436                   AX4    30                                                      COMCIDP  2223
                               56600              =A6    RA.SSW      RESTORE (RA.SSW)                            COMCIDP  2224
          1657  5274777775                        SA7    X4-2        RESTORE (FL-2)                              COMCIDP  2225
                          10633                   BX6    X3                                                      COMCIDP  2226
                               54671              SA6    A7+B1       RESTORE (FL-1)                              COMCIDP  2227
          1660  0100003444 +                      RJ     IIF         INITIALIZE INTERACTIVE FILES                COMCIDP  2228
          1661  0100004636 +                      RJ     UFR         USER FREEZE RESTART OWNCODE                 COMCIDP  2229
          1662  0400001553 +                      EQ     IDP=MN      CONTINUE INTERACTIVE SESSION...             COMCIDP  2230
                                         .IDPOS   ENDIF                                                          CCGA018    10
  
  
  
  
                                        **        REG - REGISTER SNAPSHOT.                                       COMCIDP  2232
                                        *                                                                        COMCIDP  2233
                                        *                                                                        COMCIDP  2234
                                        *                CALLED BY *REG* MACRO.                                  COMCIDP  2235
                                        *                                                                        COMCIDP  2236
                                        *         ENTRY  LOWER HALF OF *RJ REG=* WORD HAS FWA OF PARAMETER LIST. COMCIDP  2237
                                        *                                                                        COMCIDP  2238
                                        * +       RJ     REG=                                                    COMCIDP  2239
                                        * -       VFD    30/FWA OF PARAMETER LIST                                COMCIDP  2240
                                        *                                                                        COMCIDP  2241
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY COMCIDP  2242
                                        *         *REG* MACRO (SEE *COMAIDP*) --                                 COMCIDP  2243
                                        *                                                                        COMCIDP  2244
                                        *         VFD    60/LOWER LIMIT (LL)                                     COMCIDP  2245
                                        *         VFD    60/UPPER LIMIT (UL)                                     COMCIDP  2246
                                        *         VFD    60/INCREMENT (INC)                                      COMCIDP  2247
                                        *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                        COMCIDP  2248
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          COMCIDP  2249
                                        *         VFD    60/USER FLAGS                                           COMCIDP  2250
                                        *         VFD    60/REGISTER DUMP FLAG                                   COMCIDP  2251
                                        *                 .                                                      COMCIDP  2252
                                        *                 .                                                      COMCIDP  2253
                                        *         VFD    60/REGISTER DUMP FLAG                                   COMCIDP  2254
                                        *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)      COMCIDP  2255
                                        *                .MI. = DUMP ALL REGISTERS                               COMCIDP  2256
                                        *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP  COMCIDP  2257
                                        *                                                                        COMCIDP  2258
                                        *         EXIT   NONE                                                    COMCIDP  2259
                                        *                                                                        COMCIDP  2260
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      COMCIDP  2261
                                        *                                                                        COMCIDP  2262
                                        *         CALLS  DAR,DSR,FRK,HDR,RSR=,SOB,SVR=,URO                       COMCIDP  2263
                                                                                                                 COMCIDP  2264
                                                                                                                 COMCIDP  2265
          1663  0400401663 +             REG=     SUBR               ** ENTRY/EXIT **                            COMCIDP  2266
          1664  0100005303 +             +        RJ     =XSVR       SAVE ALL REGISTERS                          COMCIDP  2267
                          0000000422 +   -        VFD    30/FW.SVR                                               COMCIDP  2268
          1665  7110000001                        SX1    1           SET TO *EXECUTIVE IS /REG=/*                COMCIDP  2269
                          0100004213 +            RJ     SOB         SET OUTPUT BIT FLAGS                        COMCIDP  2270
          1666  5110001663 +                      SA1    REG=        (X1) = 30/EQ CALLING ADDRESS+1, 30/0        COMCIDP  2271
                          0100003432 +            RJ     IEX         INITIALIZE EXECUTIVE                        COMCIDP  2272
          1667  0100004646 +                      RJ     URO         USER REG= OWNCODE                           COMCIDP  2273
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   114
        IDP 1.1/THE EXECUTIVES.                                       REG                 IDP 
  
          1670  0321001676 +                      PL     X1,REG3     IF NO REGISTER SNAPSHOT THIS TIME           COMCIDP  2274
                          0100003342 +            RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMCIDP  2275
          1671  0305001676 +                      ZR     X5,REG3     IF NOT SNAPPING THIS TIME                   COMCIDP  2276
                          0100003411 +            RJ     HDR         OUTPUT SNAP HEADER                          COMCIDP  2277
          1672  5150000452 +                      SA5    FW=PARM                                                 COMCIDP  2278
                          5215000006              SA1    X5+SN=RRL   (A1,X1) = ADDR + CNTS OF 1ST REGISTER DUMP  COMCIDP  2279
                                        *                              PARAMETER WORD                            COMCIDP  2280
          1673  0321001675 +                      PL     X1,REG2     IF NOT DUMPING ALL REGISTERS                COMCIDP  2281
                          0100002644 +            RJ     DAR         DUMP ALL REGISTERS                          COMCIDP  2282
          1674  0400001676 +                      EQ     REG3                                                    COMCIDP  2283
                                                                                                                 COMCIDP  2284
          1675  0100003201 +             REG2     RJ     DSR         DUMP SELECTED REGISTERS                     COMCIDP  2285
                                                                                                                 COMCIDP  2286
          1676  7110000422 +             REG3     SX1    FW.SVR      (X1) = FWA OF SAVED REGISTERS               COMCIDP  2287
                          0100004107 +            RJ     RIR         RESTORE INTERACTIVE REGISTERS               COMCIDP  2288
          1677  0400001663 +                      EQ     EXIT.                                                   COMCIDP  2289
  
  
  
  
                                        **        SNP - SNAPSHOT OF CORE AND REGISTERS.                          COMCIDP  2291
                                        *                                                                        COMCIDP  2292
                                        *                                                                        COMCIDP  2293
                                        *                CALLED BY *SNAP* MACRO.                                 COMCIDP  2294
                                        *                                                                        COMCIDP  2295
                                        *         LOWER HALF OF *RJ SNP=* WORD HAS FWA OF PARAMETER LIST--       COMCIDP  2296
                                        *                                                                        COMCIDP  2297
                                        * +       RJ     SNP=                                                    COMCIDP  2298
                                        * -       VFD    30/FWA OF PARAMETER LIST                                COMCIDP  2299
                                        *                                                                        COMCIDP  2300
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY COMCIDP  2301
                                        *         BY *SNAP* MACRO. (SEE *COMAIDP*) --                            COMCIDP  2302
                                        *                                                                        COMCIDP  2303
                                        *         VFD    60/LOWER LIMIT (LL)                                     COMCIDP  2304
                                        *         VFD    60/UPPER LIMIT (UL)                                     COMCIDP  2305
                                        *         VFD    60/INCREMENT (INC)                                      COMCIDP  2306
                                        *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                        COMCIDP  2307
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          COMCIDP  2308
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/FWA               COMCIDP  2309
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LWA               COMCIDP  2310
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LEN               COMCIDP  2311
                                        *         VFD    60/USER FLAGS                                           COMCIDP  2312
                                        *         VFD    60/REGISTER DUMP FLAG                                   COMCIDP  2313
                                        *                 .                                                      COMCIDP  2314
                                        *                 .                                                      COMCIDP  2315
                                        *         VFD    60/REGISTER DUMP FLAG                                   COMCIDP  2316
                                        *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)      COMCIDP  2317
                                        *                .MI. = DUMP ALL REGISTERS                               COMCIDP  2318
                                        *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP  COMCIDP  2319
                                        *                                                                        COMCIDP  2320
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      COMCIDP  2321
                                        *                                                                        COMCIDP  2322
                                        *         CALLS  DAR,DCM,DSR,FRK,HDR,RIR,SOB,SVR,USO                     COMCIDP  2323
                                                                                                                 COMCIDP  2324
                                                                                                                 COMCIDP  2325
          1700  0400401700 +             SNP=     SUBR               ** ENTRY/EXIT **                            COMCIDP  2326
          1701  0100005303 +             +        RJ     =XSVR       SAVE ALL REGISTERS                          COMCIDP  2327
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   115
        IDP 1.1/THE EXECUTIVES.                                       SNP                 IDP 
  
                          0000000422 +   -        VFD    30/FW.SVR                                               COMCIDP  2328
          1702  7110000002                        SX1    2           SET TO *EXECUTIVE IS /SNP=/*                COMCIDP  2329
                          0100004213 +            RJ     SOB         SET OUTPUT BIT FLAGS                        COMCIDP  2330
          1703  5110001700 +                      SA1    SNP=        (X1) = 30/EQ CALLING ADDRESS+1, 30/0        COMCIDP  2331
                          0100003432 +            RJ     IEX         INITIALIZE EXECUTIVE                        COMCIDP  2332
          1704  0100004652 +                      RJ     USO         USER SNP= OWNCODE                           COMCIDP  2333
          1705  0321001715 +                      PL     X1,SNP4     IF NO SNAPSHOT THIS TIME                    COMCIDP  2334
                          0100003342 +            RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMCIDP  2335
          1706  0305001715 +                      ZR     X5,SNP4     IF NO SNAP THIS TIME                        COMCIDP  2336
                          0100003411 +            RJ     HDR         OUTPUT SNAP HEADER                          COMCIDP  2337
          1707  5215000011                        SA1    X5+SN=SRL   (A1,X1) = ADDR + CNTS OF 1ST WORD OF        COMCIDP  2338
                                        *                              REGISTER LIST                             COMCIDP  2339
                          0321001712 +            PL     X1,SNP2     IF NOT DUMPING ALL REGISTERS                COMCIDP  2340
          1710  0100002644 +                      RJ     DAR         DUMP ALL REGISTERS                          COMCIDP  2341
          1711  0400001713 +                      EQ     SNP3                                                    COMCIDP  2342
                                                                                                                 COMCIDP  2343
          1712  0100003201 +             SNP2     RJ     DSR         DUMP SELECTED REGISTERS                     COMCIDP  2344
                                                                                                                 COMCIDP  2345
          1713  5150000452 +             SNP3     SA5    FW=PARM                                                 COMCIDP  2346
                          5225000005              SA2    X5+SN=FWA   (X2) = 10/0,21/LVL OF IND ADDR,21/FWA       COMCIDP  2347
          1714  54321                             SA3    A2+B1       (X3) = 18/0,21/LVL OF IND ADDR,21/LWA       COMCIDP  2348
                     54431                        SA4    A3+B1       (X4) = 18/0,21/LVL OF IND ADDR,21/LEN       COMCIDP  2349
                          0100003132 +            RJ     DCM         DUMP CENTRAL MEMORY                         COMCIDP  2350
                                                                                                                 COMCIDP  2351
          1715  7110000422 +             SNP4     SX1    FW.SVR      (X1) = FWA OF SAVED REGISTERS               COMCIDP  2352
                          0100004107 +            RJ     RIR         RESTORE INTERACTIVE REGISTERS               COMCIDP  2353
          1716  0400001700 +                      EQ     EXIT.                                                   COMCIDP  2354
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   116
        IDP 1.1/THE STATEMENT PROCESSORS.                             IDP                 IDP 
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    11
  
  
  
  
                                        ***       SC= - STATEMENT CONTROL PROCESSORS.                            COMCIDP  2357
                                        *                                                                        COMCIDP  2358
                                        *                                                                        COMCIDP  2359
                                        *         THE FOLLOWING SECTION CONTAINS THE PROCESSORS THAT HANDLE      COMCIDP  2360
                                        *         THE SO CALLED *STATEMENT CONTROL* SYNTAXS.  THESE ARE THE      COMCIDP  2361
                                        *         SPECIAL PREFIX TOKENS THAT CAN OPTIONALLY PRECEDE ANY IDP      COMCIDP  2362
                                        *         COMMAND STMT, AND THAT CONTROL HOW THAT STMT IS **SEEN**.      COMCIDP  2363
                                        *                                                                        COMCIDP  2364
                                        *         FOR EXAMPLE, THE *BRIEF* MODE TOGGLE SWITCH, *.*, IS NOT       COMCIDP  2365
                                        *         REALLY A KEYWORD IN THE STRUCTURAL SENSE.  IT MERELY INDICATES COMCIDP  2366
                                        *         TO IDP THAT THE USER WISHES TO TOGGLE *BRIEF* MODE.            COMCIDP  2367
  
  
  
  
                                        **        HERE TO PROCESS *.* (BRIEF MODE TOGGLE SWITCH).                COMCIDP  2369
                                                                                                                 COMCIDP  2370
          1717                           SC=BRF   BSS    0           ** ENTRY **                                 COMCIDP  2371
          1717  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  2372
                          43201                   MX2    1                                                       COMCIDP  2373
                               20260              LX2    IDF.BRFP-59                                             COMCIDP  2374
          1720  13612                             BX6    X1-X2       TOGGLE *BRF*                                COMCIDP  2375
                     54610                        SA6    A1                                                      COMCIDP  2376
                          0400001615 +            EQ     IDP=SC                                                  COMCIDP  2377
  
  
  
  
                                        **        HERE TO PROCESS *?*.                                           COMCIDP  2379
                                                                                                                 COMCIDP  2380
                                                                                                                 COMCIDP  2381
          1721                           SC=QQQ   BSS    0           ** ENTRY **                                 COMCIDP  2382
          1721  0100004005 +                      RJ     PEM         PRINT ERROR MSG                             COMCIDP  2383
          1722  0400001615 +                      EQ     IDP=SC                                                  COMCIDP  2384
  
  
  
  
                                        **        ST= - STATEMENT PROCESSORS.                                    COMCIDP  2386
                                        *                                                                        COMCIDP  2387
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   117
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=ABS              IDP 
  
                                        **        HERE TO PROCESS *ABS*.                                         COMCIDP  2389
                                                                                                                 COMCIDP  2390
                                                                                                                 COMCIDP  2391
          1723                           ST=ABS   BSS    0           ** ENTRY **                                 COMCIDP  2392
          1723  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  2393
                          43201                   MX2    1                                                       COMCIDP  2394
                               20264              LX2    IDF.ADRP-59                                             COMCIDP  2395
          1724  15612                             BX6    -X2*X1      CLEAR *ADR*                                 COMCIDP  2396
                     54610                        SA6    A1                                                      COMCIDP  2397
                          0400001553 +            EQ     IDP=MN                                                  COMCIDP  2398
  
  
  
  
                                        *         HERE TO PROCESS *BREAK ADDR,LL,UL,INC*,                        COMCIDP  2400
                                        *                      OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM,              COMCIDP  2401
                                        *                      OR  *BREQ ADDR,ADDR1,ADDR2,LL,UL,INC* FORM.       COMCIDP  2402
                                                                                                                 COMCIDP  2403
          1725                           ST=BRK   BSS    0           ** ENTRY **                                 COMCIDP  2404
          1725  20141                             LX1    0-KW.XATP                                               COMCIDP  2405
                     43263                        MX2    -KW.XATL                                                COMCIDP  2406
                          15612                   BX6    -X2*X1      (X6) = BREAK TYPE CODE (BTC)                COMCIDP  2407
          1726  5160000634 +                      SA6    IDPBTC                                                  COMCIDP  2408
                          0305002001 +            ZR     X5,ST=BRK13 IF EOS ENCOUNTERED, LIST ALL BREAKS...      COMCIDP  2409
          1727  0100003603 +                      RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  COMCIDP  2410
          1730  0303002001 +                      ZR     X3,ST=BRK13 IF 1ST EXPRESSION IS NULL, LIST ALL BREAKS  COMCIDP  2411
                          73610                   SX6    X1                                                      COMCIDP  2412
                               63210              SB2    X1          (B2) = ADDR AT WHICH TO BREAK               COMCIDP  2413
          1731  5160000164 +                      SA6    AP=FWA                                                  COMCIDP  2414
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS                            COMCIDP  2415
          1732  0720001267 +                      MI     B2,E.BRAD   IF ADDR IS BAD                              COMCIDP  2416
                          5120000634 +            SA2    IDPBTC                                                  COMCIDP  2417
          1733  43300                             MX3    0                                                       COMCIDP  2418
                     0302001735 +                 ZR     X2,ST=BRK2  IF THIS IS *BREAK ADDR,LL,UL,INC*           COMCIDP  2419
                                                                                                                 COMCIDP  2420
                                        *         ASSEMBLE ADDR1.                                                COMCIDP  2421
                                                                                                                 COMCIDP  2422
          1734  0305001735 +                      ZR     X5,ST=BRK2  IF ADDR FOLLOWED BY EOS                     COMCIDP  2423
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                 COMCIDP  2424
                                                                                                                 COMCIDP  2425
          1735  0313001736 +             ST=BRK2  NZ     X3,ST=BRK3  IF ADDR1 NOT NULL                           COMCIDP  2426
                          7110000000              SX1    0           (X1) = DEFAULT ADDR1                        COMCIDP  2427
                                                                                                                 COMCIDP  2428
          1736  63210                    ST=BRK3  SB2    X1                                                      COMCIDP  2429
                     0100002447 +                 RJ     CHK         CHECK CM ADDRESS                            COMCIDP  2430
          1737  0720001270 +                      MI     B2,E.BRA1   IF ADDR1 IS BAD                             COMCIDP  2431
                          76620                   SX6    B2                                                      COMCIDP  2432
                               43300              MX3    0                                                       COMCIDP  2433
          1740  5160000165 +                      SA6    AP=LWA                                                  COMCIDP  2434
                          5120000634 +            SA2    IDPBTC                                                  COMCIDP  2435
          1741  7272777772                        SX7    X2-BTC.EQ                                               COMCIDP  2436
                          0337001743 +            MI     X7,ST=BRK4  IF THIS IS *BREAK ADDR,LL,UL,INC*           COMCIDP  2437
                                        *                              OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM       COMCIDP  2438
                                                                                                                 COMCIDP  2439
                                        *         ASSEMBL ADDR2.                                                 COMCIDP  2440
                                                                                                                 COMCIDP  2441
          1742  0305001743 +                      ZR     X5,ST=BRK4  IF ADDR1 FOLLOWED BY EOS                    COMCIDP  2442
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   118
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=BRK              IDP 
  
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                 COMCIDP  2443
                                                                                                                 COMCIDP  2444
          1743  0313001744 +             ST=BRK4  NZ     X3,ST=BRK5  IF ADDR2 NOT NULL                           COMCIDP  2445
                          7110000000              SX1    0                                                       COMCIDP  2446
                                                                                                                 COMCIDP  2447
          1744  63210                    ST=BRK5  SB2    X1                                                      COMCIDP  2448
                     0100002447 +                 RJ     CHK         CHECK CM ADDRESS                            COMCIDP  2449
          1745  0720001271 +                      MI     B2,E.BRA2   IF ADDR2 IS BAD                             COMCIDP  2450
                          76620                   SX6    B2                                                      COMCIDP  2451
                               43300              MX3    0                                                       COMCIDP  2452
          1746  5160000166 +                      SA6    AP=LEN      SAVE (X6) = ADDR2                           COMCIDP  2453
                                                                                                                 COMCIDP  2454
                                        *         ASSEMBLE LL.                                                   COMCIDP  2455
                                                                                                                 COMCIDP  2456
                          0305001750 +            ZR     X5,ST=BRK6  IF ADDR2 FOLLOWED BY EOS                    COMCIDP  2457
          1747  0100003603 +                      RJ     PAS         PARSE SUBEXPRESSION-- LL                    COMCIDP  2458
                                                                                                                 COMCIDP  2459
          1750  0313001751 +             ST=BRK6  NZ     X3,ST=BRK7  IF LL NOT NULL                              COMCIDP  2460
                          7110000001              SX1    1           (X1) = DEFAULT LL                           COMCIDP  2461
                                                                                                                 COMCIDP  2462
          1751  73610                    ST=BRK7  SX6    X1                                                      COMCIDP  2463
                     5160000157 +                 SA6    AP=LL                                                   COMCIDP  2464
                               43300              MX3    0                                                       COMCIDP  2465
          1752  0305001753 +                      ZR     X5,ST=BRK8  IF LL FOLLOWED BY EOS                       COMCIDP  2466
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- UL                    COMCIDP  2467
                                                                                                                 COMCIDP  2468
          1753  0313001754 +             ST=BRK8  NZ     X3,ST=BRK9  IF UL NOT NULL                              COMCIDP  2469
                          7110000144              SX1    100         (X1) = DEFAULT UL                           COMCIDP  2470
                                                                                                                 COMCIDP  2471
          1754  73610                    ST=BRK9  SX6    X1                                                      COMCIDP  2472
                     5160000160 +                 SA6    AP=UL                                                   COMCIDP  2473
                               43300              MX3    0                                                       COMCIDP  2474
          1755  0305001756 +                      ZR     X5,ST=BRK10 IF UL FOLLOWED BY EOS                       COMCIDP  2475
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- INC                   COMCIDP  2476
                                                                                                                 COMCIDP  2477
          1756  0313001757 +             ST=BRK10 NZ     X3,ST=BRK11 IF INC NOT NULL                             COMCIDP  2478
                          7110000001              SX1    1           (X1) = DEFAULT INC                          COMCIDP  2479
                                                                                                                 COMCIDP  2480
          1757  73610                    ST=BRK11 SX6    X1                                                      COMCIDP  2481
                     5160000161 +                 SA6    AP=INC                                                  COMCIDP  2482
                                                                                                                 COMCIDP  2483
                                        *         ASSEMBLE NEW BREAK TABLE ENTRY.                                COMCIDP  2484
                                                                                                                 COMCIDP  2485
          1760  5110000164 +                      SA1    AP=FWA      (X1) = BREAK ADDR                           COMCIDP  2486
                          54211                   SA2    A1+B1       (X2) = ADDR1                                COMCIDP  2487
                               54321              SA3    A2+B1       (X3) = ADDR2                                COMCIDP  2488
          1761  5140000634 +                      SA4    IDPBTC      (X4) = BREAK TYPE CODE                      COMCIDP  2489
                          20244                   LX2    54-18                                                   COMCIDP  2490
                               12612              BX6    X1+X2       (X6) = 6/0,18/ADDR1,18/0,18/BREAK ADDR      COMCIDP  2491
          1762  20322                             LX3    36-18                                                   COMCIDP  2492
                     12663                        BX6    X6+X3       (X6) = 6/0,18/ADDR1,18/ADDR2,18/BRK ADDR    COMCIDP  2493
                          20466                   LX4    60-6                                                    COMCIDP  2494
                               12664              BX6    X6+X4       (X6) = 6/BTC,18/ADDR1,18/ADDR2,18/BRK ADDR  COMCIDP  2495
          1763  5160002004 +                      SA6    ST=BRKB                                                 COMCIDP  2496
                                                                                                                 COMCIDP  2497
                          5120000157 +            SA2    AP=LL       (X2) = LL                                   COMCIDP  2498
          1764  54321                             SA3    A2+B1       (X3) = UL                                   COMCIDP  2499
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   119
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=BRK              IDP 
  
                     54431                        SA4    A3+B1       (X4) = INC                                  COMCIDP  2500
                          20255                   LX2    60-15                                                   COMCIDP  2501
                               20336              LX3    45-15                                                   COMCIDP  2502
          1765  12723                             BX7    X2+X3       (X7) = 15/LL,15/UL,12/0,18/0                COMCIDP  2503
                     20422                        LX4    30-12                                                   COMCIDP  2504
                          12774                   BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/0              COMCIDP  2505
                               54761              SA7    A6+B1                                                   COMCIDP  2506
                                                                                                                 COMCIDP  2507
          1766  73110                             SX1    X1                                                      COMCIDP  2508
                     6160001327 +                 SB6    IDPBA                                                   COMCIDP  2509
                               43052              MX0    -18                                                     COMCIDP  2510
          1767  14000                             BX0    -X0                                                     COMCIDP  2511
                     0100004157 +                 RJ     SKT         SEARCH FOR BREAK ADDR                       COMCIDP  2512
          1770  5110002004 +                      SA1    ST=BRKB                                                 COMCIDP  2513
                          0312001776 +            NZ     X2,ST=BRK12 IF BREAK ADDR ALREADY IN TABLE              COMCIDP  2514
                                                                                                                 COMCIDP  2515
                                        *         HERE IF MAKING A NEW ENTRY.                                    COMCIDP  2516
                                                                                                                 COMCIDP  2517
          1771  10611                             BX6    X1                                                      COMCIDP  2518
                     0100002352 +                 RJ     ADZ         ADD NEW *IDPBA* ENTRY                       COMCIDP  2519
          1772  53310                             SA3    X1          (X3) = PREVIOUS CONTENTS OF BREAK ADDR      COMCIDP  2520
                     5140002003 +                 SA4    ST=BRKA     (X4) = *RJ IDP* PLUG                        COMCIDP  2521
                               10633              BX6    X3                                                      COMCIDP  2522
          1773  22704                             LX7    X4                                                      COMCIDP  2523
                     66677                        SB6    B7+B7                                                   COMCIDP  2524
                          5166001342 +            SA6    IDPBC+B6                                                COMCIDP  2525
          1774  54730                             SA7    A3                                                      COMCIDP  2526
                     5110002005 +                 SA1    ST=BRKB+1   (X1) = 2ND WORD OF NEW *IDPBC* ENTRY        COMCIDP  2527
                               10611              BX6    X1                                                      COMCIDP  2528
          1775  54661                             SA6    A6+B1                                                   COMCIDP  2529
                     0400001553 +                 EQ     IDP=MN                                                  COMCIDP  2530
                                                                                                                 COMCIDP  2531
                                        *         HERE IF REPLACING/UPDATING AN EXISTING ENTRY.                  COMCIDP  2532
                                                                                                                 COMCIDP  2533
          1776  66677                    ST=BRK12 SB6    B7+B7                                                   COMCIDP  2534
                     10611                        BX6    X1                                                      COMCIDP  2535
                          5136001343 +            SA3    IDPBC+B6+1  (X3) = 2ND WORD OF EXISTING *IDPBC* ENTRY   COMCIDP  2536
          1777  54620                             SA6    A2          REPLACE OLD *IDPBA* WITH NEW                COMCIDP  2537
                     54411                        SA4    A1+B1       (X4) = NEW 2ND WORD OF *IDPBC* ENTRY        COMCIDP  2538
                          73330                   SX3    X3          (X3) = SNAP COUNT                           COMCIDP  2539
                               12643              BX6    X4+X3                                                   COMCIDP  2540
          2000  54630                             SA6    A3          REPLACE OLD WITH NEW                        COMCIDP  2541
                     0400001553 +                 EQ     IDP=MN                                                  COMCIDP  2542
                                                                                                                 COMCIDP  2543
                                        *         HERE TO LIST ALL BREAKS.                                       COMCIDP  2544
                                                                                                                 COMCIDP  2545
          2001  0100003467 +             ST=BRK13 RJ     LBT         LIST BREAK TABLE                            COMCIDP  2546
          2002  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2547
                                                                                                                 COMCIDP  2548
                                                                                                                 COMCIDP  2549
          2003  0100001515 +             ST=BRKA  RJ     IDP=        PLUG VALUE                                  COMCIDP  2550
                          0000000000     -        VFD    30/0                                                    COMCIDP  2551
                                                                                                                 COMCIDP  2552
          2004                     2     ST=BRKB  BSSZ   2           SAVE CELLS                                  COMCIDP  2553
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   120
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=COD              IDP 
  
                                        *         HERE TO PROCESS *CODE FWA,LWA,LEN*.                            COMCIDP  2555
                                                                                                                 COMCIDP  2556
          2006                           ST=COD   BSS    0                                                       COMCIDP  2557
          2006  0100003741 +                      RJ     PAT         PARSE *FWA,LWA,LEN* TRIPLE                  COMCIDP  2558
          2007  0720001272 +                      MI     B2,E.FLL    IF FWA, LWA, OR LEN IS BAD                  COMCIDP  2559
                                                                                                                 COMCIDP  2560
                                        *         HERE TO DEASSEMBLE FROM FWA TO LWA.                            COMCIDP  2561
                                                                                                                 COMCIDP  2562
          2010  5110000164 +             ST=COD5  SA1    AP=FWA                                                  COMCIDP  2563
                          54211                   SA2    A1+B1                                                   COMCIDP  2564
                               37321              IX3    X2-X1                                                   COMCIDP  2565
          2011  73611                             SX6    X1+B1                                                   COMCIDP  2566
                     0333001553 +                 MI     X3,IDP=MN   IF FINISHED                                 COMCIDP  2567
                               54610              SA6    A1                                                      COMCIDP  2568
          2012  53510                             SA5    X1          (A5,X5) = WORD TO DEASSEMBLE                COMCIDP  2569
                     6140000074                   SB4    60          (B4) = POSITION COUNTER                     COMCIDP  2570
                                                                                                                 COMCIDP  2571
          2013  0100002674 +             ST=COD6  RJ     DAZ         DEASSEMBLE INSTRUCTION                      COMCIDP  2572
          2014  0331002010 +                      MI     X1,ST=COD5  IF INSTRUCTION FORCED UPPER                 COMCIDP  2573
                          67445                   SB4    B4-B5                                                   COMCIDP  2574
          2015  0704002013 +                      GT     B4,B0,ST=COD6  IF MORE INSTRUCTIONS TO GO IN THIS WORD  COMCIDP  2575
                          0400002010 +            EQ     ST=COD5                                                 COMCIDP  2576
  
  
  
  
                                        *         HERE TO PROCESS *CONNECT FILE*.                                COMCIDP  2578
                                                                                                                 COMCIDP  2579
          2016  0305001273 +             ST=CON   ZR     X5,E.LFN    IF EOS ENCOUNTERED                          COMCIDP  2580
                          54551                   SA5    A5+B1                                                   COMCIDP  2581
                               43252              MX2    TB.TOCL                                                 COMCIDP  2582
          2017  11125                             BX1    X2*X5       (X1) = LFN, -L- FMT                         COMCIDP  2583
                     0100004222 +                 RJ     SSY         SEARCH SYMBOL TABLES                        COMCIDP  2584
          2020  0460001301 +                      ZR     B6,E.VAR    IF NO FIND                                  COMCIDP  2585
                          6226000000              SB2    X6+         (B2) = FWA OF FET                           COMCIDP  2586
          2021  0100002447 +                      RJ     CHK         CHECK CM ADDR                               COMCIDP  2587
          2022  0720001264 +                      MI     B2,E.ADDR   IF ADDR IS BAD                              COMCIDP  2588
                          56120                   SA1    B2          (A1,X1) = A+C OF WORD 1 OF FET              COMCIDP  2589
                               76200              SX2    B0          SET TO *CONNECT*                            COMCIDP  2590
          2023  0100002552 +                      RJ     CON         CONNECT/DISCONT FILE                        COMCIDP  2591
                                                                                                                 COMCIDP  2592
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  COMCIDP  2593
                                                  MI     X1,SE.CON   IF *CON* DETECTED ERROR...                  COMCIDP  2594
                                         #OS3     ENDIF                                                          COMCIDP  2595
                                         #UFT     ENDIF                                                          COMCIDP  2596
                                                                                                                 COMCIDP  2597
          2024  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2598
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   121
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=DPC              IDP 
  
                                        *         HERE TO PROCESS *DPC FWA,LWA,LEN*.                             COMCIDP  2600
                                                                                                                 COMCIDP  2601
          2025                           ST=DPC   BSS    0                                                       COMCIDP  2602
          2025  0100003741 +                      RJ     PAT         PARSE *FWA,LWA,LEN* TRIPLE                  COMCIDP  2603
          2026  0720001272 +                      MI     B2,E.FLL    IF FWA, LWA, OR LEN IS BAD                  COMCIDP  2604
                          0100003162 +            RJ     DOD         DUMP CENTRAL MEMORY - OCTAL AND DPC         COMCIDP  2605
          2027  0620001553 +                      PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                       COMCIDP  2606
                          0400001313 +            EQ     SE.FLL                                                  COMCIDP  2607
  
  
  
  
                                        *         HERE TO PROCESS *DISCONT FILE*.                                COMCIDP  2609
                                                                                                                 COMCIDP  2610
          2030  0305001273 +             ST=DSC   ZR     X5,E.LFN    IF EOS ENCOUNTERED                          COMCIDP  2611
                          54551                   SA5    A5+B1                                                   COMCIDP  2612
                               43252              MX2    TB.TOCL                                                 COMCIDP  2613
          2031  11125                             BX1    X2*X5       (X1) = LFN, -L- FMT                         COMCIDP  2614
                     0100004222 +                 RJ     SSY         SEARCH SYMBOL TABLES                        COMCIDP  2615
          2032  0460001301 +                      ZR     B6,E.VAR    IF NO FIND                                  COMCIDP  2616
                          6226000000              SB2    X6+         (B2) = FWA OF FET                           COMCIDP  2617
          2033  0100002447 +                      RJ     CHK         CHECK CM ADDR                               COMCIDP  2618
          2034  0720001264 +                      MI     B2,E.ADDR   IF ADDR IS BAD                              COMCIDP  2619
                          56120                   SA1    B2          (A1,X1) = A+C OF WORD 1 OF FET              COMCIDP  2620
                               66210              SB2    B1          SET TO *DISCONT*                            COMCIDP  2621
          2035  0100002552 +                      RJ     CON         CONNECT/DISCONT FILE                        COMCIDP  2622
                                                                                                                 COMCIDP  2623
                                                  IFEQ   .OS,3,1     IF SCOPE 3                                  COMCIDP  2624
                                                  MI     X1,SE.CON   IF *CON* DETECTED ERROR...                  COMCIDP  2625
                                                                                                                 COMCIDP  2626
          2036  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2627
  
  
  
  
                                        **        HERE TO PROCESS *END*.                                         COMCIDP  2629
                                        *                                                                        COMCIDP  2630
                                        *           1. ISSUE THE FAREWELL PROMPT, *BYE...*, AND FLUSH            COMCIDP  2631
                                        *              THE INTERACTIVE OUTPUT LFN, *F.IDO*.                      COMCIDP  2632
                                        *                                                                        COMCIDP  2633
                                        *           2. DETERMINE WHETHER OR NOT WE NEED TO XEQ SOMETHING         COMCIDP  2634
                                        *              BEFORE RETURNING CONTROL TO THE CALLER.                   COMCIDP  2635
                                        *                                                                        COMCIDP  2636
                                        *              THERE ARE 2 FLAVOURS OF THIS --                           COMCIDP  2637
                                        *                                                                        COMCIDP  2638
                                        *              A. IF THIS IS AN INTERACTIVE BREAK (I.E. NOT AN ASSEMBLED COMCIDP  2639
                                        *                 BREAK), THEN WE MIGHT NEED TO XEQ THE PREVIOUS         COMCIDP  2640
                                        *                 CONTENTS OF THE BREAK ADDR, WHICH WAS SET UP BY *BRK*  COMCIDP  2641
                                        *                 TO BE IN (BC=BRAD).                                    COMCIDP  2642
                                        *                                                                        COMCIDP  2643
                                        *              B. IF *STEP* MODE LEFT US IN THE MIDDLE OF A WORD, THEN   COMCIDP  2644
                                        *                 WE NEED TO FINISH UP THE INSTRUCTIONS IN THAT WORD     COMCIDP  2645
                                        *                 BECAUSE WE CAN NOT START UP THE CPU IN THE MIDDLE      COMCIDP  2646
                                        *                 OF A WORD.                                             COMCIDP  2647
                                        *                                                                        COMCIDP  2648
                                        *              IT SHOULD BE RELATIVELY CLEAR THAT WE MUST FINISH UP ANY  COMCIDP  2649
                                        *              PARTIAL WORDS SO THAT WE CAN TRANSFER CONTROL TO A FORCED COMCIDP  2650
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   122
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=END              IDP 
  
                                        *              UPPER INSTRUCTION.  HOWEVER, IT MAY NOT BE QUITE AS CLEAR COMCIDP  2651
                                        *              WHY WE **MUST** STEP THESE INSTRUCTIONS (AS OPPOSED TO    COMCIDP  2652
                                        *              MERELY NO-OP FILLING A WORD AND XEQING IT).  IDP USED TO  COMCIDP  2653
                                        *              PLAY THE NO-OP FILLING GAME, BUT A NUMBER OF BUGS WERE    COMCIDP  2654
                                        *              DISCOVERED WITH THIS SCHEME...                            COMCIDP  2655
                                        *                                                                        COMCIDP  2656
                                        *              BOTH HAD TO DO WITH THE *RJ* INSTRUCTION.  IT TURNED OUT  COMCIDP  2657
                                        *              THAT UNDER NOT SO UNUSUAL CIRCUMSTANCES, IDP WOULD DO     COMCIDP  2658
                                        *              VERY UGLY THINGS WHEN THIS *FINAL* INSTRUCTION WAS AN     COMCIDP  2659
                                        *              *RJ*.  ERGO...                                            COMCIDP  2660
                                                                                                                 COMCIDP  2661
                                                                                                                 COMCIDP  2662
          2037                           ST=END   BSS    0           ** ENTRY **                                 COMCIDP  2663
          2037  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  2664
                          20114                   LX1    59-IDF.BRFP                                             COMCIDP  2665
          2040  0331002042 +                      MI     X1,ST=END2  IF IN *BRIEF* MODE, NO BYE BYE PROMPT...    COMCIDP  2666
                                                                                                                 COMCIDP  2667
                          7160006503 +            PRIDP  (=C= BYE...=),,L.PRB                                    COMCIDP  2668
                                                                                                                 COMCIDP  2669
          2042  6120000312 +             ST=END2  SB2    F.IDO                                                   COMCIDP  2670
                          0100003312 +            RJ     FOF         FLUSH OUTPUT FILE                           COMCIDP  2671
          2043  6120000000 X                      SB2    =YF.BDO                                                 COMCIDP  2672
                          0100003312 +            RJ     FOF         FLUSH OUTPUT FILE                           COMCIDP  2673
                                                                                                                 COMCIDP  2674
          2044                           ST=END3  BSS    0           ** ENTRY FROM SOME PLACES **                COMCIDP  2675
          2044  5110000650 +                      SA1    IDPXLST                                                 COMCIDP  2676
                          5120000167 +            SA2    BC=BRAD     (X2) = PREVIOUS CONTENTS OF BREAK ADDR      COMCIDP  2677
          2045  13666                             BX6    X6-X6                                                   COMCIDP  2678
                     22701                        LX7    X1                                                      COMCIDP  2679
                          5061000000              SA6    A1+         SET TO *NOT LISTING STEPPED INSTRUCTIONS*   COMCIDP  2680
          2046  5170002055 +                      SA7    ST=ENDA     SAVE ORIGINAL (IDPXLST)                     COMCIDP  2681
                          0312002051 +            NZ     X2,ST=END5  IF WE NEED TO XEQ SOMETHING BEFORE EXITING  COMCIDP  2682
                                                                                                                 COMCIDP  2683
          2047  5110000643 +             ST=END4  SA1    IDPPOS                                                  COMCIDP  2684
                          7261777703              SX6    X1-60D                                                  COMCIDP  2685
          2050  0306002053 +                      ZR     X6,ST=END6  IF WE ARE FORCED UPPER, THEN DONE...        COMCIDP  2686
                          0326402050 +            PL     X6,*+4S15   IF *POS* COUNTER IS BAD...                  COMCIDP  2687
                                                                                                                 COMCIDP  2688
          2051  0100004241 +             ST=END5  RJ     STP         STEP ONE INSTRUCTION                        COMCIDP  2689
          2052  0400002047 +                      EQ     ST=END4                                                 COMCIDP  2690
                                                                                                                 COMCIDP  2691
          2053  5110002055 +             ST=END6  SA1    ST=ENDA     (X1) = SAVED (IDPXLST)                      COMCIDP  2692
                          10611                   BX6    X1                                                      COMCIDP  2693
          2054  5160000650 +                      SA6    IDPXLST     RESTORE (IDPXLST) TO ORIGINAL VALUE         COMCIDP  2694
                          0400001634 +            EQ     IDP=XIT                                                 COMCIDP  2695
                                                                                                                 COMCIDP  2696
                                                                                                                 COMCIDP  2697
          2055                     1     ST=ENDA  BSSZ   1           SAVED (IDPXLST)                             COMCIDP  2698
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   123
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=FRZ              IDP 
  
                                        *         HERE TO PROCESS *FREEZE*.                                      COMCIDP  2700
                                                                                                                 COMCIDP  2701
          2056                           ST=FRZ   BSS    0                                                       COMCIDP  2702
          2056  5110001510 +                      SA1    FW.IFR+/IFR/F.FRZ-RA.ORG                                COMCIDP  2703
                          5120006504 +            SA2    =0LFRZ                                                  COMCIDP  2704
          2057  43352                             MX3    -18                                                     COMCIDP  2705
                     15113                        BX1    -X3*X1      CLEAR OLD LFN                               COMCIDP  2706
                          36612                   IX6    X1+X2       MERGE NEW LFN                               COMCIDP  2707
                               54610              SA6    A1                                                      COMCIDP  2708
          2060  0100003354 +                      RJ     FRZ         FREEZE INTERACTIVE HOST                     COMCIDP  2709
          2061  0100004632 +                      RJ     UFO         USER FREEZE OWNCODE                         COMCIDP  2710
          2062  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2711
  
  
  
  
                                        *         HERE TO PROCESS *JUMP ADDR*.                                   COMCIDP  2713
                                                                                                                 COMCIDP  2714
          2063                           ST=JP    BSS    0                                                       COMCIDP  2715
          2063  0305001553 +                      ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMCIDP  2716
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  COMCIDP  2717
          2064  0303001553 +                      ZR     X3,IDP=MN   IF ADDR IS NULL                             COMCIDP  2718
                          63210                   SB2    X1                                                      COMCIDP  2719
          2065  0100002447 +                      RJ     CHK         CHECK CM ADDRESS                            COMCIDP  2720
          2066  0720001274 +                      MI     B2,E.JP     IF ADDR IS BAD                              COMCIDP  2721
                          5110006505 +            SA1    =46000460004600046000B                                  COMCIDP  2722
          2067  7170000074                        SX7    60                                                      COMCIDP  2723
                          5170000643 +            SA7    IDPPOS                                                  COMCIDP  2724
          2070  76620                             SX6    B2                                                      COMCIDP  2725
                     10711                        BX7    X1                                                      COMCIDP  2726
                          5160000642 +            SA6    IDPPREG                                                 COMCIDP  2727
          2071  5170000167 +                      SA7    BC=BRAD                                                 COMCIDP  2728
                          0400002037 +            EQ     ST=END                                                  COMCIDP  2729
  
  
  
  
                                        **        HERE TO PROCESS *OPTION P1,...PN*.                             COMCIDP  2731
                                                                                                                 COMCIDP  2732
                                                                                                                 COMCIDP  2733
          2072                           ST=OPT   BSS    0           ** ENTRY **                                 COMCIDP  2734
          2072  0305001553 +                      ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMCIDP  2735
                          6160001261 +            SB6    FW.KOPT     (B6) = FWA OF *OPTION* SUBKEYWORD TABLE     COMCIDP  2736
          2073  0100004026 +                      RJ     POL         PROCESS OPTIONS LIST ITEM                   COMCIDP  2737
          2074  56167                             SA1    B6+B7       (X1) = *FOUND* OPTIONS SUBKEYWORD ENTRY     COMCIDP  2738
                     0303002072 +                 ZR     X3,ST=OPT   IF NULL PARAMETER, IGNORE...                COMCIDP  2739
                               63510              SB5    X1          (B5) = OPTIONS PROCESSOR ADDR               COMCIDP  2740
          2075  43001                             MX0    1                                                       COMCIDP  2741
                     5120000454 +                 SA2    IDPFLG                                                  COMCIDP  2742
                               15606              BX6    -X6*X0      (X6) = +0 IF -OPTION, OR 1S59 IF +OPTION    COMCIDP  2743
          2076  0255000000                        JP     B5                                                      COMCIDP  2744
                                                                                                                 COMCIDP  2745
                                                                                                                 COMCIDP  2746
                                        *         HERE IF *OPTION (-)MEM*.                                       COMCIDP  2747
                                                                                                                 COMCIDP  2748
          2077  20057                    ST=OPT2  LX0    IDF.MEMP-59                                             COMCIDP  2749
                     15220                        BX2    -X0*X2      CLEAR OLD *MEM*                             COMCIDP  2750
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   124
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=OPT              IDP 
  
                          20657                   LX6    IDF.MEMP-59                                             COMCIDP  2751
                               12626              BX6    X2+X6       MERGE NEW *MEM*                             COMCIDP  2752
          2100  54620                             SA6    A2                                                      COMCIDP  2753
                     0400002072 +                 EQ     ST=OPT                                                  COMCIDP  2754
                                                                                                                 COMCIDP  2755
                                                                                                                 COMCIDP  2756
                                        *         HERE IF *OPTION (-)XJR*.                                       COMCIDP  2757
                                                                                                                 COMCIDP  2758
          2101  20055                    ST=OPT3  LX0    IDF.XJRP-59                                             COMCIDP  2759
                     15220                        BX2    -X0*X2      CLEAR OLD *XJR*                             COMCIDP  2760
                          20655                   LX6    IDF.XJRP-59                                             COMCIDP  2761
                               12626              BX6    X2+X6       MERGE NEW *XJR*                             COMCIDP  2762
          2102  54620                             SA6    A2                                                      COMCIDP  2763
                     0400002072 +                 EQ     ST=OPT                                                  COMCIDP  2764
  
  
  
  
                                        **        HERE TO PROCESS *OUTPUT I,B*.                                  COMCIDP  2766
                                                                                                                 COMCIDP  2767
          2103  0305001553 +             ST=OUT   ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMCIDP  2768
                          6160001254 +            SB6    IDPKOUT     (B6) = FWA OF *OUTPUT* OPTIONS KEYWORD TBL  COMCIDP  2769
          2104  0100004026 +                      RJ     POL         PROCESS OPTIONS LIST ITEM                   COMCIDP  2770
          2105  56167                             SA1    B6+B7                                                   COMCIDP  2771
                     0303002103 +                 ZR     X3,ST=OUT   IF NULL PARAMETER, IGNORE...                COMCIDP  2772
                               63510              SB5    X1          (B5) = OPTIONS PROCESSOR ADDR               COMCIDP  2773
          2106  43001                             MX0    1                                                       COMCIDP  2774
                     5120000454 +                 SA2    IDPFLG                                                  COMCIDP  2775
                               15606              BX6    -X6*X0      (X6) = +0 IF -OPTION, OR 1S59 IF +OPTION    COMCIDP  2776
          2107  0255000000                        JP     B5+                                                     COMCIDP  2777
                                                                                                                 COMCIDP  2778
                                        *         HERE IF *OUTPUT I* OR *OUTPUT -I*.                             COMCIDP  2779
                                                                                                                 COMCIDP  2780
                                         ST=OUT2  LX0    IDF.IDOP-59                                             COMCIDP  2781
          2110  15220                             BX2    -X0*X2      CLEAR EXISTING FIELD                        COMCIDP  2782
                                                  LX6    IDF.IDOP-59                                             COMCIDP  2783
                     12626                        BX6    X2+X6                                                   COMCIDP  2784
                          54620                   SA6    A2                                                      COMCIDP  2785
          2111  0400002103 +                      EQ     ST=OUT                                                  COMCIDP  2786
                                                                                                                 COMCIDP  2787
                                        *         HERE IF *OUTPUT B* OR *OUTPUT -B*.                             COMCIDP  2788
                                                                                                                 COMCIDP  2789
          2112  20071                    ST=OUT3  LX0    IDF.BDOP-59                                             COMCIDP  2790
                     15220                        BX2    -X0*X2      CLEAR EXISTING FIELD                        COMCIDP  2791
                          20671                   LX6    IDF.BDOP-59                                             COMCIDP  2792
                               12626              BX6    X2+X6                                                   COMCIDP  2793
          2113  54620                             SA6    A2                                                      COMCIDP  2794
                     0400002103 +                 EQ     ST=OUT                                                  COMCIDP  2795
                                                                                                                 COMCIDP  2796
                                        *         HERE IF *OUTPUT BE* OR *OUTPUT -BE*.                           COMCIDP  2797
                                                                                                                 COMCIDP  2798
          2114  20070                    ST=OUT4  LX0    IDF.BKOP-59                                             COMCIDP  2799
                     15220                        BX2    -X0*X2      CLEAR EXISTING FIELD                        COMCIDP  2800
                          20670                   LX6    IDF.BKOP-59                                             COMCIDP  2801
                               12626              BX6    X2+X6       MERGE NEW BKO                               COMCIDP  2802
          2115  54620                             SA6    A2                                                      COMCIDP  2803
                     0400002103 +                 EQ     ST=OUT                                                  COMCIDP  2804
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   125
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=OUT              IDP 
  
                                                                                                                 COMCIDP  2805
                                        *         HERE IF *OUTPUT IE* OR *OUTPUT -IE*.                           COMCIDP  2806
                                                                                                                 COMCIDP  2807
          2116  20073                    ST=OUT5  LX0    IDF.IKOP-59                                             COMCIDP  2808
                     15220                        BX2    -X0*X2      CLEAR EXISTING FIELD                        COMCIDP  2809
                          20673                   LX6    IDF.IKOP-59                                             COMCIDP  2810
                               12626              BX6    X2+X6       MERGE NEW IKO                               COMCIDP  2811
          2117  54620                             SA6    A2                                                      COMCIDP  2812
                     0400002103 +                 EQ     ST=OUT                                                  COMCIDP  2813
  
  
  
  
                                        *         HERE TO PROCESS *REG R1,R2,...,RN*.                            COMCIDP  2815
                                                                                                                 COMCIDP  2816
          2120                           ST=REG   BSS    0                                                       COMCIDP  2817
          2120  54050                             SA0    A5          INITIALIZE (A0) = ADDR OF CURRENT TOKEN     COMCIDP  2818
                     0315002123 +                 NZ     X5,ST=REG2  IF *REG* NOT FOLLOWED BY EOS                COMCIDP  2819
          2121  0100002644 +                      RJ     DAR         DUMP ALL REGISTERS                          COMCIDP  2820
          2122  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2821
                                                                                                                 COMCIDP  2822
                                        *         HERE FOR SELECTED REGISTER DUMP.                               COMCIDP  2823
                                                                                                                 COMCIDP  2824
          2123  54001                    ST=REG2  SA0    A0+B1                                                   COMCIDP  2825
                     54500                        SA5    A0                                                      COMCIDP  2826
                          0305001553 +            ZR     X5,IDP=MN   IF AN EOS ENCOUNTERED                       COMCIDP  2827
                                                                                                                 COMCIDP  2828
          2124  7265777760                        SX6    X5-O.COM                                                COMCIDP  2829
                          7275777774              SX7    X5-O.CONS                                               COMCIDP  2830
          2125  5140000637 +                      SA4    IDP0TR                                                  COMCIDP  2831
                          0306002123 +            ZR     X6,ST=REG2  IF COMMA TOKEN                              COMCIDP  2832
          2126  0307002131 +                      ZR     X7,ST=REG3  IF CONSTANT TOKEN                           COMCIDP  2833
                          7265777773              SX6    X5-O.REG                                                COMCIDP  2834
          2127  0316001275 +                      NZ     X6,E.REG    IF NOT *REG* TOKEN, ERROR...                COMCIDP  2835
                                                                                                                 COMCIDP  2836
                                        *         HERE IF A *REG* TOKEN ENCOUNTERED.                             COMCIDP  2837
                                                                                                                 COMCIDP  2838
                          20552                   LX5    0-TB.0TRP                                               COMCIDP  2839
                               63450              SB4    X5          (B4) = 0TR                                  COMCIDP  2840
          2130  0400002136 +                      EQ     ST=REG4                                                 COMCIDP  2841
                                                                                                                 COMCIDP  2842
                                        *         HERE IF A *CONS* TOKEN ENCOUNTERED.                            COMCIDP  2843
                                                                                                                 COMCIDP  2844
                                                                                                                 COMCIDP  2845
          2131  20506                    ST=REG3  LX5    CHAR                                                    COMCIDP  2846
                     43066                        MX0    -CHAR                                                   COMCIDP  2847
                          15650                   BX6    -X0*X5                                                  COMCIDP  2848
                               43110              MX1    1R7-1R0+1                                               COMCIDP  2849
          2132  20141                             LX1    -1R0        (X1) = (0-7) SHIFT MASK                     COMCIDP  2850
                     63360                        SB3    X6          (B3) = REGISTER NR (0-7)                    COMCIDP  2851
                          22731                   LX7    X1,B3                                                   COMCIDP  2852
                               20536              LX5    5*CHAR                                                  COMCIDP  2853
          2133  0327001275 +                      PL     X7,E.REG    IF NOT (0-7), ERROR...                      COMCIDP  2854
                          43036                   MX0    -5*CHAR                                                 COMCIDP  2855
                               15750              BX7    -X0*X5                                                  COMCIDP  2856
          2134  0317001275 +                      NZ     X7,E.REG    IF REST OF CHARS NON-ZERO, NOT A REGISTER   COMCIDP  2857
                          6163777744              SB6    B3-1R0      (B6) = REGISTER NR IN BINARY                COMCIDP  2858
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   126
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=REG              IDP 
  
          2135  43071                             MX0    60-3                                                    COMCIDP  2859
                     11704                        BX7    X0*X4       STRIP OLD REGISTER NR                       COMCIDP  2860
                          63476                   SB4    X7+B6       (B4) = NEW 0TR                              COMCIDP  2861
                                                                                                                 COMCIDP  2862
          2136  76640                    ST=REG4  SX6    B4                                                      COMCIDP  2863
                     5160000637 +                 SA6    IDP0TR                                                  COMCIDP  2864
          2137  6170000020                        SB7    020B                                                    COMCIDP  2865
                          0647002142 +            GE     B4,B7,ST=REG5     IF DUMPING X REGISTER                 COMCIDP  2866
          2140  0100002637 +                      RJ     DAB         DUMP -A- OR -B- REGISTER                    COMCIDP  2867
          2141  0400002123 +                      EQ     ST=REG2                                                 COMCIDP  2868
                                                                                                                 COMCIDP  2869
          2142  0100003213 +             ST=REG5  RJ     DUX         DUMP -X- REGISTER                           COMCIDP  2870
          2143  0400002123 +                      EQ     ST=REG2                                                 COMCIDP  2871
  
  
  
  
                                        **        HERE TO PROCESS *REL*.                                         COMCIDP  2873
                                                                                                                 COMCIDP  2874
                                                                                                                 COMCIDP  2875
          2144                           ST=REL   BSS    0           ** ENTRY **                                 COMCIDP  2876
          2144  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  2877
                          43201                   MX2    1                                                       COMCIDP  2878
                               20264              LX2    IDF.ADRP-59                                             COMCIDP  2879
          2145  12612                             BX6    X1+X2       SET *ADR*                                   COMCIDP  2880
                     54610                        SA6    A1                                                      COMCIDP  2881
                          0400001553 +            EQ     IDP=MN                                                  COMCIDP  2882
  
  
  
  
                                        *         HERE TO PROCESS *SET NAME,ADDR*.                               COMCIDP  2884
                                                                                                                 COMCIDP  2885
          2146  0305002160 +             ST=SET   ZR     X5,ST=SET3  IF EOS ENCOUNTERED                          COMCIDP  2886
                          54551                   SA5    A5+B1       (X5) = 42/0LNAME,18/O.VAR                   COMCIDP  2887
          2147  7265777775                        SX6    X5-O.VAR                                                COMCIDP  2888
                          0316001276 +            NZ     X6,E.SET    IF NOT A NAME TOKEN                         COMCIDP  2889
          2150  43052                             MX0    7*CHAR                                                  COMCIDP  2890
                     11705                        BX7    X0*X5                                                   COMCIDP  2891
                          5170000640 +            SA7    IDPNAM      SAVE 0LNAME                                 COMCIDP  2892
          2151  54551                             SA5    A5+B1                                                   COMCIDP  2893
                     0100003603 +                 RJ     PAS         PARSE SUBEXPRESSION -- ADDR                 COMCIDP  2894
          2152  43052                             MX0    7*CHAR                                                  COMCIDP  2895
                     6160001400 +                 SB6    IDPSET      (B6) = FWA OF *SET* TABLE                   COMCIDP  2896
                               15410              BX4    -X0*X1      (X4) = 42/0,18/VALUE OF *NAME*              COMCIDP  2897
          2153  5110000640 +                      SA1    IDPNAM                                                  COMCIDP  2898
                          0100004157 +            RJ     SKT         SEARCH *SET* TABLE FOR NAME                 COMCIDP  2899
          2154  36614                             IX6    X1+X4       (X6) = 42/0LNAME, 18/VALUE OF NAME          COMCIDP  2900
                     0302002156 +                 ZR     X2,ST=SET2  IF NO FIND                                  COMCIDP  2901
                               54620              SA6    A2                                                      COMCIDP  2902
          2155  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2903
                                                                                                                 COMCIDP  2904
          2156  0100002352 +             ST=SET2  RJ     ADZ         ADD A WORD TO IDP TABLE                     COMCIDP  2905
          2157  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2906
                                                                                                                 COMCIDP  2907
                                        *         HERE TO LIST *SET* TABLE.                                      COMCIDP  2908
                                                                                                                 COMCIDP  2909
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   127
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=SET              IDP 
  
          2160  5150001400 +             ST=SET3  SA5    IDPSET                                                  COMCIDP  2910
                          0100003547 +            RJ     LST         LIST SET TABLE                              COMCIDP  2911
          2161  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2912
  
  
  
  
                                        *         HERE TO PROCESS *SNAP FWA,LWA,LEN*.                            COMCIDP  2914
                                                                                                                 COMCIDP  2915
          2162                           ST=SNP   BSS    0                                                       COMCIDP  2916
          2162  0100003741 +                      RJ     PAT         PARSE *FWA,LWA,LEN* TRIPLE                  COMCIDP  2917
          2163  0720001272 +                      MI     B2,E.FLL    IF FWA, LWA, OR LEN IS BAD                  COMCIDP  2918
                          0100003132 +            RJ     DCM         DUMP CENTRAL MEMORY                         COMCIDP  2919
          2164  0620001553 +                      PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                       COMCIDP  2920
                          0400001313 +            EQ     SE.FLL                                                  COMCIDP  2921
  
  
  
  
                                        **        HERE TO PROCESS *STATUS*.                                      COMCIDP  2923
                                                                                                                 COMCIDP  2924
          2165                           ST=STA   BSS    0           ** ENTRY **                                 COMCIDP  2925
          2165  5130000454 +                      SA3    IDPFLG                                                  COMCIDP  2926
                          5120002174 +            SA2    ST=STAA     (X2) = 10L_ IN IDP                          COMCIDP  2927
          2166  20314                             LX3    59-IDF.BRFP                                             COMCIDP  2928
                     10622                        BX6    X2                                                      COMCIDP  2929
                          6170000607 +            SB7    SNAPLNE     (B7) = FWA OF OUTPUT LINE IMAGE AREA        COMCIDP  2930
          2167  54121                             SA1    A2+B1       (X1) = 10L_, *BRIEF*                        COMCIDP  2931
                     56670                        SA6    B7                                                      COMCIDP  2932
                          0323002171 +            PL     X3,ST=STA2  IF NOT IN *BRIEF* MODE                      COMCIDP  2933
          2170  0100005031 +                      RJ     =XMCS       MERGE CODED STRINGS                         COMCIDP  2934
                                                                                                                 COMCIDP  2935
          2171  13666                    ST=STA2  BX6    X6-X6                                                   COMCIDP  2936
                     56671                        SA6    B7+B1       MARK EOL                                    COMCIDP  2937
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  2938
          2173  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2939
                                                                                                                 COMCIDP  2940
                                                                                                                 COMCIDP  2941
          2174  55111655110420000000     ST=STAA  DATA   L. IN IDP.                                              COMCIDP  2942
          2175  56554702221105064700              DATA   L., *BRIEF*.                                            COMCIDP  2943
  
  
  
  
                                        *         HERE TO PROCESS *STORE ADDR,C1,C2,C3,C4*.                      COMCIDP  2945
                                                                                                                 COMCIDP  2946
          2176                           ST=STO   BSS    0                                                       COMCIDP  2947
          2176  0305001277 +                      ZR     X5,E.STO    IF EOS ENCOUNTERED                          COMCIDP  2948
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION -- ADDR TO STORE        COMCIDP  2949
          2177  0303001277 +                      ZR     X3,E.STO    IF 1ST EXPRESSION *ADDR* IS NULL            COMCIDP  2950
                          73610                   SX6    X1                                                      COMCIDP  2951
                               63210              SB2    X1                                                      COMCIDP  2952
          2200  5160000631 +                      SA6    IDPSTA      SAVE STORE ADDR                             COMCIDP  2953
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS -- STORE ADDR              COMCIDP  2954
          2201  0720001277 +                      MI     B2,E.STO    IF ADDR IS BAD                              COMCIDP  2955
                          43600                   MX6    0                                                       COMCIDP  2956
                               54661              SA6    A6+B1       CLEAR (IDPSTC) = NEW VALUE TO STORE         COMCIDP  2957
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   128
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=STO              IDP 
  
          2202  54661                             SA6    A6+B1       CLEAR (IDPSTM) = NULL PARAMETER MASK        COMCIDP  2958
                     0305002210 +                 ZR     X5,ST=STO4  IF STORE ADDR FOLLOWED BY EOS               COMCIDP  2959
                                                                                                                 COMCIDP  2960
          2203  0100003603 +             ST=STO2  RJ     PAS         PARSE SUBEXPRESSION -- C-N-                 COMCIDP  2961
          2204  5120000632 +                      SA2    IDPSTC      (X2) = CURRENT VALUE TO BE STORED           COMCIDP  2962
                          54421                   SA4    A2+B1       (X4) = CURRENT NULL PARAMETER MASK          COMCIDP  2963
                               43055              MX0    -15                                                     COMCIDP  2964
          2205  20217                             LX2    15                                                      COMCIDP  2965
                     20417                        LX4    15                                                      COMCIDP  2966
                          12621                   BX6    X2+X1                                                   COMCIDP  2967
                               22704              LX7    X4                                                      COMCIDP  2968
          2206  54620                             SA6    A2                                                      COMCIDP  2969
                     0313002207 +                 NZ     X3,ST=STO3  IF C-N- NOT NULL                            COMCIDP  2970
                               16740              BX7    -X0+X4                                                  COMCIDP  2971
                                                                                                                 COMCIDP  2972
          2207  54740                    ST=STO3  SA7    A4                                                      COMCIDP  2973
                     0315002203 +                 NZ     X5,ST=STO2  IF NOT FINISHED ASSEMBLING STORE VALUE      COMCIDP  2974
                                                                                                                 COMCIDP  2975
                                        *         HERE IF FINISHED ASSEMBLING STORE VALUE.                       COMCIDP  2976
                                                                                                                 COMCIDP  2977
          2210  5110000631 +             ST=STO4  SA1    IDPSTA      (X1) = STORE ADDR                           COMCIDP  2978
                          54211                   SA2    A1+B1       (X2) = NEW ASSEMBLED STORE VALUE            COMCIDP  2979
                               54321              SA3    A2+B1       (X3) = NULL PARAMETER MASK                  COMCIDP  2980
          2211  53110                             SA1    X1          (X1) = OLD CONTENTS OF STORE ADDR           COMCIDP  2981
                     11631                        BX6    X3*X1                                                   COMCIDP  2982
                          12726                   BX7    X2+X6       (X7) = NEW CONTENTS OF STORE ADDR           COMCIDP  2983
                               54710              SA7    A1          NEW REPLACES OLD                            COMCIDP  2984
          2212  54720                             SA7    A2                                                      COMCIDP  2985
                     0100005643 +                 RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--OLD  COMCIDP  2986
          2213  5160000661 +                      SA6    IDPMSG4+1                                               COMCIDP  2987
                          54761                   SA7    A6+B1                                                   COMCIDP  2988
          2214  5110000632 +                      SA1    IDPSTC      (X1) = NEW CONTENTS OF STORE ADDR           COMCIDP  2989
                          0100005643 +            RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--NEW  COMCIDP  2990
          2215  5160000665 +                      SA6    IDPMSG5+1                                               COMCIDP  2991
                          54761                   SA7    A6+B1                                                   COMCIDP  2992
          2216  7160000660 +                      PRIDP  IDPMSG4,4                                               COMCIDP  2993
          2220  7160000664 +                      PRIDP  IDPMSG5,4                                               COMCIDP  2994
          2222  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  2995
  
  
  
  
                                        *         HERE TO PROCESS *STEP L,RJ*,                                   COMCIDP  2997
                                        *                      OR *STPL ADDR1,L,RJ* FORM,                        COMCIDP  2998
                                        *                      OR *STEQ ADDR1,ADDR2,L,RJ* FORM.                  COMCIDP  2999
                                                                                                                 COMCIDP  3000
          2223                           ST=STP   BSS    0           ** ENTRY **                                 COMCIDP  3001
          2223  43263                             MX2    -KW.XATL                                                COMCIDP  3002
                     20141                        LX1    0-KW.XATP                                               COMCIDP  3003
                          15612                   BX6    -X2*X1      (X6) = STEP TYPE CODE (XTC)                 COMCIDP  3004
          2224  5160000652 +                      SA6    IDPXTC                                                  COMCIDP  3005
                          0306002240 +            ZR     X6,ST=STP5  IF *STEP L,RJ* FORM                         COMCIDP  3006
          2225  0305002227 +                      ZR     X5,ST=STP1  IF EOS ENCOUNTERED                          COMCIDP  3007
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                 COMCIDP  3008
          2226  0313002230 +                      NZ     X3,ST=STP2  IF ADDR1 NOT NULL                           COMCIDP  3009
                                                                                                                 COMCIDP  3010
          2227  7110000000               ST=STP1  SX1    0           (X1) = DEFAULT ADDR1                        COMCIDP  3011
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   129
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=STP              IDP 
  
                                                                                                                 COMCIDP  3012
          2230  63210                    ST=STP2  SB2    X1                                                      COMCIDP  3013
                     0100002447 +                 RJ     CHK         CHECK CM ADDRESS                            COMCIDP  3014
          2231  0720001270 +                      MI     B2,E.BRA1   IF ADDR1 IS BAD                             COMCIDP  3015
                          76620                   SX6    B2                                                      COMCIDP  3016
                               43300              MX3    0                                                       COMCIDP  3017
          2232  5160000645 +                      SA6    IDPXA1                                                  COMCIDP  3018
                          5120000652 +            SA2    IDPXTC                                                  COMCIDP  3019
          2233  7272777772                        SX7    X2-XTC.EQ                                               COMCIDP  3020
                          0337002235 +            MI     X7,ST=STP3  IF THIS IS *STPL ADDR1,L,RJ* FORM           COMCIDP  3021
                                                                                                                 COMCIDP  3022
                                        *         ASSEMBLE ADDR2.                                                COMCIDP  3023
                                                                                                                 COMCIDP  3024
          2234  0305002235 +                      ZR     X5,ST=STP3  IF ADDR1 FOLLOWED BY EOS                    COMCIDP  3025
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                 COMCIDP  3026
                                                                                                                 COMCIDP  3027
          2235  0313002236 +             ST=STP3  NZ     X3,ST=STP4  IF ADDR2 NOT NULL                           COMCIDP  3028
                          5110000645 +            SA1    IDPXA1      (X1) = DEFAULT ADDR2                        COMCIDP  3029
                                                                                                                 COMCIDP  3030
          2236  63210                    ST=STP4  SB2    X1                                                      COMCIDP  3031
                     76620                        SX6    B2                                                      COMCIDP  3032
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS                            COMCIDP  3033
          2237  0720001271 +                      MI     B2,E.BRA2   IF ADDR2 IS BAD                             COMCIDP  3034
                          5160000646 +            SA6    IDPXA2                                                  COMCIDP  3035
                                                                                                                 COMCIDP  3036
                                        *         HERE TO PROCESS *L,RJ* OPTIONS LIST.                           COMCIDP  3037
                                                                                                                 COMCIDP  3038
          2240  0305002244 +             ST=STP5  ZR     X5,ST=STP6  IF EOS ENCOUNTERED                          COMCIDP  3039
                          6160001251 +            SB6    IDPKSTO     (B6) = FWA OF STEP OPTIONS KEYWORD TABLE    COMCIDP  3040
          2241  0100004026 +                      RJ     POL         PROCESS OPTIONS LIST                        COMCIDP  3041
          2242  0303002240 +                      ZR     X3,ST=STP5  IF NULL PARAMETER                           COMCIDP  3042
                          5177000653 +            SA7    IDPXOP+B7                                               COMCIDP  3043
          2243  0400002240 +                      EQ     ST=STP5                                                 COMCIDP  3044
                                                                                                                 COMCIDP  3045
                                        *         HERE TO SET UP FOR ACTUAL STEP.                                COMCIDP  3046
                                                                                                                 COMCIDP  3047
          2244  5110000652 +             ST=STP6  SA1    IDPXTC                                                  COMCIDP  3048
                          5120000646 +            SA2    IDPXA2                                                  COMCIDP  3049
          2245  43600                             MX6    0                                                       COMCIDP  3050
                     7231777763                   SX3    X1-XTC.NR                                               COMCIDP  3051
                               10722              BX7    X2                                                      COMCIDP  3052
          2246  5160000651 +                      SA6    IDPXRJ      SET TO *AT LEVEL 0 NOW*                     COMCIDP  3053
                          0313002250 +            NZ     X3,ST=STP7  IF NOT *STNR NR,L,RJ*                       COMCIDP  3054
          2247  5170000645 +                      SA7    IDPXA1      (RE)SET STEP COUNT                          COMCIDP  3055
                                                                                                                 COMCIDP  3056
          2250  5110000653 +             ST=STP7  SA1    IDPXOL      (X1) = /L/ OPTION FLAG                      COMCIDP  3057
                          54211                   SA2    A1+B1       (X2) = /RJ/ OPTION FLAG                     COMCIDP  3058
                               76610              SX6    B1          SET TO *LIST ON*                            COMCIDP  3059
          2251  5130000651 +                      SA3    IDPXRJ                                                  COMCIDP  3060
                          0312002253 +            NZ     X2,ST=STP7A IF /RJ/ TRACING ON                          COMCIDP  3061
          2252  0303002253 +                      ZR     X3,ST=STP7A IF AT LEVEL 0 (I.E. NO ACTIVE *RJ*)         COMCIDP  3062
                          76600                   SX6    B0          SET TO *LIST OFF*                           COMCIDP  3063
                                                                                                                 COMCIDP  3064
          2253  11761                    ST=STP7A BX7    X6*X1                                                   COMCIDP  3065
                     5170000650 +                 SA7    IDPXLST                                                 COMCIDP  3066
                                                                                                                 COMCIDP  3067
                                        *         HERE TO CHECK STEP CONDITIONS.                                 COMCIDP  3068
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   130
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=STP              IDP 
  
                                                                                                                 COMCIDP  3069
          2254  5130000652 +             ST=STP8  SA3    IDPXTC      (X3) = STEP TYPE CODE                       COMCIDP  3070
                          5110000645 +            SA1    IDPXA1      (X1) = A1                                   COMCIDP  3071
          2255  54211                             SA2    A1+B1       (X2) = A2                                   COMCIDP  3072
                     63530                        SB5    X3                                                      COMCIDP  3073
                          7263777763              SX6    X3-XTC.NR                                               COMCIDP  3074
          2256  7203777762                        SX0    X3-XTC.AR                                               COMCIDP  3075
                          7273777764              SX7    X3-XTC.RNG                                              COMCIDP  3076
          2257  0303002263 +                      ZR     X3,ST=STP9  IF *STEP L,RJ*                              COMCIDP  3077
                          0306002275 +            ZR     X6,ST=STP10 IF *STNR NR,L,RJ*                           COMCIDP  3078
          2260  0300002263 +                      ZR     X0,ST=STP9  IF *STAR ADDR1,ADDR2,L,RJ*                  COMCIDP  3079
                          0307002302 +            ZR     X7,ST=STP12 IF *STRANGE ADDR1,ADDR2,L,RJ*               COMCIDP  3080
                                                                                                                 COMCIDP  3081
          2261  53110                             SA1    X1          (X1) = C1                                   COMCIDP  3082
                     53220                        SA2    X2          (X2) = C2                                   COMCIDP  3083
                          0100002426 +            RJ     CBC         CHECK STEP CONDITION                        COMCIDP  3084
          2262  0460001553 +                      ZR     B6,IDP=MN   IF CONDITION NOT SATISFIED                  COMCIDP  3085
                                                                                                                 COMCIDP  3086
          2263  0100004241 +             ST=STP9  RJ     STP         STEP ONE INSTRUCTION                        COMCIDP  3087
          2264  5110000652 +                      SA1    IDPXTC                                                  COMCIDP  3088
                          5120000651 +            SA2    IDPXRJ                                                  COMCIDP  3089
          2265  5130000654 +                      SA3    IDPXORJ                                                 COMCIDP  3090
                          7261777762              SX6    X1-XTC.AR                                               COMCIDP  3091
          2266  0306002271 +                      ZR     X6,ST=STP9A IF *STAR ADDR1,ADDR2,L,RJ*                  COMCIDP  3092
                          0311002250 +            NZ     X1,ST=STP7  IF NOT *STEP L,RJ*                          COMCIDP  3093
                                                                                                                 COMCIDP  3094
                                        *         HERE IF *STEP L,RJ*.                                           COMCIDP  3095
                                                                                                                 COMCIDP  3096
          2267  0313001553 +                      NZ     X3,IDP=MN   IF /RJ/ SELECTED                            COMCIDP  3097
                          0302001553 +            ZR     X2,IDP=MN   IF AT LEVEL 0                               COMCIDP  3098
          2270  0400002250 +                      EQ     ST=STP7                                                 COMCIDP  3099
                                                                                                                 COMCIDP  3100
                                        *         HERE TO PROCESS *STAR ADDR1,ADDR2,L,RJ*.                       COMCIDP  3101
                                                                                                                 COMCIDP  3102
          2271  5110000644 +             ST=STP9A SA1    IDPXAR                                                  COMCIDP  3103
                          5120000645 +            SA2    IDPXA1                                                  COMCIDP  3104
          2272  5130000646 +                      SA3    IDPXA2                                                  COMCIDP  3105
                          0331002250 +            MI     X1,ST=STP7  IF NO ADDR REF                              COMCIDP  3106
          2273  37612                             IX6    X1-X2                                                   COMCIDP  3107
                     37731                        IX7    X3-X1                                                   COMCIDP  3108
                          0336002250 +            MI     X6,ST=STP7  IF ADDR BELOW LOWER LIMIT                   COMCIDP  3109
          2274  0337002250 +                      MI     X7,ST=STP7  IF ADDR ABOVE UPPER LIMIT                   COMCIDP  3110
                          0400001553 +            EQ     IDP=MN                                                  COMCIDP  3111
                                                                                                                 COMCIDP  3112
                                        *         HERE TO PROCESS *STNR NR,L,RJ*.                                COMCIDP  3113
                                                                                                                 COMCIDP  3114
          2275  5120000654 +             ST=STP10 SA2    IDPXORJ                                                 COMCIDP  3115
                          5130000651 +            SA3    IDPXRJ                                                  COMCIDP  3116
          2276  7261777776                        SX6    X1-1                                                    COMCIDP  3117
                          0312002300 +            NZ     X2,ST=STP11 IF /RJ/ SELECTED                            COMCIDP  3118
          2277  0313002263 +                      NZ     X3,ST=STP9  IF NOT AT LEVEL 0                           COMCIDP  3119
                                                                                                                 COMCIDP  3120
          2300  0336001553 +             ST=STP11 MI     X6,IDP=MN   IF NO MORE INSTRUCTIONS TO STEP             COMCIDP  3121
                          54610                   SA6    A1                                                      COMCIDP  3122
          2301  0400002263 +                      EQ     ST=STP9                                                 COMCIDP  3123
                                                                                                                 COMCIDP  3124
                                        *         HERE TO PROCESS *STRANGE ADDR1,ADDR2,L,RJ*.                    COMCIDP  3125
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   131
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=STP              IDP 
  
                                                                                                                 COMCIDP  3126
          2302  5140000642 +             ST=STP12 SA4    IDPPREG                                                 COMCIDP  3127
                          37641                   IX6    X4-X1                                                   COMCIDP  3128
                               37724              IX7    X2-X4                                                   COMCIDP  3129
          2303  0336001553 +                      MI     X6,IDP=MN   IF P BELOW LOWER RANGE                      COMCIDP  3130
                          0337001553 +            MI     X7,IDP=MN   IF P ABOVE UPPER RANGE                      COMCIDP  3131
          2304  0400002263 +                      EQ     ST=STP9                                                 COMCIDP  3132
  
  
  
  
                                        **        HERE TO PROCESS *TIME*.                                        COMCIDP  3134
                                                                                                                 COMCIDP  3135
          2305                           ST=TIM   BSS    0           ** ENTRY **                                 COMCIDP  3136
          2305  7160241115                        CLOCK  SNAPLNE                                                 COMCIDP  3137
          2310  13666                             BX6    X6-X6                                                   COMCIDP  3138
                     5160000610 +                 SA6    SNAPLNE+1   MARK EOL                                    COMCIDP  3139
          2311  7160000607 +                      PRIDP  SNAPLNE,2                                               COMCIDP  3140
          2313  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  3141
  
  
  
  
                                        *         HERE TO PROCESS *UNBREAK ADDR1,...,ADDRN*.                     COMCIDP  3143
                                                                                                                 COMCIDP  3144
          2314                           ST=UBK   BSS    0                                                       COMCIDP  3145
          2314  0305001553 +                      ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMCIDP  3146
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  COMCIDP  3147
          2315  0303002314 +                      ZR     X3,ST=UBK   IF ADDR IS NULL                             COMCIDP  3148
                          63260                   SB2    X6          (B2) = ADDR OF BREAK TO UNBREAK             COMCIDP  3149
                               63360              SB3    X6                                                      COMCIDP  3150
          2316  0100004620 +                      RJ     UBK         UNBREAK A BREAK                             COMCIDP  3151
          2317  0400002314 +                      EQ     ST=UBK      CONTINUE...                                 COMCIDP  3152
  
  
  
  
                                        *         HERE TO PROCESS *UNSET NAME1,...,NAMEN*.                       COMCIDP  3154
                                                                                                                 COMCIDP  3155
          2320                           ST=UST   BSS    0                                                       COMCIDP  3156
                                                                                                                 COMCIDP  3157
          2320  0305001553 +             ST=UST2  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMCIDP  3158
                          54551                   SA5    A5+B1                                                   COMCIDP  3159
                               46000              NO                                                             COMCIDP  3160
          2321  7265777775                        SX6    X5-O.VAR                                                COMCIDP  3161
                          0316002320 +            NZ     X6,ST=UST2  IF NOT A NAME TOKEN                         COMCIDP  3162
          2322  6160001400 +                      SB6    IDPSET                                                  COMCIDP  3163
                          43052                   MX0    7*CHAR                                                  COMCIDP  3164
                               10155              BX1    X5                                                      COMCIDP  3165
          2323  0100004157 +                      RJ     SKT         SEARCH FOR NAME                             COMCIDP  3166
          2324  0302002320 +                      ZR     X2,ST=UST2  IF NO FIND                                  COMCIDP  3167
                          77601                   SX6    -B1                                                     COMCIDP  3168
                               54620              SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*            COMCIDP  3169
          2325  0400002320 +                      EQ     ST=UST2                                                 COMCIDP  3170
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   132
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=WHR              IDP 
  
                                        *         HERE TO PROCESS *WHERE ADDR1,...,ADDRN*.                       COMCIDP  3172
                                                                                                                 COMCIDP  3173
          2326                           ST=WHR   BSS    0                                                       COMCIDP  3174
          2326  0305002331 +                      ZR     X5,ST=WHR2A IF EOS ENCOUNTERED                          COMCIDP  3175
                                                                                                                 COMCIDP  3176
          2327  0100003603 +             ST=WHR2  RJ     PAS         PARSE SUBEXPRESSION                         COMCIDP  3177
          2330  0313002332 +                      NZ     X3,ST=WHR3  IF ADDR NOT NULL                            COMCIDP  3178
                                                                                                                 COMCIDP  3179
          2331  5110000642 +             ST=WHR2A SA1    IDPPREG                                                 COMCIDP  3180
                                                                                                                 COMCIDP  3181
          2332  43052                    ST=WHR3  MX0    -18                                                     COMCIDP  3182
                     15110                        BX1    -X0*X1                                                  COMCIDP  3183
                          22001                   LX0    X1          SAVE (X1) = ADDR                            COMCIDP  3184
          2333  0100005002 +                      RJ     COD         CONVERT BINARY TO OCTAL DPC                 COMCIDP  3185
          2334  20622                             LX6    9*CHAR-6*CHAR                                           COMCIDP  3186
                     10100                        BX1    X0                                                      COMCIDP  3187
                          5160000607 +            SA6    SNAPLNE                                                 COMCIDP  3188
                                                                                                                 COMCIDP  3189
          2335  0100003320 +                      RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  3190
          2336  54661                             SA6    A6+B1                                                   COMCIDP  3191
                     54761                        SA7    A6+B1                                                   COMCIDP  3192
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  3193
          2340  0315002327 +                      NZ     X5,ST=WHR2  IF NOT EOS TOKEN                            COMCIDP  3194
                          0400001553 +            EQ     IDP=MN                                                  COMCIDP  3195
  
  
  
  
                                        *         HERE TO PROCESS *XEQ*.                                         COMCIDP  3197
                                                                                                                 COMCIDP  3198
                                2244 +   ST=XEQ   =      ST=STP6                                                 COMCIDP  3199
  
  
  
  
                                        *         HERE TO PROCESS *XFER NR*.                                     COMCIDP  3201
                                                                                                                 COMCIDP  3202
          2341  0305002343 +             ST=XFR   ZR     X5,ST=XFR1  IF EOS ENCOUNTERED                          COMCIDP  3203
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION -- NR                   COMCIDP  3204
          2342  0313002344 +                      NZ     X3,ST=XFR2  IF NR NOT NULL                              COMCIDP  3205
                                                                                                                 COMCIDP  3206
          2343  7160000004               ST=XFR1  SX6    L.XFT       (X6) = DEFAULT NR = ALL ENTRIES             COMCIDP  3207
                                                                                                                 COMCIDP  3208
          2344  0100003562 +             ST=XFR2  RJ     LXT         LIST XFER TABLE                             COMCIDP  3209
          2345  0400001553 +                      EQ     IDP=MN                                                  COMCIDP  3210
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   133
        IDP 1.1/THE STATEMENT PROCESSORS.                             ST=XNR              IDP 
  
                                        *         HERE TO PROCESS *STNR,NR,L,RJ*.                                COMCIDP  3212
                                                                                                                 COMCIDP  3213
          2346  7160000014               ST=XNR   SX6    XTC.NR                                                  COMCIDP  3214
                          5160000652 +            SA6    IDPXTC                                                  COMCIDP  3215
          2347  0305002240 +                      ZR     X5,ST=STP5  IF EOS ENCOUNTERED                          COMCIDP  3216
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION-- NR                    COMCIDP  3217
          2350  0303002240 +                      ZR     X3,ST=STP5  IF NR IS NULL                               COMCIDP  3218
                          5160000645 +            SA6    IDPXA1                                                  COMCIDP  3219
          2351  5160000646 +                      SA6    IDPXA2                                                  COMCIDP  3220
                          0400002240 +            EQ     ST=STP5     REJOIN NORMAL STEP PROCESSING FLOW...       COMCIDP  3221
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   134
        IDP 1.1/SUPPORTING SUBROUTINES.                               ADZ                 IDP 
  
                                        **        ADZ - ADD A WORD TO IDP TABLE.                                 COMCIDP  3224
                                        *                                                                        COMCIDP  3225
                                        *                                                                        COMCIDP  3226
                                        *                THIS ROUTINE WILL ADD A SINGLE WORD TO AN IDP FIXED     COMCIDP  3227
                                        *         LENGTH TABLE THAT IS TERMINATED BY A ZERO WORD, AND WHERE      COMCIDP  3228
                                        *         AN AVAILABLE SPACE IS MARKED BY A -1.                          COMCIDP  3229
                                        *                                                                        COMCIDP  3230
                                        *         ENTRY  (X6)   =  WORD TO BE ADDED TO TABLE                     COMCIDP  3231
                                        *                (B6)   =  FWA OF TABLE                                  COMCIDP  3232
                                        *                                                                        COMCIDP  3233
                                        *         EXIT   TO *SE.TOV* IF TABLE OVERFLOW                           COMCIDP  3234
                                        *                (X1)   =  -1 IF ENTRY ALREADY IN TABLE, ELSE            COMCIDP  3235
                                        *                       =  ENTRY THAT WAS MADE IN TABLE                  COMCIDP  3236
                                        *                (B7)   =  ORDINAL OF ENTRY THAT WAS MADE OR OF MATCHING COMCIDP  3237
                                        *                            ENTRY                                       COMCIDP  3238
                                        *                                                                        COMCIDP  3239
                                        *         USES   X - 0,1,2,3,6,7                                         COMCIDP  3240
                                        *                A - 1,2                                                 COMCIDP  3241
                                        *                B - 7                                                   COMCIDP  3242
                                        *                                                                        COMCIDP  3243
                                        *         CALLS  IDP.ER,PRIDP,SKT                                        COMCIDP  3244
                                                                                                                 COMCIDP  3245
                                                                                                                 COMCIDP  3246
          2352  0400402352 +             ADZ      SUBR               ** ENTRY/EXIT **                            COMCIDP  3247
          2353  10166                             BX1    X6                                                      COMCIDP  3248
                     43074                        MX0    60                                                      COMCIDP  3249
                          5160002361 +            SA6    ADZA        SAVE (X6)                                   COMCIDP  3250
          2354  0100004157 +                      RJ     SKT         SEARCH TO SEE IF ENTRY ALREADY IN TABLE     COMCIDP  3251
          2355  77101                             SX1    -B1                                                     COMCIDP  3252
                     0312002352 +                 NZ     X2,EXIT.    IF ENTRY ALREADY IN TABLE                   COMCIDP  3253
          2356  0100004157 +                      RJ     SKT         SEARCH FOR AVAILABLE SPACE                  COMCIDP  3254
          2357  0302001314 +                      ZR     X2,SE.TOV   IF NO AVAILABLE SPACE LEFT                  COMCIDP  3255
                          5110002361 +            SA1    ADZA                                                    COMCIDP  3256
          2360  10611                             BX6    X1                                                      COMCIDP  3257
                     54620                        SA6    A2          MAKE NEW TABLE ENTRY                        COMCIDP  3258
                          0400002352 +            EQ     EXIT.                                                   COMCIDP  3259
                                                                                                                 COMCIDP  3260
                                                                                                                 COMCIDP  3261
          2361                     1     ADZA     BSSZ   1                                                       COMCIDP  3262
  
  
  
  
                                        **        BRK - BREAK PROCESSOR.                                         COMCIDP  3264
                                        *                                                                        COMCIDP  3265
                                        *                                                                        COMCIDP  3266
                                        *         1. IF THIS IS AN ASSEMBLED BREAK (NOT *IDP* GENERATED),        COMCIDP  3267
                                        *            THEN CONTROL IS MERELY RETURNED TO CALLER.                  COMCIDP  3268
                                        *                                                                        COMCIDP  3269
                                        *         2. IF THIS IS AN *IDP* GENERATED BREAK, THE 2 PARALLEL TABLES, COMCIDP  3270
                                        *            *IDPBA/IDPBC*, ARE QUERIED FOR INFORMATION THAT WILL BE     COMCIDP  3271
                                        *            PLUGGED INTO A DUMMY PARAMETER LIST FOR THIS BREAK. THE     COMCIDP  3272
                                        *            PREVIOUS CONTENTS OF THE BREAK ADDR ARE PICKED UP FROM      COMCIDP  3273
                                        *            *IDPBC* AND PLUGGED AT *BC=BRAD* SO THAT THEY CAN BE        COMCIDP  3274
                                        *            EXECUTED BEFORE EXITING *IDP*.                              COMCIDP  3275
                                        *                                                                        COMCIDP  3276
                                        *         TABLE FORMATS ARE--                                            COMCIDP  3277
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   135
        IDP 1.1/SUPPORTING SUBROUTINES.                               BRK                 IDP 
  
                                        *                                                                        COMCIDP  3278
                                        *         IDPBA ENTRY AT (IDPBA+ORDINAL)                                 COMCIDP  3279
                                        *                                                                        COMCIDP  3280
                                        *         VFD    6/BREAK TYPE CODE (BTC)                                 COMCIDP  3281
                                        *         VFD    18/ ADDR1                                               COMCIDP  3282
                                        *         VFD    18/ ADDR2   FOR A CONDITIONAL BREAK (BRNE,...) THE      COMCIDP  3283
                                        *                              CONTENTS OF THE CORE LOCATION ADDR1 WILL  COMCIDP  3284
                                        *                              BE COMPARED TO THE CONTENTS OF CORE       COMCIDP  3285
                                        *                              LOCATION ADDR2.                           COMCIDP  3286
                                        *         VFD    18/ BREAK ADDR                                          COMCIDP  3287
                                        *                                                                        COMCIDP  3288
                                        *         IDPBC ENTRY AT (IDPBC+2*ORDINAL)                               COMCIDP  3289
                                        *                                                                        COMCIDP  3290
                                        *         VFD    60/ PREVIOUS CONTENTS OF BREAK ADDR                     COMCIDP  3291
                                        *         VFD    15/ LL                                                  COMCIDP  3292
                                        *         VFD    15/ UL                                                  COMCIDP  3293
                                        *         VFD    12/ INC                                                 COMCIDP  3294
                                        *         VFD    18/ SNAP COUNT                                          COMCIDP  3295
                                        *                                                                        COMCIDP  3296
                                        *            IF THIS IS A CONDITIONAL *IDP* GENERATED BREAK              COMCIDP  3297
                                        *            (BRPL,BREQ,...), THE RELATIONAL CONDITION IS EVALUATED.     COMCIDP  3298
                                        *            A TRUE RESULT MEANS THE BREAK WILL BE HONORED, A FALSE THAT COMCIDP  3299
                                        *            IT WILL NOT.                                                COMCIDP  3300
                                        *                                                                        COMCIDP  3301
                                        *         ENTRY  (A1,X1) = A+C OF IDP ENTRY POINT.                       COMCIDP  3302
                                        *                                                                        COMCIDP  3303
                                        *         EXIT   (X5) = FWA OF PARAMETER LIST, ELSE                      COMCIDP  3304
                                        *                     = .ZR. IF NO BREAK THIS TIME.                      COMCIDP  3305
                                        *                                                                        COMCIDP  3306
                                        *                (ADR=RJ)  = ADDR OF *RJ IDP=* WORD.                     COMCIDP  3307
                                        *                (FW=PARM) = FWA OF PARAMETER LIST (ACTUAL OR INVENTED). COMCIDP  3308
                                        *                                                                        COMCIDP  3309
                                        *                (IDPPREG) = PSEUDO P REGISTER, I.E. ADDR OF NEXT        COMCIDP  3310
                                        *                            INSTRUCTION TO XEQ.                         COMCIDP  3311
                                        *                (IDPPOS)  = POS COUNTER, I.E. SET EQUAL TO 60D          COMCIDP  3312
                                        *                            (FORCED UPPER).                             COMCIDP  3313
                                        *                (BC=BRAD) = SAVED CONTENTS OF IDP GENERATED BREAK WORD, COMCIDP  3314
                                        *                            ELSE .ZR. IF NONE.                          COMCIDP  3315
                                        *                                                                        COMCIDP  3316
                                        *         USES   ALL                                                     COMCIDP  3317
                                        *                                                                        COMCIDP  3318
                                        *         CALLS  CBC,CHK,IEX,SKT                                         COMCIDP  3319
                                                                                                                 COMCIDP  3320
                                                                                                                 COMCIDP  3321
          2362  0400402362 +             BRK      SUBR               ** ENTRY/EXIT **                            COMCIDP  3322
          2363  7160000074                        SX6    60D                                                     COMCIDP  3323
                          7170000000              SX7    0                                                       COMCIDP  3324
          2364  5160000643 +                      SA6    IDPPOS      SET UP POS COUNTER                          COMCIDP  3325
                          5170000167 +            SA7    BC=BRAD     INITIALIZE TO *NO SAVED BREAK CONTENTS*     COMCIDP  3326
          2365  0100003432 +                      RJ     IEX         INITIALIZE EXECUTIVE                        COMCIDP  3327
                                                                                                                 COMCIDP  3328
          2366  5110000156 +                      SA1    ADR=RJ      (X1) = ADDR OF CALLING *RJ IDP=*            COMCIDP  3329
                          5150000452 +            SA5    FW=PARM     (X5) = FWA OF *BREAK* PARAMETER LIST        COMCIDP  3330
          2367  7261000001                        SX6    X1+1                                                    COMCIDP  3331
                          5160000642 +            SA6    IDPPREG     SET UP PSEUDO P REGISTER                    COMCIDP  3332
          2370  0702002411 +                      GT     B2,B0,BRK10 IF ASSEMBLED *BREAK* W/ PARAM LIST          COMCIDP  3333
                                                                                                                 COMCIDP  3334
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   136
        IDP 1.1/SUPPORTING SUBROUTINES.                               BRK                 IDP 
  
                          17777                   BX7    -X7-X7      (X7) = -0                                   COMCIDP  3335
                               43052              MX0    -18                                                     COMCIDP  3336
          2371  5170000162 +                      SA7    AP=HDR      SET TO *IDP GENERATED BREAK HEADER*         COMCIDP  3337
                          14000                   BX0    -X0                                                     COMCIDP  3338
          2372  0720002362 +                      MI     B2,EXIT.    IF ASSEMBLED *RJ IDP=* W/O PARM LIST        COMCIDP  3339
                                                                                                                 COMCIDP  3340
                          6160001327 +            SB6    IDPBA                                                   COMCIDP  3341
          2373  0100004157 +                      RJ     SKT         SEARCH FOR BREAK ADDR                       COMCIDP  3342
          2374  0302001323 +                      ZR     X2,SE.BRK   IF NO FIND, IRRETRIEVABLE ERROR...          COMCIDP  3343
                          66677                   SB6    B7+B7                                                   COMCIDP  3344
          2375  5136001343 +                      SA3    IDPBC+B6+1  (X3) = 15/LL,15/UL,12/INC,18/CNT            COMCIDP  3345
                          73630                   SX6    X3                                                      COMCIDP  3346
                               15730              BX7    -X0*X3      (X7) = 15/LL,15/UL,12/INC,18/0              COMCIDP  3347
          2376  5160000163 +                      SA6    AP=CNT                                                  COMCIDP  3348
                          73431                   SX4    X3+B1       (X4) = CNT+1                                COMCIDP  3349
                               12774              BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/CNT+1          COMCIDP  3350
          2377  54730                             SA7    A3                                                      COMCIDP  3351
                     43055                        MX0    -15                                                     COMCIDP  3352
                          20317                   LX3    15                                                      COMCIDP  3353
                               15630              BX6    -X0*X3      (X6) = LL                                   COMCIDP  3354
          2400  20317                             LX3    15                                                      COMCIDP  3355
                     15730                        BX7    -X0*X3      (X7) = UL                                   COMCIDP  3356
                          5160000157 +            SA6    AP=LL                                                   COMCIDP  3357
          2401  54761                             SA7    A6+B1                                                   COMCIDP  3358
                     43060                        MX0    -12                                                     COMCIDP  3359
                          20314                   LX3    12                                                      COMCIDP  3360
                               15630              BX6    -X0*X3      (X6) = INC                                  COMCIDP  3361
          2402  54671                             SA6    A7+B1                                                   COMCIDP  3362
                                                                                                                 COMCIDP  3363
                                        *         SET UP EXIT SO THAT PREVIOUS CONTENTS OF BREAK ADDR WILL BE    COMCIDP  3364
                                        *           EXECUTED BEFORE EXITING *IDP*.                               COMCIDP  3365
                                        *                                                                        COMCIDP  3366
                     55331                        SA3    A3-B1       (X3) = PREVIOUS CONTENTS OF BREAK ADDR      COMCIDP  3367
                          10633                   BX6    X3                                                      COMCIDP  3368
          2403  5160000167 +                      SA6    BC=BRAD                                                 COMCIDP  3369
                                                                                                                 COMCIDP  3370
                                        *         CHECK TO SEE IF BREAK CONDITION SATISFIED.                     COMCIDP  3371
                                                                                                                 COMCIDP  3372
                          43066                   MX0    -6                                                      COMCIDP  3373
                               20206              LX2    6                                                       COMCIDP  3374
          2404  15620                             BX6    -X0*X2      (X6) = BREAK TYPE CODE (BTC)                COMCIDP  3375
                     63560                        SB5    X6                                                      COMCIDP  3376
                          43052                   MX0    -18                                                     COMCIDP  3377
                               20222              LX2    18                                                      COMCIDP  3378
          2405  15620                             BX6    -X0*X2                                                  COMCIDP  3379
                     53160                        SA1    X6          (X1) = (ADDR1)                              COMCIDP  3380
                          20222                   LX2    18                                                      COMCIDP  3381
                               15620              BX6    -X0*X2                                                  COMCIDP  3382
          2406  53260                             SA2    X6          (X2) = (ADDR2)                              COMCIDP  3383
                     0100002426 +                 RJ     CBC         CHECK BREAK CONDITION                       COMCIDP  3384
          2407  0560002362 +                      NZ     B6,EXIT.    IF CONDITION WAS SATISFIED (TRUE)           COMCIDP  3385
                          43500                   MX5    0                                                       COMCIDP  3386
          2410  0400002362 +                      EQ     EXIT.                                                   COMCIDP  3387
                                                                                                                 COMCIDP  3388
                                        *         HERE IF ASSEMBLED *BREAK* WITH A PARAMETER LIST.               COMCIDP  3389
                                        *                                                                        COMCIDP  3390
                                        *         NEED TO CHECK (X5)+SN=BRAD.                                    COMCIDP  3391
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   137
        IDP 1.1/SUPPORTING SUBROUTINES.                               BRK                 IDP 
  
                                                                                                                 COMCIDP  3392
          2411  5215000006               BRK10    SA1    X5+SN=BRAD  (X1) = NEW PSEUDO P REG                     COMCIDP  3393
                          6221000000              SB2    X1+                                                     COMCIDP  3394
          2412  0612002362 +                      LE     B2,B1,EXIT. IF NEW PSEUDO P IS BAD, IGNORE IT...        COMCIDP  3395
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS                            COMCIDP  3396
          2413  0720002362 +                      MI     B2,EXIT.    IF NEW PSEUDO P IS BAD, IGNORE IT...        COMCIDP  3397
                                                                                                                 COMCIDP  3398
                          76620                   SX6    B2                                                      COMCIDP  3399
                               77721              SX7    B2-B1                                                   COMCIDP  3400
          2414  5160000642 +                      SA6    IDPPREG     UPDATE PSEUDO P REG                         COMCIDP  3401
                          5170000156 +            SA7    ADR=RJ      UPDATE CALLING ADDR                         COMCIDP  3402
          2415  0400002362 +                      EQ     EXIT.                                                   COMCIDP  3403
                                         .IDPOS   ENDIF                                                          CCGA018    12
  
  
  
  
                                        **        CAD - CONVERT ADDRESS FROM BINARY TO DPC.                      COMCIDP  3405
                                        *                                                                        COMCIDP  3406
                                        *                                                                        COMCIDP  3407
                                        *         THIS ROUTINE CONVERTS A BINARY ADDRESS (18 BITS) TO DPC        COMCIDP  3408
                                        *         IN ONE OF 2 WAYS --                                            COMCIDP  3409
                                        *                                                                        COMCIDP  3410
                                        *           1. IF *FRA=* (FIND RELATIVE ADDRESS) IS DEFINED .AND.        COMCIDP  3411
                                        *              *IDPFLG/IDF.ADRP* INDICATES THAT WE ARE TO CONVERT        COMCIDP  3412
                                        *              THE ADDR TO DECK RELATIVE, THEN *CAD* WILL CALL *FRA=*    COMCIDP  3413
                                        *              TO FIND AND CONVERT THE RELATIVE ADDRESS.                 COMCIDP  3414
                                        *                                                                        COMCIDP  3415
                                        *           2. IF *FRA=* IS NOT DEFINED .OR. *IDPFLG/IDF.ADRP* INDICATES COMCIDP  3416
                                        *              THAT WE ARE TO CONVERT THE ADDR TO AN ABSOLUTE ADDR,      COMCIDP  3417
                                        *              *CAD* WILL CALL *COD* (CONVERT BINARY TO OCTAL DPC)       COMCIDP  3418
                                        *              TO CONVERT THE ADDR.                                      COMCIDP  3419
                                        *                                                                        COMCIDP  3420
                                        *         ENTRY  (X1) = ADDR TO CONVERT, IN BINARY.                      COMCIDP  3421
                                        *                                                                        COMCIDP  3422
                                        *         EXIT   (X6) = ..NNNNNN..  IF ABSOLUTE CONVERSION               COMCIDP  3423
                                        *                     = .+NNNNNN..  IF RELATIVE CONVERSION               COMCIDP  3424
                                        *                                                                        COMCIDP  3425
                                        *                       WHERE . = BLANK(55B)                             COMCIDP  3426
                                        *                             N = OCTAL DIGIT (ADDR IS RIGHT JUSTIFIED   COMCIDP  3427
                                        *                                 TO BIT 3*CHAR, LEADING 0 SUPPRESSION)  COMCIDP  3428
                                        *                             + = RELATIVE ADDR INDICATOR                COMCIDP  3429
                                        *                                                                        COMCIDP  3430
                                        *         USES   ALL BUT A0,X0,A5,X5,A6   (INCLUDES ALL CALLS)           COMCIDP  3431
                                        *                                                                        COMCIDP  3432
                                        *         CALLS  COD,FRA                                                 COMCIDP  3433
                                                                                                                 COMCIDP  3434
                                                                                                                 COMCIDP  3435
          2416  0400402416 +             CAD      SUBR               ** ENTRY/EXIT **                            COMCIDP  3436
                                                                                                                 COMCIDP  3437
                                        *         CHECK FOR AND CONVERT/FIND A RELATIVE ADDRESS.                 COMCIDP  3438
                                                                                                                 COMCIDP  3439
          2417  5120000454 +                      SA2    IDPFLG                                                  COMCIDP  3440
                          20210                   LX2    59-IDF.ADRP                                             COMCIDP  3441
          2420  0322002424 +                      PL     X2,CAD3     IF USER REQUESTED ABS CONVERSION            COMCIDP  3442
                                                                                                                 COMCIDP  3443
                          0100003320 +            RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  3444
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   138
        IDP 1.1/SUPPORTING SUBROUTINES.                               CAD                 IDP 
  
          2421  0770002424 +                      MI     B7,CAD3     IF USER DID NOT PROVIDE *FRA=*              COMCIDP  3445
                                                                                                                 COMCIDP  3446
                                        *         SET UP EXIT CONDITIONS.                                        COMCIDP  3447
                                                                                                                 COMCIDP  3448
                          5120006506 +            SA2    =R.   +.                                                COMCIDP  3449
          2422  43344                             MX3    6*CHAR                                                  COMCIDP  3450
                     11436                        BX4    X3*X6       (X4) = NNNNNN0000  (.=BLANK(55B),0=00B)     COMCIDP  3451
                          36642                   IX6    X4+X2       (X6) = NNNNNN...+  (.=BLANK(55B))           COMCIDP  3452
                               20660              LX6    -2*CHAR     (X6) = .+NNNNNN..                           COMCIDP  3453
          2423  0400002416 +                      EQ     EXIT.                                                   COMCIDP  3454
                                                                                                                 COMCIDP  3455
                                        *         HERE IF CONVERTING TO AN ABSOLUTE ADDRESS.                     COMCIDP  3456
                                                                                                                 COMCIDP  3457
          2424  0100005002 +             CAD3     RJ     COD         CONVERT BINARY TO OCTAL DPC                 COMCIDP  3458
          2425  20614                             LX6    2*CHAR      (X6) = ..NNNNNN..   (.=BLANK(55B))          COMCIDP  3459
                     0400002416 +                 EQ     EXIT.                                                   COMCIDP  3460
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    13
                                        **        CBC - CHECK BREAK CONDITION.                                   COMCIDP  3462
                                        *                                                                        COMCIDP  3463
                                        *                                                                        COMCIDP  3464
                                        *                THIS ROUTINE RETURNS A TRUE/FALSE VALUE FOR A GIVEN     COMCIDP  3465
                                        *         LOGICAL EXPRESSION-- C1.OP.C2                                  COMCIDP  3466
                                        *                                                                        COMCIDP  3467
                                        *         ENTRY  (X1) = C1   1ST QUANTITY                                COMCIDP  3468
                                        *                (X2) = C2   2ND QUANTITY                                COMCIDP  3469
                                        *                (B5) = BREAK TYPE CODE (BTC)                            COMCIDP  3470
                                        *                                                                        COMCIDP  3471
                                        *         EXIT   (B6) = .NZ. IF TRUE, ELSE .ZR. IF FALSE                 COMCIDP  3472
                                        *                                                                        COMCIDP  3473
                                        *         USES   X - 0,3,6,7                                             COMCIDP  3474
                                        *                A - NONE                                                COMCIDP  3475
                                        *                B - 6                                                   COMCIDP  3476
                                        *                                                                        COMCIDP  3477
                                        *         CALLS  NONE                                                    COMCIDP  3478
                                                                                                                 COMCIDP  3479
                                                                                                                 COMCIDP  3480
          2426  0400402426 +             CBC      SUBR               ** ENTRY/EXIT **                            COMCIDP  3481
          2427  0750402427 +                      MI     B5,*+4S15   IF BTC IS BAD, AVOID SMELLY EVIL BUG...     COMCIDP  3482
                          6160000012              SB6    CBC2-CBC.OP (B6) = NR OF OPERATOR JP TABLE ENTRIES      COMCIDP  3483
          2430  0765402430 +                      GT     B5,B6,*+4S15  IF BTC IS BAD, P U...DUMMKOPF             COMCIDP  3484
                          66610                   SB6    B1          SET TO *CONDITION SATISFIED (TRUE)*         COMCIDP  3485
          2431  0450002426 +                      ZR     B5,EXIT.    IF UNCONDITIONAL BREAK                      COMCIDP  3486
                          13312                   BX3    X1-X2                                                   COMCIDP  3487
                               37612              IX6    X1-X2                                                   COMCIDP  3488
          2432  37721                             IX7    X2-X1                                                   COMCIDP  3489
                     43000                        MX0    0                                                       COMCIDP  3490
                          36660                   IX6    X6+X0       REMOVE POSSIBLE -0                          COMCIDP  3491
                               36770              IX7    X7+X0                                                   COMCIDP  3492
          2433  0255002433 +                      JP     CBC.OP+B5-1                                             COMCIDP  3493
                                                                                                                 COMCIDP  3494
                                        *         CBC.OP - OPERATOR JUMP TABLE.                                  COMCIDP  3495
                                                                                                                 COMCIDP  3496
          2434                           CBC.OP   BSS    0                                                       COMCIDP  3497
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   139
        IDP 1.1/SUPPORTING SUBROUTINES.                               CBC                 IDP 
  
      L      1                                    LOC    1                                                       COMCIDP  3498
                                                                                                                 COMCIDP  3499
                                        *         HERE FOR .PL.C1                                                COMCIDP  3500
                                                                                                                 COMCIDP  3501
      L      1  0321002426 +             CBC.PL   PL     X1,EXIT.    IF TRUE                                     COMCIDP  3502
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3503
                                                                                                                 COMCIDP  3504
                                        *         HERE FOR .MI.C1                                                COMCIDP  3505
                                                                                                                 COMCIDP  3506
      L      2  0331002426 +             CBC.MI   MI     X1,EXIT.    IF TRUE                                     COMCIDP  3507
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3508
                                                                                                                 COMCIDP  3509
                                        *         HERE FOR .ZR.C1                                                COMCIDP  3510
                                                                                                                 COMCIDP  3511
      L      3  0301002426 +             CBC.ZR   ZR     X1,EXIT.    IF TRUE                                     COMCIDP  3512
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3513
                                                                                                                 COMCIDP  3514
                                        *         HERE FOR .NZ.C1                                                COMCIDP  3515
                                                                                                                 COMCIDP  3516
      L      4  0311002426 +             CBC.NZ   NZ     X1,EXIT.    IF TRUE                                     COMCIDP  3517
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3518
                                                                                                                 COMCIDP  3519
                                        *         HERE FOR C1.EQ.C2                                              COMCIDP  3520
                                                                                                                 COMCIDP  3521
      L      5  0303002426 +             CBC.EQ   ZR     X3,EXIT.    IF TRUE                                     COMCIDP  3522
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3523
                                                                                                                 COMCIDP  3524
                                        *         HERE FOR C1.NE.C2                                              COMCIDP  3525
                                                                                                                 COMCIDP  3526
      L      6  0313002426 +             CBC.NE   NZ     X3,EXIT.    IF TRUE                                     COMCIDP  3527
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3528
                                                                                                                 COMCIDP  3529
                                        *         HERE FOR C1.LT.C2                                              COMCIDP  3530
                                                                                                                 COMCIDP  3531
      L      7  0336002426 +             CBC.LT   MI     X6,EXIT.    IF TRUE                                     COMCIDP  3532
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3533
                                                                                                                 COMCIDP  3534
                                        *         HERE FOR C1.GE.C2                                              COMCIDP  3535
                                                                                                                 COMCIDP  3536
      L     10  0326002426 +             CBC.GE   PL     X6,EXIT.    IF TRUE                                     COMCIDP  3537
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3538
                                                                                                                 COMCIDP  3539
                                        *         HERE FOR C1.LE.C2                                              COMCIDP  3540
                                                                                                                 COMCIDP  3541
      L     11  0327002426 +             CBC.LE   PL     X7,EXIT.    IF TRUE                                     COMCIDP  3542
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3543
                                                                                                                 COMCIDP  3544
                                        *         HERE FOR C1.GT.C2                                              COMCIDP  3545
                                                                                                                 COMCIDP  3546
      L     12  0337002426 +             CBC.GT   MI     X7,EXIT.    IF TRUE                                     COMCIDP  3547
                          0400002446 +            EQ     CBC2                                                    COMCIDP  3548
                                                                                                                 COMCIDP  3549
                                  13     CBC.LOP  =      *           DEFINE LAST OP                              COMCIDP  3550
          2446                                    LOC    *O                                                      COMCIDP  3551
                                                                                                                 COMCIDP  3552
                                        *         HERE FOR CONDITION NOT SATISFIED (FALSE).                      COMCIDP  3553
                                                                                                                 COMCIDP  3554
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   140
        IDP 1.1/SUPPORTING SUBROUTINES.                               CBC                 IDP 
  
          2446  66600                    CBC2     SB6    B0                                                      COMCIDP  3555
                     0400002426 +                 EQ     EXIT.                                                   COMCIDP  3556
  
  
  
  
                                         .IDPOS   ENDIF                                                          CCGA018    14
                                        **        CHK - CHECK CM ADDRESS.                                        COMCIDP  3558
                                        *                                                                        COMCIDP  3559
                                        *                                                                        COMCIDP  3560
                                        *         ENTRY  (B2)   =  ADDRESS TO BE CHECKED                         COMCIDP  3561
                                        *                                                                        COMCIDP  3562
                                        *         EXIT   (B2)   =  .MI. IF (B2) WAS BAD                          COMCIDP  3563
                                        *                       =  UNCHANGED IF OK                               COMCIDP  3564
                                        *                                                                        COMCIDP  3565
                                        *         USES   X - 1,2                                                 COMCIDP  3566
                                        *                A - 1                                                   COMCIDP  3567
                                        *                B - NONE    (USES B2 IF .GE. FL)                        COMCIDP  3568
                                        *                                                                        COMCIDP  3569
                                        *         CALLS  MEMORY                                                  COMCIDP  3570
                                                                                                                 COMCIDP  3571
                                                                                                                 COMCIDP  3572
          2447  0400402447 +             CHK      SUBR               ** ENTRY/EXIT **                            COMCIDP  3573
                                                                                                                 COMCIDP  3574
          2450  7120000000 X                      SX2    =YCP.NFLS                                               COMCIDP  3575
                          0720002447 +            MI     B2,EXIT.    IF ADDR BAD TO START WITH                   COMCIDP  3576
          2451  0332002454 +                      MI     X2,CHK2     IF USER IS NOT DOING OWN MEMORY MGMT        COMCIDP  3577
                          5110000454 +            SA1    IDPFLG                                                  COMCIDP  3578
          2452  20115                             LX1    59-IDF.MEMP                                             COMCIDP  3579
                     0331002460 +                 MI     X1,CHK3     IF USER HAS SELECTED *OPT MEM*              COMCIDP  3580
                               53120              SA1    X2          (X1) = CURRENT NOMINAL FL SCM               COMCIDP  3581
          2453  0400002470 +                      EQ     CHK4                                                    COMCIDP  3582
                                                                                                                 COMCIDP  3583
          2454  5110000065               CHK2     SA1    RA.LWP                                                  COMCIDP  3584
                          0720002447 +            MI     B2,EXIT.    IF ADDR IS BAD                              COMCIDP  3585
          2455  73110                             SX1    X1          EXTEND SIGN BIT                             COMCIDP  3586
                     0321002460 +                 PL     X1,CHK3     IF CMM NOT ACTIVE                           COMCIDP  3587
                               14111              BX1    -X1         (X1) = DABA                                 COMCIDP  3588
          2456  53110                             SA1    X1          (X1) = 42/STUFF,18/FL SCM                   COMCIDP  3589
                     76220                        SX2    B2                                                      COMCIDP  3590
                          73110                   SX1    X1          (X1) = FL SCM                               COMCIDP  3591
                               37221              IX2    X2-X1       (X2) = ADDR - FL                            COMCIDP  3592
          2457  0332002447 +                      MI     X2,EXIT.    IF ADDR LT FL                               COMCIDP  3593
                                                                                                                 COMCIDP  3594
          2460  10266                    CHK3     BX2    X6          SAVE X6 ACROSS MEMORY MACRO                 COMCIDP  3595
                     74660                        SX6    A6                                                      COMCIDP  3596
                          5160002473 +            SA6    CHKB        SAVE A6 ACROSS MEMORY MACRO                 COMCIDP  3597
          2461  43600                             MX6    0                                                       COMCIDP  3598
                     5160002472 +                 SA6    CHKA        CLEAR MEM REQUEST WORD                      COMCIDP  3599
          2462  7160150515                        MEMORY CM,CHKA,RCL    REQUEST CURRENT FIELD LENGTH             CCGA018    15
          2465  5110002473 +                      SA1    CHKB        (X1) = SAVED A6                             COMCIDP  3601
                          53110                   SA1    X1          (X1) = ((A6))                               COMCIDP  3602
                               10611              BX6    X1                                                      COMCIDP  3603
          2466  54610                             SA6    A1          RESTORE A6                                  COMCIDP  3604
                     10622                        BX6    X2          RESTORE X6                                  COMCIDP  3605
                          5110002472 +            SA1    CHKA        (X1) = 30/FL SCM,30/STUFF                   COMCIDP  3606
          2467  21136                             AX1    30D         (X1) = FL SCM                               COMCIDP  3607
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   141
        IDP 1.1/SUPPORTING SUBROUTINES.                               CHK                 IDP 
  
                                                                                                                 COMCIDP  3608
          2470  76220                    CHK4     SX2    B2                                                      COMCIDP  3609
                     37221                        IX2    X2-X1                                                   COMCIDP  3610
                          0332002447 +            MI     X2,EXIT.    IF ADDR OK                                  COMCIDP  3611
          2471  67202                             SB2    -B2         SET TO *ADDR IS BAD*                        COMCIDP  3612
                     0400002447 +                 EQ     EXIT.                                                   COMCIDP  3613
                                                                                                                 COMCIDP  3614
                                                                                                                 COMCIDP  3615
          2472                     1     CHKA     BSSZ   1           REQUEST WORD FOR MEMORY MACRO               COMCIDP  3616
          2473                     1     CHKB     BSSZ   1           FOR SAVING A6 ACROSS MEMORY MACRO           COMCIDP  3617
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    16
                                        **        CIB - CONVERT UNSIGNED INTEGER TO BINARY.                      COMCIDP  3619
                                        *                                                                        COMCIDP  3620
                                        *                                                                        COMCIDP  3621
                                        *         *CIB* CONVERTS A STREAM OF *O.CONS* TOKENS TO A BINARY NUMBER  COMCIDP  3622
                                        *         VIA A CALLER-SPECIFIED BASE CONVERSION.                        COMCIDP  3623
                                        *                                                                        COMCIDP  3624
                                        *         ENTRY  (A5,X5) = A+C OF 1ST *O.CONS* TOKEN.                    COMCIDP  3625
                                        *                (X1) = DEFAULT BASE.  (X1) CAN BE IN THE RANGE --       COMCIDP  3626
                                        *                                                                        COMCIDP  3627
                                        *                          1 .LT. (X1) .LT 36D                           COMCIDP  3628
                                        *                                                                        COMCIDP  3629
                                        *         EXIT   (B2) = .ZR. IF NO ERROR, ELSE .NZ.                      COMCIDP  3630
                                        *                (X6) = BINARY NUMBER, ELSE .ZR. IF ERROR ((B2) .NZ.).   COMCIDP  3631
                                        *                (A5+1) = ADDR OF 1ST TOKEN FOLLOWING *CONS*.            COMCIDP  3632
                                        *                                                                        COMCIDP  3633
                                        *         USES   X - 1,2,3,4,5,6,7                                       COMCIDP  3634
                                        *                A - 1,2,5,6,7                                           COMCIDP  3635
                                        *                B - 2,3,4                                               COMCIDP  3636
                                        *                                                                        COMCIDP  3637
                                        *         CALLS  MUL                                                     COMCIDP  3638
                                                                                                                 COMCIDP  3639
                                                                                                                 COMCIDP  3640
          2474  0400402474 +             CIB      SUBR               ** ENTRY/EXIT **                            COMCIDP  3641
          2475  73610                             SX6    X1                                                      COMCIDP  3642
                     43700                        MX7    0                                                       COMCIDP  3643
                          5160002543 +            SA6    CIBA        SAVE (X1) = BASE                            COMCIDP  3644
          2476  5170002545 +                      SA7    CIBC        SET TO *NO EXPLICIT BASE SO FAR*            COMCIDP  3645
                          6225777774              SB2    X5-O.CONS                                               COMCIDP  3646
          2477  0520001326 +                      NZ     B2,SE.CONS  IF ERROR ON ENTRY                           COMCIDP  3647
                                                                                                                 COMCIDP  3648
                                        *         CHECK FOR -B- (OCTAL) OR -D- (DECIMAL) SUFFIX.                 COMCIDP  3649
                                                                                                                 COMCIDP  3650
          2500  5055000001               CIB2     SA5    A5+1                                                    COMCIDP  3651
                          7275777774              SX7    X5-O.CONS                                               COMCIDP  3652
          2501  0307002500 +                      ZR     X7,CIB2     IF STILL *CONS* TOKEN                       COMCIDP  3653
                                                                                                                 COMCIDP  3654
                          6035000000              SB3    A5+         SAVE (A5) = LWA+1 OF *CONS*                 COMCIDP  3655
          2502  6225777775                        SB2    X5-O.VAR                                                COMCIDP  3656
                          0520002513 +            NZ     B2,CIB4     IF NOT *VAR*, NO -B/D- SUFFIX...            COMCIDP  3657
                                                                                                                 COMCIDP  3658
          2503  43266                             MX2    -CHAR                                                   COMCIDP  3659
                     43352                        MX3    TB.TOCL                                                 COMCIDP  3660
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   142
        IDP 1.1/SUPPORTING SUBROUTINES.                               CIB                 IDP 
  
                          11435                   BX4    X3*X5       (X4) = CHARS IN *VAR*, -L- FMT              COMCIDP  3661
                               20506              LX5    CHAR                                                    COMCIDP  3662
          2504  15352                             BX3    -X2*X5      (X3) = 1ST CHAR IN *VAR*, -R- FMT           COMCIDP  3663
                     43206                        MX2    CHAR                                                    COMCIDP  3664
                          15142                   BX1    -X2*X4                                                  COMCIDP  3665
          2505  0311002513 +                      NZ     X1,CIB4     IF *VAR* LONGER THAN 1 CHAR, NO -B/D-...    COMCIDP  3666
                          6223777775              SB2    X3-1RB                                                  COMCIDP  3667
          2506  7170000010                        SX7    8           SET TO *OCTAL*                              COMCIDP  3668
                          0420002511 +            ZR     B2,CIB3     IF -B- SUFFIX                               COMCIDP  3669
                                                                                                                 COMCIDP  3670
          2507  6223777773                        SB2    X3-1RD                                                  COMCIDP  3671
                          7170000012              SX7    10D         SET TO *DECIMAL*                            COMCIDP  3672
          2510  0520002513 +                      NZ     B2,CIB4     IF NO -D- SUFFIX                            COMCIDP  3673
                                                                                                                 COMCIDP  3674
          2511  5170002543 +             CIB3     SA7    CIBA        SAVE EXPLICIT BASE                          COMCIDP  3675
                          5170002545 +            SA7    CIBC        SET TO *EXPLICIT BASE OCCURRED*             COMCIDP  3676
          2512  6133000001                        SB3    B3+1                                                    COMCIDP  3677
                                                                                                                 COMCIDP  3678
                                        *         CHECK BASE.                                                    COMCIDP  3679
                                                                                                                 COMCIDP  3680
          2513  5110002543 +             CIB4     SA1    CIBA        (X1) = BASE                                 COMCIDP  3681
                          7221777775              SX2    X1-2                                                    COMCIDP  3682
          2514  7231777733                        SX3    X1-36                                                   COMCIDP  3683
                          0332002541 +            MI     X2,CIB10    IF BASE .LT. 2, ERROR...                    COMCIDP  3684
          2515  0323002541 +                      PL     X3,CIB10    IF BASE .GT. 35, ERROR...                   COMCIDP  3685
                                                                                                                 COMCIDP  3686
                                        *         INITIALIZE FOR CONVERSION LOOP.                                COMCIDP  3687
                                                                                                                 COMCIDP  3688
                          13666                   BX6    X6-X6       CLEAR (X6) = BINARY ACCUMULATOR             COMCIDP  3689
                               76710              SX7    B1                                                      COMCIDP  3690
          2516  5170002544 +                      SA7    CIBB        INITIALIZE BASE**N ACCUMULATOR,             COMCIDP  3691
                                        *                            I.E. BASE**0 = 1                            COMCIDP  3692
                          6120000000              SB2    0           SET TO *NO ERROR SO FAR*                    COMCIDP  3693
          2517  6140000024                        SB4    20D         (B4) = MAX NR OF DIGITS TO CONVERT          COMCIDP  3694
                                                                                                                 COMCIDP  3695
                                        *         MAIN LOOP NODE FOR DIGIT-BY-DIGIT CONVERSION.                  COMCIDP  3696
                                        *                                                                        COMCIDP  3697
                                        *           1. CONVERT NEXT DIGIT TO BINARY, CHECKING FOR DIGIT          COMCIDP  3698
                                        *              VALIDITY ALONG THE WAY.                                   COMCIDP  3699
                                        *                                                                        COMCIDP  3700
                                        *           2. SCALE THIS DIGIT BY MULTIPLYING IT BY APPROPRIATE         COMCIDP  3701
                                        *              POWER OF BASE.                                            COMCIDP  3702
                                        *                                                                        COMCIDP  3703
                                        *           3. ADD RESULTANT SCALED DIGIT INTO ACCUMULATOR.              COMCIDP  3704
                                                                                                                 COMCIDP  3705
          2520  5055777776               CIB5     SA5    A5-1                                                    COMCIDP  3706
                          7275777774              SX7    X5-O.CONS                                               COMCIDP  3707
          2521  0317002542 +                      NZ     X7,CIB11    IF NOT *CONS*, DONE...                      COMCIDP  3708
                          43452                   MX4    TB.TOCL                                                 COMCIDP  3709
                               11545              BX5    X4*X5       (X5) = CHARS IN *CONS*, -L- FMT             COMCIDP  3710
                                                                                                                 COMCIDP  3711
          2522  21506                    CIB6     AX5    CHAR                                                    COMCIDP  3712
                     43466                        MX4    -CHAR                                                   COMCIDP  3713
                          0305002520 +            ZR     X5,CIB5     IF (X5) EXHAUSTED                           COMCIDP  3714
          2523  15454                             BX4    -X4*X5      (X4) = NEXT CHAR, -R- FMT                   COMCIDP  3715
                     0304002522 +                 ZR     X4,CIB6     IF NULL (00B) CHARACTER, IGNORE...          COMCIDP  3716
                               67441              SB4    B4-B1                                                   COMCIDP  3717
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   143
        IDP 1.1/SUPPORTING SUBROUTINES.                               CIB                 IDP 
  
          2524  0740002541 +                      LT     B4,B0,CIB10 IF TRYING TO CONVERT TOO MANY DIGITS        COMCIDP  3718
                          7274777732              SX7    X4-1R9-1                                                COMCIDP  3719
          2525  0327002541 +                      PL     X7,CIB10    IF DIGIT .GT. 1R9                           COMCIDP  3720
                          7234777744              SX3    X4-1R0      (X3) = BINARY VALUE FOR THIS DIGIT          COMCIDP  3721
          2526  0323002527 +                      PL     X3,CIB7     IF 1R0 .LE. DIGIT .LE. 1R9                  COMCIDP  3722
                          7234000011              SX3    X4-1RA+10   (X3) = BINARY VALUE FOR THIS DIGIT          COMCIDP  3723
                                                                                                                 COMCIDP  3724
          2527  5110002543 +             CIB7     SA1    CIBA        (X1) = BASE                                 COMCIDP  3725
                          5120002544 +            SA2    CIBB        (X2) = BASE**N ACCUMULATOR                  COMCIDP  3726
          2530  37431                             IX4    X3-X1       (X4) = DIGIT - BASE                         COMCIDP  3727
                     0334002535 +                 MI     X4,CIB9     IF DIGIT .LT. BASE                          COMCIDP  3728
                                                                                                                 COMCIDP  3729
                                        *         HERE IF DIGIT TOO BIG FOR BASE.                                COMCIDP  3730
                                                                                                                 COMCIDP  3731
          2531  5130002545 +                      SA3    CIBC        (X3) = .NZ. IF EXPLICIT BASE OCCURRED, ELSE COMCIDP  3732
                          7271777767              SX7    X1-8                                                    COMCIDP  3733
          2532  0313002541 +                      NZ     X3,CIB10    IF EXPLICIT BASE, ERROR...                  COMCIDP  3734
                          0317002541 +            NZ     X7,CIB10    IF NOT BASE 8, ERROR...                     COMCIDP  3735
                                                                                                                 COMCIDP  3736
                                        *         HERE IF OCTAL WITH DIGIT .GE. 8.  TRY DECIMAL.                 COMCIDP  3737
                                                                                                                 COMCIDP  3738
          2533  7160000012                        SX6    10D                                                     COMCIDP  3739
                          5160002543 +            SA6    CIBA        SET TO *DECIMAL CONVERSION*                 COMCIDP  3740
          2534  56530                             SA5    B3                                                      COMCIDP  3741
                     0400002513 +                 EQ     CIB4                                                    COMCIDP  3742
                                                                                                                 COMCIDP  3743
                                        *         HERE TO SCALE DIGIT.                                           COMCIDP  3744
                                                                                                                 COMCIDP  3745
          2535  73130                    CIB9     SX1    X3          (X1) = DIGIT                                COMCIDP  3746
                     0100003574 +                 RJ     MUL         INTEGER MULTIPLY (DIGIT*(BASE**N))          COMCIDP  3747
          2536  36667                             IX6    X6+X7                                                   COMCIDP  3748
                     5110002543 +                 SA1    CIBA        (X1) = BASE                                 COMCIDP  3749
          2537  5120002544 +                      SA2    CIBB        (X2) = BASE**N ACCUMULATOR                  COMCIDP  3750
                          0100003574 +            RJ     MUL         INTEGER MULTIPLY (BASE*(BASE**N))           COMCIDP  3751
          2540  54720                             SA7    A2          SAVE (X7) = BASE**(N+1)                     COMCIDP  3752
                     0400002522 +                 EQ     CIB6                                                    COMCIDP  3753
                                                                                                                 COMCIDP  3754
                                        *         HERE IF AN ERROR.                                              COMCIDP  3755
                                                                                                                 COMCIDP  3756
          2541  13666                    CIB10    BX6    X6-X6                                                   COMCIDP  3757
                     66210                        SB2    B1          SET TO *ERROR OCCURRED*                     COMCIDP  3758
                                                                                                                 COMCIDP  3759
                                        *         HERE WHEN READY TO EXIT.                                       COMCIDP  3760
                                                                                                                 COMCIDP  3761
          2542  5153777776               CIB11    SA5    B3-1        (A5) = ADDR OF LAST/FINAL TOKEN IN CONSTANT COMCIDP  3762
                          0400002474 +            EQ     EXIT.                                                   COMCIDP  3763
                                                                                                                 COMCIDP  3764
                                                                                                                 COMCIDP  3765
          2543                     1     CIBA     BSSZ   1           SAVED BASE                                  COMCIDP  3766
          2544                     1     CIBB     BSSZ   1           SAVED BASE**N ACCUMULATOR                   COMCIDP  3767
          2545                     1     CIBC     BSSZ   1           .NZ. IF EXPLICIT BASE OCCURRED, ELSE .ZR.   COMCIDP  3768
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   144
        IDP 1.1/SUPPORTING SUBROUTINES.                               CLZ                 IDP 
  
                                        **        CLZ - CLEAR *IDP* TABLE.                                       COMCIDP  3770
                                        *                                                                        COMCIDP  3771
                                        *                                                                        COMCIDP  3772
                                        *                THIS ROUTINE WILL CLEAR AN *IDP* ZERO TERMINATED TABLE  COMCIDP  3773
                                        *         BY SETTING ALL ENTRIES TO *AVAILABLE*, I.E. -1.                COMCIDP  3774
                                        *                                                                        COMCIDP  3775
                                        *         ENTRY  (B6) = FWA OF TABLE TO BE CLEARED                       COMCIDP  3776
                                        *                                                                        COMCIDP  3777
                                        *         EXIT   NONE                                                    COMCIDP  3778
                                        *                                                                        COMCIDP  3779
                                        *         USES   X - 1,6                                                 COMCIDP  3780
                                        *                A - 1,6                                                 COMCIDP  3781
                                        *                B - NONE                                                COMCIDP  3782
                                        *                                                                        COMCIDP  3783
                                        *         CALLS  NONE                                                    COMCIDP  3784
                                                                                                                 COMCIDP  3785
                                                                                                                 COMCIDP  3786
          2546  0400402546 +             CLZ      SUBR               ** ENTRY/EXIT **                            COMCIDP  3787
          2547  56160                             SA1    B6                                                      COMCIDP  3788
                     43673                        MX6    -1                                                      COMCIDP  3789
                                                                                                                 COMCIDP  3790
          2550  0301002546 +             CLZ2     ZR     X1,EXIT.    IF FINISHED                                 COMCIDP  3791
                          54610                   SA6    A1                                                      COMCIDP  3792
                               54111              SA1    A1+B1                                                   COMCIDP  3793
          2551  0400002550 +                      EQ     CLZ2                                                    COMCIDP  3794
  
  
  
  
                                        **        CON - CONNECT/DISCONT FILE.                                    COMCIDP  3796
                                        *                                                                        COMCIDP  3797
                                        *                                                                        COMCIDP  3798
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF FET OF FILE              COMCIDP  3799
                                        *                (X2)    = +0  IF TO CONNECT                             COMCIDP  3800
                                        *                        =  1  IF TO DISCONT                             COMCIDP  3801
                                        *                                                                        COMCIDP  3802
                                        *         EXIT   SCOPE 3--                                               COMCIDP  3803
                                        *                (X1)    = .MI. IF PP ROUTINE *CON* DETECTED ERROR,      COMCIDP  3804
                                        *                                 ELSE .PL.                              COMCIDP  3805
                                        *                KRONOS/NOS/SCOPE 2-- NONE                               COMCIDP  3806
                                        *                                                                        COMCIDP  3807
                                        *         USES   ALL BUT A0,A5,X5                                        COMCIDP  3808
                                        *                                                                        COMCIDP  3809
                                        *         CALLS  SCOPE 3-- SYSTEM                                        COMCIDP  3810
                                        *                KRONOS/NOS-- CLOSE,REQUEST,WRITER                       COMCIDP  3811
                                                                                                                 COMCIDP  3812
                                                                                                                 COMCIDP  3813
          2552  0400402552 +             CON      SUBR               ** ENTRY/EXIT **                            COMCIDP  3814
                                                                                                                 COMCIDP  3815
                                         #OS2     IFEQ   .OS,2       IF SCOPE 2                                  COMCIDP  3816
                                                  EQ     EXIT.                                                   COMCIDP  3817
                                         #OS2     ENDIF                                                          COMCIDP  3818
                                                                                                                 COMCIDP  3819
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  COMCIDP  3820
                                                  MX0    7*CHAR                                                  COMCIDP  3821
                                                  BX6    X0*X1       (X6) = 42/0LFILENAME, 18/0                  COMCIDP  3822
                                                  SA6    CONA                                                    COMCIDP  3823
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   145
        IDP 1.1/SUPPORTING SUBROUTINES.                               CON                 IDP 
  
                                                  LX2    6                                                       COMCIDP  3824
                                                  SYSTEM CON,RCL,CONA,X2                                         COMCIDP  3825
                                                                                                                 COMCIDP  3826
                                                  SA1    CONA                                                    COMCIDP  3827
                                                  LX1    59-1                                                    COMCIDP  3828
                                                  EQ     EXIT.                                                   COMCIDP  3829
                                                                                                                 COMCIDP  3830
                                                                                                                 COMCIDP  3831
                                         CONA     BSSZ   1           PARAMETER WORD FOR PP ROUTINE *CON*--       COMCIDP  3832
                                        *                              42/0LFILENAME                             COMCIDP  3833
                                        *                              16/0, 1/ERROR FLAG, 1/COMPLETE BIT        COMCIDP  3834
                                                                                                                 COMCIDP  3835
                                         #OS3     ELSE               IF KRONOS/NOS                               COMCIDP  3836
          2553  74610                             SX6    A1                                                      COMCIDP  3837
                     5160002572 +                 SA6    CONA        SAVE (A1) = FWA OF FET                      COMCIDP  3838
          2554  0312002565 +                      NZ     X2,CON2     IF TO DISCONT FILE                          COMCIDP  3839
                                                                                                                 COMCIDP  3840
                                        *         HERE TO CONNECT FILE.                                          COMCIDP  3841
                                                                                                                 COMCIDP  3842
                          74210                   WRITER A1,,RCL     FLUSH BUFFER                                COMCIDP  3843
          2556  5110002572 +                      SA1    CONA                                                    COMCIDP  3844
                          10211                   RETURN X1,RCL                                                  COMCIDP  3845
          2560  5110002572 +                      SA1    CONA                                                    COMCIDP  3846
                          7160002424              SX6    2RTT                                                    COMCIDP  3847
          2561  43014                             MX0    60-48                                                   COMCIDP  3848
                     53211                        SA2    X1+B1       (X2) = 12/DEVICE TYPE, 48/OTHER             COMCIDP  3849
                          20660                   LX6    10*CHAR-2*CHAR                                          COMCIDP  3850
                               15220              BX2    -X0*X2                                                  COMCIDP  3851
          2562  36626                             IX6    X2+X6       (X6) = 12/2RTT, 48/OTHER                    COMCIDP  3852
                     54620                        SA6    A2                                                      COMCIDP  3853
                          73210                   REQUEST X1,TT      ASSIGN FILE TO TERMINAL                     COMCIDP  3854
          2564  0400002552 +                      EQ     EXIT.                                                   COMCIDP  3855
                                                                                                                 COMCIDP  3856
                                        *         HERE TO DISCONT FILE.                                          COMCIDP  3857
                                                                                                                 COMCIDP  3858
          2565  74210                    CON2     WRITER A1,,RCL     FLUSH BUFFER                                COMCIDP  3859
          2567  5110002572 +                      SA1    CONA                                                    COMCIDP  3860
                          10211                   RETURN X1,RCL                                                  COMCIDP  3861
          2571  0400002552 +                      EQ     EXIT.                                                   COMCIDP  3862
                                                                                                                 COMCIDP  3863
                                                                                                                 COMCIDP  3864
          2572                     1     CONA     BSSZ   1           SAVED FWA OF FET                            COMCIDP  3865
                                         #OS3     ENDIF                                                          COMCIDP  3866
  
  
  
  
                                        **        CST - CLASSIFY STMT.                                           COMCIDP  3868
                                        *                                                                        COMCIDP  3869
                                        *                                                                        COMCIDP  3870
                                        *         *CST* PERFORMS THE TASK OF DETERMINING WHICH STMT              COMCIDP  3871
                                        *         PROCESSOR IS TO PROCESS THE NEXT STMT IN THE TOKEN             COMCIDP  3872
                                        *         BUFFER.                                                        COMCIDP  3873
                                        *                                                                        COMCIDP  3874
                                        *         ENTRY  (A5,X5) = A+C OF NEXT TOKEN TO TRY AND FIND A KEYWORD   COMCIDP  3875
                                        *                          MATCH FOR.                                    COMCIDP  3876
                                        *                                                                        COMCIDP  3877
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   146
        IDP 1.1/SUPPORTING SUBROUTINES.                               CST                 IDP 
  
                                        *         EXIT   (X6) = .NZ. IF ADDR OF FOUND *KEYW* ENTRY, ELSE         COMCIDP  3878
                                        *                     = .ZR. IF NO FIND.                                 COMCIDP  3879
                                        *                                                                        COMCIDP  3880
                                        *                IF A FIND, (X6) .NZ. --                                 COMCIDP  3881
                                        *                                                                        COMCIDP  3882
                                        *                (A5,X5) = A+C OF TOKEN IMMEDIATELY FOLLOWING KEYWORD.   COMCIDP  3883
                                        *                                                                        COMCIDP  3884
                                        *         USES   ALL BUT A0                                              COMCIDP  3885
                                        *                                                                        COMCIDP  3886
                                        *         CALLS  CHK,SFN                                                 COMCIDP  3887
                                                                                                                 COMCIDP  3888
                                                                                                                 COMCIDP  3889
          2573  0400402573 +             CST      SUBR               ** ENTRY/EXIT **                            COMCIDP  3890
                                                                                                                 COMCIDP  3891
                                        *         INITIALIZATION.                                                COMCIDP  3892
                                        *                                                                        COMCIDP  3893
                                        *         WE FIRST NEED TO VERIFY THAT THE 1ST KEYWORD TABLE IS          COMCIDP  3894
                                        *         IN FACT AVAILABLE, AND IF NOT, WE MAKE SURE THAT AT            COMCIDP  3895
                                        *         LEAST IDP.S ORIGINAL KEYWORD TABLE (I.E. THE ONLY ONE          COMCIDP  3896
                                        *         WE HAPPEN TO KNOW THE LOCATION OF) IS MADE AVAILABLE           COMCIDP  3897
                                        *         SO THAT THE USER IS NOT LEFT WITH HIS OR HER PANTS DOWN.       COMCIDP  3898
                                                                                                                 COMCIDP  3899
          2574  5110001104 +                      SA1    FW=KEY      (X1) = FWA OF 1ST KEYWORD TABLE             COMCIDP  3900
                          63210                   SB2    X1                                                      COMCIDP  3901
                               63450              SB4    X5          (B4) = TOKEN TYPE OF 1ST TOKEN TO CHECK     COMCIDP  3902
          2575  64550                             SB5    A5          SAVE ORIGINAL (A5)                          COMCIDP  3903
                     63610                        SB6    X1                                                      COMCIDP  3904
                          67404                   SB4    -B4         (BECAUSE THERE IS NO SX.I X.J-B.K)          COMCIDP  3905
          2576  0100002447 +                      RJ     CHK         CHECK CM ADDR                               COMCIDP  3906
          2577  0620002605 +                      PL     B2,CST3     IF 1ST KEYWORD TABLE IS AVAILABLE           COMCIDP  3907
                          7160001105 +            SX6    FW.KEY      (X6) = FWA OF IDP.S OWN KEYWORD TABLE       COMCIDP  3908
          2600  5160001104 +                      SA6    FW=KEY                                                  COMCIDP  3909
                          0400001311 +            EQ     SE.KEY      ** 1ST KEYWORD TABLE OUT-OF-RANGE **        COMCIDP  3910
                                                                                                                 COMCIDP  3911
                                        *         HERE TO CHECK LINK TO NEXT KEYWORD TABLE.                      COMCIDP  3912
                                                                                                                 COMCIDP  3913
          2601  56261                    CST2     SA2    B6+B1       (X2) = LINK WORD                            COMCIDP  3914
                     63220                        SB2    X2          (B2) = ADDR OF NEXT KEYWORD TABLE           COMCIDP  3915
                          0302002622 +            ZR     X2,CST7     IF END-OF-ALL KEYWORD TABLES, NO FIND...    COMCIDP  3916
          2602  0100002447 +                      RJ     CHK         CHECK CM ADDR                               COMCIDP  3917
          2603  0720001311 +                      MI     B2,SE.KEY   IF NEXT KEYWORD TABLE IS OUT-OF-RANGE       COMCIDP  3918
                          66620                   SB6    B2          (B6) = FWA OF NEXT KEYWORD TABLE            COMCIDP  3919
                               11175              BX1    X7*X5       RESTORE (X1) = CHARS TO SEARCH FOR, -L- FMT COMCIDP  3920
          2604  0400002610 +                      EQ     CST4                                                    COMCIDP  3921
                                                                                                                 COMCIDP  3922
                                        *         KEYW TABLE SEARCH MAIN LOOP NODE.                              COMCIDP  3923
                                        *                                                                        COMCIDP  3924
                                        *         READY TO SCAN TOKEN(S) FOR A KEYWORD MATCH.                    COMCIDP  3925
                                                                                                                 COMCIDP  3926
          2605  56550                    CST3     SA5    B5          (A5,X5) = A+C OF 1ST TOKEN TO SEARCH FOR    COMCIDP  3927
                     73654                        SX6    X5+B4                                                   COMCIDP  3928
                          0316002622 +            NZ     X6,CST7     IF TOKEN TYPES DO NOT MATCH, NO FIND...     COMCIDP  3929
          2606  43252                             MX2    TB.TOCL                                                 COMCIDP  3930
                     11125                        BX1    X2*X5       (X1) = CHARS IN 1ST *VAR* TOKEN             COMCIDP  3931
                          0100005274 +            RJ     =XSFN       SPACE FILL NAME                             COMCIDP  3932
          2607  11176                             BX1    X7*X6       (X1) = CHARS IN 1ST *VAR* TOKEN, -L- FMT    COMCIDP  3933
                                                                                                                 COMCIDP  3934
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   147
        IDP 1.1/SUPPORTING SUBROUTINES.                               CST                 IDP 
  
                                        *         SEARCH KEYWORD TABLE FOR A MATCH OF CURRENT *VAR* TOKEN.       COMCIDP  3935
                                                                                                                 COMCIDP  3936
          2610  56260                    CST4     SA2    B6          (X2) = KEYWORD TABLE ENTRY, WORD 1          COMCIDP  3937
                     0302002601 +                 ZR     X2,CST2     IF END-OF-TABLE, TRY NEXT TABLE...          COMCIDP  3938
                                                  LX2    0-KW.KEYP                                               COMCIDP  3939
                               53420              SA4    X2          (X4) = 1ST WORD OF KEYWORD LITERAL, -L- FMT COMCIDP  3940
          2611  6166000002                        SB6    B6+2                                                    COMCIDP  3941
                          20252                   LX2    0-KW.LENP+KW.KEYP-0                                     COMCIDP  3942
                               43363              MX3    -KW.LENL                                                COMCIDP  3943
          2612  15623                             BX6    -X3*X2      (X6) = NR OF BITS IN THIS KEYWORD           COMCIDP  3944
                     63760                        SB7    X6                                                      COMCIDP  3945
                                                                                                                 COMCIDP  3946
          2613  0607002605 +             CST5     LE     B7,B0,CST3  IF NOTHING LEFT IN KEYWORD LITERAL          COMCIDP  3947
                          11674                   BX6    X7*X4                                                   COMCIDP  3948
                               37316              IX3    X1-X6                                                   COMCIDP  3949
          2614  0313002605 +                      NZ     X3,CST3     IF NO MATCH, TRY NEXT *KEYW* ENTRY...       COMCIDP  3950
                                                                                                                 COMCIDP  3951
                                        *         HERE TO SET UP FOR NEXT *VAR* TOKEN.                           COMCIDP  3952
                                                                                                                 COMCIDP  3953
                          54551                   SA5    A5+B1       (A5,X5) = A+C OF NEXT *VAR* TO SEARCH FOR   COMCIDP  3954
                               43252              MX2    TB.TOCL                                                 COMCIDP  3955
          2615  11125                             BX1    X2*X5       (X1) = CHARS IN NEXT *VAR* TOKEN, -L- FMT   COMCIDP  3956
                     73654                        SX6    X5+B4                                                   COMCIDP  3957
                          0316002621 +            NZ     X6,CST6     IF TOKEN TYPES DO NOT MATCH, FIND...        COMCIDP  3958
          2616  0100005274 +                      RJ     =XSFN       SPACE FILL NAME                             COMCIDP  3959
          2617  54441                             SA4    A4+B1       (X4) = NEXT KEYWORD LITERAL, -L- FMT        COMCIDP  3960
                     11176                        BX1    X7*X6       (X1) = CHARS IN NEXT *VAR* TOKEN, -L- FMT   COMCIDP  3961
                          6177777725              SB7    B7-TB.TOCL  (B7) = NR OF BITS REMAINING IN THIS KEYWORD COMCIDP  3962
          2620  0400002613 +                      EQ     CST5                                                    COMCIDP  3963
                                                                                                                 COMCIDP  3964
                                        *         HERE IF WE HAVE A FIND.  SET UP EXIT CONDITIONS.               COMCIDP  3965
                                                                                                                 COMCIDP  3966
          2621  7166777775               CST6     SX6    B6-2        (X6) = ADDR OF FOUND *KEYW* ENTRY           COMCIDP  3967
                          0400002573 +            EQ     EXIT.                                                   COMCIDP  3968
                                                                                                                 COMCIDP  3969
                                        *         HERE IF NO FIND.  SET UP EXIT CONDITIONS.                      COMCIDP  3970
                                                                                                                 COMCIDP  3971
          2622  13666                    CST7     BX6    X6-X6       SET TO *NO FIND*                            COMCIDP  3972
                     0400002573 +                 EQ     EXIT.                                                   COMCIDP  3973
                                         .IDPOS   ENDIF                                                          CCGA018    17
  
  
  
  
                                        **        CXR - CHECK EXECUTIVE RJ.                                      COMCIDP  3975
                                        *                                                                        COMCIDP  3976
                                        *                                                                        COMCIDP  3977
                                        *         *CXR* FIGURES OUT WHETHER THE *RJ* TO AN IDP EXECUTIVE         COMCIDP  3978
                                        *         HAS A PARAMETER LIST ASSOCIATED WITH IT.                       COMCIDP  3979
                                        *                                                                        COMCIDP  3980
                                        *         ENTRY  (X1) = ADDR OF EXECUTIVE                                COMCIDP  3981
                                        *                (X2) = ADDR OF CALLING *RJ*                             COMCIDP  3982
                                        *                                                                        COMCIDP  3983
                                        *         EXIT   (B2) = ADDR OF PARAMETER LIST, IF THERE IS ONE.         COMCIDP  3984
                                        *                     = .ZR. IF SPECIAL                                  COMCIDP  3985
                                        *                              +  RJ  XEC                                COMCIDP  3986
                                        *                              -  VFD 30/0                               COMCIDP  3987
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   148
        IDP 1.1/SUPPORTING SUBROUTINES.                               CXR                 IDP 
  
                                        *                     = .MI. IF NO PARAMETER LIST                        COMCIDP  3988
                                        *                                                                        COMCIDP  3989
                                        *         USES   X - 1,2,3,4,6,7                                         COMCIDP  3990
                                        *                A - 1,2,3,6                                             COMCIDP  3991
                                        *                B - 2                                                   COMCIDP  3992
                                        *                                                                        COMCIDP  3993
                                        *         CALLS  CHK                                                     COMCIDP  3994
                                                                                                                 COMCIDP  3995
                                                                                                                 COMCIDP  3996
          2623  0400402623 +             CXR      SUBR               ** ENTRY/EXIT **                            COMCIDP  3997
          2624  5130002636 +                      SA3    CXRA        (X3) = *RJ-FORCED-UPPER* SKELETON           COMCIDP  3998
                          20136                   LX1    30                                                      COMCIDP  3999
                               73620              SX6    X2                                                      COMCIDP  4000
          2625  12113                             BX1    X1+X3       (X1) = 30/RJ XEC,30/0                       COMCIDP  4001
                     5160000156 +                 SA6    ADR=RJ                                                  COMCIDP  4002
                               53220              SA2    X2          (A2,X2) = A+C OF WORD CONTAINING CALLING RJ COMCIDP  4003
          2626  37712                             IX7    X1-X2                                                   COMCIDP  4004
                     43336                        MX3    30                                                      COMCIDP  4005
                          66200                   SB2    B0                                                      COMCIDP  4006
                               11432              BX4    X3*X2       (X4) = UPPER 30 BITS OF WORD CONTAINING RJ  COMCIDP  4007
          2627  0307002623 +                      ZR     X7,EXIT.    IF SPECIAL 30/RJ XEC,30/0 FORM              COMCIDP  4008
                          37714                   IX7    X1-X4                                                   COMCIDP  4009
                               67201              SB2    -B1         SET TO *NO PARAMETER LIST*                  COMCIDP  4010
          2630  0317002623 +                      NZ     X7,EXIT.    IF NO PARAMETER LIST                        COMCIDP  4011
                          15423                   BX4    -X3*X2      (X4) = LOWER 30 BITS OF WORD CONTAINING RJ  COMCIDP  4012
                               73220              SX2    X2          (X2) = POSSIBLE PARAMETER LIST ADDR         COMCIDP  4013
          2631  37742                             IX7    X4-X2                                                   COMCIDP  4014
                     0317002623 +                 NZ     X7,EXIT.    IF LOWER 30 BITS CONTAIN MORE THAN AN ADDR  COMCIDP  4015
                               63220              SB2    X2                                                      COMCIDP  4016
          2632  0100002447 +                      RJ     CHK         CHECK CM ADDRESS                            COMCIDP  4017
          2633  0720002623 +                      MI     B2,EXIT.    IF PARAMETER LIST ADDR IS BAD               COMCIDP  4018
                          56120                   SA1    B2          (A1,X1) = A+C OF 1ST WORD OF PARAMETER LIST COMCIDP  4019
                               43214              MX2    12                                                      COMCIDP  4020
          2634  11721                             BX7    X2*X1       (X7) = UPPER 12 BITS OF 1ST WORD OF PARM    COMCIDP  4021
                     0307002623 +                 ZR     X7,EXIT.    IF PARAMETER LIST LOOKS OK                  COMCIDP  4022
                               67201              SB2    -B1         SET TO *NO PARAMETER LIST*                  COMCIDP  4023
          2635  0400002623 +                      EQ     EXIT.                                                   COMCIDP  4024
                                                                                                                 COMCIDP  4025
                                                                                                                 COMCIDP  4026
          2636  0100000000               CXRA     RJ     0                                                       COMCIDP  4027
                          0000000000     -        VFD    30/0                                                    COMCIDP  4028
  
  
  
  
                                        **        DAB - DUMP AN -A- OR -B- REGISTER AND WHAT IT POINTS TO.       COMCIDP  4030
                                        *                                                                        COMCIDP  4031
                                        *                                                                        COMCIDP  4032
                                        *         ENTRY  (B4) = 0TR, WHERE                                       COMCIDP  4033
                                        *                            T IS REGISTER TYPE                          COMCIDP  4034
                                        *                                  = 0 FOR -B- REGISTER                  COMCIDP  4035
                                        *                                  = 1 FOR -A- REGISTER                  COMCIDP  4036
                                        *                            R IS REGISTER NR (0-7)                      COMCIDP  4037
                                        *                            E.G.  A6 WOULD BE 016                       COMCIDP  4038
                                        *                                                                        COMCIDP  4039
                                        *         EXIT   (B4) IS UNCHANGED                                       COMCIDP  4040
                                        *                                                                        COMCIDP  4041
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   149
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAB                 IDP 
  
                                        *         USES   ALL BUT B4                                              COMCIDP  4042
                                        *                                                                        COMCIDP  4043
                                        *         CALLS  FAB,PRIDP                                               COMCIDP  4044
                                                                                                                 COMCIDP  4045
                                                                                                                 COMCIDP  4046
          2637  0400402637 +             DAB      SUBR               ** ENTRY/EXIT **                            COMCIDP  4047
          2640  6160000607 +                      SB6    SNAPLNE                                                 COMCIDP  4048
                          0100003242 +            RJ     FAB         FORMAT -A- OR -B- REGISTER                  COMCIDP  4049
          2641  7160000607 +                      PRIDP  SNAPLNE                                                 COMCIDP  4050
          2643  0400002637 +                      EQ     EXIT.                                                   COMCIDP  4051
  
  
  
  
                                        **        DAR - DUMP ALL REGISTERS.                                      COMCIDP  4053
                                        *                                                                        COMCIDP  4054
                                        *                                                                        COMCIDP  4055
                                        *         ENTRY  NONE                                                    COMCIDP  4056
                                        *                                                                        COMCIDP  4057
                                        *         EXIT   NONE                                                    COMCIDP  4058
                                        *                                                                        COMCIDP  4059
                                        *         USES   ALL                                                     COMCIDP  4060
                                        *                                                                        COMCIDP  4061
                                        *         CALLS  DAB,DUX,PRIDP,WOD                                       COMCIDP  4062
                                                                                                                 COMCIDP  4063
                                                                                                                 COMCIDP  4064
          2644  0400402644 +             DAR      SUBR   0           ** ENTRY/EXIT **                            COMCIDP  4065
          2645  66400                             SB4    B0          INITIALIZE (B4) = REGISTER COUNT, 0TR       COMCIDP  4066
                     13666                        PRIDP  ,,L.PRB                                                 COMCIDP  4067
                                                                                                                 COMCIDP  4068
          2647  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  4069
                                                  LX1    59-IDF.IDOP                                             COMCIDP  4070
                          0321002663 +            PL     X1,DAR5     IF NOT WRITING INTERACTIVELY,               COMCIDP  4071
                                        *                              PACK -A- AND -B- REGISTERS...             COMCIDP  4072
                                                                                                                 COMCIDP  4073
                                        *         DUMP -B- REGISTERS.                                            COMCIDP  4074
                                                                                                                 COMCIDP  4075
          2650  0100002637 +             DAR2     RJ     DAB         DUMP -B- REGISTER                           COMCIDP  4076
          2651  66441                             SB4    B4+B1                                                   COMCIDP  4077
                     6170000007                   SB7    007B                                                    COMCIDP  4078
          2652  0674002650 +                      LE     B4,B7,DAR2  IF NOT DONE                                 COMCIDP  4079
                                                                                                                 COMCIDP  4080
                          13666                   PRIDP  ,,L.PRB                                                 COMCIDP  4081
                                                                                                                 COMCIDP  4082
                                        *         DUMP -A- REGISTERS.                                            COMCIDP  4083
                                                                                                                 COMCIDP  4084
          2654  0100002637 +             DAR3     RJ     DAB         DUMP -A- REGISTER                           COMCIDP  4085
          2655  66441                             SB4    B4+B1                                                   COMCIDP  4086
                     6170000017                   SB7    017B                                                    COMCIDP  4087
          2656  0674002654 +                      LE     B4,B7,DAR3  IF NOT DONE                                 COMCIDP  4088
                                                                                                                 COMCIDP  4089
                          13666                   PRIDP  ,,L.PRB                                                 COMCIDP  4090
                                                                                                                 COMCIDP  4091
                                        *         DUMP -X- REGISTERS.                                            COMCIDP  4092
                                                                                                                 COMCIDP  4093
          2660  0100003213 +             DAR4     RJ     DUX         DUMP -X- REGISTER                           COMCIDP  4094
          2661  66441                             SB4    B4+B1                                                   COMCIDP  4095
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   150
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAR                 IDP 
  
                     6170000027                   SB7    027B                                                    COMCIDP  4096
          2662  0674002660 +                      LE     B4,B7,DAR4  IF NOT DONE                                 COMCIDP  4097
                          0400002644 +            EQ     EXIT.                                                   COMCIDP  4098
                                                                                                                 COMCIDP  4099
                                        *         HERE IF PACKING -A- AND -B- REGISTERS IN BATCH MODE.           COMCIDP  4100
                                                                                                                 COMCIDP  4101
          2663  6160000607 +             DAR5     SB6    SNAPLNE                                                 COMCIDP  4102
                          0100003242 +            RJ     FAB         FORMAT -B- REGISTER                         COMCIDP  4103
          2664  6144000010                        SB4    B4+10B                                                  COMCIDP  4104
                          64660                   SB6    A6                                                      COMCIDP  4105
          2665  0100003242 +                      RJ     FAB         FORMAT -A- REGISTER                         COMCIDP  4106
          2666  7160000607 +                      PRIDP  SNAPLNE                                                 COMCIDP  4107
          2670  6144777770                        SB4    B4-10B+1                                                COMCIDP  4108
                          6170000007              SB7    007B                                                    COMCIDP  4109
          2671  0674002663 +                      LE     B4,B7,DAR5  IF NOT DONE                                 COMCIDP  4110
                                                                                                                 COMCIDP  4111
                          13666                   PRIDP  ,,L.PRB                                                 COMCIDP  4112
          2673  6140000020                        SB4    020B        (B4) = 0TR, WHERE T=2 (X REG)               COMCIDP  4113
                          0400002660 +            EQ     DAR4                                                    COMCIDP  4114
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    18
                                        **        DAZ - DEASSEMBLER.                                             COMCIDP  4116
                                        *                                                                        COMCIDP  4117
                                        *                                                                        COMCIDP  4118
                                        *                DEASSEMBLES A SINGLE BINARY INSTRUCTION TO ITS          COMCIDP  4119
                                        *         *COMPASS* MNEMONIC AND LISTS IT.                               COMCIDP  4120
                                        *                                                                        COMCIDP  4121
                                        *         ENTRY  (A5,     =  ADDR OF WORD CONTAINING INSTRUCTION TO      COMCIDP  4122
                                        *                              DEASSEMBLE                                COMCIDP  4123
                                        *                    X5)  =  WORD CONTAINING INSTRUCTION TO DEASSEMBLE   COMCIDP  4124
                                        *                            NOTE-- ((A5)) MIGHT NOT BE EQUAL TO (X5),   COMCIDP  4125
                                        *                              AS WOULD BE THE CASE WHEN DASSEMBLING     COMCIDP  4126
                                        *                              THE SAVED PREVIOUS CONTENTS OF AN IDP     COMCIDP  4127
                                        *                              GENERATED BREAK (SEE *STP*)               COMCIDP  4128
                                        *                (B4)     =  POSITION COUNTER. LEFT MOST BIT TO BE       COMCIDP  4129
                                        *                              DEASSEMBLED IS BIT (B4)-1 IN (X5).        COMCIDP  4130
                                        *                              (BITS ARE NUMBERED 59 THRU 0) COMPASS     COMCIDP  4131
                                        *                              EQUIVALENT WOULD BE--                     COMCIDP  4132
                                        *                                  POS   (B4)    IN (X5)                 COMCIDP  4133
                                        *                (IDPFAD) =  .NZ. IF *DAZ* IS TO UNCONDITIONALLY FORCE   COMCIDP  4134
                                        *                                   OUT ADDR OF DEASSEMBLED INSTRUCTION, COMCIDP  4135
                                        *                         =  .ZR. IF ADDR IS TO APPEAR ONLY IF INSTR IS  COMCIDP  4136
                                        *                                   FORCED UPPER IN WORD, I.E. (B4)=60D  COMCIDP  4137
                                        *                                                                        COMCIDP  4138
                                        *         EXIT   (A5,X5)  =  UNCHANGED                                   COMCIDP  4139
                                        *                (B4)     =  UNCHANGED                                   COMCIDP  4140
                                        *                (X1)     =  .MI. IF INSTRUCTION DEASSEMBLED FORCES      COMCIDP  4141
                                        *                              UPPER, ELSE .PL.                          COMCIDP  4142
                                        *                (B5)     =  NR OF BITS DEASSEMBLED IF NO FORCE UPPER,   COMCIDP  4143
                                        *                         =  NR OF BITS IN INSTRUCTION THAT FORCED UPPER COMCIDP  4144
                                        *                (IDPFAD) =  +0                                          COMCIDP  4145
                                        *                                                                        COMCIDP  4146
                                        *         USES   ALL BUT A5,X5,B4                                        COMCIDP  4147
                                        *                                                                        COMCIDP  4148
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   151
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ                 IDP 
  
                                        *         LOCKED (A6+1)   =  NEXT AVAILABLE *SNAPLNE* LOCATION           COMCIDP  4149
                                        *                                                                        COMCIDP  4150
                                        *         CALLS  CAD,PRIDP,VFD                                           COMCIDP  4151
                                                                                                                 COMCIDP  4152
                                                                                                                 COMCIDP  4153
          2674  0400402674 +             DAZ      SUBR               ** ENTRY/EXIT **                            COMCIDP  4154
          2675  6160000074                        SB6    60                                                      COMCIDP  4155
                          0604402675 +            LE     B4,B0,*+1S17  IF POSITION COUNTER IS BAD                COMCIDP  4156
          2676  5110006170 +                      SA1    =10H                                                    COMCIDP  4157
                          5120000641 +            SA2    IDPFAD                                                  COMCIDP  4158
          2677  43700                             MX7    0                                                       COMCIDP  4159
                     10611                        BX6    X1                                                      COMCIDP  4160
                          54720                   SA7    A2          CLEAR *FORCE OUT ADDR UNCONDITIONALLY* FLAG COMCIDP  4161
          2700  0312002701 +                      NZ     X2,DAZ1     IF FORCING OUT ADDR UNCONDITIONALLY         COMCIDP  4162
                          0746002703 +            LT     B4,B6,DAZ2  IF THIS INSTRUCTION NOT UPPER               COMCIDP  4163
                                                                                                                 COMCIDP  4164
                                        *         HERE IF INSTRUCTION IS UPPER, OUTPUT ADDRESS.                  COMCIDP  4165
                                                                                                                 COMCIDP  4166
          2701  76040                    DAZ1     SX0    B4          SAVE (B4)                                   COMCIDP  4167
                     74150                        SX1    A5          (X1) = ADDR OF INSTRUCTION TO DEASSEMBLE    COMCIDP  4168
                          0100002416 +            RJ     CAD         CONVERT ADDR TO DPC                         COMCIDP  4169
          2702  6240000000                        SB4    X0+         RESTORE (B4)                                COMCIDP  4170
                                                                                                                 COMCIDP  4171
                                        *         BREAK OUT OP CODE.                                             COMCIDP  4172
                                                                                                                 COMCIDP  4173
          2703  5160000607 +             DAZ2     SA6    SNAPLNE                                                 COMCIDP  4174
                          67604                   SB6    -B4                                                     COMCIDP  4175
                               43066              MX0    -6                                                      COMCIDP  4176
          2704  6166000102                        SB6    60+B6+6     60-(B4) = LEFT JUST SHIFT COUNT FOR INSTRTN COMCIDP  4177
                          22565                   LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OP CODE            COMCIDP  4178
                               15750              BX7    -X0*X5                                                  COMCIDP  4179
          2705  20503                             LX5    3           (X5) = 51/OTHER STUFF,6/OP CODE,3/I         COMCIDP  4180
                     43071                        MX0    -3                                                      COMCIDP  4181
                          5170003003 +            SA7    DAZ=OP                                                  COMCIDP  4182
          2706  0307002771 +                      ZR     X7,DAZ12    IF 00B OP CODE, REST OF WORD IS DATA        COMCIDP  4183
                                                                                                                 COMCIDP  4184
                                        *         BREAK OUT *I* FIELD.                                           COMCIDP  4185
                                                                                                                 COMCIDP  4186
                          15750                   BX7    -X0*X5                                                  COMCIDP  4187
                               20503              LX5    3           (X5) = 48/OTHER STUFF,6/OP,3/I,3/J          COMCIDP  4188
          2707  7277000033                        SX7    X7+1R0                                                  COMCIDP  4189
                          54771                   SA7    A7+B1       SAVE (X7) = 1R<I>                           COMCIDP  4190
                                                                                                                 COMCIDP  4191
                                        *         BREAK OUT *J* FIELD.                                           COMCIDP  4192
                                                                                                                 COMCIDP  4193
                               15750              BX7    -X0*X5                                                  COMCIDP  4194
          2710  20503                             LX5    3           (X5) = 45/OTHER,6/OP,3/I,3/J,3/K            COMCIDP  4195
                     7277000033                   SX7    X7+1R0                                                  COMCIDP  4196
                               54771              SA7    A7+B1       SAVE (X7) = 1R<J>                           COMCIDP  4197
                                                                                                                 COMCIDP  4198
                                        *         BREAK OUT *K* FIELD.                                           COMCIDP  4199
                                                                                                                 COMCIDP  4200
          2711  15750                             BX7    -X0*X5                                                  COMCIDP  4201
                     20517                        LX5    18-3        (X5) = 30/OTHER,6/OP,3/I,3/J,18/Q           COMCIDP  4202
                          7277000033              SX7    X7+1R0                                                  COMCIDP  4203
          2712  43052                             MX0    -18                                                     COMCIDP  4204
                     54771                        SA7    A7+B1       SAVE (X7) = 1R<K>                           COMCIDP  4205
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   152
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ                 IDP 
  
                                                                                                                 COMCIDP  4206
                                        *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                            COMCIDP  4207
                                                                                                                 COMCIDP  4208
                          15150                   BX1    -X0*X5      (X1) = 42/0,18/Q                            COMCIDP  4209
                               66540              SB5    B4          SAVE (B4)                                   COMCIDP  4210
          2713  6174777741                        SB7    60-60+B4-6-3-3-3-15  (B7) = 60-((60-(B4))+6+3+3+3+15)   COMCIDP  4211
                          73710                   SX7    X1                                                      COMCIDP  4212
                               22575              LX5    X5,B7       RESTORE (X5)                                COMCIDP  4213
          2714  5170003000 +                      SA7    DAZ=ADR                                                 COMCIDP  4214
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- *Q*           COMCIDP  4215
          2715  66450                             SB4    B5          RESTORE (B4)                                COMCIDP  4216
                     67221                        SB2    B2-B1                                                   COMCIDP  4217
                          43001                   MX0    1                                                       COMCIDP  4218
                               23020              AX0    X0,B2                                                   COMCIDP  4219
          2716  11704                             BX7    X0*X4       (X7) = 0L<Q>                                COMCIDP  4220
                     54771                        SA7    A7+B1                                                   COMCIDP  4221
                                                                                                                 COMCIDP  4222
                                        *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.      COMCIDP  4223
                                                                                                                 COMCIDP  4224
                          5110003003 +            SA1    DAZ=OP                                                  COMCIDP  4225
          2717  5221003022 +                      SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 COMCIDP  4226
                          6150000017              SB5    15                                                      COMCIDP  4227
          2720  10155                             BX1    X5                                                      COMCIDP  4228
                     0322002721 +                 PL     X2,DAZ3     IF SHORT (15 BIT) INSTRUCTION               COMCIDP  4229
                               66555              SB5    B5+B5       (B5) = 30                                   COMCIDP  4230
                                                                                                                 COMCIDP  4231
          2721  0745002771 +             DAZ3     LT     B4,B5,DAZ12 IF NOT ENOUGH ROOM FOR 30 BIT INSTR,        COMCIDP  4232
                                        *                                  MUST BE DATA                          COMCIDP  4233
                                                                                                                 COMCIDP  4234
                                        *         CONVERT BINARY INSTRUCTION PARCEL TO OCTAL DPC.                COMCIDP  4235
                                                                                                                 COMCIDP  4236
                          0100004674 +            RJ     VFD         VARIABLE FIELD DEFINITION                   COMCIDP  4237
          2722  54661                             SA6    A6+B1                                                   COMCIDP  4238
                     10677                        BX6    X7                                                      COMCIDP  4239
                          5066000001              SA6    A6+1                                                    COMCIDP  4240
                                                                                                                 COMCIDP  4241
                                        *         CHECK FOR X REGISTER BRANCH INSTRUCTION.                       COMCIDP  4242
                                                                                                                 COMCIDP  4243
          2723  5110003003 +                      SA1    DAZ=OP                                                  COMCIDP  4244
                          5221003022 +            SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 COMCIDP  4245
          2724  7261777774                        SX6    X1-03B                                                  COMCIDP  4246
                          0316002726 +            NZ     X6,DAZ4     IF NOT X REGISTER BRANCH                    COMCIDP  4247
          2725  5110003004 +                      SA1    DAZ=I                                                   COMCIDP  4248
                          5221003067 +            SA2    DAZ=XJP+X1-1R0    (X2) = X REG BRANCH SKELETON          COMCIDP  4249
                                                                                                                 COMCIDP  4250
                                        *         GENERATE ...OPI....      (.=BLANK(55B))                        COMCIDP  4251
                                                                                                                 COMCIDP  4252
          2726  5110003002 +             DAZ4     SA1    DAZ=OPI     (X1) = ...000....   (0=00B)                 COMCIDP  4253
                          43060                   MX0    -2*CHAR                                                 COMCIDP  4254
                               15620              BX6    -X0*X2      (X6) = 2R<OP>                               COMCIDP  4255
          2727  20636                             LX6    7*CHAR-2*CHAR                                           COMCIDP  4256
                     43070                        MX0    -4                                                      COMCIDP  4257
                          20207                   LX2    3+4         (X2) = 56/OTHER STUFF,4/1ST DESCRIPTOR      COMCIDP  4258
                               15320              BX3    -X0*X2                                                  COMCIDP  4259
          2730  5243003003 +                      SA4    DAZ=I-1+X3                                              COMCIDP  4260
                          12616                   BX6    X1+X6       (X6) = ...OP0....   (0=00B)                 COMCIDP  4261
                               20430              LX4    5*CHAR-1*CHAR                                           COMCIDP  4262
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   153
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ                 IDP 
  
          2731  12664                             BX6    X6+X4       (X6) = ...OPI....                           COMCIDP  4263
                                                                                                                 COMCIDP  4264
                                        *         ASSEMBLE NORMAL (I,J,K) ITEMS.                                 COMCIDP  4265
                                                                                                                 COMCIDP  4266
          2732  54661                    DAZ5     SA6    A6+B1                                                   COMCIDP  4267
                     6160000074                   SB6    10*CHAR                                                 COMCIDP  4268
                               43600              MX6    0                                                       COMCIDP  4269
                                                                                                                 COMCIDP  4270
          2733  20204                    DAZ6     LX2    4                                                       COMCIDP  4271
                     6166777771                   SB6    B6-CHAR                                                 COMCIDP  4272
                               15320              BX3    -X0*X2      (X3) = DESCRIPTOR                           COMCIDP  4273
          2734  5243003003 +                      SA4    DAZ=I-1+X3                                              COMCIDP  4274
                          0303002751 +            ZR     X3,DAZ11    IF END OF DESCRIPTOR LIST IN SKELETON       COMCIDP  4275
                                                                                                                 COMCIDP  4276
          2735  0334002737 +             DAZ7     MI     X4,DAZ8     IF THIS IS A CONDITIONAL ITEM               COMCIDP  4277
                          22464                   LX4    X4,B6                                                   COMCIDP  4278
                               12664              BX6    X6+X4                                                   COMCIDP  4279
          2736  0706002733 +                      GT     B6,B0,DAZ6  IF PACKING REG (X6) NOT FULL                COMCIDP  4280
                          0400002732 +            EQ     DAZ5                                                    COMCIDP  4281
                                                                                                                 COMCIDP  4282
                                        *         PROCESS AND ASSEMBLE CONDITONAL ITEM.                          COMCIDP  4283
                                                                                                                 COMCIDP  4284
          2737  0314002744 +             DAZ8     NZ     X4,DAZ9     IF *Q* 18 BIT ADDRESS                       COMCIDP  4285
                                                                                                                 COMCIDP  4286
                                        *         HERE TO PROCESS CONDITIONAL *B0* ASSEMBLY.                     COMCIDP  4287
                                                                                                                 COMCIDP  4288
                          20204                   LX2    4                                                       COMCIDP  4289
                               15320              BX3    -X0*X2                                                  COMCIDP  4290
          2740  5243003003 +                      SA4    DAZ=I-1+X3                                              COMCIDP  4291
                          7274777744              SX7    X4-1R0                                                  COMCIDP  4292
          2741  7140000002                        SX4    1RB                                                     COMCIDP  4293
                          20270                   LX2    -4          RESTORE (X2)                                COMCIDP  4294
          2742  0317002735 +                      NZ     X7,DAZ7     IF NOT *B0* REFERENCE                       COMCIDP  4295
                                                                                                                 COMCIDP  4296
                                        *         HERE TO IGNORE *B0* REFERENCE.                                 COMCIDP  4297
                                                                                                                 COMCIDP  4298
                          20210                   LX2    2*4         SKIP OVER *B0* AND SEPARATOR                COMCIDP  4299
          2743  6166000006                        SB6    B6+CHAR                                                 COMCIDP  4300
                          0400002733 +            EQ     DAZ6                                                    COMCIDP  4301
                                                                                                                 COMCIDP  4302
                                        *         HERE TO PROCESS *Q* 18 BIT ADDRESS.                            COMCIDP  4303
                                                                                                                 COMCIDP  4304
          2744  5110003001 +             DAZ9     SA1    DAZ=ADR+1   (X1) = 0L<Q>   (ALWAYS .LE. 6 CHARS)        COMCIDP  4305
                          43066                   MX0    -CHAR                                                   COMCIDP  4306
                                                                                                                 COMCIDP  4307
                                        *         ASSEMBLE *Q*.                                                  COMCIDP  4308
                                                                                                                 COMCIDP  4309
          2745  20106                    DAZ10    LX1    CHAR                                                    COMCIDP  4310
                     15410                        BX4    -X0*X1                                                  COMCIDP  4311
                          0304002751 +            ZR     X4,DAZ11    IF FINISHED ASSEMBLING *Q*                  COMCIDP  4312
          2746  22464                             LX4    X4,B6                                                   COMCIDP  4313
                     6166777771                   SB6    B6-CHAR                                                 COMCIDP  4314
                               12664              BX6    X6+X4                                                   COMCIDP  4315
          2747  0660002745 +                      GE     B6,B0,DAZ10 IF PACKING REG (X6) NOT FULL                COMCIDP  4316
                          54661                   SA6    A6+B1                                                   COMCIDP  4317
                               43600              MX6    0                                                       COMCIDP  4318
          2750  6160000066                        SB6    10*CHAR-1*CHAR                                          COMCIDP  4319
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   154
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ                 IDP 
  
                          0400002745 +            EQ     DAZ10                                                   COMCIDP  4320
                                                                                                                 COMCIDP  4321
                                        *         STORE FINAL WORD.                                              COMCIDP  4322
                                                                                                                 COMCIDP  4323
          2751  10166                    DAZ11    BX1    X6                                                      COMCIDP  4324
                     0100005274 +                 RJ     =XSFN       SPACE FILL NAME                             COMCIDP  4325
          2752  5066000001                        SA6    A6+1                                                    COMCIDP  4326
                                                                                                                 COMCIDP  4327
                                        *         GENERATE RELATIVE ADDRESS.                                     COMCIDP  4328
                                                                                                                 COMCIDP  4329
                          5110003000 +            SA1    DAZ=ADR                                                 COMCIDP  4330
          2753  5120006170 +                      SA2    =10H                                                    COMCIDP  4331
                          6130000614 +            SB3    SNAPLNE+5                                               COMCIDP  4332
          2754  64260                             SB2    A6                                                      COMCIDP  4333
                     56040                        SA0    B4          SAVE (B4)                                   COMCIDP  4334
                          7105000000              SX0    B5+         SAVE (B5)                                   COMCIDP  4335
          2755  0623002756 +                      GE     B2,B3,DAZ11A IF WE DONT NEED BLANK FILL                 COMCIDP  4336
                          10622                   BX6    X2                                                      COMCIDP  4337
                               54661              SA6    A6+B1                                                   COMCIDP  4338
                                                                                                                 COMCIDP  4339
          2756  6160000036               DAZ11A   SB6    30                                                      COMCIDP  4340
                          0331002764 +            MI     X1,DAZ11C   IF ADDR IS .MI. (I.E. NOT AN ADDRESS)       COMCIDP  4341
          2757  0756002764 +                      LT     B5,B6,DAZ11C IF 15 BIT INSTRUCTION, NO RELATIVE ADDR    COMCIDP  4342
                          0100003320 +            RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  4343
          2760  0770002764 +                      MI     B7,DAZ11C   IF USER DID NOT PROVIDE *FRA=*              COMCIDP  4344
                                                                                                                 COMCIDP  4345
                          54160                   SA1    A6          (X1) = XX........   .=BLANK(55B)            COMCIDP  4346
                                        *                              X=DIFFERENT CHARS DEPENDING ON DEASSEMBLY COMCIDP  4347
                               43222              MX2    3*CHAR                                                  COMCIDP  4348
          2761  11121                             BX1    X2*X1       (X1) = XX.0000000   (.=BLANK(55B),0=00B)    COMCIDP  4349
                     20652                        LX6    -3*CHAR                                                 COMCIDP  4350
                          15662                   BX6    -X2*X6      (X6) = 000NNNNNN.   (.=BLANK(55B),0=00B)    COMCIDP  4351
                               12661              BX6    X6+X1       (X6) = XX.NNNNNN.   (.=BLANK(55B))          COMCIDP  4352
          2762  54610                             SA6    A1                                                      COMCIDP  4353
                     7110111655                   SX1    3RIN                                                    COMCIDP  4354
                               12671              BX6    X7+X1       (X6) = XXXXXXXIN.   (.=BLANK(55B))          COMCIDP  4355
          2763  20652                             LX6    10*CHAR-3*CHAR                                          COMCIDP  4356
                     54661                        SA6    A6+B1                                                   COMCIDP  4357
                                                                                                                 COMCIDP  4358
                                        *         FINAL PROCESSING AND EXIT.                                     COMCIDP  4359
                                                                                                                 COMCIDP  4360
          2764  43600                    DAZ11C   MX6    0                                                       COMCIDP  4361
                     54661                        SA6    A6+B1                                                   COMCIDP  4362
                          7160000607 +            PRIDP  =XSNAPLNE                                               COMCIDP  4363
          2766  64400                             SB4    A0          RESTORE (B4)                                COMCIDP  4364
                     63500                        SB5    X0          RESTORE (B5)                                COMCIDP  4365
                          6160000002              SB6    59-57                                                   COMCIDP  4366
          2767  5120003003 +                      SA2    DAZ=OP                                                  COMCIDP  4367
                          5222003022 +            SA2    DAZ=PS+X2                                               COMCIDP  4368
          2770  22162                             LX1    X2,B6       SET TO *FORCED UPPER(.MI.)/NOT UPPER(.PL.)* COMCIDP  4369
                     0400002674 +                 EQ     EXIT.                                                   COMCIDP  4370
                                                                                                                 COMCIDP  4371
                                        *         HERE IF OUTPUTING REST OF WORD AS DATA.                        COMCIDP  4372
                                                                                                                 COMCIDP  4373
          2771  66540                    DAZ12    SB5    B4          (B5) = LENGTH OF REMAINDER OF INSTR WORD    COMCIDP  4374
                     54150                        SA1    A5          (X1) = INSTRUCTION WORD                     COMCIDP  4375
                          0100004674 +            RJ     VFD         VARIABLE FIELD DEFINITION                   COMCIDP  4376
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   155
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ                 IDP 
  
          2772  54661                             SA6    A6+B1                                                   COMCIDP  4377
                     54761                        SA7    A6+B1                                                   COMCIDP  4378
                          5110006507 +            SA1    =7L   DATA                                              COMCIDP  4379
          2773  10611                             BX6    X1                                                      COMCIDP  4380
                     54671                        SA6    A7+B1                                                   COMCIDP  4381
                          76050                   SX0    B5          SAVE (B5)                                   COMCIDP  4382
          2774  7160000607 +                      PRIDP  =XSNAPLNE                                               COMCIDP  4383
          2776  63500                             SB5    X0          RESTORE (B5)                                COMCIDP  4384
                     43200                        MX2    0           SET TO *THIS IS A DATA ITEM*                COMCIDP  4385
                          43101                   MX1    1           SET TO *FORCED UPPER*                       COMCIDP  4386
          2777  0400002674 +                      EQ     EXIT.                                                   COMCIDP  4387
                                                                                                                 COMCIDP  4388
                                                                                                                 COMCIDP  4389
          3000                     1     DAZ=ADR  BSSZ   1           18 BIT *Q* IN BINARY                        COMCIDP  4390
          3001                     1              BSSZ   1           18 BIT *Q* IN -0L- FORMAT                   COMCIDP  4391
          3002  55555500000055555555     DAZ=OPI  CON    3L   +4R                                                COMCIDP  4392
          3003  00000000000000000000     DAZ=OP   DATA   0           OP CODE FOR INSTRUCTION                     COMCIDP  4393
          3004  00000000000000000000     DAZ=I    DATA   0           *I* REGISTER PORTION OF INSTRUCTION         COMCIDP  4394
          3005  00000000000000000000     DAZ=J    DATA   0           *J* REGISTER PORTION OF INSTRUCTION         COMCIDP  4395
          3006  00000000000000000000     DAZ=K    DATA   0           *K* REGISTER PORTION OF INSTRUCTION         COMCIDP  4396
          3007  77777777777777777776     DAZ=Q    DATA   -1          FLAG TO INDICATE 18 BIT *Q*                 COMCIDP  4397
          3010  00000000000000000045              DATA   1R+                                                     COMCIDP  4398
          3011  00000000000000000046              DATA   1R-                                                     COMCIDP  4399
          3012  00000000000000000047              DATA   1R*                                                     COMCIDP  4400
          3013  00000000000000000050              DATA   1R/                                                     COMCIDP  4401
          3014  00000000000000000056              DATA   1R,                                                     COMCIDP  4402
          3015  00000000000000000001              DATA   1RA                                                     COMCIDP  4403
          3016  00000000000000000002              DATA   1RB                                                     COMCIDP  4404
          3017  77777777777777777777              DATA   -0          FLAG TO INDICATE CONDITIONAL *B0* ASSEMBLY  COMCIDP  4405
          3020  00000000000000000030              DATA   1RX                                                     COMCIDP  4406
          3021  00000000000000000055              DATA   1R                                                      COMCIDP  4407
  
  
  
  
                                        **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                COMCIDP  4409
                                        *         GENERATES TABLE OF INSTRUCTION SKELETONS USED BY *PIG* TO      COMCIDP  4410
                                        *                CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR THE     COMCIDP  4411
                                        *                OBJECT CODE LISTING.                                    COMCIDP  4412
                                        *                                                                        COMCIDP  4413
                                        *         INST   (KEY),BJMP,FORCE,IJJ                                    COMCIDP  4414
                                        *                                                                        COMCIDP  4415
                                        *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*  COMCIDP  4416
                                        *                  HAS MEANING AS FOLLOWS --                             COMCIDP  4417
                                        *                            I   I-PORTION OF INSTRUCTION                COMCIDP  4418
                                        *                            J   J-PORTION OF INSTRUCTION                COMCIDP  4419
                                        *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)  COMCIDP  4420
                                        *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST) COMCIDP  4421
                                        *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS    COMCIDP  4422
                                        *                                            NOT A ZERO,                 COMCIDP  4423
                                        *                                            ELSE, SKIP THE NEXT 2 ITEMS COMCIDP  4424
                                        *                            + - * / A B X , AND BLANK ALL STAND FOR     COMCIDP  4425
                                        *                                            THEMSELVES.                 COMCIDP  4426
                                        *         *BJMP* = NON-EMPTY IF THIS A *B-REGISTER* JUMP INSTRUCTION.    COMCIDP  4427
                                        *                            (04 THRU 07 INSTRUCTION.)                   COMCIDP  4428
                                        *         *FORCE*= THIS INSTRUCTION FORCES THE NEXT INSTRUCTION UPPER.   COMCIDP  4429
                                        *         *COPY* = COPY *J* INTO *K*.                                    COMCIDP  4430
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   156
        IDP 1.1/SUPPORTING SUBROUTINES.                               INST                IDP 
  
                                                                                                                 COMCIDP  4431
                                  14     P.COPY   =      2*CHAR                                                  COMCIDP  4432
                                                  NOREF  D,L                                                     COMCIDP  4433
                                                                                                                 COMCIDP  4434
                                                                                                                 COMCIDP  4435
                                         INST     MACRO  KEY,BJMP,FORCE,IJJ                                      COMCIDP  4436
                                         A        MICRO  3,1,=KEY=                                               COMCIDP  4437
                                         B        MICRO  5,,=KEY=                                                COMCIDP  4438
                                         B        MICRO  1,,="A""B"=                                             COMCIDP  4439
                                         C        MICCNT B                                                       COMCIDP  4440
                                         D        SET    0                                                       COMCIDP  4441
                                         L        SET    0                                                       COMCIDP  4442
                                         A        MICRO  C+3,1,=KEY=                                             COMCIDP  4443
                                                  IFC    EQ,="A"=Q=,1                                            COMCIDP  4444
                                         L        SET    L+4                                                     COMCIDP  4445
                                                  IFC    NE,,BJMP,,,1                                            COMCIDP  4446
                                         L        SET    L+2                                                     COMCIDP  4447
                                                  IFC    NE,,FORCE,,,1                                           COMCIDP  4448
                                         L        SET    L+1                                                     COMCIDP  4449
                                                  VFD    3/L                                                     COMCIDP  4450
                                        .1        DUP    C                                                       COMCIDP  4451
                                         D        SET    D+1                                                     COMCIDP  4452
                                         A        MICRO  D,1,="B"=                                               COMCIDP  4453
                                         A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U COMCIDP  4454
                                        ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=1409/                     COMCIDP  4455
                                                  VFD    4/"A"                                                   COMCIDP  4456
                                        .1        ENDD                                                           COMCIDP  4457
                                                  IFLE   $,2*6-1+4,1                                             COMCIDP  4458
                                         8        ERR    INST - DESCRIPTOR (KEY) IS TOO LONG                     COMCIDP  4459
                                                  POS    P.COPY+1                                                COMCIDP  4460
                                         A        MICRO  1,2, KEY                                                COMCIDP  4461
                                                  VFD    1/IJJ,12/2R"A"                                          COMCIDP  4462
                                         INST     ENDM                                                           COMCIDP  4463
  
  
  
  
                                        **        DAZ=PS - INSTRUCTION SKELETON TABLES FOR *DAZ*.                COMCIDP  4465
                                                                                                                 COMCIDP  4466
                                                                                                                 COMCIDP  4467
          3022  4                        DAZ=PS   INST   (PS  Q)               00    (FAKE)                      COMCIDP  4468
          3023  5                                 INST   (RJ  Q),,1            01                                COMCIDP  4469
          3024  5                                 INST   (JP  CI+Q),,1         02                                COMCIDP  4470
          3025  4                                 INST   (JXI XJ,Q)            03I  (FAKE)                       COMCIDP  4471
          3026  6                        DAZ=EQ   INST   (EQ  CI,CJ,Q),1       04                                COMCIDP  4472
          3027  6                                 INST   (NE  CI,CJ,Q),1       05                                COMCIDP  4473
          3030  6                                 INST   (GE  BI,CJ,Q),1       06                                COMCIDP  4474
          3031  6                                 INST   (LT  BI,CJ,Q),1       07                                COMCIDP  4475
                                                                                                                 COMCIDP  4476
          3032  0                                 INST   (BXI XJ),,,1          10                                COMCIDP  4477
          3033  0                                 INST   (BXI XJ*XK)           11                                COMCIDP  4478
          3034  0                                 INST   (BXI XJ+XK)           12                                COMCIDP  4479
          3035  0                                 INST   (BXI XJ-XK)           13                                COMCIDP  4480
          3036  0                                 INST   (BXI -XJ),,,1         14                                COMCIDP  4481
          3037  0                                 INST   (BXI -XK*XJ)          15                                COMCIDP  4482
          3040  0                                 INST   (BXI -XK+XJ)          16                                COMCIDP  4483
          3041  0                                 INST   (BXI -XJ-XK)          17                                COMCIDP  4484
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   157
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ=PS              IDP 
  
                                                                                                                 COMCIDP  4485
          3042  0                                 INST   (LXI JKB)             20                                COMCIDP  4486
          3043  0                                 INST   (AXI JKB)             21                                COMCIDP  4487
          3044  0                                 INST   (LXI CJ,XK)           22                                COMCIDP  4488
          3045  0                                 INST   (AXI CJ,XK)           23                                COMCIDP  4489
          3046  0                                 INST   (NXI CJ,XK)           24                                COMCIDP  4490
          3047  0                                 INST   (ZXI CJ,XK)           25                                COMCIDP  4491
          3050  0                                 INST   (UXI CJ,XK)           26                                COMCIDP  4492
          3051  0                                 INST   (PXI CJ,XK)           27                                COMCIDP  4493
                                                                                                                 COMCIDP  4494
          3052  0                                 INST   (FXI XJ+XK)           30                                COMCIDP  4495
          3053  0                                 INST   (FXI XJ-XK)           31                                COMCIDP  4496
          3054  0                                 INST   (DXI XJ+XK)           32                                COMCIDP  4497
          3055  0                                 INST   (DXI XJ-XK)           33                                COMCIDP  4498
          3056  0                                 INST   (RXI XJ+XK)           34                                COMCIDP  4499
          3057  0                                 INST   (RXI XJ-XK)           35                                COMCIDP  4500
          3060  0                                 INST   (IXI XJ+XK)           36                                COMCIDP  4501
          3061  0                                 INST   (IXI XJ-XK)           37                                COMCIDP  4502
                                                                                                                 COMCIDP  4503
          3062  0                                 INST   (FXI XJ*XK)           40                                COMCIDP  4504
          3063  0                                 INST   (RXI XJ*XK)           41                                COMCIDP  4505
          3064  0                                 INST   (DXI XJ*XK)           42                                COMCIDP  4506
          3065  0                                 INST   (MXI JKB)             43                                COMCIDP  4507
          3066  0                                 INST   (FXI XJ/XK)           44                                COMCIDP  4508
          3067  0                                 INST   (RXI XJ/XK)           45                                COMCIDP  4509
          3070  0                                 INST   (NO  IJKB)            46                                COMCIDP  4510
          3071  0                                 INST   (CXI XK),,,1          47                                COMCIDP  4511
                                                                                                                 COMCIDP  4512
          3072  4                                 INST   (SAI AJ+Q)            50                                COMCIDP  4513
          3073  4                                 INST   (SAI CJ+Q)            51                                COMCIDP  4514
          3074  4                                 INST   (SAI XJ+Q)            52                                COMCIDP  4515
          3075  0                                 INST   (SAI CK+XJ)           53                                COMCIDP  4516
          3076  0                                 INST   (SAI CK+AJ)           54                                COMCIDP  4517
          3077  0                                 INST   (SAI AJ-BK)           55                                COMCIDP  4518
          3100  0                                 INST   (SAI CK+BJ)           56                                COMCIDP  4519
          3101  0                                 INST   (SAI -BK+BJ)          57                                COMCIDP  4520
                                                                                                                 COMCIDP  4521
          3102  4                                 INST   (SBI AJ+Q)            60                                COMCIDP  4522
          3103  4                                 INST   (SBI CJ+Q)            61                                COMCIDP  4523
          3104  4                                 INST   (SBI XJ+Q)            62                                COMCIDP  4524
          3105  0                                 INST   (SBI CK+XJ)           63                                COMCIDP  4525
          3106  0                                 INST   (SBI CK+AJ)           64                                COMCIDP  4526
          3107  0                                 INST   (SBI AJ-BK)           65                                COMCIDP  4527
          3110  0                                 INST   (SBI CK+BJ)           66                                COMCIDP  4528
          3111  0                                 INST   (SBI -BK+BJ)          67                                COMCIDP  4529
                                                                                                                 COMCIDP  4530
          3112  4                                 INST   (SXI AJ+Q)            70                                COMCIDP  4531
          3113  4                                 INST   (SXI CJ+Q)            71                                COMCIDP  4532
          3114  4                                 INST   (SXI XJ+Q)            72                                COMCIDP  4533
          3115  0                                 INST   (SXI CK+XJ)           73                                COMCIDP  4534
          3116  0                                 INST   (SXI CK+AJ)           74                                COMCIDP  4535
          3117  0                                 INST   (SXI AJ-BK)           75                                COMCIDP  4536
          3120  0                                 INST   (SXI CK+BJ)           76                                COMCIDP  4537
          3121  0                                 INST   (SXI -BK+BJ)          77                                COMCIDP  4538
                                                                                                                 COMCIDP  4539
          3122  4                        DAZ=XJP  INST   (ZR  XJ,Q)            030                               COMCIDP  4540
          3123  4                                 INST   (NZ  XJ,Q)            031                               COMCIDP  4541
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   158
        IDP 1.1/SUPPORTING SUBROUTINES.                               DAZ=PS              IDP 
  
          3124  4                                 INST   (PL  XJ,Q)            032                               COMCIDP  4542
          3125  4                                 INST   (MI  XJ,Q)            033                               COMCIDP  4543
          3126  4                                 INST   (IR  XJ,Q)            034                               COMCIDP  4544
          3127  4                                 INST   (OR  XJ,Q)            035                               COMCIDP  4545
          3130  4                                 INST   (DF  XJ,Q)            036                               COMCIDP  4546
          3131  4                                 INST   (ID  XJ,Q)            037                               COMCIDP  4547
  
  
  
  
                                         .IDPOS   ENDIF                                                          CCGA018    19
                                        **        DCM - DUMP CENTRAL MEMORY.                                     COMCIDP  4549
                                        *                                                                        COMCIDP  4550
                                        *                                                                        COMCIDP  4551
                                        *                CONVERTS CM WORDS TO OCTAL DPC AND DUMPS THEM IN THE    COMCIDP  4552
                                        *         FOLLOWING FORMAT--                                             COMCIDP  4553
                                        *     COL 1         1         1         1         1                      COMCIDP  4554
                                        *         .NNNNNN.+.CCCCCCCCCCCCCCCCCCCC..........ETC                    COMCIDP  4555
                                        *                   ******************************                       COMCIDP  4556
                                        *         N = ADDR OF 1ST WORD DUMPED ON LINE                            COMCIDP  4557
                                        *         + = + IF *NNNNNN* IS DECK RELATIVE, ELSE                       COMCIDP  4558
                                        *           = BLANK(55B) IF *NNNNNN* IS ABSOLUTE ADDR.                   COMCIDP  4559
                                        *         C = CONVERTED CM WORD                                          COMCIDP  4560
                                        *         . = BLANK(55B)                                                 COMCIDP  4561
                                        *         THE FORMAT OF COLS 11 THRU 40 (INDICATED BY *) IS REPEATED FOR COMCIDP  4562
                                        *           HOWEVER MANY CM WORDS ARE TO BE DUMPED ON A LINE.            COMCIDP  4563
                                        *                                                                        COMCIDP  4564
                                        *                (IDPFLG) = 42/OTHER, 18/NR OF CM WORDS TO BE DUMPED ON  COMCIDP  4565
                                        *                             A SINGLE LINE                              COMCIDP  4566
                                        *                                                                        COMCIDP  4567
                                        *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR ,21/FWA                 COMCIDP  4568
                                        *                (X3) = 18/0, 21/LEV OF IND ADDR ,21/LWA                 COMCIDP  4569
                                        *                         (X3) IS OPTIONAL                               COMCIDP  4570
                                        *                (X4) = 18/0,21/LEV OF IND ADDR ,21/LEN                  COMCIDP  4571
                                        *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,    COMCIDP  4572
                                        *                                        ELSE DMP IS FROM FWA TO FWA+LEN COMCIDP  4573
                                        *                                                                        COMCIDP  4574
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN BAD, ELSE .PL.           COMCIDP  4575
                                        *                                                                        COMCIDP  4576
                                        *         USES   ALL BUT A0  (INCLUDES ALL CALLS)                        COMCIDP  4577
                                        *                                                                        COMCIDP  4578
                                        *         CALLS  CAD,FLL,PRIDP,WOD                                       COMCIDP  4579
                                                                                                                 COMCIDP  4580
                                                                                                                 COMCIDP  4581
          3132  0400403132 +             DCM      SUBR               ** ENTRY/EXIT **                            COMCIDP  4582
          3133  0100003265 +                      RJ     FLL         CHECK FWA,LWA, AND LENGTH                   COMCIDP  4583
          3134  5110006170 +                      SA1    =10H                                                    COMCIDP  4584
                          0720003132 +            MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                   COMCIDP  4585
          3135  10611                             BX6    X1                                                      COMCIDP  4586
                     66600                        SB6    B0          PRESET TO *READY FOR NEW SNAP LINE*         COMCIDP  4587
                          5160000607 +            SA6    SNAPLNE     PRESTORE (A6) = ADDR OF LAST WORD STORED    COMCIDP  4588
                                        *                              INTO SNAP LINE.  THIS WILL FORCE A BLANK  COMCIDP  4589
                                        *                              LINE TO BE OUTPUT AS 1ST LINE OF DUMP.    COMCIDP  4590
                                                                                                                 COMCIDP  4591
                                        *         ** MAIN LOOP NODE **                                           COMCIDP  4592
                                                                                                                 COMCIDP  4593
          3136  5150000164 +             DCM2     SA5    AP=FWA      (X5) = ADDR OF NEXT WORD TO DUMP            COMCIDP  4594
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   159
        IDP 1.1/SUPPORTING SUBROUTINES.                               DCM                 IDP 
  
                          54251                   SA2    A5+B1       (X2) = LWA OF DUMP                          COMCIDP  4595
                               37325              IX3    X2-X5                                                   COMCIDP  4596
          3137  73751                             SX7    X5+B1                                                   COMCIDP  4597
                     0333003157 +                 MI     X3,DCM6     IF FINISHED                                 COMCIDP  4598
                               54750              SA7    A5                                                      COMCIDP  4599
          3140  0706003146 +                      GT     B6,B0,DCM3  IF MORE WORDS TO DUMP ON THIS LINE          COMCIDP  4600
                                                                                                                 COMCIDP  4601
                                        *         HERE IF READY TO OUTPUT OLD LINE AND START NEW LINE BY         COMCIDP  4602
                                        *           SETTING UP ADDR OF 1ST WORD ON LINE.                         COMCIDP  4603
                                                                                                                 COMCIDP  4604
                          43600                   MX6    0                                                       COMCIDP  4605
                               54661              SA6    A6+B1       MARK EOL                                    COMCIDP  4606
          3141  7160000607 +                      PRIDP  SNAPLNE                                                 COMCIDP  4607
                                                                                                                 COMCIDP  4608
          3143  73150                             SX1    X5                                                      COMCIDP  4609
                     0100002416 +                 RJ     CAD         CONVERT ADDR TO DPC                         COMCIDP  4610
          3144  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  4611
                          63610                   SB6    X1          (B6) = NR OF WORDS TO DUMP ON A LINE        COMCIDP  4612
          3145  5160000607 +                      SA6    SNAPLNE                                                 COMCIDP  4613
                          0606403145 +            LE     B6,B0,*+4S15 IF BAD WORDS PER LINE COUNT...             COMCIDP  4614
                                                                                                                 COMCIDP  4615
                                        *         HERE TO DUMP A SINGLE WORD.                                    COMCIDP  4616
                                                                                                                 COMCIDP  4617
          3146  53150                    DCM3     SA1    X5          (X1) = NEXT WORD TO BE DUMPED               COMCIDP  4618
                     5120006170 +                 SA2    =10H                                                    COMCIDP  4619
          3147  0311003153 +                      NZ     X1,DCM4     IF WORD TO DUMP IS NON-ZERO                 COMCIDP  4620
                          7130000066              SX3    2R 0&2R                                                 COMCIDP  4621
          3150  7140001366                        SX4    2R-0&2R                                                 COMCIDP  4622
                          15331                   BX3    -X1*X3                                                  COMCIDP  4623
                               16441              BX4    -X1+X4                                                  COMCIDP  4624
          3151  36534                             IX5    X3+X4                                                   COMCIDP  4625
                     22602                        LX6    X2                                                      COMCIDP  4626
                          13725                   BX7    X2-X5       (X7) = .........0   (.=55B)  IF (X1) = +0   COMCIDP  4627
                                        *                                 = ........-0   (.=55B)  IF (X1) = -0   COMCIDP  4628
          3152  0400003154 +                      EQ     DCM5                                                    COMCIDP  4629
                                                                                                                 COMCIDP  4630
          3153  0100005643 +             DCM4     RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     COMCIDP  4631
                                                                                                                 COMCIDP  4632
          3154  54661                    DCM5     SA6    A6+B1                                                   COMCIDP  4633
                     54761                        SA7    A6+B1                                                   COMCIDP  4634
                          5110006170 +            SA1    =10H                                                    COMCIDP  4635
          3155  67661                             SB6    B6-B1                                                   COMCIDP  4636
                     10611                        BX6    X1                                                      COMCIDP  4637
                          54671                   SA6    A7+B1                                                   COMCIDP  4638
          3156  0400003136 +                      EQ     DCM2        MAIN LOOP...                                COMCIDP  4639
                                                                                                                 COMCIDP  4640
                                        *         HERE IF FINISHED -- NEED TO OUTPUT FINAL WORD.                 COMCIDP  4641
                                                                                                                 COMCIDP  4642
          3157  43600                    DCM6     MX6    0                                                       COMCIDP  4643
                     54661                        SA6    A6+B1       MARK EOL                                    COMCIDP  4644
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  4645
          3161  0400003132 +                      EQ     EXIT.                                                   COMCIDP  4646
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   160
        IDP 1.1/SUPPORTING SUBROUTINES.                               DOD                 IDP 
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    20
                                        **        DOD - DUMP CENTRAL MEMORY -- OCTAL AND DPC.                    COMCIDP  4648
                                        *                                                                        COMCIDP  4649
                                        *                                                                        COMCIDP  4650
                                        *                CONVERTS CM WORDS TO OCTAL DPC AND ALSO DUMPS THE       COMCIDP  4651
                                        *         UNCONVERTED DPC EQUIVALENT IN THE FOLLOWING FORMAT--           COMCIDP  4652
                                        *     COL 1         1         1         1         1         1            COMCIDP  4653
                                        *         .NNNNNN.+.CCCCCCCCCCCCCCCCCCCC..........UUUUUUUUUU             COMCIDP  4654
                                        *         N = ADDR OF WORD DUMPED                                        COMCIDP  4655
                                        *         + = + IF *NNNNNN* IS DECK RELATIVE, ELSE                       COMCIDP  4656
                                        *           = BLANK(55B) IF *NNNNNN* IS ABSOLUTE ADDR.                   COMCIDP  4657
                                        *         C = CONVERTED CM WORD                                          COMCIDP  4658
                                        *         U = UNCONVERTED CM WORD. NOTE--TRAILING COLONS ARE TREATED AS  COMCIDP  4659
                                        *               AN EOL AND THEREFORE WILL NOT APPEAR.                    COMCIDP  4660
                                        *         . = BLANK(55B)                                                 COMCIDP  4661
                                        *                                                                        COMCIDP  4662
                                        *         ENTRY  (X2) = 18/0,21/LEV OF IND ADDR,21/FWA                   COMCIDP  4663
                                        *                (X3) = 18/0,21/LEV OF IND ADDR,21/LWA                   COMCIDP  4664
                                        *                       NOTE-- (X3) IS OPTIONAL                          COMCIDP  4665
                                        *                (X4) = 18/0,21/LEV OF IND ADDR,21/LEN                   COMCIDP  4666
                                        *                         NOTE-- IF LEN = 0, DMP IS FROM FWA TO LWA,     COMCIDP  4667
                                        *                         ELSE DMP IS FROM FWA TO FWA+LEN-1              COMCIDP  4668
                                        *                                                                        COMCIDP  4669
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN IS BAD, ELSE .PL.        COMCIDP  4670
                                        *                                                                        COMCIDP  4671
                                        *         USES   ALL                        (INCLUDES ALL CALLS)         COMCIDP  4672
                                        *                                                                        COMCIDP  4673
                                        *         CALLS  CAD,FLL,PRIDP,WOD,ZTB                                   COMCIDP  4674
                                                                                                                 COMCIDP  4675
                                                                                                                 COMCIDP  4676
          3162  0400403162 +             DOD      SUBR               ** ENTRY/EXIT **                            COMCIDP  4677
          3163  0100003265 +                      RJ     FLL         CHECK FWA,LWA, AND LENGTH                   COMCIDP  4678
          3164  0720003162 +                      MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                   COMCIDP  4679
                                                                                                                 COMCIDP  4680
                                        *         HERE TO BUILD SNAP OUTPUT LINE.                                COMCIDP  4681
                                                                                                                 COMCIDP  4682
          3165  5110000164 +             DOD2     SA1    AP=FWA      (X1) = ADDR OF NEXT WORD TO DUMP            COMCIDP  4683
                          54211                   SA2    A1+B1       (X2) = LWA TO DUMP                          COMCIDP  4684
                               37321              IX3    X2-X1                                                   COMCIDP  4685
          3166  73611                             SX6    X1+B1                                                   COMCIDP  4686
                     66200                        SB2    B0          SET TO *NO ERROR OCCURRED*                  COMCIDP  4687
                          0333003162 +            MI     X3,EXIT.    IF FINISHED                                 COMCIDP  4688
          3167  54610                             SA6    A1                                                      COMCIDP  4689
                     53010                        SA0    X1                                                      COMCIDP  4690
                          0100002416 +            RJ     CAD         CONVERT ADDR TO DPC                         COMCIDP  4691
          3170  5160000607 +                      SA6    SNAPLNE                                                 COMCIDP  4692
                          54100                   SA1    A0          (X1) = NEXT WORD TO BE DUMPED               COMCIDP  4693
          3171  0100005643 +                      RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     COMCIDP  4694
          3172  54661                             SA6    A6+B1                                                   COMCIDP  4695
                     54761                        SA7    A6+B1                                                   COMCIDP  4696
                          5110006170 +            SA1    =10H                                                    COMCIDP  4697
          3173  10611                             BX6    X1                                                      COMCIDP  4698
                     54671                        SA6    A7+B1                                                   COMCIDP  4699
                                                                                                                 COMCIDP  4700
                          5010000000              SA1    A0+         (X1) = WORD TO BE DUMPED                    COMCIDP  4701
          3174  0100006043 +                      RJ     =XZTB       CONVERT ZEROES TO BLANKS                    COMCIDP  4702
          3175  5066000001                        SA6    A6+1                                                    COMCIDP  4703
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   161
        IDP 1.1/SUPPORTING SUBROUTINES.                               DOD                 IDP 
  
                                                                                                                 COMCIDP  4704
                          13666                   BX6    X6-X6                                                   COMCIDP  4705
                               54661              SA6    A6+B1       MARK EOL                                    COMCIDP  4706
          3176  7160000607 +                      PRIDP  SNAPLNE                                                 COMCIDP  4707
          3200  0400003165 +                      EQ     DOD2                                                    COMCIDP  4708
                                         .IDPOS   ENDIF                                                          CCGA018    21
  
  
  
  
                                        **        DSR - DUMP SELECTED REGISTERS.                                 COMCIDP  4710
                                        *                                                                        COMCIDP  4711
                                        *                                                                        COMCIDP  4712
                                        *                PERFORMS A SELECTED REGISTER DUMP, BASED ON A PARAMETER COMCIDP  4713
                                        *         LIST SET UP BY *SNAP* AND/OR *REG* MACROS.                     COMCIDP  4714
                                        *                                                                        COMCIDP  4715
                                        *                0TR = REGISTER DESIGNATOR                               COMCIDP  4716
                                        *                            T = REGISTER TYPE                           COMCIDP  4717
                                        *                              = 0 FOR -B- REGISTER                      COMCIDP  4718
                                        *                              = 1 FOR -A- REGISTER                      COMCIDP  4719
                                        *                              = 2 FOR -X- REGISTER                      COMCIDP  4720
                                        *                            R = REGISTER NR (0-7)                       COMCIDP  4721
                                        *                              E.G. A3 WOULD BE 013B                     COMCIDP  4722
                                        *                IDP=SVB = FWA OF REGISTER SAVE AREA                     COMCIDP  4723
                                        *                                                                        COMCIDP  4724
                                        *         PARAMETER LIST FORMAT--                                        COMCIDP  4725
                                        *                                                                        COMCIDP  4726
                                        *         VFD    60/IDP=SVB+0TR                                          COMCIDP  4727
                                        *         VFD    60/IDP=SVB+0TR                                          COMCIDP  4728
                                        *                 .                                                      COMCIDP  4729
                                        *                 .                                                      COMCIDP  4730
                                        *                60/0        END OF PARAMETER LIST                       COMCIDP  4731
                                        *                                                                        COMCIDP  4732
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF 1ST WORD OF PARAMETER LIST     COMCIDP  4733
                                        *                                                                        COMCIDP  4734
                                        *         EXIT   NONE                                                    COMCIDP  4735
                                        *                                                                        COMCIDP  4736
                                        *         USES   ALL                                                     COMCIDP  4737
                                        *                                                                        COMCIDP  4738
                                        *         CALLS  DAB,DUX                                                 COMCIDP  4739
                                                                                                                 COMCIDP  4740
                                                                                                                 COMCIDP  4741
          3201  0400403201 +             DSR      SUBR               ** ENTRY/EXIT **                            COMCIDP  4742
                                                                                                                 COMCIDP  4743
          3202  0301003201 +             DSR2     ZR     X1,EXIT.    IF FINISHED DUMPING SELECTED REGISTERS      COMCIDP  4744
                          6120000422 +            SB2    IDP=SVB                                                 COMCIDP  4745
          3203  63310                             SB3    X1                                                      COMCIDP  4746
                     7061000000                   SX6    A1+                                                     COMCIDP  4747
                               67432              SB4    B3-B2                                                   COMCIDP  4748
          3204  6150000020                        SB5    20B                                                     COMCIDP  4749
                          5160003212 +            SA6    DSRA        SAVE (A1) = CURRENT POSITION IN PARM LIST   COMCIDP  4750
          3205  0645003207 +                      GE     B4,B5,DSR3  IF -X- REGISTER DUMP                        COMCIDP  4751
                          0100002637 +            RJ     DAB         DUMP -A- OR -B- REGISTER                    COMCIDP  4752
          3206  0400003210 +                      EQ     DSR4                                                    COMCIDP  4753
                                                                                                                 COMCIDP  4754
          3207  0100003213 +             DSR3     RJ     DUX         DUMP -X- REGISTER                           COMCIDP  4755
                                                                                                                 COMCIDP  4756
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   162
        IDP 1.1/SUPPORTING SUBROUTINES.                               DSR                 IDP 
  
          3210  5110003212 +             DSR4     SA1    DSRA                                                    COMCIDP  4757
                          5211000001              SA1    X1+1                                                    COMCIDP  4758
          3211  0400003202 +                      EQ     DSR2                                                    COMCIDP  4759
                                                                                                                 COMCIDP  4760
                                                                                                                 COMCIDP  4761
          3212                     1     DSRA     BSSZ   1           SAVED (A1) = ADDR OF NEXT REGISTER PARAME-  COMCIDP  4762
                                        *                              TER WORD                                  COMCIDP  4763
  
  
  
  
                                        **        DUX - DUMP AN -X- REGISTER.                                    COMCIDP  4765
                                        *                                                                        COMCIDP  4766
                                        *                                                                        COMCIDP  4767
                                        *         ENTRY  (B4) = 0TR, WHERE                                       COMCIDP  4768
                                        *                            T IS REGISTER TYPE (2=X REGISTER)           COMCIDP  4769
                                        *                            R IS REGISTER NR (0-7)                      COMCIDP  4770
                                        *                              E.G. X1 WOULD BE 021B                     COMCIDP  4771
                                        *                                                                        COMCIDP  4772
                                        *         EXIT   (B4) IS UNCHANGED                                       COMCIDP  4773
                                        *                                                                        COMCIDP  4774
                                        *         USES   ALL BUT B4                                              COMCIDP  4775
                                        *                                                                        COMCIDP  4776
                                        *         CALLS  PRIDP,WOD,ZTB                                           COMCIDP  4777
                                                                                                                 COMCIDP  4778
                                                                                                                 COMCIDP  4779
          3213  0400403213 +             DUX      SUBR               ** ENTRY/EXIT **                            COMCIDP  4780
          3214  5120003226 +                      SA2    DUXA                                                    COMCIDP  4781
                          7174777757              SX7    B4-20B      (X7) = X REGISTER NR                        COMCIDP  4782
          3215  5217000442 +                      SA1    IDP=SVX+X7   (X1) = SAVED -X- REGISTER                  COMCIDP  4783
                          20706                   LX7    2*CHAR-1*CHAR                                           COMCIDP  4784
                               36627              IX6    X2+X7       (X6) = 10H       XN  , WHERE N=0 THRU 7     COMCIDP  4785
          3216  5160000607 +                      SA6    SNAPLNE                                                 COMCIDP  4786
                          0100005643 +            RJ     =XWOD       CONVERT ONE FULL BINARY WORD TO OCTAL DPC   COMCIDP  4787
          3217  54661                             SA6    A6+B1                                                   COMCIDP  4788
                     54761                        SA7    A6+B1                                                   COMCIDP  4789
                          5110006170 +            SA1    =10H                                                    COMCIDP  4790
          3220  10611                             BX6    X1                                                      COMCIDP  4791
                     54671                        SA6    A7+B1                                                   COMCIDP  4792
                                                                                                                 COMCIDP  4793
                          5114000422 +            SA1    IDP=SVB+B4  (X1) = SAVED CONTENTS OF X-N-               COMCIDP  4794
          3221  0100006043 +                      RJ     =XZTB       CONVERT ZEROES TO BLANKS                    COMCIDP  4795
          3222  5066000001                        SA6    A6+1                                                    COMCIDP  4796
                                                                                                                 COMCIDP  4797
                          13666                   BX6    X6-X6                                                   COMCIDP  4798
                               54661              SA6    A6+B1       MARK EOL                                    COMCIDP  4799
          3223  7160000607 +                      PRIDP  SNAPLNE                                                 COMCIDP  4800
          3225  0400003213 +                      EQ     EXIT.                                                   COMCIDP  4801
                                                                                                                 COMCIDP  4802
                                                                                                                 COMCIDP  4803
          3226  55555555555555303355     DUXA     DATA   10H       X0                                            COMCIDP  4804
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   163
        IDP 1.1/SUPPORTING SUBROUTINES.                               FAA                 IDP 
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    22
                                        **        FAA - FIND ABSOLUTE ADDRESS.                                   COMCIDP  4806
                                        *                                                                        COMCIDP  4807
                                        *                                                                        COMCIDP  4808
                                        *         THIS ROUTINE TRIES TO ASSOCIATE A BINARY ADDR/NUMBER           COMCIDP  4809
                                        *         WITH A GIVEN NAME IN -L- FORMAT.  THIS IS USED BY IDP          COMCIDP  4810
                                        *         WHEN THE PROGRAMMER ENTERS, FOR EXAMPLE, A DECK NAME.          COMCIDP  4811
                                        *                                                                        COMCIDP  4812
                                        *         E.G. --                                                        COMCIDP  4813
                                        *                                                                        COMCIDP  4814
                                        *             CODE DECK+1123                                             COMCIDP  4815
                                        *                                                                        COMCIDP  4816
                                        *         *FAA* TRIES TO ASSOCIATE A BINARY VALUE WITH *DECK*            COMCIDP  4817
                                        *         IN THE FOLLOWING MANNER --                                     COMCIDP  4818
                                        *                                                                        COMCIDP  4819
                                        *           1. IF THE USER PROVIDED AN *FAA=*, THEN THIS *FAA*           COMCIDP  4820
                                        *              ASSUMES THAT THE USER WISHES TO PERFORM HIS OWN           COMCIDP  4821
                                        *              ADDR TRANSLATION.  THEREFORE, *FAA* MERELY CALLS *FAA=*.  COMCIDP  4822
                                        *                                                                        COMCIDP  4823
                                        *           2. IF THE HOST IS USING *CCOMRPV* (COMMON REPRIEVE           COMCIDP  4824
                                        *              PROCESSOR), THEN *FAA* WILL ATTEMPT TO QUERY THE LINKED   COMCIDP  4825
                                        *              TABLES USED BY *CCOMRPV* THAT CONTAIN ALL THE ROUTINE     COMCIDP  4826
                                        *              NAMES AND FWAS.  SEE *CCOMRPV* FOR DETAILS.               COMCIDP  4827
                                        *                                                                        COMCIDP  4828
                                        *         ENTRY  (X0) = MASK TO EXTRACT NAMES, I.E. MX0 7*CHAR.          COMCIDP  4829
                                        *                (X1) = NAME TO SEARCH FOR, IN -L- FMT.                  COMCIDP  4830
                                        *                                                                        COMCIDP  4831
                                        *         EXIT   (X6) = .PL. IF ABS ADDR IDP IS TO USE FOR *NAME*.       COMCIDP  4832
                                        *                     = .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND). COMCIDP  4833
                                        *                                                                        COMCIDP  4834
                                        *         USES   CANNOT DESTROY A0,A5,X5                                 COMCIDP  4835
                                        *                                                                        COMCIDP  4836
                                        *         CALLS  FAA=(IF AVAIL)                                          COMCIDP  4837
                                                                                                                 COMCIDP  4838
                                                                                                                 COMCIDP  4839
          3227  0400403227 +             FAA      SUBR               ** ENTRY/EXIT **                            COMCIDP  4840
          3230  7160000000 X                      SX6    =YFAA=                                                  COMCIDP  4841
                          6120000000 X            SB2    =YRPV=RNA                                               COMCIDP  4842
          3231  0336003233 +                      MI     X6,FAA2     IF USER DID NOT PROVIDE *FAA=*              COMCIDP  4843
                          0100000000 X            RJ     =YFAA=      FIND ABSOLUTE ADDRESS                       COMCIDP  4844
          3232  0400003227 +                      EQ     EXIT.                                                   COMCIDP  4845
                                                                                                                 COMCIDP  4846
          3233  0720003227 +             FAA2     MI     B2,EXIT.    IF USER IS NOT USING *CCOMRPV*              COMCIDP  4847
                          56220                   SA2    B2          (X2) = FWA OF 1ST RNA TABLE                 COMCIDP  4848
                               53220              SA2    X2          (A2,X2) = A+C OF 1ST RPV NAME ADDR ENTRY    COMCIDP  4849
                                                                                                                 COMCIDP  4850
          3234  0302003237 +             FAA3     ZR     X2,FAA4     IF END-OF-TABLE ENCOUNTERED                 COMCIDP  4851
                          11702                   BX7    X0*X2       (X7) = NAME IN *RPV* TABLE, -L- FMT         COMCIDP  4852
                               37371              IX3    X7-X1                                                   COMCIDP  4853
          3235  0303003241 +                      ZR     X3,FAA5     IF A HIT                                    COMCIDP  4854
                          54221                   SA2    A2+B1                                                   COMCIDP  4855
          3236  0400003234 +                      EQ     FAA3                                                    COMCIDP  4856
                                                                                                                 COMCIDP  4857
          3237  54321                    FAA4     SA3    A2+B1       (X3) = LINK TO NEXT TABLE, ELSE .ZR.        COMCIDP  4858
                     0303003227 +                 ZR     X3,EXIT.    IF END OF ALL TABLES ENCOUNTERED            COMCIDP  4859
                               53230              SA2    X3          (A2,X2) = A+C OF 1ST ENTRY IN NEXT TABLE    COMCIDP  4860
          3240  0400003234 +                      EQ     FAA3                                                    COMCIDP  4861
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   164
        IDP 1.1/SUPPORTING SUBROUTINES.                               FAA                 IDP 
  
                                                                                                                 COMCIDP  4862
          3241  73620                    FAA5     SX6    X2          (X6) = ABS ADDR FOR THIS NAME               COMCIDP  4863
                     0400003227 +                 EQ     EXIT.                                                   COMCIDP  4864
                                         .IDPOS   ENDIF                                                          CCGA018    23
  
  
  
  
                                        **        FAB - FORMAT AN -A- OR -B- REGISTER.                           COMCIDP  4866
                                        *                                                                        COMCIDP  4867
                                        *                                                                        COMCIDP  4868
                                        *                THIS ROUTINE WILL FORMAT AN -A- OR -B- REGISTER         COMCIDP  4869
                                        *         SUITABLE FOR PRINTING. FORMAT--                                COMCIDP  4870
                                        *                                                                        COMCIDP  4871
                                        *    (B6)+0         0         0         0         0         0            COMCIDP  4872
                                        *         .......TR..NNNNNN.....C(TR).=.NNNNNNNNNNNNNNNNNNNN             COMCIDP  4873
                                        *                                                                        COMCIDP  4874
                                        *         T=REGISTER TYPE (B,A),R=REGISTER NR (0-7),.=BLANK(55B)         COMCIDP  4875
                                        *                                                                        COMCIDP  4876
                                        *         ENTRY  (B4) = 0TR, WHERE                                       COMCIDP  4877
                                        *                            T IS REGISTER TYPE (B=0,A=1)                COMCIDP  4878
                                        *                            R IS REGISTER NR (0-7)                      COMCIDP  4879
                                        *                (B6) = FWA TO STORE                                     COMCIDP  4880
                                        *                                                                        COMCIDP  4881
                                        *         EXIT   (B4) = UNCHANGED                                        COMCIDP  4882
                                        *                (B6) = UNCHANGED                                        COMCIDP  4883
                                        *                (A6) = ADDR OF FULL ZERO WORD EOL MARKER                COMCIDP  4884
                                        *                                                                        COMCIDP  4885
                                        *         USES   X - ALL     (INCLUDES ALL CALLS)                        COMCIDP  4886
                                        *                A - ALL BUT A0                                          COMCIDP  4887
                                        *                B - 2,3,4,5                                             COMCIDP  4888
                                        *                                                                        COMCIDP  4889
                                        *         CALLS  CHK,COD,WOD                                             COMCIDP  4890
                                                                                                                 COMCIDP  4891
                                                                                                                 COMCIDP  4892
          3242  0400403242 +             FAB      SUBR               ** ENTRY/EXIT **                            COMCIDP  4893
          3243  76140                             SX1    B4                                                      COMCIDP  4894
                     43071                        MX0    -3                                                      COMCIDP  4895
                          5154000422 +            SA5    IDP=SVB+B4  (X5) = SAVED (TR)   (T=REG TYPE,R=REG NR)   COMCIDP  4896
          3244  11601                             BX6    X0*X1       (X6) = REG TYPE (B=00B,A=10B)               COMCIDP  4897
                     66540                        SB5    B4          SAVE (B4) = 0TR                             COMCIDP  4898
                          15710                   BX7    -X0*X1      (X7) = REG NR (0-7)                         COMCIDP  4899
                               20671              LX6    -3                                                      COMCIDP  4900
          3245  5226003261 +                      SA2    FABA+X6                                                 COMCIDP  4901
                          5236003263 +            SA3    FABB+X6                                                 COMCIDP  4902
          3246  20706                             LX7    2*CHAR-1*CHAR                                           COMCIDP  4903
                     36627                        IX6    X2+X7       (X6) = .......TR.   (.=BLANK,T=RTYPE,R=RNR) COMCIDP  4904
                          20722                   LX7    5*CHAR-2*CHAR                                           COMCIDP  4905
                               56660              SA6    B6                                                      COMCIDP  4906
          3247  43052                             MX0    -18                                                     COMCIDP  4907
                     36737                        IX7    X3+X7       (X7) = ..C(TR).=.                           COMCIDP  4908
                          15150                   BX1    -X0*X5                                                  COMCIDP  4909
          3250  5176000002                        SA7    B6+2                                                    COMCIDP  4910
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  4911
          3251  20622                             LX6    9*CHAR-6*CHAR                                           COMCIDP  4912
                     66450                        SB4    B5          RESTORE (B4)                                COMCIDP  4913
                          54661                   SA6    A6+B1                                                   COMCIDP  4914
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   165
        IDP 1.1/SUPPORTING SUBROUTINES.                               FAB                 IDP 
  
                               63250              SB2    X5                                                      COMCIDP  4915
          3252  0100002447 +                      RJ     CHK         CHECK CM ADDRESS                            COMCIDP  4916
          3253  0620003256 +                      PL     B2,FAB2     IF ADDR OK                                  COMCIDP  4917
                          5110006510 +            SA1    =20H ** OUT OF RANGE **                                 COMCIDP  4918
          3254  54211                             SA2    A1+B1                                                   COMCIDP  4919
                     10611                        BX6    X1                                                      COMCIDP  4920
                          22702                   LX7    X2                                                      COMCIDP  4921
          3255  0400003257 +                      EQ     FAB3                                                    COMCIDP  4922
                                                                                                                 COMCIDP  4923
                                        *         HERE TO CONVERT C(TR) TO OCTAL DPC.                            COMCIDP  4924
                                                                                                                 COMCIDP  4925
          3256  56120                    FAB2     SA1    B2          (X1) = C(TR)                                COMCIDP  4926
                     0100005643 +                 RJ     WOD         CONVERT A FULL BINARY WORD TO OCTAL DPC     COMCIDP  4927
                                                                                                                 COMCIDP  4928
          3257  54671                    FAB3     SA6    A7+B1                                                   COMCIDP  4929
                     54761                        SA7    A6+B1                                                   COMCIDP  4930
                          43600                   MX6    0                                                       COMCIDP  4931
                               54671              SA6    A7+B1       MARK EOL                                    COMCIDP  4932
          3260  0400003242 +                      EQ     EXIT.                                                   COMCIDP  4933
                                                                                                                 COMCIDP  4934
                                                                                                                 COMCIDP  4935
          3261  55555555555555023355     FABA     DATA   10H       B0  NNNNNN                                    COMCIDP  4936
          3262  55555555555555013355              DATA   10H       A0  NNNNNN                                    COMCIDP  4937
          3263  55550351023352555455     FABB     DATA   10H  C(B0) =  NNNNNNNNNNNNNNNNNNNN                      COMCIDP  4938
          3264  55550351013352555455              DATA   10H  C(A0) =  NNNNNNNNNNNNNNNNNNNN                      COMCIDP  4939
  
  
  
  
                                        **        FLL - CHECK FWA,LWA, AND LENGTH PARAMETERS.                    COMCIDP  4941
                                        *                                                                        COMCIDP  4942
                                        *                                                                        COMCIDP  4943
                                        *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR, 21/FWA                 COMCIDP  4944
                                        *                (X3) = 18/0, 21/LEV OF IND ADDR, 21/LWA                 COMCIDP  4945
                                        *                         (X3) IS OPTIONAL                               COMCIDP  4946
                                        *                (X4) = 18/0, 21/LEV OF IND ADDR, 21/LEN                 COMCIDP  4947
                                        *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,    COMCIDP  4948
                                        *                                        ELSE DMP IS FROM FWA TO FWA+LEN COMCIDP  4949
                                        *                                                                        COMCIDP  4950
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN WAS BAD, ELSE .PL.       COMCIDP  4951
                                        *                                                                        COMCIDP  4952
                                        *                IF FWA,LWA,LEN IS OK, (B2) .PL. --                      COMCIDP  4953
                                        *                                                                        COMCIDP  4954
                                        *                (X2) = FWA.                                             COMCIDP  4955
                                        *                (X3) = LWA.                                             COMCIDP  4956
                                        *                (X4) = LEN.                                             COMCIDP  4957
                                        *                (AP=FWA) = FWA                                          COMCIDP  4958
                                        *                (AP=LWA) = LWA                                          COMCIDP  4959
                                        *                (AP=LEN) = LEN                                          COMCIDP  4960
                                        *                                                                        COMCIDP  4961
                                        *         USES   X - ALL BUT X5                                          COMCIDP  4962
                                        *                A - 1,2,6                                               COMCIDP  4963
                                        *                B - 2,3                                                 COMCIDP  4964
                                        *                                                                        COMCIDP  4965
                                        *         CALLS  CHK,GIL                                                 COMCIDP  4966
                                                                                                                 COMCIDP  4967
                                                                                                                 COMCIDP  4968
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   166
        IDP 1.1/SUPPORTING SUBROUTINES.                               FLL                 IDP 
  
          3265  0400403265 +             FLL      SUBR               ** ENTRY/EXIT **                            COMCIDP  4969
                                                                                                                 COMCIDP  4970
                                        *         CHECK FWA.                                                     COMCIDP  4971
                                                                                                                 COMCIDP  4972
          3266  20247                             LX2    -21                                                     COMCIDP  4973
                     6232000000                   SB3    X2+         (B3) = LEVEL OF INDIRECT ADDRESSING         COMCIDP  4974
                               20225              LX2    21          RESTORE (X2)                                COMCIDP  4975
          3267  0100003405 +                      RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       COMCIDP  4976
          3270  0720003265 +                      MI     B2,EXIT.    IF FWA IS BAD                               COMCIDP  4977
                          76620                   SX6    B2          SAVE (B2) = FWA                             COMCIDP  4978
          3271  5160000164 +                      SA6    AP=FWA                                                  COMCIDP  4979
                                                                                                                 COMCIDP  4980
                                        *         CHECK LENGTH.                                                  COMCIDP  4981
                                                                                                                 COMCIDP  4982
          3272  43022                    FLL2     MX0    -42                                                     COMCIDP  4983
                     15240                        BX2    -X0*X4                                                  COMCIDP  4984
                          0302003302 +            ZR     X2,FLL3     IF NO LENGTH, USE LWA                       COMCIDP  4985
          3273  20247                             LX2    -21                                                     COMCIDP  4986
                     63320                        SB3    X2                                                      COMCIDP  4987
                          20225                   LX2    21                                                      COMCIDP  4988
          3274  0100003405 +                      RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       COMCIDP  4989
          3275  0720003265 +                      MI     B2,EXIT.    IF LENGTH IS BAD                            COMCIDP  4990
                          73162                   SX1    X6+B2       (X1) = FWA + LEN                            COMCIDP  4991
                               76620              SX6    B2          (X6) = LEN                                  COMCIDP  4992
          3276  6221777776                        SB2    X1-1        (B2) = LWA                                  COMCIDP  4993
                          5160000166 +            SA6    AP=LEN                                                  COMCIDP  4994
          3277  0100002447 +                      RJ     CHK         CHECK CM ADDR                               COMCIDP  4995
          3300  0720003265 +                      MI     B2,EXIT.    IF LWA IS BAD                               COMCIDP  4996
                          7162000000              SX6    B2+         SAVE (B2) = LWA                             COMCIDP  4997
          3301  5160000165 +                      SA6    AP=LWA                                                  COMCIDP  4998
                          0400003310 +            EQ     FLL4                                                    COMCIDP  4999
                                                                                                                 COMCIDP  5000
                                        *         CHECK LWA.                                                     COMCIDP  5001
                                                                                                                 COMCIDP  5002
          3302  10233                    FLL3     BX2    X3                                                      COMCIDP  5003
                     20247                        LX2    -21                                                     COMCIDP  5004
                          15730                   BX7    -X0*X3                                                  COMCIDP  5005
                               63320              SB3    X2                                                      COMCIDP  5006
          3303  76410                             SX4    B1          (X4) = DEFAULT LEN IS 1, IF LEN AND LWA =0  COMCIDP  5007
                     20225                        LX2    21                                                      COMCIDP  5008
                          0307003272 +            ZR     X7,FLL2     IF NO LWA, DEFAULT LEN=1                    COMCIDP  5009
          3304  0100003405 +                      RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       COMCIDP  5010
          3305  0720003265 +                      MI     B2,EXIT.    IF LWA IS BAD                               COMCIDP  5011
                          5110000164 +            SA1    AP=FWA                                                  COMCIDP  5012
          3306  76620                             SX6    B2          SAVE (B2) = LWA                             COMCIDP  5013
                     37261                        IX2    X6-X1                                                   COMCIDP  5014
                          5066000001              SA6    A6+1                                                    COMCIDP  5015
          3307  7262000001                        SX6    X2+1        (X6) = LEN                                  COMCIDP  5016
                          5066000001              SA6    A6+1                                                    COMCIDP  5017
                                                                                                                 COMCIDP  5018
                                        *         SET UP EXIT CONDITIONS.                                        COMCIDP  5019
                                                                                                                 COMCIDP  5020
          3310  5120000164 +             FLL4     SA2    AP=FWA      (X2) = FWA                                  COMCIDP  5021
                          54121                   SA1    A2+B1                                                   COMCIDP  5022
                               10311              BX3    X1          (X3) = LWA                                  COMCIDP  5023
          3311  54111                             SA1    A1+B1                                                   COMCIDP  5024
                     10411                        BX4    X1          (X4) = LEN                                  COMCIDP  5025
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   167
        IDP 1.1/SUPPORTING SUBROUTINES.                               FLL                 IDP 
  
                          0400003265 +            EQ     EXIT.                                                   COMCIDP  5026
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    24
                                        **        FOF - FLUSH OUTPUT FILE.                                       COMCIDP  5028
                                        *                                                                        COMCIDP  5029
                                        *                                                                        COMCIDP  5030
                                        *         *FOF* CONDITIONALLY FLUSHES AN OUTPUT FILE, BASED ON           COMCIDP  5031
                                        *         WHETHER THERE IS ANYTHING IN THE BUFFER FOR THAT FILE,         COMCIDP  5032
                                        *         I.E. IF *IN .NE. OUT*.                                         COMCIDP  5033
                                        *                                                                        COMCIDP  5034
                                        *         ENTRY  (B2) = FWA OF FET.                                      COMCIDP  5035
                                        *                                                                        COMCIDP  5036
                                        *         EXIT   NONE                                                    COMCIDP  5037
                                        *                                                                        COMCIDP  5038
                                        *         USES   ALL BUT A0,X0,A5,X5     (INCLUDES ALL CALLS)            COMCIDP  5039
                                        *                                                                        COMCIDP  5040
                                        *         CALLS  WRITER                                                  COMCIDP  5041
                                                                                                                 COMCIDP  5042
                                                                                                                 COMCIDP  5043
          3312  0400403312 +             FOF      SUBR               ** ENTRY/EXIT **                            COMCIDP  5044
          3313  0720003312 +                      MI     B2,EXIT.    IF FET NOT DEFINED                          COMCIDP  5045
                          5112000002              SA1    B2+2        (X1) = IN                                   COMCIDP  5046
          3314  54211                             SA2    A1+B1       (X2) = OUT                                  COMCIDP  5047
                     37712                        IX7    X1-X2                                                   COMCIDP  5048
                          0307003312 +            ZR     X7,EXIT.    IF IN = OUT, NOTHING TO FLUSH...            COMCIDP  5049
          3315  76220                             WRITER B2,,RCL                                                 COMCIDP  5050
          3317  0400003312 +                      EQ     EXIT.                                                   COMCIDP  5051
                                         .IDPOS   ENDIF                                                          CCGA018    25
  
  
  
  
                                        **        FRA - FIND RELATIVE ADDRESS.                                   COMCIDP  5053
                                        *                                                                        COMCIDP  5054
                                        *                                                                        COMCIDP  5055
                                        *         *FRA* IS USED THROUGHOUT IDP WHENEVER HE WOULD LIKE TO         COMCIDP  5056
                                        *         OUTPUT AN ABSOLUTE ADDRESS IN A DECK-RELATIVE FORM (FOR        COMCIDP  5057
                                        *         READABILITY/UNDERSTANDABILITY BY A HUMAN).                     COMCIDP  5058
                                        *                                                                        COMCIDP  5059
                                        *         *FRA* TRIES TO PRODUCE A STRING OF THE FORM--                  COMCIDP  5060
                                        *                                                                        COMCIDP  5061
                                        *                NNNNNN.IN.XXXXXXXX00                                    COMCIDP  5062
                                        *                                                                        COMCIDP  5063
                                        *         WHERE  N = CONVERTED DPC RELATIVE ADDR DIGITS.                 COMCIDP  5064
                                        *                X = DECK NAME.                                          COMCIDP  5065
                                        *                0 = 00B, I.E. EOL BITS.                                 COMCIDP  5066
                                        *                . = 55B, I.E. BLANKS.                                   COMCIDP  5067
                                        *                                                                        COMCIDP  5068
                                        *         FOR EXAMPLE, GIVEN A DECK CALLED *IDP* THAT HAS ITS FWA AT     COMCIDP  5069
                                        *         ABS ADDR 4000, THEN A CALL TO *FRA* WITH ABS ADDR 4222         COMCIDP  5070
                                        *         MIGHT PRODUCE --                                               COMCIDP  5071
                                        *                                                                        COMCIDP  5072
                                        *                222    IN IDP                                           COMCIDP  5073
                                        *                                                                        COMCIDP  5074
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   168
        IDP 1.1/SUPPORTING SUBROUTINES.                               FRA                 IDP 
  
                                        *         *FRA* TRIES TO DO HIS JOB IN THE FOLLOWING WAYS--              COMCIDP  5075
                                        *                                                                        COMCIDP  5076
                                        *           1. IF THE USER PROVIDED AN *FRA=* (VIA =Y), THEN THIS *FRA*  COMCIDP  5077
                                        *              WILL CALL IT.  THAT IS, THE USER'S *FRA=* TAKES           COMCIDP  5078
                                        *              PRECEDENCE.                                               COMCIDP  5079
                                        *                                                                        COMCIDP  5080
                                        *           2. IF THE USER PROVIDED AN *RNA* (ROUTINE NAME/ADDRESS)      COMCIDP  5081
                                        *              TABLE, THEN THIS *FRA* WILL USE/SEARCH IT.                COMCIDP  5082
                                        *                                                                        COMCIDP  5083
                                        *              *FRA* DETECTS THE PRESENCE/ABSENCE OF AN *RNA* TABLE      COMCIDP  5084
                                        *              VIA THE PRESENCE/ABSENCE OF THE CELL *RPV=RNA* (VIA =Y).  COMCIDP  5085
                                        *              IF *RPV=RNA* IS PROVIDED, THEN IT IS A CELL THAT          COMCIDP  5086
                                        *              **CONTAINS** THE FWA OF THE *RNA* TABLE.                  COMCIDP  5087
                                        *                                                                        COMCIDP  5088
                                        *              NOTE THAT THE SYMBOL NAME *RPV=RNA* IS FOR COMPATABILITY  COMCIDP  5089
                                        *              WITH *CCOMRPV* (COMPILER COMMON REPRIEVE PROCESSOR).      COMCIDP  5090
                                        *                                                                        COMCIDP  5091
                                        *              AN *RNA* TABLE HAS THE FOLLOWING FORM--                   COMCIDP  5092
                                        *                                                                        COMCIDP  5093
                                        *                  42/0LDECK1,18/FWA OF DECK1                            COMCIDP  5094
                                        *                  42/0LDECK2,18/FWA OF DECK2                            COMCIDP  5095
                                        *                            .                                           COMCIDP  5096
                                        *                            .                                           COMCIDP  5097
                                        *                  42/0LDECKN,18/FWA OF DECKN                            COMCIDP  5098
                                        *                  60/0    END OF TABLE MARK                             COMCIDP  5099
                                        *                  60/LINK TO NEXT *RNA* TABLE, ELSE                     COMCIDP  5100
                                        *                     .ZR. IF END OF ALL TABLES.                         COMCIDP  5101
                                        *                                                                        COMCIDP  5102
                                        *              *RNA* TABLES MAY BE LINKED TO ACCOMODATE OVERLAYED HOST   COMCIDP  5103
                                        *              PROGRAMS.                                                 COMCIDP  5104
                                        *                                                                        COMCIDP  5105
                                        *              NOTE THAT *RNA* TABLE(S) DO **NOT** HAVE TO BE ORDERED    COMCIDP  5106
                                        *              IN DECK-ASCENDING ORDER.  *FRA* SEARCHS FOR THE           COMCIDP  5107
                                        *              **CLOSEST** OCCURENCE.                                    COMCIDP  5108
                                        *                                                                        COMCIDP  5109
                                        *              NOTE ALSO THAT *FRA* CHECKS TO SEE IF (RPV=RNA) IS        COMCIDP  5110
                                        *              IN FL, VIA *CHK* (CHECK CM ADDRESS), BEFORE USING         COMCIDP  5111
                                        *              IT.  IN THIS WAY, THE HOST PROGRAM CAN IF IT WISHS        COMCIDP  5112
                                        *              SELECT/DESELECT *RNA* TABLES BY MERELY SETTING            COMCIDP  5113
                                        *              (RPV=RNA) OUT-OF-RANGE (E.G. .MI.).                       COMCIDP  5114
                                        *                                                                        COMCIDP  5115
                                        *           3. IF NEITHER OF THE ABOVE CONDITIONS ARE SATISFIED, THEN    COMCIDP  5116
                                        *              *FRA* DOESNT/CANT DO ANYTHING...                          COMCIDP  5117
                                        *                                                                        COMCIDP  5118
                                        *         ENTRY  (X1) = BINARY ABS ADDR TO FIND.                         COMCIDP  5119
                                        *                                                                        COMCIDP  5120
                                        *         ENTRY  IF *FRA* COULD FIND A DECK-RELATIVE ADDR--              COMCIDP  5121
                                        *                                                                        COMCIDP  5122
                                        *                (B7) = .PL. TO INDICATE THAT *FRA* FOUND A DECK         COMCIDP  5123
                                        *                            RELATIVE ADDRESS.                           COMCIDP  5124
                                        *                (X6) = NNNNNN.IN.                                       COMCIDP  5125
                                        *                (X7) = XXXXXXXX00     (SEE PREAMBLE ABOVE FOR DETAILS)  COMCIDP  5126
                                        *                                                                        COMCIDP  5127
                                        *                IF *FRA* COULD NOT FIND A DECK RELATIVE ADDR--          COMCIDP  5128
                                        *                                                                        COMCIDP  5129
                                        *                (B7) = .MI. TO INDICATE THAT *FRA* COULD NOT            COMCIDP  5130
                                        *                            FIND A DECK RELATIVE ADDRESS.               COMCIDP  5131
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   169
        IDP 1.1/SUPPORTING SUBROUTINES.                               FRA                 IDP 
  
                                        *                (X1) = AS ON ENTRY.                                     COMCIDP  5132
                                        *                (X6) = +0.                                              COMCIDP  5133
                                        *                (X7) = +0.                                              COMCIDP  5134
                                        *                                                                        COMCIDP  5135
                                        *         USES   ALL BUT A0,X0,A5,X5,A6                                  COMCIDP  5136
                                        *                                                                        COMCIDP  5137
                                        *         CALLS  CHK,COD,FRA=(IF AVAIL)                                  COMCIDP  5138
                                                                                                                 COMCIDP  5139
                                                                                                                 COMCIDP  5140
          3320  0400403320 +             FRA      SUBR               ** ENTRY/EXIT **                            COMCIDP  5141
          3321  6261000000                        SB6    X1+         SAVE (X1)                                   COMCIDP  5142
                          6170000000 X            SB7    =YFRA=                                                  COMCIDP  5143
          3322  13666                             BX6    X6-X6                                                   COMCIDP  5144
                     43700                        MX7    0                                                       COMCIDP  5145
                          0770003324 +            MI     B7,FRA1     IF USER DID NOT PROVIDE *FRA=*              COMCIDP  5146
          3323  6170003320 +                      SB7    EXIT.       (B7) = RETURN ADDR FOR *FRA=*               COMCIDP  5147
                          0400000000 X            EQ     =YFRA=      FIND RELATIVE ADDRESS                       COMCIDP  5148
                                                                                                                 COMCIDP  5149
                                        *         HERE TO TRY *RNA* TABLE(S).                                    COMCIDP  5150
                                                                                                                 COMCIDP  5151
          3324  6120000000 X             FRA1     SB2    =YRPV=RNA                                               COMCIDP  5152
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS                            COMCIDP  5153
          3325  6172000000                        SB7    B2+                                                     COMCIDP  5154
                          0770003320 +            MI     B7,EXIT.    IF USER DID NOT PROVIDE *RNA* TABLE         COMCIDP  5155
                                                                                                                 COMCIDP  5156
          3326  5120000000 X                      SA2    =YRPV=RNA   (X2) = FWA OF 1ST RNA TABLE                 COMCIDP  5157
                          66260                   SB2    B6          (B2) = ADDRESS RELATIVE TO RA+0             COMCIDP  5158
                               53220              SA2    X2          (A2,X2) = A+C OF 1ST ENTRY IN RNA TABLE     COMCIDP  5159
          3327  63320                             SB3    X2                                                      COMCIDP  5160
                     66400                        SB4    B0                                                      COMCIDP  5161
                          6052000000              SB5    A2+                                                     COMCIDP  5162
                                                                                                                 COMCIDP  5163
                                        *         SEARCH ROUTINE NAME ADDRESS TABLE.                             COMCIDP  5164
                                                                                                                 COMCIDP  5165
          3330                           FRA2     BSS                                                            COMCIDP  5166
          3330  0302003333 +                      ZR     X2,FRA3     IF END OF BLOCK                             COMCIDP  5167
                          63320                   SB3    X2                                                      COMCIDP  5168
                               54221              SA2    A2+B1       (X2) = NEXT TABLE ENTRY                     COMCIDP  5169
          3331  0723003330 +                      GT     B3,B2,FRA2  IF CURRENT ENTRY BEYOND ABS ADDR            COMCIDP  5170
                          0643003330 +            GE     B4,B3,FRA2  IF CURRENT NOT CLOSER                       COMCIDP  5171
          3332  65521                             SB5    A2-B1       CLOSEST SO FAR                              COMCIDP  5172
                     66430                        SB4    B3                                                      COMCIDP  5173
                          0400003330 +            EQ     FRA2        KEEP LOOKING                                COMCIDP  5174
                                                                                                                 COMCIDP  5175
                                        *         CHECK FOR TABLE CONTINUATION LINK.                             COMCIDP  5176
                                                                                                                 COMCIDP  5177
          3333                           FRA3     BSS                                                            COMCIDP  5178
          3333  54221                             SA2    A2+B1       END OF TABLE/TABLE LINK WORD                COMCIDP  5179
                     0302003335 +                 ZR     X2,FRA4     IF END OF TABLE                             COMCIDP  5180
                               53220              SA2    X2          (A2,X2) = A+C OF 1ST WORD IN NEXT BLOCK     COMCIDP  5181
          3334  0400003330 +                      EQ     FRA2        CONTINUE TABLE SEARCH...                    COMCIDP  5182
                                                                                                                 COMCIDP  5183
                                        *         EXTRACT ROUTINE NAME AND FORMAT ABSOLUTE ADDRESS.              COMCIDP  5184
                                                                                                                 COMCIDP  5185
          3335                           FRA4     BSS                                                            COMCIDP  5186
          3335  77124                             SX1    B2-B4       (X1) = BIN ADDR, RELATIVE TO CLOSEST FIND   COMCIDP  5187
                     0100005002 +                 RJ     =XCOD       CONVERT TO OCTAL DISPLAY CODE               COMCIDP  5188
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   170
        IDP 1.1/SUPPORTING SUBROUTINES.                               FRA                 IDP 
  
          3336  56150                             SA1    B5          (X1) = 42/0LNAME,18/ADDRESS                 COMCIDP  5189
                     43752                        MX7    42                                                      COMCIDP  5190
                          7130004443              SX3    2R  &2RIN                                               COMCIDP  5191
          3337  11771                             BX7    X7*X1       (X7) = ROUTINE NAME, 0L FORMAT              COMCIDP  5192
                     20306                        LX3    6                                                       COMCIDP  5193
                          13643                   BX6    X4-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *       COMCIDP  5194
          3340  0400003320 +                      EQ     EXIT.                                                   COMCIDP  5195
  
  
  
  
                                        **        FRK - CHECK FREQUENCY PARAMETERS.                              COMCIDP  5197
                                        *                                                                        COMCIDP  5198
                                        *                                                                        COMCIDP  5199
                                        *         ENTRY  (X5)   =  FWA OF SNAP PARAMETER LIST                    COMCIDP  5200
                                        *                                                                        COMCIDP  5201
                                        *         FREQUENCY PARAMETER LIST AT (X5)+SN=FRK --                     COMCIDP  5202
                                        *                                                                        COMCIDP  5203
                                        *         VFD    60/LOWER LIMIT (LL)                                     COMCIDP  5204
                                        *         VFD    60/UPPER LIMIT (UL)                                     COMCIDP  5205
                                        *         VFD    60/INCREMENT  (INC)                                     COMCIDP  5206
                                        *         VFD    60/10HNAME                                              COMCIDP  5207
                                        *         VFD    60/SNAP COUNT                                           COMCIDP  5208
                                        *                                                                        COMCIDP  5209
                                        *         EXIT   (X5)   =  .ZR. IF NO SNAP THIS TIME, ELSE UNCHANGED     COMCIDP  5210
                                        *                                                                        COMCIDP  5211
                                        *         USES   X - ALL     (BUT X5 IF SNAP THIS TIME)                  COMCIDP  5212
                                        *                A - 1,2,3,4                                             COMCIDP  5213
                                        *                B - 7                                                   COMCIDP  5214
                                        *                                                                        COMCIDP  5215
                                        *         CALLS  NONE                                                    COMCIDP  5216
                                                                                                                 COMCIDP  5217
                                                                                                                 COMCIDP  5218
          3341  7150000000               FRK.NO   SX5    0                                                       COMCIDP  5219
                                                                                                                 COMCIDP  5220
          3342  0400403342 +             FRK      SUBR               ** ENTRY/EXIT **                            COMCIDP  5221
          3343  5215000000                        SA1    X5+SN=LL    (X1) = LL                                   COMCIDP  5222
                          54211                   SA2    A1+B1       (X2) = UL                                   COMCIDP  5223
                               54321              SA3    A2+B1       (X3) = INC                                  COMCIDP  5224
          3344  5245000004                        SA4    X5+SN=CNT   (X4) = SNAP COUNT                           COMCIDP  5225
                          0331003341 +            MI     X1,FRK.NO   IF LL BAD                                   COMCIDP  5226
          3345  0332003341 +                      MI     X2,FRK.NO   IF UL BAD                                   COMCIDP  5227
                          0333003341 +            MI     X3,FRK.NO    IF INC BAD                                 COMCIDP  5228
          3346  73641                             SX6    X4+B1       (X6) = SNAP COUNT + 1                       COMCIDP  5229
                     5064000000                   SA6    A4+                                                     COMCIDP  5230
                               37761              IX7    X6-X1       (X7) = SNAP CNT - LOWER LIMIT               COMCIDP  5231
          3347  0337003341 +                      MI     X7,FRK.NO   IF NOT TIME TO SNAP YET                     COMCIDP  5232
                          37726                   IX7    X2-X6       (X7) = UPPER LIMIT - SNAP COUNT             COMCIDP  5233
                               27303              PX3    X3                                                      COMCIDP  5234
          3350  0337003341 +                      MI     X7,FRK.NO   IF PAST UPPER LIMIT                         COMCIDP  5235
                                                                                                                 COMCIDP  5236
                                        *         COMPUTE  (COUNT/INC)*INC-COUNT.                                COMCIDP  5237
                                                                                                                 COMCIDP  5238
                          27606                   PX6    X6                                                      COMCIDP  5239
                               24303              NX3    X3                                                      COMCIDP  5240
          3351  24606                             NX6    X6                                                      COMCIDP  5241
                     44763                        FX7    X6/X3                                                   COMCIDP  5242
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   171
        IDP 1.1/SUPPORTING SUBROUTINES.                               FRK                 IDP 
  
                          26777                   UX7    X7,B7                                                   COMCIDP  5243
                               22777              LX7    X7,B7                                                   COMCIDP  5244
          3352  27707                             PX7    X7                                                      COMCIDP  5245
                     24707                        NX7    X7                                                      COMCIDP  5246
                          40773                   FX7    X7*X3                                                   COMCIDP  5247
                               37776              IX7    X7-X6                                                   COMCIDP  5248
          3353  0317003341 +                      NZ     X7,FRK.NO   IF NOT AT A SNAP INCREMENT                  COMCIDP  5249
                          0400003342 +            EQ     EXIT.       SNAP SHOULD BE HONORED...                   COMCIDP  5250
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    26
                                        **        FRZ - FREEZE INTERACTIVE SESSION.                              COMCIDP  5252
                                        *                                                                        COMCIDP  5253
                                        *                                                                        COMCIDP  5254
                                        *         PERFORMS A CHECKPOINT OF AN INTERACTIVE SESSION BY             COMCIDP  5255
                                        *         WRITING THE CURRENT CORE IMAGE TO LFN *F.FRZ* IN A             COMCIDP  5256
                                        *         SPECIAL FORMAT.                                                COMCIDP  5257
                                        *                                                                        COMCIDP  5258
                                        *         *F.FRZ* FORMAT --                                              COMCIDP  5259
                                        *                                                                        COMCIDP  5260
                                        *           RECORD 1 CONSISTS OF A LOADER ABSOLUTE BINARY, CALLED *IFR*  COMCIDP  5261
                                        *           (IDP FREEZE RESTART), THAT WHEN EXECUTED WILL READ THE       COMCIDP  5262
                                        *           FROZEN HOST BACK INTO CORE (OVERLAYING ITSELF), AND          COMCIDP  5263
                                        *           THEN REINVOKE *IDP*.                                         COMCIDP  5264
                                        *                                                                        COMCIDP  5265
                                        *           RECORD 2 CONTAINS THE CORE IMAGE OF THE FROZEN HOST.         COMCIDP  5266
                                        *                                                                        COMCIDP  5267
                                        *         SEE ROUTINE *IFR* IN DATA SECTION BEGINNING AT ADDR *FW.IFR*.  COMCIDP  5268
                                        *                                                                        COMCIDP  5269
                                        *         ENTRY  NONE                                                    COMCIDP  5270
                                        *                                                                        COMCIDP  5271
                                        *         EXIT   *F.FRZ* WRITTEN                                         COMCIDP  5272
                                        *                                                                        COMCIDP  5273
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              COMCIDP  5274
                                        *                                                                        COMCIDP  5275
                                        *         CALLS  MEMORY,REWIND,WRITER,WRITEW                             COMCIDP  5276
                                                                                                                 COMCIDP  5277
                                                                                                                 COMCIDP  5278
          3354  0400403354 +             FRZ      SUBR               ** ENTRY/EXIT **                            COMCIDP  5279
                                                                                                                 COMCIDP  5280
                                        *         FIND OUT ACTUAL FIELD LENGTH SCM (AFLS) SO THAT *IFR*          COMCIDP  5281
                                        *         CAN KNOW HOW MUCH IS NEEDED TO RESTART.  IF *CMM* IS ACTIVE,   COMCIDP  5282
                                        *         SAVE THIS KNOWLEDGE SO THAT *IFR* CAN INDICATE SO              COMCIDP  5283
                                        *         TO OPERATING SYSTEM.                                           COMCIDP  5284
                                                                                                                 COMCIDP  5285
          3355  5110000065                        SA1    RA.LWP                                                  COMCIDP  5286
                          13666                   BX6    X6-X6                                                   COMCIDP  5287
                               73710              SX7    X1          (X7) = .MI. IF *CMM* ACTIVE, ELSE .PL.      COMCIDP  5288
          3356  5160001504 +                      SA6    MEM#HOST                                                COMCIDP  5289
                          7160150515              MEMORY SCM,A6,RCL                                              COMCIDP  5290
          3361  76210                             SX2    B1                                                      COMCIDP  5291
                     21773                        AX7    59          (X7) = -0 IF *CMM* ACTIVE, ELSE +0          COMCIDP  5292
                          5110001504 +            SA1    MEM#HOST                                                COMCIDP  5293
          3362  11727                             BX7    X2*X7       (X7) = 1 IF *CMM* ACTIVE, ELSE +0           COMCIDP  5294
                     20702                        LX7    2-0                                                     COMCIDP  5295
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   172
        IDP 1.1/SUPPORTING SUBROUTINES.                               FRZ                 IDP 
  
                          73771                   SX7    X7+B1       SET BIT 1S0                                 COMCIDP  5296
                               13617              BX6    X1-X7       SET *CMM* IF APPROPRIATE/CLEAR COMPLETE BIT COMCIDP  5297
          3363  54610                             SA6    A1                                                      COMCIDP  5298
                                                                                                                 COMCIDP  5299
                                        *         NEED TO SAVE 3 SPECIAL WORDS BECAUSE WE ARE ONLY WRITING       COMCIDP  5300
                                        *         FROM *RA.MTR+1* TO FL-2 TO *F.FRZ*.                            COMCIDP  5301
                                        *           1. SAVE (RA.SSW) BECAUSE APPARENTLY *CIO* WILL SOMETIMES     COMCIDP  5302
                                        *              NOT ALLOW ONE TO HAVE *RA.MTR* IN CIO BUFFER AREA.        COMCIDP  5303
                                        *           2. SAVE WORDS AT FL-1 AND FL-2 BECAUSE LWA AND LWA+1 OF CIO  COMCIDP  5304
                                        *              BUFFER ARE NOT WRITTEN.                                   COMCIDP  5305
                                                                                                                 COMCIDP  5306
                     21136                        AX1    30          (X1) = AFLS OF FROZEN HOST                  COMCIDP  5307
                          5120000000              SA2    RA.SSW                                                  COMCIDP  5308
          3364  5231777775                        SA3    X1-2                                                    COMCIDP  5309
                          54431                   SA4    A3+B1                                                   COMCIDP  5310
                               10622              BX6    X2                                                      COMCIDP  5311
          3365  22703                             LX7    X3                                                      COMCIDP  5312
                     5160000157 +                 SA6    FRZ#SAV                                                 COMCIDP  5313
                               54761              SA7    A6+B1                                                   COMCIDP  5314
          3366  10644                             BX6    X4                                                      COMCIDP  5315
                     54671                        SA6    A7+B1                                                   COMCIDP  5316
                                                                                                                 COMCIDP  5317
                                        *         SET UP AND *OPEN* *F.FRZ* FET FOR RECORD 1 WRITE.              COMCIDP  5318
                                        *         FIRST, THOUGH, WE NEED TO SET THE *COMPLETE* BIT               COMCIDP  5319
                                        *         IN *F.FRZ* FET BECAUSE IF WE ARE NOW FREEZING AN               COMCIDP  5320
                                        *         INTERACTIVE SESSION THAT WAS PREVIOUSLY FROZEN AND UNFROZEN,   COMCIDP  5321
                                        *         THEN *F.FRZ* IS MARKED AS STILL BEING ACTIVE.  THIS HAPPENS    COMCIDP  5322
                                        *         BECAUSE WHEN THE PREVIOUS SESSION WAS FROZEN, *F.FRZ* WAS      COMCIDP  5323
                                        *         USED TO WRITE ITSELF OUT, AND WAS THEREFORE STILL ACTIVE WHEN  COMCIDP  5324
                                        *         CORE IMAGE WAS WRITTEN TO DISK.                                COMCIDP  5325
                                                                                                                 COMCIDP  5326
                          5110001510 +            SA1    F.FRZ                                                   COMCIDP  5327
          3367  43273                             MX2    -1                                                      COMCIDP  5328
                     16612                        BX6    -X2+X1      SET COMPLETE BIT                            COMCIDP  5329
                          54610                   SA6    A1                                                      COMCIDP  5330
                                                                                                                 COMCIDP  5331
          3370  7160001436 +                      SX6    FW.IFR                                                  COMCIDP  5332
                          7170001515 +            SX7    FW.IFR+L.IFR-1                                          COMCIDP  5333
          3371  54661                             SA6    A6+B1       FIRST  = FW.IFR                             COMCIDP  5334
                     54761                        SA7    A6+B1       IN     = FW.IFR+L.IFR-1                     COMCIDP  5335
                          54671                   SA6    A7+B1       OUT    = FW.IFR                             COMCIDP  5336
                               73771              SX7    X7+B1                                                   COMCIDP  5337
          3372  54761                             SA7    A6+B1       LIMIT  = FW.IFR+L.IFR                       COMCIDP  5338
                                                                                                                 COMCIDP  5339
                     74210                        OPEN   A1,,RCL                                                 COMCIDP  5340
          3374  5110001514 +                      SA1    F.FRZ+4     (X1) = LIMIT                                COMCIDP  5341
                          7261777776              SX6    X1-1                                                    COMCIDP  5342
          3375  5160001512 +                      SA6    F.FRZ+2     IN = LIMIT-1                                COMCIDP  5343
                                                                                                                 COMCIDP  5344
                                        *         WRITE INTERACTIVE FREEZE RESTART PROGRAM, *IFR*,               COMCIDP  5345
                                        *         TO RECORD 1 OF *F.FRZ*.                                        COMCIDP  5346
                                                                                                                 COMCIDP  5347
                          7120001510 +            WRITER F.FRZ,,RCL                                              COMCIDP  5348
                                                                                                                 COMCIDP  5349
                                        *         SET UP *F.FRZ* FET SO THAT BUFFER IS RA.MTR+1 THRU FL-1.       COMCIDP  5350
                                                                                                                 COMCIDP  5351
          3377  5110001504 +                      SA1    MEM#HOST                                                COMCIDP  5352
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   173
        IDP 1.1/SUPPORTING SUBROUTINES.                               FRZ                 IDP 
  
                          7160000002              SX6    RA.MTR+1    (X6) = FIRST = OUT                          COMCIDP  5353
          3400  20136                             LX1    30                                                      COMCIDP  5354
                     7271777775                   SX7    X1-2        (X7) = IN = AFLS-2 (FOR SAFETY)             COMCIDP  5355
          3401  5160001511 +                      SA6    F.FRZ+1     FIRST = RA.MTR+1                            COMCIDP  5356
                          54761                   SA7    A6+B1       IN =AFLS-2                                  COMCIDP  5357
                               54671              SA6    A7+B1       OUT = RA.MTR+1                              COMCIDP  5358
          3402  73771                             SX7    X7+B1       (X7) = LIMIT = AFLS-1 (FOR SAFETY)          COMCIDP  5359
                     54761                        SA7    A6+B1       LIMIT = AFLS-1                              COMCIDP  5360
                                                                                                                 COMCIDP  5361
                                        *         WRITE ALL OF SCM TO *F.FRZ/RECORD 2*.                          COMCIDP  5362
                                                                                                                 COMCIDP  5363
                          7120001510 +            WRITER F.FRZ,,RCL                                              COMCIDP  5364
          3404  0400003354 +                      EQ     EXIT.                                                   COMCIDP  5365
                                                                                                                 COMCIDP  5366
                                                                                                                 COMCIDP  5367
                                 157 +   FRZ#SAV  =      APL         FWA OF SAVE AREA FOR (RA.SSW), (FL-2),      COMCIDP  5368
                                        *                            AND (FL-1)                                  COMCIDP  5369
                                         .IDPOS   ENDIF                                                          CCGA018    27
  
  
  
  
                                        **        GIL - GENERATE INDIRECT LOAD.                                  COMCIDP  5371
                                        *                                                                        COMCIDP  5372
                                        *                                                                        COMCIDP  5373
                                        *                GENERATES 0 THRU N INDIRECT LOADS, CHECKING THE ADDRESS COMCIDP  5374
                                        *         TO BE LOADED BEFORE EACH LOAD.                                 COMCIDP  5375
                                        *                                                                        COMCIDP  5376
                                        *         ENTRY  (X2) = ADDRESS (BITS 59-18) IGNORED)                    COMCIDP  5377
                                        *                (B3) = LEVEL OF INDIRECT ADDRESSING,                    COMCIDP  5378
                                        *                         (B3) = 0 MEANS DIRECT ADDRESSING               COMCIDP  5379
                                        *                                                                        COMCIDP  5380
                                        *         EXIT   (B2) = ADDRESS AT END OF INDIRECT CHAIN, IF (B2) .PL.   COMCIDP  5381
                                        *                       IF (B2) .MI., ONE OF THE ADDRESSES WAS BAD       COMCIDP  5382
                                        *                                                                        COMCIDP  5383
                                        *         USES   X - 1,2                                                 COMCIDP  5384
                                        *                A - 1,2                                                 COMCIDP  5385
                                        *                B - 2,3                                                 COMCIDP  5386
                                        *                                                                        COMCIDP  5387
                                        *         CALLS  CHK                                                     COMCIDP  5388
                                                                                                                 COMCIDP  5389
                                                                                                                 COMCIDP  5390
          3405  0400403405 +             GIL      SUBR               ** ENTRY/EXIT **                            COMCIDP  5391
                                                                                                                 COMCIDP  5392
          3406  63220                    GIL2     SB2    X2                                                      COMCIDP  5393
                     67331                        SB3    B3-B1                                                   COMCIDP  5394
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS                            COMCIDP  5395
          3407  0720003405 +                      MI     B2,EXIT.    IF ADDR IS BAD                              COMCIDP  5396
                          5122000000              SA2    B2+                                                     COMCIDP  5397
          3410  0630003406 +                      GE     B3,B0,GIL2  IF MORE LEVELS OF INDIRECT ADDRESSING TO GO COMCIDP  5398
                          0400003405 +            EQ     EXIT.                                                   COMCIDP  5399
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   174
        IDP 1.1/SUPPORTING SUBROUTINES.                               HDR                 IDP 
  
                                        **        HDR - PRINT SNAP HEADER.                                       COMCIDP  5401
                                        *                                                                        COMCIDP  5402
                                        *                                                                        COMCIDP  5403
                                        *                PRINTS A SNAP HEADER OF THE FORM--                      COMCIDP  5404
                                        *                                                                        COMCIDP  5405
                                        * NAME      SNAP NR  NNNNNN    CALLED BY NNNNNN IN XXXXXXX               COMCIDP  5406
                                        *                                                                        COMCIDP  5407
                                        *         ENTRY  (X5) = FWA OF PARAMETER LIST                            COMCIDP  5408
                                        *                                                                        COMCIDP  5409
                                        *         EXIT   NONE                                                    COMCIDP  5410
                                        *                                                                        COMCIDP  5411
                                        *         USES   ALL BUT A5,X5                                           COMCIDP  5412
                                        *                                                                        COMCIDP  5413
                                        *         CALLS  CDD,FRA,PRIDP                                           COMCIDP  5414
                                                                                                                 COMCIDP  5415
                                                                                                                 COMCIDP  5416
          3411  0400403411 +             HDR      SUBR               ** ENTRY/EXIT **                            COMCIDP  5417
          3412  5215000003                        SA1    X5+SN=HDR                                               COMCIDP  5418
                          5245000004              SA4    X5+SN=CNT                                               COMCIDP  5419
          3413  0301003411 +                      ZR     X1,EXIT.    IF NO HEADER TO BE GENERATED                COMCIDP  5420
                          43060                   MX0    8*CHAR                                                  COMCIDP  5421
                               11601              BX6    X0*X1                                                   COMCIDP  5422
          3414  7170005555                        SX7    2R                                                      COMCIDP  5423
                          12667                   BX6    X6+X7                                                   COMCIDP  5424
                               20660              LX6    -2*CHAR     (X6) = 10H  NAME                            COMCIDP  5425
          3415  5160000607 +                      SA6    SNAPLNE                                                 COMCIDP  5426
                          5120003430 +            SA2    HDRA                                                    COMCIDP  5427
          3416  54321                             SA3    A2+B1                                                   COMCIDP  5428
                     73140                        SX1    X4                                                      COMCIDP  5429
                          10622                   BX6    X2                                                      COMCIDP  5430
                               22703              LX7    X3                                                      COMCIDP  5431
          3417  54661                             SA6    A6+B1                                                   COMCIDP  5432
                     5076000002                   SA7    A6+2                                                    COMCIDP  5433
          3420  0100004756 +                      RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC               COMCIDP  5434
          3421  10644                             BX6    X4                                                      COMCIDP  5435
                     54661                        SA6    A6+B1                                                   COMCIDP  5436
                          5110000156 +            SA1    ADR=RJ      (X1) = ADDR OF CALLING RJ                   COMCIDP  5437
          3422  0100003320 +                      RJ     FRA         FIND RELATIVE ADDR                          COMCIDP  5438
          3423  0670003425 +                      PL     B7,HDR2     IF USER PROVIDED *FRA=*                     COMCIDP  5439
                                                                                                                 COMCIDP  5440
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5441
          3424  10644                             BX6    X4                                                      COMCIDP  5442
                     43700                        MX7    0                                                       COMCIDP  5443
                                                                                                                 COMCIDP  5444
          3425  54671                    HDR2     SA6    A7+B1                                                   COMCIDP  5445
                     54761                        SA7    A6+B1                                                   COMCIDP  5446
                          7160000607 +            PRIDP  SNAPLNE,,L.PRB                                          COMCIDP  5447
          3427  0400003411 +                      EQ     EXIT.                                                   COMCIDP  5448
                                                                                                                 COMCIDP  5449
                                                                                                                 COMCIDP  5450
                                        *         DATA   10H  SNAPNAME                                           COMCIDP  5451
          3430  55231601205516225555     HDRA     DATA   10H SNAP NR                                             COMCIDP  5452
                                        *         DATA   10HNNNNNN                                               COMCIDP  5453
          3431  03011414050455023155              DATA   10HCALLED BY                                            COMCIDP  5454
                                        *         DATA   10HNNNNNN IN                                            COMCIDP  5455
                                        *         DATA   10CXXXXXXX                                              COMCIDP  5456
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   175
        IDP 1.1/SUPPORTING SUBROUTINES.                               IEX                 IDP 
  
                                        **        IEX - INITIALIZE EXECUTIVE.                                    COMCIDP  5458
                                        *                                                                        COMCIDP  5459
                                        *                                                                        COMCIDP  5460
                                        *         ENTRY  (A1,X1) = A+C OF EXECUTIVE ENTRY/EXIT POINT             COMCIDP  5461
                                        *                                                                        COMCIDP  5462
                                        *         EXIT   (B2) = ADDR OF PARAMETER LIST, IF THERE IS ONE.         COMCIDP  5463
                                        *                     = .ZR. IF SPECIAL                                  COMCIDP  5464
                                        *                            +  RJ  XEC                                  COMCIDP  5465
                                        *                            -  VFD 30/0                                 COMCIDP  5466
                                        *                     = .MI. IF NO PARAMETER LIST.                       COMCIDP  5467
                                        *                                                                        COMCIDP  5468
                                        *                (ADR=RJ)  = ADDR OF *RJ XEC* WORD.                      COMCIDP  5469
                                        *                (FW=PARM) = FWA OF PARAMETER LIST FOR THIS EXECUTIVE.   COMCIDP  5470
                                        *                            NOTE THAT *IEX* FIGURES OUT WHETHER THERE   COMCIDP  5471
                                        *                            REALLY IS A USER-SPECIFIED/ASSEMBLED        COMCIDP  5472
                                        *                            PARAMETER LIST OR NOT.  IF NOT, *IEX* DOES  COMCIDP  5473
                                        *                            THE PRELIMINARY INITIALIZATION OF THE DUMMY COMCIDP  5474
                                        *                            PARAMETER LIST AT *APL* ET SEQ.             COMCIDP  5475
                                        *                                                                        COMCIDP  5476
                                        *         USES   ALL                                                     COMCIDP  5477
                                        *                                                                        COMCIDP  5478
                                        *         CALLS  CXR,SBM                                                 COMCIDP  5479
                                                                                                                 COMCIDP  5480
                                                                                                                 COMCIDP  5481
          3432  0400403432 +             IEX      SUBR               ** ENTRY/EXIT **                            COMCIDP  5482
                                                                                                                 COMCIDP  5483
                                        *         SET UP AND CHECK CALLING *RJ* INSTRUCTION.                     COMCIDP  5484
                                                                                                                 COMCIDP  5485
          3433  20136                             LX1    30                                                      COMCIDP  5486
                     7221777776                   SX2    X1-1        (X2) = ADDR OF CALLING *RJ*                 COMCIDP  5487
                               74110              SX1    A1          (X1) = ADDR OF EXECUTIVE                    COMCIDP  5488
          3434  0100002623 +                      RJ     CXR         CHECK EXECUTIVE RJ                          COMCIDP  5489
          3435  76620                             SX6    B2                                                      COMCIDP  5490
                     0702003443 +                 GT     B2,B0,IEX2  IF PARAMETER LIST LOOKS TO BE PRESENT       COMCIDP  5491
                                                                                                                 COMCIDP  5492
                                        *         SET UP DUMMY PARAMETER LIST.                                   COMCIDP  5493
                                                                                                                 COMCIDP  5494
                               13666              BX6    X6-X6                                                   COMCIDP  5495
          3436  7110000010                        SX1    L.APL       (X1) = LEN OF DUMMY PARAMETER LIST          COMCIDP  5496
                          5160000157 +            SA6    APL         INITIALIZE (A6)                             COMCIDP  5497
          3437  0100005267 +                      RJ     =XSBM=      SET BLOCK OF MEMORY                         COMCIDP  5498
                                                                                                                 COMCIDP  5499
                                        *         SET UP DEFAULT *LL,UL,INC* INTO DUMMY PARAMETER LIST.          COMCIDP  5500
                                                                                                                 COMCIDP  5501
          3440  7160000001                        SX6    1                                                       COMCIDP  5502
                          7170000144              SX7    100D                                                    COMCIDP  5503
          3441  5160000157 +                      SA6    APL+SN=LL   DEFAULT LL = 1                              COMCIDP  5504
                          5170000160 +            SA7    APL+SN=UL   DEFAULT UL = 100D                           COMCIDP  5505
          3442  5160000161 +                      SA6    APL+SN=INC  DEFAULT INC = 1                             COMCIDP  5506
                          7160000157 +            SX6    APL                                                     COMCIDP  5507
                                                                                                                 COMCIDP  5508
                                        *         SAVE FWA OF PARAMETER LIST (REAL OR DUMMY).                    COMCIDP  5509
                                                                                                                 COMCIDP  5510
          3443  5160000452 +             IEX2     SA6    FW=PARM                                                 COMCIDP  5511
                          0400003432 +            EQ     EXIT.                                                   COMCIDP  5512
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   176
        IDP 1.1/SUPPORTING SUBROUTINES.                               IIF                 IDP 
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    28
                                        **        IIF - INITIALIZE INTERACTIVE FILES.                            COMCIDP  5514
                                        *                                                                        COMCIDP  5515
                                        *                                                                        COMCIDP  5516
                                        *         THIS ROUTINE OPENS AND CONNECTS THE INTERACTIVE DEBUG INPUT    COMCIDP  5517
                                        *         AND OUTPUT FILES, *F.IDI* AND *F.IDO*.                         COMCIDP  5518
                                        *                                                                        COMCIDP  5519
                                        *         ENTRY  NONE                                                    COMCIDP  5520
                                        *                                                                        COMCIDP  5521
                                        *         EXIT   NONE                                                    COMCIDP  5522
                                        *                                                                        COMCIDP  5523
                                        *         USES   ALL BUT A5,X5,A0,X0                                     COMCIDP  5524
                                        *                                                                        COMCIDP  5525
                                        *         CALLS  CON,OPEN                                                COMCIDP  5526
                                                                                                                 COMCIDP  5527
                                                                                                                 COMCIDP  5528
          3444  0400403444 +             IIF      SUBR               ** ENTRY/EXIT **                            COMCIDP  5529
                                                                                                                 COMCIDP  5530
                                        *         SET UP *F.IDI - INTERACTIVE DEBUG INPUT FILE*.                 COMCIDP  5531
                                                                                                                 COMCIDP  5532
          3445  5110000454 +                      SA1    IDPFLG                                                  COMCIDP  5533
                          43201                   MX2    1                                                       COMCIDP  5534
                               20256              LX2    IDF.RAPP-59                                             COMCIDP  5535
          3446  15612                             BX6    -X2*X1      CLEAR *RAP*                                 COMCIDP  5536
                     20207                        LX2    IDF.INPP-IDF.RAPP                                       COMCIDP  5537
                          15662                   BX6    -X2*X6      CLEAR *INP*                                 COMCIDP  5538
                               54610              SA6    A1                                                      COMCIDP  5539
          3447  7120000170 +                      OPEN   F.IDI,,RCL                                              COMCIDP  5540
          3451  5110000170 +                      SA1    F.IDI                                                   COMCIDP  5541
                          43200                   MX2    0           SET TO *CONNECT*                            COMCIDP  5542
          3452  0100002552 +                      RJ     CON         CONNECT F.IDI                               COMCIDP  5543
                                                                                                                 COMCIDP  5544
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  COMCIDP  5545
                                                  MI     X1,*+4S15   IF *CON* DETECTED ERROR...                  COMCIDP  5546
                                         #OS3     ENDIF                                                          COMCIDP  5547
                                                                                                                 COMCIDP  5548
                                        *         SET UP *F.IDO - INTERACTIVE DEBUG OUTPUT FILE*.                COMCIDP  5549
                                                                                                                 COMCIDP  5550
          3453  7120000312 +                      OPEN   F.IDO,,RCL                                              COMCIDP  5551
          3455  5110000312 +                      SA1    F.IDO                                                   COMCIDP  5552
                          43200                   MX2    0           SET TO *CONNECT*                            COMCIDP  5553
          3456  0100002552 +                      RJ     CON         CONNECT F.IDO                               COMCIDP  5554
                                                                                                                 COMCIDP  5555
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  COMCIDP  5556
                                                  MI     X1,*+4S15   IF *CON* DETECTED ERROR...                  COMCIDP  5557
                                         #OS3     ENDIF                                                          COMCIDP  5558
                                                                                                                 COMCIDP  5559
          3457  0400003444 +                      EQ     EXIT.                                                   COMCIDP  5560
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   177
        IDP 1.1/SUPPORTING SUBROUTINES.                               IST                 IDP 
  
                                        **        IST - INITIALIZE *SET* TABLE.                                  COMCIDP  5562
                                        *                                                                        COMCIDP  5563
                                        *                                                                        COMCIDP  5564
                                        *                THIS ROUTINE SETS UP THE DEFAULT *SET* TABLE VALUES.    COMCIDP  5565
                                        *                                                                        COMCIDP  5566
                                        *         ENTRY  NONE                                                    COMCIDP  5567
                                        *                                                                        COMCIDP  5568
                                        *         EXIT   NONE                                                    COMCIDP  5569
                                        *                                                                        COMCIDP  5570
                                        *         USES   ALL                                                     COMCIDP  5571
                                        *                                                                        COMCIDP  5572
                                        *         CALLS  ADZ                                                     COMCIDP  5573
                                                                                                                 COMCIDP  5574
                                                                                                                 COMCIDP  5575
          3460  0400403460 +             IST      SUBR               ** ENTRY/EXIT **                            COMCIDP  5576
          3461  6160001400 +                      SB6    IDPSET      (B6) = FWA OF IDP *SET* TABLE               COMCIDP  5577
                          5110006512 +            SA1    =4LTEMP                                                 COMCIDP  5578
          3462  7160001366 +                      SX6    IDPTMP                                                  COMCIDP  5579
                          12616                   BX6    X1+X6       (X6) = 42/0LTEMP,18/FWA OF TEMP AREA        COMCIDP  5580
          3463  0100002352 +                      RJ     ADZ         ADD WORD TO IDP TABLE                       COMCIDP  5581
          3464  7170000020                        SX7    1RP                                                     COMCIDP  5582
                          7160000642 +            SX6    IDPPREG                                                 COMCIDP  5583
          3465  20766                             LX7    10*CHAR-1*CHAR                                          COMCIDP  5584
                     12676                        BX6    X7+X6       (X6) = 42/0LP, 18/ADDR OF PSEUDO P REGISTER COMCIDP  5585
                          0100002352 +            RJ     ADZ         ADD WORD TO IDP TABLE                       COMCIDP  5586
          3466  0400003460 +                      EQ     EXIT.                                                   COMCIDP  5587
  
  
  
  
                                        **        LBT - LIST BREAK TABLE.                                        COMCIDP  5589
                                        *                                                                        COMCIDP  5590
                                        *                                                                        COMCIDP  5591
                                        *                LISTS THE CONTENTS OF THE PARALLEL BREAK TABLES         COMCIDP  5592
                                        *         *IDPBA/IDPBC* IN THREE FORMS, DEPENDING ON THE TYPE OF BREAK-- COMCIDP  5593
                                        *                                                                        COMCIDP  5594
                                        *     COL 1         1         1         1        (.=BLANK(55B))          COMCIDP  5595
                                        *         .BREAK.AT.NNNNNN.IN.XXXXXXX                                    COMCIDP  5596
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             COMCIDP  5597
                                        *                                                                        COMCIDP  5598
                                        *         .BRPL..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN                       COMCIDP  5599
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             COMCIDP  5600
                                        *                                                                        COMCIDP  5601
                                        *         .BREQ..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN.A2.NNNNNN             COMCIDP  5602
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             COMCIDP  5603
                                        *                                                                        COMCIDP  5604
                                        *         ENTRY  NONE                                                    COMCIDP  5605
                                        *                                                                        COMCIDP  5606
                                        *         EXIT   NONE                                                    COMCIDP  5607
                                        *                                                                        COMCIDP  5608
                                        *         USES   ALL BUT A0                                              COMCIDP  5609
                                        *                                                                        COMCIDP  5610
                                        *         CALLS  COD,FRA,PRIDP,SFN                                       COMCIDP  5611
                                                                                                                 COMCIDP  5612
                                                                                                                 COMCIDP  5613
          3467  0400403467 +             LBT      SUBR               ** ENTRY/EXIT **                            COMCIDP  5614
                                                                                                                 COMCIDP  5615
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   178
        IDP 1.1/SUPPORTING SUBROUTINES.                               LBT                 IDP 
  
                                        *         SET UP FOR 1ST ENTRY.                                          COMCIDP  5616
                                                                                                                 COMCIDP  5617
          3470  5150001327 +                      SA5    IDPBA                                                   COMCIDP  5618
                          0400003472 +            EQ     LBT2                                                    COMCIDP  5619
                                                                                                                 COMCIDP  5620
                                        *         MAIN LOOP.                                                     COMCIDP  5621
                                                                                                                 COMCIDP  5622
          3471  54551                    LBT1     SA5    A5+B1                                                   COMCIDP  5623
                                                                                                                 COMCIDP  5624
          3472  0305003467 +             LBT2     ZR     X5,EXIT.    IF FINISHED LISTING ALL BREAKS              COMCIDP  5625
                          73651                   SX6    X5+B1                                                   COMCIDP  5626
          3473  0306003471 +                      ZR     X6,LBT1     IF THIS ENTRY AVAILABLE (NOT A BREAK)       COMCIDP  5627
                                                                                                                 COMCIDP  5628
                                        *         ASSEMBLE * BREAK AT *.                                         COMCIDP  5629
                                                                                                                 COMCIDP  5630
                          73450                   SX4    X5          (X4) = BREAK ADDRESS                        COMCIDP  5631
                               20506              LX5    6                                                       COMCIDP  5632
          3474  43066                             MX0    -6                                                      COMCIDP  5633
                     15650                        BX6    -X0*X5      (X6) = BREAK TYPE CODE                      COMCIDP  5634
                          43052                   MX0    7*CHAR                                                  COMCIDP  5635
                               36266              IX2    X6+X6       *2                                          COMCIDP  5636
          3475  5212001165 +                      SA1    ST.BRK+X2   (X1) = *KEYW* ENTRY FOR THIS BREAK          COMCIDP  5637
                          5160000634 +            SA6    IDPBTC                                                  COMCIDP  5638
                                                  LX1    0-KW.KEYP                                               COMCIDP  5639
          3476  53110                             SA1    X1          (X1) = KEYW LITERAL FOR THIS BREAK, -L- FMT COMCIDP  5640
                     0100005274 +                 RJ     =XSFN       SPACE FILL NAME                             COMCIDP  5641
          3477  20666                             LX6    -CHAR                                                   COMCIDP  5642
                     11606                        BX6    X0*X6                                                   COMCIDP  5643
                          7170012455              SX7    3RAT                                                    COMCIDP  5644
          3500  12667                             BX6    X6+X7       (X6) = .BREAK.AT.   (.=BLANK(55B))          COMCIDP  5645
                     5160000607 +                 SA6    SNAPLNE                                                 COMCIDP  5646
                                                                                                                 COMCIDP  5647
                                        *         ASSEMBLE *NNNNNN IN XXXXXXX   *.                               COMCIDP  5648
                                                                                                                 COMCIDP  5649
                               73140              SX1    X4                                                      COMCIDP  5650
          3501  0100003320 +                      RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  5651
          3502  0670003504 +                      PL     B7,LBT3     IF USER PROVIDED *FRA=*                     COMCIDP  5652
                                                                                                                 COMCIDP  5653
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5654
          3503  10644                             BX6    X4                                                      COMCIDP  5655
                     43700                        MX7    0                                                       COMCIDP  5656
                                                                                                                 COMCIDP  5657
          3504  54661                    LBT3     SA6    A6+B1                                                   COMCIDP  5658
                     54761                        SA7    A6+B1                                                   COMCIDP  5659
                          5120000634 +            SA2    IDPBTC                                                  COMCIDP  5660
          3505  0302003521 +                      ZR     X2,LBT5     IF *BREAK ADDR,LL,UL,INC* FORM              COMCIDP  5661
                          10177                   BX1    X7                                                      COMCIDP  5662
          3506  0100005274 +                      RJ     SFN         SPACE FILL NAME                             COMCIDP  5663
          3507  54661                             SA6    A6+B1       RE-STORE BLANK FILLED *XXXXXXX   *          COMCIDP  5664
                                                                                                                 COMCIDP  5665
                                        *         ASSEMBLE * A1 NNNNNN*.                                         COMCIDP  5666
                                                                                                                 COMCIDP  5667
                     20522                        LX5    18                                                      COMCIDP  5668
                          73150                   SX1    X5                                                      COMCIDP  5669
          3510  0100005002 +                      RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5670
          3511  5120000634 +                      SA2    IDPBTC                                                  COMCIDP  5671
                          7110550134              SX1    3R A1                                                   COMCIDP  5672
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   179
        IDP 1.1/SUPPORTING SUBROUTINES.                               LBT                 IDP 
  
          3512  43022                             MX0    -7*CHAR                                                 COMCIDP  5673
                     15660                        BX6    -X0*X6                                                  COMCIDP  5674
                          20152                   LX1    10*CHAR-3*CHAR                                          COMCIDP  5675
                               11101              BX1    X0*X1                                                   COMCIDP  5676
          3513  12661                             BX6    X6+X1       (X6) = .A1.NNNNNN   (.=BLANK(55B))          COMCIDP  5677
                     54661                        SA6    A6+B1                                                   COMCIDP  5678
                          7222777772              SX2    X2-BTC.EQ                                               COMCIDP  5679
          3514  0332003520 +                      MI     X2,LBT4     IF *BRPL ADDR,A1,LL,UL,INC* FORM            COMCIDP  5680
                                                                                                                 COMCIDP  5681
                                        *         ASSEMBLE * A2 NNNNNN*.                                         COMCIDP  5682
                                                                                                                 COMCIDP  5683
                          20522                   LX5    18                                                      COMCIDP  5684
                               73150              SX1    X5                                                      COMCIDP  5685
          3515  0100005002 +                      RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5686
          3516  7110550135                        SX1    3R A2                                                   COMCIDP  5687
                          43022                   MX0    -7*CHAR                                                 COMCIDP  5688
                               15660              BX6    -X0*X6                                                  COMCIDP  5689
          3517  20152                             LX1    10*CHAR-3*CHAR                                          COMCIDP  5690
                     11101                        BX1    X0*X1                                                   COMCIDP  5691
                          12661                   BX6    X6+X1       (X6) = .A2.NNNNNN   (.=BLANK(55B))          COMCIDP  5692
                               54661              SA6    A6+B1                                                   COMCIDP  5693
                                                                                                                 COMCIDP  5694
          3520  43600                    LBT4     MX6    0                                                       COMCIDP  5695
                     54661                        SA6    A6+B1       MARK EOL                                    COMCIDP  5696
                                                                                                                 COMCIDP  5697
          3521  7160000607 +             LBT5     PRIDP  SNAPLNE                                                 COMCIDP  5698
                                                                                                                 COMCIDP  5699
                                        *         ASSEMBLE *           LL NNNNN *.                               COMCIDP  5700
                                                                                                                 COMCIDP  5701
          3523  5110006170 +                      SA1    =10H                                                    COMCIDP  5702
                          6075776450 -            SB7    A5-IDPBA                                                COMCIDP  5703
          3524  66677                             SB6    B7+B7                                                   COMCIDP  5704
                     5126001343 +                 SA2    IDPBC+B6+1  (X2) = 2ND WORD OF *IDPBC* ENTRY            COMCIDP  5705
                               10611              BX6    X1                                                      COMCIDP  5706
          3525  10522                             BX5    X2                                                      COMCIDP  5707
                     20517                        LX5    15                                                      COMCIDP  5708
                          43055                   MX0    -15                                                     COMCIDP  5709
                               15150              BX1    -X0*X5                                                  COMCIDP  5710
          3526  5160000607 +                      SA6    SNAPLNE                                                 COMCIDP  5711
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5712
          3527  7110551414                        SX1    3R LL                                                   COMCIDP  5713
                          20444                   LX4    -4*CHAR     LEFT JUSTIFY NR TO BIT 35                   COMCIDP  5714
                               10644              BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))          COMCIDP  5715
          3530  43022                             MX0    -7*CHAR                                                 COMCIDP  5716
                     20152                        LX1    10*CHAR-3*CHAR                                          COMCIDP  5717
                          11101                   BX1    X0*X1                                                   COMCIDP  5718
                               15660              BX6    -X0*X6                                                  COMCIDP  5719
          3531  12661                             BX6    X6+X1       (X6) = .LL.NNNNN.   (.=BLANK(55B))          COMCIDP  5720
                     54661                        SA6    A6+B1                                                   COMCIDP  5721
                                                                                                                 COMCIDP  5722
                                        *         ASSEMBLE * UL NNNNN *.                                         COMCIDP  5723
                                                                                                                 COMCIDP  5724
                          20517                   LX5    15                                                      COMCIDP  5725
                               43055              MX0    -15                                                     COMCIDP  5726
          3532  15150                             BX1    -X0*X5      (X1) = UL                                   COMCIDP  5727
                     0100005002 +                 RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5728
          3533  7110552514                        SX1    3R UL                                                   COMCIDP  5729
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   180
        IDP 1.1/SUPPORTING SUBROUTINES.                               LBT                 IDP 
  
                          20444                   LX4    -4*CHAR                                                 COMCIDP  5730
                               10644              BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))          COMCIDP  5731
          3534  43022                             MX0    -7*CHAR                                                 COMCIDP  5732
                     15660                        BX6    -X0*X6                                                  COMCIDP  5733
                          20152                   LX1    10*CHAR-3*CHAR                                          COMCIDP  5734
                               11101              BX1    X0*X1                                                   COMCIDP  5735
          3535  12661                             BX6    X6+X1       (X6) = .UL.NNNNN.   (.=BLANK(55B))          COMCIDP  5736
                     54661                        SA6    A6+B1                                                   COMCIDP  5737
                                                                                                                 COMCIDP  5738
                                        *         ASSEMBLE * INC NNNN *.                                         COMCIDP  5739
                                                                                                                 COMCIDP  5740
                          20514                   LX5    12                                                      COMCIDP  5741
                               43060              MX0    -12                                                     COMCIDP  5742
          3536  15150                             BX1    -X0*X5      (X1) = INC                                  COMCIDP  5743
                     0100005002 +                 RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5744
          3537  5110006513 +                      SA1    =4L INC                                                 COMCIDP  5745
                          20436                   LX4    -5*CHAR                                                 COMCIDP  5746
                               10644              BX6    X4          (X6) = .....NNNN.   (.=BLANK(55B))          COMCIDP  5747
          3540  43030                             MX0    -6*CHAR                                                 COMCIDP  5748
                     15660                        BX6    -X0*X6                                                  COMCIDP  5749
                          12661                   BX6    X6+X1       (X6) = .INC.NNNN.   (.=BLANK(55B))          COMCIDP  5750
                               54661              SA6    A6+B1                                                   COMCIDP  5751
                                                                                                                 COMCIDP  5752
                                        *         ASSEMBLE *CNT NNNNNN*.                                         COMCIDP  5753
                                                                                                                 COMCIDP  5754
          3541  20522                             LX5    18                                                      COMCIDP  5755
                     73150                        SX1    X5                                                      COMCIDP  5756
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  5757
          3542  7110031624                        SX1    3RCNT                                                   COMCIDP  5758
                          43022                   MX0    -7*CHAR                                                 COMCIDP  5759
                               15660              BX6    -X0*X6                                                  COMCIDP  5760
          3543  20152                             LX1    10*CHAR-3*CHAR                                          COMCIDP  5761
                     11101                        BX1    X0*X1                                                   COMCIDP  5762
                          12661                   BX6    X6+X1       (X6) = CNT.NNNNNN   (.=BLANK(55B))          COMCIDP  5763
                               43700              MX7    0                                                       COMCIDP  5764
          3544  54661                             SA6    A6+B1                                                   COMCIDP  5765
                     54761                        SA7    A6+B1       MARK EOL                                    COMCIDP  5766
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  5767
          3546  0400003471 +                      EQ     LBT1                                                    COMCIDP  5768
  
  
  
  
                                        **        LST - LIST *SET* NAME TABLE.                                   COMCIDP  5770
                                        *                                                                        COMCIDP  5771
                                        *                                                                        COMCIDP  5772
                                        *         ENTRY  (A5,X5) =   ADDR + CNTS OF 1ST *SET* TABLE ENTRY        COMCIDP  5773
                                        *                                                                        COMCIDP  5774
                                        *         EXIT   NONE                                                    COMCIDP  5775
                                        *                                                                        COMCIDP  5776
                                        *         USES   ALL                                                     COMCIDP  5777
                                        *                                                                        COMCIDP  5778
                                        *         CALLS  COD,FRA,PRIDP,SFN                                       COMCIDP  5779
                                                                                                                 COMCIDP  5780
                                                                                                                 COMCIDP  5781
          3547  0400403547 +             LST      SUBR               ** ENTRY/EXIT **                            COMCIDP  5782
                                                                                                                 COMCIDP  5783
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   181
        IDP 1.1/SUPPORTING SUBROUTINES.                               LST                 IDP 
  
          3550  0305003547 +             LST2     ZR     X5,EXIT.    IF FINISHED ALL SET NAMES                   COMCIDP  5784
                          76110                   SX1    B1                                                      COMCIDP  5785
                               36651              IX6    X5+X1                                                   COMCIDP  5786
          3551  0306003561 +                      ZR     X6,LST4     IF THIS ENTRY IS AVAILABLE (NOT A SET)      COMCIDP  5787
                          43052                   MX0    7*CHAR                                                  COMCIDP  5788
                               11105              BX1    X0*X5       (X1) = 0LNAME                               COMCIDP  5789
          3552  0100005274 +                      RJ     =XSFN       SPACE FILL NAME                             COMCIDP  5790
          3553  20666                             LX6    -CHAR                                                   COMCIDP  5791
                     5160000607 +                 SA6    SNAPLNE                                                 COMCIDP  5792
                               15150              BX1    -X0*X5                                                  COMCIDP  5793
          3554  0100005002 +                      RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- SET NAME VALU COMCIDP  5794
          3555  20630                             LX6    4*CHAR                                                  COMCIDP  5795
                     54661                        SA6    A6+B1                                                   COMCIDP  5796
                          15150                   BX1    -X0*X5                                                  COMCIDP  5797
          3556  0100003320 +                      RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  5798
          3557  54661                             SA6    A6+B1                                                   COMCIDP  5799
                     54761                        SA7    A6+B1                                                   COMCIDP  5800
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  5801
                                                                                                                 COMCIDP  5802
          3561  54551                    LST4     SA5    A5+B1                                                   COMCIDP  5803
                     0400003550 +                 EQ     LST2                                                    COMCIDP  5804
  
  
  
  
                                        **        LXT - LIST XFER TABLE.                                         COMCIDP  5806
                                        *                                                                        COMCIDP  5807
                                        *                                                                        COMCIDP  5808
                                        *                LISTS THE MOST RECENT TRANSFERS OF CONTROL TO OCCUR     COMCIDP  5809
                                        *         DURING STEP MODE (CONTAINED IN *IDPXFT*).                      COMCIDP  5810
                                        *                                                                        COMCIDP  5811
                                        *         *IDPXFT* FORMAT --                                             COMCIDP  5812
                                        *                                                                        COMCIDP  5813
                                        *         VFD    60/-1       UNUSED ENTRY (I.E. XFT HAS NOT FILLED YET)  COMCIDP  5814
                                        *          .                                                             COMCIDP  5815
                                        *          .                                                             COMCIDP  5816
                                        *         VFD    30/POS COUNTER,30/P REGISTER OF XFER INSTRUCTION        COMCIDP  5817
                                        *          .                                                             COMCIDP  5818
                                        *         VFD    60/0        END OF TABLE MARK                           COMCIDP  5819
                                        *                                                                        COMCIDP  5820
                                        *         ENTRY  (X6) = NR OF ENTRIES TO LIST (BEGINNING W/ MOST RECENT) COMCIDP  5821
                                        *                                                                        COMCIDP  5822
                                        *         EXIT   NONE                                                    COMCIDP  5823
                                        *                                                                        COMCIDP  5824
                                        *         USES   ALL                                                     COMCIDP  5825
                                        *                                                                        COMCIDP  5826
                                        *         CALLS  DAZ                                                     COMCIDP  5827
                                                                                                                 COMCIDP  5828
                                                                                                                 COMCIDP  5829
          3562  0400403562 +             LXT      SUBR               ** ENTRY/EXIT **                            COMCIDP  5830
                                                                                                                 COMCIDP  5831
                                        *         INITIALIZATION.                                                COMCIDP  5832
                                                                                                                 COMCIDP  5833
          3563  7110001435 +                      SX1    IDPXFT+L.XFT                                            COMCIDP  5834
                          7276777772              SX7    X6-L.XFT-1                                              COMCIDP  5835
          3564  0337003565 +                      MI     X7,LXT2     IF NOT ASKING FOR TOO MANY ENTRIES          COMCIDP  5836
                          7160000004              SX6    L.XFT                                                   COMCIDP  5837
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   182
        IDP 1.1/SUPPORTING SUBROUTINES.                               LXT                 IDP 
  
                                                                                                                 COMCIDP  5838
          3565  37716                    LXT2     IX7    X1-X6                                                   COMCIDP  5839
                     46000                        NO                                                             COMCIDP  5840
                          5170000157 +            SA7    LXT=NXT                                                 COMCIDP  5841
                                                                                                                 COMCIDP  5842
                                        *         ** MAIN LOOP NODE **                                           COMCIDP  5843
                                                                                                                 COMCIDP  5844
          3566  5120000157 +             LXT3     SA2    LXT=NXT                                                 COMCIDP  5845
                          53320                   SA3    X2          (X3) = NEXT *XFT* ENTRY                     COMCIDP  5846
                               73721              SX7    X2+B1                                                   COMCIDP  5847
          3567  73431                             SX4    X3+B1                                                   COMCIDP  5848
                     54720                        SA7    A2                                                      COMCIDP  5849
                          0303003562 +            ZR     X3,EXIT.    IF HIT END OF TABLE MARK, DONE...           COMCIDP  5850
          3570  0304003566 +                      ZR     X4,LXT3     IF HIT AVAILABLE ENTRY (I.E. *XFT* WAS NOT  COMCIDP  5851
                                        *                              FULL TO BEGIN WITH)                       COMCIDP  5852
                          53530                   SA5    X3          (A5,X5) = A+C OF XFER INSTRUCTION           COMCIDP  5853
                               21336              AX3    30                                                      COMCIDP  5854
          3571  63430                             SB4    X3          (B4) = POS COUNTER                          COMCIDP  5855
                     5170000641 +                 SA7    IDPFAD      SET TO *FORCE OUT ADDR UNCONDITIONALLY*     COMCIDP  5856
          3572  0100002674 +                      RJ     DAZ         DEASSEMBLE XFER INSTRUCTION                 COMCIDP  5857
          3573  0400003566 +                      EQ     LXT3                                                    COMCIDP  5858
                                                                                                                 COMCIDP  5859
                                                                                                                 COMCIDP  5860
                                 157 +   LXT=NXT  =      APL         SAVED ADDR OF NEXT *XFT* ENTRY              COMCIDP  5861
  
  
  
  
                                        **        MUL - INTEGER MULTIPLY.                                        COMCIDP  5863
                                        *                                                                        COMCIDP  5864
                                        *                                                                        COMCIDP  5865
                                        *         *MUL* INTEGER MULTIPLIES THE 2 **POSITIVE** INTEGERS           COMCIDP  5866
                                        *         IN REGISTERS (X1) AND (X2), PRODUCING A 60 BIT RESULT.         COMCIDP  5867
                                        *                                                                        COMCIDP  5868
                                        *         *MUL* IS ONLY NECESSARY BECAUSE THE HARDWARE CAN ONLY GET      COMCIDP  5869
                                        *         A MAXIMUM OF 48 BITS OF PRECISION ON AN INTEGER MULTIPLY, AND  COMCIDP  5870
                                        *         WE NEED 60 BITS.                                               COMCIDP  5871
                                        *                                                                        COMCIDP  5872
                                        *         ENTRY  (X1) = X                                                COMCIDP  5873
                                        *                (X2) = Y                                                COMCIDP  5874
                                        *                                                                        COMCIDP  5875
                                        *         EXIT   (X7) = X*Y  (60 BIT RESULT).                            COMCIDP  5876
                                        *                                                                        COMCIDP  5877
                                        *         USES   X - 1,2,3,4,7                                           COMCIDP  5878
                                        *                A - NONE                                                COMCIDP  5879
                                        *                B - NONE                                                COMCIDP  5880
                                        *                                                                        COMCIDP  5881
                                        *         CALLS  NONE                                                    COMCIDP  5882
                                                                                                                 COMCIDP  5883
                                                                                                                 COMCIDP  5884
          3574  0400403574 +             MUL      SUBR               ** ENTRY/EXIT **                            COMCIDP  5885
          3575  0331403575 +                      MI     X1,*+4S15   IF X IS NEGATIVE, CAN'T DO IT...            COMCIDP  5886
                          0332403575 +            MI     X2,*+4S15   IF Y IS NEGATIVE, CAN'T DO IT...            COMCIDP  5887
          3576  7130000001                        SX3    1                                                       COMCIDP  5888
                          13777                   BX7    X7-X7                                                   COMCIDP  5889
                               37412              IX4    X1-X2                                                   COMCIDP  5890
          3577  0324003601 +                      PL     X4,MUL2     IF X .GT. Y                                 COMCIDP  5891
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   183
        IDP 1.1/SUPPORTING SUBROUTINES.                               MUL                 IDP 
  
                          13112                   BX1    X1-X2                                                   COMCIDP  5892
                               13212              BX2    X1-X2                                                   COMCIDP  5893
          3600  13112                             BX1    X1-X2                                                   COMCIDP  5894
                                                                                                                 COMCIDP  5895
          3601  0302003574 +             MUL2     ZR     X2,EXIT.    IF DONE                                     COMCIDP  5896
                          36771                   IX7    X7+X1                                                   COMCIDP  5897
                               37223              IX2    X2-X3                                                   COMCIDP  5898
          3602  0400003601 +                      EQ     MUL2                                                    COMCIDP  5899
  
  
  
  
                                        **        PAS - PARSE SUBEXPRESSION.                                     COMCIDP  5901
                                        *                                                                        COMCIDP  5902
                                        *                                                                        COMCIDP  5903
                                        *         THIS IS THE PARSER...                                          COMCIDP  5904
                                        *                                                                        COMCIDP  5905
                                        *         *PAS* IS A RELATIVELY SIMPLE 2 PASS REVERSE POLISH NOTATION    COMCIDP  5906
                                        *         (*RPN*) PARSER.  IT IS USED BY JUST ABOUT EVERYONE IN IDP FOR  COMCIDP  5907
                                        *         EVALUATING EXPRESSIONS TYPED IN BY FRIENDLY HUMANS.            COMCIDP  5908
                                        *                                                                        COMCIDP  5909
                                        *         *PAS* CAN BE SPLIT DOWN THE MIDDLE INTO 2 PHASES: POLISH OUT   COMCIDP  5910
                                        *         (I.E. THE GENERATION OF REVERSE POLISH NOTATION TO *RPN*       COMCIDP  5911
                                        *         TABLE), AND POLISH IN (I.E. THE EVALUATION OF THE *RPN* THAT   COMCIDP  5912
                                        *         WE JUST GENERATED INTO A SINGLE BINARY ANSWER/VALUE).          COMCIDP  5913
                                        *                                                                        COMCIDP  5914
                                        *         FOLLOWING IS A PICTORIAL OF *DATA FLOW* IN *PAS* --            COMCIDP  5915
                                        *                                                                        COMCIDP  5916
                                        *                                                                        COMCIDP  5917
                                        *                     POLISH OUT      I     POLISH IN                    COMCIDP  5918
                                        *                                     I                                  COMCIDP  5919
                                        *                        +------+     I                                  COMCIDP  5920
                                        *                        I      I     I                                  COMCIDP  5921
                                        *                        I PAST I     I                                  COMCIDP  5922
                                        *                        I      I     I                                  COMCIDP  5923
                                        *                        +------+     I                                  COMCIDP  5924
                                        *                          &  .       I                                  COMCIDP  5925
                                        *                +----+    .  .    +-----+      +------+                 COMCIDP  5926
                                        *                I    I 1  .  .    I     I      I      I                 COMCIDP  5927
                                        *                I    I ....  ...> I     I 2    I      I                 COMCIDP  5928
                                        *                I TB I            I RPN I ...> I PAST I ...> (IDPACC)   COMCIDP  5929
                                        *                I    I .........> I     I      I      I                 COMCIDP  5930
                                        *                I    I 2          I     I      I      I                 COMCIDP  5931
                                        *                +----+            +-----+      +------+                 COMCIDP  5932
                                        *                                     I                                  COMCIDP  5933
                                        *                                     I                                  COMCIDP  5934
                                        *                                                                        COMCIDP  5935
                                        *         WHERE  TB   = TOKEN BUFFER (I.E. *PAS* INPUT).                 COMCIDP  5936
                                        *                RPN  = REVERSE POLISH NOTATION TABLE (I.E. POLISH       COMCIDP  5937
                                        *                       OUT OUTPUT, AND POLISH IN INPUT).                COMCIDP  5938
                                        *                PAST = PARSING STACK (USED DURING POLISH OUT FOR        COMCIDP  5939
                                        *                       ORDERING OPERATORS, AND DURING POLISH IN         COMCIDP  5940
                                        *                       FOR EVALUATING OPERANDS).                        COMCIDP  5941
                                        *                                                                        COMCIDP  5942
                                        *                1    = DATA FLOW PATH FOR OPERATORS.                    COMCIDP  5943
                                        *                2    = DATA FLOW PATH FOR OPERANDS.                     COMCIDP  5944
                                        *                                                                        COMCIDP  5945
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   184
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS                 IDP 
  
                                        *                IDPACC = THE ACCUMULATOR.  I.E. WHERE *PAS* STUFFS THE  COMCIDP  5946
                                        *                         FINAL RESULT RIGHT BEFORE EXITING.             COMCIDP  5947
                                        *                                                                        COMCIDP  5948
                                        *                                                                        COMCIDP  5949
                                        *         THE GENERAL ALGORITHM USED IN THIS PARSER CAN BE REPRESENTED   COMCIDP  5950
                                        *         IN A PSEUDO ENGLISH/PASCAL AS FOLLOWS --                       COMCIDP  5951
                                        *                                                                        COMCIDP  5952
                                        *         POLISH OUT --                                                  COMCIDP  5953
                                        *                                                                        COMCIDP  5954
                                        *                CASE OF TOKEN TYPE                                      COMCIDP  5955
                                        *                                                                        COMCIDP  5956
                                        *                    OPERAND:  PASS TO *RPN*.                            COMCIDP  5957
                                        *                                                                        COMCIDP  5958
                                        *                    OPERATOR: WHILE PRIORITY OF TOKEN .LE. PRIORITY     COMCIDP  5959
                                        *                              OF TOP-OF-STACK, PASS TOP-OF-STACK        COMCIDP  5960
                                        *                              TO *RPN*.                                 COMCIDP  5961
                                        *                                                                        COMCIDP  5962
                                        *                              PUSH TOKEN ON STACK.                      COMCIDP  5963
                                        *                                                                        COMCIDP  5964
                                        *                    LEFT (:   PUSH ON STACK.                            COMCIDP  5965
                                        *                                                                        COMCIDP  5966
                                        *                    RIGHT ):  POP STACK THRU FIRST ( HIT.               COMCIDP  5967
                                        *                                                                        COMCIDP  5968
                                        *                    EOS:      POP ENTIRE STACK.                         COMCIDP  5969
                                        *                                                                        COMCIDP  5970
                                        *                                                                        COMCIDP  5971
                                        *         POLISH IN --                                                   COMCIDP  5972
                                        *                                                                        COMCIDP  5973
                                        *                WHILE NOT EOS                                           COMCIDP  5974
                                        *                                                                        COMCIDP  5975
                                        *                    IF TOKEN = OPERAND                                  COMCIDP  5976
                                        *                       PUSH ON STACK.                                   COMCIDP  5977
                                        *                                                                        COMCIDP  5978
                                        *                    IF TOKEN = BINARY OPERATOR                          COMCIDP  5979
                                        *                       APPLY OPERATOR ON TOP 2 STACK ENTRIES            COMCIDP  5980
                                        *                       PUSH RESULT ON STACK (OVERLAYING TOP 2).         COMCIDP  5981
                                        *                                                                        COMCIDP  5982
                                        *                    IF TOKEN = UNARY OPERATOR                           COMCIDP  5983
                                        *                       APPLY ON TOP STACK ENTRY                         COMCIDP  5984
                                        *                       PUSH RESULT ON STACK (OVERLAYING TOP 1).         COMCIDP  5985
                                        *                                                                        COMCIDP  5986
                                        *                AT END, RESULT WILL BE IN STACK.                        COMCIDP  5987
                                        *                                                                        COMCIDP  5988
                                        *         THROUGHOUT THIS ROUTINE, REGISTERS B6 AND B7 HAVE GLOBAL       COMCIDP  5989
                                        *         SIGNIFICANCE --                                                COMCIDP  5990
                                        *                                                                        COMCIDP  5991
                                        *                (B6) = TOP-OF-STACK, *PAST*, ORDINAL.                   COMCIDP  5992
                                        *                (B7) = NEXT ADDR TO STORE/READ IN *RPN*.                COMCIDP  5993
                                        *                                                                        COMCIDP  5994
                                        *                                                                        COMCIDP  5995
                                        *         ENTRY  (A5+1) = ADDR OF 1ST TOKEN TO PARSE.                    COMCIDP  5996
                                        *                                                                        COMCIDP  5997
                                        *         EXIT   (IDPACC) = BINARY VALUE OF EXPRESSION.                  COMCIDP  5998
                                        *                         = +0 IF NULL PARSE, (X3) .ZR.                  COMCIDP  5999
                                        *                (X6)     = (IDPACC).                                    COMCIDP  6000
                                        *                (X1)     = (IDPACC).                                    COMCIDP  6001
                                        *                (X3)     = .NZ. IF EXPRESSION WAS NON-NULL, ELSE        COMCIDP  6002
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   185
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS                 IDP 
  
                                        *                         = .ZR. IF EXPRESSION WAS NULL.                 COMCIDP  6003
                                        *                (A5,X5)  = A+C OF TOKEN THAT TERMINATED PARSE.          COMCIDP  6004
                                        *                                                                        COMCIDP  6005
                                        *                (PAS=TET) = (MX=TET).  SEE *MX=TET* FOR DETAILS.        COMCIDP  6006
                                        *                                                                        COMCIDP  6007
                                        *         USES   ALL                                                     COMCIDP  6008
                                        *                                                                        COMCIDP  6009
                                        *         CALLS  CHK,CIB,FAA,FRA,PTR,SSY                                 COMCIDP  6010
                                                                                                                 COMCIDP  6011
                                                                                                                 COMCIDP  6012
          3603  0400403603 +             PAS      SUBR               ** ENTRY/EXIT **                            COMCIDP  6013
                                                                                                                 COMCIDP  6014
                                        *         INITIALIZATION.                                                COMCIDP  6015
                                                                                                                 COMCIDP  6016
          3604  7160000000                        SX6    0                                                       COMCIDP  6017
                          5160000635 +            SA6    IDPACC      CLEAR ACCUMULATOR                           COMCIDP  6018
          3605  5160000636 +                      SA6    IDPNUL      INITIALIZE TO *SUBEXPRESSION IS NULL*       COMCIDP  6019
                                                                                                                 COMCIDP  6020
                          5110000630 +            SA1    TB=STMT     (X1) = ADDR OF STMT INFO WORD               COMCIDP  6021
          3606  53210                             SA2    X1          (X2) = STMT INFO WORD FOR STMT TO PARSE     COMCIDP  6022
                                   0              ERRNZ  TB.LENL-18                                              COMCIDP  6023
                                                  LX2    0-TB.LENP                                               COMCIDP  6024
                     63220                        SB2    X2          (B2) = NR OF WORDS/TOKENS IN THIS STMT      COMCIDP  6025
                          6130000036              SB3    L.PAST      (B3) = NR OF AVAILABLE WORDS IN *PAST*      COMCIDP  6026
          3607  0732001306 +                      GT     B2,B3,E.STB IF STMT TOO BIG, ERROR...                   COMCIDP  6027
                                                                                                                 COMCIDP  6028
                          6160777776              SB6    -1          INITIALIZE (B6) = *PAST* ORDINAL            COMCIDP  6029
          3610  6170000532 +                      SB7    FW.RPN      (B7) = FWA OF *RPN* TABLE                   COMCIDP  6030
  
  
  
  
                                        **        PAS=PO - POLISH OUT MAIN LOOP NODE.                            COMCIDP  6032
                                        *                                                                        COMCIDP  6033
                                        *         THIS IS THE MAIN LOOP NODE FOR GENERATION OF THE *RPN*         COMCIDP  6034
                                        *         (REVERSE POLISH NOTATION) TABLE, AND IS TRAVERSED ONCE FOR     COMCIDP  6035
                                        *         EACH TOKEN/OPERATOR/OPERAND ENCOUNTERED IN *TB* (TOKEN         COMCIDP  6036
                                        *         BUFFER).                                                       COMCIDP  6037
                                        *                                                                        COMCIDP  6038
                                        *         *PAS=PO* CAN BE THOUGHT OF AS HAVING 2 DISTINCT FUNCTIONS --   COMCIDP  6039
                                        *                                                                        COMCIDP  6040
                                        *           1. EVALUATION OF OPERANDS INTO BINARY.                       COMCIDP  6041
                                        *                                                                        COMCIDP  6042
                                        *           2. ORDERING OF OPERATORS.                                    COMCIDP  6043
                                        *                                                                        COMCIDP  6044
                                        *         ENTRY  (B6) = ORDINAL IN *PAST* OF TOP-OF-STACK.               COMCIDP  6045
                                        *                (B7) = NEXT ADDR TO STORE INTO *RPN*.                   COMCIDP  6046
                                        *                                                                        COMCIDP  6047
                                        *         NOTE THAT (B6) AND (B7) ARE SAVED AT THE TOP OF THIS LOOP IN   COMCIDP  6048
                                        *         (PAS=SB6) AND (PAS=SB7), RESPECTIVELY.  THIS ALLOWS ANY POLISH COMCIDP  6049
                                        *         OUT PROCESSOR TO DESTROY (B6) AND (B7) WITHOUT HAVING TO SAVE  COMCIDP  6050
                                        *         THEM.  SAID PROCESSORS, HOWEVER, **MUST** RESTORE THESE        COMCIDP  6051
                                        *         REGISTERS BEFORE RETURNING TO *PAS=PO*.                        COMCIDP  6052
                                                                                                                 COMCIDP  6053
                                                                                                                 COMCIDP  6054
          3611                           PAS=PO   BSS    0           ** POLISH OUT MAIN LOOP NODE **             COMCIDP  6055
          3611  5110003740 +                      SA1    PAS=TET     (X1) = TERMINATING *TOT* SHIFT MASK         COMCIDP  6056
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   186
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PO              IDP 
  
                          5120000636 +            SA2    IDPNUL                                                  COMCIDP  6057
          3612  54551                             SA5    A5+B1       (A5,X5) = A+C OF NEXT TOKEN                 COMCIDP  6058
                     63250                        SB2    X5                                                      COMCIDP  6059
                          22121                   LX1    B2                                                      COMCIDP  6060
                               10755              BX7    X5                                                      COMCIDP  6061
          3613  73621                             SX6    X2+B1                                                   COMCIDP  6062
                     0331003663 +                 MI     X1,PAS30    IF TERMINATING TOT, POP ENTIRE STACK...     COMCIDP  6063
                               54620              SA6    A2                                                      COMCIDP  6064
          3614  76660                             SX6    B6                                                      COMCIDP  6065
                     76770                        SX7    B7                                                      COMCIDP  6066
                          5160003735 +            SA6    PAS=SB6     SAVE (B6)                                   COMCIDP  6067
          3615  5170003736 +                      SA7    PAS=SB7     SAVE (B7)                                   COMCIDP  6068
                                                                                                                 COMCIDP  6069
                                        *         GET *POT* ENTRY.                                               COMCIDP  6070
                                                                                                                 COMCIDP  6071
                          6225000000              SB2    X5+                                                     COMCIDP  6072
          3616  6130000015                        SB3    L.POT                                                   COMCIDP  6073
                          0602001300 +            LE     B2,B0,E.POP IF UNDER-SHOOTING *POT*, WOWY...            COMCIDP  6074
          3617  0732001300 +                      GT     B2,B3,E.POP IF OVER-SHOOTING *POT*, KAZOWY...           COMCIDP  6075
                                                                                                                 COMCIDP  6076
                          5215000454 +            SA1    FW.POT+X5-O.VAR  (X1) = *POT* ENTRY FOR THIS OPERATOR   COMCIDP  6077
                                                  LX1    0-PS.POPP                                               COMCIDP  6078
                                   0              ERRNZ  PS.POPL-18                                              COMCIDP  6079
          3620  63210                             SB2    X1          (B2) = POLISH OUT PROCESSOR ADDR            COMCIDP  6080
                                                                                                                 COMCIDP  6081
                                        *         EXTRACT *POT* INFORMATION.                                     COMCIDP  6082
                                                                                                                 COMCIDP  6083
                                   0              ERRNZ  TB.TOTL-18                                              COMCIDP  6084
                                   0              ERRNZ  PS.TOTL-18                                              COMCIDP  6085
                                   0              ERRNZ  PS.POPL-TB.TOTL                                         COMCIDP  6086
                                   0              ERRNZ  PS.POPL-18                                              COMCIDP  6087
                                   0              ERRNZ  PS.UPIPL-18                                             COMCIDP  6088
                                   0              ERRNZ  PS.PIPL-18                                              COMCIDP  6089
                                                                                                                 COMCIDP  6090
                     20152                        LX1    0-PS.PIPP+PS.POPP-0                                     COMCIDP  6091
                          73210                   SX2    X1          (X2) = *PIP*                                COMCIDP  6092
                               20152              LX1    0-PS.UPIPP+PS.PIPP-0                                    COMCIDP  6093
          3621  73310                             SX3    X1          (X3) = *UPIP*                               COMCIDP  6094
                     20152                        LX1    0-PS.PRIP+PS.UPIPP-0                                    COMCIDP  6095
                          43666                   MX6    -PS.PRIL                                                COMCIDP  6096
                               73750              SX7    X5          (X7) = *TOT*                                COMCIDP  6097
          3622  15616                             BX6    -X6*X1      (X6) = *PRI*                                COMCIDP  6098
                                                                                                                 COMCIDP  6099
                                        *         CHECK FOR UNARY OPERATOR.                                      COMCIDP  6100
                                                                                                                 COMCIDP  6101
                     55451                        SA4    A5-B1       (X4) = PRECEDING TOKEN                      COMCIDP  6102
                          5110006173 +            SA1    MX=PREUN    (X1) = PRE-UNARY *TOT* SHIFT MASK           COMCIDP  6103
          3623  63340                             SB3    X4                                                      COMCIDP  6104
                     22131                        LX1    B3                                                      COMCIDP  6105
                          0321003630 +            PL     X1,PAS10    IF NOT A UNARY OPERATOR                     COMCIDP  6106
                                                                                                                 COMCIDP  6107
          3624  7245777772                        SX4    X5-O.SEP                                                COMCIDP  6108
                          0334003630 +            MI     X4,PAS10    IF NOT AN OPERATOR                          COMCIDP  6109
                                                                                                                 COMCIDP  6110
          3625  7245777767                        SX4    X5-O.LP                                                 COMCIDP  6111
                          0304003630 +            ZR     X4,PAS10    IF (, LEAVE THINGS ALONE...                 COMCIDP  6112
                                                                                                                 COMCIDP  6113
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   187
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PO              IDP 
  
          3626  7160000077                        SX6    77B         (X6) = UNARY OPERATOR PRIORITY              COMCIDP  6114
                          6120003644 +            SB2    PAS22       (B2) = ADDR TO FORCE UNARY ON STACK         COMCIDP  6115
          3627  7223000000                        SX2    X3+         *PIP* = *POP*                               COMCIDP  6116
                                                                                                                 COMCIDP  6117
                                        *         CONSTRUCT *PAST* ENTRY.                                        COMCIDP  6118
                                        *                                                                        COMCIDP  6119
                                        *         ENTRY  (X2) = *PIP*, POLISH IN PROCESSOR ADDR                  COMCIDP  6120
                                        *                (X6) = *PRI*, PARSING PRIORITY                          COMCIDP  6121
                                        *                (X7) = *TOT*, TOKEN TYPE                                COMCIDP  6122
                                        *                (B2) = POLISH OUT PROCESSOR ADDR                        COMCIDP  6123
                                                                                                                 COMCIDP  6124
                                         PAS10    LX7    PS.TOTP-0                                               COMCIDP  6125
          3630  20222                             LX2    PS.PIPP-0                                               COMCIDP  6126
                     10466                        BX4    X6          (X4) = *PRI*, PARSING PRIORITY              COMCIDP  6127
                          20666                   LX6    PS.PRIP-0                                               COMCIDP  6128
                               12772              BX7    X7+X2       MERGE *PIP*                                 COMCIDP  6129
          3631  12776                             BX7    X7+X6       MERGE *PRI*                                 COMCIDP  6130
                                                                                                                 COMCIDP  6131
                     0222000000                   JP     B2                                                      COMCIDP  6132
  
  
  
  
                                        **        POLISH OUT PROCESSORS.                                         COMCIDP  6134
                                        *                                                                        COMCIDP  6135
                                        *         FOLLOWING ARE THE POLISH OUT PROCESSORS THAT ARE RESPONSIBLE   COMCIDP  6136
                                        *         FOR GENERATION OF THE *RPN* (REVERSE POLISH NOTATION) TABLE.   COMCIDP  6137
                                        *                                                                        COMCIDP  6138
                                        *         ENTRY  (B6) = *PAST* TOP-OF-STACK ORDINAL.                     COMCIDP  6139
                                        *                (B7) = NEXT *RPN* ADDR TO STORE AT.                     COMCIDP  6140
                                        *                (X4) = PARSING PRIORITY OF THIS OPERATOR/OPERAND        COMCIDP  6141
                                        *                       (IGNORED FOR OPERANDS).                          COMCIDP  6142
                                        *                (X7) = CONSTRUCTED *PAST/RPN* ENTRY FOR THIS OPERATOR/  COMCIDP  6143
                                        *                       OPERAND.                                         COMCIDP  6144
                                        *                (A5,X5) = A+C OF CURRENT TOKEN.                         COMCIDP  6145
  
  
  
  
                                        *         HERE IF ( ENCOUNTERED -- PLACE ON STACK.                       COMCIDP  6147
                                                                                                                 COMCIDP  6148
          3632  6166000001               PAS16    SB6    B6+1                                                    COMCIDP  6149
                          5176000474 +            SA7    FW.PAST+B6                                              COMCIDP  6150
          3633  0400003611 +                      EQ     PAS=PO      CONTINUE...                                 COMCIDP  6151
                                                                                                                 COMCIDP  6152
                                                                                                                 COMCIDP  6153
                                        *         HERE IF ) ENCOUNTERED -- POP *PAST* UNTIL ( ENCOUNTERED.       COMCIDP  6154
                                                                                                                 COMCIDP  6155
          3634  5116000474 +             PAS18    SA1    FW.PAST+B6  (X1) = TOP OF STACK                         COMCIDP  6156
                          0760003611 +            LT     B6,B0,PAS=PO IF *PAST* IS EMPTY, DONE...                COMCIDP  6157
          3635  7221777767                        SX2    X1-O.LP                                                 COMCIDP  6158
                          10611                   BX6    X1                                                      COMCIDP  6159
                               67661              SB6    B6-B1                                                   COMCIDP  6160
          3636  0302003611 +                      ZR     X2,PAS=PO   IF ( ENCOUNTERED, DONE...                   COMCIDP  6161
                          56670                   SA6    B7                                                      COMCIDP  6162
                               66771              SB7    B7+B1                                                   COMCIDP  6163
          3637  0400003634 +                      EQ     PAS18                                                   COMCIDP  6164
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   188
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PO              IDP 
  
                                                                                                                 COMCIDP  6165
                                                                                                                 COMCIDP  6166
                                        *         HERE FOR ALL OPERATORS (NOT LEFT AND RIGHT PARENS).            COMCIDP  6167
                                        *                                                                        COMCIDP  6168
                                        *           1. WHILE PRIORITY OF *TB* OPERATOR .LE. PRIORITY OF TOP OF   COMCIDP  6169
                                        *              *PAST* OPERATOR, PASS TOP OF *PAST* OPERATOR TO *RPN*.    COMCIDP  6170
                                        *                                                                        COMCIDP  6171
                                        *           2. PLACE *TB* OPERATOR ON TOP OF *PAST*.                     COMCIDP  6172
                                                                                                                 COMCIDP  6173
          3640  5116000474 +             PAS20    SA1    FW.PAST+B6  (X1) = TOP OF STACK                         COMCIDP  6174
                          0760003644 +            LT     B6,B0,PAS22 IF *PAST* IS EMPTY, DONE...                 COMCIDP  6175
          3641  43266                             MX2    -PS.PRIL                                                COMCIDP  6176
                     10611                        BX6    X1                                                      COMCIDP  6177
                          20106                   LX1    0-PS.PRIP                                               COMCIDP  6178
                               15312              BX3    -X2*X1      (X3) = *PAST* TOP-OF-STACK OP PRIORITY      COMCIDP  6179
          3642  37134                             IX1    X3-X4                                                   COMCIDP  6180
                     0331003644 +                 MI     X1,PAS22    IF *TB* OP PRIOR .GT. *PAST* OP PRIOR       COMCIDP  6181
                               56670              SA6    B7                                                      COMCIDP  6182
          3643  66771                             SB7    B7+B1                                                   COMCIDP  6183
                     67661                        SB6    B6-B1                                                   COMCIDP  6184
                          0400003640 +            EQ     PAS20                                                   COMCIDP  6185
                                                                                                                 COMCIDP  6186
                                        *         PLACE *TB* OPERATOR ON STACK.                                  COMCIDP  6187
                                                                                                                 COMCIDP  6188
          3644  6166000001               PAS22    SB6    B6+1                                                    COMCIDP  6189
                          5176000474 +            SA7    FW.PAST+B6                                              COMCIDP  6190
          3645  0400003611 +                      EQ     PAS=PO      CONTINUE...                                 COMCIDP  6191
                                                                                                                 COMCIDP  6192
                                                                                                                 COMCIDP  6193
                                        *         HERE IF *VAR* TOKEN.                                           COMCIDP  6194
                                        *                                                                        COMCIDP  6195
                                        *           1. CALL *SSY* (SEARCH SYMBOL TABLES) TO ASSOCIATE A BINARY   COMCIDP  6196
                                        *              VALUE WITH THIS *VAR* TOKEN.                              COMCIDP  6197
                                        *                                                                        COMCIDP  6198
                                        *           2. PUT *PS* ENTRY FOR THIS *VAR* AND ITS EVALUATED BINARY    COMCIDP  6199
                                        *              VALUE OUT TO *RPN* AS A 2 WORD ENTRY.                     COMCIDP  6200
                                                                                                                 COMCIDP  6201
          3646  5015000001               PAS24    SA1    A5+1                                                    COMCIDP  6202
                          7261777775              SX6    X1-O.VAR                                                COMCIDP  6203
          3647  0306001307 +                      ZR     X6,E.SYTL   IF SYMBOL TOO LONG, ERROR...                COMCIDP  6204
                                                                                                                 COMCIDP  6205
                          56770                   SA7    B7                                                      COMCIDP  6206
                               43252              MX2    TB.TOCL                                                 COMCIDP  6207
          3650  11125                             BX1    X2*X5       (X1) = SYMBOL TO SEARCH FOR, -L- FMT        COMCIDP  6208
                     0100004222 +                 RJ     SSY         SEARCH SYMBOL TABLES                        COMCIDP  6209
          3651  0460001301 +                      ZR     B6,E.VAR    IF NO FIND                                  COMCIDP  6210
                                                                                                                 COMCIDP  6211
                          5110003735 +            SA1    PAS=SB6                                                 COMCIDP  6212
          3652  54211                             SA2    A1+B1                                                   COMCIDP  6213
                     63610                        SB6    X1          RESTORE (B6)                                COMCIDP  6214
                          63721                   SB7    X2+B1       (B7) = NEXT *RPN* ADDR TO STORE AT          COMCIDP  6215
                               56670              SA6    B7                                                      COMCIDP  6216
          3653  66771                             SB7    B7+B1                                                   COMCIDP  6217
                     0400003611 +                 EQ     PAS=PO      CONTINUE WITH POLISH OUT...                 COMCIDP  6218
                                                                                                                 COMCIDP  6219
                                                                                                                 COMCIDP  6220
                                        *         HERE IF *CONS* TOKEN.                                          COMCIDP  6221
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   189
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PO              IDP 
  
                                        *                                                                        COMCIDP  6222
                                        *           1. CALL *CIB* (CONVERT INTEGER TO BINARY) TO EVALUATE *CONS* COMCIDP  6223
                                        *              TOKEN(S).                                                 COMCIDP  6224
                                        *                                                                        COMCIDP  6225
                                        *           2. PUT *PS* ENTRY FOR THIS *CONS* AND ITS EVALUATED BINARY   COMCIDP  6226
                                        *              OUT TO *RPN* AS A 2 WORD ENTRY.                           COMCIDP  6227
                                                                                                                 COMCIDP  6228
          3654  56770                    PAS26    SA7    B7                                                      COMCIDP  6229
                     66771                        SB7    B7+B1                                                   COMCIDP  6230
                          7110000010              SX1    8           SET TO *DEFAULT BASE IS OCTAL*              COMCIDP  6231
          3655  0100002474 +                      RJ     CIB         CONVERT INTEGER TO BINARY                   COMCIDP  6232
          3656  0520001302 +                      NZ     B2,E.CON    IF AN ERROR DURING CONVERSION               COMCIDP  6233
                                                                                                                 COMCIDP  6234
                          56670                   SA6    B7                                                      COMCIDP  6235
                               66771              SB7    B7+B1                                                   COMCIDP  6236
          3657  0400003611 +                      EQ     PAS=PO                                                  COMCIDP  6237
                                                                                                                 COMCIDP  6238
                                                                                                                 COMCIDP  6239
                                        *         HERE IF *REG* TOKEN.                                           COMCIDP  6240
                                        *                                                                        COMCIDP  6241
                                        *           1. GET ADDR OF SAVED REGISTER FROM IDP'S SAVED USER REGISTER COMCIDP  6242
                                        *              AREA.                                                     COMCIDP  6243
                                        *                                                                        COMCIDP  6244
                                        *           2. PUT *PS* ENTRY FOR THIS *REG* AND APPROPRIATE REGISTER    COMCIDP  6245
                                        *              ADDR OUT TO *RPN* AS A 2 WORD ENTRY.                      COMCIDP  6246
                                                                                                                 COMCIDP  6247
          3660  20552                    PAS28    LX5    0-TB.0TRP                                               COMCIDP  6248
                                   0              ERRNZ  TB.0TRL-18                                              COMCIDP  6249
                     7265000422 +                 SX6    IDP=SVB+X5  (X6) = ADDR OF SAVED REGISTER               COMCIDP  6250
                               56770              SA7    B7                                                      COMCIDP  6251
          3661  54671                             SA6    A7+B1                                                   COMCIDP  6252
                     6177000002                   SB7    B7+2                                                    COMCIDP  6253
          3662  0400003611 +                      EQ     PAS=PO                                                  COMCIDP  6254
                                                                                                                 COMCIDP  6255
                                                                                                                 COMCIDP  6256
                                        *         HERE IF AN EOS ENCOUNTERED.                                    COMCIDP  6257
                                        *                                                                        COMCIDP  6258
                                        *         POP ENTIRE STACK.                                              COMCIDP  6259
                                                                                                                 COMCIDP  6260
          3663  5116000474 +             PAS30    SA1    FW.PAST+B6  (X1) = TOP OF STACK                         COMCIDP  6261
                          0760003667 +            LT     B6,B0,PAS32 IF DONE                                     COMCIDP  6262
          3664  7221777767                        SX2    X1-O.LP                                                 COMCIDP  6263
                          10611                   BX6    X1                                                      COMCIDP  6264
                               67661              SB6    B6-B1                                                   COMCIDP  6265
          3665  0302003663 +                      ZR     X2,PAS30    IF (, IGNORE...                             COMCIDP  6266
                          56670                   SA6    B7                                                      COMCIDP  6267
                               66771              SB7    B7+B1                                                   COMCIDP  6268
          3666  0400003663 +                      EQ     PAS30                                                   COMCIDP  6269
                                                                                                                 COMCIDP  6270
                                                                                                                 COMCIDP  6271
                                        *         HERE WHEN WE HAVE COMPLETED GENERATING *RPN* TABLE.            COMCIDP  6272
                                        *                                                                        COMCIDP  6273
                                        *           1. TERMINATE *RPN* TABLE WITH A FULL ZERO END-OF-TABLE       COMCIDP  6274
                                        *              MARK.                                                     COMCIDP  6275
                                        *                                                                        COMCIDP  6276
                                        *           2. CHECK FOR *RPN* TABLE OVERFLOW.                           COMCIDP  6277
                                        *                                                                        COMCIDP  6278
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   190
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PO              IDP 
  
                                        *           3. SET UP FOR *POLISH IN* PROCESSING.                        COMCIDP  6279
                                                                                                                 COMCIDP  6280
          3667  13666                    PAS32    BX6    X6-X6                                                   COMCIDP  6281
                     56670                        SA6    B7          MARK EOT                                    COMCIDP  6282
                                                                                                                 COMCIDP  6283
                          6120000607 +            SB2    FW.RPN+L.RPN  (B2) = LWA+1 OF AVAILABLE *RPN* SPACE     COMCIDP  6284
          3670  0672001325 +                      GE     B7,B2,SE.RPN  IF *RPN* OVERFLOW                         COMCIDP  6285
                                                                                                                 COMCIDP  6286
                          6160777776              SB6    -1          INITIALIZE (B6) = *PAST* ORDINAL            COMCIDP  6287
          3671  6170000532 +                      SB7    FW.RPN      (B7) = FWA OF *RPN* TABLE                   COMCIDP  6288
  
  
  
  
                                        **        PAS=PI - POLISH IN MAIN LOOP NODE.                             COMCIDP  6290
                                        *                                                                        COMCIDP  6291
                                        *         THIS IS THE MAIN LOOP NODE FOR THE EVALUATION OF THE *RPN*     COMCIDP  6292
                                        *         (REVERSE POLISH NOTATION) TABLE INTO A SINGLE BINARY VALUE.    COMCIDP  6293
                                        *                                                                        COMCIDP  6294
                                        *         *PAS=PI* IS TRAVERSED ONCE FOR EACH OPERATOR/OPERAND ENTRY     COMCIDP  6295
                                        *         ENCOUNTERED IN *RPN*.                                          COMCIDP  6296
                                        *                                                                        COMCIDP  6297
                                        *         ENTRY  (B6) = *PAST* TOP-OF-STACK ORDINAL.                     COMCIDP  6298
                                        *                (B7) = NEXT *RPN* ADDR TO LOOK AT.                      COMCIDP  6299
                                        *                (A5,X5) = A+C OF TOKEN THAT TERMINATED PARSE (UNUSED    COMCIDP  6300
                                        *                          DURING POLISH IN PROCESSING).                 COMCIDP  6301
                                        *                                                                        COMCIDP  6302
                                        *         NOTE THAT (B6) AND (B7) ARE SAVED AT THE TOP OF THIS LOOP IN   COMCIDP  6303
                                        *         (PAS=SB6) AND (PAS=SB7), RESPECTIVELY.  THIS ALLOWS ANY POLISH COMCIDP  6304
                                        *         IN PROCESSOR TO DESTROY (B6) AND (B7) WITHOUT HAVING TO SAVE   COMCIDP  6305
                                        *         THEM.  SAID PROCESSORS, HOWEVER, **MUST** RESTORE THESE        COMCIDP  6306
                                        *         REGISTERS BEFORE RETURNING TO *PAS=PI*.                        COMCIDP  6307
                                                                                                                 COMCIDP  6308
                                                                                                                 COMCIDP  6309
          3672                           PAS=PI   BSS    0           ** POLISH IN MAIN LOOP NODE **              COMCIDP  6310
          3672  56170                             SA1    B7          (X1) = NEXT *RPN* ENTRY                     COMCIDP  6311
                     66771                        SB7    B7+B1                                                   COMCIDP  6312
                          0301003730 +            ZR     X1,PAS=XIT  IF *RPN* DEPLETED, DONE...                  COMCIDP  6313
                                                                                                                 COMCIDP  6314
          3673  76660                             SX6    B6                                                      COMCIDP  6315
                     76770                        SX7    B7                                                      COMCIDP  6316
                          5160003735 +            SA6    PAS=SB6     SAVE (B6)                                   COMCIDP  6317
          3674  5170003736 +                      SA7    PAS=SB7     SAVE (B7)                                   COMCIDP  6318
                                                                                                                 COMCIDP  6319
                          20152                   LX1    0-PS.PIPP                                               COMCIDP  6320
                                   0              ERRNZ  PS.PIPL-18                                              COMCIDP  6321
                               63210              SB2    X1          (B2) = POLISH IN PROCESSOR ADDR             COMCIDP  6322
                                                                                                                 COMCIDP  6323
          3675  5116000474 +                      SA1    FW.PAST+B6    (X1) = A                                  COMCIDP  6324
                          5126000473 +            SA2    FW.PAST+B6-1  (X2) = B                                  COMCIDP  6325
          3676  0222000000                        JP     B2          PARSE ON, PARSE ON...                       COMCIDP  6326
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   191
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PI              IDP 
  
                                        **        POLISH IN PROCESSORS.                                          COMCIDP  6328
                                        *                                                                        COMCIDP  6329
                                        *         FOLLOWING ARE THE POLISH IN PROCESSORS THAT ARE RESPONSIBLE    COMCIDP  6330
                                        *         FOR ACTUALLY PERFORMING THE OPERATIONS SPECIFIED VIA IDP'S     COMCIDP  6331
                                        *         OPERATORS UPON THE OPERANDS.                                   COMCIDP  6332
                                        *                                                                        COMCIDP  6333
                                        *         ENTRY  (B6) = *PAST* TOP-OF-STACK ORDINAL.                     COMCIDP  6334
                                        *                (B7) = NEXT *RPN* ADDR TO LOOK AT.                      COMCIDP  6335
                                        *                (X1) = OPERAND -A-, TOP-OF-STACK.                       COMCIDP  6336
                                        *                (X2) = OPERAND -B-, NEXT-TO-TOP-OF-STACK.               COMCIDP  6337
                                        *                                                                        COMCIDP  6338
                                        *                       THAT IS, OPERATIONS ARE --                       COMCIDP  6339
                                        *                                                                        COMCIDP  6340
                                        *                         1. UNARY: OPERATE -A-.                         COMCIDP  6341
                                        *                                                                        COMCIDP  6342
                                        *                         2. BINARY: -B- OPERATE -A-.                    COMCIDP  6343
  
  
  
  
                                        *         HERE IF --                                                     COMCIDP  6345
                                        *                                                                        COMCIDP  6346
                                        *           1. *VAR* TOKEN.                                              COMCIDP  6347
                                        *                                                                        COMCIDP  6348
                                        *           2. *CONS* TOKEN.                                             COMCIDP  6349
                                        *                                                                        COMCIDP  6350
                                        *           3. *REG* TOKEN.                                              COMCIDP  6351
                                        *                                                                        COMCIDP  6352
                                        *         PUSH BINARY ON STACK.                                          COMCIDP  6353
                                                                                                                 COMCIDP  6354
          3677  56170                    PAS34    SA1    B7                                                      COMCIDP  6355
                     66771                        SB7    B7+B1                                                   COMCIDP  6356
                          10611                   BX6    X1                                                      COMCIDP  6357
                               66661              SB6    B6+B1                                                   COMCIDP  6358
          3700  5166000474 +                      SA6    FW.PAST+B6                                              COMCIDP  6359
                          0400003672 +            EQ     PAS=PI                                                  COMCIDP  6360
                                                                                                                 COMCIDP  6361
                                                                                                                 COMCIDP  6362
                                        *         HERE IF: B+A                                                   COMCIDP  6363
                                                                                                                 COMCIDP  6364
          3701  36721                    PAS36    IX7    X2+X1       (X7) = B+A                                  COMCIDP  6365
                     0400003725 +                 EQ     PAS=PIB                                                 COMCIDP  6366
                                                                                                                 COMCIDP  6367
                                                                                                                 COMCIDP  6368
                                        *         HERE IF: +A                                                    COMCIDP  6369
                                        *                                                                        COMCIDP  6370
                                        *         DETERMINE CURRENT DECK FWA BY --                               COMCIDP  6371
                                        *                                                                        COMCIDP  6372
                                        *           1. GETTING CURRENT *CODE* 1ST DEFAULT POINTER.  THIS         COMCIDP  6373
                                        *              TELLS US WHERE OUR FRIEND IS *CODE*ING AT.                COMCIDP  6374
                                        *                                                                        COMCIDP  6375
                                        *           2. CALLING *FRA* (FIND RELATIVE ADDRESS) WITH OUR            COMCIDP  6376
                                        *              *CODE* POINTER IN ORDER TO GET THE DECK NAME              COMCIDP  6377
                                        *              PLUS RELATIVE OFFSET.                                     COMCIDP  6378
                                        *                                                                        COMCIDP  6379
                                        *           3. CALLING *FAA* (FIND ABSOLUTE ADDRESS) WITH OUR            COMCIDP  6380
                                        *              JUST-FOUND-BY-FRA DECK NAME IN ORDER TO FIND              COMCIDP  6381
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   192
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PI              IDP 
  
                                        *              OUT WHAT THE ABSOLUTE ADDRESS OF THIS DECK IS.            COMCIDP  6382
                                        *                                                                        COMCIDP  6383
                                        *         THIS IS OUR DESIRED NUMBER.                                    COMCIDP  6384
                                                                                                                 COMCIDP  6385
          3702  66210                    PAS38    SB2    B1          SET TO *1ST DEFAULT*                        COMCIDP  6386
                     67301                        SB3    -B1         SET TO *GET POINTER*                        COMCIDP  6387
                          5110001107 +            SA1    ST.COD      (X1) = *KEYW* ENTRY FOR *CODE*              COMCIDP  6388
          3703  0100004047 +                      RJ     PTR         GET POINTER                                 COMCIDP  6389
          3704  73120                             SX1    X2          (X1) = DEFAULT *CODE* FWA                   COMCIDP  6390
                     0100003320 +                 RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  6391
          3705  0770003710 +                      MI     B7,PAS39    IF USER DID NOT PROVIDE *FRA=*              COMCIDP  6392
                          10177                   BX1    X7          (X1) = DECK NAME, -L- FMT                   COMCIDP  6393
                               43052              MX0    7*CHAR                                                  COMCIDP  6394
          3706  0100003227 +                      RJ     FAA         FIND ABSOLUTE ADDRESS                       COMCIDP  6395
          3707  0336001322 +                      MI     X6,SE.UNPL  IF NO FIND                                  COMCIDP  6396
                                                                                                                 COMCIDP  6397
          3710  5110003735 +             PAS39    SA1    PAS=SB6     (X1) = SAVED (B6)                           COMCIDP  6398
                          54211                   SA2    A1+B1       (X2) = SAVED (B7)                           COMCIDP  6399
                               63610              SB6    X1          RESTORE (B6)                                COMCIDP  6400
          3711  63720                             SB7    X2          RESTORE (B7)                                COMCIDP  6401
                                                                                                                 COMCIDP  6402
                     5116000474 +                 SA1    FW.PAST+B6  (X1) = A, RESTORED                          COMCIDP  6403
                               36761              IX7    X6+X1       (X7) = DECK+A                               COMCIDP  6404
          3712  0400003727 +                      EQ     PAS=PIU                                                 COMCIDP  6405
                                                                                                                 COMCIDP  6406
                                                                                                                 COMCIDP  6407
                                        *         HERE IF: B-A                                                   COMCIDP  6408
                                                                                                                 COMCIDP  6409
          3713  37721                    PAS40    IX7    X2-X1       (X7) = B-A                                  COMCIDP  6410
                     0400003725 +                 EQ     PAS=PIB                                                 COMCIDP  6411
                                                                                                                 COMCIDP  6412
                                                                                                                 COMCIDP  6413
                                        *         HERE IF: -A                                                    COMCIDP  6414
                                                                                                                 COMCIDP  6415
          3714  14711                    PAS42    BX7    -X1         (X7) = -A                                   COMCIDP  6416
                     0400003727 +                 EQ     PAS=PIU                                                 COMCIDP  6417
                                                                                                                 COMCIDP  6418
                                                                                                                 COMCIDP  6419
                                        *         HERE IF: B*A                                                   COMCIDP  6420
                                                                                                                 COMCIDP  6421
          3715  42721                    PAS44    IX7    X2*X1       (X7) = B*A                                  COMCIDP  6422
                     0400003725 +                 EQ     PAS=PIB                                                 COMCIDP  6423
                                                                                                                 COMCIDP  6424
                                                                                                                 COMCIDP  6425
                                        *         HERE IF: *A                                                    COMCIDP  6426
                                                                                                                 COMCIDP  6427
          3716  63210                    PAS46    SB2    X1                                                      COMCIDP  6428
                     0100002447 +                 RJ     CHK         CHECK CM ADDRESS                            COMCIDP  6429
          3717  0720001303 +                      MI     B2,E.IND    IF ADDR IS BAD                              COMCIDP  6430
                          56120                   SA1    B2                                                      COMCIDP  6431
                               10711              BX7    X1          (X7) = *A                                   COMCIDP  6432
          3720  0400003727 +                      EQ     PAS=PIU                                                 COMCIDP  6433
                                                                                                                 COMCIDP  6434
                                                                                                                 COMCIDP  6435
                                        *         HERE IF: B$A                                                   COMCIDP  6436
                                                                                                                 COMCIDP  6437
          3721  63210                    PAS48    SB2    X1                                                      COMCIDP  6438
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   193
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=PI              IDP 
  
                     22722                        LX7    X2,B2       (X7) = B$A                                  COMCIDP  6439
                          0400003725 +            EQ     PAS=PIB                                                 COMCIDP  6440
                                                                                                                 COMCIDP  6441
                                                                                                                 COMCIDP  6442
                                        *         HERE IF: B.OR.A                                                COMCIDP  6443
                                                                                                                 COMCIDP  6444
          3722  12721                    PAS50    BX7    X2+X1       (X7) = B.OR.A                               COMCIDP  6445
                     0400003725 +                 EQ     PAS=PIB                                                 COMCIDP  6446
                                                                                                                 COMCIDP  6447
                                                                                                                 COMCIDP  6448
                                        *         HERE IF: B.AND.A                                               COMCIDP  6449
                                                                                                                 COMCIDP  6450
          3723  11721                    PAS52    BX7    X2*X1       (X7) = B.AND.A                              COMCIDP  6451
                     0400003725 +                 EQ     PAS=PIB                                                 COMCIDP  6452
                                                                                                                 COMCIDP  6453
                                                                                                                 COMCIDP  6454
                                        *         HERE IF: B.XOR.A                                               COMCIDP  6455
                                                                                                                 COMCIDP  6456
          3724  13721                    PAS54    BX7    X2-X1       (X7) = B.XOR.A                              COMCIDP  6457
                     0400003725 +                 EQ     PAS=PIB                                                 COMCIDP  6458
                                                                                                                 COMCIDP  6459
                                                                                                                 COMCIDP  6460
                                        *         HERE TO PUSH RESULT OF BINARY OPERATION ON STACK.              COMCIDP  6461
                                                                                                                 COMCIDP  6462
          3725                           PAS=PIB  BSS    0                                                       COMCIDP  6463
          3725  6166777776                        SB6    B6-1                                                    COMCIDP  6464
                          0760001305 +            LT     B6,B0,E.PAST IF STACK IS EMPTY, ERROR...                COMCIDP  6465
          3726  5176000474 +                      SA7    FW.PAST+B6                                              COMCIDP  6466
                          0400003672 +            EQ     PAS=PI      CONTINUE WITH POLISH IN...                  COMCIDP  6467
                                                                                                                 COMCIDP  6468
                                                                                                                 COMCIDP  6469
                                        *         HERE TO PUSH RESULT OF UNARY OPERATION ON STACK.               COMCIDP  6470
                                                                                                                 COMCIDP  6471
          3727                           PAS=PIU  BSS    0                                                       COMCIDP  6472
          3727  5176000474 +                      SA7    FW.PAST+B6                                              COMCIDP  6473
                          0400003672 +            EQ     PAS=PI      CONTINUE WITH POLISH IN...                  COMCIDP  6474
  
  
  
  
                                        **        PAS=XIT - HERE WHEN READY TO EXIT.                             COMCIDP  6476
                                        *                                                                        COMCIDP  6477
                                        *           1. CHECK TO MAKE SURE THAT THE RESULT OF OUR EVALUATION      COMCIDP  6478
                                        *              IS THE ONLY THING LEFT ON THE STACK. IF NOT THEN WE       COMCIDP  6479
                                        *              HAVE AN ERROR.                                            COMCIDP  6480
                                        *                                                                        COMCIDP  6481
                                        *           2. SET UP EXIT CONDITIONS, AND EXIT BACK TO CALLER.          COMCIDP  6482
                                                                                                                 COMCIDP  6483
                                                                                                                 COMCIDP  6484
          3730                           PAS=XIT  BSS    0                                                       COMCIDP  6485
          3730  5130000636 +                      SA3    IDPNUL                                                  COMCIDP  6486
                          5120000455 +            SA2    MX=TET      (X2) = MASTER TERMINATING *TOT* SHIFT MASK  COMCIDP  6487
          3731  7110000000                        SX1    0                                                       COMCIDP  6488
                          0303003733 +            ZR     X3,PAS90    IF NULL PARSE                               COMCIDP  6489
                                                                                                                 COMCIDP  6490
          3732  5116000474 +                      SA1    FW.PAST+B6  (X1) = BINARY RESULT                        COMCIDP  6491
                          0560001305 +            NZ     B6,E.PAST   IF OPERATOR/OPERAND MISMATCH, ERROR...      COMCIDP  6492
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   194
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAS=XIT             IDP 
  
                                                                                                                 COMCIDP  6493
          3733  10611                    PAS90    BX6    X1                                                      COMCIDP  6494
                     22702                        LX7    X2                                                      COMCIDP  6495
                          5160000635 +            SA6    IDPACC      SAVE ACCUMULATOR                            COMCIDP  6496
          3734  5170003740 +                      SA7    PAS=TET                                                 COMCIDP  6497
                          0400003603 +            EQ     EXIT.                                                   COMCIDP  6498
                                                                                                                 COMCIDP  6499
                                                                                                                 COMCIDP  6500
          3735                     3     PASA     BSSZ   3                                                       COMCIDP  6501
                                                                                                                 COMCIDP  6502
      L   3735                                    LOC    PASA                                                    COMCIDP  6503
                                3735 +   PAS=SB6  =      *           SAVED (B6)                                  COMCIDP  6504
                                3736 +   PAS=SB7  =      *+1         SAVED (B7)                                  COMCIDP  6505
                                3737 +   PAS=SX7  =      *+2         SAVED (X7)                                  COMCIDP  6506
          3740                                    LOC    *O                                                      COMCIDP  6507
                                                                                                                 COMCIDP  6508
          3740  40000400000000000000     PAS=TET  CON    "'?IDCTET"  LOCAL TERMINATING *TOT* SHIFT MASK          COMCIDP  6509
  
  
  
  
                                        **        PAT - PARSE *FWA,LWA,LEN* TRIPLE.                              COMCIDP  6511
                                        *                                                                        COMCIDP  6512
                                        *                                                                        COMCIDP  6513
                                        *         THIS ROUTINE CONTROLS THE PARSING OF THE *FWA,LWA,LEN*         COMCIDP  6514
                                        *         SYNTAX, AND IS USED MERELY AS A SPACE OPTIMIZATION BECAUSE     COMCIDP  6515
                                        *         THIS SYNTAX NEEDS TO BE PARSED FOR A NUMBER OF DIFFERENT       COMCIDP  6516
                                        *         STATEMENTS.                                                    COMCIDP  6517
                                        *                                                                        COMCIDP  6518
                                        *         ANY OR ALL OF THE SUBEXPRESSIONS WHICH CONSTITUTE THE          COMCIDP  6519
                                        *         *FWA,LWA,LEN* TRIPLE MAY BE NULL.  IF A NULL SUBEXPRESSION     COMCIDP  6520
                                        *         IS ENCOUNTERED, *PAT* WILL USE A DEFAULT VALUE THAT HAS        COMCIDP  6521
                                        *         BEEN SET UP BY THE CALLER.                                     COMCIDP  6522
                                        *                                                                        COMCIDP  6523
                                        *         NOTE THAT *PAT* RESOLVES ANY POSSIBLE SYNTACTIC DIFFERENCES    COMCIDP  6524
                                        *         BETWEEN THE USES OF THE *LWA* AND *LEN* PARAMETERS --          COMCIDP  6525
                                        *                                                                        COMCIDP  6526
                                        *           1. FOR *FWA,LWA* (I.E. WHEN *LEN* IS NULL),                  COMCIDP  6527
                                        *              NEED TO SET: LEN = LWA-FWA+1                              COMCIDP  6528
                                        *                                                                        COMCIDP  6529
                                        *           2. FOR *FWA,,LEN* (I.E. WHEN *LWA* IS NULL),                 COMCIDP  6530
                                        *              NEED TO SET: LWA = FWA+LEN-1                              COMCIDP  6531
                                        *                                                                        COMCIDP  6532
                                        *         THIS HOCUS POCUS IS NECESSARY TO INSURE THAT *LWA* AND *LEN*   COMCIDP  6533
                                        *         DO NOT CONFLICT WITH EACH OTHER.                               COMCIDP  6534
                                        *                                                                        COMCIDP  6535
                                        *         CONSIDER --                                                    COMCIDP  6536
                                        *                                                                        COMCIDP  6537
                                        *                SNAP 100,,2                                             COMCIDP  6538
                                        *                                                                        COMCIDP  6539
                                        *         FOLLOWED BY --                                                 COMCIDP  6540
                                        *                                                                        COMCIDP  6541
                                        *                SNAP 100,110                                            COMCIDP  6542
                                        *                                                                        COMCIDP  6543
                                        *         IF THE ABOVE *LWA/LEN* FIDDLING WERE NOT PERFORMED, UPON       COMCIDP  6544
                                        *         ENCOUNTERING THE 2ND STMT, IDP WOULD NOT KNOW WHICH VALUE      COMCIDP  6545
                                        *         TO USE: LEN=2 (RESIDUAL), OR LWA=110 (EXPLICIT).               COMCIDP  6546
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   195
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAT                 IDP 
  
                                        *                                                                        COMCIDP  6547
                                        *         ENTRY  (A5+1)    = ADDR OF 1ST TOKEN IN TRIPLE, I.E. *FWA*.    COMCIDP  6548
                                        *                (TB=KEY)  = ADDR OF *KEYW* ENTRY, WORD 1, FOR THIS      COMCIDP  6549
                                        *                            STMT (I.E. CONTAINS *PTR* ORD).             COMCIDP  6550
                                        *                                                                        COMCIDP  6551
                                        *         EXIT   (A5,X5)   = A+C OF TOKEN THAT TERMINATED TRIPLE         COMCIDP  6552
                                        *                (X2)      = FWA, AS SPECIFIED EXPLICITLY OR BY DEFAULT  COMCIDP  6553
                                        *                (X3)      = LWA, AS SPECIFIED EXPLICITLY OR BY DEFAULT  COMCIDP  6554
                                        *                (X4)      = LEN, AS SPECIFIED EXPLICITLY OR BY DEFAULT  COMCIDP  6555
                                        *                (AP=FWA)  = (PAT#FWA) = FWA                             COMCIDP  6556
                                        *                (AP=LWA)  = LWA, AS COMPUTED FROM *LWA* AND/OR *LEN*    COMCIDP  6557
                                        *                (B2)      = .MI. IF FWA, LWA, OR LEN ARE BAD, ELSE .PL. COMCIDP  6558
                                        *                                                                        COMCIDP  6559
                                        *         USES   ALL                                                     COMCIDP  6560
                                        *                                                                        COMCIDP  6561
                                        *         CALLS  FLL,PAS,PTR                                             COMCIDP  6562
                                                                                                                 COMCIDP  6563
                                                                                                                 COMCIDP  6564
          3741  0400403741 +             PAT      SUBR               ** ENTRY/EXIT **                            COMCIDP  6565
                                                                                                                 COMCIDP  6566
                                        *         INITIALIZATION.                                                COMCIDP  6567
                                                                                                                 COMCIDP  6568
          3742  66210                             SB2    B1          SET TO *1ST DEFAULT, PLEASE*                COMCIDP  6569
                     6130777776                   SB3    -1          SET TO *GET PTR*                            COMCIDP  6570
                               13111              BX1    X1-X1       SET TO *USE KEYW ENTRY AT (TB=KEY)*         COMCIDP  6571
          3743  0100004047 +                      RJ     PTR         GET POINTER VALUES                          COMCIDP  6572
                                                                                                                 COMCIDP  6573
                                        *         SET UP DEFAULT FWA,LWA,LEN.                                    COMCIDP  6574
                                                                                                                 COMCIDP  6575
          3744  43600                             MX6    0                                                       COMCIDP  6576
                     5160000670 +                 SA6    PATFLG      CLEAR *PATFLG*                              COMCIDP  6577
          3745  5160000160 +                      SA6    PAT#LWA     DEFAULT LWA = 0 (I.E. NO LWA)               COMCIDP  6578
                          10622                   BX6    X2                                                      COMCIDP  6579
                               22704              LX7    X4                                                      COMCIDP  6580
          3746  5160000157 +                      SA6    PAT#FWA     DEFAULT FWA = (FWA POINTER)                 COMCIDP  6581
                          5170000161 +            SA7    PAT#LEN     DEFAULT LEN = (LEN POINTER)                 COMCIDP  6582
                                                                                                                 COMCIDP  6583
                                        *         PARSE/PROCESS FWA.                                             COMCIDP  6584
                                                                                                                 COMCIDP  6585
          3747  0305003763 +                      ZR     X5,PAT4     IF EOS ENCOUNTERED                          COMCIDP  6586
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION -- FWA                  COMCIDP  6587
          3750  0303003753 +                      ZR     X3,PAT2     IF FWA IS NULL                              COMCIDP  6588
                                                                                                                 COMCIDP  6589
                                        *         CHECK TO SEE IF FWA CHANGED.  IF SO, SET DEFAULT LEN = 1.      COMCIDP  6590
                                                                                                                 COMCIDP  6591
                          5120000157 +            SA2    PAT#FWA     (X2) = DEFAULT FWA                          COMCIDP  6592
          3751  73610                             SX6    X1          (X6) = NEW FWA                              COMCIDP  6593
                     76710                        SX7    B1                                                      COMCIDP  6594
                          37362                   IX3    X6-X2                                                   COMCIDP  6595
                               54620              SA6    A2          UPDATE NEW FWA                              COMCIDP  6596
          3752  0303003753 +                      ZR     X3,PAT2     IF FWA DID NOT CHANGE                       COMCIDP  6597
                          5170000161 +            SA7    PAT#LEN     SET TO DEFAULT LEN = 1                      COMCIDP  6598
                                                                                                                 COMCIDP  6599
                                        *         PARSE/PROCESS LWA.                                             COMCIDP  6600
                                                                                                                 COMCIDP  6601
          3753  0305003763 +             PAT2     ZR     X5,PAT4     IF EOS ENCOUNTERED                          COMCIDP  6602
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION -- LWA                  COMCIDP  6603
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   196
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAT                 IDP 
  
          3754  0303003757 +                      ZR     X3,PAT3     IF LWA IS NULL                              COMCIDP  6604
                          73610                   SX6    X1                                                      COMCIDP  6605
          3755  7170040000                        SX7    PAF.LWAM                                                COMCIDP  6606
                          5160000160 +            SA6    PAT#LWA                                                 COMCIDP  6607
          3756  5170000670 +                      SA7    PATFLG                                                  COMCIDP  6608
                                                                                                                 COMCIDP  6609
                                        *         PARSE/PROCESS LEN.                                             COMCIDP  6610
                                                                                                                 COMCIDP  6611
          3757  0305003763 +             PAT3     ZR     X5,PAT4     IF EOS ENCOUNTERED                          COMCIDP  6612
                          0100003603 +            RJ     PAS         PARSE SUBEXPRESSION -- LEN                  COMCIDP  6613
          3760  0303003763 +                      ZR     X3,PAT4     IF LEN IS NULL                              COMCIDP  6614
                          5120000670 +            SA2    PATFLG                                                  COMCIDP  6615
          3761  7170004000                        SX7    PAF.LENM                                                COMCIDP  6616
                          73610                   SX6    X1                                                      COMCIDP  6617
                               12727              BX7    X2+X7       SET TO *LEN SPECIFIED*                      COMCIDP  6618
          3762  5160000161 +                      SA6    PAT#LEN                                                 COMCIDP  6619
                          5072000000              SA7    A2+                                                     COMCIDP  6620
                                                                                                                 COMCIDP  6621
                                        *         HERE TO RESOLVE ANY POSSIBLE SYNTACTIC DIFFERENCES             COMCIDP  6622
                                        *         BETWEEN *FWA,LWA* AND *FWA,,LEN*.                              COMCIDP  6623
                                                                                                                 COMCIDP  6624
          3763  5110000670 +             PAT4     SA1    PATFLG                                                  COMCIDP  6625
                          5120000157 +            SA2    PAT#FWA     (X2) = FWA                                  COMCIDP  6626
          3764  54321                             SA3    A2+B1       (X3) = LWA                                  COMCIDP  6627
                     54431                        SA4    A3+B1       (X4) = LEN                                  COMCIDP  6628
                          0301003774 +            ZR     X1,PAT6     IF NO PROBLEM                               COMCIDP  6629
          3765  7261733777                        SX6    X1-PAF.LWAM-PAF.LENM                                    COMCIDP  6630
                          7271737777              SX7    X1-PAF.LWAM                                             COMCIDP  6631
          3766  0306003774 +                      ZR     X6,PAT6     IF *FWA,LWA,LEN*                            COMCIDP  6632
                          0317003772 +            NZ     X7,PAT5     IF *FWA,,LEN*                               COMCIDP  6633
                                                                                                                 COMCIDP  6634
                                        *         HERE IF *FWA,LWA*.                                             COMCIDP  6635
                                        *         SET: LEN=LWA-FWA+1                                             COMCIDP  6636
                                        *                                                                        COMCIDP  6637
                                        *         NOTE THAT A SPECIAL DEAL HAPPENS HERE TO HELP CLUMSY TYPISTS   COMCIDP  6638
                                        *         AND AN EVEN CLUMSIER EXTERNAL SYNTAX.  IF --                   COMCIDP  6639
                                        *                                                                        COMCIDP  6640
                                        *                LWA .LT. FWA .AND. LWA .LT. 100                         COMCIDP  6641
                                        *                                                                        COMCIDP  6642
                                        *         THEN WE USE *LWA* AS A *LEN*.                                  COMCIDP  6643
                                                                                                                 COMCIDP  6644
          3767  37632                             IX6    X3-X2       (X6) = LWA-FWA                              COMCIDP  6645
                     73461                        SX4    X6+B1                                                   COMCIDP  6646
                          0326003774 +            PL     X6,PAT6     IF FWA .LE. LWA                             COMCIDP  6647
          3770  7273777633                        SX7    X3-100                                                  COMCIDP  6648
                          0327003774 +            PL     X7,PAT6     IF DON'T WANT TO RISK IT                    COMCIDP  6649
          3771  10433                             BX4    X3          (X4) = LEN                                  COMCIDP  6650
                                                                                                                 COMCIDP  6651
                                        *         HERE IF *FWA,,LEN*.                                            COMCIDP  6652
                                        *         SET: LWA = FWA+LEN-1                                           COMCIDP  6653
                                                                                                                 COMCIDP  6654
          3772  36624                    PAT5     IX6    X2+X4                                                   COMCIDP  6655
                     7236777776                   SX3    X6-1                                                    COMCIDP  6656
                               10633              BX6    X3                                                      COMCIDP  6657
          3773  54630                             SA6    A3                                                      COMCIDP  6658
                                                                                                                 COMCIDP  6659
                                        *         CHECK *FWA,LWA,LEN*.                                           COMCIDP  6660
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   197
        IDP 1.1/SUPPORTING SUBROUTINES.                               PAT                 IDP 
  
                                        *                                                                        COMCIDP  6661
                                        *         ENTRY  (X2) = FWA                                              COMCIDP  6662
                                        *                (X3) = LWA                                              COMCIDP  6663
                                        *                (X4) = LEN                                              COMCIDP  6664
                                                                                                                 COMCIDP  6665
          3774  73620                    PAT6     SX6    X2                                                      COMCIDP  6666
                     73730                        SX7    X3                                                      COMCIDP  6667
                          5160000157 +            SA6    PAT#FWA                                                 COMCIDP  6668
          3775  54761                             SA7    A6+B1                                                   COMCIDP  6669
                     73640                        SX6    X4                                                      COMCIDP  6670
                          5067000001              SA6    A7+1                                                    COMCIDP  6671
                                                                                                                 COMCIDP  6672
          3776  0100003265 +                      RJ     FLL         CHECK FWA,LWA,LEN                           COMCIDP  6673
          3777  0620004001 +                      PL     B2,PAT7     IF FWA, LWA, AND LEN OK                     COMCIDP  6674
                          13222                   BX2    X2-X2       CLEAR *FWA*                                 COMCIDP  6675
                               43300              MX3    0           CLEAR *LWA*                                 COMCIDP  6676
          4000  76400                             SX4    B0          CLEAR *LEN*                                 COMCIDP  6677
                     0400003741 +                 EQ     EXIT.                                                   COMCIDP  6678
                                                                                                                 COMCIDP  6679
                                        *         SET UP EXIT CONDITIONS.                                        COMCIDP  6680
                                                                                                                 COMCIDP  6681
          4001  5120000157 +             PAT7     SA2    PAT#FWA     (X2) = FWA                                  COMCIDP  6682
                          54321                   SA3    A2+B1       (X3) = LWA                                  COMCIDP  6683
                               54431              SA4    A3+B1       (X4) = LEN                                  COMCIDP  6684
          4002  13111                             BX1    X1-X1       SET TO *USE PTR ORD AT (TB=KEY)*            COMCIDP  6685
                     66210                        SB2    B1          SET TO *1ST DEFAULT*                        COMCIDP  6686
                          6131000000              SB3    B1+         SET TO *PUT NEW VALUE*                      COMCIDP  6687
          4003  0100004047 +                      RJ     PTR         PUT POINTER VALUES                          COMCIDP  6688
          4004  0400003741 +                      EQ     EXIT.                                                   COMCIDP  6689
                                                                                                                 COMCIDP  6690
                                                                                                                 COMCIDP  6691
      L    157                                    LOC    AP=LL                                                   COMCIDP  6692
                                 157 +   PAT#FWA  =      *                                                       COMCIDP  6693
                                 160 +   PAT#LWA  =      *+1                                                     COMCIDP  6694
                                 161 +   PAT#LEN  =      *+2                                                     COMCIDP  6695
          4005                                    LOC    *O                                                      COMCIDP  6696
  
  
  
  
                                        **        PEM - PRINT ERROR MSG.                                         COMCIDP  6698
                                        *                                                                        COMCIDP  6699
                                        *                                                                        COMCIDP  6700
                                        *         THIS ROUTINE PRINTS AN IDP ERROR MSG IN ONE OF TWO             COMCIDP  6701
                                        *         WAYS --                                                        COMCIDP  6702
                                        *                                                                        COMCIDP  6703
                                        *           1. IF *OI.ERR = 1*, THEN THE ERROR MESSAGE NR IS PRINTED.    COMCIDP  6704
                                        *                                                                        COMCIDP  6705
                                        *           2. IF *OI.ERR = 2*, THEN THE ERROR MESSAGE TEXT IS PRINTED.  COMCIDP  6706
                                        *                                                                        COMCIDP  6707
                                        *         SEE *OI.ERR* (IN *COMSIDP*) FOR MORE INFORMATION.              COMCIDP  6708
                                        *                                                                        COMCIDP  6709
                                        *         ENTRY  (IDPERR) = .ZR. IF NO ERROR HAS OCCURRED, ELSE          COMCIDP  6710
                                        *                         = .MI. IF NO ERR MSG AVAILABLE FOR THIS ERROR. COMCIDP  6711
                                        *                         = .PL. IF AN ERROR MSG IS AVAILABLE --         COMCIDP  6712
                                        *                                                                        COMCIDP  6713
                                        *                           1. IF *OI.ERR = 1*, THEN (IDPERR) = THE ERR  COMCIDP  6714
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   198
        IDP 1.1/SUPPORTING SUBROUTINES.                               PEM                 IDP 
  
                                        *                              MSG NUMBER.                               COMCIDP  6715
                                        *                                                                        COMCIDP  6716
                                        *                           2. IF *OI.ERR = 2*, THEN (IDPERR) = THE FWA  COMCIDP  6717
                                        *                              OF THE ERR MSG TO BE PRINTED.             COMCIDP  6718
                                        *                                                                        COMCIDP  6719
                                        *         EXIT   NONE                                                    COMCIDP  6720
                                        *                                                                        COMCIDP  6721
                                        *         USES   ALL                                                     COMCIDP  6722
                                        *                                                                        COMCIDP  6723
                                        *         CALLS  WRITEC                                                  COMCIDP  6724
                                                                                                                 COMCIDP  6725
                                                                                                                 COMCIDP  6726
          4005  0400404005 +             PEM      SUBR               ** ENTRY/EXIT **                            COMCIDP  6727
                                                                                                                 COMCIDP  6728
                                        *         CHECK FOR ERR MSG AVAILABILITY.                                COMCIDP  6729
                                                                                                                 COMCIDP  6730
          4006  5110000453 +                      SA1    IDPERR      (X1) = ERR MSG NR IF *OI.ERR = 1*, ELSE     COMCIDP  6731
                                        *                                 = FWA OF ERR MSG TEXT IF *OI.ERR = 2*  COMCIDP  6732
                          0311004012 +            NZ     X1,PEM2     IF THERE IS AN ERROR                        COMCIDP  6733
          4007  6160004020 +                      WRITEC F.IDO,PEMA                                              COMCIDP  6734
          4011  0400004005 +                      EQ     EXIT.                                                   COMCIDP  6735
                                                                                                                 COMCIDP  6736
          4012  0321004015 +             PEM2     PL     X1,PEM3     IF THERE IS AN ERR MSG FOR THIS ERROR       COMCIDP  6737
                          6160004022 +            WRITEC F.IDO,PEMB                                              COMCIDP  6738
          4014  0400004005 +                      EQ     EXIT.                                                   COMCIDP  6739
                                                                                                                 COMCIDP  6740
          4015                           PEM3     BSS    0                                                       COMCIDP  6741
                                                                                                                 COMCIDP  6742
                                         '?ID#001 IFEQ   OI.ERR,1                                                COMCIDP  6743
                                                                                                                 COMCIDP  6744
                                                  SA2    =10H ERROR NR                                           COMCIDP  6745
                                                  BX6    X2                                                      COMCIDP  6746
                                                  SA6    SNAPLNE                                                 COMCIDP  6747
                                                  RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC               COMCIDP  6748
                                                  BX7    X7-X7                                                   COMCIDP  6749
                                                  SA6    A6+B1                                                   COMCIDP  6750
                                                  SA7    A7+B1       MARK EOL                                    COMCIDP  6751
                                                  WRITEC =XF.IDO,SNAPLNE                                         COMCIDP  6752
                                                  EQ     EXIT.                                                   COMCIDP  6753
                                                                                                                 COMCIDP  6754
                                         '?ID#001 ELSE                                                           COMCIDP  6755
                                                                                                                 COMCIDP  6756
          4015  63610                             WRITEC =XF.IDO,X1                                              COMCIDP  6757
          4017  0400004005 +                      EQ     EXIT.                                                   COMCIDP  6758
                                         '?ID#001 ENDIF                                                          COMCIDP  6759
                                                                                                                 COMCIDP  6760
                                                                                                                 COMCIDP  6761
          4020  55161755052222172200     PEMA     DATA   C. NO ERROR.                                            COMCIDP  6762
                                                                                                                 COMCIDP  6763
          4022  55161755052222172255     PEMB     DATA   C. NO ERROR MESSAGE FOR THIS ERROR.                     COMCIDP  6764
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   199
        IDP 1.1/SUPPORTING SUBROUTINES.                               POL                 IDP 
  
                                        **        POL - PROCESS OPTIONS LIST ITEM.                               COMCIDP  6766
                                        *                                                                        COMCIDP  6767
                                        *                                                                        COMCIDP  6768
                                        *                THIS ROUTINE WILL PROCESS AN OPTIONS LIST ITEM THAT IS  COMCIDP  6769
                                        *         TERMINATED BY A -,- OR -EOS-.                                  COMCIDP  6770
                                        *                                                                        COMCIDP  6771
                                        *         ENTRY  (B6) = FWA OF OPTIONS KEYWORD TABLE (OKT)               COMCIDP  6772
                                        *                (A5+1,X5) = ADDR + CONTENTS OF 1ST TOKEN IN LIST        COMCIDP  6773
                                        *                                                                        COMCIDP  6774
                                        *         EXIT   IF NO ERROR--                                           COMCIDP  6775
                                        *                (A5,X5) =  A + C OF TOKEN THAT TERMINATED OPTIONS LIST  COMCIDP  6776
                                        *                (X3)    = .ZR. IF OPTIONS LIST ITEM WAS NULL, ELSE .NZ. COMCIDP  6777
                                        *                (X6)    =  -DEFAULT IF - PREFIX, ELSE +DEFAULT          COMCIDP  6778
                                        *                (X7)    =  +0 IF - PREFIX, ELSE + DEFAULT               COMCIDP  6779
                                        *                (B7)    =  ORDINAL INTO *OKT* OF FIND                   COMCIDP  6780
                                        *                                                                        COMCIDP  6781
                                        *                IF AN ERROR-- EXIT IS TO *IDP=ER*                       COMCIDP  6782
                                        *                                                                        COMCIDP  6783
                                        *         USES   X - ALL                                                 COMCIDP  6784
                                        *                A - 2,3,5                                               COMCIDP  6785
                                        *                B - 7                                                   COMCIDP  6786
                                        *                                                                        COMCIDP  6787
                                        *         CALLS  SKT                                                     COMCIDP  6788
                                                                                                                 COMCIDP  6789
                                                                                                                 COMCIDP  6790
          4026  0400404026 +             POL      SUBR               ** ENTRY/EXIT **                            COMCIDP  6791
                                                                                                                 COMCIDP  6792
                                        *         INITIALIZATION.                                                COMCIDP  6793
                                                                                                                 COMCIDP  6794
          4027  13444                             BX4    X4-X4       SET TO *NO - PREFIX SO FAR*                 COMCIDP  6795
                     43673                        MX6    -1                                                      COMCIDP  6796
                          76700                   SX7    B0                                                      COMCIDP  6797
          4030  5160000636 +                      SA6    IDPNUL      SET TO *NULL EXPRESSION SO FAR*             COMCIDP  6798
                          5170000635 +            SA7    IDPACC      CLEAR ACCUMULATOR                           COMCIDP  6799
                                                                                                                 COMCIDP  6800
                                        *         MAIN LOOP NODE.                                                COMCIDP  6801
                                                                                                                 COMCIDP  6802
          4031  5130000636 +             POL2     SA3    IDPNUL                                                  COMCIDP  6803
                          54551                   SA5    A5+B1                                                   COMCIDP  6804
                               73631              SX6    X3+B1                                                   COMCIDP  6805
          4032  43066                             MX0    -CHAR                                                   COMCIDP  6806
                     54630                        SA6    A3                                                      COMCIDP  6807
                          0305004045 +            ZR     X5,POL4     IF EOS ENCOUNTERED                          COMCIDP  6808
          4033  7265777775                        SX6    X5-O.VAR                                                COMCIDP  6809
                          7275777760              SX7    X5-O.COM                                                COMCIDP  6810
          4034  0306004037 +                      ZR     X6,POL3     IF *VAR* TOKEN                              COMCIDP  6811
                          0307004045 +            ZR     X7,POL4     IF , TOKEN                                  COMCIDP  6812
          4035  7265777771                        SX6    X5-O.MIN                                                COMCIDP  6813
                          0316001304 +            NZ     X6,E.OPT    IF NOT - TOKEN, ERROR...                    COMCIDP  6814
          4036  43474                             MX4    60          SET TO * - PREFIX ENCOUNTERED*              COMCIDP  6815
                     0400004031 +                 EQ     POL2                                                    COMCIDP  6816
                                                                                                                 COMCIDP  6817
                                        *         HERE TO PROCESS NAME TOKEN.                                    COMCIDP  6818
                                                                                                                 COMCIDP  6819
          4037  43052                    POL3     MX0    7*CHAR                                                  COMCIDP  6820
                     76610                        SX6    B1                                                      COMCIDP  6821
                          5120006514 +            SA2    =40404040404040404040B                                  COMCIDP  6822
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   200
        IDP 1.1/SUPPORTING SUBROUTINES.                               POL                 IDP 
  
          4040  11105                             BX1    X0*X5       (X1) = 0LKEYWORD                            COMCIDP  6823
                     37616                        IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     COMCIDP  6824
                          16716                   BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS COMCIDP  6825
                                        *                                    ALL OTHER LEADING BITS = 1 BITS     COMCIDP  6826
          4041  6170000067                        SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS          COMCIDP  6827
                          11627                   BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS    COMCIDP  6828
                               22776              LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS    COMCIDP  6829
          4042  37767                             IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS    COMCIDP  6830
                     12067                        BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS    COMCIDP  6831
                          0100004157 +            RJ     SKT         SEARCH FOR NAME                             COMCIDP  6832
          4043  0302001304 +                      ZR     X2,E.OPT    IF NO FIND                                  COMCIDP  6833
                          73620                   SX6    X2                                                      COMCIDP  6834
          4044  5160000635 +                      SA6    IDPACC                                                  COMCIDP  6835
                          0400004031 +            EQ     POL2                                                    COMCIDP  6836
                                                                                                                 COMCIDP  6837
                                        *         HERE TO SET UP EXIT CONDITIONS.                                COMCIDP  6838
                                                                                                                 COMCIDP  6839
          4045  5110000635 +             POL4     SA1    IDPACC                                                  COMCIDP  6840
                          5130000636 +            SA3    IDPNUL                                                  COMCIDP  6841
          4046  13614                             BX6    X1-X4       (X6) = -DEFAULT IF - PREFIX, ELSE +DEFAULT  COMCIDP  6842
                     15714                        BX7    -X4*X1      (X7) = +0 IF - PREFIX, ELSE +DEFAULT        COMCIDP  6843
                          0400004026 +            EQ     EXIT.                                                   COMCIDP  6844
  
  
  
  
                                        **        PTR - POINTER MANAGER.                                         COMCIDP  6846
                                        *                                                                        COMCIDP  6847
                                        *                                                                        COMCIDP  6848
                                        *         *PTR* PERFORMS THE TASK OF MANAGING THE ACCESSING              COMCIDP  6849
                                        *         AND CHANGING OF IDP'S USER POINTERS (AT *FW.PTR* ET SEQ).      COMCIDP  6850
                                        *                                                                        COMCIDP  6851
                                        *         ENTRY  (X1) = .NZ. IF A *KEYW* ENTRY CONTAINING *PTR* ORD      COMCIDP  6852
                                        *                       TO USE (SEE *KEYW* MACRO AND *KW.XXXP* AND       COMCIDP  6853
                                        *                       *KW.XXXL* SYMBOL DEFINITIONS IN *COMSIDP*).      COMCIDP  6854
                                        *                     = .ZR. IF *PTR* IS TO USE THE *KEYW* ENTRY         COMCIDP  6855
                                        *                       AT (TB=KEY).                                     COMCIDP  6856
                                        *                (B3) = .PL. IF PUTTING/STORING NEW *PTR* VALUE.         COMCIDP  6857
                                        *                     = .MI. IF GETTING OLD/CURRENT *PTR* VALUE.         COMCIDP  6858
                                        *                (B2) = *PTR* LEVEL THAT CALLER IS PUTTING/GETTING.      COMCIDP  6859
                                        *                       I.E. 1ST DEFAULT IS (B2) = 1, 2ND DEFAULT        COMCIDP  6860
                                        *                       IS (B2) = 2, ETC.  NOTE THAT *PTR* CHECKS        COMCIDP  6861
                                        *                       TO MAKE SURE CALLER IS REQUESTING A LEGAL        COMCIDP  6862
                                        *                       (I.E. EXISTENT) *PTR* LEVEL.                     COMCIDP  6863
                                        *                                                                        COMCIDP  6864
                                        *                IF PUTTING NEW VALUE, (B3) .PL. --                      COMCIDP  6865
                                        *                                                                        COMCIDP  6866
                                        *                (X2) = FWA.                                             COMCIDP  6867
                                        *                (X4) = LEN.  NOTE THAT (X3) IS IGNORED.                 COMCIDP  6868
                                        *                                                                        COMCIDP  6869
                                        *         EXIT   (X2) = FWA.                                             COMCIDP  6870
                                        *                (X4) = LEN.                                             COMCIDP  6871
                                        *                (B2) = ADDR OF *PTR* ENTRY PUTTEN/GOTTEN.               COMCIDP  6872
                                        *                                                                        COMCIDP  6873
                                        *         USES   X - 1,2,4,6,7                                           COMCIDP  6874
                                        *                A - 1,6                                                 COMCIDP  6875
                                        *                B - 2,3,4                                               COMCIDP  6876
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   201
        IDP 1.1/SUPPORTING SUBROUTINES.                               PTR                 IDP 
  
                                        *                                                                        COMCIDP  6877
                                        *         CALLS  NONE                                                    COMCIDP  6878
                                                                                                                 COMCIDP  6879
                                                                                                                 COMCIDP  6880
          4047  0400404047 +             PTR      SUBR               ** ENTRY/EXIT **                            COMCIDP  6881
          4050  6140000002                        SB4    L1.PTR      (B4) = NR OF DEFAULTS FOR EACH *PTR*        COMCIDP  6882
                          0311004052 +            NZ     X1,PTR2     IF CALLER PROVIDED POINTER DEF KEYW         COMCIDP  6883
          4051  5110000627 +                      SA1    TB=KEY                                                  COMCIDP  6884
                          5211000000              SA1    X1+         (X1) = *KEYW* ENTRY                         COMCIDP  6885
                                                                                                                 COMCIDP  6886
          4052  43766                    PTR2     MX7    -KW.PNRL                                                COMCIDP  6887
                     20106                        LX1    0-KW.PNRP                                               COMCIDP  6888
                          15617                   BX6    -X7*X1      (X6) = *PTR* ORD                            COMCIDP  6889
                               76740              SX7    B4                                                      COMCIDP  6890
          4053  0742001317 +                      GT     B2,B4,SE.BPTR IF REQUESTING NON-EXISTENT DEFAULT PTR    COMCIDP  6891
                          0602001317 +            LE     B2,B0,SE.BPTR IF REQUESTING NON-EXISTENT DEFAULT PTR    COMCIDP  6892
          4054  42167                             IX1    X6*X7       (X1) = ORD INTO PTR TBL + L1.PTR            COMCIDP  6893
                     46000                        NO                                                             COMCIDP  6894
                          7261777751              SX6    X1-L.PTR-L1.PTR                                         COMCIDP  6895
          4055  0326001317 +                      PL     X6,SE.BPTR  IF OVER-INDEXING PTR TABLE                  COMCIDP  6896
                          6241000670 +            SB4    FW.PTR+X1-1                                             COMCIDP  6897
          4056  66242                             SB2    B4+B2                                                   COMCIDP  6898
                     0630004061 +                 PL     B3,PTR3     IF PUTTING NEW VALUES                       COMCIDP  6899
                                                                                                                 COMCIDP  6900
                                        *         HERE IF GETTING CURRENT VALUES.                                COMCIDP  6901
                                                                                                                 COMCIDP  6902
                               56120              SA1    B2          (A1,X1) = A+C OF REQUESTED *PTR*            COMCIDP  6903
          4057  20136                             LX1    0-PT.FWAP                                               COMCIDP  6904
                     73210                        SX2    X1          (X2) = FWA                                  COMCIDP  6905
                          20136                   LX1    0-PT.LENP+PT.FWAP-0                                     COMCIDP  6906
          4060  7241000000                        SX4    X1+         (X4) = LEN                                  COMCIDP  6907
                          0400004047 +            EQ     EXIT.                                                   COMCIDP  6908
                                                                                                                 COMCIDP  6909
                                        *         HERE IF PUTTING NEW VALUES.                                    COMCIDP  6910
                                                                                                                 COMCIDP  6911
          4061  73620                    PTR3     SX6    X2                                                      COMCIDP  6912
                     73740                        SX7    X4                                                      COMCIDP  6913
                          20636                   LX6    PT.FWAP-0                                               COMCIDP  6914
                                                  LX7    PT.LENP-0                                               COMCIDP  6915
                               12667              BX6    X6+X7                                                   COMCIDP  6916
          4062  56620                             SA6    B2          STORE NEW *PTR*                             COMCIDP  6917
                     0400004047 +                 EQ     EXIT.                                                   COMCIDP  6918
  
  
  
  
                                        **        RIL - READ IDP INPUT LINE.                                     COMCIDP  6920
                                        *                                                                        COMCIDP  6921
                                        *                                                                        COMCIDP  6922
                                        *         ENTRY  APPROPRIATE *IDPFLG* CONTROL BITS SET.                  COMCIDP  6923
                                        *                                                                        COMCIDP  6924
                                        *         EXIT   (X1)      = .NZ. IF EOR/EOF ENCOUNTERED, ELSE .ZR.      COMCIDP  6925
                                        *                IF NO EOR/EOF ENCOUNTERED --                            COMCIDP  6926
                                        *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE            COMCIDP  6927
                                        *                              (INCLUDES WORD CONTAINING EOL MARK)       COMCIDP  6928
                                        *                (TC=SOB)  = NR OF BITS IN FIRST WORD OF SOURCE LINE,    COMCIDP  6929
                                        *                            (FOR *COMCTOK*).                            COMCIDP  6930
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   202
        IDP 1.1/SUPPORTING SUBROUTINES.                               RIL                 IDP 
  
                                        *                (TC=SOL)  = NR OF BITS IN SOURCE LINE IMAGE,            COMCIDP  6931
                                        *                            (FOR *COMCTOK*).                            COMCIDP  6932
                                        *                                                                        COMCIDP  6933
                                        *         USES   ALL BUT A0,X0     (INCLUDES ALL CALLS)                  COMCIDP  6934
                                        *                                                                        COMCIDP  6935
                                        *         CALLS  READ,READC,SFN                                          COMCIDP  6936
                                                                                                                 COMCIDP  6937
                                                                                                                 COMCIDP  6938
          4063  0400404063 +             RIL      SUBR               ** ENTRY/EXIT **                            COMCIDP  6939
                                                                                                                 COMCIDP  6940
          4064  5150000454 +                      SA5    IDPFLG                                                  COMCIDP  6941
                          7120000170 +            SX2    F.IDI                                                   COMCIDP  6942
          4065  20507                             LX5    59-IDF.INPP                                             COMCIDP  6943
                     6160000200 +                 SB6    FW.LIM                                                  COMCIDP  6944
          4066  0325004067 +                      PL     X5,RIL2     IF READING INTERACTIVELY (F.IDI)            COMCIDP  6945
                          7120000170 +            SX2    F.BDI                                                   COMCIDP  6946
                                                                                                                 COMCIDP  6947
          4067  20507                    RIL2     LX5    59-IDF.RAPP+IDF.INPP-59                                 COMCIDP  6948
                     0335004072 +                 MI     X5,RIL3     IF READ ALREADY PERFORMED                   COMCIDP  6949
          4070  7170000010                        READ   X2                                                      COMCIDP  6950
                                                                                                                 COMCIDP  6951
                                        *         SET READ ALREADY PERFORMED (RAP) STATUS.                       COMCIDP  6952
                                                                                                                 COMCIDP  6953
          4071  43601                             MX6    1                                                       COMCIDP  6954
                     12665                        BX6    X6+X5       SET RAP                                     COMCIDP  6955
                          20656                   LX6    IDF.RAPP-59                                             COMCIDP  6956
                               54650              SA6    A5                                                      COMCIDP  6957
                                                                                                                 COMCIDP  6958
          4072  6170000010               RIL3     READC  X2,B6,8                                                 COMCIDP  6959
          4073  0311004063 +                      NZ     X1,EXIT.    IF EOR/EOF STATUS                           COMCIDP  6960
                                                                                                                 COMCIDP  6961
                                        *         SET UP EXIT CONDITIONS.                                        COMCIDP  6962
                                                                                                                 COMCIDP  6963
          4074  7166777577 -             RIL4     SX6    B6-FW.LIM   (X6) = NR OF WORDS IN SOURCE LINE           COMCIDP  6964
                          5160000311 +            SA6    L=LIM                                                   COMCIDP  6965
          4075  6276000000                        SB7    X6+                                                     COMCIDP  6966
                          0617004100 +            LE     B7,B1,RIL5  IF 11 CHAR (66 BIT) EOL NOT POSSIBLE        COMCIDP  6967
          4076  5117000176 +                      SA1    FW.LIM+B7-2 (X1) = NEXT TO LAST WORD OF LINE            COMCIDP  6968
                          43266                   MX2    -CHAR                                                   COMCIDP  6969
                               15312              BX3    -X2*X1                                                  COMCIDP  6970
          4077  0313004100 +                      NZ     X3,RIL5     IF NOT 11 CHAR (66 BIT) EOL MARK            COMCIDP  6971
                          6177777776              SB7    B7-1                                                    COMCIDP  6972
                                                                                                                 COMCIDP  6973
          4100  5117000177 +             RIL5     SA1    FW.LIM+B7-1 (X1) = LAST WORD OF SOURCE LINE             COMCIDP  6974
                          0100005274 +            RJ     =XSFN       SPACE FILL NAME                             COMCIDP  6975
          4101  47677                             CX6    X7          (X6) = NR OF BITS IN LAST WORD              COMCIDP  6976
                     73760                        SX7    X6          (X7) = NR OF BITS IN 1ST WORD IF 1ST = LAST COMCIDP  6977
                          0617004105 +            LE     B7,B1,RIL6  IF 1ST WORD IS ALSO LAST WORD               COMCIDP  6978
          4102  6177777776                        SB7    B7-1                                                    COMCIDP  6979
                          76770                   SX7    B7                                                      COMCIDP  6980
                               66777              SB7    B7+B7       *2                                          COMCIDP  6981
          4103  20706                             LX7    6           *64                                         COMCIDP  6982
                     76277                        SX2    B7+B7       *4                                          COMCIDP  6983
                          37772                   IX7    X7-X2       *60                                         COMCIDP  6984
                               36676              IX6    X7+X6       (X6) = NR OF BITS IN SOURCE LINE            COMCIDP  6985
          4104  7170000074                        SX7    10*CHAR     (X7) = NR OF BITS IN 1ST WORD               COMCIDP  6986
                                                                                                                 COMCIDP  6987
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   203
        IDP 1.1/SUPPORTING SUBROUTINES.                               RIL                 IDP 
  
          4105  7110000000               RIL6     SX1    0           SET TO *NO EOR/EOF/EOI ENCOUNTERED*         COMCIDP  6988
                          5160000724 +            SA6    TC=SOL                                                  COMCIDP  6989
          4106  5170000725 +                      SA7    TC=SOB                                                  COMCIDP  6990
                          0400004063 +            EQ     EXIT.                                                   COMCIDP  6991
                                         .IDPOS   ENDIF                                                          CCGA018    29
  
  
  
  
                                        **        RIR - RESTORE INTERACTIVE REGISTERS.                           COMCIDP  6993
                                        *                                                                        COMCIDP  6994
                                        *                                                                        COMCIDP  6995
                                        *         *RIR* RESTORES ALL THE IDP CALLER'S REGISTERS FROM THE         COMCIDP  6996
                                        *         REGISTER SAVE AREA PROVIDE ON ENTRY IN (X1).                   COMCIDP  6997
                                        *                                                                        COMCIDP  6998
                                        *         *RIR* MAKES THE DYNAMIC DECISION AS TO WHETHER TO CALL         COMCIDP  6999
                                        *         *COMCRSR* OR *COMCXJR* TO RESTORE REGISTERS, BASED ON          COMCIDP  7000
                                        *         WHETHER THE IDP INTERACTIVE USER HAS SELECTED --               COMCIDP  7001
                                        *                                                                        COMCIDP  7002
                                        *                OPTION,XJR                                              COMCIDP  7003
                                        *                                                                        COMCIDP  7004
                                        *         OR NOT.                                                        COMCIDP  7005
                                        *                                                                        COMCIDP  7006
                                        *         ENTRY  (X1) = FWA OF REGISTER SAVE AREA                        COMCIDP  7007
                                        *                                                                        COMCIDP  7008
                                        *         EXIT   ALL REGISTERS RESTORED TO CONTENTS OF REGISTER          COMCIDP  7009
                                        *                SAVE AREA.                                              COMCIDP  7010
                                        *                                                                        COMCIDP  7011
                                        *         USES   ALL                                                     COMCIDP  7012
                                        *                                                                        COMCIDP  7013
                                        *         CALLS  RSR,XJR                                                 COMCIDP  7014
                                                                                                                 COMCIDP  7015
                                                                                                                 COMCIDP  7016
          4107  0400404107 +             RIR      SUBR               ** ENTRY/EXIT **                            COMCIDP  7017
          4110  5120000454 +                      SA2    IDPFLG                                                  COMCIDP  7018
                          20217                   LX2    59-IDF.XJRP                                             COMCIDP  7019
          4111  0332004113 +                      MI     X2,RIR2     IF *OPT,XJR* SELECTED                       COMCIDP  7020
                                                                                                                 COMCIDP  7021
                          0100005226 +            RJ     =XRSR       RESTORE REGISTERS VIA CPU                   COMCIDP  7022
          4112  0400004107 +                      EQ     EXIT.                                                   COMCIDP  7023
                                                                                                                 COMCIDP  7024
          4113                           RIR2     BSS    0                                                       COMCIDP  7025
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    30
          4113  0100006010 +                      RJ     =XXJR       RESTORE REGISTERS VIA *XJR*                 CCGA018    31
                                         .IDPOS   ELSE                                                           CCGA018    32
                                                  EQ     *+4S15      *XJR* DOES NOT EXIST ON SCOPE 2             CCGA018    33
                                         .IDPOS   ENDIF                                                          CCGA018    34
          4114  0400004107 +                      EQ     EXIT.                                                   COMCIDP  7027
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   204
        IDP 1.1/SUPPORTING SUBROUTINES.                               ROL                 IDP 
  
                                        **        ROL - WRITE OUTPUT LINE.                                       COMCIDP  7029
                                        *                                                                        COMCIDP  7030
                                        *                                                                        COMCIDP  7031
                                        *                SHOULD BE ACCESSED VIA *PRIDP* MACRO.  THIS ROUTINE     COMCIDP  7032
                                        *         WILL OUTPUT A SINGLE LINE WITH A SPECIFIED NUMBER OF PRECEDING COMCIDP  7033
                                        *         BLANK LINES TO EITHER THE INTERACTIVE DEBUG OUTPUT FILE        COMCIDP  7034
                                        *         *F.IDO* AND/OR TO THE USERS BATCH DEBUG OUTPUT FILE            COMCIDP  7035
                                        *         (VIA *PRBDO* MACRO).                                           COMCIDP  7036
                                        *                                                                        COMCIDP  7037
                                        *         ENTRY  (X4) = NR OF PRECEDING BLANK LINES TO OUTPUT (0=NONE)   COMCIDP  7038
                                        *                (X6) = FWA OF LINE TO BE OUTPUT                         COMCIDP  7039
                                        *                (X7) = LEN OF LINE TO BE OUTPUT (IN WORDS)              COMCIDP  7040
                                        *                     = .ZR. IF LEN TO BE COMPUTED BY *WRITEC* (SCOPE 2) COMCIDP  7041
                                        *                (IDPFLG) --                                             COMCIDP  7042
                                        *                  BIT IDF.IDOP = 1 IF WRITING TO *F.IDO*, ELSE 0        COMCIDP  7043
                                        *                  BIT IDF.BDOP = 1 IF WRITING TO *F.BDO*, ELSE 0        COMCIDP  7044
                                        *                                                                        COMCIDP  7045
                                        *         EXIT   NONE                                                    COMCIDP  7046
                                        *                                                                        COMCIDP  7047
                                        *         USES   ALL BUT B4,A0,X0,A5,X5          (INCLUDES ALL CALLS)    COMCIDP  7048
                                        *                                                                        COMCIDP  7049
                                        *         CALLS  PRBDO,WRITEC                                            COMCIDP  7050
                                                                                                                 COMCIDP  7051
                                                                                                                 COMCIDP  7052
          4115  0400404115 +             ROL=     SUBR               ** ENTRY/EXIT **                            COMCIDP  7053
                                                                                                                 COMCIDP  7054
                                        *         INITIALIZATION.  SAVE CRITICAL REGISTERS TO AVOID LETTING      COMCIDP  7055
                                        *         HOST DESTROY THEM VIA *PRBDO* CALL.                            COMCIDP  7056
                                                                                                                 COMCIDP  7057
          4116  5160004147 +                      SA6    ROLA        SAVE (X6) = FWA OF LINE                     COMCIDP  7058
                          54761                   SA7    A6+B1       SAVE (X7) = LEN OF LINE                     COMCIDP  7059
                               10644              BX6    X4                                                      COMCIDP  7060
          4117  77740                             SX7    B4-B0                                                   COMCIDP  7061
                     54671                        SA6    A7+B1       SAVE (X4) = NR OF PRECEDING BLANK LINES     COMCIDP  7062
                          54761                   SA7    A6+B1       SAVE (B4)                                   COMCIDP  7063
                               75600              SX6    A0-B0                                                   COMCIDP  7064
          4120  75750                             SX7    A5-B0                                                   COMCIDP  7065
                     54671                        SA6    A7+B1       SAVE (A0)                                   COMCIDP  7066
                          54761                   SA7    A6+B1       SAVE (A5)                                   COMCIDP  7067
                               10600              BX6    X0                                                      COMCIDP  7068
          4121  22705                             LX7    X5                                                      COMCIDP  7069
                     54671                        SA6    A7+B1       SAVE (X0)                                   COMCIDP  7070
                          54761                   SA7    A6+B1       SAVE (X5)                                   COMCIDP  7071
                                                                                                                 COMCIDP  7072
                                        *         HERE TO OUTPUT APPROPRIATE NUMBER OF PRECEDING BLANK LINES.    COMCIDP  7073
                                                                                                                 COMCIDP  7074
          4122  5110004151 +             ROL2     SA1    ROL=PRB     (X1) = NR OF PRECEDING BLANK LINES          COMCIDP  7075
                          5120000454 +            SA2    IDPFLG                                                  COMCIDP  7076
          4123  7261777776                        SX6    X1-1                                                    COMCIDP  7077
                          0336004133 +            MI     X6,ROL4     IF NO MORE BLANK LINES                      COMCIDP  7078
                                                  LX2    59-IDF.IDOP                                             COMCIDP  7079
          4124  54610                             SA6    A1                                                      COMCIDP  7080
                     0322004127 +                 PL     X2,ROL3     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT  COMCIDP  7081
                                                                                                                 COMCIDP  7082
                                         #OS2     IFNE   .OS,2       IF NOT SCOPE 2                              COMCIDP  7083
          4125  6160006515 +                      WRITEC =XF.IDO,(=C= =),1                                       COMCIDP  7084
                                                                                                                 COMCIDP  7085
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   205
        IDP 1.1/SUPPORTING SUBROUTINES.                               ROL                 IDP 
  
                                         #OS2     ELSE                                                           COMCIDP  7086
                                                  EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...         COMCIDP  7087
                                         #OS2     ENDIF                                                          COMCIDP  7088
                                                                                                                 COMCIDP  7089
          4127  5110000454 +             ROL3     SA1    IDPFLG                                                  COMCIDP  7090
                          20103                   LX1    59-IDF.BDOP                                             COMCIDP  7091
          4130  0321004122 +                      PL     X1,ROL2     IF NOT WRITING TO BATCH DEBUG OUTPUT        COMCIDP  7092
                          6160006515 +            PRBDO  (=C= =),1                                               COMCIDP  7093
          4132  0400004122 +                      EQ     ROL2                                                    COMCIDP  7094
                                                                                                                 COMCIDP  7095
                                        *         HERE TO OUTPUT LINE FINALLY.                                   COMCIDP  7096
                                                                                                                 COMCIDP  7097
          4133  5110000454 +             ROL4     SA1    IDPFLG                                                  COMCIDP  7098
                                                  LX1    59-IDF.IDOP                                             COMCIDP  7099
                          0321004137 +            PL     X1,ROL5     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT  COMCIDP  7100
                                                                                                                 COMCIDP  7101
                                         #OS2     IFNE   .OS,2       IF NOT SCOPE 2                              COMCIDP  7102
          4134  5110004147 +                      SA1    ROLA        (X1) = FWA OF LINE                          COMCIDP  7103
                          54211                   SA2    A1+B1       (X2) = LEN OF LINE                          COMCIDP  7104
          4135  0301004143 +                      ZR     X1,ROL6     IF NO LINE TO OUTPUT                        COMCIDP  7105
                          63610                   WRITEC =XF.IDO,X1,X2                                           COMCIDP  7106
                                                                                                                 COMCIDP  7107
                                         #OS2     ELSE                                                           COMCIDP  7108
                                                  EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...         COMCIDP  7109
                                         #OS2     ENDIF                                                          COMCIDP  7110
                                                                                                                 COMCIDP  7111
          4137  5110000454 +             ROL5     SA1    IDPFLG                                                  COMCIDP  7112
                          5120004147 +            SA2    ROLA                                                    COMCIDP  7113
          4140  54321                             SA3    A2+B1                                                   COMCIDP  7114
                     20103                        LX1    59-IDF.BDOP                                             COMCIDP  7115
                          0321004143 +            PL     X1,ROL6     IF NOT WRITING TO BATCH DEBUG OUTPUT        COMCIDP  7116
          4141  0302004143 +                      ZR     X2,ROL6     IF NO LINE TO OUTPUT                        COMCIDP  7117
                          63620                   PRBDO  X2,X3                                                   COMCIDP  7118
                                                                                                                 COMCIDP  7119
                                        *         FINAL PROCESSING -- RESTORE SAVED REGISTERS.                   COMCIDP  7120
                                                                                                                 COMCIDP  7121
          4143  5110004152 +             ROL6     SA1    ROL=B4                                                  COMCIDP  7122
                          54211                   SA2    A1+B1                                                   COMCIDP  7123
                               54321              SA3    A2+B1                                                   COMCIDP  7124
          4144  54431                             SA4    A3+B1                                                   COMCIDP  7125
                     63410                        SB4    X1          RESTORE (B4)                                COMCIDP  7126
                          53020                   SA0    X2          RESTORE (A0)                                COMCIDP  7127
                               53530              SA5    X3          RESTORE (A5)                                COMCIDP  7128
          4145  54141                             SA1    A4+B1                                                   COMCIDP  7129
                     46000                        NO                                                             COMCIDP  7130
                          10044                   BX0    X4          RESTORE (X0)                                COMCIDP  7131
                               22501              LX5    X1          RESTORE (X5)                                COMCIDP  7132
          4146  0400004115 +                      EQ     EXIT.                                                   COMCIDP  7133
                                                                                                                 COMCIDP  7134
                                                                                                                 COMCIDP  7135
          4147                    10     ROLA     BSSZ   8                                                       COMCIDP  7136
                                                                                                                 COMCIDP  7137
      L   4147                                    LOC    ROLA                                                    COMCIDP  7138
                                4147 +   ROL=FWA  =      *           SAVED FWA                                   COMCIDP  7139
                                4150 +   ROL=LEN  =      *+1         SAVED LENGTH                                COMCIDP  7140
                                4151 +   ROL=PRB  =      *+2         SAVED PRECEDING BLANK COUNT                 COMCIDP  7141
                                4152 +   ROL=B4   =      *+3         SAVED (B4)                                  COMCIDP  7142
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   206
        IDP 1.1/SUPPORTING SUBROUTINES.                               ROL                 IDP 
  
                                4153 +   ROL=A0   =      *+4         SAVED (A0)                                  COMCIDP  7143
                                4154 +   ROL=A5   =      *+5         SAVED (A5)                                  COMCIDP  7144
                                4155 +   ROL=X0   =      *+6         SAVED (X0)                                  COMCIDP  7145
                                4156 +   ROL=X5   =      *+7         SAVED (X5)                                  COMCIDP  7146
          4157                                    LOC    *O                                                      COMCIDP  7147
  
  
  
  
                                        **        SKT - SEARCH KEYWORD TABLE.                                    COMCIDP  7149
                                        *                                                                        COMCIDP  7150
                                        *                                                                        COMCIDP  7151
                                        *                SEARCHS A TABLE THAT IS TERMINATED BY A ZERO WORD       COMCIDP  7152
                                        *         FOR A MATCH, USING A SPECIFIED EXTRACTION MASK.                COMCIDP  7153
                                        *                                                                        COMCIDP  7154
                                        *         ENTRY  (B6)     =  FWA TO BEGIN SEARCH                         COMCIDP  7155
                                        *                (X0)     =  EXTRACTION MASK TO USE                      COMCIDP  7156
                                        *                (X1)     =  ELEMENT TO SEARCH FOR                       COMCIDP  7157
                                        *                                                                        COMCIDP  7158
                                        *         EXIT   IF NO FIND --                                           COMCIDP  7159
                                        *                (X2)     =  .ZR.                                        COMCIDP  7160
                                        *                IF A FIND --                                            COMCIDP  7161
                                        *                (B7)     =  ORDINAL OF FIND                             COMCIDP  7162
                                        *                (A2,X2)  =  ADDR + CONTENTS OF WORD THAT MATCHED        COMCIDP  7163
                                        *                                                                        COMCIDP  7164
                                        *         USES   X - 2,3,6,7                                             COMCIDP  7165
                                        *                A - 2                                                   COMCIDP  7166
                                        *                B - 7                                                   COMCIDP  7167
                                        *                                                                        COMCIDP  7168
                                        *         CALLS  NONE                                                    COMCIDP  7169
                                                                                                                 COMCIDP  7170
                                                                                                                 COMCIDP  7171
          4157  0400404157 +             SKT      SUBR               ** ENTRY/EXIT **                            COMCIDP  7172
          4160  56260                             SA2    B6                                                      COMCIDP  7173
                     11601                        BX6    X0*X1                                                   COMCIDP  7174
                          6170777776              SB7    -1                                                      COMCIDP  7175
                                                                                                                 COMCIDP  7176
          4161  0302004157 +             SKT2     ZR     X2,EXIT.    IF END OF TABLE                             COMCIDP  7177
                          11702                   BX7    X0*X2                                                   COMCIDP  7178
                               66771              SB7    B7+B1                                                   COMCIDP  7179
          4162  37367                             IX3    X6-X7                                                   COMCIDP  7180
                     0303004157 +                 ZR     X3,EXIT.    IF A FIND                                   COMCIDP  7181
                               54221              SA2    A2+B1                                                   COMCIDP  7182
          4163  0400004161 +                      EQ     SKT2                                                    COMCIDP  7183
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   207
        IDP 1.1/SUPPORTING SUBROUTINES.                               SLF                 IDP 
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    35
                                        **        SLF - SEARCH FOR LOGICAL FILE NAME.                            COMCIDP  7185
                                        *                                                                        COMCIDP  7186
                                        *                                                                        COMCIDP  7187
                                        *         *SLF* TRIES TO ASSOCIATE A FET FWA WITH A GIVEN DPC            COMCIDP  7188
                                        *         LFN BY --                                                      COMCIDP  7189
                                        *                                                                        COMCIDP  7190
                                        *           1. SEARCHING THE USER FILE/FET TABLE (UFT=) LIST IF IT       COMCIDP  7191
                                        *              WAS PROVIDED (=Y).                                        COMCIDP  7192
                                        *                                                                        COMCIDP  7193
                                        *           2. SEARCHING RA.SSW+2 THRU RA.SSW+20B TO SEE IF ANYTHING     COMCIDP  7194
                                        *              HERE LOOKS LIKE A FILE/FET NAME.                          COMCIDP  7195
                                        *                                                                        COMCIDP  7196
                                        *         ENTRY  (X1) = LFN TO SEARCH FOR, -L- FMT.                      COMCIDP  7197
                                        *                                                                        COMCIDP  7198
                                        *         EXIT   (X6) = FWA OF FET FOR LFN, ELSE .ZR. IF NO FIND.        COMCIDP  7199
                                        *                                                                        COMCIDP  7200
                                        *         USES   ALL BUT A0,X0,A5,X5                                     COMCIDP  7201
                                        *                                                                        COMCIDP  7202
                                        *         CALLS  CHK                                                     COMCIDP  7203
                                                                                                                 COMCIDP  7204
                                                                                                                 COMCIDP  7205
          4164  0400404164 +             SLF      SUBR               ** ENTRY/EXIT **                            COMCIDP  7206
                                                                                                                 COMCIDP  7207
                                        *         HERE TO TRY POSSIBLE FET VECTOR LIST PROVIDED BY HOST          COMCIDP  7208
                                        *         AT *UFT=* (USER FILE/FET TABLE).                               COMCIDP  7209
                                                                                                                 COMCIDP  7210
          4165  6170000142 +                      SB7    =YUFT=      (B7) = FWA OF USER FILE TABLE, IF AVAIL     COMCIDP  7211
                          22701                   LX7    X1                                                      COMCIDP  7212
          4166  5170004212 +                      SA7    SLFA        SAVE LFN                                    COMCIDP  7213
                          0770004201 +            MI     B7,SLF3     IF USER DID NOT PROVIDE *UFT=*              COMCIDP  7214
                                                                                                                 COMCIDP  7215
          4167  66270                    SLF2     SB2    B7          (B2) = ADDR OF NEXT *UFT=* ENTRY            COMCIDP  7216
                     0100002447 +                 RJ     CHK         CHECK CM ADDR (*UFT=* ENTRY ADDR)           COMCIDP  7217
          4170  0720001321 +                      MI     B2,SE.UFT   IF *UFT=* ENTRY OUT-OF-RANGE                COMCIDP  7218
                                                                                                                 COMCIDP  7219
                          56170                   SA1    B7          (X1) = NEXT *UFT=* ENTRY                    COMCIDP  7220
                               66771              SB7    B7+B1                                                   COMCIDP  7221
          4171  73610                             SX6    X1          (X6) = FWA OF FET, ELSE .ZR.                COMCIDP  7222
                     43352                        MX3    7*CHAR                                                  COMCIDP  7223
                          0301004201 +            ZR     X1,SLF3     IF END-OF-TABLE, NO FIND...                 COMCIDP  7224
          4172  5120004212 +                      SA2    SLFA        (X2) = LFN TO SEARCH FOR, -L- FMT           COMCIDP  7225
                          11431                   BX4    X3*X1       (X4) = LFN FROM *UFT=*, -L- FMT             COMCIDP  7226
                               37724              IX7    X2-X4                                                   COMCIDP  7227
          4173  0307004164 +                      ZR     X7,EXIT.    IF A FIND IN *UFT=*                         COMCIDP  7228
                          63210                   SB2    X1          (B2) = FWA OF FET                           COMCIDP  7229
          4174  0100002447 +                      RJ     CHK         CHECK CM ADDRESS (FET FWA)                  COMCIDP  7230
          4175  13666                             BX6    X6-X6                                                   COMCIDP  7231
                     0720004167 +                 MI     B2,SLF2     IF FET ADDR NO GOOD                         COMCIDP  7232
                               56120              SA1    B2          (X1) = WORD 1 OF FET                        COMCIDP  7233
          4176  5120004212 +                      SA2    SLFA        (X2) = LFN TO SEARCH FOR, -L- FMT           COMCIDP  7234
                          11431                   BX4    X3*X1       (X4) = FET LFN, -L- FMT                     COMCIDP  7235
                               37724              IX7    X2-X4                                                   COMCIDP  7236
          4177  7162000000                        SX6    B2+         (X6) = FWA OF FET                           COMCIDP  7237
                          0307004164 +            ZR     X7,EXIT.    IF A FIND                                   COMCIDP  7238
          4200  0400004167 +                      EQ     SLF2                                                    COMCIDP  7239
                                                                                                                 COMCIDP  7240
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   208
        IDP 1.1/SUPPORTING SUBROUTINES.                               SLF                 IDP 
  
                                        *         HERE TO TRY POSSIBLE FET VECTOR LIST AT RA+2 THRU RA+20.       COMCIDP  7241
                                                                                                                 COMCIDP  7242
          4201  6160000002               SLF3     SB6    RA.SSW+2    (B6) = FWA OF POSSIBLE FET VECTOR           COMCIDP  7243
                          6170000020              SB7    RA.SSW+20B  (B7) = LWA OF POSSIBLE FET VECTOR           COMCIDP  7244
                                                                                                                 COMCIDP  7245
          4202  56160                    SLF4     SA1    B6          (X1) = NEXT POSSIBLE FET VECTOR ENTRY       COMCIDP  7246
                     13666                        BX6    X6-X6                                                   COMCIDP  7247
                          0776004164 +            GT     B6,B7,EXIT. IF END OF ALL POSSIBLE VECTORS              COMCIDP  7248
          4203  66661                             SB6    B6+B1                                                   COMCIDP  7249
                     43352                        MX3    7*CHAR                                                  COMCIDP  7250
                          5120004212 +            SA2    SLFA        (X2) = LFN TO SEARCH FOR, -L- FMT           COMCIDP  7251
          4204  11431                             BX4    X3*X1       (X4) = LFN FROM VECTOR, -L- FMT             COMCIDP  7252
                     37724                        IX7    X2-X4                                                   COMCIDP  7253
                          73610                   SX6    X1          (X6) = FWA OF FET                           COMCIDP  7254
                               63210              SB2    X1                                                      COMCIDP  7255
          4205  0307004164 +                      ZR     X7,EXIT.    IF A FIND                                   COMCIDP  7256
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS (FET FWA)                  COMCIDP  7257
          4206  13666                             BX6    X6-X6                                                   COMCIDP  7258
                     0720004202 +                 MI     B2,SLF4     IF FET ADDR NO GOOD                         COMCIDP  7259
                               56120              SA1    B2          (X1) = WORD 1 OF FET                        COMCIDP  7260
          4207  5120004212 +                      SA2    SLFA        (X2) = LFN TO SEARCH FOR, -L- FMT           COMCIDP  7261
                          11431                   BX4    X3*X1       (X4) = FET LFN, -L- FMT                     COMCIDP  7262
                               37724              IX7    X2-X4                                                   COMCIDP  7263
          4210  7162000000                        SX6    B2+         (X6) = FWA OF FET                           COMCIDP  7264
                          0307004164 +            ZR     X7,EXIT.    IF A FIND                                   COMCIDP  7265
          4211  0400004202 +                      EQ     SLF4                                                    COMCIDP  7266
                                                                                                                 COMCIDP  7267
                                                                                                                 COMCIDP  7268
          4212                     1     SLFA     BSSZ   1           SAVED LFN TO SEARCH FOR                     COMCIDP  7269
                                         .IDPOS   ENDIF                                                          CCGA018    36
  
  
  
  
                                        **        SOB - SET OUTPUT BIT FLAGS.                                    COMCIDP  7271
                                        *                                                                        COMCIDP  7272
                                        *                                                                        COMCIDP  7273
                                        *                THIS ROUTINE SETS BITS IN THE MASTER CONTROL FLAG,      COMCIDP  7274
                                        *         *IDPFLG*, WHICH DETERMINES WHERE OUTPUT IS TO BE WRITTEN BY A  COMCIDP  7275
                                        *         BATCH (I.E. NON-INTERACTIVE) EXECUTIVE --                      COMCIDP  7276
                                        *                                                                        COMCIDP  7277
                                        *           1. IF INTERACTIVE MODE HAS EVER BEEN ENTERED (BIT *FTO* ON), COMCIDP  7278
                                        *                THEN NO FLAGS ARE SET  (I.E. ALL FLAGS ARE AS SET BY    COMCIDP  7279
                                        *                INTERACTIVE USER VIA *OUTPUT* COMMAND).                 COMCIDP  7280
                                        *           2. IF INTERACTIVE MODE HAS NOT YET BEEN ENTERED              COMCIDP  7281
                                        *                (BIT *FTO* OFF), THEN SET --                            COMCIDP  7282
                                        *                  BDO = WRITING TO BATCH DEBUG OUTPUT FILE, *F.BDO*     COMCIDP  7283
                                        *                  SNL = L.BSL                                           COMCIDP  7284
                                        *                                                                        COMCIDP  7285
                                        *         ENTRY  (X1) = BITS 0 THRU *IDF.XECL-1* CONTAIN THE VALUE TO    COMCIDP  7286
                                        *                         BE PLACED IN *XEC* FIELD,                      COMCIDP  7287
                                        *                         (BITS 59 THRU *IDF.XECL* ARE IGNORED).         COMCIDP  7288
                                        *                                                                        COMCIDP  7289
                                        *         EXIT   (IDPFLG) UPDATED                                        COMCIDP  7290
                                        *                                                                        COMCIDP  7291
                                        *         USES   X - 1,2,3,4,6                                           COMCIDP  7292
                                        *                A - 2,6                                                 COMCIDP  7293
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   209
        IDP 1.1/SUPPORTING SUBROUTINES.                               SOB                 IDP 
  
                                        *                B - NONE                                                COMCIDP  7294
                                        *                                                                        COMCIDP  7295
                                        *         CALLS  NONE                                                    COMCIDP  7296
                                                                                                                 COMCIDP  7297
                                                                                                                 COMCIDP  7298
          4213  0400404213 +             SOB      SUBR               ** ENTRY/EXIT **                            COMCIDP  7299
          4214  5120000454 +                      SA2    IDPFLG                                                  COMCIDP  7300
                          43371                   MX3    -IDF.XECL                                               COMCIDP  7301
          4215  7140000004                        SX4    L.BSL                                                   COMCIDP  7302
                          15113                   BX1    -X3*X1                                                  COMCIDP  7303
                               20214              LX2    0-IDF.XECP                                              COMCIDP  7304
          4216  11232                             BX2    X3*X2       CLEAR OLD *XEC*                             COMCIDP  7305
                     36621                        IX6    X2+X1       MERGE NEW *XEC*                             COMCIDP  7306
                          20266                   LX2    59-IDF.FTOP+IDF.XECP-0                                  COMCIDP  7307
                               20660              LX6    IDF.XECP-0                                              COMCIDP  7308
          4217  43301                             MX3    1                                                       COMCIDP  7309
                     54620                        SA6    A2                                                      COMCIDP  7310
                          0332004213 +            MI     X2,EXIT.    IF *IDP* HAS EVER BEEN CALLED               COMCIDP  7311
          4220  20371                             LX3    IDF.BDOP-59                                             COMCIDP  7312
                     43252                        MX2    -IDF.SNLL                                               COMCIDP  7313
                          12663                   BX6    X6+X3       MERGE *BDO*                                 COMCIDP  7314
                                                  LX2    IDF.SNLP-0                                              COMCIDP  7315
                                                  LX4    IDF.SNLP-0                                              COMCIDP  7316
                               11626              BX6    X2*X6       CLEAR OLD *SNL*                             COMCIDP  7317
          4221  36664                             IX6    X6+X4       MERGE NEW *SNL*                             COMCIDP  7318
                     54620                        SA6    A2                                                      COMCIDP  7319
                          0400004213 +            EQ     EXIT.                                                   COMCIDP  7320
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    37
                                        **        SSY - SEARCH SYMBOL TABLES.                                    COMCIDP  7322
                                        *                                                                        COMCIDP  7323
                                        *                                                                        COMCIDP  7324
                                        *         *SSY* PERFORMS THE TASK OF TRYING TO ASSOCIATE A BINARY VALUE  COMCIDP  7325
                                        *         WITH A DPC NAME BY QUERYING IDP'S VARIOUS SYMBOL TABLES.       COMCIDP  7326
                                        *                                                                        COMCIDP  7327
                                        *         EACH SYMBOL HAS AN IMPLICIT SYMBOL TYPE ASSOCIATED WITH IT,    COMCIDP  7328
                                        *         PLACED INTO (B6) ON EXIT.  SYMBOL TYPES ARE DEFINED VIA        COMCIDP  7329
                                        *         COMPASS SYMBOLS OF THE FORM --                                 COMCIDP  7330
                                        *                                                                        COMCIDP  7331
                                        *                SY.XXX                                                  COMCIDP  7332
                                        *                                                                        COMCIDP  7333
                                        *         WHERE *SY.* IS A COMMON PREFIX, AND *XXX* IS A UNIQUE SYMBOL   COMCIDP  7334
                                        *         TYPE.  SYMBOL TYPES, *XXX* ARE --                              COMCIDP  7335
                                        *                                                                        COMCIDP  7336
                                        *           NONE = SYMBOL IS UNDEFINED.                                  COMCIDP  7337
                                        *                                                                        COMCIDP  7338
                                        *           DECK = SYMBOL IS AN *FAA/RPV=RNA* DECK NAME.                 COMCIDP  7339
                                        *                                                                        COMCIDP  7340
                                        *           SET  = SYMBOL WAS DEFINED VIA *SET* COMMAND.                 COMCIDP  7341
                                        *                                                                        COMCIDP  7342
                                        *           LFN  = SYMBOL IS A LOGICAL FILE NAME.  I.E. IDP KNOWS        COMCIDP  7343
                                        *                  THE FWA OF ITS FET SOMEHOW.                           COMCIDP  7344
                                        *                                                                        COMCIDP  7345
                                        *           USY  = SYMBOL IS USER-DEFINED.                               COMCIDP  7346
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   210
        IDP 1.1/SUPPORTING SUBROUTINES.                               SSY                 IDP 
  
                                        *                                                                        COMCIDP  7347
                                        *         ENTRY  (X1) = SYMBOL TO SEARCH FOR, -L- FMT.                   COMCIDP  7348
                                        *                                                                        COMCIDP  7349
                                        *         EXIT   (B6) = SYMBOL TYPE (SEE ABOVE).  THAT IS, (B6) .NZ      COMCIDP  7350
                                        *                       IF A FIND, ELSE .ZR.                             COMCIDP  7351
                                        *                (X6) = BINARY VALUE TO ASSOCIATE WITH THIS SYMBOL.      COMCIDP  7352
                                        *                       NOTE THAT IF SYMBOL IS UNDEFINED, (B6) .ZR.,     COMCIDP  7353
                                        *                       THEN (X6) = 0.                                   COMCIDP  7354
                                        *                                                                        COMCIDP  7355
                                        *         USES   ALL BUT A0,X0,A5,X5                                     COMCIDP  7356
                                        *                                                                        COMCIDP  7357
                                        *         CALLS  FAA,SKT,USY=(IF AVAIL)                                  COMCIDP  7358
                                                                                                                 COMCIDP  7359
                                                                                                                 COMCIDP  7360
          4222  0400404222 +             SSY      SUBR               ** ENTRY/EXIT **                            COMCIDP  7361
                                                                                                                 COMCIDP  7362
                                        *         HERE TO TRY *SET* NAME.                                        COMCIDP  7363
                                                                                                                 COMCIDP  7364
          4223  10611                             BX6    X1                                                      COMCIDP  7365
                     6160001400 +                 SB6    IDPSET      (B6) = FWA OF *SET* TABLE                   COMCIDP  7366
                               43052              MX0    7*CHAR      (X0) = EXTRACTION MASK FOR *SKT*            COMCIDP  7367
          4224  5160004240 +                      SA6    SSYA        SAVE (X1)                                   COMCIDP  7368
                          0100004157 +            RJ     SKT         SEARCH *SET* TABLE FOR SYMBOL               COMCIDP  7369
          4225  6160000002                        SB6    SY.SET      SET TO *SYMBOL IS SET NAME*                 COMCIDP  7370
                          7262000000              SX6    X2+         (X6) = BINARY VALUE OF THIS SYMBOL          COMCIDP  7371
          4226  0312004222 +                      NZ     X2,EXIT.    IF A FIND                                   COMCIDP  7372
                                                                                                                 COMCIDP  7373
                                        *         HERE TO TRY DECK NAME.                                         COMCIDP  7374
                                                                                                                 COMCIDP  7375
                          5110004240 +            SA1    SSYA        (X1) = SYMBOL TO SEARCH FOR, -L- FMT        COMCIDP  7376
          4227  43052                             MX0    7*CHAR      (X0) = EXTRACTION MASK FOR *FAA*            COMCIDP  7377
                     0100003227 +                 RJ     FAA         FIND ABSOLUTE ADDRESS                       COMCIDP  7378
          4230  6160000001                        SB6    SY.DECK     SET TO *SYMBOL IS DECK NAME*                COMCIDP  7379
                          0326004222 +            PL     X6,EXIT.    IF A FIND                                   COMCIDP  7380
                                                                                                                 COMCIDP  7381
                                        *         HERE TO TRY LFN/FET NAME.                                      COMCIDP  7382
                                                                                                                 COMCIDP  7383
          4231  5110004240 +                      SA1    SSYA        (X1) = SYMBOL TO SEARCH FOR, -L- FMT        COMCIDP  7384
                          0100004164 +            RJ     SLF         SEARCH FOR LFN                              COMCIDP  7385
          4232  6160000003                        SB6    SY.LFN      SET TO *SYMBOL IS LFN*                      COMCIDP  7386
                          0316004222 +            NZ     X6,EXIT.    IF A FIND                                   COMCIDP  7387
                                                                                                                 COMCIDP  7388
                                        *         HERE TO TRY USER-DEFINED SYMBOL.                               COMCIDP  7389
                                                                                                                 COMCIDP  7390
          4233  6120000127 +                      SB2    =YUSY=                                                  COMCIDP  7391
                          5110004240 +            SA1    SSYA        (X1) = SYMBOL TO SEARCH FOR, -L- FMT        COMCIDP  7392
          4234  66600                             =B6    SY.NONE     SET TO *NO FIND*                            COMCIDP  7393
                     13666                        BX6    X6-X6                                                   COMCIDP  7394
                          0720004222 +            MI     B2,EXIT.    IF USER DID NOT PROVIDE *USY=*              COMCIDP  7395
          4235  0100000127 +                      RJ     =YUSY=      USER SYMBOL SEARCH OWNCODE                  COMCIDP  7396
          4236  6160000004                        SB6    SY.USY      SET TO *SYMBOL IS USER-DEFINED*             COMCIDP  7397
                          0311004222 +            NZ     X1,EXIT.    IF A FIND                                   COMCIDP  7398
          4237  66600                             =B6    SY.NONE     SET TO *SYMBOL IS UNDEFINED*                COMCIDP  7399
                     13666                        BX6    X6-X6                                                   COMCIDP  7400
                          0400004222 +            EQ     EXIT.                                                   COMCIDP  7401
                                                                                                                 COMCIDP  7402
                                                                                                                 COMCIDP  7403
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   211
        IDP 1.1/SUPPORTING SUBROUTINES.                               SSY                 IDP 
  
          4240                     1     SSYA     BSSZ   1           SAVED SYMBOL TO SEARCH FOR                  COMCIDP  7404
  
  
  
  
                                        **        STP - STEP AN INSTRUCTION.                                     COMCIDP  7406
                                        *                                                                        COMCIDP  7407
                                        *                                                                        COMCIDP  7408
                                        *                THIS ROUTINE WILL STEP A SINGLE CPU INSTRUCTION, AND    COMCIDP  7409
                                        *         LIST THE RESULT REGISTER, IF APPROPRIATE.                      COMCIDP  7410
                                        *                                                                        COMCIDP  7411
                                        *                *STP* ALSO PERFORMS A LIMITED SET OF ERROR CHECKS FOR   COMCIDP  7412
                                        *         RANGE ERRORS (MODE=1). 1) THE PSEUDO P REGISTER IS CHECKED,    COMCIDP  7413
                                        *         2) XFERS OF CONTROL (BRANCH OR RJ) ARE CHECKED, AND            COMCIDP  7414
                                        *         3) LOAD/STORE ADDRESSES ARE CHECKED. IF AN ERROR IS DETECTED,  COMCIDP  7415
                                        *         THE BAD INSTRUCTION AND THE -P- REGISTER ARE DISPLAYED (EVEN   COMCIDP  7416
                                        *         IF -L SELECTED). STEP MODE IS THEN TERMINATED.                 COMCIDP  7417
                                        *                                                                        COMCIDP  7418
                                        *         ENTRY  (BC=BRAD) = CONTAINS THE PREVIOUS CONTENTS OF IDP       COMCIDP  7419
                                        *                              GENERATED BREAK ADDR IF THEY NEED TO      COMCIDP  7420
                                        *                              BE XEQ, ELSE .ZR.                         COMCIDP  7421
                                        *                (IDPPREG) = PSEUDO P REGISTER, I.E. ADDRESS OF WORD     COMCIDP  7422
                                        *                              CONTAINING INSTRUCTION TO XEQ             COMCIDP  7423
                                        *                (IDPPOS)  = POSITION COUNTER. LEFT MOST BIT OF INSTR    COMCIDP  7424
                                        *                              TO XEQ IS BIT (IDPPOS)-1 IN ((IDPPREG)).  COMCIDP  7425
                                        *                              (BITS ARE NUMBERED 59 THRU 0)             COMCIDP  7426
                                        *                              E.G. FOR A WORD CONTAINING--              COMCIDP  7427
                                        *                               +  MX0  -CHAR                            COMCIDP  7428
                                        *                                  SA1  ADDR                             COMCIDP  7429
                                        *                                  BX6  -X0*X5                           COMCIDP  7430
                                        *                              WHEN STEPPING *SA1  ADDR*--               COMCIDP  7431
                                        *                              (IDPPOS) = 45                             COMCIDP  7432
                                        *                (IDPXLST) = .NZ. IF LISTING EACH STEPPED INSTRUCTION,   COMCIDP  7433
                                        *                                  ELSE .ZR.                             COMCIDP  7434
                                        *                                                                        COMCIDP  7435
                                        *         EXIT   (BC=BRAD), (IDPPREG), AND (IDPPOS) UPDATED              COMCIDP  7436
                                        *                TO *IDP=ER* IF AN ERROR DETECTED                        COMCIDP  7437
                                        *                TO *IDP2A* IF AN *RJ IDP=* IS ENCOUNTERED AND THE       COMCIDP  7438
                                        *                  BREAK CONDITIONS ARE STATISFIED                       COMCIDP  7439
                                        *                                                                        COMCIDP  7440
                                        *         USES   ALL BUT A0                                              COMCIDP  7441
                                        *                                                                        COMCIDP  7442
                                        *         CALLS  BRK,CHK,DAB,DAZ,DUX,FRA=(IF DEF),FRK,                   COMCIDP  7443
                                        *                PRIDP,RIR,SVR                                           COMCIDP  7444
                                                                                                                 COMCIDP  7445
                                                                                                                 COMCIDP  7446
          4241  0400404241 +             STP      SUBR               ** ENTRY/EXIT **                            COMCIDP  7447
                                                                                                                 COMCIDP  7448
                                        *         INITIALIZATION.                                                COMCIDP  7449
                                                                                                                 COMCIDP  7450
          4242  7160777776                        SX6    -1                                                      COMCIDP  7451
                          5160000647 +            SA6    IDPXFR      CLEAR *TRANSFER CONTROL* FLAG               COMCIDP  7452
          4243  5160000644 +                      SA6    IDPXAR      SET TO *NO ADDR REF SO FAR*                 COMCIDP  7453
                                                                                                                 COMCIDP  7454
                                        *         FETCH WORD CONTAINING INSTRUCTION TO BE XEQ.                   COMCIDP  7455
                                                                                                                 COMCIDP  7456
                          5110000642 +            SA1    IDPPREG     (X1) = PSEUDO P REGISTER                    COMCIDP  7457
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   212
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
          4244  5120000167 +                      SA2    BC=BRAD                                                 COMCIDP  7458
                          54311                   SA3    A1+B1       (X3) = POS COUNTER                          COMCIDP  7459
                               53510              SA5    X1          (X5) = WORD CONTAINING INSTRUCTION TO XEQ   COMCIDP  7460
          4245  0302004246 +                      ZR     X2,STP2     IF NOT *IDP* GENERATED BREAK                COMCIDP  7461
                                                                                                                 COMCIDP  7462
                                        *         HERE BECAUSE INSTRUCTION TO XEQ AT *BC=BRAD*.                  COMCIDP  7463
                                                                                                                 COMCIDP  7464
                          55551                   SA5    A5-B1       (A5) = ADDR OF GENERATED BREAK              COMCIDP  7465
                               10522              BX5    X2                                                      COMCIDP  7466
                                                                                                                 COMCIDP  7467
                                        *         LIST INSTRUCTION IF NECESSARY.                                 COMCIDP  7468
                                                                                                                 COMCIDP  7469
          4246  5110000650 +             STP2     SA1    IDPXLST                                                 COMCIDP  7470
                          63430                   SB4    X3                                                      COMCIDP  7471
          4247  0301004250 +                      ZR     X1,STP3     IF NOT LISTING INSTRUCTION                  COMCIDP  7472
                          0100002674 +            RJ     DAZ         DEASSEMBLE INSTRUCTION                      COMCIDP  7473
                                                                                                                 COMCIDP  7474
                                        *         BREAK OUT OPCODE.                                              COMCIDP  7475
                                                                                                                 COMCIDP  7476
          4250  67604                    STP3     SB6    -B4                                                     COMCIDP  7477
                     43066                        MX0    -6                                                      COMCIDP  7478
                          6166000102              SB6    B6+60+6                                                 COMCIDP  7479
          4251  22565                             LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OPCODE             COMCIDP  7480
                     15650                        BX6    -X0*X5                                                  COMCIDP  7481
                          20503                   LX5    3           (X5) = 51/OTHER, 6/OPC, 3/I                 COMCIDP  7482
                               43071              MX0    -3                                                      COMCIDP  7483
          4252  5160003003 +                      SA6    STP=OP                                                  COMCIDP  7484
                          0306004442 +            ZR     X6,STP=ER   IF 00B OPCODE, TRYING TO XEQ DATA...        COMCIDP  7485
                                                                                                                 COMCIDP  7486
                                        *         BREAK OUT *I* FIELD.                                           COMCIDP  7487
                                                                                                                 COMCIDP  7488
          4253  15650                             BX6    -X0*X5                                                  COMCIDP  7489
                     20503                        LX5    3           (X5) = 48/OTHER, 6/OPC, 3/I, 3/J            COMCIDP  7490
                          54661                   SA6    A6+B1                                                   COMCIDP  7491
                                                                                                                 COMCIDP  7492
                                        *         BREAK OUT *J* FIELD.                                           COMCIDP  7493
                                                                                                                 COMCIDP  7494
                               15650              BX6    -X0*X5                                                  COMCIDP  7495
          4254  20503                             LX5    3           (X5) = 45/OTHER, 6/OPC, 3/I, 3/J, 3/K       COMCIDP  7496
                     54661                        SA6    A6+B1                                                   COMCIDP  7497
                                                                                                                 COMCIDP  7498
                                        *         BREAK OUT *K* FIELD.                                           COMCIDP  7499
                                                                                                                 COMCIDP  7500
                          15650                   BX6    -X0*X5                                                  COMCIDP  7501
                               20517              LX5    18-3        (X5) = 30/OTHER, 6/OPC, 3/I, 3/J, 18/Q      COMCIDP  7502
          4255  54661                             SA6    A6+B1                                                   COMCIDP  7503
                                                                                                                 COMCIDP  7504
                                        *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                            COMCIDP  7505
                                                                                                                 COMCIDP  7506
                     73650                        SX6    X5                                                      COMCIDP  7507
                          5160003000 +            SA6    STP=ADR                                                 COMCIDP  7508
                                                                                                                 COMCIDP  7509
                                        *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.      COMCIDP  7510
                                                                                                                 COMCIDP  7511
          4256  5110003003 +                      SA1    STP=OP                                                  COMCIDP  7512
                          20536                   LX5    30          LEFT JUSTIFY INSTRUCTION                    COMCIDP  7513
                               43017              MX0    15                                                      COMCIDP  7514
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   213
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
          4257  5221003022 +                      SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 COMCIDP  7515
                          6150000017              SB5    15                                                      COMCIDP  7516
          4260  0322004261 +                      PL     X2,STP4     IF SHORT (15 BIT) INSTRUCTION               COMCIDP  7517
                          43036                   MX0    30                                                      COMCIDP  7518
                               66555              SB5    B5+B5                                                   COMCIDP  7519
                                                                                                                 COMCIDP  7520
          4261  0745004442 +             STP4     LT     B4,B5,STP=ER IF NOT ENOUGH ROOM FOR 30 BIT INSTRUCTION, COMCIDP  7521
                                        *                              TRYING TO XEQ DATA...                     COMCIDP  7522
                                                                                                                 COMCIDP  7523
                                        *         BREAK OUT FULL INSTRUCTION.                                    COMCIDP  7524
                                                                                                                 COMCIDP  7525
                          5130006505 +            SA3    =46000460004600046000B                                  COMCIDP  7526
          4262  11605                             BX6    X0*X5                                                   COMCIDP  7527
                     15730                        BX7    -X0*X3                                                  COMCIDP  7528
                          36667                   IX6    X6+X7       (X6) = INSTRUCTION, LEFT JUST W/ NO-OP FILL COMCIDP  7529
          4263  5160004270 +                      SA6    STP=IN                                                  COMCIDP  7530
                                                                                                                 COMCIDP  7531
                                        *         SPLIT INSTRUCTION INTO REPRESENTATIVE TYPE--                   COMCIDP  7532
                                        *           01 THRU 07  BRANCH                                           COMCIDP  7533
                                        *           10 THRU 47  NORMAL                                           COMCIDP  7534
                                        *           50 THRU 57  LOAD/STORE                                       COMCIDP  7535
                                        *           60 THRU 77  NORMAL                                           COMCIDP  7536
                                                                                                                 COMCIDP  7537
                          7231777767              SX3    X1-10B                                                  COMCIDP  7538
          4264  7241777727                        SX4    X1-50B                                                  COMCIDP  7539
                          0333004273 +            MI     X3,STP6     IF A BRANCH                                 COMCIDP  7540
          4265  0334004267 +                      MI     X4,STP5     IF A NORMAL                                 COMCIDP  7541
                          7231777717              SX3    X1-60B                                                  COMCIDP  7542
          4266  0333004365 +                      MI     X3,STP12    IF A LOAD/STORE                             COMCIDP  7543
                                                                                                                 COMCIDP  7544
                                        *         HERE IF A NORMAL INSTRUCTION (NO SPECIAL PROCESSING).          COMCIDP  7545
                                                                                                                 COMCIDP  7546
          4267  7110000422 +             STP5     SX1    FW.SVR      (X1) = FWA OF SAVED REGISTERS               COMCIDP  7547
                          0100004107 +            RJ     RIR         RESTORE INTERACTIVE REGISTERS               COMCIDP  7548
                                                                                                                 COMCIDP  7549
                                        *         HERE TO XEQ NORMAL INSTRUCTION.                                COMCIDP  7550
                                                                                                                 COMCIDP  7551
          4270                     1     STP=IN   BSSZ   1           THIS WORD IS PLUGGED WITH THE INSTRUCTION   COMCIDP  7552
                                        *                              TO BE XEQ, LEFT JUSTIFIED WITH NO-OP FILL COMCIDP  7553
                                                                                                                 COMCIDP  7554
          4271  0100005303 +             +        RJ     =XSVR       SAVE ORIGINAL REGISTERS                     COMCIDP  7555
                          0000000422 +   -        VFD    30/FW.SVR                                               COMCIDP  7556
          4272  0400004405 +                      EQ     STP=X                                                   COMCIDP  7557
                                                                                                                 COMCIDP  7558
                                        *         HERE IF A BRANCH INSTRUCTION (01 THRU 07).                     COMCIDP  7559
                                                                                                                 COMCIDP  7560
          4273  5120003004 +             STP6     SA2    STP=I                                                   COMCIDP  7561
                          7261777776              SX6    X1-01B                                                  COMCIDP  7562
          4274  5130003000 +                      SA3    STP=ADR                                                 COMCIDP  7563
                          0316004333 +            NZ     X6,STP8     IF NOT 01B INSTRUCTION                      COMCIDP  7564
          4275  0312004267 +                      NZ     X2,STP5     IF NOT *RJ*                                 COMCIDP  7565
                                                                                                                 COMCIDP  7566
                                        *         HERE IF AN *RJ* INSTRUCTION.                                   COMCIDP  7567
                                                                                                                 COMCIDP  7568
                          5140000642 +            SA4    IDPPREG                                                 COMCIDP  7569
          4276  5150000167 +                      SA5    BC=BRAD     (X5) = WORD CONTAINING *RJ* INSTRUCTION     COMCIDP  7570
                                        *                                     (IF PREVIOUS CONTENTS OF GEN BRK)  COMCIDP  7571
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   214
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
                          10644                   BX6    X4          (X6) = /*+1/                                COMCIDP  7572
          4277  7273776114 -                      SX7    X3-REG=                                                 COMCIDP  7573
                          7203776077 -            SX0    X3-SNP=                                                 COMCIDP  7574
          4300  0315004301 +                      NZ     X5,STP6A    IF *RJ* IS PREVIOUS CONTENTS OF BREAK ADDR  COMCIDP  7575
                          53540                   SA5    X4          (X5) = WORD CONTAINING *RJ* INSTRUCTION     COMCIDP  7576
                               73641              SX6    X4+B1       (X6) = /*+1/                                COMCIDP  7577
                                                                                                                 COMCIDP  7578
                                        *         CHECK FOR CALL TO *REG=/SNP=*.  THESE ROUTINES MUST AVOID      COMCIDP  7579
                                        *           BEING STEPPED BECAUSE THEY USE *SVR=/RSR=* TO SAVE AND       COMCIDP  7580
                                        *           RESTORE THE CALLERS REGISTERS (SEE NEXT PARAGRAPH).          COMCIDP  7581
                                                                                                                 COMCIDP  7582
          4301  0307004321 +             STP6A    ZR     X7,STP7     IF *RJ REG=*                                COMCIDP  7583
                          0300004321 +            ZR     X0,STP7     IF *RJ SNP=*                                COMCIDP  7584
                                                                                                                 COMCIDP  7585
                                        *         CHECK FOR CALL TO *RIR/RSR/SVR/SYS=/XJR*.                      COMCIDP  7586
                                        *                                                                        COMCIDP  7587
                                        *         THIS IS CURRENTLY FATALLY RECURSIVE BECAUSE *STP* USES THESE   COMCIDP  7588
                                        *         ROUTINES TO SAVE AND RESTORE THE IDP CALLER'S REGISTERS        COMCIDP  7589
                                        *         BEFORE AND AFTER EACH INSTRUCTION IS STEPPED.  THIS IMPLIES    COMCIDP  7590
                                        *         THAT THESE *SAVE AND RESTORE* ROUTINES WOULD HAVE TO BE        COMCIDP  7591
                                        *         ABLE TO BE STEPPED AND EXECUTED CONCURRENTLY...TRICKY.         COMCIDP  7592
                                        *                                                                        COMCIDP  7593
                                        *         IN CASE YOU ARE CONFUSED ABOUT *SYS=*, NOTE THAT *COMCXJR*     COMCIDP  7594
                                        *         CALLS *SYS=* TO ISSUE *XJR* RA+1 REQUEST.                      COMCIDP  7595
                                                                                                                 COMCIDP  7596
          4302  7110005303 +                      SX1    =XSVR                                                   COMCIDP  7597
                          7120004107 +            SX2    RIR                                                     COMCIDP  7598
          4303  37113                             IX1    X1-X3                                                   COMCIDP  7599
                     37223                        IX2    X2-X3                                                   COMCIDP  7600
                          0301004442 +            ZR     X1,STP=ER   IF *RJ SVR*, FATAL RECURSION...             COMCIDP  7601
          4304  0302004442 +                      ZR     X2,STP=ER   IF *RJ RIR*, FATAL RECURSION...             COMCIDP  7602
                          7110005226 +            SX1    =XRSR                                                   COMCIDP  7603
          4305  7120006010 +                      SX2    =XXJR                                                   COMCIDP  7604
                          37113                   IX1    X1-X3                                                   COMCIDP  7605
                               37223              IX2    X2-X3                                                   COMCIDP  7606
          4306  0301004442 +                      ZR     X1,STP=ER   IF *RJ RSR*, FATAL RECURSION...             COMCIDP  7607
                          0302004442 +            ZR     X2,STP=ER   IF *RJ XJR*, FATAL RECURSION...             COMCIDP  7608
          4307  7110005416 +                      SX1    =XSYS=                                                  COMCIDP  7609
                          37113                   IX1    X1-X3                                                   COMCIDP  7610
          4310  0301004442 +                      ZR     X1,STP=ER   IF *RJ SYS=*, FATAL RECURSION...            COMCIDP  7611
                                                                                                                 COMCIDP  7612
                                        *         SET UP TRANSFER ADDRESS OF /RJ Q/ TO BE /Q+1/.                 COMCIDP  7613
                                                                                                                 COMCIDP  7614
                          73731                   SX7    X3+B1       (X7) = /Q+1/                                COMCIDP  7615
                               63270              SB2    X7                                                      COMCIDP  7616
          4311  5170000647 +                      SA7    IDPXFR                                                  COMCIDP  7617
                                                                                                                 COMCIDP  7618
                                        *         CHECK TRANSFER ADDR AND SIMULATE *RJ* BY PLUGGING /EQ *+1/.    COMCIDP  7619
                                        *                                                                        COMCIDP  7620
                                        *         ENTRY  (B2) = TRANSFER ADDRESS                                 COMCIDP  7621
                                        *                (X6) = /*+1/  (I.E. RETURN ADDR)                        COMCIDP  7622
                                        *                (X3) = /Q/    (I.E. ADDR TO PLUG /EQ *+1/)              COMCIDP  7623
                                        *                                                                        COMCIDP  7624
                                        *         NOTE   WHEN THIS IS NOT *RJ REG=/SNP=*, THEN                   COMCIDP  7625
                                        *                TRANSFER ADDR = Q+1  OR  (B2) = (X3)+1.                 COMCIDP  7626
                                        *                                                                        COMCIDP  7627
                                        *                WHEN THIS IS AN *RJ REG=/SNP=*, THEN                    COMCIDP  7628
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   215
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
                                        *                TRANSFER ADDR = *+1  OR  (B2) = (X6), I.E. THE *RJ* HAS COMCIDP  7629
                                        *                BEEN SKIPPED.                                           COMCIDP  7630
                                                                                                                 COMCIDP  7631
          4312  0100002447 +             STP6B    RJ     CHK         CHECK CM ADDRESS                            COMCIDP  7632
          4313  7170000400                        SX7    0400B       (X7) = *EQ* INSTRUCTION                     COMCIDP  7633
                          0720004442 +            MI     B2,STP=ER   IF ADDR IS BAD                              COMCIDP  7634
          4314  20722                             LX7    29-11                                                   COMCIDP  7635
                     7100001515 +                 SX0    IDP=                                                    COMCIDP  7636
                               12776              BX7    X7+X6       (X7) = 30/0,30/EQ *+1                       COMCIDP  7637
          4315  20736                             LX7    59-29       (X7) = 30/EQ *+1,30/0                       COMCIDP  7638
                     53730                        SA7    X3                                                      COMCIDP  7639
                                                                                                                 COMCIDP  7640
                                        *         CHECK FOR *RJ IDP=*.                                           COMCIDP  7641
                                                                                                                 COMCIDP  7642
                          37030                   IX0    X3-X0                                                   COMCIDP  7643
          4316  5110000651 +                      SA1    IDPXRJ                                                  COMCIDP  7644
                          0300004327 +            ZR     X0,STP7A    IF *RJ IDP=*                                COMCIDP  7645
                                                                                                                 COMCIDP  7646
                                        *         SET UP LEVEL 0 *RJ* ADDRESS.                                   COMCIDP  7647
                                                                                                                 COMCIDP  7648
          4317  0311004405 +                      NZ     X1,STP=X    IF NOT AT LEVEL 0 *RJ*                      COMCIDP  7649
                          73630                   SX6    X3                                                      COMCIDP  7650
                               54610              SA6    A1                                                      COMCIDP  7651
          4320  0400004405 +                      EQ     STP=X                                                   COMCIDP  7652
                                                                                                                 COMCIDP  7653
                                        *         HERE TO PROCESS *RJ REG=/SNP=*.                                COMCIDP  7654
                                                                                                                 COMCIDP  7655
          4321  5160000647 +             STP7     SA6    IDPXFR      SET TO *RJ REG=/SNP= BECOMES                COMCIDP  7656
                                        *                              BRANCH TO /*+1/*                          COMCIDP  7657
                          10755                   BX7    X5          (X7) = 30/RJ REG=/SNP=, 30/FWA OF PARM LIST COMCIDP  7658
          4322  5170004324 +                      SA7    STP=SNP                                                 COMCIDP  7659
                          7110000422 +            SX1    FW.SVR      (X1) = FWA OF SAVED REGISTERS               COMCIDP  7660
          4323  0100004107 +                      RJ     RIR         RESTORE INTERACTIVE REGISTERS               COMCIDP  7661
                                                                                                                 COMCIDP  7662
          4324                     1     STP=SNP  BSSZ   1           THIS WORD IS PLUGGED WITH AN *RJ REG=* OR   COMCIDP  7663
                                        *                              AN *RJ SNP=* FORCED UPPER WITH THE FWA OF COMCIDP  7664
                                        *                              THE PARAMETER LIST IN THE LOWER 18 BITS   COMCIDP  7665
                                                                                                                 COMCIDP  7666
          4325  5110000647 +                      SA1    IDPXFR      (X1) = ADDR TO XFER TO (I.E. /*+1/)         COMCIDP  7667
                          5130003000 +            SA3    STP=ADR     (X3) = *REG=* OR *SNP=*                     COMCIDP  7668
          4326  63210                             SB2    X1                                                      COMCIDP  7669
                     10611                        BX6    X1                                                      COMCIDP  7670
                          0400004312 +            EQ     STP6B                                                   COMCIDP  7671
                                                                                                                 COMCIDP  7672
                                        *         HERE TO PROCESS *RJ IDP=*.                                     COMCIDP  7673
                                                                                                                 COMCIDP  7674
          4327  5160000647 +             STP7A    SA6    IDPXFR      SET TO */RJ IDP=/ BECOMES BRANCH TO /*+1/*  COMCIDP  7675
                          5110001515 +            SA1    IDP=        (A1,X1) = A+C OF IDP ENTRY POINT            COMCIDP  7676
          4330  0100002362 +                      RJ     BRK         BREAK PROCESSOR                             COMCIDP  7677
          4331  0305004405 +                      ZR     X5,STP=X    IF NO BREAK THIS TIME                       COMCIDP  7678
                          0100003342 +            RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMCIDP  7679
          4332  0305004405 +                      ZR     X5,STP=X    IF NO BREAK THIS TIME                       COMCIDP  7680
                          0400001541 +            EQ     IDP2A       HONOR THIS BREAK...                         COMCIDP  7681
                                                                                                                 COMCIDP  7682
                                        *         HERE IF BRANCH INSTRUCTION (02 THRU 07).                       COMCIDP  7683
                                                                                                                 COMCIDP  7684
          4333  7261777773               STP8     SX6    X1-4                                                    COMCIDP  7685
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   216
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
                          7271777775              SX7    X1-2                                                    COMCIDP  7686
          4334  0306004354 +                      ZR     X6,STP10    IF *EQ BI,BJ,ADDR*                          COMCIDP  7687
                          0307004361 +            ZR     X7,STP11    IF *JP BI+ADDR*                             COMCIDP  7688
                                                                                                                 COMCIDP  7689
                                        *         HERE IF CONDITIONAL BRANCH INSTRUCTION.                        COMCIDP  7690
                                                                                                                 COMCIDP  7691
          4335  5110004270 +             STP9     SA1    STP=IN                                                  COMCIDP  7692
                          43052                   MX0    -18                                                     COMCIDP  7693
                               20036              LX0    48-18                                                   COMCIDP  7694
          4336  7120004343 +                      SX2    STP=BP      (X2) = BRANCH *PASS* ADDR                   COMCIDP  7695
                          20236                   LX2    48-18                                                   COMCIDP  7696
                               11101              BX1    X0*X1                                                   COMCIDP  7697
          4337  15220                             BX2    -X0*X2                                                  COMCIDP  7698
                     36612                        IX6    X1+X2       (X6) = 12/BRANCH OPC, 18/STP=BRP, 30/NO-OPS COMCIDP  7699
                          5160004341 +            SA6    STP=BR                                                  COMCIDP  7700
                                                                                                                 COMCIDP  7701
                                        *         HERE TO XEQ CONDITIONAL BRANCH INSTRUCTION. THE 18 BIT ADDRESS COMCIDP  7702
                                        *           *Q* PORTION OF THE BRANCH INSTRUCTION IS MODIFIED SO THAT IF COMCIDP  7703
                                        *           THE BRANCH IS TAKEN, CONTROL PASSES TO *STP=BP*.             COMCIDP  7704
                                                                                                                 COMCIDP  7705
          4340  7110000422 +                      SX1    FW.SVR      (X1) = FWA OF SAVED REGISTERS               COMCIDP  7706
                          0100004107 +            RJ     RIR         RESTORE INTERACTIVE REGISTERS               COMCIDP  7707
                                                                                                                 COMCIDP  7708
          4341                     1     STP=BR   BSSZ   1           BRANCH TO XEQ IS PLUGGED HERE -- LEFT JUST- COMCIDP  7709
                                        *                              IFIED W/ *Q* ALTERED AND NO-OP FILL       COMCIDP  7710
                                                                                                                 COMCIDP  7711
          4342  6110000001               STP=BF   SB1    1           RESTORE (B1) = 1                            COMCIDP  7712
                          0400004405 +            EQ     STP=X                                                   COMCIDP  7713
                                                                                                                 COMCIDP  7714
          4343  5110003000 +             STP=BP   SA1    STP=ADR                                                 COMCIDP  7715
                          6110000001              SB1    1           RESTORE (B1) = 1                            COMCIDP  7716
          4344  63210                             SB2    X1          (B2) = ADDR TO TRANSFER CONTROL TO          COMCIDP  7717
                     73610                        SX6    X1                                                      COMCIDP  7718
                          5160000647 +            SA6    IDPXFR                                                  COMCIDP  7719
          4345  0100002447 +                      RJ     CHK         CHECK CM ADDRESS                            COMCIDP  7720
          4346  5110000650 +                      SA1    IDPXLST                                                 COMCIDP  7721
                          0720004442 +            MI     B2,STP=ER   IF ADDR IS BAD                              COMCIDP  7722
          4347  0301004405 +                      ZR     X1,STP=X    IF NOT LISTING                              COMCIDP  7723
                          5110003004 +            SA1    STP=I                                                   COMCIDP  7724
          4350  54211                             SA2    A1+B1                                                   COMCIDP  7725
                     12612                        BX6    X1+X2                                                   COMCIDP  7726
                          0306004405 +            ZR     X6,STP=X    IF *EQ ADDR*, DONT BE VERBOSE...            COMCIDP  7727
          4351  7160006516 +                      PRIDP  (=C=                                 BRANCH TAKEN...=)  COMCIDP  7728
          4353  0400004405 +                      EQ     STP=X                                                   COMCIDP  7729
                                                                                                                 COMCIDP  7730
                                        *         HERE IF *EQ BI,BJ,ADDR*.                                       COMCIDP  7731
                                                                                                                 COMCIDP  7732
          4354  5110003004 +             STP10    SA1    STP=I                                                   COMCIDP  7733
                          5120003005 +            SA2    STP=J                                                   COMCIDP  7734
          4355  12612                             BX6    X1+X2                                                   COMCIDP  7735
                     0316004335 +                 NZ     X6,STP9     IF NOT *EQ ADDR*                            COMCIDP  7736
                               43700              MX7    0                                                       COMCIDP  7737
          4356  5110000651 +                      SA1    IDPXRJ                                                  COMCIDP  7738
                          5120000642 +            SA2    IDPPREG                                                 COMCIDP  7739
          4357  37612                             IX6    X1-X2                                                   COMCIDP  7740
                     0316004343 +                 NZ     X6,STP=BP   IF NOT POSSIBLY *RJ SUBR* EXIT              COMCIDP  7741
                               54710              SA7    A1          SET TO *BACK TO LEVEL 0 NOW*                COMCIDP  7742
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   217
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
          4360  0400004343 +                      EQ     STP=BP                                                  COMCIDP  7743
                                                                                                                 COMCIDP  7744
                                        *         HERE IF *JP BI+ADDR*.                                          COMCIDP  7745
                                                                                                                 COMCIDP  7746
          4361  5110003004 +             STP11    SA1    STP=I                                                   COMCIDP  7747
                          5120003000 +            SA2    STP=ADR                                                 COMCIDP  7748
          4362  5231000422 +                      SA3    IDP=SVB+X1   (X3) = (BI)                                COMCIDP  7749
                          36623                   IX6    X2+X3       (X6) = BI+ADDR                              COMCIDP  7750
                               63260              SB2    X6                                                      COMCIDP  7751
          4363  5160000647 +                      SA6    IDPXFR                                                  COMCIDP  7752
                          0100002447 +            RJ     CHK         CHECK CM ADDRESS                            COMCIDP  7753
          4364  0620004405 +                      PL     B2,STP=X    IF ADDR OK                                  COMCIDP  7754
                          0400004442 +            EQ     STP=ER                                                  COMCIDP  7755
                                                                                                                 COMCIDP  7756
                                        *         HERE IF A LOAD/STORE INSTRUCTION (50 THRU 57).                 COMCIDP  7757
                                                                                                                 COMCIDP  7758
          4365  5211004325 +             STP12    SA1    STP=LS+X1-50B  (X1) = LOAD/STORE SKELETON               COMCIDP  7759
                          5120003004 +            SA2    STP=I                                                   COMCIDP  7760
          4366  54321                             SA3    A2+B1                                                   COMCIDP  7761
                     54431                        SA4    A3+B1                                                   COMCIDP  7762
                          5150003000 +            SA5    STP=ADR                                                 COMCIDP  7763
          4367  63610                             SB6    X1          (B6) = .MI. IF *Q* FLAG, ELSE               COMCIDP  7764
                                        *                                 = FWA OF APPROPRIATE SAVED REG BLOCK   COMCIDP  7765
                     20147                        LX1    -18-3                                                   COMCIDP  7766
                          10611                   BX6    X1                                                      COMCIDP  7767
                               21673              AX6    59          (X6) = +0 IF *J* REG + *K* REG              COMCIDP  7768
                                        *                                   -0 IF *J* REG - *K* REG              COMCIDP  7769
          4370  63710                             SB7    X1                                                      COMCIDP  7770
                     0302004267 +                 ZR     X2,STP5     IF *SA0* (I.E. NOT LOAD/STORE)              COMCIDP  7771
          4371  0760004372 +                      MI     B6,STP13    IF *Q* 18 BIT ADDR                          COMCIDP  7772
                          53546                   SA5    B6+X4       (X5) = SAVED *K* REGISTER                   COMCIDP  7773
                               13556              BX5    X5-X6                                                   COMCIDP  7774
                                                                                                                 COMCIDP  7775
          4372  53137                    STP13    SA1    B7+X3       (X1) = SAVED *J* REGISTER                   COMCIDP  7776
                     36615                        IX6    X1+X5                                                   COMCIDP  7777
                          63260                   SB2    X6          (B2) = ADDR TO LOAD/STORE                   COMCIDP  7778
          4373  5160000644 +                      SA6    IDPXAR                                                  COMCIDP  7779
                          0100002447 +            RJ     =XCHK       CHECK CM ADDRESS                            COMCIDP  7780
          4374  0620004267 +                      PL     B2,STP5     IF ADDR OK                                  COMCIDP  7781
                          0400004442 +            EQ     STP=ER                                                  COMCIDP  7782
                                                                                                                 COMCIDP  7783
                                        *         LOAD/STORE TABLE.                                              COMCIDP  7784
                                                                                                                 COMCIDP  7785
          4375                           STP=LS   BSS    0                                                       COMCIDP  7786
                                                                                                                 COMCIDP  7787
      L     50                                    LOC    50B                                                     COMCIDP  7788
      L     50  0000000000432 +          +        VFD    18/0,3/0,18/IDP=SVA,3/0,18/-1         SAI  AJ+Q         COMCIDP  7789
                             0777776
      L     51  0000000000422 +          +        VFD    18/0,3/0,18/IDP=SVB,3/0,18/-1         SAI  BJ+Q         COMCIDP  7790
                             0777776
      L     52  0000000000442 +          +        VFD    18/0,3/0,18/IDP=SVX,3/0,18/-1         SAI  XJ+Q         COMCIDP  7791
                             0777776
      L     53  0000000000442 +          +        VFD    18/0,3/0,18/IDP=SVX,3/0,18/IDP=SVB     SAI  XJ+BK       COMCIDP  7792
                             0000422 +
      L     54  0000000000432 +          +        VFD    18/0,3/0,18/IDP=SVA,3/0,18/IDP=SVB     SAI  AJ+BK       COMCIDP  7793
                             0000422 +
      L     55  0000000000432 +          +        VFD    18/0,3/0,18/IDP=SVA,3/4,18/IDP=SVB     SAI  AJ-BK       COMCIDP  7794
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   218
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
                             4000422 +
      L     56  0000000000422 +          +        VFD    18/0,3/0,18/IDP=SVB,3/0,18/IDP=SVB     SAI  BJ+BK       COMCIDP  7795
                             0000422 +
      L     57  0000000000422 +          +        VFD    18/0,3/0,18/IDP=SVB,3/4,18/IDP=SVB     SAI  BJ-BK       COMCIDP  7796
                             4000422 +
      L   4405                                    LOC    *O                                                      COMCIDP  7797
                                                                                                                 COMCIDP  7798
                                        *         HERE TO UPDATE POS COUNTER AND PSEUDO P REGISTER.              COMCIDP  7799
                                                                                                                 COMCIDP  7800
          4405  5110003003 +             STP=X    SA1    STP=OP                                                  COMCIDP  7801
                          5120000647 +            SA2    IDPXFR                                                  COMCIDP  7802
          4406  5130000642 +                      SA3    IDPPREG                                                 COMCIDP  7803
                          5140000643 +            SA4    IDPPOS                                                  COMCIDP  7804
          4407  5150000167 +                      SA5    BC=BRAD                                                 COMCIDP  7805
                          0302004442 +            ZR     X2,STP=ER   IF BAD XFER, BAD TIMES...                   COMCIDP  7806
          4410  5211003022 +                      SA1    DAZ=PS+X1   (X1) = INSTRUCTION SKELETON                 COMCIDP  7807
                          6150000017              SB5    15                                                      COMCIDP  7808
          4411  10622                             BX6    X2                                                      COMCIDP  7809
                     63440                        SB4    X4                                                      COMCIDP  7810
                          43700                   MX7    0                                                       COMCIDP  7811
          4412  0321004413 +                      PL     X1,STP=X2   IF SHORT (15 BIT) INSTRUCTION               COMCIDP  7812
                          66555                   SB5    B5+B5                                                   COMCIDP  7813
                                                                                                                 COMCIDP  7814
          4413  20102                    STP=X2   LX1    59-57                                                   COMCIDP  7815
                     0322004420 +                 PL     X2,STP=X4A  IF A XFER OF CONTROL OCCURRED               COMCIDP  7816
                               73631              SX6    X3+B1                                                   COMCIDP  7817
          4414  0654004415 +                      LE     B4,B5,STP=X3  IF NO MORE INSTRUCTIONS IN THIS WORD      COMCIDP  7818
                          0321004424 +            PL     X1,STP=X5   IF INSTRUCTION DOES NOT FORCE UPPER         COMCIDP  7819
                                                                                                                 COMCIDP  7820
          4415  0305004416 +             STP=X3   ZR     X5,STP=X4   IF NOT IN IDP GENERATED BREAK MODE          COMCIDP  7821
                          73630                   SX6    X3                                                      COMCIDP  7822
                                                                                                                 COMCIDP  7823
                                        *         HERE IF INSTRUCTION FORCES UPPER.                              COMCIDP  7824
                                                                                                                 COMCIDP  7825
          4416  54750                    STP=X4   SA7    A5          SET TO *NOT IN IDP GENERATED BREAK MODE*    COMCIDP  7826
                     54630                        SA6    A3                                                      COMCIDP  7827
                          7170000074              SX7    60                                                      COMCIDP  7828
          4417  54740                             SA7    A4                                                      COMCIDP  7829
                     0400004425 +                 EQ     STP=X6                                                  COMCIDP  7830
                                                                                                                 COMCIDP  7831
                                        *         HERE IF TRANSFER OF CONTROL OCCURRED -- ENTER TRANSFER ADDR    COMCIDP  7832
                                        *           ONTO PUSH DOWN STACK OF SAVED TRANSFER ADDRESSES *IDPXFT*.   COMCIDP  7833
                                        *           ALL ENTRIES IN PUSH DOWN STACK ARE MOVED UP (TOWARD *RA*)    COMCIDP  7834
                                        *           ONE POSITION (THE 1ST ENTRY IN *XFT*, THE EARLIEST TRANSFER  COMCIDP  7835
                                        *           ADDRESS, FALLS OFF STACK).  EXAMPLE --                       COMCIDP  7836
                                        *                                                                        COMCIDP  7837
                                        *                     BEFORE                 AFTER                       COMCIDP  7838
                                        *             XFT+0  XFER(N)         XFT+0  XFER(N+1)                    COMCIDP  7839
                                        *                +1  XFER(N+1)          +1  XFER(N+2)                    COMCIDP  7840
                                        *                +2  XFER(N+2)          +2  XFER(N+3)                    COMCIDP  7841
                                        *                +3  XFER(N+3)          +3  XFER(N+4) -- NEW ENTRY       COMCIDP  7842
                                        *                +4  END-OF-TABLE       +4  END-OF-TABLE                 COMCIDP  7843
                                                                                                                 COMCIDP  7844
          4420  5110001432 +             STP=X4A  SA1    IDPXFT+1    (A1,X1) = A+C OF 1ST WORD TO MOVE           COMCIDP  7845
                          6170000003              SB7    L.XFT-1     (B7) = NR OF WORDS TO MOVE                  COMCIDP  7846
                                                                                                                 COMCIDP  7847
          4421  10711                    STP=X4B  BX7    X1                                                      COMCIDP  7848
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   219
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
                     55711                        SA7    A1-B1                                                   COMCIDP  7849
                          67771                   SB7    B7-B1                                                   COMCIDP  7850
                               54111              SA1    A1+B1                                                   COMCIDP  7851
          4422  0707004421 +                      GT     B7,B0,STP=X4B IF NOT DONE                               COMCIDP  7852
                                                                                                                 COMCIDP  7853
                          20436                   LX4    59-29                                                   COMCIDP  7854
                               12743              BX7    X4+X3       (X7) = 30/POS COUNTER,30/P REG OF XFER INST COMCIDP  7855
          4423  55711                             SA7    A1-B1       MAKE NEW ENTRY                              COMCIDP  7856
                     43700                        MX7    0                                                       COMCIDP  7857
                          0400004416 +            EQ     STP=X4      FORCE UPPER...                              COMCIDP  7858
                                                                                                                 COMCIDP  7859
                                        *         HERE IF INSTRUCTION DOES NOT FORCE UPPER.                      COMCIDP  7860
                                                                                                                 COMCIDP  7861
          4424  67645                    STP=X5   SB6    B4-B5                                                   COMCIDP  7862
                     76760                        SX7    B6                                                      COMCIDP  7863
                          54740                   SA7    A4                                                      COMCIDP  7864
                                                                                                                 COMCIDP  7865
                                        *         LIST RESULT REGISTER.                                          COMCIDP  7866
                                                                                                                 COMCIDP  7867
          4425  5130000650 +             STP=X6   SA3    IDPXLST                                                 COMCIDP  7868
                          5140003003 +            SA4    STP=OP                                                  COMCIDP  7869
          4426  0303004241 +                      ZR     X3,EXIT.    IF NOT LISTING                              COMCIDP  7870
                                                                                                                 COMCIDP  7871
                          7264777767              SX6    X4-10B                                                  COMCIDP  7872
          4427  5130003004 +                      SA3    STP=I                                                   COMCIDP  7873
                          0336004241 +            MI     X6,EXIT.    IF A BRANCH INSTRUCTION                     COMCIDP  7874
          4430  20172                             LX1    -2          RESTORE (X1) = INSTRUCTION SKELETON         COMCIDP  7875
                     43066                        MX0    -CHAR                                                   COMCIDP  7876
                          15610                   BX6    -X0*X1                                                  COMCIDP  7877
          4431  7276777775                        SX7    X6-1RB                                                  COMCIDP  7878
                          6160000000              SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)               COMCIDP  7879
          4432  0307004436 +                      ZR     X7,STP=X8   IF B REGISTER                               COMCIDP  7880
                          7276777776              SX7    X6-1RA                                                  COMCIDP  7881
          4433  6160000010                        SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)               COMCIDP  7882
                          0307004436 +            ZR     X7,STP=X8   IF A REGISTER                               COMCIDP  7883
          4434  7276777747                        SX7    X6-1RX                                                  COMCIDP  7884
                          6160000020              SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)               COMCIDP  7885
          4435  0307004440 +                      ZR     X7,STP=X9   IF X REGISTER                               COMCIDP  7886
                          0400004241 +            EQ     EXIT.                                                   COMCIDP  7887
                                                                                                                 COMCIDP  7888
          4436  63436                    STP=X8   SB4    B6+X3       (B4) = 0TR                                  COMCIDP  7889
                     0100002637 +                 RJ     DAB         DUMP -A- OR -B- REGISTER                    COMCIDP  7890
          4437  0400004241 +                      EQ     EXIT.                                                   COMCIDP  7891
                                                                                                                 COMCIDP  7892
          4440  63436                    STP=X9   SB4    B6+X3       (B4) = 02R                                  COMCIDP  7893
                     0100003213 +                 RJ     DUX         DUMP -X- REGISTER                           COMCIDP  7894
          4441  0400004241 +                      EQ     EXIT.                                                   COMCIDP  7895
                                                                                                                 COMCIDP  7896
                                        *         HERE IF AN ERROR ENCOUNTERED.                                  COMCIDP  7897
                                                                                                                 COMCIDP  7898
          4442  5110000650 +             STP=ER   SA1    IDPXLST                                                 COMCIDP  7899
                          5120000167 +            SA2    BC=BRAD                                                 COMCIDP  7900
          4443  5130000642 +                      SA3    IDPPREG                                                 COMCIDP  7901
                          5140000643 +            SA4    IDPPOS                                                  COMCIDP  7902
          4444  0311004447 +                      NZ     X1,STP=E3   IF INSTRUCTION WAS ALREADY LISTED           COMCIDP  7903
                          53530                   SA5    X3                                                      COMCIDP  7904
          4445  0302004446 +                      ZR     X2,STP=E2   IF NOT IN IDP GENERATED BREAK MODE          COMCIDP  7905
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   220
        IDP 1.1/SUPPORTING SUBROUTINES.                               STP                 IDP 
  
                          54520                   SA5    A2                                                      COMCIDP  7906
                                                                                                                 COMCIDP  7907
          4446  63440                    STP=E2   SB4    X4                                                      COMCIDP  7908
                     0100002674 +                 RJ     DAZ         DEASSEMBLE BAD INSTRUCTION                  COMCIDP  7909
                                                                                                                 COMCIDP  7910
          4447  43052                    STP=E3   MX0    -18                                                     COMCIDP  7911
                     5110000642 +                 SA1    IDPPREG                                                 COMCIDP  7912
          4450  5120006523 +                      SA2    =10H      P =                                           COMCIDP  7913
                          15110                   BX1    -X0*X1                                                  COMCIDP  7914
                               22702              LX7    X2                                                      COMCIDP  7915
          4451  5170000607 +                      SA7    SNAPLNE                                                 COMCIDP  7916
                          0100005002 +            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 COMCIDP  7917
          4452  10644                             BX6    X4                                                      COMCIDP  7918
                     54671                        SA6    A7+B1                                                   COMCIDP  7919
                          5110000642 +            SA1    IDPPREG                                                 COMCIDP  7920
          4453  0100003320 +                      RJ     FRA         FIND RELATIVE ADDRESS                       COMCIDP  7921
          4454  54661                             SA6    A6+B1                                                   COMCIDP  7922
                     54761                        SA7    A6+B1                                                   COMCIDP  7923
                          7160000607 +            PRIDP  SNAPLNE                                                 COMCIDP  7924
          4456  0400001641 +                      EQ     IDP=ER                                                  COMCIDP  7925
                                                                                                                 COMCIDP  7926
                                                                                                                 COMCIDP  7927
                                3000 +   STP=ADR  =      DAZ=ADR                                                 COMCIDP  7928
                                3004 +   STP=I    =      DAZ=I                                                   COMCIDP  7929
                                3005 +   STP=J    =      DAZ=J                                                   COMCIDP  7930
                                3006 +   STP=K    =      DAZ=K                                                   COMCIDP  7931
                                3003 +   STP=OP   =      DAZ=OP                                                  COMCIDP  7932
  
  
  
  
                                        ***       THE *TOGEL* PROGRAM.                                           COMCIDP  7934
                                        *                                                                        COMCIDP  7935
                                        *                                                                        COMCIDP  7936
                                        *         THE FOLLOWING SECTION CONTAINS THE *TOGEL* PROGRAM THAT        COMCIDP  7937
                                        *         DRIVE/DESCRIBES THE GENERATION OF *IDP* TOKENS.                COMCIDP  7938
  
  
  
  
                                         IDPTOM   TOGEL                                                          COMCIDP  7940
                                                                                                                 COMCIDP  7941
          4457                           TOM=NXT  BSS    0           ** MAIN LOOP NODE **                        COMCIDP  7942
          4457  00000000006165 +                  GROUP (),NUL,SQZ                                               COMCIDP  7943
          4460  00004471 +               EOS      IFT ("EOS")                                                    COMCIDP  7944
          4461  00000000004603 +                    CALT TOK=EOS     GENERATE *EOS* TOKEN                        COMCIDP  7945
                                                                                                                 COMCIDP  7946
          4462                           TOM=BOL  BSS    0           ** BEGINNING OF LINE **                     COMCIDP  7947
          4462  00004603 +                          ON EOL,TOK=EOS                                               COMCIDP  7948
          4463  00000000006165 +                    GROUP (),NUL,SQZ                                             COMCIDP  7949
          4464  00004467 +                          IFT (-A..Z0..9"EOS"/55)                                      COMCIDP  7950
          4465  00450033004547 +                      CASEOF (+..:),TOM=COF                                      COMCIDP  7951
          4466  00000000004462 +                      GOTO TOM=BOL                                               COMCIDP  7952
          4467                                      ENDT                                                         COMCIDP  7953
          4467  00000001006526 +                    GROUP (A..Z),KEY,NSQZ                                        COMCIDP  7954
          4470  00000000004457 +                    GOTO TOM=NXT                                                 COMCIDP  7955
          4471                           EOS      ENDT                                                           COMCIDP  7956
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   221
        IDP 1.1/SUPPORTING SUBROUTINES.                               IDPTOM              IDP 
  
                                                                                                                 COMCIDP  7957
          4471  00004477 +               VAR      IFT (A..Z)                                                     COMCIDP  7958
          4472  00004616 +                          ON EOL,TOK=VOL                                               COMCIDP  7959
          4473  00000002006527 +                    GROUP (A..Z0..9),VAR,SQZ                                     COMCIDP  7960
          4474  00000000004614 +                    CALT TOK=VAR     PROCESS/CHECK *VAR* TOKEN                   COMCIDP  7961
          4475  00004603 +                          ON EOL,TOK=EOS                                               COMCIDP  7962
          4476  00000000004503 +         VAR      ELST                                                           COMCIDP  7963
          4477  00004502 +               CON        IFT (0..9)                                                   COMCIDP  7964
          4500  00000003006530 +                      GROUP (0..9),CONS,SQZ                                      COMCIDP  7965
          4501  00000000004503 +         CON        ELST                                                         COMCIDP  7966
          4502  00450033004547 +                      CASEOF (+..:)                                              COMCIDP  7967
                                         TOM=COF        TOKEN PLUS   +                                           COMCIDP  7968
                                                        TOKEN MIN    -                                           COMCIDP  7969
                                                        TOKEN STAR   *                                           COMCIDP  7970
                                                        TOKEN ILL    /                                           COMCIDP  7971
                                                        TOKEN LP     (                                           COMCIDP  7972
                                                        TOKEN RP     )                                           COMCIDP  7973
                                                        TOKEN SHFT   $                                           COMCIDP  7974
                                                        TOKEN ILL    =                                           COMCIDP  7975
                                                        TOKEN ILL    BLANK                                       COMCIDP  7976
                                                        TOKEN COM    ,                                           COMCIDP  7977
                                                        TOKEN PER    .                                           COMCIDP  7978
                                                          TOKEN AND,(PER,VAR'AND',PER)                           COMCIDP  7979
                                                          TOKEN AND,(PER,VAR'A',PER)                             COMCIDP  7980
                                                          TOKEN OR,(PER,VAR'OR',PER)                             COMCIDP  7981
                                                          TOKEN OR,(PER,VAR'O',PER)                              COMCIDP  7982
                                                          TOKEN XOR,(PER,VAR'XOR',PER)                           COMCIDP  7983
                                                          TOKEN XOR,(PER,VAR'X',PER)                             COMCIDP  7984
                                                          TOKEN NOT,(PER,VAR'NOT',PER)                           COMCIDP  7985
                                                          TOKEN NOT,(PER,VAR'N',PER)                             COMCIDP  7986
                                                        TOKEN ILL    #                                           COMCIDP  7987
                                                        TOKEN ILL    [                                           COMCIDP  7988
                                                        TOKEN ILL    ]                                           COMCIDP  7989
                                                        TOKEN ILL    %                                           COMCIDP  7990
                                                        TOKEN ILL    DQOT                                        COMCIDP  7991
                                                        TOKEN ILL    _                                           COMCIDP  7992
                                                        TOKEN ILL    !                                           COMCIDP  7993
                                                        TOKEN ILL    &                                           COMCIDP  7994
                                                        TOKEN SQOT,,TOK=SQT    '                                 COMCIDP  7995
                                                        TOKEN QQQ    ?                                           COMCIDP  7996
                                                        TOKEN ILL    <                                           COMCIDP  7997
                                                        TOKEN ILL    >                                           COMCIDP  7998
                                                        TOKEN ILL    @                                           COMCIDP  7999
                                                        TOKEN ILL    \                                           COMCIDP  8000
                                                        TOKEN ILL    ^                                           COMCIDP  8001
                                                        TOKEN ILL    SCOL                                        COMCIDP  8002
                                                        TOKEN ILL    :                                           COMCIDP  8003
                                                      ENDC                                                       COMCIDP  8004
          4503                           CON        ENDT                                                         COMCIDP  8005
          4503                           VAR      ENDT                                                           COMCIDP  8006
          4503  00000000004457 +                  GOTO TOM=NXT                                                   COMCIDP  8007
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   222
        IDP 1.1/SUPPORTING SUBROUTINES.                               TOM=SQT             IDP 
  
                                        **        TOM=SQT - HERE FOR SPECIAL 'XXX' *VAR* TOKEN.                  COMCIDP  8009
                                                                                                                 COMCIDP  8010
                                                                                                                 COMCIDP  8011
          4504                           TOM=SQT  BSS    0           ** ENTRY **                                 COMCIDP  8012
          4504  00000002006531 +                  GROUP  (-'"EOS"),VAR,SQZ                                       COMCIDP  8013
          4505  00000000004612 +                  CALT TOK=SQV       CHECK SPECIAL 'VAR' TOKEN                   COMCIDP  8014
          4506  00000000004457 +                  GOTO TOM=NXT                                                   COMCIDP  8015
          4507                           IDPTOM   TOGEL                                                          COMCIDP  8016
  
  
  
  
                                        ***       TOK= - IDP OWNCODE FOR *COMCTOK*.                              COMCIDP  8018
                                        *                                                                        COMCIDP  8019
                                        *                                                                        COMCIDP  8020
  
  
  
  
                                        **        TOK=EOS - END-OF-STMT PROCESSING.                              COMCIDP  8022
                                                                                                                 COMCIDP  8023
                                                                                                                 COMCIDP  8024
          4603                           TOK=EOS  BSS    0           ** ENTRY **                                 COMCIDP  8025
          4603  5110000630 +                      SA1    TB=STMT                                                 COMCIDP  8026
                          43600                   MX6    0                                                       COMCIDP  8027
                               74261              SX2    A6+B1                                                   COMCIDP  8028
          4604  54661                             SA6    A6+B1       MARK EOS                                    COMCIDP  8029
                     37721                        IX7    X2-X1       (X7) = NR OF WORDS IN STMT JUST ENTOKENED   COMCIDP  8030
                                                  LX7    TB.LENP-0                                               COMCIDP  8031
                          53710                   SA7    X1                                                      COMCIDP  8032
                                                                                                                 COMCIDP  8033
                               74761              SX7    A6+B1       (X7) = ADDR OF LEN WORD FOR NEXT/NEW STMT   COMCIDP  8034
          4605  54661                             SA6    A6+B1       MARK BOS                                    COMCIDP  8035
                     54710                        SA7    A1                                                      COMCIDP  8036
                          43473                   MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            COMCIDP  8037
          4606  0607005456 +                      LE     B7,B0,=XTOK IF HERE FROM *ON EOL* PROCESSING, EXIT...   COMCIDP  8038
                          0400005500 +            EQ     =XTOK=MN                                                COMCIDP  8039
  
  
  
  
                                        **        TOK=ER - HERE IF ERROR DURING TOKEN GENERATION.                COMCIDP  8041
                                        *                                                                        COMCIDP  8042
                                        *                                                                        COMCIDP  8043
                                        *         NEED TO CLEAR TOKEN BUFFER, *IDPTB*.                           COMCIDP  8044
                                                                                                                 COMCIDP  8045
                                                                                                                 COMCIDP  8046
          4607                           TOK=ER   BSS    0           ** ENTRY **                                 COMCIDP  8047
          4607  76610                             SX6    B1                                                      COMCIDP  8048
                     13777                        BX7    X7-X7                                                   COMCIDP  8049
                                                  LX6    TB.LENP-0                                               COMCIDP  8050
                          5160000735 +            SA6    IDPTB                                                   COMCIDP  8051
          4610  54761                             SA7    A6+B1       MARK EOS FOR NULL STMT/LINE                 COMCIDP  8052
                     54771                        SA7    A7+B1       MARK EOL FOR NULL STMT/LINE                 COMCIDP  8053
                          0400001320 +            EQ     SE.TOK                                                  COMCIDP  8054
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   223
        IDP 1.1/SUPPORTING SUBROUTINES.                               TOK=SQT             IDP 
  
                                        **        TOK=SQT - HERE IF ' ENCOUNTERED.                               COMCIDP  8056
                                        *                                                                        COMCIDP  8057
                                        *                                                                        COMCIDP  8058
                                                                                                                 COMCIDP  8059
                                                                                                                 COMCIDP  8060
          4611                           TOK=SQT  BSS    0           ** ENTRY **                                 COMCIDP  8061
          4611  5100004504 +                      SA0    TOM=SQT                                                 COMCIDP  8062
                          0400005545 +            EQ     =XTOK=CON   RETURN W/ *NO STORE*...                     COMCIDP  8063
  
  
  
  
                                        **        TOK=SQV - CHECK SPECIAL 'VAR' TOKEN.                           COMCIDP  8065
                                        *                                                                        COMCIDP  8066
                                        *                                                                        COMCIDP  8067
                                                                                                                 COMCIDP  8068
                                                                                                                 COMCIDP  8069
          4612                           TOK=SQV  BSS    0           ** ENTRY **                                 COMCIDP  8070
          4612  55161                             SA1    A6-B1       (A1,X1) = A+C OF TOKEN PRECEDING *VAR*      COMCIDP  8071
                     43473                        MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            COMCIDP  8072
                          7271777775              SX7    X1-O.VAR                                                COMCIDP  8073
          4613  0307004607 +                      ZR     X7,TOK=ER   IF *VAR* TOKEN TOO LONG                     COMCIDP  8074
                          0400005500 +            EQ     =XTOK=MN                                                COMCIDP  8075
  
  
  
  
                                        **        TOK=VAR - PROCESS/CHECK *VAR* TOKEN.                           COMCIDP  8077
                                        *                                                                        COMCIDP  8078
                                        *                                                                        COMCIDP  8079
                                        *         CALL *VAR* (PROCESS *VAR* TOKEN) TO PERFORM THE FOLLOWING --   COMCIDP  8080
                                        *                                                                        COMCIDP  8081
                                        *           1. CHECK TO MAKE SURE THAT *VAR* TOKEN IS ONLY 1 TOKEN LONG, COMCIDP  8082
                                        *              I.E. NR CHARS .LE. 7.                                     COMCIDP  8083
                                        *                                                                        COMCIDP  8084
                                        *           2. IF THIS *VAR* TOKEN IS A REGISTER NAME, CHANGE IT TO      COMCIDP  8085
                                        *              A *REG* TOKEN.                                            COMCIDP  8086
                                                                                                                 COMCIDP  8087
                                                                                                                 COMCIDP  8088
          4614                           TOK=VAR  BSS    0           ** ENTRY **                                 COMCIDP  8089
          4614  54160                             SA1    A6          (A1,X1) = A+C OF *VAR* TOKEN                COMCIDP  8090
                     0100004656 +                 RJ     VAR         PROCESS *VAR* TOKEN                         COMCIDP  8091
          4615  0400005500 +                      EQ     =XTOK=MN                                                COMCIDP  8092
  
  
  
  
                                        **        TOK=VOL - HERE IF *VAR* TOKEN TERMINATED BY *EOL*.             COMCIDP  8094
                                        *                                                                        COMCIDP  8095
                                        *                                                                        COMCIDP  8096
                                        *         HERE VIA *ON EOL,TOK=VOL*.  NEED TO DO THE SAME THING          COMCIDP  8097
                                        *         THAT *TOK=VAR* DOES, **EXCEPT** THAT OUR POINTERS ARE          COMCIDP  8098
                                        *         A LITTLE DIFFERENT.                                            COMCIDP  8099
                                                                                                                 COMCIDP  8100
                                                                                                                 COMCIDP  8101
          4616                           TOK=VOL  BSS    0           ** ENTRY **                                 COMCIDP  8102
          4616  55161                             SA1    A6-B1       (A1,X1) = A+C OF *VAR* TOKEN                COMCIDP  8103
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   224
        IDP 1.1/SUPPORTING SUBROUTINES.                               TOK=VOL             IDP 
  
                     0100004656 +                 RJ     VAR         PROCESS *VAR* TOKEN                         COMCIDP  8104
          4617  0400004603 +                      EQ     TOK=EOS                                                 COMCIDP  8105
  
  
  
  
                                        **        UBK - UNBREAK BREAKS WITHIN A RANGE.                           COMCIDP  8107
                                        *                                                                        COMCIDP  8108
                                        *                                                                        COMCIDP  8109
                                        *         ENTRY  (B2) = LOWER BOUND TO UNBREAK.                          COMCIDP  8110
                                        *                (B3) = UPPER BOUND TO UNBREAK.                          COMCIDP  8111
                                        *                                                                        COMCIDP  8112
                                        *                       I.E. *UBK* WILL UNBREAK ALL BREAKS THAT FALL     COMCIDP  8113
                                        *                       IN THE RANGE --                                  COMCIDP  8114
                                        *                                                                        COMCIDP  8115
                                        *                            ADDR .GE. (B2) .AND. ADDR .LE. (B3)         COMCIDP  8116
                                        *                                                                        COMCIDP  8117
                                        *         EXIT   NONE                                                    COMCIDP  8118
                                        *                                                                        COMCIDP  8119
                                        *         USES   X - 1,2,3,4,6,7                                         COMCIDP  8120
                                        *                A - 1,2,3,4,6,7                                         COMCIDP  8121
                                        *                B - 4,6,7                                               COMCIDP  8122
                                        *                                                                        COMCIDP  8123
                                        *         CALLS  NONE                                                    COMCIDP  8124
                                                                                                                 COMCIDP  8125
                                                                                                                 COMCIDP  8126
          4620  0400404620 +             UBK      SUBR               ** ENTRY/EXIT **                            COMCIDP  8127
          4621  6170777776                        SB7    -1                                                      COMCIDP  8128
                                                                                                                 COMCIDP  8129
          4622  6177000001               UBK2     SB7    B7+1                                                    COMCIDP  8130
                          5117001327 +            SA1    IDPBA+B7                                                COMCIDP  8131
                                                                                                                 COMCIDP  8132
          4623  0301004620 +                      ZR     X1,EXIT.    IF END-OF-TABLE, DONE...                    COMCIDP  8133
                          7261777776              SX6    X1-1                                                    COMCIDP  8134
          4624  0306004622 +                      ZR     X6,UBK2     IF AVAILABLE (EMPTY) ENTRY, IGNORE...       COMCIDP  8135
                                                                                                                 COMCIDP  8136
                          6241000000              SB4    X1+         (B4) = BREAK ADDR                           COMCIDP  8137
          4625  0742004622 +                      LT     B4,B2,UBK2  IF BREAK ADDR TOO LOW                       COMCIDP  8138
                          0734004622 +            GT     B4,B3,UBK2  IF BREAK ADDR TOO HIGH                      COMCIDP  8139
                                                                                                                 COMCIDP  8140
          4626  66677                             SB6    B7+B7       (B6) = ORD INTO *IDPBC* FOR THIS BREAK      COMCIDP  8141
                     5126001342 +                 SA2    IDPBC+B6    (A2,X2) = A+C OF *IDPBC* ENTRY FOR THIS BRK COMCIDP  8142
                               56340              SA3    B4          (X3) = BREAKPOINT (I.E. SHOULD BE *RJ IDP*) COMCIDP  8143
          4627  5140002003 +                      SA4    ST=BRKA     (X4) = *RJ IDP* PLUG FROM *BREAK*           COMCIDP  8144
                          43673                   MX6    -1                                                      COMCIDP  8145
                               10722              BX7    X2                                                      COMCIDP  8146
          4630  37334                             IX3    X3-X4                                                   COMCIDP  8147
                     54610                        SA6    A1          SET TO *THIS ENTRY AVAILABLE*               COMCIDP  8148
                          0313004622 +            NZ     X3,UBK2     IF BREAK ADDR DOESNT HAVE *RJ IDP*          COMCIDP  8149
          4631  56740                             SA7    B4          RESTORE PREVIOUS CONTENTS OF BREAK ADDR     COMCIDP  8150
                     0400004622 +                 EQ     UBK2                                                    COMCIDP  8151
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   225
        IDP 1.1/SUPPORTING SUBROUTINES.                               UFO                 IDP 
  
                                        **        UFO - USER FREEZE OWNCODE.                                     COMCIDP  8153
                                        *                                                                        COMCIDP  8154
                                        *                                                                        COMCIDP  8155
                                        *         *UFO* WILL CALL *UFO=* IF THE IDP INSTALLER/USER               COMCIDP  8156
                                        *         PROVIDED *UFO=* TO ALLOW THE HOST TO PERFORM ITS               COMCIDP  8157
                                        *         OWNCODE RIGHT AFTER IDP *FREEZE*S AN INTERACTIVE               COMCIDP  8158
                                        *         SESSION.                                                       COMCIDP  8159
                                        *                                                                        COMCIDP  8160
                                        *         ENTRY  NONE                                                    COMCIDP  8161
                                        *                                                                        COMCIDP  8162
                                        *         EXIT   NONE                                                    COMCIDP  8163
                                        *                                                                        COMCIDP  8164
                                        *         USES   ALL                                                     COMCIDP  8165
                                        *                                                                        COMCIDP  8166
                                        *         CALLS  UFO=(IF AVAIL)                                          COMCIDP  8167
                                                                                                                 COMCIDP  8168
                                                                                                                 COMCIDP  8169
          4632  0400404632 +             UFO      SUBR               ** ENTRY/EXIT **                            COMCIDP  8170
          4633  6120000000 X                      SB2    =YUFO=                                                  COMCIDP  8171
                          0720004632 +            MI     B2,EXIT.    IF USER DID NOT PROVIDE *UFO=*              COMCIDP  8172
          4634  0100000000 X                      RJ     =YUFO=      USER FREEZE OWNCODE                         COMCIDP  8173
          4635  0400004632 +                      EQ     EXIT.                                                   COMCIDP  8174
  
  
  
  
                                        **        UFR - USER FREEZE RESTART OWNCODE.                             COMCIDP  8176
                                        *                                                                        COMCIDP  8177
                                        *                                                                        COMCIDP  8178
                                        *         *UFR* WILL CALL *UFR=* IF THE INSTALLER/USER                   COMCIDP  8179
                                        *         PROVIDED *UFR=* TO ALLOW THE HOST TO PERFORM ITS               COMCIDP  8180
                                        *         OWNCODE RIGHT AFTER IDP RESTARTS A FROZEN INTERACTIVE          COMCIDP  8181
                                        *         SESSION.                                                       COMCIDP  8182
                                        *                                                                        COMCIDP  8183
                                        *         ENTRY  NONE                                                    COMCIDP  8184
                                        *                                                                        COMCIDP  8185
                                        *         EXIT   NONE                                                    COMCIDP  8186
                                        *                                                                        COMCIDP  8187
                                        *         USES   ALL                                                     COMCIDP  8188
                                        *                                                                        COMCIDP  8189
                                        *         CALLS  UFR=(IF AVAIL)                                          COMCIDP  8190
                                                                                                                 COMCIDP  8191
                                                                                                                 COMCIDP  8192
          4636  0400404636 +             UFR      SUBR               ** ENTRY/EXIT **                            COMCIDP  8193
          4637  6120000000 X                      SB2    =YUFR=                                                  COMCIDP  8194
                          0720004636 +            MI     B2,EXIT.    IF USER DID NOT PROVIDE *UFR=*              COMCIDP  8195
          4640  0100000000 X                      RJ     =YUFR=      USER FREEZE RESTART OWNCODE                 COMCIDP  8196
          4641  0400004636 +                      EQ     EXIT.                                                   COMCIDP  8197
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   226
        IDP 1.1/SUPPORTING SUBROUTINES.                               UIO                 IDP 
  
                                        **        UIO - USER IDP OWNCODE.                                        COMCIDP  8199
                                        *                                                                        COMCIDP  8200
                                        *                                                                        COMCIDP  8201
                                        *         *UIO* WILL CALL *UIO=* TO ALLOW THE HOST TO PERFORM            COMCIDP  8202
                                        *         ITS OWNCODE IF THE IDP INSTALLER PROVIDED *UIO=*.              COMCIDP  8203
                                        *                                                                        COMCIDP  8204
                                        *         ENTRY  (FW=PARM) = FWA OF PARAMETER LIST FOR THIS *BREAK*.     COMCIDP  8205
                                        *                                                                        COMCIDP  8206
                                        *         EXIT   (X1) = .MI. IF BREAK IS TO BE HONORED, ELSE .PL.        COMCIDP  8207
                                        *                (X5) = FWA OF *BREAK* PARAMETER LIST.                   COMCIDP  8208
                                        *                                                                        COMCIDP  8209
                                        *         USES   ALL                                                     COMCIDP  8210
                                        *                                                                        COMCIDP  8211
                                        *         CALLS  UIO=(IF AVAIL)                                          COMCIDP  8212
                                                                                                                 COMCIDP  8213
                                                                                                                 COMCIDP  8214
          4642  0400404642 +             UIO      SUBR               ** ENTRY/EXIT **                            COMCIDP  8215
          4643  7110000104 +                      SX1    =YUIO=                                                  COMCIDP  8216
                          5150000452 +            SA5    FW=PARM     (X5) = FWA OF PARAMETER LIST                COMCIDP  8217
          4644  0331004642 +                      MI     X1,EXIT.    IF USER DID NOT PROVIDE *UIO=*              COMCIDP  8218
                          0100000104 +            RJ     =YUIO=      USER IDP OWNCODE                            COMCIDP  8219
          4645  5150000452 +                      SA5    FW=PARM     RESTORE (X5)                                COMCIDP  8220
                          0400004642 +            EQ     EXIT.                                                   COMCIDP  8221
                                         .IDPOS   ENDIF                                                          CCGA018    38
  
  
  
  
                                        **        URO - USER *REG* OWNCODE.                                      COMCIDP  8223
                                        *                                                                        COMCIDP  8224
                                        *                                                                        COMCIDP  8225
                                        *         *URO* WILL CALL *URO=* TO ALLOW THE HOST TO PERFORM            COMCIDP  8226
                                        *         ITS OWNCODE IF THE IDP INSTALLER PROVIDED *URO=*.              COMCIDP  8227
                                        *                                                                        COMCIDP  8228
                                        *         ENTRY  (FW=PARM) = FWA OF PARAMETER LIST FOR THIS *REG*.       COMCIDP  8229
                                        *                                                                        COMCIDP  8230
                                        *         EXIT   (X1) = .MI. IF REG IS TO BE HONORED, ELSE .PL.          COMCIDP  8231
                                        *                (X5) = FWA OF *REG* PARAMETER LIST.                     COMCIDP  8232
                                        *                                                                        COMCIDP  8233
                                        *         USES   ALL                                                     COMCIDP  8234
                                        *                                                                        COMCIDP  8235
                                        *         CALLS  URO=(IF AVAIL)                                          COMCIDP  8236
                                                                                                                 COMCIDP  8237
                                                                                                                 COMCIDP  8238
          4646  0400404646 +             URO      SUBR               ** ENTRY/EXIT **                            COMCIDP  8239
          4647  7110000113 +                      SX1    =YURO=                                                  COMCIDP  8240
                          5150000452 +            SA5    FW=PARM     (X5) = FWA OF PARAMETER LIST                COMCIDP  8241
          4650  0331004646 +                      MI     X1,EXIT.    IF USER DID NOT PROVIDE *URO=*              COMCIDP  8242
                          0100000113 +            RJ     =YURO=      USER *REG* OWNCODE                          COMCIDP  8243
          4651  5150000452 +                      SA5    FW=PARM     RESTORE (X5)                                COMCIDP  8244
                          0400004646 +            EQ     EXIT.                                                   COMCIDP  8245
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   227
        IDP 1.1/SUPPORTING SUBROUTINES.                               USO                 IDP 
  
                                        **        USO - USER *SNP* OWNCODE.                                      COMCIDP  8247
                                        *                                                                        COMCIDP  8248
                                        *                                                                        COMCIDP  8249
                                        *         *USO* WILL CALL *USO=* TO ALLOW THE HOST TO PERFORM            COMCIDP  8250
                                        *         ITS OWNCODE IF THE IDP INSTALLER PROVIDED *USO=*.              COMCIDP  8251
                                        *                                                                        COMCIDP  8252
                                        *         ENTRY  (FW=PARM) = FWA OF PARAMETER LIST FOR THIS *SNAP*.      COMCIDP  8253
                                        *                                                                        COMCIDP  8254
                                        *         EXIT   (X1) = .MI. IF SNAP IS TO BE HONORED, ELSE .PL.         COMCIDP  8255
                                        *                (X5) = FWA OF *SNAP* PARAMETER LIST.                    COMCIDP  8256
                                        *                                                                        COMCIDP  8257
                                        *         USES   ALL                                                     COMCIDP  8258
                                        *                                                                        COMCIDP  8259
                                        *         CALLS  USO=(IF AVAIL)                                          COMCIDP  8260
                                                                                                                 COMCIDP  8261
                                                                                                                 COMCIDP  8262
          4652  0400404652 +             USO      SUBR               ** ENTRY/EXIT **                            COMCIDP  8263
          4653  7110000121 +                      SX1    =YUSO=                                                  COMCIDP  8264
                          5150000452 +            SA5    FW=PARM     (X5) = FWA OF PARAMETER LIST                COMCIDP  8265
          4654  0331004652 +                      MI     X1,EXIT.    IF USER DID NOT PROVIDE *USO=*              COMCIDP  8266
                          0100000121 +            RJ     =YUSO=      USER *SNP* OWNCODE                          COMCIDP  8267
          4655  5150000452 +                      SA5    FW=PARM     RESTORE (X5)                                COMCIDP  8268
                          0400004652 +            EQ     EXIT.                                                   COMCIDP  8269
  
  
  
  
                                         .IDPOS   IFNE   .OS,2                                                   CCGA018    39
                                        **        VAR - PROCESS *VAR* TOKEN.                                     COMCIDP  8271
                                        *                                                                        COMCIDP  8272
                                        *                                                                        COMCIDP  8273
                                        *         THIS ROUTINE PERFORMS SOME SPECIAL CASE PROCESSING             COMCIDP  8274
                                        *         UPON A VARIABLE NAME, *VAR*, TOKEN DURING TOKEN                COMCIDP  8275
                                        *         GENERATION --                                                  COMCIDP  8276
                                        *                                                                        COMCIDP  8277
                                        *           1. *VAR* MAKES SURE THAT THIS *VAR* TOKEN IS NOT             COMCIDP  8278
                                        *              TOO LONG, I.E. NR CHARS .LE. 7.  THIS IS NECESSARY        COMCIDP  8279
                                        *              FOR 2 PRIMARY REASONS:  FIRST, IDP IS NOT SET UP          COMCIDP  8280
                                        *              TO HANDLE A *VAR* TOKEN THAT IS LONGER THAN A SINGLE      COMCIDP  8281
                                        *              CM WORD.  CHECKING FOR THIS CONDITION EARLY (I.E. DURING  COMCIDP  8282
                                        *              TOKEN GENERATION) SHOULD SIMPLIFY THE WORK OF OTHERS.     COMCIDP  8283
                                        *                                                                        COMCIDP  8284
                                        *              SECOND, BECAUSE *COMCTOK* CAN NOT BE TOLD TO GENERATE     COMCIDP  8285
                                        *              A *VAR* TOKEN THAT IS 1 CM WORD LONG, WE HAVE TO CHECK    COMCIDP  8286
                                        *              OURSELVES.                                                COMCIDP  8287
                                        *                                                                        COMCIDP  8288
                                        *           2. BECAUSE HARDWARE REGISTER NAMES **LOOK** LIKE             COMCIDP  8289
                                        *              VARIABLE NAMES, IT IS THE RESPONSIBILITY OF *VAR* TO      COMCIDP  8290
                                        *              CHECK FOR, AND REPLACE REGISTER NAMES WITH AN APPROPRIATE COMCIDP  8291
                                        *              *REG* TOKEN.                                              COMCIDP  8292
                                        *                                                                        COMCIDP  8293
                                        *         ENTRY  (A1,X1) = A+C OF *VAR* TOKEN TO CHECK.                  COMCIDP  8294
                                        *                                                                        COMCIDP  8295
                                        *         EXIT   (A6)+1  = ADDR TO STORE NEXT TOKEN.                     COMCIDP  8296
                                        *                                                                        COMCIDP  8297
                                        *                TO *TOK=ER* IF *VAR* TOKEN TOO LONG.                    COMCIDP  8298
                                        *                                                                        COMCIDP  8299
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   228
        IDP 1.1/SUPPORTING SUBROUTINES.                               VAR                 IDP 
  
                                        *         USES   X - 1,2,3,6,7                                           COMCIDP  8300
                                        *                A - 2,3,6                                               COMCIDP  8301
                                        *                B - 2                                                   COMCIDP  8302
                                        *                                                                        COMCIDP  8303
                                        *         CALLS  TOK=ER                                                  COMCIDP  8304
                                                                                                                 COMCIDP  8305
                                                                                                                 COMCIDP  8306
          4656  0400404656 +             VAR      SUBR               ** ENTRY/EXIT **                            COMCIDP  8307
          4657  55311                             SA3    A1-B1       (A3,X3) = A+C OF TOKEN PRECEDING *VAR*      COMCIDP  8308
                     5120006171 +                 SA2    MX=BAX      (X2) = *BAX* CHARACTER SHIFT MASK           COMCIDP  8309
                               20106              LX1    CHAR                                                    COMCIDP  8310
          4660  7273777775                        SX7    X3-O.VAR                                                COMCIDP  8311
                          0307004607 +            ZR     X7,TOK=ER   IF VARIABLE NAME IS TOO LONG, ERROR...      COMCIDP  8312
                                                                                                                 COMCIDP  8313
                                        *         CHECK FOR REGISTER NAME.                                       COMCIDP  8314
                                                                                                                 COMCIDP  8315
          4661  15610                             BX6    -X0*X1                                                  COMCIDP  8316
                     20106                        LX1    CHAR                                                    COMCIDP  8317
                          63260                   SB2    X6                                                      COMCIDP  8318
                               22222              LX2    B2                                                      COMCIDP  8319
          4662  0322004656 +                      PL     X2,EXIT.    IF 1ST CHAR IS NOT *BAX*                    COMCIDP  8320
                          7170000020              SX7    020B        (X7) = 0TR, FOR -X- REG                     COMCIDP  8321
          4663  6226777747                        SB2    X6-1RX                                                  COMCIDP  8322
                          0420004666 +            ZR     B2,VAR2     IF -X- REG                                  COMCIDP  8323
          4664  6226777775                        SB2    X6-1RB                                                  COMCIDP  8324
                          7170000000              SX7    000B        (X7) = 0TR, FOR -B- REG                     COMCIDP  8325
          4665  0420004666 +                      ZR     B2,VAR2     IF -B- REG                                  COMCIDP  8326
                          7170000010              SX7    010B        (X7) = 0TR, FOR -A- REG                     COMCIDP  8327
                                                                                                                 COMCIDP  8328
          4666  5120006172 +             VAR2     SA2    MX=0..7     (X2) = *01234567* CHAR SHIFT MASK           COMCIDP  8329
                          15610                   BX6    -X0*X1                                                  COMCIDP  8330
                               20106              LX1    CHAR                                                    COMCIDP  8331
          4667  63260                             SB2    X6                                                      COMCIDP  8332
                     22222                        LX2    B2                                                      COMCIDP  8333
                          0322004656 +            PL     X2,EXIT.    IF 2ND CHAR IS NOT *0..7*                   COMCIDP  8334
          4670  7266777744                        SX6    X6-1R0                                                  COMCIDP  8335
                          43236                   MX2    5*CHAR                                                  COMCIDP  8336
                               36376              IX3    X7+X6       (X7) = 0TR                                  COMCIDP  8337
          4671  11621                             BX6    X2*X1                                                   COMCIDP  8338
                     20322                        LX3    TB.0TRP-0                                               COMCIDP  8339
                          0316004656 +            NZ     X6,EXIT.    IF 3RD THRU 7TH CHARS NON-NULL              COMCIDP  8340
          4672  7110000004                        SX1    O.REG                                                   COMCIDP  8341
                          12631                   BX6    X3+X1       MERGE *0TR* AND *TOT*                       COMCIDP  8342
                               54610              SA6    A1                                                      COMCIDP  8343
          4673  0400004656 +                      EQ     EXIT.                                                   COMCIDP  8344
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   229
        IDP 1.1/SUPPORTING SUBROUTINES.                               VFD                 IDP 
  
                                        **        VFD - VARIABLE FIELD DEFINITION.                               COMCIDP  8346
                                        *                                                                        COMCIDP  8347
                                        *                                                                        COMCIDP  8348
                                        *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL    COMCIDP  8349
                                        *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.          COMCIDP  8350
                                        *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY-- COMCIDP  8351
                                        *                                                                        COMCIDP  8352
                                        *         POS    (B4)   IN (X1)                                          COMCIDP  8353
                                        *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1) COMCIDP  8354
                                        *                                                                        COMCIDP  8355
                                        *         E.G.   (B4) = 45   POSITION COUNTER                            COMCIDP  8356
                                        *                (B5) = 30   NR OF BITS                                  COMCIDP  8357
                                        *                                                                        COMCIDP  8358
                                        *                BINARY      76211031100015620310                        COMCIDP  8359
                                        *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))      COMCIDP  8360
                                        *                                                                        COMCIDP  8361
                                        *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                    COMCIDP  8362
                                        *                (B4)  =  POSITION COUNTER                               COMCIDP  8363
                                        *                (B5)  =  NR OF BITS IN FIELD                            COMCIDP  8364
                                        *                                                                        COMCIDP  8365
                                        *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT  COMCIDP  8366
                                        *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT  COMCIDP  8367
                                        *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,         COMCIDP  8368
                                        *                            ELSE .NZ.                                   COMCIDP  8369
                                        *                                                                        COMCIDP  8370
                                        *         USES   X - 0,1,2,3,4,6,7                                       COMCIDP  8371
                                        *                A - NONE                                                COMCIDP  8372
                                        *                B - 6                                                   COMCIDP  8373
                                        *                                                                        COMCIDP  8374
                                        *         CALLS  NONE                                                    COMCIDP  8375
                                                                                                                 COMCIDP  8376
                                                                                                                 COMCIDP  8377
          4674  0400404674 +             VFD      SUBR               ** ENTRY/EXIT **                            COMCIDP  8378
          4675  43300                             MX3    0                                                       COMCIDP  8379
                     13000                        BX0    X0-X0                                                   COMCIDP  8380
                          6165777776              SB6    B5-1                                                    COMCIDP  8381
          4676  0740004674 +                      LT     B4,B0,EXIT. IF POS COUNT IS BAD                         COMCIDP  8382
                          0750004674 +            LT     B5,B0,EXIT. IF BIT COUNT IS BAD                         COMCIDP  8383
          4677  43071                             MX0    -3                                                      COMCIDP  8384
                     0450004701 +                 ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                  COMCIDP  8385
                               43301              MX3    1                                                       COMCIDP  8386
          4700  23363                             AX3    X3,B6                                                   COMCIDP  8387
                     46000                        NO                                                             COMCIDP  8388
                          22343                   LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT     COMCIDP  8389
                               11131              BX1    X3*X1                                                   COMCIDP  8390
                                                                                                                 COMCIDP  8391
          4701  43600                    VFD2     MX6    0                                                       COMCIDP  8392
                     13777                        BX7    X7-X7                                                   COMCIDP  8393
                          6160000074              SB6    60                                                      COMCIDP  8394
                                                                                                                 COMCIDP  8395
                                        *         ASSEMBLE APPROPRIATE DIGITS.                                   COMCIDP  8396
                                                                                                                 COMCIDP  8397
          4702  20103                    VFD3     LX1    3                                                       COMCIDP  8398
                     15210                        BX2    -X0*X1                                                  COMCIDP  8399
                          20303                   LX3    3                                                       COMCIDP  8400
                               15430              BX4    -X0*X3                                                  COMCIDP  8401
          4703  7222000033                        SX2    X2+1R0                                                  COMCIDP  8402
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   230
        IDP 1.1/SUPPORTING SUBROUTINES.                               VFD                 IDP 
  
                          6166777771              SB6    B6-6                                                    COMCIDP  8403
          4704  0314004705 +                      NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                  COMCIDP  8404
                          7120000055              SX2    1R                                                      COMCIDP  8405
                                                                                                                 COMCIDP  8406
          4705  22262                    VFD4     LX2    X2,B6                                                   COMCIDP  8407
                     12772                        BX7    X7+X2                                                   COMCIDP  8408
                          0706004702 +            GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                COMCIDP  8409
                                                                                                                 COMCIDP  8410
                                        *         HERE IF PACKING REGISTER (X7) IS FULL.                         COMCIDP  8411
                                                                                                                 COMCIDP  8412
          4706  6160000074                        SB6    60                                                      COMCIDP  8413
                          0316004674 +            NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD          COMCIDP  8414
          4707  10677                             BX6    X7                                                      COMCIDP  8415
                     43700                        MX7    0                                                       COMCIDP  8416
                          0400004702 +            EQ     VFD3                                                    COMCIDP  8417
                                         .IDPOS   ENDIF                                                          CCGA018    40
  
  
  
  
                                 D_D              BASE   *                                                       COMCIDP  8419
                                         QUAL$    IF     -DEF,QUAL$                                              COMCIDP  8420
                                                  QUAL   *                                                       COMCIDP  8421
                                         IDP=     =      /COMCIDP/IDP=                                           COMCIDP  8422
                                         ROL=     =      /COMCIDP/ROL=                                           COMCIDP  8423
                                                                                                                 COMCIDP  8424
                                                  IF     DEF,/COMCIDP/.OS,1                                      COMCIDP  8425
                                         .OS      =      /COMCIDP/.OS                                            COMCIDP  8426
                                         IDP=ER   =      /COMCIDP/IDP=ER                                         COMCIDP  8427
                                         IDP=ERR  =      /COMCIDP/IDP=ERR                                        COMCIDP  8428
                                         IDP=MN   =      /COMCIDP/IDP=MN                                         COMCIDP  8429
                                         IDP=SVB  =      /COMCIDP/IDP=SVB                                        COMCIDP  8430
                                         IDP=SVA  =      /COMCIDP/IDP=SVA                                        COMCIDP  8431
                                         IDP=SVX  =      /COMCIDP/IDP=SVX                                        COMCIDP  8432
                                                                                                                 COMCIDP  8433
                                         REG=     =      /COMCIDP/REG=                                           COMCIDP  8434
                                         SNP=     =      /COMCIDP/SNP=                                           COMCIDP  8435
                                         QUAL$    ENDIF                                                          COMCIDP  8436
                                         COMCIDP  ENDX                                                           COMCIDP  8437
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  310
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   231
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
          4710                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   232
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        *         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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   233
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        *         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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   234
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        ************************************************************************ 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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   235
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        **        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   236
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        *                (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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   237
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        *                                                                        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   238
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
                                        *                          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
          4710  0400404710 +             BUB      SUBR               ** ENTRY/EXIT **                            COMCBUB   402
                                                                                                                 COMCBUB   403
                                        *         INITIALIZATION.                                                COMCBUB   404
                                                                                                                 COMCBUB   405
          4711  5130000074                        SA3    60D         (A3) = NR OF BITS IN A WORD (CONSTANT)      COMCBUB   406
                          5120006170 +            SA2    =10H                                                    COMCBUB   407
          4712  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
          4713  65737                             SB7    A3-B7       (B7) = -(BIT COUNT - 60D)                   COMCBUB   411
                     0334004717 +                 MI     X4,BUB3     IF (X4) DOES NOT CONTAIN A USEABLE CHAR     COMCBUB   412
          4714  6166000006                        SB6    B6+CHAR                                                 COMCBUB   413
                          0400004720 +            EQ     BUB4                                                    COMCBUB   414
                                                                                                                 COMCBUB   415
                                        *         BURST/BUILD LOOP  ** INSTACK **                                COMCBUB   416
                                                                                                                 COMCBUB   417
          4715  64737                    BUB2     SB7    B7+A3                                                   COMCBUB   418
                     54551                        SA5    A5+B1                                                   COMCBUB   419
                          0670004726 +            GE     B7,B0,BUB5  IF NO MORE SOURCE WORDS TO BU/BU            COMCBUB   420
          4716  37752                             IX7    X5-X2                                                   COMCBUB   421
                     64630                        SB6    A3                                                      COMCBUB   422
                          0307004715 +            ZR     X7,BUB2     IF NEXT SOURCE WORD IS ALL BLANK, IGNORE... COMCBUB   423
                                                                                                                 COMCBUB   424
          4717  20506                    BUB3     LX5    CHAR                                                    COMCBUB   425
                     0606004715 +                 LE     B6,B0,BUB2  IF SOURCE WORD (X5) IS EXHAUSTED            COMCBUB   426
                               15450              BX4    -X0*X5                                                  COMCBUB   427
                                                                                                                 COMCBUB   428
          4720  6166777771               BUB4     SB6    B6-CHAR                                                 COMCBUB   429
                          6224007763              SB2    X4+10000B-BICH                                          COMCBUB   430
          4721  22721                             LX7    X1,B2                                                   COMCBUB   431
                     0425004717 +                 EQ     B2,B5,BUB3  IF NEXT CHAR TO PACK IS A BLANK (55B)       COMCBUB   432
                               22334              LX3    X4,B3                                                   COMCBUB   433
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   239
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 IDP 
  
          4722  0327004727 +                      PL     X7,BUB6     IF NEXT CHAR TO PACK NOT IN THIS GROUP      COMCBUB   434
                          6133777771              SB3    B3-CHAR                                                 COMCBUB   435
          4723  12663                             BX6    X6+X3                                                   COMCBUB   436
                     0634004717 +                 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
          4724  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
          4725  0400004717 +                      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
          4726  65637                    BUB5     SB6    A3-B7                                                   COMCBUB   455
                     0706004717 +                 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
          4727  6143777711               BUB6     SB4    B3-BB.TOCP-BB.TOCL+CHAR                                 COMCBUB   460
                          65737                   SB7    A3-B7       RESTORE (B7) TO A CIVIL FORM                COMCBUB   461
          4730  0440004710 +                      ZR     B4,EXIT.    IF (X6) IS EMPTY, DONE...                   COMCBUB   462
                          5066000001              SA6    A6+1                                                    COMCBUB   463
          4731  0400004710 +                      EQ     EXIT.                                                   COMCBUB   464
  
  
  
  
                                 D_D              BASE   *                                                       COMCBUB   466
                                         QUAL$    IF     -DEF,QUAL$                                              COMCBUB   467
                                                  QUAL   *                                                       COMCBUB   468
                                         BUB      =      /COMCBUB/BUB                                            COMCBUB   469
                                         QUAL$    ENDIF                                                          COMCBUB   470
                                         COMCBUB  ENDX                                                           COMCBUB   471
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   240
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN                 IDP 
  
          4731                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   241
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN                 IDP 
  
                                        *                                                                        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   242
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BB.                 IDP 
  
                                         .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
          4732  0400404732 +             BUN      SUBR               ** ENTRY/EXIT **                            COMCBUN   137
                                                                                                                 COMCBUN   138
                                        *         INITIALIZATION.                                                COMCBUN   139
                                                                                                                 COMCBUN   140
          4733  5130000074                        SA3    60D         (A3) = NR OF BITS IN A WORD (CONSTANT)      COMCBUN   141
                          6140000022              SB4    BN.TOCP     (B4) = LOWEST BIT POSITION THAT WE CAN      COMCBUN   142
                                        *                                   SHIFT CHARS INTO (X6)                COMCBUN   143
          4734  65737                             SB7    A3-B7       (B7) = -(BIT COUNT-60)                      COMCBUN   144
                     0334004740 +                 MI     X4,BUN3     IF (X4) DOES NOT CONTAIN A USEABLE CHAR     COMCBUN   145
          4735  6166000006                        SB6    B6+CHAR                                                 COMCBUN   146
                          0400004741 +            EQ     BUN4                                                    COMCBUN   147
                                                                                                                 COMCBUN   148
                                        *         BURST/BUILD LOOP  ** INSTACK **                                COMCBUN   149
                                                                                                                 COMCBUN   150
          4736  6177000074               BUN2     SB7    B7+60D                                                  COMCBUN   151
                          5055000001              SA5    A5+1                                                    COMCBUN   152
          4737  0670004747 +                      GE     B7,B0,BUN5  IF NO MORE SOURCE WORDS TO BU/BU            COMCBUN   153
                          6160000074              SB6    10*CHAR                                                 COMCBUN   154
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   243
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN                 IDP 
  
                                                                                                                 COMCBUN   155
          4740  20506                    BUN3     LX5    CHAR                                                    COMCBUN   156
                     0606004736 +                 LE     B6,B0,BUN2  IF SOURCE WORD (X5) IS EXHAUSTED            COMCBUN   157
                               15450              BX4    -X0*X5                                                  COMCBUN   158
                                                                                                                 COMCBUN   159
          4741  6166777771               BUN4     SB6    B6-CHAR                                                 COMCBUN   160
                          6224007763              SB2    X4+10000B-BICH                                          COMCBUN   161
          4742  22721                             LX7    X1,B2                                                   COMCBUN   162
                     0450004750 +                 EQ     B5,B0,BUN6  IF CHARACTER COUNT EXHAUSTED                COMCBUN   163
                               22334              LX3    X4,B3                                                   COMCBUN   164
          4743  0327004750 +                      PL     X7,BUN6     IF NEXT CHAR TO PACK NOT IN THIS GROUP      COMCBUN   165
                          6133777771              SB3    B3-CHAR                                                 COMCBUN   166
          4744  67551                             SB5    B5-B1                                                   COMCBUN   167
                     12663                        BX6    X6+X3                                                   COMCBUN   168
                          0634004740 +            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
          4745  43352                             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
          4746  15663                             BX6    -X3*X6      CLEAR *TOC*                                 COMCBUN   177
                     0400004740 +                 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
          4747  65637                    BUN5     SB6    A3-B7                                                   COMCBUN   187
                     0706004740 +                 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
          4750  6143777711               BUN6     SB4    B3-BN.TOCP-BN.TOCL+CHAR                                 COMCBUN   192
                          65737                   SB7    A3-B7       RESTORE (B7) TO A CIVIL/HUMAN NUMBER        COMCBUN   193
          4751  0440004732 +                      ZR     B4,EXIT.    IF (X6) IS EMPTY, DONE...                   COMCBUN   194
                          5066000001              SA6    A6+1                                                    COMCBUN   195
          4752  0400004732 +                      EQ     EXIT.                                                   COMCBUN   196
  
  
  
  
                                 D_D              BASE   *                                                       COMCBUN   198
                                         QUAL$    IF     -DEF,QUAL$                                              COMCBUN   199
                                                  QUAL   *                                                       COMCBUN   200
                                         BUN      =      /COMCBUN/BUN                                            COMCBUN   201
                                         QUAL$    ENDIF                                                          COMCBUN   202
                                         COMCBUN  ENDX                                                           COMCBUN   203
                                         #IDPOS   ENDIF                                                          FC5A158A  311
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   244
        COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.        CDD                 IDP 
  
          4752                           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
          4753  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
          4754  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   245
        COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.        CDD                 IDP 
  
          4755  0317004753 +                      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
          4756  0400404756 +             CDD      SUBR               ENTRY/EXIT                                  COMCCDD    45
          4757  5120004762 +                      SA2    CDDA        =.1P48+1                                    COMCCDD    46
                          54321                   SA3    A2+B1       =10.P                                       COMCCDD    47
                               27101              PX1    X1                                                      COMCCDD    48
          4760  66200                             SB2    B0          CLEAR JUSTIFY COUNT                         COMCCDD    49
                     54431                        SA4    A3+B1       =1H                                         COMCCDD    50
                          6130777755              SB3    1R0-1R      (B3) = CONVERSION CONSTANT                  COMCCDD    51
          4761  6140000006                        SB4    6           (B4) = SHIFT INCREMENT                      COMCCDD    52
                          0400004753 +            EQ     CDD1                                                    COMCCDD    53
                                                                                                                 COMCCDD    54
          4762  17170631463146314632     CDDA     CON    0.1P48+1                                                COMCCDD    55
          4763  20000000000000000012              CON    10.P                                                    COMCCDD    56
          4764  55555555555555555555              CON    1H                                                      COMCCDD    57
  
  
  
  
                                 D_D              BASE   *                                                       COMCCDD    59
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCDD    60
                                                  QUAL   *                                                       COMCCDD    61
                                         CDD      EQU    /COMCCDD/CDD                                            COMCCDD    62
                                         CDD=     EQU    /COMCCDD/CDD                                            F4720D      6
                                         QUAL$    ENDIF                                                          COMCCDD    63
                                         CDD      ENDX                                                           COMCCDD    64
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  312
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   246
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 IDP 
  
          4765                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   247
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 IDP 
  
                                        *                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
          4765  0100005435 +             CIO2     RECALL X2          WAIT COMPLETION OF LAST REQUEST             COMCCIO    62
          4766  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
          4767  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
          4770  0322004772 +                      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
          4771  54710                             SA7    A1          STORE FET STATUS                            CPS0307    14
                     13777                        BX7    X7-X7       CLEAR ERROR STATUS                          CPS0307    15
                          0400004775 +            EQ     CIO=        RETURN                                      CPS0307    16
                                                                                                                 CPS0307    17
          4772  0327004773 +             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
          4773  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   248
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 IDP 
  
                                                  NZ     X1,CIO1     IF ERROR ON LAST OPERATION                  COMCCIO    87
                                                  SA7    X2          STORE FET STATUS                            COMCCIO    88
                                         ERP$     ENDIF                                                          COMCCIO    89
          4774  73220                             SX2    X2          UNPACK FET ADDRESS                          COMCCIO    90
                     13777                        BX7    X7-X7       CLEAR ERROR STATUS                          COMCCIO    91
                          0100005416 +            SYSTEM             MAKE REQUEST TO *CIO*                       COMCCIO    92
                                                                                                                 COMCCIO    93
          4775  0400404775 +             CIO=     SUBR               ENTRY/EXIT                                  COMCCIO    94
          4776  53120                             SA1    X2          CHECK FET STATUS                            COMCCIO    95
                     20173                        LX1    59-0                                                    COMCCIO    96
                          0331004766 +            NG     X1,CIO3     IF FET NOT BUSY                             COMCCIO    97
          4777  0311004765 +                      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
          5000  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
          5001  0400004775 +                      EQ     CIO=        RETURN                                      CPSA104    13
  
  
  
  
                                 D_D              BASE   *                                                       COMCCIO   112
                                 D_D              CODE   *                                                       COMCCIO   113
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCIO   114
                                                  QUAL   *                                                       COMCCIO   115
                                         CIO=     EQU    /COMCCIO/CIO=                                           COMCCIO   116
                                         QUAL$    ENDIF                                                          COMCCIO   117
                                         CIO      ENDX                                                           COMCCIO   118
                                         #IDPOS   ENDIF                                                          FC5A158A  313
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   249
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.          COD                 IDP 
  
          5001                           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
          5002  0400405002 +             COD      SUBR               ENTRY/EXIT                                  COMCCOD    33
          5003  5140005010 +                      SA4    CODA        =1H                                         COMCCOD    34
                          6130000006              SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD    35
          5004  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
          5005  15712                    COD1     BX7    -X2*X1      EXTRACT DIGIT                               COMCCOD    39
                     20466                        LX4    -6          SHIFT ASSEMBLY                              COMCCOD    40
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   250
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.          COD                 IDP 
  
                          66223                   SB2    B2+B3                                                   COMCCOD    41
                               73374              SX3    X7+B4       CONVERT DIGIT                               COMCCOD    42
          5006  21103                             AX1    3           SHIFT OFF DIGIT                             COMCCOD    43
                     36443                        IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD    44
                          0311005005 +            NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD    45
          5007  20466                             LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD    46
                     22624                        LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD    47
                          0400005002 +            EQ     CODX        RETURN                                      COMCCOD    48
                                                                                                                 COMCCOD    49
          5010  55555555555555555555     CODA     CON    1H                                                      COMCCOD    50
  
  
  
  
                                 D_D              BASE   *                                                       COMCCOD    52
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCOD    53
                                                  QUAL   *                                                       COMCCOD    54
                                         COD      EQU    /COMCCOD/COD                                            COMCCOD    55
                                         COD=     EQU    /COMCCOD/COD                                            F4720D      8
                                         QUAL$    ENDIF                                                          COMCCOD    56
                                         COD      ENDX                                                           COMCCOD    57
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   251
        COMCDXB - CONVERT DISPLAY CODE TO BINARY.                     DXB                 IDP 
  
          5011                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   252
        COMCDXB - CONVERT DISPLAY CODE TO BINARY.                     DXB                 IDP 
  
                                        *                (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
          5011  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
          5012  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
          5013  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
          5014  73113                             SX1    X1+B3       CONVERT CHARACTER                           COMCDXB    61
                     11505                        BX5    X0*X5       CLEAR CHARACTER                             COMCDXB    62
                          0332005011 +            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
                                                  SB3    B7          OCTAL/DECIMAL FLAG                          COMCDXB    68
                                                  ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    69
                                                  SB3    B4-B2                                                   COMCDXB    70
                                                  ZR     B3,DXB3     IF EXPLICIT *B*                             COMCDXB    71
                                                  NE     B3,B2,DXBX  IF OTHER BUT NOT *D* (ERROR), RETURN        COMCDXB    72
                                         DXB3     NZ     X5,DXBX     IF MORE CHARACTERS (ERROR), RETURN          COMCDXB    73
                                                  SX4    B5+         CLEAR ERROR FLAG UNLESS 8 OR 9 PRESENT      COMCDXB    74
                                                  ZR     B3,DXBX     IF BASE = OCTAL, RETURN                     COMCDXB    75
                                                  BX6    X7          SET DECIMAL                                 COMCDXB    76
                                                  SX4    B0          CLEAR ERROR FLAG                            COMCDXB    77
                                         DXB1$    ELSE                                                           COMCDXB    78
          5015  66357                             SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                   COMCDXB    79
                     0440005021 +                 ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    80
                               67342              SB3    B4-B2                                                   CPS0279     8
          5016  0315005022 +                      NZ     X5,DXBX     IF NOT LAST CHARACTER, RETURN               COMCDXB    82
                          0432005021 +            EQ     B3,B2,DXB3  IF *D*                                      CPS0279     9
          5017  0530005022 +                      NZ     B3,DXBX     IF NOT *B*                                  CPS0279    10
                          0550005022 +            NZ     B5,DXBX     IF 8/9 PRESENT.                             CPS0279    11
          5020  66300                             SB3    B0          SET OCTAL                                   COMCDXB    86
          5021  43400                    DXB3     MX4    0           CLEAR ERROR                                 COMCDXB    87
                     0430005022 +                 ZR     B3,DXBX     IF BASE = OCTAL, RETURN                     COMCDXB    88
                               10677              BX6    X7          SET DECIMAL                                 COMCDXB    89
                                         DXB1$    ENDIF                                                          COMCDXB    90
                                                                                                                 COMCDXB    91
          5022  0400405022 +             DXB      SUBR               ENTRY/EXIT                                  COMCDXB    92
          5023  7140007774                        SX4    7774B       MASK FOR (0123456789)                       COMCDXB    93
                          43066                   MX0    -6          (X0) = CHARACTER MASK                       COMCDXB    94
                               76600              SX6    B0          CLEAR OCTAL                                 COMCDXB    95
          5024  66211                             SB2    B1+B1       (B2) = 2                                    COMCDXB    96
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   253
        COMCDXB - CONVERT DISPLAY CODE TO BINARY.                     DXB                 IDP 
  
                     13777                        BX7    X7-X7       CLEAR DECIMAL                               COMCDXB    97
                          6130777744              SB3    -1R0        (B3) = CONVERSION CONSTANT                  COMCDXB    98
          5025  6150000006                        SB5    6           TEST FIRST CHARACTER                        COMCDXB    99
                          22255                   LX2    X5,B5                                                   COMCDXB   100
                               15320              BX3    -X0*X2                                                  COMCDXB   101
          5026  0303005021 +                      ZR     X3,DXB3     IF ZERO WORD                                COMCDXB   102
                          73233                   SX2    X3+B3                                                   COMCDXB   103
                               20425              LX4    21                                                      COMCDXB   104
          5027  0332005022 +                      NG     X2,DXBX     IF FIRST CHARACTER ALPHABETIC, RETURN       COMCDXB   105
                          6150000000              SB5    B0+         CLEAR 8/9 PRESENT                           COMCDXB   106
          5030  7130000007                        SX3    7           MASK FOR 8/9                                COMCDXB   107
                          0400005013 +            EQ     DXB2        ENTER CONVERSION LOOP                       COMCDXB   108
  
  
  
  
                                 D_D              BASE   *                                                       COMCDXB   110
                                         QUAL$    IF     -DEF,QUAL$                                              COMCDXB   111
                                                  QUAL   *                                                       COMCDXB   112
                                         DXB      EQU    /COMCDXB/DXB                                            COMCDXB   113
                                         DXB=     EQU    /COMCDXB/DXB                                            F4720D     10
                                         QUAL$    ENDIF                                                          COMCDXB   114
                                         DXB      ENDX                                                           COMCDXB   115
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  314
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   254
        MCS - MERGE CODED STRINGS.                                    MCS                 IDP 
  
          5031                           MCS      CTEXT  MCS - MERGE CODED STRINGS.                              COMCMCS     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCMCS     4
                                                  QUAL   COMCMCS                                                 COMCMCS     5
  
  
  
  
                                        ***       MCS - MERGE CODED STRINGS.                                     COMCMCS     7
                                        *                                                                        COMCMCS     8
                                        *         D.C. DILLON   75/07/01                                         COMCMCS     9
                                        *         D.C. DILLON   77/02/22                                         COMCMCS    10
  
  
  
  
                                        **        MCS - MERGE CODED STRINGS.                                     COMCMCS    12
                                        *                                                                        COMCMCS    13
                                        *                CONCATENATES NEW CHARACTER STRING IN (X1) WITH OLD      COMCMCS    14
                                        *         STRING AT (B7).  STORES RESULT AT (B7) AND, IF NEW STRING      COMCMCS    15
                                        *         LENGTH REQUIRES, AT (B7)+1.  BOTH OLD AND NEW STRINGS ARE      COMCMCS    16
                                        *         ASSUMED TO BE LEFT JUSTIFIED WITH ZERO FILL.  EITHER MAY BE    COMCMCS    17
                                        *         NULL OR FULL.                                                  COMCMCS    18
                                        *                                                                        COMCMCS    19
                                        *                ***  LIMITATION -- TRAILING COLONS ARE IDENTICAL TO     COMCMCS    20
                                        *         ZERO FILL, AND WILL BE LOST.                                   COMCMCS    21
                                        *                                                                        COMCMCS    22
                                        *                                                                        COMCMCS    23
                                        *         ENTRY  (X1) = *NEW* STRING.                                    COMCMCS    24
                                        *                (B1) = 1 IF SYMBOL B1=1 IS DEFINED.                     COMCMCS    25
                                        *                (B7) = ADDRESS OF *OLD* STRING.                         COMCMCS    26
                                        *                                                                        COMCMCS    27
                                        *         EXIT   MERGED STRING STORED AT (B7) AND, POSSIBLY, AT (B7)+1.  COMCMCS    28
                                        *                (X1) = UNCHANGED.                                       COMCMCS    29
                                        *                (X2) = ORIGINAL *OLD* STRING.                           COMCMCS    30
                                        *                (X6) = *OLD* .AND. UPPER *NEW*.                         COMCMCS    31
                                        *                (X7) = LOWER *NEW*, IF ANY, ELSE = 0.                   COMCMCS    32
                                        *                (B1) = 1 IF SYMBOL B1=1 IS NOT DEFINED.                 COMCMCS    33
                                        *                (B7) = ADDRESS OF *OLD*, UPDATED IF LOWER *NEW* .NZ.    COMCMCS    34
                                        *                                                                        COMCMCS    35
                                        *         USES   X - 2, 3, 6, 7                                          COMCMCS    36
                                        *                A - 2, 3, 6, 7                                          COMCMCS    37
                                        *                B - 1, 2, 7                                             COMCMCS    38
                                        *                                                                        COMCMCS    39
                                        *         CALLS  NONE                                                    COMCMCS    40
                                                                                                                 COMCMCS    41
                                                                                                                 COMCMCS    42
          5031  0400405031 +             MCS      SUBR               ** ENTRY/EXIT **                            COMCMCS    43
                                                                                                                 COMCMCS    44
                                                  IF     -DEF,B1=1,1                                             COMCMCS    45
                                                  SB1    1                                                       COMCMCS    46
                                                                                                                 COMCMCS    47
          5032  56270                             SA2    B7          (X2) = *OLD* STRING                         COMCMCS    48
                     43773                        MX7    -1                                                      COMCMCS    49
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   255
        MCS - MERGE CODED STRINGS.                                    MCS                 IDP 
  
                          5130005041 +            SA3    MCSA                                                    COMCMCS    50
          5033  36627                             IX6    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO CHAR    COMCMCS    51
                     15762                        BX7    -X2*X6      EXTRACT BORROWS                             COMCMCS    52
                          6120000067              SB2    55D                                                     COMCMCS    53
          5034  11737                             BX7    X3*X7       EXTRACT NULL BYTES = 40                     COMCMCS    54
                     22327                        LX3    X7,B2       EACH NULL BYTE     = 01                     COMCMCS    55
                          37673                   IX6    X7-X3                          = 37                     COMCMCS    56
                               12767              BX7    X6+X7       EACH NULL BYTE     = 77 ... EXTRACTION MASK COMCMCS    57
          5035  47677                             CX6    X7                                                      COMCMCS    58
                     63260                        SB2    X6                                                      COMCMCS    59
                          22321                   LX3    X1,B2       ALIGN *NEW* WITH NULL PART OF *OLD*         COMCMCS    60
                               11673              BX6    X7*X3                                                   COMCMCS    61
          5036  15737                             BX7    -X7*X3      (X7) = LOWER *NEW*                          COMCMCS    62
                     12626                        BX6    X2+X6       (X6) = *OLD* .OR. UPPER *NEW*               COMCMCS    63
                          5167000000              SA6    B7+0                                                    COMCMCS    64
          5037  0317005040 +                      NZ     X7,MCS2     IF LOWER *NEW* NOT EMPTY                    COMCMCS    65
                          0327005031 +            PL     X7,EXIT.                                                COMCMCS    66
          5040  56771                    MCS2     SA7    B7+B1                                                   COMCMCS    67
                     66771                        SB7    B7+B1       (B7) = UPDATED STRING ADDRESS               COMCMCS    68
                          0400005031 +            EQ     EXIT.                                                   COMCMCS    69
                                                                                                                 COMCMCS    70
                                                                                                                 COMCMCS    71
          5041  40404040404040404040     MCSA     DATA   40404040404040404040B   NULL CHARACTER BYTE MASK        COMCMCS    72
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMCMCS    74
                                                  QUAL   *                                                       COMCMCS    75
                                         MCS      =      /COMCMCS/MCS                                            COMCMCS    76
                                         QUAL$    ENDIF                                                          COMCMCS    77
                                                  ENDX                                                           COMCMCS    78
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   256
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC                 IDP 
  
          5042                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   257
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC                 IDP 
  
                                        *                                                                        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
          5042  0400005050 +             +        EQ     RDC2                                                    COMCRDC    49
                                                                                                                 COMCRDC    50
          5043  0400405043 +             RDC=     SUBR               ENTRY/EXIT                                  COMCRDC    51
          5044  5140005043 +                      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
          5045  66270                             SB2    B7          (B2) = ORIGINAL (B7)                        COMCRDC    56
                     0670005046 +                 PL     B7,RDC1     IF (B7) = POSITIVE WORD COUNT               COMCRDC    57
                               67707              SB7    -B7                                                     COMCRDC    58
          5046  0520005047 +             RDC1     NZ     B2,RDC1A    IF ORIGINAL (B7) IS NON-ZERO                CPSA123     5
                          67701                   SB7    -B1         ENSURE TRANSFER TILL END OF LINE            CPSA123     6
          5047  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
          5050  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
          5051  0443005202 +             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
          5052  15714                             BX7    -X4*X1      CHECK LAST BYTE                             COMCRDC    76
                     0445005060 +                 EQ     B4,B5,RDC6  IF (OUT+1) = LIMIT                          COMCRDC    77
                               10611              BX6    X1                                                      COMCRDC    78
          5053  0307005056 +             RDC4     ZR     X7,RDC5     IF END OF LINE                              COMCRDC    79
                          0467005051 +            EQ     B6,B7,RDC3  IF WORKING BUFFER FILLED                    COMCRDC    80
          5054  56660                             SA6    B6          STORE WORD                                  COMCRDC    81
                     66661                        SB6    B6+B1                                                   COMCRDC    82
                          0567005051 +            NE     B6,B7,RDC3  IF WORKING BUFFER NOT FULL                  COMCRDC    83
          5055  0620005051 +                      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
          5056  0467005061 +             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
          5057  10411                             BX4    X1          RETURN LAST WORD BEFORE EOL CLEARED         COMCRDC    93
                     0400005167 +                 EQ     =XRDX=      EXIT                                        COMCRDC    94
                                                                                                                 COMCRDC    95
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   258
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC                 IDP 
  
          5060  63430                    RDC6     SB4    X3          (OUT+1) = FIRST                             COMCRDC    96
                     10611                        BX6    X1                                                      COMCRDC    97
                          0400005053 +            EQ     RDC4        LOOP                                        COMCRDC    98
                                                                                                                 COMCRDC    99
          5061  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
          5062  0400005167 +                      EQ     =XRDX=      EXIT                                        COMCRDC   104
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDC   106
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDC   107
                                                  QUAL   *                                                       COMCRDC   108
                                         RDC=     EQU    /COMCRDC/RDC=                                           COMCRDC   109
                                         QUAL$    ENDIF                                                          COMCRDC   110
                                         RDC      ENDX                                                           COMCRDC   111
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   259
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 IDP 
  
          5062                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   260
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 IDP 
  
                                        *                (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
          5063  0430005134 +             RDW18    ZR     B3,RDW11    IF NO DATA                                  COMCRDW    50
                          10711                   BX7    X1          STORE 1 WORD                                COMCRDW    51
                               56760              SA7    B6                                                      COMCRDW    52
          5064  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
          5065  0545005066 +                      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
          5066  54630                    RDW20    SA6    A3          UPDATE OUT                                  COMCRDW    60
          5067                           RDW21    BSS    0                                                       CPSA187     5
          5067  13111                             BX1    X1-X1       RESPONSE = 0                                COMCRDW    61
                     0570005072 +                 NZ     B7,RDW1     IF NOT END OF TRANSFER                      COMCRDW    62
                                                                                                                 COMCRDW    63
          5070  0400405070 +             RDW=     SUBR               ENTRY/EXIT                                  COMCRDW    64
          5071  0470005067 +                      ZR     B7,RDW21    IF ZERO WORD COUNT, SET COMPLETE AND EXIT.  CPSA187     6
          5072  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
          5073  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
          5074  63540                             SB5    X4                                                      COMCRDW    73
                     0634005075 +                 GE     B3,B4,RDW2  IF NO END AROUND                            COMCRDW    74
                               66350              SB3    B5                                                      COMCRDW    75
          5075  67334                    RDW2     SB3    B3-B4       FREE DATA LENGTH                            COMCRDW    76
                     0673005076 +                 LE     B3,B7,RDW3  IF NOT ENOUGH ROOM                          COMCRDW    77
                               66370              SB3    B7                                                      COMCRDW    78
          5076                           RDWA     BSS    0                                                       COMCRDW    79
          5076  5130005161 +             RDW3     SA3    RDWB        PRESET CMU CODE                             COMCRDW    80
                          0100005161 +            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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   261
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 IDP 
  
                                                                                                                 COMCRDW    88
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDW    89
                                                                                                                 COMCRDW    90
          5077  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
          5100  21403                             AX4    3           NUMBER OF BLOCKS                            COMCRDW    95
                                                                                                                 COMCRDW    96
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCRDW    97
                                                                                                                 COMCRDW    98
                     0303005103 +                 ZR     X3,RDW6     IF NO ODD WORDS                             COMCRDW    99
                               63230              SB2    X3                                                      COMCRDW   100
          5101  67221                    RDW5     SB2    B2-B1                                                   COMCRDW   101
                     10711                        BX7    X1                                                      COMCRDW   102
                          54111                   SA1    A1+B1                                                   COMCRDW   103
                               54771              SA7    A7+B1                                                   COMCRDW   104
          5102  0520005101 +                      NZ     B2,RDW5     IF MORE WORDS                               COMCRDW   105
                                                                                                                 COMCRDW   106
                                        *         PRE-READ REGISTERS.                                            COMCRDW   107
                                                                                                                 COMCRDW   108
          5103  0304005064 +             RDW6     ZR     X4,RDW19    IF NO BLOCKS                                COMCRDW   109
                          63520                   SB5    X2                                                      COMCRDW   110
                               54211              SA2    A1+B1                                                   COMCRDW   111
          5104  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
          5105  10611                    RDW7     BX6    X1                                                      COMCRDW   119
                     22702                        LX7    X2                                                      COMCRDW   120
                          54132                   SA1    A3+B2                                                   COMCRDW   121
                               54242              SA2    A4+B2                                                   COMCRDW   122
          5106  54671                             SA6    A7+B1                                                   COMCRDW   123
                     67441                        SB4    B4-B1                                                   COMCRDW   124
                          54761                   SA7    A6+B1                                                   COMCRDW   125
                               10633              BX6    X3                                                      COMCRDW   126
          5107  22704                             LX7    X4                                                      COMCRDW   127
                     54312                        SA3    A1+B2                                                   COMCRDW   128
                          54422                   SA4    A2+B2                                                   COMCRDW   129
                               54662              SA6    A6+B2                                                   COMCRDW   130
          5110  54772                             SA7    A7+B2                                                   COMCRDW   131
                     10611                        BX6    X1                                                      COMCRDW   132
                          22702                   LX7    X2                                                      COMCRDW   133
                               54132              SA1    A3+B2                                                   COMCRDW   134
          5111  54242                             SA2    A4+B2                                                   COMCRDW   135
                     54662                        SA6    A6+B2                                                   COMCRDW   136
                          54772                   SA7    A7+B2                                                   COMCRDW   137
                               10633              BX6    X3                                                      COMCRDW   138
          5112  22704                             LX7    X4                                                      COMCRDW   139
                     54312                        SA3    A1+B2                                                   COMCRDW   140
                          54422                   SA4    A2+B2                                                   COMCRDW   141
                               54662              SA6    A6+B2                                                   COMCRDW   142
          5113  54772                             SA7    A7+B2                                                   COMCRDW   143
                     0540005105 +                 NZ     B4,RDW7     LOOP                                        COMCRDW   144
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   262
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 IDP 
  
                                                                                                                 COMCRDW   145
                                        *         READ EXIT.                                                     COMCRDW   146
                                                                                                                 COMCRDW   147
                               76250              SX2    B5          RESET FET ADDRESS                           COMCRDW   148
          5114  5135000003                        SA3    B5+3        OUT                                         COMCRDW   149
                          54131                   SA1    A3+B1       (B5) = LIMIT                                COMCRDW   150
                               63510              SB5    X1                                                      COMCRDW   151
          5115  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
          5116  73633                             SX6    X3+B3                                                   COMCRDW   156
                     20473                        LX4    59-0                                                    COMCRDW   157
                          5212000001              SA1    X2+1        READ FIRST                                  COMCRDW   158
          5117  0545005120 +                      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
          5120  0324005066 +             RDW9     PL     X4,RDW20    IF BUFFER BUSY                              COMCRDW   164
                          20470                   LX4    59-4-59-0                                               COMCRDW   165
          5121  0334005066 +                      NG     X4,RDW20    IF EOR/EOF SET                              COMCRDW   166
                          5242000002              SA4    X2+2        READ IN                                     COMCRDW   167
          5122  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
          5123  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
          5124  0337005066 +                      NG     X7,RDW20    IF BUFFER THRESHOLD NOT REACHED             COMCRDW   176
                          0301005066 +            ZR     X1,RDW20    IF BUFFER NOT BIG ENOUGH TO READ AHEAD      COMCRDW   177
          5125  5063000000                        SA6    A3+         UPDATE OUT                                  COMCRDW   178
                                         RDX$     ENDIF                                                          CPSA242    30
          5126  54110                    RDW10    SA1    A1          REREAD FIRST                                COMCRDW   179
                     21166                        AX1    54                                                      COMCRDW   180
                          7170360374              SX7    740770B/2                                               COMCRDW   181
          5127  6221000016                        SB2    X1+77B-61B  CHECK FOR NOS/BE TERMINAL                   COMCRDW   182
                          53120                   SA1    X2                                                      COMCRDW   183
                               22417              LX4    X7,B1                                                   COMCRDW   184
          5130  0420005066 +                      ZR     B2,RDW20    IF A TERMINAL SUPPRESS READ AHEAD           COMCRDW   185
                          22417                   LX4    X7,B1                                                   COMCRDW   186
                               11741              BX7    X4*X1                                                   COMCRDW   187
          5131  0100004775 +                      RJ     =XCIO=                                                  COMCRDW   188
          5132  43172                             MX1    -2          RESPONSE = -3                               COMCRDW   189
                     0317005070 +                 NZ     X7,RDW=     IF ERROR ON LAST *CIO* REQUEST, RETURN      CPSA104    33
                               13111              BX1    X1-X1       RESPONSE = 0                                COMCRDW   191
          5133  0570005072 +                      NZ     B7,RDW1     IF NOT DONE                                 COMCRDW   192
                          0400005070 +            EQ     RDW=        RETURN                                      CPSA104    34
                                                                                                                 COMCRDW   194
                                        *         LOAD CIRCULAR BUFFER.                                          COMCRDW   195
                                                                                                                 COMCRDW   196
          5134  53120                    RDW11    SA1    X2          CHECK BUFFER STATUS                         COMCRDW   197
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   263
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 IDP 
  
                     5232000002                   SA3    X2+2        READ IN                                     COMCRDW   198
                               20173              LX1    59-0                                                    COMCRDW   199
          5135  0321005145 +                      PL     X1,RDW13    IF BUFFER BUSY                              COMCRDW   200
                          63330                   SB3    X3                                                      COMCRDW   201
                               20170              LX1    59-4-59+0                                               COMCRDW   202
          5136  0534005072 +                      NE     B3,B4,RDW1  IF BUFFER NOT EMPTY                         COMCRDW   203
                          0321005126 +            PL     X1,RDW10    IF NOT EOR SET                              COMCRDW   204
          5137  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
          5140  15717                             BX7    -X7*X1      (X7) = LEVEL NUMBER                         COMCRDW   209
                     76160                        SX1    B6                                                      COMCRDW   210
                          0326005143 +            PL     X6,RDW12    IF NOT EOF                                  COMCRDW   211
          5141  20666                             LX6    59-9-59+3                                               COMCRDW   212
                     43173                        MX1    -1                                                      COMCRDW   213
                          0326005143 +            PL     X6,RDW12    IF NOT EOI                                  COMCRDW   214
          5142  7110777775                        SX1    -2                                                      COMCRDW   215
          5143  7263000000               RDW12    SX6    X3+                                                     COMCRDW   216
                          54631                   SA6    A3+B1       STORE IN                                    COMCRDW   217
                               54661              SA6    A6+B1       STORE OUT                                   COMCRDW   218
          5144  0400005070 +                      EQ     RDW=        RETURN                                      CPSA104    35
                                                                                                                 COMCRDW   220
                                        *         RECALL WAITING FOR I/O.                                        COMCRDW   221
                                                                                                                 COMCRDW   222
          5145  0100005431 +             RDW13    RECALL                                                         COMCRDW   223
          5146  0400005072 +                      EQ     RDW1                                                    COMCRDW   224
                                                                                                                 COMCRDW   225
                                        *         MOVE DATA WITH CMU.                                            COMCRDW   226
                                                                                                                 COMCRDW   227
          5147  7143776314               RDW14    SX4    B3-819                                                  COMCRDW   228
                          0324005160 +            PL     X4,RDW15    IF MOVE TOO BIG FOR CMU                     COMCRDW   229
          5150  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
          5151  36646                             IX6    X4+X6                                                   COMCRDW   234
                     76760                        SX7    B6          SET DESTINATION ADDRESS                     COMCRDW   235
                          20336                   LX3    30                                                      COMCRDW   236
                               43470              MX4    -4                                                      COMCRDW   237
          5152  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
          5153  12737                             BX7    X3+X7                                                   COMCRDW   242
                     20432                        LX4    26                                                      COMCRDW   243
                          12747                   BX7    X4+X7                                                   COMCRDW   244
                               21363              AX3    51                                                      COMCRDW   245
          5154  5170005161 +                      SA7    RDWB        STORE DESCRIPTOR WORD                       COMCRDW   246
          5155  4640005161 +                      IM     RDWB        MOVE DATA                                   COMCRDW   247
          5156  10011                             BX0    X1          RESTORE X0                                  COMCRDW   248
                     0303005064 +                 ZR     X3,RDW19    IF NO READ EXIT CHECK                       COMCRDW   249
                               76340              SX3    B4          SET OUT                                     COMCRDW   250
          5157  0400005115 +                      EQ     RDW8                                                    COMCRDW   251
                                                                                                                 COMCRDW   252
          5160  10711                    RDW15    BX7    X1                                                      COMCRDW   253
                     54111                        SA1    A1+B1                                                   COMCRDW   254
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   264
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 IDP 
  
                          0400005077 +            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
          5161  0613005063 +             RDWB     LE     B3,B1,RDW18  IF 1 WORD OR LESS (CMU)                    COMCRDW   261
                          0400005147 +            EQ     RDW14                                                   COMCRDW   262
                                                                                                                 COMCRDW   263
                                5161 +   RDW16    EQU    RDWB        USED TO VOID STACK AT PRESET                COMCRDW   264
                                                                                                                 COMCRDW   265
                                        *         PRESET FOR CMU.                                                COMCRDW   266
                                                                                                                 COMCRDW   267
          5162  5140000065                        SA4    RA.CMU      CHECK IF CMU AVAILABLE                      COMCRDW   268
                          6130005076 +            SB3    RDWA                                                    COMCRDW   269
          5163  0334005164 +                      NG     X4,RDW17    IF CMU                                      COMCRDW   270
                          5130005166 +            SA3    RDWC                                                    COMCRDW   271
          5164  10633                    RDW17    BX6    X3                                                      COMCRDW   272
                     56630                        SA6    B3                                                      COMCRDW   273
                          0100005164 +            RJ     *           VOID INSTRUCTION STACK.                     CPSA163     7
          5165  0400005072 +                      EQ     RDW1                                                    COMCRDW   274
                                                                                                                 COMCRDW   275
          5166  0613005063 +             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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   265
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDX                 IDP 
  
          5167  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
          5170  75231                             SX2    A3-B1       RESET (X2)                                  COMCRDW   312
                                         RDX$     IF     -DEF,RDX$                                               CPSA242    31
                     0321005201 +                 PL     X1,RDX1     IF BUFFER BUSY                              COMCRDW   313
                               20170              LX1    59-4-59+0                                               COMCRDW   314
          5171  0331005201 +                      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
          5172  77634                             SX6    B3-B4       (IN-OUT)                                    COMCRDW   320
                     63230                        SB2    X3          (LIMIT-FIRST)                               COMCRDW   321
                          21366                   AX3    54                                                      COMCRDW   322
          5173  7273000016                        SX7    X3+77B-61B  CHECK IF NOS/BE TERMINAL                    COMCRDW   323
                          22316                   LX3    X6,B1       2*(IN-OUT)                                  COMCRDW   324
          5174  0307005201 +                      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
          5175  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
          5176  0336005201 +                      NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED             COMCRDW   330
                          0307005201 +            ZR     X7,RDX1     IF BUFFER NOT BIG ENOUGH TO READ AHEAD      COMCRDW   332
          5177  53120                             SA1    X2          ISSUE PREVIOUS READ FUNCTION                CPSA242    35
                     7160360374                   SX6    740770B/2                                               COMCRDW   334
                               20601              LX6    1                                                       CPSA242    36
          5200  11761                             BX7    X6*X1                                                   COMCRDW   335
                     0100004775 +                 RJ     =XCIO=                                                  COMCRDW   337
          5201  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   266
        COMCRDW - READ WORDS TO WORKING BUFFER.                       LCB                 IDP 
  
                                        *                (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
          5202  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
          5203  0331005205 +                      NG     X1,LCB2     IF BUFFER NOT BUSY                          COMCRDW   371
                          0100005431 +            RECALL                                                         COMCRDW   372
          5204  65341                    LCB1     SB3    A4-B1       CONTINUE READ                               COMCRDW   373
                     75231                        SX2    A3-B1       RESET (X2)                                  COMCRDW   374
                          0233000000              JP     B3                                                      COMCRDW   375
                                                                                                                 COMCRDW   376
          5205  55121                    LCB2     SA1    A2-B1       RE-READ IN                                  COMCRDW   377
                     63310                        SB3    X1                                                      COMCRDW   378
                          0534005204 +            NE     B3,B4,LCB1  IF BUFFER NOT EMPTY                         COMCRDW   379
          5206  55131                             SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   380
                     20167                        LX1    59-4                                                    COMCRDW   381
                          0331005212 +            NG     X1,LCB3     IF EOR SET                                  COMCRDW   382
          5207  7160360374                        SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW   383
                          20104                   LX1    4                                                       COMCRDW   384
                               75231              SX2    A3-B1                                                   COMCRDW   385
          5210  11761                             BX7    X6*X1                                                   COMCRDW   386
                     20701                        LX7    1                                                       COMCRDW   387
                          0100004775 +            RJ     =XCIO=                                                  COMCRDW   388
          5211  65341                             SB3    A4-B1       CONTINUE READ                               COMCRDW   389
                     0233000000                   JP     B3                                                      COMCRDW   390
                                                                                                                 COMCRDW   391
          5212  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
          5213  6231775353                        SB3    X1-2RTT     CHECK FOR NOS TERMINAL                      COMCRDW   396
                          54611                   SA6    A1+B1                                                   COMCRDW   397
                               77101              SX1    -B1         RESPONSE = -1                               COMCRDW   398
          5214  0332005217 +                      NG     X2,LCB4     IF EOF                                      COMCRDW   399
                          43770                   MX7    -4                                                      COMCRDW   400
                               76160              SX1    B6          RESPONSE = LAST WORD ADDRESS                COMCRDW   401
          5215  20262                             LX2    60+0-14-59+3                                            COMCRDW   402
                     15727                        BX7    -X7*X2      (X7) = LEVEL NUMBER                         COMCRDW   403
                          0530005217 +            NZ     B3,LCB4     IF NOT A NOS TERMINAL                       COMCRDW   404
          5216  63370                             SB3    X7                                                      COMCRDW   405
                     0431005221 +                 EQ     B3,B1,LCB6  IF LEVEL 1                                  COMCRDW   406
          5217  54661                    LCB4     SA6    A6+B1       STORE OUT                                   CPSA107     4
                     0331005224 +                 NG     X1,LCB7     IF EOF/EOI                                  COMCRDW   409
          5220  64340                    LCB5     SB3    A4          SET RETURN ADDRESS                          COMCRDW   410
                     75231                        SX2    A3-B1       RESET (X2)                                  CPSA107     5
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   267
        COMCRDW - READ WORDS TO WORKING BUFFER.                       LCB                 IDP 
  
                          0233000000              JP     B3          RETURN                                      COMCRDW   411
                                                                                                                 COMCRDW   412
          5221  54661                    LCB6     SA6    A6+B1       STORE OUT                                   COMCRDW   413
                     75231                        READ   A3-B1       RESTART READ                                COMCRDW   414
          5223  65341                             SB3    A4-B1       CONTINUE READ                               COMCRDW   415
                     0233000000                   JP     B3                                                      COMCRDW   416
                                                                                                                 COMCRDW   417
          5224  20266                    LCB7     LX2    59-9-59+3                                               CPSA107     6
                     0322005220 +                 PL     X2,LCB5     IF NOT EOI                                  CPSA107     7
                               20101              LX1    1           RESPONSE= -2                                COMCRDW   420
          5225  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
                                         RDW=     EQU    /COMCRDW/RDW=                                           COMCRDW   427
                                         RDX=     EQU    /COMCRDW/RDX=                                           COMCRDW   428
                                         LCB=     EQU    /COMCRDW/LCB=                                           COMCRDW   429
                                         QUAL$    ENDIF                                                          COMCRDW   430
                                         RDW      ENDX                                                           COMCRDW   431
                                         #IDPOS   ENDIF                                                          FC5A158A  315
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   268
        COMCRSR - RESTORE REGISTERS.                                  RSR                 IDP 
  
          5226                           RSR      CTEXT  COMCRSR - RESTORE REGISTERS.                            COMCRSR     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCRSR     4
                                                  QUAL   COMCRSR                                                 COMCRSR     5
                                 D_D              BASE   D                                                       COMCRSR     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCRSR     7
  
  
  
  
                                        ***       RSR - RESTORE ALL REGISTERS.                                   COMCRSR     9
                                        *                                                                        COMCRSR    10
                                        *         AUTHOR UNKNOWN.    CIRCA 1971.                                 CPSA104    36
                                        *         P. C. TAM          77/07/05.                                   COMCRSR    11
                                        *                                                                        CPSA245   140
                                        *         *******************************************************        CPSA245   141
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   142
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   143
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   144
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   145
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   146
                                        *         *******************************************************        CPSA245   147
                                        *                                                                        CPSA245   148
                                        *                                                                        COMCRSR    12
                                        *         RSR RESTORES B, A, AND X REGISTERS FROM A SAVE AREA.           COMCRSR    13
  
  
  
  
                                        ***       RSR RESTORES B, A, AND X REGISTERS FROM A SPECIFIED REGISTER   COMCRSR    15
                                        *         SAVE AREA. THE FORMAT OF THE REGISTERS IN THE SAVE AREA IS -   COMCRSR    16
                                        *         B0, B1, ..., B7, A0, A1, ..., A7, X0, X1, ..., X7.             COMCRSR    17
                                        *         EACH REGISTER OCCUPIES A FULL WORD WITH B AND A REGISTER       COMCRSR    18
                                        *         VALUES IN BITS 17-0.                                           COMCRSR    19
                                        *                                                                        COMCRSR    20
                                        *         ENTRY  (X1) = ADDRESS OF REGISTER SAVE AREA.                   COMCRSR    21
                                        *                                                                        COMCRSR    22
                                        *         EXIT   ALL REGISTERS SET TO THE CONTENT OF THE REGISTER        COMCRSR    23
                                        *                SAVE AREA.                                              COMCRSR    24
                                        *                                                                        COMCRSR    25
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCRSR    26
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRSR    27
                                        *                A - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCRSR    28
                                        *                                                                        COMCRSR    29
                                        *         CALLS  NONE.                                                   COMCRSR    30
                                                                                                                 COMCRSR    31
                                                                                                                 COMCRSR    32
                                   0     SAVEB    EQU    0                                                       COMCRSR    33
                                  10     SAVEA    EQU    8                                                       COMCRSR    34
                                  20     SAVEX    EQU    16                                                      COMCRSR    35
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   269
        COMCRSR - RESTORE REGISTERS.                                  RSR                 IDP 
  
          5226  0400405226 +             RSR      SUBR               ENTRY/EXIT                                  COMCRSR    37
                                                  IF     -DEF,B1=1,1                                             COMCRSR    38
                                                  SB1    1                                                       COMCRSR    39
                                                                                                                 COMCRSR    40
                                        *         SET UP FINAL -B- REGISTERS RESTORE AT (RSR4) ET SEQ.           COMCRSR    41
                                                                                                                 COMCRSR    42
          5227  6271000000                        SB7    X1+         (B7) = FWA OF REGISTER SAVE AREA            COMCRSR    43
                          43452                   MX4    -18                                                     COMCRSR    44
          5230  5117000007                        SA1    B7+SAVEB+7  (X1) = SAVED (B7)                           COMCRSR    45
                          10544                   BX5    X4                                                      COMCRSR    46
                               20436              LX4    30                                                      COMCRSR    47
          5231  6140000004                        SB4    4                                                       COMCRSR    48
                          11045                   BX0    X4*X5       (X0) = 77770000007777000000B                COMCRSR    49
                                                                                                                 COMCRSR    50
                                        *         SET UP RESTORE B REGISTER INSTRUCTIONS.                        COMCRSR    51
                                                                                                                 COMCRSR    52
          5232  55211                    RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                        COMCRSR    53
                     5134005257 +                 SA3    RSR4+B4-1                                               COMCRSR    54
                               15115              BX1    -X5*X1                                                  COMCRSR    55
          5233  67441                             SB4    B4-B1                                                   COMCRSR    56
                     15225                        BX2    -X5*X2                                                  COMCRSR    57
                          20136                   LX1    30                                                      COMCRSR    58
                               11303              BX3    X0*X3                                                   COMCRSR    59
          5234  36612                             IX6    X1+X2                                                   COMCRSR    60
                     12763                        BX7    X6+X3       (X7) = 30/SB.N B6+K, 30/SB.N-1 B6+K         COMCRSR    61
                          54730                   SA7    A3                                                      COMCRSR    62
                               55121              SA1    A2-B1       (X1) = SAVED (B.N)                          COMCRSR    63
          5235  0540005232 +                      NZ     B4,RSR2     IF STILL MORE B REGISTERS TO GO             COMCRSR    64
                                                                                                                 COMCRSR    65
                                        *         THE MOST LIKELY CANDIDATE FOR THE DANGER DISCUSSED IN THE      COMCRSR    66
                                        *         NEXT PARAGRAPH IS THE SYSTEM COMMUNICATION CELL (RA.MTR).      COMCRSR    67
                                        *         ACCORDINGLY, WE WAIT FOR IT TO CLEAR BEFORE PROCEEDING.        COMCRSR    68
                                                                                                                 COMCRSR    69
                          5127000016              SA2    B7+SAVEA+6  (X2) = SAVED (A6)                           COMCRSR    70
          5236  5110000001               RSR3     SA1    RA.MTR                                                  COMCRSR    71
                          0311005236 +            NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                       COMCRSR    72
                                                                                                                 COMCRSR    73
                                        *         A BIT OF CARE IS SPENT ON RESTORATION OF (A6) AND (A7).        COMCRSR    74
                                        *         WE WISH TO AVOID HAVING THE CONTENTS OF THE WORD THAT THE      COMCRSR    75
                                        *         STORE REGISTER IS POINTING TO GET CHANGED (I.E. BY A PP)       COMCRSR    76
                                        *         WHILE WE ARE RESTORING (A6) OR (A7). ABOUT THE ONLY THING      COMCRSR    77
                                        *         THAT CAN BE DONE TO MINIMIZE THIS POSSIBILITY IS TO GET THE    COMCRSR    78
                                        *         LOAD AND THE STORE AS CLOSE TOGETHER AS POSSIBLE. BY KEEPING   COMCRSR    79
                                        *         THEM IN THE SAME WORD, WE HAVE AT LEAST ENSURED THAT WE WILL   COMCRSR    80
                                        *         NOT BE EXCHANGED AFTER THE LOAD BUT BEFORE THE STORE.          COMCRSR    81
                                        *         BARRING DELAYS IN THE HOPPER, THIS SHOULD REDUCE THE DANGER    COMCRSR    82
                                        *         PERIOD TO A FEW MINOR CYCLES.                                  COMCRSR    83
                                                                                                                 COMCRSR    84
          5237  54321                             SA3    A2+B1       (X3) = SAVED (A7)                           COMCRSR    85
                     0100005240 +                 RJ     *+1         VOID INSTRUCTION STACK                      CPSA306     7
          5240  00000000000000000000              CON    0                                                       CPSA306     8
          5241  5242777777               +        SA4    X2-0                                                    COMCRSR    86
                          10644                   BX6    X4                                                      COMCRSR    87
                               55640              SA6    A4-B0       RESTORE (A6)                                COMCRSR    88
          5242  5253777777               +        SA5    X3-0                                                    COMCRSR    89
                          10755                   BX7    X5                                                      COMCRSR    90
                               55750              SA7    A5-B0       RESTORE (A7)                                COMCRSR    91
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   270
        COMCRSR - RESTORE REGISTERS.                                  RSR                 IDP 
  
                                                                                                                 COMCRSR    92
                                        *         RESTORE (X6), (X7).                                            COMCRSR    93
                                                                                                                 COMCRSR    94
          5243  5117000026                        SA1    B7+SAVEX+6                                              COMCRSR    95
                          54411                   SA4    A1+B1                                                   COMCRSR    96
                               10611              BX6    X1          RESTORE (X6)                                COMCRSR    97
          5244  22704                             LX7    X4          RESTORE (X7)                                COMCRSR    98
                     17000                        BX0    -X0-X0                                                  COMCRSR    99
                          6260777777              SB6    X0-0        (B6) = -0                                   COMCRSR   100
                                                                                                                 COMCRSR   101
                                        *         RESTORE (A0),(X0).                                             COMCRSR   102
                                                                                                                 COMCRSR   103
          5245  5147000010                        SA4    B7+SAVEA+0                                              COMCRSR   104
                          5157000020              SA5    B7+SAVEX+0                                              COMCRSR   105
          5246  53046                             SA0    X4+B6                                                   COMCRSR   106
                     10055                        BX0    X5                                                      COMCRSR   107
                                                                                                                 COMCRSR   108
                                        *         RESTORE (A) - 1,2,3,4.                                         COMCRSR   109
                                        *                 (X) - 1,2,3,4.                                         COMCRSR   110
                                                                                                                 COMCRSR   111
                                                  ECHO   4,N=(1,2,3,4)                                           COMCRSR   112
                                                  SA4    A4+B1       (X4) = SAVED (A.N)                          COMCRSR   113
                                                  SA5    A5+B1       (X5) = SAVED (X.N)                          COMCRSR   114
                                                  SA.N   X4+B6                                                   COMCRSR   115
                                                  BX.N   X5                                                      COMCRSR   116
                                                                                                                 COMCRSR   117
                                        *         RESTORE (A5),(X5)-- THE ORIGINAL (X5) ARE BROKEN APART INTO    COMCRSR   118
                                        *         (B1) THRU (B5) AS DISPLAYED BELOW. THIS ALLOWS US TO RESTORE   COMCRSR   119
                                        *         (A5).                                                          COMCRSR   120
                                        *         DISASSEMBLY IS FROM LEFT TO RIGHT, TOP TO BOTTOM.              COMCRSR   121
                                        *         REASSEMBLY IS FROM RIGHT TO LEFT, BOTTOM TO TOP.               COMCRSR   122
                                        *         5          4          3          2          1               55 COMCRSR   123
                                        *         9          8          7          6          5              098 COMCRSR   124
                                        *         .............................................................. COMCRSR   125
                                        *         ++++++++++++                                                   COMCRSR   126
                                        *             (B1)   ++++++++++++                                        COMCRSR   127
                                        *                        (B2)   ++++++++++++                             COMCRSR   128
                                        *                                   (B3)   ++++++++++++                  COMCRSR   129
                                        *                                              (B4)   ++++++++++++++++++ COMCRSR   130
                                        *         ++                                                 (B5)        COMCRSR   131
                                                                                                                 COMCRSR   132
                          54551                   SA5    A5+B1       (X5) = SAVED (X5)                           COMCRSR   133
                                                  ECHO   2,N=(1,2,3)                                             COMCRSR   134
                                                  UX5,B.N X5                                                     COMCRSR   135
                                                  LX5    11                                                      COMCRSR   136
                     26545                        UX5,B4 X5                                                      COMCRSR   137
                          20535                   LX5    11+18                                                   COMCRSR   138
                               63556              SB5    X5+B6                                                   COMCRSR   139
          5255  5157000015                        SA5    B7+SAVEA+5  (X5) = SAVED (A5)                           COMCRSR   140
                          53556                   SA5    X5+B6       RESTORE (A5)                                COMCRSR   141
                                                                                                                 COMCRSR   142
                                        *         REASSEMBLE (X5).                                               COMCRSR   143
                                                                                                                 COMCRSR   144
                               76556              SX5    B5+B6                                                   COMCRSR   145
          5256  20537                             LX5    60-11-18                                                COMCRSR   146
                     27545                        PX5    X5,B4                                                   COMCRSR   147
                                                  ECHO   2,N=(3,2,1)                                             COMCRSR   148
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   271
        COMCRSR - RESTORE REGISTERS.                                  RSR                 IDP 
  
                                                  LX5    -11                                                     COMCRSR   149
                                                  PX5    X5,B.N                                                  COMCRSR   150
                                                                                                                 COMCRSR   151
                                        *         RESTORE (B) - 0,1,2,3,4,5,6,7.                                 COMCRSR   152
                                                                                                                 COMCRSR   153
          5260                           RSR4     BSS    0                                                       COMCRSR   154
                                                  ECHO   2,U=(1,3,5,7),L=(0,2,4,6)                               COMCRSR   155
                                                  SB.U   B6+*                                                    COMCRSR   156
                                                  SB.L   B6+*                                                    COMCRSR   157
          5264  0400005226 +                      EQ     RSRX        RETURN                                      COMCRSR   158
  
  
  
  
                                 D_D              BASE   *                                                       COMCRSR   160
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRSR   161
                                                  QUAL   *                                                       COMCRSR   162
                                         RSR      EQU    /COMCRSR/RSR                                            COMCRSR   163
                                         RSR=     EQU    /COMCRSR/RSR                                            F4720D     12
                                         QUAL$    ENDIF                                                          COMCRSR   164
                                         RSR      ENDX                                                           COMCRSR   165
  
  
  
  
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   272
        SET BLOCK OF MEMORY TO A GIVEN VALUE                          SBM                 IDP 
  
          5264                           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
          5265  5076000001               SBM2     SA7    A6+1                                                    COMCSBM    27
                          37112                   IX1    X1-X2                                                   COMCSBM    28
                               54671              SA6    A7+B1                                                   COMCSBM    29
          5266  0321005265 +                      PL     X1,SBM2     IF ALL OF BLOCK NOT SET                     COMCSBM    30
                                                                                                                 COMCSBM    31
          5267  0400405267 +             SBM=     SUBR   0           ENTRY/EXIT...                               COMCSBM    32
          5270  7120000001                        SX2    1                                                       COMCSBM    33
                          46000                   NO                                                             COMCSBM    34
                               15721              BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                   COMCSBM    35
          5271  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
          5272  20201                             LX2    1           (X2) = 2                                    COMCSBM    39
                     6110000001                   SB1    1                                                       COMCSBM    40
                               10766              BX7    X6                                                      COMCSBM    41
          5273  0321005265 +                      PL     X1,SBM2     IF ALL OF BLOCK NOT SET                     COMCSBM    42
                          0400005267 +            EQ     EXIT.       EXIT...                                     COMCSBM    43
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   273
        SET BLOCK OF MEMORY TO A GIVEN VALUE                          SBM                 IDP 
  
                                 D_D              BASE   *                                                       COMCSBM    45
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSBM    46
                                                  QUAL   *                                                       COMCSBM    47
                                         SBM=     EQU    /COMCSBM/SBM=                                           COMCSBM    48
                                         QUAL$    ENDIF                                                          COMCSBM    49
                                                  ENDX                                                           COMCSBM    50
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   274
        COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.            SFN                 IDP 
  
          5274                           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
          5274  0400405274 +             SFN      SUBR               ENTRY/EXIT                                  COMCSFN    31
          5275  76710                             SX7    B1                                                      COMCSFN    32
                     5130005301 +                 SA3    SFNA        =40404040404040404040B                      COMCSFN    33
                               37717              IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN    34
          5276  16617                             BX6    -X7+X1                                                  COMCSFN    35
                     6120000067                   SB2    60-5                                                    COMCSFN    36
                               11736              BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN    37
          5277  54331                             SA3    A3+B1       =10H                                        COMCSFN    38
                     22627                        LX6    X7,B2                                                   COMCSFN    39
                          37676                   IX6    X7-X6                                                   COMCSFN    40
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   275
        COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.            SFN                 IDP 
  
                               12776              BX7    X7+X6                                                   COMCSFN    41
          5300  15337                             BX3    -X7*X3                                                  COMCSFN    42
                     36613                        IX6    X1+X3                                                   COMCSFN    43
                          0400005274 +            EQ     SFNX        RETURN                                      COMCSFN    44
                                                                                                                 COMCSFN    45
          5301  40404040404040404040     SFNA     DATA   40404040404040404040B                                   COMCSFN    46
          5302  55555555555555555555              DATA   10H                                                     COMCSFN    47
  
  
  
  
                                 D_D              BASE   *                                                       COMCSFN    49
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSFN    50
                                                  QUAL   *                                                       COMCSFN    51
                                         SFN      EQU    /COMCSFN/SFN                                            COMCSFN    52
                                         SFN=     EQU    /COMCSFN/SFN                                            F4720D     13
                                         QUAL$    ENDIF                                                          COMCSFN    53
                                         SFN      ENDX                                                           COMCSFN    54
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   276
        COMCSVR - SAVE ALL REGISTERS.                                 SVR                 IDP 
  
          5303                           SVR      CTEXT  COMCSVR - SAVE ALL REGISTERS.                           COMCSVR     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCSVR     4
                                                  QUAL   COMCSVR                                                 COMCSVR     5
                                 D_D              BASE   D                                                       COMCSVR     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCSVR     7
  
  
  
  
                                        ***       SVR - SAVE ALL REGISTERS.                                      COMCSVR     9
                                        *                                                                        COMCSVR    10
                                        *         AUTHOR UNKNOWN.    CIRCA 1971.                                 CPSA104    39
                                        *         P. C. TAM.         77/06/18.                                   COMCSVR    11
                                        *                                                                        COMCSVR    12
                                        *         SVR SAVES ALL REGISTERS IN A SPECIFIED REGISTER SAVE AREA.     COMCSVR    13
                                        *                                                                        CPSA245   167
                                        *         *******************************************************        CPSA245   168
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   169
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   170
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   171
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   172
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   173
                                        *         *******************************************************        CPSA245   174
                                        *                                                                        CPSA245   175
  
  
  
  
                                        ***       SVR SAVES ALL REGISTERS IN A SPECIFIED REGISTER SAVE AREA.     COMCSVR    15
                                        *         THE REGISTERS ARE SAVED IN THE FOLLOWING ORDER -               COMCSVR    16
                                        *         B0, B1, ..., B7, A0, A1, ..., A7, X0, X1, ..., X7.             COMCSVR    17
                                        *         EACH REGISTER OCCUPIES A FULL WORD WITH B AND A REGISTER       COMCSVR    18
                                        *         VALUES IN BITS 17-0. B AND A REGISTERS ARE SIGN EXTENDED.      COMCSVR    19
                                        *         MINUS ZERO (-0) IS PRESERVED IN ALL REGISTERS.                 COMCSVR    20
                                        *                                                                        COMCSVR    21
                                        *         ENTRY  BITS 17-0 OF THE WORD FROM WHICH SVR= WAS CALLED        COMCSVR    22
                                        *                CONTAIN THE ADDRESS OF THE REGISTER SAVE AREA.          COMCSVR    23
                                        *                                                                        COMCSVR    24
                                        *         EXIT   (SAVE - SAVE+7) = B REGISTERS.                          COMCSVR    25
                                        *                (SAVE+8 - SAVE+15) = A REGISTERS.                       COMCSVR    26
                                        *                (SAVE+16 - SAVE+23) = X REGISTERS.                      COMCSVR    27
                                        *                                                                        COMCSVR    28
                                        *         USES   A - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCSVR    29
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCSVR    30
                                        *                X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCSVR    31
                                        *                                                                        COMCSVR    32
                                        *         CALLS  NONE.                                                   COMCSVR    33
                                                                                                                 COMCSVR    34
                                                                                                                 COMCSVR    35
                                   0     SAVEB    EQU    0                                                       COMCSVR    36
                                  10     SAVEA    EQU    8                                                       COMCSVR    37
                                  20     SAVEX    EQU    16                                                      COMCSVR    38
                                                                                                                 COMCSVR    39
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   277
        COMCSVR - SAVE ALL REGISTERS.                                 SVR                 IDP 
  
          5303  0400405303 +             SVR      SUBR               ENTRY/EXIT                                  COMCSVR    40
                                                                                                                 COMCSVR    41
                                        *         CHECK FOR (B1) = 1. IF NOT, SAVE (B1) THE HARD WAY BY          COMCSVR    42
                                        *         EXECUTING THE RJ SEQUENCE AT *SVR2*. IF BIT                    COMCSVR    43
                                        *         2**N WAS ON IN (B1), THEN THE *RJ* AT (SVR2+2*N+1) WILL BE     COMCSVR    44
                                        *         EXECUTED, RESULTING IN AN /EQ SVR2+2*N+1/. IF BIT 2**N WAS     COMCSVR    45
                                        *         NOT ON IN (B1), THEN THE *RJ* WILL NOT BE EXECUTED. BY         COMCSVR    46
                                        *         QUERYING (SVR2+2*N+1), ONE CAN DETERMINE WHETHER OR NOT THE    COMCSVR    47
                                        *         BIT 2**N WAS ON IN (B1) BY THE PRESENCE OF AN *EQ* OR AN *RJ*  COMCSVR    48
                                        *         INSTRUCTION.                                                   COMCSVR    49
                                                                                                                 COMCSVR    50
          5304  0710005306 +                      MI     B1,SVR2     IF (B1) .LE. 0 (PRESERVE -0)                COMCSVR    51
                          6111777776              SB1    B1-1                                                    COMCSVR    52
          5305  0410005354 +                      ZR     B1,SVR4     IF (B1) = 1                                 COMCSVR    53
                          6111000001              SB1    B1+1        RESTORE (B1)                                COMCSVR    54
                                                                                                                 COMCSVR    55
                                        *         *RJ* SEQUENCE FOR SAVING (B1).                                 COMCSVR    56
                                                                                                                 COMCSVR    57
          5306  0610005310 +             SVR2     PL     B1,*+2                                                  COMCSVR    58
          5307  0100005307 +             +        RJ     *                                                       COMCSVR    59
                                  21     B.NE.1   DUP    17                                                      COMCSVR    60
                                         +        SB1    B1+B1                                                   COMCSVR    61
                                                  NO                                                             COMCSVR    62
                                                  PL     B1,*+2                                                  COMCSVR    63
                                         +        RJ     *                                                       COMCSVR    64
                                         B.NE.1   ENDD                                                           COMCSVR    65
                                                                                                                 COMCSVR    66
                                        *         FILLER BECAUSE RJ-S MUST BE 2 WORDS APART FOR RESTORE.         COMCSVR    67
                                                                                                                 COMCSVR    68
          5352  6100000000               +        SB0    B0+                                                     COMCSVR    69
          5353  0100005353 +             SVR3     RJ     *           (B1) = 1/(B1) .NE. 1 FLAG                   COMCSVR    70
                                                                                                                 COMCSVR    71
                                        *         SAVE   (A) - 4,5,6,7.                                          COMCSVR    72
                                        *                (X) - 4,5,6,7.                                          COMCSVR    73
                                                                                                                 COMCSVR    74
          5354  65170                    SVR4     SB1    A7-B0       SAVE (A7) TEMPORARILY.                      COMCSVR    75
                     5170005411 +                 SA7    SVRA        SAVE (X7) TEMPORARILY                       COMCSVR    76
                               75750              SX7    A5-B0                                                   COMCSVR    77
          5355  5170005412 +                      SA7    SVRB        SAVE (A5) TEMPORARILY                       COMCSVR    78
                          10755                   BX7    X5                                                      COMCSVR    79
          5356  5170005413 +                      SA7    SVRC        SAVE (X5) TEMPORARILY                       COMCSVR    80
                          5150005303 +            SA5    SVRX        (X5) = 30/EQ CALLER+1, 30/0                 COMCSVR    81
          5357  20536                             LX5    30                                                      COMCSVR    82
                     5255777776                   SA5    X5-1        (X5) = 30/RJ SVR=, 30/FWA OF RSA            COMCSVR    83
                               77710              SX7    B1-B0                                                   COMCSVR    84
          5360  6110000001                        SB1    1                                                       COMCSVR    85
                          5275000017              SA7    X5+SAVEA+7  (A7) TO SAVE AREA                           COMCSVR    86
          5361  75760                             SX7    A6-B0                                                   COMCSVR    87
                     5265000026                   SA6    X5+SAVEX+6  (X6) TO SAVE AREA                           COMCSVR    88
                               55771              SA7    A7-B1       (A6) TO SAVE AREA                           COMCSVR    89
          5362  10644                             BX6    X4                                                      COMCSVR    90
                     75740                        SX7    A4-B0                                                   COMCSVR    91
                          5066777775              SA6    A6-2        (X4) TO SAVE AREA                           COMCSVR    92
          5363  5077777775                        SA7    A7-2        (A4) TO SAVE AREA                           COMCSVR    93
                                                                                                                 COMCSVR    94
                                        *         SAVE   (A) - 0,1,2,3.                                          COMCSVR    95
                                        *                (X) - 0,1,2,3.                                          COMCSVR    96
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   278
        COMCSVR - SAVE ALL REGISTERS.                                 SVR                 IDP 
  
                                                                                                                 COMCSVR    97
                                         SV=AX    ECHO   ,N=(3,2,1,0)                                            COMCSVR    98
                                                  BX6    X.N                                                     COMCSVR    99
                                                  SX7    A.N-B0                                                  COMCSVR   100
                                                  SA6    A6-B1       (X.N) TO SAVE AREA                          COMCSVR   101
                                                  SA7    A7-B1       (A.N) TO SAVE AREA                          COMCSVR   102
                                         SV=AX    ENDD                                                           COMCSVR   103
                                                                                                                 COMCSVR   104
                                        *         SAVE (X7), (A5), (X5) FINALLY.                                 COMCSVR   105
                                                                                                                 COMCSVR   106
                          5120005411 +            SA2    SVRA        (X2) = SAVED (X7)                           COMCSVR   107
          5370  5130005412 +                      SA3    SVRB        (X3) = SAVED (A5)                           COMCSVR   108
                          5140005413 +            SA4    SVRC        (X4) = SAVED (X5)                           COMCSVR   109
          5371  10622                             BX6    X2                                                      COMCSVR   110
                     22703                        LX7    X3                                                      COMCSVR   111
                          5265000027              SA6    X5+SAVEX+7  (X7) TO SAVE AREA                           COMCSVR   112
          5372  5275000015                        SA7    X5+SAVEA+5  (A5) TO SAVE AREA                           COMCSVR   113
                          10644                   BX6    X4                                                      COMCSVR   114
          5373  5265000025                        SA6    X5+SAVEX+5  (X5) TO SAVE AREA                           COMCSVR   115
                                                                                                                 COMCSVR   116
                                        *         SAVE   (B) - 0,1,2,3,4,5,6,7.                                  COMCSVR   117
                                                                                                                 COMCSVR   118
                          13666                   BX6    X6-X6                                                   COMCSVR   119
          5374  5265000000                        SA6    X5+SAVEB+0  (B0) = 0 TO SAVE AREA                       COMCSVR   120
                          76710                   SX7    B1                                                      COMCSVR   121
                               54761              SA7    A6+B1                                                   COMCSVR   122
                                         SV=B     ECHO   ,U=(2,4,6),L=(3,5,7)                                    COMCSVR   123
                                                  SX6    B.U-B0                                                  COMCSVR   124
                                                  SX7    B.L-B0                                                  COMCSVR   125
                                                  SA6    A7+B1                                                   COMCSVR   126
                                                  SA7    A6+B1                                                   COMCSVR   127
                                         SV=B     ENDD                                                           COMCSVR   128
                                                                                                                 COMCSVR   129
                                        *         SAVE (B1).                                                     COMCSVR   130
                                                                                                                 COMCSVR   131
          5400  5150005353 +                      SA5    SVR3        (X5) = (B1) = 1/(B1) .NE. 1 FLAG            COMCSVR   132
                          7140000100              SX4    0100B       (X4) = *RJ* OP CODE                         COMCSVR   133
          5401  76310                             SX3    B1                                                      COMCSVR   134
                     20351                        LX3    42-0-1      BIT FOR RECONSTRUCTION OF B1                COMCSVR   135
                          74650                   SX6    A5                                                      COMCSVR   136
                               20422              LX4    29-11                                                   COMCSVR   137
          5402  12646                             BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMCSVR   138
                     20636                        LX6    59-29                                                   COMCSVR   139
                          54650                   SA6    A5          RESTORE RJ    *                             COMCSVR   140
                               20503              LX5    59-56                                                   COMCSVR   141
          5403  13777                             BX7    X7-X7                                                   COMCSVR   142
                     0325005303 +                 PL     X5,SVRX     IF (B1) = 1, RETURN                         COMCSVR   143
                               66211              SB2    B1+B1                                                   COMCSVR   144
                                                                                                                 COMCSVR   145
                                        *         ASSEMBLE ORIGINAL (B1) INTO (X7).                              COMCSVR   146
                                                                                                                 COMCSVR   147
          5404  55552                    SVR5     SA5    A5-B2                                                   COMCSVR   148
                     36333                        IX3    X3+X3                                                   COMCSVR   149
                          74650                   SX6    A5                                                      COMCSVR   150
                               20503              LX5    59-56                                                   COMCSVR   151
          5405  12646                             BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMCSVR   152
                     0325005406 +                 PL     X5,SVR6     IF BIT WAS CLEAR                            COMCSVR   153
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   279
        COMCSVR - SAVE ALL REGISTERS.                                 SVR                 IDP 
  
                               12773              BX7    X7+X3                                                   COMCSVR   154
          5406  20636                    SVR6     LX6    59-29       RESTORE RJ *                                COMCSVR   155
                     54650                        SA6    A5                                                      COMCSVR   156
                          0323005404 +            PL     X3,SVR5     IF MORE BITS TO ASSEMBLE                    COMCSVR   157
                                                                                                                 COMCSVR   158
                                        *         FINALLY SAVE (B1).                                             COMCSVR   159
                                                                                                                 COMCSVR   160
          5407  21752                             AX7    42          SIGN EXTEND                                 COMCSVR   161
                     5077777771                   SA7    A7-7+1      (B1) TO SAVE AREA                           COMCSVR   162
          5410  0400005303 +                      EQ     SVRX        RETURN                                      COMCSVR   163
                                                                                                                 COMCSVR   164
                                        *         TEMPORARY SAVE AREAS.                                          COMCSVR   165
                                                                                                                 COMCSVR   166
          5411                     1     SVRA     BSS    1           SAVE FOR (X7)                               COMCSVR   167
          5412                     1     SVRB     BSS    1           SAVE FOR (A5)                               COMCSVR   168
          5413                     1     SVRC     BSS    1           SAVE FOR (X5)                               COMCSVR   169
  
  
  
  
                                 D_D              BASE   *                                                       COMCSVR   171
                                         QUAL$    IF      -DEF,QUAL$                                             COMCSVR   172
                                                  QUAL   *                                                       COMCSVR   173
                                         SVR      EQU    /COMCSVR/SVR                                            COMCSVR   174
                                         SVR=     EQU    /COMCSVR/SVR                                            F4720D     17
                                         QUAL$    ENDIF                                                          COMCSVR   175
                                         SVR      ENDX                                                           COMCSVR   176
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  316
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   280
        COMCSYS - PROCESS SYSTEM REQUEST.                             SYS                 IDP 
  
          5414                           SYS      CTEXT  COMCSYS - PROCESS SYSTEM REQUEST.                       COMCSYS     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCSYS     4
                                                  QUAL   COMCSYS                                                 COMCSYS     5
                                 D_D              BASE   D                                                       COMCSYS     6
                                 D_D              CODE   D                                                       COMCSYS     7
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCSYS     8
  
  
  
  
                                        ***       SYS - PROCESS SYSTEM REQUEST.                                  COMCSYS    10
                                        *                                                                        COMCSYS    11
                                        *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS    12
                                        *                                                                        CPSA245   176
                                        *         *******************************************************        CPSA245   177
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   178
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   179
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   180
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   181
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   182
                                        *         *******************************************************        CPSA245   183
                                        *                                                                        CPSA245   184
                                        *                                                                        COMCSYS    13
                                        *         SYS ISSUES A SYSTEM MONITOR REQUEST THROUGH RA+1.              COMCSYS    14
  
  
  
  
                                        ***       SYS WAITS FOR RA+1 TO CLEAR, THEN ISSUES THE DESIRED REQUEST.  COMCSYS    16
                                        *         CENTRAL EXCHANGE JUMP HARDWARE IS USED IF AVAILABLE.  IF NOT,  COMCSYS    17
                                        *         AND THE AUTO-RECALL BIT IS SET, SYS WAITS FOR THE MONITOR TO   COMCSYS    18
                                        *         PROCESS THE CALL BEFORE RETURNING.                             COMCSYS    19
                                        *                                                                        COMCSYS    20
                                        *         ENTRY  (X6) = SYSTEM REQUEST.                                  COMCSYS    21
                                        *                                                                        COMCSYS    22
                                        *         EXIT   REQUEST PROCESSED.                                      COMCSYS    23
                                        *                                                                        COMCSYS    24
                                        *         USES   A - 1, 6.                                               COMCSYS    25
                                        *                X - 6.                                                  COMCSYS    26
                                        *                                                                        COMCSYS    27
                                        *         CALLS  NONE.                                                   COMCSYS    28
                                                                                                                 COMCSYS    29
                                                                                                                 COMCSYS    30
          5414  54110                    SYSA     SA1    A1          WAIT (RA.MTR) CLEAR IF AUTO RECALL          COMCSYS    31
                     20123                        LX1    59-40                                                   COMCSYS    32
                          0331005415 +            MI     X1,SYS1                                                 COMCSYS    33
                                                                                                                 COMCSYS    34
          5415  0400005421 +             SYS1     EQ     SYS2        FIRST ENTRY                                 COMCSYS    35
                                                                                                                 COMCSYS    36
          5416  0400405416 +             SYS=     SUBR               ENTRY/EXIT                                  COMCSYS    37
          5417  5110000001               +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMCSYS    38
                          0311005417 +            NZ     X1,*                                                    COMCSYS    39
          5420  54610                             SA6    A1          ENTER REQUEST                               COMCSYS    40
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   281
        COMCSYS - PROCESS SYSTEM REQUEST.                             SYS                 IDP 
  
                     0400005415 +                 EQ     SYS1                                                    COMCSYS    41
                                                                                                                 COMCSYS    42
                                        *         INITIAL ENTRY TO SET TYPE OF CALL.                             COMCSYS    43
                                                                                                                 COMCSYS    44
          5421  5110000066               SYS2     SA1    RA.CEJ      TEST FOR CENTRAL EXCHANGE JUMP SUPPORT      COMCSYS    45
                          0331005423 +            MI     X1,SYS3                                                 COMCSYS    46
          5422  5110005414 +                      SA1    SYSA        NO, USE WAIT LOOP                           COMCSYS    47
                          0400005424 +            EQ     SYS4                                                    COMCSYS    48
                                                                                                                 COMCSYS    49
          5423  7110000130               SYS3     SX1    0130B       YES, USE XJ INSTRUCTION                     COMCSYS    50
                          20160                   LX1    48                                                      COMCSYS    51
          5424  13661                    SYS4     BX6    X6-X1       SWAP REGISTERS                              COMCSYS    52
                     13161                        BX1    X6-X1                                                   COMCSYS    53
                          13661                   BX6    X6-X1                                                   COMCSYS    54
          5425  5160005415 +                      SA6    SYS1        SET MONITOR CALL                            COMCSYS    55
                          10611                   BX6    X1          RESTORE (X6)                                COMCSYS    56
          5426  5110000001                        SA1    RA.MTR      RESET (A1)                                  COMCSYS    57
                          0100005414 +            RJ     SYSA        CLEAR STACK                                 COMCSYS    58
  
  
  
  
                                        ***       RCL - PLACE PROGRAM ON RECALL.                                 COMCSYS    60
                                        *                                                                        COMCSYS    61
                                        *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS    62
                                        *                                                                        COMCSYS    63
                                        *         RCL ISSUES A SINGLE SYSTEM REQUEST FOR PERIODIC RECALL.        COMCSYS    64
                                        *         IF RA+1 IS BUSY, NO REQUEST IS ISSUED.                         COMCSYS    65
  
  
  
  
                                        ***       ENTRY  NONE.                                                   COMCSYS    67
                                        *                                                                        COMCSYS    68
                                        *         EXIT   REQUEST PROCESSED.                                      COMCSYS    69
                                        *                                                                        COMCSYS    70
                                        *         USES   A - 1.                                                  COMCSYS    71
                                        *                X - 1, 6.                                               COMCSYS    72
                                        *                                                                        COMCSYS    73
                                        *         MACROS SYSTEM.                                                 CPS0303    10
                                                                                                                 COMCSYS    75
                                                                                                                 COMCSYS    76
          5427  20652                    RCL1     LX6    42          PROCESS REQUEST                             COMCSYS    77
                     0100005416 +                 SYSTEM                                                         COMCSYS    78
          5430  5110000001               +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMCSYS    79
                          0311005430 +            NZ     X1,*                                                    COMCSYS    80
                                                                                                                 COMCSYS    81
          5431  0400405431 +             RCL=     SUBR               ENTRY/EXIT                                  COMCSYS    82
          5432  5110000001                        SA1    RA.MTR                                                  COMCSYS    83
                          0311005431 +            NZ     X1,RCL=     IF (RA.MTR) NOT CLEAR, RETURN               CPSA104    40
          5433  7160220314                        SX6    3RRCL       FORM RECALL REQUEST                         COMCSYS    85
                          0400005427 +            EQ     RCL1                                                    COMCSYS    86
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   282
        COMCSYS - PROCESS SYSTEM REQUEST.                             WNB                 IDP 
  
                                        ***       WNB - WAIT NOT BUSY.                                           COMCSYS    88
                                        *                                                                        COMCSYS    89
                                        *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS    90
                                        *                                                                        COMCSYS    91
                                        *         WAIT FOR STATUS WORD BIT 0 TO BE SET.                          COMCSYS    92
                                        *         IF WORD IS INITIALLY 0, RETURN.                                COMCSYS    93
  
  
  
  
                                        ***       ENTRY  (X2) = ADDRESS OF STATUS WORD.                          COMCSYS    95
                                        *                                                                        COMCSYS    96
                                        *         EXIT   RETURN WHEN BIT 0 OF STATUS WORD IS SET.                COMCSYS    97
                                        *                                                                        COMCSYS    98
                                        *         USES   A - 1.                                                  COMCSYS    99
                                        *                X - 1, 6.                                               COMCSYS   100
                                        *                                                                        COMCSYS   101
                                        *         MACROS SYSTEM.                                                 CPS0303    11
                                                                                                                 COMCSYS   103
                                                                                                                 COMCSYS   104
          5434  20150                    WNB2     LX1    40          SET AUTO RECALL FLAG                        COMCSYS   105
                     36661                        IX6    X6+X1                                                   COMCSYS   106
                          0100005416 +            SYSTEM             PROCESS REQUEST                             COMCSYS   107
                                                                                                                 COMCSYS   108
          5435  0400405435 +             WNB=     SUBR               ENTRY/EXIT                                  COMCSYS   109
          5436  7160220314                        SX6    3RRCL       FORM RECALL REQUEST                         COMCSYS   110
                          20652                   LX6    42                                                      COMCSYS   111
                               36662              IX6    X6+X2                                                   COMCSYS   112
          5437  53160                    WNB1     SA1    X6          CHECK STATUS WORD                           COMCSYS   113
                     20173                        LX1    59                                                      COMCSYS   114
                          0331005435 +            MI     X1,WNB=     IF COMPLETE BIT SET, RETURN                 CPSA104    41
          5440  0301005435 +                      ZR     X1,WNB=     IF BLANK STATUS, RETURN                     CPSA104    42
                          5110000001              SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMCSYS   117
          5441  0311005437 +                      NZ     X1,WNB1                                                 COMCSYS   118
                          7110000001              SX1    1           CONTINUE RECALL                             COMCSYS   119
          5442  0400005434 +                      EQ     WNB2                                                    COMCSYS   120
  
  
  
  
                                        ***       MSG - SEND MESSAGE.                                            COMCSYS   122
                                        *                                                                        COMCSYS   123
                                        *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS   124
                                        *                                                                        COMCSYS   125
                                        *         MSG FORMATS AND ISSUES A SYSTEM REQUEST TO SEND A DAYFILE      COMCSYS   126
                                        *         MESSAGE.                                                       COMCSYS   127
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   283
        COMCSYS - PROCESS SYSTEM REQUEST.                             MSG                 IDP 
  
                                        ***       ENTRY  (X1) = ADDRESS OF DATA.                                 COMCSYS   129
                                        *                (X6) = MESSAGE OPTION(S).                               COMCSYS   130
                                        *                            BIT 16 = AUTO RECALL (IF ON)                COMCSYS   131
                                        *                            BITS 11 - 0 = MESSAGE OPTION CODE.          COMCSYS   132
                                        *                                                                        COMCSYS   133
                                        *         EXIT   RETURN WHEN OPERATION COMPLETE.                         COMCSYS   134
                                        *                                                                        COMCSYS   135
                                        *         USES   A - 1, 6.                                               COMCSYS   136
                                        *         USES   X - 1, 6.                                               COMCSYS   137
                                        *                                                                        COMCSYS   138
                                        *         MACROS SYSTEM.                                                 CPS0303    12
                                                                                                                 COMCSYS   140
                                                                                                                 COMCSYS   141
          5443  7160324616               MSG1     SX6    3RMSG*2     FORM MESSAGE REQUEST                        COMCSYS   142
                          12661                   BX6    X6+X1                                                   COMCSYS   143
                               20651              LX6    40-59                                                   COMCSYS   144
          5444  0100005416 +                      SYSTEM             PROCESS REQUEST                             COMCSYS   145
                                                                                                                 COMCSYS   146
          5445  0400405445 +             MSG=     SUBR               ENTRY/EXIT                                  COMCSYS   147
          5446  73660                             SX6    X6          THROW AWAY BIT 22 (OLD RECALL BIT)          COMCSYS   148
                     20630                        LX6    24          MERGE OPTION(S) AND ADDRESS                 COMCSYS   149
                          12161                   BX1    X6+X1                                                   COMCSYS   150
                               73610              SX6    X1                                                      COMCSYS   151
          5447  20123                             LX1    59-40                                                   COMCSYS   152
                     0321005443 +                 PL     X1,MSG1     IF NO AUTO RECALL                           COMCSYS   153
                               20151              LX1    40-59                                                   COMCSYS   154
          5450  13116                             BX1    X1-X6       REMOVE MESSAGE ADDRESS                      COMCSYS   155
                     20636                        LX6    30                                                      COMCSYS   156
                          5160005453 +            SA6    MSGA        STORE STATUS WORD                           COMCSYS   157
          5451  74660                             SX6    A6                                                      COMCSYS   158
                     36116                        IX1    X1+X6       SET INDIRECT ADDRESS                        COMCSYS   159
                          20123                   LX1    59-40                                                   COMCSYS   160
          5452  0400005443 +                      EQ     MSG1                                                    COMCSYS   161
                                                                                                                 COMCSYS   162
          5453  00000000000000000000     MSGA     VFD    30/**,30/0  STATUS WORD FOR MESSAGE WITH AUTO RECALL    COMCSYS   163
  
  
  
  
                                 D_D              BASE   *                                                       COMCSYS   165
                                 D_D              CODE   *                                                       COMCSYS   166
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSYS   167
                                                  QUAL   *                                                       COMCSYS   168
                                         SYS=     EQU    /COMCSYS/SYS=                                           COMCSYS   169
                                         RCL=     EQU    /COMCSYS/RCL=                                           COMCSYS   170
                                         WNB=     EQU    /COMCSYS/WNB=                                           COMCSYS   171
                                         MSG=     EQU    /COMCSYS/MSG=                                           COMCSYS   172
                                         QUAL$    ENDIF                                                          COMCSYS   173
                                         SYS      ENDX                                                           COMCSYS   174
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   284
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
          5454                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   285
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *         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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   286
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *                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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   287
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *----------------------------------------------------------------------- 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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   288
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *         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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   289
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *                                                                        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   290
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *         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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   291
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *                                                                        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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   292
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                        *                     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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   293
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOFU                IDP 
  
                                         +        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
          5454                     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
          5455                     1     TF=SQZ   BSSZ   1                                                       COMCTOK   539
                                                                                                                 COMCTOK   540
                                                  IFNE   TEST,0,1                                                COMCTOK   541
                                         TF=IDP   BSSZ   1                                                       COMCTOK   542
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   294
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOKCOM              IDP 
  
                                        **        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
          5456  0400405456 +             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
          5457  7162000000                        SX6    B2+                                                     COMCTOK   596
                          5160005454 +            SA6    FW=TCOM     SAVE (B2) = FWA OF *TOKCOM*                 COMCTOK   597
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   295
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                                                                                                 COMCTOK   598
          5460  5112000000                        SA1    B2+TC.FWA                                               COMCTOK   599
                          0301005475 +            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
          5461  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
          5462  0603405462 +                      LE     B3,B0,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   626
                          0743405462 +            GT     B3,B4,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   627
                                                                                                                 COMCTOK   628
          5463  7130000006                        SX3    CHAR        (X3) = BIT WIDTH OF 1 CHARACTER             COMCTOK   629
                          7140000102              SX4    60D+CHAR                                                COMCTOK   630
          5464  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
          5465  5162000005                        SA6    B2+TC.SOA                                               COMCTOK   635
                          5172000010              SA7    B2+TC.SOB                                               COMCTOK   636
                                                                                                                 COMCTOK   637
          5466  7160000074                        SX6    60D                                                     COMCTOK   638
                          53510                   SA5    X1          (X5) = 1ST WORD TO ENTOKEN                  COMCTOK   639
                               37762              IX7    X6-X2                                                   COMCTOK   640
          5467  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
          5470  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
          5471  0603405471 +                      LE     B3,B0,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   652
                          0743405471 +            GT     B3,B4,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   653
                                                                                                                 COMCTOK   654
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   296
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
          5472  66320                             SB3    B2          SAVE (B2)                                   COMCTOK   655
                     0100005616 +                 RJ     CCD         COMPUTE CHARACTER DIFFERENCE                COMCTOK   656
          5473  0337405473 +                      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
          5474  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
          5475                           TOK2     BSS    0                                                       COMCTOK   665
          5475  0100005625 +                      RJ     RER         RESTORE ENTOKENING REGISTERS                COMCTOK   666
          5476  5122000012                        SA2    B2+TC.TBA                                               COMCTOK   667
                          5132000014              SA3    B2+TC.RSF                                               COMCTOK   668
          5477  76600                             =X6    "O."BOS                                                 COMCTOK   669
                     0313005511 +                 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
          5500                           TOK=MN   BSS    0           ** MAIN LOOP NODE **                        COMCTOK   690
          5500  43066                             MX0    -CHAR                                                   COMCTOK   691
                     0324005507 +                 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
          5501  5120005455 +                      SA2    TF=SQZ                                                  COMCTOK   694
                          43600                   MX6    0           CLEAR PACKING REGISTER                      COMCTOK   695
          5502  0312005505 +                      NZ     X2,TOK3     IF BU/BU WITH BLANK SQUEEZE                 COMCTOK   696
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK   697
          5503  0100004732 +                      RJ     =XBUN       BURST/BUILD WITH NO BLANK SQUEEZE           COMCTOK   698
          5504  0707005507 +                      GT     B7,B0,TOK4  IF NO EOL ENCOUNTERED                       COMCTOK   699
                          0400005547 +            EQ     TOK=EOL                                                 COMCTOK   700
                                                                                                                 COMCTOK   701
          5505  6130000066               TOK3     SB3    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK   702
                          0100004710 +            RJ     =XBUB       BURST/BUILD WITH BLANK SQUEEZE              COMCTOK   703
          5506  0707005507 +                      GT     B7,B0,TOK4  IF NO EOL ENCOUNTERED                       COMCTOK   704
                          0400005547 +            EQ     TOK=EOL                                                 COMCTOK   705
                                                                                                                 COMCTOK   706
          5507  54200                    TOK4     SA2    A0          (X2) = NEXT TOGEL BINARY INST TO XEQ        COMCTOK   707
                     54001                        SA0    A0+B1                                                   COMCTOK   708
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   297
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=MN              IDP 
  
                                                                                                                 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
          5510  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
          5511                           TOK=RS   BSS    0                                                       COMCTOK   748
                                                                                                                 COMCTOK   749
                                        *         SET UP (A6).  NEXT ADDR TO STORE TOKEN IS AT (A6)+1.           COMCTOK   750
                                                                                                                 COMCTOK   751
          5511  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
          5512  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   298
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=RS              IDP 
  
          5513  6242777776                        SB4    X2-1        (B4) = TOFU RESTART ADDR                    COMCTOK   763
                          0301005515 +            ZR     X1,TOK5A    IF NO *ON RESTART* PROCESSING               COMCTOK   764
          5514  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
          5515  0244000000               TOK5A    JP     B4+         BANG...                                     COMCTOK   768
  
  
  
  
                                        **        HERE IF *CALT XX*.                                             COMCTOK   770
                                                                                                                 COMCTOK   771
                                                                                                                 COMCTOK   772
          5516  0400005500 +             TOK=CAL  TOFU                                                           COMCTOK   773
          5517  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   299
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             IDP 
  
                                        *                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
          5520  0400005500 +             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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   300
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             IDP 
  
                                        *                +      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
          5521  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
          5522  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
          5523  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
          5524  64560                             SB5    A6          INITIALIZE (B5) = ADDR OF PRECEDING TOKEN   COMCTOK   911
                     0326005525 +                 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
          5525  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
          5526  73010                             SX0    X1          (X0) = ADDR OF USER PROCESSING ADDR FOR     COMCTOK   926
                                        *                                   THIS TOKEN, ELSE .ZR. IF NONE        COMCTOK   927
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   301
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             IDP 
  
                     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
          5527  0440005540 +             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
          5530  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
          5531  0523005527 +                      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
          5532  20144                             LX1    59-TL.MAFP+TL.TRUP-0                                    COMCTOK   971
                     0321005535 +                 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
          5533  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   302
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             IDP 
  
          5534  0317005527 +                      NZ     X7,TOK7     IF NO MATCH                                 COMCTOK   982
                                                                                                                 COMCTOK   983
          5535  66430                    TOK8     SB4    B3                                                      COMCTOK   984
                     67551                        SB5    B5-B1                                                   COMCTOK   985
                          0530005527 +            NZ     B3,TOK7     IF NEED TO TRY NEXT *TRUE* TLINK ENTRY      COMCTOK   986
          5536  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
          5537  20122                             LX1    0-TK.LNKP+TK.PADP-0                                     COMCTOK   991
                     63410                        =B4    FW.TOK+X1                                               COMCTOK   992
                          0400005541 +            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
          5540  6056000000               TOK8A    SB5    A6+         RESET (B5) = ADDR WE ORIGINALLY BEGAN AT    COMCTOK   999
                                                                                                                 COMCTOK  1000
          5541  6230000000               TOK9     SB3    FW.TOK+X0   (B3) = ADDR OF SPECIAL PROCESSOR, ELSE      COMCTOK  1001
                                        *                                   .ZR. IF NONE                         COMCTOK  1002
                          0430005544 +            ZR     B3,TOK10    IF NO SPECIAL PROCESSOR                     COMCTOK  1003
          5542  0730005543 +                      MI     B3,TOK9A    IF MERELY XFERRING WITHIN *TOM*             COMCTOK  1004
                          0233000000              JP     B3+                                                     COMCTOK  1005
                                                                                                                 COMCTOK  1006
          5543  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
          5544                           TOK=COS  BSS    0           ** RETURN WITH TOKEN STORE **               COMCTOK  1012
          5544  5165000001               TOK10    SA6    B5+1                                                    COMCTOK  1013
                                                                                                                 COMCTOK  1014
          5545                           TOK=CON  BSS    0           ** RETURN WITH NO TOKEN STORE **            COMCTOK  1015
          5545  0540005527 +             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
          5546  0400005500 +                      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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   303
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=ENT             IDP 
  
                                        **        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
          5547                           TOK=EOL  BSS    0           ** ENTRY **                                 COMCTOK  1046
          5547  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
          5550  0100005634 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   COMCTOK  1050
          5551  5112000016                        SA1    B2+TC.EOL                                               COMCTOK  1051
                          0301005456 +            ZR     X1,EXIT.    IF NO SPECIAL PROCESSING                    COMCTOK  1052
          5552  63210                             SB2    X1                                                      COMCTOK  1053
                     0222000000                   JP     B2          DO WHAT YOU WILL...                         COMCTOK  1054
  
  
  
  
                                        **        HERE IF *GENTOK TOT*.                                          COMCTOK  1056
                                                                                                                 COMCTOK  1057
                                                                                                                 COMCTOK  1058
          5553  0400005500 +             TOK=GEN  TOFU                                                           COMCTOK  1059
          5554  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
          5555  0400005500 +                      EQ     TOK=MN                                                  COMCTOK  1065
  
  
  
  
                                        **        HERE IF *GROUP,...,NSQZ*.                                      COMCTOK  1067
                                                                                                                 COMCTOK  1068
          5556  0400005563 +             TOK=GN   TOFU   TOK13                                                   COMCTOK  1069
          5557  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
          5560  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   304
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=GN              IDP 
  
                               13777              BX7    X7-X7                                                   COMCTOK  1077
          5561  5170005455 +                      SA7    TF=SQZ      SET TO *BU/BU WITH NO BLANK SQZ*            COMCTOK  1078
                          0100004732 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    COMCTOK  1079
          5562  0707005500 +                      GT     B7,B0,TOK=MN IF DID NOT ENCOUNTER END-OF-LINE           COMCTOK  1080
                          0400005547 +            EQ     TOK=EOL                                                 COMCTOK  1081
                                                                                                                 COMCTOK  1082
                                        **        HERE FOR *GROUP,...,NSQZ* RESTART.                             COMCTOK  1083
                                                                                                                 COMCTOK  1084
          5563  6120000066               TOK13    SB2    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK  1085
                          0432005557 +            EQ     B3,B2,TOK=GN IF LAST TOKEN GENERATED WAS FULL           COMCTOK  1086
          5564  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
          5565  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1092
                     10677                        BX6    X7          RESTORE (X6) = PARTIALLY FILLED TOKEN       COMCTOK  1093
                          0400005560 +            EQ     TOK12                                                   COMCTOK  1094
  
  
  
  
                                        **        HERE IF *GOTO XX*.                                             COMCTOK  1096
                                                                                                                 COMCTOK  1097
          5566  0400005500 +             TOK=GO   TOFU                                                           COMCTOK  1098
          5567  20252                             LX2    0-TG.GOTP+TG.TOFUP-0                                    COMCTOK  1099
                                   0              ERRNZ  TG.GOTL-18                                              COMCTOK  1100
                     5202000000                   SA0    FW.TOK+X2                                               COMCTOK  1101
          5570  0400005500 +                      EQ     TOK=MN                                                  COMCTOK  1102
  
  
  
  
                                        **        HERE IF *GROUP,...,SQZ*.                                       COMCTOK  1104
                                                                                                                 COMCTOK  1105
          5571  0400005576 +             TOK=GS   TOFU   TOK15                                                   COMCTOK  1106
          5572  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
          5573  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
          5574  5170005455 +                      SA7    TF=SQZ      SET TO *BU/BU WITH BLANK SQZ*               COMCTOK  1116
                          0100004710 +            RJ     BUB         BURST/BUILD WITH BLANK SQUEEZE              COMCTOK  1117
          5575  0707005500 +                      GT     B7,B0,TOK=MN  IF DID NOT ENCOUNTER END-OF-LINE          COMCTOK  1118
                          0400005547 +            EQ     TOK=EOL                                                 COMCTOK  1119
                                                                                                                 COMCTOK  1120
                                        *         HERE FOR *GROUP,...,SQZ* RESTART.                              COMCTOK  1121
                                                                                                                 COMCTOK  1122
          5576  6120000066               TOK15    SB2    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK  1123
                          0432005572 +            EQ     B3,B2,TOK=GS IF LAST TOKEN GENERATED WAS FULL           COMCTOK  1124
          5577  55161                    +        SA1    A6-B1                                                   COMCTOK  1125
                     10766                        BX7    X6          SAVE (X6)                                   COMCTOK  1126
                          22601                   LX6    X1                                                      COMCTOK  1127
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   305
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=GS              IDP 
  
                               54610              SA6    A1          (A6+1) = ADDR TO (RE)STORE CURRENT          COMCTOK  1128
                                        *                                     UNFINISHED TOKEN                   COMCTOK  1129
          5600  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1130
                     10677                        BX6    X7          RESTORE (X6) = PARTIALLY FILLED TOKEN       COMCTOK  1131
                          0400005573 +            EQ     TOK14                                                   COMCTOK  1132
  
  
  
  
                                        **        HERE IF *IFT (...)*.                                           COMCTOK  1134
                                                                                                                 COMCTOK  1135
          5601  0400005500 +             TOK=IFT  TOFU                                                           COMCTOK  1136
          5602  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
          5603  20252                             LX2    0-TG.FALP+TG.MXAP-0                                     COMCTOK  1141
                     22721                        LX7    X1,B2                                                   COMCTOK  1142
                          0337005500 +            MI     X7,TOK=MN   IF CHARACTER IS IN THIS GROUP (TRUE)...     COMCTOK  1143
                                   0              ERRNZ  TG.FALL-18                                              COMCTOK  1144
          5604  5202000000                        SA0    FW.TOK+X2   (A0) = ADDR OF *FALSE* BINARY TOGEL INST    COMCTOK  1145
                          0400005500 +            EQ     TOK=MN                                                  COMCTOK  1146
  
  
  
  
                                        **        HERE IF *ON I,V*.                                              COMCTOK  1148
                                                                                                                 COMCTOK  1149
                                                                                                                 COMCTOK  1150
          5605  0400005500 +             TOK=ON   TOFU                                                           COMCTOK  1151
          5606  5110005454 +                      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
          5607  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
          5610  0400005500 +                      EQ     TOK=MN                                                  COMCTOK  1160
  
  
  
  
                                        **        HERE IF *XEQ P*.                                               COMCTOK  1162
                                                                                                                 COMCTOK  1163
          5611  0400005500 +             TOK=XEQ  TOFU                                                           COMCTOK  1164
          5612  20252                             LX2    0-TG.XADP+TG.TOFUP-0                                    COMCTOK  1165
                                   0              ERRNZ  TG.XADL-18                                              COMCTOK  1166
                     5110005615 +                 SA1    XEQA        (X1) = *GOTO* SKELETON                      COMCTOK  1167
                               74700              SX7    A0          (X7) = RETURN ADDR                          COMCTOK  1168
          5613  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
          5614  0400005500 +                      EQ     TOK=MN                                                  COMCTOK  1173
                                                                                                                 COMCTOK  1174
                                                                                                                 COMCTOK  1175
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   306
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=XEQ             IDP 
  
          5615  00000000000000005567 +   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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   307
        COMCTOK 2.0 - TOKEN GENERATOR.                                CCD                 IDP 
  
                                        *         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
          5616  0400405616 +             CCD      SUBR               ** ENTRY/EXIT **                            COMCTOK  1237
          5617  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
          5620  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
          5621  27707                             PX7    X7                                                      COMCTOK  1244
                     27202                        PX2    X2                                                      COMCTOK  1245
                          7140000012              SX4    60D/CHAR    (X4) = NR OF CHARS IN A WORD                COMCTOK  1246
          5622  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
          5623  26322                             UX3    X2,B2                                                   COMCTOK  1251
                     22223                        LX2    X3,B2                                                   COMCTOK  1252
                          36742                   IX7    X4+X2                                                   COMCTOK  1253
          5624  0400005616 +                      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
          5625  0400405625 +             RER      SUBR               ** ENTRY/EXIT **                            COMCTOK  1275
          5626  5110005454 +                      SA1    FW=TCOM                                                 COMCTOK  1276
                          63210                   SB2    X1          (B2) = FWA OF *TOKCOM*                      COMCTOK  1277
          5627  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
          5630  54431                             =A4    A3+TC.SOL-TC.SOX                                        COMCTOK  1281
                     53010                        SA0    X1                                                      COMCTOK  1282
                          53520                   SA5    X2                                                      COMCTOK  1283
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   308
        COMCTOK 2.0 - TOKEN GENERATOR.                                RER                 IDP 
  
                               10533              BX5    X3                                                      COMCTOK  1284
          5631  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
          5632  5042777775                        =A4    A2+TC.SOC-TC.TBB                                        COMCTOK  1289
                          63610                   SB6    X1                                                      COMCTOK  1290
                               63320              SB3    X2                                                      COMCTOK  1291
          5633  0400005625 +                      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
          5634  0400405634 +             SER      SUBR               ** ENTRY/EXIT **                            COMCTOK  1310
          5635  5110005454 +                      SA1    FW=TCOM                                                 COMCTOK  1311
                          63210                   SB2    X1          (B2) = FWA OF *TOKCOM*                      COMCTOK  1312
                               75700              SX7    A0-B0                                                   COMCTOK  1313
          5636  5172000004                        =A7    B2+TC.P                                                 COMCTOK  1314
                          75750                   SX7    A5-B0                                                   COMCTOK  1315
                               54771              =A7    A7+TC.SOA-TC.P                                          COMCTOK  1316
          5637  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
          5640  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
          5641  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
          5642  0400005634 +                      EQ     EXIT.                                                   COMCTOK  1329
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   309
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 IDP 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMCTOK  1331
                                                  QUAL   *                                                       COMCTOK  1332
                                         TOK      =      /COMCTOK/TOK                                            COMCTOK  1333
                                         CCD      =      /COMCTOK/CCD                                            COMCTOK  1334
                                         RER      =      /COMCTOK/RER                                            COMCTOK  1335
                                         SER      =      /COMCTOK/SER                                            COMCTOK  1336
                                         TF=SQZ   =      /COMCTOK/TF=SQZ                                         COMCTOK  1337
                                                                                                                 COMCTOK  1338
                                                  IFNE   TEST,0,1                                                COMCTOK  1339
                                         TF=IDP   =      /COMCTOK/TF=IDP                                         COMCTOK  1340
                                         TOK=MN   =      /COMCTOK/TOK=MN                                         COMCTOK  1341
                                         TOK=COS  =      /COMCTOK/TOK=COS                                        COMCTOK  1342
                                         TOK=CON  =      /COMCTOK/TOK=CON                                        COMCTOK  1343
                                         QUAL$    ENDIF                                                          COMCTOK  1344
  
  
  
  
                                         COMCTOK  ENDX                                                           COMCTOK  1346
                                         #IDPOS   ENDIF                                                          FC5A158A  317
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   310
        COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.                 WOD                 IDP 
  
          5642                           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
          5643  0400405643 +             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
          5644  5120005655 +                      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
          5645  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
          5646  20625                             LX6    21          ...L. ...Q. ...B. ...G.                     COMCWOD    39
                     20103                        LX1    3           DEFGH IJKLM NOPQR STABC                     COMCWOD    40
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   311
        COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.                 WOD                 IDP 
  
                          36767                   IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                     COMCWOD    41
                               11521              BX5    X2*X1       D.... I.... N.... S....                     COMCWOD    42
          5647  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
          5650  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
          5651  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
          5652  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
          5653  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
          5654  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
                          0400005643 +            EQ     WODX        RETURN                                      COMCWOD    65
                                                                                                                 COMCWOD    66
          5655  70000700007000070000     WODA     CON    70000700007000070000B                                   COMCWOD    67
          5656  07070707070000000000              CON    07070707070000000000B                                   COMCWOD    68
          5657  00000070707070700000              CON    00000070707070700000B                                   COMCWOD    69
          5660  33333333333333333333              CON    10H0000000000                                           COMCWOD    70
  
  
  
  
                                 D_D              BASE   *                                                       COMCWOD    72
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWOD    73
                                                  QUAL   *                                                       COMCWOD    74
                                         WOD      EQU    /COMCWOD/WOD                                            COMCWOD    75
                                         WOD=     EQU    /COMCWOD/WOD                                            F4720D     19
                                         QUAL$    ENDIF                                                          COMCWOD    76
                                         WOD      ENDX                                                           COMCWOD    77
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  318
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   312
        COMCWTC - WRITE CODED LINE, -C- FORMAT.                       WTC                 IDP 
  
          5661                           WTC      CTEXT  COMCWTC - WRITE CODED LINE, -C- FORMAT.                 COMCWTC     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCWTC     4
                                                  QUAL   COMCWTC                                                 COMCWTC     5
                                 D_D              BASE   D                                                       COMCWTC     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTC     7
  
  
  
  
                                        ***       WTC - WRITE CODED LINE, -C- FORMAT.                            COMCWTC     9
                                        *                                                                        COMCWTC    10
                                        *         G. R. MANSFIELD.   70/10/09.                                   COMCWTC    11
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA242    40
                                        *                                                                        CPSA242    41
                                        *         *******************************************************        CPSA242    42
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA242    43
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA242    44
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA242    45
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA242    46
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA242    47
                                        *         *******************************************************        CPSA242    48
                                        *                                                                        CPSA242    49
                                        *                                                                        COMCWTC    12
                                        *         WTC WRITES A ZERO-BYTE-DELIMITED LINE TO A FILE.               COMCWTC    13
  
  
  
  
                                        ***       WTC TRANSFERS 1 CODED LINE IN -C- FORMAT FROM A                COMCWTC    15
                                        *         WORKING BUFFER TO A CIO BUFFER.                                COMCWTC    16
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTC    17
                                        *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTC    18
                                        *         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTC    19
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTC    20
                                        *         WILL BE RE-ISSUED.                                             COMCWTC    21
                                        *                                                                        COMCWTC    22
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC    23
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTC    24
                                        *                                                                        COMCWTC    25
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC    26
                                        *                (B1) = 1.                                               COMCWTC    27
                                        *                                                                        COMCWTC    28
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTC    29
                                        *                B - 1, 2, 3, 4, 5, 6.                                   COMCWTC    30
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTC    31
                                        *                                                                        COMCWTC    32
                                        *         CALLS  DCB=, WTX=.                                             COMCWTC    33
                                                                                                                 COMCWTC    34
                                                                                                                 COMCWTC    35
          5661  0400005665 +             +        EQ     WTC1                                                    COMCWTC    36
                                                                                                                 COMCWTC    37
          5662  0400405662 +             WTC=     SUBR               ENTRY/EXIT                                  COMCWTC    38
          5663  5140005662 +                      SA4    *-1                                                     COMCWTC    39
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   313
        COMCWTC - WRITE CODED LINE, -C- FORMAT.                       WTC                 IDP 
  
                                                  IF     -DEF,B1=1,1                                             COMCWTC    40
                                                  SB1    1                                                       COMCWTC    41
                          5212000004              SA1    X2+4        (B5) = LIMIT                                COMCWTC    42
          5664  53321                             SA3    X2+B1       (X3) = FIRST                                COMCWTC    43
                     43460                        MX4    -12         (X4) = BYTE MASK                            COMCWTC    44
                          63510                   SB5    X1                                                      COMCWTC    45
                                                                                                                 COMCWTC    46
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTC    47
                                                                                                                 COMCWTC    48
          5665  53220                    WTC1     SA2    X2          (B2) = FET STATUS                           CPSA242    50
                     5013000002                   SA1    A3+2        (B4) = OUT                                  CPSA242    51
                               63220              SB2    X2                                                      CPSA242    52
          5666  54231                             SA2    A3+B1       (X2) = IN                                   COMCWTC    50
                     63410                        SB4    X1                                                      COMCWTC    51
                                                                                                                 COMCWTC    52
                                        *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTC    53
                                                                                                                 COMCWTC    54
          5667  56160                    WTC2     SA1    B6          READ NEXT WORD                              COMCWTC    55
                     63321                        SB3    X2+B1       (IN+1)                                      COMCWTC    56
                          0435005673 +            EQ     B3,B5,WTC4  IF (IN+1) = LIMIT                           COMCWTC    57
          5670  0434006001 +             WTC3     EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTC    58
                          10611                   BX6    X1                                                      COMCWTC    59
                               66661              SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTC    60
          5671  15714                             BX7    -X4*X1                                                  COMCWTC    61
                     53620                        SA6    X2          STORE WORD                                  COMCWTC    62
                          7123000000              SX2    B3+         IN = IN+1                                   COMCWTC    63
          5672  0317005667 +                      NZ     X7,WTC2     LOOP TO END OF LINE                         COMCWTC    64
                          0400005766 +            EQ     =XWTX=      EXIT                                        COMCWTC    65
                                                                                                                 COMCWTC    66
          5673  63330                    WTC4     SB3    X3          (IN+1) = FIRST                              COMCWTC    67
                     0400005670 +                 EQ     WTC3                                                    COMCWTC    68
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTC    70
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTC    71
                                                  QUAL   *                                                       COMCWTC    72
                                         WTC=     EQU    /COMCWTC/WTC=                                           COMCWTC    73
                                         QUAL$    ENDIF                                                          COMCWTC    74
                                         WTC      ENDX                                                           COMCWTC    75
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   314
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 IDP 
  
          5673                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   315
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 IDP 
  
                                        *         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
          5674  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
          5675  53121                             SA1    X2+B1                                                   COMCWTW    58
                     0535005676 +                 NE     B3,B5,WTW19 IF IN .NE. LIMIT                            COMCWTW    59
                               73610              SX6    X1          IN = FIRST                                  COMCWTW    60
          5676  54611                    WTW19    SA6    A1+B1       UPDATE IN                                   COMCWTW    61
                     0570005702 +                 NZ     B7,WTW1     IF NOT END OF TRANSFER                      COMCWTW    62
                               53420              SA4    X2                                                      COMCWTW    63
          5677  20473                             LX4    59-0                                                    COMCWTW    64
                     0324005701 +                 PL     X4,WTW=     IF BUFFER BUSY, RETURN                      CPSA104    48
                               21166              AX1    54          CHECK FOR DT = 61XX (NOS/BE TERMINAL)       COMCWTW    66
          5700  7211000016                        SX1    X1+77B-61B                                              COMCWTW    67
                          0301005740 +            ZR     X1,WTW11    IF NOS/BE TERMINAL, FLUSH BUFFER            COMCWTW    68
                                                                                                                 COMCWTW    69
          5701  0400405701 +             WTW=     SUBR               ENTRY/EXIT                                  COMCWTW    70
          5702  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
          5703  54411                             SA4    A1+B1       (B5) = LIMIT                                COMCWTW    75
                     0470005701 +                 ZR     B7,WTW=     IF WORKING BUFFER EMPTY, RETURN             CPSA104    49
                               63410              SB4    X1                                                      COMCWTW    77
          5704  53121                             SA1    X2+B1       (B2) = FIRST                                COMCWTW    78
                     63330                        SB3    X3                                                      COMCWTW    79
                          63540                   SB5    X4                                                      COMCWTW    80
                               63210              SB2    X1                                                      COMCWTW    81
          5705  56160                             SA1    B6          READ FIRST WORD                             COMCWTW    82
                     0524005706 +                 NE     B2,B4,WTW2  IF OUT .NE. FIRST                           COMCWTW    83
                               66450              SB4    B5                                                      COMCWTW    84
          5706  0734005707 +             WTW2     LT     B3,B4,WTW3  IF NO END AROUND                            COMCWTW    85
                          6145000001              SB4    B5+1                                                    COMCWTW    86
          5707  67441                    WTW3     SB4    B4-B1       CALCULATE FREE DATA SPACE                   COMCWTW    87
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   316
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 IDP 
  
                     67443                        SB4    B4-B3       (B4) = TRANSFER LENGTH                      COMCWTW    88
                          0440005743 +            ZR     B4,WTW13    IF NO ROOM                                  COMCWTW    89
          5710  10711                             BX7    X1                                                      COMCWTW    90
                     0674005711 +                 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
          5711                           WTWA     BSS    0                                                       COMCWTW    96
          5711  5130005761 +             WTW4     SA3    WTWC        PRESET CMU CODE AND VOID STACK              COMCWTW    97
                          0100005761 +            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
          5712  15346                    WTW5     BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCWTW   108
                     21403                        AX4    3           NUMBER OF BLOCKS                            COMCWTW   109
                          0303005715 +            ZR     X3,WTW7     IF NO ODD WORDS                             COMCWTW   110
                                                                                                                 COMCWTW   111
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCWTW   112
                                                                                                                 COMCWTW   113
          5713  7233777776               WTW6     SX3    X3-1                                                    COMCWTW   114
                          10711                   BX7    X1                                                      COMCWTW   115
                               54111              SA1    A1+B1                                                   COMCWTW   116
          5714  54771                             SA7    A7+B1                                                   COMCWTW   117
                     0313005713 +                 NZ     X3,WTW6     LOOP                                        COMCWTW   118
                                                                                                                 COMCWTW   119
                                        *         PRE-READ REGISTERS.                                            COMCWTW   120
                                                                                                                 COMCWTW   121
          5715  0304005674 +             WTW7     ZR     X4,WTW18    IF NO BLOCKS                                COMCWTW   122
                          63520                   SB5    X2          (B5) = FET ADDRESS                          COMCWTW   123
                               54211              SA2    A1+B1                                                   COMCWTW   124
          5716  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
          5717  10611                    WTW8     BX6    X1                                                      COMCWTW   132
                     22702                        LX7    X2                                                      COMCWTW   133
                          54132                   SA1    A3+B2                                                   COMCWTW   134
                               54242              SA2    A4+B2                                                   COMCWTW   135
          5720  54671                             SA6    A7+B1                                                   COMCWTW   136
                     67331                        SB3    B3-B1                                                   COMCWTW   137
                          54761                   SA7    A6+B1                                                   COMCWTW   138
                               10633              BX6    X3                                                      COMCWTW   139
          5721  22704                             LX7    X4                                                      COMCWTW   140
                     54312                        SA3    A1+B2                                                   COMCWTW   141
                          54422                   SA4    A2+B2                                                   COMCWTW   142
                               54662              SA6    A6+B2                                                   COMCWTW   143
          5722  54772                             SA7    A7+B2                                                   COMCWTW   144
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   317
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 IDP 
  
                     10611                        BX6    X1                                                      COMCWTW   145
                          22702                   LX7    X2                                                      COMCWTW   146
                               54132              SA1    A3+B2                                                   COMCWTW   147
          5723  54242                             SA2    A4+B2                                                   COMCWTW   148
                     54662                        SA6    A6+B2                                                   COMCWTW   149
                          54772                   SA7    A7+B2                                                   COMCWTW   150
                               10633              BX6    X3                                                      COMCWTW   151
          5724  22704                             LX7    X4                                                      COMCWTW   152
                     54312                        SA3    A1+B2                                                   COMCWTW   153
                          54422                   SA4    A2+B2                                                   COMCWTW   154
                               54662              SA6    A6+B2                                                   COMCWTW   155
          5725  54772                             SA7    A7+B2                                                   COMCWTW   156
                     0530005717 +                 NZ     B3,WTW8     LOOP                                        COMCWTW   157
                                                                                                                 COMCWTW   158
                                        *         WRITE EXIT.                                                    COMCWTW   159
                                                                                                                 COMCWTW   160
                               56352              SA3    B5+B2       READ IN                                     COMCWTW   161
          5726  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
          5727  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
          5730  20473                             LX4    59-0                                                    COMCWTW   170
                     53321                        SA3    X2+B1       READ FIRST                                  COMCWTW   171
                          6223000000              SB2    X3+                                                     COMCWTW   172
          5731  0535005732 +                      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
          5732  54631                    WTW10    SA6    A3+B1       STORE IN                                    COMCWTW   178
                     0324005742 +                 PL     X4,WTW12    IF BUFFER BUSY                              COMCWTW   179
                               21366              AX3    54          CHECK FOR DT = 61XX (NOS/BE TERMINAL)       COMCWTW   180
          5733  7233000016                        SX3    X3+77B-61B                                              COMCWTW   181
                          0303005740 +            ZR     X3,WTW11    IF NOS/BE TERMINAL, FLUSH BUFFER            COMCWTW   182
          5734  5212000003                        SA1    X2+3        READ OUT                                    COMCWTW   183
                          37616                   IX6    X1-X6       (OUT-IN)                                    COMCWTW   184
                               77752              SX7    B5-B2       (LIMIT-FIRST)                               COMCWTW   185
          5735  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
          5736  0336005742 +                      NG     X6,WTW12    IF BUFFER THRESHOLD NOT REACHED             COMCWTW   190
                          21711                   AX7    9                                                       COMCWTW   191
          5737  0307005742 +                      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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   318
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 IDP 
  
                                         WRIF$    ELSE   1                                                       COMCWTW   198
          5740  7170000014               WTW11    WRITE  X2                                                      COMCWTW   199
          5741  0317005701 +                      NZ     X7,WTW=     IF ERROR IN LAST *CIO* REQUEST, RETURN      CPSA104    50
          5742  0570005702 +             WTW12    NZ     B7,WTW1     IF NOT DONE                                 COMCWTW   201
                          0400005701 +            EQ     WTW=        RETURN                                      CPSA104    51
                                                                                                                 COMCWTW   203
                                        *         DUMP CIRCULAR BUFFER.                                          COMCWTW   204
                                                                                                                 COMCWTW   205
          5743  53120                    WTW13    SA1    X2          CHECK BUFFER STATUS                         COMCWTW   206
                     20173                        LX1    59-0                                                    COMCWTW   207
                          0331005740 +            NG     X1,WTW11    IF NOT BUSY                                 COMCWTW   208
          5744  0301005740 +                      ZR     X1,WTW11    IF BLANK FET                                COMCWTW   209
                          0100005431 +            RECALL                                                         COMCWTW   210
          5745  0400005702 +                      EQ     WTW1        CONTINUE WRITE                              COMCWTW   211
                                                                                                                 COMCWTW   212
                                        *         MOVE DATA WITH CMU.                                            COMCWTW   213
                                                                                                                 COMCWTW   214
          5746  7144776314               WTW14    SX4    B4-819                                                  COMCWTW   215
                          0324005757 +            PL     X4,WTW15    IF TOO BIG FOR CMU                          COMCWTW   216
          5747  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
          5750  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
          5751  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
          5752  20354                             LX3    48-4                                                    COMCWTW   229
                     12443                        BX4    X4+X3                                                   COMCWTW   230
                          20632                   LX6    26                                                      COMCWTW   231
                               12646              BX6    X4+X6                                                   COMCWTW   232
          5753  21363                             AX3    51                                                      COMCWTW   233
                     5160005761 +                 SA6    WTWC        STORE DESCRIPTOR WORD                       COMCWTW   234
          5754  4640005761 +                      IM     WTWC        MOVE DATA                                   COMCWTW   235
          5755  10011                             BX0    X1          RESTORE X0                                  COMCWTW   236
                     0303005674 +                 ZR     X3,WTW18    IF NO WRITE EXIT                            COMCWTW   237
                               53420              SA4    X2                                                      COMCWTW   238
          5756  76330                             SX3    B3          RESET IN                                    COMCWTW   239
                     0400005727 +                 EQ     WTW9                                                    COMCWTW   240
                                                                                                                 COMCWTW   241
          5757                           WTWB     BSS    0                                                       COMCWTW   242
          5757  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
          5760  0400005712 +                      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
          5761  0714005746 +             WTWC     GT     B4,B1,WTW14 IF MORE THAN 1 WORD TO MOVE  (CMU)          COMCWTW   254
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   319
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 IDP 
  
                          13444                   BX4    X4-X4                                                   COMCWTW   255
                               56730              SA7    B3                                                      COMCWTW   256
                                5761 +   WTW16    EQU    WTWC        USED TO VOID STACK                          COMCWTW   257
                                                                                                                 COMCWTW   258
                                        *         PRESET FOR CMU CODE.                                           COMCWTW   259
                                                                                                                 COMCWTW   260
          5762  5140000065                        SA4    RA.CMU      CHECK IF CMU AVAILABLE                      COMCWTW   261
                          6140005711 +            SB4    WTWA                                                    COMCWTW   262
          5763  0334005764 +                      NG     X4,WTW17    IF CMU                                      COMCWTW   263
                          5130005757 +            SA3    WTWB                                                    COMCWTW   264
          5764  10633                    WTW17    BX6    X3                                                      COMCWTW   265
                     56640                        SA6    B4                                                      COMCWTW   266
                          0100005764 +            RJ     *           VOID INSTRUCTION STACK.                     CPSA163     8
          5765  0400005702 +                      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
          5766  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
          5767  0321006000 +                      PL     X1,WTX1     IF BUFFER BUSY                              COMCWTW   294
                          54330                   SA3    A3          CHECK DEVICE TYPE                           COMCWTW   295
                               10633              BX6    X3                                                      COMCWTW   296
          5770  21666                             AX6    54                                                      COMCWTW   297
                     7266000016                   SX6    X6+77B-61B                                              COMCWTW   298
          5771  0306005776 +                      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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   320
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTX                 IDP 
  
                               63410              SB4    X1                                                      CPSA242   136
          5772  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
          5773  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
          5774  0336006000 +                      NG     X6,WTX1     IF BUFFER THRESHOLD NOT REACHED             COMCWTW   311
                          21711                   AX7    9                                                       COMCWTW   312
          5775  0307006000 +                      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
          5776  75231                    WTX0     WRITE  A3-B1                                                   COMCWTW   321
                                         WTX$     ENDIF                                                          CPSA242   137
                                                                                                                 CPSA242   138
          6000  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
          6001  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
          6002  0331006005 +                      NG     X1,DCB1     IF NOT BUSY                                 COMCWTW   345
                          0301006005 +            ZR     X1,DCB1     IF BLANK FET                                COMCWTW   346
          6003  75231                             SX2    A3-B1       RESET FET ADDRESS                           CPSA242   142
                     0100005431 +                 RECALL                                                         COMCWTW   347
          6004  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   348
                     0222000000                   JP     B2                                                      COMCWTW   349
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   321
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    DCB                 IDP 
  
                                         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
          6005  75231                    DCB1     WRITE  A3-B1                                                   COMCWTW   357
          6007  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
                                         WTW=     EQU    /COMCWTW/WTW=                                           COMCWTW   364
                                         WTX=     EQU    /COMCWTW/WTX=                                           COMCWTW   365
                                         DCB=     EQU    /COMCWTW/DCB=                                           COMCWTW   366
                                         QUAL$    ENDIF                                                          COMCWTW   367
                                         WTW      ENDX                                                           COMCWTW   368
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   322
        COMCXJR - RESTORE REGISTERS.                                  XJR                 IDP 
  
          6007                           XJR      CTEXT  COMCXJR - RESTORE REGISTERS.                            COMCXJR     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCXJR     4
                                                  QUAL   COMCXJR                                                 COMCXJR     5
                                 D_D              BASE   D                                                       COMCXJR     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCXJR     7
  
  
  
  
                                        ***       XJR - RESTORE ALL REGISTERS WITH A SYSTEM *XJR* CALL.          COMCXJR     9
                                        *                                                                        COMCXJR    10
                                        *         P. C. TAM.         77/07/07.                                   COMCXJR    11
                                        *                                                                        CPSA245   203
                                        *         *******************************************************        CPSA245   204
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   205
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   206
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   207
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   208
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   209
                                        *         *******************************************************        CPSA245   210
                                        *                                                                        CPSA245   211
                                        *                                                                        COMCXJR    12
                                        *         XJR RESTORES ALL REGISTERS FROM A REGISTER SAVE AREA.          COMCXJR    13
  
  
  
  
                                        ***       XJR RESTORES ALL REGISTERS FROM A REGISTER SAVE AREA.          COMCXJR    15
                                        *         THE REGISTERS ARE SAVED IN THE FOLLOWING ORDER -               COMCXJR    16
                                        *         B0, B1, ..., B7, A0, A1, ..., A7, X0, X1, ..., X7.             COMCXJR    17
                                        *         EACH REGISTER OCCUPIES A FULL WORD, WITH B AND A REGISTER      COMCXJR    18
                                        *         VALUES IN BITS 17-0.                                           COMCXJR    19
                                        *                                                                        COMCXJR    20
                                        *         ENTRY  (X1) = ADDRESS OF THE REGISTER SAVE AREA.               COMCXJR    21
                                        *                                                                        COMCXJR    22
                                        *         EXIT   ALL REGISTERS SET TO THE CONTENTS OF THE REGISTER       COMCXJR    23
                                        *                SAVE AREA.                                              COMCXJR    24
                                        *                                                                        COMCXJR    25
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCXJR    26
                                        *                B - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCXJR    27
                                        *                A - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCXJR    28
                                        *                                                                        COMCXJR    29
                                        *         CALLS  NONE.                                                   COMCXJR    30
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   323
        COMCXJR - RESTORE REGISTERS.                                  XJR                 IDP 
  
                                   0     SAVEB    EQU    0                                                       COMCXJR    32
                                  10     SAVEA    EQU    8                                                       COMCXJR    33
                                  20     SAVEX    EQU    16                                                      COMCXJR    34
                                                                                                                 COMCXJR    35
          6010  0400406010 +             XJR      SUBR               ENTRY/EXIT                                  COMCXJR    36
                                                  IF     -DEF,B1=1,1                                             COMCXJR    37
                                                  SB1    1                                                       COMCXJR    38
          6011  43052                             MX0    -18         (X0) = 77777777777777000000B                COMCXJR    39
                     6120000007                   SB2    7           (B2) = NUMBER OF HIGHEST REGISTER           COMCXJR    40
                                                                                                                 COMCXJR    41
                                        *         COPY REGISTERS FROM THE SAVED FORMAT TO THE EXCHANGE           COMCXJR    42
                                        *         PACKAGE FORMAT.                                                COMCXJR    43
                                                                                                                 COMCXJR    44
          6012  63412                    XJR1     SB4    B2+X1                                                   COMCXJR    45
                     5124000010                   SA2    SAVEA+B4    (X2) - A.(B2)                               COMCXJR    46
                               56340              SA3    B4          (X3) - B.(B2)                               COMCXJR    47
          6013  15220                             BX2    -X0*X2      CLEAR UPPER BITS                            COMCXJR    48
                     5144000020                   SA4    SAVEX+B4    (X4) - X.(B2)                               COMCXJR    49
                               15330              BX3    -X0*X3      CLEAR UPPER BITS                            COMCXJR    50
          6014  20222                             LX2    18D         (X2) = POSITIONED A.(B2)                    COMCXJR    51
                     12623                        BX6    X2+X3       (X6) = A.(B2) AND B.(B2) PACKED             COMCXJR    52
                          22704                   LX7    X4                                                      COMCXJR    53
          6015  5162006023 +                      SA6    XJRA+B2     STORE FORMATTED WORD IN EXCHANGE PACKAGE    COMCXJR    54
                          5172006033 +            SA7    XJRA+8+B2                                               COMCXJR    55
          6016  67221                             SB2    B2-B1       BACK UP ONE REGISTER                        COMCXJR    56
                     0620006012 +                 PL     B2,XJR1     IF ANOTHER B/A/X REGISTER TO MOVE           COMCXJR    57
                                                                                                                 COMCXJR    58
                                        *         INSERT P AND RESTORE ALL REGISTERS.                            COMCXJR    59
                                                                                                                 COMCXJR    60
          6017  7150006010 +                      SX5    XJRX        (X5) = P REGISTER FOR RETURN TO CALLER      COMCXJR    61
                          20544                   LX5    2*18D       (X5) = POSITIONED P-REGISTER                COMCXJR    62
                               12665              BX6    X6+X5       (X6) = P, A0, B0                            COMCXJR    63
          6020  54660                             SA6    A6          REPLACE OLD RSRA+0 WORD                     COMCXJR    64
                     7160301222                   SYSTEM XJR,R,XJRA                                              COMCXJR    65
  
  
  
  
          6023                    20     XJRA     BSS    2*8         EXCHANGE PACKAGE FOR XJR REQUEST            COMCXJR    67
  
  
  
  
                                 D_D              BASE   *                                                       COMCXJR    69
                                         QUAL$    IF     -DEF,QUAL$                                              COMCXJR    70
                                                  QUAL   *                                                       COMCXJR    71
                                         XJR      EQU    /COMCXJR/XJR                                            COMCXJR    72
                                         XJR=     EQU    /COMCXJR/XJR                                            F4720D     20
                                         QUAL$    ENDIF                                                          COMCXJR    73
                                         XJR      ENDX                                                           COMCXJR    74
                                         #IDPOS   ENDIF                                                          FC5A158A  319
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   324
        COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.                  ZTB                 IDP 
  
          6043                           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
          6043  0400406043 +             ZTB      SUBR               ENTRY/EXIT                                  COMCZTB    31
          6044  5130006050 +                      SA3    ZTBA                                                    COMCZTB    32
                          11631                   BX6    X3*X1       EXTRACT UPPER BIT FROM ALL CHARACTERS       COMCZTB    33
                               15713              BX7    -X3*X1                                                  COMCZTB    34
          6045  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
          6046  10677                             BX6    X7                                                      COMCZTB    39
                     20767                        LX7    -5          GENERATE SPACE MASK                         COMCZTB    40
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   325
        COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.                  ZTB                 IDP 
  
                          37767                   IX7    X6-X7                                                   COMCZTB    41
                               12767              BX7    X6+X7                                                   COMCZTB    42
          6047  15337                             BX3    -X7*X3      SELECT SPACE CODES                          COMCZTB    43
                     36613                        IX6    X1+X3       MERGE SPACES                                COMCZTB    44
                          0400006043 +            EQ     ZTB                                                     COMCZTB    45
                                                                                                                 COMCZTB    46
          6050  37373737373737373737     ZTBA     CON    37373737373737373737B                                   COMCZTB    47
          6051  55555555555555555555              CON    1H                                                      COMCZTB    48
  
  
  
  
                                 D_D              BASE   *                                                       COMCZTB    50
                                         QUAL$    IF     -DEF,QUAL$                                              COMCZTB    51
                                                  QUAL   *                                                       COMCZTB    52
                                         ZTB      EQU    /COMCZTB/ZTB                                            COMCZTB    53
                                         ZTB=     EQU    /COMCZTB/ZTB                                            F4720D     21
                                         QUAL$    ENDIF                                                          COMCZTB    54
                                         ZTB      ENDX                                                           COMCZTB    55
  
  
  
  
                                                  QUAL   *                                                       IDP       535
  
  
  
  
                                        ***       DEFINE IDP LINKAGE/ENTRY SYMBOLS.                              IDP       537
                                        *                                                                        IDP       538
                                        *                                                                        IDP       539
                                                                                                                 IDP       540
                                                                                                                 IDP       541
                                         #IDPOS   IFNE   .OS,2                                                   FC5A158A  320
                                         IDP=     IDPENT IDP=                                                    FC5A158A  321
                                         IDP=MN   IDPENT IDP=MN                                                  FC5A158A  322
                                         IDP=ER   IDPENT IDP=ERR                                                 FC5A158A  323
                                                                                                                 FC5A158A  324
                                                  IDPENT CLZ                                                     FC5A158A  325
                                                  IDPENT FLL                                                     FC5A158A  326
                                                  IDPENT PAS                                                     FC5A158A  327
                                                  IDPENT PAT                                                     FC5A158A  328
                                         PAT#FWA  IDPENT PAT#FWA                                                 FC5A158A  329
                                         PAT#LEN  IDPENT PAT#LEN                                                 FC5A158A  330
                                                                                                                 FC5A158A  331
                                         IDP=DXB  IDPENT DXB                                                     FC5A158A  332
                                         IDP=MCS  IDPENT MCS                                                     FC5A158A  333
                                         IDP=SFN  IDPENT SFN                                                     FC5A158A  334
                                         IDP=SYS  IDPENT SYS=                                                    FC5A158A  335
                                         #IDPOS   ENDIF                                                          FC5A158A  336
                                                                                                                 FC5A158A  337
                                                                                                                 FC5A158A  338
                                         IDP=SVB  IDPENT IDP=SVB                                                 FC5A158A  339
                                         IDP=SVA  IDPENT IDP=SVA                                                 FC5A158A  340
                                         IDP=SVX  IDPENT IDP=SVX                                                 FC5A158A  341
                                                                                                                 FC5A158A  342
                                         IDPFLG   IDPENT IDPFLG                                                  FC5A158A  343
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   326
        COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.                  ENTRY 
  
                                         REG=     IDPENT REG=                                                    FC5A158A  344
                                         ROL=     IDPENT ROL=                                                    FC5A158A  345
                                         SNP=     IDPENT SNP=                                                    FC5A158A  346
                                         SNAPLNE  IDPENT SNAPLNE                                                 FC5A158A  347
                                         FW=IDPL  IDPENT FW=PARM                                                 FC5A158A  348
                                                                                                                 FC5A158A  349
                                                  IDPENT CAD                                                     FC5A158A  350
                                                  IDPENT CHK                                                     FC5A158A  351
                                                  IDPENT DAR                                                     FC5A158A  352
                                         DCM=     IDPENT DCM                                                     FC5A158A  353
                                                  IDPENT FRK                                                     FC5A158A  354
                                                  IDPENT HDR                                                     FC5A158A  355
                                                  IDPENT SKT                                                     FC5A158A  356
                                                  IDPENT SOB                                                     FC5A158A  357
                                                                                                                 FC5A158A  358
                                         IDP=CDD  IDPENT CDD                                                     FC5A158A  359
                                         IDP=COD  IDPENT COD                                                     FC5A158A  360
                                         IDP=WOD  IDPENT WOD                                                     FC5A158A  361
                                         IDP=ZTB  IDPENT ZTB                                                     FC5A158A  362
                                                                                                                 FC5A158A  363
                                                                                                                 FC5A158A  364
                                        **        THE FOLLOWING SYMBOL DEFINITIONS ARE **TEMPORARY**, I.E. THEY  FC5A158A  365
                                        *         SHOULD BE REMOVED WHEN ALL OF THE REFERENCES TO THEM IN THE    FC5A158A  366
                                        *         FTN5 COMPILER CAN BE DELETED WHEN WE ARE BEING ASSEMBLED ON SC FC5A158A  367
                                                                                                                 FC5A158A  368
                                         #OS      IFEQ   .OS,2                                                   FC5A158A  369
                                         IDP=ER   BSSENT                                                         FC5A158A  370
                                         IDP=FLL  BSSENT                                                         FC5A158A  371
                                         IDP=MCS  BSSENT                                                         FC5A158A  372
                                         IDP=MN   BSSENT                                                         FC5A158A  373
                                         IDP=PAS  BSSENT                                                         FC5A158A  374
                                         IDP=PAT  BSSENT                                                         FC5A158A  375
                                         IDP=SFN  BSSENT                                                         FC5A158A  376
                                         IDP=     BSSENT                                                         FC5A158A  377
                                         IDPCHK   BSSENT                                                         FC5A158A  378
                                         IDP=USY  BSSENT                                                         FC5A158A  379
                                         UKT=LNK  BSSENT                                                         FC5A158A  380
                                                  EQ     *+4S15      IN CASE SOMEBODY JUMPS HERE                 FC5A158A  381
                                         #OS      ENDIF                                                          FC5A158A  382
  
  
  
  
                                        **        COMCSVR - SAVE AND RESTORE REGISTERS.                          IDP       584
                                        *                                                                        IDP       585
                                        *                                                                        IDP       586
                                        *         PROVIDE A GLOBAL FTN/NON-IDP VERSION OF RSR=/SVR=.             IDP       587
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   327
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=
  
          6052                           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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   328
        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
          6052                    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
          6102  0400406102 +             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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   329
        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
          6103  0710406103 +                      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
          6104  0410006106 +                      ZR     "B=1",SVR2  IF ("B=1") = 1                              COMQSVR   132
                          6111000001              S"B=1" "B=1"+1     RESTORE ("B=1")                             COMQSVR   133
          6105  0400406105 +                      EQ     *+4S15                                                  COMQSVR   134
                                                                                                                 COMQSVR   135
          6106                           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
          6106  65170                             SB1    A7-B0                                                   COMQSVR   145
                     5170006101 +                 SA7    SVREG+SVX+7                                             COMQSVR   146
                               77710              SX7    B1-B0                                                   COMQSVR   147
          6107  5170006071 +                      SA7    SVREG+SVA+7                                             COMQSVR   148
                          6110000001              SB1    1                                                       COMQSVR   149
          6110  75760                             SX7    A6-B0                                                   COMQSVR   150
                     5160006100 +                 SA6    SVREG+SVX+6                                             COMQSVR   151
                               55771              SA7    A7-B1                                                   COMQSVR   152
          6111  10655                             BX6    X5                                                      COMQSVR   153
                     75750                        SX7    A5-B0                                                   COMQSVR   154
                          55661                   SA6    A6-B1                                                   COMQSVR   155
                               55771              SA7    A7-B1                                                   COMQSVR   156
          6112  10644                             BX6    X4                                                      COMQSVR   157
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   330
        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
          6113  7150006052 +                      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
          6120  5265000000                        SA6    X5+SVB+0                                                COMQSVR   213
                                                                                                                 COMQSVR   214
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   331
        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
          6121  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
                     0400006102 +                 EQ     SVR=        EXIT...                                     COMQSVR   269
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   332
        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
          6125  0400406125 +             RSR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMQSVR   285
          6126  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
                          6170006052 +            SB7    SVREG                                                   COMQSVR   294
                                         .RSR     ENDIF                                                          COMQSVR   295
                                                                                                                 COMQSVR   296
          6127  43452                             MX4    -18                                                     COMQSVR   297
                     5117000007                   SA1    B7+SVB+7    (X1) = SAVED (B7)                           COMQSVR   298
                               10544              BX5    X4                                                      COMQSVR   299
          6130  20436                             LX4    30                                                      COMQSVR   300
                     6140000004                   SB4    4                                                       COMQSVR   301
                               11045              BX0    X4*X5       (X0) = 77770000007777000000B                COMQSVR   302
                                                                                                                 COMQSVR   303
          6131  55211                    RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                        COMQSVR   304
                     5134006156 +                 SA3    RSR4+B4-1                                               COMQSVR   305
                               15115              BX1    -X5*X1                                                  COMQSVR   306
          6132  67441                             SB4    B4-B1                                                   COMQSVR   307
                     15225                        BX2    -X5*X2                                                  COMQSVR   308
                          20136                   LX1    30                                                      COMQSVR   309
                               11303              BX3    X0*X3                                                   COMQSVR   310
          6133  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
          6134  0704006131 +                      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
          6135  0100006136 +                      RJ     *+1         VOID INSTRUCTION STACK                      CCGA090     6
          6136  0400006136 +             +        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
          6137  56110                    RSR3     SA1    B1                                                      COMQSVR   323
                     0311006137 +                 NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                       COMQSVR   324
                                                                                                                 COMQSVR   325
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   333
        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
          6140  5242777777               +        SA4    X2-0                                                    COMQSVR   339
                          10644                   BX6    X4                                                      COMQSVR   340
                               55640              SA6    A4-B0       RESTORE (A6)                                COMQSVR   341
                                                                                                                 COMQSVR   342
          6141  5253777777               +        SA5    X3-0                                                    COMQSVR   343
                          10755                   BX7    X5                                                      COMQSVR   344
                               55750              SA7    A5-B0       RESTORE (A7)                                COMQSVR   345
                                                                                                                 COMQSVR   346
          6142  5117000026                        SA1    B7+SVX+6                                                COMQSVR   347
                          54411                   SA4    A1+B1                                                   COMQSVR   348
                               10611              BX6    X1          RESTORE (X6)                                COMQSVR   349
          6143  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
          6144  5147000010                        SA4    B7+SVA+0                                                COMQSVR   356
                          5157000020              SA5    B7+SVX+0                                                COMQSVR   357
          6145  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       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   334
        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
          6154  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
          6155  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
          6157                           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
          6163  0400006125 +                      EQ     RSR=        EXIT...                                     COMQSVR   415
  
  
  
  
                                 D_D              BASE   *                                                       COMQSVR   417
                                                                                                                 COMQSVR   418
                                         #SVR     IF     -DEF,#SVR                                               COMQSVR   419
                                6052 +   SV=B     =      SVREG+SVB                                               COMQSVR   420
                                6062 +   SV=A     =      SVREG+SVA                                               COMQSVR   421
                                6072 +   SV=X     =      SVREG+SVX                                               COMQSVR   422
                                         #SVR     ENDIF                                                          COMQSVR   423
                                                                                                                 COMQSVR   424
                                         QUAL$    IF     -DEF,QUAL$                                              COMQSVR   425
                                                  QUAL   *                                                       COMQSVR   426
                                6102 +   SVR=     =      /COMQSVR/SVR=                                           COMQSVR   427
                                6125 +   RSR=     =      /COMQSVR/RSR=                                           COMQSVR   428
                                                                                                                 COMQSVR   429
                                         #SVR     IF     -DEF,#SVR                                               COMQSVR   430
                                6052 +   SV=B     =      /COMQSVR/SV=B                                           COMQSVR   431
                                6062 +   SV=A     =      /COMQSVR/SV=A                                           COMQSVR   432
                                6072 +   SV=X     =      /COMQSVR/SV=X                                           COMQSVR   433
                                         #SVR     ENDIF                                                          COMQSVR   434
                                         QUAL$    ENDIF                                                          COMQSVR   435
                                                  ENDX                                                           COMQSVR   436
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   335
        COMQSVR - SAVE AND RESTORE REGISTERS.                         COMCSVR 
  
                                                  ENTRY  RSR=,SVR=                                               IDP       590
                                         RSR      EQUENT RSR=                                                    IDP       591
                                         SVR      EQUENT SVR=                                                    IDP       592
                                         RESET=   EQUENT RSR=                                                    IDP       593
                                                                                                                 IDP       594
                                         #SVR     IF     -DEF,#SVR   IF LOCAL REGISTER SAVE AREA                 IDP       595
                                                  ECHO   4,R=(B,A,X)                                             IDP       596
                                         SV_R     =      /COMQSVR/SVREG+/COMQSVR/SV_R                            IDP       597
                                         SAV.R    =      SV_R                                                    IDP       598
                                                  ENTRY  SV_R,SAV.R                                              IDP       599
                                                  ENTRY  SV=R                                                    IDP       600
                                         #SVR     ENDIF                                                          IDP       601
  
  
  
  
                                                  LIST   D                                                       IDP       603
                                        **ENDIF   TESTFTN            (FOLLOWS END CARD)                          IDP       604
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        WNB=
             0 Y                        FAA=
             0 Y                        UFO=
             0 Y                        UFR=
  
                                        CONTENT OF LITERALS BLOCK.
  
          6164  01022400000000000000    ABT 
          6165  00000000000000000000
          6166  01021722240000000000    ABORT 
          6167  00000000000000555555
          6170  55555555555555555555
          6171  30000000400000000000    X   5 
          6172  00000000077600000000        G^
          6173  61737777777777777777    [>;;;;;;;;
          6174  01022300000000000000    ABS 
          6175  03170405000000000000    CODE
          6176  03171616050324000000    CONNECT 
          6177  04200300000000000000    DPC 
          6200  04112303171624000000    DISCONT 
          6201  05160400000000000000    END 
          6202  06220505320500000000    FREEZE
          6203  12251520000000000000    JUMP
          6204  17202411171600000000    OPTION
          6205  17252420252400000000    OUTPUT
          6206  22050723000000000000    REGS
          6207  22051400000000000000    REL 
          6210  23052400000000000000    SET 
          6211  23160120000000000000    SNAP
          6212  23241722050000000000    STORE 
          6213  23240124252300000000    STATUS
          6214  24111505000000000000    TIME
          6215  25160222050113000000    UNBREAK 
          6216  25162305240000000000    UNSET 
          6217  25020000000000000000    UB
          6220  25230000000000000000    US
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   336
        COMQSVR - SAVE AND RESTORE REGISTERS.                         LITERALS
  
          6221  27100522050000000000    WHERE 
          6222  30052100000000000000    XEQ 
          6223  30060522000000000000    XFER
          6224  02220501130000000000    BREAK 
          6225  02222014000000000000    BRPL
          6226  02221511000000000000    BRMI
          6227  02223222000000000000    BRZR
          6230  02221632000000000000    BRNZ
          6231  02220521000000000000    BREQ
          6232  02221605000000000000    BRNE
          6233  02221424000000000000    BRLT
          6234  02220705000000000000    BRGE
          6235  02221405000000000000    BRLE
          6236  02220724000000000000    BRGT
          6237  23240520000000000000    STEP
          6240  23242014000000000000    STPL
          6241  23241511000000000000    STMI
          6242  23243222000000000000    STZR
          6243  23241632000000000000    STNZ
          6244  23240521000000000000    STEQ
          6245  23241605000000000000    STNE
          6246  23241424000000000000    STLT
          6247  23240705000000000000    STGE
          6250  23241405000000000000    STLE
          6251  23240724000000000000    STGT
          6252  23242201160705000000    STRANGE 
          6253  23241622000000000000    STNR
          6254  23240122000000000000    STAR
          6255  55010404225517252446     ADDR OUT-
          6256  17064622011607050000    OF-RANGE
          6257  55232415245513053127     STMT KEYW
          6260  17220455202205030504    ORD PRECED
          6261  05045502315525161316    ED BY UNKN
          6262  17271655031001220103    OWN CHARAC
          6263  24052200000000000000    TER 
          6264  55251613161727165513     UNKNOWN K
          6265  05312717220400000000    EYWORD
          6266  55470222050113475501     *BREAK* A
          6267  04042255112355172524    DDR IS OUT
          6270  46170646220116070500    -OF-RANGE 
          6271  00000000000000000000
          6272  55470104042234475511     *ADDR1* I
          6273  23551725244617064622    S OUT-OF-R
          6274  01160705000000000000    ANGE
          6275  55470104042235475511     *ADDR2* I
          6276  23551725244617064622    S OUT-OF-R
          6277  01160705000000000000    ANGE
          6300  55062701565514270156     FWA, LWA,
          6301  55172255140516551725     OR LEN OU
          6302  24461706462201160705    T-OF-RANGE
          6303  00000000000000000000
          6304  55311725551525232455     YOU MUST 
          6305  23200503110631550116    SPECIFY AN
          6306  55140616000000000000     LFN
          6307  55471225152047550104     *JUMP* AD
          6310  04225517252446170646    DR OUT-OF-
          6311  22011607050000000000    RANGE 
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   337
        COMQSVR - SAVE AND RESTORE REGISTERS.                         LITERALS
  
          6312  55311725552320050311     YOU SPECI
          6313  06110504550155161716    FIED A NON
          6314  46220507112324052255    -REGISTER 
          6315  16011505000000000000    NAME
          6316  55311725551525232455     YOU MUST 
          6317  23200503110631550155    SPECIFY A 
          6320  47230524475516011505    *SET* NAME
          6321  00000000000000000000
          6322  55472324172205475501     *STORE* A
          6323  04042255112355151123    DDR IS MIS
          6324  23111607551722551725    SING OR OU
          6325  24461706462201160705    T-OF-RANGE
          6326  00000000000000000000
          6327  55200122230522550516     PARSER EN
          6330  03172516240522050455    COUNTERED 
          6331  11141405070114552417    ILLEGAL TO
          6332  13051650172005220124    KEN/OPERAT
          6333  17225017200522011604    OR/OPERAND
          6334  00000000000000000000
          6335  55311725552320050311     YOU SPECI
          6336  06110504550116552516    FIED AN UN
          6337  13161727165025160405    KNOWN/UNDE
          6340  06111605045523311502    FINED SYMB
          6341  17145516011505000000    OL NAME 
          6342  55052222172255042522     ERROR DUR
          6343  11160755031716232401    ING CONSTA
          6344  16245503171626052223    NT CONVERS
          6345  11171600000000000000    ION 
          6346  55111604112205032455     INDIRECT 
          6347  01040422551725244617    ADDR OUT-O
          6350  06462201160705000000    F-RANGE 
          6351  55311725551225232455     YOU JUST 
          6352  23200503110611050455    SPECIFIED 
          6353  01165525161316172716    AN UNKNOWN
          6354  55172024111716000000     OPTION 
          6355  55200122230522550317     PARSER CO
          6356  25140455161724550201    ULD NOT BA
          6357  14011603055517200522    LANCE OPER
          6360  01241722235501160455    ATORS AND 
          6361  17200522011604230000    OPERANDS
          6362  55232415245524171755     STMT TOO 
          6363  02110755061722552001    BIG FOR PA
          6364  22230522575555201405    RSER.  PLE
          6365  01230555231115201411    ASE SIMPLI
          6366  06310000000000000000    FY
          6367  55233115021714551601     SYMBOL NA
          6370  15055524171755141716    ME TOO LON
          6371  07000000000000000000    G 
          6372  55311725551225232455     YOU JUST 
          6373  24221105045524175525    TRIED TO U
          6374  23055501550211160122    SE A BINAR
          6375  31551720052201241722    Y OPERATOR
          6376  55012355015525160122     AS A UNAR
          6377  31000000000000000000    Y 
          6400  55171605551706551104     ONE OF ID
          6401  20702355130531271722    P'S KEYWOR
          6402  04552401021405235511    D TABLES I
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   338
        COMQSVR - SAVE AND RESTORE REGISTERS.                         LITERALS
  
          6403  23551725244617064622    S OUT-OF-R
          6404  01160705000000000000    ANGE
          6405  55202025552007155547     PPU PGM *
          6406  03171647550405240503    CON* DETEC
          6407  24050455011655052222    TED AN ERR
          6410  17225527505503171616    OR W/ CONN
          6411  05032455172255041123    ECT OR DIS
          6412  03171624000000000000    CONT
          6413  55231715051716055523     SOMEONE S
          6414  03220527050455252055    CREWED UP 
          6415  31172522550627015655    YOUR FWA, 
          6416  14270156551405165755    LWA, LEN. 
          6417  55271114045523241722     WILD STOR
          6420  05710000000000000000    E?
          6421  55240102140555172605     TABLE OVE
          6422  22061417275755550711    RFLOW.  GI
          6423  26055525205501165505    VE UP AN E
          6424  16242231565524223155    NTRY, TRY 
          6425  01070111160000000000    AGAIN 
          6426  55010404225517065520     ADDR OF P
          6427  22170305232317225506    ROCESSOR F
          6430  17225524101123551305    OR THIS KE
          6431  31271722045511235517    YWORD IS O
          6432  25244617064622011607    UT-OF-RANG
          6433  05000000000000000000    E 
          6434  55161755201711162405     NO POINTE
          6435  22550405061116050455    R DEFINED 
          6436  06172255241011235513    FOR THIS K
          6437  05312717220400000000    EYWORD
          6440  55020104552017111624     BAD POINT
          6441  05225522050657555503    ER REF.  C
          6442  10050313550516242231    HECK ENTRY
          6443  55220507235524175547     REGS TO *
          6444  20242247000000000000    PTR*
          6445  55052222172255042522     ERROR DUR
          6446  11160755241713051655    ING TOKEN 
          6447  07051605220124111716    GENERATION
          6450  57555505162411220555    .  ENTIRE 
          6451  14111605552422012310    LINE TRASH
          6452  05040000000000000000    ED
          6453  55472506245447550516     *UFT=* EN
          6454  24223155112355172524    TRY IS OUT
          6455  46170646220116070500    -OF-RANGE 
          6456  00000000000000000000
          6457  55470622015006010147     *FRA/FAA*
          6460  55052222172255271124     ERROR WIT
          6461  10552516012231552014    H UNARY PL
          6462  25230000000000000000    US
          6463  55161755022205011355     NO BREAK 
          6464  24010214055505162422    TABLE ENTR
          6465  31550617225524101123    Y FOR THIS
          6466  55022205011357555531     BREAK.  Y
          6467  17252255151726055757    OUR MOVE..
          6470  57000000000000000000    . 
          6471  55161755201120552022     NO PIP PR
          6472  17030523231722000000    OCESSOR 
          6473  55222016552401021405     RPN TABLE
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   339
        COMQSVR - SAVE AND RESTORE REGISTERS.                         LITERALS
  
          6474  55172605220614172700     OVERFLOW 
          6475  00000000000000000000
          6476  55474711042047475555     **IDP**
          6477  55030114140455023155     CALLD BY 
          6500  55737300000000000000     >> 
          6501  55550000000000000000
          6502  55710000000000000000     ?
          6503  55023105575757000000     BYE... 
          6504  06223200000000000000    FRZ 
          6505  46000460004600046000    - D# - D# 
          6506  00000000000055555545             +
          6507  55555504012401000000       DATA 
          6510  55474755172524551706     ** OUT OF
          6511  55220116070555474755     RANGE ** 
          6512  24051520000000000000    TEMP
          6513  55111603000000000000     INC
          6514  40404040404040404040    5555555555
          6515  55000000000000000000
          6516  55555555555555555555
          6517  55555555555555555555
          6520  55555555555555555555
          6521  55555502220116031055       BRANCH 
          6522  24011305165757570000    TAKEN...
          6523  55555555555520555455          P = 
          6524  00000000000000001000            H 
          6525  00000000776777776400        ;&;;" 
          6526  77776000000000000377    ;;#     C;
          6527  77777777000000000377    ;;;;    C;
          6530  00001777000000000000      O;
          6531  77777777777777576777    ;;;;;;;.&;
  
          6532                                    END                                                            IDP       605
  
                            103600B CM  STORAGE USED            34671 STATEMENTS     2850 SYMBOLS      000138 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           11.266 SECONDS        7133 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALTNAM          0   EXTERNAL*       1/56 X   61/53
        BASES           0   EXTERNAL*       1/56 X   61/32
        B1=1            0                 248/13 F  257/13 F  269/02 F  310/44 F  315/43 F
                                          254/53 F  260/37 F  294/53 F  313/01 F  323/06 F
        CAD          2416   PROGRAM*      326/07 D  326/07
        CDD          4756   PROGRAM*      326/16 D  326/16
        CHAR            6   FTX            61/29     61/36     61/45     61/50
        CHK          2447   PROGRAM*      326/08 D  326/08
        CLZ          2546   PROGRAM*       64/34    325/39 D  325/39
        COD          5002   PROGRAM*       61/24     61/35     61/44     61/49    326/17 D  326/17
        CO.SNAP         0   EXTERNAL*       1/53 X   65/03     65/30
        CP.NFLS         0   EXTERNAL*       1/53 X  140/25
        DAR          2644   PROGRAM*      326/09 D  326/09
        DCM          3132   PROGRAM*      326/10 D  326/10
        DCM=         3132   PROGRAM*      326/10 D  326/10 E
        DXB          5022   PROGRAM*      325/46 D  325/46
        FAA=            0   EXTERNAL*     163/37    163/40
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   340
        SYMBOLIC REFERENCE TABLE. 
  
        FLL          3265   PROGRAM*      325/40 D  325/40
        FRA=            0   EXTERNAL*       2/05 X  169/12    169/17
        FRK          3342   PROGRAM*      326/11 D  326/11
        FUDGE           1   FTX            61/34
        FW=IDPL       452   PROGRAM*      326/05 D  326/05 E
        FW=PARM       452   PROGRAM*      326/05 D  326/05
        F.BDO           0   EXTERNAL*       2/24 D  107/38    109/24    122/22    205/33
                                           82/30 F  109/22    112/23    205/08
        F.IN            0   EXTERNAL*       1/53 X   66/39
        F.OUT           0   EXTERNAL*       1/53 X    2/24     66/40     66/41
        HARDREG        74   PROGRAM*       62/53     63/03 S   63/09     63/39 L
        HDR          3411   PROGRAM*      326/12 D  326/12
        IDPFLG        454   PROGRAM*      325/57 D  325/57    325/57 D  325/57 E
        IDP=         1515   PROGRAM*        2/27 E  325/35 D  325/35    325/35 D  325/35 E
        IDP=CAD      2416   PROGRAM*      326/07 D  326/07 E
        IDP=CDD      4756   PROGRAM*      326/16 D  326/16 E
        IDP=CHK      2447   PROGRAM*      326/08 D  326/08 E
        IDP=CLZ      2546   PROGRAM*      325/39 D  325/39 E
        IDP=COD      5002   PROGRAM*      326/17 D  326/17 E
        IDP=DAR      2644   PROGRAM*      326/09 D  326/09 E
        IDP=DXB      5022   PROGRAM*      325/46 D  325/46 E
        IDP=ER       1642   PROGRAM*      325/37 D  325/37 E
        IDP=ERR      1642   PROGRAM*      325/37 D  325/37
        IDP=FLL      3265   PROGRAM*      325/40 D  325/40 E
        IDP=FRK      3342   PROGRAM*      326/11 D  326/11 E
        IDP=HDR      3411   PROGRAM*      326/12 D  326/12 E
        IDP=MCS      5031   PROGRAM*      325/47 D  325/47 E
        IDP=MN       1553   PROGRAM*      325/36 D  325/36    325/36 D  325/36 E
        IDP=PAS      3603   PROGRAM*      325/41 D  325/41 E
        IDP=PAT      3741   PROGRAM*      325/42 D  325/42 E
        IDP=SFN      5274   PROGRAM*      325/48 D  325/48 E
        IDP=SKT      4157   PROGRAM*      326/13 D  326/13 E
        IDP=SOB      4213   PROGRAM*      326/14 D  326/14 E
        IDP=SVA       432   PROGRAM*      325/54 D  325/54    325/54 D  325/54 E
        IDP=SVB       422   PROGRAM*      325/53 D  325/53    325/53 D  325/53 E
        IDP=SVX       442   PROGRAM*      325/55 D  325/55    325/55 D  325/55 E
        IDP=SYS      5416   PROGRAM*      325/49 D  325/49 E
        IDP=USY       141   PROGRAM*       66/06     66/30 L   66/30 E
        IDP=WOD      5643   PROGRAM*      326/18 D  326/18 E
        IDP=ZTB      6043   PROGRAM*      326/19 D  326/19 E
        LFM=          147   PROGRAM*       68/04 D  145/31
        MCS          5031   PROGRAM*      325/47 D  325/47
        NAMES           0   EXTERNAL*       1/56 X   61/25
        N.TABLE         0   EXTERNAL*       1/56 X   62/20
        PAS          3603   PROGRAM*      325/41 D  325/41
        PAT          3741   PROGRAM*      325/42 D  325/42
        PAT#FWA       157   PROGRAM*      325/43 D  325/43    325/43 D  325/43 E
        PAT#LEN       161   PROGRAM*      325/44 D  325/44    325/44 D  325/44 E
        PTO            12   PROGRAM*       61/18 L   61/18 E
        PTOA           50   PROGRAM*       61/21     62/27 L
        PTOB           55   PROGRAM*       61/54 S   61/57     62/15 S   62/28 L
        PTO2           16   PROGRAM*       61/23 L   62/23
        PTO3           34   PROGRAM*       61/56 L   62/17
        PTO4           45   PROGRAM*       62/06     62/19 L
  U     QUAL$                              67/06 F   68/02 F  327/06 F  334/46 F
        RA.CEJ         66   CPUTEXT       103/32    281/05
        RA.CMU         65   CPUTEXT       264/14    319/07
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   341
        SYMBOLIC REFERENCE TABLE. 
  
        RA.LWP         65   CPUTEXT       140/34    171/48
        RA.MTR          1   CPUTEXT       101/34    104/19 S  269/35    281/17    281/49
                                          102/07    173/01    280/55    281/45    282/33
        RA.ORG        100   CPUTEXT        64/25    100/53    100/55    105/03    105/04    105/05    123/04
        RA.PGN         64   CPUTEXT       101/23
        RA.SSW          0   CPUTEXT       113/04    172/13    208/03    208/04
        REG=         1663   PROGRAM*        2/29 E  326/01 D  326/01    326/01 D  326/01 E
        RESET=       6125   PROGRAM*      335/04 D  335/04 E
        ROL=         4115   PROGRAM*        2/31 E  326/02 D  326/02    326/02 D  326/02 E
        RPV=RNA         0   EXTERNAL*       2/02 X  163/38    169/21    169/26
        RSR          6125   PROGRAM*      335/02 D  335/02 E
        RSR=         6125   PROGRAM*        2/31 E   59/16    334/49 D  335/01 E  335/02    335/04
        SAV.A        6062   PROGRAM*      335/11 D  335/11 E
        SAV.B        6052   PROGRAM*      335/11 D  335/11 E
        SAV.X        6072   PROGRAM*      335/11 D  335/11 E
        SFN          5274   PROGRAM*      325/48 D  325/48
        SIZES           0   EXTERNAL*       1/56 X   61/40
        SKT          4157   PROGRAM*       62/05    326/13 D  326/13
        SNAPLNE       607   PROGRAM*        2/32 E   61/31 S   61/56     62/12 S  326/04 D  326/04    326/04 D  326/04 E
        SNP=         1700   PROGRAM*        2/29 E  326/03 D  326/03    326/03 D  326/03 E
        SOB          4213   PROGRAM*        2/32 E  326/14 D  326/14
        ST=ABT          6   PROGRAM*       58/27     58/28     59/15 L
        SVA          6062   PROGRAM*       63/07    335/11 D  335/11    335/11 E
        SVB          6052   PROGRAM*       63/06    335/11 D  335/11    335/11 E
        SVR          6102   PROGRAM*      335/03 D  335/03 E
        SVR=         6102   PROGRAM*        2/32 E  334/48 D  335/01 E  335/03
        SVX          6072   PROGRAM*       63/08    335/11 D  335/11    335/11 E
        SV=A         6062   PROGRAM*      334/53 D  335/11 E
        SV=B         6052   PROGRAM*      334/52 D  335/11 E
        SV=X         6072   PROGRAM*      334/54 D  335/11 E
        SYS=         5416   PROGRAM*       59/17     67/39    325/49 D  325/49
        TEX            61   PROGRAM*       63/04 L
        TEX2           66   PROGRAM*       63/15 L   63/19
        TEX3           70   PROGRAM*       63/25 L   63/35
        UFO=            0   EXTERNAL*     225/19    225/21
        UFR=            0   EXTERNAL*     225/45    225/47
        UFT=          142   PROGRAM*       66/38 L  207/28
        UIOA          112   PROGRAM*       64/26     64/39 L
        UIO=          104   PROGRAM*       64/24 L   64/24 E  226/18    226/21
        UKT=            0   PROGRAM*       58/25 L  107/07
        UKT=LNK         5   PROGRAM*       58/31 L   58/31 E
        URO=          113   PROGRAM*       65/02 L   65/02 E  226/46    226/49
        USO=          121   PROGRAM*       65/29 L   65/29 E  227/18    227/21
        USYA          137   PROGRAM*       66/09 S   66/15     66/25 L
        USYB          140   PROGRAM*       66/16     66/27 L
        USY=          127   PROGRAM*       66/05 L  210/45    210/50
        USY=RJ        135   PROGRAM*       66/19 S   66/21 L
        WNB=            0   EXTERNAL*      67/46
        WOD          5643   PROGRAM*      326/18 D  326/18
        WOF             0   EXTERNAL*       1/56 X   61/21     61/56
        ZTB          6043   PROGRAM*      326/19 D  326/19
        .OS             1   FTX             2/26 F   57/49 F   85/26 F  138/21 F  160/01 F  176/33 F  207/01 F  253/24 F
                                            3/15 F   59/55 F   89/27 F  141/15 F  163/01 F  176/44 F  209/32 F  279/28 F
                                           34/24 F   64/22 F  116/01 F  144/50 F  167/06 F  203/43 F  227/28 F  311/42 F
                                           40/38 F   65/41 F  120/42 F  144/54 F  171/13 F  204/55 F  230/40 F  325/34 F
                                           52/41 F   82/01 F  121/28 F  150/24 F  176/01 F  205/17 F  245/29 F  326/26 F
  U     #SVR                              334/51 F  335/06 F
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   342
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
                                                  SYMBOL QUALIFIER =  IDP 
  
  
        ADR=RJ        156   PROGRAM*       81/12 L  135/52    137/11 S  148/15 S  174/37
        ADZ          2352   PROGRAM*      119/20    126/53    134/24 L  177/20    177/25
        ADZA         2361   PROGRAM*      134/27 S  134/33    134/39 L
        APL           157   PROGRAM*       81/35 L  173/16    175/47 S  175/49 S  182/24
                                           81/37    175/40 S  175/48 S  175/50
        AP=CNT        163   PROGRAM*       81/43 D  136/14 S
        AP=FWA        164   PROGRAM*       81/44 D  118/44    158/57    166/11 S  166/53
                                          117/29 S  120/09    160/37    166/44
        AP=HDR        162   PROGRAM*       81/42 D  136/03 S
        AP=INC        161   PROGRAM*       81/41 D  118/40 S
        AP=LEN        166   PROGRAM*       81/46 D  118/11 S  166/26 S
        AP=LL         157   PROGRAM*       81/39 D  118/22 S  118/56    136/23 S  197/32
        AP=LWA        165   PROGRAM*       81/45 D  117/49 S  166/30 S
        AP=UL         160   PROGRAM*       81/40 D  118/31 S
        BB.TOCL        52                  48/43 D   52/26    239/10    239/27    296/51    304/40    304/53
        BB.TOCP        22                  48/43 D  234/42 F  238/32    239/10    239/27    296/51    304/40    304/53
        BB.TOTL        22                  48/44 D   52/27    239/08
        BB.TOTP         0                  48/44 D
        BC=BRAD       167   PROGRAM*       82/07 L  123/32 S  136/35 S  213/56    219/52
                                          122/27    135/49 S  212/01    218/14
        BICH           15                  53/31 F  220/45    220/55    221/08    234/09 F  241/25 F
                                           53/32 D  220/50    221/02    221/09    238/34    243/07
                                          220/44    220/51    221/04    222/05    238/54    305/16
        BN.TOCL        52                  49/07 D  243/21    243/38    296/46    303/54    304/09
        BN.TOCP        22                  49/07 D  242/01 F  242/45    243/21    243/38    296/46    303/54    304/09
        BN.TOTL        22                  49/08 D  243/19
        BN.TOTP         0                  49/08 D
        BRK          2362   PROGRAM*      107/29    135/45 L  215/49
        BRK10        2411   PROGRAM*      135/56    137/02 L
        BTC.EQ          5                  49/30 D   96/07    117/51    179/07
        BTC.GE         10                  49/39 D   96/10
        BTC.GT         12                  49/45 D   96/12
        BTC.LE         11                  49/42 D   96/11
        BTC.LT          7                  49/36 D   96/09
        BTC.MI          2                  49/21 D   96/04
        BTC.NE          6                  49/33 D   96/08
        BTC.NZ          4                  49/27 D   96/06
        BTC.PL          1                  49/18 D   96/03
        BTC.ZR          3                  49/24 D   96/05
        BUB          4710   PROGRAM*      238/26 L  296/52    304/47
        BUB2         4715   PROGRAM*      238/42 L  238/47    238/50
        BUB3         4717   PROGRAM*      238/36    238/49 L  238/56    239/04    239/13    239/23
        BUB4         4720   PROGRAM*      238/38    238/53 L
        BUB5         4726   PROGRAM*      238/44    239/22 L
        BUB6         4727   PROGRAM*      239/01    239/27 L
        BUN          4732   PROGRAM*      242/40 L  296/47    304/03
        BUN2         4736   PROGRAM*      242/54 L  243/03
        BUN3         4740   PROGRAM*      242/48    243/02 L  243/15    243/24    243/34
        BUN4         4741   PROGRAM*      242/50    243/06 L
        BUN5         4747   PROGRAM*      242/56    243/33 L
        BUN6         4750   PROGRAM*      243/09    243/11    243/38 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   343
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        C               5                 156/41 D  156/51 D  157/04 D  157/14 D  157/24 D  157/34 D  157/44 D  157/54 D
                                          156/41    156/51    157/04    157/14    157/24    157/34    157/44    157/54
                                          156/42 D  156/52 D  157/05 D  157/15 D  157/25 D  157/35 D  157/45 D  157/56 D
                                          156/42    156/52    157/05    157/15    157/25    157/35    157/45    157/56
                                          156/43 D  156/53 D  157/06 D  157/16 D  157/26 D  157/36 D  157/47 D  157/57 D
                                          156/43    156/53    157/06    157/16    157/26    157/36    157/47    157/57
                                          156/44 D  156/54 D  157/07 D  157/17 D  157/27 D  157/38 D  157/48 D  158/01 D
                                          156/44    156/54    157/07    157/17    157/27    157/38    157/48    158/01
                                          156/45 D  156/55 D  157/08 D  157/18 D  157/29 D  157/39 D  157/49 D  158/02 D
                                          156/45    156/55    157/08    157/18    157/29    157/39    157/49    158/02
                                          156/46 D  156/56 D  157/09 D  157/20 D  157/30 D  157/40 D  157/50 D  158/03 D
                                          156/46    156/56    157/09    157/20    157/30    157/40    157/50    158/03
                                          156/47 D  156/57 D  157/11 D  157/21 D  157/31 D  157/41 D  157/51 D  158/04 D
                                          156/47    156/57    157/11    157/21    157/31    157/41    157/51    158/04
                                          156/48 D  157/02 D  157/12 D  157/22 D  157/32 D  157/42 D  157/52 D  158/05 D
                                          156/48    157/02    157/12    157/22    157/32    157/42    157/52    158/05
                                          156/50 D  157/03 D  157/13 D  157/23 D  157/33 D  157/43 D  157/53 D  158/06 D
                                          156/50    157/03    157/13    157/23    157/33    157/43    157/53    158/06
        CAD          2416   PROGRAM*      137/49 L  151/21    159/16    160/45    326/07
        CAD3         2424   PROGRAM*      137/55    138/01    138/14 L
        CBC          2426   PROGRAM*      130/16    136/50    138/41 L
        CBC2         2446   PROGRAM*      138/43    139/11    139/21    139/31    139/41    139/51
                                          139/06    139/16    139/26    139/36    139/46    140/01 L
        CBC.EQ          5                 139/25 L
        CBC.GE         10                 139/40 L
        CBC.GT         12                 139/50 L
        CBC.LE         11                 139/45 L
        CBC.LOP        13                 139/53 D
        CBC.LT          7                 139/35 L
        CBC.MI          2                 139/10 L
        CBC.NE          6                 139/30 L
        CBC.NZ          4                 139/20 L
        CBC.OP       2434   PROGRAM*      138/43    138/53    138/57 L
        CBC.PL          1                 139/05 L
        CBC.ZR          3                 139/15 L
        CCD          5616   PROGRAM*      296/02    307/08 L
        CDD          4756   PROGRAM*      174/34    245/05 L  326/16
        CDDA         4762   PROGRAM*      245/06    245/15 L
        CDD1         4753   PROGRAM*      244/50 L  245/01    245/13
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   344
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        CHAR            6                  47/13 D   95/33     96/12    126/38    153/44    179/16    202/56    242/57
                                           53/37 F   95/34     96/33    126/43    153/48    179/18    207/40    243/02
                                           58/27     95/35     96/34    131/48    153/52    179/42    208/10    243/06
                                           58/28     95/36     96/35    132/15    153/57    179/44    210/21    243/12
                                           95/18     95/37     96/36    138/06    154/29    179/45    210/31    243/21
                                           95/19     95/38     96/37    138/09    154/31    180/01    219/28    243/38
                                           95/20     95/39     96/38    138/15    154/37    180/03    228/11    295/27
                                           95/21     95/40     96/39    141/56    156/02    180/05    228/18    295/32
                                           95/22     95/41     96/40    142/02    162/31    180/17    228/32    295/33
                                           95/23     96/02     96/41    142/04    164/46    180/19    228/37    296/40
                                           95/24     96/03     96/42    142/52    164/48    180/30    234/12 F  296/46
                                           95/25     96/04     96/43    142/53    164/55    180/32    238/37    296/51
                                           95/26     96/05     96/44    145/27    174/21    181/05    238/49    297/57
                                           95/27     96/06     96/45    152/49    174/25    181/08    238/53    303/54
                                           95/28     96/07     96/46    152/51    177/23    181/12    239/02    304/09
                                           95/29     96/08    125/45    152/57    178/20    192/13    239/10    304/40
                                           95/30     96/09    125/46    153/06    178/27    199/41    239/27    304/53
                                           95/31     96/10    125/52    153/10    179/01    199/55    241/28 F  307/13
                                           95/32     96/11    125/54    153/38    179/03    202/39    242/49    307/17
        CHK          2447   PROGRAM*       66/10    118/07    127/54    140/23 L  165/02    192/48    215/04    326/08
                                          111/21    120/36    129/03    146/29    166/27    207/34    216/35
                                          117/30    121/22    129/22    146/40    169/22    207/47    217/11
                                          117/45    123/24    137/05    148/30    173/47    208/17    217/38
        CHKA         2472   PROGRAM*      140/49 S  140/50    140/56    141/09 L
        CHKB         2473   PROGRAM*      140/47 S  140/51    141/10 L
        CHK2         2454   PROGRAM*      140/27    140/34 L
        CHK3         2460   PROGRAM*      140/30    140/37    140/45 L
        CHK4         2470   PROGRAM*      140/32    141/02 L
        CIB          2474   PROGRAM*      141/38 L  189/11
        CIBA         2543   PROGRAM*      141/41 S  142/15 S  142/21    143/08    143/23 S  143/32    143/49 L
        CIBB         2544   PROGRAM*      142/31 S  143/09    143/33    143/50 L
        CIBC         2545   PROGRAM*      141/42 S  142/16 S  143/15    143/51 L
        CIB10        2541   PROGRAM*      142/24    142/25    143/01    143/03    143/17    143/18    143/40 L
        CIB11        2542   PROGRAM*      142/48    143/45 L
        CIB2         2500   PROGRAM*      141/48 L  141/50
        CIB3         2511   PROGRAM*      142/09    142/15 L
        CIB4         2513   PROGRAM*      141/54    142/06    142/13    142/21 L  143/25
        CIB5         2520   PROGRAM*      142/46 L  142/54
        CIB6         2522   PROGRAM*      142/52 L  142/56    143/36
        CIB7         2527   PROGRAM*      143/05    143/08 L
        CIB9         2535   PROGRAM*      143/11    143/29 L
        CIO2         4765   PROGRAM*      247/26 L  248/12
        CIO3         4766   PROGRAM*      247/27 L  248/11
        CIO4         4772   PROGRAM*      247/38    247/45 L
        CIO5         4773   PROGRAM*      247/45    247/48 L
        CIO=         4775   PROGRAM*      145/20    145/38    172/53    176/39    248/08 L  265/33    318/02
                                          145/22    167/29    173/12    202/20    248/25    266/35    320/19
                                          145/36    172/45    176/28    247/43    262/48    267/04    321/08
        CLZ          2546   PROGRAM*      107/19    107/21    107/24    144/18 L  325/39
        CLZ2         2550   PROGRAM*      144/22 L  144/25
        COD          5002   PROGRAM*      108/05    152/10    174/41    179/14    180/15    220/12
                                          132/14    164/54    178/39    179/40    180/28    249/50 L
                                          138/14    169/57    178/55    179/56    181/11    326/17
        CODA         5010   PROGRAM*      249/51    250/10 L
        COD1         5005   PROGRAM*      249/56 L  250/05
        CON          2552   PROGRAM*      120/40    121/26    144/48 L  176/31    176/42
        CONA         2572   PROGRAM*      145/15 S  145/21    145/23    145/37    145/42 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   345
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        CON2         2565   PROGRAM*      145/16    145/36 L
        CST          2573   PROGRAM*      110/53    146/13 L
        CST2         2601   PROGRAM*      146/37 L  147/04
        CST3         2605   PROGRAM*      146/30    146/50 L  147/13    147/16
        CST4         2610   PROGRAM*      146/44    147/03 L
        CST5         2613   PROGRAM*      147/13 L  147/29
        CST6         2621   PROGRAM*      147/24    147/33 L
        CST7         2622   PROGRAM*      146/39    146/52    147/38 L
        CXR          2623   PROGRAM*      148/10 L  175/32
        CXRA         2636   PROGRAM*      148/11    148/40 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   346
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        D               5                 156/41 D  156/51    157/04 D  157/13    157/23 D  157/33    157/43 D  157/53
                                          156/41    156/51 D  157/04    157/13 D  157/23    157/34 D  157/43    157/53 D
                                          156/41 D  156/51    157/04 D  157/13    157/23 D  157/34    157/43 D  157/53
                                          156/41    156/51 D  157/04    157/13 D  157/23    157/34 D  157/43    157/53 D
                                          156/41 D  156/51    157/04 D  157/13    157/23 D  157/34    157/44 D  157/53
                                          156/41    156/51 D  157/04    157/14 D  157/23    157/34 D  157/44    157/53 D
                                          156/42 D  156/51    157/04 D  157/14    157/23 D  157/34    157/44 D  157/53
                                          156/42    156/51 D  157/04    157/14 D  157/23    157/34 D  157/44    157/54 D
                                          156/42 D  156/51    157/04 D  157/14    157/24 D  157/34    157/44 D  157/54
                                          156/42    156/51 D  157/04    157/14 D  157/24    157/34 D  157/44    157/54 D
                                          156/42 D  156/51    157/04 D  157/14    157/24 D  157/34    157/44 D  157/54
                                          156/42    156/52 D  157/04    157/14 D  157/24    157/34 D  157/44    157/54 D
                                          156/43 D  156/52    157/05 D  157/14    157/24 D  157/34    157/44 D  157/54
                                          156/43    156/52 D  157/05    157/14 D  157/24    157/34 D  157/44    157/54 D
                                          156/43 D  156/52    157/05 D  157/14    157/24 D  157/34    157/44 D  157/54
                                          156/43    156/52 D  157/05    157/14 D  157/24    157/35 D  157/44    157/54 D
                                          156/43 D  156/52    157/05 D  157/14    157/24 D  157/35    157/44 D  157/54
                                          156/43    156/52 D  157/05    157/14 D  157/24    157/35 D  157/44    157/54 D
                                          156/43 D  156/52    157/05 D  157/14    157/24 D  157/35    157/45 D  157/54
                                          156/43    156/52 D  157/05    157/15 D  157/24    157/35 D  157/45    157/54 D
                                          156/43 D  156/52    157/05 D  157/15    157/24 D  157/35    157/45 D  157/54
                                          156/43    156/52 D  157/05    157/15 D  157/24    157/35 D  157/45    157/54 D
                                          156/43 D  156/52    157/05 D  157/15    157/25 D  157/35    157/45 D  157/54
                                          156/43    156/52 D  157/05    157/15 D  157/25    157/35 D  157/45    157/56 D
                                          156/44 D  156/52    157/05 D  157/15    157/25 D  157/35    157/45 D  157/56
                                          156/44    156/53 D  157/05    157/15 D  157/25    157/35 D  157/45    157/56 D
                                          156/44 D  156/53    157/06 D  157/15    157/25 D  157/35    157/45 D  157/56
                                          156/44    156/53 D  157/06    157/15 D  157/25    157/35 D  157/45    157/56 D
                                          156/44 D  156/53    157/06 D  157/15    157/25 D  157/35    157/45 D  157/56
                                          156/44    156/53 D  157/06    157/15 D  157/25    157/36 D  157/45    157/56 D
                                          156/44 D  156/53    157/06 D  157/15    157/25 D  157/36    157/45 D  157/56
                                          156/44    156/53 D  157/06    157/15 D  157/25    157/36 D  157/45    157/56 D
                                          156/44 D  156/53    157/06 D  157/15    157/25 D  157/36    157/45 D  157/56
                                          156/44    156/53 D  157/06    157/16 D  157/25    157/36 D  157/45    157/56 D
                                          156/44 D  156/53    157/06 D  157/16    157/25 D  157/36    157/47 D  157/56
                                          156/44    156/53 D  157/06    157/16 D  157/25    157/36 D  157/47    157/57 D
                                          156/45 D  156/53    157/06 D  157/16    157/26 D  157/36    157/47 D  157/57
                                          156/45    156/53 D  157/06    157/16 D  157/26    157/36 D  157/47    157/57 D
                                          156/45 D  156/53    157/06 D  157/16    157/26 D  157/36    157/47 D  157/57
                                          156/45    156/54 D  157/06    157/16 D  157/26    157/36 D  157/47    157/57 D
                                          156/45 D  156/54    157/07 D  157/16    157/26 D  157/36    157/47 D  157/57
                                          156/45    156/54 D  157/07    157/16 D  157/26    157/36 D  157/47    157/57 D
                                          156/45 D  156/54    157/07 D  157/16    157/26 D  157/36    157/47 D  157/57
                                          156/45    156/54 D  157/07    157/16 D  157/26    157/36 D  157/47    157/57 D
                                          156/45 D  156/54    157/07 D  157/16    157/26 D  157/36    157/47 D  157/57
                                          156/45    156/54 D  157/07    157/16 D  157/26    157/38 D  157/47    157/57 D
                                          156/45 D  156/54    157/07 D  157/16    157/26 D  157/38    157/48 D  157/57
                                          156/45    156/54 D  157/07    157/17 D  157/26    157/38 D  157/48    158/01 D
                                          156/45 D  156/54    157/07 D  157/17    157/27 D  157/38    157/48 D  158/01
                                          156/45    156/55 D  157/07    157/17 D  157/27    157/38 D  157/48    158/01 D
                                          156/45 D  156/55    157/07 D  157/17    157/27 D  157/38    157/48 D  158/01
                                          156/45    156/55 D  157/07    157/17 D  157/27    157/38 D  157/48    158/01 D
                                          156/45 D  156/55    157/07 D  157/17    157/27 D  157/38    157/48 D  158/01
                                          156/45    156/55 D  157/07    157/17 D  157/27    157/38 D  157/48    158/01 D
                                          156/46 D  156/55    157/08 D  157/17    157/27 D  157/38    157/48 D  158/01
                                          156/46    156/55 D  157/08    157/17 D  157/27    157/38 D  157/48    158/01 D
                                          156/46 D  156/55    157/08 D  157/17    157/29 D  157/38    157/48 D  158/01
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   347
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
                                          156/46    156/55 D  157/08    157/17 D  157/29    157/39 D  157/48    158/01 D
                                          156/46 D  156/55    157/08 D  157/17    157/29 D  157/39    157/49 D  158/01
                                          156/46    156/55 D  157/08    157/17 D  157/29    157/39 D  157/49    158/02 D
                                          156/46 D  156/55    157/08 D  157/17    157/29 D  157/39    157/49 D  158/02
                                          156/46    156/55 D  157/08    157/18 D  157/29    157/39 D  157/49    158/02 D
                                          156/46 D  156/55    157/08 D  157/18    157/29 D  157/39    157/49 D  158/02
                                          156/46    156/55 D  157/08    157/18 D  157/29    157/39 D  157/49    158/02 D
                                          156/46 D  156/55    157/08 D  157/18    157/29 D  157/39    157/49 D  158/02
                                          156/46    156/56 D  157/08    157/18 D  157/29    157/39 D  157/49    158/02 D
                                          156/46 D  156/56    157/08 D  157/18    157/29 D  157/39    157/49 D  158/02
                                          156/46    156/56 D  157/08    157/18 D  157/29    157/39 D  157/49    158/02 D
                                          156/46 D  156/56    157/09 D  157/18    157/30 D  157/39    157/49 D  158/02
                                          156/46    156/56 D  157/09    157/18 D  157/30    157/40 D  157/49    158/02 D
                                          156/46 D  156/56    157/09 D  157/18    157/30 D  157/40    157/50 D  158/02
                                          156/46    156/56 D  157/09    157/18 D  157/30    157/40 D  157/50    158/03 D
                                          156/47 D  156/56    157/09 D  157/18    157/30 D  157/40    157/50 D  158/03
                                          156/47    156/56 D  157/09    157/18 D  157/30    157/40 D  157/50    158/03 D
                                          156/47 D  156/56    157/09 D  157/18    157/30 D  157/40    157/50 D  158/03
                                          156/47    156/56 D  157/09    157/20 D  157/30    157/40 D  157/50    158/03 D
                                          156/47 D  156/56    157/09 D  157/20    157/30 D  157/40    157/50 D  158/03
                                          156/47    156/56 D  157/09    157/20 D  157/30    157/40 D  157/50    158/03 D
                                          156/47 D  156/56    157/09 D  157/20    157/30 D  157/40    157/50 D  158/03
                                          156/47    156/56 D  157/09    157/20 D  157/30    157/40 D  157/50    158/03 D
                                          156/47 D  156/56    157/09 D  157/20    157/31 D  157/40    157/50 D  158/03
                                          156/47    156/57 D  157/09    157/20 D  157/31    157/41 D  157/50    158/03 D
                                          156/47 D  156/57    157/11 D  157/20    157/31 D  157/41    157/50 D  158/03
                                          156/47    156/57 D  157/11    157/20 D  157/31    157/41 D  157/50    158/04 D
                                          156/47 D  156/57    157/11 D  157/20    157/31 D  157/41    157/51 D  158/04
                                          156/47    156/57 D  157/11    157/20 D  157/31    157/41 D  157/51    158/04 D
                                          156/47 D  156/57    157/11 D  157/20    157/31 D  157/41    157/51 D  158/04
                                          156/47    156/57 D  157/11    157/20 D  157/31    157/41 D  157/51    158/04 D
                                          156/47 D  156/57    157/11 D  157/20    157/31 D  157/41    157/51 D  158/04
                                          156/47    156/57 D  157/11    157/21 D  157/31    157/41 D  157/51    158/04 D
                                          156/48 D  156/57    157/11 D  157/21    157/31 D  157/41    157/51 D  158/04
                                          156/48    156/57 D  157/11    157/21 D  157/31    157/41 D  157/51    158/04 D
                                          156/48 D  156/57    157/11 D  157/21    157/32 D  157/41    157/51 D  158/04
                                          156/48    156/57 D  157/11    157/21 D  157/32    157/41 D  157/51    158/04 D
                                          156/48 D  156/57    157/11 D  157/21    157/32 D  157/41    157/51 D  158/04
                                          156/48    156/57 D  157/11    157/21 D  157/32    157/42 D  157/51    158/05 D
                                          156/48 D  156/57    157/12 D  157/21    157/32 D  157/42    157/51 D  158/05
                                          156/48    157/02 D  157/12    157/21 D  157/32    157/42 D  157/51    158/05 D
                                          156/48 D  157/02    157/12 D  157/21    157/32 D  157/42    157/52 D  158/05
                                          156/48    157/02 D  157/12    157/21 D  157/32    157/42 D  157/52    158/05 D
                                          156/48 D  157/02    157/12 D  157/21    157/32 D  157/42    157/52 D  158/05
                                          156/48    157/02 D  157/12    157/21 D  157/32    157/42 D  157/52    158/05 D
                                          156/48 D  157/02    157/12 D  157/21    157/32 D  157/42    157/52 D  158/05
                                          156/48    157/02 D  157/12    157/22 D  157/32    157/42 D  157/52    158/05 D
                                          156/48 D  157/02    157/12 D  157/22    157/32 D  157/42    157/52 D  158/05
                                          156/48    157/02 D  157/12    157/22 D  157/32    157/42 D  157/52    158/05 D
                                          156/48 D  157/02    157/12 D  157/22    157/33 D  157/42    157/52 D  158/05
                                          156/48    157/03 D  157/12    157/22 D  157/33    157/42 D  157/52    158/06 D
                                          156/50 D  157/03    157/12 D  157/22    157/33 D  157/42    157/52 D  158/06
                                          156/50    157/03 D  157/12    157/22 D  157/33    157/43 D  157/52    158/06 D
                                          156/50 D  157/03    157/13 D  157/22    157/33 D  157/43    157/52 D  158/06
                                          156/50    157/03 D  157/13    157/22 D  157/33    157/43 D  157/52    158/06 D
                                          156/50 D  157/03    157/13 D  157/22    157/33 D  157/43    157/53 D  158/06
                                          156/50    157/03 D  157/13    157/22 D  157/33    157/43 D  157/53    158/06 D
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   348
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
                                          156/50 D  157/03    157/13 D  157/22    157/33 D  157/43    157/53 D  158/06
                                          156/50    157/03 D  157/13    157/22 D  157/33    157/43 D  157/53    158/06 D
                                          156/51 D  157/03    157/13 D  157/22    157/33 D  157/43    157/53 D  158/06
                                          156/51    157/04 D  157/13    157/23 D  157/33    157/43 D  157/53    158/06 D
                                          156/51 D  157/04    157/13 D  157/23    157/33 D  157/43    157/53 D  158/06
        DAB          2637   PROGRAM*      126/09    149/06 L  149/38    149/47    161/53    219/42
        DAR          2644   PROGRAM*      114/09    115/14    125/19    149/27 L  326/09
        DAR2         2650   PROGRAM*      149/38 L  149/41
        DAR3         2654   PROGRAM*      149/47 L  149/50
        DAR4         2660   PROGRAM*      149/56 L  150/02    150/19
        DAR5         2663   PROGRAM*      149/33    150/07 L  150/15
        DAZ          2674   PROGRAM*      120/18    151/06 L  182/20    212/16    220/04
        DAZ1         2701   PROGRAM*      151/14    151/19 L
        DAZ10        2745   PROGRAM*      153/48 L  153/54    154/01
        DAZ11        2751   PROGRAM*      153/13    153/50    154/05 L
        DAZ11A       2756   PROGRAM*      154/17    154/21 L
        DAZ11C       2764   PROGRAM*      154/22    154/23    154/25    154/42 L
        DAZ12        2771   PROGRAM*      151/35    152/27    154/55 L
        DAZ2         2703   PROGRAM*      151/15    151/26 L
        DAZ3         2721   PROGRAM*      152/24    152/27 L
        DAZ4         2726   PROGRAM*      152/42    152/48 L
        DAZ5         2732   PROGRAM*      153/05 L  153/19
        DAZ6         2733   PROGRAM*      153/09 L  153/18    153/39
        DAZ7         2735   PROGRAM*      153/15 L  153/33
        DAZ8         2737   PROGRAM*      153/15    153/23 L
        DAZ9         2744   PROGRAM*      153/23    153/43 L
        DAZ=ADR      3000   PROGRAM*      152/09 S  153/43    154/11    155/14 L  220/23
        DAZ=EQ       3026   PROGRAM*      156/45 L
        DAZ=I        3004   PROGRAM*      152/43    152/55    153/12    153/29    155/18 L  220/24
        DAZ=J        3005   PROGRAM*      155/19 L  220/25
        DAZ=K        3006   PROGRAM*      155/20 L  220/26
        DAZ=OP       3003   PROGRAM*      151/34 S  152/20    152/39    154/48    155/17 L  220/27
        DAZ=OPI      3002   PROGRAM*      152/48    155/16 L
        DAZ=PS       3022   PROGRAM*      152/21    152/40    154/49    156/41 L  213/01    218/16
        DAZ=Q        3007   PROGRAM*      155/21 L
        DAZ=XJP      3122   PROGRAM*      152/44    157/56 L
        DCB1         6005   PROGRAM*      320/52    320/53    321/08 L
        DCB=         6001   PROGRAM*      313/21    320/48 L
        DCM          3132   PROGRAM*      115/23    127/13    158/45 L  326/10
        DCM2         3136   PROGRAM*      158/57 L  159/45
        DCM3         3146   PROGRAM*      159/06    159/24 L
        DCM4         3153   PROGRAM*      159/26    159/37 L
        DCM5         3154   PROGRAM*      159/35    159/39 L
        DCM6         3157   PROGRAM*      159/04    159/49 L
        DOD          3162   PROGRAM*      121/06    160/31 L
        DOD2         3165   PROGRAM*      160/37 L  161/05
        DSR          3201   PROGRAM*      114/12    115/17    161/43 L
        DSRA         3212   PROGRAM*      161/51 S  162/01    162/06 L
        DSR2         3202   PROGRAM*      161/45 L  162/03
        DSR3         3207   PROGRAM*      161/52    161/56 L
        DSR4         3210   PROGRAM*      161/54    162/01 L
        DUX          3213   PROGRAM*      126/12    149/56    161/56    162/27 L  219/46
        DUXA         3226   PROGRAM*      162/28    162/51 L
        DXB          5022   PROGRAM*      252/53 L  325/46
        DXB1         5011   PROGRAM*      252/10 L  252/24
        DXB1$           1                  47/15 D  252/28 F
        DXB2         5013   PROGRAM*      252/18 L  253/12
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   349
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        DXB3         5021   PROGRAM*      252/41    252/44    252/48 L  253/06
  U     ERP1$                             247/20 F  247/29 F  247/51 F
  U     ERP$                              247/15 F  247/28 F  247/50 F
        E.ADDR       1264   PROGRAM*       98/07 L  120/37    121/23
        E.BRAD       1267   PROGRAM*       98/10 L  117/31
        E.BRA1       1270   PROGRAM*       98/11 L  117/46    129/04
        E.BRA2       1271   PROGRAM*       98/12 L  118/08    129/23
        E.CON        1302   PROGRAM*       98/21 L  189/12
        E.FLL        1272   PROGRAM*       98/13 L  120/05    121/05    127/12
        E.IND        1303   PROGRAM*       98/22 L  192/49
        E.JP         1274   PROGRAM*       98/15 L  123/25
        E.KEY        1266   PROGRAM*       98/09 L  110/54
        E.LFN        1273   PROGRAM*       98/14 L  120/29    121/15
        E.OPT        1304   PROGRAM*       98/23 L  199/49    200/11
        E.PAST       1305   PROGRAM*       98/24 L  193/27    193/57
        E.POP        1300   PROGRAM*       98/19 L  186/18    186/19
        E.REG        1275   PROGRAM*       98/16 L  125/34    125/53    125/56
        E.SC         1265   PROGRAM*       98/08 L  110/44
        E.SET        1276   PROGRAM*       98/17 L  126/37
        E.STB        1306   PROGRAM*       98/25 L  185/25
        E.STO        1277   PROGRAM*       98/18 L  127/48    127/50    127/55
        E.SYTL       1307   PROGRAM*       98/26 L  188/40
        E.UNOP       1310   PROGRAM*       87/38     87/40     87/46     87/48     87/50
                                           87/39     87/45     87/47     87/49     98/27 L
        E.VAR        1301   PROGRAM*       98/20 L  120/34    121/20    188/46
        FAA          3227   PROGRAM*      163/36 L  192/14    210/32
        FAA2         3233   PROGRAM*      163/39    163/43 L
        FAA3         3234   PROGRAM*      163/47 L  163/52    163/57
        FAA4         3237   PROGRAM*      163/47    163/54 L
        FAA5         3241   PROGRAM*      163/50    164/02 L
        FAB          3242   PROGRAM*      149/08    150/08    150/11    164/36 L
        FABA         3261   PROGRAM*      164/44    165/22 L
        FABB         3263   PROGRAM*      164/45    165/24 L
        FAB2         3256   PROGRAM*      165/03    165/12 L
        FAB3         3257   PROGRAM*      165/08    165/15 L
        FLL          3265   PROGRAM*      158/46    160/32    166/01 L  197/13    325/40
        FLL2         3272   PROGRAM*      166/15 L  166/41
        FLL3         3302   PROGRAM*      166/17    166/35 L
        FLL4         3310   PROGRAM*      166/31    166/53 L
        FOF          3312   PROGRAM*      107/39    108/54    112/24    122/21    122/23    167/23 L
        FRA          3320   PROGRAM*      108/02    137/57    169/10 L  178/36    192/10
                                          132/19    154/24    174/38    181/15    220/16
        FRA1         3324   PROGRAM*      169/15    169/21 L
        FRA2         3330   PROGRAM*      169/35 L  169/39    169/40    169/43    169/51
        FRA3         3333   PROGRAM*      169/36    169/47 L
        FRA4         3335   PROGRAM*      169/49    169/55 L
        FRK          3342   PROGRAM*      107/31    114/02    115/08    170/36 L  215/51    326/11
        FRK.NO       3341   PROGRAM*      170/34 L  170/41    170/42    170/43    170/47    170/50    171/07
        FRZ          3354   PROGRAM*      123/10    171/41 L
        FRZ#SAV       157   PROGRAM*      112/55    172/18 S  173/16 D
        FW=KEY       1104   PROGRAM*       95/12 L  146/23    146/32 S
        FW=PARM       452   PROGRAM*       83/39 L  115/19    175/54 S  226/22    226/50    227/22
                                          114/05    135/53    226/19    226/47    227/19    326/05
        FW=TCOM      5454   PROGRAM*      293/20 L  294/57 S  305/31    307/50    308/31
        FW=UKT       1250   PROGRAM*       96/50 L  107/06
        FW.ERR       1264   PROGRAM*       98/06 L   98/29
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   350
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        FW.IFR       1436   PROGRAM*      100/05 L  104/39    104/39    105/03    105/05    172/37
                                          104/39    104/39    104/47    105/04    123/04    172/38
        FW.KEY       1105   PROGRAM*       95/12     95/17 L  146/31
        FW.KOPT      1261   PROGRAM*       97/31 L  123/43
        FW.LIM        200   PROGRAM*       82/50 L  109/24    109/50    202/34    202/44
                                          109/01    109/40    202/14    202/38
        FW.PAST       474   PROGRAM*       88/23 L  187/49    188/26 S  190/49    191/35 S  193/28 S  193/56
                                          187/43 S  188/10    189/40    190/50    192/22    193/35 S
        FW.POT        456   PROGRAM*       87/37 L   87/54    186/21
        FW.PTR        671   PROGRAM*       93/14 L   93/21    201/21
        FW.RPN        532   PROGRAM*       89/10 L  185/28    190/06    190/10
        FW.SCT       1101   PROGRAM*       94/56 L  110/40
        FW.SER       1311   PROGRAM*       98/42 L   98/57
        FW.SVR        422   PROGRAM*       83/26 L  111/41    114/14    115/25    213/42    216/21
                                          106/31    113/52    115/01    213/33    215/32
        FW.TCOM       715   PROGRAM*       93/47 L   93/49    110/06
        FW.TOK          0                  53/40 F  221/02    222/06    222/08    222/08    222/08    222/08    301/38
                                           53/41 D  221/03    222/07    222/08    222/08    222/08    222/08    301/42
                                          220/44    221/04    222/08    222/08    222/08    222/08    222/08    302/11
                                          220/45    221/05    222/08    222/08    222/08    222/08    222/08    302/20
                                          220/46    221/06    222/08    222/08    222/08    222/08    222/08    303/57
                                          220/49    221/07    222/08    222/08    222/08    222/08    222/08    304/28
                                          220/50    221/08    222/08    222/08    222/08    222/08    297/17    304/44
                                          220/51    221/09    222/08    222/08    222/08    222/08    298/03    305/15
                                          220/52    221/10    222/08    222/08    222/08    222/08    298/04    305/21
                                          220/53    221/11    222/08    222/08    222/08    222/08    298/18    305/51
                                          220/55    221/51    222/08    222/08    222/08    222/08    300/35    306/01
                                          220/56    222/05    222/08    222/08    222/08    222/08    301/03
        F.BDI         170   PROGRAM*       83/01 D  202/16
        F.FRZ        1510   PROGRAM*      105/03 D  172/32    172/46    172/48 S  172/53    173/04 S  173/12
        F.IDI         170   PROGRAM*       82/44 F   82/47 L   83/01    176/28    176/29    202/12
        F.IDO         312   PROGRAM*       83/08 F  108/51    109/40    122/20    176/39    198/20    198/43    205/21
                                           83/11 L  108/53    112/09    176/39    176/40    198/24    204/56
        GIL          3405   PROGRAM*      166/08    166/21    166/42    173/43 L
        GIL2         3406   PROGRAM*      173/45 L  173/50
        HDR          3411   PROGRAM*      114/04    115/10    174/17 L  326/12
        HDRA         3430   PROGRAM*      174/27    174/52 L
        HDR2         3425   PROGRAM*      174/39    174/45 L
        IDF.ADRP       63                  50/13 D  117/07    126/24    137/54
        IDF.BDOP       70                  50/08 D  109/18    124/43    124/45    205/06    205/30    209/19
        IDF.BKOP       67                  50/09 D  109/17    124/52    124/54
        IDF.BRFP       57                  50/15 D  108/43    116/26    122/15    127/25
        IDF.FTOP       65                  50/11 D  106/47    106/52    106/56    209/14
        IDF.IDOP       73                  50/05 D  106/56
        IDF.IKOP       72                  50/06 D  109/31    125/04    125/06
        IDF.INPP       64                  50/12 D  108/42    109/06    109/08    176/25    202/13    202/18
        IDF.MEMP       56                  50/16 D  123/56    124/01    140/29
        IDF.RAPP       55                  50/17 D  109/04    109/06    176/23    176/25    202/18    202/26
        IDF.SNLL       22                  50/20 D  106/46    209/20
        IDF.SNLP        0                  50/20 D
        IDF.XECL        3                  50/14 D  106/42    209/08
        IDF.XECP       60                  50/14 D  106/44    209/11    209/14    209/15
        IDF.XJRP       54                  50/18 D  124/09    124/11    203/36
        IDPACC        635   PROGRAM*       90/57 L  185/16 S  194/04 S  199/34 S  200/13 S  200/18
        IDPBA        1327   PROGRAM*       64/33     99/04 L  107/18    119/10    136/07    178/03    179/31    224/31
        IDPBC        1342   PROGRAM*       99/08 L  119/26 S  119/37    136/11    179/33    224/42
        IDPBTC        634   PROGRAM*       90/55 L  117/23 S  117/32    117/50    118/47    178/23 S  178/45    178/56
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   351
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        IDPERR        453   PROGRAM*       84/05 L  112/08 S  112/22 S  198/17
        IDPFAD        641   PROGRAM*       91/12 L  151/10    182/19 S
        IDPFLG        454   PROGRAM*       85/21 L  109/29    123/49    137/53    176/21    205/05    325/57
                                          106/41    116/24    124/28    140/28    202/11    205/13
                                          108/40    117/05    126/22    149/31    203/35    205/27
                                          108/57    122/14    127/23    159/17    204/48    209/07
        IDPIDI        210   PROGRAM*       82/48     82/48     82/48     82/48     82/51 L
        IDPIDO        321   PROGRAM*       83/12     83/12     83/12     83/12     83/13 L
        IDPKOUT      1254   PROGRAM*       97/16 L  124/22
        IDPKSTO      1251   PROGRAM*       97/06 L  129/29
        IDPMSG2       655   PROGRAM*       92/23 L
        IDPMSG4       660   PROGRAM*       92/24 L  128/30 S  128/36    128/36
        IDPMSG5       664   PROGRAM*       92/26 L  128/34 S  128/37    128/37
        IDPNAM        640   PROGRAM*       91/10 L  126/40 S  126/46
        IDPNUL        636   PROGRAM*       91/01 L  185/17 S  186/01    193/51    199/33 S  199/38    200/19
        IDPPOS        643   PROGRAM*       91/30 D  122/34    123/28 S  135/48 S  218/13    219/54
        IDPPPP        642   PROGRAM*       91/25 L   91/27
        IDPPREG       642   PROGRAM*       91/28 D  111/35    131/02    135/55 S  177/22    213/55    218/12    220/07
                                          107/57    123/31 S  132/09    137/10 S  211/57    216/54    219/53    220/15
        IDPSET       1400   PROGRAM*       99/24 L  107/20    126/44    127/01    131/47    177/16    210/20
        IDPSTA        631   PROGRAM*       90/42 D  127/53 S  128/21
        IDPSTC        632   PROGRAM*       90/43 D  128/05    128/32
        IDPSTM        633   PROGRAM*       90/45 D
        IDPSTO        631   PROGRAM*       90/39 L   90/41
        IDPTB         735   PROGRAM*       90/31     94/42 L  110/01    110/08    110/09    222/52 S
        IDPTMP       1366   PROGRAM*       99/16 L  177/18
        IDPXAR        644   PROGRAM*       91/35 L  130/35    211/53 S  217/37 S
        IDPXA1        645   PROGRAM*       91/43 D  129/07 S  129/18    129/44 S  130/03    130/36    133/08 S
        IDPXA2        646   PROGRAM*       91/44 D  129/24 S  129/38    130/37    133/09 S
        IDPXCA        645   PROGRAM*       91/38 L   91/42
        IDPXFR        647   PROGRAM*       91/47 L  214/46 S  215/39    216/34 S  218/11
                                          211/52 S  215/28 S  215/47 S  217/10 S
        IDPXFT       1431   PROGRAM*       99/45 L  107/23    181/54    218/54
        IDPXLST       650   PROGRAM*       91/51 L  122/26    122/44 S  129/55 S  212/13    216/36    219/20    219/51
        IDPXOL        653   PROGRAM*       92/12 D  129/46
        IDPXOP        653   PROGRAM*       92/03 L   92/11    129/32 S
        IDPXORJ       654   PROGRAM*       92/14 D  130/22    130/47
        IDPXRJ        651   PROGRAM*       91/53 L  129/42 S  129/49    130/21    130/48    215/16    216/53
        IDPXTC        652   PROGRAM*       92/01 L  128/51 S  129/08    129/37    130/02    130/20    133/04 S
        IDP0TR        637   PROGRAM*       91/04 L  125/30    126/06 S
        IDP1         1527   PROGRAM*      107/08    107/09    107/14 L
        IDP10        1573   PROGRAM*      109/02    109/16 L
        IDP10A       1600   PROGRAM*      109/20    109/29 L
        IDP11        1604   PROGRAM*      109/34    109/49 L
        IDP12        1616   PROGRAM*      108/36    110/11    110/30 L
        IDP13        1624   PROGRAM*      110/35    110/53 L
        IDP14        1626   PROGRAM*      111/11 L
        IDP15        1630   PROGRAM*      111/13    111/17 L
        IDP2         1534   PROGRAM*      106/49    107/28 L
        IDP2A        1541   PROGRAM*      107/43 L  215/53
        IDP4         1545   PROGRAM*      107/52    107/57 L
        IDP5         1551   PROGRAM*      108/03    108/09 L
        IDP7         1555   PROGRAM*      108/20    108/28 L
        IDP8         1560   PROGRAM*      108/40 L  109/11    112/10    112/26
        IDP8A        1564   PROGRAM*      108/45    108/53 L
        IDP9         1565   PROGRAM*      108/56 L
        IDP=         1515   PROGRAM*      106/29 L  107/28    119/51    215/08    215/48    325/35
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   352
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        IDP=ER       1641   PROGRAM*      112/03 L  220/20
        IDP=ERR      1642   PROGRAM*       98/07     98/10     98/13     98/16     98/19     98/22     98/25    112/07 L
                                           98/08     98/11     98/14     98/17     98/20     98/23     98/26    325/37
                                           98/09     98/12     98/15     98/18     98/21     98/24     98/27
        IDP=IFR      1651   PROGRAM*      104/29    112/48 L
        IDP=JP       1637   PROGRAM*      111/39 S  111/44 L
        IDP=JPS      1640   PROGRAM*      111/36    111/46 L
        IDP=MN       1553   PROGRAM*      108/18 L  119/43    121/31    124/21    126/54    130/17    131/05    132/24
                                          110/32    119/48    123/12    125/20    127/03    130/29    131/06    132/45
                                          113/10    120/13    123/20    125/26    127/14    130/30    131/19    325/36
                                          117/10    120/47    123/22    126/27    127/36    130/43    131/27
                                          119/31    121/07    123/42    126/51    128/38    130/53    131/42
        IDP=SC       1615   PROGRAM*      110/16 L  116/29    116/39
        IDP=SER      1645   PROGRAM*       98/43     98/45     98/47     98/49     98/51     98/53     98/55    112/21 L
                                           98/44     98/46     98/48     98/50     98/52     98/54     98/56
        IDP=SVA       432   PROGRAM*       83/28 L  217/47    217/55    217/57    325/54
        IDP=SVB       422   PROGRAM*       83/27 L  162/41    189/29    217/49    217/55    218/02    325/53
                                          161/46    164/39    217/07    217/53    217/57    218/04
        IDP=SVX       442   PROGRAM*       83/29 L  162/30    217/51    217/53    325/55
        IDP=XIT      1634   PROGRAM*      111/34 L  122/45
        IDP.ER       1641   PROGRAM*      112/04 L
        IEX          3432   PROGRAM*      113/56    115/05    135/50    175/25 L
        IEX2         3443   PROGRAM*      175/34    175/54 L
        IIF          3444   PROGRAM*      107/14    113/08    176/17 L
        IST          3460   PROGRAM*      107/22    177/15 L
        KW.ATTRL       30                  50/36 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.ATTRP       44                  50/36 D
        KW.HADL        22                  50/39 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.HADP         0                  50/39 D
        KW.KEYL        22                  50/33 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.KEYP         0                  50/33 D  147/08
        KW.LADL        11                  50/37 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.LADP        33                  50/37 D
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   353
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        KW.LENL        11                  50/32 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40    147/09
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.LENP        22                  50/32 D  147/08
        KW.PADL        22                  50/30 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.PADP        44                  50/30 D  111/19
        KW.PNRL         6                  50/29 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40    201/11
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.PNRP        66                  50/29 D  201/12
        KW.UDOL        11                  50/38 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.UDOP        22                  50/38 D
        KW.XATL        11                  50/31 D   95/22     95/29     95/36     96/03     96/10     96/37     96/44
                                           58/27     95/23     95/30     95/37     96/04     96/11     96/38     96/45
                                           58/28     95/24     95/31     95/38     96/05     96/12     96/39     96/46
                                           95/18     95/25     95/32     95/39     96/06     96/33     96/40    117/21
                                           95/19     95/26     95/33     95/40     96/07     96/34     96/41    128/48
                                           95/20     95/27     95/34     95/41     96/08     96/35     96/42
                                           95/21     95/28     95/35     96/02     96/09     96/36     96/43
        KW.XATP        33                  50/31 D  117/20    128/49
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   354
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        L               4                 156/41 D  156/46 D  156/54 D  157/12 D  157/26 D  157/38 D  157/48 D  158/01 D
                                          156/41    156/46    156/54    157/12    157/26    157/38    157/48    158/01
                                          156/41 D  156/46 D  156/55 D  157/13 D  157/27 D  157/38 D  157/48 D  158/01 D
                                          156/41    156/46    156/55    157/13    157/27    157/38    157/48    158/01
                                          156/42 D  156/46 D  156/56 D  157/14 D  157/29 D  157/39 D  157/49 D  158/02 D
                                          156/42    156/46    156/56    157/14    157/29    157/39    157/49    158/02
                                          156/42 D  156/47 D  156/57 D  157/15 D  157/29 D  157/39 D  157/49 D  158/02 D
                                          156/42    156/47    156/57    157/15    157/29    157/39    157/49    158/02
                                          156/42 D  156/47 D  157/02 D  157/16 D  157/30 D  157/40 D  157/50 D  158/03 D
                                          156/42    156/47    157/02    157/16    157/30    157/40    157/50    158/03
                                          156/43 D  156/47 D  157/03 D  157/17 D  157/30 D  157/40 D  157/51 D  158/03 D
                                          156/43    156/47    157/03    157/17    157/30    157/40    157/51    158/03
                                          156/43 D  156/48 D  157/04 D  157/18 D  157/31 D  157/41 D  157/52 D  158/04 D
                                          156/43    156/48    157/04    157/18    157/31    157/41    157/52    158/04
                                          156/43 D  156/48 D  157/05 D  157/20 D  157/31 D  157/42 D  157/53 D  158/04 D
                                          156/43    156/48    157/05    157/20    157/31    157/42    157/53    158/04
                                          156/44 D  156/48 D  157/06 D  157/21 D  157/32 D  157/43 D  157/54 D  158/05 D
                                          156/44    156/48    157/06    157/21    157/32    157/43    157/54    158/05
                                          156/44 D  156/50 D  157/07 D  157/22 D  157/33 D  157/44 D  157/56 D  158/05 D
                                          156/44    156/50    157/07    157/22    157/33    157/44    157/56    158/05
                                          156/45 D  156/51 D  157/08 D  157/23 D  157/34 D  157/45 D  157/56 D  158/06 D
                                          156/45    156/51    157/08    157/23    157/34    157/45    157/56    158/06
                                          156/45 D  156/52 D  157/09 D  157/24 D  157/35 D  157/47 D  157/57 D  158/06 D
                                          156/45    156/52    157/09    157/24    157/35    157/47    157/57    158/06
                                          156/45 D  156/53 D  157/11 D  157/25 D  157/36 D  157/47 D  157/57 D
                                          156/45    156/53    157/11    157/25    157/36    157/47    157/57
        LBT          3467   PROGRAM*      119/47    177/56 L
        LBT1         3471   PROGRAM*      178/08 L  178/12    180/39
        LBT2         3472   PROGRAM*      178/04    178/10 L
        LBT3         3504   PROGRAM*      178/37    178/43 L
        LBT4         3520   PROGRAM*      179/08    179/23 L
        LBT5         3521   PROGRAM*      178/46    179/26 L
        LCB1         5204   PROGRAM*      266/20 L  266/26
        LCB2         5205   PROGRAM*      266/18    266/24 L
        LCB3         5212   PROGRAM*      266/29    266/39 L
        LCB4         5217   PROGRAM*      266/46    266/51    266/54 L
        LCB5         5220   PROGRAM*      266/56 L  267/09
        LCB6         5221   PROGRAM*      266/53    267/03 L
        LCB7         5224   PROGRAM*      266/55    267/08 L
        LCB=         5202   PROGRAM*      257/35    266/14 L
        LIP.ABS         0                  95/18 D   95/18
        LIP.ABT         0                  58/27 D   58/27     58/28
        LIP.BRK         0                  96/02 D   96/03     96/05     96/07     96/09     96/11
                                           96/02     96/04     96/06     96/08     96/10     96/12
        LIP.COD         0                  95/19 D   95/19
        LIP.CON         0                  95/20 D   95/20
        LIP.DPC         0                  95/21 D   95/21
        LIP.DSC         0                  95/22 D   95/22
        LIP.END         0                  95/23 D   95/23
        LIP.FRZ         0                  95/24 D   95/24
        LIP.JP          0                  95/25 D   95/25
        LIP.OPT         0                  95/26 D   95/26
        LIP.OUT         0                  95/27 D   95/27
        LIP.REG         0                  95/28 D   95/28
        LIP.REL         0                  95/29 D   95/29
        LIP.SET         0                  95/30 D   95/30
        LIP.SNP         0                  95/31 D   95/31
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   355
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        LIP.STA         0                  95/33 D   95/33
        LIP.STO         0                  95/32 D   95/32
        LIP.STP         0                  96/33 D   96/34     96/36     96/38     96/40     96/42     96/44
                                           96/33     96/35     96/37     96/39     96/41     96/43     96/46
        LIP.TIM         0                  95/34 D   95/34
        LIP.UBK         0                  95/35 D   95/35     95/37
        LIP.UST         0                  95/36 D   95/36     95/38
        LIP.WHR         0                  95/39 D   95/39
        LIP.XEQ         0                  95/40 D   95/40
        LIP.XFR         0                  95/41 D   95/41
        LIP.XNR         0                  96/45 D   96/45
        LST          3547   PROGRAM*      127/02    180/56 L
        LST2         3550   PROGRAM*      181/01 L  181/21
        LST4         3561   PROGRAM*      181/04    181/20 L
        LXT          3562   PROGRAM*      132/44    181/50 L
        LXT2         3565   PROGRAM*      181/56    182/02 L
        LXT3         3566   PROGRAM*      182/08 L  182/14    182/21
        LXT=NXT       157   PROGRAM*      182/04 S  182/08    182/24 D
        L1.PTR          2                  51/21 D  201/06    201/19
        L=LIM         311   PROGRAM*       82/53 L  109/23    202/35 S
        L.APL          10                  81/34 D   81/35    175/39
        L.BA           12                  99/03 D   99/05     99/08
        L.BSL           4                  47/19 D  209/09
        L.ERR          25                  98/29 D
        L.IDI         101                  82/45 D   82/48     82/51
        L.IDO         101                  83/09 D   83/12     83/13
        L.IFR          60                 104/47 D  172/38
        L.ISL           2                  47/20 D  106/54
        L.PAST         36                  88/21 D   88/23     89/09    185/24
        L.POT          15                  87/54 D  186/17
        L.PRB           0                  47/22 D  109/37    149/29    149/52    174/47
                                          108/48    122/18    149/43    150/17
        L.PTR          24                  93/21 D  201/19
        L.RPN          55                  89/09 D   89/10    190/06
        L.SER          16                  98/57 D
        L.SET          30                  99/23 D   99/25
        L.TB          144                  94/41 D   94/42
        L.TCOM         20                  54/34 D   93/47
        L.TMP          12                  99/15 D   99/16
        L.XFT           4                  99/44 D   99/46    132/42    181/54    181/55    181/57    218/55
        MCS          5031   PROGRAM*      127/31    254/51 L  325/47
        MCSA         5041   PROGRAM*      255/01    255/23 L
        MCS2         5040   PROGRAM*      255/16    255/18 L
        MEM#HOST     1504   PROGRAM*      105/05 D  112/49    171/51 S  171/55    172/57
        MEM#RHH      1503   PROGRAM*      105/04 D
        MSGA         5453   PROGRAM*      283/29 S  283/35 L
        MSG1         5443   PROGRAM*      283/14 L  283/25    283/33
        MSG=         5445   PROGRAM*      283/19 L
        MUL          3574   PROGRAM*      143/30    143/34    182/51 L
        MUL2         3601   PROGRAM*      182/57    183/05 L  183/08
        MX=BAX       6171   PROGRAM*       85/33 L  228/10
        MX=PREUN     6173   PROGRAM*       85/54 L  186/47
        MX=TET        455   PROGRAM*       86/31 L  193/52
        MX=0..7      6172   PROGRAM*       85/36 L  228/30
        N.PTR          12                  93/12 D   93/15
        OI.ERR          2                  47/05 D  198/29 F
        O=AND        4512   PROGRAM*      222/08 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   356
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        O=COM        4560   PROGRAM*      222/08 L
        O=ILL        4552   PROGRAM*      222/08 L
        O=LP         4553   PROGRAM*      222/08 L
        O=MIN        4550   PROGRAM*      222/08 L
        O=NOT        4542   PROGRAM*      222/08 L
        O=OR         4522   PROGRAM*      222/08 L
        O=PER        4561   PROGRAM*      222/08 L
        O=PLUS       4547   PROGRAM*      222/08 L
        O=QQQ        4573   PROGRAM*      222/08 L
        O=RP         4554   PROGRAM*      222/08 L
        O=SHFT       4555   PROGRAM*      222/08 L
        O=SQOT       4572   PROGRAM*      222/08 L
        O=STAR       4551   PROGRAM*      222/08 L
        O=XOR        4532   PROGRAM*      222/08 L
        O.AND          13                  48/23 D   87/48    222/08    222/08
        O.BOS           0                  48/09 D   48/10     48/11     53/46 F  296/15
        O.COM          17                  48/27 D   86/29    111/12    125/28    199/45    222/08
        O.CONS          3                  48/14 D   85/53     87/39    125/29    141/43    141/49    142/47    221/09
        O.EOS           0                  48/10 D   53/49 F   86/29    303/22
        O.ILL          23                  48/31 D  222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
        O.KEY           1                  48/12 D  110/34    220/55
        O.LP           10                  48/20 D   87/45    186/55    187/51    189/42    222/08
        O.MIN           6                  48/18 D   87/43    199/48    222/08
        O.NOT          16                  48/26 D   87/51    222/08    222/08
        O.NUL           0                  48/11 D  220/44    220/50
        O.OR           14                  48/24 D   87/49    222/08    222/08
        O.PER          20                  48/28 D  222/08    222/08    222/08    222/08    222/08
                                           94/57    222/08    222/08    222/08    222/08
        O.PLUS          5                  48/17 D   48/32     87/42    222/08
        O.QQQ          22                  48/30 D   95/01    222/08
        O.REG           4                  48/15 D   85/53     87/40    125/33    228/42
        O.RP           11                  48/21 D   85/53     87/46    222/08
        O.SEP           5                  48/32 D  186/52
        O.SHFT         12                  48/22 D   87/47    222/08
        O.SQOT         21                  48/29 D  222/08
        O.STAR          7                  48/19 D   87/44    222/08
        O.VAR           2                  48/13 D   87/38    141/53    199/44    222/08    222/08    222/08    228/12
                                           85/53    126/36    186/21    221/04    222/08    222/08    222/08
                                           87/35    131/45    188/39    222/05    222/08    222/08    223/21
        O.XOR          15                  48/25 D   87/50    222/08    222/08
        PAF.LENM     4000                  50/50 D  196/13    196/27
        PAF.LENP       13                  50/50 D
        PAF.LWAM    40000                  50/48 D  196/03    196/27    196/28
        PAF.LWAP       16                  50/48 D
        PAS          3603   PROGRAM*      117/25    118/16    123/21    128/04    131/28    133/06    195/57
                                          117/39    118/25    126/42    128/54    132/06    185/11 L  196/10
                                          118/01    118/34    127/49    129/15    132/39    195/41    325/41
        PASA         3735   PROGRAM*      194/09 L  194/11
        PAS10        3630   PROGRAM*      186/50    186/53    186/56    187/12 L
        PAS16        3632   PROGRAM*       87/45    187/42 L
        PAS18        3634   PROGRAM*       87/46    187/49 L  187/57
        PAS20        3640   PROGRAM*       87/42     87/44     87/48     87/50    188/10 L
                                           87/43     87/47     87/49     87/51    188/21
        PAS22        3644   PROGRAM*      187/02    188/11    188/17    188/25 L
        PAS24        3646   PROGRAM*       87/38    188/38 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   357
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        PAS26        3654   PROGRAM*       87/39    189/08 L
        PAS28        3660   PROGRAM*       87/40    189/27 L
        PAS30        3663   PROGRAM*      186/07    189/40 L  189/45    189/48
        PAS32        3667   PROGRAM*      189/41    190/03 L
        PAS34        3677   PROGRAM*       87/38     87/39     87/40    191/31 L
        PAS36        3701   PROGRAM*       87/42    191/41 L
        PAS38        3702   PROGRAM*       87/42    192/05 L
        PAS39        3710   PROGRAM*      192/11    192/17 L
        PAS40        3713   PROGRAM*       87/43    192/29 L
        PAS42        3714   PROGRAM*       87/43     87/51    192/35 L
        PAS44        3715   PROGRAM*       87/44    192/41 L
        PAS46        3716   PROGRAM*       87/44    192/47 L
        PAS48        3721   PROGRAM*       87/47    192/57 L
        PAS50        3722   PROGRAM*       87/49    193/07 L
        PAS52        3723   PROGRAM*       87/48    193/13 L
        PAS54        3724   PROGRAM*       87/50    193/19 L
        PAS90        3733   PROGRAM*      193/54    194/02 L
        PAS=PI       3672   PROGRAM*      190/35 L  191/36    193/29    193/36
        PAS=PIB      3725   PROGRAM*      191/42    192/30    192/42    193/02    193/08    193/14    193/20    193/25 L
        PAS=PIU      3727   PROGRAM*      192/24    192/36    192/52    193/34 L
        PAS=PO       3611   PROGRAM*      185/56 L  187/44    187/50    187/54    188/27    188/54    189/16    189/33
        PAS=SB6      3735   PROGRAM*      186/11 S  188/48    190/42 S  192/17    194/12 D
        PAS=SB7      3736   PROGRAM*      186/12 S  190/43 S  194/13 D
        PAS=SX7      3737   PROGRAM*      194/14 D
        PAS=TET      3740   PROGRAM*      185/57    194/05 S  194/17 L
        PAS=XIT      3730   PROGRAM*      190/38    193/50 L
        PAT          3741   PROGRAM*      120/04    121/04    127/11    195/19 L  325/42
        PATFLG        670   PROGRAM*       93/02 L  195/31 S  196/05 S  196/12    196/22
        PAT2         3753   PROGRAM*      195/42    195/51    195/56 L
        PAT3         3757   PROGRAM*      196/01    196/09 L
        PAT4         3763   PROGRAM*      195/40    195/56    196/09    196/11    196/22 L
        PAT5         3772   PROGRAM*      196/30    196/52 L
        PAT6         3774   PROGRAM*      196/26    196/29    196/44    196/46    197/06 L
        PAT7         4001   PROGRAM*      197/14    197/22 L
        PAT#FWA       157   PROGRAM*      195/35 S  195/46    196/23    197/08 S  197/22    197/33 D  325/43
        PAT#LEN       161   PROGRAM*      195/36 S  195/52 S  196/16 S  197/35 D  325/44
        PAT#LWA       160   PROGRAM*      195/32 S  196/04 S  197/34 D
        PEM          4005   PROGRAM*      112/25    116/38    198/13 L
        PEMA         4020   PROGRAM*      198/20    198/48 L
        PEMB         4022   PROGRAM*      198/24    198/50 L
        PEM2         4012   PROGRAM*      198/19    198/23 L
        PEM3         4015   PROGRAM*      198/23    198/27 L
        POL          4026   PROGRAM*      123/44    124/23    129/30    199/26 L
        POL2         4031   PROGRAM*      199/38 L  199/51    200/14
        POL3         4037   PROGRAM*      199/46    199/55 L
        POL4         4045   PROGRAM*      199/43    199/47    200/18 L
        PS.PIPL        22                  51/07 D   87/39     87/42     87/44     87/46     87/48     87/50    186/33
                                           87/38     87/40     87/43     87/45     87/47     87/49     87/51    190/46
        PS.PIPP        22                  51/07 D  186/35    186/37    187/13    190/45
        PS.POPL        22                  51/08 D   87/39     87/43     87/46     87/49    186/23
                                           51/09     87/40     87/44     87/47     87/50    186/30
                                           87/38     87/42     87/45     87/48     87/51    186/31
        PS.POPP         0                  51/08 D   51/09    186/35
        PS.PRIL         6                  51/05 D   87/39     87/42     87/44     87/46     87/48     87/50    186/40
                                           87/38     87/40     87/43     87/45     87/47     87/49     87/51    188/12
        PS.PRIP        66                  51/05 D  186/39    187/15    188/14
        PS.TOTL        22                  51/09 D  186/29
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   358
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        PS.TOTP         0                  51/09 D
        PS.UPIPL       22                  51/06 D   87/39     87/42     87/44     87/46     87/48     87/50    186/32
                                           87/38     87/40     87/43     87/45     87/47     87/49     87/51
        PS.UPIPP       44                  51/06 D  186/37    186/39
        PTR          4047   PROGRAM*      192/08    195/26    197/28    201/05 L
        PTR2         4052   PROGRAM*      201/07    201/11 L
        PTR3         4061   PROGRAM*      201/23    201/36 L
        PTR.ABS         0                  95/18 D   95/18
        PTR.ABT         0                  58/27 D   58/27     58/28
        PTR.BRK         1                  51/36 D   96/03     96/05     96/07     96/09     96/11
                                           96/02     96/04     96/06     96/08     96/10     96/12
        PTR.COD         1                  51/31 D   95/19
        PTR.CON         0                  95/20 D   95/20
        PTR.DPC         3                  51/32 D   95/21
        PTR.DSC         0                  95/22 D   95/22
        PTR.END         0                  95/23 D   95/23
        PTR.FRZ         0                  95/24 D   95/24
        PTR.JP          0                  95/25 D   95/25
        PTR.OPT         0                  95/26 D   95/26
        PTR.OUT         0                  95/27 D   95/27
        PTR.REG         0                  95/28 D   95/28
        PTR.REL         0                  95/29 D   95/29
        PTR.SET         0                  95/30 D   95/30
        PTR.SNP         3                  51/33 D   95/31
        PTR.STA         0                  95/33 D   95/33
        PTR.STO         3                  51/34 D   95/32
        PTR.STP         0                  96/33 D   96/34     96/36     96/38     96/40     96/42     96/44
                                           96/33     96/35     96/37     96/39     96/41     96/43     96/46
        PTR.TIM         0                  95/34 D   95/34
        PTR.UBK         0                  95/35 D   95/35     95/37
        PTR.UST         0                  95/36 D   95/36     95/38
        PTR.WHR         1                  51/35 D   95/39
        PTR.XEQ         0                  95/40 D   95/40
        PTR.XFR         0                  95/41 D   95/41
        PTR.XNR         0                  96/45 D   96/45
        PT.FWAL        36                  51/18 D   93/18     93/18     93/18     93/18     93/18     93/18
                                           93/18     93/18     93/18     93/18     93/18     93/18     93/18
                                           93/18     93/18     93/18     93/18     93/18     93/18     93/18
        PT.FWAP        36                  51/18 D  201/28    201/30    201/38
        PT.LENL        36                  51/19 D   93/18     93/18     93/18     93/18     93/18     93/18
                                           93/18     93/18     93/18     93/18     93/18     93/18     93/18
                                           93/18     93/18     93/18     93/18     93/18     93/18     93/18
        PT.LENP         0                  51/19 D  201/30
        P.COPY         14                 156/02 D  156/51    157/05    157/16    157/27    157/39    157/50    158/04
                                          156/41    156/52    157/06    157/17    157/29    157/40    157/51    158/05
                                          156/42    156/53    157/07    157/18    157/30    157/41    157/52    158/06
                                          156/43    156/54    157/08    157/20    157/31    157/42    157/53
                                          156/44    156/55    157/09    157/21    157/32    157/43    157/54
                                          156/45    156/56    157/11    157/22    157/33    157/44    157/56
                                          156/46    156/57    157/12    157/23    157/34    157/45    157/57
                                          156/47    157/02    157/13    157/24    157/35    157/47    158/01
                                          156/48    157/03    157/14    157/25    157/36    157/48    158/02
                                          156/50    157/04    157/15    157/26    157/38    157/49    158/03
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   359
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        QUAL$           1                  33/12 D  243/48 F  250/16 F  258/15 F  273/02 F  283/42 F  313/37 F  325/14 F
                                           69/06 F  244/06 F  251/06 F  259/06 F  274/06 F  284/06 F  314/06 F
                                          230/22 F  245/23 F  253/18 F  267/19 F  275/13 F  309/01 F  321/16 F
                                          231/06 F  246/06 F  254/06 F  268/06 F  276/06 F  310/06 F  322/06 F
                                          239/37 F  248/32 F  255/28 F  271/16 F  279/22 F  311/36 F  323/45 F
                                          240/06 F  249/06 F  256/06 F  272/06 F  280/06 F  312/06 F  324/06 F
        RCL1         5427   PROGRAM*      281/43 L  281/52
        RCL=         5431   PROGRAM*      263/26    266/19    281/48 L  281/50    318/13    320/55
        RDC1         5046   PROGRAM*      257/17    257/19 L
        RDC1A        5047   PROGRAM*      257/19    257/21 L
        RDC2         5050   PROGRAM*      257/09    257/28 L
        RDC3         5051   PROGRAM*      257/35 L  257/42    257/45    257/46
        RDC4         5053   PROGRAM*      257/41 L  258/03
        RDC5         5056   PROGRAM*      257/41    257/52 L
        RDC6         5060   PROGRAM*      257/39    258/01 L
        RDC7         5061   PROGRAM*      257/52    258/05 L
        RDC=         5043   PROGRAM*      202/29    257/11 L  257/12
        RDWA         5076   PROGRAM*      260/49 L  264/15
        RDWB         5161   PROGRAM*      260/50    263/49 S  263/50    264/07 L  264/10
        RDWC         5166   PROGRAM*      264/17    264/23 L
        RDW1         5072   PROGRAM*      260/31    260/35 L  262/52    263/06    263/27    264/21
        RDW10        5126   PROGRAM*      262/39 L  263/07
        RDW11        5134   PROGRAM*      260/18    262/57 L
        RDW12        5143   PROGRAM*      263/14    263/17    263/19 L
        RDW13        5145   PROGRAM*      263/03    263/26 L
        RDW14        5147   PROGRAM*      263/31 L  264/08
        RDW15        5160   PROGRAM*      263/32    263/56 L
        RDW16        5161   PROGRAM*      260/51    264/10 D
        RDW17        5164   PROGRAM*      264/16    264/18 L
        RDW18        5063   PROGRAM*      260/18 L  264/07    264/23
        RDW19        5064   PROGRAM*      260/21 L  261/22    263/52
        RDW2         5075   PROGRAM*      260/44    260/46 L
        RDW20        5066   PROGRAM*      260/25    260/28 L  262/23    262/25    262/35    262/36    262/45
        RDW21        5067   PROGRAM*      260/29 L  260/34
        RDW3         5076   PROGRAM*      260/47    260/50 L
        RDW4         5077   PROGRAM*      261/04 L  264/01
        RDW5         5101   PROGRAM*      261/14 L  261/18
        RDW6         5103   PROGRAM*      261/12    261/22 L
        RDW7         5105   PROGRAM*      261/32 L  261/57
        RDW8         5115   PROGRAM*      262/08 L  263/54
        RDW9         5120   PROGRAM*      262/15    262/23 L
        RDW=         5070   PROGRAM*      260/33 L  262/50    262/53    263/22
        RDX1         5201   PROGRAM*      265/07    265/09    265/21    265/27    265/28    265/34 L
  U     RDX$                              262/17 F  265/06 F
        RDX=         5167   PROGRAM*      257/56    258/09    265/01 L
        REG2         1675   PROGRAM*      114/08    114/12 L
        REG3         1676   PROGRAM*      114/01    114/03    114/10    114/14 L
        REG=         1663   PROGRAM*      113/50 L  113/55    214/02    326/01
        RER          5625   PROGRAM*      296/12    307/49 L
        RIL          4063   PROGRAM*      108/56    202/09 L
        RIL2         4067   PROGRAM*      202/15    202/18 L
        RIL3         4072   PROGRAM*      202/19    202/29 L
        RIL4         4074   PROGRAM*      202/34 L
        RIL5         4100   PROGRAM*      202/37    202/41    202/44 L
        RIL6         4105   PROGRAM*      202/48    203/01 L
        RIR          4107   PROGRAM*      111/42    114/15    115/26    203/34 L  213/34    214/27    215/33    216/22
        RIR2         4113   PROGRAM*      203/37    203/42 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   360
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        ROLA         4147   PROGRAM*      204/30 S  205/18    205/28    205/51 L  205/53
        ROL2         4122   PROGRAM*      204/47 L  205/07    205/09
        ROL3         4127   PROGRAM*      204/53    205/05 L
        ROL4         4133   PROGRAM*      204/50    205/13 L
        ROL5         4137   PROGRAM*      205/15    205/27 L
        ROL6         4143   PROGRAM*      205/20    205/31    205/32    205/37 L
        ROL=         4115   PROGRAM*      108/11    128/37    149/29    150/17    159/51    179/26    216/43
                                          122/18    131/18    149/43    154/44    161/04    180/38    220/19
                                          127/35    132/22    149/52    155/07    162/47    181/18    326/02
                                          128/36    149/09    150/12    159/13    174/47    204/25 L
        ROL=A0       4153   PROGRAM*      206/01 D
        ROL=A5       4154   PROGRAM*      206/02 D
        ROL=B4       4152   PROGRAM*      205/37    205/57 D
        ROL=FWA      4147   PROGRAM*      205/54 D
        ROL=LEN      4150   PROGRAM*      205/55 D
        ROL=PRB      4151   PROGRAM*      204/47    205/56 D
        ROL=X0       4155   PROGRAM*      206/03 D
        ROL=X5       4156   PROGRAM*      206/04 D
        RSR          5226   PROGRAM*      203/39    214/32    269/01 L
        RSR2         5232   PROGRAM*      269/17 L  269/28
        RSR3         5236   PROGRAM*      269/35 L  269/36
        RSR4         5260   PROGRAM*      269/18    271/06 L
        SAVEA          10                 268/52 D  270/13    276/55 D  278/17 S  323/15
                                          269/34    270/49    277/47 S  323/02 D
        SAVEB           0                 268/51 D  269/09    276/54 D  278/24 S  323/01 D
        SAVEX          20                 268/53 D  270/14    277/49 S  278/19 S  323/18
                                          270/04    276/56 D  278/16 S  323/03 D
        SBM2         5265   PROGRAM*      272/32 L  272/35    272/47
        SBM=         5267   PROGRAM*      175/41    272/37 L
        SC=BRF       1717   PROGRAM*       94/57    116/23 L
        SC=QQQ       1721   PROGRAM*       95/01    116/37 L
        SC.PADL        22                  51/47 D   94/57     95/01
        SC.PADP         0                  51/47 D   94/57     95/01
        SC.TOTL        22                  51/45 D   94/57     95/01    110/42
        SC.TOTP        52                  51/45 D   94/57     95/01    110/41
        SER          5634   PROGRAM*      303/25    308/30 L
        SE.BPTR      1317   PROGRAM*       98/49 L  201/15    201/16    201/20
        SE.BRK       1323   PROGRAM*       98/53 L  136/09
        SE.CON       1312   PROGRAM*       98/44 L
        SE.CONS      1326   PROGRAM*       98/56 L  141/44
        SE.FLL       1313   PROGRAM*       98/45 L  121/08    127/15
        SE.KEY       1311   PROGRAM*       98/43 L  146/33    146/41
        SE.NPP       1324   PROGRAM*       87/45     87/46     87/51     98/54 L
        SE.PAD       1315   PROGRAM*       98/47 L  111/23
        SE.PTR       1316   PROGRAM*       98/48 L
        SE.RPN       1325   PROGRAM*       98/55 L  190/07
        SE.TOK       1320   PROGRAM*       98/50 L  222/55
        SE.TOV       1314   PROGRAM*       98/46 L  134/32
        SE.UFT       1321   PROGRAM*       98/51 L  207/35
        SE.UNPL      1322   PROGRAM*       98/52 L  192/15
        SFN          5274   PROGRAM*      146/55    154/06    178/48    202/45    325/48
                                          147/25    178/26    181/07    274/48 L
        SFNA         5301   PROGRAM*      274/50    275/06 L
        SKT          4157   PROGRAM*      110/43    126/47    134/28    136/08    206/33 L  326/13
                                          119/13    131/50    134/31    200/10    210/23
        SKT2         4161   PROGRAM*      206/38 L  206/44
        SLF          4164   PROGRAM*      207/23 L  210/39
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   361
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        SLFA         4212   PROGRAM*      207/30 S  207/42    207/51    208/11    208/21    208/29 L
        SLF2         4167   PROGRAM*      207/33 L  207/49    207/56
        SLF3         4201   PROGRAM*      207/31    207/41    208/03 L
        SLF4         4202   PROGRAM*      208/06 L  208/19    208/26
        SNAPLNE       607   PROGRAM*       89/21 L  131/15    132/22    150/12    155/07    160/46 S  174/47    181/09 S
                                          107/49 S  131/17 S  149/07    151/26 S  158/51 S  161/04    178/31 S  181/18
                                          108/11    131/18    149/09    154/13    159/13    162/33 S  179/26    220/11 S
                                          127/27    131/18    150/07    154/44    159/19 S  162/47    179/39 S  220/19
                                          127/35    132/17 S  150/12    155/07    159/51    174/26 S  180/38    326/04
        SNP2         1712   PROGRAM*      115/13    115/17 L
        SNP3         1713   PROGRAM*      115/15    115/19 L
        SNP4         1715   PROGRAM*      115/07    115/09    115/25 L
        SNP=         1700   PROGRAM*      114/56 L  115/04    214/03    326/03
        SN=BRAD         6                  48/01 D  137/02
        SN=BRF          5                  47/57 D
        SN=CNT          4                  47/47 D   81/43    170/40    174/19
        SN=FRK          0                  47/42 D
        SN=FWA          5                  47/48 D   81/44    115/20
        SN=HDR          3                  47/46 D   81/42    107/46    174/18
        SN=INC          2                  47/45 D   81/41    175/49 S
        SN=LEN          7                  47/50 D   81/34     81/46
        SN=LL           0                  47/43 D   81/39    170/37    175/47 S
        SN=LWA          6                  47/49 D   81/45
        SN=RRL          6                  47/55 D  114/06
        SN=SRL         11                  47/52 D  115/11
        SN=UL           1                  47/44 D   81/40    175/48 S
        SN=URF          5                  47/54 D   65/04
        SN=USF         10                  47/51 D   65/31
        SOB          4213   PROGRAM*      113/54    115/03    209/06 L  326/14
        SSY          4222   PROGRAM*      120/33    121/19    188/45    210/15 L
        SSYA         4240   PROGRAM*      210/22 S  210/30    210/38    210/46    211/01 L
        STP          4241   PROGRAM*      122/39    130/19    211/47 L
        STP10        4354   PROGRAM*      216/02    216/48 L
        STP11        4361   PROGRAM*      216/03    217/05 L
        STP12        4365   PROGRAM*      213/29    217/17 L
        STP13        4372   PROGRAM*      217/30    217/34 L
        STP2         4246   PROGRAM*      212/04    212/13 L
        STP3         4250   PROGRAM*      212/15    212/20 L
        STP4         4261   PROGRAM*      213/03    213/07 L
        STP5         4267   PROGRAM*      213/27    213/33 L  213/51    217/29    217/39
        STP6         4273   PROGRAM*      213/26    213/47 L
        STP6A        4301   PROGRAM*      214/04    214/12 L
        STP6B        4312   PROGRAM*      215/04 L  215/43
        STP7         4321   PROGRAM*      214/12    214/13    215/28 L
        STP7A        4327   PROGRAM*      215/17    215/47 L
        STP8         4333   PROGRAM*      213/50    215/57 L
        STP9         4335   PROGRAM*      216/07 L  216/51
        STP=ADR      3000   PROGRAM*      212/51 S  213/49    215/40    216/30    217/06    217/21    220/23 D
        STP=BF       4342   PROGRAM*      216/27 L
        STP=BP       4343   PROGRAM*      216/10    216/30 L  216/56    217/01
        STP=BR       4341   PROGRAM*      216/15 S  216/24 L
        STP=ER       4442   PROGRAM*      212/28    214/30    214/36    214/40    216/37    217/40    219/51 L
                                          213/07    214/31    214/37    215/06    217/13    218/15
        STP=E2       4446   PROGRAM*      219/57    220/03 L
        STP=E3       4447   PROGRAM*      219/55    220/06 L
        STP=I        3004   PROGRAM*      213/47    216/39    216/48    217/05    217/18    219/25    220/24 D
        STP=IN       4270   PROGRAM*      213/16 S  213/38 L  216/07
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   362
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        STP=J        3005   PROGRAM*      216/49    220/25 D
        STP=K        3006   PROGRAM*      220/26 D
        STP=LS       4375   PROGRAM*      217/17    217/44 L
        STP=OP       3003   PROGRAM*      212/27 S  212/55    218/10    219/21    220/27 D
        STP=SNP      4324   PROGRAM*      215/31 S  215/35 L
        STP=X        4405   PROGRAM*      213/43    215/24    215/52    216/38    216/44    218/10 L
                                          215/21    215/50    216/28    216/42    217/12
        STP=X2       4413   PROGRAM*      218/21    218/24 L
        STP=X3       4415   PROGRAM*      218/27    218/30 L
        STP=X4       4416   PROGRAM*      218/30    218/35 L  219/10
        STP=X4A      4420   PROGRAM*      218/25    218/54 L
        STP=X4B      4421   PROGRAM*      218/57 L  219/04
        STP=X5       4424   PROGRAM*      218/28    219/14 L
        STP=X6       4425   PROGRAM*      218/39    219/20 L
        STP=X8       4436   PROGRAM*      219/32    219/35    219/41 L
        STP=X9       4440   PROGRAM*      219/38    219/45 L
        ST=ABS       1723   PROGRAM*       95/18    117/04 L
        ST=BRK       1725   PROGRAM*       96/02     96/04     96/06     96/08     96/10     96/12
                                           96/03     96/05     96/07     96/09     96/11    117/19 L
        ST=BRKA      2003   PROGRAM*      119/22    119/51 L  224/44
        ST=BRKB      2004   PROGRAM*      118/54 S  119/14    119/28    119/54 L
        ST=BRK10     1756   PROGRAM*      118/33    118/36 L
        ST=BRK11     1757   PROGRAM*      118/36    118/39 L
        ST=BRK12     1776   PROGRAM*      119/15    119/35 L
        ST=BRK13     2001   PROGRAM*      117/24    117/26    119/47 L
        ST=BRK2      1735   PROGRAM*      117/34    117/38    117/41 L
        ST=BRK3      1736   PROGRAM*      117/41    117/44 L
        ST=BRK4      1743   PROGRAM*      117/52    117/57    118/03 L
        ST=BRK5      1744   PROGRAM*      118/03    118/06 L
        ST=BRK6      1750   PROGRAM*      118/15    118/18 L
        ST=BRK7      1751   PROGRAM*      118/18    118/21 L
        ST=BRK8      1753   PROGRAM*      118/24    118/27 L
        ST=BRK9      1754   PROGRAM*      118/27    118/30 L
        ST=COD       2006   PROGRAM*       95/19    120/03 L
        ST=COD5      2010   PROGRAM*      120/09 L  120/19    120/22
        ST=COD6      2013   PROGRAM*      120/18 L  120/21
        ST=CON       2016   PROGRAM*       95/20    120/29 L
        ST=DPC       2025   PROGRAM*       95/21    121/03 L
        ST=DSC       2030   PROGRAM*       95/22    121/15 L
        ST=END       2037   PROGRAM*       95/23    122/13 L  123/33
        ST=ENDA      2055   PROGRAM*      122/31 S  122/42    122/48 L
        ST=END2      2042   PROGRAM*      122/16    122/20 L
        ST=END3      2044   PROGRAM*      107/30    107/32    107/34    122/25 L
        ST=END4      2047   PROGRAM*      122/34 L  122/40
        ST=END5      2051   PROGRAM*      122/32    122/39 L
        ST=END6      2053   PROGRAM*      122/36    122/42 L
        ST=FRZ       2056   PROGRAM*       95/24    123/03 L
        ST=JP        2063   PROGRAM*       95/25    123/19 L
        ST=OPT       2072   PROGRAM*       95/26    123/41 L  123/46    124/04    124/14
        ST=OPT2      2077   PROGRAM*       97/32    123/56 L
        ST=OPT3      2101   PROGRAM*       97/33    124/09 L
        ST=OUT       2103   PROGRAM*       95/27    124/21 L  124/25    124/39    124/48    124/57    125/09
        ST=OUT2      2110   PROGRAM*       97/19    124/34 L
        ST=OUT3      2112   PROGRAM*       97/17    124/43 L
        ST=OUT4      2114   PROGRAM*       97/18    124/52 L
        ST=OUT5      2116   PROGRAM*       97/20    125/04 L
        ST=REG       2120   PROGRAM*       95/28    125/16 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   363
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        ST=REG2      2123   PROGRAM*      125/18    125/24 L  125/31    126/10    126/13
        ST=REG3      2131   PROGRAM*      125/32    125/45 L
        ST=REG4      2136   PROGRAM*      125/40    126/05 L
        ST=REG5      2142   PROGRAM*      126/08    126/12 L
        ST=REL       2144   PROGRAM*       95/29    126/21 L
        ST=SET       2146   PROGRAM*       95/30    126/34 L
        ST=SET2      2156   PROGRAM*      126/49    126/53 L
        ST=SET3      2160   PROGRAM*      126/34    127/01 L
        ST=SNP       2162   PROGRAM*       95/31    127/10 L
        ST=STA       2165   PROGRAM*       95/33    109/10    127/22 L
        ST=STAA      2174   PROGRAM*      127/24    127/39 L
        ST=STA2      2171   PROGRAM*      127/30    127/33 L
        ST=STO       2176   PROGRAM*       95/32    127/47 L
        ST=STO2      2203   PROGRAM*      128/04 L  128/17
        ST=STO3      2207   PROGRAM*      128/13    128/16 L
        ST=STO4      2210   PROGRAM*      128/02    128/21 L
        ST=STP       2223   PROGRAM*       96/33     96/35     96/37     96/39     96/41     96/43     96/46
                                           96/34     96/36     96/38     96/40     96/42     96/44    128/47 L
        ST=STP1      2227   PROGRAM*      128/53    128/57 L
        ST=STP10     2275   PROGRAM*      130/10    130/47 L
        ST=STP11     2300   PROGRAM*      130/50    130/53 L
        ST=STP12     2302   PROGRAM*      130/12    131/02 L
        ST=STP2      2230   PROGRAM*      128/55    129/02 L
        ST=STP3      2235   PROGRAM*      129/10    129/14    129/17 L
        ST=STP4      2236   PROGRAM*      129/17    129/20 L
        ST=STP5      2240   PROGRAM*      128/52    129/28 L  129/31    129/33    133/05    133/07    133/10
        ST=STP6      2244   PROGRAM*      129/28    129/37 L  132/31
        ST=STP7      2250   PROGRAM*      129/43    129/46 L  130/25    130/31    130/38    130/41    130/42
        ST=STP7A     2253   PROGRAM*      129/50    129/51    129/54 L
        ST=STP8      2254   PROGRAM*      130/02 L
        ST=STP9      2263   PROGRAM*      130/09    130/11    130/19 L  130/51    130/55    131/07
        ST=STP9A     2271   PROGRAM*      130/24    130/35 L
        ST=TIM       2305   PROGRAM*       95/34    131/14 L
        ST=UBK       2314   PROGRAM*       95/35     95/37    131/26 L  131/29    131/33
        ST=UST       2320   PROGRAM*       95/36     95/38    131/40 L
        ST=UST2      2320   PROGRAM*      131/42 L  131/46    131/51    131/54
        ST=WHR       2326   PROGRAM*       95/39    132/03 L
        ST=WHR2      2327   PROGRAM*      132/06 L  132/23
        ST=WHR2A     2331   PROGRAM*      132/04    132/09 L
        ST=WHR3      2332   PROGRAM*      132/07    132/11 L
        ST=XEQ       2244   PROGRAM*       95/40    132/31 D
        ST=XFR       2341   PROGRAM*       95/41    132/38 L
        ST=XFR1      2343   PROGRAM*      132/38    132/42 L
        ST=XFR2      2344   PROGRAM*      132/40    132/44 L
        ST=XNR       2346   PROGRAM*       96/45    133/03 L
        ST.ABS       1105   PROGRAM*       95/18 L
        ST.ABT          0   PROGRAM*       58/27 L
        ST.BRK       1165   PROGRAM*       96/02 L  178/22
        ST.COD       1107   PROGRAM*       95/19 L  192/07
        ST.CON       1111   PROGRAM*       95/20 L
        ST.DPC       1113   PROGRAM*       95/21 L
        ST.DSC       1115   PROGRAM*       95/22 L
        ST.END       1117   PROGRAM*       95/23 L
        ST.FRZ       1121   PROGRAM*       95/24 L
        ST.JP        1123   PROGRAM*       95/25 L
        ST.OPT       1125   PROGRAM*       95/26 L
        ST.OUT       1127   PROGRAM*       95/27 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   364
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        ST.REG       1131   PROGRAM*       95/28 L
        ST.REL       1133   PROGRAM*       95/29 L
        ST.SET       1135   PROGRAM*       95/30 L
        ST.SNP       1137   PROGRAM*       95/31 L
        ST.STA       1143   PROGRAM*       95/33 L
        ST.STO       1141   PROGRAM*       95/32 L
        ST.STP       1213   PROGRAM*       96/33 L
        ST.TIM       1145   PROGRAM*       95/34 L
        ST.UBK       1147   PROGRAM*       95/35 L
        ST.UST       1151   PROGRAM*       95/36 L
        ST.WHR       1157   PROGRAM*       95/39 L
        ST.XEQ       1161   PROGRAM*       95/40 L
        ST.XFR       1163   PROGRAM*       95/41 L
        ST.XNR       1243   PROGRAM*       96/45 L
        SVR          5303   PROGRAM*      106/30    113/51    114/57    213/41    214/26    277/01 L
        SVRA         5411   PROGRAM*      277/37 S  278/11    279/14 L
        SVRB         5412   PROGRAM*      277/39 S  278/12    279/15 L
        SVRC         5413   PROGRAM*      277/41 S  278/13    279/16 L
        SVR2         5306   PROGRAM*      277/12    277/19 L
        SVR3         5353   PROGRAM*      277/31 L  278/36
        SVR4         5354   PROGRAM*      277/14    277/36 L
        SVR5         5404   PROGRAM*      278/52 L  279/04
        SVR6         5406   PROGRAM*      278/57    279/02 L
        SYSA         5414   PROGRAM*      280/48 L  281/07    281/18
        SYS1         5415   PROGRAM*      280/50    280/52 L  281/01    281/15 S
        SYS2         5421   PROGRAM*      280/52    281/05 L
        SYS3         5423   PROGRAM*      281/06    281/10 L
        SYS4         5424   PROGRAM*      281/08    281/12 L
        SYS=         5416   PROGRAM*      112/53    140/50    214/38    280/54 L  282/23    323/34
                                          131/15    171/52    248/06    281/44    283/17    325/49
        SY.DECK         1                  52/05 D  210/33
        SY.LFN          3                  52/07 D  210/40
        SY.NONE         0                  52/04 D  210/47    210/53
        SY.SET          2                  52/06 D  210/24
        SY.USY          4                  52/08 D  210/51
        TB=FLL        626   PROGRAM*       89/40 L
        TB=KEY        627   PROGRAM*       90/02 L  110/55 S  111/17    111/22    201/08
        TB=STMT       630   PROGRAM*       90/31 L  108/19    108/33 S  110/04 S  110/10 S  185/19    222/24
        TB.LASP        73                  52/17 D
        TB.LENL        22                  52/20 D  185/21
        TB.LENP         0                  52/20 D
        TB.PRSL        22                  52/19 D
        TB.PRSP        22                  52/19 D
        TB.TOCL        52                  52/26 D  120/31    141/57    146/53    147/28
                                          110/30    121/17    142/49    147/21    188/43
        TB.TOCP        22                  52/26 D
        TB.TOTL        22                  52/27 D   52/35 D  186/28    186/30
        TB.TOTP         0                  52/27 D   52/35 D
        TB.0TRL        22                  52/34 D  189/28
        TB.0TRP        22                  52/34 D  125/38    189/27    228/40
        TC=BOL        732   PROGRAM*       94/02 D
        TC=EOL        733   PROGRAM*       94/03 D
        TC=P          721   PROGRAM*       93/50 D  109/51 S
        TC=REST       734   PROGRAM*       94/04 D
        TC=RSF        731   PROGRAM*       94/01 D
        TC=SOA        722   PROGRAM*       93/51 D  109/52 S
        TC=SOB        725   PROGRAM*       93/54 D  203/03 S
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   365
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        TC=SOC        726   PROGRAM*       93/55 D  110/02 S
        TC=SOL        724   PROGRAM*       93/53 D  203/02 S
        TC=SOX        723   PROGRAM*       93/52 D  109/56 S
        TC=TBA        727   PROGRAM*       93/56 D  110/03 S
        TC=TBB        730   PROGRAM*       93/57 D
        TC.BOL         15                  54/29 D   94/02
        TC.EOL         16                  54/30 D   94/03    220/49    221/03    221/06    303/26
        TC.FCP          1                  54/17 D  295/25
        TC.FWA          0                  54/16 D  295/02    295/25
        TC.LCP          3                  54/19 D  295/52
        TC.LWA          2                  54/18 D  295/51    295/52
        TC.P            4                  54/20 D   93/50    307/52    307/52    307/53    308/34    308/34 S  308/36
        TC.REST        17                  54/31 D   94/04    297/54
        TC.RSF         14                  54/28 D   94/01    296/14
        TC.SOA          5                  54/21 D   93/51    295/38 S  307/53    307/54    308/36    308/38
        TC.SOB         10                  54/24 D   93/54    295/39 S  308/04    308/05    308/42    308/44
        TC.SOC         11                  54/25 D   93/55    296/06 S  308/06    308/44    308/46
        TC.SOL          7                  54/23 D   93/53    296/07 S  307/55    308/04    308/40    308/42
        TC.SOX          6                  54/22 D   93/52    295/47 S  307/54    307/55    308/38    308/40
        TC.TBA         12                  54/26 D   93/56    296/13    308/46    308/48
        TC.TBB         13                  54/27 D   93/57    308/05    308/06    308/48
        TEST            0                  33/14 D   53/55 F  293/45 F  297/02 F  302/46 F  303/05 F
        TF=SQZ       5455   PROGRAM*      293/43 L  296/43    304/02 S  304/46 S
        TG.CADL        22                  55/06 D  220/46    221/05    222/06    298/16
        TG.CADP        22                  55/06 D  220/46    221/05    222/06    298/15
        TG.COAL        14                  55/16 D  220/52    221/11
        TG.COAP        60                  55/16 D  300/27    300/29
        TG.COZL        14                  55/17 D  220/52    221/11
        TG.COZP        44                  55/17 D  300/29    300/32
        TG.FALL        22                  55/39 D  220/45    220/51    221/02    221/08    305/20
        TG.FALP        44                  55/39 D  220/45    220/51    221/02    221/08    305/17
        TG.GOTL        22                  56/06 D  220/56    221/10    222/07    306/01
                                          220/53    221/07    221/51    304/27
        TG.GOTP        22                  56/06 D  220/56    221/10    222/07    305/52
                                          220/53    221/07    221/51    304/26    306/01
        TG.GTTL        22                  55/51 D  303/39
        TG.GTTP        22                  55/51 D  303/38
        TG.IFLL        52                  55/28 D
        TG.IFLP        22                  55/28 D
        TG.INCL        22                  56/30 D  220/49    221/03    221/06    305/37
        TG.INCP        22                  56/30 D  305/36
        TG.INVL        22                  56/29 D  220/49    221/03    221/06    305/33
        TG.INVP        44                  56/29 D  220/49    221/03    221/06    305/32    305/36
        TG.MXAL        22                  55/40 D  220/44    220/50    220/55    221/04    221/09    304/43
                                           56/18 D  220/45    220/51    221/02    221/08    222/05    305/14
        TG.MXAP        22                  55/40 D   56/18 D  303/56    304/42    305/13    305/17
        TG.TADL        22                  55/18 D  220/52    221/11    300/34
        TG.TADP        22                  55/18 D  300/32
        TG.TOFUL       22                  54/44 D   55/52 D  220/44    220/51    221/02    221/07    221/51    306/01
                                           55/07 D   56/07 D  220/45    220/52    221/03    221/08    222/05
                                           55/19 D   56/19 D  220/46    220/53    221/04    221/09    222/06
                                           55/29 D   56/31 D  220/49    220/55    221/05    221/10    222/07
                                           55/41 D   56/42 D  220/50    220/56    221/06    221/11    297/15
        TG.TOFUP        0                  54/44 D   55/29 D   56/07 D   56/42 D  303/38    304/26    305/13
                                           55/07 D   55/41 D   56/19 D  298/15    303/51    304/37    305/32
                                           55/19 D   55/52 D   56/31 D  300/27    304/16    305/03    305/47
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   366
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        TG.TOTL        22                  56/17 D  220/50    221/04    222/05    304/38
                                          220/44    220/55    221/09    303/52
        TG.TOTP        44                  56/17 D  220/50    221/04    222/05    303/56    304/37    305/03
                                          220/44    220/55    221/09    303/51    304/16    304/42
        TG.XADL        22                  56/41 D  305/48
        TG.XADP        22                  56/41 D  305/47
        TK.LNKL        22                  57/07 D  222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                           57/36    222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08    300/52
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08
        TK.LNKP        22                  57/07 D  301/01    302/10
        TK.PADL        22                  57/06 D  222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                           57/35    222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08    300/51
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08
        TK.PADP        44                  57/06 D  222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    300/55
                                          222/08    222/08    222/08    222/08    222/08    222/08    301/01
                                          222/08    222/08    222/08    222/08    222/08    222/08    302/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    302/10
                                          222/08    222/08    222/08    222/08    222/08    222/08
        TK.TOTL        22                  57/08 D  222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                           57/37    222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08    300/50
                                          222/08    222/08    222/08    222/08    222/08    222/08    222/08
        TK.TOTP         0                  57/08 D  300/49
        TL.FALL        22                  57/20 D  222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    301/28
        TL.FALP        22                  57/20 D  301/37    301/41
        TL.LNKL        22                  57/36 D
        TL.LNKP        22                  57/36 D
        TL.MACL        52                  57/27 D  301/53    301/54
        TL.MACP        22                  57/27 D  301/54
        TL.MAFP        73                  57/17 D  301/47
        TL.PADL        22                  57/35 D
        TL.PADP        44                  57/35 D
        TL.PREL        22                  57/21 D  301/29
        TL.PREP         0                  57/21 D
        TL.TOTL        22                  57/37 D  222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08
        TL.TOTP         0                  57/37 D
        TL.TRUL        22                  57/19 D  222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    301/27
        TL.TRUP        44                  57/19 D  301/41    301/47
        TOK          5456   PROGRAM*      110/07    222/36    294/49 L
        TOK10        5544   PROGRAM*      302/22    302/32 L
        TOK11        5545   PROGRAM*      302/35 L
        TOK12        5560   PROGRAM*      303/56 L  304/18
        TOK13        5563   PROGRAM*      303/50    304/09 L
        TOK14        5573   PROGRAM*      304/42 L  305/05
        TOK15        5576   PROGRAM*      304/36    304/53 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   367
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        TOK2         5475   PROGRAM*      295/03    296/11 L
        TOK3         5505   PROGRAM*      296/45    296/51 L
        TOK4         5507   PROGRAM*      296/41    296/48    296/53    296/56 L
        TOK5A        5515   PROGRAM*      298/02    298/06 L
        TOK6         5525   PROGRAM*      300/42    300/45 L
        TOK7         5527   PROGRAM*      301/31 L  301/40    302/01    302/05    302/35
        TOK8         5535   PROGRAM*      301/48    302/03 L
        TOK8A        5540   PROGRAM*      301/31    302/18 L
        TOK9         5541   PROGRAM*      302/12    302/20 L
        TOK9A        5543   PROGRAM*      302/23    302/26 L
        TOK=CAL      5517   PROGRAM*      220/46    221/05    222/06    298/14 L
        TOK=COF      5521   PROGRAM*      220/52    221/11    299/31 L
        TOK=CON      5545   PROGRAM*      223/08    302/34 L
        TOK=COS      5544   PROGRAM*      302/31 L
        TOK=EOL      5547   PROGRAM*      296/49    296/54    303/21 L  304/05    304/49
        TOK=EOS      4603   PROGRAM*      220/46    220/49    221/06    222/23 L  224/02
        TOK=ER       4607   PROGRAM*      222/48 L  223/22    228/13
        TOK=GEN      5554   PROGRAM*      303/37 L
        TOK=GN       5557   PROGRAM*      220/55    303/50 L  304/10
        TOK=GO       5567   PROGRAM*      220/53    220/56    221/07    221/10    221/51    222/07    304/25 L  306/01
        TOK=GS       5572   PROGRAM*      220/44    220/50    221/04    221/09    222/05    304/36 L  304/54
        TOK=IFT      5602   PROGRAM*      220/45    220/51    221/02    221/08    305/12 L
        TOK=MN       5500   PROGRAM*      222/37    296/39 L  302/37    304/04    304/48    305/22    305/46
                                          223/23    298/14    303/37    304/25    305/12    305/30    305/55
                                          223/43    299/31    303/43    304/29    305/19    305/39
        TOK=ON       5606   PROGRAM*      220/49    221/03    221/06    305/30 L
        TOK=RS       5511   PROGRAM*      296/16    297/43 L
        TOK=SQT      4611   PROGRAM*      222/08    223/06 L
        TOK=SQV      4612   PROGRAM*      222/06    223/18 L
        TOK=VAR      4614   PROGRAM*      221/05    223/40 L
        TOK=VOL      4616   PROGRAM*      221/03    223/56 L
        TOK=XEQ      5612   PROGRAM*      305/46 L
        TOM=BOL      4462   PROGRAM*      109/49    220/48 L  220/53
        TOM=COF      4547   PROGRAM*      220/52    222/08 L
        TOM=NXT      4457   PROGRAM*      220/43 L  220/56    221/51    222/07
        TOM=SQT      4504   PROGRAM*      222/04 L  223/07
        UBK          4620   PROGRAM*      131/32    224/27 L
        UBK2         4622   PROGRAM*      224/30 L  224/35    224/38    224/39    224/49    224/51
        UDO.ABS         0                  95/18 D   95/18
        UDO.ABT         0                  58/27 D   58/27     58/28
        UDO.BRK         0                  96/02 D   96/03     96/05     96/07     96/09     96/11
                                           96/02     96/04     96/06     96/08     96/10     96/12
        UDO.COD         0                  95/19 D   95/19
        UDO.CON         0                  95/20 D   95/20
        UDO.DPC         0                  95/21 D   95/21
        UDO.DSC         0                  95/22 D   95/22
        UDO.END         0                  95/23 D   95/23
        UDO.FRZ         0                  95/24 D   95/24
        UDO.JP          0                  95/25 D   95/25
        UDO.OPT         0                  95/26 D   95/26
        UDO.OUT         0                  95/27 D   95/27
        UDO.REG         0                  95/28 D   95/28
        UDO.REL         0                  95/29 D   95/29
        UDO.SET         0                  95/30 D   95/30
        UDO.SNP         0                  95/31 D   95/31
        UDO.STA         0                  95/33 D   95/33
        UDO.STO         0                  95/32 D   95/32
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   368
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        UDO.STP         0                  96/33 D   96/34     96/36     96/38     96/40     96/42     96/44
                                           96/33     96/35     96/37     96/39     96/41     96/43     96/46
        UDO.TIM         0                  95/34 D   95/34
        UDO.UBK         0                  95/35 D   95/35     95/37
        UDO.UST         0                  95/36 D   95/36     95/38
        UDO.WHR         0                  95/39 D   95/39
        UDO.XEQ         0                  95/40 D   95/40
        UDO.XFR         0                  95/41 D   95/41
        UDO.XNR         0                  96/45 D   96/45
        UFO          4632   PROGRAM*      123/11    225/18 L
        UFR          4636   PROGRAM*      113/09    225/44 L
        UIO          4642   PROGRAM*      107/33    226/17 L
        URO          4646   PROGRAM*      113/57    226/45 L
        USO          4652   PROGRAM*      115/06    227/17 L
        VAR          4656   PROGRAM*      223/42    224/01    228/08 L
        VAR2         4666   PROGRAM*      228/24    228/27    228/30 L
        VFD          4674   PROGRAM*      152/32    154/57    229/33 L
        VFD2         4701   PROGRAM*      229/40    229/47 L
        VFD3         4702   PROGRAM*      229/53 L  230/07    230/15
        VFD4         4705   PROGRAM*      230/02    230/05 L
        WNB1         5437   PROGRAM*      282/29 L  282/34
        WNB2         5434   PROGRAM*      282/21 L  282/36
        WNB=         5435   PROGRAM*      247/26    282/25 L  282/31    282/32
        WOD          5643   PROGRAM*      128/29    128/33    159/37    160/48    162/34    165/13    310/43 L  326/18
        WODA         5655   PROGRAM*      310/49    311/27 L
  U     WRIF$                             317/53 F  320/12 F  321/01 F
        WTC1         5665   PROGRAM*      312/54    313/10 L
        WTC2         5667   PROGRAM*      313/18 L  313/27
        WTC3         5670   PROGRAM*      313/21 L  313/31
        WTC4         5673   PROGRAM*      313/20    313/30 L
        WTC=         5662   PROGRAM*      108/51    109/24    112/09    198/24    204/56    205/21    312/56 L
                                          109/22    109/40    198/20    198/43    205/08    205/33
        WTWA         5711   PROGRAM*      316/09 L  319/08
        WTWB         5757   PROGRAM*      318/45 L  319/10
        WTWC         5761   PROGRAM*      316/10    318/37 S  318/38    318/57 L  319/03
        WTW1         5702   PROGRAM*      315/32    315/41 L  318/04    318/14    319/14
        WTW10        5732   PROGRAM*      317/29    317/37 L
        WTW11        5740   PROGRAM*      315/38    317/41    318/02 L  318/11    318/12
        WTW12        5742   PROGRAM*      317/38    317/49    317/51    318/04 L
        WTW13        5743   PROGRAM*      316/02    318/09 L
        WTW14        5746   PROGRAM*      318/18 L  318/57
        WTW15        5757   PROGRAM*      318/19    318/46 L
        WTW16        5761   PROGRAM*      316/11    319/03 D
        WTW17        5764   PROGRAM*      319/09    319/11 L
        WTW18        5674   PROGRAM*      315/24 L  316/35    318/40
        WTW19        5676   PROGRAM*      315/29    315/31 L
        WTW2         5706   PROGRAM*      315/53    315/55 L
        WTW3         5707   PROGRAM*      315/55    315/57 L
        WTW4         5711   PROGRAM*      316/04    316/10 L
        WTW5         5712   PROGRAM*      316/21 L  318/50
        WTW6         5713   PROGRAM*      316/27 L  316/31
        WTW7         5715   PROGRAM*      316/23    316/35 L
        WTW8         5717   PROGRAM*      316/45 L  317/13
        WTW9         5727   PROGRAM*      317/22 L  318/43
        WTW=         5701   PROGRAM*      315/35    315/40 L  315/46    318/03    318/05
        WTX0         5776   PROGRAM*      319/52    320/19 L
        WTX1         6000   PROGRAM*      319/47    320/09    320/11    320/22 L
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   369
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
  U     WTX$                              317/31 F  319/46 F
        WTX=         5766   PROGRAM*      313/28    319/42 L
        XEQA         5615   PROGRAM*      305/49    306/01 L
        XJR          6010   PROGRAM*      203/44    214/33    323/05 L
        XJRA         6023   PROGRAM*      323/23 S  323/24 S  323/34    323/39 L
        XJR1         6012   PROGRAM*      323/14 L  323/26
        XTC.AR         15                  49/50 D   96/46    130/07    130/23
        XTC.EQ          5                  49/31 D   96/38    129/09
        XTC.GE         10                  49/40 D   96/41
        XTC.GT         12                  49/46 D   96/43
        XTC.LE         11                  49/43 D   96/42
        XTC.LT          7                  49/37 D   96/40
        XTC.MI          2                  49/22 D   96/35
        XTC.NE          6                  49/34 D   96/39
        XTC.NR         14                  49/49 D   96/45    129/40    130/06    133/03
        XTC.NZ          4                  49/28 D   96/37
        XTC.PL          1                  49/19 D   96/34
        XTC.RNG        13                  49/48 D   96/44    130/08
        XTC.ZR          3                  49/25 D   96/36
        ZTB          6043   PROGRAM*      160/56    162/42    324/48 L  325/05    326/19
        ZTBA         6050   PROGRAM*      324/49    325/07 L
        ZZZZZDI       170   PROGRAM*       82/48 L
        ZZZZZDO       312   PROGRAM*       83/12 L
        #SVR            1                  47/31 D
        '?AND           0                 222/08 D  222/08    222/08
        '?COM           0                 222/08 D  222/08
        '?ILL           0                 222/08 D  222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
                                          222/08    222/08    222/08    222/08    222/08    222/08
        '?LP            0                 222/08 D  222/08
        '?MIN           0                 222/08 D  222/08
        '?NOT           0                 222/08 D  222/08    222/08
        '?OR            0                 222/08 D  222/08    222/08
        '?PER        4507   PROGRAM*      222/08 L  222/08
        '?PLUS          0                 222/08 D  222/08
        '?QQQ           0                 222/08 D  222/08
        '?RP            0                 222/08 D  222/08
        '?SHFT          0                 222/08 D  222/08
        '?SQOT          0                 222/08 D  222/08
        '?STAR          0                 222/08 D  222/08
        '?XOR           0                 222/08 D  222/08    222/08
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCLFM 
  
  
        LFMA          155   PROGRAM*       67/51     67/57 L
        LFM1          152   PROGRAM*       67/44     67/47 L
        LFM2          146   PROGRAM*       67/38 L   67/55
        LFM=          147   PROGRAM*       67/41 L   67/45     68/04
  
  
  
  
                                                  SYMBOL QUALIFIER =  IFR 
1       IDP - INTERACTIVE DEBUG PACKAGE                               COMPASS 3.7-871.     24/05/05. 19.58.08.      PAGE   370
        SYMBOLIC REFERENCE TABLE.                                     IFR 
  
        FRZ           152                 104/39 L
        FW.RHH        147                 101/42    101/55    102/11    104/16 L  104/42
        F.FRZ         152                 101/27 S  101/33 S  101/55    102/11    104/36 L  105/03    123/04
        IFR           101                 100/55    100/57 L
        IFRA          130                 101/15    102/43 L
        IFRB          131                 101/54    102/12    102/47 L
        IFR2          114                 101/46 L  101/50
        IFR3          120                 102/07 L  102/08
        IFR4          127                 102/26    102/38 L
        L.FRZ         101                 104/37 D  104/39
        L.IFRSZ        10                 101/08    101/44    103/50 D
        L.RHH          11                 101/08    101/43    104/42 D
        MEM#HOST      146                 101/07    103/48 L  105/05
        MEM#RHH       145                 101/12 S  102/43    103/46 L  105/04
        RHH           147                 104/18 L
        SYS           135                 101/17    102/01    103/21 L
        SYSA          132                 103/10 L  103/15    103/29    103/34
        SYS1          134                 102/10    103/19 L  103/25    103/38 S  103/41
        SYS2          140                 103/19    103/29 L
        SYS3          143                 103/33    103/36 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMQSVR 
  
  
        RSR2         6131   PROGRAM*      332/34 L  332/45
        RSR3         6137   PROGRAM*      332/55 L  332/56
        RSR4         6157   PROGRAM*      332/35    334/28 L
        RSR=         6125   PROGRAM*      332/15 L  334/33    334/49
        SVA            10                 328/09 D  329/48 S  332/47    333/31    334/13    334/42    335/11
        SVB             0                 328/08 D  330/56 S  332/28    334/41    335/11
        SVREG        6052   PROGRAM*      328/13 L  329/48 S  330/04    334/41    334/43
                                          329/46 S  329/51 S  332/24    334/42    335/11
        SVR2         6106   PROGRAM*      329/32    329/36 L
        SVR=         6102   PROGRAM*      328/43 L  331/55    334/48
        SVX            20                 328/10 D  329/46 S  329/51 S  333/22    333/32    334/43    335/11
        SV=A         6062   PROGRAM*      334/42 D  334/53
        SV=B         6052   PROGRAM*      334/41 D  334/52
        SV=X         6072   PROGRAM*      334/43 D  334/54
  U     #SVR                              328/12 F  329/44 F  330/41 F  332/20 F  334/40 F
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2464              IDENT  INIT00 
                       2464              B=LWA00  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2241 
                                        LITERALS* LOCAL        2241       205 
                                        DEBUG     LOCAL        2446        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=INIT0          0+           FTN              0+           B=LWA00       2464+ 
  
  
                                        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    USY=FE  * 
                                        CO.DS     CO.REWB   CP.BLF    FTNHHA    LDPRI     TL.CSOP   RS.PD 
                                        CO.EC     CO.REWE   CP.CARD   FTNLDR    L.PWA     TL.DATE   WIN 
  
  
  
  
                                                  IDENT  INIT00                                                  INIT00      2
                                         INIT00   SECT   (FIRST TIME ONLY INITIALIZATION.)                       INIT00      3
  
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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/05. 19.58.22.      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
                          0100001160 +            RJ     MIA         MISCELLANEOUS INITIALIZATION, PART A        INIT00     84
             3  0100001657 +                      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/05. 19.58.22.      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
                     5170002040 +                 SA7    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET   F1039     177
                                                                                                                 F1039     178
            14  7110000435 +                      SX1    KEYS        PARAMETER TABLE FWA                         INIT00     85
                          7120000176              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  0100000043 +                      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  5120002040 +                      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  5120002241 +                      SA2    =40404040404040404040B                                  F1039     187
                          5110002242 +            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  0630001064 +                      PL     B3,E.OPT    IF OPT .GT. 3                               INIT00     93
                                                                                                                 F1039     197
            26  0100001117 +             FTN1     RJ     CFL         CHECK FIELD LENGTH                          INIT00     94
            27  0100001232 +                      RJ     MIB         MISCELLANEOUS INITIALIZATION, PART B        INIT00     95
            30  0100001701 +                      RJ     CPV         UPDATE CURRENT VALUES OF SELECTED CONTROL   F1039     198
                                                                     CARD PARAMETERS                             F1039     199
            31  5110000042 +                      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/05. 19.58.22.      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
            32  0100000000 X                      CALL   ONSPY       TURN ON PP PROGRAM SPY                      INIT00    110
                                                                                                                 INIT00    111
            33  0100002113 +                      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
            34  7160000000 X                      SX6    UKT=FE      FWA OF *FRONT END* IDP KEYWORD TABLE        INIT00    119
                          5160000000 X            SA6    UKT=LNK                                                 INIT00    120
            35  7160000000 X                      SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT00    121
                          5160000000 X            SA6    IDP=USY                                                 INIT00    122
            36  0100000000 X                      CALL   IDPCHK                                                  INIT00    123
            37  0670000041 +                      PL     B7,FTN2     IF IDP NOT REQUESTED                        INIT00    124
            40  0100000000 X             FTN00    BREAK                                                          INIT00    125
            41                           FTN2     BSS    0                                                       INIT00    126
                                         #OS      ENDIF                                                          FC5A158A  384
                                         .TEST    ENDIF                                                          INIT00    127
                                                                                                                 INIT00    128
            41  0400000000 X                      EQ     PUC         EXIT TO PROGRAM UNIT CONTROLLER...          INIT00    129
                                                                                                                 F1039     200
            42                     1     FTNOVM   BSS    1           OVERLAY MODE                                F1039     201
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE     6
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC 
  
            43                           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/05. 19.58.22.      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/05. 19.58.22.      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/05. 19.58.22.      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/05. 19.58.22.      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
            43  0400400043 +             PAC      SUBR               ...ENTRY/EXIT...                            COMCPAC   227
            44  5160000274 +                      SA6    DEMA        SAVE USER ERROR PROCESSOR                   COMCPAC   228
                          5170000434 +            SA7    GNCC        SAVE USER CONTINUATION LINE PROCESSOR ADDR  COMCPAC   229
            45  10611                             BX6    X1                                                      COMCPAC   230
                     22702                        LX7    X2                                                      COMCPAC   231
                          5160000242 +            SA6    PACB        SAVE ADDRESS OF PARAMETER TABLE             COMCPAC   232
            46  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
            47  66300                    PAC2     SB3    B0                                                      COMCPAC   240
                     0100000364 +                 RJ     GNC                                                     COMCPAC   241
            50  6274777722                        SB7    X4-1R                                                   COMCPAC   242
                          0470000047 +            ZR     B7,PAC2     IF STILL BLANK                              COMCPAC   243
                                                                                                                 COMCPAC   244
                                        *         SKIP VERB OR LOADER *EXECUTE* DIRECTIVE.                       COMCPAC   245
                                                                                                                 COMCPAC   246
            51  7160000000                        SX6    0+                                                      COMCPAC   247
                          6130000000              SB3    0+                                                      COMCPAC   248
            52  20606                    PAC4     LX6    6                                                       COMCPAC   249
                     12664                        BX6    X6+X4       COLLECT NEXT CHARACTER                      COMCPAC   250
                          0100000364 +            RJ     GNC                                                     COMCPAC   251
            53  6274777732                        SB7    X4-1R9-1                                                COMCPAC   252
                          0770000052 +            MI     B7,PAC4     IF STILL VERB                               COMCPAC   253
                                                                                                                 COMCPAC   254
                                        *         RETURN IF TERMINATOR.                                          COMCPAC   255
                                                                                                                 COMCPAC   256
            54  6130777776                        SB3    -1          SET NORMAL MODE                             COMCPAC   257
                          6274777720              SB7    X4-1R.                                                  COMCPAC   258
            55  6264777725                        SB6    X4-1R)                                                  COMCPAC   259
                          0470000043 +            ZR     B7,EXIT.    IF TERMINATOR, DONE...                      COMCPAC   260
            56  0460000043 +                      ZR     B6,EXIT.    IF TERMINATOR, DONE...                      COMCPAC   261
                                                                                                                 COMCPAC   262
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    11
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                        *         CHECK FOR LOADER *EXECUTE* DIRECTIVE.                          COMCPAC   263
                                                                                                                 COMCPAC   264
                          5120002243 +            SA2    =7REXECUTE                                              COMCPAC   265
            57  37626                             IX6    X2-X6                                                   COMCPAC   266
                     0316000063 +                 NZ     X6,PAC6     IF NOT EXECUTE                              COMCPAC   267
                               20222              LX2    3*6         7LEXECUTE                                   COMCPAC   268
            60  5130000064                        SA3    RA.PGN      PROGRAM NAME                                COMCPAC   269
                          43052                   MX0    7*6                                                     COMCPAC   270
                               11303              BX3    X0*X3                                                   COMCPAC   271
            61  37623                             IX6    X2-X3                                                   COMCPAC   272
                     0306000063 +                 ZR     X6,PAC6     IF VERB IS EXECUTE                          COMCPAC   273
                               76010              SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   274
            62  0100000350 +                      RJ     GNA         SKIP THE VERB                               COMCPAC   275
                                                                                                                 COMCPAC   276
                                        *         CHECK FOR USER FIRST PARAMETER PROCESSOR.                      COMCPAC   277
                                                                                                                 COMCPAC   278
            63  5110000244 +             PAC6     SA1    PACB+2                                                  COMCPAC   279
                          0301000071 +            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
            64                           PAC.UFP  BSS                                                            COMCPAC   289
            64  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/05. 19.58.22.      PAGE    12
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
            65                           PAC.RET  BSS                ...MAIN LOOP NODE                           COMCPAC   314
            65  0470000071 +                      ZR     B7,PAC10    IF NOTHING TO UPDATE                        COMCPAC   315
                          5010777776              SA1    A0-KB.W+KA.W      WORD A                                COMCPAC   316
            66  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
            67  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
            70  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
            71                           PAC10    BSS                                                            COMCPAC   332
            71  7164777773                        SX6    B4-O.MINUS                                              COMCPAC   333
                          0740000043 +            MI     B4,EXIT.    IF TERMINATOR, DONE...                      COMCPAC   334
            72  5160000237 +                      SA6    PACA        INDICATE POSSIBLE MINUS SIGN PREFIX         COMCPAC   335
                          7100000001              SX0    1           DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   336
            73  0100000350 +                      RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   337
            74  0306000071 +                      ZR     X6,PAC10    IF EMPTY ARGUMENT, IGNORE                   COMCPAC   338
                          5110000242 +            SA1    PACB        START OF PARAMETER TABLE                    COMCPAC   339
            75  43352                             MX3    KA.KEYL                                                 COMCPAC   340
                     54411                        SA4    A1+B1                                                   COMCPAC   341
                          5221000000              SA2    X1+         LENGTH OF PARAMETER TABLE                   COMCPAC   342
            76  6274000000                        SB7    X4+                                                     COMCPAC   343
                          5160000301 +            SA6    ERR.FLD     SAVE SEARCHED FOR PARAMETER                 COMCPAC   344
                                                                                                                 COMCPAC   345
                                        *         SEARCH PARAMETER TABLE.                                        COMCPAC   346
                                                                                                                 COMCPAC   347
            77  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
           100  0307000102 +                      ZR     X7,PAC14    IF FOUND                                    COMCPAC   352
                          5022000003              SA2    A2+Z.KEY    NEXT TABLE ENTRY                            COMCPAC   353
           101  0707000077 +                      GT     B7,PAC12    IF MORE KEYS TO CHECK                       COMCPAC   354
                          0400000341 +            EQ     E.UA        ** UNRECOGNIZED ARGUMENT **                 COMCPAC   355
                                                                                                                 COMCPAC   356
                                        *         PROCESS PARAMETER ITEM.                                        COMCPAC   357
                                                                                                                 COMCPAC   358
                                         PAC14    LX2    -KA.POAP                                                COMCPAC   359
           102  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
           103  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
           104  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/05. 19.58.22.      PAGE    13
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                          20224                   LX2    KB.SDP-KB.NOCP                                          COMCPAC   371
           105  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
                          0302000335 +            ZR     X2,E.TMOC   IF ** TOO MANY OCCURENCES **                COMCPAC   385
           106  0770000236 +                      MI     B7,PAC.UAP  IF SPECIAL, CALL USER ARGUMENT PROCESSOR    COMCPAC   386
                          0470000200 +            ZR     B7,PAC60    IF MULTIPLE BINARY VALUE PARAMETER          COMCPAC   387
           107  0331000167 +                      MI     X1,PAC50    IF BINARY VALUE PARAMETER                   COMCPAC   388
                          0303000115 +            ZR     X3,PAC30    IF = FOLLOWS PARAMETER KEYWORD              COMCPAC   389
           110  0301000326 +                      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
           111  5120000237 +                      SA2    PACA        MINUS FLAG                                  COMCPAC   401
                          0302000234 +            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
           112                           PAC20    BSS                                                            COMCPAC   407
           112  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
           113  6177000001                        SB7    B7+1                                                    COMCPAC   412
                          0520000112 +            NZ     B2,PAC20    IF MORE OPTIONS                             COMCPAC   413
           114  0400000065 +                      EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   414
                                                                                                                 COMCPAC   415
                                                                                                                 COMCPAC   416
                                        **        PROCESS SPECIFIED VALUE PARAMETER OPTIONS.                     COMCPAC   417
                                                                                                                 COMCPAC   418
           115                           PAC30    BSS                                                            COMCPAC   419
           115  5040000001                        SA4    A0-KB.W+KC.W      GET WORD C                            COMCPAC   420
                          5120000237 +            SA2    PACA        MINUS FLAG                                  COMCPAC   421
           116  10744                             BX7    X4                                                      COMCPAC   422
                     0302000324 +                 ZR     X2,E.ME     IF ** - AND = NOT ALLOWED **                COMCPAC   423
           117  0327000132 +                      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/05. 19.58.22.      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
           120                           PAC32    BSS                                                            COMCPAC   434
           120  76000                             SX0    B0          ALLOW .GT. 10 CHARACTERS                    COMCPAC   435
                     0100000350 +                 RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   436
           121  56670                             SA6    B7          STORE THIS WORD                             COMCPAC   437
                     67221                        SB2    B2-B1                                                   COMCPAC   438
                          6177000001              SB7    B7+1                                                    COMCPAC   439
           122  0540000125 +                      NZ     B4,PAC34    IF END OF STRING                            COMCPAC   440
                          0520000120 +            NZ     B2,PAC32    IF NOT END OF SUBFIELDS                     COMCPAC   441
                                                                                                                 FC5A284     6
           123  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
           124  5160000301 +                      SA6    ERR.FLD     STORE PARAMETER NAME                        COMCPAC   445
                          0400000330 +            EQ     E.STL       ** STRING TOO LONG **                       COMCPAC   446
                                                                                                                 COMCPAC   447
                                        *         CHECK FOR STRING TOO LONG.                                     COMCPAC   448
                                                                                                                 COMCPAC   449
           125  0520000234 +             PAC34    NZ     B2,PAC100   IF NOT LAST WORD                            COMCPAC   450
                          6120000066              SB2    9*6                                                     COMCPAC   451
           126  67626                             SB6    B2-B6       NUMBER OF BITS IN X6                        COMCPAC   452
                     63276                        SB2    B6+X7       NUMBER OF EXCESS BITS IN X6                 COMCPAC   453
                          0702000130 +            GT     B2,PAC35    IF TOO LONG                                 COMCPAC   454
           127  66200                             SB2    B0                                                      COMCPAC   455
                     0400000065 +                 EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   456
                                                                                                                 COMCPAC   457
           130  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
           131  57671                             SA6    B7-B1       RESTORE LAST WORD OF STRING                 COMCPAC   462
                     0400000123 +                 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
           132  20703                    PAC36    LX7    KC.ATL      POSITION FIRST ATTRIBUTE                    FC5A284     7
                                   0              ERRNZ  60-2*KC.ATL-KC.ATP                                      COMCPAC   475
                                                                                                                 COMCPAC   476
           133  76010                    PAC38    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             FC5A284     8
                     0100000350 +                 RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   478
           134  0316000135 +                      NZ     X6,PAC39    IF ARTIFACT NOT SEPERATOR, ETC.             FC5A284     9
                          20406                   LX4    6           SHIFT CHARACTER                             FC5A284    10
                               10644              BX6    X4                                                      FC5A284    11
                                                                                                                 FC5A284    12
           135  5160000301 +             PAC39    SA6    ERR.FLD                                                 FC5A284    13
                          0420000337 +            ZR     B2,E.TMOP   IF ** TOO MANY OPTIONS **                   COMCPAC   480
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    15
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
           136  67221                             SB2    B2-B1                                                   COMCPAC   481
                     20703                        LX7    KC.ATL                                                  COMCPAC   482
                          0306000146 +            ZR     X6,PAC42    IF NULL PARAMETER                           COMCPAC   483
           137  43471                             MX4    -KC.ATL                                                 COMCPAC   484
                     15474                        BX4    -X4*X7      EXTRACT NEXT ATTRIBUTE                      COMCPAC   485
                          77106                   SX1    -B6                                                     COMCPAC   486
           140  6264000141 +                      SB6    X4+PAC40                                                COMCPAC   487
                          0266000000              JP     B6          PROCESS NEXT OPTION                         COMCPAC   488
                                                                                                                 COMCPAC   489
                                        *         ATTRIBUTE JUMP TABLE.                                          COMCPAC   490
                                                                                                                 COMCPAC   491
           141                           PAC40    BSS                                                            COMCPAC   492
           141  0400000146 +             +        EQ     PAC42       0 = CHARACTER FIELD 0L FORMAT               COMCPAC   493
           142  0400000151 +             +        EQ     PAC44       1 = CHARACTER FIELD 0R FORMAT               COMCPAC   494
           143  0400000153 +             +        EQ     PAC46       2 = FILE NAME                               COMCPAC   495
           144  66670                    +        SB6    B7                                                      COMCPAC   496
                     66710                        SB7    B1                                                      COMCPAC   497
                          0400000155 +            EQ     PAC48       3 = NUMERIC FIELD (DECIMAL ASSUMED)         COMCPAC   498
           145  66670                    +        SB6    B7                                                      COMCPAC   499
                     66700                        SB7    B0                                                      COMCPAC   500
                          0400000155 +            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
           146                           PAC42    BSS                                                            COMCPAC   510
           146  5167000000                        SA6    B7+         PROCESS CHARACTER FIELD                     COMCPAC   511
                          7114777775              SX1    B4-O.SLASH                                              COMCPAC   512
           147  6177000001                        SB7    B7+1                                                    COMCPAC   513
                          0301000133 +            ZR     X1,PAC38    IF MORE OPTIONS                             FC5A284    14
           150  0400000234 +                      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
           151                           PAC44    BSS                                                            COMCPAC   523
           151  6261000066                        SB6    60+X1-6                                                 COMCPAC   524
                          22666                   LX6    X6,B6                                                   COMCPAC   525
           152  0400000146 +                      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
           153                           PAC46    BSS                                                            COMCPAC   533
           153  10166                             BX1    X6                                                      COMCPAC   534
                     0100000245 +                 RJ     CFV         CHECK FILE NAME VALIDITY                    COMCPAC   535
           154  0304000146 +                      ZR     X4,PAC42    IF NAME OK                                  COMCPAC   536
                          0400000320 +            EQ     E.IFN       ** ILLEGAL FILE NAME **                     COMCPAC   537
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
           155                           PAC48    BSS                SAVE REGISTERS                              COMCPAC   546
           155  5170000237 +                      SA7    PACA        (X7)                                        COMCPAC   547
                          10755                   BX7    X5                                                      COMCPAC   548
                               22506              LX5    X6                                                      COMCPAC   549
           156  54771                             SA7    A7+B1       (X5)                                        COMCPAC   550
                     43052                        MX0    -18                                                     COMCPAC   551
                          76620                   SX6    B2                                                      COMCPAC   552
                               76740              SX7    B4                                                      COMCPAC   553
           157  15770                             BX7    -X0*X7                                                  COMCPAC   554
                     20650                        LX6    40                                                      COMCPAC   555
                          20724                   LX7    20                                                      COMCPAC   556
                               12667              BX6    X6+X7                                                   COMCPAC   557
           160  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
           161  0100000000 X                      RJ     =XDXB       CHECK AND CONVERT NUMBER                    COMCPAC   562
           162  5110000237 +                      SA1    PACA        RESTORE REGISTERS                           COMCPAC   563
                          54211                   SA2    A1+B1                                                   COMCPAC   564
                               10711              BX7    X1          (X7)                                        COMCPAC   565
           163  54321                             SA3    A2+B1                                                   COMCPAC   566
                     22502                        LX5    X2          (X5)                                        COMCPAC   567
                          63530                   SB5    X3          (B5)                                        COMCPAC   568
                               21324              AX3    20                                                      COMCPAC   569
           164  63430                             SB4    X3          (B4)                                        COMCPAC   570
                     67301                        SB3    -B1         (B3)                                        COMCPAC   571
                          21324                   AX3    20                                                      COMCPAC   572
                               63230              SB2    X3          (B2)                                        COMCPAC   573
           165  6176000000                        SB7    B6+         (B7)                                        COMCPAC   574
                          0304000146 +            ZR     X4,PAC42    IF NUMBER OK                                COMCPAC   575
           166  0400000322 +                      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
           167                           PAC50    BSS                                                            COMCPAC   585
           167  5120000237 +                      SA2    PACA        MINUS FLAG                                  COMCPAC   586
                          7170000000              SX7    OFF                                                     COMCPAC   587
           170  0302000172 +                      ZR     X2,PAC52    IF MINUS PRESENT                            COMCPAC   588
                          0303000173 +            ZR     X3,PAC54    IF EQUAL PRESENT                            COMCPAC   589
           171  43701                             MX7    ON                                                      COMCPAC   590
                     0400000177 +                 EQ     PAC56       SET SWITCH                                  COMCPAC   591
                                                                                                                 COMCPAC   592
           172  0303000324 +             PAC52    ZR     X3,E.ME     IF ** - AND = NOT ALLOWED **                COMCPAC   593
                          0400000177 +            EQ     PAC56       SET SWITCH                                  COMCPAC   594
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    17
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                                                                                                 COMCPAC   595
           173  76010                    PAC54    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   596
                     0100000350 +                 RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   597
           174  0306000177 +                      ZR     X6,PAC56    IF NULL, OK                                 COMCPAC   598
                          20614                   LX6    2*6                                                     COMCPAC   599
           175  7246774477                        SX4    X6-2R0 +1R                                              COMCPAC   600
                          0304000177 +            ZR     X4,PAC56    IF 0, OK                                    COMCPAC   601
           176  0400000312 +                      EQ     E.IBV       ** ILLEGAL BINARY VALUE **                  COMCPAC   602
                                                                                                                 COMCPAC   603
           177  56770                    PAC56    SA7    B7                                                      COMCPAC   604
                     0400000065 +                 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
           200                           PAC60    BSS                                                            COMCPAC   615
                                   0              ERRNZ  KB.MBVP-KB.SDP    MBV FIELD = SD FIELD ASSUMED          COMCPAC   616
           200  6172000000                        SB7    B2+                                                     COMCPAC   617
                          6160000000              SB6    59-KE.SDP   SECOND DEFAULT                              COMCPAC   618
           201  0313000203 +                      NZ     X3,PAC62    IF NO =                                     COMCPAC   619
                          5120000237 +            SA2    PACA        MINUS FLAG                                  COMCPAC   620
           202  6160000001                        SB6    59-KE.IVP   INITIAL VALUE                               COMCPAC   621
                          0302000324 +            ZR     X2,E.ME     IF ** - AND = NOT ALLOWED **                COMCPAC   622
                                                                                                                 COMCPAC   623
                                        *         INITIALIZE TO SECOND DEFAULT OR INITIAL VALUE.                 COMCPAC   624
                                                                                                                 COMCPAC   625
           203  5221000000               PAC62    SA2    X1+KD.W     MBV WORD A                                  COMCPAC   626
           204  5042000001               PAC64    SA4    A2-KD.W+KE.W      MBV WORD B                            COMCPAC   627
                          43701                   MX7    ON                                                      COMCPAC   628
                               22464              LX4    X4,B6                                                   COMCPAC   629
           205  0334000206 +                      MI     X4,PAC66    IF ON                                       COMCPAC   630
                          7170000000              SX7    OFF                                                     COMCPAC   631
           206  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
           207  0470000211 +                      ZR     B7,PAC68    IF DONE                                     COMCPAC   635
                          5022000002              SA2    A2+Z.MBV                                                COMCPAC   636
           210  0400000204 +                      EQ     PAC64       SETUP NEXT ENTRY                            COMCPAC   637
                                                                                                                 COMCPAC   638
                                        *         SET SELECTED OPTIONS IF PRESENT.                               COMCPAC   639
                                                                                                                 COMCPAC   640
           211  0313000233 +             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
           212  7100000001               PAC70    SX0    1           DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   647
                          0100000350 +            RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   648
           213  0316000221 +                      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/05. 19.58.22.      PAGE    18
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                                                                                                 COMCPAC   652
                          7134777773              SX3    B4-O.MINUS                                              COMCPAC   653
           214  0313000217 +                      NZ     X3,PAC72    IF NOT A MINUS                              COMCPAC   654
                          5110000237 +            SA1    PACA        MINUS FLAG                                  COMCPAC   655
           215  0301000233 +                      ZR     X1,PAC80    IF ALREADY A MINUS                          COMCPAC   656
                          7170000000              SX7    OFF                                                     COMCPAC   657
           216  0400000212 +                      EQ     PAC70       GO FOR MORE                                 COMCPAC   658
                                                                                                                 COMCPAC   659
                                        *         CHECK FOR SLASH.                                               COMCPAC   660
                                                                                                                 COMCPAC   661
           217  7134777775               PAC72    SX3    B4-O.SLASH                                              COMCPAC   662
                          0313000233 +            NZ     X3,PAC80    IF NOT A SLASH                              COMCPAC   663
           220  43701                             MX7    ON                                                      COMCPAC   664
                     0400000212 +                 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
           221  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
           222  5160000301 +                      SA6    ERR.FLD                                                 COMCPAC   678
           223  11402                    PAC76    BX4    X0*X2                                                   COMCPAC   679
                     6166777776                   SB6    B6-1                                                    COMCPAC   680
                               13446              BX4    X4-X6                                                   COMCPAC   681
           224  0304000232 +                      ZR     X4,PAC78    IF FOUND                                    COMCPAC   682
                          5022000002              SA2    A2+Z.MBV    NEXT TABLE ENTRY                            COMCPAC   683
           225  0706000223 +                      GT     B6,PAC76    IF MORE OPTIONS TO CHECK                    FC5A321     7
                          20614                   LX6    2*6                                                     COMCPAC   685
           226  7246774477                        SX4    X6-2R0 +1R                                              COMCPAC   686
                          0314000343 +            NZ     X4,E.UOP    ** UNKNOWN OPTION **                        COMCPAC   687
                                                                                                                 COMCPAC   688
                                        *         OPTION IS *0*.  OFF ALL OPTIONS.                               COMCPAC   689
                                                                                                                 COMCPAC   690
           227  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
           230  53720                    PAC77    SA7    X2                                                      COMCPAC   695
                     67661                        =B6    B6-1                                                    COMCPAC   696
                          0460000217 +            ZR     B6,PAC72    IF DONE                                     COMCPAC   697
           231  5022000002                        SA2    A2+Z.MBV                                                COMCPAC   698
                          0400000230 +            EQ     PAC77       CONTINUE OFFING                             COMCPAC   699
                                                                                                                 COMCPAC   700
                                        *         UPDATE THE OPTION.                                             COMCPAC   701
                                                                                                                 COMCPAC   702
           232  53720                    PAC78    SA7    X2                                                      COMCPAC   703
                                   0              ERRNZ  KD.KOAP     ASSUMES ADDRESS IN LOWER 18                 COMCPAC   704
                     43701                        MX7    ON                                                      COMCPAC   705
                          0400000217 +            EQ     PAC72       GO FOR MORE                                 COMCPAC   706
                                                                                                                 COMCPAC   707
           233  66710                    PAC80    SB7    B1                                                      COMCPAC   708
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    19
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                     67207                        SB2    -B7         SO B7+B2 = 0                                COMCPAC   709
                          0400000065 +            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
           234                           PAC100   BSS                                                            COMCPAC   718
           234  0420000065 +                      ZR     B2,PAC.RET  IF DONE, RE-ENTER MAIN LOOP...              COMCPAC   719
                          13666                   BX6    X6-X6                                                   COMCPAC   720
                               67221              SB2    B2-B1                                                   COMCPAC   721
           235  56670                             SA6    B7                                                      COMCPAC   722
                     66771                        SB7    B7+B1                                                   COMCPAC   723
                          0400000234 +            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
           236                           PAC.UAP  BSS                                                            COMCPAC   745
           236  67707                             SB7    -B7                                                     COMCPAC   746
                     0277000000                   JP     B7          PROCESS SPECIAL ARGUMENTS                   COMCPAC   747
  
  
  
  
           237  00000000000000000000     PACA     CON    0           SWITCH VALUE AND USED TO SAVE X7            COMCPAC   749
           240  00000000000000000000              CON    0           SAVE X5                                     COMCPAC   750
           241  00000000000000000000              CON    0           SAVE B2,B4,B5                               COMCPAC   751
           242  00000000000000000000     PACB     CON    0           FWA OF PARAMETER TABLE                      COMCPAC   752
           243  00000000000000000000              CON    0           LENGTH OF PARAMETER TABLE                   COMCPAC   753
           244  00000000000000000000              CON    0           ADDRESS OF USER FIRST PARAMETER PROCESSOR   COMCPAC   754
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
           245  0400400245 +             CFV      SUBR               ...ENTRY/EXIT...                            COMCPAC   770
           246  7221000000                        SX2    X1+                                                     COMCPAC   771
                          37666                   IX6    X6-X6                                                   COMCPAC   772
                               20114              LX1    2*6                                                     COMCPAC   773
           247  7241774477                        SX4    X1-2R0 +1R                                              COMCPAC   774
                          0304000245 +            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
           250  20160                             LX1    -2*6        RESTORE (X1)                                COMCPAC   776
                     13621                        BX6    X2-X1                                                   COMCPAC   777
                          0312000245 +            NZ     X2,EXIT.    IF MORE THAN 7 CHARS                        COMCPAC   778
           251  43400                             MX4    0                                                       COMCPAC   779
                     0400000245 +                 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
           252                           ERR.RET  BSS                ...USER PROCESSOR RETURN                    COMCPAC   801
                                                                                                                 COMCPAC   802
           252  0400400252 +             DEM      SUBR               ...ENTRY/EXIT...                            COMCPAC   803
           253  5120000274 +                      SA2    DEMA                                                    COMCPAC   804
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    21
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           DEM                 COMCPAC 
  
                          0312000273 +            NZ     X2,DEM.UEP  IF USER ERROR PROCESSOR SHOULD BE CALLED    COMCPAC   805
                                                                                                                 COMCPAC   806
           254                           DEM.RET  BSS                ...USER SUPPLEMENTAL PROCESSOR RETURN       COMCPAC   807
           254  5120000306 +                      SA2    ERR.CNT     ERROR COUNT                                 COMCPAC   808
                          73621                   SX6    X2+B1                                                   COMCPAC   809
                               54620              SA6    A2          UPDATE ERROR COUNT                          COMCPAC   810
           255  0312000260 +                      NZ     X2,DEM1     IF NOT FIRST TIME                           COMCPAC   811
                          7110000275 +            MESSAGE  DEMB,,RCL                                             COMCPAC   812
           260  5110000301 +             DEM1     SA1    ERR.FLD                                                 COMCPAC   813
                          0311000264 +            NZ     X1,DEM2     IF ARGUMENT FIELD EXISTS                    COMCPAC   814
           261  76160                             SX1    B6                                                      FC5A158A   10
                     73110                        MESSAGE   X1,,RCL                                              FC5A158A   11
           263  0400000252 +                      EQ     EXIT.       DONE...                                     COMCPAC   816
                                                                                                                 COMCPAC   817
           264  76020                    DEM2     SX0    B2          SAVE B2                                     COMCPAC   818
                     10477                        BX4    X7          SAVE X7                                     COMCPAC   819
                          0100000000 X            RJ     =XSFN=      SPACE FILL NAME                             COMCPAC   820
           265  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
           266  54111                             SA1    A1+B1       MESSAGE WORD 2                              COMCPAC   825
                     10611                        BX6    X1                                                      COMCPAC   826
                          54661                   SA6    A6+B1                                                   COMCPAC   827
           267  5011000001                        SA1    A1+1        MESSAGE WORD 3                              COMCPAC   828
                          10611                   BX6    X1                                                      COMCPAC   829
                               54661              SA6    A6+B1                                                   COMCPAC   830
           270  7110000301 +                      MESSAGE ERR.FLD,,RCL                                           COMCPAC   831
           272  63200                             SB2    X0          RESTORE B2                                  COMCPAC   832
                     10744                        BX7    X4          RETORE X7                                   COMCPAC   833
                          0400000252 +            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
           273                           DEM.UEP  BSS                                                            COMCPAC   849
           273  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/05. 19.58.22.      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
           274  00000000000000000000     DEMA     CON    0           ADDRESS OF USER ERROR PROCESSOR IF ANY      COMCPAC   857
           275  55550317162422171455     DEMB     DIS    ,* "PAC.NAME" CONTROL STATEMENT ERRORS --*              COMCPAC   858
           301  00000000000000000000     ERR.FLD  CON    0           BAD FIELD OR ZERO IF NONE                   COMCPAC   859
           302                     4              BSSZ   4           MESSAGE/END-OF-MESSAGE MARK                 COMCPAC   860
           306  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
           307  5160000301 +             E.GT10   SA6    ERR.FLD                                                 COMCPAC   891
                          6160002244 +            CSERR  (.GT. 10 CHAR)                                          COMCPAC   892
           311  0400000360 +                      EQ     GNA2        SKIP EXCESS CHARACTERS                      COMCPAC   893
                                                                                                                 COMCPAC   894
           312  6160002246 +             E.IBV    CSERR  (HAS ILLEGAL BINARY VALUE)                              COMCPAC   895
           313  66700                             SB7    B0          NO PARAMETER TO UPDATE                      COMCPAC   896
                     0400000345 +                 EQ     E.SKIP1     SKIP TO SEPARATOR                           COMCPAC   897
                                                                                                                 COMCPAC   898
           314  10066                    E.IC     BX0    X6                                                      COMCPAC   899
                     43600                        MX6    0                                                       COMCPAC   900
                          6146000000              SB4    B6+                                                     COMCPAC   901
           315  5160000301 +                      SA6    ERR.FLD                                                 COMCPAC   902
                          6160002251 +            CSERR  (ILLEGAL CHARACTER)                                     COMCPAC   903
           317  66640                             SB6    B4          RESTORE (B6)                                COMCPAC   904
                     10600                        BX6    X0          RESTORE (X6)                                COMCPAC   905
                          0400000365 +            EQ     GNC1        GET NEXT CHARACTER                          COMCPAC   906
                                                                                                                 COMCPAC   907
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    23
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           CSERR               COMCPAC 
  
           320  6160002254 +             E.IFN    CSERR  (ILLEGAL FILENAME)                                      COMCPAC   908
           321  43600                             MX6    0                                                       COMCPAC   909
                     0400000146 +                 EQ     PAC42       PROCESS NEXT OPTION SUBFIELD                COMCPAC   910
                                                                                                                 COMCPAC   911
           322  6160002256 +             E.IN     CSERR  (ILLEGAL NUMERIC)                                       COMCPAC   912
           323  43600                             MX6    0                                                       COMCPAC   913
                     0400000146 +                 EQ     PAC42       PROCESS NEXT OPTION SUBFIELD                COMCPAC   914
                                                                                                                 COMCPAC   915
           324  6160002260 +             E.ME     CSERR  (- AND = NOT BOTH ALLOWED)                              COMCPAC   916
           325  66700                             SB7    B0          NO PARAMETER TO UPDATE                      COMCPAC   917
                     0400000346 +                 EQ     E.SKIP2     SKIP TO SEPARATOR                           COMCPAC   918
                                                                                                                 COMCPAC   919
           326  6160002263 +             E.NE     CSERR  (MUST BE EQUIVALENCED)                                  COMCPAC   920
           327  0400000071 +                      EQ     PAC10       RE-ENTER MAIN LOOP                          COMCPAC   921
                                                                                                                 COMCPAC   922
           330  6160002266 +             E.STL    CSERR  (STRING TOO LONG)                                       COMCPAC   923
           331  0400000345 +                      EQ     E.SKIP1     SKIP TO NEXT SEPARATOR                      COMCPAC   924
                                                                                                                 COMCPAC   925
           332  7160000000               E.TM     SX6    0                                                       COMCPAC   926
                          5160000301 +            SA6    ERR.FLD                                                 COMCPAC   927
           333  6160002270 +                      CSERR  (TERMINATOR MISSING)                                    COMCPAC   928
           334  0400000043 +                      EQ     PACX                                                    COMCPAC   929
                                                                                                                 COMCPAC   930
           335  6160002273 +             E.TMOC   CSERR  (TOO MANY OCCURENCES)                                   COMCPAC   931
           336  66700                             SB7    B0          NO PARAMETER TO UPDATE                      COMCPAC   932
                     0400000346 +                 EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                      COMCPAC   933
                                                                                                                 COMCPAC   934
           337  6160002276 +             E.TMOP   CSERR  (TOO MANY OPTIONS)                                      COMCPAC   935
           340  0400000346 +                      EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                      COMCPAC   936
                                                                                                                 COMCPAC   937
           341  6160002300 +             E.UA     CSERR  (UNRECOGNIZABLE)                                        COMCPAC   938
           342  66700                             SB7    B0          DO NO PARAMETER TABLE TO UPDATE             COMCPAC   939
                     0400000346 +                 EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                      COMCPAC   940
                                                                                                                 COMCPAC   941
           343  6160002302 +             E.UOP    CSERR  (UNKNOWN OPTION)                                        FC5A284    15
           344  0400000217 +                      EQ     PAC72       GET NEXT OPTION                             COMCPAC   944
                                                                                                                 COMCPAC   945
                                                                                                                 COMCPAC   946
                                        *         SKIP TO NEXT SEPARATOR OR TERMINATOR.                          COMCPAC   947
                                                                                                                 COMCPAC   948
           345  76000                    E.SKIP1  SX0    B0          ALLOW .GT. 10 CHARACTERS                    COMCPAC   949
                     0100000350 +                 RJ     GNA         SKIP                                        COMCPAC   950
           346  0714000345 +             E.SKIP2  GT     B4,B1,E.SKIP1     IF /, =, OR -                         COMCPAC   951
                                   0              ERRNZ  O.SEP-1                                                 COMCPAC   952
                          0440000345 +            ZR     B4,E.SKIP1  IF ALPHANUMERIC                             COMCPAC   953
                                   0              ERRNZ  O.VAL                                                   COMCPAC   954
           347  0400000065 +                      EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   955
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
           350  0400400350 +             GNA      SUBR               ...ENTRY/EXIT...                            COMCPAC   995
           351  7160000000                        SX6    B0+                                                     COMCPAC   996
                          6160000066              SB6    9*6         INDICATE EMPTY ACCUMULATOR                  COMCPAC   997
                                                                                                                 COMCPAC   998
           352  0100000364 +             GNA1     RJ     GNC         GET NEXT CHARACTER                          COMCPAC   999
           353  0540000350 +                      NZ     B4,EXIT.    IF SEPARATOR OR TERMINATOR                  COMCPAC  1000
                          22464                   LX4    B6                                                      COMCPAC  1001
                               12664              BX6    X6+X4                                                   COMCPAC  1002
           354  6166777771                        SB6    B6-6                                                    COMCPAC  1003
                          0660000352 +            PL     B6,GNA1     IF .LE. 10 CHARACTERS ACCUMULATED           COMCPAC  1004
           355  0100000364 +                      RJ     GNC         CHECK FOR 11TH CHARACTER OR SEPARATOR       COMCPAC  1005
           356  0540000350 +                      NZ     B4,EXIT.    IF NOT .GT. 10 CHARACTERS                   COMCPAC  1006
                          0300000350 +            ZR     X0,EXIT.    IF .GT. 10 CHARACTERS ALLOWED               COMCPAC  1007
           357  0400000307 +                      EQ     E.GT10      ** .GT. 10 CHARACTERS **                    COMCPAC  1008
                                                                                                                 COMCPAC  1009
                                        *         SKIP EXCESS CHARACTERS UNTIL SEPARATOR.                        COMCPAC  1010
                                                                                                                 COMCPAC  1011
           360  0100000364 +             GNA2     RJ     GNC         SKIP EXCESS                                 COMCPAC  1012
           361  0440000360 +                      ZR     B4,GNA2     IF STILL ALPHNUMERIC                        COMCPAC  1013
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    25
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNA                 COMCPAC 
  
                          5110000301 +            SA1    ERR.FLD                                                 COMCPAC  1014
           362  6160777771                        SB6    -6          FLAG LENGTH OF 10                           COMCPAC  1015
                          10611                   BX6    X1          RESTORE X6 = 10 CHARACTERS OF PAC           COMCPAC  1016
           363  0400000350 +                      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
           364  0400400364 +             GNC      SUBR               ...ENTRY/EXIT...                            COMCPAC  1049
                                                                                                                 COMCPAC  1050
                                        *         GET NEXT CHARACTER.                                            COMCPAC  1051
                                                                                                                 COMCPAC  1052
           365  0450000401 +             GNC1     ZR     B5,GNC5     IF (X5) IS EMPTY                            COMCPAC  1053
                          20506                   LX5    6                                                       COMCPAC  1054
                               43066              MX0    -6                                                      COMCPAC  1055
           366  67551                             SB5    B5-B1       EXTRACT NEXT CHARACTER                      COMCPAC  1056
                     15450                        BX4    -X0*X5                                                  COMCPAC  1057
                          6244777724              SB4    X4-1R$                                                  COMCPAC  1058
           367  0440000377 +                      ZR     B4,GNC3     IF $                                        COMCPAC  1059
                          0430000400 +            ZR     B3,GNC4     IF IN QUOTE MODE                            COMCPAC  1060
           370  66400                             SB4    B0          CHECK VALUE                                 COMCPAC  1061
                                   0              ERRNZ  O.VAL       CODE ASSUMES 0 VALUE                        COMCPAC  1062
                     0730000371 +                 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/05. 19.58.22.      PAGE    26
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNC                 COMCPAC 
  
           371  7224777732               GNC2     SX2    X4-1R9-1    CLASSIFY CHARACTER                          COMCPAC  1068
                          7234777717              SX3    X4-1R.-1                                                COMCPAC  1069
           372  0304000314 +                      ZR     X4,E.IC     IF ** ILLEGAL CHARACTER ** (COLON)          COMCPAC  1070
                          0332000364 +            MI     X2,EXIT.    IF ALPHANUMERIC, RETURN                     COMCPAC  1071
           373  66410                             SB4    B1          CHECK SEPARATOR                             COMCPAC  1072
                                   0              ERRNZ  O.SEP-1     CODE ASSUMES O.SEP=1                        COMCPAC  1073
                     20202                        LX2    2                                                       COMCPAC  1074
                          0323000364 +            PL     X3,EXIT.    IF .GT. 1R.                                 COMCPAC  1075
           374  5130000432 +                      SA3    GNCA                                                    COMCPAC  1076
                          63420                   SB4    X2                                                      COMCPAC  1077
                               22243              LX2    X3,B4       GET CHARACTER TYPE CODE                     COMCPAC  1078
           375  21270                             AX2    -4                                                      COMCPAC  1079
                     63420                        SB4    X2                                                      COMCPAC  1080
                          0312000364 +            NZ     X2,EXIT.    IF SEPARATOR, RETURN                        COMCPAC  1081
           376  0322000364 +                      PL     X2,EXIT.    IF *, TREAT AS ALPHANUMERIC                 COMCPAC  1082
                          0400000365 +            EQ     GNC1        IGNORE BLANK                                COMCPAC  1083
                                                                                                                 COMCPAC  1084
                                        *         HERE IF $.                                                     COMCPAC  1085
                                                                                                                 COMCPAC  1086
           377  66331                    GNC3     SB3    B3+B1                                                   COMCPAC  1087
                     0613000365 +                 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
           400  6140000000               GNC4     SB4    O.VAL       QUOTE MODE, RETURN WITH CHARACTER TYPE = 0  COMCPAC  1093
                          0400000364 +            EQ     EXIT.       DONE...                                     COMCPAC  1094
                                                                                                                 COMCPAC  1095
                                        *         HERE IF CURRENT WORD OF LINE IMAGE IS EXAUSTED.                COMCPAC  1096
                                                                                                                 COMCPAC  1097
           401  5110000433 +             GNC5     SA1    GNCB                                                    COMCPAC  1098
                          5055000001              SA5    A5+1        GET NEXT LINE                               COMCPAC  1099
           402  6150000012                        SB5    10                                                      COMCPAC  1100
                          0301000420 +            ZR     X1,GNC7     IF INITIAL ENTRY                            COMCPAC  1101
           403  6045777700                        SB4    A5-RA.CCD-7                                             COMCPAC  1102
                          0704000405 +            GT     B4,GNC6     IF END OF LINE IMAGE                        COMCPAC  1103
           404  0315000365 +                      NZ     X5,GNC1     IF NOT END OF LINE                          COMCPAC  1104
                          0335000365 +            MI     X5,GNC1     IF NOT END OF LINE (10 SEMICOLONS)          COMCPAC  1105
                                                                                                                 COMCPAC  1106
                                        *         HERE IF CONTINUATION LINE NEEDED.                              COMCPAC  1107
                                                                                                                 COMCPAC  1108
           405  5120000434 +             GNC6     SA2    GNCC                                                    COMCPAC  1109
                          10566                   BX5    X6          SAVE (X6)                                   COMCPAC  1110
           406  0312000431 +                      NZ     X2,GNC.UCP  CALL USER CONTINUATION LINE PROCESSOR       COMCPAC  1111
                          7160000010              CONTRLC  GNCB,READ                                             FC50345     6
           412  53160                             SA1    X6                                                      COMCPAC  1113
                     20167                        LX1    59-4                                                    COMCPAC  1114
                          0331000332 +            MI     X1,E.TM     IF ** TERMINATOR MISSING **                 COMCPAC  1115
           413  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
           415  5110000430 +                      SA1    CAF                                                     F1039      14
                          0311000417 +            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/05. 19.58.22.      PAGE    27
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNC                 COMCPAC 
  
           416  43601                             MX6    1                                                       F1039      17
                     54610                        SA6    A1                                                      F1039      18
                          0100002016 +            RJ     FCA         FIND NEXT AVAILABLE CHARACTER ADDRESS       F1039      19
                                        *                            IN CONTROL CARD TEMPLET.                    F1039      20
           417  0100002041 +             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
           420  6140000077               GNC7     SB4    RA.CCD+7                                                COMCPAC  1119
           421  56340                    GNC8     SA3    B4                                                      COMCPAC  1120
                     67441                        SB4    B4-B1                                                   COMCPAC  1121
                          0303000421 +            ZR     X3,GNC8                                                 COMCPAC  1122
           422  6140000067                        SB4    60-6+1                                                  COMCPAC  1123
                          43673                   MX6    -1                                                      COMCPAC  1124
                               36436              IX4    X3+X6                                                   COMCPAC  1125
           423  5120002241 +                      SA2    =40404040404040404040B                                  COMCPAC  1126
                          5110002242 +            SA1    =10H                                                    COMCPAC  1127
           424  16634                             BX6    -X4+X3                                                  COMCPAC  1128
                     11462                        BX4    X6*X2                                                   COMCPAC  1129
                          22644                   LX6    X4,B4                                                   COMCPAC  1130
                               37246              IX2    X4-X6                                                   COMCPAC  1131
           425  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
           426                           GNC.RET  BSS                                                            COMCPAC  1144
           426  76610                             SX6    B1          NOT FIRST TIME THRU FLAG                    COMCPAC  1145
                     5160000433 +                 SA6    GNCB        INDICATE NOT FIRST TIME IN                  COMCPAC  1146
                               10655              BX6    X5          RESTORE (X6)                                COMCPAC  1147
           427  5150000070                        SA5    RA.CCD      SCAN NEW LINE                               COMCPAC  1148
                          0400000365 +            EQ     GNC1                                                    COMCPAC  1149
                                                                                                                 F1039      23
           430  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/05. 19.58.22.      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
           431                           GNC.UCP  BSS                                                            COMCPAC  1158
           431  63420                             SB4    X2                                                      COMCPAC  1159
                     0244000000                   JP     B4                                                      COMCPAC  1160
  
  
  
  
                                        *                  +   -   *   /   (    )   $   =   BL   ,    .          COMCPAC  1162
           432  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
           433  00000000000000000000     GNCB     CON    0           STATUS WORD FOR CONTRLC + FIRST TIME FLAG   COMCPAC  1164
           434  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
                                  43 +   PAC      EQU    /COMCPAC/PAC                                            COMCPAC  1170
                                  65 +   PAC.RET  EQU    /COMCPAC/PAC.RET                                        COMCPAC  1171
                                 245 +   CFV      EQU    /COMCPAC/CFV                                            COMCPAC  1172
                                 252 +   DEM      EQU    /COMCPAC/DEM                                            COMCPAC  1173
                                 254 +   DEM.RET  EQU    /COMCPAC/DEM.RET                                        COMCPAC  1174
                                 306 +   ERR.CNT  EQU    /COMCPAC/ERR.CNT                                        COMCPAC  1175
                                 301 +   ERR.FLD  EQU    /COMCPAC/ERR.FLD                                        COMCPAC  1176
                                 252 +   ERR.RET  EQU    /COMCPAC/ERR.RET                                        COMCPAC  1177
                                 350 +   GNA      EQU    /COMCPAC/GNA                                            COMCPAC  1178
                                 364 +   GNC      EQU    /COMCPAC/GNC                                            COMCPAC  1179
                                 426 +   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/05. 19.58.22.      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/05. 19.58.22.      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/05. 19.58.22.      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/05. 19.58.22.      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/05. 19.58.22.      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
           435                           KEYS     BSS                START OF PARAMETER KEYWORD TABLE            INIT00    145
                                                  QUAL   KEYS                                                    INIT00    146
                                                                                                                 INIT00    147
           435  01140000000000000000 X   AL       PARAM  "CO"AL,"SWITCH"                                         FC5A444    46
           440  01162311000000000000 X   ANSI     PARAM  "CO"ANSI,SD=(=1RT),AT=1                                 INIT00    148
           443  01220700000000000000     ARG      PARAM  "MBV"ARG,NOP=2                                          INIT00    149
           446  02000000000000000713 +   B        PARAM  "CO"B,SD=(=3LBIN),"LFN"                                 INIT00    150
           451  02140000000000000000 X   BL       PARAM  POA=CP.BLF,"SWITCH"                                     INIT00    151
           454  03230000000000000000 X   CS       PARAM  "CO"CS,SD=(=5LFIXED)                                    INIT00    152
           457  04020000000000000000     DB       PARAM  "MBV"DB,NOP=7                                           FC5A282     4
           462  04170000000000000000     DO       PARAM  "MBV"DO,NOP=2                                           INIT00    154
           465  04230000000000000000 X   DS       PARAM  "CO"DS,"SWITCH"                                         INIT00    155
           470  05030000000000000000 X   EC       PARAM  "CO"EC,"SWITCH"                                         F1037F5   269
           473  05000000000000000714 +   E        PARAM  "CO"E,SD=(=4LERRS),"LFN"                                INIT00    156
           476  05140000000000000000 X   EL       PARAM  "CO"EL,SD=(=1RF),AT=1                                   INIT00    157
           501  05240000000000000000 X   ET       PARAM  "CO"ET,SD=(=1RF),AT=1                                   INIT00    158
           504  07000000000000777046 -   G        PARAM  "SPECIAL"G,SD=(=7LSYSTEXT)                              INIT00    159
           507  07170000000000000000 X   GO       PARAM  "CO"GO,"SWITCH"                                         INIT00    160
           512  11000000000000000715 +   I        PARAM  "CO"I,SD=(=7LCOMPILE),"LFN"                             INIT00    161
                                                                                                                 INIT00    162
                                                  IFEQ   TEST,ON,2                                               INIT00    163
           515  14000000000000000716 +   L        PARAM  "CO"L,SD=(=7LZZZZZVO),"LFN"                             INIT00    164
                                                  SKIP   1                                                       INIT00    165
                                         L        PARAM  "CO"L,SD=(=4LLIST),"LFN"                                INIT00    166
                                                                                                                 INIT00    167
           520  14031500000000000000 X   LCM      PARAM  "CO"LCM,SD=(=1RI),AT=1                                  INIT00    168
           523  20140000000000000000 X   PL       PARAM  "CO"LL,SD=(=50000),"DECIMAL"                            INIT00    169
           526  14170000000000000000     LO       PARAM  "MBV"LO,NOP=5                                           FC5A321     8
           531  15040000000000000000 X   MD       PARAM  "CO"MD,SD=(=1RT),AT=1                                   F1037F5   270
           534  15140000000000000000 X   ML       PARAM  POA=CP.MODL,SD=CP.MODL,AT=STRING,NOP=9                  INIT00    171
           537  17202400000000000000 X   OPT      PARAM  "CO"OPT,SD=(=2),"DECIMAL"                               INIT00    172
           542  20030000000000000000 X   PC       PARAM  POA=CP.PCOM,SD=CP.PCOM,AT=STRING,NOP=30                 INIT00    173
           545  20040000000000000717 +   PD       PARAM  "CO"PD,SD=(=8),"DECIMAL"                                INIT00    174
           550  20160000000000000000 X   PN       PARAM  POA=CP.PAGE,"SWITCH"                                    INIT00    175
           553  20230000000000000000 X   PS       PARAM  "CO"PS,"DECIMAL"                                        INIT00    176
           556  20270000000000000000 X   PW       PARAM  "CO"PW,SD=(=72),"DECIMAL"                               INIT00    177
           561  21030000000000000000 X   QC       PARAM  "CO"QC,"SWITCH"                                         INIT00    178
           564  22052700000000000000     REW      PARAM  "MBV"REW,NOP=4                                          INIT00    179
           567  22172516040000000000     ROUND    PARAM  "MBV"ROUND,NOP=4                                        INIT00    180
           572  23000000000000777013 -   S        PARAM  "SPECIAL"S,SD=(=7LSYSTEXT)                              INIT00    181
           575  23052100000000000000 X   SEQ      PARAM  "CO"SEQ,"SWITCH"                                        INIT00    182
           600  23240124110300000000 X   STATIC   PARAM  "CO"STAT,"SWITCH"                                       F1037F5   271
                                                  IFEQ   .MI,1,1                                                 F1037F5   272
                                         TM       PARAM  "MBV"TM,NOP=1                                           F1037F5   273
           603  30000000000000000000 X   X        PARAM  POA=CP.XTXT,SD=(=3LOPL),"LFN"                           INIT00    183
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
           606  02220501130000000000 X   BREAK    PARAM  "CO"BRK,SD=(=1)                                         INIT00    189
           611  03201400000000000000 X   CPL      PARAM  "CO"CPL,SD=(=999),"DECIMAL"                             INIT00    190
           614  11042000000000777023 -   IDP      PARAM  "SPECIAL"IDP,SD=(=1)                                    INIT00    191
           617  22061400000000000000 X   RFL      PARAM  "CO"RFL,SD=(=0),"OCTAL"                                 INIT00    192
           622  23160120000000776767 -   SNAP     PARAM  "SPECIAL"SNAP,SD=(=1)                                   INIT00    193
           625  23202000000000000000 X   SPP      PARAM  "CO"SPP,"SWITCH"                                        INIT00    194
                                                                                                                 INIT00    195
                                        ** FV            REMOVE FOR RELEASE.                                     INIT00    196
                                         .TEST    ELSE               **** FOR SVL ONLY ****                      INIT00    197
                                         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
           630  23203100000000000720 +   SPY      PARAM  "CO"SPY,SD=SD.SPY,AT=(4,4),NOP=2                        INIT00    203
                                                                                                                 INIT00    204
                                                  QUAL   *                                                       INIT00    205
                                 176     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
           633                           ARG      BSS                                                            INIT00    215
           633  03171515171600000000 X   COMMON   MBVOP  CO.ARGC,OFF,"IV.ARGC"                                   INIT00    216
           635  06113005040000000000 X   FIXED    MBVOP  CO.ARGF,ON,"IV.ARGF"                                    INIT00    217
                                                                                                                 INIT00    218
           637                           DB       BSS                                                            INIT00    219
           637  05220000000000000000 X   ER       MBVOP  CO.DBER,ON,"IV.DBER0"                                   INIT00    221
           641  11040000000000000000 X   ID       MBVOP  CO.DBID,OFF,"IV.DBID"                                   INIT00    222
           643  20150400000000000000 X   PMD      MBVOP  CO.DBPM,ON,"IV.DBPM"                                    INIT00    223
           645  23020000000000000000 X   SB       MBVOP  CO.DBSB,ON,"IV.DBSB"                                    INIT00    224
           647  23140000000000000000 X   SL       MBVOP  CO.DBSL,ON,"IV.DBSL"                                    INIT00    225
           651  23240000000000000000 X   ST       MBVOP  CO.DBST,OFF,"IV.DBST"                                   FC5A155     5
           653  24020000000000000000 X   TB       MBVOP  CO.DBTB,ON,"IV.DBTB"                                    INIT00    227
                                                                                                                 INIT00    228
           655                           DO       BSS                                                            INIT00    229
           655  14171607000000000000 X   LONG     MBVOP  CO.DOLG,OFF,"IV.DOLG"                                   INIT00    230
           657  17240000000000000000 X   OT       MBVOP  CO.DOOT,ON,"IV.DOOT"                                    INIT00    231
                                                                                                                 INIT00    232
           661                           LO       BSS                                                            INIT00    233
           661  01000000000000000000 X   A        MBVOP  CO.LOA,ON,"IV.LOA"                                      INIT00    234
           663  15000000000000000000 X   M        MBVOP  CO.LOM,OFF,"IV.LOM"                                     INIT00    236
           665  17000000000000000000 X   O        MBVOP  CO.LOO,OFF,"IV.LOO"                                     INIT00    237
           667  22000000000000000000 X   R        MBVOP  CO.LOR,ON,"IV.LOR"                                      INIT00    238
           671  23000000000000000000 X   S        MBVOP  CO.LOS,ON,"IV.LOS"                                      INIT00    239
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    35
        CONTROL STATEMENT PARAMETER TABLE                             MBVOPS              MBV 
  
                                                                                                                 INIT00    240
           673                           REW      BSS                                                            INIT00    241
           673  02000000000000000000 X   B        MBVOP  CO.REWB,ON,"IV.REWB"                                    INIT00    242
           675  05000000000000000000 X   E        MBVOP  CO.REWE,OFF,"IV.REWE"                                   INIT00    243
           677  11000000000000000000 X   I        MBVOP  CO.REWI,ON,"IV.REWI"                                    INIT00    244
           701  14000000000000000000 X   L        MBVOP  CO.REWL,OFF,"IV.REWL"                                   INIT00    245
                                                                                                                 INIT00    246
           703                           ROUND    BSS                                                            INIT00    247
           703  01000000000000000000 X   A        MBVOP  CO.RNDA,ON,"IV.RNDA"                                    INIT00    248
           705  23000000000000000000 X   S        MBVOP  CO.RNDS,ON,"IV.RNDS"                                    INIT00    249
           707  15000000000000000000 X   M        MBVOP  CO.RNDM,ON,"IV.RNDM"                                    INIT00    250
           711  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/05. 19.58.22.      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
           713  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
           714  17252420252400000000     CO.E     CON    0L"SV.E"    ERROR FILE NAME                             INIT00    264
           715  11162025240000000000     CO.I     CON    0L"SV.I"    INPUT FILE NAME                             INIT00    265
                                                                                                                 INIT00    266
                                                  IFC    NE,/"SV.L"/0/,2                                         INIT00    267
           716  17252420252400000000     CO.L     CON    0L"SV.L"    LISTING FILE NAME                           INIT00    268
                                                  SKIP   1                                                       INIT00    269
                                         CO.L     CON    0                                                       INIT00    270
           717  00000000000000000000     CO.PD    CON    0                                                       INIT00    275
                                                                                                                 INIT00    276
                                         .SPY     IFEQ   .SPY,ON     IF SPY OPTION                               INIT00    279
           720  77777777777777777776     CO.SPY   DATA   -1,-1       SPY LOW, HIGH                               INIT00    280
           722  00000000000000000100     SD.SPY   CON    RA.ORG      LOWER LIMIT                                 INIT00    281
           723  00000000000000000000 X            CON    FIN.OL      UPPER LIMIT                                 INIT00    282
                                2046     Z.BINS   =      2046B       NUMBER OF SPY BINS                          INIT00    283
                                         .SPY     ENDIF                                                          INIT00    284
                                                                                                                 INIT00    285
           724                     1     IGNORE   BSS    1           GENERAL WASTE CELL                          INIT00    286
                                                                                                                 INIT00    287
           725  55270122161116070000     WARN     CON    8L WARNING                                              FC5A426    35
                                                                                                                 FC5A426    36
           726                           GP.PAGE  BSS    0           PRINT PARAMETER BLOCK                       FC5A426    37
           726                     1     GP.JPD   BSSZ   1           JOB DEFAULT PD                              FC5A480     8
           727                     1     GP.JPS   BSSZ   1                       PS                              FC5A480     9
           730                     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
           731                           PAC=G    BSS                                                            INIT00    298
           731  53110                             SA1    X1          DEFAULT LFN                                 INIT00    299
                     43600                        MX6    0           DEFAULT OVL NAME = NONE                     INIT00    300
                          10711                   BX7    X1                                                      INIT00    301
           732  0313000745 +                      NZ     X3,PACG3    IF NO =                                     INIT00    302
                          76010                   SX0    B1          .GT. 10 CHAR NOT ALLOWED                    FC5A173     4
           733  0100000350 +                      RJ     GNA         GET NEXT ITEM                               FC5A173     5
           734  66700                             SB7    B0                                                      FC5A173     6
                     0316000740 +                 NZ     X6,PACG1A   IF NOT FOLLOWED BY SEP. OR TERM.            FC5A173     7
           735  0441000065 +                      EQ     B4,B1,PAC.RET     IF G=,                                FC5A173     8
                          0400000740 +            EQ     PACG1A                                                  FC5A173     9
           736  76010                    PACG1    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             INIT00    303
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    37
        PROCESS SPECIAL ARGUMENTS                                     PAC=G 
  
                     0100000350 +                 RJ     GNA         GET FILE NAME                               INIT00    304
           737  0306001052 +                      ZR     X6,E.IGS    IF NO LFN                                   INIT00    305
                                                                                                                 FC5A173    10
           740  10166                    PACG1A   BX1    X6                                                      FC5A173    11
                     0100000245 +                 RJ     CFV         CHECK FILENAME VALIDITY                     INIT00    307
           741  0314001052 +                      NZ     X4,E.IGS    IF ILLEGAL FILE NAME                        INIT00    308
                          10766                   BX7    X6          LFN                                         INIT00    309
           742  6170000004                        SB7    /COMCPAC/O.MINUS                                        INIT00    310
                          43600                   MX6    0           OVL                                         INIT00    311
           743  0574000745 +                      NE     B7,B4,PACG3 IF NO *-*                                   INIT00    312
                          0307001052 +            ZR     X7,E.IGS    IF ILLEGAL SYNTAX                           INIT00    313
           744  76010                    PACG2    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             INIT00    314
                     0100000350 +                 RJ     GNA         GET OVERLAY NAME                            INIT00    315
           745  0307000751 +             PACG3    ZR     X7,PACG4    IF G=0, IGNORE                              INIT00    316
                          76210                   SX2    B1                                                      INIT00    317
                               12662              BX6    X6+X2       SET *G* FLAG                                INIT00    318
           746  5120000000 X                      SA2    CP.STXT     COUNT OF TEXTS                              INIT00    319
                          6262777770              SB6    X2-Z.TXTS                                               INIT00    320
           747  63721                             SB7    X2+B1                                                   INIT00    321
                     0460001114 +                 ZR     B6,E.S7     IF MORE THAN 7 TEXTS SPECIFIED              INIT00    322
                               54627              SA6    A2+B7       STORE OVERLAY NAME                          INIT00    323
           750  5177000000 X                      SA7    CP.LIB+B7   STORE FILE NAME                             INIT00    324
                          76670                   SX6    B7                                                      INIT00    325
                               54620              SA6    A2          UPDATE COUNT                                INIT00    326
           751  6170000004               PACG4    SB7    /COMCPAC/O.MINUS                                        INIT00    327
                          0474000744 +            EQ     B7,B4,PACG2 IF *-* IS NEXT                              INIT00    328
           752  6170000002                        SB7    /COMCPAC/O.SLASH                                        INIT00    329
                          0474000736 +            EQ     B7,B4,PACG1 IF */* IS NEXT                              INIT00    330
           753  66700                             SB7    B0                                                      INIT00    331
                     0400000065 +                 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
           754  53110                    PAC=IDP  SA1    X1                                                      INIT00    338
                     10611                        BX6    X1          GET DEFAULT                                 INIT00    339
                          0313000761 +            NZ     X3,PACIDP2  IF NO =                                     INIT00    340
           755  13666                             BX6    0                                                       INIT00    341
                     43701                        MX7    1                                                       INIT00    342
           756  0100000364 +             PACIDP1  RJ     GNC         GET NEXT CHARACTER                          INIT00    343
           757  0540000762 +                      NZ     B4,PACIDP3  IF SEPARATOR                                INIT00    344
                          6274777703              SB7    X4-60                                                   INIT00    345
           760  23377                             AX3    X7,B7       SET BIT 2**(59-CHARACTER)                   INIT00    346
                     12663                        BX6    X6+X3                                                   INIT00    347
                          0400000756 +            EQ     PACIDP1                                                 INIT00    348
                                                                                                                 INIT00    349
           761  20673                    PACIDP2  LX6    59-0                                                    INIT00    350
           762  5160000000 X             PACIDP3  SA6    CO.IDP                                                  INIT00    351
                          66700                   SB7    B0                                                      INIT00    352
           763  0400000065 +                      EQ     PAC.RET     RETURN MAIN LOOP...                         INIT00    353
                                         .TEST    ENDIF                                                          INIT00    354
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
           764                           PAC=S    BSS                                                            INIT00    364
           764  53110                             SA1    X1          DEFAULT OVL                                 INIT00    365
                     43700                        MX7    0           DEFAULT LIB = NONE                          INIT00    366
                          10611                   BX6    X1                                                      INIT00    367
           765  0313001000 +                      NZ     X3,PACS3    IF NO *=*                                   INIT00    368
                          76010                   SX0    B1          .GT. 10 CHAR NOT ALLOWED                    FC5A173    12
           766  0100000350 +                      RJ     GNA         GET NEXT ITEM                               FC5A173    13
           767  66700                             SB7    B0                                                      FC5A173    14
                     0316000773 +                 NZ     X6,PACS1A   IF NOT FOLLOWD BY SEP. OR TERM.             FC5A173    15
           770  0441000065 +                      EQ     B4,B1,PAC.RET     IF S=,                                FC5A173    17
                          0400000773 +            EQ     PACS1A                                                  FC50626     6
                                                                                                                 FC50626     7
           771  76010                    PACS1    SX0    B1          .GT. 10 CHAR NOT ALLOWED                    INIT00    369
                     0100000350 +                 RJ     GNA         GET LIB OR OVL NAME                         INIT00    370
           772  0306001055 +                      ZR     X6,E.ISS    IF NULL OPTION                              INIT00    371
                                                                                                                 FC5A173    18
           773  10166                    PACS1A   BX1    X6                                                      FC5A173    19
                     0100000245 +                 RJ     CFV         CHECK FILENAME VALIDITY                     INIT00    373
           774  0314001055 +                      NZ     X4,E.ISS    IF ILLEGAL FILE NAME                        INIT00    374
                          7170000000              SX7    0           DEFAULT = NO LIB                            FC50626     8
           775  6170000004                        SB7    /COMCPAC/O.MINUS                                        INIT00    375
                          0574001000 +            NE     B7,B4,PACS3 IF NO *-*                                   INIT00    376
           776  0306001055 +                      ZR     X6,E.ISS    IF NO LIB (S=-OVL)                          INIT00    377
                          10766                   BX7    X6          SET LIB NAME                                INIT00    378
                                                                                                                 FC50626     9
           777  76010                    PACS2    SX0    B1          .GT. 10 CHAR NOT ALLOWED                    INIT00    379
                     0100000350 +                 RJ     GNA         GET OVL NAME                                INIT00    380
                                                                                                                 FC50626    10
          1000  0316001002 +             PACS3    NZ     X6,PACS4    IF NOT S=0                                  INIT00    381
                          5160000000 X            SA6    CP.LIB      SET S=0 FLAG                                INIT00    382
          1001  0400001005 +                      EQ     PACS5       CONTINUE                                    INIT00    383
                                                                                                                 INIT00    384
          1002  5120000000 X             PACS4    SA2    CP.STXT                                                 INIT00    385
                          6262777770              SB6    X2-Z.TXTS                                               INIT00    386
          1003  63721                             SB7    X2+B1                                                   INIT00    387
                     0460001114 +                 ZR     B6,E.S7     IF MORE THAN 7 TEXTS SPECIFIED              INIT00    388
                               54627              SA6    A2+B7       STORE OVERLAY NAME                          INIT00    389
          1004  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
          1005  6170000004               PACS5    SB7    /COMCPAC/O.MINUS                                        INIT00    393
                          0474000777 +            EQ     B7,B4,PACS2 IF *-* IS NEXT                              INIT00    394
          1006  6170000002                        SB7    /COMCPAC/O.SLASH                                        INIT00    395
                          0474000771 +            EQ     B7,B4,PACS1 IF */* IS NEXT                              INIT00    396
          1007  66700                             SB7    B0                                                      INIT00    397
                     0400000065 +                 EQ     PAC.RET     RETURN TO MAIN LOOP...                      INIT00    398
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          1010                           PAC=SNAP BSS                                                            INIT00    403
          1010  53110                             SA1    X1                                                      INIT00    404
                     10611                        BX6    X1          GET DEFAULT                                 INIT00    405
                          0313001015 +            NZ     X3,PACSNP2  IF NO =                                     INIT00    406
          1011  13666                             BX6    0                                                       INIT00    407
                     43701                        MX7    1                                                       INIT00    408
          1012  0100000364 +             PACSNP1  RJ     GNC         GET NEXT CHARACTER                          INIT00    409
          1013  0540001016 +                      NZ     B4,PACSNP3  IF SEPARATOR                                INIT00    410
                          6274777703              SB7    X4-60                                                   INIT00    411
          1014  23377                             AX3    X7,B7       SET BIT 2**(59-CHARACTER)                   INIT00    412
                     12663                        BX6    X6+X3                                                   INIT00    413
                          0400001012 +            EQ     PACSNP1                                                 INIT00    414
                                                                                                                 INIT00    415
          1015  20673                    PACSNP2  LX6    59-0                                                    INIT00    416
          1016  5160000000 X             PACSNP3  SA6    CO.SNAP                                                 INIT00    417
                          66700                   SB7    B0                                                      INIT00    418
          1017  0400000065 +                      EQ     PAC.RET     RETURN MAIN LOOP...                         INIT00    419
                                         .TEST    ENDIF                                                          INIT00    420
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    40
        CONTROL STATEMENT ERRORS                                      CSERRS
  
                                        *         ERROR MESSAGES.                                                INIT00    422
                                                                                                                 INIT00    423
                                                                                                                 INIT00    424
          1020  6160002324 +             E.ANSI   CSERR  (ANSI MUST BE 0, T OR F)                                INIT00    425
          1021  0400001254 +                      EQ     MIB4        CONTINUE INITIALIZATION                     INIT00    426
                                                                                                                 INIT00    427
          1022  5160000301 +             E.ARG    SA6    ERR.FLD                                                 FC5A333     5
                          6160002327 +            CSERR  (ARG CANT BE BOTH COMMON AND FIXED)                     FC5A333     6
          1024  0400001260 +                      EQ     MIB7                                                    F1037F5   278
                                                                                                                 INIT00    430
          1025  5160000301 +             E.BGO    SA6    ERR.FLD                                                 FC5A333     7
                          6160002333 +            CSERR  (B=0 AND GO IS INCONSISTENT)                            FC5A333     8
          1027  0400001334 +                      EQ     MIB35                                                   INIT00    432
                                                                                                                 INIT00    433
          1030  5160000301 +             E.CS     SA6    ERR.FLD                                                 FC5A333     9
                          6160002336 +            CSERR  (CS MUST BE USER OR FIXED)                              FC5A333    10
          1032  7160000001                        SX6    1                                                       INIT00    435
                          0400001363 +            EQ     MIB55                                                   INIT00    436
                                                                                                                 INIT00    437
          1033  43600                    E.ID     MX6    0                                                       FC5A155     6
                     5160000301 +                 SA6    ERR.FLD                                                 FC5A155     7
          1034  6160002341 +                      CSERR  (INTERACTIVE DEBUG REQUIRES OPT=0)                      FC5A155     8
          1035  0400001407 +                      EQ     MIB100                                                  FC5A155     9
                                                                                                                 FC5A333    11
          1036  6160002345 +             E.EF     CSERR  (E=0 IS ILLEGAL)                                        INIT00    438
          1037  0400001512 +                      EQ     MIB125                                                  INIT00    439
                                                                                                                 INIT00    440
                                                  IFEQ   TEST,ON,2                                               INIT00    441
          1040  6160002347 +             E.EL     CSERR  (EL MUST BE D, T, W, F, OR C)                           INIT00    442
                                                  SKIP   1                                                       INIT00    443
                                         E.EL     CSERR  (EL MUST BE T, W, F, OR C)                              INIT00    444
          1041  0400001245 +                      EQ     MIB2        CONTINUE INITIALIZATION                     INIT00    445
                                                                                                                 INIT00    446
          1042  6160002353 +             E.ET     CSERR  (ET MUST BE 0, T, W, F, OR C)                           INIT00    447
          1043  0400001316 +                      EQ     MIB22       CONTINUE INITIALIZATION                     INIT00    448
                                                                                                                 FC5A333    12
          1044  6160002357 +             E.LFNC   CSERR  (FILE USE CONFLICT)                                     FC50022     5
          1045  0400001512 +                      EQ     MIB125                                                  FC50022     6
                                                                                                                 FC50022     7
                                                                                                                 FC5A173    20
          1046  6160002362 +             E.IZ     CSERR  (I=0 IS NOT ALLOWED)                                    FC5A173    21
          1047  0400001512 +                      EQ     MIB125                                                  FC5A173    22
                                                                                                                 FC5A173    23
          1050  6160002365 +             E.XZ     CSERR  (X=0 IS NOT ALLOWED)                                    FC5A173    24
          1051  0400001512 +                      EQ     MIB125                                                  FC5A173    25
                                                                                                                 INIT00    449
          1052  7160000000               E.IGS    SX6    0                                                       FC5A333    13
                          5160000301 +            SA6    ERR.FLD                                                 FC5A333    14
          1053  6160002370 +                      CSERR  (ILLEGAL G OPTION SYNTAX)                               FC5A333    15
          1054  0400000065 +                      EQ     PAC.RET                                                 INIT00    451
                                                                                                                 INIT00    452
          1055  7160000000               E.ISS    SX6    0                                                       FC5A333    16
                          5160000301 +            SA6    ERR.FLD                                                 FC5A333    17
          1056  6160002373 +                      CSERR  (ILLEGAL S OPTION SYNTAX)                               FC5A333    18
          1057  0400000065 +                      EQ     PAC.RET                                                 INIT00    454
                                                                                                                 INIT00    455
          1060  6160002376 +             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/05. 19.58.22.      PAGE    41
        CONTROL STATEMENT ERRORS                                      CSERRS
  
          1061  0400001357 +                      EQ     MIB53                                                   INIT00    457
                                                                                                                 INIT00    458
          1062  6160002402 +             E.MD     CSERR  (MD MUST BE 0, T OR F)                                  F1037F5   279
          1063  0400001267 +                      EQ     MIB10                                                   F1037F5   280
                                                                                                                 F1037F5   281
          1064  76611                    E.OPT    =X6    2                                                       INIT00    459
                     54610                        SA6    A1          RESET CO.OPT TO OPT=2                       INIT00    460
                          7160000000              SX6    0                                                       FC5A333    19
          1065  5160000301 +                      SA6    ERR.FLD                                                 FC5A333    20
                          6160002405 +            CSERR  (OPT LEVEL NOT 0,1,2, OR 3)                             INIT00    461
          1067  0400000026 +                      EQ     FTN1                                                    INIT00    462
                                                                                                                 INIT00    463
          1070  5160000301 +             E.PD     SA6    ERR.FLD                                                 FC5A333    21
                          6160002410 +            CSERR  (PD ARGUMENT NOT 6 OR 8)                                FC5A333    22
          1072  0400001374 +                      EQ     MIB72                                                   INIT00    465
                                                                                                                 FC50049     8
          1073  7160000000               E.PL     SX6    0                                                       FC5A333    23
                          5160000301 +            SA6    ERR.FLD                                                 FC5A333    24
          1074  6160002413 +                      CSERR  (PL MUST NOT EXCEED 999999999)                          FC5A333    25
          1075  0400001402 +                      EQ     MIB80                                                   FC50049    10
                                                                                                                 INIT00    466
          1076  5110000725 +             E.PS     SA1    WARN                                                    FC5A426    42
                          10611                   BX6    X1                                                      FC5A426    43
          1077  5160000301 +                      SA6    ERR.FLD     ADD WARN MESSAGE                            FC5A426    44
                          6160002417 +            CSERR  (PAGE SIZE RANGE .GT. 3)                                FC5A426    45
          1101  7160000000                        SX6    0                                                       FC5A426    46
                          5160000301 +            SA6    ERR.FLD                                                 FC5A426    47
          1102  5110000306 +                      SA1    ERR.CNT                                                 FC5A426    48
                          7261777776              SX6    X1-1                                                    FC5A426    49
          1103  54610                             SA6    A1          DONT COUNT IT                               FC5A426    50
                     7160000004                   SX6    4           SET TO LOW LIMIT                            FC5A426    51
          1104  0400001377 +                      EQ     MIB75                                                   INIT00    469
                                                                                                                 INIT00    470
          1105  63260                    E.PW     SB2    X6          SAVE FILE ORDINAL                           FC5A426    52
                     63310                        SB3    X1          NEG. IF VALUE TO LOW                        FC5A426    53
                          5110000725 +            SA1    WARN                                                    FC5A426    54
          1106  10611                             BX6    X1                                                      FC5A426    55
                     5160000301 +                 SA6    ERR.FLD                                                 FC5A426    56
          1107  6160002422 +                      CSERR  (PAGE WIDTH RANGE 50 - 136)                             FC5A426    57
          1110  5110000306 +                      SA1    ERR.CNT                                                 FC5A426    58
                          7261777776              SX6    X1-1                                                    FC5A426    59
          1111  54610                             SA6    A1                                                      FC5A426    60
                     76620                        SX6    B2                                                      FC5A426    61
                          7120000062              SX2    50          LOW LIMIT OF WIDTH                          FC5A426    62
          1112  0730001630 +                      MI     B3,PPW60.1  IF TOO LOW                                  FC5A426    63
                          7120000210              SX2    136         SET TO HIGH LIMIT                           FC5A426    64
          1113  0400001630 +                      EQ     PPW60.1                                                 FC5A426    65
                                                                                                                 INIT00    473
          1114  7160000000               E.S7     SX6    0                                                       FC5A333    29
                          5160000301 +            SA6    ERR.FLD                                                 FC5A333    30
          1115  6160002425 +                      CSERR  (ONLY 7 SYSTEMS TEXTS ALLOWED)                          FC5A333    31
          1116  0400000065 +                      EQ     PAC.RET                                                 INIT00    478
                                                  PURGMAC CSERR                                                  INIT00    479
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          1117  0400401117 +             CFL      SUBR               ...ENTRY/EXIT...                            INIT00    504
                                                                                                                 INIT00    505
          1120  7160150515                        MEMORY SCM,MAX.FL,RCL    GET MAXIMUM FL                        INIT00    506
          1123  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
          1124  5150000000 X                      SA5    CO.RFL                                                  INIT00    514
                          0305001136 +            ZR     X5,CFL5     IF NO RFL ON CONTROL STATEMENT              INIT00    515
          1125  6170000000                        SB7    0           ASSUME OCTAL FOR DXB                        INIT00    516
                          0100000000 X            CALL   DXB         CONVERT REQUESTED FL                        INIT00    517
          1126  0306001127 +                      ZR     X6,CFL3     IF DEFAULT RFL                              INIT00    518
                          63660                   SB6    X6          NEW FL                                      INIT00    519
                                         .TEST    ENDIF                                                          INIT00    520
                                                                                                                 INIT00    521
          1127  5110000000 X             CFL3     SA1    MAX.FL                                                  INIT00    522
                          21136                   AX1    30                                                      INIT00    523
                               63710              SB7    X1                                                      INIT00    524
          1130  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
          1131  20636                             LX6    30                                                      INIT00    531
                     5160000000 X                 SA6    GT1                                                     INIT00    532
          1132  7160150515                        MEMORY SCM,GT1,RCL                                             INIT00    533
          1135  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/05. 19.58.22.      PAGE    43
        COMPILER INITIALIZATION SUBROUTINES                           CFL 
  
                                                                                                                 INIT00    539
          1136  7276777765               CFL5     SX7    X6-FLSZ     LEAVE 10 WORD SAFETY ZONE                   INIT00    540
                          5170000000 X            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             INIT00    541
          1137  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
          1140  5110000000 X                      SA1    CO.EC                                                   FC5A348    17
                          0301001117 +            ZR     X1,EXIT.    IF NO OPT=2 LCM REQUIRED                    FC5A348    18
          1141  43635                             MX6    29          (-1, BITS 50-30)                            FC5A348    19
                     5160000000 X                 SA6    GT1         MEMORY REQUEST WORD                         FC5A348    20
          1142  7160150515                        MEMORY LCM,GT1,RCL                                             FC5A348    21
          1146  5110000000 X                      SA1    GT1                                                     FC5A348    22
                          21136                   AX1    30                                                      FC5A348    23
                               10611              BX6    X1                                                      FC5A348    24
          1147  0311001117 +                      NZ     X1,EXIT.    IF LCM AVAILABLE                            FC5A348    25
                          5160000000 X            SA6    CO.EC       OTHERWISE, TURN OFF                         FC5A348    26
          1150  0400001117 +                      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
          1151  0400401151 +             CFN      SUBR               ...ENTRY/EXIT...                            INIT00    599
          1152  0302001151 +                      ZR     X2,EXIT.    IF EMPTY TABLE ENTRY, DONE...               INIT00    600
                          43700                   MX7    0                                                       INIT00    601
                               73320              SX3    X2          FET/FIT ADDRESS                             INIT00    602
          1153  0306001154 +                      ZR     X6,CFN2     IF CLEARING NAME                            INIT00    603
                          36763                   IX7    X6+X3       42/NEW NAME, 18/FET OR FIT ADDRESS          INIT00    604
          1154  54720                    CFN2     SA7    A2          UPDATE TABLE                                INIT00    605
                                                                                                                 INIT00    606
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    44
        COMPILER INITIALIZATION SUBROUTINES                           CFN 
  
                                         .RM      IFEQ   CP#RM,0     IF CIO I/O                                  INIT00    607
                     0306001157 +                 ZR     X6,CFN3     IF NAME TO BE CLEARED                       INIT00    608
                               53320              SA3    X2          (X3) = FET WORD 1                           INIT00    609
          1155  7170000002                        SX7    2                                                       INIT00    610
                          11373                   BX3    X7*X3       EXTRACT FILE MODE BIT                       INIT00    611
          1156  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
          1157  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
                     0400001151 +                 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
          1160  0400401160 +             MIA      SUBR               ...ENTRY/EXIT...                            INIT00    644
                                                                                                                 INIT00    645
                                        **        SAVE HHA                                                       INIT00    646
                                                                                                                 INIT00    647
          1161  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
          1162  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
          1163  5160000000 X                      SA6    CP.AFLS                                                 INIT00    657
                          5170000000 X            SA7    CP.AFLL     SAVE FOR *COMPASS*                          INIT00    658
          1164  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/05. 19.58.22.      PAGE    45
        COMPILER INITIALIZATION SUBROUTINES                           MIA 
  
          1165  5170000000 X                      SA7    CP.ILFL                                                 FC5A119    28
                          46000                   NO                                                             INIT00    661
                               20636              LX6    30                                                      INIT00    662
          1166  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
                          5110000000              SA1    RA.SSW                                                  INIT00    676
          1167  20161                             LX1    59-5-5                                                  INIT00    677
                     0321001171 +                 PL     X1,MIA2     IF SWITCH 5 IS OFF                          INIT00    678
                                                                                                                 INIT00    679
                                         #OS      IFNE   .OS,2,1                                                 FC5A158A  386
          1170  0100000000 X             INIT00   BREAK                                                          INIT00    680
                                                                                                                 INIT00    681
          1171                           MIA2     BSS    0                                                       INIT00    682
          1171  20173                             LX1    10-5-6                                                  INIT00    683
                     0331001177 +                 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
          1177                           MIA4     BSS    0                                                       INIT00    688
                                                                                                                 INIT00    689
                                                                                                                 INIT00    690
                                        **        INSERT DATE AND TIME IN HEADER LINE                            INIT00    691
                                                                                                                 INIT00    692
          1177  7160241115                        DATE   TL.DATE                                                 INIT00    693
          1202  7160241115                        CLOCK  TL.TIME                                                 INIT00    694
                                                                                                                 INIT00    695
                                        *         INSERT DATE AND TIME IN ERR-LIST HEADER.                       INIT00    696
                                                                                                                 INIT00    697
          1205  5110000000 X                      SA1    TL.DATE                                                 INIT00    698
                          5120000000 X            SA2    TL.TIME                                                 INIT00    699
          1206  10611                             BX6    X1                                                      INIT00    700
                     22702                        LX7    X2                                                      INIT00    701
                          5061000000 X            SA6    A1+ERFO                                                 F1039     202
          1207  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
          1210  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/05. 19.58.22.      PAGE    46
        COMPILER INITIALIZATION SUBROUTINES                           MIA 
  
          1211  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
          1212  0331001214 +                      MI     X1,MIA6     IF FTN LOADED FROM LIBRARY FILE             INIT00    720
                          7170002040              SX7    2040B       CLEAR LIBRARY BIT                           INIT00    721
          1213  20744                             LX7    36                                                      INIT00    722
                     5170000000 X                 SA7    FTNLDR      RESET LOAD REQUEST WORD                     INIT00    723
          1214  5130002431 +             MIA6     SA3    =0L"FTNMAIN"      (X3) = STANDARD SYSTEM LIBRARY NAME   INIT00    724
                          11662                   BX6    X6*X2                                                   INIT00    725
                               37263              IX2    X6-X3                                                   INIT00    726
          1215  0302001216 +                      ZR     X2,MIA8     IF USER DID NOT CHANGE NAME                 INIT00    727
                          5160000000 X            SA6    FTNLFN      SAVE FOR *LOVER* CALLS                      INIT00    728
          1216                           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
          1216  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
          1220  7160032015                        GETLC  CO.DBID                                                 INIT00    740
          1224  5110000000 X                      SA1    CO.DBID                                                 INIT00    741
                          43701                   MX7    1                                                       INIT00    742
                               20130              HX1    DC.FID      EXTRACT VALUE OF SWITCH                     INIT00    743
          1225  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
          1226  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
          1227  7211777774                        SX1    X1-3                                                    INIT00    757
                          0331001231 +            MI     X1,MIA10    IF JOT LESS THAN 3 (BATCH)                  INIT00    758
          1230  7170000001                        SX7    1           JOT FOR TERMINAL JOB                        INIT00    759
          1231  5170000000 X             MIA10    SA7    JOT         STORE JOB ORIGIN TYPE                       INIT00    760
                          0400001160 +            EQ     EXIT.       DONE...                                     INIT00    761
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          1232  0400401232 +             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
          1233  5110000000 X             MIB0     SA1    CO.EL       ERROR LEVEL (ALPHABETIC)                    F1037F5   299
                          10711                   BX7    X1                                                      FC5A333    32
                               20766              LX7    -CHAR                                                   FC5A333    33
          1234  5170000301 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    34
                          7160000006              SX6    EL=C                                                    INIT00    785
          1235  7231777774                        SX3    X1-1RC                                                  INIT00    786
                          0303001244 +            ZR     X3,MIB1     IF EL=CATISTROPHIC                          INIT00    787
          1236  7266777776                        =X6    X6-EL=C+EL=F                                            INIT00    788
                          7231777771              SX3    X1-1RF                                                  INIT00    789
          1237  0303001244 +                      ZR     X3,MIB1     IF EL=FATAL                                 INIT00    790
                          7266777776              =X6    X6-EL=F+EL=W                                            INIT00    791
          1240  7231777750                        SX3    X1-1RW                                                  INIT00    792
                          0303001244 +            ZR     X3,MIB1     IF EL=WARNING                               INIT00    793
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    48
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1241  7266777776                        =X6    X6-EL=W+EL=T                                            INIT00    794
                          7231777753              SX3    X1-1RT                                                  INIT00    795
                                                                                                                 INIT00    796
                                         .T       IFEQ   TEST,ON                                                 INIT00    797
          1242  0303001244 +                      ZR     X3,MIB1     IF EL=TRIVIAL                               INIT00    798
                          7266777776              =X6    X6-EL=T+EL=D                                            INIT00    799
          1243  7231777773                        SX3    X1-1RD                                                  INIT00    800
                                         .T       ENDIF                                                          INIT00    801
                                                                                                                 INIT00    802
                          0313001040 +            NZ     X3,E.EL     IF EL= IS IN ERROR                          INIT00    803
                                                                                                                 FC5A333    35
          1244  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
          1245  5110000000 X             MIB2     SA1    CO.ANSI     ANSI OPTION (ALPHANUMERIC)                  INIT00    809
                          10711                   BX7    X1                                                      FC5A333    36
                               20766              LX7    -CHAR                                                   FC5A333    37
          1246  5170000301 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    38
                          76600                   =X6    OFF                                                     INIT00    810
          1247  7231777744                        SX3    X1-1R0                                                  INIT00    811
                          0303001253 +            ZR     X3,MIB3     IF ANSI=0 (OFF)                             INIT00    812
          1250  7160000003                        =X6    EL=T                                                    INIT00    813
                          7231777753              SX3    X1-1RT                                                  INIT00    814
          1251  0303001253 +                      ZR     X3,MIB3     IF ANSI=T                                   INIT00    815
                          7160000005              =X6    EL=F                                                    INIT00    816
          1252  7231777771                        SX3    X1-1RF                                                  INIT00    817
                          0313001020 +            NZ     X3,E.ANSI   IF ANSI= IN ERROR                           INIT00    818
                                                                                                                 FC5A333    39
          1253  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
          1254  5110000000 X             MIB4     SA1    CO.QC                                                   INIT00    824
                          0301001256 +            ZR     X1,MIB5     IF QC OPTION OFF                            INIT00    825
          1255  13666                             BX6    OFF                                                     INIT00    826
                     5160000713 +                 SA6    CO.B        CLEAR BINARY OUTPUT FILE NAME               INIT00    827
                                                                                                                 INIT00    828
                                        **        RESOLVE ANY CONFLICT IN ARG=COMMON/FIXED.                      INIT00    829
                                                                                                                 INIT00    830
          1256  5110000000 X             MIB5     SA1    CO.ARGC                                                 INIT00    831
                          5120000000 X            SA2    CO.ARGF                                                 INIT00    832
          1257  43600                             MX6    0                                                       FC5A333    40
                     11112                        BX1    X1*X2                                                   INIT00    833
                          0311001022 +            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
          1260  5110000000 X             MIB7     SA1    CO.MD       MD OPTION (ALPHANUMERIC)                    F1037F5   303
                          10711                   BX7    X1                                                      FC5A333    41
                               20766              LX7    -CHAR                                                   FC5A333    42
          1261  5170000301 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    43
                          76600                   =X6    OFF                                                     F1037F5   304
          1262  7231777744                        SX3    X1-1R0                                                  F1037F5   305
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    49
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                          0303001266 +            ZR     X3,MIB9     IF MD = 0  (OFF)                            F1037F5   306
          1263  7160000003                        =X6    EL=T                                                    F1037F5   307
                          7231777753              SX3    X1-1RT                                                  F1037F5   308
          1264  0303001266 +                      ZR     X3,MIB9     IF MD = T                                   F1037F5   309
                          7160000005              =X6    EL=F                                                    F1037F5   310
          1265  7231777771                        SX3    X1-1RF                                                  F1037F5   311
                          0313001062 +            NZ     X3,E.MD     IF MD= IN ERROR                             F1037F5   312
                                                                                                                 F1037F5   313
          1266  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
          1267                           MIB10    BSS                                                            INIT00    838
          1267  5110000716 +                      SA1    CO.L                                                    INIT00    839
                          0311001274 +            NZ     X1,MIB12    IF L NOT 0                                  INIT00    840
          1270  13666                             BX6    OFF                                                     INIT00    841
                     5160000000 X                 SA6    CP.LSTF                                                 INIT00    842
          1271  5160000000 X                      SA6    CO.LOA                                                  INIT00    843
                          5160000000 X            SA6    CO.LOM                                                  INIT00    844
          1272  5160000000 X                      SA6    CO.LOO                                                  INIT00    845
                          5160000000 X            SA6    CO.LOR                                                  INIT00    846
          1273  5160000000 X                      SA6    CO.LOS                                                  INIT00    847
                          0400001275 +            EQ     MIB20                                                   INIT00    848
                                                                                                                 INIT00    849
          1274  7160000001               MIB12    SX6    1                                                       INIT00    850
                          5160000000 X            SA6    CP.LSTF                                                 INIT00    851
                                                                                                                 INIT00    852
                                                                                                                 INIT00    853
                                        **        SET OVERLAY MODE                                               INIT00    854
                                                                                                                 INIT00    855
          1275  5110000000 X             MIB20    SA1    CO.OPT                                                  INIT00    856
                          5120000000 X            SA2    CO.LOO                                                  INIT00    857
          1276  5130000000 X                      SA3    CO.LOM                                                  INIT00    858
                          5140000000 X            SA4    CO.LOA                                                  INIT00    859
          1277  5150000000 X                      SA5    CO.LOR                                                  INIT00    860
                          12612                   BX6    X1+X2                                                   INIT00    861
                               12663              BX6    X6+X3                                                   INIT00    862
          1300  12664                             BX6    X6+X4                                                   INIT00    863
                     12665                        BX6    X6+X5                                                   INIT00    864
                          5160000042 +            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
          1301  5110000000 X                      SA1    CO.ET       ERROR TERMINATION (ALPHANUMERIC)            INIT00    871
                          43700                   MX7    OFF                                                     INIT00    872
                               76600              =X6    OFF                                                     INIT00    873
          1302  7231777744                        SX3    X1-1R0                                                  INIT00    874
                          0303001313 +            ZR     X3,MIB21    IF ET=0 (OFF)                               INIT00    875
          1303  10611                             BX6    X1                                                      FC5A333    44
                     20666                        LX6    -CHAR                                                   FC5A333    45
                          5160000301 +            SA6    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    46
          1304  43701                             MX7    ON                                                      INIT00    876
                     7160000006                   SX6    EL=C                                                    INIT00    877
          1305  7231777774                        SX3    X1-1RC                                                  INIT00    878
                          0303001313 +            ZR     X3,MIB21    IF ET=CATASTROPHIC                          INIT00    879
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    50
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1306  7266777776                        SX6    X6-EL=C+EL=F                                            INIT00    880
                          7231777771              SX3    X1-1RF                                                  INIT00    881
          1307  0303001313 +                      ZR     X3,MIB21    IF ET=FATAL                                 INIT00    882
                          7266777776              SX6    X6-EL=F+EL=W                                            INIT00    883
          1310  7231777750                        SX3    X1-1RW                                                  INIT00    884
                          0303001313 +            ZR     X3,MIB21    IF ET=WARNING                               INIT00    885
          1311  7266777776                        SX6    X6-EL=W+EL=T                                            INIT00    886
                          7231777753              SX3    X1-1RT                                                  INIT00    887
          1312  0313001042 +                      NZ     X3,E.ET     IF ET= IS IN ERROR                          INIT00    888
                                                                                                                 FC5A333    47
          1313  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
          1314  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
          1315  54710                             SA7    A1                                                      INIT00    896
                                                                                                                 INIT00    897
                                        **        CHANGE FILE NAMES.                                             INIT00    898
                                                                                                                 INIT00    899
          1316                           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
          1326  5120000000 X                      SA2    CO.OPT                                                  INIT00    913
                          7222777774              SX2    X2-3                                                    INIT00    914
          1327  0312001331 +                      NZ     X2,MIB30    IF OPT .NE. 3                               INIT00    915
                          76610                   =X6    ON                                                      INIT00    916
          1330  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
          1331                           MIB30    BSS                                                            INIT00    924
          1331  5120000000 X                      SA2    CO.GO                                                   INIT00    925
                          0302001336 +            ZR     X2,MIB40    IF GO NOT SELECTED                          INIT00    926
          1332  5130000000 X                      SA3    FV.LGO                                                  INIT00    927
                          0313001334 +            NZ     X3,MIB35    IF B SELECTED                               INIT00    928
          1333  7160000000                        SX6    0                                                       FC5A333    48
                          0400001025 +            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/05. 19.58.22.      PAGE    51
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1334  5120000000 X             MIB35    SA2    FV.LGO                                                  INIT00    935
                          43152                   MX1    7*CHAR                                                  INIT00    936
                               11612              BX6    X1*X2                                                   INIT00    937
          1335  5160000000 X                      SA6    CO.GO       UPDATE GO NAME                              INIT00    938
                                                                                                                 INIT00    939
                                                                                                                 INIT00    940
                                        **        SET UP DB=ER OPTION.                                           INIT00    941
                                                                                                                 INIT00    942
          1336                           MIB40    BSS                                                            INIT00    943
          1336  7100000522                        SX0    2RER                                                    INIT00    944
                          5110000000 X            SA1    CO.DBER                                                 INIT00    945
          1337  37201                             IX2    X0-X1                                                   INIT00    946
                     0302001341 +                 ZR     X2,MIB41    IF DB=ER NOT ON CONTROL STATEMENT           INIT00    947
                               10611              BX6    X1                                                      INIT00    948
          1340  0400001346 +                      EQ     MIB43       SET ER OPTION                               INIT00    949
                                                                                                                 INIT00    950
          1341  5120000000 X             MIB41    SA2    CO.OPT                                                  INIT00    951
                          6272001343 +            SB7    X2+MIB42                                                INIT00    952
          1342  0277000000                        JP     B7                                                      INIT00    953
                                                                                                                 INIT00    954
          1343                           MIB42    BSS                                                            INIT00    955
          1343  43601                   +         MX6    "BV.DBER0"  OPT=0                                       INIT00    956
                     0400001346 +                 EQ     MIB43                                                   INIT00    957
          1344  43600                   +         MX6    "BV.DBER1"  OPT=1                                       INIT00    958
                     0400001346 +                 EQ     MIB43                                                   INIT00    959
          1345  43600                   +         MX6    "BV.DBER2"  OPT=2                                       INIT00    960
                                                                                                                 INIT00    961
          1346  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
          1347                           MIB50    BSS                                                            INIT00    967
          1347  5110000000 X                      SA1    CO.LCM                                                  INIT00    968
                          10711                   BX7    X1                                                      FC5A333    49
                               20766              LX7    -CHAR                                                   FC5A333    50
          1350  5170000301 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    51
                          7160000001              SX6    1                                                       INIT00    969
          1351  7231777766                        SX3    X1-1RI                                                  INIT00    970
                          0303001355 +            ZR     X3,MIB51    IF I                                        INIT00    971
          1352  13666                             BX6    0                                                       INIT00    972
                     7231777773                   SX3    X1-1RD                                                  INIT00    973
          1353  0303001355 +                      ZR     X3,MIB51    IF D                                        INIT00    974
                          7160777776              SX6    -1                                                      INIT00    975
          1354  7231777770                        SX3    X1-1RG                                                  INIT00    976
                          0313001060 +            NZ     X3,E.LCM    IF NOT G                                    INIT00    977
                                                                                                                 FC5A333    52
          1355  5160000000 X             MIB51    SA6    CO.LCM      STORE CONVERTED VALUE                       INIT00    978
                          63261                   =B2    X6+1                                                    INIT00    980
                               43601              MX6    ON                                                      INIT00    981
          1356  0520001357 +                      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
          1357  5110000000 X             MIB53    SA1    CO.CS                                                   INIT00    987
                          5120002432 +            SA2    =4LUSER                                                 INIT00    988
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    52
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1360  76610                             =X6    1                                                       INIT00    989
                     37312                        IX3    X1-X2                                                   INIT00    990
                          0303001363 +            ZR     X3,MIB55    IF USER                                     INIT00    991
          1361  5120002306 +                      SA2    =5LFIXED                                                INIT00    992
                          76600                   =X6    0                                                       INIT00    993
                               37312              IX3    X1-X2                                                   INIT00    994
          1362  0313001030 +                      NZ     X3,E.CS     IF NOT FIXED                                INIT00    995
                                                                                                                 FC5A333    53
          1363  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
          1364  5140000000 X             MIB70    SA4    CP.PAGE                                                 INIT00   1001
                          43701                   MX7    1                                                       INIT00   1002
                               13774              BX7    X7-X4                                                   INIT00   1003
          1365  54740                             SA7    A4                                                      INIT00   1004
                                                                                                                 INIT00   1005
                                                                                                                 INIT00   1006
                                                                                                                 INIT00   1007
                                        **        CONVERT PD AND PS OPTIONS.                                     INIT00   1008
                                                                                                                 INIT00   1009
                     5140000717 +                 SA4    CO.PD                                                   INIT00   1010
          1366  7110000023                        SX1    1RS                                                     FC5A426    66
                          7130000006              SX3    6                                                       INIT00   1013
          1367  37243                             IX2    X4-X3                                                   INIT00   1014
                     0302001373 +                 ZR     X2,MIB71    IF PD = 6                                   INIT00   1015
          1370  7110000024                        SX1    1RT                                                     INIT00   1016
                          7130000010              SX3    8                                                       INIT00   1017
          1371  37243                             IX2    X4-X3                                                   INIT00   1018
                     43600                        MX6    0                                                       FC5A333    54
                          0302001373 +            ZR     X2,MIB71    IF PD = 8                                   INIT00   1019
          1372  0400001070 +                      EQ     E.PD                                                    INIT00   1020
                                                                                                                 INIT00   1021
          1373  20166                    MIB71    LX1    -CHAR                                                   INIT00   1022
                     10611                        BX6    X1                                                      INIT00   1023
                          5160000000 X            SA6    CP.PD                                                   INIT00   1024
          1374  5120000000 X             MIB72    SA2    CO.PS                                                   FC5A426    67
                          10622                   BX6    X2                                                      INIT00   1026
                               14766              BX7    -X6         FOR COMPASS                                 FC5A426    68
          1375  7266777774                        SX6    X6-3        ALLOW FOR HEADER (FTN5)                     FC5A107    15
                          0306001076 +            ZR     X6,E.PS     IF PS .LT. 4                                FC5A282     5
          1376  0336001076 +                      MI     X6,E.PS     IF PS .LT. 4                                INIT00   1038
                                                                                                                 FC5A333    57
          1377  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
          1400  5110000000 X                      SA1    CO.LL                                                   FC50049    13
                          5120002433 +            SA2    =999999999                                              FC50049    14
          1401  37621                             IX6    X2-X1                                                   FC50049    15
                     0336001073 +                 MI     X6,E.PL     IF PL GT 999999999                          FC50049    16
                                                                                                                 FC50049    17
          1402                           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/05. 19.58.22.      PAGE    53
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                                                                                                                 INIT00   1043
          1402  5110000000 X                      SA1    CO.DOLG                                                 INIT00   1044
                          5120000000 X            SA2    CO.DOOT                                                 INIT00   1045
          1403  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
          1404  5120000000 X                      SA2    CO.OPT                                                  FC5A155    13
                          0302001407 +            ZR     X2,MIB100   IF OPT=0                                    FC5A155    14
          1405  5120000000 X                      SA2    CO.DBID                                                 FC5A155    15
                          5130000000 X            SA3    CO.DBST                                                 FC5A155    16
          1406  12323                             BX3    X2+X3                                                   FC5A155    17
                     0313001033 +                 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
          1407                           MIB100   BSS                                                            INIT00   1054
          1407  5130000000 X                      SA3    TL.CSOP                                                 F1039     204
                          5120000000 X            SA2    CO.OPT      OPTIMIZATION LEVEL                          INIT00   1056
          1410  5110000000 X                      SA1    CO.UO                                                   INIT00   1057
                          0301001412 +            ZR     X1,MIB102   IF OPT = 3 NOT SELECTED                     INIT00   1058
          1411  7120000003                        SX2    3                                                       INIT00   1059
                                                                                                                 INIT00   1060
          1412  7110000033               MIB102   SX1    1R0                                                     INIT00   1061
                          43006                   MX0    1*CHAR                                                  F1039     205
                               36112              IX1    X1+X2                                                   INIT00   1062
          1413  20044                             LX0    6*CHAR                                                  F1039     206
                     20136                        LX1    5*CHAR                                                  INIT00   1063
                          15330                   BX3    -X0*X3                                                  F1039     207
                               12631              BX6    X3+X1                                                   INIT00   1064
          1414  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
          1415  43101                             MX1    1                                                       INIT00   1073
                     6120000100                   SB2    1S6                                                     INIT00   1074
                               23121              AX1    B2                                                      INIT00   1075
          1416  7130000006                        SX3    6                                                       INIT00   1076
                          0331001423 +            MI     X1,MIB112   IF MODEL 76 / 7600                          INIT00   1077
          1417  7160000220                        SX6    0220B                                                   INIT00   1078
                          6120001423 +            SB2    MIB112                                                  INIT00   1079
          1420  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
          1421  5160001422 +            +         SA6    *+1         STORE *JP B2* (BOTH UPPER AND LOWER)        FC5A464    13
                          7130000003              SX3    3                                                       INIT00   1082
          1422  7130000004              +         SX3    4           EXECUTE IF MODEL 74/6600, JUMP IF 73/6400   INIT00   1083
                                                                                                                 FC5A333    58
          1423  5110000000 X             MIB112   SA1    TL.CPU        *  70/7X   *                              INIT00   1084
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    54
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                          20344                   LX3    6*6                                                     INIT00   1085
                               36613              IX6    X1+X3                                                   INIT00   1086
          1424  54610                             SA6    A1          CURRENT CPU TYPE TO TITLE LINE              INIT00   1087
                     5066000000 X                 SA6    A6+ERFO     INSERT TYPE INTO ERROR LIST HEADER          F1039     209
          1425  7140004233                        SX4    2R70                                                    INIT00   1089
                          20460                   LX4    8*CHAR                                                  INIT00   1090
                               20314              LX3    2*CHAR                                                  INIT00   1091
          1426  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
          1427  5110000000 X                      SA1    TL.TIME                                                 INIT00   1098
                          7120000055              SX2    1R                                                      INIT00   1099
          1430  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
          1431  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
                          5110000042 +            SA1    FTNOVM                                                  INIT00   1112
          1432  0311001441 +                      NZ     X1,MIB120   IF LONG MODE                                INIT00   1113
                          7170000401              SX7    Z.INSB      INPUT BUFFER LENGTH                         INIT00   1114
          1433  7160000401                        SX6    Z.OUTSB     OUTPUT BUFFER LENGTH                        INIT00   1115
                          20722                   LX7    18                                                      INIT00   1116
                               20622              LX6    18                                                      INIT00   1117
          1434  5170000005 X                      SA7    F.IN+I.CBSET                                            INIT00   1118
                          5160000005 X            SA6    F.OUT+I.CBSET                                           INIT00   1119
          1435  6120000401 X                      SB2    IBUF+Z.INSB                                             INIT00   1120
                          7120000000 X            SETFIL FILE=F.OUT,MODE=INIT,FWA=B2                             INIT00   1121
          1437  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
          1441                           MIB120   BSS    0                                                       FC50022    21
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    55
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1441  7160000000                        SX6    0                                                       FC5A333    59
                          5160000301 +            SA6    ERR.FLD     CLEAR FOR DIAGNOSTICS                       FC5A333    60
          1442  5110000713 +                      CLFN   B,I                                                     FC50022    22
          1445  5110000713 +                      CLFN   B,L                                                     FC50022    23
          1450  5110000713 +                      CLFN   B,E                                                     FC50022    24
          1453  5110000715 +                      CLFN   I,L                                                     FC50022    25
          1456  5110000715 +                      CLFN   I,E                                                     FC50022    26
          1461  5110000000 X                      CLFN   X,B                                                     FC50022    27
          1464  5110000000 X                      CLFN   X,L                                                     FC50022    28
          1467  5110000000 X                      CLFN   X,I                                                     FC50022    29
          1472  5110000000 X                      CLFN   X,E                                                     FC50022    30
          1475  5110000716 +                      SA1    CO.L                                                    FC50022    31
                          5120000714 +            SA2    CO.E                                                    INIT00   1128
          1476  0302001036 +                      ZR     X2,E.EF     E=0 IS ILLEGAL                              INIT00   1129
                          5130000715 +            SA3    CO.I                                                    FC5A173    26
          1477  0303001046 +                      ZR     X3,E.IZ     E=0 ILLEGAL                                 FC5A173    27
                          5130000000 X            SA3    CP.XTXT                                                 FC5A173    28
          1500  0303001050 +                      ZR     X3,E.XZ     X=0 ILLEGAL                                 FC5A173    29
                          13112                   BX1    X1-X2                                                   INIT00   1130
                               76610              =X6    1                                                       INIT00   1131
          1501  0301001512 +                      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
          1502  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
          1503  5021777773                        SA2    A1-I.CBSET+I.FIRST                                      INIT00   1137
                          73220                   SX2    X2          X2 = FWA OF LFILE BUFFER                    INIT00   1138
                               10711              BX7    X1                                                      INIT00   1139
          1504  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
          1505  20722                             LX7    18                                                      INIT00   1144
                     5160000005 X                 SA6    F.OUT+I.CBSET                                           INIT00   1145
          1506  5170000005 X                      SA7    F.ERRS+I.CBSET                                          INIT00   1146
                          7120000000 X            SETFIL FILE=F.ERRS,MODE=INIT,FWA=X5                            INIT00   1147
          1510  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
          1512  5110000000 X             MIB125   SA1    CO.OPT                                                  INIT00   1154
                          0311001520 +            NZ     X1,MIB130   IF CCG SELECTED                             INIT00   1155
          1513  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
          1514  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
          1515  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/05. 19.58.22.      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
          1516  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
          1517  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
          1520                           MIB130   BSS                                                            INIT00   1182
                                                                                                                 INIT00   1183
                                        *         PROCESS PW OPTION FOR L AND E FILES.                           INIT00   1184
                                                                                                                 INIT00   1185
          1520  5110000000 X                      SA1    CO.PW                                                   INIT00   1186
                          0311001523 +            NZ     X1,MIB135   IF PW OPTION ON CONTROL STATEMENT           FC50982    10
          1521  5110000730 +                      SA1    GP.JPW      INSTALLATION JOB DEFAULT                    FC50982    11
                          10611                   BX6    X1                                                      FC50982    12
          1522  5160000000 X                      SA6    CO.PW       SET JOB DEFAULT                             FC50982    13
                          0400001524 +            EQ     MIB136                                                  FC50982    14
          1523  7160000001               MIB135   SX6    1           FLAG FOR PW OPTION ON CONTROL CARD          FC50982    15
                          5160001654 +            SA6    CO.PWU                                                  FC50982    16
                                                                                                                 FC50982    17
          1524  5110000000 X             MIB136   SA1    CO.PW                                                   FC50982    18
                          10611                   BX6    X1                                                      INIT00   1187
                               54611              =A6    A1+1        CO.PWE = CO.PW                              INIT00   1188
          1525  76600                             =X6    0                                                       INIT00   1189
                     0100001610 +                 RJ     PPW         PROCESS PW (L=FILE)                         INIT00   1190
          1526  5110000000 X                      SA1    ENOT=L                                                  INIT00   1191
                          0301001530 +            ZR     X1,MIB140   IF NO UNIQUE EFILE                          INIT00   1192
          1527  76610                             =X6    1                                                       INIT00   1193
                     0100001610 +                 RJ     PPW         PROCESS PW (E=FILE)                         INIT00   1194
                                                                                                                 INIT00   1195
                                                                                                                 INIT00   1196
                                        *         OPEN INPUT AND OUTPUT FILES (SCOPE 2 ONLY).                    INIT00   1197
                                                                                                                 INIT00   1198
          1530                           MIB140   BSS                                                            INIT00   1199
                                                                                                                 INIT00   1200
                                        **        CHECK FOR CONTROL STATEMENT ERRORS.                            FC5A158A  392
                                                                                                                 FC5A158A  393
          1530  5110000306 +                      SA1    ERR.CNT                                                 FC5A158A  394
                          0301001534 +            ZR     X1,MIB140A  IF NO ERRORS                                FC5A158A  395
          1531  7110002434 +                      MESSAGE (=C/**  NO COMPILATION./),,RCL                         FC5A158A  396
          1533  0400000000 X                      EQ     ABTFTN      ABORT                                       FC50314     9
                                                                                                                 FC5A158A  398
          1534                           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/05. 19.58.22.      PAGE    57
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                                        *         IF *REW* OPTION IS ON, REWIND INPUT, OUTPUT, AND ERROR FILES.  INIT00   1208
                                                                                                                 INIT00   1209
          1534  5110000000 X                      SA1    CO.REWI                                                 INIT00   1210
                          0321001540 +            PL     X1,MIB142   NO REW OF I                                 INIT00   1211
                                                                                                                 FC5A433     6
                                         .RM      IFEQ   CP#RM,0                                                 FC5A433     7
          1535  7120000000 X                      SX2    F.IN                                                    FC50735     5
                          0100002101 +            RJ     STF         SEE IF INPUT FILE CONNECTED                 FC50735     6
          1536  0306001540 +                      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
          1540  5110000000 X             MIB142   SA1    CO.REWL                                                 INIT00   1213
                          0321001544 +            PL     X1,MIB143   IF NO REW OF L                              INIT00   1214
                                                                                                                 FC5A433    11
                                         .RM      IFEQ   CP#RM,0                                                 FC5A433    12
          1541  7120000000 X                      SX2    F.OUT                                                   FC50735     9
                          0100002101 +            RJ     STF         SEE IF OUTPUT FILE CONNECTED                FC50735    10
          1542  0306001544 +                      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
          1544  5110000000 X             MIB143   SA1    CO.REWE                                                 INIT00   1216
                          5120000000 X            SA2    ENOT=L                                                  FC5A173    30
          1545  0302001551 +                      ZR     X2,MIB144   IF NO UNIQUE E-FILE                         FC5A173    31
                          0321001551 +            PL     X1,MIB144   IF NO REW OF E                              INIT00   1217
                                                                                                                 FC5A433    16
                                         .RM      IFEQ   CP#RM,0                                                 FC5A433    17
          1546  7120000000 X                      SX2    F.ERRS                                                  FC50735    13
                          0100002101 +            RJ     STF         SEE IF ERRORS FILE CONNECTED                FC50735    14
          1547  0306001551 +                      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
          1551  5110000000 X             MIB144   SA1    FV.LGO                                                  INIT00   1222
                          0301001555 +            ZR     X1,MIB150   IF B=0                                      INIT00   1223
                                                                                                                 INIT00   1224
                                                  IFNE   CP#RM,0,1                                               INIT00   1225
                                                  OPEN   F.LGO                                                   INIT00   1226
                                                                                                                 INIT00   1227
          1552  5110000000 X                      SA1    CO.REWB                                                 INIT00   1228
                          0321001555 +            PL     X1,MIB150   IF NO REWIND                                INIT00   1229
          1553  7120000000 X                      REWIND F.LGO                                                   INIT00   1230
                                                                                                                 INIT00   1231
                                                                                                                 INIT00   1232
                                        **        IF *SPY* IS SELECTED, SET UP PARAMETER LIST.                   INIT00   1233
                                                                                                                 INIT00   1234
          1555                           MIB150   BSS                                                            INIT00   1235
                                                                                                                 INIT00   1236
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          1555  5110000720 +                      SA1    CO.SPY      SPY LOWER LIMIT                             INIT00   1239
                          0331001576 +            MI     X1,MIB166   IF NO SPY                                   INIT00   1240
          1556  0311001557 +                      NZ     X1,MIB162   IF LOWER LIMIT GIVEN                        INIT00   1241
                          5110000722 +            SA1    SD.SPY      USE SECOND DEFAULT                          INIT00   1242
                                                                                                                 FC5A333    63
          1557  21106                    MIB162   AX1    6           IN HUNDREDS                                 INIT00   1243
                     5120000721 +                 SA2    CO.SPY+1    UPPER LIMIT                                 INIT00   1244
          1560  0312001561 +                      NZ     X2,MIB163   IF UPPER LIMIT GIVEN                        INIT00   1245
                          5120000723 +            SA2    SD.SPY+1    USE SECOND DEFAULT                          INIT00   1246
                                                                                                                 FC5A333    64
          1561  21206                    MIB163   AX2    6           IN HUNDREDS                                 INIT00   1247
                     37321                        IX3    X2-X1       HIGH-LOW                                    INIT00   1248
                          20306                   LX3    6           TIMES 100                                   INIT00   1249
          1562  7140002046                        SX4    Z.BINS      MAX NUMBER OF BINS                          INIT00   1250
                          7233002045              SX3    X3+Z.BINS-1                                             INIT00   1251
          1563  27303                             IX5    X3/X4       BIN WIDTH (NOT POWER OF 2 YET)              INIT00   1252
                               43011              MX0    9                                                       INIT00   1253
          1565  20563                             LX5    59-8                                                    INIT00   1254
                     11505                        BX5    X0*X5                                                   INIT00   1255
                          6160000070              SB6    8+48        POSITION FOR BINWIDTH FIELD                 INIT00   1256
          1566  0305401566 +                      ZR     X5,"BLOWUP" IF BINWIDTH BAD                             INIT00   1257
                                                                                                                 FC5A333    65
          1567  20501                    MIB164   LX5    1                                                       INIT00   1258
                     6166777776                   SB6    B6-1                                                    INIT00   1259
          1570  0325001567 +                      PL     X5,MIB164   IF NOT SET YET                              INIT00   1260
                          47355                   CX3    X5                                                      INIT00   1261
                               63730              SB7    X3                                                      INIT00   1262
          1571  0471001572 +                      EQ     B7,B1,MIB165      IF POWER OF 2                         INIT00   1263
                          6166000001              SB6    B6+1        NEXT POWER OF 2                             INIT00   1264
                                                                                                                 FC5A333    66
          1572  7150000001               MIB165   SX5    1                                                       INIT00   1265
                          22565                   LX5    B6          POSITION BINWIDTH                           INIT00   1266
                               20130              LX1    24          POSITION LOWER                              INIT00   1267
          1573  12715                             BX7    X1+X5                                                   INIT00   1268
                     20214                        LX2    12          POSITION UPPER                              INIT00   1269
                          12772                   BX7    X7+X2                                                   INIT00   1270
          1574  5120002437 +                      SA2    =0LPRNTSPY  NAME OF REPORT GENERATOR                    INIT00   1271
                          5170000000 X            SA7    SPYW        STORE PARAMETER WORD                        INIT00   1272
          1575  10622                             BX6    X2                                                      INIT00   1273
                     5160000000 X                 SA6    CO.GO       POST CALL (SIMULATED GO OPTION)             INIT00   1274
                                                                                                                 FC5A333    67
          1576                           MIB166   BSS                                                            INIT00   1275
                                         .OS      ENDIF                                                          INIT00   1276
                                         .SPY     ENDIF                                                          INIT00   1277
                                                                                                                 INIT00   1286
                                                                                                                 INIT00   1287
                                        **        READ IN FIRST LINE.                                            INIT00   1288
                                                                                                                 INIT00   1289
          1576                           MIB200   BSS                                                            INIT00   1290
                                                  IFEQ   CP#RM,0,2                                               INIT00   1291
          1576  7120000000 X                      RECALL F.IN                                                    INIT00   1292
          1577  7120000000 X                      READ   F.IN        PRIME THE PUMP                              INIT00   1293
          1601  6160000000 X                      READC  F.IN,CP.CARD,16                                         INIT00   1295
          1603  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/05. 19.58.22.      PAGE    59
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1604  0301001232 +                      ZR     X1,EXIT.    IF NOT EOR, EXIT...                         INIT00   1298
                          7110002440 +            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
          1607  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
          1610  0400401610 +             PPW      SUBR                                                           INIT00   1307
          1611  5160001653 +                      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
          1612  5226001655 +                      SA2    PPWB+X6                                                 INIT00   1313
                          0100000000 X            RECALL X2                                                      INIT00   1314
          1613  0100002101 +                      CALL   STF         SEE IF TERMINAL FILE                        INIT00   1315
          1614  5120001653 +                      SA2    PPWA                                                    INIT00   1316
                          5222000000 X            SA2    CO.PW+X2                                                INIT00   1317
          1615  0306001616 +                      ZR     X6,PPW57    IF TTY                                      INIT00   1318
                          0400001625 +            EQ     PPW60       SET JOB DEFAULT                             FC5A426    69
                                                                                                                 INIT00   1322
          1616  5130001654 +             PPW57    SA3    CO.PWU                                                  FC50982    19
                          0313001620 +            NZ     X3,PPW58    IF PW OPTION ON CONTROL STATEMENT           FC50982    20
          1617  7120000000 X                      SX2    CO.PWT      SET JOB DEFAULT FOR TTY                     FC50982    21
          1620                           PPW58    BSS                                                            FC50982    22
                                                  IFEQ   .OS,1,4     IF OPERATING SYSTEM IS NOS                  FC50982    23
          1620  7232777715                        SX3    X2-50       LOW LIMIT BOUNDARY CHECK                    FC50982    24
                          0313001622 +            NZ     X3,PPW59    IF NOT ON THE LOW BOUNDARY                  FC50982    25
          1621  7120000063                        SX2    51          ALLOW SPACE FOR CARRIAGE RETURN             FC50982    26
          1622  7222777776               PPW59    SX2    X2-1        ADJUST FOR LACK OF CARRIAGE RETURN          FC50982    27
                          7262000001              SX6    X2+1                                                    INIT00   1326
          1623  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
          1624  0400001625 +                      EQ     PPW60                                                   FC50982    28
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          1625  7212777715               PPW60    SX1    X2-50                                                   INIT00   1337
                          0331001105 +            MI     X1,E.PW     IF .LT. 50                                  INIT00   1338
          1626  7212777566                        SX1    X2-137                                                  FC5A174     9
                          0321001105 +            PL     X1,E.PW     IF PW .GE. 137                              FC5A174    10
          1627  0400001633 +                      EQ     PPW60.2                                                 FC51015     7
                                                                                                                 FC51015     8
          1630  10622                    PPW60.1  BX6    X2          (X6) -> DEFAULT LIMIT                       FC51015     9
                     5110001653 +                 SA1    PPWA                                                    FC51015    10
          1631  5261000000 X                      SA6    CO.PW+X1    DEFAULT LIMIT TO CO.PW                      FC51015    11
                          5110000000 X            SA1    CO.PW                                                   FC50982    29
          1632  54611                             =A6    A1+1        MAKE THE ADJUSTMENT FOR E FILE              FC50982    30
                                                                                                                 FC51015    12
          1633  7212777601               PPW60.2  SX1    X2-126                                                  FC51015    13
                          0321001610 +            PL     X1,EXIT.    IF PW .GE. 126                              FC50353    17
                                                                                                                 FC50353    18
          1634  5130001653 +             PPW61    SA3    PPWA                                                    INIT00   1341
                          43014                   MX0    2*CHAR                                                  INIT00   1342
          1635  7110000000 X                      SX1    ERFO                                                    F1039     211
                          5211000001 X            SA1    TL.PNAM+1+X1                                            INIT00   1344
          1636  7160000000 X                      SX6    ERFO                                                    F1039     212
                          0313001642 +            NZ     X3,PPW62     IF ERROR FILE CALL                         INIT00   1346
          1637  5110777776 X                      SA1    O.TTLA-1                                                INIT00   1347
                          5140002444 +            SA4    =2L1         SET FOR PAGE EJECT                         INIT00   1348
          1640  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
          1641  43600                             MX6    0                                                       INIT00   1353
                                                                                                                 INIT00   1354
          1642  5140002444 +             PPW62    SA4    =2L1        SET FOR PAGE EJECT                          FC5A115    43
                          5236000000 X            =A3    O.TTLA+X6                                               FC5A115    44
          1643  15530                             BX5    -X0*X3                                                  FC5A115    45
                     12754                        BX7    X5+X4                                                   FC5A115    46
                          54730                   SA7    A3          ADD CARRIAGE CONTROL TO O.TTLA              FC5A115    47
          1644  7100146315                        SX0    52429                                                   INIT00   1356
                          5216777776 X            SA1    TL.PAGE-1+X6   (X1) = ......PAGE   (.=BLANK(55B))       INIT00   1357
          1645  42320                             IX3    X2*X0                                                   INIT00   1358
                     21323                        AX3    19          (X3) = [PAGE WIDTH/10]                      INIT00   1359
                          7140000012              SX4    10                                                      INIT00   1360
          1646  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
          1647  7140000006                        SX4    CHAR                                                    INIT00   1364
                          42224                   IX2    X2*X4       (X2) = REMAINDER IN BITS                    INIT00   1365
                               10711              BX7    X1          (X7) = PAGE......   (.=BLANK(55B))          INIT00   1366
          1650  20236                             LX2    30                                                      INIT00   1367
                     12632                        BX6    X3+X2                                                   INIT00   1368
                          54710                   SA7    A1                                                      INIT00   1369
          1651  5130001653 +                      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/05. 19.58.22.      PAGE    61
        COMPILER INITIALIZATION SUBROUTINES                           PPW 
  
          1652  0400001610 +                      EQ     EXIT.       DONE...                                     INIT00   1371
                                                                                                                 INIT00   1372
          1653                     1     PPWA     BSS    1                                                       INIT00   1377
          1654                     1     CO.PWU   BSSZ   1                                                       FC50982    31
          1655  00000000000000000000 X   PPWB     CON    F.OUT,F.ERRS                                            INIT00   1378
          1656  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
          1657  0400401657 +             GPP      SUBR               ...ENTRY/EXIT...                            FC5A426    83
          1660  7110000726 +                      GETPAGE GP.PAGE    GET PAGE SIZE PARAMETERS                    FC5A426    84
          1662  5110000726 +                      SA1    GP.PAGE                                                 FC5A426    85
                          43064                   MX0    -8                                                      FC5A426    86
                               21114              AX1    12          POSITION FOR *PW*                           FC5A426    87
          1663  15610                             BX6    -X0*X1                                                  FC5A426    88
                     5160000730 +                 SA6    GP.JPW                                                  FC5A426    90
                               21110              AX1    8           POSITION FOR *PS*                           FC5A426    91
          1664  15610                             BX6    -X0*X1                                                  FC5A426    92
                     5160000000 X                 SA6    CO.PS                                                   FC5A426    93
          1665  5160000727 +                      SA6    GP.JPS                                                  FC5A426    94
                          43070                   MX0    -4                                                      FC5A426    95
                               21110              AX1    8           POSITION FOR *PD*                           FC5A426    96
          1666  15610                             BX6    -X0*X1                                                  FC5A426    97
                     5160000717 +                 SA6    CO.PD                                                   FC5A426    98
          1667  5160000726 +                      SA6    GP.JPD                                                  FC5A426    99
                          7170000023              SX7    1RS         6LPI                                        FC5A426   100
          1670  7266777771                        SX6    X6-6                                                    FC5A426   101
                          0306001672 +            ZR     X6,GPP1     IF 6LPI                                     FC5A426   102
          1671  7170000024                        SX7    1RT         8LPI                                        FC5A426   103
                                                                                                                 FC5A426   104
          1672  20766                    GPP1     LX7    -CHAR                                                   FC5A426   105
                     5170000000 X                 SA7    RS.PD       STORE *RESTORE* PD                          FC5A426   106
          1673  0400001657 +                      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/05. 19.58.22.      PAGE    62
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.
  
          1673                                    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
          1674  0100000000 X             CPM1     RJ     =XSYS=      ISSUE REQUEST                               COMCCPM    39
                                                                                                                 COMCCPM    40
          1675  0000000000               CPM=     PS                 ENTRY/EXIT                                  COMCCPM    41
          1676  43644                             MX6    -24         FORM REQUEST                                COMCCPM    42
                     15116                        BX1    -X6*X1                                                  COMCCPM    43
                          20230                   LX2    24                                                      COMCCPM    44
          1677  7160150065                        SX6    4RCPMP/16                                               COMCCPM    45
                          12121                   BX1    X2+X1                                                   COMCCPM    46
                               20650              LX6    40                                                      COMCCPM    47
          1700  12661                             BX6    X6+X1                                                   COMCCPM    48
                     0400001674 +                 EQ     CPM1                                                    COMCCPM    49
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    63
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                                        COMCCPM 
  
                                 D_D              BASE   *                                                       COMCCPM    51
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCPM    52
                                                  QUAL   *                                                       COMCCPM    53
                                1675 +   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
          1701  0400401701 +             CPV      SUBR               ...ENTRY/EXIT...                            F1039     243
          1702  43600                             MX6    0                                                       F1039     244
                     7130000007                   SX3    7                                                       F1039     245
                                                                                                                 F1039     246
                                        **        CURRENT VALUES OF ROUNDING OPTIONS                             F1039     247
                                                                                                                 F1039     248
          1703  5140000000 X                      IFON   CO.RNDA,CPV2     IF ROUNDING ADDS IS ON                 F1039     249
          1704  10433                             SETOFF 7                ELSE SET CURRENT VALUE TO OFF          F1039     250
                                                                                                                 F1039     251
          1705  5140000000 X             CPV2     IFON  CO.RNDS,CPV4      IF ROUNDING SUBTRACT IS ON             F1039     252
          1706  10433                             SETOFF 4                ELSE SET CURRENT VALUE TO OFF          F1039     253
                                                                                                                 F1039     254
          1707  5140000000 X             CPV4     IFON  CO.RNDM,CPV6      IF ROUNDING MULTIPLY IS ON             F1039     255
          1710  10433                             SETOFF 1                ELSE SET CURRENT VALUE TO OFF          F1039     256
                                                                                                                 F1039     257
          1711  0306001714 +             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/05. 19.58.22.      PAGE    64
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    CPV 
  
          1712  37616                             IX6    X1-X6            MERGE VALUES WITH TEMPLET              F1039     260
                     54610                        SA6    A1                                                      F1039     261
                          5066000000 X            SA6    A6+ERFO          E-LIST                                 F1039     262
          1713  43600                             MX6    0                                                       F1039     263
                                                                                                                 F1039     264
                                        **        CURRENT VALUES OF ROUNDING DIVIDE AND DIRECTIVE SUPPRESSION    F1039     265
                                                                                                                 F1039     266
          1714  5140000000 X             CPV8     IFON   CO.RNDD,CPV10    IF ROUNDING DIVIDE IS ON               F1039     267
          1715  10433                             SETOFF 8                ELSE SET CURRENT VALUE TO OFF          F1039     268
                                                                                                                 F1039     269
          1716  5140000000 X             CPV10    IFON   CO.DS,CPV12      IF DIRECTIVE SUPPRESSION IS ON         F1039     270
          1717  10433                             SETOFF 5                ELSE SET CURRENT VALUE TO OFF          F1039     271
                                                                                                                 F1039     272
          1720  0306001723 +             CPV12    ZR     X6,CPV14         IF VALUES ON                           F1039     273
                          5110000002 X            SA1    TL.CSOP+2                                               F1039     274
          1721  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
          1722  43600                             MX6    0                                                       F1039     278
                                                                                                                 F1039     279
                                        **        CURRENT DO PARAMETER VALUES                                    F1039     280
                                                                                                                 F1039     281
          1723  5140000000 X             CPV14    IFON   CO.DOLG,CPV16    IF DO LOOP TRIP COUNT LESS THEN 131072 F1039     282
          1724  10433                             SETOFF 6                ELSE SET CURRENT VALUE OFF             F1039     283
                                                                                                                 F1039     284
          1725  5140000000 X             CPV16    IFON   CO.DOOT,CPV18    IF ONE TRIP DO LOOPS                   F1039     285
          1726  10433                             SETOFF 0                ELSE SET CURRENT VALUE OFF             F1039     286
                                                                                                                 F1039     287
          1727  0306001731 +             CPV18    ZR     X6,CPV20         IF VALUES ON                           F1039     288
                          5110000001 X            SA1    O.CPV+1                                                 F1039     289
          1730  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
          1731  5140000000 X             CPV20    IFON   CO.ARGC,CPV22    IF NOT COMMON ARGUMENT LISTS           F1039     296
          1732  10433                             SETOFF 2                ELSE SET CURRENT VALUE OFF             F1039     297
          1733  5110000002 X                      SA1    O.CPV+2                                                 F1039     298
                          37616                   IX6    X1-X6            MERGE WITH TEMPLET                     F1039     299
                               54610              SA6    A1                                                      F1039     300
          1734  43600                             MX6    0                                                       F1039     301
                                                                                                                 F1039     302
          1735  5140000000 X             CPV22    IFON   CO.ARGF,CPV24    IF NOT FIXED LENGTH ARGUMENT LISTS     F1039     303
          1736  10433                             SETOFF 4                ELSE SET CURRENT VALUE OFF             F1039     304
          1737  5110000003 X                      SA1    O.CPV+3                                                 F1039     305
                          37616                   IX6    X1-X6            MERGE WITH TEMPLET                     F1039     306
                               54610              SA6    A1                                                      F1039     307
          1740  43600                             MX6    0                                                       F1039     308
                                                                                                                 F1039     309
                                        **        CURRENT COLLATING SEQUENCE VALUE                               F1039     310
                                                                                                                 F1039     311
          1741  5140000000 X             CPV24    IFON   CO.CS,CPV26      IF COLLATING SEQUENCE USER             F1039     312
          1742  5110000004 X                      SA1    O.CPV+4                                                 F1039     313
                          10433                   SETOFF 4                USER COLLATING SEQUENCE IS OFF         F1039     314
                     0400001746 +                 EQ     CPV28                                                   F1039     315
                                                                                                                 F1039     316
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    65
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    CPV 
  
          1744  10433                    CPV26    SETOFF 8                FIXED COLLATING SEQUENCE IS OFF        F1039     317
          1745  5110000000 X                      SA1    O.TA                                                    F1039     318
                                                                                                                 F1039     319
          1746  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
          1747  5140000000 X                      IFON   CO.DBTB,CPV30    IF FULL ERROR TRACEBACK ON             F1039     326
          1750  10433                             SETOFF 8                ELSE SET CURRENT VALUE OFF             F1039     327
                                                                                                                 F1039     328
          1751  5140000000 X             CPV30    IFON   CO.DBSB,CPV32    IF SUBSCRIPT BOUNDS CHECKING IS ON     F1039     329
          1752  10433                             SETOFF 4                ELSE SET CURRENT VALUE OFF             F1039     330
                                                                                                                 F1039     331
          1753  5140000000 X             CPV32    IFON   CO.DBSL,CPV34    IF SUBSTRING LIMITS CHECKING IS ON     F1039     332
          1754  10433                             SETOFF 0                ELSE SET CURRENT VALUE OFF             F1039     333
                                                                                                                 F1039     334
          1755  0306001757 +             CPV34    ZR     X6,CPV36         IF VALUES ON                           F1039     335
                          5110000001 X            SA1    O.TA+1                                                  F1039     336
          1756  37616                             IX6    X1-X6            MERGE VALUES WITH TEMPLET              F1039     337
                     54610                        SA6    A1                                                      F1039     338
                          43600                   MX6    0                                                       F1039     339
                                                                                                                 F1039     340
          1757  5140000000 X             CPV36    IFON   CO.DBER,CPV38    IF OBJECT TIME REPRIEVE OF EXCUTION    F1039     341
                                                                          ERRORS IS ON                           F1039     342
          1760  10433                             SETOFF 6                ELSE SET CURRENT VALUE OFF             F1039     343
                                                                                                                 F1039     344
          1761  5140000000 X             CPV38    IFON   CO.DBID,CPV40    IF INTERACTIVE DEBUG IS ON             F1039     345
          1762  10433                             SETOFF 2                ELSE SET CURRENT VALUE OFF             F1039     346
                                                                                                                 F1039     347
          1763  0306001765 +             CPV40    ZR     X6,CPV42         IF CURRENT VALUES ON                   F1039     348
                          5110000002 X            SA1    O.TA+2                                                  F1039     349
          1764  37616                             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET      F1039     350
                     54610                        SA6    A1                                                      F1039     351
                          43600                   MX6    0                                                       F1039     352
                                                                                                                 F1039     353
          1765  5140000000 X             CPV42    IFON   CO.DBPM,CPV44    IF POST MORTEM DUMP ON                 F1039     354
          1766  10433                             SETOFF 8                ELSE SET CURRENT VALUE OFF             F1039     355
                                                                                                                 F1039     356
          1767  5140000000 X             CPV44    IFON   CO.DBST,CPV46    IF SYMBOL TABLE TO BINARY              F1039     357
          1770  10433                             SETOFF 3                ELSE SET CURRENT VALUE OFF             F1039     358
                                                                                                                 F1039     359
          1771  0306001773 +             CPV46    ZR     X6,CPV48         IF CURRENT VALUES ON                   F1039     360
                          5110000003 X            SA1    O.TA+3                                                  F1039     361
          1772  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
          1773  5110000000 X             CPV48    SA1    CO.LL                                                   F1039     367
                          0100000000 X            CALL   CDD                                                     F1039     368
          1774  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
          1775  21244                             AX2    6*CHAR      0000000XXX                                  FC5A444    51
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    66
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    CPV 
  
                     7160000055                   SX6    1R                                                      FC5A444    52
          1776  5110000000 X                      SA1    CO.AL                                                   FC5A444    53
                          0311002000 +            NZ     X1,CPV50    IF AUTOMATIC LEVEL IS ON                    FC5A444    54
          1777  7160000046                        SX6    1R-                                                     FC5A444    55
          2000  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
          2001  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
          2002  20630                             LX6    4*CHAR      XXXXXX0000                                  FC5A444    63
                     5110002445 +                 SA1    =4R         000000BBBB                                  FC5A444    64
                               12761              BX7    X6+X1       XXXXXXBBBB                                  FC5A444    65
          2003  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
          2004  5212000000 X                      SA1    CO.PW+X2                                                F1039     387
                          7211777601              SX1    X1-126                                                  F1039     388
          2005  0321001701 +                      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
          2006  22702                             LX7    X2          BLANKS                                      F1039     394
                     6120000006                   SB2    6           LOOP CONTROL                                F1039     395
                                                                                                                 F1039     396
          2007  5022777776               CPV52    SA2    A2-1                                                    F1039     397
                          10622                   BX6    X2                                                      F1039     398
                               67221              SB2    B2-B1                                                   F1039     399
          2010  54621                             SA6    A2+B1                                                   F1039     400
                     0520002007 +                 NE     B2,B0,CPV52 IF NOT FINISHED                             F1039     401
          2011  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
          2012  22702                             LX7    X2                                                      F1039     407
                     6120000006                   SB2    6          LOOP CONTROL                                 F1039     408
                                                                                                                 F1039     409
          2013  5022777776               CPV54    SA2    A2-1                                                    F1039     410
                          10622                   BX6    X2                                                      F1039     411
                               67221              SB2    B2-B1                                                   F1039     412
          2014  54621                             SA6    A2+B1                                                   F1039     413
                     0520002013 +                 NE     B2,B0,CPV54  IF NOT FINISHED                            F1039     414
          2015  5170000000 X                      SA7    O.C                                                     F1039     415
                          0400001701 +            EQ     EXIT.                                                   F1039     416
                                                                                                                 F1039     417
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          2016  0400402016 +             FCA      SUBR               ...ENTRY/EXIT...                            F1039     432
          2017  43066                             MX0    9*CHAR                                                  F1039     433
                     66400                        SB4    B0                                                      F1039     434
                          5120002040 +            SA2    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET   F1039     435
          2020  53320                             SA3    X2                                                      F1039     436
                     0303002031 +                 ZR     X3,FCA7     IF LAST WORD STORED IS ZERO                 F1039     437
                                                                                                                 F1039     438
          2021  22140                    FCA1     LX1    X0,B4                                                   F1039     439
                     15231                        BX2    -X1*X3                                                  F1039     440
                          0312002023 +            NZ     X2,FCA2     IF NON ZERO BYTE                            F1039     441
          2022  6144000006                        SB4    B4+CHAR                                                 F1039     442
                          0400002021 +            EQ     FCA1                                                    F1039     443
                                                                                                                 F1039     444
          2023  23242                    FCA2     LX2    X2,-B4                                                  F1039     445
                     7222777722                   SX2    X2-1R                                                   F1039     446
          2024  0312002027 +                      NZ     X2,FCA4     IF NOT BLANK                                F1039     447
                          11613                   BX6    X1*X3       BLANK GET RID OF IT.                        F1039     448
                               54630              SA6    A3                                                      F1039     449
          2025  76640                             SX6    B4                                                      F1039     450
                                                                                                                 F1039     451
          2026  5160002037 +             FCA3     SA6    CP          SHIFT REQUIRED TO STORE NEXT CHARACTER.     F1039     452
                          0400002016 +            EQ     EXIT.                                                   F1039     453
                                                                                                                 F1039     454
          2027  7164777771               FCA4     SX6    B4-CHAR                                                 F1039     455
                          0400002026 +            EQ     FCA3                                                    F1039     456
                                                                                                                 F1039     457
          2030  7160000066               FCA6     SX6    9*CHAR                                                  F1039     458
                          0400002026 +            EQ     FCA3                                                    F1039     459
                                                                                                                 F1039     460
          2031  5033777776               FCA7     SA3    A3-1        GET PREVIOUS WORD                           F1039     461
                          15230                   BX2    -X0*X3                                                  F1039     462
          2032  7222777722                        SX2    X2-1R                                                   F1039     463
                          0312002030 +            NZ     X2,FCA6     IF NOT BLANK                                F1039     464
          2033  11603                             BX6    X0*X3       GET RID OF BLANK                            F1039     465
                     54630                        SA6    A3          STORE LAST WORD                             F1039     466
                          5120002242 +            SA2    =10H                                                    F1039     467
          2034  22602                             LX6    X2                                                      F1039     468
                     5063000001                   SA6    A3+1        BLANKS TO LWA + 1                           F1039     469
                               74630              SX6    A3                                                      F1039     470
          2035  5160002040 +                      SA6    NXA         LWA OF LAST STORE IN TEMPLET                F1039     471
                          43600                   MX6    0           SHIFT REQUIRED TO STORE NEXT CHARACTER      F1039     472
          2036  0400002026 +                      EQ     FCA3                                                    F1039     473
                                                                                                                 F1039     474
          2037  00000000000000000000     CP       CON    0           SHIFT REQUIRED TO STORE NEXT CHARACTER      F1039     475
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    68
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    FCA 
  
                                        *                            IN CONTROL CARD TEMPLET.                    F1039     476
          2040  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
          2041  0400402041 +             TCC      SUBR               ...ENTRY/EXIT...                            F1039     490
          2042  5120002076 +                      SA2    TFF                                                     F1039     491
                          0312002041 +            NZ     X2,EXIT.    IF TEMPLET FULL                             F1039     492
          2043  76650                             SX6    B5                                                      F1039     493
                     5160002077 +                 SA6    SB5         SAVE B5                                     F1039     494
                               74600              SX6    A0                                                      F1039     495
          2044  5160002100 +                      SA6    SA0         SAVE A0                                     F1039     496
                          5110000070              SA1    RA.CCD                                                  F1039     497
          2045  6150000066                        SB5    9*CHAR                                                  F1039     498
                          43066                   MX0    9*CHAR                                                  F1039     499
          2046  5130002037 +                      SA3    CP                                                      F1039     500
                          63430                   SB4    X3          SHIFT REQUIRED TO STORE NEXT CHARACTER      F1039     501
                                        *                            IN CONTROL CARD TEMPLET.                    F1039     502
          2047  5130002040 +                      SA3    NXA                                                     F1039     503
                          53430                   SA4    X3          LWA OF STORE IN TEMPLET                     F1039     504
          2050  5004777776                        SA0    A4-1        NEXT LOCATION - 1 TO STORE IN TEMPLET       F1039     505
                          22604                   LX6    X4                                                      F1039     506
                                                                                                                 F1039     507
          2051  23251                    TCC2     AX2    X1,B5                                                   F1039     508
                     15220                        BX2    -X0*X2                                                  F1039     509
                          0705002053 +            GT     B5,B0,TCC4  IF MORE CHARACTERS IN WORD                  F1039     510
          2052  5011000001                        SA1    A1+1                                                    F1039     511
                          6150000074              SB5    10*CHAR                                                 F1039     512
                                                                                                                 F1039     513
          2053  6155777771               TCC4     SB5    B5-CHAR                                                 F1039     514
                          23351                   AX3    X1,B5                                                   F1039     515
                               15330              BX3    -X0*X3                                                  F1039     516
          2054  0313002056 +                      NZ     X3,TCC5     IF CHARACTER FOLLOWING CURRENT CHARACTER    F1039     517
                                        *                            NOT ZERO.                                   F1039     518
                          7232777722              SX3    X2-1R                                                   F1039     519
          2055  0303002064 +                      ZR     X3,TCC6     IF CURRENT CHARACTER BLANK - FINISHED       F1039     520
                                                                                                                 F1039     521
          2056  0302002064 +             TCC5     ZR     X2,TCC6     IF CURRENT CHARACTER ZERO  - FINISHED.      F1039     522
                          22242                   LX2    X2,B4                                                   F1039     523
                               12662              BX6    X6+X2                                                   F1039     524
          2057  6144777771                        SB4    B4-CHAR                                                 F1039     525
                          0640002051 +            PL     B4,TCC2     IF CURRENT WORD NOT FULL                    F1039     526
          2060  6140777776 X                      SB4    L.PWB-1                                                 F1039     527
                          75204                   SX2    A0-B4                                                   F1039     528
          2061  0322002071 +                      PL     X2,TCC8     IF CONTROL CARD TEMPLET FULL                F1039     529
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    69
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    TCC 
  
                          6140000066              SB4    9*CHAR                                                  F1039     530
          2062  5000000001                        SA0    A0+1                                                    F1039     531
                          54600                   SA6    A0          STORE CURRENT WORD IN CC TEMPLET            F1039     532
                               43600              MX6    0                                                       F1039     533
          2063  0400002051 +                      EQ     TCC2                                                    F1039     534
                                                                                                                 F1039     535
          2064  6150777776 X             TCC6     SB5    L.PWB-1                                                 F1039     536
                          75205                   SX2    A0-B5                                                   F1039     537
          2065  0322002071 +                      PL     X2,TCC8     IF CC TEMPLET FULL                          F1039     538
                          5000000001              SA0    A0+1                                                    F1039     539
          2066  54600                             SA6    A0          SAVE CURRENT WORD                           F1039     540
                                                                                                                 F1039     541
          2067  74600                    TCC7     SX6    A0                                                      F1039     542
                     5160002040 +                 SA6    NXA         SAVE CURRENT ADDRESS                        F1039     543
                               76640              SX6    B4                                                      F1039     544
          2070  5160002037 +                      SA6    CP          SAVE CURRENT CHARACTER POSITION             F1039     545
                          0400002073 +            EQ     TCC10                                                   F1039     546
                                                                                                                 F1039     547
          2071  74600                    TCC8     SX6    A0                                                      F1039     548
                     5160002040 +                 SA6    NXA         SAVE CURRENT ADDRESS                        F1039     549
                               43601              MX6    1                                                       F1039     550
          2072  5160002076 +                      SA6    TFF         TEMPLET FULL FLAG                           F1039     551
                                                                                                                 F1039     552
          2073  5120002077 +             TCC10    SA2    SB5                                                     F1039     553
                          63520                   SB5    X2          RESTORE B5                                  F1039     554
          2074  5120002100 +                      SA2    SA0                                                     F1039     555
                          53020                   SA0    X2          RESTORE A0                                  F1039     556
          2075  0400002041 +                      EQ     EXIT.                                                   F1039     557
                                                                                                                 F1039     558
          2076  00000000000000000000     TFF      CON    0           TEMPLET FULL FLAG                           F1039     559
          2077  00000000000000000000     SB5      CON    0           B5 SAVED HERE                               F1039     560
          2100  00000000000000000000     SA0      CON    0           A0 SAVED HERE                               F1039     561
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    70
        COMCSTF - SET TERMINAL FILE.                                  STF 
  
          2101                           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
          2101  0400402101 +             STF      SUBR               ENTRY/EXIT                                  COMCSTF    34
          2102  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
          2103  0301002101 +                      ZR     X1,STFX     IF NULL FILE, RETURN                        CPSA244    20
                          5160002112 +            SA6    STFA        SAVE FET STATUS                             CPSA244    21
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    71
        COMCSTF - SET TERMINAL FILE.                                  STF                 COMCSTF 
  
          2104  7170777657                        OPEN   X2,ALTERNR,R                                            COMCSTF    35
          2105  5110002112 +                      SA1    STFA        RESTORE PREVIOUS FUNCTION CODE              CPSA244    22
                          43360                   MX3    -12                                                     CPSA244    23
                               10611              BX6    X1                                                      CPSA244    24
          2106  53121                             SA1    X2+B1                                                   CPSA244    25
                     53620                        SA6    X2                                                      CPSA244    26
                          20114                   LX1    -48                                                     COMCSTF    38
                               15413              BX4    -X3*X1                                                  COMCSTF    39
          2107  7264775353                        SX6    X4-2RTT     CHECK FOR DEVICE TYPE *TT*                  COMCSTF    40
                          0306002101 +            ZR     X6,STFX                                                 COMCSTF    41
          2110  21406                             AX4    6                                                       COMCSTF    42
                     7264777716                   SX6    X4-61B      CHECK FOR DEVICE TYPE 61B                   COMCSTF    43
          2111  0400002101 +                      EQ     STFX        RETURN                                      COMCSTF    44
                                                                                                                 CPSA244    27
          2112  00000000000000000000     STFA     CON    0           SAVE FET FUNCTION CODE                      CPSA244    28
  
  
  
  
                                 D_D              BASE   *                                                       COMCSTF    46
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSTF    47
                                                  QUAL   *                                                       COMCSTF    48
                                2101 +   STF      EQU    /COMCSTF/STF                                            COMCSTF    49
                                2101 +   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/05. 19.58.22.      PAGE    72
        COMFGOI - GLOBAL OVERLAY INITIALIZATION 
  
          2113                                    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
          2113  0400402113 +             GOI      SUBR               ENTRY/EXIT...                               COMFGOI    15
          2114  5110000000 X                      SA1    CP.AFLS     CURRENT FL                                  COMFGOI    16
                          10611                   BX6    X1                                                      COMFGOI    17
          2115  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
          2116  5120000000 X                      SA2    CO.LOO      MASTER OBJECT LIST FLAG                     COMFGOI    20
                          0332002123 +            MI     X2,GOI1     IF OBJECT LIST ON                           COMFGOI    21
          2117  6130000000 X                      SB3    FIN.MAP     TRASH LIST CODE (LWA OF MAP)                COMFGOI    22
                          5120000000 X            SA2    CO.LOA                                                  COMFGOI    23
          2120  5140000000 X                      SA4    CO.LOM                                                  COMFGOI    24
                          5150000000 X            SA5    CO.LOR                                                  COMFGOI    25
          2121  12224                             BX2    X2+X4                                                   COMFGOI    26
                     12225                        BX2    X2+X5                                                   COMFGOI    27
                          0332002123 +            MI     X2,GOI1     IF MAP ON                                   COMFGOI    28
          2122  6130000000 X                      SB3    FIN         TRASH LIST AND MAP CODE (FWA OF MAP)        COMFGOI    29
          2123  5120000000 X             GOI1     SA2    CO.LOR      MASTER REFERENCE MAP FLAG                   COMFGOI    30
                          0322002126 +            PL     X2,GOI2     IF SHORT OR NO REF MAP                      COMFGOI    31
          2124  7120000000 X                      SETFIL FILE=F.REF,MODE=INIT,FWA=B3                             COMFGOI    32
          2126  5110000000 X             GOI2     SA1    FV.LGO                                                  COMFGOI    33
                          5120000000 X            SA2    CO.LOO                                                  COMFGOI    34
          2127  12112                             BX1    X1+X2                                                   COMFGOI    35
                     76630                        SX6    B3          LWA+1 OF REF BUFFER                         COMFGOI    36
                          0301002137 +            ZR     X1,GOI3     IF BINARY SUPRESSED AND NO OBJECT LISTING   COMFGOI    37
          2130  7120000000 X                      SETFIL FILE=F.PB,MODE=INIT,FWA=B3                              COMFGOI    38
          2132  76630                             SX6    B3          LWA+1 OF PB BUFFER                          COMFGOI    39
                     5120000000 X                 SA2    FV.LGO                                                  COMFGOI    40
          2133  0302002137 +                      ZR     X2,GOI3     IF BINARY SUPRESSED                         COMFGOI    41
                          66530                   SB5    B3                                                      FC5A171A    6
          2134  7120000000 X                      SETFIL FILE=F.LGO,MODE=INIT,FWA==XOSTACK                       FC5A171A    7
          2136  76650                             SX6    B5                                                      FC5A171A    8
          2137  5160000000 X             GOI3     SA6    O.TABS      FWA OF TABLES                               COMFGOI    44
                          7276006000              SX7    X6+MIN.TABS+NOM.INC                                     FC5A119     5
          2140  5170000000 X                      SA7    NOM.FL                                                  FC5A119     6
                          5120000000 X            SA2    CP.NFLS     CM FIELD LENGTH                             COMFGOI    45
          2141  37626                             IX6    X2-X6                                                   COMFGOI    46
                     7246774777                   SX4    X6-MIN.TABS                                             COMFGOI    47
          2142  0324002155 +                      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/05. 19.58.22.      PAGE    73
        COMFGOI - GLOBAL OVERLAY INITIALIZATION                       COMFGOI             COMFGOI 
  
          2143  37124                             IX1    X2-X4                                                   COMFGOI    50
                     5120000000 X                 SA2    MAX.FL                                                  COMFGOI    51
                               21236              AX2    30                                                      COMFGOI    52
          2144  37221                             IX2    X2-X1                                                   COMFGOI    53
                     0332000000 X                 MI     X2,MEMERR   IF NOT ENOUGH MEMORY                        COMFGOI    54
          2145  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
          2146  5170000000 X                      SA7    L.TABS                                                  COMFGOI    57
                          7160150515              MEMORY SCM,L.TABS,RCL                                          COMFGOI    58
          2151  5110000000 X                      SA1    L.TABS      NEW FL                                      COMFGOI    59
                          21136                   AX1    30                                                      COMFGOI    60
          2152  7271777765                        SX7    X1-10       LEAVE 10-WORD SAFETY ZONE                   COMFGOI    65
                          5170000000 X            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             COMFGOI    66
          2153  10711                             BX7    X1                                                      COMFGOI    67
                     5170000000 X                 SA7    CP.AFLS     UPDATE TO CURRENT FL                        COMFGOI    68
          2154  5170000000 X                      SA7    CP.MXFL     SET MAX FL                                  COMFGOI    69
                          10633                   BX6    X3          SETUP X6                                    COMFGOI    70
                                                                                                                 COMFGOI    71
          2155  5160000000 X             GOI4     SA6    L.TABS                                                  COMFGOI    72
                          21604                   AX6    FLSLOP                                                  COMFGOI    73
          2156  7266001000                        SX6    X6+FLSLUP                                               COMFGOI    74
                          5160000000 X            SA6    THRESH      GIVE ALLOC ENOUGH ELBOW ROOM                COMFGOI    75
          2157  5140000000 X                      SA4    FV.LGO                                                  COMFGOI    76
                          5120000000 X            SA2    CO.LOO                                                  COMFGOI    77
          2160  12424                             BX4    X2+X4                                                   COMFGOI    78
                     0314002163 +                 NZ     X4,GOI5     IF PREBINARY OR OBJECT LISTING REQUESTED    COMFGOI    79
          2161  7170000220                        SX7    0220B       *JP B2*                                     COMFGOI    80
                          20760                   LX7    48                                                      COMFGOI    81
          2162  5170000000 X                      SA7    WIN         WIRE OFF PREBINARY                          COMFGOI    82
                          5170000000 X            SA7    =XWTE       WIRE OFF *DATA* PREBINARY                   FC5A108     4
                                                                                                                 COMFGOI    83
          2163  0100002166 +             GOI5     RJ     FEI         FRONT END INITIALIZATION                    COMFGOI    84
          2164  6120000000 X                      SB2    F.SKEL                                                  COMFGOI    85
                          0100002224 +            RJ     ROR         RESET OPCODE OF ROUNDABLES                  COMFGOI    86
                                                                                                                 COMFGOI    87
          2165  0400002113 +                      EQ     EXIT.                                                   COMFGOI    88
  
  
  
  
                                                  IF     -DEF,QUAL$,2                                            COMFGOI    90
                                                  QUAL   *                                                       COMFGOI    91
                                2113 +   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/05. 19.58.22.      PAGE    74
        COMFFEI - FRONT END INITIALIZATION.                           FEI 
  
          2165                           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
          2166  0400402166 +             FEI      SUBR               ...ENTRY/EXIT...                            COMFFEI    27
                                                                                                                 FC5A132     8
                                        **        RESET PROGRAM UNIT START TIME                                  FC5A132     9
                                                                                                                 FC5A132    10
          2167  0100000000 X                      CALL   TIMER                                                   FC5A132    11
          2170  5160000000 X                      SA6    TIME1                                                   FC5A132    12
                          7150000003              SX5    Z=SYM                                                   COMFFEI    28
          2171  7160000000 X                      SX6    Z.SYMVP                                                 COMFFEI    29
                          27606                   IX6    X6/X5                                                   COMFFEI    30
                     7110000000 X                 SX1    F.SYMIL                                                 COMFFEI    31
          2174  5211000001 X                      SA1    X1+Z.SYMVP+1                                            COMFFEI    32
                          7150000001              SX5    M.LOG                                                   COMFFEI    33
          2175  7130000007                        SX3    N.TYPE      LOOP LIMIT                                  COMFFEI    34
                          20641                   LX6    WB.BASEP                                                COMFFEI    35
          2176  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
          2177  54710                             SA7    A1                                                      COMFFEI    39
                     73551                        =X5    X5+1                                                    COMFFEI    40
                          37253                   IX2    X5-X3                                                   COMFFEI    41
          2200  0332002176 +                      MI     X2,FEI10    IF NOT DONE                                 F1037F5    16
                          5130000000 X            SA3    CO.DBSL                                                 COMFFEI    43
          2201  6120000000 X                      SB2    Z.SYMDB                                                 COMFFEI    44
                          0313002207 +            NZ     X3,FEI30    IF SUBSTRING LIMIT CHECKING ENABLED         F1037F5    17
          2202  7130005457                        SX3    2R..-1R.&2RC.                                           FC5A163     5
                          76410                   =X4    MF.LIB&MF.BEF                                           COMFFEI    47
                               20336              LX3    WA.SYMP+2*6                                             COMFFEI    48
          2203  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/05. 19.58.22.      PAGE    75
        COMFFEI - FRONT END INITIALIZATION.                           FEI 
  
          2204  5112000000 X             FEI20    SA1    B2+F.SYMIL+WA.W                                         F1037F5    18
                          5021000002              SA2    A1-WA.W+WC.W                                            COMFFEI    52
          2205  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
          2206  54610                             SA6    A1                                                      COMFFEI    56
                     54720                        SA7    A2                                                      COMFFEI    57
                          0527002204 +            NE     B2,B7,FEI20 IF MORE ENTRIES TO CONVERT                  F1037F5    19
                                                                                                                 COMFFEI    59
          2207  5110000000 X             FEI30    SA1    CO.ANSI                                                 FC50744     9
                          5120000000 X            SA2    ERRTYP                                                  COMFFEI    67
          2210  5130000000 X                      SA3    CO.MD                                                   F1037F5    23
                          54421                   =A4    A2+1                                                    F1037F5    24
                               12612              BX6    X1+X2                                                   F1037F5    25
          2211  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
          2212  0301002217 +                      ZR     X1,FEI50    IF ANSI DIAGNOSTICS NOT DESIRED             F1037F5    29
                          5120000000 X            SA2    ANSI.SW                                                 F1037F5    30
          2213  20236                             LX2    30                                                      F1037F5    31
                     10722                        BX7    X2                                                      F1037F5    32
                          54720                   SA7    A2          ENABLE ANSI DIAGNOSTICS                     F1037F5    33
          2214  7211777772                        SX1    X1-EL=F                                                 F1037F5    34
                          0311002217 +            NZ     X1,FEI50    IF ERROR LEVEL NOT FATAL                    F1037F5    35
          2215  5110000004 X                      SA1    ERRTYP+EL=W                                             COMFFEI    77
                          7120000005              SX2    EL=F                                                    COMFFEI    78
          2216  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
          2217  0303002221 +             FEI50    ZR     X3,FEI60    IF MACHINE DEPENDENT DIAG. NOT DESIRED      F1037F5    37
                          5120000000 X            SA2    MDER.SW                                                 F1037F5    38
          2220  20236                             LX2    30                                                      F1037F5    39
                     10722                        BX7    X2                                                      F1037F5    40
                          54720                   SA7    A2          ENABLE MACHINE DEPENDENT DIAGNOSTICS        F1037F5    41
                                                                                                                 F1037F5    42
          2221                           FEI60    BSS    0                                                       F1037F5    43
          2221  5110000000 X                      SA1    CO.OPT                                                  FC5A132    13
                          5120000000 X            SA2    CO.LCM                                                  FC5A132    14
          2222  77601                             =X6    -1                                                      FC5A132    15
                     0301002223 +                 ZR     X1,FEI70    IF OPT = 0                                  F1037F5    44
                               10622              BX6    X2                                                      FC5A132    17
                                                                                                                 FC5A132    18
          2223  5160000000 X             FEI70    SA6    WO.LCM      FORCE LCM=G FOR OPT=0                       F1037F5    45
                          0400002166 +            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/05. 19.58.22.      PAGE    76
        COMSEIS - SKELETON DESCRIPTION FOR QCG. 
  
          2224                                    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/05. 19.58.22.      PAGE    77
        COMFROR - ROUNDABLE OPCODE RESET.                             ROR 
  
          2224                           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
          2224  0400402224 +             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
          2225  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
          2226  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
          2227  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
          2230  5130000000 X                      SA3    =XCO.RNDD                                               COMFROR    49
                          20330                   LX3    -44B        SHIFT TO 59-FDIV OPCODE                     COMFROR    50
                               36223              IX2    X2+X3                                                   COMFROR    51
          2231  0302002224 +                      ZR     X2,EXIT.    IF NO ROUNDED OPERATIONS                    COMFROR    52
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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
          2232  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
          2233  0301002224 +                      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
          2234  63300                             SB3    X0          SHIFT COUNT = OPCODE                        COMFROR    71
                     22332                        LX3    B3,X2                                                   COMFROR    72
                          0321002232 +            PL     X1,ROR2     IF NOT A ROUNDABLE SKELETON.                COMFROR    73
          2235  0323002232 +                      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
          2236  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
          2237  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
          2240  0400002232 +                      EQ     ROR2                                                    COMFROR    92
  
  
  
  
                                                  IF     -DEF,QUAL$,2                                            COMFROR    94
                                                  QUAL   *                                                       COMFROR    95
                                2224 +   ROR      EQU    /COMFROR/ROR                                            COMFROR    96
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      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 Y                        USY=FE
             0 X                        WOF=ERR 
  
                                        CONTENT OF LITERALS BLOCK.
  
          2241  40404040404040404040    5555555555
          2242  55555555555555555555
          2243  00000005300503252405       EXECUTE
          2244  55570724575534335503     .GT. 10 C
          2245  10012257000000000000    HAR.
          2246  55100123551114140507     HAS ILLEG
          2247  01145502111601223155    AL BINARY 
          2250  26011425055700000000    VALUE.
          2251  55111414050701145503     ILLEGAL C
          2252  10012201032405225700    HARACTER. 
          2253  00000000000000000000
          2254  55111414050701145506     ILLEGAL F
          2255  11140516011505570000    ILENAME.
          2256  55111414050701145516     ILLEGAL N
          2257  25150522110357000000    UMERIC. 
          2260  55465501160455545516     - AND = N
          2261  17245502172410550114    OT BOTH AL
          2262  14172705045700000000    LOWED.
          2263  55152523245502055505     MUST BE E
          2264  21251126011405160305    QUIVALENCE
          2265  04570000000000000000    D.
          2266  55232422111607552417     STRING TO
          2267  17551417160757000000    O LONG. 
          2270  55240522151116012417     TERMINATO
          2271  22551511232311160757    R MISSING.
          2272  00000000000000000000
          2273  55241717551501163155     TOO MANY 
          2274  17030325220516030523    OCCURENCES
          2275  57000000000000000000    . 
          2276  55241717551501163155     TOO MANY 
          2277  17202411171623570000    OPTIONS.
          2300  55251622050317071611     UNRECOGNI
          2301  32010214055700000000    ZABLE.
          2302  55251613161727165517     UNKNOWN O
          2303  20241117165700000000    PTION.
          2304  00000000000000000024             T
          2305  02111600000000000000    BIN 
          2306  06113005040000000000    FIXED 
          2307  05222223000000000000    ERRS
          2310  00000000000000000006             F
          2311  23312324053024000000    SYSTEXT 
          2312  03171520111405000000    COMPILE 
          2313  32323232322617000000    ZZZZZVO 
          2314  00000000000000000011             I
          2315  00000000000000141520           LMP
          2316  00000000000000000002             B
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    80
        COMFROR - ROUNDABLE OPCODE RESET.                             LITERALS
  
          2317  00000000000000000010             H
          2320  00000000000000000110            AH
          2321  17201400000000000000    OPL 
          2322  00000000000000000001             A
          2323  00000000000000001747            O*
          2324  55011623115515252324     ANSI MUST
          2325  55020555335655245517     BE 0, T O
          2326  22550657000000000000    R F.
          2327  55012207550301162455     ARG CANT 
          2330  02055502172410550317    BE BOTH CO
          2331  15151716550116045506    MMON AND F
          2332  11300504570000000000    IXED. 
          2333  55025433550116045507     B=0 AND G
          2334  17551123551116031716    O IS INCON
          2335  23112324051624570000    SISTENT.
          2336  55032355152523245502     CS MUST B
          2337  05552523052255172255    E USER OR 
          2340  06113005045700000000    FIXED.
          2341  55111624052201032411     INTERACTI
          2342  26055504050225075522    VE DEBUG R
          2343  05212511220523551720    EQUIRES OP
          2344  24543357000000000000    T=0.
          2345  55055433551123551114     E=0 IS IL
          2346  14050701145700000000    LEGAL.
          2347  55051455152523245502     EL MUST B
          2350  05550456552456552756    E D, T, W,
          2351  55065655172255035700     F, OR C. 
          2352  00000000000000000000
          2353  55052455152523245502     ET MUST B
          2354  05553356552456552756    E 0, T, W,
          2355  55065655172255035700     F, OR C. 
          2356  00000000000000000000
          2357  55061114055525230555     FILE USE 
          2360  03171606141103245700    CONFLICT. 
          2361  00000000000000000000
          2362  55115433551123551617     I=0 IS NO
          2363  24550114141727050457    T ALLOWED.
          2364  00000000000000000000
          2365  55305433551123551617     X=0 IS NO
          2366  24550114141727050457    T ALLOWED.
          2367  00000000000000000000
          2370  55111414050701145507     ILLEGAL G
          2371  55172024111716552331     OPTION SY
          2372  16240130570000000000    NTAX. 
          2373  55111414050701145523     ILLEGAL S
          2374  55172024111716552331     OPTION SY
          2375  16240130570000000000    NTAX. 
          2376  55140315551720241117     LCM OPTIO
          2377  16551525232455020555    N MUST BE 
          2400  07565511551722550457    G, I OR D.
          2401  00000000000000000000
          2402  55150455152523245502     MD MUST B
          2403  05553356552455172255    E 0, T OR 
          2404  06570000000000000000    F.
          2405  55172024551405260514     OPT LEVEL
          2406  55161724553356345635     NOT 0,1,2
          2407  56551722553657000000    , OR 3. 
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    81
        COMFROR - ROUNDABLE OPCODE RESET.                             LITERALS
  
          2410  55200455012207251505     PD ARGUME
          2411  16245516172455415517    NT NOT 6 O
          2412  22554357000000000000    R 8.
          2413  55201455152523245516     PL MUST N
          2414  17245505300305050455    OT EXCEED 
          2415  44444444444444444457    999999999.
          2416  00000000000000000000
          2417  55200107055523113205     PAGE SIZE
          2420  55220116070555570724     RANGE .GT
          2421  57553657000000000000    . 3.
          2422  55200107055527110424     PAGE WIDT
          2423  10552201160705554033    H RANGE 50
          2424  55465534364157000000     - 136. 
          2425  55171614315542552331     ONLY 7 SY
          2426  23240515235524053024    STEMS TEXT
          2427  23550114141727050457    S ALLOWED.
          2430  00000000000000000000
          2431  16250314052523000000    NUCLEUS 
          2432  25230522000000000000    USER
          2433  00000000007346544777         >-=*;
          2434  47475555161755031715    **  NO COM
          2435  20111401241117165700    PILATION. 
          2436  00000000000000000000
          2437  20221624232031000000    PRNTSPY 
          2440  55051520243155111620     EMPTY INP
          2441  25245506111405575555    UT FILE.
          2442  16175503171520111401    NO COMPILA
          2443  24111716570000000000    TION. 
          2444  34550000000000000000    1 
          2445  00000000000055555555
  
          2464                           B=LWA00  END                MARK LWA OF OVERLAY FOR RPV                 INIT00   1388
  
                             76300B CM  STORAGE USED             7715 STATEMENTS     2036 SYMBOLS      000024 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.371 SECONDS        1829 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      2464   PROGRAM*       79/03 E   79/04 L
        CDD             0   EXTERNAL*       2/47 X   65/52
        CFL          1117   PROGRAM*        4/50     42/23 L
        CFL3         1127   PROGRAM*       42/37     42/41 L
        CFL5         1136   PROGRAM*       42/34     43/02 L
        CFN          1151   PROGRAM*       43/50 L   50/30     50/30     50/30     50/30
        CFN2         1154   PROGRAM*       43/54     43/56 L
        CFN3         1157   PROGRAM*       44/02     44/08 L
        CFV           245   PROGRAM*       28/28 D   37/05     38/26
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    82
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          713   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   34/06
        CO.CPL          0   EXTERNAL*       2/05 X   34/07
        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          714   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   58/42 S
        CO.I          715   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   37/52 S
        CO.L          716   PROGRAM*       33/34     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         717   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       1654   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   34/09     42/33
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        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   39/18 S
        CO.SPP          0   EXTERNAL*       2/12 X   34/11
        CO.SPY        720   PROGRAM*       34/20     36/18 L   58/03     58/09
        CO.STAT         0   EXTERNAL*       2/12 X   33/54
        CO.TMLC         0   EXTERNAL*       2/12 X
        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           2037   PROGRAM*       67/34 S   67/57 L   68/28     69/16 S
        CPM=         1675   PROGRAM*       61/21     63/04 D
        CPV          1701   PROGRAM*        4/52     63/41 L
        CPV10        1716   PROGRAM*       64/08     64/11 L
        CPV12        1720   PROGRAM*       64/11     64/14 L
        CPV14        1723   PROGRAM*       64/14     64/23 L
        CPV16        1725   PROGRAM*       64/23     64/26 L
        CPV18        1727   PROGRAM*       64/26     64/29 L
        CPV2         1705   PROGRAM*       63/47     63/50 L
        CPV20        1731   PROGRAM*       64/29     64/37 L
        CPV22        1735   PROGRAM*       64/37     64/44 L
        CPV24        1741   PROGRAM*       64/44     64/53 L
        CPV26        1744   PROGRAM*       64/53     65/01 L
        CPV28        1746   PROGRAM*       64/56     65/04 L
        CPV30        1751   PROGRAM*       65/10     65/13 L
        CPV32        1753   PROGRAM*       65/13     65/16 L
        CPV34        1755   PROGRAM*       65/16     65/19 L
        CPV36        1757   PROGRAM*       65/19     65/25 L
        CPV38        1761   PROGRAM*       65/25     65/29 L
        CPV4         1707   PROGRAM*       63/50     63/53 L
        CPV40        1763   PROGRAM*       65/29     65/32 L
        CPV42        1765   PROGRAM*       65/32     65/38 L
        CPV44        1767   PROGRAM*       65/38     65/41 L
        CPV46        1771   PROGRAM*       65/41     65/44 L
        CPV48        1773   PROGRAM*       65/44     65/51 L
        CPV50        2000   PROGRAM*       66/03     66/05 L
        CPV52        2007   PROGRAM*       66/30 L   66/34
        CPV54        2013   PROGRAM*       66/43 L   66/47
        CPV6         1711   PROGRAM*       63/53     63/56 L
        CPV8         1714   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
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        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
        DEM           252   PROGRAM*       28/29 D   40/12     40/25     40/37     40/49     41/03     41/19     41/51
                                           40/04     40/16     40/29     40/41     40/54     41/10     41/25
                                           40/08     40/22     40/34     40/44     40/57     41/14     41/39
        DEM.RET       254   PROGRAM*       28/30 D
        DXB             0   EXTERNAL*       2/47 X   16/25     42/36
        EL=C            6   FTX            47/49     47/52     49/55     50/01
        EL=D            2   FTX            48/06
        EL=F            5   FTX            47/52     47/55     48/27     49/05     50/01     50/04     75/23     75/26
        EL=T            3   FTX            48/01     48/06     48/24     49/02     50/07
        EL=W            4   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       306   PROGRAM*       28/31 D   41/28     41/40     56/42
        ERR.FLD       301   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       252   PROGRAM*       28/33 D
        E.ANSI       1020   PROGRAM*       40/04 L   48/29
        E.ARG        1022   PROGRAM*       40/07 L   48/47
        E.BGO        1025   PROGRAM*       40/11 L   50/52
        E.CS         1030   PROGRAM*       40/15 L   52/07
        E.EF         1036   PROGRAM*       40/25 L   55/14
        E.EL         1040   PROGRAM*       40/29 L   48/10
        E.ET         1042   PROGRAM*       40/34 L   50/09
        E.ID         1033   PROGRAM*       40/20 L   53/17
        E.IGS        1052   PROGRAM*       37/02     37/06     37/11     40/47 L
        E.ISS        1055   PROGRAM*       38/23     38/27     38/31     40/52 L
        E.IZ         1046   PROGRAM*       40/41 L   55/16
        E.LCM        1060   PROGRAM*       40/57 L   51/46
        E.LFNC       1044   PROGRAM*       40/37 L   55/04     55/06     55/08     55/10
                                           55/03     55/05     55/07     55/09     55/11
        E.MD         1062   PROGRAM*       41/03 L   49/07
        E.OPT        1064   PROGRAM*        4/48     41/06 L
        E.PD         1070   PROGRAM*       41/13 L   52/33
        E.PL         1073   PROGRAM*       41/17 L   52/53
        E.PS         1076   PROGRAM*       41/22 L   52/42     52/43
        E.PW         1105   PROGRAM*       41/34 L   60/09     60/11
        E.S7         1114   PROGRAM*       37/20     38/44     41/49 L
        E.XZ         1050   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          2016   PROGRAM*       27/03     67/14 L
        FCA1         2021   PROGRAM*       67/21 L   67/25
        FCA2         2023   PROGRAM*       67/23     67/27 L
        FCA3         2026   PROGRAM*       67/34 L   67/38     67/41     67/55
        FCA4         2027   PROGRAM*       67/29     67/37 L
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        FCA6         2030   PROGRAM*       67/40 L   67/46
        FCA7         2031   PROGRAM*       67/19     67/43 L
        FEI          2166   PROGRAM*       73/33     74/29 L
        FEI10        2176   PROGRAM*       74/43 L   74/49
        FEI20        2204   PROGRAM*       75/01 L   75/08
        FEI30        2207   PROGRAM*       74/52     75/10 L
        FEI50        2217   PROGRAM*       75/18     75/24     75/32 L
        FEI60        2221   PROGRAM*       75/32     75/38 L
        FEI70        2223   PROGRAM*       75/42     75/45 L
        FIN             0   EXTERNAL*       2/31 X   72/34
        FIN.MAP         0   EXTERNAL*       2/31 X   72/27
        FIN.OL          0   EXTERNAL*       2/28 X   36/20     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         42   PROGRAM*        4/54      5/28 L   49/40 S   54/28
        FTN1           26   PROGRAM*        4/50 L   41/11
        FTN2           41   PROGRAM*        5/20      5/22 L
        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           350   PROGRAM*       28/34 D   36/52     37/01     37/13     38/15     38/22     38/35
        GNC           364   PROGRAM*       28/35 D   37/44     39/10
        GNC.RET       426   PROGRAM*       28/36 D
        GOI          2113   PROGRAM*        5/07     73/44 D
        GPP          1657   PROGRAM*        3/54     61/20 L
        GPP1         1672   PROGRAM*       61/38     61/41 L
        GP.JPD        726   PROGRAM*       36/29 L   61/35 S
        GP.JPS        727   PROGRAM*       36/30 L   61/30 S
        GP.JPW        730   PROGRAM*       36/31 L   56/18     61/26 S
        GP.PAGE       726   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    5/19
        IDP=            0   EXTERNAL*       2/25 X    5/21     45/22
        IDP=USY         0   EXTERNAL*       2/25 X    5/18 S
        IGNORE        724   PROGRAM*       36/24 L
        INT.FL          0   EXTERNAL*       2/19 X   72/23 S
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        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          435   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
        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          1160   PROGRAM*        3/53     44/41 L
        MIA10        1231   PROGRAM*       46/44     46/46 L
        MIA2         1171   PROGRAM*       45/19     45/24 L
        MIA4         1177   PROGRAM*       45/26     45/30 L
        MIA6         1214   PROGRAM*       46/04     46/08 L
        MIA8         1216   PROGRAM*       46/11     46/13 L
        MIB          1232   PROGRAM*        4/51     47/10 L
        MIB0         1233   PROGRAM*       47/45 L
        MIB1         1244   PROGRAM*       47/51     47/54     47/57     48/05     48/12 L
        MIB10        1267   PROGRAM*       41/04     49/13 L
        MIB100       1407   PROGRAM*       40/23     53/13     53/22 L
        MIB102       1412   PROGRAM*       53/26     53/29 L
        MIB112       1423   PROGRAM*       53/46     53/48     53/57 L
        MIB12        1274   PROGRAM*       49/15     49/25 L
        MIB120       1441   PROGRAM*       54/29     54/57 L
        MIB125       1512   PROGRAM*       40/26     40/38     40/42     40/45     55/21     55/45 L
        MIB130       1520   PROGRAM*       55/46     56/12 L
        MIB135       1523   PROGRAM*       56/17     56/22 L
        MIB136       1524   PROGRAM*       56/21     56/25 L
        MIB140       1530   PROGRAM*       56/31     56/38 L
        MIB140A      1534   PROGRAM*       56/43     56/47 L
        MIB142       1540   PROGRAM*       57/04     57/09     57/15 L
        MIB143       1544   PROGRAM*       57/16     57/21     57/27 L
        MIB144       1551   PROGRAM*       57/29     57/30     57/35     57/43 L
        MIB150       1555   PROGRAM*       57/44     57/50     57/56 L
        MIB162       1557   PROGRAM*       58/05     58/08 L
        MIB163       1561   PROGRAM*       58/10     58/13 L
        MIB164       1567   PROGRAM*       58/25 L   58/27
        MIB165       1572   PROGRAM*       58/30     58/33 L
        MIB166       1576   PROGRAM*       58/04     58/44 L
        MIB2         1245   PROGRAM*       40/32     48/17 L
        MIB20        1275   PROGRAM*       49/23     49/31 L
        MIB200       1576   PROGRAM*       58/51 L
        MIB21        1313   PROGRAM*       49/50     49/57     50/03     50/06     50/11 L
        MIB22        1316   PROGRAM*       40/35     50/22 L
        MIB3         1253   PROGRAM*       48/23     48/26     48/31 L
        MIB30        1331   PROGRAM*       50/37     50/46 L
        MIB35        1334   PROGRAM*       40/13     50/50     51/01 L
        MIB4         1254   PROGRAM*       40/05     48/36 L
        MIB40        1336   PROGRAM*       50/48     51/09 L
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        MIB41        1341   PROGRAM*       51/13     51/17 L
        MIB42        1343   PROGRAM*       51/18     51/21 L
        MIB43        1346   PROGRAM*       51/15     51/23     51/25     51/28 L
        MIB5         1256   PROGRAM*       48/37     48/43 L
        MIB50        1347   PROGRAM*       51/33 L
        MIB51        1355   PROGRAM*       51/40     51/43     51/48 L
        MIB53        1357   PROGRAM*       41/01     51/51     51/56 L
        MIB55        1363   PROGRAM*       40/18     52/03     52/09 L
        MIB7         1260   PROGRAM*       40/09     48/52 L
        MIB70        1364   PROGRAM*       52/14 L
        MIB71        1373   PROGRAM*       52/27     52/32     52/35 L
        MIB72        1374   PROGRAM*       41/15     52/38 L
        MIB75        1377   PROGRAM*       41/32     52/45 L
        MIB80        1402   PROGRAM*       41/20     52/55 L
        MIB9         1266   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
        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          2040   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    5/05
        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            43   PROGRAM*        4/27     28/26 D
        PACG1         736   PROGRAM*       36/57 L   37/28
        PACG1A        740   PROGRAM*       36/54     36/56     37/04 L
        PACG2         744   PROGRAM*       37/12 L   37/26
        PACG3         745   PROGRAM*       36/50     37/10     37/14 L
        PACG4         751   PROGRAM*       37/14     37/25 L
        PACIDP1       756   PROGRAM*       37/44 L   37/49
        PACIDP2       761   PROGRAM*       37/41     37/51 L
        PACIDP3       762   PROGRAM*       37/45     37/52 L
        PACSNP1      1012   PROGRAM*       39/10 L   39/15
        PACSNP2      1015   PROGRAM*       39/07     39/17 L
        PACSNP3      1016   PROGRAM*       39/11     39/18 L
        PACS1         771   PROGRAM*       38/21 L   38/53
        PACS1A        773   PROGRAM*       38/17     38/19     38/25 L
        PACS2         777   PROGRAM*       38/34 L   38/51
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        PACS3        1000   PROGRAM*       38/13     38/30     38/37 L
        PACS4        1002   PROGRAM*       38/37     38/41 L
        PACS5        1005   PROGRAM*       38/39     38/50 L
        PAC=G         731   PROGRAM*       33/29     36/46 L
        PAC=IDP       754   PROGRAM*       34/08     37/39 L
        PAC=S         764   PROGRAM*       33/52     38/09 L
        PAC=SNAP     1010   PROGRAM*       34/10     39/04 L
        PAC.RET        65   PROGRAM*       28/27 D   37/30     38/18     39/20     40/55
                                           36/55     37/54     38/55     40/50     41/52
        PPW          1610   PROGRAM*       56/29     56/33     59/30 L
        PPWA         1653   PROGRAM*       59/31 S   59/38     60/15     60/23     60/56     61/03 L
        PPWB         1655   PROGRAM*       59/35     61/05 L
        PPW57        1616   PROGRAM*       59/40     59/43 L
        PPW58        1620   PROGRAM*       59/44     59/46 L
        PPW59        1622   PROGRAM*       59/49     59/51 L
        PPW60        1625   PROGRAM*       59/41     59/57     60/08 L
        PPW60.1      1630   PROGRAM*       41/45     41/47     60/14 L
        PPW60.2      1633   PROGRAM*       60/12     60/20 L
        PPW61        1634   PROGRAM*       60/23 L
        PPW62        1642   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
        RA.JOT         66   FTX            46/38
        RA.LWP         65   CPUTEXT        45/57
        RA.ORG        100   CPUTEXT         3/52 S   36/19     44/45
        RA.PGN         64   CPUTEXT        11/07     46/01
        RA.SSW          0   CPUTEXT        45/17
        RDC=            0   EXTERNAL*       2/47 X   58/55
        ROR          2224   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          2100   PROGRAM*       68/24 S   69/26     69/32 L
        SB5          2077   PROGRAM*       68/22 S   69/24     69/31 L
        SCR             0   EXTERNAL*       2/37 X
        SD.SPY        722   PROGRAM*       34/20     36/19 L   58/06     58/11
        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
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        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   58/40 S
        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          2101   PROGRAM*       57/08     57/20     57/34     59/37     71/23 D
        STF=         2101   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          2041   PROGRAM*       27/05     68/18 L
        TCC10        2073   PROGRAM*       69/17     69/24 L
        TCC2         2051   PROGRAM*       68/36 L   68/54     69/05
        TCC4         2053   PROGRAM*       68/38     68/42 L
        TCC5         2056   PROGRAM*       68/45     68/50 L
        TCC6         2064   PROGRAM*       68/48     68/50     69/07 L
        TCC7         2067   PROGRAM*       69/13 L
        TCC8         2071   PROGRAM*       68/57     69/09     69/19 L
        TEST            1   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          2076   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
        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    5/15
        UKT=LNK         0   EXTERNAL*       2/25 X    5/16 S
        USY=FE          0   EXTERNAL*       5/17
        WARN          725   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.BINS       2046                  36/21 D   58/16     58/17
        Z.INSB        401                  54/30     54/36
        Z.KEYS        176                   4/23     34/23 D
        Z.LGOQB       500                  55/47
        Z.OUTSB       401                  54/31
        Z.PBQB        701                  55/55
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        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             5/14 F   34/05 F   45/09 F   58/02 F   59/47 F
                                           20/22 F   34/19 F   45/21 F   59/34 F   61/45 F
        .SPY            1   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           430   PROGRAM*       26/55     27/44 L
        CFV           245   PROGRAM*       15/55     20/15 L   28/28
        DEM           252   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          274   PROGRAM*       10/23 S   20/57     22/04 L
        DEMB          275   PROGRAM*       21/08     22/05 L
        DEM1          260   PROGRAM*       21/07     21/09 L
        DEM2          264   PROGRAM*       21/10     21/15 L
        DEM.RET       254   PROGRAM*       21/03 L   28/30
        DEM.UEP       273   PROGRAM*       21/01     21/49 L
        ERR.CNT       306   PROGRAM*       21/04     22/08 L   28/31
        ERR.FLD       301   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       252   PROGRAM*       20/54 L   28/33
        E.GT10        307   PROGRAM*       22/41 L   24/52
        E.IBV         312   PROGRAM*       17/08     22/45 L
        E.IC          314   PROGRAM*       22/49 L   26/03
        E.IFN         320   PROGRAM*       15/57     23/01 L
        E.IN          322   PROGRAM*       16/39     23/05 L
        E.ME          324   PROGRAM*       13/53     16/56     17/28     23/09 L
        E.NE          326   PROGRAM*       13/20     23/13 L
        E.SKIP1       345   PROGRAM*       22/47     23/17     23/41 L   23/43     23/45
        E.SKIP2       346   PROGRAM*       23/11     23/26     23/29     23/33     23/43 L
        E.STL         330   PROGRAM*       14/20     23/16 L
        E.TM          332   PROGRAM*       23/19 L   26/48
        E.TMOC        335   PROGRAM*       13/15     23/24 L
        E.TMOP        337   PROGRAM*       14/57     23/28 L
        E.UA          341   PROGRAM*       12/42     23/31 L
        E.UOP         343   PROGRAM*       18/36     23/35 L
        GNA           350   PROGRAM*       11/13     14/09     17/03     23/42     28/34
                                           12/24     14/51     17/54     24/39 L
        GNA1          352   PROGRAM*       24/43 L   24/48
        GNA2          360   PROGRAM*       22/43     24/56 L   24/57
        GNC           364   PROGRAM*       10/36     10/46     24/43     24/49     24/56     25/39 L   28/35
        GNCA          432   PROGRAM*       26/09     28/16 L
        GNCB          433   PROGRAM*       26/31     26/45 S   26/45     27/39 S   28/17 L
        GNCC          434   PROGRAM*       10/24 S   26/42     28/18 L
        GNC1          365   PROGRAM*       22/56     25/43 L   26/16     26/21     26/37     26/38     27/42
        GNC2          371   PROGRAM*       25/53     26/01 L
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    91
        SYMBOLIC REFERENCE TABLE.                                     COMCPAC 
  
        GNC3          377   PROGRAM*       25/49     26/20 L
        GNC4          400   PROGRAM*       25/50     26/26 L
        GNC5          401   PROGRAM*       25/43     26/31 L
        GNC6          405   PROGRAM*       26/36     26/42 L
        GNC6A         417   PROGRAM*       26/56     27/05 L
        GNC7          420   PROGRAM*       26/34     27/09 L
        GNC8          421   PROGRAM*       27/10 L   27/12
        GNC.RET       426   PROGRAM*       27/37 L   28/36
        GNC.UCP       431   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
        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            43   PROGRAM*       10/22 L   28/26
        PACA          237   PROGRAM*       12/22 S   13/51     16/26     17/26     19/47 L
                                           13/31     16/10 S   16/49     18/04
        PACB          242   PROGRAM*       10/27 S   11/17     12/26     19/50 L
        PAC10          71   PROGRAM*       11/18     12/02     12/19 L   12/25     23/14
        PAC100        234   PROGRAM*       13/32     14/24     15/35     19/10 L   19/16
        PAC12          77   PROGRAM*       12/35 L   12/41
        PAC14         102   PROGRAM*       12/39     12/46 L
        PAC2           47   PROGRAM*       10/35 L   10/38
        PAC20         112   PROGRAM*       13/37 L   13/43
        PAC30         115   PROGRAM*       13/19     13/49 L
        PAC32         120   PROGRAM*       14/07 L   14/14
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    92
        SYMBOLIC REFERENCE TABLE.                                     COMCPAC 
  
        PAC33         123   PROGRAM*       14/16 L   14/37
        PAC34         125   PROGRAM*       14/13     14/24 L
        PAC35         130   PROGRAM*       14/28     14/32 L
        PAC36         132   PROGRAM*       13/54     14/47 L
        PAC38         133   PROGRAM*       14/50 L   15/34
        PAC39         135   PROGRAM*       14/52     14/56 L
        PAC4           52   PROGRAM*       10/44 L   10/48
        PAC40         141   PROGRAM*       15/07     15/12 L
        PAC42         146   PROGRAM*       15/03     15/13     15/30 L   15/46     15/56     16/38     23/03     23/07
        PAC44         151   PROGRAM*       15/14     15/43 L
        PAC46         153   PROGRAM*       15/15     15/53 L
        PAC48         155   PROGRAM*       15/18     15/21     16/09 L
        PAC50         167   PROGRAM*       13/18     16/48 L
        PAC52         172   PROGRAM*       16/51     16/56 L
        PAC54         173   PROGRAM*       16/52     17/02 L
        PAC56         177   PROGRAM*       16/54     16/57     17/04     17/07     17/10 L
        PAC6           63   PROGRAM*       11/05     11/11     11/17 L
        PAC60         200   PROGRAM*       13/17     17/21 L
        PAC62         203   PROGRAM*       17/25     17/32 L
        PAC64         204   PROGRAM*       17/33 L   17/43
        PAC66         206   PROGRAM*       17/36     17/38 L
        PAC68         211   PROGRAM*       17/41     17/47 L
        PAC70         212   PROGRAM*       17/53 L   18/07     18/14
        PAC72         217   PROGRAM*       18/03     18/11 L   18/46     18/55     23/36
        PAC74         221   PROGRAM*       17/55     18/23 L
        PAC76         223   PROGRAM*       18/28 L   18/33
        PAC77         230   PROGRAM*       18/44 L   18/48
        PAC78         232   PROGRAM*       18/31     18/52 L
        PAC80         233   PROGRAM*       17/47     18/05     18/12     18/57 L
        PAC.RET        65   PROGRAM*       12/01 L   13/44     14/30     17/11     19/02     19/11     23/47     28/27
        PAC.UAP       236   PROGRAM*       13/16     19/40 L
        PAC.UFP        64   PROGRAM*       11/30 L
        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            435   PROGRAM*       33/16 L
        ANSI          440   PROGRAM*       33/17 L
        ARG           443   PROGRAM*       33/18 L
        B             446   PROGRAM*       33/19 L
        BL            451   PROGRAM*       33/20 L
        BREAK         606   PROGRAM*       34/06 L
        CPL           611   PROGRAM*       34/07 L
        CS            454   PROGRAM*       33/21 L
        DB            457   PROGRAM*       33/22 L
        DO            462   PROGRAM*       33/23 L
        DS            465   PROGRAM*       33/24 L
        E             473   PROGRAM*       33/26 L
        EC            470   PROGRAM*       33/25 L
        EL            476   PROGRAM*       33/27 L
        ET            501   PROGRAM*       33/28 L
        G             504   PROGRAM*       33/29 L
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    93
        SYMBOLIC REFERENCE TABLE.                                     KEYS
  
        GO            507   PROGRAM*       33/30 L
        I             512   PROGRAM*       33/31 L
        IDP           614   PROGRAM*       34/08 L
        L             515   PROGRAM*       33/34 L
        LCM           520   PROGRAM*       33/38 L
        LO            526   PROGRAM*       33/40 L
        MD            531   PROGRAM*       33/41 L
        ML            534   PROGRAM*       33/42 L
        OPT           537   PROGRAM*       33/43 L
        PC            542   PROGRAM*       33/44 L
        PD            545   PROGRAM*       33/45 L
        PL            523   PROGRAM*       33/39 L
        PN            550   PROGRAM*       33/46 L
        PS            553   PROGRAM*       33/47 L
        PW            556   PROGRAM*       33/48 L
        QC            561   PROGRAM*       33/49 L
        REW           564   PROGRAM*       33/50 L
        RFL           617   PROGRAM*       34/09 L
        ROUND         567   PROGRAM*       33/51 L
        S             572   PROGRAM*       33/52 L
        SEQ           575   PROGRAM*       33/53 L
        SNAP          622   PROGRAM*       34/10 L
        SPP           625   PROGRAM*       34/11 L
        SPY           630   PROGRAM*       34/20 L
        STATIC        600   PROGRAM*       33/54 L
        X             603   PROGRAM*       33/57 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  MBV 
  
  
        ARG           633   PROGRAM*       33/18     34/35 L
        DB            637   PROGRAM*       33/22     34/39 L
        DO            655   PROGRAM*       33/23     34/48 L
        LO            661   PROGRAM*       33/40     34/52 L
        REW           673   PROGRAM*       33/50     35/02 L
        ROUND         703   PROGRAM*       33/51     35/08 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  MACRO$
  
  
        GETPAGE      1657   PROGRAM*       61/21 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCPM 
  
  
        CPM1         1674   PROGRAM*       62/47 L   62/57
        CPM=         1675   PROGRAM*       62/49 L   63/04
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/05. 19.58.22.      PAGE    94
        SYMBOLIC REFERENCE TABLE.                                     COMCSTF 
  
                                                  SYMBOL QUALIFIER =  COMCSTF 
  
  
        STF          2101   PROGRAM*       70/52 L   71/23     71/24
        STFA         2112   PROGRAM*       70/57 S   71/02     71/15 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFGOI 
  
  
        GOI          2113   PROGRAM*       72/20 L   73/44
        GOI1         2123   PROGRAM*       72/26     72/33     72/35 L
        GOI2         2126   PROGRAM*       72/36     72/38 L
        GOI3         2137   PROGRAM*       72/42     72/46     72/50 L
        GOI4         2155   PROGRAM*       72/56     73/20 L
        GOI5         2163   PROGRAM*       73/27     73/33 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFROR 
  
  
        ROR          2224   PROGRAM*       77/29 L   78/47
        ROR2         2232   PROGRAM*       78/12 L   78/21     78/22     78/40
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/05. 19.58.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      154              IDENT  INIT10 
                        154              B=LWA10  END                MARK END OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       145 
                                        DEBUG     LOCAL         145         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=INIT1          0+           FTN10            0+           B=LWA10        154+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        OSTACK    CO.RNDS   IDPCHK    MEMERR    FIN.OL    THRESH    CO.DBSL   USY=FE  * 
                                        CO.ANSI   CP.AFLS   SYS=      NOM.FLS   FIN.MAP   F.SKEL    CO.LCM
                                        CO.LOA    CP.IFMT   WNB=      INT.FL    FIN       RPV=      MDER.SW 
                                        CO.LOO    CP.NFLS   CO.LOM    IDP=      ANSI.SW   F.SYMIL   TIMER 
                                        CO.LOR    FV.LGO    NOM.FL    IDP=USY   ERRTYP    Z.SYMDB   TIME1 
                                        CO.RNDA   F.LGO     CO.OPT    UKT=FE    L.TABS    Z.SYMIL   WO.LCM
                                        CO.RNDD   F.PB      CP.MXFL   UKT=LNK   O.TABS    Z.SYMVP   WTE 
                                        CO.RNDM   F.REF     MAX.FL    WIN       PUC       CO.MD     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
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/05. 19.58.25.      PAGE     2
                                                                      INIT10
  
                                                  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
                                                                                                                 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
             0  5110000000                        SA1    RA.SSW      SENSE SWITCH WORD                           INIT10     53
                          20160                   LX1    59-5-6      GET SWITCH 6                                INIT10     54
             1  0331000007 +                      MI     X1,INI1     IF SWITCH 6 ON                              INIT10     55
                                         .TEST    ENDIF                                                          INIT10     56
                                                                                                                 INIT10     57
                          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
             7                           INI1     BSS    0                                                       FC5A158A  403
                                         #OS      IFNE   .OS,2                                                   FC5A158A  404
             7  7160000000 X                      SX6    =XUKT=FE    (X6) = FWA OF *FRONT END* IDP KEYWORD TBL   FC5A158A  405
                          5160000000 X            SA6    =XUKT=LNK                                               INIT10     66
            10  7160000000 X                      SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT10     67
                          5160000000 X            SA6    =XIDP=USY                                               INIT10     68
            11  0100000000 X                      CALL   IDPCHK      CHECK FOR IDP REQUEST                       INIT10     69
            12  0670000014 +                      PL     B7,INI2     IF IDP NOT REQUESTED                        INIT10     70
            13  0100000000 X             FTN10    BREAK                                                          INIT10     71
                                         #OS      ENDIF                                                          FC5A158A  406
                                         .TEST    ENDIF                                                          INIT10     72
                                                                                                                 INIT10     73
                                        *         INITIALIZE OVERLAY.                                            INIT10     74
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/05. 19.58.25.      PAGE     3
                                                                      FCA 
  
                                                                                                                 INIT10     75
            14  5110000000 X             INI2     SA1    =XCP.IFMT                                               INIT10     76
                          0331000000 X            MI     X1,=XPUC    IF EOR, LET PUC CLEAN UP...                 INIT10     77
                                                                                                                 INIT10     78
            15  0100000017 +                      RJ     GOI         GLOBAL OVERLAY INITIALIZATION               INIT10     79
            16  0400000000 X                      EQ     =XPUC       EXIT TO PROGRAM UNIT CONTROLLER...          INIT10     80
  
  
  
  
                                                  LIST   -X          COMFGOI, COMFFEI, COMSEIS, COMFROR AND      INIT10     82
                                                                     FA=SET ARE LISTED IN DECK INIT00.           INIT10     83
                                                                                                                 INIT10     84
            16                                    CTEXT  COMFGOI - GLOBAL OVERLAY INITIALIZATION                 COMFGOI     2
                                                                                                                 INIT10     86
            71                           FEI      CTEXT  COMFFEI - FRONT END INITIALIZATION.                     COMFFEI     2
                                                                                                                 INIT10     88
           130                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
                                                                                                                 INIT10     90
           130                           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 Y                        USY=FE
             0 X                        FA=SET
             0 X                        WTE 
  
           154                           B=LWA10  END                MARK END OF OVERLAY FOR RPV                 INIT10     96
  
                             74200B CM  STORAGE USED              909 STATEMENTS     1477 SYMBOLS      000007 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.349 SECONDS          70 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI.SW         0   EXTERNAL*       2/04 X
        B1=1            0 
        B=LWA10       154   PROGRAM*        3/27 E    3/28 L
        CO.ANSI         0   EXTERNAL*       1/43 X
        CO.DBSL         0   EXTERNAL* 
        CO.LCM          0   EXTERNAL* 
        CO.LOA          0   EXTERNAL*       1/43 X
        CO.LOM          0   EXTERNAL*       1/45 X
        CO.LOO          0   EXTERNAL*       1/43 X
        CO.LOR          0   EXTERNAL*       1/43 X
        CO.MD           0   EXTERNAL* 
        CO.OPT          0   EXTERNAL*       1/46 X
        CO.RNDA         0   EXTERNAL*       1/43 X
        CO.RNDD         0   EXTERNAL*       1/43 X
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/05. 19.58.25.      PAGE     4
        SYMBOLIC REFERENCE TABLE. 
  
        CO.RNDM         0   EXTERNAL*       1/43 X
        CO.RNDS         0   EXTERNAL*       1/44 X
        CP.AFLS         0   EXTERNAL*       1/44 X
        CP.IFMT         0   EXTERNAL*       1/44 X    3/02
        CP.MXFL         0   EXTERNAL*       1/46 X
        CP.NFLS         0   EXTERNAL*       1/44 X
        ERRTYP          0   EXTERNAL*       2/07 X
        FA=SET          0   EXTERNAL* 
        FIN             0   EXTERNAL*       2/01 X
        FIN.MAP         0   EXTERNAL*       2/01 X
        FIN.OL          0   EXTERNAL*       1/55 X
        FTN10           0   PROGRAM*        2/28 L    2/28 E
        FV.LGO          0   EXTERNAL*       1/44 X
        F.LGO           0   EXTERNAL*       1/44 X
        F.PB            0   EXTERNAL*       1/44 X
        F.REF           0   EXTERNAL*       1/44 X
        F.SKEL          0   EXTERNAL*       2/10 X
        F.SYMIL         0   EXTERNAL* 
        GOI            17   PROGRAM*        3/05
        IDPCHK          0   EXTERNAL*       1/45 X    2/51
        IDP=            0   EXTERNAL*       1/49 X    2/53
        IDP=USY         0   EXTERNAL*       1/49 X    2/50 S
        INI1            7   PROGRAM*        2/35      2/45 L
        INI2           14   PROGRAM*        2/52      3/02 L
        INT.FL          0   EXTERNAL*       1/46 X
        L.TABS          0   EXTERNAL*       2/07 X
        MAX.FL          0   EXTERNAL*       1/46 X
        MDER.SW         0   EXTERNAL* 
        MEMERR          0   EXTERNAL*       1/46 X
        NOM.FL          0   EXTERNAL*       1/45 X
        NOM.FLS         0   EXTERNAL*       1/46 X
        OSTACK          0   EXTERNAL*       1/40 X
        O.TABS          0   EXTERNAL*       2/07 X
        PUC             0   EXTERNAL*       2/07 X    3/03      3/06
        RA.SSW          0   CPUTEXT         2/33
        RPV=            0   EXTERNAL*       2/13 X    2/38      2/38
        SYS=            0   EXTERNAL*       1/45 X    2/38
        TEST            1   FTX             2/32 F    2/44 F
        THRESH          0   EXTERNAL*       2/07 X
        TIMER           0   EXTERNAL* 
        TIME1           0   EXTERNAL* 
        UKT=FE          0   EXTERNAL*       1/49 X    2/47
        UKT=LNK         0   EXTERNAL*       1/49 X    2/48 S
        USY=FE          0   EXTERNAL*       2/49
        WIN             0   EXTERNAL*       1/52 X
        WNB=            0   EXTERNAL*       1/45 X
        WO.LCM          0   EXTERNAL* 
        WTE             0   EXTERNAL* 
        Z.SYMDB         0   EXTERNAL* 
        Z.SYMIL         0   EXTERNAL* 
        Z.SYMVP         0   EXTERNAL* 
        .OS             1   FTX             2/46 F
        '?RPV=A        37                   2/38 D    2/38
1       INIT20 - INITIALIZE CONTROLLER OVERLAY.                       COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       30              IDENT  INIT20 
                         30              B=LWA20  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        21 
                                        DEBUG     LOCAL          21         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=INI20          0+           FWA22         4010+           FWA23            0+ 
                                        FTN20            0+           FW.ILB           0+           B=LWA20         30+ 
                                        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
1       INIT20 - INITIALIZE CONTROLLER OVERLAY.                       COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     2
                                                                      END20 
  
             0                           END20    BSS    0           ALL CODE PAST HERE IS OVERLAYED             INIT20     17
  
  
  
  
                                        **        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
             0  5110000000                        SA1    RA.SSW      SENSE SWITCH WORD                           INIT20     30
                          20160                   LX1    59-5-6      GET SWITCH 6                                INIT20     31
             1  0331000007 +                      MI     X1,INI1     IF SWITCH 6 ON                              INIT20     32
                                         .TEST    ENDIF                                                          INIT20     33
                                                                                                                 INIT20     34
                          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
             7                           INI1     BSS    0                                                       FC5A158A  407
                                         #OS      IFNE   .OS,2                                                   FC5A158A  408
             7  0100000000 X                      CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  409
            10  0670000012 +                      PL     B7,INI2     IF IDP NOT REQUESTED                        INIT20     41
            11  0100000000 X             FTN20    BREAK                                                          INIT20     42
                                         #OS      ENDIF                                                          FC5A158A  410
                                         .TEST    ENDIF                                                          INIT20     43
                                                                                                                 INIT20     44
                                        *         INITIALIZE OVERLAY.                                            INIT20     45
                                                                                                                 INIT20     46
            12  5110000000 X             INI2     SA1    CP.AFLS     CURRENT FL                                  INIT20     47
                          10611                   BX6    X1                                                      INIT20     48
            13  5160000000 X                      SA6    INT.FL      SAVE INITIAL FL                             INIT20     49
                          5110000000 X            SA1    CP.IFMT                                                 FC50518     8
            14  0321000000 X                      PL     X1,PUC      IF NOT EOR, LAST READ                       FC50518     9
                          5110000000 X            SA1    FV.LGO                                                  FC50518    10
            15  0301000000 X                      ZR     X1,PUC      IF NO BINARY FILE                           FC50518    11
                          7120000000 X            SETFIL FILE=F.LGO,MODE=INIT,FWA=END20                          FC50518    12
            20  0400000000 X                      EQ     PUC         EXIT TO PROGRAM UNIT CONTROLLER...          INIT20     50
  
  
  
  
                                                  LIST   -X          COMFCIP IS LISTED IN *FTN*                  INIT20     52
            20                           CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS               COMFCIP     2
                                                  LIST   *                                                       INIT20     54
1       INIT20 - INITIALIZE CONTROLLER OVERLAY.                       COMPASS 3.7-871.     24/05/05. 19.58.26.      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
  
            30                           B=LWA20  END                MARK LWA OF OVERLAY FOR RPV                 INIT20     68
  
                             74000B CM  STORAGE USED              300 STATEMENTS     1374 SYMBOLS      000005 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.211 SECONDS          58 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=LWA20        30   PROGRAM*        3/12 E    3/13 L
        CP.AFLS         0   EXTERNAL*       1/36 X    2/37
        CP.IFMT         0   EXTERNAL*       1/36 X    2/40
        END20           0   PROGRAM*        2/01 L    2/44      3/04      3/05      3/06      3/08
        FA=SET          0   EXTERNAL*       2/44
        FTN20           0   PROGRAM*        2/12 L    2/12 E
        FV.LGO          0   EXTERNAL*       1/36 X    2/42
        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/36 X    2/44
        IDPCHK          0   EXTERNAL*       1/36 X    2/29
        IDP=            0   EXTERNAL*       1/39 X    2/31
        INI1            7   PROGRAM*        2/19      2/27 L
        INI2           12   PROGRAM*        2/30      2/37 L
        INT.FL          0   EXTERNAL*       1/36 X    2/39 S
        PUC             0   EXTERNAL*       1/42 X    2/41      2/43      2/45
        RA.SSW          0   CPUTEXT         2/17
        RPV=            0   EXTERNAL*       1/45 X    2/22      2/22
        SYS=            0   EXTERNAL*       1/36 X    2/22
        TEST            1   FTX             2/16 F    2/26 F
        Z.ILB        2004                   3/05      3/07
        Z.PBB        2004                   3/05
        .OS             1   FTX             2/28 F
        '?RPV=A        37                   2/22 D    2/22
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      115              IDENT  INIT21 
                        115              B=LWA21  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       106 
                                        DEBUG     LOCAL         106         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=INI21          0+           DLF             32+ 
                                        FTN21            0+           B=LWA21        115+ 
  
  
                                        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    USY=FE  * 
  
  
  
  
                                                  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
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     2
                                                                      INIT21
  
                                                  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
                                                  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
             2  5110000000                        SA1    RA.SSW      SENSE SWITCH WORD                           INIT21     55
                          20160                   LX1    59-5-6      GET SWITCH 6                                INIT21     56
             3  0331000011 +                      MI     X1,INI1     IF SWITCH 6 ON                              INIT21     57
                                         .TEST    ENDIF                                                          INIT21     58
                                                                                                                 INIT21     59
                          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
            11                           INI1     BSS    0                                                       FC5A158A  411
                                         #OS      IFNE   .OS,2                                                   FC5A158A  412
            11  7160000000 X                      SX6    UKT=FE                                                  INIT21     70
                          5160000000 X            SA6    UKT=LNK                                                 INIT21     71
            12  7160000000 X                      SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT21     72
                          5160000000 X            SA6    =XIDP=USY                                               INIT21     73
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     3
                                                                      INIT21
  
            13  0100000000 X                      CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  413
            14  0670000016 +                      PL     B7,INI2     IF IDP NOT REQUESTED                        INIT21     75
            15  0100000000 X             FTN21    BREAK                                                          INIT21     76
                                         #OS      ENDIF                                                          FC5A158A  414
                                         .TEST    ENDIF                                                          INIT21     77
                                                                                                                 INIT21     78
                                        *         INITIALIZE OVERLAY.                                            INIT21     79
                                                                                                                 INIT21     80
            16  6130000000 +             INI2     SB3    FTN21       END OF CODE IN OVERLAY                      INIT21     81
                          5120000000 X            SA2    CO.LOR      MASTER REFERENCE MAP FLAG                   INIT21     82
            17  0322000021 +                      PL     X2,INI3     IF NO MAP                                   INIT21     83
                          7120000000 X            SETFIL FILE=F.REF,MODE=INIT,FWA=B3  SET MAP BUFFER             INIT21     84
            21  7120000000 X             INI3     SETFIL FILE=F.IL,MODE=INIT,FWA=B3   SET IL BUFFER              INIT21     85
            23  76630                             SX6    B3          LWA+1 OF IL BUFFER                          INIT21     86
                     5160000000 X                 SA6    O.TABS      SET ORIGIN OF MANAGED TABLES                INIT21     87
            24  5120000000 X                      SA2    CP.NFLS                                                 INIT21     88
                          37626                   IX6    X2-X6                                                   INIT21     89
            25  5160000000 X                      SA6    L.TABS      SET SIZE OF TABLE AREA                      INIT21     90
                          21604                   AX6    FLSLOP                                                  INIT21     91
            26  5160000000 X                      SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                  INIT21     92
                          0100000033 +            RJ     FEI         FRONT END INITIALIZATION                    INIT21     93
            27  6120000000 X                      SB2    F.SKEL                                                  INIT21     94
                          0100000071 +            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
            30  43700                    INI5     MX7    0                                                       INIT21    101
                     5170000000 X                 SA7    N.MAXIL     FORCE MINIMAL IL SEGMENTS                   INIT21    102
            31  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
            32                           DLF      BSSENT 0           SATISFY EXTERNAL FOR ALLOC                  INIT21    109
                                                  IFEQ   TEST,ON,1   IF TEST MODE                                INIT21    110
            32  0400400032 +                      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
            32                           FEI      CTEXT  COMFFEI - FRONT END INITIALIZATION.                     COMFFEI     2
                                                                                                                 INIT21    119
            71                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
                                                                                                                 INIT21    121
            71                           ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                       COMFROR     2
                                                                                                                 INIT21    123
                                                                                                                 INIT21    124
                                                  LIST   D                                                       INIT21    125
                                                  ENTRY  B=LWA21                                                 INIT21    126
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     4
                                                                      LITERALS
  
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 Y                        USY=FE
             0 X                        FA=SET
  
           115                           B=LWA21  END                MARK LWA OF OVERLAY FOR RPV                 INIT21    127
  
                             74100B CM  STORAGE USED              812 STATEMENTS     1455 SYMBOLS      000006 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.413 SECONDS          75 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI.SW         0   EXTERNAL*       2/01 X
        B1=1            0 
        B=LWA21       115   PROGRAM*        3/57 E    4/01 L
        CO.ANSI         0   EXTERNAL*       1/48 X
        CO.DBSL         0   EXTERNAL* 
        CO.LCM          0   EXTERNAL* 
        CO.LOR          0   EXTERNAL*       1/48 X    3/10
        CO.MD           0   EXTERNAL* 
        CO.OPT          0   EXTERNAL* 
        CO.RNDA         0   EXTERNAL*       1/48 X
        CO.RNDD         0   EXTERNAL*       1/48 X
        CO.RNDM         0   EXTERNAL*       1/48 X
        CO.RNDS         0   EXTERNAL*       1/48 X
        CP.NFLS         0   EXTERNAL*       1/48 X    3/16
        DLF            32   PROGRAM*        3/40 L    3/40 E
        ERRTYP          0   EXTERNAL*       2/01 X
        FA=SET          0   EXTERNAL*       3/12      3/13
        FEC             0   EXTERNAL*       1/39 X    3/31
        FEI            33   PROGRAM*        3/21
        FLSLOP          4   FTX             3/19
        FTN21           0   PROGRAM*        2/25 L    2/25 E    3/09
        F.IL            0   EXTERNAL*       1/49 X    3/13
        F.REF           0   EXTERNAL*       1/49 X    3/12
        F.SKEL          0   EXTERNAL*       1/45 X    3/22
        F.SYMIL         0   EXTERNAL* 
        IDPCHK          0   EXTERNAL*       1/49 X    3/01
        IDP=            0   EXTERNAL*       1/52 X    3/03
        IDP=USY         0   EXTERNAL*       1/52 X    2/57 S
        INI1           11   PROGRAM*        2/39      2/52 L
        INI2           16   PROGRAM*        3/02      3/09 L
        INI3           21   PROGRAM*        3/11      3/13 L
        INI5           30   PROGRAM*        3/29 L
        L.TABS          0   EXTERNAL*       2/04 X    3/18 S
        MDER.SW         0   EXTERNAL* 
        N.MAXIL         0   EXTERNAL*       2/04 X    3/30 S
        O.TABS          0   EXTERNAL*       2/04 X    3/15 S
        RA.SSW          0   CPUTEXT         2/37
        ROR            71   PROGRAM*        3/23
        RPV2N           0   EXTERNAL*       2/07 X    2/31 S
        RPV21           0   EXTERNAL*       2/10 X    2/30
        RPV=            0   EXTERNAL*       2/13 X    2/42      2/42
        SQZ             0   EXTERNAL*       1/55 X
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     5
        SYMBOLIC REFERENCE TABLE. 
  
        SYS=            0   EXTERNAL*       1/49 X    2/42
        TEST            1   FTX             2/36 F    2/51 F    3/41 F
        THRESH          0   EXTERNAL*       2/04 X    3/20 S
        TIMER           0   EXTERNAL* 
        TIME1           0   EXTERNAL* 
        UKT=FE          0   EXTERNAL*       1/42 X    2/54
        UKT=LNK         0   EXTERNAL*       1/52 X    2/55 S
        USY=FE          0   EXTERNAL*       2/56
        WNB=            0   EXTERNAL*       1/49 X
        WO.LCM          0   EXTERNAL* 
        Z.SYMDB         0   EXTERNAL* 
        Z.SYMIL         0   EXTERNAL* 
        Z.SYMVP         0   EXTERNAL* 
        .OS             1   FTX             2/53 F
        '?RPV=A        37                   2/42 D    2/42
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       67              IDENT  INIT23 
                         67              B=LWA23  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        60 
                                        DEBUG     LOCAL          60         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=INI23          0+           FTN23            0+           B=LWA23         67+ 
  
  
                                        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     USY=RE  * 
  
  
  
  
                                                  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
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     2
                                                                      INIT23
  
                                                  EXT    RPV=                                                    INIT23     28
  
  
  
  
                                        **        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
             2  76600                             =X6    0                                                       INIT23     48
                     5160000000 X                 SA6    RPV=URP     CLEAR USER REPRIEVE PROCESSING              INIT23     49
             3  5110000000                        SA1    RA.SSW      SENSE SWITCH WORD                           INIT23     50
                          20160                   LX1    59-5-6      GET SWITCH 6                                INIT23     51
             4  0331000012 +                      MI     X1,INI1     IF SWITCH 6 ON                              INIT23     52
                                         .TEST    ENDIF                                                          INIT23     53
                                                                                                                 INIT23     54
                          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
            12                           INI1     BSS    0                                                       FC5A158A  415
                                         #OS      IFNE   .OS,2                                                   FC5A158A  416
            12  7160000000 X                      SX6    UKT=RE                                                  INIT23     62
                          5160000000 X            SA6    UKT=LNK                                                 INIT23     63
                                                                                                                 INIT23     64
            13  7160000000 X                      SX6    =YUSY=RE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT23     65
                          5160000000 X            SA6    IDP=USY                                                 INIT23     66
                                                                                                                 INIT23     67
            14  0100000000 X                      CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  417
            15  0670000017 +                      PL     B7,INI2     IF IDP NOT REQUESTED                        INIT23     69
            16  0100000000 X             FTN23    BREAK                                                          INIT23     70
                                         #OS      ENDIF                                                          FC5A158A  418
                                         .TEST    ENDIF                                                          INIT23     71
                                                                                                                 INIT23     72
                                        *         INITIALIZE OVERLAY.                                            INIT23     73
                                                                                                                 INIT23     74
            17  6130000000 +             INI2     SB3    FTN23       END OF CODE IN OVERLAY                      INIT23     75
                          5120000000 X            SA2    CO.LOR      MASTER REFERENCE MAP FLAG                   INIT23     76
            20  0322000022 +                      PL     X2,INI3     IF NO MAP                                   INIT23     77
                          7120000000 X            SETFIL FILE=F.REF,MODE=INIT,FWA=B3  SET MAP BUFFER             INIT23     78
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     3
                                                                      INIT23
  
            22  7120000000 X             INI3     SETFIL FILE=F.PB,MODE=INIT,FWA=B3   SET PB BUFFER              INIT23     79
            24  5110000000 X                      SA1    FV.LGO                                                  INIT23     80
                          76630                   SX6    B3                                                      INIT23     81
            25  0301000030 +                      ZR     X1,INI3A    IF NO LGO                                   INIT23     82
                          7120000000 X            SETFIL FILE=F.LGO,MODE=INIT,FWA=B3  SET LGO BUFFER             INIT23     83
            27  76620                             SX6    B2          FWA OF LGO                                  INIT23     84
            30  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
            31  5110000000 X                      SA1    SIZES                                                   INIT23     89
                          0301000035 +            ZR     X1,INI4     IF FIRST TABLE EMPTY                        INIT23     90
            32  7110000046 +                      PLINE  INIA,5                                                  INIT23     91
            34  0400000037 +                      EQ     INI5        PRINT TABLE STATISTICS                      INIT23     92
                                                                                                                 INIT23     93
            35  5110000000 X             INI4     SA1    CO.SNAP                                                 INIT23     94
                          20124                   LX1    1RT                                                     INIT23     95
            36  0321000042 +                      PL     X1,INI6     IF NO SNAP DESIRED                          INIT23     96
            37  7110000053 +             INI5     PLINE  INIB,5                                                  INIT23     97
            41  0100000000 X                      CALL   PTO         PRINT TABLE ORIGINS                         INIT23     98
            42  5110000000 X             INI6     SA1    O.TABS                                                  INIT23     99
                          10611                   BX6    X1          RESTORE (X6) AFTER SNAPS                    INIT23    100
                                         .TEST    ENDIF                                                          INIT23    101
                                                                                                                 INIT23    102
            43  5120000000 X                      SA2    CP.NFLS                                                 INIT23    103
                          37626                   IX6    X2-X6                                                   INIT23    104
            44  5160000000 X                      SA6    L.TABS      SET SIZE OF TABLE AREA                      INIT23    105
                          21604                   AX6    FLSLOP                                                  INIT23    106
            45  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
            46  55554646464646555555     INIA     DIS    5,  -----    *         TRASHED TABLES NOT ALL EMPTY.    INIT23    117
            53  55555524010214055523     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 Y                        USY=RE
             0 X                        FA=SET
  
            67                           B=LWA23  END                MARK LWA OF OVERLAY FOR RPV                 INIT23    126
  
                             74000B CM  STORAGE USED              355 STATEMENTS     1382 SYMBOLS      000007 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.176 SECONDS          90 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BASES           0   EXTERNAL*       1/43 X    3/08 S
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/05. 19.58.26.      PAGE     4
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=LWA23        67   PROGRAM*        3/41 E    3/42 L
        CO.LOR          0   EXTERNAL*       1/36 X    2/55
        CO.SNAP         0   EXTERNAL*       1/36 X    3/16
        CP.NFLS         0   EXTERNAL*       1/36 X    3/25
        FA=SET          0   EXTERNAL*       2/57      3/01      3/05
        FLSLOP          4   FTX             3/28
        FTN23           0   PROGRAM*        2/12 L    2/12 E    2/54
        FV.LGO          0   EXTERNAL*       1/36 X    3/02
        F.LGO           0   EXTERNAL*       1/36 X    3/05
        F.PB            0   EXTERNAL*       1/36 X    3/01
        F.REF           0   EXTERNAL*       1/36 X    2/57
        IDPCHK          0   EXTERNAL*       1/36 X    2/46
        IDP=            0   EXTERNAL*       1/40 X    2/48
        IDP=USY         0   EXTERNAL*       1/40 X    2/44 S
        INIA           46   PROGRAM*        3/13      3/33 L
        INIB           53   PROGRAM*        3/19      3/34 L
        INI1           12   PROGRAM*        2/28      2/38 L
        INI2           17   PROGRAM*        2/47      2/54 L
        INI3           22   PROGRAM*        2/56      3/01 L
        INI3A          30   PROGRAM*        3/04      3/07 L
        INI4           35   PROGRAM*        3/12      3/16 L
        INI5           37   PROGRAM*        3/14      3/19 L
        INI6           42   PROGRAM*        3/18      3/21 L
        L.TABS          0   EXTERNAL*       1/43 X    3/27 S
        O.TABS          0   EXTERNAL*       1/43 X    3/07 S    3/21
        PTO             0   EXTERNAL*       1/40 X    3/20
        RA.SSW          0   CPUTEXT         2/26
        REC             0   EXTERNAL*       1/46 X    3/30
        RPV2N           0   EXTERNAL*       1/49 X    2/18 S
        RPV23           0   EXTERNAL*       1/52 X    2/17
        RPV=            0   EXTERNAL*       2/01 X    2/31      2/31
        RPV=URP         0   EXTERNAL*       1/43 X    2/25 S
        SIZES           0   EXTERNAL*       1/43 X    3/11
        SYS=            0   EXTERNAL*       1/37 X    2/31
        TEST            1   FTX             2/23 F    2/37 F    3/10 F    3/32 F
        THRESH          0   EXTERNAL*       1/43 X    3/29 S
        UKT=LNK         0   EXTERNAL*       1/40 X    2/41 S
        UKT=RE          0   EXTERNAL*       1/55 X    2/40
        USY=RE          0   EXTERNAL*       2/43
        WNB=            0   EXTERNAL*       1/37 X
        WOF             0   EXTERNAL*       1/43 X    3/13      3/19
        .OS             1   FTX             2/39 F
        '?RPV=A        37                   2/31 D    2/31
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2017              IDENT  FEC
                       2017                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1766 
                                        LITERALS* LOCAL        1766        22 
                                        RGFILE    COMMON          0       500 
                                        HASH      COMMON          0       200 
                                        DEBUG     LOCAL        2010         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=FEC            0+           WANFP           31+           FEC.RTF        412+ 
                                        ARGCOMA          1+           SCR2            32+           ASK            444+ 
                                        ARGMODE          0+           ZLEQUAL         42+           ASL            501+ 
                                        ARGMIS           2+           ZLCOMMA         43+           CSB            612+ 
                                        ASSTAG           3+           ZLPAREN         44+           CUS.RET        732+ 
                                        CALLTAG          3+           ZLE             45+           OIL           1050+ 
                                        CSLTAG           4+           ZLCOLON         46+           BBC           1345+ 
                                        DATFLG           5+           F.SYMIL         47+           CCT           1360+ 
                                        DTI              6+           Z.SYMVP        105            CT1           1367+ 
                                        OSTACK           0+/RGFILE/   Z.SYMDB        132            STY           1411+ 
                                        ESTACK         240+/RGFILE/   Z.SYMIL        143            NAT.TYP       1417+ 
                                        FLOW             7+           HASHTBL          0+/HASH/     NAT.LEN       1426+ 
                                        FORSKEL          0+/RGFILE/   CHARMAP        213+           TLV           1443+ 
                                        HANGER          10+           Z.CHMAP         66            TRV           1452+ 
                                        IFLEVEL         11+           FEC=1ST          0            TRVA          1517+ 
                                        INSTF           12+           FEC=IMP          1            TSX           1521+ 
                                        LDEAD           13+           FEC=DEC          2            TSY           1533+ 
                                        L.CARD          14+           FEC=STF          3            ERT           1552+ 
                                        NOPATH          15+           FEC=EXU          4            ERT=ON        1572+ 
                                        NTRCNT          16+           FEC=END          5            ERT=OFF       1573+ 
                                        PARMODE         17+           FEC=BY           6            ESY           1574+ 
                                        PARAMC          20+           FEC=DAT          7            INN           1630+ 
                                        REFLIN          21+           FEC=FMT         10            NCM           1642+ 
                                        REFNUM          22+           FEC=ENT         11            SCS           1702+ 
                                        REFVAR          23+           FEC=TYP         12            SCSA          1711+ 
                                        ROUTNAM         24+           FEC=PRM         13            SCT           1712+ 
                                        RTNCNT          25+           FEC=OK          14            SLT           1721+ 
                                        STAGE           26+           FEC            316+           SSY           1746+ 
                                        TRLINE          27+           FEC.RTN        321+ 
                                        T=CONB          30+           FEC.RIF        407+ 
  
  
                                        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 
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        E.ANS1    FILL.     GSL       ERR=K     N.GL      S=LENP    T.END     F.INTF
                                        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
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE     3
                                                                      FEC 
  
                                                                                                                 FEC        29
                                        *         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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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/05. 19.58.27.      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  0100001075 +                      CALL   PUP         PROGRAM UNIT PRESETS                        FEC       439
           317  0100000000 X                      CALL   QCP         QUICK CODE PRESETS                          FEC       440
           320  0100000767 +                      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  0100001314 +                      RJ     RSC         RESET STATEMENT CELLS                       FEC       449
                                                                                                                 FEC       450
                                        *         CHECK FOR *BRLI* REQUEST.                                      FEC       451
                                                                                                                 FEC       452
                                         .T       IFEQ   TEST,ON                                                 FEC       453
           322  5110000000 X                      SA1    LINES       (X1) = LINE NR WITHIN THIS PGM UNIT         FEC       454
                          5120000000 X            SA2    FI=BRLI     (X2) = *BRLI* LINE NR, IF REQUESTED         FEC       455
           323  37312                             IX3    X1-X2                                                   FEC       456
                     13666                        BX6    X6-X6                                                   FEC       457
                          0302000326 +            ZR     X2,FEC1     IF NO *BRLI* REQUESTED                      FEC       458
           324  0333000326 +                      MI     X3,FEC1     IF NOT AT OR PAST SELECTED LINE NR          FEC       459
                          5062000000              SA6    A2+         CLEAR *BRLI* LINE NR                        FEC       460
                                                                                                                 FEC       461
           325  0100000000 X             BRLI     BREAK                                                          FEC       462
           326                           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
           326  5110000026 +                      SA1    STAGE                                                   FEC       470
                          5120000000 X            SA2    LEXFLG                                                  FEC       471
           327  7261777777                        SX6    X1-FEC=1ST                                              FEC       472
                                                  LX2    59-LF.HDRP                                              FEC       473
                          0306000331 +            ZR     X6,FEC1A    IF WE ARE IN *HEADER* STAGE                 FEC       474
           330  0322000331 +                      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/05. 19.58.27.      PAGE    13
        FRONT END CONTROLLER.                                         FEC.RTN 
  
                                        *         CALL THE LEXICAL SCANNER TO ENTOKEN THE NEXT SOURCE STATEMENT. FEC       478
                                                                                                                 FEC       479
           331  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
           332  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
           333  0100000000 X                      CALL   DXB         CONVERT DECIMAL DPC TO BINARY               FEC       488
                                                                                                                 FEC       489
                                                  IFEQ   TEST,ON,1                                               FEC       490
           334  0314400334 +                      NZ     X4,"BLOWUP" IF ERROR IN CONVERSION                      FEC       491
                                                                                                                 FEC       492
                          5110000021 +            SA1    REFLIN                                                  FC50096    28
           335  20606                             LX6    XR.LINEP-0                                              FEC       493
                     37116                        IX1    X1-X6                                                   FC50096    29
                          0331000340 +            MI     X1,FEC1B    IF SEQUENCE/LINE NUMBER IS ASCENDING        FC50096    30
           336  6170000000 X                      FATAL  E.SEQ       ** SEQUENCE NUMBER OUT OF ORDER             FC50096    31
           337  7160000000                        SX6    0           RESTART THE SEQUENCE NUMBERS                FC50096    32
                                                                                                                 FC50096    33
           340  5160000021 +             FEC1B    SA6    REFLIN                                                  FC50096    34
                          5110000026 +            SA1    STAGE                                                   FC50798     6
           341  7211777771                        SX1    X1-FEC=BY                                               FC50798     7
                          0301000374 +            ZR     X1,FEC.+FEC.BY  IF IN BYPASS MODE                       FC50798     8
           342  5150000000 X                      SA5    TB=TYPE                                                 FEC       495
                          0315000345 +            NZ     X5,FEC2     IF NOT UNTYPED                              FEC       496
           343  5110000030 +                      SA1    T=CONB                                                  FEC       497
                          10611                   BX6    X1                                                      FEC       498
           344  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
           345  5110000000 X             FEC2     SA1    MOD                                                     FEC       511
                          7140000400              SX4    MO.BLKM                                                 FEC       512
           346  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
           347  0304000351 +                      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/05. 19.58.27.      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
           351  5150000000 X             FEC3     SA5    TB=TYPE                                                 FEC       524
                          10355                   BX3    X5                                                      FEC       525
                               43067              MX0    -KW.FECL                                                FEC       526
           352  5140000026 +                      SA4    STAGE                                                   FEC       527
                          20343                   LX3    -KW.FECP                                                FEC       528
                               15230              BX2    -X0*X3      ISOLATE STATEMENT STAGE NUMBER              FEC       529
           353  5212000301 +                      SA1    X2+FEC=     FETCH STAGE VECTOR                          FEC       530
                          20403                   LX4    3           = ACTUAL (STAGE) * 8                        FEC       531
                               63740              SB7    X4                                                      FEC       532
           354  43064                             MX0    -8                                                      FEC       533
                     23171                        AX1    B7                                                      FEC       534
                          15210                   BX2    -X0*X1      ISOLATE COLUMN                              FEC       535
                               63220              SB2    X2                                                      FEC       536
           355  0222000356 +                      JP     B2+FEC.                                                 FEC       537
                                                                                                                 FEC       538
           356                           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  0400000351 +                      EQ     FEC3                                                    FEC       543
                                                                                                                 FEC       544
      L      2  76611                    FEC.DEC  =X6    FEC=DEC     SET STAGE = DEC                             FEC       545
                     54640                        SA6    A4                                                      FEC       546
                          0400000351 +            EQ     FEC3                                                    FEC       547
                                                                                                                 FEC       548
      L      3  0100000000 X             FEC.STF  CALL   PCD         SET STAGE = STF                             FEC       549
      L      4  0100001050 +                      RJ     OIL         OUTPUT IL FOR PRE-EXECUTABLES               FEC       550
      L      5  0400000351 +                      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
                          0400000351 +            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
           376                                    LOC    *O                                                      FEC       572
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    15
        FRONT END CONTROLLER.                                         FEC.
  
           376  5110000000 X                      SA1    TB=LABR                                                 FEC       573
                          0301000401 +            ZR     X1,FEC3A    IF NO LABEL                                 FEC       574
           377  5130000000 X                      SA3    TB=LABL                                                 FEC       575
                          10611                   BX6    X1                                                      FEC       576
                               10733              BX7    X3                                                      FEC       577
           400  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
           401  5150000000 X             FEC3A    SA5    TB=TYPE                                                 FEC       585
                          20525                   SBIT   X5,KW.GENP                                              FEC       586
           402  0325000403 +                      PL     X5,FEC4     IF STATEMENT DOES NOT GENERATE TURPLES      FC50069     5
                          0100000722 +            RJ     CUS         CHECK UPCOMING STATEMENT                    FEC       589
                                                                                                                 FC50069     6
           403  5150000000 X             FEC4     SA5    TB=TYPE                                                 FEC       590
                          5110000006 +            SA1    DTI                                                     FEC       591
           404  20522                             SBIT   X5,KW.DONP                                              FEC       592
                     0301000407 +                 ZR     X1,FEC5     IF NO DO TERMINATION                        FEC       593
           405  0325000407 +                      PL     X5,FEC5     IF NOT DO TERMINAL                          FEC       594
                          6170000000 X            FATAL  E.MDO       *ILLEGAL DO TERMINAL*                       FEC       595
           407                           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
           407                           FEC.RIF  BSSENT 0           ...RETURN FROM 1-BRANCH IF.                 FEC       602
           407  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
           410  5150000000 X                      SA5    TB=TYPE                                                 FEC       609
                          20522                   LX5    0-KW.JMPP                                               FEC       610
                               63650              SB6    X5                                                      FEC       611
           411  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
           412                           FEC.RTF  BSSENT 0           ...RETURN TO TERMINATE FRONT END            FEC       618
           412  5110000000 X                      SA1    WO.LOS      SOURCE LISTING FLAG (WORKING)               FEC       619
                          0301000414 +            ZR     X1,FEC7     IF NOT IN *LIST* MODE                       FEC       620
           413  0100000000 X                      CALL   LDB         LIST DEFERRED BUFFER                        FEC       621
                                                                                                                 FEC       622
           414  0100001050 +             FEC7     RJ     OIL         FLUSH I.L.                                  FEC       623
           415  0100000565 +                      RJ     CLU         CHECK LEVEL USAGE                           FC5A129     4
           416  0100001022 +                      CALL   FVD         FLUSH VARIABLE DIMENSIONS                   FEC       624
           417  13444                             BX4    0                                                       FEC       625
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    16
        FRONT END CONTROLLER.                                         FEC.RTF 
  
                     43500                        MX5    0                                                       FEC       626
                          6130000000 X            EMIT   V=FIN       OUTPUT FINIS TURPLE                         FEC       627
           421  0100001050 +                      CALL   OIL         OUTPUT REMAINING IL                         FEC       628
           422  76600                             SHRINK T=STF,0                                                 FEC       629
           423  5160000000 X                      SHRINK T=TB,X6                                                 FEC       630
                          5160000000 X            SHRINK T=SCR,X6                                                FEC       631
           424  0100000523 +                      RJ     CAC         CHECK ASSUMED LENGTH CHARACTER              FEC       632
           425  0100000625 +                      RJ     CUF         CHECK UNDEFINED FUNCTION                    FEC       633
           426  0100000653 +                      RJ     CUL         CHECK UNDEFINED LABELS                      FEC       634
           427  0100001331 +                      RJ     SSU         SET SAVE BIT FOR UNIVERSAL SAVE             FEC       635
           430  0100001235 +                      RJ     RLS         RELOCATE LOCAL SAVED VARIABLES              FEC       636
           431  0100000753 +                      RJ     CVD         CHECK VARIABLE DIMENSION IRREGULARITIES     FEC       638
           432  0100000000 X                      CALL   MAL         MARK ASSIGN GOTO/ED LOOPS WITH ENTRIES      FC5A177     9
           433  76600                             SHRINK T=STMT,0                                                FEC       639
           434  5160000000 X                      SA6    SB=LINC                                                 FEC       640
                          5160000000 X            SA6    SB=LORD                                                 FEC       641
           435  5110000000 X                      SA1    CO.ANSI                                                 FC5A255     8
                          0301000000 X            ZR     X1,FEL.RTN  IF ANSI NOT REQUESTED                       FC5A255     9
           436  0100000546 +                      RJ     CBN         CHECK COMMON BLOCK NAME MISUSE              FC5A255    10
           437  5110000000 X                      SA1    CO.SEQ                                                  FC5A335     8
                          0301000000 X            ZR     X1,FEL.RTN  IF NOT SEQ MODE                             FC5A335     9
           440  6170000000 X                      ANSI   E.ANS1      **SEQ MODE NON ANSI                         FC5A335    10
           441  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/05. 19.58.27.      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
           442  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
           443  0570000455 +                      NZ     B7,ASK2     IF MORE THAN 7 CHARACTERS IN KEY            FEC       693
                                                                                                                 FEC       694
           444  0400400444 +             ASK      SUBR   =           ENTRY/EXIT...                               FEC       695
           445  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
           446  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/05. 19.58.27.      PAGE    18
        SUBROUTINES.                                                  ASK 
  
                          43263                   MX2    -9          *** KLUDGE ***                              FEC       702
                               37641              IX6    X4-X1       HIJKLMN---                                  FEC       703
           447  15752                             BX7    -X2*X5      ISOLATE BIT COUNT                           FEC       704
                     6227777747                   SB2    X7-4*CHAR                                               FEC       705
           450  0720000452 +                      MI     B2,ASK1     IF 4 CHARACTER KEYWORD (OR LESS)            FEC       706
                          43052                   MX0    7*CHAR                                                  FEC       707
                               56240              SA2    B4                                                      FEC       708
           451  11202                             BX2    X0*X2                                                   FEC       709
                     13223                        BX2    X2-X3                                                   FEC       710
                          0302000000 X            ZR     X2,E.FM     IF NOT ACTUALLY KEYWORD                     FEC       711
           452  63270                    ASK1     SB2    X7                                                      FEC       712
                     20122                        LX1    3*CHAR      ----EFG---                                  FEC       713
                          12413                   BX4    X1+X3       ABCDEFG---                                  FEC       714
           453  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
           454  10644                             BX6    X4                                                      FEC       718
                     55661                        SA6    A6-B1                                                   FEC       719
                                                                                                                 FEC       720
           455  56240                    ASK2     SA2    B4                                                      FEC       721
                     6172777726                   SB7    B2-7*CHAR+1                                             FEC       722
           456  6262777766                        SB6    X2-O.VAR                                                FEC       723
                          7212777772              SX1    X2-O.CONS                                               FEC       724
           457  0460000461 +                      ZR     B6,ASK3     IF ALPHA STRING                             FEC       725
                          0301000461 +            ZR     X1,ASK3     IF DIGIT STRING                             FEC       726
           460  0400000444 +                      EQ     EXIT.                                                   FEC       727
                                                                                                                 FEC       728
           461  0670000442 +             ASK3     PL     B7,ASK8     IF SEVEN OR MORE CHARACTERS                 FEC       729
                          43401                   MX4    1                                                       FEC       730
                               66640              SB6    B4                                                      FEC       731
           462  23024                             AX0    X4,B2       MASK FOR UPPER PART                         FEC       732
                     11102                        BX1    X0*X2                                                   FEC       733
                          37331                   IX3    X3-X1       COMPARE KEYWORD                             FEC       734
           463  6172000023                        SB7    B2+18+1                                                 FEC       735
                          66221                   SB2    B2+B1                                                   FEC       736
                               13770              BX7    X7-X0       MASK FOR MIDDLE PART                        FEC       737
           464  11172                             BX1    X7*X2                                                   FEC       738
                     22621                        LX6    X1,B2                                                   FEC       739
                          10166                   BX1    X6                                                      FEC       740
                               20606              LX6    6                                                       FEC       741
           465  7140000011                        =X4    O.VAR                                                   FEC       742
                          7266777744              SX6    X6-1R0                                                  FEC       743
           466  0336000467 +                      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
           467  56261                    ASK4     SA2    B6+B1                                                   FEC       749
                     7262777766                   SX6    X2-O.VAR                                                FEC       750
           470  0306000472 +                      ZR     X6,ASK5     IF ALPHA STRING                             FEC       751
                          7262777772              SX6    X2-O.CONS                                               FEC       752
           471  0306000472 +                      ZR     X6,ASK5     IF DIGIT STRING                             FEC       753
                          0400000475 +            EQ     ASK6                                                    FEC       754
                                                                                                                 FEC       755
           472  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/05. 19.58.27.      PAGE    19
        SUBROUTINES.                                                  ASK 
  
                               66661              SB6    B6+B1                                                   FEC       759
           473  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
           474  0400000467 +                      EQ     ASK4                                                    FEC       764
                                                                                                                 FEC       765
                                        *         HAVE FOUND A STOPPER, IS A MOVE NEEDED QQQ.                    FEC       766
                                                                                                                 FEC       767
           475  12641                    ASK6     BX6    X4+X1                                                   FEC       768
                     56660                        SA6    B6          STORE ANY REMAINING PARTIAL WORD            FEC       769
                          0311000444 +            NZ     X1,EXIT.    IF THERE WAS ANYTHING IN THE PARTIAL WORD   FEC       770
                                                                                                                 FEC       771
           476  66441                             =B4    B4+1        *TB* MUST BE ADJUSTED                       FEC       772
           477  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
           500  0664000477 +                      GE     B6,B4,ASK7        IF NOT YET TO FRONT OF STRING         FEC       777
                          0400000444 +            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
           501  0400400501 +             ASL      SUBR   =           ENTRY/EXIT...                               FEC       798
           502  6150777772                        SB5    -O.CONS                                                 FEC       799
                          5120001766 +            SA2    =05050505050505BS18                                     FEC       800
           503  5130001767 +                      SA3    =40404040404040BS18                                     FEC       801
                          66600                   SB6    B0          INITIALIZE *SB* POINTER                     FEC       802
                               56140              SA1    B4          (X1) = START OF LABEL                       FEC       803
           504  36412                    ASL1     IX4    X1+X2       SET SIGN BITS OF DIGITS                     FEC       804
                     16743                        BX7    -X3+X4      ISOLATE NON-DIGITS                          FEC       805
                          0317000510 +            NZ     X7,ASL2     IF NOT 7-DIGITS                             FEC       806
           505  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
           506  0305000504 +                      ZR     X5,ASL1     IF STILL A CONSTANT                         FEC       810
                          67201                   =B2    -1                                                      FEC       811
           507  0400000512 +                      EQ     ASL3                                                    FEC       812
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    20
        SUBROUTINES.                                                  ASL 
  
                                                                                                                 FEC       813
           510  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
           511  23420                             AX4    X0,B2       MASK LENGTH = DIGIT LENGTH                  FEC       818
                     0460000513 +                 ZR     B6,ASL4     IF LABEL ONLY 1 WORD LONG                   FEC       819
           512  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
           513  11641                    ASL4     BX6    X4*X1                                                   FEC       823
                     0720000520 +                 MI     B2,ASL5     IF LABEL MULTIPLE OF 7 CHARACTERS           FEC       824
                               76320              SX3    B2                                                      FEC       825
           514  43463                             MX4    -9          *** KLUDGE ***                              FEC       826
                     7150001771 +                 SX5    1+=0                                                    FEC       827
                               15334              BX3    -X4*X3                                                  FEC       828
           515  20322                             LX3    18          *** KLUDGE ***                              FEC       829
                     5160000000 X                 SA6    SCR                                                     FEC       830
                               36553              IX5    X5+X3       MANUFACTURE DUMMY *SATTR* WORD FOR *ASK*    FEC       831
           516  0100000444 +                      RJ     ASK         ADJUST OFF THE LABEL                        FEC       832
           517  5110000000 X                      SA1    SCR                                                     FEC       833
                          0400000501 +            EQ     EXIT.                                                   FEC       834
                                                                                                                 FEC       835
           520  56140                    ASL5     SA1    B4                                                      FEC       836
                     73515                        SX5    X1+B5                                                   FEC       837
                          0315000522 +            NZ     X5,ASL6     IF NOT CONSTANT                             FEC       838
           521  7140000004                        SX4    O.VAR-O.CONS                                            FEC       839
                          36714                   IX7    X1+X4                                                   FEC       840
                               56740              SA7    B4                                                      FEC       841
           522  10166                    ASL6     BX1    X6                                                      FEC       842
                     0400000501 +                 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
           523  0400400523 +             CAC      SUBR   0           ...ENTRY/EXIT...                            FEC       850
           524  5110000000 X                      SA1    CHARDCL                                                 FEC       851
                          0301000523 +            ZR     X1,EXIT.    IF NO TYPE CHARACTER DECLARATIONS           FEC       852
           525  5130000000 X                      SA3    T.SYM                                                   FEC       853
                          5120000000 X            SA2    T=SYM                                                   FEC       854
           526  6130000003                        SB3    Z=SYM                                                   FEC       855
                          5243777775              SA4    X3-Z=SYM+WB.W     INITIALIZE FETCH REGISTER             FEC       856
           527  63420                             SB4    X2                                                      FEC       857
                     43071                        MX0    -WB.MODEL                                               FEC       858
                          5110000000 X            SA1    S=VALUE                                                 FEC       865
           530  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
           531  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/05. 19.58.27.      PAGE    21
        SUBROUTINES.                                                  CAC 
  
           532  54443                    CAC1     SA4    A4+B3                                                   FEC       874
                     0440000523 +                 ZR     B4,EXIT.    IF TABLE EXHAUSTED                          FEC       875
                               67443              SB4    B4-B3                                                   FEC       876
                                                  LX4    -WB.MODEP                                               FEC       877
           533  15340                             BX3    -X0*X4      EXTRACT MODE                                FEC       878
                                                  LX4    WB.MODEP                                                FEC       879
                     6223777771                   SB2    X3-M.CHAR                                               FEC       880
           534  0520000532 +                      NZ     B2,CAC1     IF NOT TYPE CHARACTER                       FEC       881
                          54141                   =A1    A4-WB.W+WC.W                                            FEC       882
                               20136              HX1    WC.CTYP                                                 FEC       883
           535  0321000532 +                      PL     X1,CAC1     IF NOT ASSUMED LENGTH                       FEC       884
                          20453                   HX4    WB.FP                                                   FEC       885
           536  0334000532 +                      MI     X4,CAC1     IF FORMAL PARAMETER                         FEC       886
                          20403                   SBIT   X4,WB.ENTP/WB.FPP                                       FC51048     8
           537  0334000532 +                      MI     X4,CAC1     IF ENTRY POINT                              FC51048     9
                          65745                   SB7    A4-B5                                                   FEC       888
           540  0570000542 +                      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
           541  0400000532 +                      EQ     CAC1                                                    FEC       892
                                                                                                                 FEC       893
           542  55141                    CAC5     =A1    A4-WB.W+WA.W                                            FEC       894
                     43352                        MX3    WA.SYML                                                 FEC       895
                          11631                   BX6    X3*X1       NAME ONLY                                   FEC       896
           543  5160000000 X                      SA6    FILL.                                                   FEC       897
                          6170000000 X            FATAL  E.TY7                                                   FEC       898
           545  0400000532 +                      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
           546  0400400546 +             CBN      SUBR               ...ENTRY/EXIT...                            FC5A255    19
           547  5110000000 X                      SA1    T=BLKS                                                  FC5A255    20
                          6231777775              SB3    X1-Z=BLKS                                               FC5A255    21
           550  5150000000 X                      SA5    T.BLKS                                                  FC5A255    22
                                                                                                                 FC5A255    23
           551  53153                    CBN1     SA1    X5+B3                                                   FC5A255    24
                     0430000546 +                 ZR     B3,EXIT.    IF FINISHED                                 FC5A255    25
           552  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
           553  5160000000 X                      SA6    FILL.                                                   FC5A255    30
                          0100001746 +            RJ     SSY         SCAN SYMBOL TABLE                           FC5A255    31
           554  0770000551 +                      MI     B7,CBN1     IF SYMBOL NOT USED (EXCEPT AS COMMON BLOCK) FC5A255    32
                          5130001771 +            CLAS=  X3,WB,(INTF,DEXT,GENF,EXT,ENT,FUN,SUB,PARM)             FC5A255    33
           555  11332                             BX3    X3*X2                                                   FC5A255    34
                     0303000551 +                 ZR     X3,CBN1     IF NO INVALID USAGE                         FC5A255    35
                               24373              NX3,B7                                                         FC5A255    36
           556  20257                             SBIT   X2,WB.FUNP                                              FC50608     5
                     0322000561 +                 PL     X2,CBN2     IF NOT FUNCTION                             FC50608     6
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    22
        SUBROUTINES.                                                  CBN 
  
                               54221              =A2    A2-WB.W+WC.W                                            FC50608     7
           557  43071                             MX0    -WC.FUNTL                                               FC50608     8
                     20203                        LX2    -WC.FUNTP                                               FC50608     9
                          15220                   BX2    -X0*X2      EXTRACT FUNCTION TYPE                       FC50608    10
           560  7222777776                        SX2    X2-MF.STF                                               FC50608    11
                          0302000551 +            ZR     X2,CBN1     IF STATEMENT FUNCTION, NO CONFLICT          FC50608    12
                                                                                                                 FC50608    13
           561  6120000057 X             CBN2     SB2    CLASS+47                                                FC50608    14
                          57327                   SA3    B2-B7       FETCH ERRLIT OF INVALID USAGE               FC5A255    38
                               10633              BX6    X3                                                      FC5A255    39
           562  5160000000 X                      SA6    FILL.2                                                  FC5A255    40
                          6170000000 X            ANSI   E.CM8                                                   FC5A255    41
           564  0400000551 +                      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
           565  0400400565 +             CLU      SUBR   0                                                       FEC       908
           566  5110000000 X                      SA1    LEVEL                                                   FEC       909
                          5120000000 X            SA2    T=SYM                                                   FEC       910
           567  0301000565 +                      ZR     X1,EXIT.    IF NO LEVEL STATEMENTS                      FEC       911
                          5130000000 X            SA3    T.SYM                                                   FEC       912
           570  5140000000 X                      SA4    T.FPI                                                   FEC       913
                          63620                   SB6    X2          (B6) = NO. OF T.SYM WORDS TO EXAMINE        FEC       914
           571  6274777776                        SB7    X4-1                                                    FEC       915
                          6130000003              =B3    Z=SYM                                                   FEC       916
           572  5233777775                        =A3    X3-Z=SYM+WB.W                                           FEC       917
                          5150001772 +            CLAS=  X5,WB,(LEVN)                                            FEC       918
           573  5140001773 +                      CLAS=  X4,WB,(LEV,LEVN)                                        FEC       919
                          7110300000              CLAS=  X1,WB,(FP,COM)                                          FEC       920
           574  0400000602 +                      EQ     CLU10                                                   FEC       921
                                                                                                                 FEC       922
           575  20356                    CLU5     LX3    WB.LABP-WB.LCMP                                         FC5A135     4
                     43601                        MX6    1                                                       FEC       924
                          0323000602 +            PL     X3,CLU10    IF NOT LCM                                  FEC       925
           576  20322                             LX3    1+WB.LCMP                                               FEC       926
                     11053                        BX0    X5*X3                                                   FEC       927
                          20671                   LX6    1+FP.LEV0P                                              FEC       928
           577  0310000602 +                      NZ     X0,CLU10    IF LEVEL NE 0                               FEC       929
                          43063                   MX0    -WB.FPNOL                                               FEC       930
                               20333              LX3    -WB.FPNOP                                               FEC       931
           600  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
           601  5160000000 X                      SA6    LEVEL0      LEVEL0 NZ FOR PASS 2                        FEC       936
                                                                                                                 FEC       937
           602  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/05. 19.58.27.      PAGE    23
        SUBROUTINES.                                                  CLU 
  
                               11662              BX6    X6*X2                                                   FEC       941
           603  0460000565 +                      ZR     B6,EXIT.    IF DONE                                     FEC       942
                          11013                   BX0    X1*X3                                                   FEC       943
                               15734              BX7    -X4*X3                                                  FEC       944
           604  67663                             SB6    B6-B3                                                   FEC       945
                     20340                        HX3    WB.LEV                                                  FEC       946
                          5160000000 X            SA6    FILL.       STORE NAME IN MESSAGE                       FEC       947
           605  0323000602 +                      PL     X3,CLU10    IF NOT LEVELED                              FEC       948
                          20330                   LX3    WB.LEVP-WB.LABP                                         FC5A135     5
           606  0333000602 +                      MI     X3,CLU10    IF LABEL LEVEL BITS NOT DEFINED             FC5A135     6
                          20054                   HX0    WB.COM                                                  FEC       949
           607  0330000602 +                      MI     X0,CLU10    IF COMMON                                   FEC       950
                          0310000575 +            NZ     X0,CLU5     IF F.P.                                     FEC       951
           610  6170000000 X                      FATAL  E.LV6       LEVEL DECLARATION ON NON F.P. ITEM          FEC       952
           611  54730                             SA7    A3          (LEV,LEVN) [WBI] = 0                        FEC       953
                     0400000602 +                 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
           612  0400400612 +             CSB      SUBR   =           ENTRY/EXIT...                               FEC       977
           613  0312000621 +                      NZ     X2,CSB4     IF LABEL TO BE DEFINED                      FEC       978
                          5110000000 X            SA1    T=PAR                                                   FEC       979
           614  5130000000 X                      SA3    N.MAXIL                                                 FEC       980
                          37013                   IX0    X1-X3                                                   FEC       981
           615  0320000623 +                      PL     X0,CSB6     IF SEGMENT LENGTH EXCEEDS THRESHOLD         FEC       982
                          7261777551              SX6    X1-PAR.TH                                               FEC       983
           616  5130000000 X                      SA3    CURST                                                   FEC       984
                          37036                   IX0    X3-X6                                                   FEC       985
           617  0320000612 +                      PL     X0,EXIT.    IF SQUEEZE LENGTH WITHIN LIMIT              FEC       986
                          54630                   SA6    A3          INDICATE NO SQUEEZING PAST HERE             FEC       987
           620  0400000612 +                      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/05. 19.58.27.      PAGE    24
        SUBROUTINES.                                                  CSB 
  
           621  10422                    CSB4     BX4    X2          (P1) = LABEL                                FEC       993
                     43500                        MX5    0           (P2) = NIL                                  FEC       994
                          6130400000 X            EMIT   OPBSS,*                                                 FEC       995
           623  0100001050 +             CSB6     CALL   OIL         OUTPUT INTERMEDIATE LANGUAGE SEGMENT        FEC       996
           624  0400000612 +                      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
           625  0400400625 +             CUF      SUBR   0           ENTRY/EXIT...                               FEC      1003
           626  5120000000 X                      SA2    MOD                                                     FEC      1004
                          5110000000 X            SA1    S=VALUE                                                 FEC      1005
           627  20260                             HX2    MO.FUN                                                  FEC      1006
                     0322000625 +                 PL     X2,EXIT.    IF NOT COMPILING A FUNCTION                 FEC      1007
                               63210              SB2    X1                                                      FEC      1008
           630  20101                             LX1    1                                                       FEC      1009
                     63212                        SB2    X1+B2       CONVERT TO INDEX                            FEC      1010
                          5110000000 X            SA1    T.SYM                                                   FEC      1011
           631  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
           632  0322000640 +                      PL     X2,CUF10    IF NO BOOLEAN ENTRY POINTS                  FEC      1016
                          5021000006              SA2    A1+M.INT*Z=SYM    X2 = *WB* VALUI.                      FEC      1017
           633  5031000011                        SA3    A1+M.REAL*Z=SYM   X3 = *WB* VALUR.                      FEC      1018
                          7100000200              LDBIT  X0,WB.DEFP                                              FEC      1019
           634  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
           635  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
           636  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
           637  12637                             BX6    X3+X7                                                   FEC      1029
                     54630                        SA6    A3          UPDATE VALUR. *WB*                          FEC      1030
                                                                                                                 FEC      1031
           640  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
           642  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
           643  13776                             BX7    X7-X6                                                   FEC      1041
                     0307000651 +                 ZR     X7,CUF30    IF NO ERROR                                 FEC      1042
                               76120              SX1    B2                                                      FEC      1043
           644  7120000003                        SX2    Z=SYM                                                   FEC      1044
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
           647  5160000000 X                      SA6    FILL.                                                   FEC      1048
                          6170000000 X            FATAL  E.SU06                                                  FEC      1049
                                                                                                                 FEC      1050
           651  6122000003               CUF30    SB2    B2+Z=SYM                                                FEC      1051
                          0623000625 +            GE     B2,B3,EXIT. IF DONE                                     FEC      1052
           652  0400000642 +                      EQ     CUF20                                                   FEC      1053
  
  
  
  
                                        **        CUL - CHECK UNDEFINED LABELS.                                  FEC      1055
                                        *                                                                        FEC      1056
                                        *         CALLS  CDD, LJS, PDM                                           FEC      1057
                                                                                                                 FEC      1058
                                                                                                                 FEC      1059
           653  0400400653 +             CUL      SUBR               ENTRY/EXIT...                               FEC      1060
           654  5130000000 X                      SA3    T.SYM                                                   FEC      1061
                          5120000000 X            SA2    T=SYM                                                   FEC      1062
           655  6130000003                        SB3    Z=SYM                                                   FEC      1063
                          5243777775              SA4    X3-Z=SYM+WB.W  INITIALIZE FETCH REGISTER                FEC      1064
           656  63420                             SB4    X2                                                      FEC      1065
                                                                                                                 FEC      1066
           657  54443                    CUL2     SA4    A4+B3       FETCH SYMBOL                                FEC      1067
                     0440000675 +                 ZR     B4,CUL6     IF TABLE EXHAUSTED                          FEC      1068
                               67443              SB4    B4-B3       DECREMENT TABLE LENGTH                      FEC      1069
           660  5110001774 +                      CLAS=  X1,WB,(SDEF,FDEF,NDEF)                                  FEC      1070
                          11614                   BX6    X1*X4                                                   FEC      1071
                               20470              HX4    WB.LAB                                                  FEC      1072
           661  0334000670 +                      MI     X4,CUL4     IF THIS ENTRY IS A STATEMENT LABEL          FC5A184     9
                          20404                   LX4    WB.LABP+1                                               FC5A184    10
           662  5110001775 +                      CLAS=  X1,WB,(AGN,AGO2)                                        FC5A184    11
                          15641                   BX6    -X1*X4                                                  FC5A184    12
                               54640              SA6    A4          CLEAR THE BITS                              FC5A184    13
           663  20447                             HX4    WB.AGO2                                                 FC5A184    14
                     0324000657 +                 PL     X4,CUL2     IF VAR NOT OBJECT OF *GO TO*                FC5A184    15
                               20470              LX4    WB.AGO2P-WB.AGNP                                        FC5A184    16
           664  0334000657 +                      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
           665  11771                             BX7    X7*X1       X7 = 0LSYMBOL                               FC5A184    20
                                   0              ERRNZ  WA.SYMP+WA.SYML-60D                                     FC5A184    21
                     5170000000 X                 SA7    FILL.                                                   FC5A184    22
           666  6170000000 X                      FATAL  E.AS6       ** GOTO I WITHOUT ASSIGN 10 TO I            FC5A184    23
           667  0400000657 +                      EQ     CUL2                                                    FC5A184    24
                                                                                                                 FC5A184    25
           670  0316000657 +             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
           671  0100000000 X                      CALL   LJS         LEFT JUSTIFY STATEMENT LABEL                FEC      1077
           672  5160000000 X                      SA6    FILL.                                                   FEC      1078
                          6170000000 X            FATAL  E.MS        ** MISSING STATEMENT NUMBER **              FEC      1079
           674  0400000657 +                      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/05. 19.58.27.      PAGE    26
        SUBROUTINES.                                                  CUL 
  
                                                                                                                 FEC      1083
           675  5120000000 X             CUL6     SA2    T=BLST                                                  FEC      1084
                          0302000715 +            ZR     X2,CUL9     IF NO UNTERMINATED BLOCK STRUCTURES         FEC      1085
                                                                                                                 FEC      1086
           676  5110000000 X             CUL7     SA1    T.BLST                                                  FEC      1087
                          6242777776              SB4    X2-1                                                    FEC      1088
           677  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
           700  0304000707 +                      ZR     X4,CUL8     IF UNTERMINATED BLOCK IF                    FEC      1096
                          37220                   IX2    X2-X0                                                   FEC      1097
                               36412              IX4    X1+X2                                                   FEC      1098
           701  5244000005                        SA4    X4+DO.W                                                 FEC      1099
                          21422                   AX4    DO.TAGP                                                 FEC      1100
                               43352              MX3    -DO.TAGL                                                FEC      1101
           702  15443                             BX4    -X3*X4                                                  FEC      1102
                     0304000707 +                 ZR     X4,CUL8     IF I/O DO                                   FEC      1103
                               63540              SB5    X4                                                      FEC      1104
                                   0              ERRNZ  18-DO.TAGP                                              FEC      1105
           703  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
           704  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
           705  5160000000 X                      SA6    FILL.                                                   FEC      1113
                          6170000000 X            FATAL  E.DO09      UNTERMINATED DO LOOP                        FEC      1114
           707  5120000000 X             CUL8     SA2    T=BLST                                                  FEC      1115
                          37220                   IX2    X2-X0                                                   FEC      1116
                               10622              SHRINK A2,X2       SCRATCH PROCESSED SEGMENT                   FEC      1117
                     0312000676 +                 NZ     X2,CUL7     IF MORE TO PROCESS                          FEC      1118
           711  5110000011 +                      SA1    IFLEVEL                                                 FEC      1119
                          0301000715 +            ZR     X1,CUL9     IF NO UNTERMINATED BLOCK IFS                FEC      1120
           712  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FEC      1121
           713  5160000000 X                      SA6    FILL.                                                   FEC      1122
                          6170000000 X            FATAL  E.IF17                                                  FEC      1123
                                                                                                                 FEC      1124
           715  5110000000 X             CUL9     SA1    T=C$IF                                                  FEC      1125
                          0301000653 +            ZR     X1,EXIT.    IF NO UNTERMINATED C$ IFS                   FEC      1126
           716  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FEC      1127
           717  5160000000 X                      SA6    FILL.                                                   FEC      1128
                          76600                   SHRINK A1,B0                                                   FEC      1129
           720  6170000000 X                      FATAL  E.C$15                                                  FEC      1130
           721  0400000653 +                      EQ     EXIT.                                                   FEC      1131
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
           722  0400400722 +             CUS      SUBR   0           ...ENTRY/EXIT...                            FEC      1156
           723  5110000000 X                      SA1    TB=LABR                                                 FEC      1157
                          0311000727 +            NZ     X1,CUS3     IF LABEL PRESENT, CHECK HANGER              FEC      1158
           724  5120000000 X                      SA2    TB=TYPE                                                 FEC      1159
                          6170000000 X            SB7    KW=CONT                                                 FEC      1160
           725  20222                             LX2    -KW.JMPP                                                FEC      1161
                     67707                        SB7    -B7                                                     FEC      1162
                          63727                   SB7    X2+B7                                                   FEC      1163
                                   0              ERRNZ  18-KW.JMPL                                              FEC      1164
           726  0470000722 +                      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
           727  5130000010 +             CUS3     SA3    HANGER                                                  FEC      1176
                          0303000732 +            ZR     X3,CUS.RET  IF NO *HANGING* COMPILATION                 FEC      1177
           730  13666                             =X6                                                            FEC      1178
                     63730                        SB7    X3                                                      FEC      1179
                          54630                   SA6    A3          CLEAR *HANGER* FLAG                         FEC      1180
           731  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/05. 19.58.27.      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
           732                           CUS.RET  BSSENT 0           ...RETURN FROM *HANGERS*.                   FEC      1195
           732  5110000000 X                      SA1    TB=TYPE                                                 FC5A337    10
                          20131                   SBIT   X1,KW.NBSP                                              FC50785    11
           733  0331000741 +                      MI     X1,CUS4     IF NO BEGINNING-OF-STATEMENT TO ISSUE       FC50785    12
                          5110000000 X            ALLOC  T.PAR,Z=TURP                                            FEC      1196
           735  5140000021 +                      SA4    REFLIN      EMIT BEGINNING-OF-STATEMENT                 FEC      1197
                          7120000000 X            SX2    V=NOOP                                                  FC50104    50
           736  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
           737  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
           740  55771                             =A7    A7-OR.2OP+OR.1OP                                        FEC      1203
                     55671                        =A6    A7-OR.1OP+OR.OPR                                        FEC      1204
                                                                                                                 FEC      1212
           741                           CUS4     BSS    0                                                       FC5A337    17
           741  5120000004 +                      SA2    CSLTAG                                                  FEC      1213
                          20254                   LX2    TP.ORDP                                                 FEC      1214
           742  0100000612 +                      RJ     CSB         CHECK FOR SEQUENCE BREAK                    FEC      1215
           743  5120000015 +                      SA2    NOPATH                                                  FEC      1216
                          5140000004 +            SA4    CSLTAG                                                  FEC      1217
           744  5130000007 +                      SA3    FLOW                                                    FEC      1218
                          12623                   BX6    X2+X3                                                   FEC      1219
           745  0304000746 +                      ZR     X4,CUS6     IF NO LABEL PRESENT                         FEC      1220
                          13666                   BX6    0           CLEAR (FLOW) IF LABEL                       FEC      1221
                                                                                                                 FC5A337    18
           746  54630                    CUS6     SA6    A3          RESET (FLOW)                                FEC      1222
                     54620                        SA6    A2          RESET (NOPATH)                              FEC      1223
                          0306000722 +            ZR     X6,EXIT.    IF NO STATEMENT NUMBER REQUIRED             FEC      1224
           747  5130000000 X                      SA3    TB=TYPE                                                 FEC      1225
                          20330                   SBIT   X3,KW.ILP                                               FEC      1226
           750  0333000722 +                      MI     X3,EXIT.    IF IMPLIED LABEL ON THIS STATEMENT          FEC      1227
                          6170000000 X            WARN   E.NP        *NO PATH TO THIS STATEMENT*                 FEC      1228
           752  0400000722 +                      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
           753  0400400753 +             CVD      SUBR               ...ENTRY/EXIT...                            FEC      1240
           754  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/05. 19.58.27.      PAGE    29
        SUBROUTINES.                                                  CVD 
  
           755  6263777775                        =B6    X3-Z=SYM+WB.W                                           FEC      1245
           756  0760000753 +             CVD1     MI     B6,EXIT.    IF LIST IS EXHAUSTED                        FEC      1246
                          53326                   SA3    X2+B6                                                   FEC      1247
           757  6166777774                        =B6    B6-Z=SYM                                                FEC      1248
                          20370                   SBIT   X3,WB.LABP                                              FEC      1249
           760  0333000756 +                      MI     X3,CVD1     IF STATEMENT LABEL                          FEC      1250
                          20345                   SBIT   X3,WB.VDSP/WB.LABP                                      FEC      1251
           761  0323000756 +                      PL     X3,CVD1     IF NOT USED AS VARIABLE SUBSCRIPT OR ARRAY  FEC      1252
                          20320                   SBIT   X3,WB.ARYP/WB.VDSP                                      FEC      1253
           762  6170000000 X                      SB7    E.DM03                                                  FEC      1254
                          0333000764 +            MI     X3,CVD2     IF ARRAY                                    FEC      1255
           763  6170000000 X                      SB7    E.DM04                                                  FEC      1256
           764  43152                    CVD2     MX1    WA.SYML                                                 FEC      1257
                     55431                        =A4    A3-WB.W+WA.W                                            FEC      1258
                          11614                   BX6    X1*X4                                                   FEC      1259
           765  5160000000 X                      SA6    FILL.                                                   FEC      1260
                          0100000000 X            FATAL  B7                                                      FEC      1261
           766  0400000756 +                      EQ     CVD1                                                    FEC      1262
  
  
  
  
                                        **        FEP - FRONT END PRESETS.                                       FEC      1264
                                        *                                                                        FEC      1265
                                        *         PRESET FRONT END CELLS.                                        FEC      1266
                                                                                                                 FEC      1267
                                                                                                                 FEC      1268
           767  0400400767 +             FEP      SUBR   0           ...ENTRY/EXIT...                            FEC      1269
           770  7160000000                        SX6    0                                                       FC5A225     7
                          5160000000 X            SA6    TYPD        IMPLICIT STATEMENT LETTERS                  FEC      1271
           771  5160000000 X                      SA6    CURST       CURRENT START FOR PARSED FILE SQUEEZE       FEC      1272
                          5160000007 +            SA6    FLOW        DEAD CODE FLAG                              FEC      1273
           772  5160000010 +                      SA6    HANGER      HANGING COMPILATION INDICATOR               FEC      1274
                          5160000000 X            SA6    IO.TEM      I/O TEMP USE COUNT                          FEC      1275
           773  5160000000 X                      SA6    NARGS       NUMBER OF ARGUMENTS                         FEC      1276
                          5160000015 +            SA6    NOPATH      STATEMENT LABEL REQUIRED FLAG               FEC      1277
           774  5160000016 +                      SA6    NTRCNT      COUNT OF *ENTRY* STATEMENT                  FEC      1278
                          5160000025 +            SA6    RTNCNT      COUNT OF *RETURN* STATEMENTS                FEC      1279
           775  5160000000 X                      SA6    BLNKCOM     BLOCK NUMBER OF BLANK COMMON                FEC      1280
                          5160000000 X            SA6    CHARDCL     CHARACTER DECLARATION PRESENT               FEC      1281
           776  5160000000 X                      SA6    SAVE        SAVE INDICATOR                              FEC      1282
                          5160000000 X            SA6    USAVE       UNIVERSAL SAVE INDICATOR                    FEC      1283
           777  5160000000 X                      SA6    LEVEL       NO LEVEL STATEMENTS                         FEC      1284
                          5160000000 X            SA6    LEVEL0      NO LEVEL 0 STATEMENTS                       FEC      1285
          1000  5160000000 X                      SA6    LEVEL2      NO LCM/ECS                                  FEC      1286
                          5160000000 X            SA6    N.EPL       NO ENTRIES WITH UNIQUE FP LISTS             FEC      1287
          1001  5160000020 +                      SA6    PARAMC      COUNT OF PARAMETERS (SYMBOLIC CONSTANTS)    FC5A225     8
                          7160000002              SX6    LM.1ST                                                  FEC      1288
          1002  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
          1003  5170000026 +                      SA7    STAGE       SIGNAL THAT A *FIRST CARD* IS NEEDED.       FEC      1292
                          5160000000 X            SA6    PASS                                                    FEC      1294
          1004  5120000000 X                      SA2    CO.SEQ                                                  FEC      1295
                          54771                   SA7    A7+B1                                                   FEC      1296
          1005  0312001010 +                      NZ     X2,FEP1     IF SEQ MODE                                 FEC      1297
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    30
        SUBROUTINES.                                                  FEP 
  
                                                                                                                 FEC      1298
                          43600                   MX6    0                                                       FEC      1299
          1006  5160000000 X                      SA6    LINES       SET TO *1ST LINE IS IN (CP.BUF)*            FEC      1300
                          5120001776 +            SA2    =10H        1                                           FEC      1301
          1007  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
          1010  5110001020 +             FEP1     SA1    FEPA        NATURAL TYPE PRESETS                        FEC      1309
                          54211                   SA2    A1+B1                                                   FEC      1310
                               76600              =X6    M.BOOL                                                  FEC      1311
          1011  76710                             =X7    M.LOG                                                   FEC      1312
                     5160001417 +                 SA6    NAT.TYP     BOOLEAN                                     FEC      1313
                               22601              LX6    X1                                                      FEC      1314
          1012  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
          1013  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
          1014  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
          1017  0400000767 +                      EQ     EXIT.       EXIT...                                     FEC      1328
                                                                                                                 FEC      1329
          1020  00077000000000000002     FEPA     CON    "INT"+M.INT NATURAL TYPE PRESETS                        FEC      1330
          1021  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/05. 19.58.27.      PAGE    31
        SUBROUTINES.                                                  FVD 
  
                                                                                                                 FEC      1348
                                                                                                                 FEC      1349
          1022  0400401022 +             FVD      SUBR   0           ENTRY/EXIT...                               FEC      1350
          1023  5130000000 X                      SA3    T=VDIM                                                  FEC      1352
                          7203777773              SX0    X3-Z=TURP-1                                             FC50558     6
          1024  0320001026 +                      PL     X0,FVD0     IF VARDIM CODE PRESENT                      FC50558     7
                          76600                   SHRINK A3,B0       TRASH V=BVT TURPLE                          FC50558     8
          1025  0400001022 +                      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
          1026  5150000000 X             FVD0     SA5    T.VDIM                                                  FC50558    10
                          63231                   =B2    X3+OR.1OP                                               FC50069    16
                               63350              SB3    X5                                                      FC50069    17
          1027  5140001777 +                      CLAS=  X4,TP,(BIAS,ATTR)                                       FC50137     7
                          7170012000              CLAS=  X7,TP,(INTR,SHRT)                                       FC50069    19
                                                                                                                 FC50069    21
          1030  6122777774               FVD1     SB2    B2-Z=TURP                                               FC50069    22
                          0720001037 +            MI     B2,FVD4     IF FINISHED                                 FC50069    23
          1031  56323                             SA3    B2+B3       FETCH 1OP                                   FC50069    24
                     66400                        =B4    0           INDICATE 1OP                                FC50069    25
                                                                                                                 FC50069    26
          1032  11273                    FVD2     BX2    X7*X3                                                   FC50069    27
                     0312001035 +                 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
          1033  21354                             AX3    -TP.ORDL    EXTRACT ORDINAL                             FC50069    31
                     22003                        LX0    X3                                                      FC50069    32
                          0100001367 +            RJ     CT1         GET TP. FORMAT (WITH COMPLETE INFORMATION)  FC50069    33
          1034  12665                             BX6    X6+X5       RESTORE BIAS                                FC50069    34
                     54630                        SA6    A3                                                      FC50069    35
                                                                                                                 FC50069    36
          1035  0540001030 +             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
          1036  0400001032 +                      EQ     FVD2        LOOP FOR 2OP                                FC50069    40
                                                                                                                 FC50069    41
                                        *         FLUSH T.VDIM IL TO T.PAR                                       FC50069    42
                                                                                                                 FEC      1359
          1037  43400                    FVD4     MX4    0                                                       FC50069    43
                     13555                        BX5    0                                                       FEC      1361
                          5110000000 X            EMIT   V=EVD,,T.VDIM  END VARDIM INDICATOR                     FEC      1362
          1041  5130000000 X                      SA3    T=VDIM                                                  FEC      1363
                          63630                   SB6    X3                                                      FEC      1364
          1042  5110000000 X                      ALLOC  T.PAR,X3    ALLOCATE SPACE FOR TURPLES                  FEC      1365
          1044  77376                             SX3    B7-B6       DESTINATION ADDRESS                         FEC      1366
                     5110000000 X                 SA1    T=VDIM      WC                                          FEC      1367
          1045  5120000000 X                      SA2    T.VDIM      SOURCE ADDRESS                              FEC      1368
                          0100000000 X            MOVE   X1,X2,X3    MOVE *TURPLES* TO PARSER TABLE              FEC      1369
          1046  13666                             SHRINK T=VDIM      COLLAPSE T.VDIM                             FEC      1370
          1047  0400001022 +                      EQ     EXIT.       EXIT...                                     FEC      1371
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1050  0400401050 +             OIL      SUBR   =           ...ENTRY/EXIT...                            FEC      1396
                                                                                                                 FEC      1397
                                         .TEST    IFEQ   TEST,ON                                                 FEC      1398
          1051  5120000000 X                      SA2    CO.SNAP                                                 FEC      1399
                          20217                   LX2    1RO                                                     FEC      1400
          1052  0322001053 +                      PL     X2,OIL2     IF *SNAP=O* NOT SELECTED                    FEC      1401
                          0100000000 X            CALL   SN.PAR      PRINT IL SEGMENT                            FEC      1402
                                                                                                                 FEC      1403
          1053  5150000000 X             OIL2     SA5    PARSLEN                                                 FEC      1404
                          5140000000 X            SA4    T=PAR                                                   FEC      1405
          1054  37645                             MX6    X4+X5                                                   FEC      1406
                     54650                        SA6    A5          RESET MAXIMUM PARSED FILE LENGTH            FEC      1407
                                         .TEST    ENDIF                                                          FEC      1408
                          5120000000 X            SA2    N.CT                                                    FEC      1409
          1056  5130000000 X                      SA3    N.CTMAX                                                 FEC      1410
                          13666                   BX6    0                                                       FEC      1411
                               37723              MX7    X2+X3       RESET MAX CHAR TEMPS                        FEC      1412
          1060  54620                             SA6    A2                                                      FEC      1413
                     54730                        SA7    A3                                                      FEC      1414
                                                                                                                 FEC      1415
                          5110000000 X            SA1    ERR=K                                                   FEC      1416
          1061  0311001070 +                      NZ     X1,OIL4     IF CATASTROPHIC ERRORS IN IL SEGMENT        FEC      1417
                          5110000000 X            SA1    WO.QC                                                   FEC      1418
          1062  5120000000 X                      SA2    T=PAR                                                   FEC      1419
                          0331001070 +            MI     X1,OIL4     IF CODE GENERATION SUPPRESSED               FEC      1420
          1063  0302001070 +                      ZR     X2,OIL4     IF PARSED FILE EMPTY                        FEC      1421
                          5110000000 X            SA1    PASS        CURRENT PASS                                FEC      1422
          1064  10711                             BX7    X1                                                      FEC      1423
                     5170001073 +                 SA7    OILA        SAVE CURRENT PASS                           FEC      1424
          1065  0100000000 X                      CALL   PIS         PUBLISH IL SEGMENT                          FEC      1425
          1066  5110001073 +                      SA1    OILA                                                    FEC      1426
                          10611                   BX6    X1                                                      FEC      1427
          1067  5160000000 X                      SA6    PASS        RESTORE FORMER PASS                         FEC      1428
          1070  13666                    OIL4     BX6    0                                                       FEC      1429
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    33
        SUBROUTINES.                                                  OIL 
  
                     5160000000 X                 SA6    CURST       RESET STARTING PASS 1 BLOCK                 FEC      1430
          1071  5160000000 X                      SHRINK T=PAR,X6    CLEAR OUT PARSED FILE                       FEC      1431
                                                                                                                 FEC      1432
                                         .TEST    IFEQ   TEST,ON                                                 FEC      1433
                          5120001074 +            SA2    OILB                                                    FEC      1434
          1072  73721                             SX7    X2+B1       COUNT SEGMENTS PROCESSED                    FEC      1435
                     54720                        SA7    A2                                                      FEC      1436
                                         .TEST    ENDIF                                                          FEC      1437
                          0400001050 +            EQ     EXIT.                                                   FEC      1438
                                                                                                                 FEC      1439
          1073  00000000000000000000     OILA     CON    0           SAVE CURRENT PASS                           FEC      1440
          1074  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
          1075  0400401075 +             PUP      SUBR   0           ENTRY/EXIT...                               FEC      1455
                                                                                                                 FEC      1456
                                        *         IF X-REF SELECTED ACTIVATE REF.                                FC5A128   293
                                                                                                                 FC5A128   294
          1076  5120000000 X                      SA2    =XCO.LOR                                                FC5A128   295
                          0302001104 +            ZR     X2,PUP1     IF CO.LOR = 0 */X-REF NOT SELECTED.         FC5A128   296
          1077  76300                             ACTTAB REF,(DECL,EXU)    ACTIVATE REF ON DECL AND EXU PHASES   FC5A128   297
                                                                                                                 FC5A128   298
                                        *         TURN ON DECL PHASE.                                            FC5A128   299
                                                                                                                 FC5A128   300
          1104  5110000000 X             PUP1     SA1    =XTV=DECL                                               FC5A128   301
                          7170000200              SX7    PARMIN                                                  FC5A128   302
          1105  5170000000 X                      SA7    =XALC.PAR   SET MIN. ALLOC FOR PAR                      FC5A128   303
                          10711                   BX7    X1                                                      FC5A128   304
          1106  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
          1107  5120000000 X                      SA2    L.TABS                                                  FEC      1460
                          6120000000 X            SB2    N.TABLE*FUDGE                                           FEC      1461
          1110  6122000000 X                      SB2    B2+L=TABLE                                              FEC      1462
                          67202                   SB2    -B2                                                     FEC      1463
                               73522              SX5    X2+B2                                                   FEC      1464
          1111  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/05. 19.58.27.      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
          1112  36774                             IX7    X7+X4       (X7) = LWA TABLES                           FEC      1473
                     24102                        NX1    X2                                                      FEC      1474
                          5170000000 X            SA7    T.END                                                   FEC      1475
                                                                                                                 FC50567     6
          1113  5132000000 X             PUP2     SA3    B2+RATES                                                FEC      1476
                          40231                   FX2    X3*X1                                                   FEC      1477
                               73630              SX6    X3                                                      FEC      1478
          1114  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
          1115  36523                             IX5    X2+X3                                                   FEC      1483
                     37775                        IX7    X7-X5                                                   FEC      1484
                          5162000001 X            SA6    B2+SIZES+1  SET INITIAL SIZE                            FEC      1485
          1116  5172000001 X                      SA7    B2+BASES+1  SET INITIAL ORIGIN                          FEC      1486
                          0620001113 +            PL     B2,PUP2     LOOP THRU TABLES                            FEC      1487
          1117  10744                             BX7    X4                                                      FEC      1488
                     54770                        SA7    A7          RESET ORIGIN OF LOWEST TABLE                FEC      1489
                          43600                   MX6    0                                                       FEC      1490
          1120  5160000000 X                      SA6    NSQZLH      SQUEEZE LONG HOLLERITH FLAG                 FC5A415    10
                          5160000000 X            SA6    N.AP        COUNT OF AP-LISTS                           FEC      1491
          1121  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
          1122  5160000000 X                      SA6    N.CPL       LENGTH OF COPY AP AREA                      FEC      1493
                          5160000000 X            SA6    N.FP        NUMBER OF FORMAL PARAMETERS                 FC50567     7
          1123  5160000000 X                      SA6    N$LC        NUMBER OF FP LOCAL COPY CELLS               FC50686     8
                          5160000000 X            SA6    N.CT                                                    FEC      1494
          1124  5160000000 X                      SA6    N.CTMAX     MAX CHAR TEMP AREA                          FEC      1495
                          5160000000 X            SA6    N.DOB       COUNT OF DO-BEGIN LABELS                    FEC      1496
          1125  5160000000 X                      SA6    N.ST        COUNT OF STATEMENT TEMPS                    FEC      1497
                          5160000000 X            SA6    N.STMAX     MAX TEMPS IN ANY STATEMENT                  FEC      1498
          1126  5160000000 X                      SA6    N.VD        COUNT OF VARDIM EXPRESSIONS                 FEC      1499
                          5160000000 X            SA6    FAILSFT     CATASTROPHE IN TABLES                       FEC      1500
          1127  5160000000 X                      SA6    LOSTREF     REFERENCE COUNT                             FEC      1501
                          5160000000 X            SA6    MOD         PROGRAM UNIT MODE                           FEC      1502
          1130  5160000011 +                      SA6    IFLEVEL     BLOCK IF LEVEL                              FEC      1503
                          76610                   =X6    1                                                       FEC      1504
          1131  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
          1134  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
          1135  0100000000 X                      MOVE   X1,X2,X3                                                FEC      1517
                                                                                                                 FEC      1518
          1136  7160000041                        SX6    Z.SYMIL/Z=SYM     NUMBER OF ENTRIES (ORDINALS) PRESET   FEC      1519
                          5160001765 +            SA6    NEXTORD     PRESET SYM. TAB. ORDINAL COUNTER            FEC      1520
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    35
        SUBROUTINES.                                                  PUP 
  
                                                                                                                 FEC      1521
          1137  43601                             MX6    1           MARK ALL HASH VECTOR ENTRIES AS EMPTY       FEC      1522
                     5160000000 C                 SETMEM HASHTBL,Z.HASH,X6                                       FEC      1523
                                                                                                                 FEC      1524
          1141  13666                             SETMEM F.SORD,Z.SORD  CLEAR SYMORD CELLS                       FEC      1525
                                                  LIST   G                                                       FEC      1526
                                         SORD     HERE               SET KNOWN SYMORDS                           FEC      1527
          1143  76610                     SX.6 B1                                                               '?REG#S2.3
                     5160000000 X                 SA6    =XS=BU                                                 SORD    .1
                               76611      SX.6 B1+B1                                                            '?REG#S2.3
          1144  5160000000 X                      SA6    =XS=BUF                                                SORD    .1
                          7160000003      SX.6 '?000003                                                         '?REG#S2.3
          1145  5160000000 X                      SA6    =XS=CL                                                 SORD    .1
                          7160000004      SX.6 '?000004                                                         '?REG#S2.3
          1146  5160000000 X                      SA6    =XS=CON                                                SORD    .1
                          7160000005      SX.6 '?000005                                                         '?REG#S2.3
          1147  5160000000 X                      SA6    =XS=CT                                                 SORD    .1
                          7160000006      SX.6 '?000006                                                         '?REG#S2.3
          1150  5160000000 X                      SA6    =XS=LA                                                 SORD    .1
                          7160000007      SX.6 '?000007                                                         '?REG#S2.3
          1151  5160000000 X                      SA6    =XS=LENP                                               SORD    .1
                          7160000010      SX.6 '?000008                                                         '?REG#S2.3
          1152  5160000000 X                      SA6    =XS=SA1                                                SORD    .1
                          7160000011      SX.6 '?000009                                                         '?REG#S2.3
          1153  5160000000 X                      SA6    =XS=SA0                                                SORD    .1
                          7160000012      SX.6 '?000010                                                         '?REG#S2.3
          1154  5160000000 X                      SA6    =XS=ST                                                 SORD    .1
                          7160000013      SX.6 '?000011                                                         '?REG#S2.3
          1155  5160000000 X                      SA6    =XS=TA0                                                SORD    .1
                          7160000014      SX.6 '?000012                                                         '?REG#S2.3
          1156  5160000000 X                      SA6    =XS=TRACE                                              SORD    .1
                          7160000015      SX.6 '?000013                                                         '?REG#S2.3
          1157  5160000000 X                      SA6    =XS=VD                                                 SORD    .1
                          7160000016      SX.6 '?000014                                                         '?REG#S2.3
          1160  5160000000 X                      SA6    =XS=IT                                                 SORD    .1
                          7160000017      SX.6 '?000015                                                         '?REG#S2.3
          1161  5160000000 X                      SA6    =XS=OT                                                 SORD    .1
                          7160000020      SX.6 '?000016                                                         '?REG#S2.3
          1162  5160000000 X                      SA6    =XS=LC                                                 SORD    .1
                          7160000021      SX.6 '?000017                                                         '?REG#S2.3
          1163  5160000000 X                      SA6    =XS=RD                                                 SORD    .1
                          7160000022      SX.6 '?000018                                                         '?REG#S2.3
          1164  5160000000 X                      SA6    =XS=FID                                                SORD    .1
                          7160000023      SX.6 '?000019                                                         '?REG#S2.3
          1165  5160000000 X                      SA6    =XS=FMC                                                SORD    .1
                          7160000024      SX.6 '?000020                                                         '?REG#S2.3
          1166  5160000001 X                      SA6    =XS=FMC+1                                              SORD    .1
                          7160000025      SX.6 '?000021                                                         '?REG#S2.3
          1167  5160000000 X                      SA6    =XS=MMC                                                SORD    .1
                          7160000026      SX.6 '?000022                                                         '?REG#S2.3
          1170  5160000000 X                      SA6    =XS=LMC                                                SORD    .1
                          7160000027      SX.6 '?000023                                                         '?REG#S2.3
          1171  5160000000 X                      SA6    =XS=VALUE                                              SORD    .1
                          7160000036      SX.6 '?000030                                                         '?REG#S2.3
          1172  5160000000 X                      SA6    =XS=FAS                                                SORD    .1
                          7160000037      SX.6 '?000031                                                         '?REG#S2.3
          1173  5160000000 X                      SA6    =XS=FAR                                                SORD    .1
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    36
        SUBROUTINES.                                                  PUP 
  
                          7160000040      SX.6 '?000032                                                         '?REG#S2.3
          1174  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
          1176  10311                             BX3    X1                                                      FEC      1536
                     22102                        LX1    X2          WORD COUNT = LENGTH OF (T.DIM)              FEC      1537
                          7120001232 +            MOVE   X1,PUPA,X3                                              FEC      1538
                                                                                                                 FEC      1539
                                                                                                                 FEC      1540
                                        **        PRESET VARDIM TABLE WITH A BEGIN-VAR-DIM TURPLE.               FEC      1541
                                                                                                                 FEC      1544
          1200  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
          1202  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
                     5160000000 X                 SA6    =XALC=CNT                                               FEC      1562
          1205  5160000000 X                      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
          1207  43700                             MX7    0                                                       F1037F5   319
                     5170000000 X                 SA7    =XOVCFLG                                                F1037F5   320
                               43701              MX7    1                                                       FEC      1572
          1210  5170000000 X                      SA7    NOLIST      SET TO *LIST,ALL* DEFAULT                   FEC      1573
                          43700                   MX7    0                                                       FC5A192     9
                               77601              =X6    -1                                                      FC50096    35
          1211  5170000031 +                      SA7    WANFP       INITIALIZE WA.NFP CELL                      FC5A192    10
                          5160000021 +            SA6    REFLIN                                                  FC50096    36
          1212  5120002000 +                      SA2    =1H                                                     FEC      1574
                          22702                   LX7    X2                                                      FEC      1575
                               76510              SX5    B1                                                      FEC      1576
          1213  7160000000 X                      SX6    HDRBL                                                   FEC      1577
                          20536                   LX5    30                                                      FEC      1578
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    37
        SUBROUTINES.                                                  PUP 
  
                               12665              BX6    X6+X5                                                   FEC      1579
          1214  5160000000 X                      SA6    O.STITL                                                 FEC      1580
                          5170000000 X            SA7    TL.PTYP     BLANK OUT PROGRAM TYPE                      FEC      1581
          1215  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
          1216  6120000000 X                      SB2    N.ERRT                                                  FEC      1588
                          13666                   SETMEM B2+ERRTYP,B2                                            FEC      1589
          1221  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
          1222  7110000000 X                      MOVE   L.C$,CO.C$,WO.C$                                        FEC      1596
          1224  5110000000 X                      SA1    CO.LOR                                                  FC50744    16
                          5120001572 +            SA2    ERT=ON                                                  FC50744    17
          1225  0331001226 +                      MI     X1,PUP60    IF REFERENCE MAP SELECTED                   FC50744    18
                          5120001573 +            SA2    ERT=OFF                                                 FC50744    19
                                                                                                                 FC50744    20
          1226  10722                    PUP60    BX7    X2                                                      FC50744    21
                     5170001552 +                 SA7    ERT         SET REFERENCE MAP SWITCH TO ON/OFF          FC50744    22
          1227  5110000000 X                      SA1    CO.LOS                                                  FEC      1597
                          5120000000 X            SA2    LEXFLG                                                  FEC      1598
          1230  43301                             MX3    1           SET TO *HEADER DELAY*                       FEC      1599
                     0331001231 +                 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
          1231  12623                             BX6    X2+X3       MERGE *HDR* BIT FLAG                        FEC      1604
                     54620                        SA6    A2                                                      FEC      1605
                          0400001075 +            EQ     EXIT.       EXIT...                                     FEC      1606
                                                                                                                 FEC      1607
          1232  00000000010000000001     PUPA     VFD    DH.ATTRL/0,DH.PSL/1,DH.RAL/0,DH.DIML/1                  FEC      1608
          1233  00000000000000000001              VFD    30/0,D1.SPANL/1                                         FEC      1609
          1234  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/05. 19.58.27.      PAGE    38
        SUBROUTINES.                                                  RLS 
  
          1235  0400401235 +             RLS      SUBR   0           ENTRY/EXIT.                                 FEC      1626
          1236  5110000000 X                      SA1    SAVE                                                    FEC      1627
                          5120000000 X            SA2    USAVE                                                   FEC      1628
          1237  12112                             BX1    X1+X2                                                   FEC      1629
                     0301001235 +                 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
          1240  5110000000 X                      SA1    S=VALUE                                                 FC50870    14
                          63210                   SB2    X1                                                      FC50870    15
                               20101              LX1    1                                                       FC50870    16
          1241  63212                             SB2    X1+B2       CONVERT TO INDEX                            FC50870    17
                     5120000000 X                 SA2    T.SYM                                                   FC50870    18
          1242  6122000001                        SB2    B2+WB.W                                                 FC50870    19
                          63722                   SB7    X2+B2       SAVE ADDRESS OF BASE MEMBER                 FC50870    20
          1243  6122000025                        SB2    B2+Z=SYM*N.TYPE                                         FC50870    21
                          53222                   SA2    X2+B2       INITIALIZE FETCH REG                        FC50870    22
          1244  7170000006                        SX7    M.CHAR                                                  FC50870    23
                                                                                                                 FC50870    24
          1245  5022777774               RLS5     SA2    A2-Z=SYM                                                FC50870    25
                          20264                   SBIT   X2,WB.DEFP                                              FC50870    26
          1246  0332001251 +                      MI     X2,RLS6     IF A VALUE. IS DEFINED                      FC50870    27
                          7277777776              =X7    X7-1                                                    FC50870    28
          1247  0327001245 +                      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
          1250  0400001253 +                      EQ     RLS7                                                    FC50870    35
                                                                                                                 FC50870    36
                                         RLS6     LX7    WB.MODEP    POSITION NEW MODE                           FC50870    37
          1251  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
          1252  54620                             SA6    A2          UPDATE *WB*                                 FC50870    43
                                                                                                                 FEC      1631
                                        *         ALLOCATE FOR A SPECIAL LOCAL SAVE BLOCK (S$A$V$E).             FEC      1632
                                                                                                                 FEC      1633
          1253  5110000000 X             RLS7     ALLOC  T.BLKS,Z=BLKS                                           FC50870    44
          1255  5110002001 +                      SA1    =7LS$A$V$E                                              FEC      1635
                          7252777775              SX5    X2-Z=BLKS                                               FEC      1636
          1256  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/05. 19.58.27.      PAGE    39
        SUBROUTINES.                                                  RLS 
  
                                        *                (COM,SAVE) [WB.] = (1,1)                                FEC      1646
                                        *         SAVLEN = SAVLEN + SIZE                                         FEC      1647
                                                                                                                 FEC      1648
          1257  5110000000 X                      SA1    T.SYM                                                   FEC      1649
                          5120000000 X            SA2    T=SYM                                                   FEC      1650
          1260  6130000003                        SB3    Z=SYM                                                   FEC      1651
                          53311                   =A3    X1+WB.W                                                 FEC      1652
          1261  5110000000 X                      SA1    T.DIM                                                   FEC      1653
                          63720                   SB7    X2                                                      FEC      1654
                               13777              BX7    0           SAVLEN = 0                                  FEC      1655
          1262  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
          1263  54333                    RLS10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     FEC      1665
                     67773                        SB7    B7-B3                                                   FEC      1666
                          0470001307 +            ZR     B7,RLS30    IF END OF T.SYM                             FEC      1667
          1264  5140002002 +                      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
                     0316001263 +                 NZ     X6,RLS10    IF NOT UNIQUE LOCAL                         FEC      1671
          1266  5110000000 X                      SA1    USAVE                                                   FEC      1672
                          5120002003 +            CLAS=  X2,WB,(COM,SAVE,MAT)                                    FEC      1673
          1267  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
          1270  12632                             BX6    X3+X2                                                   FEC      1677
                     0301001263 +                 ZR     X1,RLS10    IF NOT SAVED LOCAL                          FEC      1678
                               11434              BX4    X3*X4       BMEMI = BMEM[WBI]                           FEC      1679
          1271  20367                             SBIT   X3,WB.CGSP                                              FEC      1680
                     0323001273 +                 PL     X3,RLS15    IF NOT COMPILER GENERATED SYMBOL            FEC      1681
          1272  0304001263 +                      ZR     X4,RLS10    IF NOT BASE MEMBER                          FEC      1682
                                                                                                                 FEC      1683
          1273  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
          1274  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
          1275  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
          1276  6246777771                        SB4    X6-M.CHAR                                               FEC      1695
                          43374                   MX3    -0          INDICATE TWO WORD ELEMENT                   FEC      1696
          1277  6226777773                        SB2    X6-M.DBL                                                FEC      1697
                          0420001304 +            EQ     B2,B0,RLS20 IF MODE = DOUBLE                            FEC      1698
          1300  0421001304 +                      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
          1301  0540001304 +                      NZ     B4,RLS20    IF NOT MODE CHARACTER                       FEC      1702
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    40
        SUBROUTINES.                                                  RLS 
  
                          10611                   BX6    X1                                                      FEC      1703
                               20614              HX6    WC.CLEN                                                 FEC      1704
          1302  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
          1304  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
          1305  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
          1306  0400001263 +                      EQ     RLS10                                                   FEC      1716
                                                                                                                 FEC      1717
                                        *         UPDATE LENGTH OF S$A$V$E BLOCK.                                FEC      1718
                                                                                                                 FEC      1719
          1307  0307001312 +             RLS30    ZR     X7,RLS40    IF SAVLEN .EQ. 0                            FEC      1720
                          5110000000 X            SA1    T.BLKS                                                  FEC      1721
          1310  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
          1311  12772                             BX7    X7+X2                                                   FEC      1726
                     53754                        SA7    X5+B4       (SAVE,BLEN) [T.BLKS(RBS)] = (1,SAVLEN)[CB.] FEC      1727
                          0400001235 +            EQ     EXIT.                                                   FEC      1728
                                                                                                                 FEC      1729
                                        *         LOCAL SAVE BLOCK LENGTH .EQ. 0...                              FEC      1730
                                        *         SHRINK BLOCK TABLE TO ORIGINAL SIZE.                           FEC      1731
                                                                                                                 FEC      1732
          1312  5110000000 X             RLS40    SA1    T=BLKS                                                  FEC      1733
                          7261777775              SHRINK A1,X1-Z=BLKS                                            FEC      1734
                     0400001235 +                 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
          1314  0400401314 +             RSC      SUBR   0                                                       FEC      1746
          1315  13666                             BX6    0                                                       FEC      1747
                     7170000055                   =X7    CR.REF                                                  FEC      1748
          1316  5160000005 +                      SA6    DATFLG      CLEAR DATA-KLUDGE 'FLAG'                    FEC      1749
                          5160000006 +            SA6    DTI         CLEAR DO-TERMINATION INDICATOR              FEC      1750
          1317  5170000022 +                      SA7    REFNUM        -   CURRENT VALUE FOR REFS TO STAT. NO.   FEC      1751
                          5160000004 +            SA6    CSLTAG        -   CURRENT STATEMENT LABEL TAG           FEC      1752
          1320  5160000000 X                      SA6    E=TOTAL       -   CURRENT STATEMENT ERROR COUNT         FEC      1753
                          5160000000 X            SA6    INIF          -   LOGICAL IF INDICATOR                  FEC      1754
          1321  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/05. 19.58.27.      PAGE    41
        SUBROUTINES.                                                  RSC 
  
          1322  5160000045 +                      SA6    ZLE                                                     FEC      1756
                          5160000042 +            SA6    ZLEQUAL                                                 FEC      1757
          1323  5160000043 +                      SA6    ZLCOMMA                                                 FEC      1758
                          5160000044 +            SA6    ZLPAREN                                                 FEC      1759
          1324  5160000046 +                      SA6    ZLCOLON                                                 FEC      1760
                          5160000000 X            SHRINK T=SCR,X6    RESET TO ZERO                               FC51512     7
          1325  5170000023 +                      SA7    REFVAR                                                  FEC      1761
                          5120000000 X            SA2    T=CON                                                   FEC      1762
          1326  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
          1330  0400001314 +                      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
          1331  0400401331 +             SSU      SUBR   0           ENTRY/EXIT.                                 FEC      1774
          1332  5110000000 X                      SA1    USAVE                                                   FEC      1775
                          5120000000 X            SA2    T=SYM                                                   FEC      1776
          1333  0301001331 +                      ZR     X1,EXIT.    IF NO UNIVERSAL SAVE                        FEC      1777
                          5130000000 X            SA3    T.SYM                                                   FEC      1778
          1334  63620                             SB6    X2                                                      FEC      1779
                     43001                        CLAS=  X0,WB,(SAVE)                                            FEC      1780
          1335  6130000003                        SB3    Z=SYM                                                   FEC      1781
                          53331                   =A3    X3+WB.W                                                 FEC      1782
          1336  5120002005 +                      CLAS=  X2,WB,(LAB,FP,EXT,NVAR,NLST,PARM,ENT)                   FEC      1783
                          43401                   CLAS=  X4,WB,(BMEM)                                            FEC      1784
          1337  7150000020                        CLAS=  X5,WB,(CGS)                                             FEC      1785
                                                                                                                 FC50776     5
          1340  54333                    SSU10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     FEC      1786
                     67663                        SB6    B6-B3                                                   FEC      1787
                          0460001331 +            ZR     B6,EXIT.    IF END OF T.SYM                             FEC      1788
          1341  11132                             BX1    X3*X2                                                   FEC      1789
                     11734                        BX7    X3*X4       BMEMI = BMEM[WBI]                           FEC      1790
                          0311001340 +            NZ     X1,SSU10    IF NOT LOCAL OR COMMON                      FEC      1791
          1342  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
          1343  0317001340 +                      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
          1344  0400001340 +                      EQ     SSU10                                                   FEC      1797
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1345  0400401345 +             BBC      SUBR   =           ENTRY/EXIT...                               FC5A141    31
          1346  10655                             BX6    X5                                                      FC5A141    32
                     20652                        HX6    TP.EQV                                                  FC5A141    33
                          0326001345 +            PL     X6,EXIT.    IF ALREADY IN BASE/BIAS FORM                FC5A141    34
          1347  43754                             MX7    -TP.ORDL                                                FC5A141    35
                     20642                        LX6    TP.EQVP+1-TP.ORDP                                       FC5A141    36
                          15667                   BX6    -X7*X6      X6 = SYMTAB ORDINAL                         FC5A141    37
          1350  5120000000 X                      SA2    T.SYM                                                   FC5A141    38
                          63260                   SB2    X6                                                      FC5A141    39
                               20601              LX6    1                                                       FC5A141    40
          1351  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
          1352  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
          1353  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
          1354  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
          1355  5120002006 +                      CLAS=  X2,TP,(BIAS,ORD,EQV)                                    FC5A141    58
                          20654                   LX6    TP.ORDP                                                 FC5A141    59
                               20124              LX1    TP.BIASP                                                FC5A141    60
          1356  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
          1357  0400001345 +                      EQ     EXIT.                                                   FC5A141    64
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1360  0400401360 +             CCT      SUBR   =           ENTRY/EXIT...                               FEC      1822
          1361  11332                             BX3    X3*X2                                                   FEC      1823
                     0303001360 +                 ZR     X3,EXIT.    IF NO CONFLICT                              FEC      1824
                               24373              NX3,B7             LOCATE LEADING BIT IN CONTENTION            FEC      1825
          1362  6120000057 X                      SB2    CLASS+47                                                FEC      1826
                          5211000000 X            SA1    X1+CLASS    FETCH ERRLIT FOR CANNOT-BE                  FEC      1827
          1363  57327                             SA3    B2-B7       FETCH ERRLIT FOR CURRENT CLASS              FEC      1828
                     10633                        BX6    X3                                                      FEC      1829
                          5160000000 X            SA6    FILL.2                                                  FEC      1830
          1364  22701                             LX7    X1                                                      FEC      1831
                     54761                        SA7    A6+B1                                                   FEC      1832
                          6170000000 X            FATAL  E.VA02                                                  FEC      1833
          1366  43073                             MX0    -1          INDICATE ERROR                              FEC      1834
                     0400001360 +                 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
          1367  0400401367 +             CT1      SUBR   =           ENTRY/EXIT...                               FEC      1848
          1370  22210                             LX2    X0,B1                                                   FEC      1849
                     36320                        IX3    X2+X0                                                   FEC      1850
                                   0              ERRNZ  3-Z=SYM                                                 FEC      1851
                                         .TEST    IFNE   TEST                                                    FEC      1852
                          0330401370 +            MI     X0,"BLOWUP"       IF NEGATIVE ORDINAL                   FEC      1853
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    44
        FRONT END SUPPORT ROUTINES.                                   CT1 
  
          1371  5110000000 X                      SA1    T=SYM                                                   FEC      1854
                          37231                   IX2    X3-X1                                                   FEC      1855
          1372  0322401372 +                      PL     X2,"BLOWUP"       IF INDEX .GE. SYMTAB LENGTH           FEC      1856
                                         .TEST    ENDIF                                                          FEC      1857
                          5110000000 X            SA1    T.SYM                                                   FEC      1858
          1373  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
          1374  10322                             BX3    X2                                                      FEC      1870
                     20370                        SBIT   X3,WB.LABP                                              FEC      1871
                          0333001367 +            MI     X3,EXIT.    IF STATEMENT LABEL                          FEC      1872
                                                                                                                 FEC      1873
                                        *         COPY FP BIT.                                                   FEC      1874
                                                                                                                 FEC      1875
          1375  7130200000                        CLAS=  X3,WB,(FP)                                              FEC      1876
                          11132                   BX1    X3*X2       EXTRACT (FP)                                FEC      1877
                               20102              LX1    -WB.FPP+TP.FPP                                          FEC      1878
          1376  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
          1377  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
          1400  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
          1401  36661                             IX6    X6+X1                                                   FEC      1904
                                                                                                                 FEC      1905
                     20222                        LX2    WB.LCMP-59  RESTORE (X2)                                FEC      1906
                          0400001367 +            EQ     EXIT.                                                   FEC      1907
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1402  23171                    STY2     AX1    X1,B7       REPOSITION                                  FEC      1921
                     20666                        LX6    -6          RESTORE X6                                  FEC      1922
                          7221777771              SX2    X1-M.CHAR                                               FEC      1923
          1403  73110                             SX1    X1          ISOLATE MODE                                FEC      1924
                     0302001405 +                 ZR     X2,STY3     IF TYPE CHARACTER                           FEC      1925
                               43200              MX2    0                                                       FEC      1926
          1404  0400001411 +                      EQ     STYX                                                    FEC      1927
                                                                                                                 FEC      1928
          1405  77271                    STY3     =X2    B7-1                                                    FEC      1929
                     20273                        LX2    -1                                                      FEC      1930
                          0332001410 +            MI     X2,STY4     IF ODD LETTER (LOWER HALF OF PAIR)          FEC      1931
          1406  5222001426 +                      SA2    X2+NAT.LEN  FETCH PAIR                                  FEC      1932
                          21236                   AX2    30          UPPER HALF ONLY                             FEC      1933
                               20236              LX2    WC.CLENP                                                FEC      1934
          1407  0400001411 +                      EQ     STYX                                                    FEC      1935
                                                                                                                 FEC      1936
          1410  5222001426 +             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
          1411  0400401411 +             STY      SUBR   =           ENTRY/EXIT...                               FEC      1941
          1412  20606                             LX6    CHAR                                                    FEC      1942
                     7120000006                   =X2    N.TYPE-1                                                FEC      1943
                               43166              MX1    -CHAR                                                   FEC      1944
          1413  15161                             BX1    -X1*X6      ISOLATE FIRST CHARACTER                     FEC      1945
                     6271000000                   SB7    X1+                                                     FEC      1946
          1414  5212001417 +             STY1     SA1    X2+NAT.TYP                                              FEC      1947
                          7222777776              SX2    X2-1                                                    FEC      1948
          1415  22171                             LX1    X1,B7                                                   FEC      1949
                     0331001402 +                 MI     X1,STY2     IF HIT                                      FEC      1950
          1416  0322001414 +                      PL     X2,STY1     IF NO TABLE EXHAUSTION                      FEC      1951
                          0400401416 +            TRUBL  E.ZA                                                    FEC      1952
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    46
        FRONT END SUPPORT ROUTINES.                                   NAT.TYPE
  
                                        **        NAT.TYPE - TABLE OF NATURAL (IMPLICIT) TYPES.                  FEC      1954
                                                                                                                 FEC      1955
                                                                                                                 FEC      1956
          1417                           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   1426                                    LOC    *O                                                      FEC      1966
                                                                                                                 FEC      1967
          1426                    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
          1443  0400401443 +             TLV      SUBR   =           ** ENTRY/EXIT **                            FEC      1991
          1444  56240                             SA2    B4                                                      FEC      1992
                     10722                        BX7    X2          SAVE FIRST TOKEN OF NAME                    FEC      1993
                          43052                   MX0    WA.SYML                                                 FEC      1994
          1445  66441                    TLV5     =B4    B4+1                                                    FEC      1995
                     56241                        =A2    B4+1                                                    FEC      1996
                          6272777766              SB7    X2-O.VAR                                                FEC      1997
          1446  0470001445 +                      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
          1447  5170000000 X                      SA7    FILL.                                                   FEC      2001
                          6170000000 X            FATAL  E.VA10      ** NAME TOO LONG, TRUNCATED                 FEC      2002
          1451  0400001443 +                      EQ     EXIT.                                                   FEC      2003
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1452  0400401452 +             TRV      SUBR   =           ENTRY/EXIT...                               FEC      2023
          1453  76620                             SX6    B2                                                      FEC      2024
                     5160001520 +                 SA6    TRVB        SAVE ENTRY INDICATOR                        FEC      2025
                               56140              SA1    B4                                                      FEC      2026
          1454  43052                             MX0    WA.SYML                                                 FEC      2027
                     11601                        BX6    X0*X1       SYMBOL ONLY                                 FEC      2028
                          6221777766              SB2    X1-O.VAR                                                FEC      2029
          1455  5160000000 X                      SA6    FILL.                                                   FEC      2030
                          0520000000 X            NZ     B2,E.VA09   IF NOT *VARIABLE*                           FC50110     7
          1456  5124000001                        SA2    B4+1                                                    FC50110     8
                          6272777766              SB7    X2-O.VAR                                                FEC      2038
          1457  0570001460 +                      NZ     B7,TRV5     IF NAME LESS THAN 8 CHAR                    FEC      2039
                          0100001443 +            CALL   TLV         TRUNCATE LONG VARIABLE NAME                 FEC      2040
          1460  0100001746 +             TRV5     RJ     SSY                                                     FEC      2041
          1461  63300                             SB3    X0          (B3) = ORDINAL                              FEC      2042
                     76730                        SX7    B3                                                      FEC      2043
                          5170001517 +            SA7    TRVA                                                    FEC      2044
          1462  0670001467 +                      PL     B7,TRV10    IF FOUND IN TABLE                           FEC      2045
                          0100001411 +            RJ     STY         SET MODE                                    FEC      2047
          1463  7170000040                        CLAS=  X7,WB,(VAR)                                             FEC      2048
                          12717                   BX7    X1+X7       ADD MODE                                    FEC      2049
          1464  5110000000 X                      ADSYM  T.SYM       ADD SYMBOL + TAG TO TABLE.                  FEC      2050
          1465  63300                             SB3    X0          ORDINAL                                     FEC      2051
                     76730                        SX7    B3                                                      FEC      2052
                          5170001517 +            SA7    TRVA                                                    FEC      2053
          1466  0400001511 +                      EQ     TRV12                                                   FEC      2054
                                                                                                                 FEC      2055
          1467  10066                    TRV10    BX0    X6                                                      FEC      2056
                     20070                        SBIT   X0,WB.LABP                                              FEC      2057
                          7110000003 X            SX1    CLASS+WB.LABP                                           FEC      2058
          1470  0330001505 +                      MI     X0,TRV11E   IF STATEMENT LABEL                          FEC      2059
                          20071                   LX0    WB.LABP-WB.NVARP                                        FEC      2060
          1471  0320001511 +                      PL     X0,TRV12    IF NOT A *NOT VARIABLE*                     FEC      2061
                          7120014410              CLAS=  X2,WB,(SUB,FUN,LAB,PARM)                                FEC      2062
          1472  11026                             BX0    X2*X6                                                   FEC      2063
                     0310001504 +                 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/05. 19.58.27.      PAGE    48
        FRONT END SUPPORT ROUTINES.                                   TRV 
  
          1474  0302001505 +                      ZR     X2,TRV11E   IF NOT ENTRY POINT                          FEC      2068
                          5110000000 X            SA1    MOD                                                     FEC      2069
          1475  20160                             SBIT   X1,MO.FUNP                                              FEC      2070
                     0321001504 +                 PL     X1,TRV11    IF NOT FUNCTION SUBPROGRAM                  FEC      2071
          1476  5110001520 +                      SA1    TRVB                                                    FEC      2072
                          0301001504 +            ZR     X1,TRV11    IF MAIN ENTRY POINT ILLEGAL AS VARIABLE     FEC      2073
          1477  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
          1500  36701                             IX7    X0+X1                                                   FEC      2078
                     5170001517 +                 SA7    TRVA                                                    FEC      2079
                               63370              SB3    X7                                                      FEC      2080
          1501  22117                             LX1    B1,X7                                                   FEC      2081
                     73113                        SX1    X1+B3       CONVERT TO INDEX                            FEC      2082
                          63711                   =B7    X1+WB.W                                                 FEC      2083
          1502  5110000000 X                      SA1    T.SYM                                                   FEC      2084
                          53217                   SA2    X1+B7       *WB* OF PROPER VALUE. SYMBOL                FEC      2085
          1503  0400001511 +                      EQ     TRV12                                                   FEC      2086
                                                                                                                 FEC      2087
                                        *         CLASS CONFLICT.  GET PROPER MESSAGE.                           FEC      2088
                                                                                                                 FEC      2089
          1504  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
          1505  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
          1506  5160000000 X                      SA6    FILL.2      SET NAME OF CONFLICTING CLASS               FEC      2097
                          0100000000 X            FATAL  B7                                                      FEC      2098
          1507  76030                             SX0    B3                                                      FEC      2099
                     0100001367 +                 RJ     CT1         CONSTRUCT OPERAND (TP.)                     FEC      2100
          1510  43073                             MX0    -1          INDICATE ERROR                              FEC      2101
                                                                                                                 FEC      2102
                                        **               (B3) = SYMTAB ORDINAL.                                  FEC      2103
                                                                                                                 FEC      2104
          1511  5110000000 X             TRV12    SA1    WO.LOR                                                  FEC      2105
                          0321001514 +            PL     X1,TRV20    IF NO CROSS-REFERENCE SELECTED.             FEC      2106
          1512  76630                             SX6    B3                                                      FEC      2107
                     20652                        LX6    XR.TAGP     CONSTRUCT XREF TAG                          FEC      2108
                          5110000023 +            SA1    REFVAR      TYPE OF REFERENCE                           FEC      2109
          1513  6170001514 +                      ADDREF X6,X1                                                   FEC      2110
                                                                                                                 FEC      2111
                                        **        SET-UP EXIT CONDITIONS.                                        FEC      2112
                                                                                                                 FEC      2113
          1514  5110001517 +             TRV20    SA1    TRVA                                                    FEC      2114
                          10011                   BX0    X1                                                      FEC      2115
          1515  0100001367 +                      RJ     CT1         CONSTRUCT PASS 1 TAG                        FEC      2116
          1516  5160001517 +                      SA6    TRVA                                                    FEC      2117
                          0400001452 +            EQ     EXIT.       EXIT...                                     FEC      2118
                                                                                                                 FEC      2119
          1517  00000000000000000000     TRVA     CONENT 0                                                       FEC      2120
          1520                     1     TRVB     BSS    1           SAVE ENTRY POINT TEST SWITCH                FEC      2121
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1521  0400401521 +             TSX      SUBR   =           ENTRY/EXIT...                               FEC      2144
          1522  43052                             MX0    WA.SYML                                                 FEC      2145
                     11601                        BX6    X0*X1                                                   FEC      2146
                          0100001746 +            CALL   SSY         SCAN SYMBOL TABLE                           FEC      2147
          1523  0670001525 +                      PL     B7,TSX3     IF ALREADY IN TABLE                         FEC      2148
                          7130040120              CLAS=  X3,WB,("M.SYSXT")                                       FEC      2149
                                   0              ERRNZ  M.BOOL                                                  FEC      2150
          1524  10733                             BX7    X3                                                      FEC      2151
                     43200                        MX2    0                                                       FEC      2152
                          0100001574 +            ADSYM  A1                                                      FEC      2153
                                                                                                                 FEC      2154
          1525  5120000000 X             TSX3     SA2    T=BLST                                                  FEC      2155
                          0302001531 +            ZR     X2,TSX4     IF NOT IN BLOCK STRUCTURE                   FEC      2156
          1526  22600                             LX6    X0          PRESERVE ORDINAL                            FEC      2157
                     7100040000                   CLAS=  X0,WB,(DLER)                                            FEC      2158
          1527  0100000000 X                      CALL   PDA         PROPOGATE DO LOOP ATTRIBUTE                 FEC      2159
          1530  22006                             LX0    X6                                                      FEC      2160
                                                                                                                 FEC      2161
          1531  0100001367 +             TSX4     RJ     CT1         CONSTRUCT (TP.) OPERAND                     FEC      2162
          1532  0400001521 +                      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/05. 19.58.27.      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
          1533  0400401533 +             TSY      SUBR   =           ENTRY/EXIT...                               FEC      2181
          1534  43052                             MX0    WA.SYML                                                 FEC      2182
                     11604                        BX6    X0*X4                                                   FEC      2183
                          22703                   LX7    X3                                                      FEC      2184
          1535  0100001746 +                      CALL   SSY         COMPUTE SYMBOL HASH                         FEC      2185
          1536  0670401536 +                      PL     B7,"BLOWUP" IF SYMBOL ALREADY IN TABLE                  FEC      2186
                          43200                   MX2    0           (WC.W) = 0                                  FEC      2187
          1537  0100001574 +                      ADSYM  A1          ADD SYMBOL TO TABLE                         FEC      2188
          1540  10700                             BX7    X0                                                      FEC      2189
                     53740                        SA7    X4                                                      FEC      2190
                          0400001533 +            EQ     EXIT.                                                   FEC      2191
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1541  76600                    ERT1     SHRINK T=REF,0     TABLE JUST OVERFLOWED                       FEC      2207
                                                                                                                 FEC      2208
          1542  76660                    ERT2     SX6    B6                                                      FEC      2209
                     76750                        SX7    B5                                                      FEC      2210
                          5160001565 +            SA6    ERTA        (ERTA+0) = (B6)                             FEC      2211
          1543  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
          1544  6160001570 +                      WRITEW F.REF,ERTB,1                                            FEC      2216
          1546  63400                             SB4    X0          RESTORE (B4)                                FEC      2217
                     5120001565 +                 SA2    ERTA                                                    FEC      2218
          1547  5110001571 +                      SA1    ERTB+1                                                  FEC      2219
                          54321                   =A3    A2+1                                                    FEC      2220
                               54431              =A4    A3+1        RESTORE (X4)                                FEC      2221
          1550  63620                             SB6    X2          RESTORE (B6)                                FEC      2222
                     63530                        SB5    X3          RESTORE (B5)                                FEC      2223
                          63710                   SB7    X1                                                      FEC      2224
          1551  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
          1552                     1     ERT      BSSENT 1           ...ENTRY                                    FEC      2230
          1553  5120000021 +                      SA2    REFLIN                                                  FEC      2231
                          43022                   MX0    XR.TAGL                                                 FEC      2232
                               11606              BX6    X0*X6       ISOLATE TAG                                 FEC      2233
          1554  36312                             IX3    X1+X2       PAGE, LINE, USE                             FEC      2234
                     5110000000 X                 SA1    LOSTREF                                                 FEC      2235
                               36636              IX6    X3+X6                                                   FEC      2236
          1555  5160001570 +                      SA6    ERTB                                                    FEC      2237
                          73611                   SX6    X1+B1       ACCUMULATE REF COUNT                        FEC      2238
          1556  5120000000 X                      SA2    REFIO                                                   FEC      2239
                          54610                   SA6    A1                                                      FEC      2240
                               76670              SX6    B7                                                      FEC      2241
          1557  5160001571 +                      SA6    ERTB+1      SAVE EXIT ADDRESS                           FEC      2242
                          0312001542 +            NZ     X2,ERT2     IF ON DISK                                  FEC      2243
                                                                                                                 FEC      2244
          1560  5110000000 X                      ALLOC  T.REF,1                                                 FEC      2245
          1562  5130000000 X                      SA3    REFIO                                                   FEC      2246
                          0313001541 +            NZ     X3,ERT1     IF JUST OVERFLOWED                          FEC      2247
          1563  5130001571 +                      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/05. 19.58.27.      PAGE    52
        TABLE SCANNING AND ENTRY ROUTINES.                            ERT 
  
          1564  10622                             BX6    X2                                                      FEC      2251
                     57671                        =A6    B7-1        STORE REFERENCE IN TABLE                    FEC      2252
                          0222000000              JP     B2          EXIT..                                      FEC      2253
                                                                                                                 FEC      2254
          1565                     3     ERTA     BSS    3           SAVES (B6, B5, X4)                          FEC      2255
          1570                     2     ERTB     BSS    2           SAVE AREA                                   FEC      2256
                                                                                                                 FEC      2257
          1572                           ERT=ON   BSSENT                                                         FEC      2258
          1572  46000                             NO                                                             FEC      2259
                     46000                        NO                                                             FEC      2260
                          46000                   NO                                                             FEC      2261
                               46000              NO                                                             FEC      2262
          1573                           ERT=OFF  BSSENT                                                         FEC      2263
          1573  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
          1574  0400401574 +             ESY      SUBR   =           ...ENTRY/EXIT...                            FEC      2289
          1575  43301                             LDBIT  X3,WB.1REFP                                             FC5A191    10
                          12737                   BX7    X3+X7       SET 1REF FLAG                               FC5A191    11
                               43006              MX0    CHAR                                                    FC5A192    11
          1576  0336001603 +                      MI     X6,ESY05    IF TAPEXXX SYMBOL                           FC50593     5
                          20030                   LX0    -MAX.VAR*CHAR+CHAR                                      FC5A192    12
                               11306              BX3    X0*X6                                                   FC5A192    13
          1577  0303001603 +                      ZR     X3,ESY05    IF NOT SEVEN CHARACTER SYMBOL               FC5A192    14
                          21322                   AX3    18                                                      FC5A192    15
          1600  6223777732                        SB2    X3-1R+                                                  FC5A192    16
                          0620001603 +            PL     B2,ESY05    IF APPENDED SPECIAL CHARACTER               FC5A192    17
          1601  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/05. 19.58.27.      PAGE    53
        TABLE SCANNING AND ENTRY ROUTINES.                            ESY 
  
          1603  5160001625 +             ESY05    SA6    ESYA                                                    FC5A192    21
                          54761                   =A7    A6+1                                                    FEC      2291
                               22602              LX6    X2                                                      FEC      2292
          1604  5067000001                        SA6    A7+1                                                    FEC      2293
                          5120001764 +            SA2    LAST                                                    FEC      2294
          1605  5130001765 +                      SA3    NEXTORD                                                 FEC      2295
                          10633                   BX6    X3                                                      FEC      2296
          1606  0322001610 +                      PL     X2,ESY1     IF HASH LINK TO SYMBOL TABLE                FEC      2297
                          14022                   BX0    -X2                                                     FEC      2298
          1607  5260000000 C                      SA6    X0+HASHTBL  HASH LINK TO HASH TABLE                     FEC      2299
                          0400001612 +            EQ     ESY2                                                    FEC      2300
                                                                                                                 FEC      2301
          1610  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
          1611  43660                             MX6    -WA.HASHL                                               FC5A192    22
                                                  LX2    -WA.HASHP                                               FC5A192    23
                     15626                        BX6    -X6*X2      EXTRACT HASH FIELD                          FC5A192    24
                          0316401611 +            NZ     X6,"BLOWUP"       IF PREVIOUS LINK EXISTED              FEC      2308
                                         .TEST    ENDIF                                                          FEC      2309
                                                                                                                 FEC      2310
          1612  7100000003               ESY2     ALLOC  A1,Z=SYM                                                FEC      2311
          1613  5120001626 +                      SA2    ESYA+1                                                  FEC      2312
                          54321                   =A3    A2+1                                                    FEC      2313
                               10633              BX6    X3          *WC* ENTRY                                  FEC      2314
          1614  57671                             =A6    B7-Z=SYM+WC.W                                           FEC      2315
                     5130001765 +                 SA3    NEXTORD                                                 FEC      2316
          1615  6223770000                        SB2    X3-"MSTO"   CURRENT ORDINAL - MAXIMUM ORDINAL ALLOWED   FC51347    12
                          0702001622 +            GT     B2,ESY3     IF SYMBOL TABLE OVERFLOW                    FC51347    13
          1616  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
          1617  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
          1620  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
          1621  54730                             SA7    A3                                                      FEC      2326
                     65767                        SB7    A6-B7       RETURN (B7) = INDEX OF WB                   FEC      2327
                          0400001574 +            EQ     EXIT.                                                   FEC      2328
                                                                                                                 FEC      2329
          1622  6170000000 X             ESY3     FATAL  E.STO       ERROR - SYMBOL TABLE OVERFLOW               FC51347    14
          1623  0100000000 X                      CALL   CAF         CLOSE ALL FILES                             FC51347    15
          1624  0400000000 X                      EQ     ENDFTN                                                  FC51347    16
                                                                                                                 FC51347    17
          1625  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/05. 19.58.27.      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
          1630  0400401630 +             INN      SUBR   =           ENTRY/EXIT...                               FEC      2355
          1631  73611                             SX6    X1+B1       INCRMENT COUNT OF INVENTED NAMES            FEC      2356
                     5170001641 +                 SA7    INNA        SAVE PREFIX                                 FEC      2357
                               66740              SB7    B4          SAVE (B4)                                   FEC      2358
          1632  54610                             SA6    A1                                                      FEC      2359
                     0100000000 X                 CALL   CDD         CONVERT DECIMAL DIGITS (SUFFIX)             FEC      2360
          1633  43001                             MX0    1                                                       FEC      2361
                     67221                        SB2    B2-B1                                                   FEC      2362
                          5130001641 +            SA3    INNA        RETRIEVE PREFIX                             FEC      2363
          1634  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
          1635  20652                             LX6    -3*6                                                    FEC      2368
                     0100001746 +                 CALL   SSY         SCAN SYMBOL TABLE (TO COMPUTE HASH)         FEC      2369
                                         .TEST    IFEQ   TEST,ON,1                                               FEC      2370
          1636  0670401636 +                      PL     B7,"BLOWUP"       IF ALREADY IN TABLE                   FEC      2371
                          7170000020              CLAS=  X7,WB,(CGS)       SET (COMPILER-GENERATED-SYMBOL)       FEC      2372
          1637  7120000000                        SX2    0                                                       FEC      2373
                          0100001574 +            ADSYM  A1          ADD NEW NAME TO SYMBOL TABLE                FEC      2374
          1640  0400001630 +                      EQ     EXIT.                                                   FEC      2375
                                                                                                                 FEC      2376
          1641                     1     INNA     BSS    1           SAVE PREFIX                                 FEC      2377
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1642  0400401642 +             NCM      SUBR   =           ...ENTRY/EXIT...                            FEC      2405
          1643  76630                             SX6    B3                                                      FEC      2406
                     77032                        SX0    B3-B2                                                   FEC      2407
                          5160000000 X            SA6    NCMA                                                    FEC      2408
          1644  76770                             SX7    B7                                                      FEC      2409
                     54761                        =A7    A6+1                                                    FEC      2410
                          0423001642 +            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
          1645  56220                             SA2    B2          1ST ELEMENT TO BE CHECKED.                  FEC      2415
                     6270777776                   SB7    X0-1        LENGTH OF THIS ENTRY                        FEC      2416
          1646  5031000000 X                      SA3    A1+N.TABLE  LENGTH OF TABLE.                            FEC      2417
          1647  10622                    NCM5     BX6    X2                                                      FEC      2418
                     63330                        SB3    X3                                                      FEC      2419
                          5261777776              SA6    X1-1        DUMMY FIND                                  FEC      2420
          1650  54363                             SA3    A6+B3                                                   FEC      2421
                     0673001667 +                 LE     B3,B7,NCM50 IF TABLE TOO SMALL TO ALREADY HAVE IT       FEC      2422
                               55337              SA3    A3-B7                                                   FEC      2423
          1651  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
          1652  67331                    NCM10    =B3    B3-1                                                    FEC      2429
                     13632                        BX6    X3-X2                                                   FEC      2430
                          55331                   =A3    A3-1                                                    FEC      2431
          1653  0316001652 +                      NZ     X6,NCM10    IF NO MATCH                                 FEC      2432
                          0336001652 +            MI     X6,NCM10    IF NO MATCH (-0 PROBLEM)                    FEC      2433
          1654  0730001667 +                      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/05. 19.58.27.      PAGE    56
        TABLE SCANNING AND ENTRY ROUTINES.                            NCM 
  
          1655  5160000002 X                      SA6    NCMA+2                                                  FEC      2436
                          54221                   =A2    A2+1                                                    FEC      2437
          1656  5033000002                        SA3    A3+2                                                    FEC      2438
                                                                                                                 FEC      2439
                                        **        SCAN TABLE FOR REMAINING NTH ELEMENT TO MATCH                  FEC      2440
                                                                                                                 FEC      2441
          1657  0470001665 +             NCM20    ZR     B7,NCM30    IF ENTIRE LIST MATCHES                      FEC      2442
                          13623                   BX6    X2-X3                                                   FEC      2443
                               67771              =B7    B7-1                                                    FEC      2444
          1660  54221                             =A2    A2+1                                                    FEC      2445
                     54331                        =A3    A3+1                                                    FEC      2446
                          0336001662 +            MI     X6,NCM22    IF NO MATCH (-0 PROBLEM)                    FEC      2447
          1661  0306001657 +                      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
          1662  5130000002 X             NCM22    SA3    NCMA+2                                                  FEC      2453
                          56220                   SA2    B2                                                      FEC      2454
          1663  6270777776                        SB7    X0-1                                                    FEC      2455
                          37331                   IX3    X3-X1       ORDINAL FOR RE-START.                       FEC      2456
          1664  0400001647 +                      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
          1665  63310                    NCM30    SB3    X1                                                      FEC      2462
                     75233                        SX2    A3-B3                                                   FEC      2463
                          37620                   IX6    X2-X0       ORDINAL                                     FEC      2464
                               63760              SB7    X6                                                      FEC      2465
          1666  0400001642 +                      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
          1667  5130000001 X             NCM50    SA3    NCMA+1                                                  FEC      2471
                          67701                   =B7    -1          FLAG NOTHING ENTERED                        FEC      2472
          1670  0313001642 +                      NZ     X3,EXIT.    IF NO ALLOC DESIRED, EXIT...                FEC      2473
                                                                                                                 FEC      2474
                          76620                   SX6    B2                                                      FEC      2475
          1671  5160000001 X                      SA6    NCMA+1      SAVE (B2) FWA                               FEC      2476
                          0100000000 X            ALLOC  A1,X0       ALLOCATE ROOM IN TABLE.                     FEC      2477
          1672  10011                             BX0    X1                                                      FEC      2478
                     5130000000 X                 SA3    NCMA                                                    FEC      2479
                               54131              =A1    A3+1                                                    FEC      2480
          1673  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
          1674  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
          1675  77132                             SX1    B3-B2       (X1) = WORD COUNT                           FEC      2489
                     5160000001 X                 SA6    NCMA+1      SAVE X4                                     FEC      2490
                               74640              SX6    A4                                                      FEC      2491
          1676  54661                             =A6    A6+1        SAVE A4                                     FEC      2492
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    57
        TABLE SCANNING AND ENTRY ROUTINES.                            NCM 
  
                     0100000000 X                 MOVE   X1,X2,X3                                                FEC      2493
          1677  5140000002 X                      SA4    NCMA+2      RESTORE A4                                  FEC      2494
                          55141                   =A1    A4-1                                                    FEC      2495
                               10411              BX4    X1          RESTORE X4                                  FEC      2496
          1700  5110000000 X                      SA1    NCMA                                                    FEC      2497
                          10611                   BX6    X1                                                      FEC      2498
                               63710              SB7    X1                                                      FEC      2499
          1701  0400001642 +                      EQ     EXIT.       EXIT...                                     FEC      2500
                                                                                                                 FEC      2501
                                   0 X   NCMA     EQU    ADWT        REUSE ADWT SAVE AREA (3 WDS)                FEC      2502
  
  
  
  
          1701                           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
          1702  0400401702 +             SCS      SUBR   =           ...ENTRY/EXIT...                            COMFSCS    20
          1703  5021000000 X                      SA2    A1+=XN.TABLE                                            COMFSCS    21
                          5130001711 +            SA3    SCSA                                                    COMFSCS    22
          1704  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
          1705  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
          1706  0310001705 +                      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
          1707  0770001702 +                      MI     B7,SCSX     IF DUMMY HIT - EXIT...                      COMFSCS    38
                          11632                   BX6    X3*X2       MASK OFF                                    COMFSCS    39
          1710  0400001702 +                      EQ     SCSX        EXIT...                                     COMFSCS    40
                                                                                                                 COMFSCS    41
          1711  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/05. 19.58.27.      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
          1712  0400401712 +             SCT      SUBR   =           ...ENTRY/EXIT...                            FEC      2516
          1713  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
          1714  36012                             IX0    X1+X2                                                   FEC      2521
                     46000                        NO                                                             FEC      2522
                          53202                   SA2    X0+B2       FETCH LAST ENTRY                            FEC      2523
                               64260              SB2    A6                                                      FEC      2524
          1715  13062                    SCT1     BX0    X6-X2                                                   FEC      2525
                     55221                        SA2    A2-B1       FETCH NEXT TABLE ENTRY                      FEC      2526
                          0310001715 +            NZ     X0,SCT1     IF NO HIT, LOOP                             FEC      2527
          1716  0330001715 +                      MI     X0,SCT1     IF *0* - *-0* *HIT*                         FEC      2528
                          65722                   SB7    A2-B2       RELATIVE POSITION OF ENTRY                  FEC      2529
          1717  0770001712 +                      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
          1720  0400001712 +                      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
          1721  0400401721 +             SLT      SUBR   =           ENTRY/EXIT...                               FEC      2554
          1722  10211                             BX2    X1                                                      FEC      2555
                     43044                        MX0    IT.DPCL                                                 FEC      2556
                          6120777776 X            SB2    Z.INTF-1                                                FEC      2557
          1723  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/05. 19.58.27.      PAGE    59
        TABLE SCANNING AND ENTRY ROUTINES.                            SLT 
  
          1724  11301                    SLT3     BX3    X0*X1       ISOLATE NAME FROM TABLE                     FEC      2560
                     37732                        IX7    X3-X2                                                   FEC      2561
                          0307001730 +            ZR     X7,SLT4     IF HIT                                      FEC      2562
          1725  67221                             SB2    B2-B1                                                   FEC      2563
                     55111                        SA1    A1-B1                                                   FEC      2564
                          0620001724 +            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
          1726  76700                             =X7    MF.USER                                                 FEC      2569
                     7130050100                   CLAS=  X3,WB,(NVAR,FUN,EXT)                                    FEC      2570
                               20771              LX7    WC.FUNTP                                                FEC      2571
          1727  0400001721 +                      EQ     EXIT.                                                   FEC      2572
                                                                                                                 FEC      2573
                                        *         NAME FOUND IN LIBRARY TABLE.                                   FEC      2574
                                                                                                                 FEC      2575
          1730  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
          1731  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
          1732  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
          1733  7207777760                        SX0    X7-17B                                                  FEC      2590
                          0310001735 +            NZ     X0,SLT5     IF NOT VARIABLE ARG COUNT                   FEC      2591
          1734  7120010100                        CLAS=  X2,WB,(NVAR,FUN)                                        FEC      2592
                                                                                                                 FEC      2593
          1735  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
          1736  20167                             LX1    IT.ARGCP-1-IT.ANSIP                                     FEC      2598
                     12770                        BX7    X7+X0       FORM (X7) = (WC.FUNI)                       FEC      2599
                          0331001740 +            MI     X1,SLT6     IF FUNCTION DEFINED IN ANSI                 FEC      2600
          1737  6170000000 X                      ANSI   E.SU04                                                  FEC      2601
          1740  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
          1741  0400001721 +                      EQ     EXIT.                                                   FEC      2605
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1742  54221                    SSY10    =A2    A2+WB.W     *WB* ENTRY                                  FEC      2628
                     5130000031 +                 SA3    WANFP                                                   FC5A192    27
                               10633              BX6    X3                                                      FC5A192    28
          1743  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
          1744  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
          1745  10622                             BX6    X2                                                      FC5A191    14
                     54620                        SA6    A2          UPDATE SYMTAB                               FC5A191    15
                                                                                                                 FEC      2632
          1746  0400401746 +             SSY      SUBR   =           ...ENTRY/EXIT...                            FEC      2633
          1747  5110000000 X                      SA1    T.SYM                                                   FC5A192    32
                          43201                   MX2    1                                                       FEC      2645
                               15362              BX3    -X2*X6      AVOIDS POSSIBLE NEGATIVE EXPONENT           FEC      2646
          1750  5120002007 +                      SA2    SYMHASH                                                 FEC      2647
                          21314                   AX3    12          ZERO EXPONENT                               FEC      2648
                               27003              PX0    X3                                                      FEC      2649
          1751  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
          1752  67701                             =B7    -1                                                      FEC      2654
                     63230                        SB2    X3                                                      FEC      2655
                          5122000000 C            SA2    B2+HASHTBL                                              FEC      2656
          1753  0322001756 +                      PL     X2,SSY5     IF CHAIN FORMED                             FEC      2658
                          10066                   BX0    X6                                                      FEC      2659
                               76320              SX3    B2                                                      FEC      2660
          1754  14633                             BX6    -X3                                                     FEC      2661
                     5160001764 +                 SA6    LAST        INDICATE CHAIN NOT FORMED                   FEC      2662
                               22600              LX6    X0          RESTORE *SYMBOL*                            FEC      2663
          1755  0400001746 +                      EQ     SSYX        EXIT...                                     FEC      2664
                                                                                                                 FEC      2665
          1756  63220                    SSY5     SB2    X2                                                      FEC      2666
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      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
          1757  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
          1760  43060                             MX0    -WA.HASHL                                               FC5A192    34
                     15220                        BX2    -X0*X2      GET HASH POINTER                            FEC      2674
                          0303001742 +            ZR     X3,SSY10    IF MATCH                                    FEC      2675
          1761  0312001756 +                      NZ     X2,SSY5     LOOP UNTIL EMPTY CHAIN                      FEC      2676
                          10066                   BX0    X6                                                      FEC      2677
                               76670              SX6    B7                                                      FEC      2678
          1762  67701                             =B7    -1          INDICATE NOT IN TABLE.                      FEC      2679
                     5160001764 +                 SA6    LAST        END OF CHAIN                                FEC      2680
                               22600              LX6    X0                                                      FEC      2681
          1763  0400001746 +                      EQ     SSYX        EXIT...                                     FEC      2682
                                                                                                                 FEC      2683
          1764  00000000000000000000     LAST     DATA   0           INDEX OF HASH CHAIN END                     FEC      2684
          1765  00000000000000000000     NEXTORD  CON    0           NEXT AVAILABLE SYMBOL TABLE ORDINAL         FEC      2685
                                2007 +   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.
  
          1766  05050505050505000000    EEEEEEE 
          1767  40404040404040000000    5555555 
          1770  00000000000000000000
          1771  00000000000070074400          'G9 
          1772  00003000000000000000      X 
          1773  00003000001000000000      X  H
          1774  00000000000044000200          9 B 
          1775  00000000000104000000         AD 
          1776  55555555555555553455            1 
          1777  00000377777777777600      C;;;;;^ 
          2000  55555555555555555555
          2001  23530153265305000000    S$A$V$E 
          2002  00000000002000361510         P 3MH
          2003  00000000014000100000        A5 H
          2004  00000631463146314632      FY-Y-Y-Z
          2005  00000000002000260510         P VEH
          2006  77777777777774400000    ;;;;;;@5
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    62
        TABLE SCANNING AND ENTRY ROUTINES.                            LITERALS
  
          2007  20002525001001001001    P UU HA HA
  
          2017                                    END                                                            FEC      2689
  
                             75600B CM  STORAGE USED            13785 STATEMENTS     1850 SYMBOLS      000036 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            5.015 SECONDS        2508 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AC.W            1   FTX             4/05
        ADWT            0   EXTERNAL*       2/34 X   57/10
        ALC             0   EXTERNAL*       2/34 X   31/46     36/10     51/52     56/42
                                           28/10     34/50     38/46     53/24
        ALC=CNT         0   EXTERNAL*       3/16 X   36/35 S
        ALC.PAR         0   EXTERNAL*      33/42 S
        ALC.REG         0   EXTERNAL*       2/34 X   41/12 S
        ALC.00          0   EXTERNAL*       2/34 X   41/09
        AM.W            0   FTX             4/06
        ANSI=           0   EXTERNAL*       3/22 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           444   PROGRAM*       17/51 L   17/51 E   20/20
        ASK1          452   PROGRAM*       18/05     18/11 L
        ASK2          455   PROGRAM*       17/49     18/20 L
        ASK3          461   PROGRAM*       18/24     18/25     18/28 L
        ASK4          467   PROGRAM*       18/43     18/48 L   19/06
        ASK5          472   PROGRAM*       18/50     18/52     18/55 L
        ASK6          475   PROGRAM*       18/53     19/10 L
        ASK7          477   PROGRAM*       19/15 L   19/19
        ASK8          442   PROGRAM*       17/45 L   18/28
        ASL           501   PROGRAM*       19/43 L   19/43 E
        ASL1          504   PROGRAM*       19/49 L   19/55
        ASL2          510   PROGRAM*       19/51     20/02 L
        ASL3          512   PROGRAM*       19/57     20/08 L
        ASL4          513   PROGRAM*       20/07     20/11 L
        ASL5          520   PROGRAM*       20/12     20/24 L
        ASL6          522   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/25 X   33/36     34/19 S
        BBC          1345   PROGRAM*       42/12 L   42/12 E
        BLNKCOM         0   EXTERNAL*       3/25 X   29/39 S
        BN=CON          0   EXTERNAL*       2/54 X    6/54
        BN=FMT          0   EXTERNAL*       2/54 X    6/56
        BN=IOAP         0   EXTERNAL*       2/54 X    6/53
        BN=NLST         0   EXTERNAL*       2/54 X    7/10
        B1=1            0 
        CAC           523   PROGRAM*       16/07     20/41 L
        CAC1          532   PROGRAM*       21/01 L   21/08     21/11     21/13     21/15     21/19     21/26
        CAC5          542   PROGRAM*       21/17     21/21 L
        CAF             0   EXTERNAL*       3/37 X   53/48
        CALLTAG         3   PROGRAM*        4/11 D    4/11 E
        CA.BNAML       52   FTX            21/46     21/48
        CBN           546   PROGRAM*       16/19     21/38 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        CBN1          551   PROGRAM*       21/43 L   21/51     21/54     22/06     22/13
        CBN2          561   PROGRAM*       21/57     22/08 L
        CB.SAVEP       72   FTX            40/20
        CB.W            1   FTX            40/23
        CCT          1360   PROGRAM*       43/23 L   43/23 E
        CDD             0   EXTERNAL*       3/53 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/25 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/40 X   22/08     43/27     43/28     47/48     47/57     48/25
        CLU           565   PROGRAM*       15/55     22/25 L
        CLU10         602   PROGRAM*       22/38     22/42     22/46     22/55 L   23/08     23/10     23/12     23/16
        CLU5          575   PROGRAM*       22/40 L   23/13
        CO.ANSI         0   EXTERNAL*       2/49 X   16/17
        CO.C$           0   EXTERNAL*       2/49 X   37/18
        CO.LOR          0   EXTERNAL*      33/34     37/19
        CO.LOS          0   EXTERNAL*       2/49 X   37/26
        CO.SEQ          0   EXTERNAL*       2/49 X   16/20     29/55
        CO.SNAP         0   EXTERNAL*       2/49 X   32/27
        CP.FLIN         0   EXTERNAL*       2/49 X   30/06 S
        CR.REF         55   FTX            40/49
        CSB           612   PROGRAM*       23/42 L   23/42 E   28/26
        CSB4          621   PROGRAM*       23/43     24/01 L
        CSB6          623   PROGRAM*       23/47     24/04 L
        CSLTAG          4   PROGRAM*        4/13 L    4/13 E   28/24     28/28     40/53 S
        CT1          1367   PROGRAM*       31/30     43/52 L   43/52 E   48/33     48/49     49/40
        CUF           625   PROGRAM*       16/08     24/14 L
        CUF10         640   PROGRAM*       24/27     24/45 L
        CUF20         642   PROGRAM*       24/50 L   25/09
        CUF30         651   PROGRAM*       24/55     25/07 L
        CUL           653   PROGRAM*       16/09     25/19 L
        CUL2          657   PROGRAM*       25/26 L   25/38     25/40     25/47     25/49     25/55
        CUL4          670   PROGRAM*       25/32     25/49 L
        CUL6          675   PROGRAM*       25/27     26/02 L
        CUL7          676   PROGRAM*       26/05 L   26/36
        CUL8          707   PROGRAM*       26/14     26/21     26/33 L
        CUL9          715   PROGRAM*       26/03     26/38     26/43 L
        CURST           0   EXTERNAL*       3/19 X   23/49     29/31 S   33/01 S
        CUS           722   PROGRAM*       15/16     27/24 L
        CUS3          727   PROGRAM*       27/26     27/44 L
        CUS4          741   PROGRAM*       28/09     28/23 L
        CUS6          746   PROGRAM*       28/31     28/34 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        CUS.RET       732   PROGRAM*       27/45     28/06 L   28/06 E
        CVD           753   PROGRAM*       16/12     28/55 L
        CVD1          756   PROGRAM*       29/02 L   29/06     29/08     29/18
        CVD2          764   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/41 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/41 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/41 X    9/27      9/35      9/48     10/05     10/09
        DUC.2ND         0   EXTERNAL*       3/41 X   10/06     10/08
        DXB             0   EXTERNAL*       3/53 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/19 X   16/02     24/03     31/43     36/20
        ENDFTN          0   EXTERNAL*       3/37 X   53/49
        ERFO            0   EXTERNAL*       2/51 X   37/05 S
        ERRORS          0   EXTERNAL*       3/25 X   37/13 S
        ERRTYP          0   EXTERNAL*       3/25 X   37/11 S
        ERR=K           0   EXTERNAL*       3/25 X   32/44
        ERT          1552   PROGRAM*       37/25 S   48/43     51/37 L   51/37 E
        ERTA         1565   PROGRAM*       51/18 S   51/25     52/05 L
        ERTB         1570   PROGRAM*       51/23     51/26     51/44 S   51/49 S   51/55     52/06 L
        ERT1         1541   PROGRAM*       51/14 L   51/54
        ERT2         1542   PROGRAM*       51/16 L   51/50
        ERT=OFF      1573   PROGRAM*       37/22     52/13 L   52/13 E
        ERT=ON       1572   PROGRAM*       37/20     52/08 L   52/08 E
        ESTACK        240   RGFILE          4/27 L    4/27 E
        ESY          1574   PROGRAM*       47/40     49/31     50/12     52/44 L   52/44 E   54/43
        ESYA         1625   PROGRAM*       53/01 S   53/25     53/51 L
        ESY05        1603   PROGRAM*       52/48     52/51     52/54     53/01 L
        ESY1         1610   PROGRAM*       53/08     53/13 L
        ESY2         1612   PROGRAM*       53/11     53/24 L
        ESY3         1622   PROGRAM*       53/31     53/47 L
        E=TOTAL         0   EXTERNAL*       3/26 X   37/12 S   40/54 S
        E.ANS1          0   EXTERNAL*       2/40 X   16/22
        E.ANS2          0   EXTERNAL*       2/40 X   52/56
        E.AS6           0   EXTERNAL*       2/40 X   25/46     25/46
        E.CM8           0   EXTERNAL*       2/40 X   22/12
        E.C$15          0   EXTERNAL*       2/40 X   26/48
        E.DM03          0   EXTERNAL*       2/40 X   29/10
        E.DM04          0   EXTERNAL*       2/40 X   29/12
        E.DO09          0   EXTERNAL*       2/41 X   26/32
        E.FM            0   EXTERNAL*       2/41 X   13/32     18/10
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        E.IF17          0   EXTERNAL*       2/41 X   26/41
        E.LV6           0   EXTERNAL*       2/41 X   23/14
        E.MA            0   EXTERNAL*       2/41 X   14/46
        E.MB            0   EXTERNAL*       2/41 X   13/52
        E.MD            0   EXTERNAL*       2/41 X   14/47
        E.MDO           0   EXTERNAL*       2/41 X   15/23
        E.MH            0   EXTERNAL*       2/41 X   14/48
        E.MI            0   EXTERNAL*       2/41 X   14/49
        E.MS            0   EXTERNAL*       2/42 X   25/54
        E.NP            0   EXTERNAL*       2/42 X   28/40
        E.SEQ           0   EXTERNAL*       2/42 X   13/20
        E.STO           0   EXTERNAL*       2/43 X   53/47
        E.SU04          0   EXTERNAL*       2/42 X   59/42
        E.SU06          0   EXTERNAL*       2/42 X   25/05
        E.TY7           0   EXTERNAL*       2/42 X   21/25
        E.VA00          0   EXTERNAL*       2/42 X   48/28
        E.VA02          0   EXTERNAL*       2/42 X   43/34
        E.VA09          0   EXTERNAL*       2/43 X   47/27
        E.VA10          0   EXTERNAL*       2/43 X   46/52
        FAILSFT         0   EXTERNAL*       3/26 X   34/37 S
        FEC           316   PROGRAM*       12/15 L   12/15 E
        FEC1          326   PROGRAM*       12/38     12/39     12/43 L
        FEC1A         331   PROGRAM*       12/54     12/55     13/03 L
        FEC1B         340   PROGRAM*       13/19     13/23 L
        FEC2          345   PROGRAM*       13/28     13/46 L
        FEC3          351   PROGRAM*       13/51     14/06 L   14/25     14/29     14/33     14/43
        FEC3A         401   PROGRAM*       15/02     15/13 L
        FEC4          403   PROGRAM*       15/15     15/18 L
        FEC5          407   PROGRAM*       15/21     15/22     15/24 L
        FEC7          414   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.          356   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
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        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
        FEC.RIF       407   PROGRAM*       15/30 L   15/30 E
        FEC.RTF       412   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/44 X   16/18     16/21     16/23
        FEP           767   PROGRAM*       12/18     29/28 L
        FEPA         1020   PROGRAM*       30/12     30/33 L
        FEP1         1010   PROGRAM*       29/57     30/12 L
        FILL.           0   EXTERNAL*       2/43 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/43 X   18/14 S   22/11 S   43/31 S   48/30 S
        FI=BRLI         0   EXTERNAL*       2/46 X   12/35
        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          1022   PROGRAM*       15/56     31/03 L
        FVD0         1026   PROGRAM*       31/06     31/13 L
        FVD1         1030   PROGRAM*       31/19 L   31/34
        FVD2         1032   PROGRAM*       31/24 L   31/37
        FVD3         1035   PROGRAM*       31/25     31/34 L
        FVD4         1037   PROGRAM*       31/20     31/41 L
        F.INTF          0   EXTERNAL*       3/47 X   58/56
        F.LBT           0   EXTERNAL*       3/26 X   36/40 S
        F.REF           0   EXTERNAL*       2/49 X   51/23
        F.SORD          0   EXTERNAL*       3/26 X   35/05 S
        F.SYMIL        47   PROGRAM*        6/48 L    6/48 E   34/53
        GSL             0   EXTERNAL*       3/09 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/26 X   36/56
        IDP=            0   EXTERNAL*       3/03 X   12/42
        IDP=SVX         0   EXTERNAL*       3/03 X
        IFLEVEL        11   PROGRAM*        4/44 L    4/44 E   26/37     34/40 S
        INIF            0   EXTERNAL*       3/06 X   40/55 S
        INN          1630   PROGRAM*       54/24 L   54/24 E
        INNA         1641   PROGRAM*       54/26 S   54/32     54/46 L
        INSTF          12   PROGRAM*        4/46 L    4/46 E
        IO.TEM          0   EXTERNAL*       3/26 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/06 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
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        KW.NBSP        42   FTX            28/08
        KW.PWSP        44   FTX            14/52
        LAST         1764   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/12 X   12/56     15/52
        LDEAD          13   PROGRAM*        4/50 L    4/50 E
        LEVEL           0   EXTERNAL*       3/26 X   22/26     29/43 S
        LEVEL0          0   EXTERNAL*       3/26 X   22/53 S   29/44 S
        LEVEL2          0   EXTERNAL*       3/27 X   29/45 S
        LEX             0   EXTERNAL*       3/12 X   13/03
        LEXFLG          0   EXTERNAL*       3/12 X   12/51     37/27
        LEXMODE         0   EXTERNAL*       3/12 X   29/49 S
        LINES           0   EXTERNAL*       3/27 X   12/34     30/03 S
        LJS             0   EXTERNAL*       3/27 X   25/52     26/30
        LM.1ST          2   FTX            29/48
        LOSTREF         0   EXTERNAL*       3/27 X   34/38 S   51/42
        L=TABLE         0   EXTERNAL*       3/27 X   33/51
        L.CARD         14   PROGRAM*        4/56 L    4/56 E
        L.C$            0   EXTERNAL*       2/49 X   37/18
        L.TABS          0   EXTERNAL*       3/27 X   33/49
        L.TITL          0   EXTERNAL*       2/50 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/27 X   13/46     24/15     34/39 S   48/02
        MOD.DPC         0   EXTERNAL*       2/43 X   25/02
        MOVES           0   EXTERNAL*       3/16 X   36/36 S
        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/53 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/27 X   29/35 S
        NAT.LEN      1426   PROGRAM*       30/29 S   45/24     45/29     46/15 L   46/15 E
        NAT.TYP      1417   PROGRAM*       30/16 S   45/39     46/04 L   46/04 E
        NCM          1642   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        1652   PROGRAM*       55/51 L   55/54     55/55
        NCM20        1657   PROGRAM*       56/07 L   56/13
        NCM22        1662   PROGRAM*       56/12     56/18 L
        NCM30        1665   PROGRAM*       56/07     56/27 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        NCM5         1647   PROGRAM*       55/40 L   56/22
        NCM50        1667   PROGRAM*       55/44     55/56     56/36 L
        NEXTORD      1765   PROGRAM*       34/57 S   53/06     53/29     61/21 L
        NOLIST          0   EXTERNAL*       3/28 X   36/48 S
        NOPATH         15   PROGRAM*        5/03 L    5/03 E   28/27     29/36 S
        NSQZLH          0   EXTERNAL*       3/38 X   34/24 S
        NTRCNT         16   PROGRAM*        5/07 L    5/07 E   29/37 S
        N$LC            0   EXTERNAL*       3/38 X   34/30 S
        N.AP            0   EXTERNAL*       3/28 X   34/25 S
        N.ARP           0   EXTERNAL*       3/28 X   34/26 S
        N.BUF           0   EXTERNAL*       3/38 X   34/27 S
        N.CPL           0   EXTERNAL*       3/28 X   34/28 S
        N.CT            0   EXTERNAL*       3/28 X   32/37     34/31 S
        N.CTMAX         0   EXTERNAL*       3/28 X   32/38     34/32 S
        N.DOB           0   EXTERNAL*       3/28 X   34/33 S
        N.ELSTK       240   FTX             4/27
        N.EPL           0   EXTERNAL*       3/28 X   29/46 S
        N.ERRT          0   EXTERNAL*       3/28 X   37/10
        N.FP            0   EXTERNAL*       3/27 X   34/29 S
        N.GL            0   EXTERNAL*       3/29 X   34/42 S
        N.MAXIL         0   EXTERNAL*       3/29 X   23/45
        N.OPSTK       240   FTX             4/25
        N.ST            0   EXTERNAL*       3/29 X   34/34 S
        N.STMAX         0   EXTERNAL*       3/29 X   34/35 S
        N.TABLE         0   EXTERNAL*       3/29 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/29 X   34/36 S
        OIL          1050   PROGRAM*       14/32     15/54     16/03     24/04     32/24 L   32/24 E
        OILA         1073   PROGRAM*       32/52 S   32/54     33/11 L
        OILB         1074   PROGRAM*       33/05     33/12 L
        OIL2         1053   PROGRAM*       32/29     32/32 L
        OIL4         1070   PROGRAM*       32/45     32/48     32/49     32/57 L
        OPBSS           0   EXTERNAL*       3/19 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
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        O.FALSE        13   FTX             9/20 L
        O.GE           23   FTX             9/30 L
        O.GT           27   FTX             9/34 L
        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/29 X   37/02 S
        O.TABS          0   EXTERNAL*       3/29 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/19 X   40/57 S
        PARSLEN         0   EXTERNAL*       3/16 X   32/32
        PAR.TH        226                  23/40 D   23/48
        PASS            0   EXTERNAL*       3/30 X   29/54 S   32/50     32/56 S
        PASS=FE         0   FTX            29/52
        PCD             0   EXTERNAL*       2/37 X   14/31
        PDA             0   EXTERNAL*       3/09 X   49/37
        PDM             0   EXTERNAL*       3/22 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/44 X   32/53
        PSF             0   EXTERNAL*       2/57 X   14/24
        PSTACK          0   PROGRAM*        4/04 L    4/05      4/06      4/07
        PSYM            7   FTX            60/43     60/44
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        PUP          1075   PROGRAM*       12/16     33/30 L
        PUPA         1232   PROGRAM*       36/13     37/37 L
        PUP1         1104   PROGRAM*       33/35     33/40 L
        PUP2         1113   PROGRAM*       34/09 L   34/20
        PUP60        1226   PROGRAM*       37/21     37/24 L
        PUP70        1231   PROGRAM*       37/29     37/32 L
        QCP             0   EXTERNAL*       3/41 X   12/17
        RATES           0   EXTERNAL*       3/30 X   34/09
        REFIO           0   EXTERNAL*       3/30 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/03 X
        RLS          1235   PROGRAM*       16/11     38/01 L
        RLS10        1263   PROGRAM*       39/20 L   39/26     39/33     39/37     40/14
        RLS15        1273   PROGRAM*       39/36     39/39 L
        RLS20        1304   PROGRAM*       39/53     39/54     39/57     40/06 L
        RLS30        1307   PROGRAM*       39/22     40/18 L
        RLS40        1312   PROGRAM*       40/18     40/31 L
        RLS5         1245   PROGRAM*       38/24 L   38/28
        RLS6         1251   PROGRAM*       38/26     38/36 L
        RLS7         1253   PROGRAM*       38/34     38/46 L
        ROUTNAM        24   PROGRAM*        5/30 L    5/30 E
        RSC          1314   PROGRAM*       12/29     40/47 L
        RTNCNT         25   PROGRAM*        5/33 L    5/33 E   29/38 S
        SAVE            0   EXTERNAL*       3/30 X   29/41 S   38/02
        SBM=            0   EXTERNAL*       3/53 X   35/03     35/05     36/40     37/11
        SB=LINC         0   EXTERNAL*       3/12 X   16/15 S
        SB=LORD         0   EXTERNAL*       3/12 X   16/16 S
        SCR             0   EXTERNAL*       3/30 X   20/18 S   20/21
        SCR2           32   PROGRAM*        6/03 L    6/03 E
        SCS          1702   PROGRAM*       57/33 L   57/33 E
        SCSA         1711   PROGRAM*       57/35     57/55 L   57/55 E
        SCS1         1705   PROGRAM*       57/43 L   57/47
        SCT          1712   PROGRAM*       58/11 L   58/11 E
        SCT1         1715   PROGRAM*       58/20 L   58/22     58/23
        SIZES           0   EXTERNAL*       3/30 X   34/18 S
        SLT          1721   PROGRAM*       58/52 L   58/52 E
        SLT3         1724   PROGRAM*       59/01 L   59/06
        SLT4         1730   PROGRAM*       59/03     59/17 L
        SLT5         1735   PROGRAM*       59/32     59/35 L
        SLT6         1740   PROGRAM*       59/41     59/43 L
        SN.PAR          0   EXTERNAL*       2/46 X   32/30
        SSU          1331   PROGRAM*       16/10     41/23 L
        SSU10        1340   PROGRAM*       41/36 L   41/41     41/46     41/49
        SSY          1746   PROGRAM*       21/50     47/32     49/25     50/09     54/38     60/35 L   60/35 E
        SSY10        1742   PROGRAM*       60/22 L   61/11
        SSY5         1756   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          1411   PROGRAM*       45/33 L   45/33 E   47/37
        STY1         1414   PROGRAM*       45/39 L   45/43
        STY2         1402   PROGRAM*       45/13 L   45/42
        STY3         1405   PROGRAM*       45/17     45/21 L
        STY4         1410   PROGRAM*       45/23     45/29 L
        SYMHASH      2007   PROGRAM*       60/39     61/22 L
        S=BU            0   EXTERNAL*       3/30 X   35/07 S
        S=BUF           0   EXTERNAL*       3/38 X   35/07 S
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        S=CL            0   EXTERNAL*       3/30 X   35/07 S
        S=CON           0   EXTERNAL*       3/30 X   35/07 S
        S=CT            0   EXTERNAL*       3/31 X   35/07 S
        S=ENTRY         0   EXTERNAL*       3/31 X
        S=FAR           0   EXTERNAL*       3/31 X   35/07 S
        S=FAS           0   EXTERNAL*       3/31 X   35/07 S
        S=FID           0   EXTERNAL*       3/31 X   35/07 S
        S=FMC           0   EXTERNAL*       3/31 X   35/07 S   35/07 S
        S=FVS           0   EXTERNAL*       3/31 X   35/07 S
        S=IT            0   EXTERNAL*       3/31 X   35/07 S
        S=LA            0   EXTERNAL*       3/31 X   35/07 S
        S=LC            0   EXTERNAL*       3/32 X   35/07 S
        S=LENP          0   EXTERNAL*       3/32 X   35/07 S
        S=LMC           0   EXTERNAL*       3/32 X   35/07 S
        S=MMC           0   EXTERNAL*       3/32 X   35/07 S
        S=OT            0   EXTERNAL*       3/32 X   35/07 S
        S=RD            0   EXTERNAL*       3/32 X   35/07 S
        S=SA0           0   EXTERNAL*       3/37 X   35/07 S
        S=SA1           0   EXTERNAL*       3/32 X   35/07 S
        S=ST            0   EXTERNAL*       3/32 X   35/07 S
        S=TA0           0   EXTERNAL*       3/32 X   35/07 S
        S=TRACE         0   EXTERNAL*       3/33 X   35/07 S
        S=VALUE         0   EXTERNAL*       3/33 X   20/50     24/16     35/07 S   38/13     48/07
        S=VD            0   EXTERNAL*       3/33 X   35/07 S
        TB=LABL         0   EXTERNAL*       3/12 X   15/03
        TB=LABR         0   EXTERNAL*       3/12 X   15/01     27/25
        TB=NUML         0   EXTERNAL*       3/13 X   13/08
        TB=TYPE         0   EXTERNAL*       3/13 X   14/06     15/13     15/37     28/07
                                           13/27     14/51     15/18     27/27     28/37
        TB=1ST          0   EXTERNAL*       3/13 X   15/31
        TEST            1   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          1443   PROGRAM*       46/41 L   46/41 E   47/31
        TLV5         1445   PROGRAM*       46/45 L   46/48
        TL.PTYP         0   EXTERNAL*       2/50 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          1452   PROGRAM*       47/19 L   47/19 E
        TRVA         1517   PROGRAM*       47/35 S   47/43 S   48/12 S   48/47     48/50 S   48/53 L   48/53 E
        TRVB         1520   PROGRAM*       47/21 S   48/05     48/54 L
        TRV10        1467   PROGRAM*       47/36     47/46 L
        TRV11        1504   PROGRAM*       47/54     48/04     48/06     48/23 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        TRV11E       1505   PROGRAM*       47/49     48/01     48/27 L
        TRV12        1511   PROGRAM*       47/44     47/51     48/19     48/38 L
        TRV20        1514   PROGRAM*       48/39     48/47 L
        TRV5         1460   PROGRAM*       47/30     47/32 L
        TSX          1521   PROGRAM*       49/22 L   49/22 E
        TSX3         1525   PROGRAM*       49/26     49/33 L
        TSX4         1531   PROGRAM*       49/34     49/40 L
        TSY          1533   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/50 X   29/30 S
        T=BLKS          0   EXTERNAL*       3/33 X   21/39     40/31
        T=BLST          0   EXTERNAL*       3/33 X   26/02     26/33     49/33
        T=CON           0   EXTERNAL*       3/33 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/33 X   26/43
        T=PAR           0   EXTERNAL*       3/33 X    3/34 X   23/44     32/33     32/47     33/02     33/02 S
        T=REF           0   EXTERNAL*       3/34 X   51/14     51/14 S
        T=SCR           0   EXTERNAL*       3/34 X   16/06     16/06 S   41/06     41/06 S
        T=STF           0   EXTERNAL*       3/34 X   16/04     16/04 S
        T=STMT          0   EXTERNAL*       3/34 X   16/14     16/14 S
        T=SYM           0   EXTERNAL*       3/34 X   22/27     28/57     34/49 S   41/25
                                           20/45     25/21     34/49     39/05     44/01
        T=TB            0   EXTERNAL*       3/34 X   16/05     16/05 S
        T=VDIM          0   EXTERNAL*       3/34 X   31/04     31/44     31/48     31/51     31/51 S
        T.BLKS          0   EXTERNAL*       3/34 X   21/41     36/26     38/46     40/19
        T.BLST          0   EXTERNAL*       3/35 X   26/05
        T.COMM          0   EXTERNAL*       3/35 X   36/31
        T.DIM           0   EXTERNAL*       3/35 X   36/10     39/08
        T.END           0   EXTERNAL*       3/35 X   34/07 S
        T.FPI           0   EXTERNAL*       3/35 X   22/30
        T.PAR           0   EXTERNAL*       3/35 X   28/10     31/46     31/46
        T.REF           0   EXTERNAL*       3/35 X   33/36     51/52
        T.SYM           0   EXTERNAL*       3/35 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/36 X   31/13     31/43     31/49     36/20
        USAVE           0   EXTERNAL*       3/36 X   29/42 S   38/03     39/27     41/24
        V=BVD           0   EXTERNAL*       3/47 X   36/20
        V=EVD           0   EXTERNAL*       3/47 X   31/43
        V=FIN           0   EXTERNAL*       3/47 X   16/02
        V=NOOP          0   EXTERNAL*       3/47 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     53/18     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
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    73
        SYMBOLIC REFERENCE TABLE. 
  
        WB.ARYL         1   FTX             6/53      6/56      7/06      7/08      7/10
                                            6/54      7/03      7/07      7/09
        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
                                            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
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    74
        SYMBOLIC REFERENCE TABLE. 
  
        WB.LEVNL        2   FTX            22/35     22/36
        WB.LEVNP       55   FTX            22/35     22/36
        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/36 X   37/18
        WO.LOR          0   EXTERNAL*       3/36 X   48/38
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/05. 19.58.27.      PAGE    75
        SYMBOLIC REFERENCE TABLE. 
  
        WO.LOS          0   EXTERNAL*       3/36 X   15/50
        WO.QC           0   EXTERNAL*       3/36 X   32/46
        WTW=            0   EXTERNAL*       3/53 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/47 X   58/55
        Z.LBT           0   EXTERNAL*       3/36 X   36/40
        Z.SORD          0   EXTERNAL*       3/36 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/05. 19.58.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3134              IDENT  FERRS
                       3134                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       245 
                                        LITERALS* LOCAL         245       774 
                                        FORMAT.   LOCAL        1241      1673 
  
  
                                        ENTRY POINTS. 
  
                                        B=FERRS          0+           E.EQ4           53+           E.LV4          154+ 
                                        DICT           245+           E.EQ6         1720+           E.LV5          155+ 
                                        FILL.          246+           E.EQ7         1722+           E.LV6         2436+ 
                                        FILL.2         247+           E.EQ8         1725+           E.LV7          156+ 
                                        FILL.3         250+           E.EQ10        1727+           E.LV8          157+ 
                                        L.FILL           3            E.EQ11        1731+           E.LV9         2444+ 
                                        CLASS          246+           E.EQ12        1733+           E.LV11        2446+ 
                                        DO.DPC         307+           E.EQ13        1735+           E.FM           160+ 
                                        MOD.DPC        313+           E.EQ14        1737+           E.MA           161+ 
                                        ERL=XPR        323+           E.EQ15        1741+           E.MB          2454+ 
                                        ERL=CON        324+           E.EQ16        1744+           E.MCA         2456+ 
                                        E.GE             0+           E.EQ17        1746+           E.INI         2460+ 
                                        E.GE1         1243+           E.EX1         1750+           E.TLBL        2462+ 
                                        E.GE2            1+           E.EX2         1243+           E.MD           162+ 
                                        E.GE3            2+           E.EX3            1+           E.MDO         2465+ 
                                        E.GE4         1251+           E.EX4         1752+           E.ME           163+ 
                                        E.GE5         1253+           E.FD          1754+           E.ME1         1251+ 
                                        E.GE6            3+           E.FD1         1756+           E.MH           164+ 
                                        E.ANS         1257+           E.FD2           54+           E.MI           165+ 
                                        E.ANS1        1261+           E.FD3           55+           E.MR1          166+ 
                                        E.ANS2        1263+           E.FD4           56+           E.MR2          167+ 
                                        E.ANS3           4+           E.FD5           57+           E.MR3          170+ 
                                        E.ANS4        1267+           E.FD6           60+           E.MS          2501+ 
                                        E.ANS5        1271+           E.FD7           61+           E.NP          2503+ 
                                        E.ANS6        1273+           E.FD8           62+           E.NP1          171+ 
                                        E.AG00        1275+           E.FD9           63+           E.OV1          172+ 
                                        E.AG01        1277+           E.FD10        2000+           E.OV2         2511+ 
                                        E.AG02        1251+           E.FD11        1251+           E.OV3          173+ 
                                        E.AG03        1301+           E.FD12        2002+           E.OV4         2515+ 
                                        E.AG04        1303+           E.FS00        2004+           E.PN1         2517+ 
                                        E.AG07        1305+           E.FS01        2006+           E.PN3         2521+ 
                                        E.AG08           5+           E.FS02        2011+           E.SEQ         2523+ 
                                        E.AG11        1311+           E.FS03        2013+           E.STO         2525+ 
                                        E.AG12        1313+           E.FS04        2015+           E.MO1         2527+ 
                                        E.AS1         1251+           E.FS05        2017+           E.MO2         2530+ 
                                        E.AS2         1315+           E.FS06        2021+           E.MO4         2532+ 
                                        E.AS3         1316+           E.FS07        2023+           E.MO5         2533+ 
                                        E.AS4            6+           E.FS08        2025+           E.MO6         2535+ 
                                        E.AS5         1321+           E.FS09        2027+           E.MO7         2537+ 
                                        E.AS6         1323+           E.FS10        2032+           E.MO8         2541+ 
                                        E.AS7         1253+           E.FS11        2034+           E.TC1         2543+ 
                                        E.AT01        1326+           E.FS12        2036+           E.MDE1        2544+ 
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        E.AT02        1330+           E.FS13        2040+           E.MDE2        2545+ 
                                        E.AT03        1332+           E.FS14        2043+           E.MDE3        2547+ 
                                        E.AT04        1334+           E.FS15        2044+           E.MDE4        2551+ 
                                        E.AT05        1336+           E.FS16        2046+           E.MDE5        2553+ 
                                        E.AT06        1341+           E.FS17        2051+           E.MDE6        2555+ 
                                        E.AT07        1343+           E.FS18           3+           E.NL           174+ 
                                        E.AT08        1344+           E.FS19        2054+           E.NL1          175+ 
                                        E.AT09        1345+           E.FS20        2055+           E.NL2          176+ 
                                        E.AT10        1347+           E.FS21        2056+           E.NL3          177+ 
                                        E.AT11        1351+           E.FS22        2060+           E.NL4          200+ 
                                        E.AT13        1353+           E.FS23        2062+           E.NL5          201+ 
                                        E.AT14        1355+           E.FS24        2064+           E.PX1         2571+ 
                                        E.AT15        1357+           E.FS25        2067+           E.PX2         2573+ 
                                        E.AT16        1361+           E.FS26        2070+           E.PX3          202+ 
                                        E.AT17        1363+           E.GO            64+           E.PX4          203+ 
                                        E.AT18        1364+           E.GO1           65+           E.PX5            0+ 
                                        E.AT19        1366+           E.GO2           66+           E.PX6         2601+ 
                                        E.AT20        1370+           E.GO3         2077+           E.PX7         2603+ 
                                        E.AT21        1372+           E.GO4         2101+           E.PX8            3+ 
                                        E.CL1         1305+           E.GO5         2103+           E.SA          2605+ 
                                        E.CL2            7+           E.GO6         2105+           E.SA1          204+ 
                                        E.CL3         1376+           E.GO7         2107+           E.SA2         2611+ 
                                        E.CL4         1400+           E.GO8         2110+           E.SA3          205+ 
                                        E.CM            10+           E.GO9         1251+           E.SA4          206+ 
                                        E.CM1           11+           E.HC1         2112+           E.SA5         2617+ 
                                        E.CM2           12+           E.HC2         2114+           E.SA6         2621+ 
                                        E.CM3           13+           E.HC3         2116+           E.SB2         2623+ 
                                        E.CM5           14+           E.IF00          67+           E.SB3         2625+ 
                                        E.CM6           15+           E.IF01        2121+           E.SB4         2627+ 
                                        E.CM8         1416+           E.IF02        2123+           E.SB5         2631+ 
                                        E.CM9         1420+           E.IF03          70+           E.SB6         2633+ 
                                        E.CM10        1422+           E.IF04        2127+           E.SB7         2635+ 
                                        E.CM11        1424+           E.IF05        2131+           E.SF00           0+ 
                                        E.CM12        1426+           E.IF06          71+           E.SF01         207+ 
                                        E.CT            16+           E.IF07        2135+           E.SF02         210+ 
                                        E.CT1         1251+           E.IF08        1251+           E.SF03         211+ 
                                        E.C$00          17+           E.IF09          72+           E.SF04        2645+ 
                                        E.C$01          20+           E.IF10          73+           E.SF05        2647+ 
                                        E.C$02          21+           E.IF11          74+           E.SF06        2651+ 
                                        E.C$03          22+           E.IF12          75+           E.SF07        2653+ 
                                        E.C$04          23+           E.IF13          76+           E.SF08         212+ 
                                        E.C$05        1443+           E.IF14        2150+           E.SF09        2657+ 
                                        E.C$06          24+           E.IF15        2152+           E.SF10        2661+ 
                                        E.C$07          25+           E.IF16        2154+           E.SF11        2663+ 
                                        E.C$08          26+           E.IF17        2156+           E.SF12        2665+ 
                                        E.C$09           2+           E.IN            77+           E.SF13        2670+ 
                                        E.C$10        1251+           E.IN1         2162+           E.SF14        2673+ 
                                        E.C$11          27+           E.IN2         2164+           E.SF15        2675+ 
                                        E.C$15        1456+           E.IN3         2166+           E.SL00        2700+ 
                                        E.DABC        1460+           E.IN4          100+           E.SL01        2702+ 
                                        E.DABL        1462+           E.INF         2172+           E.SL02        2704+ 
                                        E.DACV          30+           E.INF1        2174+           E.SL03        2706+ 
                                        E.DAVC          31+           E.INF2        2176+           E.SL04        2710+ 
                                        E.DAR         1467+           E.INF3        2200+           E.SL05        2712+ 
                                        E.DAUC        1471+           E.IO00        2202+           E.SL06        2714+ 
                                        E.DCE           32+           E.IO01         101+           E.SL07        2716+ 
                                        E.DIL           33+           E.IO02        2205+           E.SL08        2720+ 
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        E.DIL1          34+           E.IO03        2210+           E.SL09        2722+ 
                                        E.DIL2          35+           E.IO04        2212+           E.SL10        2725+ 
                                        E.DIL3          36+           E.IO05        2214+           E.SL11        2727+ 
                                        E.DIL4          37+           E.IO06        2216+           E.SL12        2731+ 
                                        E.DSE         1506+           E.IO07         102+           E.SL13        2733+ 
                                        E.DVL1        1510+           E.IO08         103+           E.SL14        2735+ 
                                        E.DVR1        1512+           E.IO09        2224+           E.SL15        2737+ 
                                        E.DVR2        1514+           E.IO10         104+           E.SL16        2741+ 
                                        E.DVR3        1516+           E.IO11         105+           E.SL17        2743+ 
                                        E.DVR4        1520+           E.IO12         106+           E.SL18         213+ 
                                        E.DVR5        1522+           E.IO13         107+           E.SL19        2747+ 
                                        E.DC          1524+           E.IO14        2236+           E.SL20        2750+ 
                                        E.DC1         1525+           E.IO15         110+           E.ST          2753+ 
                                        E.DC3         1527+           E.IO16         111+           E.ST1         2755+ 
                                        E.DC4         1531+           E.IO17         112+           E.SPR1        2757+ 
                                        E.DC6         1533+           E.IO18        2245+           E.SPR2        2761+ 
                                        E.DC7         1535+           E.IO19         113+           E.SPR4        1251+ 
                                        E.DC8         1536+           E.IO20         114+           E.SPR5        2763+ 
                                        E.DC9         1540+           E.IO21         115+           E.SU01        2765+ 
                                        E.DC10        1542+           E.IO22        2255+           E.SU02        2767+ 
                                        E.DM00        1544+           E.IO23        2257+           E.SU03        2771+ 
                                        E.DM01        1546+           E.IO24        2261+           E.SU04        2774+ 
                                        E.DM02        1550+           E.IO25         116+           E.SU05        2776+ 
                                        E.DM03        1552+           E.IO26        2265+           E.SU06        3000+ 
                                        E.DM04        1554+           E.IO28         117+           E.SU07        3003+ 
                                        E.DM05        1556+           E.IO29         120+           E.SU08        3005+ 
                                        E.DM06        1560+           E.IO30        2273+           E.SU09        3007+ 
                                        E.DM07        1562+           E.IO31        2275+           E.SU10        3011+ 
                                        E.DM08        1564+           E.IO32        2277+           E.SU11        2763+ 
                                        E.DM09        1566+           E.IO33        2301+           E.TY          1243+ 
                                        E.DM10          40+           E.IO34        2303+           E.TY0         3013+ 
                                        E.DM11        1572+           E.IO35        2305+           E.TY1         3015+ 
                                        E.DM12        1575+           E.IO36        2307+           E.TY2         3017+ 
                                        E.DM13        1577+           E.IO37        1251+           E.TY3         3021+ 
                                        E.DM14        1601+           E.IOB0         121+           E.TY4         3024+ 
                                        E.DM15        1243+           E.IOB1         122+           E.TY5          214+ 
                                        E.DM16           1+           E.IOB2         123+           E.TY6         3030+ 
                                        E.DM17        1603+           E.IOB3         124+           E.TY7         3031+ 
                                        E.DM18        1606+           E.IOB4         125+           E.TY8         3033+ 
                                        E.DM19        1611+           E.IOB5         126+           E.TY9         3036+ 
                                        E.DM20        1613+           E.IOB6         127+           E.TY10        3040+ 
                                        E.DM21        1615+           E.IOB7        2330+           E.TYI          215+ 
                                        E.DO00        1617+           E.IOB8         130+           E.TYI1         216+ 
                                        E.DO01        1621+           E.IOB9         131+           E.TYI2         217+ 
                                        E.DO02        1623+           E.IOD1         132+           E.TYI3        3050+ 
                                        E.DO03        1625+           E.IOD2         133+           E.TYI4        3052+ 
                                        E.DO04        1627+           E.IOD3         134+           E.TYI5        3054+ 
                                        E.DO05           6+           E.IOD4           2+           E.TYI6         220+ 
                                        E.DO06        1631+           E.IOL1        2345+           E.TYI7         221+ 
                                        E.DO07        1633+           E.IOL2        2347+           E.TYI8        3062+ 
                                        E.DO08          41+           E.IOL5        2351+           E.TYI9        3064+ 
                                        E.DO09        1637+           E.IOL6        2353+           E.VA00        1253+ 
                                        E.DO10        1641+           E.IOL7         135+           E.VA01        3066+ 
                                        E.DO12        1643+           E.IOL8         136+           E.VA02        3070+ 
                                        E.DO13        1645+           E.IOF          137+           E.VA03        3072+ 
                                        E.DO14          42+           E.IOF1        2362+           E.VA04        3074+ 
                                        E.DO15        1651+           E.IOF2         140+           E.VA05        3076+ 
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE     4
        STORAGE ALLOCATION. 
  
                                        E.DO16        1653+           E.ION         2366+           E.VA06        3100+ 
                                        E.DO17        1655+           E.ION1        2370+           E.VA07        3102+ 
                                        E.DO18        1657+           E.IOS1         141+           E.VA08        3104+ 
                                        E.DO19        1661+           E.IOS2         142+           E.VA09         222+ 
                                        E.DO20        1663+           E.IOS3         143+           E.VA10        3107+ 
                                        E.EN          1665+           E.IOS4         144+           E.VA11        3111+ 
                                        E.EN1           43+           E.IOS5         145+           E.VA12        3113+ 
                                        E.EN2           44+           E.IOS6         146+           E.VA13         223+ 
                                        E.EN3           45+           E.IOS7        2406+           E.XP1         3117+ 
                                        E.EN4           46+           E.IOS8         147+           E.XP3         3121+ 
                                        E.EN5         1677+           E.IOS9         150+           E.XP4         3123+ 
                                        E.EN6         1702+           E.IOS10        151+           E.XP5         3125+ 
                                        E.EN7         1704+           E.LP1         2414+           E.XP6         3127+ 
                                        E.EN8         1706+           E.LP2         2417+           E.XP7         3131+ 
                                        E.EQ            47+           E.LP3         2422+           E.ZEMT        3133+ 
                                        E.EQ1           50+           E.LV1          152+           OSE            224+ 
                                        E.EQ2           51+           E.LV2         2426+ 
                                        E.EQ3           52+           E.LV3          153+ 
  
  
                                        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
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE     5
                                                                      FERRS 
  
                                                                                                                 FERRS      25
                                        *         IN PEM                                                         FERRS      26
                                                  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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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
                                1241 +   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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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  6170001241 +             E.GE     ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL FERRS      73
                                        ,.)                                                                      FERRS      74
          1243  061                      E.GE1    ERROR  FV,*,(EXPECTED COMMA -- FOUND FILL.)                    FC5A126     6
             1  6170001245 +             E.GE2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED VARIABLE AT FI FERRS      76
                                        ,LL.)                                                                    FERRS      77
             2  6170001247 +             E.GE3    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.)              FERRS      78
          1251  061                      E.GE4    ERROR  WV,*,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)       FERRS      79
          1253  075                      E.GE5    ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2 FC5A184    27
                                        ,)                                                                       FC5A184    28
             3  6170001255 +             E.GE6    ERROR  FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)             FC5A278     5
  
  
  
  
                                        **        ASSORTED ANSI DIAGNOSTICS.                                     FC5A126     7
                                                                                                                 FERRS      82
                                                                                                                 FERRS      83
          1257  102                      E.ANS    ERROR  A,*,(STATEMENT IS NOT DEFINED IN ANSI)                  FERRS      85
          1261  107                      E.ANS1   ERROR  A,*,(SEQUENCE MODE IS NON- ANSI)                        FC5A335    11
          1263  112                      E.ANS2   ERROR  AS,*,(7 CHARACTER SYMBOL FILL. IS NON- ANSI)            FERRS      86
             4  6170001265 +             E.ANS3   ERROR  A,PSL,(RETURN IN MAIN PROGRAM -- ACTS AS END)           FERRS      87
          1267  053                      E.ANS4   ERROR  A,*,(DOUBLE PRECISION AND COMPLEX OPERANDS ARE MIXED)   FC5A262    16
          1271  016                      E.ANS5   ERROR  A,*,(FUNCTION REFERENCE IN CONSTANT EXPRESSION)         FC5A184    29
          1273  021                      E.ANS6   ERROR  A,*,(COMMON CAN BE PRESET IN BLOCK DATA ONLY)           FC5A184    30
  
  
  
  
                                        **        ARGUMENT PROCESSOR.                                            FERRS      89
                                                                                                                 FERRS      90
                                                                                                                 FERRS      91
          1275  133                      E.AG00   ERROR  F,*,(ONLY "MAX.SARG" DUMMY ARGUMENTS ARE PERMITTED -- E FERRS      92
                                        ,XCESS IGNORED)                                                          FERRS      93
          1277  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
          1301  146                      E.AG03   ERROR  FS,*,(MULTIPLE OCCURANCES OF DUMMY ARGUMENT FILL.)      FERRS      96
          1303  135                      E.AG04   ERROR  FV,*,(DUMMY ARGUMENT FILL. MUST BEGIN WITH LETTER OR __ FERRS      97
                                        ,STAR)                                                                   FERRS      98
          1305  061                      E.AG07   ERROR  FV,*,(EXPECTED LEFT PAREN FOR AN ARGUMENT LIST FOUND __ FERRS      99
                                        ,FILL.)                                                                  FERRS     100
             5  6170001307 +             E.AG08   ERROR  FV,PSL,(EXPECTED COMMA OR RIGHT PAREN -- FOUND FILL.)   FERRS     101
          1311  155                      E.AG11   ERROR  FV,*,(STAR DUMMY ARGUMENT ILLEGAL IN FUNCTION)          FERRS     102
          1313  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/05. 19.58.32.      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
          1315  167                      E.AS2    ERROR  WS,*,(*TO* ASSUMED FOR FILL.)                           FERRS     109
          1316  007                      E.AS3    ERROR  WS,*,(VARIABLE FILL. NOT INTEGER)                       FERRS     110
             6  6170001317 +             E.AS4    ERROR  FV,PSL,(STATEMENT LABEL FILL. MUST BE NUMERIC)          FERRS     111
          1321  065                      E.AS5    ERROR  W,*,(COMMA AFTER STATEMENT LABEL IGNORED)               FERRS     112
          1323  173                      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/05. 19.58.32.      PAGE    17
        ERROR MESSAGE TEXTS                                           ARITH 
  
                                        **        ARITH PROCESSOR.                                               FERRS     114
                                                                                                                 FERRS     115
                                                                                                                 FERRS     116
          1326  200                      E.AT01   ERROR  F,*,(OPERAND HAS MODE NOT ALLOWED IN THIS CONTEXT)      FERRS     117
          1330  161                      E.AT02   ERROR  FS,*,(ILLEGAL USE OF OPERATOR / OPERAND -- FILL. FILL.2 FERRS     118
                                        ,)                                                                       FERRS     119
          1332  210                      E.AT03   ERROR  W,*,(HOLLERITH CONSTANT EXCEEDS 10 CHARACTERS)          FERRS     120
          1334  002                      E.AT04   ERROR  FS,*,(FILL. MUST BE A DUMMY-ARG)                        FERRS     121
          1336  215                      E.AT05   ERROR  F,*,(INVALID FORM INVOLVING THE USE OF A COMMA OR REDUN FC5A374     5
                                        ,DANT PARENS)                                                            FC5A374     6
          1341  161                      E.AT06   ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR)                FERRS     123
          1343  224                      E.AT07   ERROR  A,*,(MASK EXPRESSION NON- ANSI)                         FERRS     124
          1344  210                      E.AT08   ERROR  A,*,(HOLLERITH CONSTANT NON- ANSI)                      FERRS     125
          1345  146                      E.AT09   ERROR  A,*,(MULTIPLE ASSIGNMENT IS NON- ANSI)                  FERRS     126
          1347  002                      E.AT10   ERROR  FV,*,(FILL. ILLEGAL FIRST ELEMENT OF EXPRESSION)        FC5A262    17
          1351  227                      E.AT11   ERROR  W,*,(TARGET / SOURCE OVERLAP IN CHARACTER ASSIGNMENT)   FC50189     9
          1353  055                      E.AT13   ERROR  F,*,(CHARACTER AND OTHER TYPE OPERANDS MAY NOT BE MIXED FERRS     128
                                        ,)                                                                       FERRS     129
          1355  055                      E.AT14   ERROR  FS,*,(CHARACTER OPERAND FILL. USED WITH OPERATOR FILL.2 FERRS     130
                                        ,)                                                                       FERRS     131
          1357  200                      E.AT15   ERROR  F,*,(OPERAND OF // OPERATOR MUST BE TYPE CHARACTER)     FERRS     132
          1361  236                      E.AT16   ERROR  FS,*,(SUBSTRING ILLEGAL FOR OPERAND FILL.)              FERRS     133
          1363  236                      E.AT17   ERROR  A,*,(SUBSTRING EXPRESSION NOT INTEGER)                  FC5A385     6
          1364  236                      E.AT18   ERROR  FS,*,(SUBSTRING ILLEGAL FOR PARAMETER FILL.)            FERRS     135
          1366  003                      E.AT19   ERROR  FS,*,(FILL.2 OPERAND CANNOT BE CONVERTED TO TYPE FILL.3 FERRS     136
                                        ,)                                                                       FERRS     137
          1370  161                      E.AT20   ERROR  FS,*,(ILLEGAL USE OF PARAMETER FILL.)                   FC5A111     6
          1372  206                      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  6170001374 +             E.CL2    ERROR  F,PSL,(CALL STATEMENT MISSING ROUTINE NAME)             FERRS     143
          1376  016                      E.CL3    ERROR  WS,*,(FUNCTION FILL. REFERENCE AS SUBROUTINE)           FERRS     144
          1400  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/05. 19.58.32.      PAGE    18
        ERROR MESSAGE TEXTS                                           COMMON
  
                                        **        COMMON STATEMENT.                                              FERRS     146
                                                                                                                 FERRS     147
                                                                                                                 FERRS     148
            10  6170001402 +             E.CM     ERROR  F,FEC.RTN,(SYNTAX ERROR IN BLOCK NAME)                  FERRS     149
            11  6170001404 +             E.CM1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED BLOCK NAME)     FERRS     150
            12  6170001406 +             E.CM2    ERROR  F,FEC.RTN,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED)   FERRS     151
            13  6170001410 +             E.CM3    ERROR  FV,FEC.RTN,(EXPECTED COMMA OR SLASH FOUND FILL.)        FERRS     152
            14  6170001412 +             E.CM5    ERROR  F,FEC.RTN,(ILLEGAL BLOCK NAME IN COMMON STATEMENT)      FERRS     153
            15  6170001414 +             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
          1416  021                      E.CM8    ERROR  AS,*,(COMMON BLOCK NAME FILL. CANNOT BE FILL.2)         FC5A255    43
          1420  021                      E.CM9    ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX BLOCK ____________ FERRS     161
                                        ,LENGTH "MAX.SPCM")                                                      FERRS     162
          1422  021                      E.CM10   ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX LCM=G BLOCK ______ FERRS     163
                                        ,LENGTH "MAX.SPLC")                                                      FERRS     164
          1424  055                      E.CM11   ERROR  FS,*,(CHARACTER DECLARATION CONFLICT EXISTS IN COMMON B FERRS     165
                                        ,LOCK FILL.)                                                             FERRS     166
          1426  261                      E.CM12   ERROR  FS,*,(EMPTY COMMON BLOCK FILL.)                         FERRS     167
  
  
  
  
                                        **        CONTINUE STATEMENT PROCESSOR.                                  FERRS     169
                                                                                                                 FERRS     170
                                                                                                                 FERRS     171
            16  6170001427 +             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  6170001431 +             E.C$00   ERROR  FS,FEC.RTN,(FILL.2 IS UNKNOWN C$ PARAMETER FOR FILL.)   FERRS     178
            20  6170001433 +             E.C$01   ERROR  F,FEC.RTN,(NO PREVIOUS C$ IF DIRECTIVE)                 FERRS     179
            21  6170001435 +             E.C$02   ERROR  FV,FEC.RTN,(EXPECTED C$ DIRECTIVE LABEL -- FOUND FILL.) FERRS     180
            22  6170001437 +             E.C$03   ERROR  FS,FEC.RTN,(C$ FILL. LABEL FILL.2 DIFFERENT FROM C$ IF  FERRS     181
                                        ,LABEL)                                                                  FERRS     182
            23  6170001441 +             E.C$04   ERROR  F,FEC.RTN,(ONLY ONE C$ ELSE ALLOWED IN C$ IF GROUP)     FERRS     183
          1443  265                      E.C$05   ERROR  WS,*,(C$ PARAMETER VALUE FOR FILL.2 ON FILL. MUST BE 0  FERRS     184
                                        ,OR 1)                                                                   FERRS     185
            24  6170001446 +             E.C$06   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.)        FERRS     186
            25  6170001450 +             E.C$07   ERROR  FV,FEC.RTN,(EXPECTED C$ PARAMETER -- FOUND FILL.)       FERRS     187
            26  6170001452 +             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  6170001454 +             E.C$11   ERROR  F,FEC.RTN,(C$ IF EXPRESSION MUST BE LOGICAL)            FERRS     191
          1456  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/05. 19.58.32.      PAGE    19
        ERROR MESSAGE TEXTS                                           DATA
  
                                        **        DATA   STATEMENT PROCESSOR.                                    FERRS     194
                                                                                                                 FERRS     195
                                                                                                                 FERRS     196
          1460  002                      E.DABC   ERROR  FS,*,(FILL. IS IN BLANK COMMON -- DATA IGNORED)         FERRS     197
          1462  304                      E.DABL   ERROR  WS,*,(LOCAL FILL. IN BLOCK DATA -- IGNORED)             FERRS     198
            30  6170001464 +             E.DACV   ERROR  W,DATA2,(EXCESS CONSTANTS IGNORED)                      FERRS     199
            31  6170001465 +             E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLES FROM FILL. NOT FERRS     200
                                        , INITIALIZED)                                                           FC5A126     8
          1467  063                      E.DAR    ERROR  A,*,(PAREN REPEAT LIST IS NOT PERMITTED)                FERRS     202
          1471  132                      E.DAUC   ERROR  FS,*,(DATA INTO FILL. IS ILLEGAL)                       FC5A111     7
            32  6170001473 +             E.DCE    ERROR  F,DAT.Z,(ILLEGAL REPEAT CONSTANT)                       FERRS     204
            33  6170001474 +             E.DIL    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA CONSTANT LIST)            FERRS     205
            34  6170001476 +             E.DIL1   ERROR  F,DAT.Z,(ILLEGAL CONSTANT FOLLOWING + OR -)             FERRS     206
            35  6170001500 +             E.DIL2   ERROR  F,DAT.Z,(NESTING OF REPEAT COUNT IN DATA CONSTANT LIST  FERRS     207
                                        ,IS ILLEGAL)                                                             FERRS     208
            36  6170001502 +             E.DIL3   ERROR  F,DAT.Z,(ILLEGAL SEPARATOR FOLLOWING DATA CONSTANT)     FERRS     209
            37  6170001504 +             E.DIL4   ERROR  FS,DAT.Z,(NAME FILL. IN DATA CONSTANT LIST MUST BE ____ FERRS     210
                                        ,PARAMETER)                                                              FERRS     211
          1506  250                      E.DSE    ERROR  F,*,(SYNTAX ERROR IN DATA STATEMENT)                    FC5A111     8
          1510  132                      E.DVL1   ERROR  F,*,(DATA VARIABLE LIST CONTAINS FILL.3)                FC5A111     9
          1512  002                      E.DVR1   ERROR  FS,*,(FILL. MUST BE DO CONTROL VARIABLE)                FERRS     214
          1514  002                      E.DVR2   ERROR  FS,*,(FILL. SUBSCRIPT OUTSIDE OF ARRAY BOUNDS)          FERRS     215
          1516  330                      E.DVR3   ERROR  FS,*,(TRIP COUNT OF FILL. MUST BE POSITIVE)             FERRS     216
          1520  332                      E.DVR4   ERROR  F,*,(SUBSCRIPTS IN DATA MUST BE INTEGER)                FERRS     217
          1522  102                      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/05. 19.58.32.      PAGE    20
        ERROR MESSAGE TEXTS                                           DEC 
  
                                        **        CONVERSION OF CONSTANT SECTION.                                FERRS     219
                                                                                                                 FERRS     220
                                                                                                                 FERRS     221
          1524  060                      E.DC     ERROR  F,*,(CONSTANT CANNOT BE CONVERTED)                      FERRS     222
          1525  333                      E.DC1    ERROR  A,*,(OCT/HEX DATA TYPE NOT DEFINED IN ANSI)             FC5A381     5
          1527  161                      E.DC3    ERROR  FV,*,(ILLEGAL FORM OF EXPONENT FILL.)                   FERRS     224
          1531  060                      E.DC4    ERROR  F,*,(CONSTANT DIVIDE BY ZERO -- RESULTS SET TO INFINITE FERRS     225
                                        ,)                                                                       FERRS     226
          1533  060                      E.DC6    ERROR  W,*,(CONSTANT MISSING EXPONENT FIELD -- ZERO ASSUMED)   FERRS     227
          1535  344                      E.DC7    ERROR  F,*,(ILL- FORMED COMPLEX CONSTANT)                      FERRS     228
          1536  060                      E.DC8    ERROR  T,*,(CONSTANT TOO LONG , EXCESS DIGITS TRUNCATED)       FERRS     229
          1540  111                      E.DC9    ERROR  W,*,(NON- OCT/HEX DIGIT IN OCT/HEX CONSTANT -- IGNORED) FC5A381     6
          1542  353                      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/05. 19.58.32.      PAGE    21
        ERROR MESSAGE TEXTS                                           DIM 
  
                                        **        DIMENSION PROCESSOR.                                           FERRS     232
                                                                                                                 FERRS     233
                                                                                                                 FERRS     234
          1544  250                      E.DM00   ERROR  F,*,(SYNTAX ERROR IN DIMENSION DECLARATION)             FERRS     235
          1546  014                      E.DM01   ERROR  FS,*,(ARRAY FILL. DIMENSION BOUND FILL.2 NOT INTEGER)   FERRS     236
          1550  014                      E.DM02   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- LOWER BOUND EXCEE FERRS     237
                                        ,DS UPPER BOUND)                                                         FERRS     238
          1552  170                      E.DM03   ERROR  FS,*,(ASSUMED SIZE OR ADJUSTABLE ARRAY FILL. MUST BE DU FERRS     239
                                        ,MMY-ARG)                                                                FERRS     240
          1554  361                      E.DM04   ERROR  FS,*,(ADJUSTABLE BOUND FILL. MUST BE DUMMY-ARG OR IN CO FERRS     241
                                        ,MMON)                                                                   FERRS     242
          1556  007                      E.DM05   ERROR  WS,*,(VARIABLE FILL. HAS NO DIMENSION BOUND -- IGNORED) FERRS     243
          1560  014                      E.DM06   ERROR  FS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)         FERRS     244
          1562  014                      E.DM07   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- EXCEEDS "MAX.SPAN FERRS     245
                                        ,")                                                                      FERRS     246
          1564  014                      E.DM08   ERROR  FS,*,(ARRAY FILL. SIZE EXCEEDS "MAX.SPAN")              FERRS     247
          1566  354                      E.DM09   ERROR  FS,*,(DIMENSION ON FILL. IGNORED -- PRIOR DIMENSION RET FC5A126     9
                                        ,AINED)                                                                  FERRS     249
            40  6170001570 +             E.DM10   ERROR  FS,FEC.RTN,(ARRAY DECLARATION FOR FILL. MISSING RIGHT P FERRS     250
                                        ,AREN)                                                                   FERRS     251
          1572  014                      E.DM11   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E FERRS     252
                                        ,XPRESSION CONTAINS ILLEGAL OPERATION)                                   FERRS     253
          1575  361                      E.DM12   ERROR  FS,*,(ADJUSTABLE DIMENSION BOUND FILL. IS NOT INTEGER)  FERRS     254
          1577  170                      E.DM13   ERROR  F,*,(ASSUMED SIZE CAN ONLY BE ON LAST UPPER BOUND)      FERRS     255
          1601  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
          1603  014                      E.DM17   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E FERRS     258
                                        ,XPRESSION CONTAINS NON- VARIABLE)                                       FERRS     259
          1606  014                      E.DM18   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E FERRS     260
                                        ,XPRESSION CONTAINS ARRAY REFERENCE)                                     FERRS     261
          1611  360                      E.DM19   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPCM")           FERRS     262
          1613  360                      E.DM20   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPLC")           FERRS     263
          1615  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/05. 19.58.32.      PAGE    22
        ERROR MESSAGE TEXTS                                           DO
  
                                        **        DO PROCESSOR.                                                  FERRS     265
                                                                                                                 FERRS     266
                                                                                                                 FERRS     267
          1617  250                      E.DO00   ERROR  F,*,(SYNTAX OF DO MUST BE I=M1,M2,M3 OR M1,M2)          FERRS     268
          1621  203                      E.DO01   ERROR  T,*,(THIS DO LOOP WILL NOT EXECUTE)                     FERRS     269
          1623  324                      E.DO02   ERROR  F,*,(DO LOOP INCREMENT MAY NOT BE ZERO)                 FERRS     270
          1625  004                      E.DO03   ERROR  FS,*,(FILL.3 TOO HIGH -- SHORT LOOPS SELECTED)          FC5A371     5
          1627  324                      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
          1631  161                      E.DO06   ERROR  FS,*,(ILLEGAL IF BLOCK NESTING WITH DO LOOP FILL.2)     FERRS     274
          1633  161                      E.DO07   ERROR  F,*,(ILLEGAL TRANSFER INTO RANGE OF DO)                 FERRS     275
            41  6170001635 +             E.DO08   ERROR  FS,PSL,(FILL. REDEFINES A DO CONTROL INDEX)             FC5A211    10
          1637  324                      E.DO09   ERROR  FS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA FERRS     277
                                        ,M)                                                                      FERRS     278
          1641  061                      E.DO10   ERROR  FV,*,(EXPECTED EQUAL SIGN -- FOUND FILL.)               FC50886     7
          1643  161                      E.DO12   ERROR  F,*,(ILLEGAL NESTING OF DO LOOPS)                       FERRS     280
          1645  324                      E.DO13   ERROR  W,*,(DO CONCLUSION NOT COMPILED -- DO DEFINITION ERROR) FERRS     281
            42  6170001647 +             E.DO14   ERROR  FV,PSL,(EXPECTED DO CONTROL INDEX -- FOUND FILL.)       FERRS     282
          1651  324                      E.DO15   ERROR  F,*,(DO INDEX CANNOT BE FILL.3)                         FERRS     283
          1653  324                      E.DO16   ERROR  F,*,(DO FILL.2 PARAMETER CANNOT BE FILL.3)              FERRS     284
          1655  415                      E.DO17   ERROR  F,*,(DO-IMPLIED LOOPS IN DATA MUST BE INTEGER)          FERRS     285
          1657  330                      E.DO18   ERROR  F,*,(TRIP COUNT IS LESS THAN ONE)                       FERRS     286
          1661  404                      E.DO19   ERROR  A,*,(TRANSFER INTO RANGE OF DO)                         FC5A300     7
          1663  420                      E.DO20   ERROR  W,*,(ALTERNATE RETURN INTO RANGE OF DO)                 FC51356    12
  
  
  
  
                                        **        ENTRY PROCESSOR.                                               FERRS     288
                                                                                                                 FERRS     289
                                                                                                                 FERRS     290
          1665  245                      E.EN     ERROR  WS,*,(NAME FILL. PREVIOUSLY DEFINED -- ENTRY STATEMENT  FERRS     291
                                        ,IGNORED)                                                                FERRS     292
            43  6170001667 +             E.EN1    ERROR  W,FEC.RTN,(ENTRY STATEMENT IGNORED IN MAIN PROGRAM)     FERRS     293
            44  6170001671 +             E.EN2    ERROR  F,PSL,(ENTRY INSIDE DO LOOP OR IF BLOCK IS ILLEGAL)     FERRS     294
            45  6170001673 +             E.EN3    ERROR  W,PSL,(MISSING NAME -- ENTRY STATEMENT IGNORED)         FERRS     295
            46  6170001675 +             E.EN4    ERROR  W,PSL,(ILLEGAL NAME -- ENTRY STATEMENT IGNORED)         FERRS     296
          1677  015                      E.EN5    ERROR  FS,*,(SUBROUTINE ENTRY FILL. MAY NOT APPEAR IN A DECLAR FERRS     297
                                        ,ATIVE STATEMENT)                                                        FC5A262    18
          1702  016                      E.EN6    ERROR  FS,*,(FUNCTION ENTRY FILL. MUST BE TYPE CHARACTER)      FERRS     299
          1704  055                      E.EN7    ERROR  FS,*,(CHARACTER LENGTHS OF ENTRY FILL. AND FUNCTION CAN FERRS     300
                                        ,NOT DISAGREE)                                                           FERRS     301
          1706  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/05. 19.58.32.      PAGE    23
        ERROR MESSAGE TEXTS                                           EQUIV 
  
                                        **        EQUIVALENCE PROCESSOR.                                         FERRS     304
                                                                                                                 FERRS     305
                                                                                                                 FERRS     306
            47  6170001710 +             E.EQ     ERROR  F,FEC.RTN,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)       FERRS     307
            50  6170001712 +             E.EQ1    ERROR  FV,EQS80,(MISSING LEFT PAREN AT FILL.)                  FERRS     308
            51  6170001714 +             E.EQ2    ERROR  WV,FEC.RTN,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.) FERRS     309
            52  6170001716 +             E.EQ3    ERROR  FV,EQS80,(MISSING COMMA AT FILL.)                       FERRS     310
            53  6170001717 +             E.EQ4    ERROR  FV,EQS80,(MORE THAN "MAX.DIM" SUBSCRIPTS)               FC5A126    10
          1720  427                      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
          1722  424                      E.EQ7    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT LESS THAN  FERRS     317
                                        ,DIMENSION LOWER BOUND)                                                  FERRS     318
          1725  424                      E.EQ8    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT WHICH EXCE FERRS     319
                                        ,EDS DIMENSION BOUND)                                                    FERRS     320
          1727  135                      E.EQ10   ERROR  FS,*,(DUMMY ARGUMENT FILL. CANNOT BE EQUIVALENCED)      FERRS     321
          1731  221                      E.EQ11   ERROR  WS,*,(REDUNDANT EQUIVALENCE SPECIFICATION FOR FILL.)    FERRS     322
          1733  076                      E.EQ12   ERROR  FS,*,(CONFLICT IN EQUIVALENCE SPECIFICATION FOR FILL.)  FERRS     323
          1735  263                      E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIVALENCE VARIABLE FILL. FERRS     324
                                        ,)                                                                       FERRS     325
          1737  140                      E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIVALENCE VARIABLE FILL.)  FERRS     326
          1741  243                      E.EQ15   ERROR  FS,*,(MISSING SUBSCRIPTS SET TO LOWER BOUND FOR EQUIVAL FC5A126    11
                                        ,ENCE VARIABLE FILL.)                                                    FC5A126    12
          1744  002                      E.EQ16   ERROR  FS,*,(FILL. ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)   FERRS     329
          1746  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/05. 19.58.32.      PAGE    24
        ERROR MESSAGE TEXTS                                           EXTERNAL
  
                                        **        EXTERNAL PROCESSOR.                                            FERRS     333
                                                                                                                 FERRS     334
                                                                                                                 FERRS     335
          1750  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
          1752  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
          1754  441                      E.FD     ERROR  A,*,(FILE DECLARATION LIST NON- ANSI)                   FERRS     345
          1756  061                      E.FD1    ERROR  FV,*,(EXPECTED FILE NAME, FOUND FILL.)                  FC5A145     6
            54  6170001760 +             E.FD2    ERROR  FS,PPA130,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED)    FC5A145     7
            55  6170001762 +             E.FD3    ERROR  FS,PPA130,(FILE FILL.2 NOT DEFINED -- DEFINITION IGNORE FC5A145     8
                                        ,D)                                                                      FC5A145     9
            56  6170001764 +             E.FD4    ERROR  F,PPA130,(EQUAL SIGN MUST BE FOLLOWED BY NAME, NUMBER O FC5A145    10
                                        ,R SLASH)                                                                FC5A145    11
            57  6170001766 +             E.FD5    ERROR  FS,PPA130,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- DEFI FC5A145    12
                                        ,NITION IGNORED)                                                         FC5A145    13
            60  6170001770 +             E.FD6    ERROR  FS,PPA130,(BUFFER LENGTH FOR FILE FILL. EXCEEDS "MAX.BU FC5A145    14
                                        ,FL"B -- DEFINITION IGNORED)                                             FC5A145    15
            61  6170001772 +             E.FD7    ERROR  FS,PPA130,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFI FC5A145    16
                                        ,NITION IGNORED)                                                         FC5A145    17
            62  6170001774 +             E.FD8    ERROR  F,PPA130,(SLASH MUST BE FOLLOWED BY AN OCTAL OR INTEGER FC5A145    18
                                        , CONSTANT)                                                              FC5A145    19
            63  6170001776 +             E.FD9    ERROR  FS,PPA130,(RECORD LENGTH FOR FILE FILL. EXCEEDS "MAX.RE FC5A145    20
                                        ,CL"B -- DEFINITION IGNORED)                                             FC5A145    21
          2000  061                      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
          2002  133                      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/05. 19.58.32.      PAGE    25
        ERROR MESSAGE TEXTS                                           FORMAT
  
                                        **        FORMAT STATEMENT PROCESSOR.                                    FERRS     365
                                                                                                                 FERRS     366
                                                                                                                 FERRS     367
          2004  454                      E.FS00   ERROR  F,*,(FORMAT MUST HAVE STATEMENT LABEL)                  FERRS     368
          2006  455                      E.FS01   ERROR  FV,*,(D OR M FIELD NOT SPECIFIED FOR EDIT DESCRIPTOR AT FC50555     5
                                        , FILL.)                                                                 FC50555     6
          2011  462                      E.FS02   ERROR  F,*,(T EDIT DESCRIPTOR FOLLOWED BY ZERO OR NON- DIGIT)  FERRS     371
          2013  133                      E.FS03   ERROR  F,*,(ONLY 9 PAREN LEVELS ALLOWED)                       FERRS     372
          2015  313                      E.FS04   ERROR  FS,*,(REPEAT COUNT IS NOT ALLOWED BEFORE THE EDIT DESCR FERRS     373
                                        ,IPTOR FILL.)                                                            FERRS     374
          2017  343                      E.FS05   ERROR  FV,*,(FIELD WIDTH NOT SPECIFIED FOR EDIT DESCRIPTOR AT  FERRS     375
                                        ,FILL.)                                                                  FERRS     376
          2021  466                      E.FS06   ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P EDIT DESCRIPTOR FERRS     377
                                        ,)                                                                       FERRS     378
          2023  002                      E.FS07   ERROR  FS,*,(FILL. EDIT DESCRIPTOR REQUIRES COUNT)             FERRS     379
          2025  002                      E.FS08   ERROR  AS,*,(FILL. IS NON- ANSI EDIT DESCRIPTOR)               FERRS     380
          2027  470                      E.FS09   ERROR  T,*,(TL EDIT DESCRIPTOR BACKSPACED BEYOND 1ST COLUMN -- FERRS     381
                                        , COLUMN POINTER RESET AT 1)                                             FERRS     382
          2032  337                      E.FS10   ERROR  FV,*,(ZERO IS SPECIFIED AS REPEAT COUNT AT FILL.)       FERRS     383
          2034  447                      E.FS11   ERROR  F,*,(RECORD LENGTH EXCEEDS "MAX.RECL" COLUMNS)          FERRS     384
          2036  447                      E.FS12   ERROR  T,*,(RECORD LENGTH EXCEEDS "NOR.RECL" COLUMNS -- MAY EX FERRS     385
                                        ,CEED I/O DEVICE)                                                        FERRS     386
          2040  343                      E.FS13   ERROR  FV,*,(FIELD WIDTH OF EDIT DESCRIPTOR AT FILL. IS ZERO O FERRS     387
                                        ,R NOT SPECIFIED)                                                        FERRS     388
          2043  264                      E.FS14   ERROR  FS,*,(UNKNOWN EDIT DESCRIPTOR FILL.)                    FERRS     389
          2044  505                      E.FS15   ERROR  FV,*,(EXTRANEOUS NUMERIC FIELD IN EDIT DESCRIPTOR AT FI FERRS     390
                                        ,LL.)                                                                    FERRS     391
          2046  506                      E.FS16   ERROR  FV,*,(DECIMAL POINT IS NOT SPECIFIED FOR THE EDIT DESCR FERRS     392
                                        ,IPTOR AT FILL.)                                                         FERRS     393
          2051  343                      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
          2054  512                      E.FS19   ERROR  F,*,(UNBALANCED PARENS)                                 FC5A184    34
          2055  505                      E.FS20   ERROR  W,*,(EXTRANEOUS COMMA IGNORED)                          FERRS     398
          2056  146                      E.FS21   ERROR  FV,*,(MULTIPLE DECIMAL POINT IN EDIT DESCRIPTOR AT FILL FERRS     399
                                        ,.)                                                                      FERRS     400
          2060  460                      E.FS22   ERROR  FV,*,(EDIT DESCRIPTOR MISSING AT FILL.)                 FERRS     401
          2062  506                      E.FS23   ERROR  FV,*,(DECIMAL POINT REQUIRED IN EDIT DESCRIPTOR AT FILL FERRS     402
                                        ,.)                                                                      FERRS     403
          2064  334                      E.FS24   ERROR  FV,*,(EXPONENT FIELD ON EDIT DESCRIPTOR AT FILL. IS ZER FERRS     404
                                        ,O OR NOT SPECIFIED)                                                     FERRS     405
          2067  322                      E.FS25   ERROR  FV,*,(SEPARATOR MISSING AT FILL.)                       FERRS     406
          2070  044                      E.FS26   ERROR  F,*,(INITIAL LEFT PAREN MISSING)                        FC5A184    35
  
  
  
  
                                        **        GO TO   STATEMENTS.                                            FERRS     408
                                                                                                                 FERRS     409
                                                                                                                 FERRS     410
            64  6170002071 +             E.GO     ERROR  F,PSL,(SYNTAX ERROR IN GO TO STATEMENT)                 FERRS     411
            65  6170002073 +             E.GO1    ERROR  F,PSL,(OBJECT OF GO TO MISSING)                         FERRS     412
            66  6170002075 +             E.GO2    ERROR  T,CUS.RET,(NULL TRANSFER STATEMENT -- TRANSFER IGNORED) FERRS     413
          2077  061                      E.GO3    ERROR  FV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)               FERRS     414
          2101  173                      E.GO4    ERROR  W,*,(OBJECT OF GO TO NOT INTEGER VARIABLE)              FERRS     415
          2103  267                      E.GO5    ERROR  T,*,(IF RESULTS IN A TRANSFER TO THE NEXT LINE)         FERRS     416
          2105  515                      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/05. 19.58.32.      PAGE    26
        ERROR MESSAGE TEXTS                                           GOTO      FORMAT. 
  
          2107  102                      E.GO7    ERROR  T,*,(STATEMENT TRANSFERS TO ITSELF)                     FERRS     418
          2110  102                      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
          2112  337                      E.HC1    ERROR  F,*,(ZERO LENGTH CHARACTER OR HOLLERITH STRING)         FERRS     425
          2114  071                      E.HC2    ERROR  F,*,(E.O.S. BEFORE END OF HOLLERITH COUNT)              FERRS     426
          2116  521                      E.HC3    ERROR  FS,*,(TERMINAL DELIMITER FILL. MISSING)                 FERRS     427
  
  
  
  
                                        **        IF STATEMENT/STRUCTURE PROCESSING.                             FERRS     429
                                                                                                                 FERRS     430
                                                                                                                 FERRS     431
            67  6170002117 +             E.IF00   ERROR  F,PSL,(ILLEGAL IF STATEMENT -- OBJECT MISSING)          FERRS     432
          2121  523                      E.IF01   ERROR  F,*,(ELSEIF EXPRESSION MUST BE LOGICAL)                 FERRS     433
          2123  173                      E.IF02   ERROR  A,*,(OBJECT OF IF IS ILLEGAL DO TERMINATOR)             FERRS     434
            70  6170002125 +             E.IF03   ERROR  FV,PSL,(ILLEGAL OBJECT OF IF -- TROUBLE STARTED AT FILL FERRS     435
                                        ,.)                                                                      FERRS     436
          2127  267                      E.IF04   ERROR  T,*,(IF RESULTS IN A SIMPLE TRANSFER)                   FERRS     437
          2131  367                      E.IF05   ERROR  T,*,(LAST IF RESULTS IN A NULL TRANSFER TO THIS STATEME FERRS     438
                                        ,NT)                                                                     FERRS     439
            71  6170002133 +             E.IF06   ERROR  F,PSL,(ILLEGAL OBJECT OF LOGICAL IF)                    FERRS     440
          2135  527                      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  6170002137 +             E.IF09   ERROR  F,IFS11,(LOGICAL IF EXPRESSION MUST BE LOGICAL)         FERRS     442
            73  6170002141 +             E.IF10   ERROR  F,PSL,(3 BRANCH IF MISSING LABEL)                       FERRS     443
            74  6170002143 +             E.IF11   ERROR  F,PSL,(LOGICAL IF MUST NOT BE OBJECT OF LOGICAL IF)     FERRS     444
            75  6170002145 +             E.IF12   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)             FERRS     445
            76  6170002147 +             E.IF13   ERROR  F,PSL,(ILLEGAL BLOCK IF STRUCTURE)                      FERRS     446
          2150  061                      E.IF14   ERROR  FV,*,(EXPECTED THEN -- FOUND FILL.)                     FC51047     5
          2152  324                      E.IF15   ERROR  FS,*,(DO LOOP FILL. MUST TERMINATE WITHIN IF BLOCK)     FERRS     448
          2154  324                      E.IF16   ERROR  FS,*,(DO LOOP FILL. CONTAINS UNCLOSED IF BLOCK)         FERRS     449
          2156  002                      E.IF17   ERROR  FS,*,(FILL. BLOCK IF(S) NOT TERMINATED)                 FERRS     450
  
  
  
  
                                        **        INTRINSIC STATEMENT PROCESSOR                                  FERRS     452
                                                                                                                 FERRS     453
                                                                                                                 FERRS     454
            77  6170002160 +             E.IN     ERROR  FV,FEC.RTN,(EXPECTED INTRINSIC FUNCTION NAME -- FOUND F FERRS     455
                                        ,ILL.)                                                                   FERRS     456
          2162  002                      E.IN1    ERROR  FS,*,(FILL. IS NOT DEFINED AS INTRINSIC)                FERRS     457
          2164  002                      E.IN2    ERROR  WS,*,(FILL. PREVIOUSLY DECLARED INTRINSIC -- IGNORED)   FERRS     458
          2166  002                      E.IN3    ERROR  WS,*,(FILL. PREVIOUSLY TYPED NON- CONFIRMING -- PREVIOU FERRS     459
                                        ,S TYPE OVERRIDDEN)                                                      FERRS     460
           100  6170002170 +             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/05. 19.58.32.      PAGE    27
        ERROR MESSAGE TEXTS                                           INT 
  
                                                                                                                 FERRS     465
                                                                                                                 FERRS     466
          2172  024                      E.INF    ERROR  F,*,(LOCF ARGUMENT MUST NOT BE FILL.3)                  FERRS     467
          2174  144                      E.INF1   ERROR  W,*,(ARGUMENT TO MASK MUST BE BETWEEN 0 AND 60)         FC5A190     7
          2176  542                      E.INF2   ERROR  W,*,(SHIFT COUNT MUST BE BETWEEN -60 AND 60)            FC5A190     8
          2200  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/05. 19.58.32.      PAGE    28
        ERROR MESSAGE TEXTS                                           I/O 
  
                                        **        I/O PROCESSOR.                                                 FERRS     469
                                                                                                                 FERRS     470
                                                                                                                 FERRS     471
          2202  030                      E.IO00   ERROR  F,*,(EXTERNAL UNIT SPECIFIER NOT INTEGER EXPRESSION)    FERRS     472
           101  6170002204 +             E.IO01   ERROR  F,PSL,(UNIT SPECIFIER MISSING)                          FERRS     473
          2205  065                      E.IO02   ERROR  F,*,(COMMA BEFORE AN I/O LIST IS ALLOWED ONLY ON SHORT  FC5A171A   11
                                        ,FORM READ OR PRINT STATEMENT)                                           FC5A171A   12
          2210  545                      E.IO03   ERROR  F,*,(UNIT SPECIFIER OUTSIDE RANGE 0-999)                FC5A126    14
          2212  552                      E.IO04   ERROR  F,*,(IMPLIED I/O UNIT SPECIFIER NOT ALLOWED FOR THIS ST FERRS     476
                                        ,ATEMENT)                                                                FERRS     477
          2214  503                      E.IO05   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 MUST B FERRS     478
                                        ,E TYPE FILL.3)                                                          FERRS     479
          2216  554                      E.IO06   ERROR  FV,*,(EXTRA CHARACTERS FILL. AFTER UNIT SPECIFIER IGNOR FC5A220     4
                                        ,ED)                                                                     FERRS     481
           102  6170002220 +             E.IO07   ERROR  FV,PSL,(EXPECTED FORMAT SPECIFIER -- FOUND FILL.)       FERRS     482
           103  6170002222 +             E.IO08   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O CONTROL LIST)            FERRS     483
          2224  061                      E.IO09   ERROR  WV,*,(EXPECTED COMMA AFTER I/O CONTROL -- FOUND FILL.)  FERRS     484
           104  6170002226 +             E.IO10   ERROR  FS,PSL,(FILL. FILL.2 NOT I/O CONTROL KEYWORD)           FERRS     485
           105  6170002230 +             E.IO11   ERROR  FS,PSL,(FILL. FILL.2 NOT LEGAL I/O CONTROL KEYWORD FOR  FERRS     486
                                        ,THIS STATEMENT)                                                         FERRS     487
           106  6170002232 +             E.IO12   ERROR  FS,PSL,(FILL. FILL.2 I/O CONTROL ALREADY SPECIFIED FOR  FERRS     488
                                        ,THIS STATEMENT)                                                         FERRS     489
           107  6170002234 +             E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CONVERTED TO RIGHT PAR FERRS     490
                                        ,EN)                                                                     FERRS     491
          2236  552                      E.IO14   ERROR  F,*,(IMPLIED LOOP NOT TERMINATED)                       FERRS     492
           110  6170002237 +             E.IO15   ERROR  F,PSL,(END OR ERR REQUIRES STATEMENT LABEL)             FERRS     493
           111  6170002241 +             E.IO16   ERROR  FV,PSL,(SYNTAX ERROR IN I/O CONTROL LIST AT FILL.)      FERRS     494
           112  6170002243 +             E.IO17   ERROR  FS,PSL,(I/O CONTROL KEYWORD FILL. FILL.2 MUST BE POSITI FERRS     495
                                        ,VE INTEGER EXPRESSION)                                                  FERRS     496
          2245  503                      E.IO18   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 CANNOT FERRS     497
                                        , BE FILL.3)                                                             FERRS     498
           113  6170002247 +             E.IO19   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)             FERRS     499
           114  6170002251 +             E.IO20   ERROR  F,PSL,(INQUIRE MUST SPECIFY UNIT OR FILE)               FERRS     500
           115  6170002253 +             E.IO21   ERROR  F,PSL,(INQUIRE CANNOT SPECIFY BOTH UNIT AND FILE)       FERRS     501
          2255  503                      E.IO22   ERROR  A,*,(I/O KEYWORD BUFL IS NON- ANSI)                     FERRS     502
          2257  564                      E.IO23   ERROR  FS,*,(INTERNAL UNIT SPECIFIER CANNOT BE FILL.3)         FERRS     503
          2261  564                      E.IO24   ERROR  F,*,(INTERNAL UNIT SPECIFIER CANNOT BE ASSUMED SIZE ARR FERRS     504
                                        ,AY)                                                                     FERRS     505
           116  6170002263 +             E.IO25   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE FREE FORMAT)         FERRS     506
          2265  564                      E.IO26   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE FREE FORMAT)           FC5A338    11
           117  6170002267 +             E.IO28   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE NAMELIST)            FERRS     509
           120  6170002271 +             E.IO29   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT SPECIFY END)            FERRS     510
          2273  564                      E.IO30   ERROR  F,*,(INTERNAL UNIT SPECIFIER NOT ALLOWED FOR THIS STATE FERRS     511
                                        ,MENT)                                                                   FERRS     512
          2275  545                      E.IO31   ERROR  F,*,(UNIT SPECIFIER NOT LEGAL FILE NAME)                FC5A126    15
          2277  545                      E.IO32   ERROR  F,*,(UNIT SPECIFIER FILE NAME GREATER THAN 7 CHARACTERS FC5A126    16
                                        ,)                                                                       FC5A126    17
          2301  564                      E.IO33   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE NAMELIST)              FERRS     516
          2303  564                      E.IO34   ERROR  F,*,(INTERNAL FILE REQUIRES A FORMAT)                   FC5A171A   13
          2305  564                      E.IO35   ERROR  F,*,(INTERNAL FILE WITHOUT FORMAT OR MISSING COMMA BEFO FC5A171A   14
                                        ,RE I/O LIST)                                                            FC5A171A   15
          2307  254                      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/05. 19.58.32.      PAGE    29
        ERROR MESSAGE TEXTS                                           BUFFER
  
                                        **        BUFFER IN / OUT                                                FERRS     518
                                                                                                                 FERRS     519
                                                                                                                 FERRS     520
           121  6170002311 +             E.IOB0   ERROR  F,BUFERR,(BUFFER I/O ADDRESS CANNOT BE CHARACTER)       FERRS     521
           122  6170002313 +             E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION SPECIFIER MUST BE IN OR OUT) FC5A126    18
           123  6170002315 +             E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY SPECIFIER MUST BE INTEGER C FC5A126    19
                                        ,ONSTANT OR VARIABLE)                                                    FERRS     524
           124  6170002317 +             E.IOB3   ERROR  FV,BUFERR,(EXPECTED LEFT PAREN -- FOUND FILL.)          FERRS     525
           125  6170002321 +             E.IOB4   ERROR  FV,BUFERR,(EXPECTED COMMA -- FOUND FILL.)               FERRS     526
           126  6170002323 +             E.IOB5   ERROR  FV,BUFERR,(EXPECTED RIGHT PAREN -- FOUND FILL.)         FERRS     527
           127  6170002325 +             E.IOB6   ERROR  F,BUFERR,(BUFFER I/O LWA MUST BE GREATER THAN OR EQUAL  FERRS     528
                                        ,TO FWA)                                                                 FERRS     529
          2330  445                      E.IOB7   ERROR  F,*,(BUFFER I/O ADDRESS CANNOT BE FILL.3)               FERRS     530
           130  6170002332 +             E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE ZER FERRS     531
                                        ,O OR 1)                                                                 FERRS     532
           131  6170002334 +             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  6170002337 +             E.IOD1   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST)                   FERRS     539
           133  6170002341 +             E.IOD2   ERROR  F,PSL,(SYNTAX ERROR IN I/O IMPLIED DO)                  FERRS     540
           134  6170002343 +             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
          2345  145                      E.IOL1   ERROR  A,*,(LIST DIRECTED OUTPUT CANNOT END WITH COMMA)        FC50643     5
          2347  004                      E.IOL2   ERROR  F,*,(FILL.3 IN INPUT LIST IS ILLEGAL)                   FERRS     547
          2351  133                      E.IOL5   ERROR  F,*,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END WITH  FERRS     548
                                        ,A COMMA)                                                                FERRS     549
          2353  170                      E.IOL6   ERROR  FS,*,(ASSUMED SIZE ARRAY FILL. NOT ALLOWED IN I/O LIST) FERRS     550
           135  6170002355 +             E.IOL7   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O LIST ITEM SUBSCRIPT)     FERRS     551
           136  6170002357 +             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  6170002361 +             E.IOF    ERROR  F,PSL,(ILLEGAL FORMAT SPECIFIER)                        FC5A126    20
          2362  055                      E.IOF1   ERROR  A,*,(CHARACTER ARRAY REQUIRED FOR FORMAT SPECIFIER)     FC5A126    21
           140  6170002364 +             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/05. 19.58.32.      PAGE    30
        ERROR MESSAGE TEXTS                                           NAMELIST
  
                                        **        NAMELIST                                                       FERRS     561
                                                                                                                 FERRS     562
                                                                                                                 FERRS     563
          2366  503                      E.ION    ERROR  W,*,(I/O LIST IGNORED WHEN USING NAMELIST)              FERRS     564
          2370  036                      E.ION1   ERROR  A,*,(NAMELIST I/O IS NON- ANSI)                         FERRS     565
  
  
  
  
                                        **        ENCODE / DECODE.                                               FERRS     567
                                                                                                                 FERRS     568
                                                                                                                 FERRS     569
           141  6170002372 +             E.IOS1   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN BEFORE COUNT -- FOUND F FERRS     570
                                        ,ILL.)                                                                   FERRS     571
           142  6170002374 +             E.IOS2   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER  COUNT -- FOUND FILL.) FERRS     572
           143  6170002376 +             E.IOS3   ERROR  FS,FEC.RTN,(FORMAT SPECIFIER FILL. IS NAMELIST NAME)    FC5A126    23
           144  6170002400 +             E.IOS4   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER FORMAT SPECIFIER -- FO FC5A126    24
                                        ,UND FILL.)                                                              FERRS     575
           145  6170002402 +             E.IOS5   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN AFTER STRING ADDRESS - FERRS     576
                                        ,- FOUND FILL.)                                                          FERRS     577
           146  6170002404 +             E.IOS6   ERROR  F,FEC.RTN,(PREMATURE E.O.S. IN ENCODE OR DECODE)        FERRS     578
          2406  520                      E.IOS7   ERROR  F,*,(STRING ADDRESS CANNOT BE FILL.)                    FERRS     579
           147  6170002410 +             E.IOS8   ERROR  FV,FEC.RTN,(ILLEGAL FORMAT SPECIFIER FILL.)             FC5A126    25
           150  6170002411 +             E.IOS9   ERROR  F,FEC.RTN,(ILLEGAL CHARACTER COUNT)                     FERRS     581
           151  6170002412 +             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/05. 19.58.32.      PAGE    31
        ERROR MESSAGE TEXTS                                           PARENS
  
                                        **        PARENTHESIS MIS-MATCH.                                         FERRS     584
                                                                                                                 FERRS     585
                                                                                                                 FERRS     586
          2414  306                      E.LP1    ERROR  FV,*,(TOO FEW RIGHT PAREN OR PREVIOUS SYNTAX ERROR -- S FERRS     587
                                        ,CAN STOPPED AT FILL.)                                                   FERRS     588
          2417  306                      E.LP2    ERROR  FV,*,(TOO FEW LEFT PAREN OR PREVIOUS SYNTAX ERROR -- SC FERRS     589
                                        ,AN STOPPED AT FILL.)                                                    FERRS     590
          2422  057                      E.LP3    ERROR  FV,*,(EXPRESSION TOO COMPLICATED -- SCAN STOPPED AT ___ FERRS     591
                                        ,FILL.)                                                                  FERRS     592
  
  
  
  
                                        **        LEVEL PROCESSING                                               FERRS     594
                                                                                                                 FERRS     595
                                                                                                                 FERRS     596
           152  6170002424 +             E.LV1    ERROR  F,FEC.RTN,(INTEGER 0, 1 , 2 OR 3 MUST FOLLOW LEVEL)     FERRS     597
          2426  065                      E.LV2    ERROR  W,*,(COMMA MUST FOLLOW LEVEL NUMBER)                    FERRS     598
           153  6170002430 +             E.LV3    ERROR  F,FEC.RTN,(MISSING NAME IN LEVEL LIST)                  FERRS     599
           154  6170002432 +             E.LV4    ERROR  WS,LVL90,(MULTIPLY DEFINED LEVEL FOR NAME FILL. -- IGNO FERRS     600
                                        ,RED)                                                                    FERRS     601
           155  6170002434 +             E.LV5    ERROR  F,FEC.RTN,(COMMA OR E.O.S. MUST FOLLOW LEVEL LIST NAME) FERRS     602
          2436  111                      E.LV6    ERROR  FS,*,(NON- DUMMY ARGUMENT FILL. CANNOT BE LEVELED)      FERRS     603
           156  6170002440 +             E.LV7    ERROR  WS,LVL80,(MULTIPLY DEFINED LEVEL FOR COMMON BLOCK NAME  FERRS     604
                                        ,FILL. -- IGNORED)                                                       FERRS     605
           157  6170002442 +             E.LV8    ERROR  FS,LVL80,(COMMON BLOCK FILL. CANNOT BE DECLARED LEVEL 0 FERRS     606
                                        ,)                                                                       FERRS     607
          2444  161                      E.LV9    ERROR  FS,*,(ILLEGAL EXPLICIT LEVEL DECLARATION FOR COMMON MEM FERRS     608
                                        ,BER NAME FILL.)                                                         FERRS     609
          2446  623                      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/05. 19.58.32.      PAGE    32
        ERROR MESSAGE TEXTS                                           FRONT 
  
                                        **        FRONT END CONTROLLER.                                          FERRS     613
                                                                                                                 FERRS     614
                                                                                                                 FERRS     615
           160  6170002450 +             E.FM     ERROR  F,FEC.RTN,(THIS IS NOT A FORTRAN STATEMENT)             FERRS     616
           161  6170002452 +             E.MA     ERROR  F,FEC.RTN,(STATEMENT FUNCTION DEFINITION MUST OCCUR BEF FERRS     617
                                        ,ORE FIRST EXECUTABLE)                                                   FERRS     618
          2454  162                      E.MB     ERROR  F,*,(EXECUTABLE STATEMENT ILLEGAL IN BLOCK DATA SUBPROG FERRS     619
                                        ,RAM)                                                                    FERRS     620
          2456  133                      E.MCA    ERROR  F,*,(ONLY "ANS.CONT" CONTINUATION LINES ARE PERMITTED)  FERRS     621
          2460  203                      E.INI    ERROR  W,*,(THIS STATEMENT HAS NO INITIAL LINE -- INITIAL_____ FERRS     622
                                        , ASSUMED)                                                               FERRS     623
          2462  111                      E.TLBL   ERROR  F,*,(NON- NULL LABEL FIELD ON CONTINUATION LINE)        FC5A220     5
                                                                                                                 FERRS     625
           162  6170002464 +             E.MD     ERROR  FS,FEC.RTN,(STATEMENT MISPLACED)                        FERRS     626
          2465  203                      E.MDO    ERROR  F,*,(THIS STATEMENT MAY NOT BE A DO TERMINAL)           FERRS     627
           163  6170002467 +             E.ME     ERROR  F,END23,(END LINE ABSENT)                               FERRS     628
                                         E.ME1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     629
           164  6170002470 +             E.MH     ERROR  F,FEC.RTN,(HEADER CARD NOT FIRST STATEMENT -- IGNORED)  FERRS     630
           165  6170002472 +             E.MI     ERROR  F,FEC.RTN,(IMPLICIT STATEMENT MUST OCCUR BEFORE DECLARA FERRS     631
                                        ,TIVE STATEMENTS)                                                        FERRS     632
           166  6170002474 +             E.MR1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. OR MISSING RIGHT PAREN)     FERRS     633
           167  6170002476 +             E.MR2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. OR EXTRA TRAILING SEPARATO FERRS     634
                                        ,R FILL.)                                                                FERRS     635
           170  6170002500 +             E.MR3    ERROR  F,FEC.RTN,(PREMATURE E.O.S.)                            FERRS     636
          2501  102                      E.MS     ERROR  FS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED) FERRS     637
                                                                                                                 FERRS     638
          2503  263                      E.NP     ERROR  T,*,(NO PATH TO THIS STATEMENT)                         FERRS     639
           171  6170002505 +             E.NP1    ERROR  T,PSL,(NO PATH TO THE ENTIRE RANGE OF DO)               FERRS     640
                                                                                                                 FERRS     641
           172  6170002507 +             E.OV1    ERROR  F,FEC.RTN,(OVERLAY DIRECTIVE MUST BEGIN WITH LEFT PAREN F1037F5   321
                                        ,)                                                                       F1037F5   322
          2511  061                      E.OV2    ERROR  FV,*,(EXPECTED LEFT PAREN OR PERIOD -- FOUND FILL.)     F1037F5   323
           173  6170002513 +             E.OV3    ERROR  F,FEC.RTN,(THIS STATEMENT MUST BE CONTAINED ON 1 CARD)  FERRS     644
          2515  651                      E.OV4    ERROR  F,*,(OVCAP DIRECTIVE CAN APPEAR ONLY WITH SUBROUTINES)  FC50409     5
                                                                                                                 FERRS     645
          2517  250                      E.PN1    ERROR  F,*,(SYNTAX ERROR IN PROGRAM UNIT NAME)                 FERRS     646
          2521  243                      E.PN3    ERROR  T,*,(MISSING PROGRAM STATEMENT -- PROGRAM START. ASSUME FERRS     647
                                        ,D)                                                                      FERRS     648
          2523  107                      E.SEQ    ERROR  F,*,(SEQUENCE NUMBER OUT OF ORDER)                      FC50096    37
          2525  113                      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/05. 19.58.32.      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
          2527  116                      E.MO1    ERROR  F,*,(PROGRAM LENGTH EXCEEDS 2**17-1)                    COMFERR    12
          2530  656                      E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN) COMFERR    13
                                                                                                                 COMFERR    15
                                         .TEST    IFEQ   TEST,ON     IF TESTMODE                                 COMFERR    16
          2532  665                      E.MO4    ERROR  D,*,(PREBINARY SPILLS TO DISK)                          COMFERR    17
          2533  125                      E.MO5    ERROR  D,*,(REFERENCE FILE SPILLS TO DISK)                     COMFERR    18
          2535  670                      E.MO6    ERROR  DS,*,(THRESHOLD REACHED -- ONLY FILL. LEFT OUT OF FILL. COMFERR    19
                                        ,2)                                                                      COMFERR    20
          2537  672                      E.MO7    ERROR  D,*,(LINK AND FILL TABLES SPILLS TO DISK)               COMFERR    21
                                         .TEST    ENDIF                                                          COMFERR    22
                                                                                                                 COMFERR    23
          2541  675                      E.MO8    ERROR  F,*,("SCM" COMMON BLOCK LENGTH EXCEEDS "MAX.SPCM")      COMFERR    24
                                                                                                                 COMFERR    25
                                         .T       IFEQ   TEST,ON                                                 COMFERR    26
          2543  656                      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/05. 19.58.32.      PAGE    34
        ERROR MESSAGE TEXTS.                                          MDERR 
  
                                        **        ASSORTED MACHINE DEPENDENT ERRORS.                             F1037F5   327
                                                                                                                 F1037F5   328
          2544  677                      E.MDE1   ERROR  M,*,(OVERLAYS ARE MACHINE DEPENDENT)                    F1037F5   329
          2545  047                      E.MDE2   ERROR  M,*,(BOOLEAN DATA TYPE IS MACHINE DEPENDENT)            F1037F5   330
          2547  445                      E.MDE3   ERROR  M,*,(BUFFER I/O IS MACHINE DEPENDENT)                   F1037F5   331
          2551  702                      E.MDE4   ERROR  M,*,(ENCODE/DECODE ARE MACHINE DEPENDENT)               F1037F5   332
          2553  704                      E.MDE5   ERROR  M,*,(LIBRARY FUNCTIONS DATE, TIME, AND CLOCK ARE MACHIN F1037F5   333
                                        ,E DEPENDENT)                                                            F1037F5   334
          2555  711                      E.MDE6   ERROR  M,*,(OVCAPS ARE MACHINE DEPENDENT)                      F1037F5   335
  
  
  
  
                                        **        NAMELIST PROCESSING.                                           FERRS     652
                                                                                                                 FERRS     653
                                                                                                                 FERRS     654
           174  6170002556 +             E.NL     ERROR  F,FEC.RTN,(SYNTAX ERROR IN NAMELIST)                    FERRS     655
           175  6170002557 +             E.NL1    ERROR  F,FEC.RTN,(MISSING SLASH ON GROUP NAME)                 FERRS     656
           176  6170002561 +             E.NL2    ERROR  FV,FEC.RTN,(EXPECTED NAME -- FOUND FILL.)               FERRS     657
           177  6170002563 +             E.NL3    ERROR  FS,FEC.RTN,(GROUP NAME FILL. PREVIOUSLY DEFINED)        FERRS     658
           200  6170002565 +             E.NL4    ERROR  F,FEC.RTN,(ASSUMED SIZE ARRAY NOT PERMITTED IN NAMELIST FERRS     659
                                        ,)                                                                       FERRS     660
           201  6170002567 +             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
          2571  002                      E.PX1    ERROR  FV,*,(FILL. MUST BE INTEGER CONSTANT EXPRESSION)        FERRS     665
          2573  061                      E.PX2    ERROR  WV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)               FERRS     666
           202  6170002575 +             E.PX3    ERROR  FV,PRMERR,(EXPECTED NAME -- FOUND FILL.)                FERRS     667
           203  6170002577 +             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
          2601  002                      E.PX6    ERROR  FV,*,(FILL. EXPRESSION NOT CONSTANT, OR NOT EVALUATABLE FC5A184    36
                                        ,)                                                                       FC5A218    33
          2603  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
          2605  717                      E.SA     ERROR  W,*,(UNIVERSAL SAVE DECLARED -- OTHER SAVE STATEMENTS A FERRS     675
                                        ,RE REDUNDANT)                                                           FERRS     676
           204  6170002607 +             E.SA1    ERROR  FV,SAVERR,(EXPECTED VARIABLE OR COMMON BLOCK NAME -- FO FERRS     677
                                        ,UND FILL.)                                                              FERRS     678
          2611  002                      E.SA2    ERROR  WS,*,(FILL. REDUNDANTLY DECLARED IN SAVE)               FERRS     679
           205  6170002613 +             E.SA3    ERROR  FV,SAVERR,(EXPECTED SLASH -- FOUND FILL.)               FERRS     680
           206  6170002615 +             E.SA4    ERROR  FV,SAVERR,(EXPECTED COMMA -- FOUND FILL.)               FERRS     681
          2617  135                      E.SA5    ERROR  FS,*,(DUMMY ARGUMENT FILL. MAY NOT APPEAR IN SAVE)      FERRS     682
          2621  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/05. 19.58.32.      PAGE    35
        ERROR MESSAGE TEXTS.                                          SUBSPT
  
                                        **        SUBSCRIPT PROCESSOR.                                           FERRS     685
                                                                                                                 FERRS     686
                                                                                                                 FERRS     687
          2623  325                      E.SB2    ERROR  FS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT A NUMERIC TYPE)  FERRS     688
          2625  325                      E.SB3    ERROR  AS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT TYPE INTEGER)    FERRS     689
          2627  722                      E.SB4    ERROR  FS,*,(MAGNITUDE OF SUBSCRIPT FILL.2 OF FILL. EXCEEDS __ FERRS     690
                                        ,"MAX.SPAN")                                                             FERRS     691
          2631  325                      E.SB5    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES LOWER ________ FERRS     692
                                        ,DIMENSION BOUND)                                                        FERRS     693
          2633  325                      E.SB6    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES UPPER ________ FERRS     694
                                        ,DIMENSION BOUND)                                                        FERRS     695
          2635  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/05. 19.58.32.      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  6170002637 +             E.SF01   ERROR  FS,FEC.RTN,(STATEMENT FUNCTION FILL.3 -- MISPLACED EQUA FC5A300     9
                                        ,L SIGN)                                                                 FC5A300    10
           210  6170002641 +             E.SF02   ERROR  WS,FEC.RTN,(STATEMENT FUNCTION FILL.3 HAS NULL DEFINITI FC5A300    11
                                        ,ON -- IGNORED)                                                          FC5A300    12
           211  6170002643 +             E.SF03   ERROR  FS,SFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI FC5A300    13
                                        ,LL.3)                                                                   FC5A300    14
          2645  144                      E.SF04   ERROR  TS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION FC5A300    15
                                        , FILL.3)                                                                FC5A300    16
          2647  135                      E.SF05   ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL FC5A300    17
                                        ,.3 DEFINITION)                                                          FC5A300    18
          2651  102                      E.SF06   ERROR  FV,*,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NOT SIMP FC5A192    37
                                        ,LE VARIABLE)                                                            FC5A192    38
          2653  266                      E.SF07   ERROR  WS,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. I FERRS     715
                                        ,S OVERRIDDEN)                                                           FERRS     716
           212  6170002655 +             E.SF08   ERROR  FS,FEC.RTN,(USAGE CONFLICT -- FILL.3 CANNOT BE STATEMEN FC5A300    19
                                        ,T FUNCTION)                                                             FC5A300    20
          2657  730                      E.SF09   ERROR  FS,*,(UNMATCHED PARAMETER COUNT TO STATEMENT FUNCTION F FERRS     722
                                        ,ILL.)                                                                   FERRS     723
          2661  102                      E.SF10   ERROR  FS,*,(STATEMENT FUNCTION FILL. INDIRECTLY REFERENCES IT FERRS     724
                                        ,SELF)                                                                   FERRS     725
          2663  102                      E.SF11   ERROR  AS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B FERRS     726
                                        ,E AN ARRAY)                                                             FERRS     727
          2665  102                      E.SF12   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 MUST BE  FC50106     6
                                        ,USED AS SIMPLE VARIABLE)                                                FC50106     7
          2670  102                      E.SF13   ERROR  A,*,(STATEMENT FUNCTION ACTUAL ARGUMENT MUST AGREE IN T FC50148     6
                                        ,YPE WITH DUMMY ARGUMENT)                                                FC50148     7
          2673  102                      E.SF14   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B FC5A300    21
                                        ,E ASSUMED LENGTH)                                                       FC5A300    22
          2675  102                      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/05. 19.58.32.      PAGE    37
        ERROR MESSAGE TEXTS.                                          ST.LAB
  
                                        **        STATEMENT LABEL PROCESSOR.                                     FERRS     729
                                                                                                                 FERRS     730
                                                                                                                 FERRS     731
          2700  624                      E.SL00   ERROR  FS,*,(MULTIPLY DEFINED STATEMENT LABEL FILL.)           FERRS     732
          2702  266                      E.SL01   ERROR  FS,*,(PREVIOUS REFERENCE TO LABEL FILL. WAS ILLEGAL)    FERRS     733
          2704  324                      E.SL02   ERROR  FS,*,(DO LOOP FILL.2 PREVIOUSLY DEFINED -- ILLEGAL NEST FERRS     734
                                        ,ING)                                                                    FERRS     735
          2706  075                      E.SL03   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS DO FERRS     736
                                        , TERMINAL)                                                              FERRS     737
          2710  075                      E.SL04   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS FO FERRS     738
                                        ,RMAT)                                                                   FERRS     739
          2712  161                      E.SL05   ERROR  FS,*,(ILLEGAL TRANSFER TO FILL.2 FORMAT)                FERRS     740
          2714  161                      E.SL06   ERROR  FS,*,(ILLEGAL REFERENCE TO STATEMENT LABEL FILL. AS A F FERRS     741
                                        ,ORMAT)                                                                  FERRS     742
          2716  266                      E.SL07   ERROR  FS,*,(PREVIOUS REFERENCE TO DO LABEL FILL.2 IS ILLEGAL) FERRS     743
          2720  266                      E.SL08   ERROR  FS,*,(PREVIOUS REFERENCE TO FORMAT LABEL FILL.2 IS ILLE FERRS     744
                                        ,GAL)                                                                    FERRS     745
          2722  003                      E.SL09   ERROR  FS,*,(FILL.2 -- ILLEGAL TRANSFER TO INSIDE A CLOSED DO  FERRS     746
                                        ,LOOP OR IF BLOCK)                                                       FERRS     747
          2725  454                      E.SL10   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS DO STATEMENT FERRS     748
                                        , LABEL)                                                                 FERRS     749
          2727  161                      E.SL11   ERROR  FS,*,(ILLEGAL REFERENCE TO LABEL FILL.2 DEFINED ON NON- FERRS     750
                                        , EXECUTABLE STATEMENT)                                                  FERRS     751
          2731  454                      E.SL12   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS CONTROL STAT FERRS     752
                                        ,EMENT LABEL)                                                            FERRS     753
          2733  075                      E.SL13   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS A FORM FERRS     754
                                        ,AT LABEL)                                                               FERRS     755
          2735  102                      E.SL14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS 5 DIGITS)           FERRS     756
          2737  102                      E.SL15   ERROR  FS,*,(STATEMENT LABEL FILL. CONTAINS NON- DIGIT)        FERRS     757
          2741  146                      E.SL16   ERROR  F,*,(MULTIPLE DEFINITION OF CURRENT FORMAT LABEL)       FERRS     758
          2743  220                      E.SL17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEEDED THE FERRS     759
                                        , DO DEFINITION)                                                         FERRS     760
           213  6170002745 +             E.SL18   ERROR  F,PSL,(STATEMENT LABEL EXPECTED BUT NOT FOUND)          FERRS     761
          2747  215                      E.SL19   ERROR  F,*,(INVALID STATEMENT LABEL)                           FC5A168A    4
          2750  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
          2753  250                      E.ST     ERROR  FS,*,(SYNTAX ERROR IN SUBSTRING EXPRESSION FOR FILL.)   FERRS     768
          2755  744                      E.ST1    ERROR  FS,*,(SUBSTRINGED VARIABLE FILL. NOT TYPE CHARACTER)    FERRS     769
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    38
        ERROR MESSAGE TEXTS.                                          STOP
  
                                        **        STOP / PAUSE / RETURN PROCESSING.                              FERRS     771
                                                                                                                 FERRS     772
                                                                                                                 FERRS     773
          2757  264                      E.SPR1   ERROR  W,*,(UNKNOWN FORM -- BLANK ASSUMED)                     FERRS     774
          2761  060                      E.SPR2   ERROR  W,*,(CONSTANT EXCEEDS 5 DIGITS -- TRUNCATED)            FERRS     775
                                         E.SPR4   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     777
          2763  420                      E.SPR5   ERROR  F,*,(ALTERNATE RETURN IS ILLEGAL IN A FUNCTION)         FERRS     778
  
  
  
  
                                        **        SUBROUTINE/FUNCTION REFERENCE PROCESSING.                      FERRS     780
                                                                                                                 FERRS     781
                                                                                                                 FERRS     782
          2765  745                      E.SU01   ERROR  F,*,(CONCATENATION OF ASSUMED LENGTH VARIABLE NOT ALLOW FERRS     783
                                        ,ED HERE)                                                                FERRS     784
          2767  444                      E.SU02   ERROR  WS,*,(NUMBER OF ARGUMENTS IN REFERENCE TO FILL. IS NOT  FERRS     785
                                        ,CONSISTENT)                                                             FERRS     786
          2771  144                      E.SU03   ERROR  FS,*,(ARGUMENT MODE MUST AGREE WITH TYPE DEFINED FOR LI FERRS     787
                                        ,BRARY FUNCTION FILL.)                                                   FERRS     788
          2774  002                      E.SU04   ERROR  AS,*,(FILL. IS DEFINED TO BE INTRINSIC)                 FERRS     789
          2776  144                      E.SU05   ERROR  FS,*,(ARGUMENT COUNT ON INTRINSIC FILL. IS WRONG)       FERRS     790
          3000  016                      E.SU06   ERROR  FS,*,(FUNCTION NAME OR ENTRY OF TYPE FILL. WAS NOT ASSI FERRS     791
                                        ,GNED A VALUE)                                                           FERRS     792
          3003  144                      E.SU07   ERROR  FS,*,(ARGUMENT MODE ILLEGAL FOR GENERIC FUNCTION FILL.) FERRS     793
          3005  144                      E.SU08   ERROR  FS,*,(ARGUMENT COUNT ON FILL. EXCEEDS "MAX.SARG")       FERRS     794
          3007  144                      E.SU09   ERROR  FS,*,(ARGUMENT COUNT ON FILL. MUST BE MORE THAN ONE)    FERRS     795
          3011  061                      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/05. 19.58.32.      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
          3013  015                      E.TY0    ERROR  WS,*,(SUBROUTINE FILL. CANNOT BE TYPED -- TYPING IGNORE FC5A338    12
                                        ,D)                                                                      FC5A338    13
          3015  536                      E.TY1    ERROR  TS,*,(CONFIRMING RETYPING OF FILL. -- IGNORED)          FC50972     8
          3017  031                      E.TY2    ERROR  WS,*,(INTRINSIC FILL. TYPED NON- CONFIRMING -- TYPING I FC5A227    69
                                        ,GNORED)                                                                 FC5A227    70
          3021  755                      E.TY3    ERROR  F,*,(CHAR LENGTH NOT POSITIVE CONSTANT, ( POSITIVE CONS FC5A262    19
                                        ,TANT EXPRESSION ) OR ( * ) )                                            FC5A262    20
          3024  055                      E.TY4    ERROR  F,*,(CHARACTER LENGTH GREATER THAN "MAX.CL")            FERRS     810
           214  6170003026 +             E.TY5    ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.)        FERRS     811
          3030  055                      E.TY6    ERROR  F,*,(CHARACTER LENGTH ZERO ILLEGAL)                     FERRS     812
          3031  002                      E.TY7    ERROR  FS,*,(FILL. CANNOT HAVE ASSUMED CHARACTER LENGTH)       FC5A126    27
          3033  012                      E.TY8    ERROR  FS,*,(PARAMETER FILL. TYPE OR CHARACTER LENGTH CANNOT B FC5A225    10
                                        ,E MODIFIED AFTER PARAMETER STATEMENT)                                   FC5A225    11
          3036  027                      E.TY9    ERROR  WS,*,(GENERIC ONLY INTRINSIC FILL. TYPED -- TYPING INGN FC5A227    71
                                        ,ORED)                                                                   FC5A227    72
          3040  111                      E.TY10   ERROR  FS,*,(NON- CONFIRMING RETYPING OF FILL.)                FC50972     9
                                                                                                                 FERRS     814
                                        *         IMPLICIT DECLARATIONS                                          FERRS     815
                                                                                                                 FERRS     816
           215  6170003042 +             E.TYI    ERROR  F,FEC.RTN,(IMPLICIT MUST BE FOLLOWED BY A TYPE INDICATO FERRS     817
                                        ,R)                                                                      FERRS     818
           216  6170003044 +             E.TYI1   ERROR  FV,IMP.ER,(EXPECTED LEFT PAREN -- FOUND FILL.)          FERRS     819
           217  6170003046 +             E.TYI2   ERROR  FV,IMP.ER,(EXPECTED RANGE INDICATOR -- FOUND FILL.)     FERRS     820
          3050  405                      E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT 1 LETTER -- TRUNCATED T FERRS     821
                                        ,O FILL.3)                                                               FERRS     822
          3052  161                      E.TYI4   ERROR  FS,*,(ILLEGAL RANGE -- FILL.2 NOT LESS THAN FILL. -- TR FERRS     823
                                        ,UNCATED)                                                                FERRS     824
          3054  427                      E.TYI5   ERROR  WS,*,(TRIVIAL RANGE -- FILL.2 SAME AS FILL.)            FERRS     825
           220  6170003056 +             E.TYI6   ERROR  FV,IMP.ER,(EXPECTED RIGHT PAREN -- FOUND FILL.)         FERRS     826
           221  6170003060 +             E.TYI7   ERROR  FV,IMP.ER,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)  FERRS     827
          3062  076                      E.TYI8   ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST RETAINED)     FERRS     828
          3064  170                      E.TYI9   ERROR  F,*,(ASSUMED CHARACTER LENGTH ILLEGAL FOR IMPLICIT)     FERRS     829
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      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
          3066  161                      E.VA01   ERROR  FS,*,(ILLEGAL USE OF ENTRY FILL.)                       FERRS     836
          3070  075                      E.VA02   ERROR  FS,*,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT BE F FERRS     837
                                        ,ILL.3)                                                                  FERRS     838
          3072  125                      E.VA03   ERROR  FS,*,(REFERENCE TO VARIABLE FILL. AS A FUNCTION OR ARRA FERRS     839
                                        ,Y)                                                                      FERRS     840
          3074  125                      E.VA04   ERROR  FS,*,(REFERENCE TO EXTERNAL FILL. REQUIRES AN ARGUMENT  FC5A164    43
                                        ,LIST)                                                                   FERRS     842
          3076  764                      E.VA05   ERROR  FS,*,(UNDECLARED INTRINSIC OR EXTERNAL FUNCTION FILL. _ FERRS     843
                                        ,USED AS ACTUAL ARGUMENT)                                                FERRS     844
          3100  031                      E.VA06   ERROR  FS,*,(INTRINSIC FUNCTION FILL. NOT ALLOWED AS ACTUAL __ FERRS     845
                                        ,ARGUMENT)                                                               FERRS     846
          3102  015                      E.VA07   ERROR  WS,*,(SUBROUTINE FILL. REFERENCE AS FUNCTION)           FC5A294     5
          3104  014                      E.VA08   ERROR  FS,*,(ARRAY FILL. MISSING SUBSCRIPT)                    FERRS     848
           222  6170003105 +             E.VA09   ERROR  FV,PSL,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SCAN S FC50110     9
                                        ,TOPPED)                                                                 FERRS     850
          3107  245                      E.VA10   ERROR  FS,*,(NAME EXCEEDS 7 CHARACTERS -- TRUNCATED TO FILL.)  FERRS     851
          3111  156                      E.VA11   ERROR  F,*,(LEFT SIDE OF EQUAL SIGN IS ILLEGAL)                FERRS     852
          3113  022                      E.VA12   ERROR  FS,*,(DUMMY-ARG FUNCTION FILL. CANNOT HAVE ASSUMED CHAR FC5A126    28
                                        ,ACTER LENGTH)                                                           FC5A126    29
           223  6170003115 +             E.VA13   ERROR  FS,FEC.RTN,(ILLEGAL USE OF NAMELIST GROUP NAME FILL.)   FERRS     855
  
  
  
  
                                        **        EXPONENTIATION PROCESSOR.                                      FERRS     857
                                                                                                                 FERRS     858
                                                                                                                 FERRS     859
          3117  200                      E.XP1    ERROR  F,*,(OPERAND TO ** OPERATOR MUST NOT BE LOGICAL)        FERRS     860
          3121  337                      E.XP3    ERROR  T,*,(ZERO ** ZERO -- RESULTS INDEFINITE)                FERRS     862
          3123  051                      E.XP4    ERROR  T,*,(INTEGER ** NEGATIVE CONSTANT -- RESULTS ZERO)      FERRS     863
          3125  060                      E.XP5    ERROR  T,*,(CONSTANT ** CONSTANT CANNOT BE EVALUATED)          FERRS     864
          3127  200                      E.XP6    ERROR  F,*,(OPERAND OF ** OPERATOR MUST NOT BE TYPE CHARACTER) FERRS     865
          3131  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
          3133  315                      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/05. 19.58.32.      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/05. 19.58.32.      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/05. 19.58.32.      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  15170405544255555573    MODE=7   >
           323  05302022052323111716    EXPRESSION
           324  03171623240116245575    CONSTANT \
           325  05302005032405045575    EXPECTED \
           326  22110710245555555572    RIGHT    <
           327  20012205165555555572    PAREN    <
           330  17225555555555555567    OR       &
           331  03171515015555555572    COMMA    <
           332  46465555555555555567    --       &
           333  06172516045555555572    FOUND    <
           334  20220515012425220576    PREMATURE^
           335  05571757235755555573    E.O.S.   >
           336  01245555555555555567    AT       &
           337  01160455555555555570    AND      '
           340  11071617220504555574    IGNORED  @
           341  25230107055555555572    USAGE    <
           342  03171606141103245575    CONFLICT \
           343  20220526111725231431    PREVIOUSLY
           344  25230504555555555571    USED     ?
           345  01235555555555555567    AS       &
           346  23240124051505162476    STATEMENT^
           347  11235555555555555567    IS       &
           350  16172455555555555570    NOT      '
           351  11165555555555555567    IN       &
           352  01162311555555555571    ANSI     ?
           353  23052125051603055575    SEQUENCE \
           354  15170405555555555571    MODE     ?
           355  16171646555555555571    NON-     ?
           356  42555555555555555566    7        !
           357  23311502171455555573    SYMBOL   >
           360  22052425221655555573    RETURN   >
           361  15011116555555555571    MAIN     ?
           362  20221707220115555574    PROGRAM  @
           363  01032423555555555571    ACTS     ?
           364  05160455555555555570    END      '
           365  20220503112311171676    PRECISION^
           366  17200522011604235575    OPERANDS \
           367  01220555555555555570    ARE      '
           370  15113005045555555572    MIXED    <
           371  22050605220516030576    REFERENCE^
           372  03011655555555555570    CAN      '
           373  02055555555555555567    BE       &
           374  20220523052455555573    PRESET   >
           375  02141703135555555572    BLOCK    <
           376  04012401555555555571    DATA     ?
           377  17161431555555555571    ONLY     ?
           400  40333355555555555570    500      '
           401  04251515315555555572    DUMMY    <
           402  01220725150516242376    ARGUMENTS^
           403  20052215112424050476    PERMITTED^
           404  05300305232355555573    EXCESS   >
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    44
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           405  22052125112205235575    REQUIRES \
           406  05302014110311245575    EXPLICIT \
           407  16251414555555555571    NULL     ?
           410  01220725150516245575    ARGUMENT \
           411  14112324555555555571    LIST     ?
           412  15251424112014055575    MULTIPLE \
           413  17030325220116030523    OCCURANCES
           414  17065555555555555567    OF       &
           415  15252324555555555571    MUST     ?
           416  02050711165555555572    BEGIN    <
           417  27112410555555555571    WITH     ?
           420  14052424052255555573    LETTER   >
           421  23240122555555555571    STAR     ?
           422  14050624555555555571    LEFT     ?
           423  06172255555555555570    FOR      '
           424  01165555555555555567    AN       &
           425  11141405070114555574    ILLEGAL  @
           426  05300503252401021405    EXECUTABLE
           427  03171606141103241100    CONFLICTI 
           430  16075555555555555567    NG       &
           431  04050314012201241100    DECLARATI 
           432  26055555555555555567    VE       &
           433  47241747555555555571    *TO*     ?
           434  01232325150504555574    ASSUMED  @
           435  16251505221103555574    NUMERIC  @
           436  01062405225555555572    AFTER    <
           437  17021205032455555573    OBJECT   >
           440  07175555555555555567    GO       &
           441  24175555555555555567    TO       &
           442  04110455555555555570    DID      '
           443  01202005012255555573    APPEAR   >
           444  17200522011604555574    OPERAND  @
           445  10012355555555555570    HAS      '
           446  01141417270504555574    ALLOWED  @
           447  24101123555555555571    THIS     ?
           450  03171624053024555574    CONTEXT  @
           451  25230555555555555570    USE      '
           452  17200522012417225575    OPERATOR \
           453  50555555555555555566    /        !
           454  10171414052211241076    HOLLERITH^
           455  05300305050423555574    EXCEEDS  @
           456  34335555555555555567    10       &
           457  03100122010324052223    CHARACTERS
           460  01555555555555555566    A        !
           461  11162601141104555574    INVALID  @
           462  06172215555555555571    FORM     ?
           463  11162617142611160776    INVOLVING^
           464  24100555555555555570    THE      '
           465  22050425160401162476    REDUNDANT^
           466  20012205162355555573    PARENS   >
           467  01232311071615051624    ASSIGNMENT
           470  15012313555555555571    MASK     ?
           471  06112223245555555572    FIRST    <
           472  05140515051624555574    ELEMENT  @
           473  24012207052455555573    TARGET   >
           474  23172522030555555573    SOURCE   >
           475  17260522140120555574    OVERLAP  @
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    45
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           476  17241005225555555572    OTHER    <
           477  24312005555555555571    TYPE     ?
           500  15013155555555555570    MAY      '
           501  50505555555555555567    //       &
           502  23250223242211160776    SUBSTRING^
           503  03011616172455555573    CANNOT   >
           504  03171626052224050476    CONVERTED^
           505  57301722575555555572    .XOR.    <
           506  03011414555555555571    CALL     ?
           507  15112323111607555574    MISSING  @
           510  22172524111605555574    ROUTINE  @
           511  16011505555555555571    NAME     ?
           512  01202005012205045575    APPEARED \
           513  17165555555555555567    ON       &
           514  23311624013055555573    SYNTAX   >
           515  05222217225555555572    ERROR    <
           516  23140123105555555572    SLASH    <
           517  15013055555555555570    MAX      '
           520  14051607241055555573    LENGTH   >
           521  34363433423455555573    131071   >
           522  14031554075555555572    LCM=G    <
           523  34333743404143555574    1048568  @
           524  05301123242355555573    EXISTS   >
           525  05152024315555555572    EMPTY    <
           526  03171624111625055575    CONTINUE \
           527  16175555555555555567    NO       &
           530  25161316172716555574    UNKNOWN  @
           531  03535555555555555567    C$       &
           532  20220526111725235575    PREVIOUS \
           533  11065555555555555567    IF       &
           534  04112205032411260576    DIRECTIVE^
           535  04110606052205162476    DIFFERENT^
           536  06221715555555555571    FROM     ?
           537  17160555555555555570    ONE      '
           540  05142305555555555571    ELSE     ?
           541  07221725205555555572    GROUP    <
           542  26011425055555555572    VALUE    <
           543  33555555555555555566    0        !
           544  34555555555555555566    1        !
           545  11065123525555555572    IF(S)    <
           546  24052215111601240504    TERMINATED
           547  02140116135555555572    BLANK    <
           550  14170301145555555572    LOCAL    <
           551  03171623240116242376    CONSTANTS^
           552  24171755555555555570    TOO      '
           553  06052755555555555570    FEW      '
           554  26012211010214052376    VARIABLES^
           555  11161124110114113200    INITIALIZ 
           556  05045555555555555567    ED       &
           557  22052005012455555573    REPEAT   >
           560  11162417555555555571    INTO     ?
           561  06171414172711160776    FOLLOWING^
           562  45555555555555555566    +        !
           563  46555555555555555566    -        !
           564  16052324111607555574    NESTING  @
           565  03172516245555555572    COUNT    <
           566  23052001220124172276    SEPARATOR^
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    46
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           567  03171624011116235575    CONTAINS \
           570  04175555555555555567    DO       &
           571  23250223032211202476    SUBSCRIPT^
           572  17252423110405555574    OUTSIDE  @
           573  02172516042355555573    BOUNDS   >
           574  24221120555555555571    TRIP     ?
           575  20172311241126055575    POSITIVE \
           576  23250223032211202423    SUBSCRIPTS
           577  17032450100530555574    OCT/HEX  @
           600  05302017160516245575    EXPONENT \
           601  04112611040555555573    DIVIDE   >
           602  02315555555555555567    BY       &
           603  32052217555555555571    ZERO     ?
           604  22052325142423555574    RESULTS  @
           605  23052455555555555570    SET      '
           606  11160611161124055575    INFINITE \
           607  06110514045555555572    FIELD    <
           610  11141446555555555571    ILL-     ?
           611  06172215050455555573    FORMED   >
           612  14171607555555555571    LONG     ?
           613  56555555555555555566    ,        !
           614  04110711242355555573    DIGITS   >
           615  24222516030124050476    TRUNCATED^
           616  04110711245555555572    DIGIT    <
           617  23311502171411035575    SYMBOLIC \
           620  04111505162311171676    DIMENSION^
           621  02172516045555555572    BOUND    <
           622  14172705225555555572    LOWER    <
           623  25202005225555555572    UPPER    <
           624  23113205555555555571    SIZE     ?
           625  01041225232401021405    ADJUSTABLE
           626  04111505162311171623    DIMENSIONS
           627  35474735364634555574    2**23-1  @
           630  20221117225555555572    PRIOR    <
           631  22052401111605045575    RETAINED \
           632  17200522012411171676    OPERATION^
           633  14012324555555555571    LAST     ?
           634  10012605555555555571    HAVE     ?
           635  11541534561535561536    I=M1,M2,M3
           636  15345615355555555572    M1,M2    <
           637  14171720555555555571    LOOP     ?
           640  27111414555555555571    WILL     ?
           641  05300503252405555574    EXECUTE  @
           642  10110710555555555571    HIGH     ?
           643  23101722245555555572    SHORT    <
           644  14171720235555555572    LOOPS    <
           645  23051405032405045575    SELECTED \
           646  11160405305555555572    INDEX    <
           647  23111520140555555573    SIMPLE   >
           650  24220116230605225575    TRANSFER \
           651  22011607055555555572    RANGE    <
           652  22050405061116052376    REDEFINES^
           653  02050617220555555573    BEFORE   >
           654  05212501145555555572    EQUAL    <
           655  23110716555555555571    SIGN     ?
           656  03171603142523111716    CONCLUSION
           657  03171520111405045575    COMPILED \
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    47
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           660  04050611161124111716    DEFINITION
           661  04174611152014110504    DO-IMPLIED
           662  14052323555555555571    LESS     ?
           663  24100116555555555571    THAN     ?
           664  01142405221601240576    ALTERNATE^
           665  11162311040555555573    INSIDE   >
           666  14051607241023555574    LENGTHS  @
           667  04112301072205055575    DISAGREE \
           670  05212511260114051600    EQUIVALEN 
           671  03055555555555555567    CE       &
           672  15172205555555555571    MORE     ?
           673  24221126110114555574    TRIVIAL  @
           674  15051502052255555573    MEMBER   >
           675  03050455555555555570    CED      '
           676  27101103105555555572    WHICH    <
           677  23200503110611030100    SPECIFICA 
           700  24111716555555555571    TION     ?
           701  05302405162311171676    EXTENSION^
           702  17221107111655555573    ORIGIN   >
           703  03012523052355555573    CAUSES   >
           704  04050314012205045575    DECLARED \
           705  06111405555555555571    FILE     ?
           706  16011505565555555572    NAME,    <
           707  06171414172705045575    FOLLOWED \
           710  16251502052255555573    NUMBER   >
           711  02250606052255555573    BUFFER   >
           712  36413333333302555574    360000B  @
           713  22050317220455555573    RECORD   >
           714  17032401145555555572    OCTAL    <
           715  36424242424202555574    377777B  @
           716  37445555555555555567    49       &
           717  06111405235555555572    FILES    <
           720  06172215012455555573    FORMAT   >
           721  04555555555555555566    D        !
           722  15555555555555555566    M        !
           723  23200503110611050476    SPECIFIED^
           724  05041124555555555571    EDIT     ?
           725  04052303221120241722    DESCRIPTOR
           726  24555555555555555566    T        !
           727  44555555555555555566    9        !
           730  14052605142355555573    LEVELS   >
           731  27110424105555555572    WIDTH    <
           732  23110716050455555573    SIGNED   >
           733  20555555555555555566    P        !
           734  24145555555555555567    TL       &
           735  02010313232001030504    BACKSPACED
           736  02053117160455555573    BEYOND   >
           737  34232455555555555570    1ST      '
           740  03171425151655555573    COLUMN   >
           741  20171116240522555574    POINTER  @
           742  22052305245555555572    RESET    <
           743  36424242424255555573    377777   >
           744  03171425151623555574    COLUMNS  @
           745  34364255555555555570    137      '
           746  05300305050455555573    EXCEED   >
           747  11501755555555555570    I/O      '
           750  04052611030555555573    DEVICE   >
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    48
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           751  05302422011605172523    EXTRANEOUS
           752  04050311150114555574    DECIMAL  @
           753  20171116245555555572    POINT    <
           754  15111611152515555574    MINIMUM  @
           755  22052125112205045575    REQUIRED \
           756  25160201140116030504    UNBALANCED
           757  16053024555555555571    NEXT     ?
           760  14111605555555555571    LINE     ?
           761  03171520252405045575    COMPUTED \
           762  24220116230605222376    TRANSFERS^
           763  11242305140655555573    ITSELF   >
           764  23242211160755555573    STRING   >
           765  24052215111601145575    TERMINAL \
           766  04051411151124052276    DELIMITER^
           767  05142305110655555573    ELSEIF   >
           770  24052215111601241722    TERMINATOR
           771  24221725021405555574    TROUBLE  @
           772  23240122240504555574    STARTED  @
           773  36555555555555555566    3        !
           774  02220116031055555573    BRANCH   >
           775  23242225032425220576    STRUCTURE^
           776  24100516555555555571    THEN     ?
           777  24052215111601240576    TERMINATE^
          1000  27112410111655555573    WITHIN   >
          1001  25160314172305045575    UNCLOSED \
          1002  03171606112215111607    CONFIRMING
          1003  17260522221104040516    OVERRIDDEN
          1004  02052427050516555574    BETWEEN  @
          1005  41335555555555555567    60       &
          1006  23101106245555555572    SHIFT    <
          1007  46413355555555555570    -60      '
          1010  14051655555555555570    LEN      '
          1011  25161124555555555571    UNIT     ?
          1012  23200503110611052276    SPECIFIER^
          1013  22050104555555555571    READ     ?
          1014  20221116245555555572    PRINT    <
          1015  33464444445555555572    0-999    <
          1016  11152014110504555574    IMPLIED  @
          1017  13053127172204555574    KEYWORD  @
          1020  05302422015555555572    EXTRA    <
          1021  14050701145555555572    LEGAL    <
          1022  01142205010431555574    ALREADY  @
          1023  05222255555555555570    ERR      '
          1024  11162125112205555574    INQUIRE  @
          1025  23200503110631555574    SPECIFY  @
          1026  02172410555555555571    BOTH     ?
          1027  02250614555555555571    BUFL     ?
          1030  11162405221601145575    INTERNAL \
          1031  04112205032455555573    DIRECT   >
          1032  01030305232355555573    ACCESS   >
          1033  06220505555555555571    FREE     ?
          1034  07220501240522555574    GREATER  @
          1035  27112410172524555574    WITHOUT  @
          1036  01040422052323555574    ADDRESS  @
          1037  04112205032411171676    DIRECTION^
          1040  17252455555555555570    OUT      '
          1041  20012211243155555573    PARITY   >
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    49
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
          1042  14270155555555555570    LWA      '
          1043  06270155555555555570    FWA      '
          1044  11160411030124172276    INDICATOR^
          1045  23011505555555555571    SAME     ?
          1046  03140123235555555572    CLASS    <
          1047  04112205032405045575    DIRECTED \
          1050  17252420252455555573    OUTPUT   >
          1051  11162025245555555572    INPUT    <
          1052  23240124051505162423    STATEMENTS
          1053  11240515555555555571    ITEM     ?
          1054  23030114012255555573    SCALAR   >
          1055  27100516555555555571    WHEN     ?
          1056  25231116075555555572    USING    <
          1057  05160317040555555573    ENCODE   >
          1060  04050317040555555573    DECODE   >
          1061  23030116555555555571    SCAN     ?
          1062  23241720200504555574    STOPPED  @
          1063  03171520141103012400    COMPLICAT 
          1064  33565555555555555567    0,       &
          1065  35555555555555555566    2        !
          1066  06171414172755555573    FOLLOW   >
          1067  14052605145555555572    LEVEL    <
          1070  15251424112014315575    MULTIPLY \
          1071  17030325225555555572    OCCUR    <
          1072  06172224220116555574    FORTRAN  @
          1073  23250220221707220115    SUBPROGRAM
          1074  34445555555555555567    19       &
          1075  03171624111625012400    CONTINUAT 
          1076  11171655555555555570    ION      '
          1077  14111605235555555572    LINES    <
          1100  15112320140103050476    MISPLACED^
          1101  01022305162455555573    ABSENT   >
          1102  10050104052255555573    HEADER   >
          1103  03012204555555555571    CARD     ?
          1104  11152014110311245575    IMPLICIT \
          1105  24220111141116075575    TRAILING \
          1106  22050605220516030504    REFERENCED
          1107  02252455555555555570    BUT      '
          1110  20012410555555555571    PATH     ?
          1111  05162411220555555573    ENTIRE   >
          1112  17260522140131555574    OVERLAY  @
          1113  20052211170455555573    PERIOD   >
          1114  03171624011116050476    CONTAINED^
          1115  17260301205555555572    OVCAP    <
          1116  23250222172524111600    SUBROUTIN 
          1117  05235555555555555567    ES       &
          1120  23240122245755555573    START.   >
          1121  17220405225555555572    ORDER    <
          1122  24010214055555555572    TABLE    <
          1123  17260522061417275575    OVERFLOW \
          1124  22050425030555555573    REDUCE   >
          1125  23311502171423555574    SYMBOLS  @
          1126  35474734424634555574    2**17-1  @
          1127  11160322050123055575    INCREASE \
          1130  22052225165555555572    RERUN    <
          1131  20220502111601223176    PREBINARY^
          1132  23201114142355555573    SPILLS   >
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    50
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
          1133  04112313555555555571    DISK     ?
          1134  24102205231017140476    THRESHOLD^
          1135  22050103100504555574    REACHED  @
          1136  14111613555555555571    LINK     ?
          1137  06111414555555555571    FILL     ?
          1140  24010214052355555573    TABLES   >
          1141  03155555555555555567    CM       &
          1142  03220123105555555572    CRASH    <
          1143  17260522140131235575    OVERLAYS \
          1144  15010310111605555574    MACHINE  @
          1145  04052005160405162476    DEPENDENT^
          1146  05160317040550040500    ENCODE/DE 
          1147  03170405555555555571    CODE     ?
          1150  14110222012231555574    LIBRARY  @
          1151  06251603241117162376    FUNCTIONS^
          1152  04012405565555555572    DATE,    <
          1153  24111505565555555572    TIME,    <
          1154  03141703135555555572    CLOCK    <
          1155  17260301202355555573    OVCAPS   >
          1156  03171623240116245676    CONSTANT,^
          1157  05260114250124010200    EVALUATAB 
          1160  14055555555555555567    LE       &
          1161  05302017160516241100    EXPONENTI 
          1162  01241117165555555572    ATION    <
          1163  25161126052223011476    UNIVERSAL^
          1164  22050425160401162400    REDUNDANT 
          1165  14315555555555555567    LY       &
          1166  15010716112425040576    MAGNITUDE^
          1167  26111714012405235575    VIOLATES \
          1170  04170523555555555571    DOES     ?
          1171  15012403105555555572    MATCH    <
          1172  22050325222311260576    RECURSIVE^
          1173  17160305555555555571    ONCE     ?
          1174  25161501240310050476    UNMATCHED^
          1175  11160411220503241431    INDIRECTLY
          1176  22050605220516030523    REFERENCES
          1177  01032425011455555573    ACTUAL   >
          1200  01072205055555555572    AGREE    <
          1201  01030305202455555573    ACCEPT   >
          1202  22052325142455555573    RESULT   >
          1203  27012355555555555570    WAS      '
          1204  03141723050455555573    CLOSED   >
          1205  40555555555555555566    5        !
          1206  03252222051624555574    CURRENT  @
          1207  20220503050504050476    PRECEEDED^
          1210  23250223242211160700    SUBSTRING 
          1211  03171603012405160100    CONCATENA 
          1212  10052205555555555571    HERE     ?
          1213  03171623112324051624    CONSISTENT
          1214  27221716075555555572    WRONG    <
          1215  01232311071605045575    ASSIGNED \
          1216  05172355555555555570    EOS      '
          1217  24312011160755555573    TYPING   >
          1220  22052431201116075575    RETYPING \
          1221  03100122555555555571    CHAR     ?
          1222  51555555555555555566    (        !
          1223  52555555555555555566    )        !
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    51
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
          1224  47555555555555555566    *        !
          1225  35474734404634555574    2**15-1  @
          1226  15170411061105045575    MODIFIED \
          1227  11160716172205045575    INGNORED \
          1230  25160405031401220504    UNDECLARED
          1231  23110405555555555571    SIDE     ?
          1232  47475555555555555567    **       &
          1233  11160405061116112405    INDEFINITE
          1234  16050701241126055575    NEGATIVE \
          1235  05260114250124050476    EVALUATED^
          1236  24252220140555555573    TURPLE   >
          1237  11141455555555555570    ILL      '
          1240  23130514555555555571    SKEL     ?
  
          3134                                    END                                                            FERRS     946
  
                             76300B CM  STORAGE USED            82178 STATEMENTS     1949 SYMBOLS      000030 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           24.079 SECONDS        2438 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/51 X   29/16
        BUFERR          0   EXTERNAL*       4/51 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/45 X   25/53
        DATA2           0   EXTERNAL*       4/39 X   19/06     19/07
        DAT.Z           0   EXTERNAL*       4/39 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
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        END23           0   EXTERNAL*       4/54 X   32/16
        EQS80           0   EXTERNAL*       4/42 X   23/05     23/07     23/08
        ERL=CON       324   PROGRAM*       14/15 E
        ERL=XPR       323   PROGRAM*       14/14 E
        ERR.A           0   EXTERNAL*       5/06 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/06 X   33/18     33/19     33/20     33/22     33/28
        ERR.F           0   EXTERNAL*       5/06 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     40/46
        ERR.K           0   EXTERNAL*      32/40
        ERR.M           0   EXTERNAL*      34/03     34/04     34/05     34/06     34/07     34/09
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        ERR.T           0   EXTERNAL*       5/06 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
        ERR.W           0   EXTERNAL*       5/06 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       1275   PROGRAM*       15/36 E   15/36 D
        E.AG01       1277   PROGRAM*       15/38 E   15/38 D
        E.AG02       1251   PROGRAM*       15/39 D   15/39 E
        E.AG03       1301   PROGRAM*       15/40 E   15/40 D
        E.AG04       1303   PROGRAM*       15/41 E   15/41 D
        E.AG07       1305   PROGRAM*       15/43 E   15/43 D   17/36
        E.AG08          5   PROGRAM*       15/45 E   15/45 L
        E.AG11       1311   PROGRAM*       15/46 E   15/46 D
        E.AG12       1313   PROGRAM*       15/47 E   15/47 D
        E.ANS        1257   PROGRAM*       15/22 E   15/22 D
        E.ANS1       1261   PROGRAM*       15/23 E   15/23 D
        E.ANS2       1263   PROGRAM*       15/24 E   15/24 D
        E.ANS3          4   PROGRAM*       15/25 E   15/25 L
        E.ANS4       1267   PROGRAM*       15/26 E   15/26 D
        E.ANS5       1271   PROGRAM*       15/27 E   15/27 D
        E.ANS6       1273   PROGRAM*       15/28 E   15/28 D
        E.AS1        1251   PROGRAM*       16/04 D   16/04 E
        E.AS2        1315   PROGRAM*       16/05 E   16/05 D
        E.AS3        1316   PROGRAM*       16/06 E   16/06 D
        E.AS4           6   PROGRAM*       16/07 E   16/07 L   22/09
        E.AS5        1321   PROGRAM*       16/08 E   16/08 D
        E.AS6        1323   PROGRAM*       16/09 E   16/09 D
        E.AS7        1253   PROGRAM*       16/11 D   16/11 E
        E.AT01       1326   PROGRAM*       17/04 E   17/04 D
        E.AT02       1330   PROGRAM*       17/05 E   17/05 D
        E.AT03       1332   PROGRAM*       17/07 E   17/07 D
        E.AT04       1334   PROGRAM*       17/08 E   17/08 D
        E.AT05       1336   PROGRAM*       17/09 E   17/09 D
        E.AT06       1341   PROGRAM*       17/11 E   17/11 D
        E.AT07       1343   PROGRAM*       17/12 E   17/12 D
        E.AT08       1344   PROGRAM*       17/13 E   17/13 D
        E.AT09       1345   PROGRAM*       17/14 E   17/14 D
        E.AT10       1347   PROGRAM*       17/15 E   17/15 D
        E.AT11       1351   PROGRAM*       17/16 E   17/16 D
        E.AT13       1353   PROGRAM*       17/17 E   17/17 D
        E.AT14       1355   PROGRAM*       17/19 E   17/19 D
        E.AT15       1357   PROGRAM*       17/21 E   17/21 D
        E.AT16       1361   PROGRAM*       17/22 E   17/22 D
        E.AT17       1363   PROGRAM*       17/23 E   17/23 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        E.AT18       1364   PROGRAM*       17/24 E   17/24 D
        E.AT19       1366   PROGRAM*       17/25 E   17/25 D
        E.AT20       1370   PROGRAM*       17/27 E   17/27 D
        E.AT21       1372   PROGRAM*       17/28 E   17/28 D
        E.CL1        1305   PROGRAM*       17/36 D   17/36 E
        E.CL2           7   PROGRAM*       17/37 E   17/37 L
        E.CL3        1376   PROGRAM*       17/38 E   17/38 D
        E.CL4        1400   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       1422   PROGRAM*       18/19 E   18/19 D
        E.CM11       1424   PROGRAM*       18/21 E   18/21 D
        E.CM12       1426   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        1416   PROGRAM*       18/16 E   18/16 D
        E.CM9        1420   PROGRAM*       18/17 E   18/17 D
        E.CT           16   PROGRAM*       18/31 E   18/31 L
        E.CT1        1251   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       1443   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       1251   PROGRAM*       18/52 D   18/52 E
        E.C$11         27   PROGRAM*       18/53 E   18/53 L
        E.C$15       1456   PROGRAM*       18/54 E   18/54 D
        E.DABC       1460   PROGRAM*       19/04 E   19/04 D
        E.DABL       1462   PROGRAM*       19/05 E   19/05 D
        E.DACV         30   PROGRAM*       19/06 E   19/06 L
        E.DAR        1467   PROGRAM*       19/09 E   19/09 D
        E.DAUC       1471   PROGRAM*       19/10 E   19/10 D
        E.DAVC         31   PROGRAM*       19/07 E   19/07 L
        E.DC         1524   PROGRAM*       20/04 E   20/04 D
        E.DCE          32   PROGRAM*       19/11 E   19/11 L
        E.DC1        1525   PROGRAM*       20/05 E   20/05 D
        E.DC10       1542   PROGRAM*       20/13 E   20/13 D
        E.DC3        1527   PROGRAM*       20/06 E   20/06 D
        E.DC4        1531   PROGRAM*       20/07 E   20/07 D
        E.DC6        1533   PROGRAM*       20/09 E   20/09 D
        E.DC7        1535   PROGRAM*       20/10 E   20/10 D
        E.DC8        1536   PROGRAM*       20/11 E   20/11 D
        E.DC9        1540   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       1544   PROGRAM*       21/04 E   21/04 D
        E.DM01       1546   PROGRAM*       21/05 E   21/05 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        E.DM02       1550   PROGRAM*       21/06 E   21/06 D
        E.DM03       1552   PROGRAM*       21/08 E   21/08 D
        E.DM04       1554   PROGRAM*       21/10 E   21/10 D
        E.DM05       1556   PROGRAM*       21/12 E   21/12 D
        E.DM06       1560   PROGRAM*       21/13 E   21/13 D
        E.DM07       1562   PROGRAM*       21/14 E   21/14 D
        E.DM08       1564   PROGRAM*       21/16 E   21/16 D
        E.DM09       1566   PROGRAM*       21/17 E   21/17 D
        E.DM10         40   PROGRAM*       21/19 E   21/19 L
        E.DM11       1572   PROGRAM*       21/21 E   21/21 D
        E.DM12       1575   PROGRAM*       21/23 E   21/23 D
        E.DM13       1577   PROGRAM*       21/24 E   21/24 D
        E.DM14       1601   PROGRAM*       21/25 E   21/25 D
        E.DM15       1243   PROGRAM*       21/27 D   21/27 E
        E.DM16          1   PROGRAM*       21/28 D   21/28 E
        E.DM17       1603   PROGRAM*       21/29 E   21/29 D
        E.DM18       1606   PROGRAM*       21/31 E   21/31 D
        E.DM19       1611   PROGRAM*       21/33 E   21/33 D
        E.DM20       1613   PROGRAM*       21/34 E   21/34 D
        E.DM21       1615   PROGRAM*       21/35 E   21/35 D
        E.DO00       1617   PROGRAM*       22/04 E   22/04 D
        E.DO01       1621   PROGRAM*       22/05 E   22/05 D
        E.DO02       1623   PROGRAM*       22/06 E   22/06 D
        E.DO03       1625   PROGRAM*       22/07 E   22/07 D
        E.DO04       1627   PROGRAM*       22/08 E   22/08 D
        E.DO05          6   PROGRAM*       22/09 D   22/09 E
        E.DO06       1631   PROGRAM*       22/10 E   22/10 D
        E.DO07       1633   PROGRAM*       22/11 E   22/11 D
        E.DO08         41   PROGRAM*       22/12 E   22/12 L
        E.DO09       1637   PROGRAM*       22/13 E   22/13 D
        E.DO10       1641   PROGRAM*       22/15 E   22/15 D
        E.DO12       1643   PROGRAM*       22/16 E   22/16 D
        E.DO13       1645   PROGRAM*       22/17 E   22/17 D
        E.DO14         42   PROGRAM*       22/18 E   22/18 L
        E.DO15       1651   PROGRAM*       22/19 E   22/19 D
        E.DO16       1653   PROGRAM*       22/20 E   22/20 D
        E.DO17       1655   PROGRAM*       22/21 E   22/21 D
        E.DO18       1657   PROGRAM*       22/22 E   22/22 D
        E.DO19       1661   PROGRAM*       22/23 E   22/23 D
        E.DO20       1663   PROGRAM*       22/24 E   22/24 D
        E.DSE        1506   PROGRAM*       19/19 E   19/19 D
        E.DVL1       1510   PROGRAM*       19/20 E   19/20 D
        E.DVR1       1512   PROGRAM*       19/21 E   19/21 D
        E.DVR2       1514   PROGRAM*       19/22 E   19/22 D
        E.DVR3       1516   PROGRAM*       19/23 E   19/23 D
        E.DVR4       1520   PROGRAM*       19/24 E   19/24 D
        E.DVR5       1522   PROGRAM*       19/25 E   19/25 D
        E.EN         1665   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        1677   PROGRAM*       22/38 E   22/38 D
        E.EN6        1702   PROGRAM*       22/40 E   22/40 D
        E.EN7        1704   PROGRAM*       22/41 E   22/41 D
        E.EN8        1706   PROGRAM*       22/43 E   22/43 D
        E.EQ           47   PROGRAM*       23/04 E   23/04 L
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        E.EQ1          50   PROGRAM*       23/05 E   23/05 L
        E.EQ10       1727   PROGRAM*       23/18 E   23/18 D
        E.EQ11       1731   PROGRAM*       23/19 E   23/19 D
        E.EQ12       1733   PROGRAM*       23/20 E   23/20 D
        E.EQ13       1735   PROGRAM*       23/21 E   23/21 D
        E.EQ14       1737   PROGRAM*       23/23 E   23/23 D
        E.EQ15       1741   PROGRAM*       23/24 E   23/24 D
        E.EQ16       1744   PROGRAM*       23/26 E   23/26 D
        E.EQ17       1746   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        1720   PROGRAM*       23/09 E   23/09 D
        E.EQ7        1722   PROGRAM*       23/14 E   23/14 D
        E.EQ8        1725   PROGRAM*       23/16 E   23/16 D
        E.EX1        1750   PROGRAM*       24/04 E   24/04 D
        E.EX2        1243   PROGRAM*       24/05 D   24/05 E
        E.EX3           1   PROGRAM*       24/06 D   24/06 E
        E.EX4        1752   PROGRAM*       24/07 E   24/07 D
        E.FD         1754   PROGRAM*       24/16 E   24/16 D
        E.FD1        1756   PROGRAM*       24/17 E   24/17 D
        E.FD10       2000   PROGRAM*       24/33 E   24/33 D
        E.FD11       1251   PROGRAM*       24/34 D   24/34 E
        E.FD12       2002   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       2004   PROGRAM*       25/04 E   25/04 D
        E.FS01       2006   PROGRAM*       25/05 E   25/05 D
        E.FS02       2011   PROGRAM*       25/07 E   25/07 D
        E.FS03       2013   PROGRAM*       25/08 E   25/08 D
        E.FS04       2015   PROGRAM*       25/09 E   25/09 D
        E.FS05       2017   PROGRAM*       25/11 E   25/11 D
        E.FS06       2021   PROGRAM*       25/13 E   25/13 D
        E.FS07       2023   PROGRAM*       25/15 E   25/15 D
        E.FS08       2025   PROGRAM*       25/16 E   25/16 D
        E.FS09       2027   PROGRAM*       25/17 E   25/17 D
        E.FS10       2032   PROGRAM*       25/19 E   25/19 D
        E.FS11       2034   PROGRAM*       25/20 E   25/20 D
        E.FS12       2036   PROGRAM*       25/21 E   25/21 D
        E.FS13       2040   PROGRAM*       25/23 E   25/23 D
        E.FS14       2043   PROGRAM*       25/25 E   25/25 D
        E.FS15       2044   PROGRAM*       25/26 E   25/26 D
        E.FS16       2046   PROGRAM*       25/28 E   25/28 D
        E.FS17       2051   PROGRAM*       25/30 E   25/30 D
        E.FS18          3   PROGRAM*       25/32 D   25/32 E
        E.FS19       2054   PROGRAM*       25/33 E   25/33 D
        E.FS20       2055   PROGRAM*       25/34 E   25/34 D
        E.FS21       2056   PROGRAM*       25/35 E   25/35 D
        E.FS22       2060   PROGRAM*       25/37 E   25/37 D
        E.FS23       2062   PROGRAM*       25/38 E   25/38 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        E.FS24       2064   PROGRAM*       25/40 E   25/40 D
        E.FS25       2067   PROGRAM*       25/42 E   25/42 D
        E.FS26       2070   PROGRAM*       25/43 E   25/43 D
        E.GE            0   PROGRAM*       15/05 E   15/05 L   34/36     36/04
        E.GE1        1243   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        1251   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        1253   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        2077   PROGRAM*       25/54 E   25/54 D
        E.GO4        2101   PROGRAM*       25/55 E   25/55 D
        E.GO5        2103   PROGRAM*       25/56 E   25/56 D
        E.GO6        2105   PROGRAM*       25/57 E   25/57 D
        E.GO7        2107   PROGRAM*       26/01 E   26/01 D
        E.GO8        2110   PROGRAM*       26/02 E   26/02 D
        E.GO9        1251   PROGRAM*       26/03 D   26/03 E
        E.HC1        2112   PROGRAM*       26/11 E   26/11 D
        E.HC2        2114   PROGRAM*       26/12 E   26/12 D
        E.HC3        2116   PROGRAM*       26/13 E   26/13 D
        E.IF00         67   PROGRAM*       26/21 E   26/21 L
        E.IF01       2121   PROGRAM*       26/22 E   26/22 D
        E.IF02       2123   PROGRAM*       26/23 E   26/23 D
        E.IF03         70   PROGRAM*       26/24 E   26/24 L
        E.IF04       2127   PROGRAM*       26/26 E   26/26 D
        E.IF05       2131   PROGRAM*       26/27 E   26/27 D
        E.IF06         71   PROGRAM*       26/29 E   26/29 L
        E.IF07       2135   PROGRAM*       26/30 E   26/30 D
        E.IF08       1251   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       2150   PROGRAM*       26/37 E   26/37 D
        E.IF15       2152   PROGRAM*       26/38 E   26/38 D
        E.IF16       2154   PROGRAM*       26/39 E   26/39 D
        E.IF17       2156   PROGRAM*       26/40 E   26/40 D
        E.IN           77   PROGRAM*       26/48 E   26/48 L
        E.INF        2172   PROGRAM*       27/03 E   27/03 D
        E.INF1       2174   PROGRAM*       27/04 E   27/04 D
        E.INF2       2176   PROGRAM*       27/05 E   27/05 D
        E.INF3       2200   PROGRAM*       27/06 E   27/06 D
        E.INI        2460   PROGRAM*       32/10 E   32/10 D
        E.IN1        2162   PROGRAM*       26/50 E   26/50 D
        E.IN2        2164   PROGRAM*       26/51 E   26/51 D
        E.IN3        2166   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
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        E.IOB5        126   PROGRAM*       29/10 E   29/10 L
        E.IOB6        127   PROGRAM*       29/11 E   29/11 L
        E.IOB7       2330   PROGRAM*       29/13 E   29/13 D
        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       2362   PROGRAM*       29/51 E   29/51 D
        E.IOF2        140   PROGRAM*       29/52 E   29/52 L
        E.IOL1       2345   PROGRAM*       29/36 E   29/36 D
        E.IOL2       2347   PROGRAM*       29/37 E   29/37 D
        E.IOL5       2351   PROGRAM*       29/38 E   29/38 D
        E.IOL6       2353   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        2366   PROGRAM*       30/04 E   30/04 D
        E.ION1       2370   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       2406   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       2202   PROGRAM*       28/04 E   28/04 D
        E.IO01        101   PROGRAM*       28/05 E   28/05 L
        E.IO02       2205   PROGRAM*       28/06 E   28/06 D
        E.IO03       2210   PROGRAM*       28/08 E   28/08 D
        E.IO04       2212   PROGRAM*       28/09 E   28/09 D
        E.IO05       2214   PROGRAM*       28/11 E   28/11 D
        E.IO06       2216   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       2224   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       2236   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       2245   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       2255   PROGRAM*       28/35 E   28/35 D
        E.IO23       2257   PROGRAM*       28/36 E   28/36 D
        E.IO24       2261   PROGRAM*       28/37 E   28/37 D
        E.IO25        116   PROGRAM*       28/39 E   28/39 L
        E.IO26       2265   PROGRAM*       28/40 E   28/40 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        E.IO28        117   PROGRAM*       28/41 E   28/41 L
        E.IO29        120   PROGRAM*       28/42 E   28/42 L
        E.IO30       2273   PROGRAM*       28/43 E   28/43 D
        E.IO31       2275   PROGRAM*       28/45 E   28/45 D
        E.IO32       2277   PROGRAM*       28/46 E   28/46 D
        E.IO33       2301   PROGRAM*       28/48 E   28/48 D
        E.IO34       2303   PROGRAM*       28/49 E   28/49 D
        E.IO35       2305   PROGRAM*       28/50 E   28/50 D
        E.IO36       2307   PROGRAM*       28/52 E   28/52 D
        E.IO37       1251   PROGRAM*       28/54 D   28/54 E
        E.LP1        2414   PROGRAM*       31/04 E   31/04 D
        E.LP2        2417   PROGRAM*       31/06 E   31/06 D
        E.LP3        2422   PROGRAM*       31/08 E   31/08 D
        E.LV1         152   PROGRAM*       31/17 E   31/17 L
        E.LV11       2446   PROGRAM*       31/30 E   31/30 D
        E.LV2        2426   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        2436   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        2444   PROGRAM*       31/28 E   31/28 D
        E.MA          161   PROGRAM*       32/05 E   32/05 L
        E.MB         2454   PROGRAM*       32/07 E   32/07 D
        E.MCA        2456   PROGRAM*       32/09 E   32/09 D
        E.MD          162   PROGRAM*       32/14 E   32/14 L
        E.MDE1       2544   PROGRAM*       34/03 E   34/03 D
        E.MDE2       2545   PROGRAM*       34/04 E   34/04 D
        E.MDE3       2547   PROGRAM*       34/05 E   34/05 D
        E.MDE4       2551   PROGRAM*       34/06 E   34/06 D
        E.MDE5       2553   PROGRAM*       34/07 E   34/07 D
        E.MDE6       2555   PROGRAM*       34/09 E   34/09 D
        E.MDO        2465   PROGRAM*       32/15 E   32/15 D
        E.ME          163   PROGRAM*       32/16 E   32/16 L
        E.ME1        1251   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        2527   PROGRAM*       33/14 E   33/14 D
        E.MO2        2530   PROGRAM*       33/15 E   33/15 D
        E.MO4        2532   PROGRAM*       33/18 E   33/18 D
        E.MO5        2533   PROGRAM*       33/19 E   33/19 D
        E.MO6        2535   PROGRAM*       33/20 E   33/20 D
        E.MO7        2537   PROGRAM*       33/22 E   33/22 D
        E.MO8        2541   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         2501   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         2503   PROGRAM*       32/27 E   32/27 D
        E.NP1         171   PROGRAM*       32/28 E   32/28 L
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        E.OV1         172   PROGRAM*       32/30 E   32/30 L
        E.OV2        2511   PROGRAM*       32/32 E   32/32 D
        E.OV3         173   PROGRAM*       32/33 E   32/33 L
        E.OV4        2515   PROGRAM*       32/34 E   32/34 D
        E.PN1        2517   PROGRAM*       32/36 E   32/36 D
        E.PN3        2521   PROGRAM*       32/37 E   32/37 D
        E.PX1        2571   PROGRAM*       34/32 E   34/32 D
        E.PX2        2573   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        2601   PROGRAM*       34/37 E   34/37 D
        E.PX7        2603   PROGRAM*       34/39 E   34/39 D
        E.PX8           3   PROGRAM*       34/40 D   34/40 E
        E.SA         2605   PROGRAM*       34/48 E   34/48 D
        E.SA1         204   PROGRAM*       34/50 E   34/50 L
        E.SA2        2611   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        2617   PROGRAM*       34/55 E   34/55 D
        E.SA6        2621   PROGRAM*       34/56 E   34/56 D
        E.SB2        2623   PROGRAM*       35/04 E   35/04 D
        E.SB3        2625   PROGRAM*       35/05 E   35/05 D
        E.SB4        2627   PROGRAM*       35/06 E   35/06 D
        E.SB5        2631   PROGRAM*       35/08 E   35/08 D
        E.SB6        2633   PROGRAM*       35/10 E   35/10 D
        E.SB7        2635   PROGRAM*       35/12 E   35/12 D
        E.SEQ        2523   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       2645   PROGRAM*       36/11 E   36/11 D
        E.SF05       2647   PROGRAM*       36/13 E   36/13 D
        E.SF06       2651   PROGRAM*       36/15 E   36/15 D
        E.SF07       2653   PROGRAM*       36/17 E   36/17 D
        E.SF08        212   PROGRAM*       36/19 E   36/19 L
        E.SF09       2657   PROGRAM*       36/21 E   36/21 D
        E.SF10       2661   PROGRAM*       36/23 E   36/23 D
        E.SF11       2663   PROGRAM*       36/25 E   36/25 D
        E.SF12       2665   PROGRAM*       36/27 E   36/27 D
        E.SF13       2670   PROGRAM*       36/29 E   36/29 D
        E.SF14       2673   PROGRAM*       36/31 E   36/31 D
        E.SF15       2675   PROGRAM*       36/33 E   36/33 D
        E.SL00       2700   PROGRAM*       37/04 E   37/04 D
        E.SL01       2702   PROGRAM*       37/05 E   37/05 D
        E.SL02       2704   PROGRAM*       37/06 E   37/06 D
        E.SL03       2706   PROGRAM*       37/08 E   37/08 D
        E.SL04       2710   PROGRAM*       37/10 E   37/10 D
        E.SL05       2712   PROGRAM*       37/12 E   37/12 D
        E.SL06       2714   PROGRAM*       37/13 E   37/13 D
        E.SL07       2716   PROGRAM*       37/15 E   37/15 D
        E.SL08       2720   PROGRAM*       37/16 E   37/16 D
        E.SL09       2722   PROGRAM*       37/18 E   37/18 D
        E.SL10       2725   PROGRAM*       37/20 E   37/20 D
        E.SL11       2727   PROGRAM*       37/22 E   37/22 D
        E.SL12       2731   PROGRAM*       37/24 E   37/24 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        E.SL13       2733   PROGRAM*       37/26 E   37/26 D
        E.SL14       2735   PROGRAM*       37/28 E   37/28 D
        E.SL15       2737   PROGRAM*       37/29 E   37/29 D
        E.SL16       2741   PROGRAM*       37/30 E   37/30 D
        E.SL17       2743   PROGRAM*       37/31 E   37/31 D
        E.SL18        213   PROGRAM*       37/33 E   37/33 L
        E.SL19       2747   PROGRAM*       37/34 E   37/34 D
        E.SL20       2750   PROGRAM*       37/35 E   37/35 D
        E.SPR1       2757   PROGRAM*       38/04 E   38/04 D
        E.SPR2       2761   PROGRAM*       38/05 E   38/05 D
        E.SPR4       1251   PROGRAM*       38/06 D   38/06 E
        E.SPR5       2763   PROGRAM*       38/07 E   38/07 D   38/29
        E.ST         2753   PROGRAM*       37/44 E   37/44 D
        E.STO        2525   PROGRAM*       32/40 E   32/40 D
        E.ST1        2755   PROGRAM*       37/45 E   37/45 D
        E.SU01       2765   PROGRAM*       38/15 E   38/15 D
        E.SU02       2767   PROGRAM*       38/17 E   38/17 D
        E.SU03       2771   PROGRAM*       38/19 E   38/19 D
        E.SU04       2774   PROGRAM*       38/21 E   38/21 D
        E.SU05       2776   PROGRAM*       38/22 E   38/22 D
        E.SU06       3000   PROGRAM*       38/23 E   38/23 D
        E.SU07       3003   PROGRAM*       38/25 E   38/25 D
        E.SU08       3005   PROGRAM*       38/26 E   38/26 D
        E.SU09       3007   PROGRAM*       38/27 E   38/27 D
        E.SU10       3011   PROGRAM*       38/28 E   38/28 D
        E.SU11       2763   PROGRAM*       38/29 D   38/29 E
        E.TC1        2543   PROGRAM*       33/28 E   33/28 D
        E.TLBL       2462   PROGRAM*       32/12 E   32/12 D
        E.TY         1243   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       3050   PROGRAM*       39/30 E   39/30 D
        E.TYI4       3052   PROGRAM*       39/32 E   39/32 D
        E.TYI5       3054   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       3062   PROGRAM*       39/37 E   39/37 D
        E.TYI9       3064   PROGRAM*       39/38 E   39/38 D
        E.TY0        3013   PROGRAM*       39/07 E   39/07 D
        E.TY1        3015   PROGRAM*       39/09 E   39/09 D
        E.TY10       3040   PROGRAM*       39/22 E   39/22 D
        E.TY2        3017   PROGRAM*       39/10 E   39/10 D
        E.TY3        3021   PROGRAM*       39/12 E   39/12 D
        E.TY4        3024   PROGRAM*       39/14 E   39/14 D
        E.TY5         214   PROGRAM*       39/15 E   39/15 L
        E.TY6        3030   PROGRAM*       39/16 E   39/16 D
        E.TY7        3031   PROGRAM*       39/17 E   39/17 D
        E.TY8        3033   PROGRAM*       39/18 E   39/18 D
        E.TY9        3036   PROGRAM*       39/20 E   39/20 D
        E.VA00       1253   PROGRAM*       40/04 D   40/04 E
        E.VA01       3066   PROGRAM*       40/05 E   40/05 D
        E.VA02       3070   PROGRAM*       40/06 E   40/06 D
        E.VA03       3072   PROGRAM*       40/08 E   40/08 D
        E.VA04       3074   PROGRAM*       40/10 E   40/10 D
        E.VA05       3076   PROGRAM*       40/12 E   40/12 D
        E.VA06       3100   PROGRAM*       40/14 E   40/14 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        E.VA07       3102   PROGRAM*       40/16 E   40/16 D
        E.VA08       3104   PROGRAM*       40/17 E   40/17 D
        E.VA09        222   PROGRAM*       40/18 E   40/18 L
        E.VA10       3107   PROGRAM*       40/20 E   40/20 D
        E.VA11       3111   PROGRAM*       40/21 E   40/21 D
        E.VA12       3113   PROGRAM*       40/22 E   40/22 D
        E.VA13        223   PROGRAM*       40/24 E   40/24 L
        E.XP1        3117   PROGRAM*       40/32 E   40/32 D
        E.XP3        3121   PROGRAM*       40/33 E   40/33 D
        E.XP4        3123   PROGRAM*       40/34 E   40/34 D
        E.XP5        3125   PROGRAM*       40/35 E   40/35 D
        E.XP6        3127   PROGRAM*       40/36 E   40/36 D
        E.XP7        3131   PROGRAM*       40/37 E   40/37 D
        E.ZEMT       3133   PROGRAM*       40/46 E   40/46 D
        FEC.RTN         0   EXTERNAL*       4/45 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/54 X   26/32
        IMP.ER          0   EXTERNAL*       5/12 X   39/28     39/29     39/35     39/36
        LST             0   EXTERNAL*       4/51 X   28/23
        LVL80           0   EXTERNAL*       4/42 X   31/24     31/26
        LVL90           0   EXTERNAL*       4/42 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/03 X   41/28 S   41/34
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        PEM             0   EXTERNAL*       5/03 X   18/31     22/11     25/43     28/08     29/26     32/18     34/39
                                           15/22     18/41     22/16     25/51     28/09     29/27     32/19     34/48
                                           15/23     18/45     22/17     25/52     28/16     29/36     32/21     36/29
                                           15/25     18/53     22/19     25/53     28/25     29/37     32/24     37/20
                                           15/26     19/06     22/20     25/55     28/26     29/38     32/27     37/24
                                           15/27     19/09     22/21     25/56     28/33     29/41     32/28     37/30
                                           15/28     19/11     22/22     25/57     28/34     29/42     32/30     37/33
                                           15/36     19/12     22/23     26/01     28/35     29/50     32/33     37/34
                                           15/38     19/13     22/24     26/02     28/37     29/51     32/34     38/04
                                           16/08     19/14     22/34     26/11     28/39     29/52     32/36     38/05
                                           17/04     19/16     22/35     26/12     28/40     30/04     32/37     38/07
                                           17/07     19/19     22/36     26/21     28/41     30/05     32/39     38/15
                                           17/09     19/20     22/37     26/22     28/42     30/21     32/40     39/12
                                           17/11     19/24     23/04     26/23     28/43     30/22     33/14     39/14
                                           17/12     19/25     23/09     26/26     28/45     30/24     33/15     39/16
                                           17/13     20/04     24/16     26/27     28/46     30/25     33/18     39/26
                                           17/14     20/05     24/21     26/29     28/48     31/17     33/19     39/37
                                           17/16     20/07     24/29     26/32     28/49     31/18     33/22     39/38
                                           17/17     20/09     24/35     26/33     28/50     31/19     33/25     40/21
                                           17/21     20/10     25/04     26/34     28/52     31/22     34/03     40/32
                                           17/23     20/11     25/07     26/36     29/04     32/04     34/04     40/33
                                           17/28     20/12     25/08     27/03     29/05     32/05     34/05     40/34
                                           17/37     20/13     25/13     27/04     29/06     32/07     34/06     40/35
                                           18/04     21/04     25/17     27/05     29/11     32/09     34/07     40/36
                                           18/05     21/24     25/20     27/06     29/13     32/10     34/09     40/37
                                           18/06     22/04     25/21     28/04     29/14     32/12     34/17     40/46
                                           18/08     22/05     25/33     28/05     29/16     32/15     34/18
                                           18/09     22/06     25/34     28/06     29/25     32/16     34/21
        PEMS            0   EXTERNAL*       5/03 X   18/43     21/25     23/24     28/11     35/04     37/10     39/09
                                           15/12     18/46     21/29     23/26     28/18     35/05     37/12     39/10
                                           15/24     18/54     21/31     23/27     28/19     35/06     37/13     39/17
                                           15/40     19/04     21/33     24/04     28/21     35/08     37/15     39/18
                                           15/47     19/05     21/34     24/07     28/28     35/10     37/16     39/20
                                           16/05     19/07     21/35     24/18     28/30     35/12     37/18     39/22
                                           16/06     19/10     22/07     24/19     28/36     36/05     37/22     39/30
                                           16/09     19/17     22/08     24/23     29/40     36/07     37/26     39/32
                                           17/05     19/21     22/10     24/25     30/16     36/09     37/28     39/34
                                           17/08     19/22     22/12     24/27     31/20     36/11     37/29     40/05
                                           17/19     19/23     22/13     24/31     31/23     36/13     37/31     40/06
                                           17/22     21/05     22/32     25/09     31/24     36/17     37/35     40/08
                                           17/24     21/06     22/38     25/15     31/26     36/19     37/44     40/10
                                           17/25     21/08     22/40     25/16     31/28     36/21     37/45     40/12
                                           17/27     21/10     22/41     25/25     31/30     36/23     38/17     40/14
                                           17/38     21/12     22/43     26/13     32/14     36/25     38/19     40/16
                                           17/39     21/13     23/14     26/30     32/25     36/27     38/21     40/17
                                           18/16     21/14     23/16     26/38     33/20     36/31     38/22     40/20
                                           18/17     21/16     23/18     26/39     33/28     36/33     38/23     40/22
                                           18/19     21/17     23/19     26/40     34/20     37/04     38/25     40/24
                                           18/21     21/19     23/20     26/50     34/52     37/05     38/26     42/05
                                           18/23     21/21     23/21     26/51     34/55     37/06     38/27
                                           18/40     21/23     23/23     26/52     34/56     37/08     39/07
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/05. 19.58.32.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        PEMV            0   EXTERNAL*       5/03 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/48 X   24/19     24/23     24/27     24/31
                                           24/18     24/21     24/25     24/29
        PRMERR          0   EXTERNAL*       4/42 X   34/34     34/35
        PSL             0   EXTERNAL*       4/57 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/42 X   34/50     34/53     34/54
        SCR             0   EXTERNAL*       5/06 X   41/20
        SFDEX           0   EXTERNAL*       5/09 X   36/09
        TEST            1   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/05. 19.59.02.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      241              IDENT  FLINK
                        241                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       240 
                                        LITERALS* LOCAL         240         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=FLINK          0+           QCP              0+           MDD             64+ 
                                        DUC.             0            DER              2+           PDC            124+ 
                                        DUC.1ST          1            DPT             13+           PDI            177+ 
                                        DUC.2ND          2            LPE             22+           PIS            205+ 
                                        DUC.BTH          3            MAL             54+ 
  
  
                                        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/05. 19.59.02.      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/05. 19.59.02.      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/05. 19.59.02.      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
            27  0430400027 +                      ZR     B3,"BLOWUP"                                             FLINK     194
                          6122000010              SB2    B2+Z=BLST   ADVANCE TO 1ST LABEL                        FLINK     195
            30  43701                             CLAS=  X7,WB,(DLPE)      X7 = POSSIBLE ENTRY BIT MASK          FLINK     196
                          43057                   MX0    -WC.LDTLL                                               FLINK     197
                                                  LX0    WC.LDTLP    X0 = NEGATIVE MASK FOR LINK ERASURE         FLINK     198
            31  5110000000 X                      SA1    T.SYM       X1 = FWA SYMTAB                             FLINK     199
                                                                                                                 FLINK     200
            32  56220                    LPE10    SA2    B2          X2 = LABEL WORD                             FLINK     201
                                                  HX2    LA.DEF                                                  FLINK     202
                     0322000037 +                 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/05. 19.59.02.      PAGE     5
                                                                      LPE 
  
            33  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
            34  53217                             SA2    X1+B7       X2 = *WB*                                   FLINK     211
                     20241                        HX2    WB.DLPE                                                 FLINK     212
                          0332000037 +            MI     X2,LPE20    IF ALREADY LINKED                           FLINK     213
            35  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
            36  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
            37  66221                    LPE20    =B2    B2+1                                                    FLINK     222
                     67331                        =B3    B3-1                                                    FLINK     223
                          0530000032 +            NZ     B3,LPE10    IF MORE LABELS                              FLINK     224
                                                                                                                 FLINK     225
                                        **        LINK THIS LOOP TO THE LOOP ONE LEVEL OUT.                      FLINK     226
                                                                                                                 FLINK     227
            40  5120000000 X                      SA2    T=BLST                                                  FLINK     228
                          5130000000 X            SA3    T.BLST                                                  FLINK     230
            41  63220                             SB2    X2                                                      FC50829     6
                     63330                        SB3    X3                                                      FC50829     7
                                                                                                                 FC50829     8
            42  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
            43  43022                             MX0    LC.DOL                                                  FC50829    12
                     20066                        LX0    LC.DOL+LC.DOP                                           FC50829    13
                          11002                   BX0    X0*X2                                                   FC50829    14
            44  0310000046 +                      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
            45  0400000042 +                      EQ     LPE30       LOOP FOR A DO ENTRY                         FC50829    19
                                                                                                                 FC50829    20
                                         LPE40    LX2    -LC.CNTP                                                FC50829    21
            46  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
            47  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
            50  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
            51  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
            52  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/05. 19.59.02.      PAGE     6
                                                                      LPE 
  
                          54620                   SA6    A2          UPDATE *WC*                                 FLINK     252
            53  0400000022 +                      EQ     EXIT.                                                   FLINK     253
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/05. 19.59.02.      PAGE     7
                                                                      MAL 
  
                                        **        MAL - MARK LOOPS POSSIBLY ENTERED VIA ASSIGNED GOTO/S.         FC5A177    11
                                        *                                                                        FC5A177    12
                                        *         USES   ALL REGISTERS.                                          FC5A177    13
                                                                                                                 FC5A177    14
            54  0400400054 +             MAL      SUBR   =                                                       FC5A177    15
            55  5110000000 X                      SA1    =XT=ASG                                                 FC5A177    16
                          0301000054 +            ZR     X1,EXIT.    IF NO ASSIGN STATEMENTS IN PROGRAM          FC5A177    17
            56  5140000000 X                      SA4    T.SYM                                                   FC5A177    18
                          5120000000 X            SA2    =XT.ASG                                                 FC5A177    19
            57  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
            60  0460000054 +             MAL10    ZR     B6,EXIT.    IF TABLE EXHAUSTED                          FC5A177    26
                          54551                   =A5    A5+1                                                    FC5A177    27
                               67661              =B6    B6-1                                                    FC5A177    28
            61  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
            62  53247                             SA2    X4+B7       WB                                          FC5A177    33
                     10622                        BX6    X2                                                      FC5A177    34
                          0100000002 +            RJ     DER         MARK CONTAING LOOPS ENTERED                 FC5A177    35
            63  0400000060 +                      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
            64  0400400064 +             MDD      SUBR   =           ENTRY/EXIT...                               FLINK     272
            65  0306000064 +                      ZR     X6,EXIT.    IF NO ACTIVE DO-LOOPS                       FLINK     273
                          5160000117 +            SA6    MDDA        PRESERVE LENGTH                             FLINK     274
            66  43374                             MX3    -0          BIAS FIELD SHOULD NOT BE IGNORED            FLINK     275
                     10055                        BX0    X5                                                      FLINK     276
                          20061                   HX0    TP.INTR                                                 FLINK     277
            67  0320000073 +                      PL     X0,MDD10    IF NOT INTERMEDIATE                         FLINK     278
                          20071                   LX0    TP.INTRP-TP.ARYP                                        FLINK     279
            70  0320000064 +                      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/05. 19.59.02.      PAGE     8
                                                                      MDD 
  
            71  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
            72  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
            73  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
            74  10733                             BX7    X3                                                      FLINK     296
                     5130000240 +                 CLAS=  X3,TP,(BIAS,ORD)                                        FLINK     297
                               11535              BX5    X3*X5       X5 = BIAS, ORD FIELDS ONLY                  FLINK     298
            75  11557                             BX5    X5*X7       X5 = COMPARE QUANTITY                       FLINK     299
                     5110000117 +                 SA1    MDDA                                                    FLINK     300
            76  5120000000 X                      SA2    T.BLST                                                  FLINK     301
                          36212                   IX2    X1+X2                                                   FLINK     302
            77  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
           100  5110000000 X                      SA1    T.SYM                                                   FLINK     305
                          66200                   =B2    0           B2 = LENGTH OF CURRENT T.BLST SEGMENT       FLINK     306
           101  7201000001                        SX0    X1+WB.W     X0 = FWA + 1 OF SYMTAB                      FLINK     307
                          7110016000              CLAS=  X1,TP,(INTR,SHRT,ADDR)                                  FLINK     308
           102  10611                             BX6    X1          X6 = REJECTION MASK                         FLINK     309
                                                                                                                 FLINK     310
           103  67772                    MDD20    SB7    B7-B2                                                   FLINK     311
                     0470000064 +                 ZR     B7,EXIT.    IF TABLE EXHAUSTED                          FLINK     312
                               55222              SA2    A2-B2       X2 = LC. WORD OF CURRENT BLOCK STRUCTURE    FLINK     313
           104  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
           105  43152                             MX1    -LC.DOL                                                 FLINK     319
                     15121                        BX1    -X1*X2                                                  FLINK     320
                          0301000103 +            ZR     X1,MDD20    IF NOT DO-LOOP STRUCTURE                    FLINK     321
           106  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
           107  0313000103 +                      NZ     X3,MDD20    IF COMPARE NOT VALID                        FLINK     325
                          5130000240 +            CLAS=  X3,TP,(BIAS,ORD)                                        FLINK     326
           110  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
           111  0311000103 +                      NZ     X1,MDD20    IF DO LIMIT NOT RE-DEFINED                  FLINK     330
                          6132777773              SB3    B2-DORT.W                                               FLINK     331
           112  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
           113  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/05. 19.59.02.      PAGE     9
                                                                      MDD 
  
                               63313              SB3    X1+B3       CONVERT TO INDEX                            FLINK     339
           114  53103                             SA1    X0+B3       X1 = *WB* OF LABEL                          FLINK     340
                     43301                        CLAS=  X3,WB,(PRD)                                             FLINK     341
                               10277              BX2    X7                                                      FLINK     342
           115  12713                             BX7    X1+X3                                                   FLINK     343
                     54710                        SA7    A1          MARK LOOP WITH WB.PRD                       FLINK     344
                          10722                   BX7    X2                                                      FLINK     345
           116  0400000103 +                      EQ     MDD20                                                   FLINK     346
                                                                                                                 FLINK     347
           117                     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
           120  5130000166 +             PDC30    SA3    PDCB                                                    FC5A150   337
                          54431                   =A4    A3+1                                                    FC5A150   338
                               54541              =A5    A4+1        RESTORE REGS                                FC5A150   339
           121  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/05. 19.59.02.      PAGE    10
                                                                      PDC 
  
           122  5160000000 X                      SA6    SOPR        RESTORE CELLS                               FC5A150   343
                          10655                   BX6    X5                                                      FC5A150   344
                               57661              SA6    B6-B1                                                   FC5A150   345
           123  10644                             BX6    X4                                                      FC5A150   346
                     55661                        =A6    A6-1        RESTORE THE STACK                           FC5A150   347
                                                                                                                 FC5A150   348
           124  0400400124 +             PDC      SUBR   =           ENTRY/EXIT...                               FC5A150   349
           125  5110000000 X                      SA1    CO.RNDM                                                 FC50392     7
                          5120000000 X            SA2    CO.RNDD                                                 FC50392     8
           126  13112                             BX1    X1-X2                                                   FC50392     9
                     0311000124 +                 NZ     X1,EXIT.    IF DIFFERENT ARITHMETIC SELECTED            FC50392    10
                               10633              BX6    X3                                                      FC5A150   350
           127  10744                             BX7    X4                                                      FC5A150   351
                     5160000166 +                 SA6    PDCB                                                    FC5A150   352
                               54761              =A7    A6+1                                                    FC5A150   353
           130  10755                             BX7    X5                                                      FC5A150   354
                     54771                        =A7    A7+1        PRESERVE X3,X4,X5                           FC5A150   355
                          0100000000 X            CALL   SDM         SET DOMINANT MODE                           FC5A150   356
           131  0100000000 X                      CALL   OMC         OUTPUT (NOT REALLY) MODE CONVERSION         FC5A150   357
           132  10155                             BX1    X5          CONVERTED (POSSIBLY) OPERAND                FC5A150   358
                     0100000000 X                 CALL   LCT         LOAD VALUE                                  FC5A150   359
           133  0310000134 +                      NZ     X0,PDC5     IF NOT BOOLEAN                              FC50475     5
                                   0              ERRNZ  M.BOOL                                                  FC50475     6
                          0521000120 +            NE     B2,B1,PDC30 IF NOT SHORT CONSTANT                       FC50475     7
                                                                                                                 FC50475     8
           134  5110000000 X             PDC5     SA1    SMOD                                                    FC50475     9
                          7221777774              SX2    X1-M.REAL                                               FC5A150   361
           135  7201777771                        SX0    X1-M.CPLX-1                                             FC5A150   362
                          0332000120 +            MI     X2,PDC30    IF DOMINANT MODE IS INT, LOG, OR BOOL       FC5A150   363
           136  0320000120 +                      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
           137  5170000001 X                      SA7    LLVEC+1     STORE UPPER AND LOWER OF 2OP                FC5A150   368
                          7160017204              SX6    1./1S45                                                 FC5A150   369
           140  20655                             LX6    45                                                      FC5A150   370
                     5160000000 X                 SA6    LVEC                                                    FC5A150   371
                               43700              MX7    0                                                       FC5A150   372
           141  5170000000 X                      SA7    LLVEC       STORE UPPER AND LOWER OF 1OP (1.0)          FC5A150   373
                          5232000171 +            SA3    ICRD+X2     X3 = INDEX OF CONSTANT REDUCER              FC5A150   374
           142  5233000000 X                      SA3    =XF.SKCR+X3                                             FC5A150   375
                                                  LX3    -VS.CRAP                                                FC5A150   376
                          10622                   BX6    X2                                                      FC5A150   377
           143  5160000164 +                      SA6    PDCA        PRESERVE OFFSET INTO ICRD (ICRM)            FC5A150   378
                          0100000000 X            CALL   CTA         PERFORM  1./C                               FC5A150   379
           144  0306000120 +                      ZR     X6,PDC30    IF DIVIDE RESULT NOT GOOD                   FC5A150   380
                          5160000165 +            SA6    PDCA+1      PRESERVE OPERAND OF RESULT                  FC5A150   381
           145  5110000000 X                      SA1    RVEC        X1 = UPPER HALF OF RESULT                   FC5A150   382
                          5120000000 X            SA2    RLVEC       X2 = LOWER HALF OF RESULT                   FC5A150   383
           146  10611                             BX6    X1                                                      FC5A150   384
                     10722                        BX7    X2                                                      FC5A150   385
                          5160000000 X            SA6    LVEC                                                    FC5A150   386
           147  5170000000 X                      SA7    LLVEC       MAKE RESULT AN OPERAND FOR (1./C)*C         FC5A150   387
                          5130000164 +            SA3    PDCA                                                    FC5A150   388
           150  5233000174 +                      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/05. 19.59.02.      PAGE    11
                                                                      PDC 
  
           151  0100000000 X                      CALL   CTA         PERFORM (1.0/C)*C                           FC5A150   392
           152  0306000120 +                      ZR     X6,PDC30    IF RESULT NOT GOOD                          FC5A150   393
                          7160017204              SX6    1./1S45                                                 FC5A150   394
           153  20655                             LX6    45                                                      FC5A150   395
                     5110000000 X                 SA1    RVEC                                                    FC5A150   396
                               13616              BX6    X1-X6                                                   FC5A150   397
           154  0316000120 +                      NZ     X6,PDC30    IF UPPER HALF OF RESULT NOT GOOD            FC5A150   398
                          5120000000 X            SA2    RLVEC                                                   FC5A150   399
           155  43600                             MX6    0                                                       FC5A150   400
                     5110000000 X                 SA1    SMOD                                                    FC5A150   401
           156  7211777773                        SX1    X1-M.DBL                                                FC5A150   402
                          0331000161 +            MI     X1,PDC20    IF DOMINANT MODE REAL                       FC5A150   403
           157  0311000160 +                      NZ     X1,PDC10    IF DOMINANT MODE NOT DOUBLE                 FC5A150   404
                          43614                   MX6    12                                                      FC5A150   405
                                                                                                                 FC5A150   406
           160  15626                    PDC10    BX6    -X6*X2      EXTRACT PROPER PORTION OF LOWER HALF        FC5A150   407
                     0316000120 +                 NZ     X6,PDC30    IF LOWER HALF OF RESULT NOT GOOD            FC5A150   408
                                                                                                                 FC5A150   409
           161  5150000165 +             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
           162  43601                             MX6    1                                                       FC5A150   413
                     5160000000 X                 SA6    POP.DVA     FLAG CONVERT TO MULTIPLY                    FC5A150   414
           163  0400000124 +                      EQ     EXIT.                                                   FC5A150   415
                                                                                                                 FC5A150   416
           164                     2     PDCA     BSS    2                                                       FC5A150   417
           166                     3     PDCB     BSS    3           PRESERVE X3,X4,X5 HERE                      FC5A150   418
                                                                                                                 FC5A150   419
           171  00000000000000000000 X   ICRD     CON    V=DIR.R,V=DIV.D,V=DIR.C                                 FC5A150   420
           172  00000000000000000000 X
           173  00000000000000000000 X
           174  00000000000000000000 X   ICRM     CON    V=MUL.R,V=MUL.D,V=MUL.C                                 FC5A150   421
           175  00000000000000000000 X
           176  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
           177  0400400177 +             PDI      SUBR   =           ENTRY/EXIT...                               FLINK     362
           200  0100000000 X                      CALL   OIL         OUTPUT I.L.                                 FLINK     363
           201  5150000000 X                      SA5    T=DATS                                                  FLINK     364
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/05. 19.59.02.      PAGE    12
                                                                      PDI 
  
                          5140000000 X            SA4    T.DATS                                                  FLINK     365
           202  63640                             WRITEW F.IL,X4,X5                                              FLINK     366
           204  0400000177 +                      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
           205  0400400205 +             PIS      SUBR   =           ...ENTRY/EXIT...                            FLINK     378
           206  5140000000 X                      SA4    T=PAR                                                   FLINK     379
                          5110000000 X            SA1    N.IL        NUMBER OF WORDS WRITTEN TO IL               FLINK     380
           207  6170000003                        SB7    Z=TURP                                                  FLINK     381
                          36714                   IX7    X1+X4                                                   FLINK     382
                               73677              SX6    X7+B7                                                   FLINK     383
           210  7120000000 X                      SX2    F.IL                                                    FLINK     384
                          54610                   SA6    A1          UPDATE IL WORD COUNT                        FLINK     385
           211  6160000235 +                      WRITEW X2,PISA,B7                                              FLINK     386
                                                                                                                 FLINK     387
           212  5140000000 X                      SA4    T=PAR                                                   FLINK     388
                          5130000000 X            SA3    T.PAR                                                   FLINK     389
           213  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
           215  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
           216  43454                             MX4    -TP.ORDL                                                FLINK     399
                                                                                                                 FLINK     400
           217  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
           220  54311                             =A3    A1-OR.OPR+OR.1OP                                        FLINK     404
                     0302000221 +                 ZR     X2,PIS5     IF NOT BEGINNING-OF-STATEMENT               FLINK     405
                               54001              SA0    A0+B1                                                   FLINK     406
           221  54131                    PIS5     =A1    A3-OR.1OP+OR.2OP                                        FLINK     407
                     22723                        LX7    X3,B2                                                   FLINK     408
                          0327000225 +            PL     X7,PIS6     IF (1OP) NOT INTERMEDIATE                   FLINK     409
           222  20320                             LX3    -TP.ORDP                                                FLINK     410
                     15634                        BX6    -X4*X3      ISOLATE (X6) = INTERMEDIATE INDEX (1OP)     FLINK     411
                          11343                   BX3    X4*X3                                                   FLINK     412
           223  7170125253                        OX7    X6          (X7) = ORD (X6) = (X6) / Z=TURP             FLINK     413
           224  12673                             BX6    X7+X3                                                   FLINK     414
                     20654                        LX6    TP.ORDP                                                 FLINK     415
                          54630                   SA6    A3                                                      FLINK     416
           225  22721                    PIS6     LX7    X1,B2                                                   FLINK     417
                     0327000231 +                 PL     X7,PIS7     IF (2OP) NOT INTERMEDIATE                   FLINK     418
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/05. 19.59.02.      PAGE    13
                                                                      PIS 
  
                               20120              LX1    -TP.ORDP                                                FLINK     419
           226  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
           230  54610                             SA6    A1                                                      FLINK     425
           231  0757000217 +             PIS7     LT     B5,B7,PIS4  IF MORE IL TO EXAMINE                       FLINK     426
                                                                                                                 FLINK     427
                          74700                   SX7    A0                                                      FLINK     428
           232  7120000000 X                      SX2    F.IL                                                    FLINK     429
                          54720                   SA7    A2          UPDATE (N.EXST)                             FLINK     430
           233  0100000000 X                      WRITEW X2,B6,B7                                                FLINK     431
           234  0400000205 +                      EQ     EXIT.                                                   FLINK     432
                                                                                                                 FLINK     433
           235  00000 X                  PISA     VFD    TH.SKELL/=XV=SEG,*P/0                                   FLINK     434
                    0000000000000000
           236                     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.
  
           240  77777777777774000000    ;;;;;;@ 
  
           241                                    END                                                            FLINK     438
  
                             74000B CM  STORAGE USED             1584 STATEMENTS     1427 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.595 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/05. 19.59.02.      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          171   PROGRAM*       10/40     11/29 L
        ICRM          174   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          32   PROGRAM*        4/52 L    5/18
        LPE20          37   PROGRAM*        4/54      5/07      5/16 L
        LPE30          42   PROGRAM*        5/27 L    5/37
        LPE40          46   PROGRAM*        5/33      5/39 L
        LVEC            0   EXTERNAL*       1/48 X   10/33 S   10/37 S   10/52 S
        MAL            54   PROGRAM*        7/05 L    7/05 E
        MAL10          60   PROGRAM*        7/16 L    7/26
        MDD            64   PROGRAM*        7/48 L    7/48 E
        MDDA          117   PROGRAM*        7/50 S    8/19      9/10 L
        MDD10          73   PROGRAM*        7/54      8/10 L
        MDD20         103   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           124   PROGRAM*       10/07 L   10/07 E
        PDCA          164   PROGRAM*       10/44 S   10/47 S   10/54     11/19     11/26 L
        PDCB          166   PROGRAM*        9/52     10/14 S   11/27 L
        PDC10         160   PROGRAM*       11/13     11/16 L
        PDC20         161   PROGRAM*       11/12     11/19 L
        PDC30         120   PROGRAM*        9/52 L   10/24     10/29     10/30     10/46     11/02     11/07     11/17
        PDC5          134   PROGRAM*       10/22     10/26 L
        PDI           177   PROGRAM*       11/55 L   11/55 E
        PIS           205   PROGRAM*       12/17 L   12/17 E
        PISA          235   PROGRAM*       12/25     13/16 L
        PIS4          217   PROGRAM*       12/40 L   13/08
        PIS5          221   PROGRAM*       12/44     12/46 L
        PIS6          225   PROGRAM*       12/48     12/56 L
        PIS7          231   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/05. 19.59.02.      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            1   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       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1017              IDENT  FSNAP
                       1017              ENDSNAP  END                MARK END OF SNAP DECK
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       755 
                                        LITERALS* LOCAL         755        33 
                                        DEBUG     LOCAL        1010         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=FSNAP          0+           SN.EMT          52+           DMT=           332+ 
                                        FI=BRLI          1+           SN.PAR         105+           TOK=IDP        640+ 
                                        LTB=            35+           UKT=FE         275+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        L.CHMAP   IDP=FRK   IDP=WOD   SV=A      TOK=ELS   NAMES     T.PAR     UTK=    * 
                                        CHARMAP   IDP=HDR   IDP=ZTB   SV=B      TOK=ENT   N.TABLE   T.SYM     UTG=    * 
                                        DCM=      IDP=MCS   IDP=      SV=X      TOK=GN    ORIGINS   T.TB      F.SKNAM 
                                        FW=IDPL   IDP=MN    ROL=      DUC.BTH   TOK=GO    PASS      WOF       SIZES 
                                        IDPFLG    IDP=PAS   RSR=      DUC.1ST   TOK=GS    T=OUS     FRA=      Z.CHMAP 
                                        IDP=CAD   IDP=PAT   RSR       DUC.2ND   TOK=IFT   T=PAR     IDP=CHK 
                                        IDP=COD   IDP=SFN   SNAPLNE   TF=IDP    TOK=ON    T=SYM     IDP=CDD 
                                        IDP=ER    IDP=SKT   SVR=      TOK=CAL   TOK=XEQ   T=TB      IDP=DXB 
                                        IDP=FLL   IDP=SOB   SVR       TOK=COF   PAR       T.OUS     IDP=SYS 
  
  
  
  
                                        **IF DEF,TEST                                                            FC5A388    10
                                                  IDENT  FSNAP                                                   FSNAP       2
                                         FSNAP    SECT   (FRONT-END TEST MODE SNAP PACKAGE.)                     FSNAP       3
  
  
  
  
  
                                         #SNAP    IFEQ   TEST,ON                                                 FSNAP       5
                                                                                                                 FSNAP       6
                                                                                                                 FSNAP       7
                                                                                                                 FSNAP       8
                                        *         IN FEC                                                         FSNAP       9
                                                  EXT    L.CHMAP                                                 FSNAP      10
                                                                                                                 FSNAP      11
                                        *         IN FSNAP                                                       FSNAP      12
                                                  EXT    CHARMAP                                                 FSNAP      13
                                                                                                                 FSNAP      14
                                        *         IN IDP                                                         FSNAP      15
                                                  EXT    DCM=,FW=IDPL,IDPFLG,IDP=CAD,IDP=COD,IDP=ER,IDP=FLL      FSNAP      16
                                                  EXT    IDP=FRK,IDP=HDR,IDP=MCS,IDP=MN,IDP=PAS,IDP=PAT,IDP=SFN  FSNAP      17
                                                  EXT    IDP=SKT,IDP=SOB,IDP=WOD,IDP=ZTB,IDP=,ROL=,RSR=,RSR      FSNAP      18
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     2
                                                                      FSNAP 
  
                                                  EXT    SNAPLNE,SVR=,SVR,SV=A,SV=B,SV=X                         FSNAP      19
                                                                                                                 FSNAP      20
                                        *         IN LABEL                                                       FSNAP      21
                                                  EXT    DUC.BTH,DUC.1ST,DUC.2ND                                 FSNAP      22
                                                                                                                 FSNAP      23
                                        *         IN LEX                                                         FSNAP      24
                                                  EXT    TF=IDP,TOK=CAL,TOK=COF,TOK=ELS,TOK=ENT,TOK=GN,TOK=GO    FSNAP      25
                                                  EXT    TOK=GS,TOK=IFT,TOK=ON,TOK=XEQ                           FSNAP      26
                                                                                                                 FSNAP      27
                                        *         IN PAR                                                         FSNAP      28
                                                  EXT    PAR                                                     FSNAP      29
                                                                                                                 FSNAP      30
                                        *         IN PUC                                                         FSNAP      31
                                                  EXT    NAMES,N.TABLE,ORIGINS,PASS,T=OUS,T=PAR,T=SYM,T=TB       FSNAP      32
                                                  EXT    T.OUS,T.PAR,T.SYM,T.TB,WOF                              FSNAP      33
                                                                                                                 FSNAP      34
                                        *         IN UTILITY                                                     FSNAP      35
                                                  EXT    FRA=                                                    FSNAP      36
  
  
  
  
                                        ***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.                         FSNAP      38
                                        *                                                                        FSNAP      39
                                        *                                                                        FSNAP      40
                                                                                                                 FSNAP      41
                                                                                                                 FSNAP      42
                                         CAD      EQUEXT IDP=CAD                                                 FSNAP      43
                                         CHK      EQUEXT IDP=CHK                                                 FSNAP      44
                                         FLL      EQUEXT IDP=FLL                                                 FSNAP      45
                                         FRK      EQUEXT IDP=FRK                                                 FSNAP      46
                                         HDR      EQUEXT IDP=HDR                                                 FSNAP      47
                                         PAS      EQUEXT IDP=PAS                                                 FSNAP      48
                                         PAT      EQUEXT IDP=PAT                                                 FSNAP      49
                                         SKT      EQUEXT IDP=SKT                                                 FSNAP      50
                                         SOB      EQUEXT IDP=SOB                                                 FSNAP      51
                                                                                                                 FSNAP      52
                                                                                                                 FSNAP      53
                                         CDD      EQUEXT IDP=CDD                                                 FSNAP      54
                                         COD      EQUEXT IDP=COD                                                 FSNAP      55
                                         DXB      EQUEXT IDP=DXB                                                 FSNAP      56
                                         MCS      EQUEXT IDP=MCS                                                 FSNAP      57
                                         SFN      EQUEXT IDP=SFN                                                 FSNAP      58
                                         SYS=     EQUEXT IDP=SYS                                                 FSNAP      59
                                         WOD      EQUEXT IDP=WOD                                                 FSNAP      60
                                         ZTB      EQUEXT IDP=ZTB                                                 FSNAP      61
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     3
                                                                      MISC
  
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              FSNAP      63
                                        *                                                                        FSNAP      64
                                        *                                                                        FSNAP      65
                                                                                                                 FSNAP      66
                                                                                                                 FSNAP      67
                                   5     SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER    FSNAP      68
                                                                                                                 FSNAP      69
                                                                                                                 FSNAP      70
             0                     1     IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                          FSNAP      71
  
  
  
  
                                        **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                    FSNAP      73
                                                                                                                 FSNAP      74
                                                  PURGMAC PRBDO                                                  FSNAP      75
                                                                                                                 FSNAP      76
                                         PRBDO    OPSYN  PLINE                                                   FSNAP      77
  
  
  
  
                                        ***       TEXTS - INTERFACE TEXTS.                                       FSNAP      79
                                        *                                                                        FSNAP      80
                                        *                                                                        FSNAP      81
                                        *         COMSIDP IS LISTED IN DECK *IDP*.                               FSNAP      82
                                        *         COMSQCG IS LISTED IN DECK *QCGC*.                              FSNAP      83
                                        *         COMSTOK IS LISTED IN DECK *LEX*.                               FSNAP      84
                                                                                                                 FSNAP      85
                                                                                                                 FSNAP      86
                                                  QUAL   IDP                                                     FSNAP      87
                                   1     QUAL$    =      1           DESELECT QUALS IN /IDP/                     FSNAP      88
                                                  LIST   -L          *COMSIDP* FOLLOWS                           FSNAP      89
                                                  LIST   -X,L                                                    FSNAP      91
                                                  QUAL   *                                                       FSNAP      92
             1                                    CTEXT  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.     COMSQCG     2
             1                           COMSTOK  CTEXT  COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.    COMSTOK     2
                                                  LIST   F,X                                                     FSNAP      95
  
  
  
  
                                        ***       DATA STRUCTURES.                                               FSNAP      97
                                        *                                                                        FSNAP      98
                                        *                                                                        FSNAP      99
                                        *         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE        FSNAP     100
                                        *         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE           FSNAP     101
                                        *         ROUTINES IN *FSNAP*.                                           FSNAP     102
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     4
        COMSIDP - INTERACTIVE DEBUG PACKAGE INTERFACE TEXT.           FI= 
  
                                        **        FI= - FTN/IDP CELLS.                                           FSNAP     104
                                        *                                                                        FSNAP     105
                                        *         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED           FSNAP     106
                                        *         FOR FTN/IDP COMMUNICATION.                                     FSNAP     107
  
  
  
  
                                        **        FI=BRLI - *BRLINE NR* CELL.                                    FSNAP     109
                                        *                                                                        FSNAP     110
                                        *         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED         FSNAP     111
                                        *         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS        FSNAP     112
                                        *         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS          FSNAP     113
                                        *         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN          FSNAP     114
                                        *         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END           FSNAP     115
                                        *         MASTER LOOP.                                                   FSNAP     116
                                                                                                                 FSNAP     117
                                                                                                                 FSNAP     118
             1  00000000000000000000     FI=BRLI  CONENT 0                                                       FSNAP     119
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     5
        FTN5 SNAPPING ROUTINES.                                       CTD=
  
                                        **        CTD= - CONVERT TOKEN TYPE TO DPC.                              FSNAP     122
                                        *                                                                        FSNAP     123
                                        *                                                                        FSNAP     124
                                        *         GIVEN A BINARY TOKEN TYPE, *CTD=* PROVIDES A DPC NAME THAT     FSNAP     125
                                        *         CAN BE USED FOR PRINTING/DISPLAY PURPOSES.  SEE *COMDTOK*.     FSNAP     126
                                        *                                                                        FSNAP     127
                                        *         ENTRY  (X1) = TOKEN TYPE, IN BINARY.                           FSNAP     128
                                        *                                                                        FSNAP     129
                                        *         EXIT   (X6) = DPC FOR THIS TOKEN TYPE, -L- FMT.                FSNAP     130
                                        *                                                                        FSNAP     131
                                        *         USES   CANNOT USE A5,X5,A0,X0                                  FSNAP     132
                                        *                                                                        FSNAP     133
                                        *         CALLS  COD                                                     FSNAP     134
                                                                                                                 FSNAP     135
                                                                                                                 FSNAP     136
             2  0400400002 +             CTD=     SUBR               ** ENTRY/EXIT **                            FSNAP     137
             3  63210                             SB2    X1                                                      FSNAP     138
                     6130000000 X                 SB3    =XZ.CHMAP   (B3) = NR OF WORDS IN (CHARMAP) VECTOR      FSNAP     139
             4  0623000005 +                      GE     B2,B3,CTD2  IF OVER INDEXING *CHARMAP*                  FSNAP     140
                          0620000010 +            GE     B2,B0,CTD3  IF NOT UNDER INDEXING *CHARMAP*             FSNAP     141
                                                                                                                 FSNAP     142
             5  43252                    CTD2     MX2    -18                                                     FSNAP     143
                     15112                        BX1    -X2*X1      (X1) = 42/0,18/TOKEN TYPE                   FSNAP     144
                          0100000000 X            CALL   COD         CONVERT BINARY TO OCTAL DPC                 FSNAP     145
             6  43201                             MX2    1                                                       FSNAP     146
                     67221                        SB2    B2-B1       (B2) = NR OF BITS CONVERTED - 1             FSNAP     147
                          23222                   AX2    B2          (X2) = MASK FOR EXTRACTING CONVERTED NR     FSNAP     148
                               11624              BX6    X2*X4       (X6) = TOKEN TYPE, -L- FMT                  FSNAP     149
             7  0400000002 +                      EQ     EXIT.                                                   FSNAP     150
                                                                                                                 FSNAP     151
            10  5221000000 X             CTD3     SA2    =XCHARMAP+X1  (X2) = *CHARMAP* ENTRY FOR THIS TOT       FSNAP     152
                          43352                   MX3    CH.DPCL                                                 FSNAP     153
                               11632              BX6    X3*X2       (X6) = DPC FOR THIS TOT, -L- FMT            FSNAP     154
            11  0316000002 +                      NZ     X6,EXIT.    IF *CHARMAP* TABLE HAS A DPC FOR THIS TOT   FSNAP     155
                          5120000755 +            SA2    =0L-VAR-                                                FSNAP     156
            12  5130000756 +                      SA3    =0L-CONS-                                               FSNAP     157
                          7271777766              SX7    X1-O.VAR                                                FSNAP     158
            13  10622                             BX6    X2                                                      FSNAP     159
                     0307000002 +                 ZR     X7,EXIT.    IF -VAR- TOKEN                              FSNAP     160
                               10633              BX6    X3                                                      FSNAP     161
            14  7271777772                        SX7    X1-O.CONS                                               FSNAP     162
                          0307000002 +            ZR     X7,EXIT.    IF -CONS- TOKEN                             FSNAP     163
            15  5120000757 +                      SA2    =0L-OCT-                                                FSNAP     164
                          5130000760 +            SA3    =0L-HEX-                                                FSNAP     165
            16  5140000761 +                      SA4    =0L-ILL-                                                FSNAP     166
                          10622                   BX6    X2                                                      FSNAP     167
            17  7271777771                        SX7    X1-O.OCT                                                FSNAP     168
                          0307000002 +            ZR     X7,EXIT.    IF -OCT- TOKEN                              FSNAP     169
            20  10633                             BX6    X3                                                      FSNAP     170
                     7271777770                   SX7    X1-O.HEX                                                FSNAP     171
            21  0307000002 +                      ZR     X7,EXIT.    IF -HEX- TOKEN                              FSNAP     172
                          10644                   BX6    X4                                                      FSNAP     173
            22  7271777731                        SX7    X1-O.ILL                                                FSNAP     174
                          0307000002 +            ZR     X7,EXIT.    IF -ILL- TOKEN                              FSNAP     175
            23  13666                             BX6    X6-X6                                                   FSNAP     176
                     0400000002 +                 EQ     EXIT.                                                   FSNAP     177
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     6
        FTN5 SNAPPING ROUTINES.                                       FTH 
  
                                        **        FTH - FORMAT TABLE HEADING.                                    FSNAP     179
                                        *                                                                        FSNAP     180
                                        *         ENTRY  (A1,X1) = TABLE ORIGIN WORD.                            FSNAP     181
                                        *                (A6)+1 = FWA TO STORE HEADING (3 WORDS).                FSNAP     182
                                        *                                                                        FSNAP     183
                                        *         EXIT   (A6) -> LAST WORD STORED (-H- FORMAT).                  FSNAP     184
                                        *                (B5) = ORDINAL OF TABLE.                                FSNAP     185
                                        *                                                                        FSNAP     186
                                        *         USES   A1-4,A6,  X1-4,X6-7,  B2-5.                             FSNAP     187
                                        *         CALLS  COD.                                                    FSNAP     188
                                                                                                                 FSNAP     189
                                                                                                                 FSNAP     190
            24  0400400024 +             FTH      SUBR   0           ENTRY/EXIT...                               FSNAP     191
            25  74210                             SX2    A1                                                      FSNAP     192
                     6120000000 X                 SB2    =XORIGINS                                               FSNAP     193
                               67302              SB3    -B2                                                     FSNAP     194
            26  63523                             SB5    X2+B3       ORDINAL OF TABLE                            FSNAP     195
                     5135000000 X                 SA3    B5+=XNAMES                                              FSNAP     196
                               43436              MX4    5*6                                                     FSNAP     197
            27  5120000762 +                      SA2    =5RAT T.                                                FSNAP     198
                          11743                   BX7    X4*X3       ISOLATE 5 CHARS OF TABLE NAME               FSNAP     199
                               36672              IX6    X7+X2                                                   FSNAP     200
            30  20660                             LX6    -2*6                                                    FSNAP     201
                     54661                        SA6    A6+B1                                                   FSNAP     202
                          0100000000 X            CALL   COD         CONVERT OCTAL (TABLE FWA)                   FSNAP     203
            31  5115000000 X                      SA1    B5+=XSIZES                                              FSNAP     204
                          7120004150              SX2    2RLE&2R                                                 FSNAP     205
            32  13642                             BX6    X4-X2                                                   FSNAP     206
                     54661                        SA6    A6+B1                                                   FSNAP     207
                          0100000000 X            CALL   COD         CONVERT OCTAL (TABLE LENGTH)                FSNAP     208
            33  7120004300                        SX2    2RN &2R                                                 FSNAP     209
                          13642                   BX6    X4-X2                                                   FSNAP     210
                               20660              LX6    -2*6                                                    FSNAP     211
            34  54661                             SA6    A6+B1                                                   FSNAP     212
                     0400000024 +                 EQ     EXIT.                                                   FSNAP     213
  
  
  
  
                                        **        LTB - LIST TOKEN BUFFER.                                       FSNAP     215
                                        *                                                                        FSNAP     216
                                        *         THIS ROUTINE LISTS THE TOKEN BUFFER BY CALLING *LTK*           FSNAP     217
                                        *         IN *COMDTOK*.                                                  FSNAP     218
                                        *                                                                        FSNAP     219
                                        *         ENTRY  NONE                                                    FSNAP     220
                                        *                                                                        FSNAP     221
                                        *         EXIT   NONE                                                    FSNAP     222
                                        *                                                                        FSNAP     223
                                        *         USES   NONE                                                    FSNAP     224
                                        *                                                                        FSNAP     225
                                        *         CALLS  LTK,PRIDP,RSR,SVR                                       FSNAP     226
                                                                                                                 FSNAP     227
                                                                                                                 FSNAP     228
            35  0400400035 +             LTB=     SUBR   =           ** ENTRY/EXIT **                            FSNAP     229
            36  0100000000 X                      CALL   SVR         SAVE REGISTERS                              FSNAP     230
            37  7110000004                        SX1    4           INDICATE EXECUTIVE IS LTB                   FSNAP     231
                          0100000000 X            CALL   SOB         SET OUTPUT BITS                             FSNAP     232
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     7
        FTN5 SNAPPING ROUTINES.                                       LTB 
  
            40  7160000763 +                      PRIDP  (=C. TOKEN BUFFER DUMP.),,2                             FSNAP     233
            42  13666                             PRIDP  ,,1                                                     FSNAP     234
            44  5120000000 X                      SA2    =XT.TB                                                  FSNAP     235
                          5140000000 X            SA4    =XT=TB                                                  FSNAP     236
            45  0100000615 +                      CALL   LTK         LIST TOKENS                                 FSNAP     237
            46  13666                             PRIDP  ,,2                                                     FSNAP     238
            50  0100000000 X                      CALL   RSR         RESTORE REGISTERS                           FSNAP     239
            51  0400000035 +                      EQ     EXIT.                                                   FSNAP     240
  
  
  
  
                                        **        SN.EMT - SNAP FOR FRONT END EMISSION OF TURPLES.               FSNAP     242
                                        *                                                                        FSNAP     243
                                        *         ENTRY  (A1,X1) = ORIGIN OF TABLE ADDED TO.                     FSNAP     244
                                        *                (X0) -> ENTRY/EXIT WORD OF EMITTING ROUTINE.            FSNAP     245
                                        *                (X3) = OPR.                                             FSNAP     246
                                        *                (X4) = 1OP.                                             FSNAP     247
                                        *                (X5) = 2OP.                                             FSNAP     248
                                        *                (B7) = LWA+1 OF TABLE.                                  FSNAP     249
                                        *                                                                        FSNAP     250
                                        *         USES   NONE.                                                   FSNAP     251
                                                                                                                 FSNAP     252
                                                                                                                 FSNAP     253
            52  0400400052 +             SN.EMT   SUBR   =           ENTRY/EXIT...                               FSNAP     254
            53  0100000000 X                      RJ     SVR=        SAVE REGISTERS                              FSNAP     255
            54  5110000000 X                      SA1    SV=X+0      GET WHERE EMITTER CALLED FROM               FSNAP     256
                          53210                   SA2    X1                                                      FSNAP     257
                               20236              LX2    -30                                                     FSNAP     258
            55  7212777776                        SX1    X2-1                                                    FSNAP     259
                          6170000057 +            SB7    SNE2                                                    FSNAP     260
            56  0400000000 X                      EQ     =XFRA=      FIND RELATIVE ADDRESS                       FSNAP     261
            57  20666                    SNE2     LX6    -6                                                      FSNAP     262
                     7120004453                   SX2    2RIN&2R +                                               FSNAP     263
                               20766              LX7    -6                                                      FSNAP     264
            60  13662                             BX6    X6-X2                                                   FSNAP     265
                     10177                        BX1    X7                                                      FSNAP     266
                          20666                   LX6    -6                                                      FSNAP     267
            61  5160000101 +                      SA6    SNEB+1                                                  FSNAP     268
                          0100000000 X            CALL   ZTB         BLANK FILL DECK NAME                        FSNAP     269
            62  5120000001 X                      SA2    SV=A+1      FETCH [A1] WAS TABLE ADDRESS                FSNAP     270
                          10766                   BX7    X6                                                      FSNAP     271
                               55761              SA7    A6-B1                                                   FSNAP     272
            63  53120                             SA1    X2                                                      FSNAP     273
                     0100000024 +                 RJ     FTH         FORMAT TABLE HEADER                         FSNAP     274
            64  6160000077 +                      SB6    SNEA                                                    FSNAP     275
                          64761                   SB7    A6+B1                                                   FSNAP     276
                               67776              SB7    B7-B6                                                   FSNAP     277
            65  76160                             PLINE  B6,B7                                                   FSNAP     278
                                                                                                                 FSNAP     279
            67  5110000001 X                      SA1    SV=X+1      [X1] = NEW TABLE FWA                        FSNAP     280
                          5130000007 X            SA3    SV=B+7      [B7] = NEW TABLE LWA+1                      FSNAP     281
            70  37731                             IX7    X3-X1                                                   FSNAP     282
                     7267777774                   SX6    X7-Z=TURP   SET (SN.PNO) = INDEX OF TURPLE JUST ADDED   FSNAP     283
            71  5150000003 X                      SA5    SV=X+3      [X3] = OPERATOR WORD                        FSNAP     284
                          5160000250 +            SA6    SN.PNO                                                  FSNAP     285
            72  0100000206 +                      RJ     SN.POP      FORMAT TURPLE HEADER                        FSNAP     286
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     8
        FTN5 SNAPPING ROUTINES.                                       SN.EMT
  
                                                                                                                 FSNAP     287
            73  5150000004 X                      SA5    SV=X+4      [X4] = 1OP                                  FSNAP     288
                          0100000131 +            RJ     SN.PSYM     FORMAT OPERAND 1                            FSNAP     289
                                                                                                                 FSNAP     290
                                        *         SA5    SV=X+5      [X5] = 2OP                                  FSNAP     291
            74  0100000131 +                      RJ     SN.PSYM     FORMAT OPERAND 2                            FSNAP     292
            75  0100000000 X                      RJ     =XRSR=      RESTORE REGISTERS                           FSNAP     293
            76  0400000052 +                      EQ     EXIT.                                                   FSNAP     294
                                                                                                                 FSNAP     295
            77  55051511245506221715     SNEA     DIS    1, EMIT FROM                                            FSNAP     296
           100  55220514551116550405     SNEB     DIS    2, REL IN DECK                                          FSNAP     297
           102  55245716011505555555     SNEC     DIS    1, T.NAME                                               FSNAP     298
           103  55062701555455555555              DIS    1, FWA =                                                FSNAP     299
           104  34353637404155555555     SNED     DIS    1,123456                                                FSNAP     300
                                   6     SNEL     =      *-SNEA                                                  FSNAP     301
  
  
  
  
                                        **        SN.PAR - DUMP PARSED FILE (ONLY IF IN TEST MODE)               FSNAP     303
                                        *                                                                        FSNAP     304
                                        *         ENTRY  (T=PAR) = LENGTH OF PARSED FILE.                        FSNAP     305
                                        *                                                                        FSNAP     306
                                        *         EXIT   FORMATTED FILE DUMPED.                                  FSNAP     307
                                        *                                                                        FSNAP     308
                                        *         CALLS  PLINE, PIA, SVR, RSR, WOD                               FSNAP     309
                                                                                                                 FSNAP     310
                                                                                                                 FSNAP     311
           105  0400400105 +             SN.PAR   SUBR   =           ** ENTRY/EXIT **                            FSNAP     312
           106  0100000000 X                      CALL   SVR=        SAVE REGISTERS                              FSNAP     313
           107  5120000000 X                      SA2    T=PAR                                                   FSNAP     314
                          5130000765 +            SA3    =20H  IL SEGMENT DUMP.                                  FSNAP     315
           110  0302000127 +                      ZR     X2,SPF8     IF EMPTY TABLE                              FSNAP     316
                          54431                   SA4    A3+B1                                                   FSNAP     317
                               10733              BX7    X3                                                      FSNAP     318
           111  5110000000 X                      SA1    T.PAR                                                   FSNAP     319
                          22604                   LX6    X4                                                      FSNAP     320
                               53510              SA5    X1          (A5) -> FWA PARSED FILE                     FSNAP     321
           112  6160000000 X                      SB6    SNAPLNE                                                 FSNAP     322
                          56760                   SA7    B6                                                      FSNAP     323
           113  5202777776                        SA0    X2-1        (A0) = LENGTH - 1 OF PARSED FILE            FSNAP     324
                          54671                   SA6    A7+B1                                                   FSNAP     325
           114  0100000024 +                      RJ     FTH         FORMAT TABLE HEADER                         FSNAP     326
           115  64261                             SB2    A6+B1                                                   FSNAP     327
                     77226                        SX2    B2-B6                                                   FSNAP     328
                          76160                   PLINE  B6,X2,1                                                 FSNAP     329
           117  13666                             BX6    0                                                       FSNAP     330
                     5160000250 +                 SA6    SN.PNO      INITIALIZE ORDINAL COUNTER                  FSNAP     331
                                                                                                                 FSNAP     332
                                        **        LOOP ON PARSED FILE                                            FSNAP     333
                                                                                                                 FSNAP     334
           120  0100000206 +             SN.PAR1  RJ     SN.POP      PROCESS OPERATOR.                           FSNAP     335
           121  64400                             SB4    A0                                                      FSNAP     336
                     0740000127 +                 MI     B4,SPF8     IF TABLE EXHAUSTED                          FSNAP     337
           122  0100000131 +                      RJ     SN.PSYM     PROCESS 1ST SYMBOL.                         FSNAP     338
           123  0100000131 +                      RJ     SN.PSYM     PRINT OPERAND 2                             FSNAP     339
           124  13111                             PLINE  ,,1         BLANK LINE BETWEEN TURPLES                  FSNAP     340
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE     9
        FTN5 SNAPPING ROUTINES.                                       SN.PAR
  
           126  64400                             SB4    A0                                                      FSNAP     341
                     0640000120 +                 PL     B4,SN.PAR1  IF MORE TO GO.                              FSNAP     342
                                                                                                                 FSNAP     343
                                        **        END OF LOOP                                                    FSNAP     344
                                                                                                                 FSNAP     345
           127  0100000000 X             SPF8     CALL   RSR=        RESTORE REGISTERS                           FSNAP     346
           130  0400000105 +                      EQ     EXIT.                                                   FSNAP     347
  
  
  
  
                                        **        SN.PSYM - DUMP SYMBOL FROM PARSED FILE.                        FSNAP     349
                                        *                                                                        FSNAP     350
                                        *         ENTRY  (A5,X5) = OPERAND WORD.                                 FSNAP     351
                                        *                (SN.PNO) = ORDINAL OF THIS WORD.                        FSNAP     352
                                        *                                                                        FSNAP     353
                                        *         EXIT   (A5) ADVANCED BY ONE.                                   FSNAP     354
                                        *                (X5) = ((A5)).                                          FSNAP     355
                                        *                (A0) DECREMENTED BY ONE.                                FSNAP     356
                                        *                (SN.PNO) ADVANCED BY ONE.                               FSNAP     357
                                        *                LINE PRINTED.                                           FSNAP     358
                                        *                                                                        FSNAP     359
                                        *         USES   ALL.                                                    FSNAP     360
                                        *         CALLS  COD, PLINE, WOD, ZTB.                                   FSNAP     361
                                                                                                                 FSNAP     362
                                                                                                                 FSNAP     363
           131  0400400131 +             SN.PSYM  SUBR               ENTRY/EXIT...                               FSNAP     364
           132  5110000250 +                      SA1    SN.PNO                                                  FSNAP     365
                          73611                   SX6    X1+B1                                                   FSNAP     366
                               54610              SA6    A1          UPDATE ORDINAL                              FSNAP     367
           133  0100000000 X                      RJ     COD         CONVERT TO *DPC*                            FSNAP     368
           134  20622                             LX6    9*CHAR-6*CHAR                                           FSNAP     369
                     7110000100                   SX1    2R  &2R=                                                FSNAP     370
                               13661              BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))          FSNAP     371
           135  5120000000 X                      SA2    =XPASS                                                  FSNAP     372
                          5160000251 +            SA6    LINNO                                                   FSNAP     373
           136  7222777776                        SX2    X2-PASS=QCG                                             FSNAP     374
                          0305000201 +            ZR     X5,SPG9     IF NULL OPERAND                             FSNAP     375
           137  10355                             BX3    X5                                                      FSNAP     376
                     22605                        LX6    X5                                                      FSNAP     377
                          0312000150 +            NZ     X2,SPG2     IF NOT DURING QUICK CG PASS                 FSNAP     378
                                                                                                                 FSNAP     379
                                        *         CRACK (P2.) FORMAT OPERAND.                                    FSNAP     380
                                        *                                                                        FSNAP     381
                                        *         **** KLUDGE ****                                               FSNAP     382
                                        *                                                                        FSNAP     383
                                        *         KLUDGE UNTIL *SNAP=A* IS FIXED.                                FSNAP     384
                                        *                                                                        FSNAP     385
                                        *         **** KLUDGE ****                                               FSNAP     386
                                                                                                                 FSNAP     387
                                   0     C.SYM    =      0                                                       FSNAP     388
                                                                                                                 FSNAP     389
           140  0400400140 +                      EQ     "BLOWUP"                                                FSNAP     390
                                                                                                                 FSNAP     391
           141  20620                             HX6    P2.BIAS                                                 FSNAP     392
                     20320                        LX3    -P2.TAGP                                                FSNAP     393
                          43054                   MX0    -P2.TAGL                                                FSNAP     394
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    10
        FTN5 SNAPPING ROUTINES.                                       SN.PSYM 
  
                               21644              AX6    -P2.BIASL   ISOLATE SIGN-EXTENDED BIAS                  FSNAP     395
           142  15130                             BX1    -X0*X3      EXTRACT (X1) = TAG                          FSNAP     396
                     20341                        LX3    P2.TAGP-1-P2.INTRP                                      FSNAP     397
                          5160000205 +            SA6    SPGA                                                    FSNAP     398
           143  0333000161 +                      MI     X3,SPG4     IF OPERAND IS AN INTERMEDIATE               FSNAP     399
                                        *                                                                        FSNAP     400
                                        *         **** KLUDGE ****                                               FSNAP     401
                                        *                                                                        FSNAP     402
 7                                       7        ERR    KLUDGE UNTIL *SNAP=A* IS FIXED                          FSNAP     403
                                         .TEST    IFEQ   TEST,ON                                                 FSNAP     404
                          5130000000 X            SA3    =XT=OUS                                                 FSNAP     405
           144  63730                             SB7    X3                                                      FSNAP     406
                     0627400144 +                 GE     B2,B7,"BLOWUP"    IF OUS INDEX .GE. TABLE LENGTH        FSNAP     407
                                         .TEST    ENDIF                                                          FSNAP     408
           145  5130000000 X                      SA3    =XT.OUS                                                 FSNAP     409
                          53132                   SA1    B2+X3       FETCH OPERAND USAGE STATUS                  FSNAP     410
                               20120              LX1    -P2.TAGP                                                FSNAP     411
           146  15110                             BX1    -X0*X1      EXTRACT (X1) = TAG IN USAGE TABLE           FSNAP     412
                     63210                        SB2    X1                                                      FSNAP     413
                          0620000154 +            PL     B2,SPG3     IF POSSIBLY A SYMBOL TAG                    FSNAP     414
           147  0400000163 +                      EQ     SPG5                                                    FSNAP     415
                                                                                                                 FSNAP     416
                                        *         CRACK (TP.) FORMAT OPERAND.                                    FSNAP     417
                                                                                                                 FSNAP     418
           150  20320                    SPG2     LX3    -TP.ORDP                                                FSNAP     419
                     43054                        MX0    -TP.ORDL                                                FSNAP     420
                          20620                   HX6    TP.BIAS                                                 FSNAP     421
                               15130              BX1    -X0*X3      EXTRACT (X1) = ORDINAL                      FSNAP     422
           151  21644                             AX6    -TP.BIASL   SAVE SIGN-EXTENDED BIAS                     FSNAP     423
                     20341                        LX3    TP.ORDP-1-TP.INTRP                                      FSNAP     424
                          5160000205 +            SA6    SPGA        SAVE (BIAS)                                 FSNAP     425
           152  0333000161 +                      MI     X3,SPG4     IF OPERAND IS AN INTERMEDIATE               FSNAP     426
                          7120052000              CLAS=  X2,TP,(INTR,SHRT,GL)                                    FSNAP     427
           153  11025                             BX0    X2*X5                                                   FSNAP     428
                     63210                        SB2    X1                                                      FSNAP     429
                          0310000163 +            NZ     X0,SPG5     IF NOT A VARIABLE                           FSNAP     430
                                                                                                                 FSNAP     431
                                        *         HERE WHEN OPERAND IS IN SYMTAB.                                FSNAP     432
                                        *                (B2) = SYMTAB ORDINAL.                                  FSNAP     433
                                                                                                                 FSNAP     434
           154  5130000000 X             SPG3     SA3    =XT=SYM                                                 FSNAP     435
                          5120000000 X            SA2    T.SYM                                                   FSNAP     436
           155  63730                             SB7    X3                                                      FSNAP     437
                     76322                        SX3    B2+B2                                                   FSNAP     438
                          63232                   SB2    X3+B2       (B2) = INDEX = 3 * ORDINAL                  FSNAP     439
                                   0              ERRNZ  3-Z=SYM                                                 FSNAP     440
                               43052              MX0    WA.SYML                                                 FSNAP     441
           156  0627000163 +                      GE     B2,B7,SPG5  IF INDEX GE SYMTAB LEN                      FSNAP     442
                          53322                   SA3    X2+B2       LOAD SYMBOL                                 FSNAP     443
                               11103              BX1    X0*X3       ISOLATE SYMBOL NAME                         FSNAP     444
           157  0100000000 X                      RJ     ZTB         ZEROES TO BLANKS                            FSNAP     445
           160  0400000166 +                      EQ     SPG8                                                    FSNAP     446
                                                                                                                 FSNAP     447
                                        **        HERE IF NOT INTERMEDIATE                                       FSNAP     448
                                                                                                                 FSNAP     449
           161  0100000000 X             SPG4     RJ     =XCOD       CONVERT INTERMEDIATE ORDINAL TO OCTAL DPC   FSNAP     450
           162  7110004401                        SX1    2RI=&2R                                                 FSNAP     451
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    11
        FTN5 SNAPPING ROUTINES.                                       SN.PSYM 
  
                          0400000165 +            EQ     SPG6                                                    FSNAP     452
                                                                                                                 FSNAP     453
                                        **        HERE IF OTHER FORM OF TAG OR CONSTANT.                         FSNAP     454
                                                                                                                 FSNAP     455
           163  0100000000 X             SPG5     RJ     =XCOD       CONVERT ORDINAL FIELD TO OCTAL DPC          FSNAP     456
           164  7110005601                        SX1    2RC=&2R                                                 FSNAP     457
           165  13641                    SPG6     BX6    X4-X1                                                   FSNAP     458
                                                                                                                 FSNAP     459
                                        **        HERE WITH SYMBOL CONVERTED TO DPC.                             FSNAP     460
                                        *         (X6) = DPC FOR SYMBOL.                                         FSNAP     461
                                                                                                                 FSNAP     462
           166  20660                    SPG8     LX6    -2*6                                                    FSNAP     463
                     5160000255 +                 SA6    LINPDP                                                  FSNAP     464
           167  5110000205 +                      SA1    SPGA        RETRIEVE (BIAS) FIELD                       FSNAP     465
                          10011                   BX0    X1                                                      FSNAP     466
                               21073              AX0    -1          (X0) = SIGN (+0 OR -0)                      FSNAP     467
           170  13110                             BX1    X1-X0       (X1) = ABS (BIAS)                           FSNAP     468
                     0100000000 X                 RJ     COD         CONVERT OCTAL DIGITS                        FSNAP     469
           171  7120000013                        SX2    1R-&1R                                                  FSNAP     470
                          11202                   BX2    X0*X2                                                   FSNAP     471
                               22222              LX2    B2          POSITION LEADING SIGN                       FSNAP     472
           172  13626                             BX6    X2-X6                                                   FSNAP     473
                     54661                        SA6    A6+B1                                                   FSNAP     474
                          10155                   BX1    X5                                                      FSNAP     475
                               64350              SB3    A5                                                      FSNAP     476
           173  0100000000 X                      RJ     WOD         CONVERT TAG TO OCTAL (CLOBBERS A5)          FSNAP     477
           174  5160000252 +                      SA6    LINPOC                                                  FSNAP     478
                          54761                   SA7    A6+B1                                                   FSNAP     479
                               55001              SA0    A0-B1                                                   FSNAP     480
           175  56531                             SA5    B3+B1                                                   FSNAP     481
                     7110000251 +                 PLINE  LINPAR,LINSPGL                                          FSNAP     482
           200  0400000131 +                      EQ     EXIT.                                                   FSNAP     483
                                                                                                                 FSNAP     484
           201  5110000767 +             SPG9     SA1    =H/   0/                                                FSNAP     485
                          0335400201 +            MI     X5,"BLOWUP" IF OPERAND = -0                             FSNAP     486
           202  10711                             BX7    X1                                                      FSNAP     487
                     54761                        SA7    A6+B1                                                   FSNAP     488
                          74160                   PLINE  A6,2                                                    FSNAP     489
           204  55001                             SA0    A0-B1                                                   FSNAP     490
                     54551                        SA5    A5+B1                                                   FSNAP     491
                          0400000131 +            EQ     EXIT.                                                   FSNAP     492
                                                                                                                 FSNAP     493
           205  00000000000000000000     SPGA     CON    0           SAVE (BIAS) FIELD OF OPERAND                FSNAP     494
  
  
  
  
                                        **        SN.POP - DUMP OPERATOR FROM PARSED FILE.                       FSNAP     496
                                        *         OUTPUT IS DIVIDED INTO SPECIFIED FIELDS THAT ARE SET-UP DURING FSNAP     497
                                        *         PARSING OF A STATEMENT.                                        FSNAP     498
                                        *                                                                        FSNAP     499
                                        *         ENTRY  (X5) = OPERATOR.                                        FSNAP     500
                                        *                                                                        FSNAP     501
                                        *         EXIT   (X5) = NEXT OPERAND                                     FSNAP     502
                                                                                                                 FSNAP     503
                                                                                                                 FSNAP     504
           206  0400400206 +             SN.POP   SUBR               ENTRY/EXIT...                               FSNAP     505
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    12
        FTN5 SNAPPING ROUTINES.                                       SN.POP
  
                                                                                                                 FSNAP     506
                                        *         UPDATE ORDINAL AND SET DPC INTO LINE BUFFER.                   FSNAP     507
                                                                                                                 FSNAP     508
           207  5110000250 +                      SA1    SN.PNO                                                  FSNAP     509
                          73611                   =X6    X1+1                                                    FSNAP     510
                               54610              SA6    A1          UPDATE ORDINAL                              FSNAP     511
           210  0100000000 X                      RJ     COD         CONVERT TO *DPC*                            FSNAP     512
           211  20622                             LX6    9*CHAR-6*CHAR                                           FSNAP     513
                     7110000100                   SX1    2R  &2R=                                                FSNAP     514
                               13661              BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))          FSNAP     515
           212  5160000251 +                      SA6    LINNO                                                   FSNAP     516
                                                                                                                 FSNAP     517
                                        *         LOOK UP NAME OF SKELETON.                                      FSNAP     518
                                                                                                                 FSNAP     519
                          10755                   BX7    X5                                                      FSNAP     520
                                                  HX7    TH.SKEL                                                 FSNAP     521
                               21756              AX7    -TH.SKELL                                               FSNAP     522
           213  5217000000 X                      SA1    X7+=XF.SKNAM                                            FSNAP     523
                          10611                   BX6    X1                                                      FSNAP     524
           214  5160000255 +                      SA6    LINJPAD                                                 FSNAP     525
                                                                                                                 FSNAP     526
                                        *         CONVERT OPERATOR CODE TO DPC                                   FSNAP     527
                                                                                                                 FSNAP     528
                          5120000000 X            SA2    =XPASS                                                  FSNAP     529
           215  6222777776                        SB2    X2-PASS=QCG                                             FSNAP     530
                          0520000217 +            NZ     B2,SPH44    IF NOT IN QUIK CG                           FSNAP     531
           216  43066                             MX0    -OP.CHINL                                               FSNAP     532
                     20546                        LX5    -OP.CHINP                                               FSNAP     533
                          0400000220 +            EQ     SPH48                                                   FSNAP     534
                                                                                                                 FSNAP     535
           217  43063                    SPH44    MX0    -TH.OVALL                                               FC50104    55
                                                  LX5    -TH.OVALP                                               FC50104    56
                                                                                                                 FSNAP     538
           220  5110000770 +             SPH48    SA1    =H/*BAD-TOK*/                                           FSNAP     539
                          15450                   BX4    -X0*X5      EXTRACT (X4) = CHARACTER MAP INDEX          FSNAP     540
                               22601              LX6    X1                                                      FSNAP     541
           221  6224777712                        SB2    X4-O.ERR                                                FSNAP     542
                          0702000225 +            GT     B2,SPH50    IF TOKEN TOO BIG                            FSNAP     543
           222  5244000000 X                      SA4    X4+CHARMAP                                              FSNAP     544
                          7120001757              SX2    2RO.                                                    FSNAP     545
                                                  HX4    CH.DPC                                                  FSNAP     546
           223  43052                             MX0    CH.DPCL                                                 FSNAP     547
                     11604                        BX6    X0*X4       ISOLATE TOKEN NAME                          FSNAP     548
                          36162                   IX1    X6+X2                                                   FSNAP     549
                               20160              LX1    -2*6                                                    FSNAP     550
           224  0100000000 X                      CALL   ZTB         ZEROES TO BLANKS (TOKEN NAME)               FSNAP     551
           225  5160000256 +             SPH50    SA6    LINOPR                                                  FSNAP     552
                                                                                                                 FSNAP     553
                                        *         EXTRACT MODE FIELDS, DEPENDING ON IL FORMAT.                   FSNAP     554
                                                                                                                 FSNAP     555
                          5120000000 X            SA2    PASS                                                    FC50104    57
           226  6222777776                        SB2    X2-PASS=QCG                                             FSNAP     557
                          0520000230 +            NZ     B2,SPH62    IF NOT IN QUIK CG                           FSNAP     558
           227  20504                             LX5    OP.CHINP-OP.2MODP                                       FSNAP     559
                     43071                        MX0    -OP.2MODL                                               FSNAP     560
                          0400000231 +            EQ     SPH64                                                   FSNAP     561
                                                                                                                 FSNAP     562
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    13
        FTN5 SNAPPING ROUTINES.                                       SN.POP
  
           230  20552                    SPH62    LX5    TH.OVALP-TH.MODEP                                       FC50104    58
                     43070                        MX0    -TH.MODEL                                               FSNAP     564
           231  15250                    SPH64    BX2    -X0*X5      EXTRACT (X2) = RESULT MODE OF TURPLE        FSNAP     565
                     5222000261 +                 SA2    X2+SN.DMOD                                              FSNAP     566
                               10622              BX6    X2                                                      FSNAP     567
           232  54661                             SA6    A6+B1       STORE DPC FOR RESULT/DOMINANT MODE          FSNAP     568
                                                                                                                 FSNAP     569
                                        *         DETERMINE TYPE OF OPERANDS                                     FSNAP     570
                                                                                                                 FSNAP     571
                                                  LX4    -CH.OPCP                                                FSNAP     572
                     73240                        SX2    X4          (X2) = DUC-ABILITY                          FSNAP     573
                                   0              ERRNZ  18-CH.OPCL                                              FSNAP     574
                          6170000000 X            SB7    DUC.1ST                                                 FSNAP     575
           233  67707                             SB7    -B7                                                     FSNAP     576
                     63727                        SB7    X2+B7                                                   FSNAP     577
                          6120000272 +            SB2    SN.1ST                                                  FSNAP     578
           234  0470000241 +                      ZR     B7,SN.POP7                                              FSNAP     579
                          6170000000 X            SB7    DUC.BTH                                                 FSNAP     580
           235  67707                             SB7    -B7                                                     FSNAP     581
                     63727                        SB7    X2+B7                                                   FSNAP     582
                          6120000274 +            SB2    SN.BOTH                                                 FSNAP     583
           236  0470000241 +                      ZR     B7,SN.POP7                                              FSNAP     584
                          6170000000 X            SB7    DUC.2ND                                                 FSNAP     585
           237  67707                             SB7    -B7                                                     FSNAP     586
                     63727                        SB7    X2+B7                                                   FSNAP     587
                          6120000273 +            SB2    SN.2ND                                                  FSNAP     588
           240  0470000241 +                      ZR     B7,SN.POP7                                              FSNAP     589
                          6120000271 +            SB2    SN.NULL                                                 FSNAP     590
           241  56320                    SN.POP7  SA3    B2                                                      FSNAP     591
                     10633                        BX6    X3                                                      FSNAP     592
                          54661                   =A6    A6+1                                                    FSNAP     593
                                                                                                                 FSNAP     594
                                        *         CONVERT OPERATOR WORD TO DPC/OCTAL                             FSNAP     595
                                                                                                                 FSNAP     596
                               54150              SA1    A5          RETRIEVE TURPLE HEADER                      FSNAP     597
           242  64350                             SB3    A5                                                      FSNAP     598
                     0100000000 X                 RJ     WOD                                                     FSNAP     599
           243  5160000252 +                      SA6    LINPOC                                                  FSNAP     600
                          54761                   SA7    A6+B1                                                   FSNAP     601
                                                                                                                 FSNAP     602
                                        *         UPDATE POINTERS.                                               FSNAP     603
                                                                                                                 FSNAP     604
                               55001              SA0    A0-B1                                                   FSNAP     605
           244  56531                             =A5    B3+1                                                    FSNAP     606
                     7110000251 +                 PLINE  LINPAR,LINSPHL                                          FSNAP     607
           247  0400000206 +                      EQ     EXIT.                                                   FSNAP     608
                                                                                                                 FSNAP     609
           250                     1     SN.PNO   BSS    1           HOLDS PARSED FILE INDEX                     FSNAP     610
                                                                                                                 FSNAP     611
                                        **        LINE IMAGE FOR DUMPING CONTENTS OF A PARSED FILE ELEMENT.      FSNAP     612
                                                                                                                 FSNAP     613
           251                           LINPAR   BSS    0                                                       FSNAP     614
           251  00000000000000000000     LINNO    DATA   0                                                       FSNAP     615
           252  00000000000000000000     LINPOC   DATA   0           ENTRY 1ST HALF                              FSNAP     616
           253  00000000000000000000              DATA   0           ENTRY 2ND HALF                              FSNAP     617
           254  55555555555555555555              DATA   10H                                                     FSNAP     618
           255                           LINJPAD  BSS    0           JUMP ADDRESS OF OPERATOR.                   FSNAP     619
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    14
        FTN5 SNAPPING ROUTINES.                                       SN.POP
  
           255  00000000000000000000     LINPDP   DATA   0                                                       FSNAP     620
           256  00000000000000000000     LINOPR   DATA   0           OPERATOR DPC                                FSNAP     621
                                   6     LINSPGL  =      *-LINPAR    LENGTH OF SPG LINE                          FSNAP     622
           257  55155715170405555555              DIS    1, M.MODE                                               FSNAP     623
           260  04250354271011031055              DIS    1,DUC=WHICH                                             FSNAP     624
                                  10     LINSPHL  =      *-LINPAR    LENGTH OF SPH LINE                          FSNAP     625
                                                                                                                 FSNAP     626
                                        **        DOMINANT MODE *DPC*                                            FSNAP     627
                                                                                                                 FSNAP     628
           261                           SN.DMOD  BSS                                                            FSNAP     629
      L      0                                    LOC    0                                                       FSNAP     630
      L      0  55155702171714555555     M.BOOL   DIS    1, M.BOOL                                               FSNAP     631
      L      1  55155714170755555555     M.LOG    DIS    1, M.LOG                                                FSNAP     632
      L      2  55155711162455555555     M.INT    DIS    1, M.INT                                                FSNAP     633
      L      3  55155722050114555555     M.REAL   DIS    1, M.REAL                                               FSNAP     634
      L      4  55155704021455555555     M.DBL    DIS    1, M.DBL                                                FSNAP     635
      L      5  55155703201430555555     M.CPLX   DIS    1, M.CPLX                                               FSNAP     636
      L      6  55155703100122555555     M.CHAR   DIS    1, M.CHAR                                               FSNAP     637
      L      7  55151704055442555555              DIS    1, MODE=7                                               FSNAP     638
           271                                    LOC    *O                                                      FSNAP     639
                                                                                                                 FSNAP     640
                                        **        TYPE OF OPERANDS                                               FSNAP     641
                                                                                                                 FSNAP     642
           271  55555555555555555555     SN.NULL  DIS    1,          BLANK FOR DUC=NONE                          FSNAP     643
           272  55042503543423245555     SN.1ST   DIS    1, DUC=1ST                                              FSNAP     644
           273  55042503543516045555     SN.2ND   DIS    1, DUC=2ND                                              FSNAP     645
           274  55042503540217241055     SN.BOTH  DIS    1, DUC=BOTH                                             FSNAP     646
  
  
  
  
                                        ***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.       FSNAP     648
                                        *                                                                        FSNAP     649
                                        *                                                                        FSNAP     650
                                        *         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC      FSNAP     651
                                        *         STMT PROCESSORS FOR IDP COMMANDS.                              FSNAP     652
  
  
  
  
                                        **        UKT=FE - USER IDP KEYWORD TABLE FOR *FRONT-END*.               FSNAP     654
                                                                                                                 FSNAP     655
                                                                                                                 FSNAP     656
           275                           UKT=FE   BSSENT 0           ** FWA OF KEYWORD TABLE **                  FSNAP     657
                                                  QUAL   IDP                                                     FSNAP     658
           275                           BRL      KEYW   (BRLINE NR)                                             FSNAP     659
           277                           DMT      KEYW   (DUMPT FWA,LWA,LEN)                                     FSNAP     660
                                                  QUAL   *                                                       FSNAP     661
           301  00000000000000000000              DATA   0           ** END OF TABLE MARK **                     FSNAP     662
           302  00000000000000000516 +            CON    /IDP/UKT=TOK                                            FSNAP     663
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    15
        FTN5 SNAPPING ROUTINES.                                       ST=BRL
  
                                        **        ST=BRL - HERE TO PROCESS *BRLINE NR*.                          FSNAP     665
                                                                                                                 FSNAP     666
                                                                                                                 FSNAP     667
           303                           ST=BRL   BSS    0           ** ENTRY **                                 FSNAP     668
           303  0100000000 X                      RJ     PAS         PARSE SUBEXPRESSION                         FSNAP     669
           304  5160000001 +                      SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT         FSNAP     670
                          0400000000 X            EQ     IDP=MN                                                  FSNAP     671
  
  
  
  
                                        *         COMMON DECKS.                                                  FSNAP     673
                                                                                                                 FSNAP     674
                                                                                                                 FSNAP     675
                                                  QUAL   IDP                                                     FSNAP     676
                                                                                                                 FSNAP     677
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    16
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                                            IDP 
  
           305                                    CTEXT  COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                  COMDDMT     2
                                                                                                                 COMDDMT     3
                                                                                                                 COMDDMT     4
                                                  IF     -DEF,QUAL$,1                                            COMDDMT     5
                                                  QUAL   COMDDMT                                                 COMDDMT     6
                                 D_D              BASE   D                                                       COMDDMT     7
  
  
  
  
                                        **        DAT - DUMP A TABLE.                                            COMDDMT     9
                                        *                                                                        COMDDMT    10
                                        *                                                                        COMDDMT    11
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN (TT.) WORD        COMDDMT    12
                                        *                (X2) = 42/7LNAME,18/ORDINAL OF TABLE                    COMDDMT    13
                                        *                                                                        COMDDMT    14
                                        *         EXIT   NONE                                                    COMDDMT    15
                                        *                                                                        COMDDMT    16
                                        *         USES   ALL                                                     COMDDMT    17
                                        *                                                                        COMDDMT    18
                                        *         CALLS  COD,DCM,PRIDP                                           COMDDMT    19
                                                                                                                 COMDDMT    20
                                                                                                                 COMDDMT    21
           305  0100000352 +             DAT8     RJ     DSY         DUMP SYMBOL TABLE                           COMDDMT    22
                                                                                                                 COMDDMT    23
           306  0400400306 +             DAT      SUBR               ** ENTRY/EXIT **                            COMDDMT    24
           307  5130000774 +                      SA3    =3R                                                     COMDDMT    25
                          43452                   MX4    42                                                      COMDDMT    26
                               11542              BX5    X4*X2       REMOVE ORDINAL                              COMDDMT    27
           310  12653                             BX6    X5+X3       ADD BLANKS                                  COMDDMT    28
                     5160000330 +                 SA6    DATB+2      TABLE NAME 10H FMT                          COMDDMT    29
           311  6051000000                        SB5    A1+         (B5) = ADDR OF TABLE ORIGIN WORD            COMDDMT    30
                          5011000000 X            SA1    A1+N.TABLE  (X1) = LEN OF TABLE                         COMDDMT    31
           312  5120000326 +                      SA2    DATB                                                    COMDDMT    32
                          54321                   SA3    A2+B1                                                   COMDDMT    33
                               10622              BX6    X2                                                      COMDDMT    34
           313  54431                             SA4    A3+B1                                                   COMDDMT    35
                     5160000000 X                 SA6    SNAPLNE                                                 COMDDMT    36
                               22703              LX7    X3                                                      COMDDMT    37
           314  54761                             SA7    A6+B1                                                   COMDDMT    38
                     54541                        SA5    A4+B1                                                   COMDDMT    39
                          10644                   BX6    X4                                                      COMDDMT    40
                               22705              LX7    X5                                                      COMDDMT    41
           315  54671                             SA6    A7+B1                                                   COMDDMT    42
                     54761                        SA7    A6+B1                                                   COMDDMT    43
                          0100000000 X            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (TBL LEN)       COMDDMT    44
           316  54671                             SA6    A7+B1                                                   COMDDMT    45
                     43700                        MX7    0                                                       COMDDMT    46
                          54761                   SA7    A6+B1       MARK EOL                                    COMDDMT    47
                               66450              SB4    B5          (B4) = ADDR OF TABLE ORIGIN WORD            COMDDMT    48
           317  7160000000 X                      PRIDP  SNAPLNE,,1                                              COMDDMT    49
           321  5110000775 +                      SA1    =10HSYM                                                 COMDDMT    50
                          5120000330 +            SA2    DATB+2      TABLE NAME                                  COMDDMT    51
           322  37612                             IX6    X1-X2                                                   COMDDMT    52
                     0306000305 +                 ZR     X6,DAT8     IF SYMBOL TABLE TO BE DUMPED                COMDDMT    53
                               56240              SA2    B4          (X2) = ORIGIN (FWA) OF TABLE                COMDDMT    54
           323  43300                             MX3    0           (X3) = LWA (NULL)                           COMDDMT    55
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    17
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DAT                 IDP 
  
                     5144000000 X                 SA4    B4+N.TABLE  (X4) = LENGTH OF TABLE                      COMDDMT    56
           324  0304000306 +                      ZR     X4,EXIT.    IF TABLE EMPTY -- AVOID DUMP                COMDDMT    57
                          0100000000 X            CALL   DCM=        DUMP CENTRAL MEMORY                         COMDDMT    58
           325  0400000306 +                      EQ     EXIT.                                                   COMDDMT    59
                                                                                                                 COMDDMT    60
                                                                                                                 COMDDMT    61
           326  55555555555504251520     DATB     DIS    2,      DUMP OF TABLE                                   COMDDMT    62
           330  00000000000000000000              DATA   0           NAME OF TABLE 10H FMT                       COMDDMT    63
           331  55140516072410555455              DATA   10H LENGTH =                                            COMDDMT    64
                                        *         DATA   10H NNNNNNB                                             COMDDMT    65
  
  
  
  
                                        **        DMT - DUMP TABLES.                                             COMDDMT    67
                                        *                                                                        COMDDMT    68
                                        *                                                                        COMDDMT    69
                                        *                CALLED BY *DUMPT* MACRO.                                COMDDMT    70
                                        *                                                                        COMDDMT    71
                                        *         ENTRY  LOWER HALF OF *RJ DMT=* WORD HAS FWA OF PARAMETER LIST- COMDDMT    72
                                        * +       RJ     DMT=                                                    COMDDMT    73
                                        * -       VFD    30/FWA OF PARAMETER LIST                                COMDDMT    74
                                        *                                                                        COMDDMT    75
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP    COMDDMT    76
                                        *         BY *DUMPT* MACRO.  (SEE *TSTEXT*) --                           COMDDMT    77
                                        *                                                                        COMDDMT    78
                                        *         VFD    60/LOWER LIMIT (LL)                                     COMDDMT    79
                                        *         VFD    60/UPPER LIMIT (UL)                                     COMDDMT    80
                                        *         VFD    60/INCREMENT (INC)                                      COMDDMT    81
                                        *         VFD    60/10HSNAP NAME   (OR .ZR. IF NO NAME)                  COMDDMT    82
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          COMDDMT    83
                                        *         VFD    42/7LTN1,18/0                                           COMDDMT    84
                                        *                 .                                                      COMDDMT    85
                                        *                 .                                                      COMDDMT    86
                                        *         VFD    42/7LTNN,18/0                                           COMDDMT    87
                                        *         VFD    60/0        END OF TABLE MARK                           COMDDMT    88
                                        *                                                                        COMDDMT    89
                                        *                WHERE TN1,...,TNN ARE THE NAMES OF TABLES IN THE        COMDDMT    90
                                        *                NAMES TABLE (SEE *TABLES* MACRO IN *TABLES*).           COMDDMT    91
                                        *                                                                        COMDDMT    92
                                        *         EXIT   NONE                                                    COMDDMT    93
                                        *                                                                        COMDDMT    94
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      COMDDMT    95
                                        *                                                                        COMDDMT    96
                                        *         CALLS  DAT,FRK,HDR,RSR=,SOB,SVR=                               COMDDMT    97
                                                                                                                 COMDDMT    98
                                                                                                                 COMDDMT    99
           332  0400400332 +             DMT=     SUBR   =           ** ENTRY/EXIT **                            COMDDMT   100
           333  0100000000 X                      RJ     SVR=        SAVE ALL REGISTERS                          COMDDMT   101
           334  7110000003                        SX1    3           SET TO *EXECUTIVE IS /DMT=/*                COMDDMT   102
                          0100000000 X            RJ     SOB         SET OUTPUT BIT FLAGS                        COMDDMT   103
           335  5140000332 +                      SA4    DMT=                                                    COMDDMT   104
                          20436                   LX4    30                                                      COMDDMT   105
           336  5254777776                        SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       COMDDMT   106
                          73650                   SX6    X5          (X6) = FWA OF PARAMETER LIST                COMDDMT   107
           337  5160000000 X                      SA6    FW=IDPL                                                 COMDDMT   108
                          0100000000 X            RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMDDMT   109
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    18
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DMT                 IDP 
  
           340  0305000350 +                      ZR     X5,DMT3     IF NO DUMP THIS TIME                        COMDDMT   110
                          0100000000 X            RJ     HDR         OUTPUT HEADING                              COMDDMT   111
           341  7225000004                        SX2    X5+SN=DMT-1 (X2+1) = ADDR OF 1ST TABLE PARAMETER WORD   COMDDMT   112
                                                                                                                 COMDDMT   113
                                        **        PICK UP NEXT *DUMPT* PARAMETER LIST ENTRY.                     COMDDMT   114
                                                                                                                 COMDDMT   115
           342  73621                    DMT2     SX6    X2+B1                                                   COMDDMT   116
                     53160                        SA1    X6          (X1) = 42/7LTABLENAME,18/0                  COMDDMT   117
                          5160000000 X            SA6    FW=IDPL     RESET START OF PARAMETER LIST               COMDDMT   118
           343  0301000350 +                      ZR     X1,DMT3     IF NO MORE TABLES TO DUMP                   COMDDMT   119
                                                                                                                 COMDDMT   120
                          43052                   MX0    42                                                      COMDDMT   121
           344  6160000000 X                      SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS              COMDDMT   122
                          0100000000 X            CALL   SKT         SEARCH TABLE FOR MATCH                      COMDDMT   123
           345  0302400345 +                      ZR     X2,"BLOWUP" IF UNKNOW TABLE ON DUMPT MACRO              COMDDMT   124
                                                                                                                 COMDDMT   125
                          5212000000 X            SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  COMDDMT   126
           346  0100000306 +                      RJ     DAT         DUMP A TABLE                                COMDDMT   127
           347  5120000000 X                      SA2    FW=IDPL     ADDRESS OF NEXT PARAMETER                   COMDDMT   128
                          0400000342 +            EQ     DMT2        LOOP FOR NEXT...                            COMDDMT   129
                                                                                                                 COMDDMT   130
           350  0100000000 X             DMT3     RJ     RSR=        RESTORE ALL REGISTERS                       COMDDMT   131
           351  0400000332 +                      EQ     EXIT.                                                   COMDDMT   132
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    19
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DSY                 IDP 
  
                                        **        DSY - DUMP SYMBOL TABLE.                                       COMDDMT   134
                                                                                                                 COMDDMT   135
                                                                                                                 COMDDMT   136
           352  0400400352 +             DSY      SUBR                                                           COMDDMT   137
           353  5110000000 X                      SA1    IDPFLG                                                  COMDDMT   138
                          43073                   MX0    -1                                                      COMDDMT   139
                               20101              LX1    -/IDP/IDF.IDOP                                          COMDDMT   140
           354  15210                             BX2    -X0*X1      (X2) = 1 IF WRITING INTERACTIVELY           COMDDMT   141
                     7262000000 X                 SX6    X2+SNAPLNE                                              COMDDMT   142
           355  6262000443 +                      SB6    X2+DSYB     SKIP 10 COLUMNS IF INTERACTIVE              COMDDMT   143
                          5160000455 +            SA6    DSYC                                                    COMDDMT   144
           356  6120000455 +                      SB2    DSYB+DSYBL  (B2) = LWA+1 OF HEADER                      COMDDMT   145
                          76660                   PRIDP  B6,B2-B6    LIST HEADING                                COMDDMT   146
           360  66500                             SB5    B0          (B5) = SYMTAB ENTRY ORDINAL                 COMDDMT   147
                     13555                        BX5    0           (X5) = SYMTAB WORD INDEX                    COMDDMT   148
           361  6160000000 X             DSY2     SB6    SNAPLNE                                                 COMDDMT   149
                          73150                   SX1    X5                                                      COMDDMT   150
           362  0100000000 X                      RJ     COD         CONVERT WORD INDEX                          COMDDMT   151
           363  7120000010                        SX2    1R+&1R                                                  COMDDMT   152
                          22222                   LX2    B2                                                      COMDDMT   153
                               13662              BX6    X6-X2                                                   COMDDMT   154
           364  20622                             LX6    3*6         -+12345---                                  COMDDMT   155
                     56660                        SA6    B6                                                      COMDDMT   156
                          76150                   SX1    B5          CONVERT ORDINAL                             COMDDMT   157
           365  0100000000 X                      RJ     COD                                                     COMDDMT   158
           366  5120000000 X                      SA2    =XT.SYM                                                 COMDDMT   159
                          43752                   MX7    7*6                                                     COMDDMT   160
                               63350              SB3    X5          (B3) = WORD INDEX                           COMDDMT   161
           367  20636                             LX6    5*6         12345-----                                  COMDDMT   162
                     11476                        BX4    X7*X6       12345--...                                  COMDDMT   163
                          53523                   SA5    X2+B3       (X5) = SYMTAB WORD WA                       COMDDMT   164
                               63750              SB7    X5          (B7) = HASH CHAIN LINK                      COMDDMT   165
           370  20522                             LX5    3*6         DEFG123ABC                                  COMDDMT   166
                     15657                        BX6    -X7*X5      .......ABC                                  COMDDMT   167
                          43330                   MX3    4*6                                                     COMDDMT   168
                               11035              BX0    X3*X5       DEFG......                                  COMDDMT   169
           371  12164                             BX1    X6+X4       12345--ABC                                  COMDDMT   170
                     0100000000 X                 RJ     ZTB         ZEROES TO BLANKS                            COMDDMT   171
           372  56661                             SA6    B6+B1                                                   COMDDMT   172
                     76170                        SX1    B7                                                      COMDDMT   173
                          0100000000 X            RJ     COD         CONVERT HASH LINK                           COMDDMT   174
           373  43330                             MX3    -6*6                                                    COMDDMT   175
                     15263                        BX2    -X3*X6      ....-12345                                  COMDDMT   176
                          36120                   IX1    X2+X0       DEFG-12345                                  COMDDMT   177
           374  0100000000 X                      RJ     ZTB                                                     COMDDMT   178
           375  5166000002                        SA6    B6+2                                                    COMDDMT   179
                                                                                                                 COMDDMT   180
                          54551                   =A5    A5+WB.W     (X5) = SYMTAB WORD WB                       COMDDMT   181
                               43272              MX2    -2          LEVN                                        COMDDMT   182
           376  20517                             LX5    -45                                                     COMDDMT   183
                     15452                        BX4    -X2*X5      (X4) = LEVEL NUMBER                         COMDDMT   184
                          20572                   LX5    45-47                                                   COMDDMT   185
           377  7204777755                        SX0    X4+1R0-1R   CONVERT LEVEL NUMBER                        COMDDMT   186
                          43757                   MX7    -13         PTRF                                        COMDDMT   187
                               15157              BX1    -X7*X5                                                  COMDDMT   188
           400  20006                             LX0    6                                                       COMDDMT   189
                     0100000000 X                 RJ     COD         CONVERT POINTER FIELD                       COMDDMT   190
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    20
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DSY                 IDP 
  
           401  20630                             LX6    4*6                                                     COMDDMT   191
                     36760                        IX7    X6+X0       -12345--L-                                  COMDDMT   192
                          54761                   SA7    A6+B1                                                   COMDDMT   193
                               20516              LX5    47-33       RB/FPNO/FUNI                                COMDDMT   194
           402  43260                             MX2    -12                                                     COMDDMT   195
                     15152                        BX1    -X2*X5                                                  COMDDMT   196
                          20541                   LX5    33-0                                                    COMDDMT   197
                               43471              MX4    -3                                                      COMDDMT   198
           403  15354                             BX3    -X4*X5                                                  COMDDMT   199
                     63730                        SB7    X3          (B7) = MODE                                 COMDDMT   200
                          0100000000 X            RJ     COD         CONVERT RB/FPNO/FUNI                        COMDDMT   201
           404  20644                             LX6    6*6                                                     COMDDMT   202
                     54671                        SA6    A7+B1                                                   COMDDMT   203
                          20571                   LX5    0-3                                                     COMDDMT   204
                               64350              SB3    A5          SAVE (B3) = (A5)                            COMDDMT   205
           405  10155                             BX1    X5                                                      COMDDMT   206
                     0100000000 X                 RJ     WOD         CONVERT ALL OF WORD WB                      COMDDMT   207
           406  54160                             SA1    A6          FUNI------                                  COMDDMT   208
                     43244                        MX2    6*6                                                     COMDDMT   209
                          20730                   LX7    4*6         5678901234                                  COMDDMT   210
                               11121              BX1    X2*X1       ABCD--....                                  COMDDMT   211
           407  15372                             BX3    -X2*X7      ......1234                                  COMDDMT   212
                     11727                        BX7    X2*X7       567890....                                  COMDDMT   213
                          5147000433 +            SA4    DSYA+B7     ......--M-                                  COMDDMT   214
           410  12613                             BX6    X1+X3                                                   COMDDMT   215
                     54660                        SA6    A6          FUNI---1234                                 COMDDMT   216
                          12747                   BX7    X4+X7       567890--M-                                  COMDDMT   217
                               54761              SA7    A6+B1                                                   COMDDMT   218
                                                                                                                 COMDDMT   219
           411  56531                             =A5    B3-WB.W+WC.W      FETCH (X5) = SYMTAB WORD WC           COMDDMT   220
                     43360                        MX3    -12         (X3) = BASE                                 COMDDMT   221
                          20514                   LX5    -48                                                     COMDDMT   222
                               15153              BX1    -X3*X5      (X1) = EQUIV CLASS BASE                     COMDDMT   223
           412  0100000000 X                      RJ     COD         CONVERT OCTAL                               COMDDMT   224
           413  43252                             MX2    7*6                                                     COMDDMT   225
                     20636                        LX6    5*6         -BASE-----                                  COMDDMT   226
                          11026                   BX0    X2*X6       -BASE--...                                  COMDDMT   227
                               43452              MX4    -18                                                     COMDDMT   228
           414  20522                             LX5    48-30                                                   COMDDMT   229
                     15154                        BX1    -X4*X5      (X1) = CHARACTER LENGTH                     COMDDMT   230
                          0100000000 X            RJ     COD         CONVERT OCTAL                               COMDDMT   231
           415  20652                             LX6    7*6         456----123                                  COMDDMT   232
                     43252                        MX2    7*6                                                     COMDDMT   233
                          15362                   BX3    -X2*X6      .......123                                  COMDDMT   234
                               12703              BX7    X0+X3       -BASE--123                                  COMDDMT   235
           416  54771                             SA7    A7+B1                                                   COMDDMT   236
                     20502                        LX5    30-28                                                   COMDDMT   237
                          43472                   MX4    -2                                                      COMDDMT   238
                               15154              BX1    -X4*X5                                                  COMDDMT   239
           417  7231777755                        SX3    X1+1R0-1R   CONVERT CHARACTER TYPE                      COMDDMT   240
                          20330                   LX3    4*6         .....C....                                  COMDDMT   241
                               36663              IX6    X6+X3       456--C-123                                  COMDDMT   242
           420  11026                             BX0    X2*X6       456--C-...                                  COMDDMT   243
                     20504                        LX5    28-24                                                   COMDDMT   244
                          43470                   MX4    -4                                                      COMDDMT   245
                               15154              BX1    -X4*X5      (X1) = BEGINNING CHARACTER POSITION         COMDDMT   246
           421  5120000776 +                      SA2    =3R  0                                                  COMDDMT   247
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    21
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DSY                 IDP 
  
                          36621                   IX6    X2+X1       .......--P                                  COMDDMT   248
                               12760              BX7    X6+X0       456--C---P                                  COMDDMT   249
           422  54771                             SA7    A7+B1                                                   COMDDMT   250
                     20530                        LX5    24-0                                                    COMDDMT   251
                          43444                   MX4    -24                                                     COMDDMT   252
                               15154              BX1    -X4*X5      (X1) = WC.RA                                COMDDMT   253
           423  0100000000 X                      RJ     COD         CONVERT OCTAL                               COMDDMT   254
           424  54671                             SA6    A7+B1       --12345678                                  COMDDMT   255
                     43700                        MX7    0                                                       COMDDMT   256
                          76551                   SX5    B5+B1       ADVANCE ORDINAL                             COMDDMT   257
           425  5120000455 +                      SA2    DSYC                                                    COMDDMT   258
                          54761                   SA7    A6+B1       MARK END OF LINE                            COMDDMT   259
                               63620              SB6    X2                                                      COMDDMT   260
           426  76660                             PRIDP  B6,A7-B6                                                COMDDMT   261
           430  63550                             SB5    X5          (B5) = ORDINAL                              COMDDMT   262
                     5120000000 X                 SA2    =XT=SYM                                                 COMDDMT   263
                               22315              LX3    X5,B1                                                   COMDDMT   264
           431  36535                             IX5    X3+X5       (X5) = INDEX                                COMDDMT   265
                     37752                        IX7    X5-X2                                                   COMDDMT   266
                          0337000361 +            MI     X7,DSY2     IF INDEX .LT. LENGTH                        COMDDMT   267
           432  0400000352 +                      EQ     EXIT.                                                   COMDDMT   268
                                                                                                                 COMDDMT   269
           433                           DSYA     BSS                                                            COMDDMT   270
      L      0                                    LOC    0                                                       COMDDMT   271
      L      0  00000000000055553355     M.UNIV   CON    4R  0       CHAMELEON                                   COMDDMT   272
      L      1  00000000000055551455     M.LOG    CON    4R  L       LOGICAL                                     COMDDMT   273
      L      2  00000000000055551155     M.INT    CON    4R  I       INTEGER                                     COMDDMT   274
      L      3  00000000000055552255     M.REAL   CON    4R  R       REAL                                        COMDDMT   275
      L      4  00000000000055550455     M.DBL    CON    4R  D       DOUBLE                                      COMDDMT   276
      L      5  00000000000055553255     M.CPLX   CON    4R  Z       COMPLEX                                     COMDDMT   277
      L      6  00000000000055554155              CON    4R  6       BOOLEAN                                     COMDDMT   278
      L      7  00000000000055554255              CON    4R  7       CHARACTER                                   COMDDMT   279
           443                                    LOC    *O                                                      COMDDMT   280
                                                                                                                 COMDDMT   281
           443  55551116040530555555     DSYB     DIS    5,  INDEX   ORDNL  SYMBOL  CHAIN  PTRF LV BASE          COMDDMT   282
           450  03140123235555551555              DIS    4,CLASS   M  FUNI    CLEN  C BCP    RELADD              COMDDMT   283
           454  00000000000000000000              CON    0                                                       COMDDMT   284
                                  12     DSYBL    =      *-DSYB                                                  COMDDMT   285
                                                                                                                 COMDDMT   286
           455  00000000000000000000 X   DSYC     CON    SNAPLNE     FWA OF LINE TO OUTPUT                       COMDDMT   287
  
  
  
  
                                        **        HERE TO PROCESS *DUMPT T1,T2,...,TN*.                          COMDDMT   289
                                                                                                                 COMDDMT   290
                                                                                                                 COMDDMT   291
           456  74650                    ST=DMT   SX6    A5                                                      COMDDMT   292
                     5160000000 +                 SA6    IDPSA5      SAVE (A5) = NEXT TOKEN ADDR                 COMDDMT   293
                                                                                                                 COMDDMT   294
           457  53560                    ST=DMT2  SA5    X6                                                      COMDDMT   295
                     43052                        MX0    7*CHAR                                                  COMDDMT   296
                          0305000000 X            ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMDDMT   297
           460  7265777775                        SX6    X5-/IDP/O.VAR                                           COMDDMT   298
                          0316000466 +            NZ     X6,ST=DMT3  IF NOT A NAME TOKEN                         COMDDMT   299
           461  11105                             BX1    X0*X5                                                   COMDDMT   300
                     0100000000 X                 RJ     =XSFN       SPACE FILL NAME                             COMDDMT   301
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    22
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        ST=DMT              IDP 
  
           462  10166                             BX1    X6          (X1) = 10HTABLE NAME                        COMDDMT   302
                     6160000000 X                 SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS              COMDDMT   303
           463  0100000000 X                      RJ     SKT         SEARCH TABLE FOR MATCH                      COMDDMT   304
           464  0302000466 +                      ZR     X2,ST=DMT3  IF NO FIND                                  COMDDMT   305
                          5212000000 X            SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  COMDDMT   306
           465  0100000306 +                      RJ     DAT         DUMP A TABLE                                COMDDMT   307
                                                                                                                 COMDDMT   308
           466  5110000000 +             ST=DMT3  SA1    IDPSA5                                                  COMDDMT   309
                          73611                   SX6    X1+B1                                                   COMDDMT   310
                               54610              SA6    A1                                                      COMDDMT   311
           467  0400000457 +                      EQ     ST=DMT2                                                 COMDDMT   312
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMDDMT   314
                                                  QUAL   *                                                       COMDDMT   315
                                         DAT      EQU    /COMDDMT/DAT                                            COMDDMT   316
                                         DMT=     EQU    /COMDDMT/DMT=                                           COMDDMT   317
                                         ST=DMT   EQU    /COMDDMT/ST=DMT                                         COMDDMT   318
                                         QUAL$    ENDIF                                                          COMDDMT   319
                                 D_D              BASE   *                                                       COMDDMT   320
                                                                                                                 COMDDMT   321
                                         COMDDMT  ENDX                                                           COMDDMT   322
                                                                                                                 FSNAP     679
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    23
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        COMDTOK             IDP 
  
           467                           COMDTOK  CTEXT  COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.  COMDTOK     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMDTOK     4
                                                  QUAL   COMDTOK                                                 COMDTOK     5
                                 D_D              BASE   D                                                       COMDTOK     6
  
  
  
  
                                        ***       COMDTOK - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.             COMDTOK     8
                                        *         P CLARE   77/02/26                                             COMDTOK     9
                                        *         P CLARE   78/04/27 VERSION 2.0                                 COMDTOK    10
  
  
  
  
                                        ***       COMDTOK - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.             COMDTOK    12
                                        *                                                                        COMDTOK    13
                                        *                                                                        COMDTOK    14
                                        *         THIS DECK CONTAINS A FEW *TEST* MODE DEBUGGING UTILITY         COMDTOK    15
                                        *         SUBROUTINES THAT CAN BE USEFUL IN HELPING ONE DEBUG THEIR      COMDTOK    16
                                        *         *TOGEL* PROGRAMS.                                              COMDTOK    17
                                        *                                                                        COMDTOK    18
                                        *         *COMDTOK* CAN BE USED TO DEASSEMBLE *TOGEL* BINARY             COMDTOK    19
                                        *         INSTRUCTIONS (ASSEMBLED VIA *COMATOK*), AND TO PROVIDE         COMDTOK    20
                                        *         THE ABILITY TO PLACE *COMCTOK* IN STEP MODE.  THAT IS,         COMDTOK    21
                                        *         TO ALLOW THE PROGRAMMER TO CONTROL THE EXECUTION/INTERPRETING  COMDTOK    22
                                        *         OF *TOGEL* BINARY INSTRUCTIONS BY *COMCTOK*, AND TO ALLOW      COMDTOK    23
                                        *         THE PROGRAMMER TO OBSERVE THE GENERATION OF TOKENS             COMDTOK    24
                                        *         BY *COMCTOK* ON AN INSTRUCTION BY INSTRUCTION BASIS.           COMDTOK    25
                                        *                                                                        COMDTOK    26
                                        *         IN THE FOLLOWING PARAGRAPHS, *ASSEMBLY-TIME DEPENDENCIES*      COMDTOK    27
                                        *         REFERS TO INTERFACES THAT THE *COMDTOK* INSTALLER MUST         COMDTOK    28
                                        *         PROVIDE.  *ASSEMBLY-TIME OPTIONS* REFERS TO INTERFACES         COMDTOK    29
                                        *         THAT ARE OPTIONAL, I.E. THAT HAVE A DEFAULT VALUE.             COMDTOK    30
                                        *                                                                        COMDTOK    31
                                        ************************************************************************ COMDTOK    32
                                        *                                                                        COMDTOK    33
                                        *         ASSEMBLY-TIME DEPENDENCIES --                                  COMDTOK    34
                                        *                                                                        COMDTOK    35
                                        ************************************************************************ COMDTOK    36
                                        *                                                                        COMDTOK    37
                                        *         *COMCTOK* (TOKEN GENERATOR) MUST BE ASSEMBLED WITH THE         COMDTOK    38
                                        *         SYMBOL *TEST* SET TO .NZ.  THIS WILL FORCE ASSEMBLY OF         COMDTOK    39
                                        *         CODE IN *COMCTOK* TO INTERFACE WITH *COMDTOK*.                 COMDTOK    40
                                        *                                                                        COMDTOK    41
                                        ************************************************************************ COMDTOK    42
                                        *                                                                        COMDTOK    43
                                        *         *COMSTOK*, WHICH CONTAINS THE SYMBOLS THAT DESCRIBE/DEFINE     COMDTOK    44
                                        *         THE *TOGEL* BINARY INSTRUCTION FORMATS, MUST BE PROVIDED.      COMDTOK    45
                                        *                                                                        COMDTOK    46
                                        ************************************************************************ COMDTOK    47
                                        *                                                                        COMDTOK    48
                                        *         *COMDTOK* INTERFACES WITH *COMCIDP* (FORMERLY *DBG=IDP*),      COMDTOK    49
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    24
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOK                 IDP 
  
                                        *         THE INTERACTIVE DEBUG PACKAGE, AND THEREFORE REQUIRES          COMDTOK    50
                                        *         *COMSIDP*, WHICH CONTAINS *IDP* INTERFACE MACRO AND SYMBOL     COMDTOK    51
                                        *         DEFINITIONS.                                                   COMDTOK    52
                                        *                                                                        COMDTOK    53
                                        ************************************************************************ COMDTOK    54
                                        *                                                                        COMDTOK    55
                                        *         SUMMARY OF REQUIRED COMDECKS --                                COMDTOK    56
                                        *                                                                        COMDTOK    57
                                        *         COMCIDP   COMCMCS   COMCTOK                                    COMDTOK    58
                                        *                                                                        COMDTOK    59
                                        *         COMSIDP   COMSTOK                                              COMDTOK    60
                                        *                                                                        COMDTOK    61
                                        *         NOTE-- *COMCIDP* AND *COMCTOK* HAVE THEIR OWN SET OF REQUIRED  COMDTOK    62
                                        *         COMDECKS.  THIS LIST ASSUMES THAT THE PROGRAMMER HAS ALREADY   COMDTOK    63
                                        *         CONFIGURED AND INSTALLED *COMCIDP* AND *COMCTOK*.              COMDTOK    64
                                        *                                                                        COMDTOK    65
                                        ************************************************************************ COMDTOK    66
  
  
  
  
                                        **        TOGELI - DEFINE *TOGEL* INSTRUCTION/OPCODE.                    COMDTOK    68
                                        *                                                                        COMDTOK    69
                                        *                                                                        COMDTOK    70
                                        *         THIS MACRO DEFINES A TABLE ENTRY THAT CAN BE USED              COMDTOK    71
                                        *         BY EITHER *TID* OR *TOD* IN PROCESSING A BINARY *TOGEL*        COMDTOK    72
                                        *         INSTRUCTION.  SEE *TID/TOD*.                                   COMDTOK    73
                                        *                                                                        COMDTOK    74
                                        * TOFU    TOGELI DPC                                                     COMDTOK    75
                                        *                                                                        COMDTOK    76
                                        * COF     TOGELI CASEOF                                                  COMDTOK    77
                                        *                                                                        COMDTOK    78
                                        *         ENTRY  TOFU = TOFU SUFFIX FOR THIS *TOGEL* INSTRUCTION,        COMDTOK    79
                                        *                       I.E. PROCESSOR ADDRESSES ARE FORMED BY SUFFIXING COMDTOK    80
                                        *                       *TOFU* TO *TOK=*, *TOD=*, AND *TID=*.            COMDTOK    81
                                        *                DPC  = DISPLAY CODE OPCODE FOR THIS *TOGEL* BINARY      COMDTOK    82
                                        *                       INSTRUCTION.                                     COMDTOK    83
                                        *                                                                        COMDTOK    84
                                        *         EXIT   NONE                                                    COMDTOK    85
                                        *                                                                        COMDTOK    86
                                        *         USES   NONE                                                    COMDTOK    87
                                        *                                                                        COMDTOK    88
                                        *         CALLS  NONE                                                    COMDTOK    89
                                                                                                                 COMDTOK    90
                                                                                                                 COMDTOK    91
                                                  PURGMAC TOGELI                                                 COMDTOK    92
                                                                                                                 COMDTOK    93
                                                  MACRO  TOGELI,TOFU,DPC                                         COMDTOK    94
                                        *                                                                        COMDTOK    95
                                         +        VFD    6/0,18/TID=TOFU,18/TOD=TOFU,18/=XTOK=TOFU               COMDTOK    96
                                        *                                                                        COMDTOK    97
                                         +        DATA   L/DPC/                                                  COMDTOK    98
                                        *                                                                        COMDTOK    99
                                         TOGELI   ENDM                                                           COMDTOK   100
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    25
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        FW.OPC              IDP 
  
                                        **        FW.OPC - *TOGEL* INSTRUCTION OPCODE TABLE.                     COMDTOK   102
                                                                                                                 COMDTOK   103
                                                                                                                 COMDTOK   104
           470                           FW.OPC   BSS    0           ** FWA OF OPCODE TABLE **                   COMDTOK   105
           470  00400645 +               CAL      TOGELI CALT                                                    COMDTOK   106
           472  00400645 +               COF      TOGELI CASEOF                                                  COMDTOK   107
           474  00400645 +               ELS      TOGELI ELST                                                    COMDTOK   108
           476  00400645 +               ENT      TOGELI ENDT                                                    COMDTOK   109
           500  00400645 +               GN       TOGELI GROUP                                                   COMDTOK   110
           502  00400645 +               GO       TOGELI GOTO                                                    COMDTOK   111
           504  00400645 +               GS       TOGELI GROUP                                                   COMDTOK   112
           506  00400645 +               IFT      TOGELI IFT                                                     COMDTOK   113
           510  00400645 +               ON       TOGELI ON                                                      COMDTOK   114
           512  00400645 +               XEQ      TOGELI XEQ                                                     COMDTOK   115
                                                                                                                 COMDTOK   116
                                  24     L.OPC    =      *-FW.OPC                                                COMDTOK   117
  
  
  
  
                                        **        PTR. - DEFINE *PTR* (POINTER) NRS FOR *COMDTOK*.               COMDTOK   119
                                                                                                                 COMDTOK   120
                                                                                                                 COMDTOK   121
                                   4     PTR.TOG  =      4                                                       COMDTOK   122
                                   5     PTR.TOK  =      5                                                       COMDTOK   123
  
  
  
  
                                        **        TOG= - SAVED FWA AND LWA FOR *TOGEL*.                          COMDTOK   125
                                                                                                                 COMDTOK   126
                                                                                                                 COMDTOK   127
           514                     2     TOG=FWA  BSSZ   2                                                       COMDTOK   128
                                 515 +   TOG=LWA  =      TOG=FWA+1                                               COMDTOK   129
  
  
  
  
                                        **        UKT=TOK - USER IDP KEYWORD TABLE FOR *COMDTOK*.                COMDTOK   131
                                                                                                                 COMDTOK   132
                                                                                                                 COMDTOK   133
           516                           UKT=TOK  BSS    0           ** FWA OF KEYWORD TABLE **                  COMDTOK   134
           516                           BRT      KEYW   (BRTOK TOGEL)                                           COMDTOK   135
           520                           TOG      KEYW   (TOGEL FWA,LWA,LEN)                                     COMDTOK   136
           522                           TOK      KEYW   (TOKEN FWA,LWA,LEN)                                     COMDTOK   137
           524                           UBT      KEYW   (UBTOK)                                                 COMDTOK   138
           526  00000000000000000000              DATA   0           ** END OF TABLE **                          COMDTOK   139
           527  00000000000000000000     UKT=LNK  DATA   0           ** LINK WORD **                             COMDTOK   140
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    26
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        ST=BRT              IDP 
  
                                        **        HERE TO PROCESS *BRTOK TOGEL*.                                 COMDTOK   142
                                                                                                                 COMDTOK   143
           530                           ST=BRT   BSS    0           ** ENTRY **                                 COMDTOK   144
           530  0315000532 +                      NZ     X5,BRT1     IF KEYWORD NOT IMMEDIATELY FOLLOWED BY EOS  COMDTOK   145
                          7160777776              SX6    -1                                                      COMDTOK   146
           531  5160000000 X                      SA6    =XTF=IDP    SET TO *BREAK ON ANY TOGEL INSTRUCTION*     COMDTOK   147
                          0400000000 X            EQ     IDP=MN                                                  COMDTOK   148
                                                                                                                 COMDTOK   149
                                        *         SEARCH FOR *TOGEL* DPC OPCODE.                                 COMDTOK   150
                                                                                                                 COMDTOK   151
           532  6170000024               BRT1     SB7    L.OPC       (B7) = LEN OF *TOGEL* OPCODE TABLE          COMDTOK   152
                          43152                   MX1    TB.TOCL                                                 COMDTOK   153
                               54551              SA5    A5+B1       (X5) = TOKEN CONTAINING *TOGEL* OPC         COMDTOK   154
                                        *                                   TO BREAK AT                          COMDTOK   155
           533  7265777775                        SX6    X5-O.VAR                                                COMDTOK   156
                          0316000000 X            NZ     X6,IDP=ER   IF NOT *VAR* TOKEN, ERROR...                COMDTOK   157
           534  11615                             BX6    X1*X5       (X6) = TOGEL INSTRUCTION MNEMONIC, -L- FMT  COMDTOK   158
                     5110000471 +                 SA1    FW.OPC+1    (A1,X1) = A+C OF 1ST DPC MNEM IN OPC TBL    COMDTOK   159
                                                                                                                 COMDTOK   160
           535  0607000000 X             BRT2     LE     B7,B0,IDP=ER  IF EOT AND NO FIND, ERROR...              COMDTOK   161
                          64210                   SB2    A1          (B2) = ADDR+1 OF FOUND ENTRY, IF FOUND      COMDTOK   162
                               13716              BX7    X1-X6                                                   COMDTOK   163
           536  5011000002                        SA1    A1+2                                                    COMDTOK   164
                          6177777775              SB7    B7-2                                                    COMDTOK   165
           537  0317000535 +                      NZ     X7,BRT2     IF NO FIND                                  COMDTOK   166
                                                                                                                 COMDTOK   167
                                        *         HERE WITH A FIND.  SET UP (TF=IDP).                            COMDTOK   168
                                                                                                                 COMDTOK   169
                          57221                   SA2    B2-B1       (X2) = OPC TBL ENTRY CONTAINING TOFU ADDR   COMDTOK   170
                               73620              SX6    X2          (X6) = TOFU ADDR                            COMDTOK   171
           540  5160000000 X                      SA6    TF=IDP                                                  COMDTOK   172
                          0400000000 X            EQ     IDP=MN                                                  COMDTOK   173
  
  
  
  
                                        **        HERE TO PROCESS *TOGEL FWA,LWA,LEN*.                           COMDTOK   175
                                                                                                                 COMDTOK   176
           541                           ST=TOG   BSS    0           ** ENTRY **                                 COMDTOK   177
           541  0100000745 +                      RJ     UTG         USER *TOGEL* OWNCODE                        COMDTOK   178
           542  0100000000 X                      RJ     =XPAT       PARSE *FWA,LWA,LEN* TRIPLE                  COMDTOK   179
           543  0720000000 X                      MI     B2,IDP=ER   IF FWA, LWA, OR LEN IS BAD                  COMDTOK   180
                          10622                   BX6    X2                                                      COMDTOK   181
                               22703              LX7    X3                                                      COMDTOK   182
           544  5160000514 +                      SA6    TOG=FWA                                                 COMDTOK   183
                          5170000515 +            SA7    TOG=LWA                                                 COMDTOK   184
                                                                                                                 COMDTOK   185
           545  5110000514 +             ST=TOG2  SA1    TOG=FWA                                                 COMDTOK   186
                          54211                   SA2    A1+B1                                                   COMDTOK   187
                               37321              IX3    X2-X1                                                   COMDTOK   188
           546  73611                             SX6    X1+B1                                                   COMDTOK   189
                     0333000000 X                 MI     X3,IDP=MN   IF FINISHED                                 COMDTOK   190
                               54610              SA6    A1                                                      COMDTOK   191
           547  0100000646 +                      RJ     TOD         TOGEL DEASSEMBLER                           COMDTOK   192
           550  0720400550 +                      MI     B2,*+4S15   IF SOME ADDR WAS BAD                        COMDTOK   193
                          0400000545 +            EQ     ST=TOG2                                                 COMDTOK   194
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    27
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        ST=TOK              IDP 
  
                                        **        HERE TO PROCESS *TOKEN FWA,LWA,LEN*.                           COMDTOK   196
                                                                                                                 COMDTOK   197
           551                           ST=TOK   BSS    0           ** ENTRY **                                 COMDTOK   198
           551  0100000751 +                      RJ     UTK         USER *TOKEN* OWNCODE                        COMDTOK   199
           552  0100000000 X                      RJ     PAT         PARSE *FWA,LWA,LEN* TRIPLE                  COMDTOK   200
           553  0720000000 X                      MI     B2,IDP=ER   IF FWA, LWA, OR LEN IS BAD                  COMDTOK   201
                          0100000615 +            RJ     LTK         LIST TOKENS                                 COMDTOK   202
           554  0400000000 X                      EQ     IDP=MN                                                  COMDTOK   203
  
  
  
  
                                        **        HERE TO PROCESS *UBTOK*.                                       COMDTOK   205
                                                                                                                 COMDTOK   206
           555                           ST=UBT   BSS    0           ** ENTRY **                                 COMDTOK   207
           555  7160000000                        SX6    0                                                       COMDTOK   208
                          5160000000 X            SA6    TF=IDP      SET TO *NO BRTOK SELECTED*                  COMDTOK   209
           556  0400000000 X                      EQ     IDP=MN                                                  COMDTOK   210
  
  
  
  
                                        **        CTD - CONVERT TOKEN TYPE TO DPC.                               COMDTOK   212
                                        *                                                                        COMDTOK   213
                                        *                                                                        COMDTOK   214
                                        *         THIS ROUTINE CONVERTS A BINARY TOKEN TYPE VALUE TO DPC         COMDTOK   215
                                        *         BY 1 OF 2 METHODS --                                           COMDTOK   216
                                        *                                                                        COMDTOK   217
                                        *           1. IF THE USER PROVIDED *CTD=*, THEN CALL *CTD=*             COMDTOK   218
                                        *              TO PERFORM THE CONVERSION, ELSE                           COMDTOK   219
                                        *                                                                        COMDTOK   220
                                        *           2. IF THE USER DID NOT PROVIDE *CTD=*, THEN CALL *COD*       COMDTOK   221
                                        *              TO CONVERT THE TOKEN TYPE TO OCTAL DPC.                   COMDTOK   222
                                        *                                                                        COMDTOK   223
                                        *         ENTRY  (X1) = TOKEN TYPE, IN BINARY.                           COMDTOK   224
                                        *                                                                        COMDTOK   225
                                        *         EXIT   (X6) = TOKEN TYPE, IN -L- FMT.                          COMDTOK   226
                                        *                (X1) = (X6)                                             COMDTOK   227
                                        *                (B2) = .PL. IF USER PROVIDED *CTD=*, ELSE .MI.          COMDTOK   228
                                        *                                                                        COMDTOK   229
                                        *         USES   ALL BUT A0,X0,A5,X5,B7                                  COMDTOK   230
                                        *                                                                        COMDTOK   231
                                        *         CALLS  COD,CTD(IF AVAILABLE)                                   COMDTOK   232
                                                                                                                 COMDTOK   233
                                                                                                                 COMDTOK   234
           557  0400400557 +             CTD      SUBR               ** ENTRY/EXIT **                            COMDTOK   235
           560  76670                             SX6    B7                                                      COMDTOK   236
                     6120000002 +                 SB2    =YCTD=                                                  COMDTOK   237
           561  5160000570 +                      SA6    CTDA        SAVE (B7)                                   COMDTOK   238
                          0720000564 +            MI     B2,CTD2     IF USER DID NOT PROVIDE *CTD=*              COMDTOK   239
           562  0100000002 +                      RJ     =YCTD=      CONVERT TOKEN TYPE TO DPC                   COMDTOK   240
           563  0400000566 +                      EQ     CTD3                                                    COMDTOK   241
                                                                                                                 COMDTOK   242
           564  0100000000 X             CTD2     RJ     COD         CONVERT BINARY TO OCTAL DPC                 COMDTOK   243
           565  43201                             MX2    1                                                       COMDTOK   244
                     67221                        SB2    B2-B1       (B2) = NR OF BITS CONVERTED - 1             COMDTOK   245
                          23222                   AX2    B2          (X2) = MASK FOR EXTRACTING CONVERTED TOT    COMDTOK   246
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    28
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        CTD                 IDP 
  
                               11624              BX6    X2*X4       (X6) = TOKEN TYPE, IN -L- FMT               COMDTOK   247
                                                                                                                 COMDTOK   248
           566  5120000570 +             CTD3     SA2    CTDA                                                    COMDTOK   249
                          6120000002 +            SB2    =YCTD=                                                  COMDTOK   250
           567  10166                             BX1    X6                                                      COMDTOK   251
                     63720                        SB7    X2          RESTORE (B7)                                COMDTOK   252
                          0400000557 +            EQ     EXIT.                                                   COMDTOK   253
                                                                                                                 COMDTOK   254
                                                                                                                 COMDTOK   255
           570                     1     CTDA     BSSZ   1           SAVED (B7)                                  COMDTOK   256
  
  
  
  
                                        **        DCR - DEASSEMBLE CHARACTER SHIFT MASK.                         COMDTOK   258
                                        *                                                                        COMDTOK   259
                                        *                                                                        COMDTOK   260
                                        *         THIS ROUTINE DEASSEMBLES A CHARACTER RANGE SHIFT MASK          COMDTOK   261
                                        *         AS WOULD OCCUR IN A *GROUP* OR *IFT* TOGEL BINARY              COMDTOK   262
                                        *         INSTRUCTION, AND FORMATS IT FOR PRINTING.                      COMDTOK   263
                                        *                                                                        COMDTOK   264
                                        *         ENTRY  (X4) = CHAR RANGE SHIFT MASK                            COMDTOK   265
                                        *                (B7) = ADDR OF CURRENT WORD IN PRINT LINE IMAGE         COMDTOK   266
                                        *                                                                        COMDTOK   267
                                        *         EXIT   (B7) = ADDR OF CURRENT WORD IN PRINT LINE IMAGE,        COMDTOK   268
                                        *                       UPDATED IF APPROPRIATE.                          COMDTOK   269
                                        *                                                                        COMDTOK   270
                                        *         USES   X - ALL BUT X0,X5                                       COMDTOK   271
                                        *                A - 2,3,6,7                                             COMDTOK   272
                                        *                B - 1,2,4,5,7                                           COMDTOK   273
                                        *                                                                        COMDTOK   274
                                        *         CALLS  MCS                                                     COMDTOK   275
                                                                                                                 COMDTOK   276
                                                                                                                 COMDTOK   277
           571  0400400571 +             DCR      SUBR               ** ENTRY/EXIT **                            COMDTOK   278
                                                                                                                 COMDTOK   279
                                        *         PUT OUT LEFT PARENTHESIS DELIMITER.                            COMDTOK   280
                                                                                                                 COMDTOK   281
           572  7110000051                        SX1    1R(                                                     COMDTOK   282
                          20166                   LX1    10*CHAR-1*CHAR                                          COMDTOK   283
           573  0100000000 X                      RJ     =XMCS       MERGE CODED STRING                          COMDTOK   284
                                                                                                                 COMDTOK   285
                                        *         FIGURE OUT WHETHER TO USE A SPECIAL SYNTAX.                    COMDTOK   286
                                        *         SPECIAL SYNTAXS ARE --                                         COMDTOK   287
                                        *           (..)   IF ALL BITS ON, (X4) = -0                             COMDTOK   288
                                        *           (-..)  IF ALL BITS OFF, (X4) = +0                            COMDTOK   289
                                        *           (-XXX) WHERE *XXX* IS THE LOGICAL COMPLEMENT OF (X4),        COMDTOK   290
                                        *                  IF MORE BITS ARE ON THAN OFF.                         COMDTOK   291
                                                                                                                 COMDTOK   292
           574  47244                             CX2    X4          (X2) = NR OF *ON* BITS IN (X4)              COMDTOK   293
                     7232777741                   SX3    X2-30                                                   COMDTOK   294
           575  0333000577 +                      MI     X3,DCR2     IF NOT USING *-* SYNTAX                     COMDTOK   295
                          7110000046              SX1    1R-                                                     COMDTOK   296
           576  14444                             BX4    -X4                                                     COMDTOK   297
                     20166                        LX1    10*CHAR-1*CHAR                                          COMDTOK   298
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   299
                                                                                                                 COMDTOK   300
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    29
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        DCR                 IDP 
  
           577  0314000602 +             DCR2     NZ     X4,DCR2A    IF NOT USING *..* SYNTAX                    COMDTOK   301
                          7110005757              SX1    2R..                                                    COMDTOK   302
           600  20160                             LX1    10*CHAR-2*CHAR                                          COMDTOK   303
                     0100000000 X                 RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   304
           601  0400000612 +                      EQ     DCR4                                                    COMDTOK   305
                                                                                                                 COMDTOK   306
                                        *         INITIALIZE FOR MAIN LOOP.  SET UP (X4) SO THAT WE BEGIN        COMDTOK   307
                                        *         AT 1ST CHAR POSITION IN DISPLAY CODE, NOT ROTATED CHAR         COMDTOK   308
                                        *         SET REPRESENTATION.                                            COMDTOK   309
                                                                                                                 COMDTOK   310
           602  6140000000               DCR2A    SB4    00B         (B4) = CURRENT CHAR IN DPC -R- FMT          COMDTOK   311
                          6150000074              SB5    60D         (B5) = NR OF BITS IN A WORD                 COMDTOK   312
           603  20457                             LX4    -BICH                                                   COMDTOK   313
                     0324000606 +                 PL     X4,DCR3     IF : NOT SELECTED                           COMDTOK   314
           604  7110005555                        SX1    2R                                                      COMDTOK   315
                          20160                   LX1    10*CHAR-2*CHAR                                          COMDTOK   316
           605  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   317
                                                                                                                 COMDTOK   318
                                        *         ** MAIN LOOP NODE **                                           COMDTOK   319
                                                                                                                 COMDTOK   320
           606  20401                    DCR3     LX4    1                                                       COMDTOK   321
                     66441                        SB4    B4+B1                                                   COMDTOK   322
                          0645000612 +            GE     B4,B5,DCR4  IF DONE                                     COMDTOK   323
           607  0324000606 +                      PL     X4,DCR3     IF BIT IS *OFF*                             COMDTOK   324
                                                                                                                 COMDTOK   325
                                        *         HERE IF BITS IS *ON*, OUTPUT CHARACTER.                        COMDTOK   326
                                                                                                                 COMDTOK   327
                          76140                   SX1    B4                                                      COMDTOK   328
                               20166              LX1    10*CHAR-1*CHAR                                          COMDTOK   329
           610  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   330
           611  0400000606 +                      EQ     DCR3                                                    COMDTOK   331
                                                                                                                 COMDTOK   332
                                        *         HERE WHEN DONE.  PUT OUT TERMINATING DELIMITING RIGHT PAREN.   COMDTOK   333
                                                                                                                 COMDTOK   334
           612  7110000052               DCR4     SX1    1R)                                                     COMDTOK   335
                          20166                   LX1    10*CHAR-1*CHAR                                          COMDTOK   336
           613  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   337
           614  0400000571 +                      EQ     EXIT.                                                   COMDTOK   338
  
  
  
  
                                        **        LTK - LIST TOKENS.                                             COMDTOK   340
                                        *                                                                        COMDTOK   341
                                        *                                                                        COMDTOK   342
                                        *         THIS ROUTINE LISTS TOKENS IN THE FOLLOWING FORMAT --           COMDTOK   343
                                        *                                                                        COMDTOK   344
                                        *     COL 1         1         1         1         1         1         1  COMDTOK   345
                                        *         .NNNNNN.+.CCCCCCCCCCCCCCCCCCCC.....DDDDDDDDDD.....TTTTTTTTTT   COMDTOK   346
                                        *                                                                        COMDTOK   347
                                        *         WHERE  . = BLANK(55B)                                          COMDTOK   348
                                        *                N = ADDR OF TOKEN  (EITHER RELATIVE OR ABSOLUTE)        COMDTOK   349
                                        *                + = + IF *NNNNNN* IS DECK RELATIVE, ELSE                COMDTOK   350
                                        *                  = BLANK(55B) IF *NNNNNN* IS ABSOLUTE.                 COMDTOK   351
                                        *                C = CONVERTED TOKEN (20 OCTAL DIGITS).                  COMDTOK   352
                                        *                D = UNCONVERTED TOKEN (ALL 00B CHARS CONVERTED          COMDTOK   353
                                        *                    TO BLANKS)                                          COMDTOK   354
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    30
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        LTK                 IDP 
  
                                        *                T = *TMAP* CHARS FOR THIS TOKEN IF *FW.TMAP* DEFINED,   COMDTOK   355
                                        *                    ELSE NULL.                                          COMDTOK   356
                                        *                                                                        COMDTOK   357
                                        *         ENTRY  (X2) = 18/0,21/LEV OF IND ADDR,21/FWA                   COMDTOK   358
                                        *                (X3) = 18/0,21/LEV OF IND ADDR,21/LWA                   COMDTOK   359
                                        *                (X4) = 18/0,21/LEV OF IND ADDR,21/LEN                   COMDTOK   360
                                        *                                                                        COMDTOK   361
                                        *                (X3) IS OPTIONAL PARAMETER.  IF *LEN* IS .NZ., THEN     COMDTOK   362
                                        *                TOKEN DEASSEMBLY IS FROM FWA TO FWA+LEN-1.  ELSE        COMDTOK   363
                                        *                DEASSEMBLY IS FROM FWA TO LWA.                          COMDTOK   364
                                        *                                                                        COMDTOK   365
                                        *         EXIT   (B2) = .MI. IF FWA, LWA, OR LEN IS BAD, ELSE .PL.       COMDTOK   366
                                        *                                                                        COMDTOK   367
                                        *         USES   ALL                                                     COMDTOK   368
                                        *                                                                        COMDTOK   369
                                        *         CALLS  CAD,FLL,MCS,PRIDP,WOD,ZTB                               COMDTOK   370
                                                                                                                 COMDTOK   371
                                                                                                                 COMDTOK   372
           615  0400400615 +             LTK      SUBR               ** ENTRY/EXIT **                            COMDTOK   373
           616  0100000000 X                      RJ     FLL         CHECK *FWA,LWA,LEN*                         COMDTOK   374
           617  0720000615 +                      MI     B2,EXIT.    IF FWA, LWA, OR LEN IS BAD                  COMDTOK   375
                          10622                   BX6    X2                                                      COMDTOK   376
                               22703              LX7    X3                                                      COMDTOK   377
           620  5160000514 +                      SA6    LTK=FWA     SAVE FWA                                    COMDTOK   378
                          5076000001              SA7    A6+1        SAVE LWA                                    COMDTOK   379
                                                                                                                 COMDTOK   380
                                        *         ** MAIN LOOP NODE **                                           COMDTOK   381
                                                                                                                 COMDTOK   382
           621  5110000514 +             LTK2     SA1    LTK=FWA     (X1) = ADDR OF NEXT WORD TO DUMP            COMDTOK   383
                          54211                   SA2    A1+B1       (X2) = LWA TO DUMP                          COMDTOK   384
                               37321              IX3    X2-X1                                                   COMDTOK   385
           622  73611                             SX6    X1+B1                                                   COMDTOK   386
                     66200                        SB2    B0          SET TO *NO ERROR OCCURRED*                  COMDTOK   387
                          0333000615 +            MI     X3,EXIT.    IF FINISHED                                 COMDTOK   388
           623  54610                             SA6    A1                                                      COMDTOK   389
                                                                                                                 COMDTOK   390
                     0100000000 X                 RJ     CAD         CONVERT ADDR TO DPC                         COMDTOK   391
           624  5160000000 X                      SA6    SNAPLNE                                                 COMDTOK   392
                          5110000514 +            SA1    LTK=FWA                                                 COMDTOK   393
           625  5211777776                        SA1    X1-1                                                    COMDTOK   394
                          0100000000 X            RJ     =XWOD       CONVERT FULL WORD TO OCTAL DPC              COMDTOK   395
           626  54661                             SA6    A6+B1                                                   COMDTOK   396
                     54761                        SA7    A6+B1                                                   COMDTOK   397
                          5110000514 +            SA1    LTK=FWA                                                 COMDTOK   398
           627  5211777776                        SA1    X1-1                                                    COMDTOK   399
                          0100000000 X            RJ     =XZTB       CONVERT ZEROES TO BLANKS                    COMDTOK   400
           630  5120001003 +                      SA2    =5L                                                     COMDTOK   401
                          43336                   MX3    5*CHAR                                                  COMDTOK   402
                               10766              BX7    X6                                                      COMDTOK   403
           631  20636                             LX6    -5*CHAR     (X6) = FGHIJABCDE                           COMDTOK   404
                     15773                        BX7    -X3*X7      (X7) = 00000FGHIJ                           COMDTOK   405
                          15663                   BX6    -X3*X6      (X6) = 00000ABCDE                           COMDTOK   406
                               36772              IX7    X7+X2       (X7) = .....FGHIJ                           COMDTOK   407
           632  12662                             BX6    X6+X2       (X6) = .....ABCDE                           COMDTOK   408
                     20736                        LX7    5*CHAR      (X7) = FGHIJ.....                           COMDTOK   409
                          54671                   SA6    A7+B1                                                   COMDTOK   410
                               54761              SA7    A6+B1                                                   COMDTOK   411
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    31
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        LTK                 IDP 
  
           633  64770                             SB7    A7                                                      COMDTOK   412
                                                                                                                 COMDTOK   413
                     0100000557 +                 RJ     CTD         CONVERT TOKEN TYPE TO DPC                   COMDTOK   414
           634  0720000635 +                      MI     B2,LTK3     IF USER DID NOT PROVIDE *CTD=*              COMDTOK   415
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   416
                                                                                                                 COMDTOK   417
           635  13666                    LTK3     BX6    X6-X6                                                   COMDTOK   418
                     56671                        SA6    B7+B1       MARK EOL                                    COMDTOK   419
                          7160000000 X            PRIDP  =XSNAPLNE                                               COMDTOK   420
           637  0400000621 +                      EQ     LTK2                                                    COMDTOK   421
                                                                                                                 COMDTOK   422
                                                                                                                 COMDTOK   423
                                 514 +   LTK=FWA  =      TOG=FWA                                                 COMDTOK   424
  
  
  
  
                                        **        TID - *TOK* INTERACTIVE DEBUG INTERFACE.                       COMDTOK   426
                                        *                                                                        COMDTOK   427
                                        *                                                                        COMDTOK   428
                                        *         I ORIGINALLY INTENDED THAT THIS ROUTINE WOULD BE MORE          COMDTOK   429
                                        *         SOPHISTICATED THAN IT CURRENTLY IS...   MY INTENTION           COMDTOK   430
                                        *         WAS/IS --                                                      COMDTOK   431
                                        *                                                                        COMDTOK   432
                                        *           1. TO HAVE *TID* DISPLAY THE CURRENT *TOGEL* INSTRUCTION     COMDTOK   433
                                        *              BEING EXECUTED.                                           COMDTOK   434
                                        *                                                                        COMDTOK   435
                                        *           2. TO DISPLAY THE SOURCE LINE BEING ENTOKENED, INDICATING    COMDTOK   436
                                        *              SOMEHOW WHERE WE CURRENTLY ARE IN THAT SOURCE LINE.       COMDTOK   437
                                        *                                                                        COMDTOK   438
                                        *           3. TO DISPLAY THE TOKEN(S) GENERATED VIA THIS TOGEL          COMDTOK   439
                                        *              INSTRUCTION.                                              COMDTOK   440
                                        *                                                                        COMDTOK   441
                                        *         HOWEVER, DUE TO TIME RESTRICTIONS RELATED (OF COURSE) TO       COMDTOK   442
                                        *         A LACK OF MANAGEMENT SUPPORT FOR TOOLS, WHAT YOU SEE IS        COMDTOK   443
                                        *         WHAT YOU GET.                                                  COMDTOK   444
                                        *                                                                        COMDTOK   445
                                        *         ENTRY  ENTOKENING REGISTERS INTACT                             COMDTOK   446
                                        *                                                                        COMDTOK   447
                                        *         EXIT   ENTOKENING REGISTERS STILL INTACT                       COMDTOK   448
                                        *                                                                        COMDTOK   449
                                        *         USES   X - 1,7                                                 COMDTOK   450
                                        *                A - 1                                                   COMDTOK   451
                                        *                B - NONE                                                COMDTOK   452
                                        *                                                                        COMDTOK   453
                                        *         CALLS  BREAK(IDP)                                              COMDTOK   454
                                                                                                                 COMDTOK   455
                                                                                                                 COMDTOK   456
           640  0400400640 +             TID      SUBR               ** ENTRY/EXIT **                            COMDTOK   457
                                                                                                                 COMDTOK   458
                                        *         CHECK FOR A SPECIFICALLY SPECIFIED TOGEL INSTRUCTION.          COMDTOK   459
                                                                                                                 COMDTOK   460
           641  5110000000 X                      SA1    =XTF=IDP    (X1) = SPECIFIED *TOGEL* INSTRUCTION        COMDTOK   461
                          0301000640 +            ZR     X1,EXIT.    IF NO BREAK                                 COMDTOK   462
           642  0331000644 +                      MI     X1,TID2     IF UNCONDITIONAL BREAK                      COMDTOK   463
                          10722                   BX7    X2                                                      COMDTOK   464
                                                  LX7    0-TG.TOFUP                                              COMDTOK   465
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    32
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TID                 IDP 
  
                               73770              SX7    X7          (X7) = TOFU ADDR                            COMDTOK   466
           643  37717                             IX7    X1-X7                                                   COMDTOK   467
                     0317000640 +                 NZ     X7,EXIT.    IF NO MATCH, NO BREAK...                    COMDTOK   468
                                                                                                                 COMDTOK   469
           644                           TID2     BSS    0                                                       COMDTOK   470
           644  0100000000 X             BRTOK    BREAK                                                          COMDTOK   471
           645  0400000640 +                      EQ     EXIT.                                                   COMDTOK   472
  
  
  
  
                              400645 +   TID=CAL  =      *+4S15                                                  COMDTOK   474
                              400645 +   TID=COF  =      *+4S15                                                  COMDTOK   475
                              400645 +   TID=ELS  =      *+4S15                                                  COMDTOK   476
                              400645 +   TID=ENT  =      *+4S15                                                  COMDTOK   477
                              400645 +   TID=GN   =      *+4S15                                                  COMDTOK   478
                              400645 +   TID=GO   =      *+4S15                                                  COMDTOK   479
                              400645 +   TID=GS   =      *+4S15                                                  COMDTOK   480
                              400645 +   TID=IFT  =      *+4S15                                                  COMDTOK   481
                              400645 +   TID=ON   =      *+4S15                                                  COMDTOK   482
                              400645 +   TID=XEQ  =      *+4S15                                                  COMDTOK   483
  
  
  
  
                                        **        TOD - *TOGEL* DEASSEMBLER.                                     COMDTOK   485
                                        *                                                                        COMDTOK   486
                                        *                                                                        COMDTOK   487
                                        *         THIS ROUTINE DEASSEMBLES A SINGLE *TOGEL* BINARY INSTRUCTION   COMDTOK   488
                                        *         AND PRINTS IT VIA *PRIDP*  (*COMCIDP* INTERFACE).              COMDTOK   489
                                        *                                                                        COMDTOK   490
                                        *         ENTRY  (X1) = ADDR OF *TOGEL* INSTRUCTION TO DEASSEMBLE        COMDTOK   491
                                        *                                                                        COMDTOK   492
                                        *         EXIT   NONE                                                    COMDTOK   493
                                        *                                                                        COMDTOK   494
                                        *         USES   ALL BUT A0,X0                                           COMDTOK   495
                                        *                                                                        COMDTOK   496
                                        *         CALLS  IN *COMDTOK* -- DCR                                     COMDTOK   497
                                        *                IN *COMCIDP* -- CAD,CHK,PRIDP                           COMDTOK   498
                                        *                OTHERS       -- MCS,WOD,ZTB                             COMDTOK   499
                                                                                                                 COMDTOK   500
                                                                                                                 COMDTOK   501
           646  0400400646 +             TOD      SUBR               ** ENTRY/EXIT **                            COMDTOK   502
                                                                                                                 COMDTOK   503
                                        *         SET UP ADDR OF *TOGEL* BINARY INSTRUCTION TO DEASSEMBLE.       COMDTOK   504
                                                                                                                 COMDTOK   505
           647  73510                             SX5    X1          SAVE (X1) = ADDR OF *TOGEL* INST            COMDTOK   506
                     0100000000 X                 RJ     CAD         CONVERT ADDRESS                             COMDTOK   507
           650  5160000000 X                      SA6    =XSNAPLNE                                               COMDTOK   508
                                                                                                                 COMDTOK   509
                                        *         CONVERT BINARY *TOGEL* INSTRUCTION TO OCTAL DPC.               COMDTOK   510
                                                                                                                 COMDTOK   511
                          53150                   SA1    X5          (A1,X1) = A+C OF *TOGEL* INST TO DEASSEMBLE COMDTOK   512
           651  0100000000 X                      RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     COMDTOK   513
           652  54661                             SA6    A6+B1                                                   COMDTOK   514
                     54761                        SA7    A6+B1                                                   COMDTOK   515
                                                                                                                 COMDTOK   516
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    33
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOD                 IDP 
  
                          5120001004 +            SA2    =10H                                                    COMDTOK   517
           653  10622                             BX6    X2                                                      COMDTOK   518
                     54671                        SA6    A7+B1                                                   COMDTOK   519
                                                                                                                 COMDTOK   520
                                        *         SEARCH FOR *TOGEL* BINARY OPCODE (I.E. *COMCTOK/TOFU* ADDR)    COMDTOK   521
                                        *         IN OPCODE TABLE.                                               COMDTOK   522
                                                                                                                 COMDTOK   523
                          54510                   SA5    A1          (A5,X5) = A+C OF *TOGEL* INST TO DEASSEMBLE COMDTOK   524
                                                  LX5    0-TG.TOFUP                                              COMDTOK   525
           654  6170000024                        SB7    L.OPC       (B7) = LEN OF *TOGEL* OPCODE TABLE          COMDTOK   526
                          5110000470 +            SA1    FW.OPC      (A1,X1) = A+C OF 1ST ENTRY IN OPCODE TABLE  COMDTOK   527
           655  73650                             SX6    X5          (X6) = ADDR TO SEARCH FOR                   COMDTOK   528
                                                                                                                 COMDTOK   529
           656  0607000701 +             TOD2     LE     B7,B0,TOD=DAT IF END-OF-TABLE AND NO FIND, DATA...      COMDTOK   530
                          10211                   BX2    X1                                                      COMDTOK   531
                               73110              SX1    X1                                                      COMDTOK   532
           657  13761                             BX7    X6-X1                                                   COMDTOK   533
                     5011000002                   SA1    A1+2                                                    COMDTOK   534
           660  6177777775                        SB7    B7-2                                                    COMDTOK   535
                          0317000656 +            NZ     X7,TOD2     IF NO FIND, CONTINUE...                     COMDTOK   536
                                                                                                                 COMDTOK   537
                                        *         HERE IF A FIND.                                                COMDTOK   538
                                        *                                                                        COMDTOK   539
                                        *           1. EXTRACT APPROPRIATE *TOD=* DEASSEMBLER ADDR               COMDTOK   540
                                        *              FOR THIS INSTRUCTION.                                     COMDTOK   541
                                        *                                                                        COMDTOK   542
                                        *           2. EXTRACT APPROPRIATE OPCODE FOR THIS INSTRUCTION.          COMDTOK   543
                                                                                                                 COMDTOK   544
           661  20252                             LX2    -18                                                     COMDTOK   545
                     63520                        SB5    X2          (B5) = *TOD=* ADDR FOR THIS INSTRUCTION     COMDTOK   546
                          55111                   SA1    A1-B1       (X1) = OPCODE FOR THIS INST, -L- FMT        COMDTOK   547
                               10611              BX6    X1                                                      COMDTOK   548
           662  54661                             SA6    A6+B1                                                   COMDTOK   549
                     64760                        SB7    A6                                                      COMDTOK   550
                          7110000055              SX1    1R                                                      COMDTOK   551
           663  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   552
           664  0255000000                        JP     B5+                                                     COMDTOK   553
  
  
  
  
                                        **        HERE IF *CALT XX*.                                             COMDTOK   555
                                                                                                                 COMDTOK   556
           665                           TOD=CAL  BSS    0                                                       COMDTOK   557
           665  20552                             LX5    0-TG.CADP+TG.TOFUP-0                                    COMDTOK   558
                     73150                        SX1    X5          (X1) = ADDR OF *CALT* PROCESSOR             COMDTOK   559
                          0100000000 X            RJ     =XCAD       CONVERT ADDRESS                             COMDTOK   560
           666  64760                             SB7    A6          RESTORE (B7)                                COMDTOK   561
                     10166                        BX1    X6                                                      COMDTOK   562
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   563
           667  0400000742 +                      EQ     TOD=X                                                   COMDTOK   564
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    34
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOD=COF             IDP 
  
                                        **        HERE IF *CASEOF (A..Z)*.                                       COMDTOK   566
                                                                                                                 COMDTOK   567
           670                           TOD=COF  BSS    0                                                       COMDTOK   568
           670  7110000051                        SX1    1R(                                                     COMDTOK   569
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   570
           671  20514                             LX5    0-TG.COAP+TG.TOFUP-0                                    COMDTOK   571
                     43260                        MX2    -TG.COAL                                                COMDTOK   572
                          15152                   BX1    -X2*X5      (X1) = 1ST CHAR IN *CASEOF* RANGE,          COMDTOK   573
                                        *                                   DPC IN -R- FMT                       COMDTOK   574
           672  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   575
           673  7110005757                        SX1    2R..                                                    COMDTOK   576
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   577
           674  20514                             LX5    0-TG.COZP+TG.COAP-0                                     COMDTOK   578
                     43260                        MX2    -TG.COZL                                                COMDTOK   579
                          15352                   BX3    -X2*X5      (X3) = LAST CHAR IN *CASEOF* RANGE,         COMDTOK   580
                                        *                                   IN *RCS* REPRESENTATION, -R- FMT     COMDTOK   581
           675  7241010015                        SX4    X1+10000B+BICH                                          COMDTOK   582
                          15142                   BX1    -X2*X4      (X1) = LAST CHAR IN *CASEOF* RANGE,         COMDTOK   583
                                        *                                   IN DPC, -R- FMT                      COMDTOK   584
           676  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   585
           677  7110000052                        SX1    1R)                                                     COMDTOK   586
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   587
           700  0400000742 +                      EQ     TOD=X                                                   COMDTOK   588
  
  
  
  
                                        **        HERE IF *DATA*.                                                COMDTOK   590
                                                                                                                 COMDTOK   591
           701                           TOD=DAT  BSS    0                                                       COMDTOK   592
           701  5110001005 +                      SA1    =0LDATA                                                 COMDTOK   593
                          10611                   BX6    X1                                                      COMDTOK   594
                               54661              SA6    A6+B1                                                   COMDTOK   595
           702  64760                             SB7    A6                                                      COMDTOK   596
                     0400000742 +                 EQ     TOD=X                                                   COMDTOK   597
  
  
  
  
                                        **        HERE IF --                                                     COMDTOK   599
                                        *                                                                        COMDTOK   600
                                        *           1. ELST                                                      COMDTOK   601
                                        *           2. ENDT                                                      COMDTOK   602
                                                                                                                 COMDTOK   603
           703                           TOD=ELS  BSS    0                                                       COMDTOK   604
           703                           TOD=ENT  BSS    0                                                       COMDTOK   605
                                                  LX5    TG.TOFUP-0                                              COMDTOK   606
           703  43152                             MX1    7*CHAR                                                  COMDTOK   607
                     11115                        BX1    X1*X5       (X1) = LABEL FOR THIS CONDITIONAL OPCODE    COMDTOK   608
                          0100000000 X            RJ     =XZTB       CONVERT ZEROES TO BLANKS                    COMDTOK   609
           704  20666                             LX6    -CHAR                                                   COMDTOK   610
                     55661                        SA6    A6-B1                                                   COMDTOK   611
                          0400000742 +            EQ     TOD=X                                                   COMDTOK   612
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    35
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOD=GN              IDP 
  
                                        **        HERE IF *GROUP (..),TOT,NSQZ*.                                 COMDTOK   614
                                                                                                                 COMDTOK   615
           705                           TOD=GN   BSS    0                                                       COMDTOK   616
           705  20552                             LX5    0-TG.MXAP+TG.TOFUP-0                                    COMDTOK   617
                     53450                        SA4    X5          (X4) = CHAR SHIFT MASK                      COMDTOK   618
                          0100000571 +            RJ     DCR         DASSEMBLE CHAR RANGE SHIFT MASK             COMDTOK   619
           706  7110000056                        SX1    1R,                                                     COMDTOK   620
                          20166                   LX1    10*CHAR-1*CHAR                                          COMDTOK   621
           707  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   622
           710  20552                             LX5    0-TG.TOTP+TG.MXAP-0                                     COMDTOK   623
                                                                                                                 COMDTOK   624
                     73150                        SX1    X5          (X1) = TOKEN TYPE                           COMDTOK   625
                          0100000557 +            RJ     CTD         CONVERT TOKEN TYPE TO DPC                   COMDTOK   626
           711  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   627
                                                                                                                 COMDTOK   628
           712  5110001006 +                      SA1    =L.,NSQZ.                                               COMDTOK   629
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   630
           713  0400000742 +                      EQ     TOD=X                                                   COMDTOK   631
  
  
  
  
                                        **        HERE IF *GOTO XX*.                                             COMDTOK   633
                                                                                                                 COMDTOK   634
           714                           TOD=GO   BSS    0                                                       COMDTOK   635
           714  20552                             LX5    0-TG.GOTP+TG.TOFUP-0                                    COMDTOK   636
                     73150                        SX1    X5          (X1) = ADDR TO *GOTO* TO                    COMDTOK   637
                          0100000000 X            RJ     =XCAD       CONVERT ADDRESS                             COMDTOK   638
           715  64760                             SB7    A6          RESTORE (B7)                                COMDTOK   639
                     10166                        BX1    X6                                                      COMDTOK   640
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   641
           716  0400000742 +                      EQ     TOD=X                                                   COMDTOK   642
  
  
  
  
                                        **        HERE IF *GROUP (..),TOT,SQZ*.                                  COMDTOK   644
                                                                                                                 COMDTOK   645
           717                           TOD=GS   BSS    0                                                       COMDTOK   646
           717  20552                             LX5    0-TG.MXAP+TG.TOFUP-0                                    COMDTOK   647
                     53450                        SA4    X5          (X4) = CHAR SHIFT MASK                      COMDTOK   648
                          0100000571 +            RJ     DCR         DASSEMBLE CHAR RANGE SHIFT MASK             COMDTOK   649
           720  7110000056                        SX1    1R,                                                     COMDTOK   650
                          20166                   LX1    10*CHAR-1*CHAR                                          COMDTOK   651
           721  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   652
           722  20552                             LX5    0-TG.TOTP+TG.MXAP-0                                     COMDTOK   653
                                                                                                                 COMDTOK   654
                     73150                        SX1    X5          (X1) = TOKEN TYPE                           COMDTOK   655
                          0100000557 +            RJ     CTD         CONVERT TOKEN TYPE TO DPC                   COMDTOK   656
           723  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   657
                                                                                                                 COMDTOK   658
           724  5110001007 +                      SA1    =L.,SQZ.                                                COMDTOK   659
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   660
           725  0400000742 +                      EQ     TOD=X                                                   COMDTOK   661
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    36
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOD=IFT             IDP 
  
                                        **        HERE IF *IFT (..)*.                                            COMDTOK   663
                                                                                                                 COMDTOK   664
           726                           TOD=IFT  BSS    0                                                       COMDTOK   665
           726  20552                             LX5    0-TG.MXAP+TG.TOFUP-0                                    COMDTOK   666
                     53450                        SA4    X5          (X4) = CHAR SHIFT MASK                      COMDTOK   667
                          0100000571 +            RJ     DCR         DEASSEMBLE CHAR RANGE SHIFT MASK            COMDTOK   668
           727  0400000742 +                      EQ     TOD=X                                                   COMDTOK   669
  
  
  
  
                                        **        HERE IF *ON I,V*.                                              COMDTOK   671
                                                                                                                 COMDTOK   672
                                                                                                                 COMDTOK   673
           730                           TOD=ON   BSS    0                                                       COMDTOK   674
           730  20552                             LX5    0-TG.INCP+TG.TOFUP-0                                    COMDTOK   675
                     73150                        SX1    X5          (X1) = ADDR OF INTERUPT CELL                COMDTOK   676
                          0100000000 X            RJ     =XCAD       CONVERT ADDRESS                             COMDTOK   677
           731  64760                             SB7    A6          RESTORE (B7)                                COMDTOK   678
                     20630                        LX6    10*CHAR-6*CHAR                                          COMDTOK   679
                          43244                   MX2    6*CHAR                                                  COMDTOK   680
                               11126              BX1    X2*X6       (X1) = ADDR OF INTERUPT CELL, -L- FMT       COMDTOK   681
           732  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   682
           733  7110000056                        SX1    1R,                                                     COMDTOK   683
                          0100000000 X            RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   684
           734  56270                             SA2    B7                                                      COMDTOK   685
                     20552                        LX5    0-TG.INVP+TG.INCP-0                                     COMDTOK   686
                          10622                   BX6    X2                                                      COMDTOK   687
                               73150              SX1    X5          (X1) = VALUE FOR INTERUPT CELL              COMDTOK   688
           735  56670                             SA6    B7          SAVE (B7) IN (A6)                           COMDTOK   689
                     0100000000 X                 RJ     =XCAD       CONVERT ADDRESS (I.E. **PROBABLY** AN ADDR) COMDTOK   690
           736  64760                             SB7    A6          RESTORE (B7)                                COMDTOK   691
                     20630                        LX6    10*CHAR-6*CHAR                                          COMDTOK   692
                          43244                   MX2    6*CHAR                                                  COMDTOK   693
                               11126              BX1    X2*X6       (X1) = INTERUPT VALUE, -L- FORMAT           COMDTOK   694
           737  0100000000 X                      RJ     =XMCS       MERGE CODED STRINGS                         COMDTOK   695
           740  0400000742 +                      EQ     TOD=X                                                   COMDTOK   696
                                                                                                                 COMDTOK   697
  
  
  
  
                                        **        HERE IF *XEQ P*.                                               COMDTOK   699
                                                                                                                 COMDTOK   700
                                                                                                                 COMDTOK   701
           741                           TOD=XEQ  BSS    0                                                       COMDTOK   702
           741  0400000742 +                      EQ     TOD=X       (FOR NOW, DO NOTHING...)                    COMDTOK   703
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    37
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOD=X               IDP 
  
                                        **        HERE WHEN FINISHED DEASSEMBLING *TOGEL* INSTRUCTION,           COMDTOK   705
                                        *         TIME TO PRINT LINE VIA *COMCIDP*.                              COMDTOK   706
                                                                                                                 COMDTOK   707
           742                           TOD=X    BSS    0                                                       COMDTOK   708
           742  13666                             BX6    X6-X6                                                   COMDTOK   709
                     56671                        SA6    B7+B1       MARK EOL                                    COMDTOK   710
                          7160000000 X            PRIDP  =XSNAPLNE                                               COMDTOK   711
           744  66200                             SB2    B0          SET TO *NO ERROR*                           COMDTOK   712
                     0400000646 +                 EQ     EXIT.                                                   COMDTOK   713
  
  
  
  
                                        **        UTG - USER *TOGEL* OWNCODE.                                    COMDTOK   715
                                        *                                                                        COMDTOK   716
                                        *                                                                        COMDTOK   717
                                        *         ENTRY  NONE                                                    COMDTOK   718
                                        *                                                                        COMDTOK   719
                                        *         EXIT   NONE                                                    COMDTOK   720
                                        *                                                                        COMDTOK   721
                                        *         USES   CANNOT USE A5,X5,A0,X0                                  COMDTOK   722
                                        *                                                                        COMDTOK   723
                                        *         CALLS  UTG=(IF AVAIL)                                          COMDTOK   724
                                                                                                                 COMDTOK   725
                                                                                                                 COMDTOK   726
           745  0400400745 +             UTG      SUBR               ** ENTRY/EXIT **                            COMDTOK   727
           746  6120000000 X                      SB2    =YUTG=                                                  COMDTOK   728
                          0720000745 +            MI     B2,EXIT.    IF USER DID NOT PROVIDE *UTG=*              COMDTOK   729
           747  0100000000 X                      RJ     =YUTG=      USER *TOGEL* OWNCODE                        COMDTOK   730
           750  0400000745 +                      EQ     EXIT.                                                   COMDTOK   731
  
  
  
  
                                        **        UTK - USER *TOKEN* OWNCODE.                                    COMDTOK   733
                                        *                                                                        COMDTOK   734
                                        *                                                                        COMDTOK   735
                                        *         ENTRY  NONE                                                    COMDTOK   736
                                        *                                                                        COMDTOK   737
                                        *         EXIT   NONE                                                    COMDTOK   738
                                        *                                                                        COMDTOK   739
                                        *         USES   CANNOT USE A5,X5,A0,X0                                  COMDTOK   740
                                        *                                                                        COMDTOK   741
                                        *         CALLS  UTK=(IF AVAIL)                                          COMDTOK   742
                                                                                                                 COMDTOK   743
                                                                                                                 COMDTOK   744
           751  0400400751 +             UTK      SUBR               ** ENTRY/EXIT **                            COMDTOK   745
           752  6120000000 X                      SB2    =YUTK=                                                  COMDTOK   746
                          0720000751 +            MI     B2,EXIT.    IF USER DID NOT PROVIDE *UTK=*              COMDTOK   747
           753  0100000000 X                      RJ     =YUTK=      USER *TOKEN* OWNCODE                        COMDTOK   748
           754  0400000751 +                      EQ     EXIT.                                                   COMDTOK   749
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    38
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        TOK                 IDP 
  
                                 640 +   TOK=IDP  =      TID                                                     COMDTOK   751
                                                                                                                 COMDTOK   752
                                                                                                                 COMDTOK   753
                                         QUAL$    IF     -DEF,QUAL$                                              COMDTOK   754
                                                  QUAL   *                                                       COMDTOK   755
                                         LTK      =      /COMDTOK/LTK                                            COMDTOK   756
                                         TOK=IDP  =      /COMDTOK/TOK=IDP                                        COMDTOK   757
                                         TOK      =      /COMDTOK/TOD                                            COMDTOK   758
                                         ST=TOG   =      /COMDTOK/ST=TOG                                         COMDTOK   759
                                         ST=TOK   =      /COMDTOK/ST=TOK                                         COMDTOK   760
                                         QUAL$    ENDIF                                                          COMDTOK   761
                                         COMDTOK  ENDX                                                           COMDTOK   762
                                                  QUAL   *                                                       FSNAP     681
  
  
  
  
                                 615 +   LTK      =      /IDP/LTK                                                FSNAP     683
                                         TOK=IDP  EQUENT /IDP/TOK=IDP                                            FSNAP     684
                                                                                                                 FSNAP     685
                                 332 +   DMT=     EQU    /IDP/DMT=                                               FSNAP     686
  
  
  
  
                                         #SNAP    ENDIF                                                          FSNAP     688
                                                  LIST   D                                                       FSNAP     689
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        Z.CHMAP 
             0 X                        SIZES 
             0 X                        F.SKNAM 
             0 Y                        UTG=
             0 Y                        UTK=
  
                                        CONTENT OF LITERALS BLOCK.
  
           755  46260122460000000000    -VAR- 
           756  46031716234600000000    -CONS-
           757  46170324460000000000    -OCT- 
           760  46100530460000000000    -HEX- 
           761  46111414460000000000    -ILL- 
           762  00000000000124552457         AT T.
           763  55241713051655022506     TOKEN BUF
           764  06052255042515200000    FER DUMP
           765  55551114552305071505      IL SEGME
           766  16245504251520575555    NT DUMP.
           767  55555533555555555555       0
           770  47020104462417134755    *BAD-TOK* 
           771  02221411160500000000    BRLINE
           772  00000000000000000000
           773  04251520240000000000    DUMPT 
           774  00000000000000555555
           775  23311555555555555555    SYM 
           776  00000000000000555533             0
           777  02222417130000000000    BRTOK 
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    39
        COMDTOK 2.0 - *TEST* MODE DEBUG UTILITY FOR *COMCTOK*.        LITERALS
  
          1000  24170705140000000000    TOGEL 
          1001  24171305160000000000    TOKEN 
          1002  25022417130000000000    UBTOK 
          1003  55555555550000000000
          1004  55555555555555555555
          1005  04012401000000000000    DATA
          1006  56162321320000000000    ,NSQZ 
          1007  56232132000000000000    ,SQZ
  
          1017                           ENDSNAP  END                MARK END OF SNAP DECK                       FSNAP     690
  
                             76300B CM  STORAGE USED             7061 STATEMENTS     2027 SYMBOLS      000016 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.186 SECONDS         973 REFERENCES
  
  
  
        ERROR DIRECTORY.
  
              7 TYPE ERROR              ADDRESS VALUE EXCEEDS FIELD SIZE, RESULT TRUNCATED
                     OCCURRED ON PAGES         10 
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BICH           15                  29/13     34/17
        B1=1            0 
        CAD             0   EXTERNAL*       2/28 D   30/37     32/48     33/47     35/28     36/18     36/31
        CDD             0   EXTERNAL*       2/39 D
        CHAR            6   FTX             9/32     12/08
        CHARMAP         0   EXTERNAL*       1/52 X    5/31     12/39
        CHK             0   EXTERNAL*       2/29 D
        CH.DPCL        52   FTX             5/32     12/42
        CH.OPCL        22   FTX            13/12
        COD             0   EXTERNAL*       2/40 D    6/30     11/05     16/46     19/41     20/34     27/54
                                            5/24      9/31     11/18     19/18     19/57     20/41
                                            6/25     10/56     12/07     19/25     20/11     21/07
        CTD2            5   PROGRAM*        5/19      5/22 L
        CTD3           10   PROGRAM*        5/20      5/31 L
        CTD=            2   PROGRAM*        5/16 L   27/48     27/51     28/04
        C.SYM           0                   9/51 D
        DCM=            0   EXTERNAL*       1/55 X   17/03
        DMT=          332   PROGRAM*       17/48 E   38/21 D
        DUC.BTH         0   EXTERNAL*       2/04 X   13/18
        DUC.1ST         0   EXTERNAL*       2/04 X   13/13
        DUC.2ND         0   EXTERNAL*       2/04 X   13/23
        DXB             0   EXTERNAL*       2/41 D
        ENDSNAP      1017   PROGRAM*       38/28 L
        FI=BRLI         1   PROGRAM*        4/19 L    4/19 E   15/06 S
        FLL             0   EXTERNAL*       2/30 D   30/20
        FRA=            0   EXTERNAL*       2/18 X    7/32
        FRK             0   EXTERNAL*       2/31 D   17/57
        FTH            24   PROGRAM*        6/13 L    7/45      8/43
        FW=IDPL         0   EXTERNAL*       1/55 X   17/56 S   18/09 S   18/19
        F.SKNAM         0   EXTERNAL*      12/18
        HDR             0   EXTERNAL*       2/32 D   18/02
        IDPFLG          0   EXTERNAL*       1/55 X   19/05
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    40
        SYMBOLIC REFERENCE TABLE. 
  
        IDPSA5          0   PROGRAM*        3/09 L   21/49 S   22/08
        IDP=            0   EXTERNAL*       1/57 X   32/06
        IDP=CAD         0   EXTERNAL*       1/55 X    2/28
        IDP=CDD         0   EXTERNAL*       2/39
        IDP=CHK         0   EXTERNAL*       2/29
        IDP=COD         0   EXTERNAL*       1/55 X    2/40
        IDP=DXB         0   EXTERNAL*       2/41
        IDP=ER          0   EXTERNAL*       1/55 X   26/16     26/20     26/42     27/06
        IDP=FLL         0   EXTERNAL*       1/55 X    2/30
        IDP=FRK         0   EXTERNAL*       1/56 X    2/31
        IDP=HDR         0   EXTERNAL*       1/56 X    2/32
        IDP=MCS         0   EXTERNAL*       1/56 X    2/42
        IDP=MN          0   EXTERNAL*       1/56 X   15/07     21/53     26/07     26/32     26/52     27/08     27/18
        IDP=PAS         0   EXTERNAL*       1/56 X    2/33
        IDP=PAT         0   EXTERNAL*       1/56 X    2/34
        IDP=SFN         0   EXTERNAL*       1/56 X    2/43
        IDP=SKT         0   EXTERNAL*       1/57 X    2/35
        IDP=SOB         0   EXTERNAL*       1/57 X    2/36
        IDP=SYS         0   EXTERNAL*       2/44
        IDP=WOD         0   EXTERNAL*       1/57 X    2/45
        IDP=ZTB         0   EXTERNAL*       1/57 X    2/46
        LINJPAD       255   PROGRAM*       12/20 S   13/57 L
        LINNO         251   PROGRAM*        9/36 S   12/11 S   13/53 L
        LINOPR        256   PROGRAM*       12/47 S   14/02 L
        LINPAR        251   PROGRAM*       11/31     13/45     13/52 L   14/03     14/06
        LINPDP        255   PROGRAM*       11/13 S   14/01 L
        LINPOC        252   PROGRAM*       11/27 S   13/38 S   13/54 L
        LINSPGL         6                  11/31     14/03 D
        LINSPHL        10                  13/45     14/06 D
        LTB=           35   PROGRAM*        6/54 L    6/54 E
        LTK           615   PROGRAM*        7/05     38/18 D
        L.CHMAP         0   EXTERNAL*       1/49 X
        MCS             0   EXTERNAL*       2/42 D   29/17     33/36     34/12     35/14     35/50     36/36
                                           28/41     29/30     33/50     34/20     35/17     35/53
                                           28/56     29/37     34/05     34/22     35/31     36/23
                                           29/04     31/05     34/10     35/09     35/45     36/25
        M.BOOL          0   FTX            14/12 L
        M.CHAR          6   FTX            14/18 L
        M.CPLX          5   FTX            14/17 L
        M.DBL           4   FTX            14/16 L
        M.INT           2   FTX            14/14 L
        M.LOG           1   FTX            14/13 L
        M.REAL          3   FTX            14/15 L
        NAMES           0   EXTERNAL*       2/14 X    6/18     18/13     22/02
        N.TABLE         0   EXTERNAL*       2/14 X   16/33     17/01
        OP.CHINL        6                  12/27
        OP.CHINP       26                  12/28     12/54
        OP.2MODL        3                  12/55
        OP.2MODP       22                  12/54
        ORIGINS         0   EXTERNAL*       2/14 X    6/15     18/17     22/05
        O.CONS          5   FTX             5/41
        O.ERR          65   FTX            12/37
        O.HEX           7   FTX             5/50
        O.ILL          46   FTX             5/53
        O.OCT           6   FTX             5/47
        O.VAR          11   FTX             5/37
        PAR             0   EXTERNAL*       2/11 X
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        PAS             0   EXTERNAL*       2/33 D   15/05
        PASS            0   EXTERNAL*       2/14 X    9/35     12/24     12/51
        PASS=QCG        1   FTX             9/37     12/25     12/52
        PAT             0   EXTERNAL*       2/34 D   26/41     27/05
        P2.BIASL       30                   9/55     10/01
        P2.BIASP       24                   9/55
        P2.INTRP       12                  10/03
        P2.TAGL        20                   9/57
        P2.TAGP        54                   9/56     10/03     10/17
        ROL=            0   EXTERNAL*       1/57 X    7/02     16/51     21/14     37/07
                                            7/01      7/06     19/13     31/09
        RSR             0   EXTERNAL*       1/57 X    7/07
        RSR=            0   EXTERNAL*       1/57 X    8/07      9/06     18/22
        SFN             0   EXTERNAL*       2/43 D   21/57
        SIZES           0   EXTERNAL*       6/26
        SKT             0   EXTERNAL*       2/35 D   18/14     22/03
        SNAPLNE         0   EXTERNAL*       2/01 X   16/38 S   19/09     21/40     31/09     37/07
                                            8/39     16/51     19/16     30/38 S   32/49 S
        SNEA           77   PROGRAM*        7/46      8/10 L    8/15
        SNEB          100   PROGRAM*        7/39 S    8/11 L
        SNEC          102   PROGRAM*        8/12 L
        SNED          104   PROGRAM*        8/14 L
        SNEL            6                   8/15 D
        SNE2           57   PROGRAM*        7/31      7/33 L
        SN=DMT          5                   3/06 D   18/03
        SN.BOTH       274   PROGRAM*       13/21     14/27 L
        SN.DMOD       261   PROGRAM*       13/04     14/10 L
        SN.EMT         52   PROGRAM*        7/25 L    7/25 E
        SN.NULL       271   PROGRAM*       13/28     14/24 L
        SN.PAR        105   PROGRAM*        8/29 L    8/29 E
        SN.PAR1       120   PROGRAM*        8/52 L    9/02
        SN.PNO        250   PROGRAM*        7/56 S    8/48 S    9/28     12/04     13/48 L
        SN.POP        206   PROGRAM*        7/57      8/52     11/57 L
        SN.POP7       241   PROGRAM*       13/17     13/22     13/27     13/29 L
        SN.PSYM       131   PROGRAM*        8/03      8/06      8/55      8/56      9/27 L
        SN.1ST        272   PROGRAM*       13/16     14/25 L
        SN.2ND        273   PROGRAM*       13/26     14/26 L
        SOB             0   EXTERNAL*       2/36 D    6/57     17/51
        SPF8          127   PROGRAM*        8/33      8/54      9/06 L
        SPGA          205   PROGRAM*       10/04 S   10/31 S   11/14     11/43 L
        SPG2          150   PROGRAM*        9/41     10/25 L
        SPG3          154   PROGRAM*       10/20     10/41 L
        SPG4          161   PROGRAM*       10/05     10/32     10/56 L
        SPG5          163   PROGRAM*       10/21     10/36     10/48     11/05 L
        SPG6          165   PROGRAM*       11/01     11/07 L
        SPG8          166   PROGRAM*       10/52     11/12 L
        SPG9          201   PROGRAM*        9/38     11/34 L
        SPH44         217   PROGRAM*       12/26     12/31 L
        SPH48         220   PROGRAM*       12/29     12/34 L
        SPH50         225   PROGRAM*       12/38     12/47 L
        SPH62         230   PROGRAM*       12/53     13/01 L
        SPH64         231   PROGRAM*       12/56     13/03 L
        ST=BRL        303   PROGRAM*       14/46     15/04 L
        SVR             0   EXTERNAL*       2/01 X    6/55
        SVR=            0   EXTERNAL*       2/01 X    7/26      8/30     17/49
        SV=A            0   EXTERNAL*       2/01 X    7/41
        SV=B            0   EXTERNAL*       2/01 X    7/52
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        SV=X            0   EXTERNAL*       2/01 X    7/27      7/51      7/55      8/02
        SYS=            0   EXTERNAL*       2/44 D
        TEST            1   FTX             1/44 F   10/10 F
        TF=IDP          0   EXTERNAL*       2/07 X   26/06 S   26/31 S   27/17 S   31/53
        TG.CADP        22                  33/45
        TG.COAL        14                  34/07
        TG.COAP        60                  34/06     34/13
        TG.COZL        14                  34/14
        TG.COZP        44                  34/13
        TG.GOTP        22                  35/26
        TG.INCP        22                  36/16     36/27
        TG.INVP        44                  36/27
        TG.MXAP        22                  35/04     35/10     35/40     35/46     36/04
        TG.TOFUP        0                  33/45     34/06     35/04     35/26     35/40     36/04     36/16
        TG.TOTP        44                  35/10     35/46
        TH.MODEL        4   FTX            13/02
        TH.MODEP       22   FTX            13/01
        TH.OVALL       11   FTX            12/31
        TH.OVALP        0   FTX            13/01
        TH.SKELL       16   FTX            12/17
        TOK=CAL         0   EXTERNAL*       2/07 X   25/05
        TOK=COF         0   EXTERNAL*       2/07 X   25/06
        TOK=ELS         0   EXTERNAL*       2/07 X   25/07
        TOK=ENT         0   EXTERNAL*       2/07 X   25/08
        TOK=GN          0   EXTERNAL*       2/07 X   25/09
        TOK=GO          0   EXTERNAL*       2/07 X   25/10
        TOK=GS          0   EXTERNAL*       2/08 X   25/11
        TOK=IDP       640   PROGRAM*       38/19 D   38/19 E
        TOK=IFT         0   EXTERNAL*       2/08 X   25/12
        TOK=ON          0   EXTERNAL*       2/08 X   25/13
        TOK=XEQ         0   EXTERNAL*       2/08 X   25/14
        TP.BIASL       30   FTX            10/27     10/29
        TP.BIASP       24   FTX            10/27
        TP.GLL          1   FTX            10/33
        TP.GLP         16   FTX            10/33
        TP.INTRL        1   FTX            10/33
        TP.INTRP       12   FTX            10/30     10/33
        TP.ORDL        20   FTX            10/26
        TP.ORDP        54   FTX            10/25     10/30
        TP.SHRTL        1   FTX            10/33
        TP.SHRTP       14   FTX            10/33
        T=OUS           0   EXTERNAL*       2/14 X   10/11
        T=PAR           0   EXTERNAL*       2/14 X    8/31
        T=SYM           0   EXTERNAL*       2/14 X   10/41     21/16
        T=TB            0   EXTERNAL*       2/14 X    7/04
        T.OUS           0   EXTERNAL*       2/15 X   10/15
        T.PAR           0   EXTERNAL*       2/15 X    8/36
        T.SYM           0   EXTERNAL*       2/15 X   10/42     19/26
        T.TB            0   EXTERNAL*       2/15 X    7/03
        UKT=FE        275   PROGRAM*       14/44 L   14/44 E
        UTG=            0   EXTERNAL*      37/27     37/29
        UTK=            0   EXTERNAL*      37/48     37/50
        WA.SYML        52   FTX            10/47
        WB.W            1   FTX            19/48     20/30
        WC.W            2   FTX            20/30
        WOD             0   EXTERNAL*       2/45 D   11/26     13/37     20/17     30/41     32/54
        WOF             0   EXTERNAL*       2/15 X    7/49      8/46      8/57     11/31     11/38     13/45
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        ZTB             0   EXTERNAL*       2/46 D    7/40     10/51     12/46     19/38     19/45     30/46     34/50
        Z=SYM           3   FTX            10/46
        Z=TURP          3   FTX             7/54
        Z.CHMAP         0   EXTERNAL*       5/18
  
  
  
  
                                                  SYMBOL QUALIFIER =  IDP 
  
  
        BB.TOCL        52                   3/33 D    3/33
        BB.TOCP        22                   3/33 D
        BB.TOTL        22                   3/33 D    3/33
        BB.TOTP         0                   3/33 D
        BN.TOCL        52                   3/33 D
        BN.TOCP        22                   3/33 D
        BN.TOTL        22                   3/33 D
        BN.TOTP         0                   3/33 D
        BRT1          532   PROGRAM*       26/04     26/11 L
        BRT2          535   PROGRAM*       26/20 L   26/25
        BTC.EQ          5                   3/33 D
        BTC.GE         10                   3/33 D
        BTC.GT         12                   3/33 D
        BTC.LE         11                   3/33 D
        BTC.LT          7                   3/33 D
        BTC.MI          2                   3/33 D
        BTC.NE          6                   3/33 D
        BTC.NZ          4                   3/33 D
        BTC.PL          1                   3/33 D
        BTC.ZR          3                   3/33 D
        CHAR            6                   3/33 D   25/43     28/40     29/29     30/55     35/44     36/34
                                           14/46     25/44     28/55     29/36     34/48     36/20
                                           14/47     25/45     29/03     30/48     34/51     36/21
                                           21/52     25/46     29/16     30/50     35/08     36/33
        CTD           557   PROGRAM*       27/46 L   31/03     35/13     35/49
        CTDA          570   PROGRAM*       27/49 S   28/03     28/10 L
        CTD2          564   PROGRAM*       27/50     27/54 L
        CTD3          566   PROGRAM*       27/52     28/03 L
        DAT           306   PROGRAM*       16/26 L   18/18     22/06
        DATB          326   PROGRAM*       16/31 S   16/34     16/53     17/07 L
        DAT8          305   PROGRAM*       16/24 L   16/55
        DCR           571   PROGRAM*       28/35 L   35/06     35/42     36/06
        DCR2          577   PROGRAM*       28/52     29/01 L
        DCR2A         602   PROGRAM*       29/01     29/11 L
        DCR3          606   PROGRAM*       29/14     29/21 L   29/24     29/31
        DCR4          612   PROGRAM*       29/05     29/23     29/35 L
        DMT2          342   PROGRAM*       18/07 L   18/20
        DMT3          350   PROGRAM*       18/01     18/10     18/22 L
        DMT=          332   PROGRAM*       17/48 L   17/52     38/21
        DSY           352   PROGRAM*       16/24     19/04 L
        DSYA          433   PROGRAM*       20/24     21/23 L
        DSYB          443   PROGRAM*       19/10     19/12     21/35 L   21/38
        DSYBL          12                  19/12     21/38 D
        DSYC          455   PROGRAM*       19/11 S   21/11     21/40 L
        DSY2          361   PROGRAM*       19/16 L   21/20
        DXB1$           1                   3/33 D
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    44
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        FW.OPC        470   PROGRAM*       25/04 L   25/16     26/18     33/11
        IDF.ADRP       63                   3/33 D
        IDF.BDOP       70                   3/33 D
        IDF.BKOP       67                   3/33 D
        IDF.BRFP       57                   3/33 D
        IDF.FTOP       65                   3/33 D
        IDF.IDOP       73                   3/33 D   19/07
        IDF.IKOP       72                   3/33 D
        IDF.INPP       64                   3/33 D
        IDF.MEMP       56                   3/33 D
        IDF.RAPP       55                   3/33 D
        IDF.SNLL       22                   3/33 D
        IDF.SNLP        0                   3/33 D
        IDF.XECL        3                   3/33 D
        IDF.XECP       60                   3/33 D
        IDF.XJRP       54                   3/33 D
        KW.ATTRL       30                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.ATTRP       44                   3/33 D
        KW.HADL        22                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.HADP         0                   3/33 D
        KW.KEYL        22                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.KEYP         0                   3/33 D
        KW.LADL        11                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.LADP        33                   3/33 D
        KW.LENL        11                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.LENP        22                   3/33 D
        KW.PADL        22                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.PADP        44                   3/33 D
        KW.PNRL         6                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.PNRP        66                   3/33 D
        KW.UDOL        11                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.UDOP        22                   3/33 D
        KW.XATL        11                   3/33 D   14/46     14/47     25/43     25/44     25/45     25/46
        KW.XATP        33                   3/33 D
        LIP.BRL         0                  14/46 D   14/46
        LIP.BRT         0                  25/43 D   25/43
        LIP.DMT         0                  14/47 D   14/47
        LIP.TOG         0                  25/44 D   25/44
        LIP.TOK         0                  25/45 D   25/45
        LIP.UBT         0                  25/46 D   25/46
        LTK           615   PROGRAM*       27/07     30/19 L   38/18
        LTK2          621   PROGRAM*       30/29 L   31/10
        LTK3          635   PROGRAM*       31/04     31/07 L
        LTK=FWA       514   PROGRAM*       30/24 S   30/29     30/39     30/44     31/13 D
        L1.PTR          2                   3/33 D
        L.BSL           4                   3/33 D
        L.ISL           2                   3/33 D
        L.OPC          24                  25/16 D   26/11     33/10
        L.PRB           0                   3/33 D
        M.CPLX          5                  21/30 L
        M.DBL           4                  21/29 L
        M.INT           2                  21/27 L
        M.LOG           1                  21/26 L
        M.REAL          3                  21/28 L
        M.UNIV          0                  21/25 L
        OI.ERR          2                   3/33 D
        O.AND          13                   3/33 D
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    45
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        O.BOS           0                   3/33 D    3/33
        O.COM          17                   3/33 D
        O.CONS          3                   3/33 D
        O.EOS           0                   3/33 D
        O.ILL          23                   3/33 D
        O.KEY           1                   3/33 D
        O.LP           10                   3/33 D
        O.MIN           6                   3/33 D
        O.NOT          16                   3/33 D
        O.NUL           0                   3/33 D
        O.OR           14                   3/33 D
        O.PER          20                   3/33 D
        O.PLUS          5                   3/33 D    3/33
        O.QQQ          22                   3/33 D
        O.REG           4                   3/33 D
        O.RP           11                   3/33 D
        O.SEP           5                   3/33 D
        O.SHFT         12                   3/33 D
        O.SQOT         21                   3/33 D
        O.STAR          7                   3/33 D
        O.VAR           2                   3/33 D   21/54     26/15
        O.XOR          15                   3/33 D
        PAF.LENM     4000                   3/33 D
        PAF.LENP       13                   3/33 D
        PAF.LWAM    40000                   3/33 D
        PAF.LWAP       16                   3/33 D
        PS.PIPL        22                   3/33 D
        PS.PIPP        22                   3/33 D
        PS.POPL        22                   3/33 D    3/33
        PS.POPP         0                   3/33 D    3/33
        PS.PRIL         6                   3/33 D
        PS.PRIP        66                   3/33 D
        PS.TOTL        22                   3/33 D
        PS.TOTP         0                   3/33 D
        PS.UPIPL       22                   3/33 D
        PS.UPIPP       44                   3/33 D
        PTR.BRK         1                   3/33 D
        PTR.BRL         0                  14/46 D   14/46
        PTR.BRT         0                  25/43 D   25/43
        PTR.COD         1                   3/33 D
        PTR.DMT         0                  14/47 D   14/47
        PTR.DPC         3                   3/33 D
        PTR.SNP         3                   3/33 D
        PTR.STO         3                   3/33 D
        PTR.TOG         4                  25/24 D   25/44
        PTR.TOK         5                  25/25 D   25/45
        PTR.UBT         0                  25/46 D   25/46
        PTR.WHR         1                   3/33 D
        PT.FWAL        36                   3/33 D
        PT.FWAP        36                   3/33 D
        PT.LENL        36                   3/33 D
        PT.LENP         0                   3/33 D
        QUAL$           1                   3/32 D   16/04 F   22/16 F   23/06 F   38/04 F
        SC.PADL        22                   3/33 D
        SC.PADP         0                   3/33 D
        SC.TOTL        22                   3/33 D
        SC.TOTP        52                   3/33 D
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    46
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        SN=BRAD         6                   3/33 D
        SN=BRF          5                   3/33 D
        SN=CNT          4                   3/33 D
        SN=FRK          0                   3/33 D
        SN=FWA          5                   3/33 D
        SN=HDR          3                   3/33 D
        SN=INC          2                   3/33 D
        SN=LEN          7                   3/33 D
        SN=LL           0                   3/33 D
        SN=LWA          6                   3/33 D
        SN=RRL          6                   3/33 D
        SN=SRL         11                   3/33 D
        SN=UL           1                   3/33 D
        SN=URF          5                   3/33 D
        SN=USF         10                   3/33 D
        ST=BRT        530   PROGRAM*       25/43     26/03 L
        ST=DMT        456   PROGRAM*       14/47     21/48 L
        ST=DMT2       457   PROGRAM*       21/51 L   22/11
        ST=DMT3       466   PROGRAM*       21/55     22/04     22/08 L
        ST=TOG        541   PROGRAM*       25/44     26/39 L
        ST=TOG2       545   PROGRAM*       26/48 L   26/56
        ST=TOK        551   PROGRAM*       25/45     27/03 L
        ST=UBT        555   PROGRAM*       25/46     27/15 L
        ST.BRL        275   PROGRAM*       14/46 L
        ST.BRT        516   PROGRAM*       25/43 L
        ST.DMT        277   PROGRAM*       14/47 L
        ST.TOG        520   PROGRAM*       25/44 L
        ST.TOK        522   PROGRAM*       25/45 L
        ST.UBT        524   PROGRAM*       25/46 L
        SY.DECK         1                   3/33 D
        SY.LFN          3                   3/33 D
        SY.NONE         0                   3/33 D
        SY.SET          2                   3/33 D
        SY.USY          4                   3/33 D
        TB.LASP        73                   3/33 D
        TB.LENL        22                   3/33 D
        TB.LENP         0                   3/33 D
        TB.PRSL        22                   3/33 D
        TB.PRSP        22                   3/33 D
        TB.TOCL        52                   3/33 D   26/12
        TB.TOCP        22                   3/33 D
        TB.TOTL        22                   3/33 D
        TB.TOTP         0                   3/33 D
        TB.0TRL        22                   3/33 D
        TB.0TRP        22                   3/33 D
        TID           640   PROGRAM*       31/49 L   38/01
        TID2          644   PROGRAM*       31/55     32/05 L
        TID=CAL    400645   PROGRAM*       25/05     32/12 D
        TID=COF    400645   PROGRAM*       25/06     32/13 D
        TID=ELS    400645   PROGRAM*       25/07     32/14 D
        TID=ENT    400645   PROGRAM*       25/08     32/15 D
        TID=GN     400645   PROGRAM*       25/09     32/16 D
        TID=GO     400645   PROGRAM*       25/10     32/17 D
        TID=GS     400645   PROGRAM*       25/11     32/18 D
        TID=IFT    400645   PROGRAM*       25/12     32/19 D
        TID=ON     400645   PROGRAM*       25/13     32/20 D
        TID=XEQ    400645   PROGRAM*       25/14     32/21 D
1       FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                     COMPASS 3.7-871.     24/05/05. 19.59.03.      PAGE    47
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        TOD           646   PROGRAM*       26/54     32/43 L
        TOD2          656   PROGRAM*       33/14 L   33/20
        TOD=CAL       665   PROGRAM*       25/05     33/44 L
        TOD=COF       670   PROGRAM*       25/06     34/03 L
        TOD=DAT       701   PROGRAM*       33/14     34/30 L
        TOD=ELS       703   PROGRAM*       25/07     34/45 L
        TOD=ENT       703   PROGRAM*       25/08     34/46 L
        TOD=GN        705   PROGRAM*       25/09     35/03 L
        TOD=GO        714   PROGRAM*       25/10     35/25 L
        TOD=GS        717   PROGRAM*       25/11     35/39 L
        TOD=IFT       726   PROGRAM*       25/12     36/03 L
        TOD=ON        730   PROGRAM*       25/13     36/15 L
        TOD=X         742   PROGRAM*       33/51     34/35     35/18     35/54     36/37     37/04 L
                                           34/23     34/53     35/32     36/07     36/47
        TOD=XEQ       741   PROGRAM*       25/14     36/46 L
        TOG=FWA       514   PROGRAM*       25/33 L   25/34     26/45 S   26/48     31/13
        TOG=LWA       515   PROGRAM*       25/34 D   26/46 S
        TOK=IDP       640   PROGRAM*       38/01 D   38/19
        UDO.BRL         0                  14/46 D   14/46
        UDO.BRT         0                  25/43 D   25/43
        UDO.DMT         0                  14/47 D   14/47
        UDO.TOG         0                  25/44 D   25/44
        UDO.TOK         0                  25/45 D   25/45
        UDO.UBT         0                  25/46 D   25/46
        UKT=LNK       527   PROGRAM*       25/48 L
        UKT=TOK       516   PROGRAM*       14/50     25/42 L
        UTG           745   PROGRAM*       26/40     37/26 L
        UTK           751   PROGRAM*       27/04     37/47 L
        XTC.AR         15                   3/33 D
        XTC.EQ          5                   3/33 D
        XTC.GE         10                   3/33 D
        XTC.GT         12                   3/33 D
        XTC.LE         11                   3/33 D
        XTC.LT          7                   3/33 D
        XTC.MI          2                   3/33 D
        XTC.NE          6                   3/33 D
        XTC.NR         14                   3/33 D
        XTC.NZ          4                   3/33 D
        XTC.PL          1                   3/33 D
        XTC.RNG        13                   3/33 D
        XTC.ZR          3                   3/33 D
        #SVR            1                   3/33 D
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2402              IDENT  LEX
                       2402                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2237 
                                        LITERALS* LOCAL        2237       134 
                                        DEBUG     LOCAL        2373         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=LEX            0+           TB=PLVL         31+           TOK=ON        1037+ 
                                        LEXFLG           4+           TB=TYPE         32+           TOK=XEQ       1043+ 
                                        LEXMODE          5+           LEX            160+           TOK=ELS        775+ 
                                        SB=CONT         17+           CST            521+           TOK=ENT        777+ 
                                        SB=LINC         20+           RNC            644+           TF=IDP         677+ 
                                        SB=LORD         21+           TOK=CAL        744+           BLL           1655+ 
                                        TB=1ST          22+           TOK=COF        746+           CAK           1744+ 
                                        TB=LABL         24+           TOK=GN        1010+           LDB           2124+ 
                                        TB=LABR         25+           TOK=GO        1020+           LSL           2146+ 
                                        TB=NUML         27+           TOK=GS        1023+           LSS           2204+ 
                                        TB=NUMR         30+           TOK=IFT       1033+ 
  
  
                                        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 
  
  
  
  
                                        **ENDIF TEST                                                             FC5A388    12
                                                  IDENT  LEX                                                     LEX         2
                                         LEX      SECT   (LEXICAL SCANNER.)                                      LEX         3
  
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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
           134                                    KEYW   BREAK,OK,(BKD)                                          LEX      1727
           135                                    KEYW   PATCH,OK,(BKD,NIF)                                      LEX      1728
                                         .T       ENDIF                                                          LEX      1729
                                                                                                                 LEX      1730
                                  63     L.KEYW   =      *-FW.KEYW                                               LEX      1731
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE    70
        KEYW - FTN KEYWORD TABLE.                                     KEYW
  
                                        **        KEYW - SPECIAL ENTRIES FOR SYNTACTICALLY DEFINED STMTS.        LEX      1733
                                                                                                                 LEX      1734
                                                                                                                 LEX      1735
           136  00000000000000000000     UNTYP.   CON    0                                                       LEX      1736
           137                           STF.     KEYW   =SFD,STF,(NIF)                                          LEX      1737
           140                           DO.      KEYW   DO,EXU,(DON,GEN,LBL,NIF)                                LEX      1738
           141                           IF.      KEYW   =IFS,EXU,(GEN,LBL)                                      LEX      1739
           142                           REP.     KEYW   =CNF,EXU,(GEN,LBL)                                      LEX      1740
           143                           EOS      KEYW   =E.ME,END,(BKD,GEN,IL,PWS)                              LEX      1741
  
  
  
  
                                        **        KEY$ - ENTRIES FOR C$ DIRECTIVE KEYWORDS.                      LEX      1743
                                                                                                                 LEX      1744
                                                                                                                 LEX      1745
           144                           FW.KEY$  BSS    0           ** FWA OF C$ DIRECTIVE KEYWORD TABLE **     LEX      1746
                                                                                                                 LEX      1747
           144                                    KEY$   BEGCOM,OK,(BKD)                                         FC50799     6
           145                                    KEY$   COLLATE,OK,(GEN,NBS)                                    FC50785    14
           146                                    KEY$   DO,OK,(GEN,NBS)                                         FC50785    15
           147                                    KEY$   ELSE,OK,(PWS,BKD)                                       LEX      1751
           150                                    KEY$   ENDCOM,OK,(BKD)                                         FC50799     7
           151                                    KEY$   ENDIF,OK,(PWS,BKD)                                      LEX      1753
           152                                    KEY$   IF,OK,(PWS,BKD)                                         LEX      1754
           153                                    KEY$   LIST,OK,(BKD,GEN,NBS)                                   FC50785    16
                                                                                                                 LEX      1756
                                  10     L.KEY$   EQU    *-FW.KEY$                                               LEX      1757
                                                                                                                 LEX      1758
                                                                                                                 LEX      1759
           154  00000000000000000053 +   FW.KEYS  CON    FW.KEYW,FW.KEY$                                         LEX      1760
           155  00000000000000000144 +
           156  00000000000000000063     L.KEYS   CON    L.KEYW,L.KEY$                                           LEX      1761
           157  00000000000000000010
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/05. 19.59.06.      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/05. 19.59.06.      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
           160  0400400160 +             LEX      SUBR   =           ** ENTRY/EXIT **                            LEX      1853
                                                                                                                 LEX      1854
                                        *         INITIALIZATION.                                                LEX      1855
                                                                                                                 LEX      1856
           161  0100002106 +                      RJ     ILX         INITIALIZE *LEX*                            LEX      1857
           162  5110000004 +                      SA1    LEXFLG                                                  LEX      1858
                          5120000005 +            SA2    LEXMODE                                                 LEX      1859
           163  43301                             MX3    1                                                       LEX      1860
                     20371                        LX3    LF.INIP-59                                              LEX      1861
                          7272777776              SX7    X2-LM.NTR                                               LEX      1862
           164  15613                             BX6    -X3*X1      CLEAR *INI*                                 LEX      1863
                     54610                        SA6    A1                                                      LEX      1864
                          7242777775              SX4    X2-LM.1ST                                               LEX      1865
           165  0307000261 +                      ZR     X7,LEX10    IF *NEED TO READ*                           LEX      1866
                          0304000261 +            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
           166  0100000572 +             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
           167  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/05. 19.59.06.      PAGE    73
                                                                      LEX 
  
                          7221777770              SX2    X1-L.LN1                                                LEX      1879
           170  0331400170 +                      MI     X1,"BLOWUP" IF LINE TYPE TOO SMALL...                   LEX      1880
                          0322400170 +            PL     X2,"BLOWUP" IF LINE TYPE TOO BIG...                     LEX      1881
                                         .T       ENDIF                                                          LEX      1882
                                                                                                                 LEX      1883
           171  5221000173 +                      SA2    LEX=LN1+X1                                              LEX      1884
                          63520                   SB5    X2          (B5) = *LN1* ADDR TO JUMP TO                LEX      1885
           172  0255000000                        JP     B5+         GO TO IT...                                 LEX      1886
  
  
  
  
                                        **        LEX=LN1 - FIRST *LINE TYPE* JUMP TABLE.                        LEX      1888
                                                                                                                 LEX      1889
           173                           LEX=LN1  BSS    0                                                       LEX      1890
                                                                                                                 LEX      1891
      L      0                                    LOC    0                                                       LEX      1892
                                                                                                                 LEX      1893
      L      0  00000000000000400173 +   UNTYP    LNJP   "BLOWUP"    IF LINE IS UNTYPED                          LEX      1894
                                                                                                                 LEX      1895
      L      1  00000000000000000202 +   INIT     LNJP   LEX3        IF LINE IS INITIAL LINE OF STMT             LEX      1896
                                                                                                                 LEX      1897
      L      2  00000000000000000222 +   CONT     LNJP   LEX5        IF LINE IS CONTINUATION LINE                LEX      1898
                                                                                                                 LEX      1899
      L      3  00000000000000000261 +   CMNT     LNJP   LEX10       IF LINE IS COMMENT                          LEX      1900
                                                                                                                 LEX      1901
      L      4  00000000000000000261 +   NULL     LNJP   LEX10       IF LINE IS ALL BLANK (I.E. NULL)            LEX      1902
                                                                                                                 LEX      1903
      L      5  00000000000000000210 +   C$       LNJP   LEX4        IF LINE IS *C$* LINE                        LEX      1904
                                                                                                                 LEX      1905
      L      6  00000000000000000344 +   EOR      LNJP   LEX20       IF EOR/EOF/EOI ENCOUNTERED                  LEX      1906
           202                                    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/05. 19.59.06.      PAGE    74
                                                                      LEX 
  
           202  5110000011 +             LEX3     SA1    LN=LABL                                                 LEX      1930
                          13666                   BX6    X6-X6                                                   LEX      1931
                               77701              SX7    -B1                                                     LEX      1932
           203  0301000206 +                      ZR     X1,LEX3A    IF NO LABEL ON THIS LINE                    LEX      1933
                          7160000055              SX6    1R                                                      FC5A168A    5
           204  20630                             LX6    4*CHAR                                                  FC5A168A    6
                     12116                        BX1    X1+X6                                                   FC5A168A    7
                                                                                                                 LEX      1934
                          0100000000 X            CALL   CUL         CHECK UPCOMING LABEL                        LEX      1936
           205  0326000206 +                      PL     X6,LEX3A    IF LABEL IS OK                              LEX      1939
                          7160000000              SX6    0                                                       LEX      1940
                                                                                                                 LEX      1941
           206  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
           207  0400000210 +                      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
           210  5110000012 +             LEX4     SA1    LN=NUML                                                 LEX      1977
                          5120000013 +            SA2    LN=NUMR                                                 LEX      1978
           211  5130000014 +                      SA3    LN=TYPE                                                 LEX      1979
                          10611                   BX6    X1                                                      LEX      1980
                               22702              LX7    X2                                                      LEX      1981
           212  7233777772                        SX3    X3-LT.C$                                                LEX      1982
                          5160000027 +            SA6    TB=NUML                                                 LEX      1983
           213  5170000030 +                      SA7    TB=NUMR                                                 LEX      1984
                          5110000004 +            SA1    LEXFLG                                                  LEX      1985
           214  43700                             MX7    0                                                       LEX      1986
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE    75
                                                                      LEX 
  
                     5170000047 +                 SA7    TC=RSF      SET TO *BEGINNING A NEW STMT*               LEX      1987
           215  5170000051 +                      SA7    TC=EOL      RESET LAST STATEMENTS END OF LINE PROC.     LEX      1988
                          5170000052 +            SA7    TC=REST     RESET LAST STATEMENTS RESTART PROC.         LEX      1989
           216  0313000217 +                      NZ     X3,LEX4A    IF THIS IS NOT C$ STATEMENT                 LEX      1990
                          76710                   =X7    1                                                       LEX      1991
                                                                                                                 LEX      1992
           217  5170000023 +             LEX4A    SA7    TB=CDF      FLAG C$                                     LEX      1993
                          43301                   MX3    1                                                       LEX      1994
                               20371              LX3    LF.INIP-59                                              LEX      1995
           220  12631                             BX6    X3+X1       SET *INI*                                   LEX      1996
                     7170001075 +                 SX7    TOM=BOS     (X7) = ADDR *TOK* IS TO BEGIN XEQ IN TOM    LEX      1997
                               54610              SA6    A1                                                      LEX      1998
           221  5170000037 +                      SA7    TC=P                                                    LEX      1999
                          0400000235 +            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
           222  5110000004 +             LEX5     SA1    LEXFLG                                                  LEX      2016
                          5120000011 +            SA2    LN=LABL                                                 LEX      2017
           223  20103                             LX1    59-LF.INIP                                              LEX      2018
                     0331000226 +                 MI     X1,LEX6     IF THIS STMT HAS AN INITIAL LINE            LEX      2019
           224  6170000000 X                      WARN   E.INI       *THIS STMT HAS NO INITIAL LINE*             LEX      2020
           225  0400000210 +                      EQ     LEX4        TREAT AS INITIAL...                         LEX      2021
                                                                                                                 LEX      2022
           226  0302000230 +             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
           230  5110000017 +             LEX7     SA1    SB=CONT                                                 LEX      2028
                          76610                   SX6    B1                                                      LEX      2029
                               73711              SX7    X1+B1                                                   LEX      2030
           231  5160000047 +                      SA6    TC=RSF       SET TO *RESTARTING TOKEN GENERATION*       LEX      2031
                          5071000000              SA7    A1+                                                     LEX      2032
                                                                                                                 LEX      2033
           232  7221777754                        SX2    X1-ANS.CONT                                             LEX      2034
                          0332000235 +            MI     X2,LEX8     IF CONTINUATION LINE COUNT IS OK            LEX      2035
           233  0312000235 +                      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/05. 19.59.06.      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
           235  5110000000 X             LEX8     ALLOC  T.TB,82D                                                LEX      2065
                                                                                                                 LEX      2066
                                        *         RELOCATE (TC=TBA).                                             LEX      2067
                                                                                                                 LEX      2068
           237  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
           240  5110000000 X                      SA1    T.STMT                                                  LEX      2075
                          5120000021 +            SA2    SB=LORD     (X2) = *T.STMT* ORD OF LINE TO ENTOKEN      LEX      2076
           241  5130000040 +                      SA3    TC=SOA      (X3) IS RELATIVE TO *CP.FLIN*               LEX      2077
                          63221                   SB2    X2+B1                                                   LEX      2078
                               63312              SB3    X1+B2                                                   LEX      2079
           242  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
           243  0100000700 +                      RJ     TOK         TOKEN GENERATOR                             LEX      2086
                                                                                                                 LEX      2087
           244  5110000000 X                      SA1    T.TB                                                    LEX      2088
                          5120000045 +            SA2    TC=TBA                                                  LEX      2089
           245  37721                             IX7    X2-X1                                                   LEX      2090
                     7267000001                   SX6    X7+1        (X6) = TRUE LEN OF *T.TB*                   LEX      2091
                               54720              SA7    A2                                                      LEX      2092
           246  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/05. 19.59.06.      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
           247  5120000014 +                      SA2    LN=TYPE                                                 LEX      2107
                          5130002267 +            SA3    =0LEND                                                  LEX      2108
           250  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
           251  11141                             BX1    X4*X1       (X1) = STMT KEYWORD IN -L- FMT              LEX      2112
                     0316000256 +                 NZ     X6,LEX9     IF NOT AN INITIAL LINE                      LEX      2113
                               37613              IX6    X1-X3                                                   LEX      2114
           252  0316000261 +                      NZ     X6,LEX10    IF NOT *END*                                LEX      2115
                          5120000074 +            SA2    KY=END                                                  LEX      2116
           253  54111                             SA1    A1+B1       (X1) = TOKEN THAT FOLLOWS *END*             LEX      2117
                     10622                        BX6    X2                                                      LEX      2118
                          0311000261 +            NZ     X1,LEX10    IF *END* NOT FOLLOWED BY *EOS*              LEX      2119
           254  7071000000                        SX7    A1+         (X7) = ADDR OF TOKEN THAT FOLLOWS *END*     LEX      2120
                          5160000032 +            SA6    TB=TYPE                                                 LEX      2121
           255  5170000022 +                      SA7    TB=1ST                                                  LEX      2122
                          0400000307 +            EQ     LEX11A      AVOID READ-AHEAD...                         LEX      2123
                                                                                                                 LEX      2124
           256  7272777772               LEX9     SX7    X2-LT.C$                                                LEX      2125
                          0317000261 +            NZ     X7,LEX10    IF NOT *C$* LINE                            LEX      2126
           257  7160000001                        SX6    LM.NTR                                                  LEX      2127
                          5160000005 +            SA6    LEXMODE     SET TO *NEED TO READ*                       LEX      2128
           260  0400000305 +                      EQ     LEX11       AVOID READ-AHEAD...                         LEX      2129
                                                                                                                 LEX      2130
                                        *         READ NEXT CARD.                                                LEX      2131
                                                                                                                 LEX      2132
           261  0100000644 +             LEX10    RJ     RNC         READ NEXT CARD                              LEX      2133
                                                                                                                 LEX      2134
                                        *         CLASSIFY LINE AT (CP.CARD) ET SEQ.                             LEX      2135
                                                                                                                 LEX      2136
           262  0100000354 +                      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
           263  5110000014 +                      SA1    LN=TYPE                                                 LEX      2150
                                                                                                                 LEX      2151
                                         .T       IFEQ   TEST,ON                                                 LEX      2152
                          7221777770              SX2    X1-L.LN2                                                LEX      2153
           264  0331400264 +                      MI     X1,"BLOWUP" IF LINE TYPE IS TOO SMALL...                LEX      2154
                          0322400264 +            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/05. 19.59.06.      PAGE    78
                                                                      LEX 
  
           265  5140000005 +                      SA4    LEXMODE                                                 LEX      2158
                          7264777776              SX6    X4-LM.NTR                                               LEX      2159
           266  7274777775                        SX7    X4-LM.1ST                                               LEX      2160
                          11667                   BX6    X6*X7                                                   LEX      2161
           267  0316000274 +                      NZ     X6,LEX10B   IF NOT FUNNY START-UP                       LEX      2162
                                                                                                                 LEX      2163
                          7160000001              SX6    LM.NTR      *** KLUDGE FOR CMNTS BEFORE 1ST STMT ***    LEX      2164
           270  7271777774                        SX7    X1-LT.CMNT                                              LEX      2165
                          5064000000              SA6    A4+         SET TO *NEED-TO-READ FOR CMNTS*             LEX      2166
           271  0307000274 +                      ZR     X7,LEX10B   IF COMMENT LINE BEFORE 1ST STMT (KLUDGE)    LEX      2167
                          7271777773              SX7    X1-LT.NULL                                              LEX      2168
           272  0307000274 +                      ZR     X7,LEX10B   IF NULL LINE BEFORE 1ST STMT (KLUDGE)       LEX      2169
                          76600                   =X6    LM.NORM                                                 LEX      2170
                               54640              SA6    A4          CLEAR TO *NORMAL* MODE                      LEX      2171
           273  0400000166 +                      EQ     LEX2                                                    LEX      2172
                                                                                                                 LEX      2173
           274  5221000276 +             LEX10B   SA2    LEX=LN2+X1                                              LEX      2174
                          6252000000              SB5    X2+         (B5) = *LN2* ADDR TO JUMP TO                LEX      2175
           275  0255000000                        JP     B5          ONWARD...                                   LEX      2176
  
  
  
  
                                        **        LEX=LN2 - 2ND *LINE TYPE* JUMP TABLE.                          LEX      2178
                                                                                                                 LEX      2179
           276                           LEX=LN2  BSS    0                                                       LEX      2180
                                                                                                                 LEX      2181
      L      0                                    LOC    0                                                       LEX      2182
                                                                                                                 LEX      2183
      L      0  00000000000000400276 +   UNTYP    LNJP   "BLOWUP"    IF LINE IS UNTYPED                          LEX      2184
                                                                                                                 LEX      2185
      L      1  00000000000000000305 +   INIT     LNJP   LEX11       IF LINE IS INITIAL LINE OF STMT             LEX      2186
                                                                                                                 LEX      2187
      L      2  00000000000000000166 +   CONT     LNJP   LEX2        IF LINE IS CONTINUATION                     LEX      2188
                                                                                                                 LEX      2189
      L      3  00000000000000000166 +   CMNT     LNJP   LEX2        IF LINE IS COMMENT                          LEX      2190
                                                                                                                 LEX      2191
      L      4  00000000000000000166 +   NULL     LNJP   LEX2        IF LINE IS NULL (ALL BLANK)                 LEX      2192
                                                                                                                 LEX      2193
      L      5  00000000000000000305 +   C$       LNJP   LEX11       IF LINE IS C$ LINE/STMT                     LEX      2194
                                                                                                                 LEX      2195
      L      6  00000000000000000305 +   EOR      LNJP   LEX11       IF EOR/EOF/EOI ENCOUNTERED                  LEX      2196
                                                                                                                 LEX      2197
           305                                    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/05. 19.59.06.      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
           305  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
           306  0100000521 +                      RJ     CST         CLASSIFY STATEMENT                          LEX      2208
                                                                                                                 LEX      2209
           307                           LEX11A   BSS    0                                                       LEX      2210
                                                                                                                 LEX      2211
                                         .T       IFEQ   TEST,ON                                                 LEX      2212
           307  5110000000 X                      SA1    =XCO.IDP                                                LEX      2213
                          20115                   LX1    1RM                                                     LEX      2214
           310  0321000312 +                      PL     X1,LEX11B   IF *IDP=M* NOT SELECTED                     LEX      2215
           311  0100000000 X             IDP=M    BREAK                                                          LEX      2216
                                                                                                                 LEX      2217
           312  5110000000 X             LEX11B   SA1    CO.SNAP                                                 LEX      2218
                          20115                   LX1    1RM                                                     LEX      2219
           313  0321000314 +                      PL     X1,LEX12    IF *SNAP=M* NOT SELECTED                    LEX      2220
                          0100000000 X            CALL   LTB=        LIST TOKEN BUFFER                           LEX      2221
                                                                                                                 LEX      2222
           314                           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
           314  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
           315  0301000342 +                      ZR     X1,LEX14    IF NO INCOMPLETE *O.CHAR/O.HOLL* TOKEN      LEX      2234
                          5130000004 +            SA3    LEXFLG                                                  FC5A110     7
           316  20314                             LX3    59-LF.TDEP                                              FC5A110     8
                     0323000327 +                 PL     X3,LEX13    IF MISSING DELIMITER                        FC5A110     9
           317  5130000000 X                      SA3    T.TB                                                    FC5A110    10
                          5140000045 +            SA4    TC=TBA      (X4) = *T.TB* ORD OF *EOS* TOKEN            FC5A110    11
           320  36634                             IX6    X3+X4                                                   FC5A110    12
                     63360                        SB3    X6          (B3) = LWA+1 OF '/" STRING                  FC5A110    13
                          7232777772              SX3    X2-CT.SQT                                               FC5A110    14
           321  0303000324 +                      ZR     X3,LEX12A   IF '' STRING                                FC5A110    15
                          0100002047 +            RJ     EOH         END OF HOLLERITH STRING PROCESSING          FC5A110    16
           322  0100002223 +                      RJ     TTB         TERMINATE TOKEN BUFFER                      FC5A110    17
           323  0400000342 +                      EQ     LEX14                                                   FC5A110    18
                                                                                                                 FC5A110    19
           324  0100002023 +             LEX12A   RJ     EOC         END OF CHARACTER STRING PROCESSING          FC5A110    20
           325  0100002223 +                      RJ     TTB         TERMINATE TOKEN BUFFER                      FC5A110    21
           326  0400000342 +                      EQ     LEX14                                                   FC5A110    22
                                                                                                                 FC5A110    23
           327  7160000070               LEX13    SX6    1R'                                                     FC5A110    24
                          7272777772              SX7    X2-CT.SQT                                               LEX      2275
           330  0307000332 +                      ZR     X7,LEX13B   IF '' STRING                                LEX      2276
                                                                                                                 LEX      2277
                          7272777776              SX7    X2-CT.H                                                 LEX      2278
           331  0307000337 +                      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/05. 19.59.06.      PAGE    80
                                                                      LEX 
  
                                                                                                                 LEX      2282
           332  20666                    LEX13B   LX6    10*CHAR-1*CHAR  (X6) = MISSING DELIMITER, -L- FMT       LEX      2283
                     5160000000 X                 SA6    FILL.                                                   LEX      2284
           333  6170000000 X                      FATAL  E.HC3       ** TERMINAL DELIMITER MISSING **            LEX      2285
           334  7160000046                        =X6    O.ILL                                                   LEX      2286
                          5120002347 +            SA2    =7LBAD-STR                                              LEX      2287
           335  12662                             BX6    X6+X2                                                   LEX      2288
                     53610                        SA6    X1          O.CHAR TO O.ILL                             LEX      2289
                          0100002223 +            RJ     TTB         TERMINATE TOKEN BUFFER                      LEX      2290
           336  0400000342 +                      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
           337  7160000046               LEX13C   SX6    O.ILL                                                   LEX      2297
                          5120002347 +            SA2    =7LBAD-STR                                              LEX      2298
           340  12662                             BX6    X6+X2                                                   LEX      2299
                     53610                        SA6    X1          *O.HOLL* BECOMES *O.ILL*                    LEX      2300
                          0100002223 +            RJ     TTB         TERMINATE TOKEN BUFFER                      LEX      2301
                                                                                                                 LEX      2302
           341  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
           342  5110000004 +             LEX14    SA1    LEXFLG      (X1) = *LEX* MASTER CONTROL FLAG            LEX      2308
                          43201                   MX2    1                                                       LEX      2309
                               20266              LX2    LF.LACP-59                                              LEX      2310
           343  15612                             BX6    -X2*X1      CLEAR *LAC*                                 LEX      2311
                     54610                        SA6    A1                                                      LEX      2312
                          0400000160 +            EQ     EXIT.       BACK TO FRONT END CONTROLLER...             LEX      2313
                                                                                                                 LEX      2314
           344  5110000143 +             LEX20    SA1    EOS                                                     LEX      2315
                          10611                   BX6    X1                                                      LEX      2316
           345  5160000032 +                      SA6    TB=TYPE     INVENTED END LINE                           LEX      2317
                          5110000004 +            SA1    LEXFLG                                                  LEX      2318
           346  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
           347  0321000350 +                      PL     X1,LEX21    IF NOT IN *HEADER DELAY*                    FC50250     8
                          0100002124 +            RJ     LDB         LIST DEFERRED BUFFER                        FC50250     9
                                                                                                                 FC50250    10
           350  5110000353 +             LEX21    SA1    LEX.DLN                                                 FC50791     6
                          43600                   MX6    0                                                       FC50791     7
                               22701              LX7    X1                                                      FC50791     8
           351  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
           352  0400000160 +                      EQ     EXIT.                                                   LEX      2325
                                                                                                                 FC50791    10
           353  44444444440000000000     LEX.DLN  CON    5L99999                                                 FC50791    11
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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/05. 19.59.06.      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
           354  0400400354 +             CLN      SUBR               ** ENTRY/EXIT **                            LEX      2406
                                                                                                                 LEX      2407
                                        *         INITIALIZATION.                                                LEX      2408
                                                                                                                 LEX      2409
           355  5150000000 X                      SA5    CP.CARD                                                 LEX      2410
                          5120000000 X            SA2    L.CARD      (X2) = NR OF WORDS IN SOURCE LINE           LEX      2411
           356  43066                             MX0    -CHAR                                                   LEX      2412
                     13666                        BX6    X6-X6                                                   LEX      2413
                          5160000011 +            SA6    LN=LABL     CLEAR *LINE LABEL*                          LEX      2414
           357  5160000012 +                      SA6    LN=NUML     CLEAR *LINE NUMBER, -L- FMT*                LEX      2415
                          5160000013 +            SA6    LN=NUMR     CLEAR *LINE NUMBER, -R- FMT*                LEX      2416
           360  5160000006 +                      SA6    LN=FEN                                                  LEX      2417
                          5160000007 +            SA6    LN=FENB                                                 LEX      2418
           361  5160000010 +                      SA6    LN=FENL                                                 LEX      2419
                          7170000006              SX7    LT.EOR                                                  LEX      2420
           362  5170000014 +                      SA7    LN=TYPE     PRESET TO *EOR/EOF OCCURRED*                LEX      2421
                                                                                                                 LEX      2422
                          5110000000 X            SA1    CP.IFMT                                                 LEX      2423
           363  0331000354 +                      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
           364  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
           365  6150000740                        SB5    8*60        (B5) = MAX NR OF BITS PER LINE              LEX      2431
                          63740                   SB7    X4                                                      LEX      2432
           366  0657000367 +                      LE     B7,B5,CLN1  IF LINE NOT TOO LONG                        FC5A239     7
                          66750                   SB7    B5                                                      LEX      2434
                                                                                                                 LEX      2435
           367  5110000000 X             CLN1     SA1    CO.SEQ                                                  FC5A239     8
                          0311000430 +            NZ     X1,CLN10    IF THIS IS *SEQ* MODE INPUT                 LEX      2437
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
           370  0775000371 +                      LT     B7,B5,CLN2  IF NUMBER OF COLUMNS .LE. 70                FC5A239     9
                          6177777717              SB7    B7-8*CHAR                                               LEX      2468
                                                                                                                 LEX      2469
           371  5110000000 X             CLN2     SA1    CARDS                                                   FC5A239    10
                          0100000000 X            CALL   CDD         CONVERT BINARY TO DECIMAL DPC               LEX      2471
           372  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
           373  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
           374  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
           375  7214777730                        SX1    X4-1R*                                                  LEX      2484
                          7224777774              SX2    X4-1RC                                                  LEX      2485
           376  0301000403 +                      ZR     X1,CLN3     IF COL 1 IS -*-, COMMENT LINE...            LEX      2486
                          0312000405 +            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
           377  5110002350 +                      SA1    =6RC$                                                   LEX      2491
                          20536                   LX5    5*CHAR      (X5) = COL 7890123456                       LEX      2492
                               43230              MX2    -6*CHAR                                                 LEX      2493
           400  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/05. 19.59.06.      PAGE    84
                                                                      CLN 
  
                          7170000005              SX7    LT.C$                                                   LEX      2496
           401  0313000403 +                      NZ     X3,CLN3     IF NOT A C$ LINE, COMMENT...                LEX      2497
                          5110000000 X            SA1    CO.DS                                                   LEX      2498
           402  0321000416 +                      PL     X1,CLN7     IF C$ PROCESSING NOT DESELECTED             LEX      2499
           403  7170000003               CLN3     SX7    LT.CMNT                                                 LEX      2500
                          5170000014 +            SA7    LN=TYPE                                                 LEX      2501
           404  0400000354 +                      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
           405  5110002351 +             CLN4     SA1    =5R                                                     LEX      2507
                          20530                   LX5    4*CHAR      (X5) = COLS 6789012345                      LEX      2508
                               43236              MX2    -5*CHAR                                                 LEX      2509
           406  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
           407  0303000410 +                      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
           410  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
           411  7224777722                        SX2    X4-1R                                                   LEX      2521
                          0312000414 +            NZ     X2,CLN6     IF COL 6 IS NON-BLANK                       LEX      2522
           412  7170000001                        SX7    LT.INIT                                                 LEX      2523
                          0313000416 +            NZ     X3,CLN7     IF COLS 1-5 NOT ALL BLANK                   LEX      2524
           413  7170000004                        SX7    LT.NULL                                                 LEX      2525
                          0400000416 +            EQ     CLN7                                                    LEX      2526
                                                                                                                 LEX      2527
                                        *         HERE IF COL 6 NON-BLANK.                                       LEX      2528
                                                                                                                 LEX      2529
           414  7224777744               CLN6     SX2    X4-1R0                                                  LEX      2530
                          0312000416 +            NZ     X2,CLN7     IF COL 6 NOT -0-, LINE IS CONTINUATION...   LEX      2531
           415  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
           416  5170000014 +             CLN7     SA7    LN=TYPE                                                 LEX      2543
                          6140000000 X            SB4    CP.FLIN                                                 LEX      2544
           417  6160000030                        SB6    4*CHAR                                                  LEX      2545
                          6130000066              SB3    10*CHAR-1*CHAR                                          LEX      2546
           420  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
           421  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/05. 19.59.06.      PAGE    85
                                                                      CLN 
  
                                                                                                                 LEX      2553
                               43473              MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      2554
           422  13666                             BX6    X6-X6       CLEAR PACKING REG TO PREVENT (A6) STORE     LEX      2555
                     76770                        SX7    B7                                                      LEX      2556
                          5160000517 +            SA6    CLNA        PRESTORE (A6)...JUST IN CASE                LEX      2557
           423  5170000010 +                      SA7    LN=FENL     SAVE (B7) = NR OF BITS REMAINING            LEX      2558
                          0100001701 +            RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ       LEX      2559
           424  0607000511 +                      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
           425  7170000001                        SX7    LT.INIT                                                 LEX      2566
                          7231777773              SX3    X1-LT.NULL                                              LEX      2567
           426  0313000512 +                      NZ     X3,CLN20    IF LINE NOT INITIALLY TYPED AS NULL         FC5A239    12
                          5071000000              SA7    A1+                                                     LEX      2569
           427  0400000512 +                      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
           430  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
           431  5160000517 +                      SA6    CLNA        PRESTORE (A6)...JUST IN CASE                LEX      2602
                          7140777776              SX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      2603
           432  6160000074                        SB6    10*CHAR                                                 LEX      2604
                          0100001701 +            RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ       LEX      2605
           433  0607000457 +                      LE     B7,B0,CLN14 IF LINE IS EMPTY                            LEX      2606
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
           434  6224007763                        SB2    X4+10000B-BICH                                          LEX      2611
                          22721                   LX7    X1,B2                                                   LEX      2612
           435  0327000457 +                      PL     X7,CLN14    IF 1ST CHAR OF LINE NR IS NOT DIGIT         LEX      2613
                          13666                   BX6    X6-X6                                                   LEX      2614
           436  6150000006                        SB5    6           (B5) = MAX NR OF CHARS IN LINE NR           LEX      2615
                          5160000517 +            SA6    CLNA        PRESTORE (A6)                               LEX      2616
           437  6130000066                        SB3    10*CHAR-1*CHAR                                          LEX      2617
                          0100001723 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2618
           440  5160000012 +                      SA6    LN=NUML                                                 LEX      2619
                          6140000066              SB4    60-CHAR                                                 LEX      2620
           441  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
           442  5170000014 +                      SA7    LN=TYPE                                                 LEX      2624
                          5160000013 +            SA6    LN=NUMR                                                 LEX      2625
           443  0607000354 +                      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
           444  7234777732                        SX3    X4-1R+                                                  LEX      2631
                          0302000466 +            ZR     X2,CLN16    IF LINE IS *NULL* SO FAR                    FC5A239    14
           445  7170000002                        SX7    LT.CONT                                                 LEX      2633
                          0303000461 +            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
           446  7224777774                        SX2    X4-1RC                                                  LEX      2652
                          0312000457 +            NZ     X2,CLN14    IF COMMENT LINE                             LEX      2653
           447  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
           450  5160000517 +                      SA6    CLNA        PRESTORE (A6)                               LEX      2657
                          6130000066              SB3    10*CHAR-1*CHAR                                          LEX      2658
           451  0100001723 +                      RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2659
                                                                                                                 LEX      2660
           452  5120002352 +                      SA2    =2LC$                                                   LEX      2661
                          13762                   BX7    X6-X2                                                   LEX      2662
           453  0317000457 +                      NZ     X7,CLN14    IF NOT -C$-, LINE IS COMMENT...             LEX      2663
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE    87
                                                                      CLN 
  
                          7224777722              SX2    X4-1R                                                   LEX      2664
           454  0607000455 +                      LE     B7,B0,CLN13 IF -C$- IMMEDIATELY FOLLOWED BY EOL MARK    LEX      2665
                          0312000457 +            NZ     X2,CLN14    IF NOT -C$.- (.=BLANK(55B))                 LEX      2666
                                                                                                                 LEX      2667
                                        *         HERE IF C$ LINE.                                               LEX      2668
                                                                                                                 LEX      2669
           455  5110000000 X             CLN13    SA1    CO.DS                                                   LEX      2670
                          7170000005              SX7    LT.C$                                                   LEX      2671
           456  0321000466 +                      PL     X1,CLN16    IF C$ PROCESSING NOT DESELECTED             FC5A239    15
                                                                                                                 LEX      2673
                                        *         HERE IF COMMENT LINE.                                          LEX      2674
                                                                                                                 LEX      2675
           457  7170000003               CLN14    SX7    LT.CMNT                                                 LEX      2676
                          5170000014 +            SA7    LN=TYPE                                                 LEX      2677
           460  0400000354 +                      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
           461  5110000676 +             CLN15    SA1    TF=SQZ                                                  FC5A239    16
                          0311000466 +            NZ     X1,CLN16    IF IN BLANK SQUEEZE MODE                    FC5A239    17
           462  5170000014 +                      SA7    LN=TYPE                                                 FC5A239    18
                          6140000000 X            SB4    CP.FLIN                                                 FC5A239    19
           463  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
           464  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
           465  0400000511 +                      EQ     CLN18                                                   FC5A239    27
                                                                                                                 FC5A239    28
           466  5170000014 +             CLN16    SA7    LN=TYPE                                                 FC5A239    29
                          0607000472 +            LE     B7,B0,CLN17 IF NOTHING LEFT                             FC5A239    30
           467  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
           470  66510                             SB5    B1          (B5) = NR OF CHARS TO BU/BU                 LEX      2700
                     6130000066                   SB3    10*CHAR-1*CHAR                                          LEX      2701
           471  0100001723 +                      RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2702
                                                                                                                 LEX      2703
           472  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
           473  5160000006 +                      SA6    LN=FEN                                                  FC5A239    34
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE    88
                                                                      CLN 
  
                          54761                   =A7    A6-LN=FEN+LN=FENB                                       FC5A239    35
                               76670              SX6    B7                                                      FC5A239    36
           474  54671                             =A6    A7-LN=FENB+LN=FENL                                      FC5A239    37
                     0607000511 +                 LE     B7,B0,CLN18 IF NOTHING LEFT                             FC5A239    38
           475  6130000066                        SB3    10*CHAR-1*CHAR                                          LEX      2713
                          13666                   BX6    X6-X6                                                   LEX      2714
           476  0100001701 +                      RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ       LEX      2715
           477  0607000511 +                      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
           500  5110000015 +                      SA1    MX=0..9     (X1) = CHAR SHIFT MASK FOR 0 THRU 9         LEX      2727
                          7232777773              SX3    X2-LT.NULL                                              LEX      2728
           501  6224007763                        SB2    X4+10000B-BICH                                          LEX      2729
                          0313000512 +            NZ     X3,CLN20    IF NOT *NULL SO FAR* LINE                   FC5A239    40
                                                                                                                 LEX      2731
           502  22621                             LX6    X1,B2                                                   LEX      2732
                     7170000001                   SX7    LT.INIT                                                 LEX      2733
                               54720              SA7    A2                                                      LEX      2734
           503  0326000512 +                      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
           504  13666                             BX6    X6-X6                                                   LEX      2740
                     5160000517 +                 SA6    CLNA        PRESTORE (A6)                               LEX      2741
           505  6130000066                        SB3    10*CHAR-1*CHAR                                          LEX      2742
                          0100001723 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2743
           506  10166                             BX1    X6                                                      FC5A168A    8
                     0100000000 X                 CALL   SFN         SPACE FILL                                  FC5A168A    9
           507  43136                             MX1    5*CHAR                                                  FC5A168A   10
                     11616                        BX6    X1*X6       ERASE LOWER 5 CHARACTERS                    FC5A168A   11
                          5110000015 +            SA1    MX=0..9                                                 FC5A168A   12
           510  5160000011 +                      SA6    LN=LABL                                                 LEX      2744
                          0400000472 +            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/05. 19.59.06.      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
           511  7140777776               CLN18    SX4    -1          SET TO *NO USEABLE CHARACTER IN (X4)*       FC5A239    44
                                                                                                                 LEX      2781
           512  6140000000 X             CLN20    SB4    CP.FLIN                                                 FC5A239    45
                          76670                   SX6    B7                                                      LEX      2783
                               75754              SX7    A5-B4                                                   LEX      2784
           513  5160000042 +                      SA6    TC=SOL                                                  LEX      2785
                          5170000040 +            SA7    TC=SOA                                                  LEX      2786
           514  76660                             SX6    B6                                                      LEX      2787
                     10744                        BX7    X4                                                      LEX      2788
                          5160000043 +            SA6    TC=SOB                                                  LEX      2789
           515  5170000044 +                      SA7    TC=SOC                                                  LEX      2790
                          10655                   BX6    X5                                                      LEX      2791
           516  5160000041 +                      SA6    TC=SOX                                                  LEX      2792
                          0400000354 +            EQ     EXIT.                                                   LEX      2793
                                                                                                                 LEX      2794
                                                                                                                 LEX      2795
           517                     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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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
           521  0400400521 +             CST      SUBR   =           ** ENTRY/EXIT **                            LEX      2935
           522  5110000023 +                      SA1    TB=CDF                                                  LEX      2936
                          0311000562 +            NZ     X1,CST7     IF C$ LINE                                  LEX      2937
                                                                                                                 LEX      2938
                                        *         INITIALIZATION.                                                LEX      2939
                                                                                                                 LEX      2940
           523  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
           524  5130000000 X                      SA3    ZLCOMMA                                                 LEX      2945
                          7225777766              SX2    X5-O.VAR                                                LEX      2946
           525  76740                             SX7    B4                                                      LEX      2947
                     43114                        MX1    2*CHAR                                                  LEX      2948
                          5170000022 +            SA7    TB=1ST                                                  LEX      2949
           526  6150000136 +                      SB5    UNTYP.                                                  LEX      2950
                          0312000567 +            NZ     X2,CST8     IF NOT A *VAR* TOKEN, STMT IS BAD (UNTYPED) LEX      2951
                                                                                                                 LEX      2952
                                        *         CHECK FOR *DO* STATEMENT.                                      LEX      2953
                                                                                                                 LEX      2954
           527  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
           530  7226777360                        SX2    X6-2RDO                                                 LEX      2958
                          0312000533 +            NZ     X2,CST2     IF 1ST 2 CHARS NOT *DO*                     LEX      2959
           531  0304000562 +                      ZR     X4,CST7     IF NO ZERO LEVEL *=* IN THIS STMT           LEX      2960
                          0337000545 +            MI     X7,CST5     IF ZERO LEVEL *,* NOT AFTER ZERO LVL *=*    LEX      2961
           532  6150000140 +                      SB5    DO.                                                     LEX      2962
                          0400000567 +            EQ     CST8                                                    LEX      2963
                                                                                                                 LEX      2964
                                        *         CHECK FOR *IF* STATEMENT.                                      LEX      2965
                                                                                                                 LEX      2966
           533  7226776671               CST2     SX2    X6-2RIF                                                 LEX      2967
                          0312000545 +            NZ     X2,CST5     IF 1ST 2 CHARS NOT *IF*                     LEX      2968
           534  43136                             MX1    -5*CHAR                                                 LEX      2969
                     46000                        NO                                                             LEX      2970
                          20122                   LX1    8*CHAR-5*CHAR                                           LEX      2971
                               15251              BX2    -X1*X5                                                  LEX      2972
           535  0312000545 +                      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/05. 19.59.06.      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
           536  56241                             SA2    B4+B1       (X2) = TOKEN THAT FOLLOWS *IF*              LEX      2990
                     63230                        SB2    X3                                                      LEX      2991
                          7272777740              SX7    X2-O.(                                                  LEX      2992
           537  77124                             SX1    B2-B4                                                   LEX      2993
                     0317000545 +                 NZ     X7,CST5     IF NOT *IF(*                                LEX      2994
           540  0303000545 +                      ZR     X3,CST5     IF NO ZERO LEVELING PAREN, NOT *IF* STMT    LEX      2995
                          0321000542 +            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
           541  0314000545 +                      NZ     X4,CST5     IF ZERO LEVEL *=* PRESENT                   LEX      3007
                          0400000544 +            EQ     CST4        STMT IS *IF*...                             LEX      3008
                                                                                                                 LEX      3009
                                        *         CHECK 1ST TOKEN AFTER ZERO LEVELING RIGHT PAREN.               LEX      3010
                                                                                                                 LEX      3011
           542  5223000001               CST3     SA2    X3+1        (X2) = TOKEN THAT FOLLOWS ZERO LVLING PAREN LEX      3012
                          7272777763              SX7    X2-O.SEP                                                LEX      3013
           543  0327000545 +                      PL     X7,CST5     IF TOKEN IS NOT POSSIBLE IN *IF* STMT       LEX      3014
                                                                                                                 LEX      3015
           544  6150000141 +             CST4     SB5    IF.                                                     LEX      3016
                          0400000567 +            EQ     CST8                                                    LEX      3017
                                                                                                                 LEX      3018
                                        *         CHECK FOR REPLACEMENT STATEMENT.                               LEX      3019
                                                                                                                 LEX      3020
           545  0304000562 +             CST5     ZR     X4,CST7     IF NO ZERO LEVEL *=*, NOT REPLACEMENT...    LEX      3021
                          5114000001              SA1    B4+1        (X1) = TOKEN FOLLOWING *VAR* TOKEN          LEX      3022
           546  6150000142 +                      SB5    REP.                                                    LEX      3023
                          7261777766              SX6    X1-O.VAR                                                LEX      3024
           547  0316000551 +                      NZ     X6,CST6     IF NOT A LONG NAME (NR CHARS .LE. 7)        LEX      3025
                          0100000000 X            CALL   TLV         TRUNCATE LONG VARIABLE NAME                 LEX      3026
           550  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/05. 19.59.06.      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
           551  6150000142 +             CST6     SB5    REP.                                                    FC5A110    26
                          5130000000 X            SA3    STAGE                                                   FC5A110    27
           552  7160000000 X                      SX6    FEC=EXU                                                 FC5A110    28
                          37636                   IX6    X3-X6                                                   FC5A110    29
           553  0306000567 +                      ZR     X6,CST8     IF IN EXECUTABLES                           FC5A110    30
                          43252                   MX2    WA.SYML                                                 FC5A110    31
           554  7231777740                        SX3    X1-O.(                                                  LEX      3048
                          11625                   BX6    X2*X5       (X6) = 1ST 7 CHARS OF *VAR* TOKEN, -L- FMT  LEX      3049
           555  0313000567 +                      NZ     X3,CST8     IF *VAR* NOT FOLLOWED BY *(*, NOT ARRAY/ASF LEX      3050
                                                  HX1    TB.COL                                                  FC50170     5
                          0331000567 +            MI     X1,CST8     IF ( CONTAINS COLON, IS REPL.               FC50170     6
           556  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           LEX      3052
           557  6150000142 +                      SB5    REP.                                                    LEX      3055
                          20261                   SBIT   X2,WB.ARYP                                              LEX      3060
           560  0332000567 +                      MI     X2,CST8     IF AN ARRAY, MUST BE REP.                   LEX      3061
                          6150000137 +            SB5    STF.                                                    LEX      3063
           561  0400000567 +                      EQ     CST8                                                    LEX      3073
                                                                                                                 LEX      3074
                                        *         HERE TO SCAN FTN KEYWORD TABLE.                                LEX      3075
                                                                                                                 LEX      3076
           562  5110000023 +             CST7     SA1    TB=CDF      C$ FLAG                                     LEX      3077
                          5221000154 +            SA2    X1+FW.KEYS                                              LEX      3078
           563  5231000156 +                      SA3    X1+L.KEYS                                               LEX      3079
                          63620                   SB6    X2                                                      LEX      3080
                               63730              SB7    X3                                                      LEX      3081
           564  0100001744 +                      RJ     CAK         CHECK AND ADJUST KEYWORD                    LEX      3082
           565  6150000136 +                      SB5    UNTYP.                                                  LEX      3083
                          0470000567 +            ZR     B7,CST8     IF NO FIND IN FTN KEYWORD TABLE             LEX      3084
           566  0670000570 +                      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
           567  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
           570  7174000000               CST10    SX7    B4+                                                     LEX      3100
                          5160000032 +            SA6    TB=TYPE                                                 LEX      3101
           571  5170000022 +                      SA7    TB=1ST                                                  LEX      3102
                          0400000521 +            EQ     EXIT.                                                   LEX      3103
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
           572  0400400572 +             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/05. 19.59.06.      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
           573  5110000000 X                      SA1    CO.SEQ                                                  LEX      3180
                          5120002353 +            SA2    =10H                                                    LEX      3181
           574  46000                             NO                                                             LEX      3182
                     10622                        BX6    X2                                                      LEX      3183
                          0311000576 +            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
           575  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
           576  5110000000 X             PLR40    SA1    STAGE       CHECK IF LINE COMPILED                      FC50761    16
                          20606                   LX6    CHAR                                                    FC50761    17
           577  7120000000 X                      SX2    FEC=BY      BYPASS FLAG                                 FC50761    18
                          37112                   IX1    X1-X2                                                   FC50761    19
           600  0311000602 +                      NZ     X1,PLR41    IF COMPILED                                 FC50761    20
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE    97
                                                                      PLR 
  
                          7120004646              SX2    2R--                                                    FC50761    21
           601  20252                             LX2    42                                                      FC50761    22
                     43014                        MX0    12                                                      FC50761    23
                          0400000610 +            EQ     PLR43       GO STORE                                    FC50761    24
                                                                                                                 FC50761    25
           602  5110000000 X             PLR41    SA1    IFLEVEL     GET CURRENT IF LEVEL                        FC50761    26
                          0301000611 +            ZR     X1,PLR44    IF ZERO                                     FC50761    27
           603  7221777633                        SX2    X1-100D                                                 FC50761    28
                          0322000607 +            PL     X2,PLR42    IF GREATER THAN 99                          FC50761    29
           604  10566                             BX5    X6                                                      FC50761    30
                     0100000000 X                 RJ     CDD         CONVERT LEVEL                               FC50761    31
           605  43014                             MX0    12                                                      FC50761    32
                     20652                        LX6    42                                                      FC50761    33
                          20066                   LX0    -6                                                      FC50761    34
                               11606              BX6    X0*X6       MASK TWO DIGITS                             FC50761    35
           606  15550                             BX5    -X0*X5                                                  FC50761    36
                     12656                        BX6    X5+X6       MERGE IF LEVEL AND LINE NR                  FC50761    37
                          0400000611 +            EQ     PLR44                                                   FC50761    38
                                                                                                                 FC50761    39
           607  7120444445               PLR42    SX2    3R99+       INDICATE IF LEVEL > 99                      FC50761    40
                          20244                   LX2    36                                                      FC50761    41
                               43022              MX0    18                                                      FC50761    42
                                                                                                                 FC50761    43
           610  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
           611  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
           612  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
           613  7262777774                        SX6    X2-LT.CMNT                                              LEX      3237
                          7272777773              SX7    X2-LT.NULL                                              LEX      3238
           614  0331000616 +                      MI     X1,PLR60    IF IN *HEADER DELAY* MODE                   FC50761    50
                          0306000633 +            ZR     X6,PLR70    IF LINE IS COMMENT                          FC50761    51
           615  0307000633 +                      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/05. 19.59.06.      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
           616  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
           617  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
           620  66651                             SB6    B5+B1       (B6) = NR OF WORDS TO ALLOCATE              LEX      3281
                     5110000000 X                 ALLOC  T.STMT,B6                                               LEX      3282
           622  5130000014 +                      SA3    LN=TYPE                                                 LEX      3283
                          76660                   SX6    B6                                                      LEX      3284
                               67476              SB4    B7-B6                                                   LEX      3285
                                                  LX6    SB.LENP-0                                               LEX      3286
           623  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
           624  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
           625  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
           626  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
           627  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/05. 19.59.06.      PAGE    99
                                                                      PLR 
  
           630  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
           631  76341                             SX3    B4+B1       (X3) = TO                                   LEX      3311
                     0100000000 X                 MOVE   X1,X2,X3                                                LEX      3312
                                                                                                                 LEX      3313
           632  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
           633  5110000000 X             PLR70    SA1    WO.LOS                                                  FC50761    54
                          5130000004 +            SA3    LEXFLG                                                  LEX      3328
           634  5140000014 +                      SA4    LN=TYPE                                                 LEX      3329
                                                  LX3    59-LF.HDRP                                              LEX      3330
                          0301000572 +            ZR     X1,EXIT.    IF NOT LISTING THIS SOURCE LINE             LEX      3331
           635  0333000572 +                      MI     X3,EXIT.    IF IN *HEADER DELAY* MODE, DONT LIST NOW... LEX      3332
                          7264777774              SX6    X4-LT.CMNT                                              LEX      3333
           636  0306000641 +                      ZR     X6,PLR80    IF COMMENT LINE, IT CANT BE IN T.STMT ...   FC50761    55
                                                                                                                 LEX      3335
                          5110000000 X            SA1    T.STMT                                                  LEX      3336
           637  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
           640  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
           641  7110000000 X             PLR80    SX1    CP.FLIN                                                 FC50761    56
                          5120000000 X            SA2    L.CARD                                                  LEX      3346
           642  73421                             =X4    X2+2-1      LENGTH INC. LINE# AND BLANK LESS EOL        LEX      3347
                     0100002146 +                 RJ     LSL         LIST SOURCE LINE                            LEX      3348
           643  0400000572 +                      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/05. 19.59.06.      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
           644  0400400644 +             RNC      SUBR   =           ** ENTRY/EXIT **                            LEX      3384
           645  5110000000 X                      SA1    CARDS                                                   LEX      3385
                          5120000000 X            SA2    CP.IFMT                                                 LEX      3386
           646  5130000005 +                      SA3    LEXMODE                                                 LEX      3387
                          73611                   SX6    X1+B1                                                   LEX      3388
                               54610              SA6    A1          UPDATE LINE COUNT                           LEX      3389
           647  0312400647 +                      NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)      LEX      3390
                          7273777775              SX7    X3-LM.1ST                                               LEX      3391
           650  0317000654 +                      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/05. 19.59.06.      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
           651  43060                             MX0    -2*CHAR                                                 LEX      3427
                                                                                                                 LEX      3428
           652  15430                    RNC3     BX4    -X0*X3                                                  LEX      3429
                     54331                        SA3    A3+B1                                                   LEX      3430
                          0314000652 +            NZ     X4,RNC3     IF NOT END OF IMAGE                         LEX      3431
                                                                                                                 LEX      3432
           653  64630                             SB6    A3          (B6) = LWA+1 OF SOURCE LINE                 LEX      3433
                     13111                        BX1    X1-X1       SET TO *NO EOR/EOF/EOI ENCOUNTERED*         LEX      3434
                          0400000656 +            EQ     RNC5                                                    LEX      3435
                                                                                                                 LEX      3436
           654  6160000000 X             RNC4     READC  F.IN,CP.CARD,16                                         LEX      3437
                                                                                                                 LEX      3438
                                        *         CHECK FOR AND PROCESS EOR/EOF/EOI.                             LEX      3439
                                                                                                                 LEX      3440
           656  6140000000 X             RNC5     SB4    CP.CARD                                                 LEX      3441
                          0301000661 +            ZR     X1,RNC6     IF NO EOR/EOF/EOI ENCOUNTERED               LEX      3442
           657  43601                             MX6    1                                                       LEX      3443
                     66700                        SB7    B0                                                      LEX      3444
                          5160000000 X            SA6    CP.IFMT     SET TO *EOR/EOF/EOI ENCOUNTERED*            LEX      3445
           660  0400000673 +                      EQ     RNC11                                                   LEX      3446
                                                                                                                 LEX      3447
                                        *         CHECK FOR FULL WORD AND 11 CHARACTER EOL MARK.                 LEX      3448
                                                                                                                 LEX      3449
           661  5116777776               RNC6     SA1    B6-1        (A1,X1) = A+C OF LAST WORD OF LINE IMAGE    LEX      3450
                          0311000664 +            NZ     X1,RNC7     IF NOT A FULL WORD EOL MARK                 LEX      3451
           662  5011777776                        SA1    A1-1                                                    LEX      3452
                          6166777776              SB6    B6-1                                                    LEX      3453
           663  43266                             MX2    -CHAR                                                   LEX      3454
                     15312                        BX3    -X2*X1                                                  LEX      3455
                          0313000666 +            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
           664  0100000000 X             RNC7     CALL   SFN         SPACE FILL NAME                             LEX      3460
           665  5061000000                        SA6    A1+                                                     LEX      3461
                                                                                                                 LEX      3462
                                        *         CHECK FOR, AND TRUNCATE, LONG LINE.                            LEX      3463
                                                                                                                 LEX      3464
           666  67764                    RNC8     SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE   LEX      3465
                     6150000011                   SB5    MAX.CDL-1                                               LEX      3466
           667  0657000670 +                      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
           670  5110002353 +             RNC9     SA1    =10H                                                    LEX      3472
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   102
                                                                      RNC 
  
                          10611                   BX6    X1                                                      LEX      3473
                                                                                                                 LEX      3474
           671  0675000673 +             RNC10    GE     B7,B5,RNC11 IF DONE                                     LEX      3475
                          56647                   SA6    B4+B7                                                   LEX      3476
                               66771              SB7    B7+B1                                                   LEX      3477
           672  0400000671 +                      EQ     RNC10                                                   LEX      3478
                                                                                                                 LEX      3479
                                        *         FINAL PROCESSING AND EXIT.                                     LEX      3480
                                                                                                                 LEX      3481
           673  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
           674  5170000000 X                      SA7    L.CARD                                                  LEX      3485
                          0400000644 +            EQ     EXIT.                                                   LEX      3486
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   103
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK 
  
           675                           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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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
           675                     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
           676                     1     TF=SQZ   BSSZ   1                                                       COMCTOK   539
                                                                                                                 COMCTOK   540
                                                  IFNE   TEST,0,1                                                COMCTOK   541
           677                     1     TF=IDP   BSSZ   1                                                       COMCTOK   542
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
           700  0400400700 +             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
           701  7162000000                        SX6    B2+                                                     COMCTOK   596
                          5160000675 +            SA6    FW=TCOM     SAVE (B2) = FWA OF *TOKCOM*                 COMCTOK   597
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   114
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                                                                                                 COMCTOK   598
           702  5112000000                        SA1    B2+TC.FWA                                               COMCTOK   599
                          0301000717 +            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
           703  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
           704  0603400704 +                      LE     B3,B0,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   626
                          0743400704 +            GT     B3,B4,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   627
                                                                                                                 COMCTOK   628
           705  7130000006                        SX3    CHAR        (X3) = BIT WIDTH OF 1 CHARACTER             COMCTOK   629
                          7140000102              SX4    60D+CHAR                                                COMCTOK   630
           706  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
           707  5162000005                        SA6    B2+TC.SOA                                               COMCTOK   635
                          5172000010              SA7    B2+TC.SOB                                               COMCTOK   636
                                                                                                                 COMCTOK   637
           710  7160000074                        SX6    60D                                                     COMCTOK   638
                          53510                   SA5    X1          (X5) = 1ST WORD TO ENTOKEN                  COMCTOK   639
                               37762              IX7    X6-X2                                                   COMCTOK   640
           711  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
           712  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
           713  0603400713 +                      LE     B3,B0,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   652
                          0743400713 +            GT     B3,B4,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   653
                                                                                                                 COMCTOK   654
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   115
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
           714  66320                             SB3    B2          SAVE (B2)                                   COMCTOK   655
                     0100001047 +                 RJ     CCD         COMPUTE CHARACTER DIFFERENCE                COMCTOK   656
           715  0337400715 +                      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
           716  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
           717                           TOK2     BSS    0                                                       COMCTOK   665
           717  0100001056 +                      RJ     RER         RESTORE ENTOKENING REGISTERS                COMCTOK   666
           720  5122000012                        SA2    B2+TC.TBA                                               COMCTOK   667
                          5132000014              SA3    B2+TC.RSF                                               COMCTOK   668
           721  76600                             =X6    "O."BOS                                                 COMCTOK   669
                     0313000736 +                 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
           722                           TOK=MN   BSS    0           ** MAIN LOOP NODE **                        COMCTOK   690
           722  43066                             MX0    -CHAR                                                   COMCTOK   691
                     0324000731 +                 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
           723  5120000676 +                      SA2    TF=SQZ                                                  COMCTOK   694
                          43600                   MX6    0           CLEAR PACKING REGISTER                      COMCTOK   695
           724  0312000727 +                      NZ     X2,TOK3     IF BU/BU WITH BLANK SQUEEZE                 COMCTOK   696
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK   697
           725  0100001723 +                      RJ     =XBUN       BURST/BUILD WITH NO BLANK SQUEEZE           COMCTOK   698
           726  0707000731 +                      GT     B7,B0,TOK4  IF NO EOL ENCOUNTERED                       COMCTOK   699
                          0400001000 +            EQ     TOK=EOL                                                 COMCTOK   700
                                                                                                                 COMCTOK   701
           727  6130000066               TOK3     SB3    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK   702
                          0100001701 +            RJ     =XBUB       BURST/BUILD WITH BLANK SQUEEZE              COMCTOK   703
           730  0707000731 +                      GT     B7,B0,TOK4  IF NO EOL ENCOUNTERED                       COMCTOK   704
                          0400001000 +            EQ     TOK=EOL                                                 COMCTOK   705
                                                                                                                 COMCTOK   706
           731  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/05. 19.59.06.      PAGE   116
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=MN              COMCTOK 
  
                                                                                                                 COMCTOK   709
                                         .T       IFNE   TEST,0                                                  COMCTOK   710
                          0100001065 +            RJ     SER         SAVE ENTOKENING REGISTERS                   COMCTOK   711
           732  5110000677 +                      SA1    TF=IDP                                                  COMCTOK   712
                          0301000735 +            ZR     X1,TOK5     IF NO IDP INTERFACE SELECTED                COMCTOK   713
                                                                                                                 COMCTOK   714
           733  6120000000 X                      SB2    =YTOK=IDP                                               COMCTOK   715
                          0720000735 +            MI     B2,TOK5     IF USER DID NOT PROVIDE *TOK=IDP*           COMCTOK   716
           734  0100000000 X                      RJ     =YTOK=IDP   *TOK* INTERACTIVE DEBUG INTERFACE           COMCTOK   717
                                                                                                                 COMCTOK   718
           735                           TOK5     BSS    0                                                       COMCTOK   719
                                         .T       ENDIF                                                          COMCTOK   720
                                                                                                                 COMCTOK   721
                                                  LX2    0-TG.TOFUP                                              COMCTOK   722
                                   0              ERRNZ  TG.TOFUL-18                                             COMCTOK   723
           735  63220                             SB2    X2          (B2) = TOFU ADDR FOR THIS INSTRUCTION       COMCTOK   724
                     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
           736                           TOK=RS   BSS    0                                                       COMCTOK   748
                                                                                                                 COMCTOK   749
                                        *         SET UP (A6).  NEXT ADDR TO STORE TOKEN IS AT (A6)+1.           COMCTOK   750
                                                                                                                 COMCTOK   751
           736  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
           737  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/05. 19.59.06.      PAGE   117
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=RS              COMCTOK 
  
           740  6242777776                        SB4    X2-1        (B4) = TOFU RESTART ADDR                    COMCTOK   763
                          0301000742 +            ZR     X1,TOK5A    IF NO *ON RESTART* PROCESSING               COMCTOK   764
           741  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
           742  0244000000               TOK5A    JP     B4+         BANG...                                     COMCTOK   768
  
  
  
  
                                        **        HERE IF *CALT XX*.                                             COMCTOK   770
                                                                                                                 COMCTOK   771
                                                                                                                 COMCTOK   772
           743  0400000722 +             TOK=CAL  TOFU                                                           COMCTOK   773
           744  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/05. 19.59.06.      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
           745  0400000722 +             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/05. 19.59.06.      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
           746  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
           747  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
           750  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
           751  64560                             SB5    A6          INITIALIZE (B5) = ADDR OF PRECEDING TOKEN   COMCTOK   911
                     0326000752 +                 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
           752  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
           753  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/05. 19.59.06.      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
           754  0440000765 +             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
           755  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
           756  0523000754 +                      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
           757  20144                             LX1    59-TL.MAFP+TL.TRUP-0                                    COMCTOK   971
                     0321000762 +                 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
           760  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/05. 19.59.06.      PAGE   121
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             COMCTOK 
  
           761  0317000754 +                      NZ     X7,TOK7     IF NO MATCH                                 COMCTOK   982
                                                                                                                 COMCTOK   983
           762  66430                    TOK8     SB4    B3                                                      COMCTOK   984
                     67551                        SB5    B5-B1                                                   COMCTOK   985
                          0530000754 +            NZ     B3,TOK7     IF NEED TO TRY NEXT *TRUE* TLINK ENTRY      COMCTOK   986
           763  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
           764  20122                             LX1    0-TK.LNKP+TK.PADP-0                                     COMCTOK   991
                     63410                        =B4    FW.TOK+X1                                               COMCTOK   992
                          0400000766 +            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
           765  6056000000               TOK8A    SB5    A6+         RESET (B5) = ADDR WE ORIGINALLY BEGAN AT    COMCTOK   999
                                                                                                                 COMCTOK  1000
           766  6230000000               TOK9     SB3    FW.TOK+X0   (B3) = ADDR OF SPECIAL PROCESSOR, ELSE      COMCTOK  1001
                                        *                                   .ZR. IF NONE                         COMCTOK  1002
                          0430000771 +            ZR     B3,TOK10    IF NO SPECIAL PROCESSOR                     COMCTOK  1003
           767  0730000770 +                      MI     B3,TOK9A    IF MERELY XFERRING WITHIN *TOM*             COMCTOK  1004
                          0233000000              JP     B3+                                                     COMCTOK  1005
                                                                                                                 COMCTOK  1006
           770  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
           771                           TOK=COS  BSS    0           ** RETURN WITH TOKEN STORE **               COMCTOK  1012
           771  5165000001               TOK10    SA6    B5+1                                                    COMCTOK  1013
                                                                                                                 COMCTOK  1014
           772                           TOK=CON  BSS    0           ** RETURN WITH NO TOKEN STORE **            COMCTOK  1015
           772  0540000754 +             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
           773  0400000722 +                      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
           774  0400000722 +             TOK=ELS  TOFU                                                           COMCTOK  1025
           775  0400000722 +                      EQ     TOK=MN                                                  COMCTOK  1026
                                         .T       ENDIF                                                          COMCTOK  1027
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
           776  0400000722 +             TOK=ENT  TOFU                                                           COMCTOK  1034
           777  0400000722 +                      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
          1000                           TOK=EOL  BSS    0           ** ENTRY **                                 COMCTOK  1046
          1000  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
          1001  0100001065 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   COMCTOK  1050
          1002  5112000016                        SA1    B2+TC.EOL                                               COMCTOK  1051
                          0301000700 +            ZR     X1,EXIT.    IF NO SPECIAL PROCESSING                    COMCTOK  1052
          1003  63210                             SB2    X1                                                      COMCTOK  1053
                     0222000000                   JP     B2          DO WHAT YOU WILL...                         COMCTOK  1054
  
  
  
  
                                        **        HERE IF *GENTOK TOT*.                                          COMCTOK  1056
                                                                                                                 COMCTOK  1057
                                                                                                                 COMCTOK  1058
          1004  0400000722 +             TOK=GEN  TOFU                                                           COMCTOK  1059
          1005  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
          1006  0400000722 +                      EQ     TOK=MN                                                  COMCTOK  1065
  
  
  
  
                                        **        HERE IF *GROUP,...,NSQZ*.                                      COMCTOK  1067
                                                                                                                 COMCTOK  1068
          1007  0400001014 +             TOK=GN   TOFU   TOK13                                                   COMCTOK  1069
          1010  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
          1011  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/05. 19.59.06.      PAGE   123
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=GN              COMCTOK 
  
                               13777              BX7    X7-X7                                                   COMCTOK  1077
          1012  5170000676 +                      SA7    TF=SQZ      SET TO *BU/BU WITH NO BLANK SQZ*            COMCTOK  1078
                          0100001723 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    COMCTOK  1079
          1013  0707000722 +                      GT     B7,B0,TOK=MN IF DID NOT ENCOUNTER END-OF-LINE           COMCTOK  1080
                          0400001000 +            EQ     TOK=EOL                                                 COMCTOK  1081
                                                                                                                 COMCTOK  1082
                                        **        HERE FOR *GROUP,...,NSQZ* RESTART.                             COMCTOK  1083
                                                                                                                 COMCTOK  1084
          1014  6120000066               TOK13    SB2    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK  1085
                          0432001010 +            EQ     B3,B2,TOK=GN IF LAST TOKEN GENERATED WAS FULL           COMCTOK  1086
          1015  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
          1016  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1092
                     10677                        BX6    X7          RESTORE (X6) = PARTIALLY FILLED TOKEN       COMCTOK  1093
                          0400001011 +            EQ     TOK12                                                   COMCTOK  1094
  
  
  
  
                                        **        HERE IF *GOTO XX*.                                             COMCTOK  1096
                                                                                                                 COMCTOK  1097
          1017  0400000722 +             TOK=GO   TOFU                                                           COMCTOK  1098
          1020  20252                             LX2    0-TG.GOTP+TG.TOFUP-0                                    COMCTOK  1099
                                   0              ERRNZ  TG.GOTL-18                                              COMCTOK  1100
                     5202000000                   SA0    FW.TOK+X2                                               COMCTOK  1101
          1021  0400000722 +                      EQ     TOK=MN                                                  COMCTOK  1102
  
  
  
  
                                        **        HERE IF *GROUP,...,SQZ*.                                       COMCTOK  1104
                                                                                                                 COMCTOK  1105
          1022  0400001027 +             TOK=GS   TOFU   TOK15                                                   COMCTOK  1106
          1023  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
          1024  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
          1025  5170000676 +                      SA7    TF=SQZ      SET TO *BU/BU WITH BLANK SQZ*               COMCTOK  1116
                          0100001701 +            RJ     BUB         BURST/BUILD WITH BLANK SQUEEZE              COMCTOK  1117
          1026  0707000722 +                      GT     B7,B0,TOK=MN  IF DID NOT ENCOUNTER END-OF-LINE          COMCTOK  1118
                          0400001000 +            EQ     TOK=EOL                                                 COMCTOK  1119
                                                                                                                 COMCTOK  1120
                                        *         HERE FOR *GROUP,...,SQZ* RESTART.                              COMCTOK  1121
                                                                                                                 COMCTOK  1122
          1027  6120000066               TOK15    SB2    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK  1123
                          0432001023 +            EQ     B3,B2,TOK=GS IF LAST TOKEN GENERATED WAS FULL           COMCTOK  1124
          1030  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/05. 19.59.06.      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
          1031  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1130
                     10677                        BX6    X7          RESTORE (X6) = PARTIALLY FILLED TOKEN       COMCTOK  1131
                          0400001024 +            EQ     TOK14                                                   COMCTOK  1132
  
  
  
  
                                        **        HERE IF *IFT (...)*.                                           COMCTOK  1134
                                                                                                                 COMCTOK  1135
          1032  0400000722 +             TOK=IFT  TOFU                                                           COMCTOK  1136
          1033  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
          1034  20252                             LX2    0-TG.FALP+TG.MXAP-0                                     COMCTOK  1141
                     22721                        LX7    X1,B2                                                   COMCTOK  1142
                          0337000722 +            MI     X7,TOK=MN   IF CHARACTER IS IN THIS GROUP (TRUE)...     COMCTOK  1143
                                   0              ERRNZ  TG.FALL-18                                              COMCTOK  1144
          1035  5202000000                        SA0    FW.TOK+X2   (A0) = ADDR OF *FALSE* BINARY TOGEL INST    COMCTOK  1145
                          0400000722 +            EQ     TOK=MN                                                  COMCTOK  1146
  
  
  
  
                                        **        HERE IF *ON I,V*.                                              COMCTOK  1148
                                                                                                                 COMCTOK  1149
                                                                                                                 COMCTOK  1150
          1036  0400000722 +             TOK=ON   TOFU                                                           COMCTOK  1151
          1037  5110000675 +                      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
          1040  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
          1041  0400000722 +                      EQ     TOK=MN                                                  COMCTOK  1160
  
  
  
  
                                        **        HERE IF *XEQ P*.                                               COMCTOK  1162
                                                                                                                 COMCTOK  1163
          1042  0400000722 +             TOK=XEQ  TOFU                                                           COMCTOK  1164
          1043  20252                             LX2    0-TG.XADP+TG.TOFUP-0                                    COMCTOK  1165
                                   0              ERRNZ  TG.XADL-18                                              COMCTOK  1166
                     5110001046 +                 SA1    XEQA        (X1) = *GOTO* SKELETON                      COMCTOK  1167
                               74700              SX7    A0          (X7) = RETURN ADDR                          COMCTOK  1168
          1044  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
          1045  0400000722 +                      EQ     TOK=MN                                                  COMCTOK  1173
                                                                                                                 COMCTOK  1174
                                                                                                                 COMCTOK  1175
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   125
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=XEQ             COMCTOK 
  
          1046  00000000000000001020 +   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/05. 19.59.06.      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
          1047  0400401047 +             CCD      SUBR               ** ENTRY/EXIT **                            COMCTOK  1237
          1050  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
          1051  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
          1052  27707                             PX7    X7                                                      COMCTOK  1244
                     27202                        PX2    X2                                                      COMCTOK  1245
                          7140000012              SX4    60D/CHAR    (X4) = NR OF CHARS IN A WORD                COMCTOK  1246
          1053  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
          1054  26322                             UX3    X2,B2                                                   COMCTOK  1251
                     22223                        LX2    X3,B2                                                   COMCTOK  1252
                          36742                   IX7    X4+X2                                                   COMCTOK  1253
          1055  0400001047 +                      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
          1056  0400401056 +             RER      SUBR               ** ENTRY/EXIT **                            COMCTOK  1275
          1057  5110000675 +                      SA1    FW=TCOM                                                 COMCTOK  1276
                          63210                   SB2    X1          (B2) = FWA OF *TOKCOM*                      COMCTOK  1277
          1060  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
          1061  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/05. 19.59.06.      PAGE   127
        COMCTOK 2.0 - TOKEN GENERATOR.                                RER                 COMCTOK 
  
                               10533              BX5    X3                                                      COMCTOK  1284
          1062  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
          1063  5042777775                        =A4    A2+TC.SOC-TC.TBB                                        COMCTOK  1289
                          63610                   SB6    X1                                                      COMCTOK  1290
                               63320              SB3    X2                                                      COMCTOK  1291
          1064  0400001056 +                      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
          1065  0400401065 +             SER      SUBR               ** ENTRY/EXIT **                            COMCTOK  1310
          1066  5110000675 +                      SA1    FW=TCOM                                                 COMCTOK  1311
                          63210                   SB2    X1          (B2) = FWA OF *TOKCOM*                      COMCTOK  1312
                               75700              SX7    A0-B0                                                   COMCTOK  1313
          1067  5172000004                        =A7    B2+TC.P                                                 COMCTOK  1314
                          75750                   SX7    A5-B0                                                   COMCTOK  1315
                               54771              =A7    A7+TC.SOA-TC.P                                          COMCTOK  1316
          1070  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
          1071  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
          1072  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
          1073  0400001065 +                      EQ     EXIT.                                                   COMCTOK  1329
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   128
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMCTOK  1331
                                                  QUAL   *                                                       COMCTOK  1332
                                 700 +   TOK      =      /COMCTOK/TOK                                            COMCTOK  1333
                                1047 +   CCD      =      /COMCTOK/CCD                                            COMCTOK  1334
                                1056 +   RER      =      /COMCTOK/RER                                            COMCTOK  1335
                                1065 +   SER      =      /COMCTOK/SER                                            COMCTOK  1336
                                 676 +   TF=SQZ   =      /COMCTOK/TF=SQZ                                         COMCTOK  1337
                                                                                                                 COMCTOK  1338
                                                  IFNE   TEST,0,1                                                COMCTOK  1339
                                 677 +   TF=IDP   =      /COMCTOK/TF=IDP                                         COMCTOK  1340
                                 722 +   TOK=MN   =      /COMCTOK/TOK=MN                                         COMCTOK  1341
                                 771 +   TOK=COS  =      /COMCTOK/TOK=COS                                        COMCTOK  1342
                                 772 +   TOK=CON  =      /COMCTOK/TOK=CON                                        COMCTOK  1343
                                         QUAL$    ENDIF                                                          COMCTOK  1344
  
  
  
  
                                         COMCTOK  ENDX                                                           COMCTOK  1346
  
  
  
  
                                1000 +   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/05. 19.59.06.      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
          1074                           TOM=DUM  BSS    0                                                       LEX      3527
          1074  00000000001074 +                  GOTO   TOM=DUM                                                 LEX      3528
                                                                                                                 LEX      3529
                                         NORMAL   TOGEL                                                          LEX      3530
          1075                           TOM=BOS  BSS    0           ** BEGINNING OF STMT **                     LEX      3531
          1075  00000000000016001037 +            ON EOL,0                                                       LEX      3532
          1076  00000000000017001037 +            ON RESTART,0                                                   LEX      3533
                                                                                                                 LEX      3534
                                                                                                                 LEX      3535
          1077                           TOM=NXT  BSS    0           ** MAIN LOOP NODE **                        LEX      3536
          1077  00001106 +               CONS     IFT (0..9)                                                     LEX      3537
          1100  00000005002354 +                    GROUP (0..9),CONS,SQZ                                        LEX      3538
          1101  00001105 +               HLR        IFT (H)                                                      LEX      3539
          1102  00000000001614 +                      CALT TOK=NOH   IF 'CHARACTER *', NO *HLR*...               LEX      3540
          1103  00000000001360 +                      XEQ HLR          PROCESS *HLR* STRING                      LEX      3541
          1104  10142200000000000777 +   HLR        ENDT                                                         LEX      3542
          1105  03171623000000000777 +   CONS     ENDT                                                           LEX      3543
                                                                                                                 LEX      3544
          1106                           TOM=VAR  BSS    0                                                       LEX      3545
          1106  00001111 +               VAR      IFT (A..Z)                                                     LEX      3546
          1107  00000011002357 +                    GROUP (A..Z0..9),VAR,SQZ                                     LEX      3547
          1110  26012200000000000777 +   VAR      ENDT                                                           LEX      3548
                                                                                                                 LEX      3549
                                         .IP      IFEQ   IP.CSET,IP.C63                                          LEX      3550
                                                  CASEOF (+..;)                                                  LEX      3551
                                         .IP      ELSE                                                           LEX      3552
          1111  00450033001303 +                  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/05. 19.59.06.      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/05. 19.59.06.      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
          1112  00000000001077 +                  GOTO TOM=NXT                                                   LEX      3613
  
  
  
  
                                        **        TOM=DQT - HERE IF " STRING ENCOUNTERED.                        LEX      3615
                                                                                                                 LEX      3616
                                                                                                                 LEX      3617
          1113                           TOM=DQT  BSS    0           ** ENTRY **                                 LEX      3618
          1113  00000000001340 +                  XEQ    DQT         PROCESS DOUBLE QUOTE STRING                 LEX      3619
          1114  00000000001077 +                  GOTO TOM=NXT                                                   LEX      3620
  
  
  
  
                                        **        TOM=HEX - HERE IF X" ENCOUNTERED.                              LEX      3622
                                                                                                                 LEX      3623
                                                                                                                 LEX      3624
          1115                           TOM=HEX  BSS    0           ** ENTRY **                                 LEX      3625
          1115  00000007002360 +                  GROUP (-"),HEX,SQZ                                             LEX      3626
          1116  00000000001566 +                  CALT TOK=EOO       PROCESS END OF OCTAL/HEX CONSTANT           LEX      3627
          1117  00000000001077 +                  GOTO TOM=NXT       CONTINUE...                                 LEX      3628
  
  
  
  
                                        **        TOM=OCT - HERE IF O" ENCOUNTERED.                              LEX      3630
                                                                                                                 LEX      3631
                                                                                                                 LEX      3632
          1120                           TOM=OCT  BSS    0           ** ENTRY **                                 LEX      3633
          1120  00000006002360 +                  GROUP (-"),OCT,SQZ                                             LEX      3634
          1121  00000000001566 +                  CALT TOK=EOO       PROCESS END OF OCTAL/HEX CONSTANT           LEX      3635
          1122  00000000001077 +                  GOTO TOM=NXT       CONTINUE...                                 LEX      3636
  
  
  
  
                                        **        TOM=SQT - HERE IF ' STRING ENCOUNTERED.                        LEX      3638
                                                                                                                 LEX      3639
                                                                                                                 LEX      3640
          1123                           TOM=SQT  BSS    0           ** ENTRY **                                 LEX      3641
          1123  00000000001374 +                  XEQ    SQT         PROCESS SINGLE QUOTE STRING                 LEX      3642
          1124  00000000001077 +                  GOTO   TOM=NXT                                                 LEX      3643
                                                                                                                 LEX      3644
          1125                           NORMAL   TOGEL                                                          LEX      3645
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1340  00000000401340 +         DQT      PROC               ** ENTRY/EXIT **                            LEX      3672
          1341  00001631 +                        ON EOL,TOK=QOL                                                 LEX      3673
          1342  00001634 +                        ON RESTART,TOK=REQ                                             LEX      3674
          1343  00000000001516 +                  CALT TOK=BOQ      PROCESS BEGINNING OF QUOTE STRING            LEX      3675
          1344  00000000002360 +         TOM=QOQ  GROUP (-"),BOS,NSQZ                                            LEX      3676
          1345  00000000001606 +                  CALT TOK=ITQ      IGNORE TERMINATING QUOTE                     LEX      3677
          1346  00001351 +                        IFT (")                                                        LEX      3678
          1347  00000000001633 +                    CALT TOK=QOQ    PROCESS 2 QUOTES AS 1 QUOTE                  LEX      3679
                                        *           ** RETURNS TO TOM=QOQ **                                     LEX      3680
          1350  00000000000000000777 +            ENDT                                                           LEX      3681
          1351  00000000001556 +                  CALT TOK=EOQ      PROCESS END OF QUOTE STRING                  LEX      3682
          1352  00000000000016001037 +            ON EOL,0          RESTORE NORMAL EOL STATUS                    LEX      3683
          1353  00000000000017001037 +            ON RESTART,0      RESTORE NORMAL RESTART STATUS                LEX      3684
          1354  00001357 +                        IFT (/55)                                                      LEX      3685
          1355  00000000002363 +                    GROUP (),BOS,SQZ                                             LEX      3686
          1356  00000000000000000777 +            ENDT                                                           LEX      3687
          1357  00000000001340 +                  GOTO EXIT.                                                     LEX      3688
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1360  00000000401360 +         HLR      PROC               ** ENTRY/EXIT **                            LEX      3719
          1361  00001577 +                        ON EOL,TOK=HOL                                                 LEX      3720
          1362  00001634 +                        ON RESTART,TOK=REH                                             LEX      3721
          1363  00000000001422 +                  CALT TOK=BOH       PROCESS BEGINNING OF *HLR* STRING           LEX      3722
          1364  00000000002364 +                  GROUP (..),BOS,NSQZ                                            LEX      3723
          1365  00000000001556 +                  CALT TOK=EOH       PROCESS END OF *HLR* STRING                 LEX      3724
          1366  00000000000016001037 +            ON EOL,0           RESTORE NORMAL EOL STATUS                   LEX      3725
          1367  00000000000017001037 +            ON RESTART,0       RESTORE NORMAL RESTART STATUS               LEX      3726
          1370  00001373 +                        IFT (/55)                                                      LEX      3727
          1371  00000000002363 +                    GROUP (),BOS,SQZ                                             LEX      3728
          1372  00000000000000000777 +            ENDT                                                           LEX      3729
          1373  00000000001360 +                  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/05. 19.59.06.      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
          1374  00000000401374 +         SQT      PROC               ** ENTRY/EXIT **                            LEX      3755
          1375  00001631 +                        ON EOL,TOK=QOL                                                 LEX      3756
          1376  00001634 +                        ON RESTART,TOK=REQ                                             LEX      3757
          1377  00000000001414 +                  CALT TOK=BOC      PROCESS BEGINNING OF QUOTE STRING            LEX      3758
          1400  00000000002365 +         TOM=QOC  GROUP (-'),BOS,NSQZ                                            LEX      3759
          1401  00000000001606 +                  CALT TOK=ITQ      IGNORE TERMINATING QUOTE                     LEX      3760
          1402  00001405 +                        IFT (')                                                        LEX      3761
          1403  00000000001617 +                    CALT TOK=QOC    PROCESS 2 QUOTES AS 1 QUOTE                  LEX      3762
                                        *           ** RETURNS TO TOM=QOC **                                     LEX      3763
          1404  00000000000000000777 +            ENDT                                                           LEX      3764
          1405  00000000001546 +                  CALT TOK=EOC      PROCESS END OF QUOTE STRING                  LEX      3765
          1406  00000000000016001037 +            ON EOL,0          RESTORE NORMAL EOL STATUS                    LEX      3766
          1407  00000000000017001037 +            ON RESTART,0      RESTORE NORMAL RESTART STATUS                LEX      3767
          1410  00001413 +                        IFT (/55)                                                      LEX      3768
          1411  00000000002363 +                    GROUP (),BOS,SQZ                                             LEX      3769
          1412  00000000000000000777 +            ENDT                                                           LEX      3770
          1413  00000000001374 +                  GOTO EXIT.                                                     LEX      3771
  
  
  
  
                                         PROCS    TOGEL                                                          LEX      3773
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1414                           TOK=BOC  BSS    0           ** ENTRY **                                 LEX      3819
          1414  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
          1415  5170000002 +                      SA7    CH=TAD                                                  LEX      3823
                          7170000005              SX7    CT.SQT                                                  LEX      3824
          1416  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
          1417  7170000000                        SX7    0                                                       LEX      3828
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   136
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOC 
  
                          5170000676 +            SA7    TF=SQZ      SET TO *NO BLANK SQZ*                       LEX      3829
          1420  5110000004 +                      SA1    LEXFLG                                                  LEX      3830
                          43201                   MX2    1                                                       LEX      3831
                               20260              LX2    LF.TDEP-59                                              FC5A110    32
          1421  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    33
                     54710                        SA7    A1                                                      LEX      3834
                          0400000722 +            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
          1422                           TOK=BOH  BSS    0           ** ENTRY **                                 LEX      3862
          1422  0100001065 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   LEX      3863
          1423  7170000001                        SX7    CT.H                                                    LEX      3864
                          5170000003 +            SA7    CH=TYPE                                                 LEX      3865
          1424  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
          1425  0100000000 X                      CALL   DXB         CONVERT DECIMAL DPC TO BINARY               LEX      3870
                                                  IFEQ   TEST,ON,1                                               LEX      3871
          1426  0314401426 +                      NZ     X4,"BLOWUP" IF ERROR DURING CONVERSION                  LEX      3872
                          63560                   SB5    X6          (B5) = CHARACTER COUNT                      LEX      3873
                               76210              =X2    O.HOLL                                                  LEX      3874
          1427  20633                             LX6    TB.CLCNP-0                                              LEX      3875
                     12662                        BX6    X6+X2       MERGE *CLCN* AND *TOT*                      LEX      3876
                          74760                   SX7    A6                                                      LEX      3877
                               54660              SA6    A6          OVERWRITE *O.CONS* TOKEN                    LEX      3878
          1430  5170000002 +                      SA7    CH=TAD      SAVE ADDR OF *O.HOLL* TOKEN                 LEX      3879
                          0100001056 +            RJ     RER         RESTORE ENTOKENING REGISTERS                LEX      3880
          1431  43473                             MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      3881
                     13777                        BX7    X7-X7                                                   LEX      3882
                          5170000676 +            SA7    TF=SQZ      INDICATE *NO BLANK SQUEEZE*                 LEX      3883
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   137
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOH 
  
          1432  5110000004 +                      SA1    LEXFLG                                                  FC5A110    34
                          43201                   MX2    1                                                       FC5A110    35
                               20260              LX2    LF.TDEP-59                                              FC5A110    36
          1433  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    37
                     0400000722 +                 EQ     TOK=MN                                                  LEX      3884
  
  
  
  
                                        **        TOK=BBL - BACKSPACE FOLLOWED BY L"STRING"                      FC50763    16
  
  
          1434                           TOK=BBL  BSS    0            ** ENTRY **                                FC50763    18
          1434  0100001065 +                      RJ     SER          SAVE ENTOKENING REGISTERS                  FC50763    19
          1435  5140001441 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    20
                                                                                                                 FC50763    21
          1436  10644                    BBL1     BX6    X4                                                      FC50763    22
                     54660                        SA6    A6           OVERWRITE VAR TOKEN                        FC50763    23
                          54661                   =A6    A6+1         BUMP TOKEN POINTER                         FC50763    24
          1437  0100001056 +                      RJ     RER          RESTORE ENTOKENING REGISTERS               FC50763    25
          1440  0400001475 +                      EQ     TOK=BOL                                                 FC50763    26
                                                                                                                 FC50763    27
          1441  03050000000000000011     BBLA     VFD    54/2LCE,6/O.VAR                                         FC50763    28
  
  
  
  
                                        **        TOK=BRL - REWIND FOLLOWED BY L"STRING"                         FC50763    30
  
  
          1442                           TOK=BRL  BSS    0            ** ENTRY **                                FC50763    32
          1442  0100001065 +                      RJ     SER          SAVE ENTOKENING REGISTERS                  FC50763    33
          1443  5140001444 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763    34
                          0400001436 +            EQ     BBL1                                                    FC50763    35
                                                                                                                 FC50763    36
          1444  22052711160400000011     BRLA     VFD    54/6LREWIND,6/O.VAR                                     FC50763    37
  
  
  
  
                                        **        TOK=BBR - BACKSPACE FOLLOWED BY R"STRING"                      FC50763    39
  
  
          1445                           TOK=BBR  BSS    0            ** ENTRY **                                FC50763    41
          1445  0100001065 +                      RJ     SER          SAVE REGISTERS                             FC50763    42
          1446  5140001441 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    43
                                                                                                                 FC50763    44
          1447  10644                    BBR1     BX6    X4                                                      FC50763    45
                     54660                        SA6    A6           OVERWRITE ILL TOKEN                        FC50763    46
                          54661                   =A6    A6+1         BUMP TOKEN POINTER                         FC50763    47
          1450  0100001056 +                      RJ     RER          RESTORE REGISTERS                          FC50763    48
          1451  0400001500 +                      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/05. 19.59.06.      PAGE   138
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.
  
          1452                           TOK=BRR  BSS    0            ** ENTRY **                                FC50763    53
          1452  0100001065 +                      RJ     SER          SAVE REGISTERS                             FC50763    54
          1453  5140001444 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763    55
                          0400001447 +            EQ     BBR1                                                    FC50763    56
  
  
  
  
                                        **        TOK=BBO - BACKSPACE FOLLOWED BY O"STRING"                      FC50763    58
  
  
          1454                           TOK=BBO  BSS    0            ** ENTRY **                                FC50763    60
          1454  0100001065 +                      RJ     SER          SAVE REGISTERS                             FC50763    61
          1455  5140001441 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    62
                                                                                                                 FC50763    63
          1456  10644                    BBO1     BX6    X4                                                      FC50763    64
                     54660                        SA6    A6           STORE REPLACEMENT TOKEN                    FC50763    65
                          54661                   SA6    A6+B1        ADVANCE TOKEN PTR                          FC50763    66
          1457  0100001056 +                      RJ     RER          RESTORE REGISTERS                          FC50763    67
                                                                                                                 FC50763    68
          1460  5100001120 +                      SA0    TOM=OCT      RESET PSEUDO P-REGISTER                    FC50763    69
                          7170000006              SX7    CT.OCT                                                  FC50763    70
          1461  5170000003 +                      SA7    CH=TYPE                                                 FC50763    71
                                                                                                                 FC50763    72
          1462  5016777776               BBO2     SA1    A6-1                                                    FC50763    73
                          0400001511 +            EQ     BOO3         SKIP CHECK FOR VARIABLE TOKEN              FC50763    74
                                                                                                                 FC50763    75
  
  
  
  
                                        *         TOK=BRO - REWIND FOLLOWED BY O"STRING"                         FC50763    77
  
  
          1463                           TOK=BRO  BSS    0            ** ENTRY **                                FC50763    79
          1463  0100001065 +                      RJ     SER                                                     FC50763    80
          1464  5140001444 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763    81
                          0400001456 +            EQ     BBO1                                                    FC50763    82
  
  
  
  
                                        *         TOK=BBZ - BACKSPACE FOLLOWED BY Z"STRING"                      FC50763    84
  
  
          1465                           TOK=BBZ  BSS    0            ** ENTRY **                                FC50763    86
          1465  0100001065 +                      RJ     SER                                                     FC50763    87
          1466  5140001441 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    88
                                                                                                                 FC50763    89
          1467  10644                    BBZ1     BX6    X4                                                      FC50763    90
                     54660                        SA6    A6           STORE REPLACEMENT TOKEN                    FC50763    91
                          54661                   SA6    A6+B1        ADVANCE TOKEN PTR                          FC50763    92
          1470  0100001056 +                      RJ     RER                                                     FC50763    93
                                                                                                                 FC50763    94
          1471  5100001115 +                      SA0    TOM=HEX      RESET PSEUDO P-REGISTER                    FC50763    95
                          7170000007              SX7    CT.HEX                                                  FC50763    96
          1472  5170000003 +                      SA7    CH=TYPE                                                 FC50763    97
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   139
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.
  
                          0400001462 +            EQ     BBO2                                                    FC50763    98
                                                                                                                 FC50763    99
  
  
  
                                        *         TOK=BRZ - REWIND FOLLOWED BY Z"STRING"                         FC50763   101
  
  
          1473                           TOK=BRZ  BSS    0            ** ENTRY **                                FC50763   103
          1473  0100001065 +                      RJ     SER                                                     FC50763   104
          1474  5140001444 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763   105
                          0400001467 +            EQ     BBZ1                                                    FC50763   106
                                        **        TOK=BOL - BEGINNING OF L"STRING"                               LEX      3886
                                                                                                                 LEX      3887
                                                                                                                 LEX      3888
          1475                           TOK=BOL  BSS    0           ** ENTRY **                                 LEX      3889
          1475  5100001113 +                      SA0    TOM=DQT                                                 LEX      3890
                          7170000002              SX7    CT.L                                                    LEX      3891
          1476  5170000003 +                      SA7    CH=TYPE                                                 LEX      3892
                          55161                   =A1    A6-1                                                    LEX      3893
                               10611              BX6    X1                                                      LEX      3894
          1477  54610                             SA6    A1                                                      LEX      3895
                     0400000722 +                 EQ     TOK=MN                                                  LEX      3896
  
  
  
  
                                        **        TOK=BOR - BEGINNING OF R"STRING"                               LEX      3898
                                                                                                                 LEX      3899
                                                                                                                 LEX      3900
          1500                           TOK=BOR  BSS    0           ** ENTRY **                                 LEX      3901
          1500  5100001113 +                      SA0    TOM=DQT                                                 LEX      3902
                          7170000003              SX7    CT.R                                                    LEX      3903
          1501  5170000003 +                      SA7    CH=TYPE                                                 LEX      3904
                          55161                   =A1    A6-1                                                    LEX      3905
                               10611              BX6    X1                                                      LEX      3906
          1502  54610                             SA6    A1                                                      LEX      3907
                     0400000722 +                 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/05. 19.59.06.      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
          1503                           TOK=BOO  BSS    0           ** ENTRY **                                 LEX      3964
          1503  5100001120 +                      SA0    TOM=OCT     RESET PSEUDO P REGISTER                     LEX      3965
                          7170000006              SX7    CT.OCT                                                  LEX      3966
          1504  5170000003 +                      SA7    CH=TYPE                                                 LEX      3967
          1505  5016777776               BOO2     SA1    A6-1                                                    LEX      3968
                          7271777766              SX7    X1-O.VAR                                                LEX      3969
          1506  0317001511 +                      NZ     X7,BOO3     IF NOT PRECEDED BY VAR TOKEN                FC50763   107
                          10611                   BX6    X1          SAVE X1                                     FC50763   108
          1507  5110001515 +                      SA1    BOOA        GET VAR'ENDFILE' TOKEN                      FC50763   109
                          13761                   BX7    X6-X1       COMPARE TOKENS                              FC50763   110
          1510  5016777776                        SA1    A6-1        RESTORE X1                                  FC50763   111
                          0317001544 +            NZ     X7,TOK=DQT  IF NOT *OCT/HEX* TOKEN, MUST BE STRING...   FC50763   112
                                                                                                                 FC50763   113
          1511  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
          1512  5170000002 +                      SA7    CH=TAD                                                  LEX      3974
                          5110000004 +            SA1    LEXFLG                                                  FC5A110    38
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   141
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOO 
  
          1513  43201                             MX2    1                                                       FC5A110    39
                     20260                        LX2    LF.TDEP-59                                              FC5A110    40
                          15712                   BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    41
          1514  0400000772 +                      EQ     TOK=CON     RETURN W/ NO STORE...                       LEX      3975
                                                                                                                 FC50763   115
          1515  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
          1516                           TOK=BOQ  BSS    0           ** ENTRY **                                 LEX      3997
          1516  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
          1517  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
          1520  7170000000                        SX7    0                                                       LEX      4004
                          5170000676 +            SA7    TF=SQZ      SET TO *NO BLANK SQZ*                       LEX      4005
          1521  5110000004 +                      SA1    LEXFLG                                                  LEX      4006
                          43201                   MX2    1                                                       LEX      4007
                               20260              LX2    LF.TDEP-59                                              FC5A110    42
          1522  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    43
                     54710                        SA7    A1                                                      LEX      4010
                          0400000722 +            EQ     TOK=MN                                                  LEX      4011
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1523                           TOK=BOX  BSS    0           ** ENTRY **                                 LEX      4019
          1523  5100001115 +                      SA0    TOM=HEX     RESET PSEUDO P REGISTER                     LEX      4020
                          7170000007              SX7    CT.HEX                                                  LEX      4021
          1524  5170000003 +                      SA7    CH=TYPE                                                 LEX      4022
                          0400001505 +            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
          1525                           TOK=CHR  BSS    0           ** ENTRY **                                 LEX      4037
          1525  5110000004 +                      SA1    LEXFLG                                                  LEX      4038
                          43201                   CLAS=  X2,LF,(CHR)                                             LEX      4039
          1526  12712                             BX7    X1+X2       SET TO *WE ARE IN 'CHARACTER' STMT*         LEX      4040
                     54710                        SA7    A1                                                      LEX      4041
                          7160000016              SX6    O.STAR                                                  LEX      4042
          1527  5066000001                        SA6    A6+1                                                    LEX      4043
                          0400000772 +            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
          1530                           TOK=CMA  BSS    0           ** ENTRY **                                 LEX      4051
          1530  5110000031 +                      SA1    TB=PLVL                                                 LEX      4052
                          7076000001              SX7    A6+1        (X7) = ADDR OF ZERO LEVEL COMMA             LEX      4053
          1531  0311000771 +                      NZ     X1,TOK=COS  IF NOT AT PAREN LEVEL ZERO                  LEX      4054
                          5170000000 X            SA7    ZLCOMMA                                                 LEX      4055
          1532  0400000771 +                      EQ     TOK=COS     CONTINUE...                                 LEX      4056
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1533                           TOK=COL  BSS    0           ** ENTRY **                                 LEX      4080
          1533  5110000026 +                      SA1    TB=LLP      (X1) = ADDR OF LAST (MOST RECENT) LP TOKEN  LEX      4081
                                                                                                                 LEX      4082
          1534  0301001540 +             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
          1535  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
          1536  0313001534 +                      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
          1537  54720                             SA7    A2                                                      LEX      4097
                                                                                                                 LEX      4098
                                        *         SET UP (ZLCOLON), IF APPROPRIATE.                              LEX      4099
                                                                                                                 LEX      4100
          1540  5110000000 X             COL3     SA1    ZLCOLON                                                 LEX      4101
                          5120000031 +            SA2    TB=PLVL                                                 LEX      4102
          1541  0311000771 +                      NZ     X1,TOK=COS  IF HAVE ALREADY SET *ZLCOLON*               LEX      4103
                          7232777776              SX3    X2-1                                                    LEX      4104
          1542  0313000771 +                      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
          1543  0400000771 +                      EQ     TOK=COS     CONTINUE...                                 LEX      4108
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1544                           TOK=DQT  BSS    0           ** ENTRY **                                 LEX      4148
          1544  7170000004                        SX7    CT.DQT                                                  LEX      4149
                          5170000003 +            SA7    CH=TYPE                                                 LEX      4150
          1545  5100001113 +                      SA0    TOM=DQT     RESET PSEUDO -P- REGISTER                   LEX      4151
                          0400000722 +            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/05. 19.59.06.      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
          1546                           TOK=EOC  BSS    0           ** ENTRY **                                 LEX      4189
          1546  0100001065 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   LEX      4190
          1547  5110000000 X                      SA1    T.STMT                                                  LEX      4191
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED (A5)                           LEX      4192
          1550  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
          1551  5170000000 +                      SA7    CH=CNT      SAVE (B5) = -(CHAR COUNT+1)                 LEX      4197
                          0100002023 +            RJ     EOC         END OF CHARACTER STRING PROCESSING          LEX      4198
          1552  5110000000 X                      SA1    T.STMT                                                  LEX      4199
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED *T.STMT* ORD                   LEX      4200
          1553  36712                             IX7    X1+X2       (X7) = CURRENT *T.STMT* ADDR                LEX      4201
                     54720                        SA7    A2                                                      LEX      4202
                          0100001056 +            RJ     RER         RESTORE ENTOKENING REGISTERS                LEX      4203
          1554  7170000001                        SX7    1                                                       LEX      4204
                          5170000676 +            SA7    TF=SQZ      SET TO *BLANK SQUEEZE, PLEASE*              LEX      4205
          1555  0400000722 +                      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/05. 19.59.06.      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
          1556                           TOK=EOH  BSS    0           ** ENTRY **                                 LEX      4239
          1556  0100001065 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   LEX      4240
          1557  5110000000 X                      SA1    T.STMT                                                  LEX      4241
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED (A5)                           LEX      4242
          1560  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
          1561  5170000000 +                      SA7    CH=CNT      SAVE (B5) = -(CHAR COUNT+1)                 LEX      4248
                          0100002047 +            RJ     EOH         END OF HOLLERITH STRING PROCESSING          LEX      4249
          1562  5110000000 X                      SA1    T.STMT                                                  LEX      4250
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED *T.STMT* ORD                   LEX      4251
          1563  36712                             IX7    X1+X2       (X7) = CURRENT *T.STMT* ADDR                LEX      4252
                     54720                        SA7    A2                                                      LEX      4253
                          0100001056 +            RJ     RER         RESTORE ENTOKENING REGISTERS                LEX      4254
          1564  7170000001                        SX7    1                                                       LEX      4255
                          5170000676 +            SA7    TF=SQZ      SET TO *BLANK SQUEEZE, PLEASE*              LEX      4256
          1565  0400000722 +                      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
          1566                           TOK=EOO  BSS    0           ** ENTRY **                                 LEX      4272
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   147
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=EOO 
  
          1566  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
          1567  0400000722 +                      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
                                1556 +   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/05. 19.59.06.      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
          1570                           TOK=EQL  BSS    0           ** ENTRY **                                 LEX      4342
          1570  5130000031 +                      SA3    TB=PLVL                                                 LEX      4343
                          5120000000 X            SA2    ZLEQUAL                                                 LEX      4344
          1571  5110000026 +                      SA1    TB=LLP      (X1) = ADDR OF LAST (MOST RECENT) LP TOKEN  LEX      4345
                          0313001573 +            NZ     X3,EQL2     IF NOT AT PAREN LEVEL ZERO                  LEX      4346
          1572  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
          1573  0301000771 +             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
          1574  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
          1575  0313001573 +                      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
          1576  12771                             BX7    X7+X1       SET TO *EQUAL AT THIS PAREN LEVEL*          LEX      4368
                     54720                        SA7    A2                                                      LEX      4369
                          0400000771 +            EQ     TOK=COS     CONTINUE WITH TOKEN GENERATION...           LEX      4370
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1577                           TOK=HOL  BSS    0           ** ENTRY **                                 LEX      4377
          1577  0605001602 +                      LE     B5,B0,HOL3  IF *HLR* STRING IS COMPLETE/FINISHED        LEX      4378
                          7160001577 +            SX6    TOK=HOL                                                 LEX      4379
          1600  7175000000                        SX7    B5+                                                     LEX      4380
                          5160000051 +            SA6    TC=EOL      RESET *ON EOL* ADDR TO *TOK=HOL*            LEX      4381
          1601  5170000000 +                      SA7    CH=CNT      SAVE (B5)                                   LEX      4382
                          0400000700 +            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
          1602  55161                    HOL3     SA1    A6-B1                                                   LEX      4408
                     10611                        BX6    X1                                                      LEX      4409
                          5061000000              SA6    A1+                                                     LEX      4410
          1603  7140000055                        SX4    1R                                                      LEX      4411
                          0400000722 +            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
          1604                           TOK=ILL  BSS    0                                                       LEX      4419
          1604  10144                             BX1    X4                                                      LEX      4420
                     20166                        LX1    -CHAR                                                   LEX      4421
                          12616                   BX6    X1+X6       MERGE OFFENDING CHARACTER                   LEX      4422
          1605  0400000771 +                      EQ     TOK=COS                                                 LEX      4423
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1606                           TOK=ITQ  BSS    0           ** ENTRY **                                 LEX      4436
          1606  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
          1607  5110000004 +                      SA1    LEXFLG                                                  LEX      4440
                          43201                   MX2    1                                                       LEX      4441
                               20260              LX2    LF.TDEP-59                                              FC5A110    44
          1610  12721                             BX7    X2+X1      INDICATE TERMINAL DELIMITER ENCOUNTERED      FC5A110    45
                     54710                        SA7    A1                                                      LEX      4444
                          0400000722 +            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
          1611                           TOK=LP   BSS    0           ** ENTRY **                                 LEX      4465
          1611  5110000031 +                      SA1    TB=PLVL                                                 LEX      4466
                          73711                   SX7    X1+B1                                                   LEX      4467
                               54710              SA7    A1                                                      LEX      4468
          1612  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
          1613  74761                             SX7    A6+B1       (X7) = ADDR IN *T.TB* OF THIS LEFT PAREN    LEX      4473
                     54710                        SA7    A1                                                      LEX      4474
                          0400000771 +            EQ     TOK=COS     CONTINUE...                                 LEX      4475
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1614                           TOK=NOH  BSS    0           ** ENTRY **                                 LEX      4489
          1614  5110000004 +                      SA1    LEXFLG                                                  LEX      4490
                          20111                   SBIT   X1,LF.CHRP                                              LEX      4491
          1615  0321000722 +                      PL     X1,TOK=MN   IF NOT IN 'CHARACTER *' STMT, OK...         LEX      4492
                          5100001106 +            SA0    TOM=VAR                                                 LEX      4493
          1616  0400000722 +                      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
          1617                           TOK=QOC  BSS    0           ** ENTRY **                                 LEX      4522
          1617  5100001401 +                      SA0    TOM=QOC+1   RESET *TOGEL* P REGISTER                    LEX      4523
          1620  5110000004 +             TOK=QOC1 SA1    LEXFLG                                                  FC5A110    46
                          43201                   MX2    1                                                       FC5A110    47
                               20260              LX2    LF.TDEP-59                                              FC5A110    48
          1621  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
          1622  54260                             SA2    A6          (X2) = CURRENT WORD OF '' STRING            LEX      4525
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1623  63310                             SB3    X1          RESTORE (B3)                                LEX      4528
                     10622                        BX6    X2          RESTORE (X6)                                LEX      4529
                          0532001625 +            NE     B3,B2,QOC2  IF LAST TOKEN NOT FULL                      LEX      4530
          1624  6046000001                        SB4    A6+1                                                    LEX      4531
                          7160000000              SX6    0           CLEAR PACKING REGISTER                      LEX      4532
          1625  22334                    QOC2     LX3    X4,B3                                                   LEX      4533
                     6133777771                   SB3    B3-CHAR                                                 LEX      4534
                               12663              BX6    X6+X3       MERGE INVENTED '                            LEX      4535
          1626  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
          1627  0630001007 +                      PL     B3,TOK=GN-1 IF THIS CHAR DID NOT FILL WORD              LEX      4541
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    LEX      4542
          1630  0400001007 +                      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
          1631                           TOK=QOL  BSS    0           ** ENTRY **                                 LEX      4552
          1631  7175000000                        SX7    B5+                                                     LEX      4553
                          5170000000 +            SA7    CH=CNT      SAVE (B5)                                   LEX      4554
          1632  0400000700 +                      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/05. 19.59.06.      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
          1633                           TOK=QOQ  BSS    0           ** ENTRY **                                 LEX      4583
          1633  5100001345 +                      SA0    TOM=QOQ+1   RESET *TOGEL* P REGISTER                    LEX      4584
                          0400001620 +            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
          1634                           TOK=REH  BSS    0           ** ENTRY **                                 LEX      4597
          1634  5110000021 +                      SA1    SB=LORD     (X1) = *T.STMT* ORD OF THIS CONTINUATN LINE LEX      4598
                          0100002227 +            RJ     XER         EXTRACT AND RESTORE ENTOKENING REGISTERS    LEX      4599
          1635  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
          1636  0222000000                        JP     B2          CONTINUE...                                 LEX      4604
  
  
  
  
                                        **        TOK=REQ - *RESTART* PROCESSING FOR QUOTE STRINGS.              LEX      4606
                                        *                                                                        LEX      4607
                                        *                                                                        LEX      4608
                                                                                                                 LEX      4609
                                                                                                                 LEX      4610
                                1634 +   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/05. 19.59.06.      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
          1637                           TOK=RP   BSS    0           ** ENTRY **                                 LEX      4629
          1637  5110000031 +                      SA1    TB=PLVL                                                 LEX      4630
                          5120000000 X            SA2    ZLPAREN                                                 LEX      4631
          1640  7271777776                        SX7    X1-1                                                    LEX      4632
                          5071000000              SA7    A1+                                                     LEX      4633
          1641  0312001643 +                      NZ     X2,RIP2     IF HAVE ALREADY FOUND 1ST ZERO LVLING *)*   LEX      4634
                          0317001643 +            NZ     X7,RIP2     IF NOT AT PAREN LEVEL 0                     LEX      4635
          1642  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
          1643  5110000026 +             RIP2     SA1    TB=LLP      (X1) = ADDR IN *T.TB* OF LAST LEFT PAREN,   LEX      4641
                                        *                                   ELSE .ZR. IF NONE                    LEX      4642
                                                                                                                 LEX      4643
          1644  0301001650 +             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
          1645  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
          1646  0313001644 +                      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
          1647  12772                             BX7    X7+X2       MERGE *IOCP*                                LEX      4657
                     54720                        SA7    A2                                                      LEX      4658
                          0311000771 +            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
          1650  7170000000               RIP4     SX7    0                                                       LEX      4664
                          5170000026 +            SA7    TB=LLP                                                  LEX      4665
          1651  0400000771 +                      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
          1652                           TOK=SQT  BSS    0           ** ENTRY **                                 LEX      4673
          1652  5100001123 +                      SA0    TOM=SQT     RESET PSEUDO -P- REGISTER                   LEX      4674
                          0400000722 +            EQ     TOK=MN                                                  LEX      4675
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          1653  11413                    BLL4     BX4    X1*X3                                                   LEX      4705
                     12642                        BX6    X4+X2                                                   LEX      4706
                          37636                   IX6    X3-X6                                                   LEX      4707
          1654  0316001663 +                      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
          1655  0400401655 +             BLL      SUBR   =           ENTRY/EXIT...                               LEX      4712
          1656  43100                             MX1    0                                                       LEX      4713
                     0450001660 +                 ZR     B5,BLL1     IF BREAK ON WORD BOUNDARY                   LEX      4714
                               43101              MX1    1                                                       LEX      4715
          1657  67751                             SB7    B5-B1                                                   LEX      4716
                     23171                        AX1    B7                                                      LEX      4717
          1660  11712                    BLL1     BX7    X1*X2       LEFT SIDE                                   LEX      4718
                     65326                        SB3    A2-B6                                                   LEX      4719
                          5130002353 +            SA3    =10H                                                    LEX      4720
          1661  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
          1662  0430001653 +                      ZR     B3,BLL4     IF 2ND PART ONLY ONE PARTIAL WORD           LEX      4724
          1663  0100002204 +             BLL2     RJ     LSS         LEFT SHIFT STRING                           LEX      4725
          1664  5160001675 +                      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
          1665  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
          1666  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/05. 19.59.06.      PAGE   156
                                                                      BLL 
  
                               54761              SA7    A6+B1       SAVE 2ND LINE LENGTH                        LEX      4736
          1667  75222                             SX2    A2-B2                                                   LEX      4737
                     76121                        PLINE  B2+B1,X2                                                LEX      4738
          1671  5120001700 +                      SA2    BLLA+3      LENGTH                                      LEX      4739
                          55121                   SA1    A2-B1       FWA                                         LEX      4740
                               53310              SA3    X1                                                      LEX      4741
          1672  5140002367 +                      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
          1673  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
          1674  10733                             BX7    X3                                                      LEX      4751
                     54761                        SA7    A6+B1       RESET 2ND WORD                              LEX      4752
                          0400001655 +            EQ     EXIT.                                                   LEX      4753
                                                                                                                 LEX      4754
          1675                     1     BLLA     BSS    1           LINE 2 FIRST WORD                           LEX      4755
          1676                     1              BSS    1           LINE 2 SECOND WORD                          LEX      4756
          1677                     1              BSS    1           LINE 2 FWA                                  LEX      4757
          1700                     1              BSS    1           LINE 2 LENGTH                               LEX      4758
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   157
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB 
  
          1701                           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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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/05. 19.59.06.      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
          1701  0400401701 +             BUB      SUBR               ** ENTRY/EXIT **                            COMCBUB   402
                                                                                                                 COMCBUB   403
                                        *         INITIALIZATION.                                                COMCBUB   404
                                                                                                                 COMCBUB   405
          1702  5130000074                        SA3    60D         (A3) = NR OF BITS IN A WORD (CONSTANT)      COMCBUB   406
                          5120002353 +            SA2    =10H                                                    COMCBUB   407
          1703  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
          1704  65737                             SB7    A3-B7       (B7) = -(BIT COUNT - 60D)                   COMCBUB   411
                     0334001710 +                 MI     X4,BUB3     IF (X4) DOES NOT CONTAIN A USEABLE CHAR     COMCBUB   412
          1705  6166000006                        SB6    B6+CHAR                                                 COMCBUB   413
                          0400001711 +            EQ     BUB4                                                    COMCBUB   414
                                                                                                                 COMCBUB   415
                                        *         BURST/BUILD LOOP  ** INSTACK **                                COMCBUB   416
                                                                                                                 COMCBUB   417
          1706  64737                    BUB2     SB7    B7+A3                                                   COMCBUB   418
                     54551                        SA5    A5+B1                                                   COMCBUB   419
                          0670001717 +            GE     B7,B0,BUB5  IF NO MORE SOURCE WORDS TO BU/BU            COMCBUB   420
          1707  37752                             IX7    X5-X2                                                   COMCBUB   421
                     64630                        SB6    A3                                                      COMCBUB   422
                          0307001706 +            ZR     X7,BUB2     IF NEXT SOURCE WORD IS ALL BLANK, IGNORE... COMCBUB   423
                                                                                                                 COMCBUB   424
          1710  20506                    BUB3     LX5    CHAR                                                    COMCBUB   425
                     0606001706 +                 LE     B6,B0,BUB2  IF SOURCE WORD (X5) IS EXHAUSTED            COMCBUB   426
                               15450              BX4    -X0*X5                                                  COMCBUB   427
                                                                                                                 COMCBUB   428
          1711  6166777771               BUB4     SB6    B6-CHAR                                                 COMCBUB   429
                          6224007763              SB2    X4+10000B-BICH                                          COMCBUB   430
          1712  22721                             LX7    X1,B2                                                   COMCBUB   431
                     0425001710 +                 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/05. 19.59.06.      PAGE   165
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
          1713  0327001720 +                      PL     X7,BUB6     IF NEXT CHAR TO PACK NOT IN THIS GROUP      COMCBUB   434
                          6133777771              SB3    B3-CHAR                                                 COMCBUB   435
          1714  12663                             BX6    X6+X3                                                   COMCBUB   436
                     0634001710 +                 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
          1715  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
          1716  0400001710 +                      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
          1717  65637                    BUB5     SB6    A3-B7                                                   COMCBUB   455
                     0706001710 +                 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
          1720  6143777711               BUB6     SB4    B3-BB.TOCP-BB.TOCL+CHAR                                 COMCBUB   460
                          65737                   SB7    A3-B7       RESTORE (B7) TO A CIVIL FORM                COMCBUB   461
          1721  0440001701 +                      ZR     B4,EXIT.    IF (X6) IS EMPTY, DONE...                   COMCBUB   462
                          5066000001              SA6    A6+1                                                    COMCBUB   463
          1722  0400001701 +                      EQ     EXIT.                                                   COMCBUB   464
  
  
  
  
                                 D_D              BASE   *                                                       COMCBUB   466
                                         QUAL$    IF     -DEF,QUAL$                                              COMCBUB   467
                                                  QUAL   *                                                       COMCBUB   468
                                1701 +   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/05. 19.59.06.      PAGE   166
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN 
  
          1722                           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/05. 19.59.06.      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/05. 19.59.06.      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
          1723  0400401723 +             BUN      SUBR               ** ENTRY/EXIT **                            COMCBUN   137
                                                                                                                 COMCBUN   138
                                        *         INITIALIZATION.                                                COMCBUN   139
                                                                                                                 COMCBUN   140
          1724  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
          1725  65737                             SB7    A3-B7       (B7) = -(BIT COUNT-60)                      COMCBUN   144
                     0334001731 +                 MI     X4,BUN3     IF (X4) DOES NOT CONTAIN A USEABLE CHAR     COMCBUN   145
          1726  6166000006                        SB6    B6+CHAR                                                 COMCBUN   146
                          0400001732 +            EQ     BUN4                                                    COMCBUN   147
                                                                                                                 COMCBUN   148
                                        *         BURST/BUILD LOOP  ** INSTACK **                                COMCBUN   149
                                                                                                                 COMCBUN   150
          1727  6177000074               BUN2     SB7    B7+60D                                                  COMCBUN   151
                          5055000001              SA5    A5+1                                                    COMCBUN   152
          1730  0670001740 +                      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/05. 19.59.06.      PAGE   169
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN                 COMCBUN 
  
                                                                                                                 COMCBUN   155
          1731  20506                    BUN3     LX5    CHAR                                                    COMCBUN   156
                     0606001727 +                 LE     B6,B0,BUN2  IF SOURCE WORD (X5) IS EXHAUSTED            COMCBUN   157
                               15450              BX4    -X0*X5                                                  COMCBUN   158
                                                                                                                 COMCBUN   159
          1732  6166777771               BUN4     SB6    B6-CHAR                                                 COMCBUN   160
                          6224007763              SB2    X4+10000B-BICH                                          COMCBUN   161
          1733  22721                             LX7    X1,B2                                                   COMCBUN   162
                     0450001741 +                 EQ     B5,B0,BUN6  IF CHARACTER COUNT EXHAUSTED                COMCBUN   163
                               22334              LX3    X4,B3                                                   COMCBUN   164
          1734  0327001741 +                      PL     X7,BUN6     IF NEXT CHAR TO PACK NOT IN THIS GROUP      COMCBUN   165
                          6133777771              SB3    B3-CHAR                                                 COMCBUN   166
          1735  67551                             SB5    B5-B1                                                   COMCBUN   167
                     12663                        BX6    X6+X3                                                   COMCBUN   168
                          0634001731 +            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
          1736  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
          1737  15663                             BX6    -X3*X6      CLEAR *TOC*                                 COMCBUN   177
                     0400001731 +                 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
          1740  65637                    BUN5     SB6    A3-B7                                                   COMCBUN   187
                     0706001731 +                 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
          1741  6143777711               BUN6     SB4    B3-BN.TOCP-BN.TOCL+CHAR                                 COMCBUN   192
                          65737                   SB7    A3-B7       RESTORE (B7) TO A CIVIL/HUMAN NUMBER        COMCBUN   193
          1742  0440001723 +                      ZR     B4,EXIT.    IF (X6) IS EMPTY, DONE...                   COMCBUN   194
                          5066000001              SA6    A6+1                                                    COMCBUN   195
          1743  0400001723 +                      EQ     EXIT.                                                   COMCBUN   196
  
  
  
  
                                 D_D              BASE   *                                                       COMCBUN   198
                                         QUAL$    IF     -DEF,QUAL$                                              COMCBUN   199
                                                  QUAL   *                                                       COMCBUN   200
                                1723 +   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/05. 19.59.06.      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/05. 19.59.06.      PAGE   171
                                                                      CAK 
  
                                        *         USES   ALL BUT A0,X0,A5,X5                                     LEX      4821
                                        *                                                                        LEX      4822
                                        *         CALLS  NONE                                                    LEX      4823
                                                                                                                 LEX      4824
                                                                                                                 LEX      4825
          1744  0400401744 +             CAK      SUBR   =           ** ENTRY/EXIT **                            LEX      4826
                                                                                                                 LEX      4827
                                        *         INITIALIZATION.                                                LEX      4828
                                                                                                                 LEX      4829
          1745  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
          1746  0470001744 +             CAK2     ZR     B7,EXIT.    IF NOT IN TABLE                             FC5A124    13
                          76770                   SX7    B7                                                      FC5A124    14
                               23717              AX7    X7,B1                                                   FC5A124    15
          1747  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
          1750  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
          1751  0307001754 +                      ZR     X7,CAK3     IF FOUND IT                                 FC5A124    25
                          0327001746 +            PL     X7,CAK2     IF KEYWORD LIES IN TOP HALF                 FC5A124    26
          1752  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
          1753  0400001746 +                      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
          1754  10633                             BX6    X3                                                      LEX      4858
                     20352                        LX3    0-KW.LENP                                               LEX      4859
                          5160002022 +            SA6    CAKA        SAVE FOUND *KEYW* ENTRY                     LEX      4860
          1755  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
          1756  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
          1757  64730                             SB7    A3          SET TO ADDRESS OF FOUND KEYWORD             LEX      4868
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   172
                                                                      CAK 
  
                     0632001760 +                 LE     B2,B3,CAK4  IF KEYWORD HAS .LE. 7 CHARS                 LEX      4869
                               22704              LX7    X4                                                      LEX      4870
          1760  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
          1761  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
          1762  0420001771 +                      ZR     B2,CAK7     IF KEYWORD FELL ON A TOKEN BOUNDARY         LEX      4922
                          0556002006 +            NE     B5,B6,CAK11 IF *TOT*S DO NOT MATCH, KEYWD TOO SHORT...  LEX      4923
          1763  0723001766 +                      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/05. 19.59.06.      PAGE   173
                                                                      CAK 
  
                               54111              SA1    A1+B1       (A1,X1) = A+C OF NEXT TOKEN                 LEX      4926
          1764  54221                             SA2    A2+B1       (A2,X2) = A+C OF NEXT KEYWORD LITERAL       LEX      4927
                     67223                        SB2    B2-B3                                                   LEX      4928
                          0307001761 +            ZR     X7,CAK5     IF KEYWORD SPELLED OK                       LEX      4929
          1765  67701                             SB7    -B1         SET TO *KEYWORD MISSPELLED*                 LEX      4930
                     0400001761 +                 EQ     CAK5                                                    LEX      4931
                                                                                                                 LEX      4932
                                        *         HERE TO CHECK CHARACTERS IN FINAL/LAST KEYWORD TOKEN.          LEX      4933
                                                                                                                 LEX      4934
          1766  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
          1767  37662                             IX6    X6-X2                                                   LEX      4940
                     15113                        BX1    -X3*X1                                                  LEX      4941
                          0306001771 +            ZR     X6,CAK7     IF KEYWORD SPELLED OK                       LEX      4942
          1770  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/05. 19.59.06.      PAGE   174
                                                                      CAK 
  
                                        *              THEREFORE *T.TB* IS MASSAGED TO PRODUCE --                LEX      4983
                                        *                                                                        LEX      4984
                                        *                O.VAR'DOGGY'  O.EOS                                     LEX      4985
                                                                                                                 LEX      4986
          1771  66340                    CAK7     SB3    B4          SAVE ORIGINAL (B4)                          LEX      4987
                     64410                        SB4    A1                                                      LEX      4988
                          0556002007 +            NE     B5,B6,CAK12 IF KEYWORD TOKEN IS EMPTY                   LEX      4989
          1772  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
          1773  7267777744                        SX6    X7-1R0                                                  LEX      4994
                          7170000005              SX7    O.CONS                                                  LEX      4995
          1774  0326001776 +                      PL     X6,CAK8     IF NUMERIC (0 THRU 9)                       LEX      4996
                          7170000011              SX7    O.VAR                                                   LEX      4997
          1775  0420002007 +                      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
          1776  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/05. 19.59.06.      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
          1777  63610                             SB6    X1                                                      LEX      5044
                     11141                        BX1    X4*X1       (X1) = FGHIJKL000  IF (B2) .NZ.             LEX      5045
                                        *                                 = TUVWXYZ000  IF (B2) .ZR.             LEX      5046
                          0420002002 +            ZR     B2,CAK9     IF JUST CHANGING TOKEN TYPE                 LEX      5047
          2000  0556002002 +                      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
          2001  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
          2002  5061777776               CAK9     SA6    A1-1                                                    LEX      5056
                          0456001776 +            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
          2003  0312002007 +                      NZ     X2,CAK12    IF NOT HOLE                                 LEX      5069
                                                                                                                 LEX      5070
                          64260                   SB2    A6                                                      LEX      5071
                               66441              SB4    B4+B1                                                   LEX      5072
          2004  57121                    CAK10    SA1    B2-B1                                                   LEX      5073
                     67221                        SB2    B2-B1                                                   LEX      5074
                          10611                   BX6    X1                                                      LEX      5075
                               54611              SA6    A1+B1                                                   LEX      5076
          2005  0624002004 +                      GE     B2,B4,CAK10 IF MORE TO MOVE                             LEX      5077
                          0400002007 +            EQ     CAK12                                                   LEX      5078
                                                                                                                 LEX      5079
                                        *         SPECIAL PLACE FOR SETTING *MISSPELLED KEYWORD* ERR STATUS.     LEX      5080
                                                                                                                 LEX      5081
          2006  6170777776               CAK11    SB7    -1          SET TO *MISSPELLED KEYWORD*                 LEX      5082
                                                                                                                 LEX      5083
                                        *         SET UP EXIT CONDITIONS.                                        LEX      5084
                                                                                                                 LEX      5085
          2007  5130002022 +             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
          2010  7221777772                        SX2    X1-O.CONS                                               LEX      5093
                          0312001744 +            NZ     X2,EXIT.    IF NOT O.CONS                               LEX      5094
          2011  5120000000 X                      SA2    FILL.       X2 = KEYWORD                                LEX      5095
                          5130002237 +            SA3    =0LASSIGN                                               LEX      5096
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   176
                                                                      CAK 
  
          2012  13323                             BX3    X2-X3                                                   LEX      5097
                     0303001744 +                 ZR     X3,EXIT.    IF *ASSIGN* KEYWORD                         LEX      5098
          2013  5130002341 +                      SA3    =0LDO                                                   LEX      5099
                          13323                   BX3    X2-X3                                                   LEX      5100
          2014  0303001744 +                      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
          2015  10711                             BX7    X1                                                      LEX      5105
                     43366                        MX3    -CHAR                                                   LEX      5106
          2016  20106                    CAK15    LX1    CHAR                                                    LEX      5107
                     15213                        BX2    -X3*X1                                                  LEX      5108
                          0302001744 +            ZR     X2,EXIT.    IF END OF TOKEN                             LEX      5109
          2017  7222777744                        SX2    X2-1R0                                                  LEX      5110
                          0322002016 +            PL     X2,CAK15    IF NUMERIC (0 THRU 9)                       LEX      5111
          2020  7120000046                        SX2    O.ILL                                                   LEX      5112
                          12772                   BX7    X7+X2       CHANGE TO O.ILL                             LEX      5113
                               56740              SA7    B4          UPDATE *TB*                                 LEX      5114
          2021  0400001744 +                      EQ     EXIT.                                                   LEX      5115
                                                                                                                 LEX      5116
                                                                                                                 LEX      5117
          2022                     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
          2023  0400402023 +             EOC      SUBR               ** ENTRY/EXIT **                            LEX      5150
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   177
                                                                      EOC 
  
                                                                                                                 LEX      5151
          2024  5110000004 +                      SA1    LEXFLG                                                  FC5A110    52
                          43201                   MX2    1                                                       FC5A110    53
                               20260              LX2    LF.TDEP-59                                              FC5A110    54
          2025  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
          2026  5120000000 +                      SA2    CH=CNT                                                  LEX      5153
                          73221                   =X2    X2+1                                                    LEX      5154
          2027  0302002042 +                      ZR     X2,EOC10    IF EMPTY STRING                             LEX      5155
                          14222                   BX2    -X2                                                     LEX      5156
          2030  0100002212 +                      RJ     SFT         SPACE FILL LAST WORD OF STRING              LEX      5157
          2031  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
          2032  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
          2033  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
          2034  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
          2035  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
          2036  0770402036 +                      MI     B7,"BLOWUP" IF SOMETHING IS FISHY...                    LEX      5180
                                                                                                                 LEX      5181
                                        *         MERGE *T.CHAR* ORDINAL INTO *O.CHAR* TOKEN.                    LEX      5182
                                                                                                                 LEX      5183
                          5110000002 +            SA1    CH=TAD                                                  LEX      5184
          2037  43700                             MX7    0                                                       LEX      5185
                     54710                        SA7    A1          SET TO *'' STRING IS COMPLETE*              LEX      5186
                          53110                   SA1    X1          (X1) = *O.CHAR* TOKEN                       LEX      5187
                               76270              SX2    B7          (X2) = *T.CHAR* ORD                         LEX      5188
          2040  20252                             LX2    TB.SHCP-0                                               LEX      5189
                     12612                        BX6    X1+X2       MERGE *SHC*                                 LEX      5190
                          5061000000              SA6    A1+                                                     LEX      5191
          2041  0400002023 +                      EQ     EXIT.                                                   LEX      5192
                                                                                                                 LEX      5193
          2042  5110000002 +             EOC10    SA1    CH=TAD                                                  LEX      5194
                          43700                   MX7    0                                                       LEX      5195
                               54710              SA7    A1          STRING COMPLETE                             LEX      5196
          2043  7170000046                        =X7    O.ILL                                                   LEX      5197
                          5120002370 +            SA2    =2L''                                                   LEX      5198
          2044  12772                             BX7    X7+X2                                                   LEX      5199
                     53710                        SA7    X1          RESET TO *ILL*                              LEX      5200
                          6170000000 X            FATAL  E.HC1                                                   LEX      5201
          2046  0400002023 +                      EQ     EXIT.                                                   LEX      5202
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          2047  0400402047 +             EOH      SUBR               ** ENTRY/EXIT **                            LEX      5253
          2050  5130000004 +                      SA3    LEXFLG                                                  FC5A110    58
                          43401                   MX4    1                                                       FC5A110    59
                               20460              LX4    LF.TDEP-59                                              FC5A110    60
          2051  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
          2052  5140000003 +                      SA4    CH=TYPE                                                 LEX      5255
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   179
                                                                      EOH 
  
                          6223000001              SB2    X3+1        (B2) = FWA OF STRING                        LEX      5256
          2053  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
          2054  20252                             LX2    -TB.LCONP                                               LEX      5261
                     7274777776                   SX7    X4-CT.H                                                 LEX      5262
          2055  0307002061 +                      ZR     X7,EOH2     IF *H* STRING                               LEX      5263
                          7274777773              SX7    X4-CT.DQT                                               FC5A258    15
          2056  0307002057 +                      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
          2057  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
          2060  16662                             BX6    -X2+X6      MERGE *CLCN*                                LEX      5267
                     20241                        LX2    -TB.CLCNP                                               LEX      5268
                                                                                                                 FC5A258    22
          2061  5063000000               EOH2     SA6    A3+         ENTER *O.HOLL* TOKEN W/O *T.CON* ORD        LEX      5269
                          0302002100 +            ZR     X2,EOH10    IF EMPTY STRING                             LEX      5270
                                                                                                                 LEX      5271
                                        *         FORMAT FINAL/LAST WORD OF STRING, IF NECESSARY.                LEX      5272
                                                                                                                 LEX      5273
          2062  7274777775                        SX7    X4-CT.L                                                 LEX      5274
                          0307002072 +            ZR     X7,EOH3     IF -L- STRING, ENTER IT INTO *T.CON*...     LEX      5275
          2063  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
          2064  0100002212 +                      RJ     SFT         SPACE FILL LAST WORD OF STRING              LEX      5280
          2065  7214777776                        SX1    X4-CT.H                                                 LEX      5281
                          0301002072 +            ZR     X1,EOH3     IF -H- STRING, ENTER IT INTO *T.CON*...     LEX      5282
          2066  7214777773                        SX1    X4-CT.DQT                                               LEX      5283
                          0301002072 +            ZR     X1,EOH3     IF "" STRING, ENTER IT INTO *T.CON*...      LEX      5284
                                                                                                                 LEX      5285
                                                  IFEQ   TEST,ON,2                                               LEX      5286
          2067  7214777774                        SX1    X4-CT.R                                                 LEX      5287
                          0311402067 +            NZ     X1,"BLOWUP" IF NOT -R- STRING, HWUMP...                 LEX      5288
          2070  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
          2071  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
          2072  5110000000 X             EOH3     SA1    T.CON                                                   FC5A258    23
                          6170000000              SB7    B0+         SET TO *IF NOT IN TABLE, GO ENTER IT...*    LEX      5301
          2073  0100000000 X                      CALL   NCM         ENTER CM INTO TABLE                         LEX      5302
                                                  IFEQ   TEST,ON,1                                               LEX      5303
          2074  0770402074 +                      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/05. 19.59.06.      PAGE   180
                                                                      EOH 
  
                                                                                                                 LEX      5307
                          5110000002 +            SA1    CH=TAD                                                  LEX      5308
          2075  43700                             MX7    0                                                       LEX      5309
                     54710                        SA7    A1          SET TO *"" STRING IS COMPLETE*              LEX      5310
                          5211000000              SA1    X1+         (X1) = *O.HOL* TOKEN                        LEX      5311
          2076  76270                             SX2    B7          (X2) = *T.CON* ORD                          LEX      5312
                     20252                        LX2    TB.SHCP-0                                               LEX      5313
                          12612                   BX6    X1+X2       MERGE *SHC*                                 LEX      5314
                               54610              SA6    A1                                                      LEX      5315
          2077  0400002047 +                      EQ     EXIT.                                                   LEX      5316
                                                                                                                 LEX      5317
          2100  5110000002 +             EOH10    SA1    CH=TAD                                                  LEX      5318
                          7160000046              =X6    O.ILL                                                   LEX      5319
          2101  5120002371 +                      SA2    =2L""                                                   LEX      5320
                          0317002103 +            NZ     X7,EOH15    IF "" STRING                                LEX      5321
          2102  5120002347 +                      SA2    =7LBAD-STR                                              LEX      5322
          2103  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
          2104  6170000000 X                      FATAL  E.HC1                                                   LEX      5327
          2105  0400002047 +                      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
          2106  0400402106 +             ILX      SUBR               ** ENTRY/EXIT **                            LEX      5347
          2107  7160000000                        SX6    0                                                       LEX      5348
                          5160000000 X            SHRINK T=TB,X6                                                 LEX      5349
          2110  5160000002 +                      SA6    CH=TAD                                                  LEX      5350
                          5160000045 +            SA6    TC=TBA                                                  LEX      5351
          2111  5160000022 +                      SA6    TB=1ST                                                  LEX      5352
                          5160000023 +            SA6    TB=CDF                                                  LEX      5353
          2112  5160000024 +                      SA6    TB=LABL                                                 LEX      5354
                          5160000025 +            SA6    TB=LABR                                                 LEX      5355
          2113  5160000026 +                      SA6    TB=LLP                                                  LEX      5356
                          5160000027 +            SA6    TB=NUML                                                 LEX      5357
          2114  5160000030 +                      SA6    TB=NUMR                                                 LEX      5358
                          5160000031 +            SA6    TB=PLVL                                                 LEX      5359
          2115  5160000032 +                      SA6    TB=TYPE                                                 LEX      5360
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   181
                                                                      ILX 
  
                          5110000004 +            SA1    LEXFLG                                                  LEX      5361
          2116  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
          2120  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
          2121  0331002106 +                      MI     X1,EXIT.    IF IN *HEADER DELAY* MODE                   LEX      5371
                          5160000000 X            SHRINK T=STMT,X6                                               LEX      5372
          2122  5160000020 +                      SA6    SB=LINC                                                 LEX      5373
                          5160000021 +            SA6    SB=LORD                                                 LEX      5374
          2123  0400002106 +                      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/05. 19.59.06.      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
          2124  0400402124 +             LDB      SUBR   =           ** ENTRY/EXIT **                            LEX      5447
          2125  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
          2126  5130000000 X                      SA3    T=STMT                                                  LEX      5452
                          5140000021 +            SA4    SB=LORD                                                 LEX      5453
          2127  37634                             IX6    X3-X4                                                   LEX      5454
                     0336402127 +                 MI     X6,"BLOWUP" IF LINE ORDINAL .GT. STMT BUFFER LEN        LEX      5455
          2130  0313002131 +                      NZ     X3,LDB1     IF STMT BUFFER NOT EMPTY                    LEX      5456
                          0312402130 +            NZ     X2,"BLOWUP" IF LINE COUNT CONFLICT                      LEX      5457
                                                                                                                 LEX      5458
          2131                           LDB1     BSS    0                                                       LEX      5459
                                         .T       ENDIF                                                          LEX      5460
                                                                                                                 LEX      5461
          2131  63410                             SB4    X1                                                      LEX      5462
                     10622                        BX6    X2                                                      LEX      5463
                          5160002145 +            SA6    LDBA        INITIALIZE LOCAL LINE COUNTER               LEX      5464
                                                                                                                 FC50243     9
          2132  5120002145 +             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
          2133  0302002143 +                      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/05. 19.59.06.      PAGE   183
                                                                      LDB 
  
                          0332402133 +            MI     X2,"BLOWUP" IF SOMETHING TERRIBLE HAS HAPPENED...       LEX      5471
                                                  LX3    0-SB.LENP                                               LEX      5472
          2134  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
                     5110000000 X                 SA1    =XWOF=ERR   LIST TO E-FILE FLAG                         LEX      5479
                               63610              SB6    X1                                                      LEX      5480
          2135  22363                             LX3    B6                                                      LEX      5481
                     76141                        SX1    B4+B1       (X1) = FWA OF LISTABLE LINE                 LEX      5482
                          7262777776              SX6    X2-1                                                    LEX      5483
          2136  12737                             BX7    X3+X7       SET TO *THIS LINE HAS BEEN LISTED*          LEX      5484
                     67606                        SB6    -B6                                                     LEX      5485
                          6166000074              SB6    60+B6                                                   LEX      5486
          2137  22767                             LX7    B6          RESTORE WORD                                LEX      5487
                     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
          2140  0333002132 +                      MI     X3,LDB2     IF THIS LINE ALREADY LISTED                 LEX      5492
                          7244777775              SX4    X4-2        LENGTH FOR LSL                              LEX      5493
          2141  0100002146 +                      RJ     LSL         LIST SOURCE LINE                            LEX      5494
          2142  0400002132 +                      EQ     LDB2                                                    LEX      5495
                                                                                                                 LEX      5496
          2143  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
          2144  5071000000                        SA7    A1+                                                     LEX      5502
                          0400002124 +            EQ     EXIT.                                                   LEX      5503
                                                                                                                 LEX      5504
                                                                                                                 LEX      5505
          2145                     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
          2146  0400402146 +             LSL      SUBR   =           ** ENTRY/EXIT **                            LEX      5524
          2147  5120000000 X                      SA2    WOF=ERR                                                 LEX      5525
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   184
                                                                      LSL 
  
                          5232000000 X            SA3    CO.PW+X2    FLAG FOR PW MODE ON THIS FILE (E OR L)      LEX      5526
          2150  7233777601                        SX3    X3-126                                                  FC50353    19
                          73240                   SX2    X4          LINE LENGTH                                 LEX      5528
                               76640              SX6    B4                                                      LEX      5529
          2151  5140002353 +                      SA4    =10H                                                    LEX      5530
                          5160002203 +            SA6    LSLA        SAVE (B4)                                   LEX      5531
          2152  0323002177 +                      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
          2153  66621                             SB6    B2+B1                                                   LEX      5535
                                                                                                                 FC50353    21
          2154  56223                    LSL2     SA2    B2+B3       (X2) = NEXT WORD OF LINE                    LEX      5536
                     66331                        SB3    B3+B1                                                   LEX      5537
                          37624                   IX6    X2-X4                                                   LEX      5538
          2155  0306002154 +                      ZR     X6,LSL2     IF BLANK WORD                               LEX      5539
                          0302002157 +            ZR     X2,LSL3     IF EOL                                      LEX      5540
          2156  64621                             SB6    A2+B1                                                   LEX      5541
                     0400002154 +                 EQ     LSL2                                                    LEX      5542
                                                                                                                 LEX      5543
          2157  76221                    LSL3     =X2    B2+1        FWA                                         LEX      5544
                     7130000001 X                 SX3    PWBUF+1     DESTINATION                                 LEX      5545
                               67562              SB5    B6-B2       LENGTH                                      LEX      5546
          2160  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
          2161  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
          2162  0100000000 X                      MOVE   X1,X2,X3    LINE TO PWBUF                               LEX      5553
          2163  5130000000 X                      SA3    WOF=ERR                                                 FC5A426   112
                          5233000000 X            SA3    CO.WPL+X3   GET WIDTH CONTROL WORD                      FC5A426   113
          2164  7110000000 X                      SX1    PWBUF                                                   LEX      5555
                          6120000000 X            SB2    PWBUF                                                   LEX      5556
          2165  76250                             SX2    B5                                                      LEX      5557
                     66750                        SB7    B5                                                      LEX      5558
                                                                                                                 FC50353    22
          2166  63531                    LSL4     SB5    X3+B1       PAGE WIDTH IN WORDS + 1                     LEX      5559
                     67375                        SB3    B7-B5                                                   LEX      5560
                          0730002174 +            LT     B3,LSL5     IF LINE LENGTH .LE. PAGE WIDTH              LEX      5561
          2167  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
          2170  67661                             SB6    B6-B1                                                   LEX      5566
                     0100001655 +                 RJ     BLL         BREAK LONG LINE                             LEX      5567
          2171  5130000000 X                      SA3    WOF=ERR                                                 FC5A426   114
                          5233000000 X            SA3    CO.WPL+X3   GET WIDTH CONTROL WORD                      FC5A426   115
          2172  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
          2173  0316002166 +                      NZ     X6,LSL4     IF STILL POSSIBLE LONG LINE                 LEX      5572
                                                                                                                 LEX      5573
          2174  66510                    LSL5     PLINE  X1,X2                                                   LEX      5574
          2175  5110002203 +                      SA1    LSLA                                                    LEX      5575
                          63410                   SB4    X1          RESTORE (B4)                                LEX      5576
          2176  0400002146 +                      EQ     EXIT.                                                   LEX      5577
                                                                                                                 LEX      5578
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   185
                                                                      LSL 
  
          2177  22604                    LSL6     LX6    X4                                                      LEX      5579
                     53611                        =A6    X1+1                                                    LEX      5580
                          66510                   PLINE  X1,X2                                                   LEX      5581
          2201  5110002203 +                      SA1    LSLA                                                    LEX      5582
                          63410                   SB4    X1          RESTORE (B4)                                LEX      5583
          2202  0400002146 +                      EQ     EXIT.                                                   LEX      5584
                                                                                                                 LEX      5586
          2203                     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
          2204  0400402204 +             LSS      SUBR   =           ENTRY/EXIT...                               LEX      5609
          2205  10622                             BX6    X2                                                      LEX      5610
                     0450002204 +                 ZR     B5,EXIT.    IF NO SHIFT NEEDED                          LEX      5611
                               64720              SB7    A2                                                      LEX      5612
          2206  66360                             SB3    B6                                                      LEX      5613
                     11313                        BX3    X1*X3                                                   LEX      5614
          2207  56430                    LSS10    SA4    B3                                                      LEX      5615
                     11214                        BX2    X1*X4                                                   LEX      5616
                          15441                   BX4    -X1*X4                                                  LEX      5617
                               12634              BX6    X3+X4                                                   LEX      5618
          2210  22656                             LX6    B5                                                      LEX      5619
                     54640                        SA6    A4                                                      LEX      5620
                          67331                   SB3    B3-B1                                                   LEX      5621
                               10322              BX3    X2                                                      LEX      5622
          2211  0637002207 +                      GE     B3,B7,LSS10 IF SHIFT NOT FINISHED                       LEX      5623
                          0400002204 +            EQ     EXIT.                                                   LEX      5624
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          2212  0400402212 +             SFT      SUBR                                                           LEX      5637
          2213  43774                             MX7    60                                                      LEX      5638
                     10611                        BX6    X1                                                      LEX      5639
                          5130002372 +            WX3    X2,X0       GET REMAINDER                               LEX      5640
          2217  0300002212 +                      ZR     X0,EXIT.    IF NO PARTIAL WORD                          LEX      5641
                          5120002353 +            SA2    =1H                                                     LEX      5642
          2220  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
          2221  6246777776                        SB4    X6-1                                                    LEX      5647
                          23747                   AX7    B4,X7       CONSTRUCT MASK                              LEX      5648
                               15027              BX0    -X7*X2                                                  LEX      5649
          2222  12601                             BX6    X0+X1       BLANK FILL                                  LEX      5650
                     54610                        SA6    A1                                                      LEX      5651
                          0400002212 +            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
          2223  0400402223 +             TTB      SUBR                                                           LEX      5662
          2224  5110000000 X                      SA1    T.TB                                                    LEX      5663
                          76600                   =X6    O.EOS                                                   LEX      5664
                               54661              =A6    A6+1        TERMINATE T.TB                              LEX      5665
          2225  74261                             =X2    A6+1                                                    LEX      5666
                     37621                        IX6    X2-X1                                                   LEX      5667
                          5160000000 X            SHRINK T=TB,X6                                                 LEX      5668
          2226  0400002223 +                      EQ     EXIT.                                                   LEX      5669
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      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
          2227  0400402227 +             XER      SUBR               ** ENTRY/EXIT **                            LEX      5702
          2230  5120000000 X                      SA2    T.STMT                                                  LEX      5703
                          43366                   MX3    -SB.FENBL                                               LEX      5704
                               43463              MX4    -SB.FENLL                                               LEX      5705
          2231  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
          2232  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
          2233  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
          2234  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
          2235  0606402235 +                      LE     B6,B0,"BLOWUP" IF (B6) IS TOO SMALL                     LEX      5723
                          0750402235 +            MI     B5,"BLOWUP"    IF (B6) IS TOO BIG                       LEX      5724
                                                                                                                 LEX      5725
          2236  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/05. 19.59.06.      PAGE   188
                                                                      XER 
  
                          0400002227 +            EQ     EXIT.                                                   LEX      5728
  
  
  
  
                                                  LIST   D                                                       LEX      5730
  
                                        CONTENT OF LITERALS BLOCK.
  
          2237  01232311071600000000    ASSIGN
          2240  02010313232001000000    BACKSPA 
          2241  03050000000000000000    CE
          2242  02141703130401000000    BLOCKDA 
          2243  24010000000000000000    TA
          2244  02171714050116000000    BOOLEAN 
          2245  02250606052200000000    BUFFER
          2246  03011414000000000000    CALL
          2247  03100122010324000000    CHARACT 
          2250  05220000000000000000    ER
          2251  03141723050000000000    CLOSE 
          2252  03171515171600000000    COMMON
          2253  03171520140530000000    COMPLEX 
          2254  03171624111625000000    CONTINU 
          2255  05000000000000000000    E 
          2256  04012401000000000000    DATA
          2257  04050317040500000000    DECODE
          2260  04111505162311000000    DIMENSI 
          2261  17160000000000000000    ON
          2262  04172502140520000000    DOUBLEP 
          2263  22050311231117000000    RECISIO 
          2264  16000000000000000000    N 
          2265  05142305000000000000    ELSE
          2266  05160317040500000000    ENCODE
          2267  05160400000000000000    END 
          2270  05160406111405000000    ENDFILE 
          2271  05160411060000000000    ENDIF 
          2272  05162422310000000000    ENTRY 
          2273  05212511260114000000    EQUIVAL 
          2274  05160305000000000000    ENCE
          2275  05302405221601000000    EXTERNA 
          2276  14000000000000000000    L 
          2277  06172215012400000000    FORMAT
          2300  06251603241117000000    FUNCTIO 
          2301  16000000000000000000    N 
          2302  07172417000000000000    GOTO
          2303  11152014110311000000    IMPLICI 
          2304  24000000000000000000    T 
          2305  11162125112205000000    INQUIRE 
          2306  11162405070522000000    INTEGER 
          2307  11162422111623000000    INTRINS 
          2310  11030000000000000000    IC
          2311  14052605140000000000    LEVEL 
          2312  14170711030114000000    LOGICAL 
          2313  16011505141123000000    NAMELIS 
          2314  24000000000000000000    T 
          2315  17200516000000000000    OPEN
          2316  17260301200000000000    OVCAP 
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   189
                                                                      LITERALS
  
          2317  17260522140131000000    OVERLAY 
          2320  20012201150524000000    PARAMET 
          2321  05220000000000000000    ER
          2322  20012523050000000000    PAUSE 
          2323  20221116240000000000    PRINT 
          2324  20221707220115000000    PROGRAM 
          2325  20251603100000000000    PUNCH 
          2326  22050104000000000000    READ
          2327  22050114000000000000    REAL
          2330  22052425221600000000    RETURN
          2331  22052711160400000000    REWIND
          2332  23012605000000000000    SAVE
          2333  23241720000000000000    STOP
          2334  23250222172524000000    SUBROUT 
          2335  11160500000000000000    INE 
          2336  27221124050000000000    WRITE 
          2337  02220501130000000000    BREAK 
          2340  20012403100000000000    PATCH 
          2341  04170000000000000000    DO
          2342  02050703171500000000    BEGCOM
          2343  03171414012405000000    COLLATE 
          2344  05160403171500000000    ENDCOM
          2345  11060000000000000000    IF
          2346  14112324000000000000    LIST
          2347  02010446232422000000    BAD-STR 
          2350  00000000035355555555        C$
          2351  00000000005555555555
          2352  03530000000000000000    C$
          2353  55555555555555555555
          2354  00001777000000000000      O;
          2355  00000000000000000001             A
          2356  77776000000000000377    ;;#     C;
          2357  77777777000000000377    ;;;;    C;
          2360  77777777777773777777    ;;;;;;>;;;
          2361  00000000000004000000          D 
          2362  00000000001000000000         H
          2363  00000000000000000000
          2364  77777777777777777777    ;;;;;;;;;;
          2365  77777777777777577777    ;;;;;;;.;;
          2366  00000000000000200000           P
          2367  55555573737373555555       >>>> 
          2370  70700000000000000000    ''
          2371  55550000000000000000
          2372  00000631463146314632      FY-Y-Y-Z
  
          2402                                    END                                                            LEX      5731
  
                            105400B CM  STORAGE USED            25538 STATEMENTS     2197 SYMBOLS      000235 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            8.066 SECONDS        3918 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       2/02 X   76/22     98/35
        ANS.CONT       23   FTX            75/48
        BBLA         1441   PROGRAM*      137/15    137/23 L  137/46    138/14    138/48
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   190
        SYMBOLIC REFERENCE TABLE. 
  
        BBL1         1436   PROGRAM*      137/17 L  137/34
        BBO1         1456   PROGRAM*      138/16 L  138/38
        BBO2         1462   PROGRAM*      138/25 L  139/01
        BBR1         1447   PROGRAM*      137/48 L  138/04
        BBZ1         1467   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          1655   PROGRAM*      155/34 L  155/34 E  184/45
        BLLA         1675   PROGRAM*      155/48 S  156/04    156/20 L
        BLL1         1660   PROGRAM*      155/36    155/40 L
        BLL2         1663   PROGRAM*      155/30    155/47 L
        BLL4         1653   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         1515   PROGRAM*      140/48    141/06 L
        BOO2         1505   PROGRAM*      140/44 L  142/11
        BOO3         1511   PROGRAM*      138/26    140/46    140/53 L
        BRLA         1444   PROGRAM*      137/33    137/36 L  138/03    138/37    139/11
        BUB          1701   PROGRAM*       85/07     85/56     88/07    115/52    123/47    165/39 D
        BUN          1723   PROGRAM*       86/12     86/53     87/52     88/35    115/47    123/03    169/50 D
        B1=1            0                 113/53 F
        CAK          1744   PROGRAM*       94/33    171/06 L  171/06 E
        CAKA         2022   PROGRAM*      171/49 S  175/47    176/22 L
        CAK10        2004   PROGRAM*      175/34 L  175/38
        CAK11        2006   PROGRAM*      172/55    175/43 L
        CAK12        2007   PROGRAM*      174/07    174/16    175/30    175/39    175/47 L
        CAK15        2016   PROGRAM*      176/11 L  176/15
        CAK2         1746   PROGRAM*      171/17 L  171/30    171/35
        CAK3         1754   PROGRAM*      171/29    171/46 L
        CAK4         1760   PROGRAM*      172/01    172/03 L
        CAK5         1761   PROGRAM*      172/50 L  173/04    173/06
        CAK6         1766   PROGRAM*      172/56    173/10 L
        CAK7         1771   PROGRAM*      172/54    173/17    174/05 L
        CAK8         1776   PROGRAM*      174/14    174/55 L  175/18
        CAK9         2002   PROGRAM*      175/08    175/09    175/17 L
        CARDS           0   EXTERNAL*       2/16 X   83/32    100/27
        CCD          1047   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/05. 19.59.06.      PAGE   191
        SYMBOLIC REFERENCE TABLE. 
  
        CHAR            6   FTX            42/37 F   69/08     69/25     69/45     83/30     88/05    122/54    167/28 F
                                           68/49     69/09     69/26     70/05     83/40     88/34    123/09    168/49
                                           68/50     69/10     69/27     70/06     83/54     88/38    123/40    168/57
                                           68/51     69/11     69/28     70/07     83/55     92/23    123/53    169/02
                                           68/52     69/12     69/29     70/08     84/13     92/32    126/13    169/06
                                           68/53     69/13     69/30     70/09     84/14     92/44    126/17    169/12
                                           68/54     69/14     69/31     70/19     84/17     92/46    149/53    169/21
                                           68/55     69/15     69/32     70/20     84/23     96/54    152/01    169/38
                                           68/56     69/16     69/33     70/21     84/50    101/12    152/09    171/11
                                           68/57     69/17     69/34     70/22     84/51    101/39    152/17    171/13
                                           69/01     69/18     69/35     70/23     85/49    114/27    160/12 F  171/27
                                           69/02     69/19     69/36     70/24     85/55    114/32    164/37    171/54
                                           69/03     69/20     69/37     70/25     86/11    114/33    164/49    174/08
                                           69/04     69/21     69/38     70/26     86/14    115/40    164/53    174/10
                                           69/05     69/22     69/39     74/06     86/52    115/46    165/02    176/10
                                           69/06     69/23     69/40     80/02     87/42    115/51    165/10    176/11
                                           69/07     69/24     69/44     82/27     87/51    116/57    165/27
        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           354   PROGRAM*       77/37     82/21 L
        CLNA          517   PROGRAM*       85/05 S   85/53 S   86/10 S   86/51 S   88/33 S   89/39 L
        CLN1          367   PROGRAM*       82/48     82/51 L
        CLN10         430   PROGRAM*       82/52     85/49 L
        CLN13         455   PROGRAM*       87/02     87/07 L
        CLN14         457   PROGRAM*       85/57     86/07     86/47     86/57     87/03     87/13 L
        CLN15         461   PROGRAM*       86/28     87/32 L
        CLN16         466   PROGRAM*       86/26     87/09     87/33     87/45 L
        CLN17         472   PROGRAM*       87/46     87/54 L   88/42
        CLN18         511   PROGRAM*       85/08     87/43     88/04     88/08     89/23 L
        CLN2          371   PROGRAM*       83/29     83/32 L
        CLN20         512   PROGRAM*       85/16     85/18     88/22     88/27     89/25 L
        CLN3          403   PROGRAM*       83/48     84/02     84/05 L
        CLN4          405   PROGRAM*       83/49     84/12 L
        CLN5          410   PROGRAM*       84/18     84/23 L
        CLN6          414   PROGRAM*       84/27     84/35 L
        CLN7          416   PROGRAM*       84/04     84/29     84/31     84/36     84/48 L
        CNF             0   EXTERNAL*       2/53 X   70/08
        COL2         1534   PROGRAM*      143/26 L  143/36
        COL3         1540   PROGRAM*      143/26    143/44 L
        CO.DS           0   EXTERNAL*       2/31 X   84/03     87/07
        CO.IDP          0   EXTERNAL*       2/31 X   79/12
        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   79/17
        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/05. 19.59.06.      PAGE   192
        SYMBOLIC REFERENCE TABLE. 
  
        CST           521   PROGRAM*       79/07     92/10 L   92/10 E
        CST10         570   PROGRAM*       94/36     94/51 L
        CST2          533   PROGRAM*       92/34     92/42 L
        CST3          542   PROGRAM*       93/14     93/30 L
        CST4          544   PROGRAM*       93/26     93/34 L
        CST5          545   PROGRAM*       92/36     92/43     92/48     93/12     93/13     93/25     93/32     93/39 L
        CST6          551   PROGRAM*       93/43     94/08 L
        CST7          562   PROGRAM*       92/12     92/35     93/39     94/28 L
        CST8          567   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    179/38
        CT.SQT          5                  52/27 D   79/41     79/52    135/53
        CUL             0   EXTERNAL*       2/50 X   74/09
        DO.           140   PROGRAM*       70/06 L   92/37
        DQT          1340   PROGRAM*      131/15    132/29 L
        DXB             0   EXTERNAL*       3/12 X  136/44
        EOC          2023   PROGRAM*       79/47    145/35    176/57 L
        EOC10        2042   PROGRAM*      177/10    177/49 L
        EOH          2047   PROGRAM*       79/43    146/31    178/50 L
        EOH1         2057   PROGRAM*      179/10    179/14 L
        EOH10        2100   PROGRAM*      179/21    180/12 L
        EOH15        2103   PROGRAM*      180/15    180/17 L
        EOH2         2061   PROGRAM*      179/08    179/20 L
        EOH3         2072   PROGRAM*      179/26    179/33    179/35    179/51 L
        EOS           143   PROGRAM*       70/09 L   80/34
        EQL2         1573   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   69/45     70/20     70/22     70/24     70/26
                                           69/44     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       154   PROGRAM*       70/31 L   94/29
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   193
        SYMBOLIC REFERENCE TABLE. 
  
        FW.KEYW        53   PROGRAM*       68/47 L   69/48     70/31
        FW.KEY$       144   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/39    131/50    131/50    131/50    131/50    131/50    133/34
                                           42/41 D  129/40    131/50    131/50    131/50    131/50    132/29    133/35
                                          116/17    129/41    131/50    131/50    131/50    131/50    132/30    133/36
                                          117/03    129/42    131/50    131/50    131/50    131/50    132/31    133/37
                                          117/04    129/45    131/50    131/50    131/50    131/50    132/32    134/08
                                          117/18    129/46    131/50    131/50    131/50    131/50    132/33    134/09
                                          119/35    129/47    131/50    131/50    131/50    131/50    132/34    134/10
                                          120/03    129/52    131/50    131/50    131/50    131/50    132/35    134/11
                                          120/38    131/06    131/50    131/50    131/50    131/50    132/36    134/12
                                          120/42    131/15    131/50    131/50    131/50    131/50    132/38    134/13
                                          121/11    131/16    131/50    131/50    131/50    131/50    132/39    134/14
                                          121/20    131/25    131/50    131/50    131/50    131/50    132/40    134/15
                                          122/57    131/26    131/50    131/50    131/50    131/50    132/41    134/17
                                          123/28    131/27    131/50    131/50    131/50    131/50    132/42    134/18
                                          123/44    131/36    131/50    131/50    131/50    131/50    132/43    134/19
                                          124/15    131/37    131/50    131/50    131/50    131/50    132/44    134/20
                                          124/21    131/38    131/50    131/50    131/50    131/50    132/45    134/21
                                          124/51    131/47    131/50    131/50    131/50    131/50    133/26    134/22
                                          125/01    131/48    131/50    131/50    131/50    131/50    133/27    134/23
                                          129/27    131/50    131/50    131/50    131/50    131/50    133/28    134/24
                                          129/31    131/50    131/50    131/50    131/50    131/50    133/29
                                          129/32    131/50    131/50    131/50    131/50    131/50    133/30
                                          129/36    131/50    131/50    131/50    131/50    131/50    133/31
                                          129/37    131/50    131/50    131/50    131/50    131/50    133/32
                                          129/38    131/50    131/50    131/50    131/50    131/50    133/33
        F.IN            0   EXTERNAL*       2/32 X  101/22
        HLR          1360   PROGRAM*      129/40    133/26 L
        HOL3         1602   PROGRAM*      149/07    149/37 L
        IDP=            0   EXTERNAL*       2/38 X   79/15
        IFLEVEL         0   EXTERNAL*       2/19 X   97/06
        IFS             0   EXTERNAL*       2/45 X   70/07
        IF.           141   PROGRAM*       70/07 L   93/34
        ILX          2106   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   69/44
        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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   194
        SYMBOLIC REFERENCE TABLE. 
  
        KW=END          0   EXTERNAL*       2/45 X   69/09
        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   69/45
        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/19
                                           68/50     69/01     69/09     69/17     69/25     69/33     69/44     70/20
                                           68/51     69/02     69/10     69/18     69/26     69/34     69/45     70/21
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/05     70/22
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/06     70/23
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/07     70/24
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/08     70/25
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/09     70/26
        KW.BKDP        45   FTX            68/52     69/03     69/13     69/23     69/44     70/22     70/26
                                           68/55     69/05     69/18     69/28     69/45     70/23
                                           68/57     69/06     69/20     69/34     70/09     70/24
                                           69/01     69/09     69/22     69/37     70/19     70/25
        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/19
                                           68/50     69/01     69/09     69/17     69/25     69/33     69/44     70/20
                                           68/51     69/02     69/10     69/18     69/26     69/34     69/45     70/21
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/05     70/22
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/06     70/23
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/07     70/24
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/08     70/25
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/09     70/26
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   195
        SYMBOLIC REFERENCE TABLE. 
  
        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
        KW.JMPL        22   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/19
                                           68/50     69/01     69/09     69/17     69/25     69/33     69/44     70/20
                                           68/51     69/02     69/10     69/18     69/26     69/34     69/45     70/21
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/05     70/22
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/06     70/23
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/07     70/24
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/08     70/25
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/09     70/26
        KW.KEYL        22   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/19
                                           68/50     69/01     69/09     69/17     69/25     69/33     69/44     70/20
                                           68/51     69/02     69/10     69/18     69/26     69/34     69/45     70/21
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/05     70/22
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/06     70/23
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/07     70/24
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/08     70/25
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/09     70/26
        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     69/01     69/10     69/19     69/28     69/37     70/08     70/26
                                           68/50     69/02     69/11     69/20     69/29     69/38     70/09    171/50
                                           68/51     69/03     69/12     69/21     69/30     69/39     70/19
                                           68/52     69/04     69/13     69/22     69/31     69/40     70/20
                                           68/53     69/05     69/14     69/23     69/32     69/44     70/21
                                           68/54     69/06     69/15     69/24     69/33     69/45     70/22
                                           68/55     69/07     69/16     69/25     69/34     70/05     70/23
                                           68/56     69/08     69/17     69/26     69/35     70/06     70/24
                                           68/57     69/09     69/18     69/27     69/36     70/07     70/25
        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     69/45
                                           68/55     69/05     69/11     69/15     69/21     69/26     69/34     70/05
                                           68/57     69/06     69/12     69/16     69/22     69/27     69/37     70/06
        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          2124   PROGRAM*       80/43    182/33 L  182/33 E
        LDBA         2145   PROGRAM*      182/50 S  182/52    183/35 L
        LDB1         2131   PROGRAM*      182/42    182/45 L
        LDB2         2132   PROGRAM*      182/52 L  183/22    183/25
        LDB3         2143   PROGRAM*      182/55    183/27 L
        LEX           160   PROGRAM*       72/32 L   72/32 E
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   196
        SYMBOLIC REFERENCE TABLE. 
  
        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         261   PROGRAM*       72/45     72/46     73/25     73/27     77/15     77/19     77/26     77/33 L
        LEX10B        274   PROGRAM*       78/05     78/10     78/12     78/17 L
        LEX11         305   PROGRAM*       77/29     78/32     78/40     78/42     79/04 L
        LEX11A        307   PROGRAM*       77/23     79/09 L
        LEX11B        312   PROGRAM*       79/14     79/17 L
        LEX12         314   PROGRAM*       79/19     79/22 L
        LEX12A        324   PROGRAM*       79/42     79/47 L
        LEX13         327   PROGRAM*       79/36     79/51 L
        LEX13B        332   PROGRAM*       79/53     80/02 L
        LEX13C        337   PROGRAM*       79/56     80/16 L
        LEX14         342   PROGRAM*       79/33     79/45     79/49     80/10     80/27 L
        LEX2          166   PROGRAM*       72/50 L   78/15     78/34     78/36     78/38
        LEX20         344   PROGRAM*       73/31     80/34 L
        LEX21         350   PROGRAM*       80/42     80/45 L
        LEX3          202   PROGRAM*       73/21     74/01 L
        LEX3A         206   PROGRAM*       74/04     74/10     74/13 L
        LEX4          210   PROGRAM*       73/29     74/16     74/48 L   75/35
        LEX4A         217   PROGRAM*       75/04     75/07 L
        LEX5          222   PROGRAM*       73/23     75/30 L
        LEX6          226   PROGRAM*       75/33     75/37 L
        LEX7          230   PROGRAM*       75/37     75/42 L
        LEX8          235   PROGRAM*       75/14     75/49     75/50     76/22 L
        LEX9          256   PROGRAM*       77/13     77/25 L
        LEX=LN1       173   PROGRAM*       73/06     73/15 L   73/34
        LEX=LN2       276   PROGRAM*       78/17     78/26 L   78/46
        LEX.DLN       353   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          2146   PROGRAM*       99/44    183/24    183/56 L  183/56 E
        LSLA         2203   PROGRAM*      184/06 S  184/54    185/04    185/08 L
        LSL2         2154   PROGRAM*      184/12 L  184/15    184/18
        LSL3         2157   PROGRAM*      184/16    184/20 L
        LSL4         2166   PROGRAM*      184/37 L  184/51
        LSL5         2174   PROGRAM*      184/39    184/53 L
        LSL6         2177   PROGRAM*      184/07    185/01 L
        LSS          2204   PROGRAM*      155/47    185/33 L  185/33 E
        LSS10        2207   PROGRAM*      185/39 L  185/47
        LTB=            0   EXTERNAL*       2/28 X   79/20
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   197
        SYMBOLIC REFERENCE TABLE. 
  
        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        156   PROGRAM*       70/33 L   94/30
        L.KEYW         63                  69/48 D   70/33
        L.KEY$         10                  70/28 D   70/33
        L.LN1           7                  73/01     73/34 D
        L.LN2           7                  77/53     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        1176   PROGRAM*      131/50 L
        O=CAT        1136   PROGRAM*      131/50 L
        O=COLON      1336   PROGRAM*      131/50 L
        O=COMMA      1314   PROGRAM*      131/50 L
        O=DQOT       1322   PROGRAM*      131/50 L
        O=EQ         1142   PROGRAM*      131/50 L
        O=EQV        1222   PROGRAM*      131/50 L
        O=EXP        1126   PROGRAM*      131/50 L
        O=FALSE      1216   PROGRAM*      131/50 L
        O=GE         1152   PROGRAM*      131/50 L
        O=GT         1162   PROGRAM*      131/50 L
        O=HEX        1242   PROGRAM*      131/50 L
        O=ILL        1134   PROGRAM*      131/50 L
        O=LE         1166   PROGRAM*      131/50 L
        O=LP         1307   PROGRAM*      131/50 L
        O=LT         1156   PROGRAM*      131/50 L
        O=MIN        1304   PROGRAM*      131/50 L
        O=NE         1146   PROGRAM*      131/50 L
        O=NEQV       1226   PROGRAM*      131/50 L
        O=NOT        1206   PROGRAM*      131/50 L
        O=OCT        1234   PROGRAM*      131/50 L
        O=OR         1172   PROGRAM*      131/50 L
        O=PERIOD     1315   PROGRAM*      131/50 L
        O=PL         1303   PROGRAM*      131/50 L
        O=RP         1310   PROGRAM*      131/50 L
        O=SLASH      1306   PROGRAM*      131/50 L
        O=SQOT       1326   PROGRAM*      131/50 L
        O=STAR       1305   PROGRAM*      131/50 L
        O=TRUE       1212   PROGRAM*      131/50 L
        O=XOR        1202   PROGRAM*      131/50 L
        O==          1312   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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   198
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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           572   PROGRAM*       72/50     95/55 L
        PLR30         575   PROGRAM*       96/50 L
        PLR40         576   PROGRAM*       96/23     96/53 L
        PLR41         602   PROGRAM*       96/57     97/06 L
        PLR42         607   PROGRAM*       97/09     97/20 L
        PLR43         610   PROGRAM*       97/04     97/24 L
        PLR44         611   PROGRAM*       97/07     97/18     97/29 L
        PLR60         616   PROGRAM*       97/53     98/28 L
        PLR70         633   PROGRAM*       97/54     97/55     99/23 L
        PLR80         641   PROGRAM*       99/30     99/41 L
        PWBUF           0   EXTERNAL*       3/02 X  184/21    184/26 S  184/32    184/33
        QOC2         1625   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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   199
        SYMBOLIC REFERENCE TABLE. 
  
        RDC=            0   EXTERNAL*       3/12 X  101/22
        REP.          142   PROGRAM*       70/08 L   93/41     94/08     94/20
        RER          1056   PROGRAM*      128/05 D  136/54    137/20    137/51    138/19    138/53    145/40    146/36
        RIP2         1643   PROGRAM*      154/10    154/11    154/17 L
        RIP3         1644   PROGRAM*      154/20 L  154/30
        RIP4         1650   PROGRAM*      154/20    154/40 L
        RNC           644   PROGRAM*       77/33    100/26 L  100/26 E
        RNC10         671   PROGRAM*      102/03 L  102/06
        RNC11         673   PROGRAM*      101/31    102/03    102/10 L
        RNC3          652   PROGRAM*      101/14 L  101/16
        RNC4          654   PROGRAM*      100/34    101/22 L
        RNC5          656   PROGRAM*      101/20    101/26 L
        RNC6          661   PROGRAM*      101/27    101/35 L
        RNC7          664   PROGRAM*      101/36    101/45 L
        RNC8          666   PROGRAM*      101/41    101/50 L
        RNC9          670   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  182/39
        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          1065   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          2212   PROGRAM*      177/12    179/31    186/12 L
        SQT          1374   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.          137   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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   200
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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            1   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=IDP        677   PROGRAM*      128/10 D  128/35 E
        TF=SQZ        676   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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   201
        SYMBOLIC REFERENCE TABLE. 
  
        TG.IFLL        52                  44/28 D  129/42    132/38    133/36    134/23
                                          129/41    129/47    132/44    134/17
        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
        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  125/01    129/45    131/37    132/36    133/28    134/09    134/21
                                           44/07 D  129/27    129/46    131/38    132/38    133/29    134/10    134/22
                                           44/19 D  129/31    129/47    131/47    132/39    133/30    134/11    134/23
                                           44/29 D  129/32    129/52    131/48    132/40    133/31    134/12    134/24
                                           44/41 D  129/36    131/06    132/29    132/41    133/32    134/13
                                           44/52 D  129/37    131/15    132/30    132/42    133/33    134/14
                                           45/07 D  129/38    131/16    132/31    132/43    133/34    134/15
                                           45/19 D  129/39    131/25    132/32    132/44    133/35    134/17
                                           45/31 D  129/40    131/26    132/33    132/45    133/36    134/18
                                           45/42 D  129/41    131/27    132/34    133/26    133/37    134/19
                                          116/15    129/42    131/36    132/35    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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   202
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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           700   PROGRAM*       76/43    128/03 D  149/12    152/33
        TOK=BBL      1434   PROGRAM*      131/50    137/13 L
        TOK=BBO      1454   PROGRAM*      131/50    138/12 L
        TOK=BBR      1445   PROGRAM*      131/50    137/44 L
        TOK=BBZ      1465   PROGRAM*      131/50    138/46 L
        TOK=BOC      1414   PROGRAM*      134/11    135/48 L
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   203
        SYMBOLIC REFERENCE TABLE. 
  
        TOK=BOH      1422   PROGRAM*      133/29    136/36 L
        TOK=BOL      1475   PROGRAM*      131/50    137/21    139/16 L
        TOK=BOO      1503   PROGRAM*      131/50    140/40 L
        TOK=BOQ      1516   PROGRAM*      132/32    141/31 L
        TOK=BOR      1500   PROGRAM*      131/50    137/52    139/31 L
        TOK=BOX      1523   PROGRAM*      131/50    142/07 L
        TOK=BRL      1442   PROGRAM*      131/50    137/31 L
        TOK=BRO      1463   PROGRAM*      131/50    138/35 L
        TOK=BRR      1452   PROGRAM*      131/50    138/01 L
        TOK=BRZ      1473   PROGRAM*      131/50    139/09 L
        TOK=CAL       744   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      1525   PROGRAM*      131/50    142/28 L
        TOK=CMA      1530   PROGRAM*      131/50    142/45 L
        TOK=COF       746   PROGRAM*      118/31 L  128/27 E  129/52
        TOK=COL      1533   PROGRAM*      131/50    143/23 L
        TOK=CON       772   PROGRAM*      128/13 D  141/04    142/35
        TOK=COS       771   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      1544   PROGRAM*      131/50    140/51    144/39 L
        TOK=ELS       775   PROGRAM*      121/47 L  128/34 E
        TOK=ENT       777   PROGRAM*      122/06 L  129/41    129/47    132/44    134/17
                                          128/34 E  129/42    132/38    133/36    134/23
        TOK=EOC      1546   PROGRAM*      134/18    145/26 L
        TOK=EOH      1556   PROGRAM*      133/31    146/22 L  147/33
        TOK=EOL      1000   PROGRAM*      128/24 D
        TOK=EOO      1566   PROGRAM*      131/26    131/37    146/57 L
        TOK=EOQ      1556   PROGRAM*      132/39    147/33 D
        TOK=EQL      1570   PROGRAM*      131/50    148/19 L
        TOK=GEN      1005   PROGRAM*      122/37 L
        TOK=GN       1010   PROGRAM*      122/50 L  128/28 E  132/33    133/30    134/12    152/16    152/18
        TOK=GO       1020   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       1023   PROGRAM*      123/36 L  129/37    131/25    132/43    134/22
                                          128/28 E  129/46    131/36    133/35
        TOK=HOL      1577   PROGRAM*      133/27    149/06 L  149/08
        TOK=IDP         0   EXTERNAL*       2/28 X  116/07    116/09
        TOK=IFT      1033   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      1604   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      1606   PROGRAM*      132/34    134/13    150/12 L
        TOK=LP       1611   PROGRAM*      131/50    150/44 L
        TOK=MN        722   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      1614   PROGRAM*      129/39    151/13 L
        TOK=ON       1037   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      1617   PROGRAM*      134/15    151/49 L
        TOK=QOC1     1620   PROGRAM*      151/51 L  153/09
        TOK=QOL      1631   PROGRAM*      132/30    134/09    152/30 L
        TOK=QOQ      1633   PROGRAM*      132/36    153/07 L
        TOK=REH      1634   PROGRAM*      133/28    153/24 L  153/41
        TOK=REQ      1634   PROGRAM*      132/31    134/10    153/41 D
        TOK=RP       1637   PROGRAM*      131/50    154/05 L
        TOK=SQT      1652   PROGRAM*      131/50    154/52 L
        TOK=XEQ      1043   PROGRAM*      124/46 L  128/31 E  129/40    131/15    131/47
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   204
        SYMBOLIC REFERENCE TABLE. 
  
        TOM=BOS      1075   PROGRAM*       75/11    129/30 L
        TOM=DQT      1113   PROGRAM*      131/14 L  139/17    139/32    144/42
        TOM=DUM      1074   PROGRAM*      129/26 L  129/27
        TOM=HEX      1115   PROGRAM*      131/24 L  138/55    142/08
        TOM=NXT      1077   PROGRAM*      129/35 L  131/06    131/16    131/27    131/38    131/48
        TOM=OCT      1120   PROGRAM*      131/35 L  138/21    140/41
        TOM=QOC      1400   PROGRAM*      134/12 L  151/50
        TOM=QOQ      1344   PROGRAM*      132/33 L  153/08
        TOM=SQT      1123   PROGRAM*      131/46 L  154/53
        TOM=VAR      1106   PROGRAM*      129/44 L  151/17
        TTB          2223   PROGRAM*       79/44     79/48     80/09     80/20    186/40 L
        T=STMT          0   EXTERNAL*       3/02 X  181/12    181/12 S  182/38
        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.        136   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          2227   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       1227   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
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   205
        SYMBOLIC REFERENCE TABLE. 
  
        '?RP            0                 131/50 D  131/50
        '?SLASH      1135   PROGRAM*      131/50 L  131/50
        '?SQOT          0                 131/50 D  131/50
        '?STAR       1125   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
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCTOK 
  
  
        CCD          1047   PROGRAM*      115/02    126/08 L  128/04
        FW=TCOM       675   PROGRAM*      112/20 L  113/57 S  124/31    126/50    127/31
        RER          1056   PROGRAM*      115/12    126/49 L  128/05
        SER          1065   PROGRAM*      116/03    122/25    127/30 L  128/06
        TF=IDP        677   PROGRAM*      112/46 L  116/04    128/10
        TF=SQZ        676   PROGRAM*      112/43 L  115/43    123/02 S  123/46 S  128/07
        TOK           700   PROGRAM*      113/49 L  128/03
        TOK10         771   PROGRAM*      121/22    121/32 L
        TOK11         772   PROGRAM*      121/35 L
        TOK12        1011   PROGRAM*      122/56 L  123/18
        TOK13        1014   PROGRAM*      122/50    123/09 L
        TOK14        1024   PROGRAM*      123/42 L  124/05
        TOK15        1027   PROGRAM*      123/36    123/53 L
        TOK2          717   PROGRAM*      114/03    115/11 L
        TOK3          727   PROGRAM*      115/45    115/51 L
        TOK4          731   PROGRAM*      115/41    115/48    115/53    115/56 L
        TOK5          735   PROGRAM*      116/05    116/08    116/11 L
        TOK5A         742   PROGRAM*      117/02    117/06 L
        TOK6          752   PROGRAM*      119/42    119/45 L
        TOK7          754   PROGRAM*      120/31 L  120/40    121/01    121/05    121/35
        TOK8          762   PROGRAM*      120/48    121/03 L
        TOK8A         765   PROGRAM*      120/31    121/18 L
        TOK9          766   PROGRAM*      121/12    121/20 L
        TOK9A         770   PROGRAM*      121/23    121/26 L
        TOK=CAL       744   PROGRAM*      117/14 L
        TOK=COF       746   PROGRAM*      118/31 L
        TOK=CON       772   PROGRAM*      121/34 L  128/13
        TOK=COS       771   PROGRAM*      121/31 L  128/12
        TOK=ELS       775   PROGRAM*      121/47 L
        TOK=ENT       777   PROGRAM*      122/06 L
        TOK=EOL      1000   PROGRAM*      115/49    115/54    122/21 L  123/05    123/49    128/24
        TOK=GEN      1005   PROGRAM*      122/37 L
        TOK=GN       1010   PROGRAM*      122/50 L  123/10
        TOK=GO       1020   PROGRAM*      123/25 L  125/01
        TOK=GS       1023   PROGRAM*      123/36 L  123/54
        TOK=IFT      1033   PROGRAM*      124/12 L
        TOK=MN        722   PROGRAM*      115/39 L  121/37    122/06    122/43    123/29    124/19    124/39    128/11
                                          117/14    121/47    122/07    123/04    123/48    124/22    124/46
                                          118/31    121/48    122/37    123/25    124/12    124/30    124/55
        TOK=ON       1037   PROGRAM*      124/30 L
        TOK=RS        736   PROGRAM*      115/16    116/43 L
        TOK=XEQ      1043   PROGRAM*      124/46 L
        XEQA         1046   PROGRAM*      124/49    125/01 L
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/05. 19.59.06.      PAGE   206
        SYMBOLIC REFERENCE TABLE.                                     COMCBUB 
  
                                                  SYMBOL QUALIFIER =  COMCBUB 
  
  
        BUB          1701   PROGRAM*      164/26 L  165/39
        BUB2         1706   PROGRAM*      164/42 L  164/47    164/50
        BUB3         1710   PROGRAM*      164/36    164/49 L  164/56    165/04    165/13    165/23
        BUB4         1711   PROGRAM*      164/38    164/53 L
        BUB5         1717   PROGRAM*      164/44    165/22 L
        BUB6         1720   PROGRAM*      165/01    165/27 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCBUN 
  
  
        BUN          1723   PROGRAM*      168/40 L  169/50
        BUN2         1727   PROGRAM*      168/54 L  169/03
        BUN3         1731   PROGRAM*      168/48    169/02 L  169/15    169/24    169/34
        BUN4         1732   PROGRAM*      168/50    169/06 L
        BUN5         1740   PROGRAM*      168/56    169/33 L
        BUN6         1741   PROGRAM*      169/09    169/11    169/38 L
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      636              IDENT  HEADER 
                        636                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       613 
                                        LITERALS* LOCAL         613        23 
  
  
                                        ENTRY POINTS. 
  
                                        B=HEADE          0+           KW=OVCA         31+           KW=SUBR        113+ 
                                        KW=BLOC          0+           OVCFLG          41+           PPA130         277+ 
                                        KW=FUNC         12+           KW=OVER         42+           PSA            337+ 
                                        KW=PROG         25+           PSF             73+           WSA            565+ 
  
  
                                        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/05. 19.59.15.      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/05. 19.59.15.      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
                          5140000613 +            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  5140000614 +                      SA4    =8AFUNCTION                                             HEADER    101
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE     4
                                                                      FCT 
  
                          0100000130 +            RJ     DCM         DISPLAY COMPILING MESSAGE                   HEADER    102
            22  0100000555 +                      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
                          5140000615 +            SA4    =7APROGRAM                                              HEADER    120
            26  0100000130 +                      RJ     DCM         DISPLAY COMPILING MESSAGE                   HEADER    121
            27  0100000215 +                      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  5130000616 +                      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  5130000617 +                      SA3    =7ROVERLAY                                              F1037F5   359
                          6120000022              SB2    3*CHAR                                                  F1037F5   360
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      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/05. 19.59.15.      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  5140000620 +                      SA4    =7HPROGRAM                                              HEADER    217
                          0100000130 +            RJ     DCM         PROCESS COMPILE MODE + DISPLAY              HEADER    218
           100  0100000215 +                      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
                          5140000621 +            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/05. 19.59.15.      PAGE     7
                                                                      SUB 
  
           115  0100000555 +                      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/05. 19.59.15.      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/05. 19.59.15.      PAGE     9
        SUBROUTINES                                                   DCM 
  
           141  6170000000 X             DCM1     FATAL  E.PN1       SYNTAX ERROR IN ROUTINE NAME                HEADER    297
           142  5140000624 +                      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
           162  0670400162 +                      PL     B7,"BLOWUP"       IF ALREADY IN TABLE                   HEADER    305
                          5130000000 X            SA3    MOD                                                     HEADER    306
           163  5120000622 +                      CLAS=  X2,WB,(NVAR,DEF,ENT,MAT)                                HEADER    307
                          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
           164  20364                             SBIT   X3,MO.TYPP                                              HEADER    312
                     0323000166 +                 PL     X3,DCM5     IF NOT EXPLICITLY TYPED                     FC50731    39
           165  5120000623 +                      CLAS=  X2,WB,(TYP,NVAR,DEF,ENT,MAT)                            HEADER    314
                                                                                                                 FC50353    24
           166  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
           167  11223                             BX2    X2*X3       EXTRACT CHARACTER LENGTH INFORMATION        HEADER    319
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    10
        SUBROUTINES                                                   DCM 
  
                                                  LX2    -MO.CLIFP+WC.CLIFP                                      HEADER    320
                     0100000000 X                 ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                  HEADER    321
           170  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
           171  5110000000 X                      ADDWD  T.ENT                                                   HEADER    325
           172  5140000000 X                      SA4    S=ENTRY                                                 HEADER    326
                          13555                   BX5    0           (2OP) = NIL                                 HEADER    327
                               20454              LX4    TP.ORDP     (1OP) = MAIN ENTRY                          HEADER    328
           173  6130000000 X                      EMIT   V=HDR                                                   HEADER    329
           174  20472                             LX4    -TP.ORDP+XR.TAGP                                        HEADER    330
                     10644                        BX6    X4                                                      HEADER    331
                          7110000004              ADDREF X6,CR.DEF                                               HEADER    332
           176  7160000000 X                      =X6    FEC=IMP                                                 HEADER    364
                          5160000000 X            SA6    STAGE                                                   HEADER    365
           177  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
           200  0400000130 +                      EQ     EXIT.                                                   HEADER    369
                                                                                                                 HEADER    370
                                 624 +   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
           201  0400400201 +             PBM      SUBR               ENTRY/EXIT...                               FC5A145    55
           202  7212777771                        SX1    X2-O.OCT                                                FC5A145    56
                          0311000205 +            NZ     X1,PBM10    IF NOT OCTAL CONSTANT                       FC5A145    57
           203  0100000000 X                      CALL   OCT         CONVERT OCTAL CONSTANT                      FC5A145    58
           204  0400000211 +                      EQ     PBM20                                                   FC5A145    59
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    11
        SUBROUTINES                                                   PBM 
  
                                                                                                                 FC5A145    60
           205  7212777772               PBM10    SX1    X2-O.CONS                                               FC5A145    61
                          6150000022              SB5    18D                                                     FC5A145    62
           206  0311000201 +                      NZ     X1,EXIT.    IF ILLEGAL TOKEN                            FC5A145    63
                          0100000000 X            CALL   DEC         CONVERT DECIMAL CONSTANT                    FC5A145    64
           207  7221777775                        SX2    X1-M.INT                                                FC5A145    65
                          6150000044              SB5    36D                                                     FC5A145    66
           210  0312000201 +                      NZ     X2,EXIT.    IF NOT INTEGER                              FC5A145    67
                                                                                                                 FC5A145    68
                                        **        HERE IF CONSTANT OF THE PROPER TYPE HAS BEEN FOUND.            FC5A145    69
                                                                                                                 FC5A145    70
           211  6150000044               PBM20    SB5    36D                                                     FC5A145    71
                          0336000201 +            MI     X6,EXIT.    IF NEGATIVE CONSTANT                        FC5A145    72
           212  6150000066                        SB5    54D                                                     FC5A145    73
                          74300                   SX3    A0                                                      FC5A145    74
                               37336              IX3    X3-X6                                                   FC5A145    75
           213  0333000201 +                      MI     X3,EXIT.    IF CONSTANT TOO LARGE                       FC5A145    76
                          66500                   =B5    0                                                       FC5A145    77
           214  0400000201 +                      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
           215  0400400215 +             PPA      SUBR   0           ENTRY/EXIT...                               FC5A145    89
           216  0100000122 +                      RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                 F1037F5   395
           217  56240                             SA2    B4                                                      FC5A145    90
                     0302000312 +                 ZR     X2,PPA170   IF ARGLIST OMITTED                          FC5A145    91
                                   0              ERRNZ  O.EOS                                                   FC5A145    92
           220  7212777740                        SX1    X2-O.LP                                                 FC5A145    93
                          0301000222 +            ZR     X1,PPA10    IF LPAREN PRESENT                           FC5A145    94
           221  6170000000 X                      FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                  FC5A145    95
                                                                                                                 FC5A145    96
           222  5110000000 X             PPA10    SA1    IDENT                                                   FC5A231    34
                          5120000625 +            SA2    =6LSTART.                                               FC5A231    35
           223  37112                             IX1    X1-X2                                                   FC5A231    36
                     0301000225 +                 ZR     X1,PPA20    IF SPECIAL FIRST CARD (NO HEADER STATEMENT) FC5A231    37
           224  6170000000 X                      ANSI   E.FD        ** FILE LIST IS NON-ANSI                    FC5A231    38
                                                                                                                 FC5A145    98
                                        **        PROGRAM ARGUMENTS LOOP.                                        FC5A145    99
                                                                                                                 FC5A145   100
           225  56241                    PPA20    =A2    B4+1                                                    FC5A145   101
                     66441                        =B4    B4+1                                                    FC5A145   102
                          7212777766              SX1    X2-O.VAR                                                FC5A145   103
           226  0301000231 +                      ZR     X1,PPA30    IF FILE NAME FOUND                          FC5A145   104
                          0302000000 X            ZR     X2,E.MR1    IF PREMATURE EOS                            FC5A145   105
           227  6170000000 X                      FATAL  E.FD1       ** EXPECTED FILE NAME                       FC5A145   106
           230  43000                             MX0    0                                                       FC5A145   107
                     0400000277 +                 EQ     PPA130                                                  FC5A145   108
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    12
        SUBROUTINES                                                   PPA 
  
                                                                                                                 FC5A145   109
           231  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
           232  5160000000 X                      SA6    FILL.                                                   FC5A145   113
                          7211777766              SX1    X1-O.VAR                                                FC5A145   114
           233  0311000234 +                      NZ     X1,PPA40    IF FILE NAME NOT TOO LONG                   FC5A145   115
                          0100000000 X            CALL   TLV         TRUNCATE LONG VARIABLE                      FC5A145   116
                                                                                                                 FC5A145   117
           234  43001                    PPA40    MX0    1                                                       FC5A145   118
                     12660                        BX6    X6+X0       SET BIT 59 ON FILE NAME                     FC5A145   119
                          0100000000 X            CALL   SSY                                                     FC5A145   120
           235  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
           236  5120000000 X                      SA2    CO.STAT                                                 F1037F5   396
                          7150001003              SX5    BUFL.SM     DEFAULT BUFL (STATIC MODE)                  F1037F5   397
           237  0332000240 +                      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
           240  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
           241  7212777736                        SX1    X2-O.=                                                  FC5A145   131
                          0311000270 +            NZ     X1,PPA120   IF NOT EQUIVALENCED, DEFINE FILE            FC5A145   132
           242  56241                             =A2    B4+1        X1 = EQUIVALENCE ELEMENT                    FC5A145   133
                     66441                        =B4    B4+1                                                    FC5A145   134
                          7212777766              SX1    X2-O.VAR                                                FC5A145   135
           243  0311000252 +                      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
           244  11602                             BX6    X0*X2       EXTRACT FILE NAME                           FC5A145   139
                     5160000000 X                 SA6    FILL.2                                                  FC5A145   140
           245  7211777766                        SX1    X1-O.VAR                                                FC5A145   141
                          0311000247 +            NZ     X1,PPA50    IF FILE NAME NOT TOO LONG                   FC5A145   142
           246  0100000000 X                      CALL   TLV         TRUNCATE LONG VARIABLE                      FC5A145   143
                                                                                                                 FC5A145   144
           247  43001                    PPA50    MX0    1                                                       FC5A145   145
                     12660                        BX6    X6+X0       SET BIT 59                                  FC5A145   146
                          0100000000 X            CALL   SSY                                                     FC5A145   147
           250  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
           251  56010                             =A0    1           INDICATE EQUIVALENCED FILE                  FC5A145   152
                     66441                        =B4    B4+1                                                    FC5A145   153
                          0400000270 +            EQ     PPA120      DEFINE FILE                                 FC5A145   154
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    13
        SUBROUTINES                                                   PPA 
  
                                                                                                                 FC5A145   155
                                        **        HERE TO PROCESS BUFFER LENGTH.                                 FC5A145   156
                                                                                                                 FC5A145   157
           252  7212777760               PPA60    SX1    X2-O.SLASH                                              FC5A145   158
                          0301000262 +            ZR     X1,PPA90    IF NO BUFL                                  FC5A145   159
           253  5100360000                        SA0    MAX.BUFL                                                FC5A145   160
                          0100000201 +            RJ     PBM         PROCESS BUFL                                FC5A145   161
           254  0450000257 +                      ZR     B5,PPA80    IF NO ERROR                                 FC5A145   162
                          5110000335 +            SA1    PPABE                                                   FC5A145   163
           255  22151                             LX1    X1,B5                                                   FC5A145   164
                     63510                        SB5    X1          B5 = ADDRESS OF DIAGNOSTIC                  FC5A145   165
                          43000                   MX0    0                                                       FC5A145   166
           256  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
           257  0306000260 +             PPA80    ZR     X6,PPA85    IF BUFL=0 SPECIFIED                         F1037F5   402
                          7266000003              SX6    X6+BUFL.ADD ADD IN DEFAULT ADDENDUM                     F1037F5   403
           260  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
           261  7212777760                        SX1    X2-O.SLASH                                              FC5A145   178
                          0311000270 +            NZ     X1,PPA120   IF NO MRL, DEFINE FILE                      FC5A145   179
                                                                                                                 FC5A145   180
                                        **        HERE TO PROCESS MRL, (B4) _ O.SLASH TOKEN.                     FC5A145   181
                                                                                                                 FC5A145   182
           262  56241                    PPA90    =A2    B4+1        X2 = PRESUMED MRL                           FC5A145   183
                     66441                        =B4    B4+1                                                    FC5A145   184
                          5100377777              SA0    MAX.RECL                                                FC5A145   185
           263  0100000201 +                      RJ     PBM         PROCESS MRL                                 FC5A145   186
           264  0450000267 +                      ZR     B5,PPA110   IF NO ERROR                                 FC5A145   187
                          5110000336 +            SA1    PPAME                                                   FC5A145   188
           265  22151                             LX1    X1,B5                                                   FC5A145   189
                     63510                        SB5    X1          B5 = ADDRESS OF DIAGNOSTIC                  FC5A145   190
                          43000                   MX0    0                                                       FC5A145   191
           266  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
           267  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/05. 19.59.15.      PAGE    14
        SUBROUTINES                                                   PPA 
  
                                                                                                                 FC5A145   210
           270  10644                    PPA120   BX6    X4                                                      FC5A145   211
                     7120000120                   CLAS=  X2,WB,(NVAR,CGS)                                        FC5A145   212
                               74700              SX7    A0                                                      FC5A145   213
           271  20766                             LX7    WB.EQUP                                                 FC5A145   214
                     12772                        BX7    X7+X2                                                   FC5A145   215
                          10255                   BX2    X5                                                      FC5A145   216
           272  5110000000 X                      ADSYM  T.SYM                                                   FC5A145   217
           273  5110000000 X                      SA1    NARGS                                                   FC5A145   218
                          73611                   =X6    X1+1                                                    FC5A145   219
                               54610              SA6    A1          UPDATE FILE COUNTER                         FC5A145   220
           274  43500                             MX5    0                                                       FC5A145   221
                     76470                        SX4    B7                                                      FC5A145   222
                          20424                   LX4    TP.BIASP                                                FC5A145   223
           275  6130000000 X                      EMIT   V=FILE                                                  FC5A145   224
           276  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
           277                           PPA130   BSSENT 0                                                       FC5A145   232
           277  56140                             SA1    B4                                                      FC5A145   233
                     7221777735                   SX2    X1-O.COMMA                                              FC5A145   234
           300  0302000225 +                      ZR     X2,PPA20    IF COMMA, CONTINUE                          FC5A145   235
                          7221777777              SX2    X1-O.EOS                                                FC5A145   236
           301  0302000000 X                      ZR     X2,E.MR1    ** PREMATURE EOS                            FC5A145   237
                          7221777737              SX2    X1-O.RP                                                 FC5A145   238
           302  0302000305 +                      ZR     X2,PPA150   IF RP                                       FC5A145   239
                          0300000304 +            ZR     X0,PPA140   IF SUPPRESS ERROR                           FC5A145   240
           303  6170000000 X                      FATAL  E.FD10      ** EXPECTED RP OR COMMA                     FC5A145   241
                                                                                                                 FC5A145   242
           304  66441                    PPA140   =B4    B4+1                                                    FC5A145   243
                     0400000277 +                 EQ     PPA130                                                  FC5A145   244
                                                                                                                 FC5A145   245
                                        **        RIGHT PAREN FOUND. CHECK FOR EOS, AND TOO MANY FILES.          FC5A145   246
                                                                                                                 FC5A145   247
           305  56141                    PPA150   =A1    B4+1                                                    FC5A145   248
                     66441                        =B4    B4+1                                                    FC5A145   249
                          0301000307 +            ZR     X1,PPA160   IF EOS                                      FC5A145   250
                                   0              ERRNZ  O.EOS                                                   FC5A145   251
           306  6170000000 X                      WARN   E.FD11      ** EXPECTED EOS                             FC5A145   252
                                                                                                                 FC5A145   253
           307  5140000000 X             PPA160   SA4    NARGS                                                   FC5A145   254
                          6224777716              SB2    X4-MAX.PARG                                             FC5A145   255
           310  0602000312 +                      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
           312  13444                    PPA170   BX4    0                                                       FC5A145   262
                     43500                        MX5    0                                                       HEADER    590
                          6130000000 X            EMIT   V=PLIM      INDICATE NO MORE FILES                      HEADER    591
           314  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/05. 19.59.15.      PAGE    15
        SUBROUTINES                                                   PPA 
  
           315  5130000000 X                      SA3    CO.DBPM                                                 HEADER    594
                          5110000330 +            SA1    S.Q5PMD                                                 HEADER    595
           316  0313000320 +                      NZ     X3,PPA180   IF *POST-MORTEM DUMP* SELECTED              FC5A145   263
                          5120000000 X            SA2    CO.DBER                                                 HEADER    597
           317  54111                             SA1    A1+B1       Q5RPV                                       HEADER    598
                     0312000320 +                 NZ     X2,PPA180   IF *ERROR RECOVERY* SELECTED                FC5A145   264
                               54111              SA1    A1+B1       Q5NTRY                                      HEADER    600
           320  0100000000 X             PPA180   TAGSEX  A1         ENTER INITIALIZER IN SYMTAB                 FC5A145   265
           321  5140000333 +                      SA4    PPAB                                                    HEADER    602
                          22700                   LX7    X0                                                      HEADER    603
           322  5170000000 X                      SA7    S=INIT                                                  HEADER    604
                          5130000626 +            CLAS=  X3,WB,(CGS,DEF,VAR,MAT)                                 HEADER    605
           323  0100000000 X                      CALL   TSY         TAG SYMBOL (FILVEC.)                        HEADER    606
           324  5150000000 X                      SA5    NARGS                                                   HEADER    607
                          0305000215 +            ZR     X5,EXIT.    IF NO FILE-NAME ARGUMENTS                   HEADER    608
           325  5140000334 +                      SA4    PPAC                                                    HEADER    609
                          5130000626 +            CLAS=  X3,WB,(CGS,DEF,VAR,MAT)                                 HEADER    610
           326  0100000000 X                      CALL   TSY         TAG SYMBOL (UPW.)                           HEADER    611
           327  0400000215 +                      EQ     PPAX                                                    HEADER    612
                                                                                                                 HEADER    613
           330  21402015045700000000     S.Q5PMD  =XLIB  Q5PMD                                                   HEADER    614
           331  21402220265700000000              =XLIB  Q5RPV                                                   HEADER    615
           332  21401624223157000000              =XLIB  Q5NTRY                                                  HEADER    616
                                                                                                                 HEADER    617
           333  06111426050357000000 X   PPAB     CON    =XS=FILES+7LFILVEC.                                     HEADER    618
           334  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
           335  000000 X                 PPABE    VFD    18/E.FD4,18/E.FD5,18/E.FD6,6/0                          FC5A145   267
                      000000 X
                            000000 X
                                  00
           336  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/05. 19.59.15.      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
           337  0400400337 +             PSA      SUBR   =           ENTRY/EXIT...                               HEADER    648
           340  73640                             SX6    X4                                                      HEADER    649
                     5140000000 X                 SA4    S=ENTRY                                                 FC50512     7
                               37464              IX4    X6-X4                                                   FC50512     8
           341  5160000000 X                      SA6    PSAA        (PSAA) = SYMORD OF THIS ENTRY POINT         HEADER    650
                                                                                                                 FC50496    10
                                         .T       IFEQ   TEST,ON                                                 HEADER    651
                          5120000000 X            SA2    T=ARG                                                   HEADER    652
           342  0312400342 +                      NZ     X2,"BLOWUP" IF GARBAGE IN ARG TABLE                     HEADER    653
                                         .T       ENDIF                                                          HEADER    654
                                                                                                                 HEADER    655
                          0304000351 +            ZR     X4,PSA1     IF MAIN ENTRY                               FC50512     9
           343  5110000000 X                      SA1    MOD                                                     FC50512    10
                          43471                   MX4    -MO.MODEL                                               FC50512    11
                               15414              BX4    -X4*X1      EXTRACT MODE (IF PRESENT)                   FC50512    12
           344  20160                             SBIT   X1,MO.FUNP                                              FC50512    13
                     0321000351 +                 PL     X1,PSA1     IF NOT FUNCTION                             FC50512    14
                               20152              SBIT   X1,MO.CTYPP/MO.FUNP                                     FC50512    15
           345  7244777771                        SX4    X4-M.CHAR                                               FC50512    16
                          0314000351 +            NZ     X4,PSA1     IF NOT CHARACTER                            FC50512    17
           346  0321000351 +                      PL     X1,PSA1     IF NOT ASSUMED SIZE                         FC50512    18
                          5110000000 X            SA1    S=VALUE                                                 FC50512    19
           347  7261000006                        SX6    X1+M.CHAR   ORDINAL OF VALUH.                           FC50512    20
                          5110000000 X            ADDWD  T.ARG       ENTRY FOR T.ENTP                            FC50512    21
                                                                                                                 FC50512    22
           351  0100000432 +             PSA1     RJ     SAL         SCAN ARGUMENT LIST                          FC50512    23
           352  0100000122 +                      RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                 F1037F5   405
           353  5120000000 X                      SA2    T=ARG                                                   HEADER    657
                          7160000764              SX6    MAX.SARG                                                HEADER    658
           354  10722                             BX7    X2                                                      HEADER    659
                     37362                        IX3    X6-X2                                                   HEADER    660
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    17
        SUBROUTINES                                                   PSA 
  
                          5170000001 X            SA7    PSAB                                                    HEADER    661
           355  0302000430 +                      ZR     X2,PSA50    IF NO NON-LABEL ARGUMENTS                   FC50496    11
                          0323000360 +            PL     X3,PSA5     IF THIS ARGLIST NOT TOO LONG                FC50496    12
           356  10266                             BX2    X6                                                      HEADER    664
                     54620                        SHRINK A2,X6                                                   HEADER    665
                          6170000000 X            FATAL  E.AG00      ** TOO MANY DUMMY ARGS                      HEADER    666
                                                                                                                 HEADER    667
           360  5110000000 X             PSA5     SA1    T.ARG                                                   FC50496    13
                          53310                   SA3    X1          FETCH FIRST ENTRY                           HEADER    669
                               43600              MX6    0                                                       HEADER    670
           361  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
           362  6170000055                        SB7    60-EF.ORDL                                              HEADER    674
                                   0              ERRNZ  4*EF.ORDL-60                                            HEADER    675
                                                                                                                 FC50496    14
           363  22273                    PSA10    LX2    X3,B7                                                   FC50496    15
                     6177777760                   SB7    B7-EF.ORDL                                              HEADER    677
                               12662              BX6    X6+X2       MERGE THIS ENTRY                            HEADER    678
           364  67331                             SB3    B3-B1                                                   HEADER    679
                     0670000366 +                 PL     B7,PSA15    IF WORD NOT FULL                            FC50496    16
                               54661              SA6    A6+B1                                                   HEADER    681
           365  6170000055                        SB7    60-EF.ORDL                                              HEADER    682
                          46000                   NO                                                             HEADER    683
                               43600              MX6    0                                                       HEADER    684
                                                                                                                 FC50496    17
           366  54331                    PSA15    SA3    A3+B1                                                   FC50496    18
                     0703000363 +                 GT     B3,PSA10    IF MORE FPS IN LOCAL ARGUMENT LIST          FC50496    19
                               54661              SA6    A6+B1       STORE PARTIAL WORD                          HEADER    687
           367  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
           370  5120000000 X                      SA2    T=ENTP                                                  HEADER    693
                          5110000000 X            SA1    T.ENTP                                                  HEADER    694
           371  0302000407 +                      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
           372  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
           373  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
           374  73111                             =X1    X1+1        ALLOW FOR THE MANDATORY NULL ENTRY          FC50496    40
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    18
        SUBROUTINES                                                   PSA 
  
                     43072                        MX0    -2                                                      FC50496    41
                          15010                   BX0    -X0*X1      FOR MOD4 ARITHMETIC                         FC50496    42
                               21102              AX1    2                                                       FC50496    43
           375  63610                             SB6    X1                                                      FC50496    44
                     0300000376 +                 ZR     X0,PSA21    IF PARCELED EXACTLY                         FC50496    45
                               66661              =B6    B6+1                                                    FC50496    46
                                                                                                                 FC50496    47
           376  0563000404 +             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
           377  66460                             SB4    B6          SEARCH LOOP COUNTER                         FC50496    51
                                                                                                                 FC50496    52
           400  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
           401  0310000404 +                      NZ     X0,PSA27    IF NOT A MATCH                              FC50496    57
                          0540000400 +            NZ     B4,PSA23    IF MORE TO CHECK                            FC50496    58
                                                                                                                 FC50496    59
                                        *         HAVE AN EXACT MATCH.  NOTE MATCH AND EXIT.                     FC50496    60
                                                                                                                 FC50496    61
           402  5150000000 X                      SA5    T.ENTP                                                  FC50496    62
                          7117777776              SX1    B7-1        POINT TO HEADER                             FC50496    63
           403  37515                             IX5    X1-X5       (X5) = EPIX                                 FC50496    64
                     0400000423 +                 EQ     PSA40       PROCESS ENTRY SYMBOL                        FC50496    65
                                                                                                                 FC50496    66
           404  67556                    PSA27    SB5    B5-B6       DECREMENT T.ENTP COUNT                      FC50496    67
                     66776                        SB7    B7+B6       INCREMENT T.ENTP POINTER                    FC50496    68
                          0450000406 +            ZR     B5,PSA29    IF FINISHED, NO MATCH                       FC50496    69
           405  0400000373 +                      EQ     PSA20       LOOP FOR NEXT ENTRY                         FC50496    70
                                                                                                                 FC50496    71
           406  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
           407  5130000000 X             PSA30    SA3    N.CPL                                                   FC50496    73
                          5120000001 X            SA2    PSAB        NARGS = (PSAB)                              HEADER    710
           410  5110000000 X                      SA1    T.ARG                                                   HEADER    711
                          73031                   SX0    X3+B1       NCZ = (N.CPL) + 1       */ TERMINATOR       HEADER    712
                                                  LX3    EH.BIASP                                                HEADER    713
           411  5140000000 X                      SA4    T=ARG                                                   HEADER    714
                          10633                   BX6    X3          (EH.BIAS) = (N.CPL)                         HEADER    715
           412  5150000000 X                      SA5    MOD                                                     FC50962     8
                          43771                   MX7    -MO.MODEL                                               FC50962     9
                               15757              BX7    -X7*X5      EXTRACT MODE (IF PRESENT)                   FC50962    10
           413  20560                             SBIT   X5,MO.FUNP                                              FC50962    11
                     0325000416 +                 PL     X5,PSA33    IF NOT FUNCTION                             FC50962    12
                               20552              SBIT   X5,MO.CTYPP/MO.FUNP                                     FC50962    13
           414  7277777771                        SX7    X7-M.CHAR                                               FC50962    14
                          0317000416 +            NZ     X7,PSA33    IF NOT CHARACTER                            FC50962    15
           415  0325000416 +                      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/05. 19.59.15.      PAGE    19
        SUBROUTINES                                                   PSA 
  
           416  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
           417  36702                             IX7    X0+X2       (N.CPL) = NARGS + NCZ                       HEADER    720
                     54730                        SA7    A3                                                      HEADER    721
                          5110000000 X            ALLOC  T.ENTP,X4                                               HEADER    722
           421  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
           422  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
           423  5110000000 X             PSA40    SA1    PSAA                                                    FC50496    74
                          5120000000 X            SA2    T.SYM                                                   HEADER    734
           424  0301000430 +                      ZR     X1,PSA50    IF ERROR IN ENTRY NAME                      FC50496    75
                          73551                   SX5    X5+B1                                                   HEADER    736
                               22711              LX7    X1,B1                                                   HEADER    737
           425  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
           426  12635                             BX6    X3+X5                                                   HEADER    743
                     54630                        SA6    A3                                                      HEADER    744
                                                                                                                 FC50496    76
                                         .T       IFEQ   TEST,ON                                                 HEADER    745
                          43057                   MX0    -WB.PNTL                                                HEADER    746
                               20057              LX0    WB.PNTP                                                 HEADER    747
           427  15730                             BX7    -X0*X3      (X7) = PREVIOUS POINTER                     HEADER    748
                     0317400427 +                 NZ     X7,"BLOWUP" IF PREVIOUS GARBAGE IN POINTER FIELD        HEADER    749
                                         .T       ENDIF                                                          HEADER    750
                                                                                                                 HEADER    751
           430  13666                    PSA50    SHRINK T=ARG                                                   FC50496    77
           431  0400000337 +                      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/05. 19.59.15.      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
           432  0400400432 +             SAL      SUBR   0           ENTRY/EXIT...                               HEADER    775
           433  56140                             SA1    B4                                                      HEADER    776
                     0301000442 +                 ZR     X1,SAL21    IF EOS -- ARGLIST OMITTED                   HEADER    777
                                   0              ERRNZ  O.EOS                                                   HEADER    778
           434  7221777740                        SX2    X1-O.LP                                                 HEADER    779
                          0312000440 +            NZ     X2,SAL23    IF NO LEFT PAREN                            HEADER    780
           435  56141                             SA1    B4+B1                                                   HEADER    781
                     66441                        SB4    B4+B1                                                   HEADER    782
                          6271777737              SB7    X1-O.RP                                                 HEADER    783
           436  0301000000 X                      ZR     X1,E.MR1    IF EOS INSTEAD OF ARGUMENT                  HEADER    784
                          0570000450 +            NZ     B7,SAL30    IF NOT EXPLICIT NULL ARGUMENT LIST          HEADER    785
           437  6144000001                        SB4    B4+1                                                    HEADER    786
                          0400000552 +            EQ     SAL58                                                   HEADER    787
                                                                                                                 HEADER    788
           440  6170000000 X             SAL23    FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                  HEADER    789
           441  0400000432 +                      EQ     EXIT.                                                   HEADER    790
                                                                                                                 HEADER    791
                                        *         OMITTED ARGUMENT LIST.                                         HEADER    792
                                                                                                                 HEADER    793
           442  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
           443  6120000000 X                      SB2    KW=ENTR                                                 FC5A262    29
                          67772                   SB7    B7-B2                                                   FC5A262    30
           444  0470000432 +                      ZR     B7,EXIT.    IF ENTRY                                    FC5A262    31
                          5110000000 X            SA1    MOD                                                     FC5A262    32
           445  20160                             HX1    MO.FUN                                                  HEADER    795
                     0321000432 +                 PL     X1,EXIT.    IF NOT A FUNCTION                           HEADER    796
           446  6170000000 X                      FATAL  E.AG01                                                  FC5A262    33
           447  0400000432 +                      EQ     EXIT.                                                   HEADER    798
                                                                                                                 HEADER    799
                                                                                                                 HEADER    800
                                        *         LOOP THRU ARGUMENT LIST.                                       HEADER    801
                                                                                                                 HEADER    802
           450  56140                    SAL30    SA1    B4          FETCH NEXT TOKEN                            HEADER    803
                     43052                        MX0    TB.TOCL                                                 HEADER    804
                          6271777766              SB7    X1-O.VAR                                                HEADER    805
           451  11601                             BX6    X0*X1                                                   HEADER    806
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    21
        SUBROUTINES                                                   SAL 
  
                     5160000000 X                 SA6    FILL.                                                   HEADER    807
           452  0470000461 +                      ZR     B7,SAL34    IF LETTER                                   HEADER    808
                          6221777761              SB2    X1-O.STAR                                               HEADER    809
           453  6170000000 X                      SB7    E.AG04      ** FILL. MUST BE LETTER OR STAR             HEADER    810
                          0520000457 +            NZ     B2,SAL32    IF NOT LABEL PARAMETER                      HEADER    811
           454  5110000000 X                      SA1    MOD                                                     HEADER    812
                          20161                   HX1    MO.SUB                                                  HEADER    813
                               76610              =X6    1                                                       HEADER    814
           455  5160000000 X                      SA6    =XN.ARP     INDICATE ALTERNATE RETURNS CODE NEC.        HEADER    815
                          0331000546 +            MI     X1,SAL52    IF SUBROUTINE -- SKIP OVER LABEL PARM       HEADER    816
           456  6170000000 X                      SB7    E.AG11      ** LABEL PARAMETER IN FUNCTION              HEADER    817
                                                                                                                 FC50387     5
           457  0301000000 X             SAL32    ZR     X1,E.MR1    CHECK FOR PREMATURE EOS                     FC50667     7
                          0100000000 X            FATAL  B7                                                      FC50667     8
           460  0400000546 +                      EQ     SAL52                                                   HEADER    819
                                                                                                                 HEADER    820
                                        *         INSURE SYMBOL IN TABLE, AND MARK IT AS FORMAL PARAMETER.       HEADER    821
                                                                                                                 HEADER    822
           461  0100000000 X             SAL34    CALL   SSY         SCAN SYMBOL TABLE                           HEADER    823
           462  73400                             SX4    X0                                                      HEADER    824
                     0770000471 +                 MI     B7,SAL36    IF NOT PREVIOUSLY ENCOUNTERED               HEADER    825
                               20253              HX2    WB.FP                                                   HEADER    826
           463  0332000510 +                      MI     X2,SAL40    IF ALREADY KNOWN AS FP                      HEADER    827
                          5130000627 +            CLAS=  X3,WB,(EQV,COM,PARM,NLST,SAVE,ENT)                      FC5A192    40
           464  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
           465  20222                             LX2    1+WA.NFPP                                               FC5A192    45
                     11121                        BX1    X2*X1       EXTRACT WA.NFP                              FC5A192    46
                          12331                   BX3    X3+X1                                                   FC5A192    47
           466  0303000474 +                      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
           470  0400000542 +                      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
           471  0100000000 X             SAL36    CALL   STY         SET NATURAL TYPE                            HEADER    836
           472  10711                             BX7    X1          SET (WB.MODE)                               HEADER    837
                     5110000000 X                 ADSYM  T.SYM                                                   HEADER    838
                                                                                                                 FC50387     6
           474  7130200000               SAL38    CLAS=  X3,WB,(FP)                                              HEADER    839
                          5140000000 X            SA4    CO.AL                                                   FC5A444    80
           475  0324000506 +                      PL     X4,SAL39    IF AUTOMATIC LEVEL OFF                      FC5A444    81
                          5140000630 +            CLAS=  X4,WB,(EXT,LEV)                                         FC5A444    82
           476  11446                             BX4    X4*X6                                                   FC5A444    83
                     0314000506 +                 NZ     X4,SAL39    IF ALREADY EXT OR LEVELED                   FC5A444    84
           477  5130000631 +                      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/05. 19.59.15.      PAGE    22
        SUBROUTINES                                                   SAL 
  
           500  7170000000 X                      SX7    FEC=STF                                                 FC5A444    87
                          37447                   IX4    X4-X7                                                   FC5A444    88
           501  0334000502 +                      MI     X4,SAL38A   IF STILL IN DECLARATIVE OR EARLIER          FC5A444    89
                          5130000632 +            CLAS=  X3,WB,(FP,LEV)                                          FC5A444    90
                                                                                                                 FC5A444    91
           502  10733                    SAL38A   BX7    X3                                                      FC5A444    92
                     76310                        =X3    .DAL                                                    FC5A444    93
                                  -1              ERRPL  .DAL-2                                                  FC5A444    94
                          0303000504 +            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
           503  43301                             CLAS=  X3,WB,(LCM) SET LCM BIT                                 FC5A444   100
                                                                                                                 FC5A444   101
           504  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
           505  5170000000 X                      SA7    LEVEL2      FORCES CLEARING OF WB.AL AT END OF DECL     FC5A444   105
                                                                                                                 FC5A444   106
           506  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
           507  54620                             SA6    A2                                                      HEADER    841
                                                                                                                 HEADER    842
                                        *         SYMBOL NOW IN SYMTAB.  ADD TO (T.ARG).                         HEADER    843
                                        *                (X0) = SYMORD                                           HEADER    844
                                                                                                                 HEADER    845
           510  73600                    SAL40    SX6    X0                                                      HEADER    846
                     10400                        BX4    X0                                                      HEADER    847
                          5110000000 X            SCAN   T.ARG,SCT   CHECK FOR DUPLICATE APPEARANCE              HEADER    848
           512  0770000515 +                      MI     B7,SAL42    IF NOT ALREADY IN THIS ARGLIST              HEADER    849
                          6170000000 X            FATAL  E.AG03                                                  HEADER    850
           514  0400000542 +                      EQ     SAL50                                                   HEADER    851
                                                                                                                 HEADER    852
           515  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
           516  43622                    SAL44    MX6    FP.PNTL                                                 FC50010     6
                     20622                        LX6    FP.PNTL+FP.PNTP                                         FC50010     7
                          5160000000 X            SA6    SCSA        MATCH SYMORD ONLY                           FC50010     8
           517  22604                             LX6    X4                                                      HEADER    861
                                                  LX6    FP.PNTP                                                 HEADER    862
                     5110000000 X                 SCAN   T.FPI,SCS                                               HEADER    863
           521  0670000542 +                      PL     B7,SAL50    IF ALREADY PARAMETER                        HEADER    864
                          0100000000 X            ADDWD  A1                                                      HEADER    865
           522  5110000000 X                      SA1    T.SYM                                                   HEADER    866
                          22014                   LX0    X4,B1                                                   HEADER    867
                               10722              BX7    X2          (N.FP) = (T=FPI)                            HEADER    868
           523  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
           524  5170000000 X                      SA7    N.FP                                                    HEADER    874
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    23
        SUBROUTINES                                                   SAL 
  
                          43001                   CLAS=  X0,WB,(VDS)                                             HEADER    875
           525  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
           526  0321000532 +                      PL     X1,SAL47    IF NOT VARDIM ARRAY OR SUBSCRIPT            FC50558    17
                          20120                   SBIT   X1,WB.ARYP/WB.VDSP                                      HEADER    881
           527  0331000532 +                      MI     X1,SAL47    IF ARRAY, NOTHING TO DO                     FC50558    18
                          5110000000 X            SA1    T.FPI                                                   HEADER    883
           530  6277777776                        SB7    X7-1                                                    HEADER    884
                          53117                   SA1    X1+B7       FETCH T.FPI ENTRY                           HEADER    885
                               43601              CLAS=  X6,FP,(VDS)                                             HEADER    886
           531  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
           532  5110000000 X             SAL47    SA1    PSAA                                                    FC50558    22
                          5120000000 X            SA2    S=ENTRY                                                 FC50558    23
           533  37212                             IX2    X1-X2                                                   FC50558    24
                     22104                        LX1    X4          FORMAL PARAMETER ORDINAL                    FC50558    25
                          0302000542 +            ZR     X2,SAL50    IF MAIN ENTRY POINT                         FC50558    26
           534  10644                             BX6    X4                                                      FC50558    27
                     5160000002 X                 SA6    SALA        SAVE ACROSS ACV CALL                        FC50558    28
           535  0100000000 X                      CALL   ACV         PROCESS ASSUMED LENGTH CHARACTER            FC50558    29
           536  5140000002 X                      SA4    SALA        RESTORE                                     FC50558    30
                          5110000000 X            SA1    T.VDI                                                   FC50558    31
           537  5120000000 X                      SA2    T=VDI                                                   FC50558    32
                          0302000542 +            ZR     X2,SAL50    IF NO VARDIM                                FC50558    33
           540  6272777776                        SB7    X2-1                                                    FC50558    34
                          53217                   SA2    X1+B7       LATEST VDI ENTRY                            FC50558    35
                               43122              MX1    VD.INDL                                                 FC50558    36
           541  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
           542  73640                    SAL50    SX6    X4          CONSTRUCT XREF ORD                          HEADER    892
                     20652                        LX6    XR.TAGP                                                 HEADER    893
                          7110000055              ADDREF X6,CR.REF                                               FC50387     7
           544  56341                             =A3    B4+1                                                    HEADER    896
                     6273777766                   SB7    X3-O.VAR                                                HEADER    897
           545  0570000546 +                      NZ     B7,SAL52    IF NOT LONG NAME                            HEADER    898
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               HEADER    899
                                                                                                                 FC50387     8
           546  56341                    SAL52    SA3    B4+B1                                                   HEADER    900
                     0303000000 X                 ZR     X3,E.MR1    IF EOS -- ERROR                             HEADER    901
           547  7223777735                        SX2    X3-O.COMMA                                              HEADER    902
                          64431                   SB4    A3+B1       B4 = B4 + 2                                 HEADER    903
           550  0302000450 +                      ZR     X2,SAL30    IF *,* LOOP ON NEXT ARGUMENT                HEADER    904
                          7223777737              SX2    X3-O.RP                                                 HEADER    905
           551  0312000000 X                      NZ     X2,E.AG08   IF NO *)* - ERROR                           HEADER    906
                                                                                                                 HEADER    907
           552  56240                    SAL58    SA2    B4                                                      HEADER    908
                     0302000432 +                 ZR     X2,EXIT.    IF *EOS*, STATEMENT ENDED CLEANLY           HEADER    909
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    24
        SUBROUTINES                                                   SAL 
  
                                   0              ERRNZ  O.EOS                                                   HEADER    910
           553  6170000000 X                      WARN   E.AG02                                                  HEADER    911
           554  0400000432 +                      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
           555  0400400555 +             TSB      SUBR   0           ENTRY/EXIT...                               HEADER    923
           556  5140000000 X                      SA4    S=ENTRY                                                 HEADER    924
                          0100000337 +            RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                HEADER    925
                                                                                                                 HEADER    926
           557  13444                             BX4    0                                                       HEADER    927
                     43500                        MX5    0                                                       HEADER    928
                          6130000000 X            EMIT   V=SEX       START OF EXECUTABLES                        HEADER    929
                                                                                                                 HEADER    930
           561  5140000564 +                      SA4    TSAA                                                    HEADER    931
                          7130000060              CLAS=  X3,WB,(CGS,VAR)                                         HEADER    932
           562  0100000000 X                      CALL   TSY         TAG SYMBOL (EXIT.)                          HEADER    933
           563  0400000555 +                      EQ     EXIT.                                                   HEADER    934
                                                                                                                 HEADER    935
           564  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
           565  0400400565 +             WSA      SUBR   =           ENTRY/EXIT...                               HEADER    946
           566  5140000606 +                      SA4    WSAA                                                    HEADER    947
                          7130002260              CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    948
           567  0100000000 X                      CALL   TSY         TAG SYMBOL (SUB.)                           HEADER    949
           570  54441                             SA4    A4+B1                                                   HEADER    950
                     7130002260                   CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    951
           571  0100000000 X                      CALL   TSY         TAG SYMBOL (SUBI.)                          HEADER    952
           572  54441                             SA4    A4+B1                                                   HEADER    953
                     7130002260                   CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    954
           573  0100000000 X                      CALL   TSY         TAG SYMBOL (SUB0I.)                         HEADER    955
           574  5110000633 +                      TAGSEX (=L/SP5./)  SUBSTITUTE PARAMETER ADDRESSES              HEADER    956
           575  10600                             BX6    X0                                                      HEADER    957
                     5160000000 X                 SA6    S=SPA                                                   HEADER    958
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    25
        SUBROUTINES                                                   WSA 
  
           576  5110000634 +                      TAGSEX (=L/SLI./)                                              HEADER    959
           577  10600                             BX6    X0                                                      HEADER    960
                     5160000000 X                 SA6    S=SLI                                                   HEADER    961
                                                                                                                 HEADER    962
                               54441              SA4    A4+B1                                                   HEADER    963
           600  5110000000 X                      SA1    N.EPL                                                   HEADER    964
                          0301000605 +            ZR     X1,WSA40    IF APL COPY NOT NEEDED                      HEADER    965
           601  7130002260                        CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    966
                          0100000000 X            CALL   TSY         TAG SYMBOL (CP.)                            HEADER    967
           602  5110000635 +                      TAGSEX (=L/CPL./)                                              HEADER    968
           603  54441                             SA4    A4+B1                                                   HEADER    969
                     10600                        BX6    X0                                                      HEADER    970
                          5160000000 X            SA6    S=CPL                                                   HEADER    971
           604  7130002260                        CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    972
                          0100000000 X            CALL   TSY         TAG SYMBOL (GPL.)                           HEADER    973
           605  0400000565 +             WSA40    EQ     EXIT.                                                   HEADER    974
                                                                                                                 HEADER    975
           606  23250257000000000000 X   WSAA     VFD    42/4LSUB.,18/S=SUB                                      HEADER    976
           607  23250211570000000000 X            VFD    42/5LSUBI.,18/S=SUBI                                    HEADER    977
           610  23250233115700000000 X            VFD    42/6LSUB0I.,18/S=SUB0I                                  HEADER    978
                                                                                                                 HEADER    979
           611  03205700000000000000 X            VFD    42/3LCP.,18/S=CP                                        HEADER    980
           612  07201457000000000000 X            VFD    42/4LGPL.,18/S=GPL                                      HEADER    981
  
  
  
  
                                                  LIST   D                                                       HEADER    983
  
                                        CONTENT OF LITERALS BLOCK.
  
           613  55021417031304012401     BLOCKDATA
           614  55550625160324111716      FUNCTION
           615  55555520221707220115       PROGRAM
           616  00000000001726030120         OVCAP
           617  00000017260522140131       OVERLAY
           620  20221707220115555555    PROGRAM 
           621  23250222172524111605    SUBROUTINE
           622  00000000010000020300        A  BC 
           623  00000000010200020300        AB BC 
           624  30303047474747000000    XXX**** 
           625  23240122245700000000    START.
           626  00000000010000000260        A   B#
           627  00000000006000121400         # JL 
           630  00000000001000040000         H D
           631  00000000001004200000         HDP
           632  00000000001000200000         H P
           633  23204057000000000000    SP5.
           634  23141157000000000000    SLI.
           635  03201457000000000000    CPL.
  
           636                                    END                                                            HEADER    984
  
                             74500B CM  STORAGE USED             5367 STATEMENTS     1565 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.004 SECONDS         935 REFERENCES
  
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      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          624   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          166   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/05. 19.59.15.      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/05. 19.59.15.      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           201   PROGRAM*       10/53 L   13/07     13/34
        PBM10         205   PROGRAM*       10/55     11/02 L
        PBM20         211   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           215   PROGRAM*        4/24      6/22     11/33 L
        PPAB          333   PROGRAM*       15/09     15/25 L
        PPABE         335   PROGRAM*       13/09     15/30 L
        PPAC          334   PROGRAM*       15/16     15/26 L
        PPAE            0   EXTERNAL*      15/27 D
        PPAF            1   EXTERNAL*      15/28 D
        PPAME         336   PROGRAM*       13/36     15/34 L
        PPA10         222   PROGRAM*       11/39     11/42 L
        PPA110        267   PROGRAM*       13/35     13/46 L
        PPA120        270   PROGRAM*       12/35     12/57     13/27     14/02 L
        PPA130        277   PROGRAM*       11/57     14/23 L   14/23 E   14/35
        PPA140        304   PROGRAM*       14/31     14/34 L
        PPA150        305   PROGRAM*       14/30     14/39 L
        PPA160        307   PROGRAM*       14/41     14/45 L
        PPA170        312   PROGRAM*       11/36     14/47     14/53 L
        PPA180        320   PROGRAM*       15/03     15/06     15/08 L
        PPA20         225   PROGRAM*       11/45     11/50 L   14/26
        PPA30         231   PROGRAM*       11/53     12/02 L
        PPA40         234   PROGRAM*       12/07     12/10 L
        PPA45         240   PROGRAM*       12/23     12/30 L
        PPA50         247   PROGRAM*       12/45     12/48 L
        PPA60         252   PROGRAM*       12/39     13/04 L
        PPA80         257   PROGRAM*       13/08     13/19 L
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/05. 19.59.15.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        PPA85         260   PROGRAM*       13/19     13/21 L
        PPA90         262   PROGRAM*       13/05     13/31 L
        PSA           337   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          351   PROGRAM*       16/38     16/43     16/46     16/47     16/52 L
        PSA10         363   PROGRAM*       17/17 L   17/28
        PSA15         366   PROGRAM*       17/21     17/27 L
        PSA20         373   PROGRAM*       17/52 L   18/30
        PSA21         376   PROGRAM*       18/05     18/08 L
        PSA23         400   PROGRAM*       18/13 L   18/18
        PSA27         404   PROGRAM*       18/08     18/17     18/27 L
        PSA29         406   PROGRAM*       18/29     18/32 L
        PSA30         407   PROGRAM*       17/37     18/40 L
        PSA33         416   PROGRAM*       18/51     18/54     18/55     19/01 L
        PSA40         423   PROGRAM*       18/25     19/18 L
        PSA5          360   PROGRAM*       17/03     17/08 L
        PSA50         430   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           432   PROGRAM*       16/52     20/18 L
        SALA            2   EXTERNAL*      23/25 S   23/27     24/05 D
        SAL21         442   PROGRAM*       20/20     20/37 L
        SAL23         440   PROGRAM*       20/23     20/32 L
        SAL30         450   PROGRAM*       20/28     20/54 L   23/52
        SAL32         457   PROGRAM*       21/05     21/13 L
        SAL34         461   PROGRAM*       21/02     21/19 L
        SAL36         471   PROGRAM*       21/21     21/46 L
        SAL38         474   PROGRAM*       21/32     21/50 L
        SAL38A        502   PROGRAM*       22/03     22/06 L
        SAL38B        504   PROGRAM*       22/09     22/16 L
        SAL39         506   PROGRAM*       21/52     21/55     22/21 L
        SAL40         510   PROGRAM*       21/23     22/29 L
        SAL42         515   PROGRAM*       22/32     22/36 L
        SAL44         516   PROGRAM*       22/41 L
        SAL47         532   PROGRAM*       23/06     23/08     23/19 L
        SAL50         542   PROGRAM*       21/35     22/34     22/47     23/23     23/30     23/40 L
        SAL52         546   PROGRAM*       21/10     21/15     23/45     23/48 L
        SAL58         552   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/05. 19.59.15.      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       330   PROGRAM*       15/02     15/21 L
        TB=TYPE         0   EXTERNAL*       2/31 X    6/24     20/37
        TB.TOCL        52   FTX            20/55
        TEST            1   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          564   PROGRAM*       24/27     24/32 L
        TSB           555   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/34     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/05. 19.59.15.      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.PNTL        15   FTX            19/32
        WB.PNTP        57   FTX            19/27     19/33
        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           565   PROGRAM*       24/45 L   24/45 E
        WSAA          606   PROGRAM*       24/46     25/18 L
        WSA40         605   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/05. 19.59.18.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1372              IDENT  KEY
                       1372                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1353 
                                        LITERALS* LOCAL        1353        10 
                                        DEBUG     LOCAL        1363         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=KEY            0+           KW=NAME        272+           IFREL2         576+ 
                                        KW=ASSI          0+           KW=PATC        361+           IFLN           577+ 
                                        KW=BREA         57+           KW=PAUS        367+           KW=ELSE        606+ 
                                        KW=CALL         61+           KW=RETU        371+           KW=ENDI        640+ 
                                        CRL            145+           KW=STOP        426+           IFS            712+ 
                                        KW=CONT        162+           KW=GOTO        432+           IFS11          724+ 
                                        KW=END         171+           INIF           571+           IFFLAG        1077+ 
                                        END23          172+           IFMOD          573+           C=PJX         1257+ 
                                        KW=ENTR        214+           IFRESLT        574+ 
  
  
                                        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 
  
  
  
  
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     2
  
  
                                                  IDENT  KEY                                                     KEY         2
                                         KEY      SECT   (KEYWORD STATEMENT TRANSLATION.)                        KEY         3
  
  
  
  
  
                                        *         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
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     3
                                                                      KEY 
  
                                                  EXT    V=RGOTO,V=RTNK,V=STOP,V=SUBR                            KEY        54
                                                                                                                 KEY        55
                                        *         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  5150001353 +             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
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     4
                                                                      AGN 
  
            22  7150001355 +             AGN4     SX5    1+=0                                                    KEY       108
                          7130000013              SX3    2*CHAR-1                                                KEY       109
            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  5130001355 +                      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
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     5
                                                                      AGN 
  
                          20254                   LX2    AG.ORDP                                                 KEY       152
                               20124              LX1    AG.BIASP                                                KEY       153
            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
            57                                    HEREIF BREAK                                                   KEY       174
                                                                                                                 KEY       175
            57  0100000000 X             FTNBREAK BREAK                                                          KEY       176
            60  0400000000 X                      EQ     FEC.RTN                                                 KEY       177
                                         .T       ENDIF                                                          KEY       178
  
  
  
  
                                        **        CLL -  PROCESS "CALL" STATEMENT.                               KEY       180
                                                                                                                 KEY       181
                                                                                                                 KEY       182
            61                                    HEREIF CALL                                                    KEY       183
                                                                                                                 KEY       184
            61  76600                             SHRINK T=SLARG,0                                               KEY       185
                               76600              SHRINK T=ARG,0                                                 KEY       186
                          7170000055              SX7    CR.SUB                                                  KEY       187
            63  5170000000 X                      SA7    REFVAR      INITIALIZE REFERENCE TYPE                   KEY       188
                          56140                   SA1    B4          LOAD SUBROUTINE NAME                        KEY       189
                               43052              MX0    TB.TOCL                                                 KEY       190
            64  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
            65  5160000000 X                      SA6    FILL.                                                   KEY       195
                          5160000143 +            SA6    CALLSYM                                                 KEY       196
            66  0570000000 X                      NZ     B7,E.CL2    IF SUBROUTINE NAME MISSING                  KEY       197
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           KEY       198
            67  0770000100 +                      MI     B7,CLL24    IF NAME NOT PREVIOUSLY ENCOUNTERED          KEY       199
                          5130001356 +            CLAS=  X3,WB,(VAR,ENT,INTF,GENF,PARM,NLST)                     FC50207     5
            70  7110000013                        SX1    WB.SUBP                                                 KEY       201
                          0100000000 X            CALL   CCT         CHECK FOR CONFLICTING TYPE                  KEY       202
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     6
                                                                      CLL 
  
            71  0330000000 X                      MI     X0,PSL      IF CLASS CONFLICT                           KEY       203
                          7130044100              CLAS=  X3,WB,(NVAR,EXT,SUB)                                    KEY       204
            72  20257                             SBIT   X2,WB.FUNP                                              KEY       205
                     0322000074 +                 PL     X2,CLL22    IF NOT A FUNCTION                           KEY       206
                               43300              MX3    0                                                       KEY       207
            73  6170000000 X                      WARN   E.CL3       FUNCTION USED AS SUBROUTINE                 KEY       208
                                                                                                                 KEY       209
            74  20257                    CLL22    SBIT   X2,WB.TYPP/WB.FUNP                                      FC5A338    14
                     0322000076 +                 PL     X2,CLL23    IF NOT TYPED                                FC5A338    15
            75  6170000000 X                      WARN   E.CL4       **SUBROUTINE APPEARED IN TYPE DECLARATION   FC5A338    16
                                                                                                                 FC5A338    17
            76  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
            77  0400000102 +                      EQ     CLL30                                                   KEY       213
                                                                                                                 KEY       214
           100  7130044100               CLL24    CLAS=  X3,WB,(NVAR,EXT,SUB)                                    KEY       215
                          10733                   BX7    X3                                                      KEY       216
                               43200              MX2    0           *WC*                                        KEY       217
           101  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
           102  10500                    CLL30    BX5    X0                                                      KEY       223
                     20052                        LX0    XR.TAGP                                                 KEY       224
                          10600                   ADDREF X0,CR.SUB                                               KEY       225
           105  10055                             BX0    X5                                                      KEY       226
                     0100000000 X                 CALL   CT1         CONSTRUCT (TP) FORM OPERAND                 KEY       227
           106  5120000000 X                      SA2    T=BLST                                                  KEY       228
                          0302000110 +            ZR     X2,CLL33    IF NO BLOCK STRUCTURES                      KEY       229
           107  7100040000                        CLAS=  X0,WB,(DLER)  LOOP HAS EXTERNAL REFERENCE               KEY       230
                          0100000000 X            CALL   PDA         PROPOGATE DO LOOP ATTRIBUTES                KEY       231
           110  43700                    CLL33    MX7    0                                                       KEY       232
                     5160000000 X                 SA6    CALLTAG     SAVE OPERAND OF ROUTINE TO CALL             KEY       233
                               56141              =A1    B4+1                                                    KEY       234
           111  6221777766                        SB2    X1-O.VAR                                                KEY       235
                          5170000142 +            SA7    CLLA        INDICATE NO LABEL PARAMETERS                KEY       236
           112  0520000114 +                      NZ     B2,CLL35    IF NOT LONG NAME                            KEY       237
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               KEY       238
           113  56141                             =A1    B4+1                                                    KEY       239
           114  6221777740               CLL35    SB2    X1-O.LP                                                 KEY       240
                          0520000135 +            NZ     B2,CLL60    IF NO LPAREN -- NO PARAMETER LIST           KEY       241
           115  66441                             =B4    B4+1        POINT TO *(*                                KEY       242
                     7160000044                   =X6    O.SLP                                                   KEY       243
                               54610              SA6    A1          SET DUMMY *(* FOR PARSER                    KEY       244
           116  56141                             =A1    B4+1                                                    KEY       245
                     6271777737                   SB7    X1-O.RP                                                 KEY       246
                               54111              =A1    A1+1                                                    KEY       247
           117  0470000135 +                      ZR     B7,CLL60    IF EXPLICIT NULL PARAMETER LIST             KEY       248
                          5110000000 X            SA1    CALLARM                                                 KEY       249
                                         .T       IFEQ   TEST,ON                                                 KEY       250
           120  5120000000 X                      SA2    T=ARG                                                   KEY       251
                          0312400120 +            NZ     X2,"BLOWUP" IF GARBAGE LEFT IN (T.ARG)                  KEY       252
                                         .T       ENDIF                                                          KEY       253
           121  10611                             BX6    X1                                                      KEY       254
                     43700                        MX7    0           ARGCOMA = 0                                 KEY       255
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     7
                                                                      CLL 
  
                          5170000000 X            SA7    ARGCOMA                                                 KEY       256
           122  5160000000 X                      SA6    ARGMODE                                                 KEY       257
                          0100000000 X            CALL   PAR         PARSE / EMIT PARAMETER LIST                 KEY       258
           123  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
           124  5140000000 X             CLL40    SA4    CALLTAG                                                 KEY       269
                          6130000000 X            EMIT   V=SUBR      (CALLTAG, NARGS)                            KEY       270
           126  5130000142 +                      SA3    CLLA                                                    KEY       271
                          5120000000 X            SA2    CONZERI                                                 KEY       272
           127  0303000133 +                      ZR     X3,CLL48    IF NO LABELS IN PARAMETER LIST              KEY       273
                          54131                   SA1    A3+B1                                                   KEY       274
                               20324              LX3    TP.BIASP                                                KEY       275
           130  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
           131  6130030000 X                      EMIT   V=RGOTO,BOTH                                            KEY       279
           132  5140000144 +                      SA4    CLLC        (3OP) = GL                                  KEY       280
                          0100001206 +            RJ     EGL         EMIT GENERATED LABEL                        FC50265     8
                                                                                                                 KEY       283
           133  5110000000 X             CLL48    SA1    T=PAR                                                   KEY       284
                          7261777776              SX6    X1-1        INHIBIT SQUEEZE ACROSS CALL                 KEY       285
           134  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
           135  0301000137 +             CLL60    ZR     X1,CLL62    IF EOS                                      KEY       292
                          6170000000 X            FATAL  E.CL1       ** MISSING LPAREN AT BEGINNING OF PARM LIST KEY       293
           137  5140000000 X             CLL62    SA4    CALLTAG                                                 KEY       294
                          43700                   MX7    0           ARGCOUNT = 0                                KEY       295
           140  0100000000 X                      CALL   VEL         VALIDATE EXTERNAL LIST                      KEY       296
           141  43500                             MX5    0           (2OP) = ARGCOUNT                            KEY       297
                     0400000124 +                 EQ     CLL40                                                   KEY       298
                                                                                                                 KEY       299
           142                     1     CLLA     BSS    1           NUMBER OF LABEL ARGS                        KEY       300
           143                     1     CLLB     BSS    1           NUMBER OF NORMAL ARGS                       KEY       301
           144                     1     CLLC     BSS    1           GL FOR LABEL RETURN ARGS                    KEY       302
                                 143 +   CALLSYM  EQU    CLLB        NAME OF SUBROUTINE                          KEY       303
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
           145  0400400145 +             CRL      SUBR   =           ENTRY/EXIT...                               KEY       323
           146  5130000000 X                      SA3    CF=AC                                                   KEY       324
                          10622                   BX6    X2          (CLLA) = NL                                 KEY       325
                               37732              IX7    X3-X2       (CLLB) = NA - NL                            KEY       326
           147  5140000000 X                      SA4    N.GL                                                    KEY       327
                          5160000142 +            SA6    CLLA                                                    KEY       328
           150  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
           151  7110040000                        CLAS=  X1,TP,(GL)                                              KEY       333
                          20454                   LX4    TP.ORDP                                                 KEY       334
                               12641              BX6    X4+X1       CONSTRUCT GL FOR RETURN                     KEY       335
           152  54740                             SA7    A4                                                      KEY       336
                     5160000144 +                 SA6    CLLC                                                    KEY       337
           153  5110000000 X                      ADDWD  T.ARG       STACK RETURN GL                             KEY       338
           154  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
           156  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
           160  76600                             SHRINK T=SLARG,0   SET (T.SLARG) EMPTY                         KEY       345
           161  0400000145 +                      EQ     EXIT.                                                   KEY       346
  
  
  
  
                                        **        CON -  PROCESS "CONTINUE" STATEMENT.                           KEY       348
                                        *                                                                        KEY       349
                                        *         EXIT   TO FRONT END CONTROLLER.                                KEY       350
                                                                                                                 KEY       351
                                                                                                                 KEY       352
           162                                    HEREIF CONTINUE                                                KEY       353
                                                                                                                 KEY       354
           162  56240                             =A2    B4                                                      KEY       355
                     5140000000 X                 SA4    TB=LABR                                                 KEY       356
           163  0302000165 +                      ZR     X2,CON2     IF EOS                                      KEY       357
                                   0              ERRNZ  O.EOS                                                   KEY       358
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE     9
                                                                      CON 
  
                          6170000000 X            WARN   E.CT1                                                   KEY       359
           165  5120000571 +             CON2     SA2    INIF                                                    KEY       360
                          0302000170 +            ZR     X2,CON4     IF *CONTINUE* NOT OBJECT OF *IF*            KEY       361
           166  6170000000 X                      TRIV   E.GO5       IF RESULTS IN A TRANSFER TO NEXT LINE       KEY       362
           167  0400000000 X                      EQ     PSL         EXIT...                                     KEY       363
                                                                                                                 KEY       364
           170  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
           171                                    HEREIF END                                                     KEY       373
                                                                                                                 KEY       374
           171  5110000000 X                      SA1    SB=CONT                                                 FC5A127    13
                          0311000000 X            NZ     X1,E.OV3    IF *END* NOT ON ONE LINE                    FC5A127    14
                                                                                                                 KEY       377
           172                           END23    BSSENT 0           RETURN FROM ERROR PROCESSOR (MISSING END)   KEY       378
                                                                                                                 KEY       379
                                        *         HEREIF EOS                                                     KEY       380
                                                                                                                 KEY       381
           172  5110000000 X                      SA1    NOLIST                                                  KEY       382
                          5130000000 X            SA3    WO.LOA                                                  KEY       383
           173  5140000000 X                      SA4    WO.LOR                                                  KEY       384
                          0331000175 +            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
           174  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
           175  56140                    END20    SA1    B4                                                      KEY       393
                     0301000177 +                 ZR     X1,END26    IF END OF STATEMENT                         KEY       394
                                   0              ERRNZ  O.EOS                                                   KEY       395
           176  6170000000 X                      WARN   E.ME1                                                   KEY       396
                                                                                                                 KEY       397
           177  5150000000 X             END26    SA5    MOD                                                     KEY       398
                          20563                   HX5    MO.BLK                                                  KEY       399
           200  0335000213 +                      MI     X5,END90    IF BLOCKDATA, FINISHED                      KEY       400
                          5140000000 X            SA4    FLOW                                                    KEY       401
           201  20573                             LX5    MO.BLKP-MO.PROP                                         KEY       402
                     0325000204 +                 PL     X5,END60    IF NOT MAIN PROGRAM                         KEY       403
           202  0314000212 +                      NZ     X4,END80    IF NO FLOW INTO END LINE                    KEY       404
                          0100001302 +            RJ     SER         COMPILE END INSTRUCTIONS                    KEY       405
           203  0400000212 +                      EQ     END80                                                   KEY       406
                                                                                                                 KEY       407
           204                           END60    BSS                                                            KEY       408
                                         .T       IFEQ   TEST,ON                                                 KEY       409
           204  5110000000 X                      SA1    MOD                                                     KEY       410
                          7160006000              CLAS=  X6,MO,(FUN,SUB)                                         KEY       411
           205  11061                             BX0    X6*X1                                                   KEY       412
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    10
                                                                      END 
  
                     0300400205 +                 ZR     X0,"BLOWUP"  IF NOT PROCEDURE SUBPROGRAM                KEY       413
                                         .T       ENDIF                                                          KEY       414
           206  0314000210 +                      NZ     X4,END74    IF NO FLOW INTO END LINE                    KEY       415
                          43400                   MX4    0                                                       KEY       416
                               13555              BX5    0                                                       KEY       417
           207  6130000000 X                      EMIT   V=RET                                                   KEY       418
                                                                                                                 KEY       419
           210  5110000000 X             END74    SA1    N.FP                                                    KEY       420
                          0301000212 +            ZR     X1,END80    IF NO FORMAL PARAMETERS                     KEY       421
           211  0100000000 X                      CALL   WSA         WRAP-UP SUBPROGRAM ARGUMENTS                KEY       422
                                                                                                                 KEY       423
           212  0100001215 +             END80    RJ     MND         MATERIALIZE NAMELIST DIMENSIONS             KEY       424
           213  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
           214                                    HEREIF ENTRY                                                   KEY       432
                                                                                                                 KEY       433
           214  5120000000 X                      SA2    MOD                                                     KEY       434
                          20262                   SBIT   X2,MO.PROP                                              KEY       435
           215  0332000000 X                      MI     X2,E.EN1    IF IN PROGRAM                               KEY       436
                          13666                   BX6    0                                                       KEY       437
           216  5160000000 X                      SA6    NOPATH      RESET STATEMENT-NO.-REQD .FLAG              KEY       438
                          5110000000 X            SA1    STAGE                                                   KEY       439
           217  7120000000 X                      SX2    FEC=STF                                                 KEY       440
                          37112                   IX1    X1-X2                                                   KEY       441
           220  0331000222 +                      MI     X1,ENT1     IF IN DECLARATIVE PROCESSING                KEY       442
                          5120000000 X            SA2    T=BLST                                                  KEY       443
           221  0312000000 X                      NZ     X2,E.EN2    IF INSIDE A BLOCK STRUCTURE                 KEY       444
                                                                                                                 FC50627     5
           222  5124000000               ENT1     SA2    B4+                                                     KEY       445
                          0302000000 X            ZR     X2,E.EN3    IF *EOS*                                    KEY       446
           223  6272777766                        SB7    X2-O.VAR                                                KEY       447
                          0570000000 X            NZ     B7,E.EN4    IF NOT VARIABLE                             KEY       448
           224  43052                             MX0    TB.TOCL                                                 KEY       449
                     11602                        BX6    X0*X2                                                   KEY       450
                          5160000000 X            SA6    FILL.                                                   KEY       451
           225  5160000271 +                      SA6    ENTA        SAVE FOR T.ENT                              FC50062     4
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           KEY       453
           226  5130000000 X                      SA3    MOD                                                     KEY       454
                          5150001357 +            CLAS=  X5,WB,(NVAR,DEF,ENT,MAT)                                KEY       455
           227  20360                             HX3    MO.FUN                                                  KEY       456
                     0770000234 +                 MI     B7,ENT20    IF NOT IN SYMTAB                            KEY       457
           230  6170000000 X                      SB7    E.EN5                                                   KEY       458
                          0323000255 +            PL     X3,ENT80    IF NOT COMPILING A FUNCTION                 KEY       459
           231  7140200140                        CLAS=  X4,WB,(NVAR,VAR,FP)                                     KEY       461
                          11442                   BX4    X4*X2                                                   KEY       462
           232  6170000000 X                      SB7    E.EN                                                    KEY       463
                          0314000255 +            NZ     X4,ENT80    IF PRIOR CONFLICTING REFERENCE              KEY       464
           233  12525                             BX5    X2+X5       MERGE ENTRY BITS                            KEY       465
                     0400000241 +                 EQ     ENT40                                                   KEY       466
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    11
                                                                      ENT 
  
                                                                                                                 KEY       467
                                        *         HERE IF NOT IN SYMTAB                                          KEY       468
                                        *                (X3) = (MOD) [MO.FUN EXPOSED]                           FC50627     6
                                                                                                                 KEY       469
           234  0333000236 +             ENT20    MI     X3,ENT21    IF FUNCTION                                 FC50627     7
                          76700                   =X7    0                                                       FC50627     8
                               43200              MX2    0                                                       FC50627     9
           235  0400000240 +                      EQ     ENT22                                                   FC50627    10
                                                                                                                 FC50627    11
           236  0100000000 X             ENT21    CALL   STY         SET IMPLICIT TYPE [FUNCTION ENTRY]          FC50627    12
           237  10711                             BX7    X1          DEFAULT (WB.) = TYPE ONLY                   KEY       472
                                                                                                                 FC50627    13
           240  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
           241  5130000000 X             ENT40    SA3    MOD                                                     KEY       482
                          0100001171 +            RJ     CEM         CHECK ENTRY POINT MODE                      KEY       483
           242  0570000255 +                      NZ     B7,ENT80    IF MODE CONFLICT                            KEY       484
                          12652                   BX6    X5+X2                                                   KEY       485
                               54620              SA6    A2          MARK AS ENTRY POINT                         KEY       486
           243  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
           244  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
           245  5110000000 X                      SA1    T.SYM                                                   KEY       496
                          66331                   =B3    B3+WB.W                                                 KEY       497
                               53113              SA1    X1+B3       *WB*                                        KEY       498
           246  7150000400                        LDBIT  X5,WB.MDFP                                              FC5A191    16
                          12615                   BX6    X1+X5                                                   KEY       500
                               54610              SA6    A1          SET *DEFINITION REQUIRED* FLAG              KEY       501
           247  5110000271 +                      SA1    ENTA                                                    FC50062     5
                          12601                   BX6    X0+X1       (T.ENT) ENTRY = NAME AND SYMORD             KEY       503
                               73500              SX5    X0                                                      KEY       504
           250  6157000000                        SB5    B7+         SAVE WB INDEX                               KEY       505
                          5110000000 X            ADDWD  T.ENT                                                   KEY       506
           252  22405                             LX4    X5                                                      KEY       507
                     20454                        LX4    TP.ORDP                                                 KEY       508
                          43500                   MX5    0                                                       KEY       509
           253  6130000000 X                      EMIT   V=ENTR      (ENTRY-POINT-NAME,0)                        KEY       510
           254  20420                             LX4    -TP.ORDP    (X4) = SYMORD OF ENTRY NAME                 KEY       511
                     10644                        BX6    X4                                                      KEY       512
                          0400000260 +            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/05. 19.59.18.      PAGE    12
                                                                      ENT 
  
           255  0100000000 X             ENT80    FATAL  B7                                                      KEY       521
           256  7170000040                        CLAS=  X7,WB,(VAR)                                             KEY       522
                          10600                   BX6    X0          SET SYMORD FOR XREF                         KEY       523
                               12727              BX7    X2+X7                                                   KEY       524
           257  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
           260  66441                    ENT90    =B4    B4+1                                                    KEY       534
                     20652                        LX6    XR.TAGP                                                 KEY       535
                          43700                   MX7    0                                                       KEY       536
           261  5170000000 X                      SA7    FLOW        INDICATE *FLOW* INTO NEXT STMT              KEY       537
                          5110000000 X            SA1    WANFP                                                   FC5A192    50
           262  54710                             SA7    A1          AVOID SETTING WA.NFP                        FC5A192    51
                     10711                        BX7    X1                                                      FC5A192    52
                          5170000271 +            SA7    ENTA        PRESERVE OLD VALUE OF CELL                  FC5A192    53
           263  7110000004                        ADDREF X6,CR.DEF                                               KEY       538
           265  0100000000 X                      CALL   PSA         PROCESS SUBPROGRAM ARGLIST                  KEY       539
           266  5110000271 +                      SA1    ENTA                                                    FC5A192    54
                          10711                   BX7    X1                                                      FC5A192    55
           267  5170000000 X                      SA7    WANFP       RESTORE OLD VALUE OF CELL                   FC5A192    56
                          0100000000 X            CALL   OIL         ENTRY BREAKS THE SEQUENCE                   FC50265     9
           270  0400000000 X                      EQ     PSL         EXIT..                                      KEY       540
                                                                                                                 FC5A192    57
           271                     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
           272                                    HEREIF NAMELIST                                                KEY       557
                                                                                                                 KEY       558
           272  6170000000 X                      WARN   E.ANS       NON-ANSI USE - WARNING                      KEY       559
           273  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/05. 19.59.18.      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
           274  13666                    NAM1     SETMEM NAMB,2      CLEAR WORKING BUFFER                        KEY       569
           275  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
           276  7241777760                        SX4    X1-O.SLASH                                              KEY       573
                          0314000000 X            NZ     X4,E.NL     IF SYNTAX ERROR                             KEY       574
           277  0302000000 X                      ZR     X2,E.MR2    IF *EOS* - ERROR                            KEY       575
                          43052                   MX0    WA.SYML                                                 KEY       576
                               11602              BX6    X0*X2                                                   KEY       577
           300  6272777766                        =B7    X2-O.VAR                                                KEY       578
                          0570000000 X            NZ     B7,E.NL2    IF NO LETTER                                KEY       579
           301  6273777766                        SB7    X3-O.VAR                                                KEY       580
                          0570000304 +            NZ     B7,NAM1.5   IF NOT LONG NAME                            FC50606     6
           302  0100000000 X                      CALL   TLV         TRUNCATE NAME                               KEY       582
           303  56341                             =A3    B4+1                                                    KEY       583
                                                                                                                 FC5A325     5
           304  7243777760               NAM1.5   SX4    X3-O.SLASH                                              FC50606     7
                          0314000000 X            NZ     X4,E.NL1    IF NO */* AFTER NAME                        KEY       585
           305  0100000000 X                      CALL   SSY         SEARCH FOR SYMBOL                           KEY       586
           306  0670000000 X                      PL     B7,E.NL3    IF ALREADY DEFINED                          KEY       587
                          5130000000 X            SA3    T=NLST                                                  KEY       588
           307  5140001360 +                      CLAS=  X4,WB,(NVAR,NLST,DEF)                                   KEY       589
                          10733                   BX7    X3                                                      KEY       590
                               20357              LX3    WB.PNTP                                                 KEY       591
           310  5170000355 +                      SA7    NAMA        INITIALIZE START INDEX                      KEY       592
                          6144000002              =B4    B4+2        ADVANCE B4 TO FIRST VARIABLE IN LIST        KEY       593
           311  12734                             BX7    X3+X4                                                   KEY       594
                     43200                        MX2    0           *WB*                                        KEY       595
                          0100000000 X            ADSYM  A1                                                      KEY       596
           312  73600                             SX6    X0                                                      KEY       597
                     6170000036                   SB7    NG.GROPP                                                KEY       598
                               13111              BX1    0           CLEAR MEMBER COUNT                          KEY       599
           313  20636                             LX6    NG.GROPP                                                KEY       600
                     27771                        PX7    X1,B7                                                   KEY       601
                          5160000357 +            SA6    NAMB+1      INITIALIZE ACCUMULATOR                      KEY       602
           314  55761                             SA7    A6-B1                                                   KEY       603
                     5110000000 X                 SA1    T=NLST                                                  FC50606     8
                               10611              BX6    X1                                                      FC50606     9
           315  5160000360 +                      SA6    NAMC        T.NLST SAVE FOR ERROR RECOVERY              FC50606    10
                          5110000000 X            SA1    WO.LOR                                                  FC50857     7
           316  0321000321 +                      PL     X1,NAM2     IF NO CROSS REFERENCE SELECTED              FC50857     8
                          73600                   SX6    X0                                                      FC50857     9
           317  7110000004                        SX1    CR.DEF                                                  FC50857    10
                          20652                   LX6    XR.TAGP     CONSTRUCT XREF TAG                          FC50857    11
           320  6170000321 +                      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
           321  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/05. 19.59.18.      PAGE    14
                                                                      NAM 
  
           322  0301000353 +                      ZR     X1,NAM.ERR  IF EOS                                      FC50606    13
                          43052                   MX0    WA.SYML                                                 FC51193    14
                               11601              BX6    X0*X1       SYMBOL ONLY                                 FC51193    15
           323  6231777766                        SB3    X1-O.VAR                                                FC51193    16
                          5160000000 X            SA6    FILL.                                                   FC51193    17
           324  6170000000 X                      SB7    E.NL5                                                   FC51193    18
                          0530000353 +            NZ     B3,NAM.ERR  IF NOT VARIABLE                             FC51193    19
           325  0100000000 X                      CALL   TRV         TRANSLATE VARIABLE                          KEY       612
           326  6170000000 X                      SB7    FEC.RTN                                                 FC50606    14
                          0330000353 +            MI     X0,NAM.ERR  IF TRV DETECTED ERROR                       FC50606    15
           327  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
           331  0322000335 +                      PL     X2,NAM3     IF NOT ARRAY                                FC50606    16
                          5120000000 X            SA2    T.DIM                                                   KEY       619
           332  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
           333  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
           334  0333000353 +                      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
           335  5150000356 +             NAM3     SA5    NAMB        FETCH (PARCEL INDEX, MEMBER COUNT)          FC50606    19
                          54251                   SA2    A5+B1                                                   KEY       634
                               26175              UX1,B7 X5                                                      KEY       635
           336  6177777760                        SB7    B7-NG.ORDL                                              KEY       636
                          22070                   LX0    B7                                                      KEY       637
                               73511              SX5    X1+B1       COUNT MEMBERS                               KEY       638
           337  12620                             BX6    X2+X0       MERGE NEW SYMBOL                            KEY       639
                     0570000342 +                 NZ     B7,NAM4     IF WORD NOT FULL                            FC50606    20
           340  5110000000 X                      ADDWD  T.NLST      ADD FULL WORD TO GROUP-DEF                  KEY       641
           341  6170000074                        SB7    4*NG.ORDL                                               KEY       642
                          43600                   MX6    0           CLEAR ACCUMULATOR                           KEY       643
                                                                                                                 FC5A325     8
           342  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
           343  64451                             SB4    A5+B1       POINT TO NEXT ITEM                          KEY       657
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    15
                                                                      NAM 
  
                     7225777735                   SX2    X5-O.COMMA                                              KEY       658
           344  0302000321 +                      ZR     X2,NAM2     IF COMMA                                    KEY       659
                          5140000357 +            SA4    NAMB+1                                                  KEY       660
           345  0304000347 +                      ZR     X4,NAM5     IF NO PARTIAL ACCUMULATOR WAITING           KEY       661
                          10644                   BX6    X4                                                      KEY       662
           346  5110000000 X                      ADDWD  T.NLST      APPEND REST OF MEMBERS                      KEY       663
                                                                                                                 FC5A325     9
           347  5130000355 +             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
           350  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
           351  54730                             SA7    A3                                                      KEY       671
                     0315000274 +                 NZ     X5,NAM1    IF NOT EOS, CONTINUE WITH NEXT GROUP         KEY       672
           352  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
           353  5110000360 +             NAM.ERR  SA1    NAMC        PREVIOUS T=NLST                             FC50606    29
                          10611                   SHRINK T=NLST,X1                                               FC50606    30
                          0277000000              JP     B7          EXIT...                                     FC50606    31
                                                                                                                 KEY       674
           355                     1     NAMA     BSS    1           START INDEX OF CURRENT GROUP                KEY       675
           356                     2     NAMB     BSSZ   2           (PARCEL INDEX, MEMBERS), ACCUMULATOR        KEY       676
           360                     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
           361                                    HEREIF PATCH                                                   KEY       698
                                                                                                                 KEY       699
           361  57341                             =A3    B4-1                                                    KEY       700
                     0100000000 X                 CALL   OCT         ASSEMBLE ADDRESS WHERE PATCH IS TO GO       KEY       701
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    16
                                                                      PATCH 
  
           362  5160000366 +                      SA6    PATA                                                    KEY       702
                          54331                   =A3    A3+1        SKIP OVER SEPARATOR                         KEY       703
           363  0100000000 X                      CALL   OCT         ASSEMBLE CONTENTS OF WORD                   KEY       704
           364  5110000366 +                      SA1    PATA                                                    KEY       705
                          53610                   SA6    X1          STORE NEW WORD                              KEY       706
           365  0400000000 X                      EQ     FEC.RTN                                                 KEY       707
                                                                                                                 KEY       708
           366  00000000000000000000     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
           367                                    HEREIF PAUSE                                                   KEY       721
                                                                                                                 KEY       722
           367  6150001336 +                      SB5    S.PAUSE                                                 KEY       723
                          0100001310 +            RJ     SPR         COMPILE PAUSING INSTRUCTIONS                KEY       724
           370  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
           371                                    HEREIF RETURN                                                  KEY       745
                                                                                                                 KEY       746
           371  5150000000 X                      SA5    MOD                                                     FC50451     7
                          5120000000 X            SA2    S=ENTRY                                                 FC50451     8
           372  20562                             SBIT   X5,MO.PROP                                              FC50913     7
                     0335000375 +                 MI     X5,RTN1     IF MAIN PROGRAM                             FC50913     8
                               20252              LX2    XR.TAGP                                                 KEY       748
           373  10622                             ADDREF X2,CR.RET                                               FC50451    11
                                                                                                                 FC50451    12
           375  5120000000 X             RTN1     SA2    T=BLST                                                  FC50451    13
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    17
                                                                      RTN 
  
                          0302000377 +            ZR     X2,RTN2     IF NOT INSIDE A BLOCK STRUCTURE             FC50451    14
           376  7100040000                        CLAS=  X0,WB,(DLER)  LOOP HAS EXTERNAL REFERENCE               KEY       752
                          0100000000 X            CALL   PDA         PROPOGATE DO LOOP ATTRIBUTES                KEY       753
                                                                                                                 FC50451    15
           377  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
           400  0311000413 +                      NZ     X1,RTN9     IF NOT *EOS*                                KEY       762
                          0325000403 +            PL     X5,RTN4     IF NOT MAIN PROGRAM                         FC50451    18
                                                                                                                 KEY       764
                                        **        WHEN IN MAIN PROGRAM, ACT LIKE *END*.                          KEY       765
                                                                                                                 KEY       766
           401  0100001302 +             RTN3     RJ     SER         SET *END* RETURN CODE                       KEY       767
           402  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
           403  5110000571 +             RTN4     SA1    INIF                                                    KEY       772
                          0311000407 +            NZ     X1,RTN8     IF OBJECT OF 1-BRANCH *IF*                  KEY       773
                                                                                                                 KEY       774
           404  13444                             BX4    0                                                       KEY       775
                     43500                        MX5    0                                                       KEY       776
                          6130000000 X            EMIT   V=RET                                                   KEY       777
           406  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
           407  5140000000 X             RTN8     SA4    S=EXIT                                                  KEY       787
                          5130000000 X            SA3    RTNCNT                                                  KEY       788
           410  13666                             BX6    0                                                       KEY       789
                     20454                        LX4    TP.ORDP                                                 KEY       790
                          5160000000 X            SA6    NOPATH      CLEAR NOPATH CONDITION                      KEY       791
           411  73731                             =X7    X3+1        COUNT RETURN STATEMENTS                     KEY       792
                     54730                        SA7    A3                                                      KEY       793
                          0100001272 +            RJ     RIT         RESET IF TARGET                             KEY       794
           412  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
           413  0325000416 +             RTN9     PL     X5,RTN92    IF NOT MAIN PROGRAM                         FC50451    19
                          6170000000 X            WARN   E.SPR4                                                  KEY       801
           415  0400000401 +                      EQ     RTN3                                                    KEY       802
                                                                                                                 KEY       803
           416  20572                    RTN92    SBIT   X5,MO.FUNP/MO.PROP                                      FC50451    20
                     0325000421 +                 PL     X5,RTN94    IF NOT FUNCTION                             FC50451    21
           417  6170000000 X                      FATAL  E.SPR5      ALTERNATE RETURN ILLEGAL IN FUNCTION        KEY       806
           420  0400000403 +                      EQ     RTN4                                                    KEY       807
                                                                                                                 KEY       808
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    18
                                                                      RTN 
  
           421  7160000000 X             RTN94    SX6    V=RTNK                                                  KEY       809
                          5160000000 X            SA6    N.ARP       INDICATE ALTERNATE RETURN HAPPENED          KEY       810
           422  43700                             MX7    0           (2OP) = NIL                                 KEY       811
                     0100001250 +                 RJ     PJX         PARSE JUMP EXPRESSION                       KEY       812
           423  5110000571 +                      SA1    INIF                                                    KEY       813
                          0301000425 +            ZR     X1,RTN98    IF NOT OBJECT OF 1-BRANCH *IF*              KEY       814
           424  13777                             BX7    0                                                       KEY       815
                     5170000000 X                 SA7    NOPATH      CLEAR NOPATH FLAG                           KEY       816
                                                                                                                 FC50451    22
           425  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
           426                                    HEREIF STOP                                                    KEY       827
                                                                                                                 KEY       828
           426  6150001337 +                      SB5    S.STOP                                                  KEY       829
                          0100001310 +            RJ     SPR         COMPILE TERMINATING INSTRUCTIONS            KEY       830
           427  5110000571 +                      SA1    INIF                                                    KEY       831
                          0311000000 X            NZ     X1,PSL      IF OBJECT OF 1-BRANCH IF                    KEY       832
           430  43601                             MX6    1                                                       FC50318    10
                     5160000000 X                 SA6    NOPATH      INDICATE NO-PATH.                           KEY       834
           431  0400000000 X                      EQ     PSL         EXIT...                                     KEY       835
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
           432                                    HEREIF GOTO                                                    KEY       852
                                                                                                                 KEY       853
           432  56140                             SA1    B4                                                      KEY       854
                     7160000055                   =X6    CR.GOTO                                                 KEY       855
           433  0301000000 X                      ZR     X1,E.GO1    IF MISSING OBJECT OF GO TO - ERROR          KEY       856
                          7221777740              SX2    X1-O.LP                                                 KEY       857
           434  5160000000 X                      SA6    REFNUM      SET CROSS REFERENCE LETTER                  KEY       858
                          7160000055              =X6    CR.VGOTO                                                KEY       859
           435  56341                             =A3    B4+1                                                    KEY       860
                     66600                        SB6    B0          INITIALIZE (B6) FOR GOC                     KEY       861
                          5160000000 X            SA6    REFVAR                                                  KEY       862
           436  0302000546 +                      ZR     X2,GOC      IF *(* -- COMPUTED GOTO                     KEY       863
                          5120000000 X            SA2    DTI                                                     FC5A224     6
           437  0302000442 +                      ZR     X2,GOT      IF NOT DO TERMINATOR                        FC5A224     7
                          5120000571 +            SA2    INIF                                                    FC5A224     8
           440  0312000442 +                      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
           442  6221777766               GOT      SB2    X1-O.VAR                                                FC5A224    12
                          0420000474 +            ZR     B2,GOA      IF VARIABLE -- ASSIGNED GOTO                KEY       865
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
           443  10611                             BX6    X1                                                      KEY       874
                     0313000000 X                 NZ     X3,E.GO     IF NO *EOS* - ERROR                         KEY       875
           444  5120001361 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    15
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY       877
           445  0336000000 X                      MI     X6,FEC.RTN  IF ERROR IN LABEL                           KEY       878
                          5110000000 X            SA1    STL0R                                                   KEY       879
           446  5120000000 X                      SA2    TB=LABR                                                 KEY       880
                          37012                   IX0    X1-X2                                                   KEY       881
           447  0310000451 +                      NZ     X0,GOT6     IF NOT TRANSFER TO ITSELF                   KEY       882
                          6170000000 X            WARN   E.GO7       WARNING                                     KEY       883
                                                                                                                 FC50318    11
           451  10566                    GOT6     BX5    X6          SAVE TAG.                                   KEY       884
                     5110000571 +                 SA1    INIF                                                    KEY       885
                               43601              MX6    1                                                       FC50318    12
           452  5160000000 X                      SA6    NOPATH      INICATE POSSIBLE NO-PATH.                   KEY       887
                          7160000000              SX6    0                                                       KEY       888
           453  0301000457 +                      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
           454  10455                             BX4    X5                                                      KEY       905
                     0100001272 +                 RJ     RIT         RESET IF TARGET                             KEY       906
           455  5110000000 X                      SA1    DTI                                                     KEY       907
                          0311000000 X            NZ     X1,PSL      IF IN *DO* TERMINATION -- EXIT...           KEY       908
           456  7160000001                        SX6    1                                                       KEY       909
                          10544                   BX5    X4                                                      FC5A157     5
                                                                                                                 FC50318    13
           457  5160000577 +             GOT7     SA6    IFLN        INDICATE INIF OR NOT                        KEY       910
                          10655                   BX6    X5                                                      KEY       911
           460  5160000142 +                      SA6    GOTA        SAVE TAG.                                   KEY       912
                          7160000462 +            =X6    GOT7A       RETURN ADDRESS                              KEY       913
           461  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/05. 19.59.18.      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
           462  5120000142 +             GOT7A    SA2    GOTA        RESTORE TAG.                                KEY       926
                          5130000000 X            SA3    CSLTAG                                                  KEY       927
           463  13023                             BX0    X2-X3                                                   KEY       928
                     5110000577 +                 SA1    IFLN                                                    KEY       929
           464  0310000467 +                      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
           465  6170000000 X                      TRIV   E.GO5       IF RESULTS IN A TRANSFER TO NEXT LINE       KEY       932
           466  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
           467  0311000000 X             GOT7B    NZ     X1,CUS.RET  IF PART OF 1-BRANCH IF                      KEY       939
                          5140000142 +            SA4    GOTA        (P1) = LABEL                                KEY       940
           470  13555                             BX5    0           (P2) = NIL                                  KEY       941
                     6130000000 X                 EMIT   V=GOTO                                                  KEY       942
           472  5110000000 X                      SA1    T=PAR                                                   KEY       943
                          7261777776              SX6    X1-1                                                    KEY       944
           473  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/05. 19.59.18.      PAGE    22
        'GOTO' STATEMENTS.                                            GOA 
  
                                        **        GOA - TRANSLATE ASSIGNED GOTO.                                 KEY       948
                                                                                                                 KEY       949
                                                                                                                 KEY       950
           474  66210                    GOA      SB2    B1          INDICATE (VALUE.) IS LEGAL                  KEY       951
                     0100000000 X                 CALL   TRV         TRANSLATE VARIABLE                          KEY       952
           475  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
           477  15173                             BX1    -X3*X7                                                  FC5A184    56
                     20261                        HX2    WB.ARY                                                  FC5A184    57
                          0322000504 +            PL     X2,GOA10    IF NOT AN ARRAY                             FC5A184    58
           500  5120000012 X                      SA2    CLASS+WB.ARYP                                           FC5A184    59
                          10722                   BX7    X2                                                      FC5A184    60
           501  5170000000 X                      SA7    FILL.2                                                  FC5A184    61
                          5124000000              SA2    B4+                                                     FC5A184    62
           502  43752                             MX7    WA.SYML                                                 FC5A184    63
                     11772                        BX7    X7*X2       X7 = 0LSYMBOL                               FC5A184    64
                          5170000000 X            SA7    FILL.                                                   FC5A184    65
           503  6170000000 X                      FATAL  E.AS7       ** CONFLICT - VAR PREVIOUSLY USED AS ARRAY  FC5A184    66
                                                                                                                 FC5A184    67
           504  22506                    GOA10    LX5    X6          (X5) = PASS 1 TAG FORM                      FC5A184    68
                     6271777775                   SB7    X1-M.INT                                                KEY       957
           505  0301000507 +                      ZR     X1,GOA20    IF BOOLEAN VARIABLE                         KEY       958
                                   0              ERRNZ  M.BOOL                                                  KEY       959
                          0470000507 +            ZR     B7,GOA20    IF INTEGER VARIABLE                         KEY       960
           506  6170000000 X                      WARN   E.GO4       ** OBJECT OF GOTO NOT INTEGER               KEY       961
           507  66441                    GOA20    SB4    B4+B1                                                   KEY       962
                     56240                        SA2    B4                                                      KEY       963
                          6272777735              SB7    X2-O.COMMA                                              KEY       964
           510  0570000511 +                      NZ     B7,GOA22    IF COMMA MISSING                            KEY       965
                          66441                   SB4    B4+B1                                                   KEY       966
                               56240              SA2    B4                                                      KEY       967
           511  6272777740               GOA22    SB7    X2-O.LP                                                 KEY       968
                          0302000534 +            ZR     X2,GOA70    IF EOS -- STATEMENT LABEL LIST OMITTED      FC51039     7
           512  0470000514 +                      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
           514  66441                    GOA30    SB4    B4+B1                                                   KEY       977
           515  56140                    GOA32    SA1    B4                                                      KEY       978
                     0301000000 X                 ZR     X1,PSL      MISSING RIGHT PAREN ALREADY DIAGNOSED       KEY       979
                               10611              BX6    X1                                                      KEY       980
           516  5120001361 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    16
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY       982
           517  5110000000 X                      SA1    STL0R                                                   KEY       983
                          5130000000 X            SA3    TB=LABR                                                 KEY       984
           520  56441                             =A4    B4+1                                                    KEY       985
                     37231                        IX2    X3-X1                                                   KEY       986
                          6144000002              SB4    B4+2                                                    KEY       987
           521  7234777735                        SX3    X4-O.COMMA                                              KEY       988
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    23
        'GOTO' STATEMENTS.                                            GOA 
  
                          0312000523 +            NZ     X2,GOA36    IF NOT REFERENCE TO CURRENT LABEL           KEY       989
           522  6170000000 X                      TRIV   E.GO8       STATEMENT CAN TRANSFER TO ITSELF            KEY       990
           523  0303000515 +             GOA36    ZR     X3,GOA32    IF COMMA, LOOP                              KEY       991
                          6223000002              =B2    X3-O.RP+O.COMMA                                         KEY       992
           524  0520000000 X                      NZ     B2,E.GO     IF NOT *)* - ERROR...                       KEY       993
                          56140                   =A1    B4                                                      KEY       994
           525  0301000527 +                      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
           527  10655                    GOA60    BX6    X5                                                      KEY      1004
                     5160000142 +                 SA6    GOTA                                                    KEY      1005
           530  5140000142 +                      SA4    GOTA        (L1) = VARIABLE TO GOTO                     KEY      1006
                          13555                   BX5    0           (P2) = NIL                                  KEY      1007
           531  6130010000 X                      EMIT   V=AGOTO,1ST                                             KEY      1008
           532  43601                             MX6    1           SET NOPATH INDICATION                       FC50318    14
                     5160000000 X                 SA6    NOPATH                                                  KEY      1010
           533  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
           534  5120000000 X             GOA70    SA2    T=BLST                                                  FC51039    13
                          0302000527 +            ZR     X2,GOA60    IF NOT IN A BLOCK STRUCTURE                 FC51039    14
           535  7130200000                        CLAS=  X3,WB,(DLEX)                                            FC51039    15
                          22003                   LX0    X3                                                      FC51039    16
           536  5110000000 X                      SA1    T.BLST                                                  FC51039    17
                          6222777776              SB2    X2-1                                                    FC51039    18
                                                                                                                 FC51039    19
           537  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
           540  67223                             SB2    B2-B3                                                   FC51039    26
                     0303000545 +                 ZR     X3,GOA88    IF NOT DO LOOP                              FC51039    27
           541  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
           542  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
           543  6133000001                        SB3    B3+WB.W                                                 FC51039    36
                          5140000000 X            SA4    T.SYM                                                   FC51039    37
           544  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/05. 19.59.18.      PAGE    24
        'GOTO' STATEMENTS.                                            GOA 
  
           545  0620000537 +             GOA88    PL     B2,GOA80    IF MORE BLOCKS                              FC51039    42
                          0400000527 +            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
           546                           GOC      BSS    0           ENTRY...                                    KEY      1025
                                                                                                                 FC50646     6
           546  5114000002               GOC2     SA1    B4+2                                                    KEY      1026
                          7221777735              =X2    X1-O.COMMA                                              KEY      1027
           547  6144000002                        SB4    B4+2                                                    KEY      1028
                          66661                   =B6    B6+1                                                    KEY      1029
           550  0302000546 +                      ZR     X2,GOC2     IF COMMA, LOOP                              KEY      1030
                          7211777737              =X1    X1-O.RP                                                 KEY      1031
           551  0311000000 X                      NZ     X1,E.GO     IF NOT *)* - ERROR...                       KEY      1032
                          7160000044              SX6    O.SLP                                                   FC50646     7
           552  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
           553  7211777735                        =X1    X1-O.COMMA                                              KEY      1035
                          0301000555 +            ZR     X1,GOC4     IF OPTIONAL COMMA PRESENT                   KEY      1036
           554  67441                             =B4    B4-1                                                    KEY      1037
                                                                                                                 KEY      1038
           555  76760                    GOC4     SX7    B6          SET (2OP) = NUMBER OF BRANCHES              KEY      1039
                     7160000000 X                 SX6    V=CGOTO                                                 KEY      1040
                               20724              LX7    TP.BIASP                                                KEY      1041
           556  0100001250 +                      RJ     PJX         PARSE JUMP EXPRESSION                       KEY      1042
           557  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
           560  56140                    GOC6     SA1    B4                                                      KEY      1048
                     57241                        =A2    B4-1                                                    KEY      1049
                          10611                   BX6    X1                                                      KEY      1050
           561  6272777733                        SB7    X2-O.SLP                                                FC50646     9
                          0470000000 X            ZR     B7,PSL      IF END OF STATEMENT LABEL LIST              KEY      1052
           562  5120001361 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    17
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY      1054
           563  10466                             BX4    X6          (P1) = STATEMENT LABEL                      KEY      1055
                     43500                        MX5    0           (P2) = NIL                                  KEY      1056
                          6130000000 X            EMIT   V=JGOTO                                                 KEY      1057
           565  5110000000 X                      SA1    STL0R                                                   KEY      1058
                          5120000000 X            SA2    TB=LABR                                                 KEY      1059
           566  37321                             IX3    X2-X1                                                   KEY      1060
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    25
        'GOTO' STATEMENTS.                                            GOC 
  
                     0313000570 +                 NZ     X3,GOC7     IF NOT REFERENCE TO CURRENT LABEL           KEY      1061
           567  6170000000 X                      TRIV   E.GO8       STATEMENT CAN TRANSFER TO ITSELF            KEY      1062
                                                                                                                 FC50646    10
           570  6144000002               GOC7     SB4    B4+2                                                    KEY      1063
                          0400000560 +            EQ     GOC6        LOOP..                                      KEY      1064
                                                                                                                 KEY      1065
                                 142 +   GOTA     EQU    CLLA        SAVE OLD STATEMENT LABEL                    KEY      1066
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    26
        'IF' STATEMENTS.
  
           571  00000000000000000000     INIF     CONENT 0           (GL) WHEN PROCESSING A LOGICAL IF, ELSE 0   KEY      1068
           572  00000000000000000000     IFNEST   DATA   0           .NZ. = IF NESTED IF                         KEY      1069
           573  00000000000000000000     IFMOD    CONENT 0           RESULTANT MODE OF IF EXPRESSION             KEY      1070
           574  00000000000000000000     IFRESLT  CONENT 0           RESULTANT OPERAND FROM IF EXPRESSION        KEY      1071
           575  00000000000000000000     IFREL1   DATA   0           OPPOSITE *IF* ORDINAL                       KEY      1072
           576  00000000000000000000     IFREL2   CONENT 0           .NZ. = (OPPOSITE) ORD. PAIR FOR SINGLE REL. KEY      1073
           577                     4     IFLN     BSZENT 4           IF STATEMENT LABEL TAGS                     KEY      1074
           603  00000000000000000000     IFSA     DATA   0           ENTRY CONDITION ON *B4*                     KEY      1075
           604  24100516000000000011     IFSB     VFD    TB.TOCL/4LTHEN,TB.TOTL/O.VAR                            KEY      1076
           605  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
           606                                    HEREIF ELSE                                                    KEY      1084
           606  5120000000 X                      SA2    T=BLST                                                  FC51490     8
                          0302000613 +            ZR     X2,ELS      IF NO BLST TABLE                            FC51490     9
           607  0100001123 +                      RJ     FIB         FINISH PREVIOUS IF BLOCK                    KEY      1085
           610  5114000000                        SA1    B4+                                                     KEY      1086
                          0311000614 +            NZ     X1,ELF      IF NOT *ELSE*                               KEY      1087
           611  5110000000 X                      SA1    T.BLST                                                  KEY      1088
                          5120000000 X            SA2    T=BLST                                                  KEY      1089
           612  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
           613  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
           614                           ELF      BSS    0                                                       KEY      1100
           614  5120000605 +                      SA2    ELFA                                                    KEY      1101
                          37212                   IX2    X1-X2                                                   KEY      1102
           615  0312000000 X                      NZ     X2,E.FM     IF NOT *ELSEIF*                             KEY      1103
                          56141                   =A1    B4+1                                                    KEY      1104
                               66441              =B4    B4+1                                                    KEY      1105
           616  6221777740                        SB2    X1-O.LP                                                 KEY      1106
                          0520000000 X            NZ     B2,E.IF12   IF NOT *(*                                  KEY      1107
           617  7160000044                        =X6    O.SLP                                                   KEY      1108
                          56640                   SA6    B4                                                      KEY      1109
           620  5120000000 X                      SA2    IFARM                                                   KEY      1110
                          76700                   =X7    0                                                       KEY      1111
                               10622              BX6    X2                                                      KEY      1112
           621  5170000000 X                      SA7    ARGCOMA                                                 KEY      1113
                          5160000000 X            SA6    ARGMODE                                                 KEY      1114
           622  5170000575 +                      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/05. 19.59.18.      PAGE    27
        'IF' STATEMENTS.                                              ELF 
  
           623  56141                             =A1    B4+1                                                    KEY      1117
                     66441                        =B4    B4+1                                                    KEY      1118
                          5120000604 +            SA2    IFSB                                                    KEY      1119
           624  37212                             IX2    X1-X2                                                   KEY      1120
                     0302000627 +                 ZR     X2,ELF1     IF *THEN*                                   FC50765     5
           625  6170000000 X                      FATAL  E.IF14                                                  KEY      1122
           626  0400000631 +                      EQ     ELF2                                                    FC50765     6
                                                                                                                 FC50765     7
           627  56141                    ELF1     =A1    B4+1                                                    FC50765     8
                     66441                        =B4    B4+1                                                    FC50765     9
                          0301000631 +            ZR     X1,ELF2     IF NO TRAILING GARBAGE                      FC50765    10
                                   0              ERRNZ  O.EOS                                                   FC50765    11
           630  6170000000 X                      WARN   E.IF08                                                  FC50765    12
                                                                                                                 KEY      1123
           631  5120000573 +             ELF2     SA2    IFMOD                                                   KEY      1124
                          7222777776              =X2    X2-M.LOG                                                KEY      1125
           632  0302000634 +                      ZR     X2,ELF3     IF ELSEIF EXPRESSION LOGICAL                KEY      1126
                          6170000000 X            FATAL  E.IF01                                                  KEY      1127
                                                                                                                 KEY      1128
           634  0100001100 +             ELF3     RJ     CIM         CONSTRUCT IF MEGATURPLE                     KEY      1129
           635  5110000000 X                      SA1    T.BLST                                                  KEY      1130
                          5120000000 X            SA2    T=BLST                                                  KEY      1131
           636  6252777767                        SB5    X2-Z=BLST-1+BLIA.W                                      KEY      1132
                          53715                   SA7    X1+B5       UPDATE ADVANCE GENERATED LABEL              KEY      1133
           637  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
           640                                    HEREIF ENDIF                                                   KEY      1141
           640  5114000000                        SA1    B4+                                                     FC50642     5
                          0301000642 +            ZR     X1,EIF0     IF NO TRAILING GARBAGE                      FC50642     6
                                   0              ERRNZ  O.EOS                                                   FC50642     7
           641  6170000000 X                      WARN   E.IF08      */ EXPECTED EOS, FOUND FILL.                FC50642     8
                                                                                                                 FC50642     9
           642  5110000000 X             EIF0     SA1    IFLEVEL                                                 FC50642    10
                          7261777776              =X6    X1-1                                                    KEY      1143
           643  0336000000 X                      MI     X6,E.IF13                                               FC51247     5
                          5061000000              SA6    A1+         DECREMENT BLOCK IF LEVEL                    KEY      1145
                                                                                                                 KEY      1146
           644  5110000000 X             EIF1     SA1    T.BLST                                                  KEY      1147
                          5120000000 X            SA2    T=BLST                                                  KEY      1148
           645  0302000000 X                      ZR     X2,PSL      AN ENDIF WITH NOTHING IN BLST - LEAVE       FC51490    11
                          6252777776              SB5    X2-1                                                    KEY      1149
           646  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
           647  0420000661 +                      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/05. 19.59.18.      PAGE    28
        'IF' STATEMENTS.                                              EIF 
  
           650  37020                             IX0    X2-X0                                                   KEY      1158
                     6220000005                   SB2    X0+DO.W                                                 KEY      1159
                               53312              SA3    X1+B2       FETCH DO TERMINATOR                         KEY      1160
           651  20330                             HX3    DO.TAG                                                  KEY      1161
                     21352                        AX3    -DO.TAGL    EXTRACT ORDINAL                             KEY      1162
                          63230                   SB2    X3                                                      KEY      1163
                               10433              BX4    X3                                                      KEY      1164
           652  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
           653  5110000000 X                      SA1    T.SYM                                                   KEY      1169
                          53512                   SA5    X1+B2       FETCH *WA*                                  KEY      1170
                               21530              AX5    WA.STLP     EXTRACT LABEL                               KEY      1171
           654  0100000000 X                      CALL   LJS         LEFT JUSTIFY                                KEY      1172
           655  5160000000 X                      SA6    FILL.                                                   KEY      1173
                          6170000000 X            FATAL  E.IF15                                                  KEY      1174
           657  22604                             LX6    X4          DO TERMINATOR (TP. FORMAT)                  KEY      1175
                     0100000000 X                 CALL   RBE         REMOVE THE INCORRECT DO LOOP                KEY      1176
           660  0400000644 +                      EQ     EIF1                                                    KEY      1177
                                                                                                                 KEY      1178
           661  0100000000 X             EIF2     CALL   FBS         FINISH THE BLOCK STRUCTURE                  KEY      1179
           662  5110000000 X                      SA1    T.BLST                                                  KEY      1180
                          5120000000 X            SA2    T=BLST                                                  KEY      1181
           663  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
           664  43601                             MX6    1           INDICATE ELSE                               FC50318    15
                     0304000667 +                 ZR     X4,EIF3     IF LAST ARM WAS AN ELSE                     KEY      1185
                               22605              LX6    X5                                                      KEY      1186
           665  5160000711 +                      SA6    EIFA        SAVE                                        KEY      1187
                          0100001206 +            RJ     EGL         EMIT LAST IF GENERATED LABEL                FC50265    10
           666  5150000711 +                      SA5    EIFA                                                    KEY      1190
                          7160000000              SX6    0           INDICATE NOT ELSE                           FC50318    16
                                                                                                                 KEY      1191
           667  5160000711 +             EIF3     SA6    EIFA        ELSE INDICATION                             FC50318    17
                          5110000000 X            SA1    T=PAR                                                   FC50318    18
           670  22701                             LX7    X1                                                      KEY      1193
                     5170000000 X                 SA7    CURST       DONT SQUEEZE PAST IF BLOCK                  KEY      1194
           671  5110000000 X                      SA1    T.BLST                                                  FC5A127    15
                          5120000000 X            SA2    T=BLST                                                  FC5A127    16
           672  6222777776                        SB2    X2-1                                                    FC5A127    17
                          53212                   SA2    X1+B2       FETCH LC WORD                               FC5A127    18
                                                  SBIT   X2,LC.GLMP                                              FC5A127    19
           673  5130000711 +                      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
           674  0322000676 +                      PL     X2,EIF4     IF BOTTOM LABEL NOT TO MATERIALIZE          FC5A127    20
                          22405                   LX4    X5                                                      KEY      1195
           675  0100001206 +                      RJ     EGL         EMIT BLOCK IF BOTTOM LABEL                  FC50265    11
                                                                                                                 FC50265    12
           676  5120000000 X             EIF4     SA2    NOPATH                                                  FC5A148     4
                          5110000711 +            SA1    EIFA                                                    FC50318    22
           677  11112                             BX1    X1*X2                                                   FC50318    23
                     0311000702 +                 NZ     X1,EIF5     IF ALL ARMS UNCONDITIONAL CONTROL CHANGE    FC50318    24
           700  0302000702 +                      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/05. 19.59.18.      PAGE    29
        'IF' STATEMENTS.                                              EIF 
  
                               54620              SA6    A2          CLEAR                                       KEY      1201
           701  5160000000 X                      SA6    FLOW        CLEAR                                       KEY      1202
                                                                                                                 FC5A341     8
           702  5120000000 X             EIF5     SA2    T=BLST                                                  FC5A148     6
                          7222777766              SX2    X2-Z=BLST-1                                             KEY      1204
           703  10622                             SHRINK A2,X2                                                   KEY      1205
                          0302000000 X            ZR     X2,PSL      IF NO NESTED BLOCK STRUCTURES               FC5A341     9
           704  5110000000 X                      SA1    CSLTAG                                                  FC5A341    10
                          0301000000 X            ZR     X1,PSL      IF ENDIF UNLABELLED                         FC5A341    11
           705  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
           706  66210                             =B2    1           INDICATE LABEL DEFINITION                   FC5A341    17
                     5110000000 X                 SA1    TB=LABL                                                 FC5A341    18
                               10711              BX7    X1                                                      FC5A341    19
           707  5170000000 X                      SA7    FILL.2      SAVE FOR POSSIBLE DIAGNOSTIC                FC5A341    20
                          0100000000 X            CALL   ALU         ANALYZE LABEL USAGE                         FC5A341    21
           710  0400000000 X                      EQ     PSL         EXIT                                        KEY      1206
                                                                                                                 KEY      1207
           711                     1     EIFA     BSS    1                                                       KEY      1208
  
  
  
  
                                        ***       IFS -  PROCESS "IF" STATEMENT.                                 KEY      1210
                                        *                                                                        KEY      1211
                                        *         ENTRY  B4 - *(* FOLLOWING *IF*.                                KEY      1212
                                                                                                                 KEY      1213
                                                                                                                 KEY      1214
           712                           IFS      BSSENT 0           ENTRY...                                    KEY      1215
           712  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
           713  5120000000 X                      SA2    IFARM                                                   KEY      1219
                          76700                   =X7    0                                                       KEY      1220
                               10622              BX6    X2                                                      KEY      1221
           714  5170000000 X                      SA7    ARGCOMA                                                 KEY      1222
                          5160000000 X            SA6    ARGMODE                                                 KEY      1223
           715  5170000575 +                      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
           716  5114000001                        SA1    B4+1                                                    KEY      1233
                          43052                   MX0    TB.TOCL                                                 KEY      1234
                               66441              =B4    B4+1        POINT TO 1ST OF OBJECT                      KEY      1235
           717  0301000000 X                      ZR     X1,E.IF00   IF MISSING OBJECT OF *IF*                   KEY      1236
                          6221777772              =B2    X1-O.CONS                                               KEY      1237
           720  11601                             BX6    X0*X1                                                   KEY      1238
                     5160000000 X                 SA6    FILL.       RESET FILL.                                 KEY      1239
           721  5120000573 +                      SA2    IFMOD                                                   KEY      1240
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    30
        'IF' STATEMENTS.                                              IFS 
  
                          0420000757 +            ZR     B2,IFL      IF OBJECT OF *IF* IS A STATEMENT LABEL      KEY      1241
           722  6272777776                        SB7    X2-M.LOG                                                KEY      1242
                          0570000000 X            NZ     B7,E.IF09   IF EXPRESSION MODE NOT LOGICAL              KEY      1243
           723  5120000571 +                      SA2    INIF                                                    KEY      1244
                          0312000000 X            NZ     X2,E.IF11   IF LOGICAL IF IS OBJECT OF IF               KEY      1245
                                                                                                                 FC50483     7
           724                           IFS11    BSSENT 0           ...RETURN FROM ERROR PROCESSOR.             KEY      1246
           724  56440                             SA4    B4                                                      KEY      1247
                     5120000604 +                 SA2    IFSB                                                    KEY      1248
                               13642              BX6    X4-X2                                                   KEY      1249
           725  0316000727 +                      NZ     X6,IFS30    IF FIRST TOKEN OF OBJECT NOT = 'THEN'       KEY      1250
                          56341                   SA3    B4+B1                                                   KEY      1251
           726  0303000742 +                      ZR     X3,IFT      IF THIS IS A BLOCK-IF                       KEY      1252
                                                                                                                 KEY      1253
           727  0100000000 X             IFS30    CALL   CST         CLASSIFY STMT (OBJECT OF *IF*)              KEY      1254
           730  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
           731  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
           732  5110000000 X                      SA1    DTI                                                     KEY      1260
                          0301000735 +            ZR     X1,IFS40    IF NOT *DO* TERMINATOR                      KEY      1261
           733  20073                             LX0    KW.NIFP-KW.DONP                                         KEY      1262
                     0320000735 +                 PL     X0,IFS40    IF NOT (*ILL DO TERM*)                      KEY      1263
           734  6170000000 X                      ANSI   E.IF02      OBJECT OF IF IS ILLEGAL DO TERMINAL         KEY      1264
                                                                                                                 FC50483     8
           735  5110000000 X             IFS40    SA1    FLOW                                                    KEY      1265
                          0311000000 X            NZ     X1,FEC.RIF  IF NOT PATH, RETURN TO CONTROLLER...        KEY      1266
           736  0100001100 +                      RJ     CIM         CONSTRUCT IF MEGATURPLE                     KEY      1267
           737  5170000571 +                      SA7    INIF        INDICATE GL TO BE ISSUED AFTER OBJECT       KEY      1268
                          5110000000 X            SA1    T=PAR                                                   KEY      1269
           740  10611                             BX6    X1                                                      KEY      1270
                     5160000000 X                 SA6    CURST                                                   KEY      1271
           741  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
           742  5110000000 X             IFT      SA1    IFLEVEL                                                 KEY      1279
                          73611                   =X6    X1+1                                                    KEY      1280
                               54610              SA6    A1          INCREMENT BLOCK IF LEVEL                    KEY      1281
           743  5110000000 X                      ALLOC  T.BLST,Z=BLST                                           KEY      1282
           745  0100001100 +                      RJ     CIM         CONSTRUCT IF MEGATURPLE                     KEY      1283
           746  5110000000 X                      SA1    T.BLST                                                  KEY      1284
                          5120000000 X            SA2    T=BLST                                                  KEY      1285
           747  6252777767                        SB5    X2-Z=BLST+BLIB.W                                        KEY      1286
                          76610                   =X6    1                                                       KEY      1287
                               20654              LX6    TP.ORDP                                                 KEY      1288
           750  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
           751  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/05. 19.59.18.      PAGE    31
        'IF' STATEMENTS.                                              IFT 
  
                          43700                   MX7    0                                                       FC51501     9
                               53715              SA7    X1+B5       INSURE THIS LOCATON CLEAR FOR BLOCK *IFS*   FC51501    10
           752  5110000000 X                      SA1    REFLIN                                                  KEY      1292
                          7160000011              SX6    Z=BLST+1                                                KEY      1293
           753  20114                             LX1    -XR.LINEP+LC.LINEP                                      KEY      1294
                     12616                        BX6    X1+X6                                                   KEY      1295
                          5110000000 X            ADDWD  T.BLST                                                  KEY      1296
           755  5110000000 X                      SA1    N.GL                                                    KEY      1297
                          73611                   =X6    X1+1                                                    KEY      1298
                               54610              SA6    A1          INCREMENT GENERATED LABEL COUNT             KEY      1299
           756  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
           757  5110000573 +             IFL      SA1    IFMOD       MODE OF IF EXPRESSION                       FC50483     9
                          5120000000 X            SA2    F.IFS       SELECTION MATRIX                            FC50483    10
           760  20103                             LX1    3                                                       FC50483    11
                     63210                        SB2    X1          SHIFT COUNT                                 FC50483    12
                          22222                   LX2    X2,B2       EXTRACT SKELETON (RELATIVE)                 FC50483    13
           761  0322000765 +                      PL     X2,IFL20    IF EXPRESSION LEGAL                         FC50483    14
                          21103                   AX1    3           RESTORE TP.MODE                             FC50483    15
           762  5221000000 X                      SA2    X1+MOD.DPC  DPC OF MODE                                 FC50483    16
                          10622                   BX6    X2                                                      FC50483    17
           763  5160000000 X                      SA6    FILL.3                                                  FC50483    18
                          6170000000 X            FATAL  E.IF07                                                  FC50483    19
                                                                                                                 FC50483    20
           765  5110000571 +             IFL20    SA1    INIF                                                    FC50483    21
                          10611                   BX6    X1                                                      KEY      1313
           766  5160000572 +                      SA6    IFNEST                                                  KEY      1314
                          7160000055              =X6    CR.IFN                                                  KEY      1315
           767  6160000000                        SB6    0                                                       KEY      1316
                          5160000000 X            SA6    REFVAR      INDICATE OBJECT OF IF REFERENCE.            KEY      1317
           770  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
           771  5160001077 +                      SA6    IFFLAG      INDICATE INACTIVE LABEL (FOR ISL)           KEY      1321
                                                                                                                 KEY      1322
                                        **        IDENTIFY STATEMENT LABELS.                                     KEY      1323
                                                                                                                 KEY      1324
           772  66441                    IFL30    =B4    B4+1                                                    KEY      1325
                     5120001361 +                 CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    18
                               10611              BX6    X1                                                      KEY      1327
           773  0100000000 X                      CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY      1328
           774  56140                             SA1    B4                                                      KEY      1329
                     5166000577 +                 SA6    B6+IFLN     SAVE TAG.                                   KEY      1330
           775  6221777735                        =B2    X1-O.COMMA                                              KEY      1331
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    32
        'IF' STATEMENTS.                                              IFL 
  
                          66661                   =B6    B6+1                                                    KEY      1332
           776  0301001002 +                      ZR     X1,IFL40    IF *EOS*                                    KEY      1333
                          0520000000 X            NZ     B2,E.IF03   IF NOT *,*                                  KEY      1334
           777  56141                             =A1    B4+1                                                    KEY      1335
                     66441                        =B4    B4+1                                                    KEY      1336
                          0301001002 +            ZR     X1,IFL40    IF *EOS*                                    KEY      1337
          1000  0565000772 +                      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
          1001  0311000000 X                      NZ     X1,E.IF03   IF NOT *EOS*                                KEY      1341
                                                                                                                 KEY      1342
                                        *         GO OFF TO HANGER PROCESSING.                                   KEY      1343
                                                                                                                 KEY      1344
          1002  76600                    IFL40    =X6    0                                                       KEY      1345
                     43700                        MX7    0                                                       KEY      1346
                          5170001077 +            SA7    IFFLAG                                                  KEY      1347
          1003  6176777774                        SB7    B6-3                                                    KEY      1348
                          54661                   =A6    A6+1        INDICATE END OF TABLE                       KEY      1349
          1004  0770000000 X                      MI     B7,E.IF10   IF LESS THAN 3 LABELS                       KEY      1350
                          5110000000 X            SA1    DTI                                                     KEY      1351
          1005  7170001012 +                      SX7    IFL50       (X7) = RETURN ADDR FOR *HANGER*             KEY      1352
                          76600                   =X6    0                                                       KEY      1353
          1006  5170000000 X                      SA7    HANGER      SET RETURN ADDRESS                          KEY      1354
                          5160000571 +            SA6    INIF        INDICATE TO *PSL* NO TAG NECESSARY          KEY      1355
          1007  0301000000 X                      ZR     X1,PSL      IF NOT DO TERMINAL                          KEY      1356
                          6170000000 X            FATAL  E.MDO       *ILLEGAL DO TERMINAL*                       KEY      1357
          1011  0400000000 X                      EQ     PSL         RETURN FOR NEXT EXECUTABLE STATEMENT        KEY      1358
                                                                                                                 KEY      1359
                                        **        HERE WITH NEXT EXECUTABLE STATEMENT.                           KEY      1360
                                                                                                                 KEY      1361
          1012  76700                    IFL50    =X7    0                                                       KEY      1362
                     5110000601 +                 SA1    IFLN+2      PRELOAD *3RD* STATEMENT LABEL               KEY      1363
          1013  5170000000 X                      SA7    HANGER                                                  KEY      1364
                          22601                   LX6    X1          SAME *3RD* LABEL                            KEY      1365
          1014  5140000000 X                      SA4    CSLTAG      NEXT EXECUTABLE STATEMENT TAG               KEY      1366
                          20454                   LX4    TP.ORDP                                                 KEY      1367
          1015  6140000004                        SB4    3+1                                                     KEY      1368
                                                                                                                 KEY      1369
          1016  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
          1017  0300001020 +                      ZR     X0,IFL60    IF MATCH                                    KEY      1373
                          0540001016 +            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
          1020  5110000577 +             IFL60    SA1    IFLN        1ST                                         KEY      1378
                          76540                   SX5    B4          SET UPCOMING STATEMENT LABEL FLAG           KEY      1379
                               54211              =A2    A1+1        2ND                                         KEY      1380
          1021  13777                             BX7    0                                                       KEY      1381
                     37316                        IX3    X1-X6       1ST-3RD                                     KEY      1382
                          0313001023 +            NZ     X3,IFL61    IF 1ST"3RD                                  KEY      1383
          1022  7277000003                        SX7    X7+3                                                    KEY      1384
          1023  13026                    IFL61    BX0    X2-X6       2ND-3RD                                     KEY      1385
                     0310001025 +                 NZ     X0,IFL62    IF 2ND"3RD                                  KEY      1386
          1024  7277000002                        SX7    X7+2                                                    KEY      1387
          1025  37012                    IFL62    IX0    X1-X2       1ST-2ND                                     KEY      1388
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    33
        'IF' STATEMENTS.                                              IFL 
  
                     0310001026 +                 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
          1026  5110000000 X             IFL63    SA1    T.SYM                                                   KEY      1399
                          5120000576 +            SA2    IFLN-1                                                  KEY      1400
          1027  73111                             =X1    X1-WA.W+WB.W                                            KEY      1401
                     6140000004                   SB4    3+1                                                     KEY      1402
                                                                                                                 KEY      1403
          1030  67441                    IFL63A   =B4    B4-1                                                    KEY      1404
                     0440001036 +                 ZR     B4,IFL63B   IF END OF TABLE                             KEY      1405
                               54221              =A2    A2+1                                                    KEY      1406
          1031  0332001030 +                      MI     X2,IFL63A   IF LABEL IS BAD (SYNTAX ERROR)              KEY      1407
                          37024                   IX0    X2-X4                                                   KEY      1408
          1032  0300001030 +                      ZR     X0,IFL63A   IF MATCH                                    KEY      1409
                          20220                   LX2    -TP.ORDP                                                KEY      1410
                               43054              MX0    -TP.ORDL                                                KEY      1411
          1033  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
          1034  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
          1035  54630                             SA6    A3          MARK LABEL AS ACTIVE                        KEY      1420
                     0400001030 +                 EQ     IFL63A                                                  KEY      1421
                                                                                                                 KEY      1422
          1036  5110000572 +             IFL63B   SA1    IFNEST                                                  KEY      1423
                          0311001040 +            NZ     X1,IFL64    IF APPENDED TO LOGICAL IF                   KEY      1424
          1037  43601                             MX6    1                                                       FC50318    25
                     5160000000 X                 SA6    NOPATH      INDICATE NO PATH TO NEXT STATEMENT          KEY      1426
                                                                                                                 FC50318    26
          1040  6237777771               IFL64    SB3    X7-6                                                    KEY      1427
                          0530001052 +            NZ     B3,IFL70    IF NO POSSIBLE NULL-TRANSFER.               KEY      1428
          1041  0305001044 +                      ZR     X5,IFL65    IF NOT NULL TRANSFER.                       KEY      1429
                          6170000000 X            WARN   E.IF05      DO NOTHING STATEMENT                        KEY      1430
          1043  0400000000 X                      EQ     CUS.RET     FINISH PROCESSING HANGER.                   KEY      1431
                                                                                                                 KEY      1432
          1044  7130000000 X             IFL65    SX3    V=I111                                                  KEY      1433
                          5110000572 +            SA1    IFNEST                                                  KEY      1434
          1045  0311001065 +                      NZ     X1,IFL90    IF APPENDED TO LOGICAL IF                   KEY      1435
                          6170000000 X            TRIV   E.IF04                                                  FC51029     7
          1047  5140000577 +                      SA4    IFLN        1ST LABEL (=2ND LABEL = 3RD LABEL)          FC51029     8
                          43500                   MX5    0                                                       FC51029     9
          1050  6130000000 X                      EMIT   V=GOTO                                                  FC51029    10
          1051  0400000000 X                      EQ     CUS.RET     FINISH PROCESSING HANGER                    FC51029    11
                                                                                                                 KEY      1438
          1052  5110000573 +             IFL70    SA1    IFMOD                                                   KEY      1439
                          6160000000 X            SB6    F.IFS                                                   KEY      1440
          1053  66300                             =B3    0                                                       KEY      1441
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    34
        'IF' STATEMENTS.                                              IFL 
  
                     0305001060 +                 ZR     X5,IFL80    IF NO REFERENCE TO UPCOMING LABEL           KEY      1442
          1054  6265000003 X                      SB6    X5+F.IFS+3                                              KEY      1443
                          0307001060 +            ZR     X7,IFL80    IF ONLY ONE REFERENCE AND NO 2 ALIKE        KEY      1444
          1055  6160777773 X                      SB6    F.IFN-4                                                 KEY      1445
                          73771                   =X7    X7+1                                                    KEY      1446
                               66310              =B3    1                                                       KEY      1447
          1056  6225777774                        SB2    X5-3                                                    KEY      1448
                          20701                   LX7    1           *2                                          KEY      1449
          1057  0620001060 +                      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
          1060  5120000573 +             IFL80    SA2    IFMOD       DM = (IFMOD)                                KEY      1458
                          63373                   SB3    X7+B3       (B3) = COMPLETE OFFSET                      KEY      1459
                               43010              MX0    8                                                       KEY      1460
          1061  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
          1062  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
          1063  5110000000 X                      SA1    FLOW                                                    KEY      1475
                          7232000000 X            SX3    X2+OM=IF    (X3) = COMPLETE SKELETON NUMBER             KEY      1476
          1064  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
          1065  73730                    IFL90    SX7    X3          EXTRACT SKELETON ADDRESS                    KEY      1493
                     5120000001 X                 SA2    OPDUM+DUC=1ST                                           KEY      1494
                               20752              LX7    SP.SKELP                                                FC50104    59
          1066  5140000574 +                      SA4    IFRESLT     (P1) = IF-EXPRESSION RESULT                 KEY      1496
                          12627                   BX6    X2+X7                                                   KEY      1497
          1067  5150000577 +                      SA5    IFLN        (P2) = LABEL 1                              KEY      1498
                          5160000603 +            SA6    IFSA        STORE IF-OPERATOR                           KEY      1499
          1070  6036400000                        EMIT   A6,*                                                    KEY      1500
          1071  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
          1073  5120000572 +                      SA2    IFNEST                                                  KEY      1505
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    35
        'IF' STATEMENTS.                                              IFL 
  
                          0302000000 X            ZR     X2,CUS.RET  IF THIS ARITH IF NOT OBJ OF LOG IF          KEY      1506
          1074  0100000000 X                      CALL   CSB         EMIT BSS TURPLE                             KEY      1507
          1075  13666                             BX6    0                                                       KEY      1508
                     5160000572 +                 SA6    IFNEST      SO ONLY ONE BSS TURPLE EMITTED              KEY      1509
          1076  0400000000 X                      EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER          KEY      1510
                                                                                                                 KEY      1511
          1077                     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
          1100  0400401100 +             CIM      SUBR               ...ENTRY/EXIT...                            KEY      1519
          1101  7140000000 X                      SX4    V=IFF       (X4) = NORMAL LOGIC SKELETON                KEY      1520
                          7150000000 X            SX5    V=IFT       (X5) = OPPOSITE LOGIC SKELETON              KEY      1521
          1102  5120000576 +                      SA2    IFREL2                                                  KEY      1522
                          0302001111 +            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
          1103  5130000000 X                      SA3    T.PAR                                                   KEY      1532
                          5140000000 X            SA4    T=PAR                                                   KEY      1533
          1104  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
          1105  43656                             MX6    -TH.SKELL                                               KEY      1537
                                                  IFEQ   TEST,ON,1                                               KEY      1538
                     0337401105 +                 MI     X7,"BLOWUP" NO OPPOSITE SPECIAL                         KEY      1539
                               21236              AX2    30                                                      KEY      1540
          1106  5170000575 +                      SA7    IFREL1      OPPOSITE LOGIC SKELETON                     KEY      1541
                          20116                   LX1    -TH.SKELP                                               KEY      1542
                               11061              BX0    X6*X1                                                   KEY      1543
          1107  12702                             BX7    X0+X2       SET LAST TURP = NORMAL 1-REL LOGIC          KEY      1544
                     20756                        LX7    TH.SKELP                                                KEY      1545
                          54710                   SA7    A1                                                      KEY      1546
          1110  0400001116 +                      EQ     CIM2                                                    KEY      1547
                                                                                                                 KEY      1548
                                                                                                                 KEY      1549
                                        **        CONDITION IS A GENERAL EXPRESSION.                             KEY      1550
                                        *                EMIT FIRST TURPLE OF IF.                                KEY      1551
                                                                                                                 KEY      1552
          1111  20452                    CIM1     LX4    SP.SKELP                                                FC50104    60
                     5110000001 X                 SA1    OPDUM+DUC=1ST                                           KEY      1554
                               73750              SX7    X5                                                      KEY      1555
          1112  12641                             BX6    X4+X1       (OP) = NORMAL GENERAL LOGIC SKEL            KEY      1556
                     5170000575 +                 SA7    IFREL1                                                  KEY      1557
          1113  5140000574 +                      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/05. 19.59.18.      PAGE    36
        'IF' STATEMENTS.                                              CIM 
  
          1114  5160000603 +                      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
          1116  5130000000 X             CIM2     SA3    N.GL                                                    KEY      1567
                          7120040000              CLAS=  X2,TP,(GL)                                              KEY      1568
          1117  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
          1120  43400                             MX4    0           (P1) = NIL                                  KEY      1573
                     6130000000 X                 EMIT   V=NOOP                                                  KEY      1574
          1122  10755                             BX7    X5                                                      KEY      1575
                     0400001100 +                 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
          1123  0400401123 +             FIB      SUBR               ...ENTRY/EXIT...                            KEY      1588
          1124  5110000000 X                      SA1    IFLEVEL                                                 KEY      1589
                          0301000000 X            ZR     X1,E.IF13   IF NO BLOCK IF STRUCTURE ACTIVE             KEY      1590
                                                                                                                 KEY      1591
          1125  5110000000 X             FIB1     SA1    T.BLST                                                  KEY      1592
                          5120000000 X            SA2    T=BLST                                                  KEY      1593
          1126  6252777776                        SB5    X2-1                                                    KEY      1594
                          53315                   SA3    X1+B5       FETCH COUNT WORD                            KEY      1595
                               20330              LX3    -LC.DOP                                                 KEY      1596
          1127  63230                             SB2    X3          EXTRACT DO INDEX                            KEY      1597
                                   0              ERRNZ  18-LC.DOL                                               KEY      1598
                     0420001141 +                 ZR     B2,FIB2     IF LAST T.BLST ENTRY IS BLOCK IF            KEY      1599
                               20344              LX3    LC.DOP-LC.CNTP                                          KEY      1600
          1130  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
          1131  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
          1132  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/05. 19.59.18.      PAGE    37
        'IF' STATEMENTS.                                              FIB 
  
          1133  5110000000 X                      SA1    T.SYM                                                   KEY      1614
                          53512                   SA5    X1+B2       FETCH *WA*                                  KEY      1615
                               21530              AX5    WA.STLP     EXTRACT LABEL                               KEY      1616
          1134  0100000000 X                      CALL   LJS         LEFT JUSTIFY                                KEY      1617
          1135  5160000000 X                      SA6    FILL.                                                   KEY      1618
                          6170000000 X            FATAL  E.IF15                                                  KEY      1619
          1137  22604                             LX6    X4          DO TERMINAL (TP. FORMAT)                    KEY      1620
                     0100000000 X                 CALL   RBE         REMOVE THE INCORRECT DO LOOP                KEY      1621
          1140  0400001125 +                      EQ     FIB1                                                    KEY      1622
                                                                                                                 KEY      1623
          1141  0100000000 X             FIB2     CALL   FBS         FINISH THE BLOCK ARM                        KEY      1624
          1142  5110000000 X                      SA1    T.BLST                                                  KEY      1625
                          5120000000 X            SA2    T=BLST                                                  KEY      1626
          1143  6252777766                        SB5    X2-Z=BLST-1+BLIB.W                                      KEY      1627
                          5120000000 X            SA2    NOPATH                                                  KEY      1628
          1144  0302001146 +                      ZR     X2,FIB3     IF LAST ACTIVE STATEMENT NOT BRANCH         KEY      1629
                          43600                   MX6    0                                                       KEY      1630
                               54620              SA6    A2          CLEAR NOPATH                                KEY      1631
          1145  5160000000 X                      SA6    FLOW        CLEAR                                       KEY      1632
                          0400001163 +            EQ     FIB4                                                    KEY      1633
                                                                                                                 KEY      1634
          1146  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
          1150  5120000000 X                      SA2    =XCO.DBID                                               FC51569     7
                          0302001162 +            ZR     X2,FIB3A    IF NOT *DB=ID*                              FC51569     8
          1151  56140                             SA1    B4                                                      FC51569     9
                     0301001162 +                 ZR     X1,FIB3A    IF NOT *ELSE IF*                            FC51569    10
          1152  5120000000 X                      SA2    T=PAR                                                   FC51569    11
                          7222777771              SX2    X2-6                                                    FC51569    12
          1153  0332001162 +                      MI     X2,FIB3A    IF LESS THEN 2 TURPLES                      FC51569    13
                          5110000000 X            SA1    T.PAR                                                   FC51569    14
          1154  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
          1155  10644                             BX6    X4                                                      FC51569    18
                     22701                        LX7    X1                                                      FC51569    19
                          54610                   SA6    A1                                                      FC51569    20
                               54740              SA7    A4                                                      FC51569    21
          1156  5044000001                        SA4    A4+OR.1OP   SECOND OF NEXT TO LAST TURPLE               FC51569    22
                          5014000003              SA1    A4+Z=TURP   SECOND OF LAST TURPLE                       FC51569    23
          1157  10644                             BX6    X4                                                      FC51569    24
                     22701                        LX7    X1                                                      FC51569    25
                          54610                   SA6    A1                                                      FC51569    26
                               54740              SA7    A4                                                      FC51569    27
          1160  5044000001                        SA4    A4+OR.1OP   THIRD OF NEXT TO LAST TURPLE                FC51569    28
                          5014000003              SA1    A4+Z=TURP   THIRD OF LAST TURPLE                        FC51569    29
          1161  10644                             BX6    X4                                                      FC51569    30
                     22701                        LX7    X1                                                      FC51569    31
                          54610                   SA6    A1                                                      FC51569    32
                               54740              SA7    A4                                                      FC51569    33
                                                                                                                 FC51569    34
          1162  43601                    FIB3A    CLAS=  X6,LC,(GLM)                                             FC51569    35
                                                                                                                 KEY      1638
          1163  5110000000 X             FIB4     SA1    T.BLST                                                  KEY      1639
                          5120000000 X            SA2    T=BLST                                                  FC5A127    23
          1164  66551                             =B5    B5-BLIB.W+BLIA.W                                        KEY      1640
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
          1165  6222777776                        SB2    X2-1                                                    FC5A127    24
                          53212                   SA2    X1+B2                                                   FC5A127    25
                               12662              BX6    X6+X2       MERGE IN LC.GLM (IF PRESENT)                FC5A127    26
          1166  54620                             SA6    A2                                                      FC5A127    27
                     5110000000 X                 SA1    T=PAR                                                   KEY      1643
                               10711              BX7    X1                                                      KEY      1644
          1167  5170000000 X                      SA7    CURST       DONT SQUEEZE PAST IF ARM                    KEY      1645
                          0100001206 +            RJ     EGL         EMIT GENERATED LABEL                        FC50265    14
          1170  0400001123 +                      EQ     EXIT.                                                   KEY      1648
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
          1171  0400401171 +             CEM      SUBR               ENTRY/EXIT...                               KEY      1665
          1172  66700                             SB7    B0                                                      KEY      1666
                     20360                        HX3    MO.FUN                                                  KEY      1667
                          0323001171 +            PL     X3,EXIT.    IF NOT COMPILING A FUNCTION                 KEY      1668
          1173  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
          1174  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
          1175  7244777771                        SX4    X4-M.CHAR                                               KEY      1677
                          0311001204 +            NZ     X1,CEM15    IF MAIN ENTRY NOT CHARACTER                 KEY      1678
          1176  0304001200 +                      ZR     X4,CEM5     IF THIS ENTRY IS CHARACTER                  KEY      1679
                          6170000000 X            SB7    E.EN6                                                   KEY      1680
          1177  0400001171 +                      EQ     EXIT.                                                   KEY      1681
                                                                                                                 KEY      1682
          1200  54421                    CEM5     =A4    A2-WB.W+WC.W                                            KEY      1683
                     20337                        LX3    MO.MODEP-MO.CLIFP                                       KEY      1684
                          20437                   LX4    -WC.CLIFP                                               KEY      1685
          1201  5110001362 +                      CLAS=  X1,MO,(CLIF)                                            KEY      1686
                          20137                   LX1    -MO.CLIFP                                               KEY      1687
                               13343              BX3    X4-X3       COMPARE CHAR TYPE INFO                      KEY      1688
          1202  11313                             BX3    X1*X3                                                   KEY      1689
                     0303001171 +                 ZR     X3,EXIT.    IF CHAR INFO EQUAL                          KEY      1694
          1203  6170000000 X                      SB7    E.EN7                                                   KEY      1695
                          0400001171 +            EQ     EXIT.                                                   KEY      1696
                                                                                                                 KEY      1697
                                        **        HERE IF MAIN ENTRY NOT TYPE CHARACTER                          KEY      1698
                                                                                                                 KEY      1699
          1204  0314001171 +             CEM15    NZ     X4,EXIT.    IF THIS ENTRY NOT CHARACTER                 KEY      1700
                          6170000000 X            SB7    E.EN8                                                   KEY      1701
          1205  0400001171 +                      EQ     EXIT.                                                   KEY      1702
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
          1206  0400401206 +             EGL      SUBR               ...ENTRY/EXIT...                            FC50265    27
          1207  76640                             SX6    B4                                                      FC50265    28
                     43500                        MX5    0           OR.20P IS NULL                              FC50265    29
                          5160001214 +            SA6    EGLA        SAVE (B4)                                   FC50265    30
          1210  6130000000 X                      EMIT   V=BSS       THE GL                                      FC50265    31
          1211  0100000000 X                      CALL   OIL                                                     FC50265    32
          1212  5110001214 +                      SA1    EGLA                                                    FC50265    33
                          63410                   SB4    X1          RESTORE (B4)                                FC50265    34
          1213  0400001206 +                      EQ     EXIT.                                                   FC50265    35
                                                                                                                 FC50265    36
          1214                     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
          1215  0400401215 +             MND      SUBR   0           ENTRY/EXIT...                               KEY      1720
          1216  5110000000 X                      SA1    T.NLST                                                  KEY      1721
                          5120000000 X            SA2    T=NLST                                                  KEY      1722
          1217  5130000000 X                      SA3    T.SYM                                                   KEY      1723
                          5140000000 X            SA4    T.DIM                                                   KEY      1724
          1220  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
          1221  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/05. 19.59.18.      PAGE    41
        SUBROUTINES.                                                  MND 
  
                                                                                                                 KEY      1735
                                        *         BEGIN NEXT GROUP.                                              KEY      1736
                                        *                (X5) = GROUP HEADER WORD.                               KEY      1737
                                                                                                                 KEY      1738
          1222  0305001246 +             MND20    ZR     X5,MND70    IF TABLE TERMINATOR                         KEY      1739
                          10755                   BX7    X5                                                      KEY      1740
                               20517              LX5    -NG.NMEMP                                               KEY      1741
          1223  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
                          0440401223 +            ZR     B4,"BLOWUP" IF EMPTY GROUP                              KEY      1746
          1224  20517                             LX5    NG.NMEMP-NG.GROPP POSITION FIRST MEMBER AT TOP          KEY      1747
                     15150                        BX1    -X0*X5      (X1) = SYMORD OF GROUP                      KEY      1748
                          63215                   SB2    X1+B5                                                   KEY      1749
                               22211              LX2    X1,B1                                                   KEY      1750
          1225  53122                             SA1    B2+X2       FETCH SYMTAB (WB.) FOR GROUPNAME            KEY      1751
                                   0              ERRNZ  3-Z=SYM                                                 KEY      1752
                     20135                        HX1    WB.MAT                                                  KEY      1753
                          0331001230 +            MI     X1,MND28    IF GROUP WAS REFERENCED                     KEY      1754
          1226  7164000005                        SX6    B4+2+3      ROUND UP BYTES IN THIS DESCRIPTOR           KEY      1755
                          21602                   AX6    2           DIV 4                                       KEY      1756
                                   0              ERRNZ  60-4*NG.ORDL                                            KEY      1757
                               64350              SB3    A5                                                      KEY      1758
          1227  53563                             SA5    X6+B3       ADVANCE TO NEXT GROUP                       KEY      1759
                     0400001222 +                 EQ     MND20                                                   KEY      1760
                                                                                                                 KEY      1761
          1230  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
          1231  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
          1232  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
          1233  20517                    MND30    LX5    NG.ORDL                                                 KEY      1779
                     15150                        BX1    -X0*X5      (X1) = SYMORD OF MEMBER                     KEY      1780
                                         .T       IFEQ   TEST,ON,1                                               KEY      1781
                          0301401233 +            ZR     X1,"BLOWUP" IF EMPTY BYTE                               KEY      1782
          1234  63215                             SB2    X1+B5                                                   KEY      1783
                     22211                        LX2    X1,B1                                                   KEY      1784
                          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
          1235  20161                             HX1    WB.ARY                                                  KEY      1788
                     54610                        SA6    A1                                                      KEY      1789
                          0321001240 +            PL     X1,MND40    IF NOT ARRAY                                KEY      1790
          1236  20130                             LX1    -WB.PNTP+WB.ARYP+1                                      KEY      1791
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    42
        SUBROUTINES.                                                  MND 
  
                     15317                        BX3    -X7*X1      T.DIM INDEX OF ARRAY                        KEY      1792
                          53236                   SA2    X3+B6       DIM HEADER FOR ARRAY                        KEY      1793
                               20432              LX4    -WB.MATP+DH.MATP                                        KEY      1794
          1237  12624                             BX6    X2+X4       SET *MAT* BIT                               KEY      1795
                     20442                        LX4    -DH.MATP+WB.MATP                                        KEY      1796
                          54620                   SA6    A2                                                      KEY      1797
                                        *         IFBIT  X3,DH.ASP,"BLOWUP"      IF ASSUMED-SIZE ARRAY           KEY      1798
                                                                                                                 KEY      1799
          1240  67771                    MND40    =B7    B7-1                                                    KEY      1800
                     67441                        =B4    B4-1                                                    KEY      1801
                          0570001244 +            NZ     B7,MND45    IF MORE MEMBERS IN THIS WORD                KEY      1802
          1241  0440001244 +                      ZR     B4,MND45    IF NO MORE MEMBERS IN THIS GROUP            KEY      1803
                          54551                   SA5    A5+B1                                                   KEY      1804
          1242  6170000004                        SB7    60/NG.ORDL                                              KEY      1805
                          10755                   BX7    X5          COPY MATERIAL DESCRIPTOR WORD               KEY      1806
                               54771              SA7    A7+B1                                                   KEY      1807
          1243  43757                             MX7    -WB.PNTL                                                KEY      1808
          1244  0540001233 +             MND45    NZ     B4,MND30    IF GROUP HAS MORE MEMBERS                   KEY      1809
                          5055000001              SA5    A5+1                                                    KEY      1810
          1245  0400001222 +                      EQ     MND20       LOOP..                                      KEY      1811
                                                                                                                 KEY      1812
          1246  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
          1247  5160000000 X                      SHRINK T=NLST,X6                                               KEY      1816
                          0400001215 +            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
          1250  0400401250 +             PJX      SUBR   0           ENTRY/EXIT...                               KEY      1828
          1251  5110000000 X                      SA1    PJXARM                                                  KEY      1829
                          5160000143 +            SA6    PJXB                                                    KEY      1830
          1252  55761                             SA7    A6-B1                                                   KEY      1831
                     43600                        MX6    0                                                       KEY      1832
                          10711                   BX7    X1                                                      KEY      1833
          1253  5160000000 X                      SA6    ARGCOMA                                                 KEY      1834
                          5170000000 X            SA7    ARGMODE                                                 KEY      1835
          1254  0100000000 X                      CALL   PAR         PARSE EXPRESSION, EMIT JUMP                 KEY      1836
          1255  5110000000 X                      SA1    T=PAR                                                   KEY      1837
                          10611                   BX6    X1          INHIBIT SQUEEZE ACROSS JUMP                 KEY      1838
          1256  5160000000 X                      SA6    CURST                                                   KEY      1839
                          0400001250 +            EQ     EXIT.                                                   KEY      1840
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
          1257                           C=PJX    BSSENT 0           ENTRY...                                    KEY      1847
          1257  56240                             SA2    B4                                                      KEY      1848
                     43071                        MX0    -TP.MODEL                                               KEY      1849
                                                  LX5    -TP.MODEP                                               KEY      1850
                          0302001262 +            ZR     X2,PJX4     IF AT *EOS*                                 KEY      1851
                                   0              ERRNZ  O.EOS                                                   KEY      1852
          1260  6170000000 X                      WARN   E.GO9                                                   KEY      1853
          1261  0400000000 X                      EQ     C=CERR                                                  KEY      1854
                                                                                                                 KEY      1855
          1262  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
          1263  0303001267 +                      ZR     X3,PJX8     IF INTEGER EXPRESSION                       KEY      1860
                          6170000000 X            ANSI   E.GO6       ** MUST BE INTEGER                          KEY      1861
          1265  0100000000 X                      CALL   CMR         COERCE MODE OF RESULT                       KEY      1862
          1266  0470001267 +                      ZR     B7,PJX8     IF MODE CONVERTED OKAY                      KEY      1863
                          0100000000 X            FATAL  B7                                                      KEY      1864
                                                                                                                 KEY      1865
          1267  5130000001 X             PJX8     SA3    DUC=1ST+OPDUM                                           KEY      1866
                          5120000143 +            SA2    PJXB                                                    KEY      1867
          1270  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
          1271  0400000000 X                      EQ     POP.STD     EXIT..                                      KEY      1872
                                                                                                                 KEY      1873
                                 142 +   PJXA     EQU    CLLA        SAVE (2OP)                                  KEY      1874
                                 143 +   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/05. 19.59.18.      PAGE    44
        SUBROUTINES.                                                  RIT 
  
          1272  0400401272 +             RIT      SUBR               ...ENTRY/EXIT...                            KEY      1896
          1273  5120000000 X                      SA2    N.GL                                                    KEY      1897
                          5130000000 X            SA3    T.PAR                                                   KEY      1898
          1274  7262777776                        SX6    X2-1        RESET (TG.PRO)                              KEY      1899
                          5110000000 X            SA1    T=PAR                                                   KEY      1900
          1275  13777                             BX7    0                                                       KEY      1901
                     5150000575 +                 SA5    IFREL1      OPPOSITE LOGIC MACRO ADDRESS                KEY      1902
                               36031              IX0    X3+X1       (X0) = LWA+1 OF (T.PAR)                     KEY      1903
          1276  54620                             SA6    A2                                                      KEY      1904
                     43156                        MX1    -TH.SKELL                                               KEY      1905
                          5170000571 +            SA7    INIF                                                    KEY      1906
          1277  5220777771                        SA2    X0-2*Z=TURP+OR.OPR                                      KEY      1907
                          10744                   BX7    X4                                                      KEY      1908
                               20216              LX2    -TH.SKELP                                               KEY      1909
          1300  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
          1301  20656                             LX6    TH.SKELP                                                KEY      1913
                     54620                        SA6    A2                                                      KEY      1914
                          0400001272 +            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
          1302  0400401302 +             SER      SUBR               ...ENTRY/EXIT...                            KEY      1924
          1303  5150000000 X                      SA5    S=TRACE                                                 KEY      1925
                          6160000001 X            SB6    ESTACK+1                                                KEY      1926
          1304  20554                             LX5    TP.ORDP                                                 KEY      1927
                     10655                        BX6    X5                                                      KEY      1928
                          6150001307 +            SB5    S.END                                                   KEY      1929
          1305  57661                             SA6    B6-B1                                                   KEY      1930
                     0100001340 +                 RJ     SRJ         EMIT APL AND RJ                             KEY      1931
          1306  0400001302 +                      EQ     EXIT.                                                   KEY      1932
                                                                                                                 KEY      1933
          1307  05160440570000000000     S.END    =XLIB  END5                                                    KEY      1934
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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
          1310  0400401310 +             SPR      SUBR   0           ENTRY/EXIT...                               KEY      1957
          1311  56140                             SA1    B4                                                      KEY      1958
                     6160000001 X                 SB6    ESTACK+1                                                KEY      1959
                               56241              =A2    B4+1                                                    KEY      1960
          1312  0301001321 +                      ZR     X1,SPR20    IF EOS -- ARGUMENT NOT PRESENT              KEY      1961
                          6221777773              =B2    X1-O.CHAR                                               KEY      1962
          1313  6231777772                        =B3    X1-O.CONS                                               KEY      1963
                          0302001315 +            ZR     X2,SPR13    IF SECOND TOKEN IS EOS                      KEY      1964
                                   0              ERRNZ  O.EOS                                                   KEY      1965
          1314  6170000000 X                      WARN   E.SPR4                                                  KEY      1966
          1315  0430001323 +             SPR13    ZR     B3,SPR30    IF DIGIT                                    KEY      1967
                          0520001320 +            NZ     B2,SPR15    IF NOT CHAR CONSTANT                        KEY      1968
          1316  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
          1317  20117                             LX1    TB.SHCP-TB.CLCNP                                        KEY      1973
                     15117                        BX1    -X7*X1      CHAR LEN = CLCN [TB ENTRY]                  KEY      1974
                          0400001333 +            EQ     SPR40                                                   KEY      1975
                                                                                                                 KEY      1976
          1320  6170000000 X             SPR15    WARN   E.SPR1      ILLEGAL ARGUMENT                            KEY      1977
                                                                                                                 KEY      1978
                                        *         NO ARGUMENT CASE -- EMIT ZERO PARAMETER.                       KEY      1979
                                                                                                                 KEY      1980
          1321  5120000000 X             SPR20    SA2    CONZER      STACK SHORT CONSTANT OF ZERO                KEY      1981
                          10622                   BX6    X2                                                      KEY      1982
                               57661              SA6    B6-B1                                                   KEY      1983
          1322  0400001334 +                      EQ     SPR60                                                   KEY      1984
                                                                                                                 KEY      1985
                                        *         HERE IF NUMERIC STRING.                                        KEY      1986
                                                                                                                 KEY      1987
          1323  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
          1324  15612                             BX6    -X2*X1                                                  KEY      1992
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    46
        SUBROUTINES.                                                  SPR 
  
                     0306001326 +                 ZR     X6,SPR34    IF MORE THAN 5 DIGITS                       KEY      1993
          1325  6170000000 X                      WARN   E.SPR2      ** EXCESS DIGITS TRUNCATED                  KEY      1994
          1326  11101                    SPR34    BX1    X0*X1                                                   KEY      1995
                     0100000000 X                 CALL   ZTB         ELIMINATE COLONS                            KEY      1996
          1327  5110000000 X                      SCAN   T.CON,SCT   SCAN FOR DUPLICATE STRING                   KEY      1997
          1330  7127000001                        SX2    B7+1                                                    KEY      1998
                          7140000005              SX4    5           LENGTH = 5                                  KEY      1999
          1331  0670001332 +                      PL     B7,SPR36    IF STRING ALREADY EXISTS                    KEY      2000
                          0100000000 X            ADDWD  A1                                                      KEY      2001
          1332  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
          1333  0100000000 X             SPR40    CALL   ECC         EMIT CHARACTER CONSTANT                     KEY      2009
          1334  0100001340 +             SPR60    RJ     SRJ         COMPILE APL AND RJ                          KEY      2010
          1335  0400001310 +                      EQ     EXIT.                                                   KEY      2011
                                                                                                                 KEY      2012
          1336  20012523405700000000     S.PAUSE  =XLIB  PAUS5                                                   KEY      2013
          1337  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
          1340  0400401340 +             SRJ      SUBR   0           ENTRY/EXIT...                               KEY      2027
          1341  7170000001                        SX7    1+                                                      KEY      2028
                          5170000000 X            SA7    CF=AC       INDICATE 1 ARGUMENT                         KEY      2029
          1342  57161                             =A1    B6-1        X1 = ARGUMENT                               KEY      2030
                     67661                        =B6    B6-1        POP THE ARGUMENT                            KEY      2031
                          10611                   BX6    X1                                                      KEY      2032
          1343  5110000000 X                      ADDWD  T.ARG       ARGUMENT IS ON T.ARG                        KEY      2033
          1344  5130000000 X                      SA3    GAPOP                                                   KEY      2034
                          0100000000 X            CALL   EAL         EMIT AP LIST                                KEY      2035
          1345  56150                             TAGSEX B5          FORM OPERAND FOR ROUTINE                    KEY      2036
          1346  10466                             BX4    X6          (P1) = ROUTINE                              KEY      2037
                     6175776441 -                 SB7    B5-S.PAUSE                                              KEY      2038
                               76510              SX5    B1          (2OP) = 1 ARGUMENT                          KEY      2039
          1347  6130000000 X                      SB3    V=STOP                                                  KEY      2040
                          20524                   LX5    TP.BIASP                                                KEY      2041
          1350  0570001351 +                      NZ     B7,SRJ6     IF NOT *PAUSE*                              KEY      2042
                          6130000000 X            SB3    V=PAUS                                                  KEY      2043
          1351  0100000000 X             SRJ6     CALL   EMT         EMIT TURPLE                                 KEY      2044
          1352  0400001340 +                      EQ     EXIT.                                                   KEY      2045
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      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.
  
          1353  24170000000000000000    TO
          1354  00000000000000000000
          1355  00000000000100000240         A  B5
          1356  00000000002050020440         P/BD5
          1357  00000000010000020300        A  BC 
          1360  00000000002000000300         P  C 
          1361  00000000004000000100         5  A 
          1362  00007777774000000000      ;;;5
  
          1372                                    END                                                            KEY      2048
  
                             75200B CM  STORAGE USED             7419 STATEMENTS     1732 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.636 SECONDS        1666 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/09 X    8/34     14/40     31/07     46/44
                                            5/16     11/43     15/06     46/09
        AGN2           16   PROGRAM*        3/44      3/48 L
        AGN4           22   PROGRAM*        3/54      4/01 L
        AGN5           33   PROGRAM*        4/22      4/25 L
        AGN6           35   PROGRAM*        4/25      4/29 L
        AGN7           42   PROGRAM*        4/30      4/40 L
        AGN8           51   PROGRAM*        4/49      5/06 L
        AGN9           52   PROGRAM*        5/04      5/10 L
        AG.BIASP       24   FTX             5/02
        AG.ORDP        54   FTX             5/01
        ALC             0   EXTERNAL*       2/09 X    8/37     30/47
        ALU             0   EXTERNAL*       2/37 X   29/19
        ANSI=           0   EXTERNAL*       2/47 X   30/25     43/20
        ARGCOMA         0   EXTERNAL*       2/12 X    7/01 S   26/54 S   29/39 S   42/46 S
        ARGMODE         0   EXTERNAL*       2/12 X    7/02 S   26/55 S   29/40 S   42/47 S
        ASK             0   EXTERNAL*       2/12 X    4/05
        ASL             0   EXTERNAL*       2/12 X    3/17
        ASSTAG          0   EXTERNAL*       2/12 X    3/42 S    4/40
        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/43 X    6/51
        CALLSYM       143   PROGRAM*        5/51 S    7/47 D
        CALLTAG         0   EXTERNAL*       2/12 X    6/35 S    7/14      7/38
        CCT             0   EXTERNAL*       2/12 X    5/57
        CEM          1171   PROGRAM*       11/21     39/15 L
        CEM15        1204   PROGRAM*       39/28     39/46 L
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        CEM5         1200   PROGRAM*       39/29     39/33 L
        CF=AC           0   EXTERNAL*       2/43 X    7/04      8/20     46/40 S
        CHAR            6   FTX             3/50      4/02
        CIM          1100   PROGRAM*       27/20     30/29     30/48     35/17 L
        CIM1         1111   PROGRAM*       35/21     35/51 L
        CIM2         1116   PROGRAM*       35/45     36/08 L
        CLASS           0   EXTERNAL*       2/23 X    4/31     22/16
        CLLA          142   PROGRAM*        6/38 S    7/16      7/44 L    8/24 S    8/25     25/07     43/33     43/35
        CLLB          143   PROGRAM*        7/45 L    7/47      8/25     43/34     43/35
        CLLC          144   PROGRAM*        7/25      7/46 L    8/33 S
        CLL22          74   PROGRAM*        6/04      6/08 L
        CLL23          76   PROGRAM*        6/09      6/12 L
        CLL24         100   PROGRAM*        5/54      6/17 L
        CLL30         102   PROGRAM*        6/15      6/25 L
        CLL33         110   PROGRAM*        6/31      6/34 L
        CLL35         114   PROGRAM*        6/39      6/42 L
        CLL40         124   PROGRAM*        7/14 L    7/42
        CLL48         133   PROGRAM*        7/18      7/28 L
        CLL60         135   PROGRAM*        6/43      6/50      7/36 L
        CLL62         137   PROGRAM*        7/36      7/38 L
        CMR             0   EXTERNAL*       2/43 X   43/21
        CONZER          0   EXTERNAL*       2/50 X   45/46
        CONZERI         0   EXTERNAL*       2/50 X    7/17
        CON2          165   PROGRAM*        8/56      9/02 L
        CON4          170   PROGRAM*        9/03      9/07 L
        CO.DBID         0   EXTERNAL*      37/25
        CRL           145   PROGRAM*        8/19 L    8/19 E
        CR.AGN          1   FTX             3/19
        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/18
        CR.SUB         55   FTX             5/42      6/27      6/27
        CR.VGOTO       55   FTX            19/22
        CSB             0   EXTERNAL*       2/12 X   35/02
        CSLTAG          0   EXTERNAL*       2/12 X   21/07     29/08     32/35
        CST             0   EXTERNAL*       2/40 X   30/15
        CT1             0   EXTERNAL*       2/13 X    6/29
        CURST           0   EXTERNAL*       2/43 X    7/30 S   21/25 S   28/39 S   30/33 S   38/09 S   42/51 S
        CUS.RET         0   EXTERNAL*       2/13 X   21/19     33/44     34/25     35/01
                                           21/13     21/26     33/53     34/29     35/05
        C=CERR          0   EXTERNAL*       2/43 X   43/13
        C=PJX        1257   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/13 X   19/27     20/42     30/21     32/20
        DUC=            0   FTX             7/15     11/47     21/22     33/52     37/24
                                           10/06     17/26     24/54     36/15     40/16
        DUC=BOTH        3   FTX             7/24
        DUC=1ST         1   FTX            23/20     34/46     35/52     43/25
        DUC=2ND         2   FTX             4/42
        EAL             0   EXTERNAL*       2/43 X   46/46
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        ECC             0   EXTERNAL*       2/43 X   46/17
        EGL          1206   PROGRAM*        7/26     28/32     28/50     38/10     40/12 L
        EGLA         1214   PROGRAM*       40/15 S   40/18     40/22 L
        EIFA          711   PROGRAM*       28/31 S   28/33     28/36 S   28/45     28/53     29/22 L
        EIF0          642   PROGRAM*       27/37     27/41 L
        EIF1          644   PROGRAM*       27/46 L   28/20
        EIF2          661   PROGRAM*       27/54     28/22 L
        EIF3          667   PROGRAM*       28/29     28/36 L
        EIF4          676   PROGRAM*       28/48     28/52 L
        EIF5          702   PROGRAM*       28/55     28/56     29/04 L
        ELF           614   PROGRAM*       26/25     26/41 L
        ELFA          605   PROGRAM*       26/10 L   26/42
        ELF1          627   PROGRAM*       27/05     27/09 L
        ELF2          631   PROGRAM*       27/07     27/11     27/15 L
        ELF3          634   PROGRAM*       27/17     27/20 L
        ELS           613   PROGRAM*       26/22     26/31 L
        EMT             0   EXTERNAL*       2/43 X    7/24     17/26     24/54     34/55     37/24
                                            4/42     10/06     21/22     33/52     36/02     40/16
                                            7/15     11/47     23/20     34/52     36/15     46/55
        END20         175   PROGRAM*        9/30      9/38 L
        END23         172   PROGRAM*        9/23 L    9/23 E
        END26         177   PROGRAM*        9/39      9/43 L
        END60         204   PROGRAM*        9/48      9/53 L
        END74         210   PROGRAM*       10/03     10/08 L
        END80         212   PROGRAM*        9/49      9/51     10/09     10/12 L
        END90         213   PROGRAM*        9/45     10/13 L
        ENTA          271   PROGRAM*       10/44 S   11/39     12/21 S   12/24     12/30 L
        ENT1          222   PROGRAM*       10/33     10/37 L
        ENT20         234   PROGRAM*       10/49     11/05 L
        ENT21         236   PROGRAM*       11/05     11/10 L
        ENT22         240   PROGRAM*       11/08     11/13 L
        ENT40         241   PROGRAM*       10/57     11/20 L
        ENT80         255   PROGRAM*       10/51     10/55     11/22     12/01 L
        ENT90         260   PROGRAM*       11/50     12/14 L
        ERT             0   EXTERNAL*       2/13 X    6/27     12/22     13/49     16/55
        ESTACK          0   EXTERNAL*       2/13 X   44/34     45/24
        ESY             0   EXTERNAL*       2/13 X    6/20     11/13     13/33
        E.ANS           0   EXTERNAL*       2/20 X   12/52
        E.ANS3          0   EXTERNAL*       2/20 X   17/17
        E.AS1           0   EXTERNAL*       2/20 X    4/27
        E.AS2           0   EXTERNAL*       2/20 X    3/56
        E.AS3           0   EXTERNAL*       2/20 X    4/23
        E.AS4           0   EXTERNAL*       2/20 X    3/15
        E.AS5           0   EXTERNAL*       2/20 X    3/46
        E.AS7           0   EXTERNAL*       2/23 X    4/38      4/38     22/23
        E.CL1           0   EXTERNAL*       2/20 X    7/37
        E.CL2           0   EXTERNAL*       2/20 X    5/52
        E.CL3           0   EXTERNAL*       2/21 X    6/06
        E.CL4           0   EXTERNAL*       6/10
        E.CT            0   EXTERNAL*       2/21 X    9/07
        E.CT1           0   EXTERNAL*       2/21 X    9/01
        E.EN            0   EXTERNAL*       2/21 X   10/54
        E.EN1           0   EXTERNAL*       2/21 X   10/27
        E.EN2           0   EXTERNAL*       2/21 X   10/35
        E.EN3           0   EXTERNAL*       2/21 X   10/38
        E.EN4           0   EXTERNAL*       2/21 X   10/40
        E.EN5           0   EXTERNAL*       2/21 X   10/50
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        E.EN6           0   EXTERNAL*       2/22 X   39/30
        E.EN7           0   EXTERNAL*       2/22 X   39/41
        E.EN8           0   EXTERNAL*       2/22 X   39/47
        E.FM            0   EXTERNAL*       2/22 X   26/44     30/17
        E.GO            0   EXTERNAL*       2/22 X   20/09     23/05     24/27
        E.GO1           0   EXTERNAL*       2/22 X   19/19
        E.GO2           0   EXTERNAL*       2/22 X   21/11
        E.GO3           0   EXTERNAL*       2/22 X   22/40
        E.GO4           0   EXTERNAL*       2/22 X   22/30
        E.GO5           0   EXTERNAL*       2/23 X    9/04     21/12
        E.GO6           0   EXTERNAL*       2/23 X   43/20
        E.GO7           0   EXTERNAL*       2/23 X   20/17
        E.GO8           0   EXTERNAL*       2/23 X   23/02     25/02     25/02
        E.GO9           0   EXTERNAL*       2/23 X   23/09     43/12
        E.IF00          0   EXTERNAL*       2/24 X   29/53
        E.IF01          0   EXTERNAL*       2/24 X   27/18
        E.IF02          0   EXTERNAL*       2/24 X   30/25     30/25
        E.IF03          0   EXTERNAL*       2/24 X   32/03     32/10
        E.IF04          0   EXTERNAL*       2/24 X   33/49
        E.IF05          0   EXTERNAL*       2/24 X   33/43
        E.IF06          0   EXTERNAL*       2/24 X   30/20
        E.IF07          0   EXTERNAL*       2/24 X   31/36
        E.IF08          0   EXTERNAL*      27/13     27/39
        E.IF09          0   EXTERNAL*       2/25 X   30/03
        E.IF10          0   EXTERNAL*       2/25 X   32/19
        E.IF11          0   EXTERNAL*       2/25 X   30/05
        E.IF12          0   EXTERNAL*       2/25 X   26/48
        E.IF13          0   EXTERNAL*       2/25 X   27/43     36/34     38/02
        E.IF14          0   EXTERNAL*       2/25 X   27/06     27/06
        E.IF15          0   EXTERNAL*       2/25 X   28/17     37/06
        E.MDO           0   EXTERNAL*       2/25 X   19/31     32/26
        E.ME1           0   EXTERNAL*       2/26 X    9/41      9/41
        E.MR2           0   EXTERNAL*       2/26 X   13/11
        E.MR3           0   EXTERNAL*       2/26 X   13/57
        E.NL            0   EXTERNAL*       2/26 X   13/10
        E.NL1           0   EXTERNAL*       2/26 X   13/22
        E.NL2           0   EXTERNAL*       2/26 X   13/15
        E.NL3           0   EXTERNAL*       2/26 X   13/24
        E.NL4           0   EXTERNAL*       2/26 X   14/25
        E.NL5           0   EXTERNAL*       2/28 X   14/06
        E.OV3           0   EXTERNAL*       2/26 X    9/21
        E.SPR1          0   EXTERNAL*       2/27 X   45/42
        E.SPR2          0   EXTERNAL*       2/27 X   46/02     46/02
        E.SPR4          0   EXTERNAL*       2/27 X   17/50     45/31
        E.SPR5          0   EXTERNAL*       2/27 X   17/55     17/55
        FBS             0   EXTERNAL*       2/37 X   28/22     37/11
        FEC=STF         0   EXTERNAL*       2/13 X   10/31
        FEC.RIF         0   EXTERNAL*       2/13 X   30/28     30/34
        FEC.RTF         0   EXTERNAL*       2/13 X   10/13
        FEC.RTN         0   EXTERNAL*       2/14 X    5/29     14/09     15/17     16/06     20/12
        FIB          1123   PROGRAM*       26/23     36/32 L
        FIB1         1125   PROGRAM*       36/36 L   37/09
        FIB2         1141   PROGRAM*       36/43     37/11 L
        FIB3         1146   PROGRAM*       37/16     37/22 L
        FIB3A        1162   PROGRAM*       37/26     37/28     37/31     37/53 L
        FIB4         1163   PROGRAM*       37/20     37/55 L
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        FILL.           0   EXTERNAL*       2/27 X    4/37 S   10/43 S   22/22 S   29/56 S
                                            3/55 S    5/50 S   14/05 S   28/16 S   37/05 S
        FILL.2          0   EXTERNAL*       2/23 X    4/33 S   22/18 S   29/18 S
        FILL.3          0   EXTERNAL*       2/27 X   31/35 S
        FLOW            0   EXTERNAL*       2/14 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/56 X   34/04
        F.IFS           0   EXTERNAL*       2/56 X   31/27     33/56     34/02
        GAPOP           0   EXTERNAL*       2/43 X   46/45
        GOA           474   PROGRAM*       19/34     22/04 L
        GOA10         504   PROGRAM*       22/15     22/25 L
        GOA20         507   PROGRAM*       22/27     22/29     22/31 L
        GOA22         511   PROGRAM*       22/34     22/37 L
        GOA30         514   PROGRAM*       22/39     22/46 L
        GOA32         515   PROGRAM*       22/47 L   23/03
        GOA36         523   PROGRAM*       23/01     23/03 L
        GOA60         527   PROGRAM*       23/07     23/16 L   23/30     24/02
        GOA70         534   PROGRAM*       22/38     23/29 L
        GOA80         537   PROGRAM*       23/36 L   24/01
        GOA88         545   PROGRAM*       23/43     24/01 L
        GOC           546   PROGRAM*       19/26     24/19 L
        GOC2          546   PROGRAM*       24/21 L   24/25
        GOC4          555   PROGRAM*       24/33     24/36 L
        GOC6          560   PROGRAM*       24/45 L   25/05
        GOC7          570   PROGRAM*       25/01     25/04 L
        GOT           442   PROGRAM*       19/28     19/30     19/33 L
        GOTA          142   PROGRAM*       20/49 S   21/06     21/20     23/17 S   23/18     25/07 D
        GOT6          451   PROGRAM*       20/16     20/19 L
        GOT7          457   PROGRAM*       20/24     20/47 L
        GOT7A         462   PROGRAM*       20/50     21/06 L
        GOT7B         467   PROGRAM*       21/10     21/19 L
        HANGER          0   EXTERNAL*       2/14 X   20/51 S   32/23 S   32/33 S
        IDP=            0   EXTERNAL*       2/34 X    5/28
        IFARM           0   EXTERNAL*       2/43 X   26/51     29/36
        IFFLAG       1077   PROGRAM*       31/47 S   32/16 S   35/07 L   35/07 E
        IFL           757   PROGRAM*       30/01     31/26 L
        IFLEVEL         0   EXTERNAL*       2/14 X   27/41     30/44     36/33
        IFLN          577   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         765   PROGRAM*       31/31     31/38 L
        IFL30         772   PROGRAM*       31/51 L   32/07
        IFL40        1002   PROGRAM*       32/02     32/06     32/14 L
        IFL50        1012   PROGRAM*       32/21     32/31 L
        IFL52        1016   PROGRAM*       32/39 L   32/43
        IFL60        1020   PROGRAM*       32/42     32/47 L
        IFL61        1023   PROGRAM*       32/52     32/54 L
        IFL62        1025   PROGRAM*       32/55     32/57 L
        IFL63        1026   PROGRAM*       33/01     33/11 L
        IFL63A       1030   PROGRAM*       33/16 L   33/19     33/21     33/33
        IFL63B       1036   PROGRAM*       33/17     33/35 L
        IFL64        1040   PROGRAM*       33/36     33/40 L
        IFL65        1044   PROGRAM*       33/42     33/46 L
        IFL70        1052   PROGRAM*       33/41     33/55 L
        IFL80        1060   PROGRAM*       34/01     34/03     34/09     34/17 L
        IFL90        1065   PROGRAM*       33/48     34/45 L
        IFMOD         573   PROGRAM*       26/03 L   26/03 E   27/15     29/57     31/26     33/55     34/17
        IFNEST        572   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/05. 19.59.18.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        IFREL1        575   PROGRAM*       26/05 L   26/56 S   29/41 S   35/39 S   35/55 S   44/07
        IFREL2        576   PROGRAM*       26/06 L   26/06 E   35/20
        IFRESLT       574   PROGRAM*       26/04 L   26/04 E   34/48     35/56
        IFS           712   PROGRAM*       29/32 L   29/32 E
        IFSA          603   PROGRAM*       26/08 L   34/51 S   36/01 S
        IFSB          604   PROGRAM*       26/09 L   27/03     30/09
        IFS11         724   PROGRAM*       30/07 L   30/07 E
        IFS30         727   PROGRAM*       30/11     30/15 L
        IFS40         735   PROGRAM*       30/22     30/24     30/27 L
        IFT           742   PROGRAM*       30/13     30/44 L
        INIF          571   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/37 X    3/24     20/11     22/51     24/51     31/54
        KW=ASSI         0   PROGRAM*        3/12 L    3/12 E
        KW=BREA        57   PROGRAM*        5/26 L    5/26 E
        KW=CALL        61   PROGRAM*        5/38 L    5/38 E
        KW=CONT       162   PROGRAM*        8/52 L    8/52 E
        KW=ELSE       606   PROGRAM*       26/20 L   26/20 E
        KW=END        171   PROGRAM*        9/18 L    9/18 E
        KW=ENDI       640   PROGRAM*       27/35 L   27/35 E
        KW=ENTR       214   PROGRAM*       10/23 L   10/23 E
        KW=GOTO       432   PROGRAM*       19/15 L   19/15 E
        KW=NAME       272   PROGRAM*       12/50 L   12/50 E
        KW=PATC       361   PROGRAM*       15/54 L   15/54 E
        KW=PAUS       367   PROGRAM*       16/23 L   16/23 E
        KW=RETU       371   PROGRAM*       16/48 L   16/48 E
        KW=STOP       426   PROGRAM*       18/23 L   18/23 E
        KW.DONP        51   FTX            30/23
        KW.LENP        22   FTX             4/03
        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/50 X   28/15     37/04
        MND          1215   PROGRAM*       10/12     40/43 L
        MND20        1222   PROGRAM*       41/05 L   41/26     42/20
        MND28        1230   PROGRAM*       41/20     41/28 L
        MND30        1233   PROGRAM*       41/45 L   42/18
        MND40        1240   PROGRAM*       41/56     42/09 L
        MND45        1244   PROGRAM*       42/11     42/12     42/18 L
        MND70        1246   PROGRAM*       41/05     42/22 L
        MOD             0   EXTERNAL*       2/50 X    9/43      9/55     10/25     10/46     11/20     16/50
        MOD.DPC         0   EXTERNAL*       2/27 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             9/56     10/48     39/17
        MO.FUNP        13   FTX             9/56     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
        MO.SUBL         1   FTX             9/56
        MO.SUBP        12   FTX             9/56
        MVE=            0   EXTERNAL*       3/04 X    8/40
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        M.BOOL          0   FTX            22/28
        M.CHAR          6   FTX            39/22     39/27
        M.INT           2   FTX             4/21     22/26     43/16
        M.LOG           1   FTX            27/16     30/02
        NAMA          355   PROGRAM*       13/29 S   15/08     15/27 L
        NAMB          356   PROGRAM*       13/05 S   13/39 S   14/32     15/03     15/28 L
        NAMC          360   PROGRAM*       13/43 S   15/23     15/29 L
        NAM1          274   PROGRAM*       13/05 L   15/16
        NAM1.5        304   PROGRAM*       13/17     13/21 L
        NAM2          321   PROGRAM*       13/45     13/55 L   15/02
        NAM3          335   PROGRAM*       14/17     14/32 L
        NAM4          342   PROGRAM*       14/39     14/44 L
        NAM5          347   PROGRAM*       15/04     15/08 L
        NAM.ERR       353   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/50 X    9/27
        NOOPP           0   EXTERNAL*       2/44 X   34/55
        NOPATH          0   EXTERNAL*       2/14 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/50 X   18/02 S
        N.FP            0   EXTERNAL*       2/50 X   10/08
        N.GL            0   EXTERNAL*       2/50 X    8/23     31/08     36/08     44/02
        OCT             0   EXTERNAL*       2/14 X   15/57     16/03
        OIL             0   EXTERNAL*       2/14 X   12/27     40/17
        OM=IF           0   EXTERNAL*       2/56 X   34/28
        OPDUM           0   EXTERNAL*       2/44 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/43     22/33     23/04     24/32     31/57
                                           15/01     22/57     24/22     24/32     31/57
        O.CONS          5   FTX             3/14     29/54     45/28
        O.EOS           0   FTX             4/26      8/57      9/40     23/08     27/12     27/38     43/11     45/30
        O.LP           37   FTX             6/42     19/20     22/37     26/47
        O.RP           40   FTX             6/48     23/04     24/26
        O.SLASH        17   FTX            13/09     13/21
        O.SLP          44   FTX             6/45     24/28     24/48     26/49     29/34
        O.VAR          11   FTX             5/46     10/39     13/16     19/33     26/10
                                            6/37     13/14     14/04     26/09
        PAR             0   EXTERNAL*       2/44 X    7/03     26/57     29/43     42/48
        PATA          366   PROGRAM*       16/01 S   16/04     16/08 L
        PDA             0   EXTERNAL*       2/37 X    6/33     17/03
        PDM             0   EXTERNAL*       2/47 X    4/38      9/04     17/55     22/30     27/06     31/36     43/12
                                            3/46      6/06      9/41     19/31     22/40     27/13     32/26     43/23
                                            3/56      6/10     12/01     20/17     23/02     27/18     33/43     45/31
                                            4/23      7/37     12/52     21/12     23/09     27/39     33/49     45/42
                                            4/27      9/01     17/50     22/23     25/02     28/17     37/06     46/02
        PJX          1250   PROGRAM*       18/04     24/39     42/40 L
        PJXA          142   PROGRAM*       43/33 D
        PJXARM          0   EXTERNAL*       2/44 X   42/41
        PJXB          143   PROGRAM*       42/42 S   43/26     43/34 D
        PJX4         1262   PROGRAM*       43/10     43/15 L
        PJX8         1267   PROGRAM*       43/19     43/22     43/25 L
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        POP.STD         0   EXTERNAL*       2/44 X   43/31
        PSA             0   EXTERNAL*       2/31 X   12/23
        PSL             0   EXTERNAL*       2/37 X    5/17      9/08     17/44     20/43     24/49     29/07     32/25
                                            3/25      6/01     12/28     18/10     20/52     26/31     29/09     32/27
                                            4/08      7/31     16/27     18/28     22/48     27/25     29/20
                                            5/15      9/05     17/27     18/31     23/23     27/48     31/11
        RBE             0   EXTERNAL*       2/37 X   28/19     37/08
        REFLIN          0   EXTERNAL*       2/14 X   31/03
        REFNUM          0   EXTERNAL*       2/15 X    3/23 S   19/21 S
        REFVAR          0   EXTERNAL*       2/15 X    3/21 S    5/43 S   19/25 S   31/43 S
        RIT          1272   PROGRAM*       17/43     20/41     44/01 L
        RTNCNT          0   EXTERNAL*       2/15 X   17/37
        RTN1          375   PROGRAM*       16/53     16/57 L
        RTN2          377   PROGRAM*       17/01     17/05 L
        RTN3          401   PROGRAM*       17/16 L   17/51
        RTN4          403   PROGRAM*       17/12     17/21 L   17/56
        RTN8          407   PROGRAM*       17/22     17/36 L
        RTN9          413   PROGRAM*       17/11     17/49 L
        RTN92         416   PROGRAM*       17/49     17/53 L
        RTN94         421   PROGRAM*       17/54     18/01 L
        RTN98         425   PROGRAM*       18/06     18/10 L
        SB=CONT         0   EXTERNAL*       2/40 X    9/20
        SCT             0   EXTERNAL*       2/15 X    5/14     46/05
        SER          1302   PROGRAM*        9/50     17/16     44/32 L
        SPR          1310   PROGRAM*       16/26     18/26     45/22 L
        SPR13        1315   PROGRAM*       45/29     45/32 L
        SPR15        1320   PROGRAM*       45/33     45/42 L
        SPR20        1321   PROGRAM*       45/26     45/46 L
        SPR30        1323   PROGRAM*       45/32     45/53 L
        SPR34        1326   PROGRAM*       46/01     46/03 L
        SPR36        1332   PROGRAM*       46/08     46/10 L
        SPR40        1333   PROGRAM*       45/40     46/17 L
        SPR60        1334   PROGRAM*       45/49     46/18 L
        SP.SKELP       52   FTX            34/47     35/51     43/28
        SRJ          1340   PROGRAM*       44/39     46/18     46/38 L
        SRJ6         1351   PROGRAM*       46/53     46/55 L
        SSY             0   EXTERNAL*       2/15 X    5/53     10/45     13/23
        STAGE           0   EXTERNAL*       2/15 X   10/30
        STL0R           0   EXTERNAL*       2/37 X   20/13     22/52     24/55
        STY             0   EXTERNAL*       2/15 X   11/10
        S=ENTRY         0   EXTERNAL*       2/50 X   16/51
        S=EXIT          0   EXTERNAL*       2/51 X   17/36
        S=TRACE         0   EXTERNAL*       2/51 X   44/33
        S=VALUE         0   EXTERNAL*       2/51 X   11/25
        S.END        1307   PROGRAM*       44/37     44/42 L
        S.PAUSE      1336   PROGRAM*       16/25     46/21 L   46/49
        S.STOP       1337   PROGRAM*       18/25     46/22 L
        TB=LABL         0   EXTERNAL*       2/40 X   29/16
        TB=LABR         0   EXTERNAL*       2/40 X    8/55     20/14     22/53     24/56
        TB=TYPE         0   EXTERNAL*       2/40 X   30/16
        TB=1ST          0   EXTERNAL*       2/40 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/45     10/41     26/09     26/10     29/51     45/54
        TB.TOTL        22   FTX             5/47     26/09     26/10
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        TEST            1   FTX             5/25 F    6/52 F    9/54 F   15/52 F   35/36 F   41/11 F   41/47 F
        TH.SKELL       16   FTX            35/35     44/10
        TH.SKELP       56   FTX            35/40     35/43     44/14     44/18
        TLV             0   EXTERNAL*       2/15 X    6/40     13/18
        TP.BIASP       24   FTX             7/06      7/20      7/21     24/38     46/52
        TP.MODEL        3   FTX            43/08
        TP.ORBIL       50   FTX             5/06
        TP.ORDL        20   FTX             3/27      5/11     23/47     33/23
        TP.ORDP        54   FTX             3/28      8/30     11/48     28/08     32/36     36/11     44/35
                                            3/38     11/45     17/39     30/53     33/22     36/54
        TRV             0   EXTERNAL*       2/15 X    4/07     14/08     22/05
        TSX             0   EXTERNAL*       2/15 X   46/47
        T=ARG           0   EXTERNAL*       2/51 X    5/41      5/41 S    6/53
        T=BLST          0   EXTERNAL*       2/51 X   10/34     23/29     26/27     27/47     28/41     30/50     37/13
                                            6/30     16/57     26/21     27/22     28/24     29/04     36/37     37/56
        T=NLST          0   EXTERNAL*       2/51 X   13/25     13/41     15/24     15/24 S   40/45     42/25     42/25 S
        T=PAR           0   EXTERNAL*       2/51 X   21/23     30/31     37/29     42/49
                                            7/28     28/37     35/31     38/07     44/05
        T=SLARG         0   EXTERNAL*       2/53 X    5/40      5/40 S    8/35      8/41      8/41 S
        T.ARG           0   EXTERNAL*       2/52 X    8/34      8/34     46/44     46/44
        T.ASG           0   EXTERNAL*       2/52 X    5/14      5/16
        T.BLST          0   EXTERNAL*       2/52 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/53 X   46/05     46/05
        T.DIM           0   EXTERNAL*       2/52 X   14/18     40/47
        T.ENT           0   EXTERNAL*       2/52 X   11/43
        T.NLST          0   EXTERNAL*       2/52 X   14/40     14/40     15/06     15/06     40/44     42/22
        T.PAR           0   EXTERNAL*       2/52 X   35/30     37/32     44/03
        T.SLARG         0   EXTERNAL*       2/53 X    8/39
        T.SYM           0   EXTERNAL*       2/53 X    4/46     11/33     28/12     37/01
                                            3/26     11/13     23/53     33/11     40/46
        VEL             0   EXTERNAL*       2/44 X    7/40
        V=AGOTO         0   EXTERNAL*       2/56 X   23/20
        V=ASSGN         0   EXTERNAL*       2/56 X    4/42
        V=BSS           0   EXTERNAL*       2/56 X   40/16
        V=CGOTO         0   EXTERNAL*       2/56 X   24/37
        V=ENTR          0   EXTERNAL*       2/56 X   11/47
        V=GOTO          0   EXTERNAL*       2/57 X   21/22     33/52     37/24
        V=IFF           0   EXTERNAL*       2/57 X   35/18
        V=IFT           0   EXTERNAL*       2/57 X   35/19
        V=I111          0   EXTERNAL*       2/57 X   33/46
        V=JGOTO         0   EXTERNAL*       2/57 X   24/54
        V=NOOP          0   EXTERNAL*       2/57 X   36/15
        V=PAUS          0   EXTERNAL*       2/57 X   46/54
        V=RET           0   EXTERNAL*       2/57 X   10/06     17/26
        V=RGOTO         0   EXTERNAL*       3/01 X    7/24
        V=RTNK          0   EXTERNAL*       3/01 X   18/01
        V=STOP          0   EXTERNAL*       3/01 X   46/51
        V=SUBR          0   EXTERNAL*       3/01 X    7/15
        WANFP           0   EXTERNAL*       2/16 X   12/18     12/26 S
        WA.STLP        30   FTX            28/14     37/03
        WA.SYML        52   FTX             4/35     13/12     14/02     22/20
        WA.W            0   FTX            33/13
        WB.ACTP        13   FTX            33/30
        WB.AGNL         1   FTX             4/10
        WB.AGNP        30   FTX             4/10
        WB.AGO2P       24   FTX            22/08
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/05. 19.59.18.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        WB.ARYL         1   FTX            22/14     41/54
        WB.ARYP        12   FTX             4/29      4/31     14/16     22/14     22/16     41/54     41/57
        WB.BASEL       14   FTX             4/52      4/53      4/55
        WB.BASEP       41   FTX             4/53
        WB.DEFL         1   FTX             4/10     10/47     13/26     14/11
        WB.DEFP         7   FTX             4/10     10/47     13/26     14/11
        WB.ENTL         1   FTX             5/55     10/47
        WB.ENTP        15   FTX             5/55     10/47
        WB.EQVL         1   FTX             4/51
        WB.EQVP        11   FTX             4/48      4/51
        WB.EXTL         1   FTX             6/02      6/17
        WB.EXTP        16   FTX             6/02      6/17
        WB.FPL          1   FTX            10/52
        WB.FPP         20   FTX            10/52
        WB.FUNP        14   FTX             6/03      6/08
        WB.GENFL        1   FTX             5/55
        WB.GENFP       25   FTX             5/55
        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/55
        WB.INTFP       27   FTX             5/55
        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/15     11/26     22/06     39/23
        WB.MODEP        0   FTX             4/29
        WB.NLSTL        1   FTX             5/55     13/26
        WB.NLSTP       34   FTX             5/55     13/26
        WB.NVARL        1   FTX             6/02      6/17     10/47     10/52     13/26
        WB.NVARP        6   FTX             6/02      6/17     10/47     10/52     13/26
        WB.PARML        1   FTX             5/55
        WB.PARMP       10   FTX             5/55
        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/09     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             6/02      6/17
        WB.SUBP        13   FTX             5/56      6/02      6/17
        WB.TYPP        31   FTX             6/08      6/12
        WB.VARL         1   FTX             4/10      5/55     10/52     14/11
        WB.VARP         5   FTX             4/10      5/55     10/52     14/11
        WB.W            1   FTX             3/33      4/50     11/34     23/52     29/11     33/13     39/33     40/55
        WC.CLIFP       35   FTX            39/35
        WC.RAL         30   FTX             4/56      4/57
        WC.RAP          0   FTX             4/56
        WC.W            2   FTX             4/50     39/33
        WO.LOA          0   EXTERNAL*       2/53 X    9/28
        WO.LOR          0   EXTERNAL*       2/53 X    9/29     13/44
        WSA             0   EXTERNAL*       2/31 X   10/10
        XR.LINEP        6   FTX            31/05
        XR.TAGP        52   FTX             6/26     12/15     13/48     16/54
        ZTB             0   EXTERNAL*       3/04 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/05. 19.59.18.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        .A              0                   4/42 D    7/24 D   11/47 D   21/22 D   24/54 D   34/52 D   36/02 D   37/24 D
                                            4/42      7/24     11/47     21/22     24/54     34/52     36/02     37/24
                                            7/15 D   10/06 D   17/26 D   23/20 D   33/52 D   34/55 D   36/15 D   40/16 D
                                            7/15     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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.21.      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
  
                             74100B CM  STORAGE USED             1551 STATEMENTS     1461 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.654 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/05. 19.59.21.      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/05. 19.59.21.      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/05. 19.59.22.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1111              IDENT  DATA 
                       1111                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1043 
                                        LITERALS* LOCAL        1043        11 
                                        DEBUG     LOCAL        1054        35 
  
  
                                        ENTRY POINTS. 
  
                                        B=DATA           0+           DATAFLG        244+           CMV            713+ 
                                        DAT.Z           37+           C=DVL          271+           CSC           1012+ 
                                        KW=DATA         43+           EDI            326+ 
                                        DATA2           71+           CFC            644+ 
  
  
                                        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
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE     2
                                                                      DATA
  
                                        *         IN FEC                                                         DATA       18
                                                  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
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE     3
                                                                      DATA
  
                                        *                <CONL> := <CON>,,,<CON>                                 DATA       72
                                        *                <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/05. 19.59.22.      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/05. 19.59.22.      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/05. 19.59.22.      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/05. 19.59.22.      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  0100000134 +                      RJ     BIT         BUILT ITEM (DATA CONSTANT) TABLE            DATA      280
                                                                                                                 DATA      281
            62  0100000245 +                      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/05. 19.59.22.      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/05. 19.59.22.      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/05. 19.59.22.      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
           122  5110001043 +                      SA1    ="Z"                                                    DATA      370
                          11615                   BX6    X1*X5                                                   DATA      371
           123  0316400123 +                      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
                          5110001044 +            SA1    ="Z"                                                    DATA      375
           124  6130000037                        SB3    O.LP                                                    DATA      376
                          66431                   =B4    B3-O.LP+O.RP                                            DATA      377
                                                                                                                 DATA      378
           125  54441                    STD1     SA4    A4+B1                                                   DATA      379
                     6224000000                   SB2    X4+                                                     DATA      380
                               22321              LX3    X1,B2                                                   DATA      381
           126  0333000125 +                      MI     X3,STD1     IF CONST OR VAR -- SKIP                     DATA      382
                          0523000130 +            NE     B2,B3,STD2  IF NOT A LPAREN                             DATA      383
           127  20430                             LX4    -TB.IOCPP                                               DATA      384
                     53440                        SA4    X4          SWOOP TO MATCHING RP, IGNORING IT           DATA      385
                                   0              ERRNZ  18-TB.IOCPL                                             DATA      386
                          0400000125 +            EQ     STD1                                                    DATA      387
                                                                                                                 DATA      388
           130  22325                    STD2     LX3    B2,X5                                                   DATA      389
                     0333000121 +                 MI     X3,EXIT.    IF THIS IS A SELECTED DELIMITER             DATA      390
           131  0424000132 +                      EQ     B2,B4,STD5  IF RP ** SYNTAX ERR (NEGATIVE PAREN COUNT)  FC5A111    13
                          0520000125 +            IF.NE  O.BOS,STD1  IF NOT BOS -- LOOP                          DATA      392
           132  6170000000 X             STD5     FATAL  E.DSE       ** SYNTAX ERROR (MISSING DELIMITER)         FC5A111    14
           133  0400000037 +                      EQ     DAT.Z                                                   FC5A111    15
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           134  0400400134 +             BIT      SUBR               ENTRY/EXIT...                               DATA      408
                                                                                                                 DATA      409
                                        *         PROCESS NEXT CONSTANT.                                         DATA      410
                                                                                                                 DATA      411
           135  54441                    BIT10    NEXTE                    NEXT ELIST ITEM                       DATA      412
                          5130001045 +            SA3    ="M.CON"                                                DATA      413
           136  13777                             BX7    0           SIGN = +0                                   DATA      414
                     22623                        LX6    X3,B2                                                   DATA      415
                          6150000005              =B5    O.CONS                                                  DATA      416
           137  6160000011                        =B6    O.VAR                                                   DATA      417
                          0326000000 X            PL     X6,E.DIL    IF NOT A CONSTANT BEGIN TOKEN               DATA      418
           140  5130001046 +                      SA3    ="UNSIGNC"                                              DATA      419
                          22623                   LX6    X3,B2                                                   DATA      420
           141  0336000155 +                      MI     X6,BIT20    IF UNSIGNED SIMPLE CONSTANT                 DATA      421
                          0425000176 +            EQ     B2,B5,BIT40 IF NUMBER                                   DATA      422
           142  0426000162 +                      EQ     B2,B6,BIT30 IF VARIABLE                                 DATA      423
                          6172777765              =B7    B2-O.TRUE                                               DATA      424
           143  6130000037                        SB3    O.LP                                                    DATA      425
                          0470000225 +            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
           144  0471000225 +                      EQ     B7,B1,BIT70 IF .FALSE.                                  DATA      429
                          0423000221 +            EQ     B2,B3,BIT60 IF A LEFT PAREN                             DATA      430
           145  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
           147  54441                             NEXTE                                                          DATA      438
                          6130000010              IF.EQ  O.PERIOD,BIT20    IF FLOATING PT. CONSTANT              DATA      439
                          0425000155 +            EQ     B2,B5,BIT20 IF NUMBER                                   DATA      440
           151  0421000155 +                      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
           155  5130001047 +             BIT20    SA3    ="M.BCON"                                               FC5A264     6
                          22323                   LX3    X3,B2                                                   FC5A264     7
           156  0323000160 +                      PL     X3,BIT25    IF NOT BOOLEAN CONSTANT                     FC5A264     8
                          6170000000 X            MDERR  E.MDE2                                                  FC5A264     9
                                                                                                                 FC5A264    10
           160  0100000570 +             BIT25    RJ     ADC         ADD CONSTANT TO TABLE                       FC5A264    11
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    12
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
           161  0400000230 +                      EQ     BIT80                                                   DATA      444
                                                                                                                 DATA      445
                                        *         CHECK FOR SYMBOLIC CONSTANT.                                   DATA      446
                                        *                (A4) _ O.VAR TOKEN                                      FC5A231    46
                                                                                                                 DATA      448
           162  74641                    BIT30    SX6    A4+B1                                                   DATA      449
                     64440                        SB4    A4                                                      FC5A231    47
                          5160000023 +            SA6    SELIST      SAVE (SELIST) = TOKEN BUFFER POINTER        DATA      450
           163  43652                             MX6    TB.TOCL                                                 FC50554     7
                     11664                        BX6    X6*X4       EXTRACT NAME                                FC50554     8
                          5160000000 X            SA6    FILL.       SAVE FOR POSSIBLE DIAGNOSTIC                FC50554     9
           164  0100001012 +                      RJ     CSC         CHECK FOR SYMBOLIC CONSTANT                 DATA      451
           165  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
           166  54430                             SA4    A3          PRESERVE PARAMETER *WC*                     FC50570     7
                     63510                        SB5    X1          PRESERVE MODE                               FC50570     8
                          20052                   LX0    XR.TAGP                                                 FC50570     9
           167  5110000000 X                      SA1    REFVAR                                                  FC50570    10
                          10600                   ADDREF X0,X1                                                   FC50570    11
           171  76150                             SX1    B5          RESTORE MODE                                FC50570    12
                     22304                        LX3    X4          RESTORE *WC*                                FC50570    13
                          5120000023 +            =A2    SELIST                                                  DATA      455
           172  5222000000                        SA2    X2+                                                     DATA      456
                          5140001050 +            SA4    ="M.SEP"                                                DATA      457
           173  63220                             SB2    X2                                                      DATA      458
                     22624                        LX6    X4,B2                                                   DATA      459
                          0326000203 +            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
           174  0100000616 +                      RJ     ASC         ADD SYMBOLIC CONSTANT TO DATA TABLE         FC5A231    49
           175  0400000230 +                      EQ     BIT80                                                   DATA      468
                                                                                                                 DATA      469
                                        *         REGULAR CONSTANT.                                              DATA      470
                                                                                                                 DATA      471
           176  64440                    BIT40    SB4    A4                LOOK AHEAD                            DATA      472
                     74540                        SX5    A4          SAVE A4                                     DATA      473
                          43601                   MX6    1                                                       DATA      474
           177  5160000244 +                      SA6    DATAFLG     INDICATE ERRORS TO BE SUPPRESSED            DATA      475
                          0100000000 X            CALL   DEC         SKIP OVER CONSTANT                          DATA      476
           200  43700                             MX7    0           CLOSE = 0      SIGN = +0                    DATA      477
                     5170000244 +                 SA7    DATAFLG     TURN OFF THE FLAG                           DATA      478
                               53450              SA4    X5          RESTORE A4                                  DATA      479
           201  56241                             SA2    B4+B1       TOKEN AFTER CONSTANT                        DATA      480
                     10566                        BX5    X6          REMEMBER (X5) = CONVERTED CONSTANT          DATA      481
                          5130001050 +            SA3    ="M.SEP"                                                DATA      482
           202  63220                             SB2    X2                                                      DATA      483
                     22223                        LX2    B2,X3                                                   DATA      484
                          0332000155 +            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/05. 19.59.22.      PAGE    13
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
                                        *         (X1) = MODE OF CONSTANT                                        DATA      490
                                        *         (B2) = TOKEN VALUE FOLLOWING CONSTANT                          DATA      491
                                                                                                                 DATA      492
           203  5130000000 +             BIT45    SA3    REPFLAG                                                 DATA      493
                          0313000000 X            NZ     X3,E.DIL2   IF ALREADY WITHIN A REP LOOP                DATA      494
           204  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
           206  76710                             SX7    B1          CLOSE = +1        /* REPEATED LIST          DATA      498
                     36637                        IX6    X3+X7       PL = PL + 1                                 FC5A304    10
                          54630                   SA6    A3                                                      FC5A304    11
           207  6130000037                        IF.NE  O.LP,E.DIL  IF NO LPAREN -- SYNTAX ERROR                DATA      501
           210  6170000000 X                      ANSI   E.DAR       ** REPEATED LIST NON-ANSI                   DATA      502
                                                                                                                 DATA      503
           211  74620                    BIT50    SX6    A2          SAVE (SELIST) -> FIRST TOKEN OF LIST        DATA      504
                     5160000023 +                 SA6    SELIST                                                  DATA      505
           212  5170000001 +                      SA7    CLOSREP     (CLOSREP) = CLOSE                           DATA      506
                          0100001006 +            RJ     CRC         CHECK REPEAT CONSTANT                       DATA      507
           213  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
           215  5110000002 +                      SA1    N.ITEM                                                  DATA      512
                          73620                   SX6    X2          HDRI = INDEX OF REP HEADER                  FC5A269     4
           216  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
           217  5160000000 +                      SA6    REPFLAG                                                 DATA      517
                          43700                   MX7    0           (N.ITEM) = 0      /* COUNT THIS LIST        DATA      518
                               54710              SA7    A1                                                      DATA      519
           220  53450                             SA4    X5          RESTORE (A4)                                DATA      520
                     0400000135 +                 EQ     BIT10       LOOP..  TO PROCESS REP LIST                 DATA      521
                                                                                                                 DATA      522
                                                                                                                 DATA      523
                                        **        RAW LPAREN = START OF A COMPLEX CONSTANT.                      DATA      524
                                                                                                                 DATA      525
           221  0100000644 +             BIT60    RJ     CFC         CHECK FOR COMPLEX CONSTANT                  DATA      526
           222  6170000000 X                      SB7    E.DC7       ** ILL-FORMED COMPLEX CONSTANT              DATA      527
                          0310000036 +            NZ     X0,DATA.E   IF NOT A COMPLEX CONSTANT                   DATA      528
           223  10611                             BX6    X1                                                      DATA      529
                     22702                        LX7    X2                                                      DATA      530
                          7110000005              =X1    M.CPLX                                                  DATA      531
           224  0400000227 +                      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
           225  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
           226  5170000023 +                      SA7    SELIST                                                  DATA      542
                                                                                                                 FC50570    15
           227  0100000627 +             BIT75    RJ     ASI         ADD SCALAR ITEM                             DATA      543
                                                                                                                 FC5A304    12
           230  5110000000 X             BIT80    ADDWD  T.DATI      ADD ITEM DESCRIPTOR                         DATA      544
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    14
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
           231  5150000023 +                      SA5    SELIST                                                  DATA      545
                          5130000002 +            SA3    N.ITEM                                                  DATA      546
           232  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
           233  5110000001 +             BIT85    SA1    CLOSREP                                                 DATA      556
                          0321000235 +            PL     X1,BIT90          IF NO SINGLE ELEMENT REP OUTSTANDING  DATA      557
           234  0100000766 +                      RJ     CRL                                                     DATA      558
                                                                                                                 DATA      559
           235  6130000042               BIT90    IF.EQ  O.COMMA,BIT10     LOOP IF A COMMA                       DATA      560
           236  0420000134 +                      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
           241  5170000003 +                      SA7    PL                CLEAR PAREN LEVEL                     DATA      565
                          5110000001 +            SA1    CLOSREP                                                 DATA      566
           242  0301000243 +                      ZR     X1,BIT95          IF NO REP LIST TO CLOSE               DATA      567
                          0100000766 +            RJ     CRL               CLOSE IT                              DATA      568
                                                                                                                 DATA      569
           243  54441                    BIT95    NEXTE                    NEXT ELEMENT                          DATA      570
                          0400000233 +            EQ     BIT85                                                   DATA      571
                                                                                                                 DATA      572
           244                     1     DATAFLG  BSZENT 1                                                       DATA      573
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           245  0400400245 +             PVL      SUBR   0           ENTRY/EXIT...                               DATA      594
           246  5130000022 +                      SA3    DILT                                                    DATA      595
                          55231                   =A2    A3-DILT+DVLT                                            DATA      596
                               13666              BX6    O.EOS                                                   DATA      597
           247  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
           250  5110000000 X                      SA1    DATARM                                                  DATA      601
                          5120000000 X            SA2    DVLOP                                                   DATA      602
           251  56740                             SA7    B4          PRECEDE VARLIST WITH COMMA                  DATA      603
                     7160000005                   =X6    PM=DATA                                                 DATA      604
           252  5160000000 X                      SA6    DATFLG                                                  DATA      605
                          0100000000 X            CALL   CVL         COMPILE VARIABLE LIST                       DATA      606
           253  5120000021 +                      SA2    DVLT                                                    DATA      607
                          43773                   MX7    -1                                                      DATA      608
                               13666              BX6    0                                                       DATA      609
           254  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
           255  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
           256  5110000000 X                      SA1    E=TOTAL                                                 DATA      616
                          0311000267 +            NZ     X1,PVL9     IF FATAL IN LIST, SKIP SED                  DATA      617
                                                                                                                 DATA      618
                                         .T       IFEQ   TEST,ON                                                 DATA      619
           257  5110000000 X                      SA1    CO.SNAP                                                 DATA      620
                          10211                   BX2    X1                                                      DATA      621
                               20117              LX1    1RO                                                     DATA      622
           260  20244                             LX2    1R9                                                     DATA      623
                     12312                        BX3    X1+X2                                                   DATA      624
                          0323000262 +            PL     X3,PVL6     IF NO SNAP SELECTED                         DATA      625
           261  0100000000 X                      CALL   SN.PAR                                                  DATA      626
           262  6120000000 X             PVL6     SB2    T.PAR                                                   DATA      627
                          6130000000 X            SB3    T.DAR                                                   DATA      628
           263  0523400263 +                      NE     B2,B3,"BLOWUP"    NEED CODE FOR DISTINCT (T.DAR)        DATA      629
                                         .T       ENDIF                                                          DATA      630
                                                                                                                 DATA      631
                          0100000000 X            CALL   SED         SIMULATE EXECUTION OF DATA                  DATA      632
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    16
        PARSE DATA VARIABLE LIST.                                     PVL 
  
                                                                                                                 DATA      633
                                         .T       IFEQ   TEST,ON                                                 DATA      634
           264  5110000000 X                      SA1    CO.SNAP                                                 DATA      635
                          20144                   LX1    1R9                                                     DATA      636
           265  0321000267 +                      PL     X1,PVL9     IF SNAP=9 NOT SELECTED                      DATA      637
           266  0100000000 X             PVL9     DUMPT  (DATS)                                                  DATA      638
                                         .T       ENDIF                                                          DATA      639
           267                           PVL9     BSS                                                            DATA      640
           267  76600                             SHRINK T=DAR,0                                                 DATA      641
           270  0400000245 +                      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
           271                           C=DVL    BSSENT 0           ENTRY...                                    DATA      651
           271  6130000000 X                      SB3    E.DVL1                                                  FC5A218    34
                          43401                   MX4    1                                                       FC5A218    35
           272  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
           273  22005                             LX0    X5                                                      DATA      695
                     10455                        BX4    X5                                                      DATA      696
                          5150000000 X            SA5    CONONE                                                  DATA      697
           274  20061                             HX0    TP.INTR                                                 DATA      698
                     0320000306 +                 PL     X0,DVL24    IF ITEM NOT INTERMEDIATE                    DATA      699
                               20071              LX0    TP.INTRP-TP.ARRP                                        DATA      700
           275  0320000320 +                      PL     X0,DVL30    IF ITEM NOT SUBSCRIPTED ARRAY               DATA      701
                                                                     (MUST BE SUBSTRING)                         DATA      702
                          5130000000 X            SA3    IODOIND                                                 DATA      703
           276  0303000320 +                      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
           277  0303000304 +                      ZR     X3,DVL21    IF NO OFFSET TO ADD TO BIAS                 DATA      707
                          5110000000 X            SA1    T.PAR                                                   DATA      708
           300  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
           301  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
           302  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
           303  15220                             BX2    -X0*X2      CLEAR OLD BIAS                              DATA      722
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           304  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
           305  0400000320 +                      EQ     DVL30                                                   DATA      729
                                                                                                                 DATA      730
           306  10044                    DVL24    BX0    X4                                                      DATA      731
                     20066                        SBIT   X0,TP.AREP                                              DATA      732
                          0320000320 +            PL     X0,DVL30    IF SINGLE ELEMENT                           DATA      733
           307  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
           310  6230000001                        SB3    X0+WB.W                                                 FC5A111    20
                          20001                   LX0    1                                                       FC5A111    21
                               63303              SB3    X0+B3       CONVERT TO *WB* INDEX                       FC5A111    22
           311  53223                             SA2    X2+B3       X2 = *WB*                                   FC5A111    23
                                         .T       IFEQ   TEST,ON                                                 DATA      735
                     10322                        BX3    X2                                                      DATA      736
                          20361                   HX3    WB.ARY                                                  DATA      737
           312  0323400312 +                      PL     X3,"BLOWUP" IF NOT ARRAY, PAR GOOF                      DATA      738
                                         .T       ENDIF                                                          DATA      739
                                                                                                                 DATA      740
                          5130000000 X            SA3    T.DIM                                                   DATA      741
           313  20215                             LX2    -WB.PNTP                                                DATA      742
                     43057                        MX0    -WB.PNTL                                                DATA      743
                          15520                   BX5    -X0*X2      ISOLATE T.DIM ORD                           DATA      744
                               63350              SB3    X5                                                      DATA      745
           314  43044                             MX0    -DH.PSL                                                 DATA      746
                     53133                        SA1    X3+B3       FETCH DIMENSION PARAMETERS                  DATA      747
                          20136                   LX1    -DH.PSP                                                 DATA      748
                               15510              BX5    -X0*X1      ARRAY LENGTH                                DATA      749
           315  20524                             LX5    TP.BIASP                                                DATA      750
                     7120010002                   CLAS=  X2,TP,(SHRT),INT                                        DATA      751
                               12552              BX5    X5+X2       MAKE INTO SHORT CONSTANT                    DATA      752
                                         .T       IFEQ   TEST,ON                                                 DATA      753
           316  20137                             SBIT   X1,DH.ASP/DH.PSP-1                                      DATA      754
                     10211                        BX2    X1                                                      DATA      755
                          20173                   SBIT   X1,DH.VDP/DH.ASP                                        DATA      756
                               12212              BX2    X1+X2                                                   DATA      757
           317  0332400317 +                      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
           320  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
           321  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
           322  5160000325 +                      SA6    DVLA                                                    DATA      771
                                                  LX4    TP.MODEP                                                DATA      772
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    18
        PARSE DATA VARIABLE LIST.                                     C=DVL 
  
                          6130400325 +            EMIT   DVLA,*                                                  DATA      773
           324  0400000000 X                      EQ     IOL.RTN     EXIT..      (THRU POPPER)                   DATA      774
                                                                                                                 DATA      775
           325                     1     DVLA     BSS    1           SAVE OPERAND                                DATA      776
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           326  0400400326 +             EDI      SUBR   =           ENTRY/EXIT...                               DATA      793
                                         .T       IFEQ   TEST,ON                                                 DATA      794
           327  5130000000 X                      SA3    CO.SNAP                                                 DATA      795
                          20344                   LX3    1R9                                                     DATA      796
           330  0323000332 +                      PL     X3,EDI1     IF (SNAP=9) NOT SELECTED                    DATA      797
           331  0100000000 X             EDI      REG    (X1,X6,B6,B7)                                           DATA      798
           332                           EDI1     BSS                                                            DATA      799
                                         .T       ENDIF                                                          DATA      800
                                                                                                                 DATA      801
           332  43700                             MX7    0           SET INTERNAL DATA BIAS = ZERO               DATA      802
                     10411                        BX4    X1                                                      DATA      803
                          5170000012 +            SA7    BIAS                                                    DATA      804
           333  5160000454 +                      SA6    NICT        SAVE TRIP COUNT                             DATA      805
                          0100000537 +            CALL   SDV         SETUP DATA VARIABLE                         DATA      806
           334  76610                             SX6    B1          INDEX DIFFERENCE = 1, FOR NOW               DATA      808
                     5150000012 +                 SA5    BIAS                                                    DATA      809
           335  0100000337 +                      CALL   NIC         EMIT LINEAR PROGRESSION                     DATA      811
           336  0400000326 +                      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/05. 19.59.22.      PAGE    20
        OUTPUT ROUTINES                                               NIC 
  
           337  0400400337 +             NIC      SUBR               ENTRY/EXIT...                               DATA      838
           340  5130000002 +                      SA3    N.ITEM                                                  DATA      839
                          7273777776              SX7    X3-1                                                    FC5A266     6
           341  5160000014 +                      SA6    DA                                                      FC5A266     7
                          0327000343 +            PL     X7,NIC10    IF CONSTANTS REMAINING                      FC5A266     8
           342  5073000000                        SA7    A3+         FLAG CONSTANT/VARIABLE COUNT MISMATCH       FC5A266     9
                          0400000337 +            EQ     EXIT.                                                   FC5A266    10
                                                                                                                 FC5A266    11
           343  10655                    NIC10    BX6    X5                                                      FC5A266    12
                     5160000452 +                 SA6    NICB        (NICB) = BIAS                               DATA      845
                                                                                                                 DATA      846
           344  5130000000 +             NIC20    SA3    REPFLAG                                                 DATA      847
                          5150000004 +            SA5    I.DIT                                                   DATA      848
           345  0303000351 +                      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
           346  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
                          0441000353 +            EQ     B4,B1,NIC26 IF RL = 1                                   DATA      860
           347  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
           350  21573                             AX5    59                                                      DATA      864
                     11705                        BX7    X0*X5       DEC = -1 IF NOT AT THE START OF REP         DATA      865
                          0400000353 +            EQ     NIC26                                                   DATA      866
                                                                                                                 DATA      867
           351  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
           352  0323000426 +                      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
           353  5150000454 +             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
           354  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
           355  5160000020 +                      SA6    RL                                                      DATA      891
                          36007                   IX0    X0+X7       RC + DEC                                    DATA      892
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           361  63660                             SB6    X6                                                      DATA      896
                     0616000426 +                 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
           362  5160000453 +                      SA6    NICN        SAVE (NICN) = N                             DATA      906
                          7256777776              SX5    X6-1                                                    DATA      907
           363  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
           364  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
           365  36212                             IX2    X1+X2       DA - 1                                      DATA      916
                     5160000017 +                 SA6    MP                                                      DATA      917
           366  0421000367 +                      EQ     B2,B1,NIC30 IF RL .EQ. 1 -- TRIVIAL CONTIGUITY          DATA      918
                          0312000403 +            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
           367  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
           370  6271777771                        SB7    X1-M.CHAR                                               DATA      932
                          0570000372 +            NZ     B7,NIC32    IF NOT MODE CHARACTER                       DATA      933
           371  0521000403 +                      NE     B2,B1,NIC40 IF RL .NE. 1                                DATA      934
           372  5110000453 +             NIC32    SA1    NICN        N = (NICN)  */REP COUNT                     DATA      935
                          5120000017 +            SA2    MP          I = (MP)          /* INCREMENT              DATA      936
           373  10677                             BX6    X7          B = (DLEN)        /* BLOCK LENGTH           DATA      937
                     5130000452 +                 SA3    NICB        FB = (NICB)       /* FWA BIAS               DATA      938
           374  0100000500 +                      RJ     ORH         OUTPUT REPI HEADER                          DATA      939
                                                                                                                 DATA      940
           375  5110000020 +                      SA1    RL                                                      DATA      941
                          14611                   BX6    -X1         SET LOOP COUNTER FOR (RL) ITEMS             DATA      942
           376  5160000015 +             NIC34    SA6    LI                                                      DATA      943
                          0100001024 +            RJ     GNI         GET NEXT ITEM                               DATA      944
           377  0100000513 +                      RJ     OVI         OUTPUT VALUE OF ITEM                        DATA      945
           400  5110000015 +                      SA1    LI                                                      DATA      946
                          73611                   SX6    X1+B1       DECREMENT LOOP INDEX                        DATA      947
           401  0316000376 +                      NZ     X6,NIC34    IF LI .LT. 0, LOOP                          DATA      948
                          0100000561 +            RJ     UPH         UPDATE PREVIOUS HEADER                      DATA      949
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    22
        OUTPUT ROUTINES                                               NIC 
  
           402  0400000415 +                      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
           403  5130000452 +             NIC40    SA3    NICB                                                    DATA      961
                          77702                   SX7    -B2         SET TO LOOP (RL) TIMES                      DATA      962
                               10633              BX6    X3          JB = BIAS0        /* ITEM BIAS              DATA      963
           404  5170000015 +                      SA7    LI                                                      DATA      964
                          54671                   SA6    A7+B1                                                   DATA      965
                                                                                                                 DATA      966
           405  5110000453 +             NIC44    SA1    NICN        N = (NICN)  */REP COUNT                     DATA      967
                          5120000017 +            SA2    MP          I = (MP)          /* INCREMENT              DATA      968
           406  76610                             SX6    B1          B = 1             /* BLOCK LENGTH           DATA      969
                                        *         X3                 FB = JB           /* FWA BIAS               DATA      970
                     0100000500 +                 RJ     ORH         OUTPUT REPI HEADER                          DATA      971
           407  0100001024 +                      RJ     GNI         GET NEXT ITEM                               DATA      972
           410  0100000513 +                      RJ     OVI         OUTPUT VALUE OF ITEM                        DATA      973
           411  0100000561 +                      RJ     UPH         UPDATE PREVIOUS HEADER                      DATA      974
           412  5110000015 +                      SA1    LI                                                      DATA      975
                          5120000014 +            SA2    DA                                                      DATA      976
           413  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
           414  73711                             SX7    X1+B1       DECREMENT LOOP INDEX                        DATA      981
                     54710                        SA7    A1                                                      DATA      982
                          0337000405 +            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
           415  5110000453 +             NIC50    SA1    NICN        N                                           DATA      989
                          5120000020 +            SA2    RL                                                      DATA      990
           416  5130000452 +                      SA3    NICB        BIAS                                        DATA      991
                          5140000002 +            SA4    N.ITEM                                                  DATA      992
           417  42012                             IX0    X1*X2       NEP = N * RL   /* NUMBER OF ELEMENTS ISSUED DATA      993
                     5120000014 +                 SA2    DA                                                      DATA      994
           420  5150000454 +                      SA5    NICT        TC                                          DATA      995
                          42102                   IX1    X0*X2                                                   DATA      996
                               36731              IX7    X3+X1       BIAS = BIAS + DA * NEP                      DATA      997
           421  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
           422  54750                             SA7    A5                                                      DATA     1002
                     0306000424 +                 ZR     X6,NIC56    IF ITEM LIST IS EXHAUSTED                   DATA     1003
           423  0317000344 +                      NZ     X7,NIC20    IF TRIP COUNT NOT EXHAUSTED                 DATA     1004
                                                                                                                 DATA     1005
           424  37667                    NIC56    IX6    X6-X7       (N.ITEM) -= T                               DATA     1006
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    23
        OUTPUT ROUTINES                                               NIC 
  
                     54660                        SA6    A6          FORCE AN INFORMATIVE ERROR IF T .NZ.        DATA     1007
                          0100000561 +            RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1008
           425  0400000337 +                      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
           426  5110000014 +             NIC60    SA1    DA                                                      DATA     1020
                          43273                   MX2    -1                                                      DATA     1021
                               36612              IX6    X1+X2       (ORGN) = 0  ->  DA .EQ. 1                   DATA     1022
           427  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
           430  5110000010 +                      SA1    DVI+WB.W                                                DATA     1028
                                                  LX1    -WB.MODEP                                               DATA     1029
                          15310                   BX3    -X0*X1                                                  DATA     1030
           431  6273777771                        SB7    X3-M.CHAR                                               DATA     1031
                          0570000434 +            NZ     B7,NIC63    IF NOT TYPE CHARACTER                       DATA     1032
           432  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
           433  5120000013 +             NIC62    SA2    ORGN                                                    DATA     1038
                          0302000435 +            ZR     X2,NIC64    IF NO ORG NEEDED                            DATA     1039
           434  5130000452 +             NIC63    SA3    NICB                                                    DATA     1040
                          0100000455 +            RJ     OSH         OUTPUT SCALAR HEADER                        DATA     1041
           435  0100001024 +             NIC64    RJ     GNI         GET NEXT DATA ITEM                          DATA     1042
           436  0100000513 +                      RJ     OVI         OUTPUT VALUE OF ITEM                        DATA     1043
           437  5130000452 +                      SA3    NICB        BIAS                                        DATA     1044
                          5140000014 +            SA4    DA                                                      DATA     1045
           440  36743                             IX7    X4+X3       BIAS = BIAS + DA        /* ADVANCE BIAS     DATA     1046
                     43073                        MX0    -1                                                      DATA     1047
                          54730                   SA7    A3                                                      DATA     1048
           441  5140000002 +                      SA4    N.ITEM                                                  DATA     1049
                          5150000454 +            SA5    NICT        TC                                          DATA     1050
           442  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
           443  0306000424 +                      ZR     X6,NIC56    IF NO MORE DATA ITEMS LEFT -- QUIT          DATA     1055
                          0307000450 +            ZR     X7,NIC68    IF FINISHED WITH THE VARS                   DATA     1056
           444  5120000000 X                      SA2    T.DATI                                                  DATA     1057
                          5110000004 +            SA1    I.DIT                                                   DATA     1058
           445  36112                             IX1    X1+X2                                                   DATA     1059
                     53310                        SA3    X1          FETCH (X3) = NEXT DATA ITEM DESCRIPTOR      DATA     1060
                                                  HX3    DI.REP                                                  DATA     1061
                          0323000433 +            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/05. 19.59.22.      PAGE    24
        OUTPUT ROUTINES                                               NIC 
  
           446  0100000561 +                      RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1064
           447  5150000004 +                      SA5    I.DIT                                                   DATA     1065
                          0400000351 +            EQ     NIC24                                                   DATA     1066
                                                                                                                 DATA     1067
           450  0100000561 +             NIC68    RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1068
           451  0400000337 +                      EQ     EXIT.                                                   DATA     1069
                                                                                                                 DATA     1070
           452                     1     NICB     BSS    1           BIAS  LOCAL COPY OF BIAS                    DATA     1071
           453                     1     NICN     BSS    1           N     TIMES REP LIST CAN BE TRAVERSED       DATA     1072
           454                     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
           455  0400400455 +             OSH      SUBR               ENTRY/EXIT...                               DATA     1093
           456  5120000030 +                      SA2    S.POP                                                   DATA     1094
                          0332000462 +            MI     X2,OSH20    IF NO UNTERMINATED BLOCK                    DATA     1095
           457  10633                             BX6    X3                                                      DATA     1096
                     5160000024 +                 SA6    OSHA                                                    DATA     1097
           460  0100000561 +                      RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1098
           461  5130000024 +                      SA3    OSHA        RESTORE (X3) = FB                           DATA     1099
                                                                                                                 DATA     1100
           462  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
           463  13777                             BX7    0                                                       DATA     1103
                     43071                        MX0    -WB.MODEL                                               DATA     1104
                          43660                   MX6    -V1.BASEL                                               DATA     1105
                               20422              LX4    -V1.BASEP                                               DATA     1106
           464  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
           465  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
           466  5012000001                        SA1    A2-WB.W+V3.W      V3I = (DVI+2)                         DATA     1117
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    25
        OUTPUT ROUTINES                                               OSH 
  
                          6270777771              SB7    X0-M.CHAR                                               DATA     1118
           467  0470000471 +                      ZR     B7,OSH40    IF TYPE CHARACTER                           DATA     1119
                          20452                   LX4    V1.BASEP-1-V1.SDPFP                                     DATA     1120
                               21474              AX4    -0                                                      DATA     1121
           470  11243                             BX2    X4*X3       (X2) = FB * SDPF                            DATA     1122
                     36332                        IX3    X3+X2       FEA = FB * 2**SDPF                          DATA     1123
                          0400000473 +            EQ     OSH80                                                   DATA     1124
                                                                                                                 DATA     1125
           471  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
           472  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
           473  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
           474  36732                             IX7    X3+X2       (S.FEA) = FEA + ABUI                        DATA     1138
                     5170000031 +                 SA7    S.FEA                                                   DATA     1139
           475  5110000000 X                      ADDWD  T.DATS                                                  DATA     1140
           476  7272777776                        SX7    X2-1        (S.POP) = INDEX OF (DA.) HEADER             DATA     1141
                          5170000030 +            SA7    S.POP                                                   DATA     1142
           477  0400000455 +                      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
           500  0400400500 +             ORH      SUBR               ENTRY/EXIT...                               DATA     1161
                                         .T       IFEQ   TEST,ON                                                 DATA     1162
           501  5140000030 +                      SA4    S.POP                                                   DATA     1163
                          0324400501 +            PL     X4,"BLOWUP"  IF INCOMPLETE BLOCK                        DATA     1164
           502  5160000035 +                      SA6    S.BLEN      (S.BLEN) = B                                DATA     1165
                                         .T       ENDIF                                                          DATA     1166
                          5140000011 +            SA4    DVI+V3.W                                                DATA     1167
           503  43052                             MX0    -V3.ELSL                                                DATA     1168
                     76710                        SX7    B1                                                      DATA     1169
                          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/05. 19.59.22.      PAGE    26
        OUTPUT ROUTINES                                               ORH 
  
           504  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
                          20236                   LX2    DB.INCP                                                 DATA     1175
                               12712              BX7    X1+X2                                                   DATA     1176
           505  5170000027 +                      SA7    S.DHW+DB.W                                              DATA     1177
                          0100000455 +            RJ     OSH         OUTPUT SCALAR HEADER (FB)                   DATA     1178
                                                                                                                 DATA     1179
           506  43001                             CLAS=  X0,DA,(RP)                                              DATA     1180
                          5110000027 +            SA1    S.DHW+DB.W                                              DATA     1181
           507  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
           510  5170000034 +                      SA7    S.PAD       INDICATE INNER REP NOT POSSIBLE             DATA     1186
                          5110000000 X            ADDWD  T.DATS                                                  DATA     1187
           512  0400000500 +                      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
           513  0400400513 +             OVI      SUBR               ENTRY/EXIT...                               DATA     1208
           514  5110000000 X                      SA1    T.DATI                                                  DATA     1209
                          5140000011 +            SA4    DVI+V3.W    V3I = (DVI+V3.W)                            DATA     1210
           515  5130000032 +                      SA3    S.LEN                                                   DATA     1211
                          63210                   SB2    X1                                                      DATA     1212
                               75652              SX6    A5-B2       DITIND = (A5) - FWA(T.DATI)                 DATA     1213
           516  5160000025 +                      SA6    OVIA        SAVE (OVIA) = DITIND                        DATA     1214
                          43152                   MX1    -V3.SSUL                                                DATA     1215
                               20444              LX4    -V3.SSUP                                                DATA     1216
           517  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
           520  0100000713 +                      RJ     CMV         CONVERT MODE OF VALUE                       DATA     1222
           521  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/05. 19.59.22.      PAGE    27
        OUTPUT ROUTINES                                               OVI 
  
                          20522                   LX5    DI.PNTP-DI.DLENP                                        DATA     1226
           522  0430000530 +                      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
           523  5110000000 X                      ALLOC  T.DATS,B6   ALLOCATE SPACE FOR ITEM                     DATA     1230
           525  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
           526  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
           527  57676                             SA6    B7-B6       (1ST WORD) => (LWA(TABLE)+1-WC)             DATA     1238
                     0400000513 +                 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
           530  73250                    OVI5     SX2    X5          LEN = DLEN [CON DESCRIPTOR]                 DATA     1249
                     7140000011                   CW     X4,X2       LEN = LEN / 10                              DATA     1250
           532  5110000000 X                      ALLOC  T.DATS,X4   ALLOCATE SPACE FOR ITEM                     DATA     1251
           534  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
           535  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
           536  0400000513 +                      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
           537  0400400537 +             SDV      SUBR   0           ENTRY/EXIT...                               DATA     1275
           540  5120000000 X                      SA2    T.SYM                                                   DATA     1276
                          76166                   SX1    B6+B6                                                   DATA     1277
                               76560              SX5    B6                                                      DATA     1278
           541  63221                             =B2    X2+WB.W                                                 DATA     1279
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           542  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
           543  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
           544  6250777773                        SB5    X0-M.DBL                                                DATA     1307
                          0450000546 +            EQ     B5,B0,SDV4  IF MODE DOUBLE                              DATA     1308
           545  0451000546 +                      EQ     B5,B1,SDV4  IF MODE COMPLEX                             DATA     1309
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          DATA     1310
                          7170000000              SX7    +           UNIT = 0                                    DATA     1311
           546  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
           547  43744                             MX7    -WC.RAL                                                 DATA     1320
                     15647                        BX6    -X7*X4      RAI = RA[WCE]                               DATA     1321
                          10033                   BX0    X3          SSU = ELS                                   DATA     1322
           550  0615000554 +                      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
           551  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
           553  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/05. 19.59.22.      PAGE    29
        OUTPUT ROUTINES                                               SDV 
  
           554  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
           555  54761                             =A7    A6-WB.W+V3.W                                            DATA     1342
                                         .T       IFEQ   TEST,ON                                                 DATA     1343
                     5110000000 X                 SA1    CO.SNAP                                                 DATA     1344
                               20144              LX1    1R9                                                     DATA     1345
           556  0321000537 +                      PL     X1,EXIT.    IF (SNAP=9) NOT SELECTED                    DATA     1346
           557  0100000000 X             SDVX     CORE   DVI,3                                                   DATA     1347
                                         .T       ENDIF                                                          DATA     1348
           560  0400000537 +                      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
           561  0400400561 +             UPH      SUBR   0           ENTRY/EXIT...                               DATA     1363
           562  5130000032 +                      SA3    S.LEN                                                   DATA     1364
                          5140000026 +            SA4    S.DHW+DA.W                                              DATA     1365
                                                  LX3    DA.WCP                                                  DATA     1366
           563  5150000030 +                      SA5    S.POP                                                   DATA     1367
                          0335000561 +            MI     X5,EXIT.    IF NO BLOCK IN PROGRESS                     DATA     1368
           564  5120000000 X                      SA2    T.DATS                                                  DATA     1369
                          12634                   BX6    X3+X4       (DA.WC) = (S.LEN)                           DATA     1370
                               36525              IX5    X2+X5                                                   DATA     1371
           565  5130000031 +                      SA3    S.FEA                                                   DATA     1372
                          20322                   LX3    DA.BIASP                                                DATA     1373
                               12663              BX6    X6+X3       (DA.BIAS) = FEA                             DATA     1374
           566  43773                             MX7    -1          INDICATE NO INCOMPLETE BLOCK                DATA     1375
                     53650                        =A6    X5+DA.W                                                 DATA     1376
                          54750                   SA7    A5                                                      DATA     1377
           567  0400000561 +                      EQ     EXIT.                                                   DATA     1378
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           570  0400400570 +             ADC      SUBR               ENTRY/EXIT...                               DATA     1394
           571  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
           572  5110001052 +                      SA1    ="ADCA"                                                 DATA     1401
                          22121                   LX1    B2                                                      DATA     1402
           573  0321400573 +                      PL     X1,"BLOWUP" IF NOT A LEGAL TOKEN FOR US                 DATA     1403
                                         .T       ENDIF                                                          DATA     1404
                          0421000602 +            IF.EQ  O.HOLL,ADC2 IF HOLLERITH CONSTANT                       DATA     1405
           574  66311                             IF.EQ  O.QHOLL,ADC2      IF "" STRING                          FC5A258    31
           575  6130000003                        IF.EQ  O.RLCON,ADC2      IF R OR L CONSTANT                    FC5A258    32
           576  6130000004                        IF.NE  O.CHAR,ADC4       IF NOT CHARACTER CONSTANT             DATA     1406
                                                                                                                 DATA     1407
                                        *         CHARACTER CONSTANT.                                            DATA     1408
                                                                                                                 DATA     1409
           577  43055                             MX0    -TB.CLCNL                                               DATA     1410
                     7160000006                   =X6    M.CHAR                                                  DATA     1411
                               20441              LX4    -TB.CLCNP                                               DATA     1412
           600  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
           601  20455                             LX4    TB.CLCNP-TB.SHCP                                        DATA     1418
                     15240                        BX2    -X0*X4      INDX = INDEX OF CONSTANT IN (T.CHAR)        DATA     1419
                          0400000610 +            EQ     ADC3                                                    DATA     1420
                                                                                                                 DATA     1421
                                                                                                                 DATA     1422
                                        *         HOLLERITH CONSTANT.                                            DATA     1423
                                                                                                                 DATA     1424
           602  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
           604  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
           605  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/05. 19.59.22.      PAGE    31
        CONSTANT LIST SCANNING AND CONVERSION.                        ADC 
  
           606  76110                             =X1    1           LENGTH = 1                                  DATA     1435
                     0471000610 +                 EQ     B7,B1,ADC3  IF SINGLE-WORD HOLLERITH                    DATA     1436
           607  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
           610  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
           611  0400000570 +                      EQ     EXIT.                                                   DATA     1449
                                                                                                                 DATA     1450
                                        *         NUMERIC CONSTANT.  CONVERT AND ADD TO (T.CON).                 DATA     1451
                                                                                                                 DATA     1452
           612  10577                    ADC4     BX5    X7          SAVE CONSTANT SIGN                          DATA     1453
                     64440                        SB4    A4                                                      DATA     1454
                          0100000000 X            CALL   TNK         TRANSLATE NUMERIC CONSTANT                  DATA     1455
           613  76741                             SX7    B4+B1                                                   DATA     1456
                     5170000023 +                 SA7    SELIST                                                  DATA     1457
                               13665              BX6    X6-X5       (X6) = SIGN * (UPPER HALF)                  DATA     1458
           614  13725                             BX7    X2-X5       (X7) = SIGN * (LOWER HALF)                  DATA     1459
                     0100000627 +                 RJ     ASI         ADD SCALAR ITEM                             DATA     1460
           615  0400000570 +                      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
           616  0400400616 +             ASC      SUBR               ENTRY/EXIT.                                 DATA     1474
           617  6221777771                        SB2    X1-M.CHAR                                               DATA     1476
                          76660                   SX6    B6                                                      DATA     1477
                               20622              LX6    DI.PNTP                                                 DATA     1478
           620  43052                             MX0    -WC.CLENL                                               DATA     1479
                     0520000622 +                 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
           621  15230                             BX2    -X0*X3      DLEN = CLEN[WCI]                            DATA     1485
                     20336                        LX3    WC.CLENP                                                DATA     1486
                          0400000625 +            EQ     ASC20                                                   DATA     1487
                                                                                                                 DATA     1488
           622  6231777773               ASC10    =B3    X1-M.DBL                                                DATA     1489
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    32
        CONSTANT LIST SCANNING AND CONVERSION.                        ASC 
  
                          76211                   =X2    2           DLEN = 2                                    DATA     1490
           623  0430000625 +                      EQ     B3,ASC20    IF DOUBLE                                   DATA     1491
                          0431000625 +            EQ     B3,B1,ASC20 IF COMPLEX                                  DATA     1492
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          DATA     1493
           624  76210                             =X2    1           DLEN = 1                                    DATA     1494
                                                                                                                 FC50570    17
           625  20166                    ASC20    LX1    DI.MODEP                                                DATA     1495
                                                  LX2    DI.DLENP                                                DATA     1496
                     12661                        BX6    X6+X1                                                   DATA     1497
                          12662                   BX6    X6+X2                                                   DATA     1498
           626  0400000616 +                      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
           627  0400400627 +             ASI      SUBR               ENTRY/EXIT...                               DATA     1510
           630  6221777773                        SB2    X1-M.DBL                                                DATA     1511
                          6251000000              SB5    X1+         REMEMBER (B5) = MODE OF CONSTANT            DATA     1512
           631  0420000640 +                      EQ     B2,B0,ASI4  IF MODE DOUBLE                              DATA     1513
                          0421000640 +            EQ     B2,B1,ASI4  IF MODE COMPLEX                             DATA     1514
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          DATA     1515
                                                                                                                 DATA     1516
           632  5110000000 X                      SCAN   T.CON,SCT                                               DATA     1517
           633  76410                             SX4    B1          INDICATE SINGLE-WORD CONSTANT               DATA     1518
                     76271                        SX2    B7+B1                                                   DATA     1519
                          0670000635 +            PL     B7,ASI2     IF CONSTANT ALREADY IN TABLE                DATA     1520
           634  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
           635  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
           636  20666                             LX6    DI.MODEP                                                DATA     1532
                     12742                        BX7    X4+X2                                                   DATA     1533
                          12676                   BX6    X7+X6       ADD ITEM DESCRIPTOR TO (T.DATI)             DATA     1534
           637  0400000627 +                      EQ     EXIT.                                                   DATA     1535
                                                                                                                 DATA     1536
                                        *         DOUBLE WORD CONSTANT.                                          DATA     1537
                                                                                                                 DATA     1538
           640  0100000000 X             ASI4     CALL   NBC         ENTER BINARY OF CONSTANT                    DATA     1539
           641  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/05. 19.59.22.      PAGE    33
        CONSTANT LIST SCANNING AND CONVERSION.                        ASI 
  
                               73261              SX2    X6+B1                                                   DATA     1543
           642  0400000635 +                      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
           643  43001                    CFC9     MX0    1           INDICATE FAILURE                            DATA     1565
                     53450                        SA4    X5          RESTORE A4                                  DATA     1566
                                                                                                                 DATA     1567
           644  0400400644 +             CFC      SUBR   =           ENTRY/EXIT...                               DATA     1568
           645  54341                             SA3    A4+B1                                                   DATA     1569
                     74540                        SX5    A4          REMEMBER (X5) = ORIGINAL (A4)               DATA     1570
                          0100000664 +            RJ     CHC         CONVERT REAL HALF OF COMPLEX                DATA     1571
           646  5160000663 +                      SA6    CFCA                                                    DATA     1572
                          56141                   SA1    B4+B1       CHECK TOKEN FOLLOWING CON                   DATA     1573
           647  6221777735                        SB2    X1-O.COMMA                                              DATA     1574
                          54311                   SA3    A1+B1       ADVANCE (A3)                                DATA     1575
                               64430              SB4    A3                                                      FC50570    20
           650  0520000643 +                      NZ     B2,CFC9     IF NO COMMA                                 DATA     1576
                          0470000653 +            ZR     B7,CFC1     IF REAL HALF NOT PARAMETER                  FC50180    10
           651  0100000000 X                      ANSI   B7                                                      FC50180    11
           652  0100000761 +                      RJ     CPR         OUTPUT PARAMETER REFERENCE                  FC50570    21
                                                                                                                 DATA     1577
           653  0100000664 +             CFC1     RJ     CHC         CONVERT IMAGINARY HALF OF COMPLEX           FC50180    12
           654  0470000657 +                      ZR     B7,CFC2     IF IMAGINARY HALF NOT PARAMETER             FC50180    13
                          0100000000 X            ANSI   B7                                                      FC50180    14
           655  10466                             BX4    X6          PRESERVE BINARY OF IMAGINARY                FC50570    22
                     0100000761 +                 RJ     CPR         OUTPUT PARAMETER REFERENCE                  FC50570    23
           656  22604                             LX6    X4          RESTORE BINARY                              FC50570    24
                                                                                                                 FC50180    15
           657  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
           660  0520000643 +                      NZ     B2,CFC9     IF NO TERMINAL RIGHT PAREN                  DATA     1582
                          5110000663 +            SA1    CFCA        RETURN (X1) = VALUE OF REAL HALF            DATA     1586
           661  74631                             =X6    A3+1                                                    DATA     1587
                     54431                        =A4    A3+1                                                    DATA     1588
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    34
        CONSTANT LIST SCANNING AND CONVERSION.                        CFC 
  
                          43000                   MX0    0           INDICATE SUCCESS                            DATA     1589
           662  5160000023 +                      SA6    SELIST                                                  DATA     1590
                          0400000644 +            EQ     EXIT.                                                   DATA     1591
                                                                                                                 DATA     1592
           663                     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
           664  0400400664 +             CHC      SUBR   0           ENTRY/EXIT...                               DATA     1613
           665  63230                             SB2    X3                                                      DATA     1614
                     43700                        MX7    0           SET FOR PLUS SIGN                           DATA     1615
                          5170000711 +            SA7    CHCB        PARAMETER FLAG                              FC50180    18
           666  6132777763                        SB3    B2-O.PL                                                 DATA     1616
                          0430000670 +            EQ     B3,B0,CHC2  IF PLUS SIGN                                DATA     1617
           667  0531000671 +                      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
           670  5033000001               CHC2     SA3    A3+1        ADVANCE OVER SIGN TOKEN                     DATA     1621
                          6223000000              SB2    X3+                                                     DATA     1622
                                                                                                                 FC50570    27
           671  6170000010               CHC3     SB7    O.PERIOD                                                DATA     1623
                          6130000005              SB3    O.CONS                                                  DATA     1624
           672  5170000710 +                      SA7    CHCA        REMEMBER (CHCA) = SIGN                      DATA     1625
                          0472000701 +            EQ     B7,B2,CHC5  IF DECIMAL POINT                            DATA     1626
           673  0432000701 +                      EQ     B3,B2,CHC5  IF DIGIT                                    DATA     1627
                          6170000011              SB7    O.VAR                                                   DATA     1628
           674  0572000643 +                      NE     B7,B2,CFC9  IF NOT *VAR*                  ...FAIL       DATA     1629
                          54430                   SA4    A3                                                      FC5A231    51
                               64430              SB4    A3                                                      FC5A231    52
           675  0100001012 +                      RJ     CSC         CONVERT SYMBOLIC CONSTANT                   DATA     1631
           676  0770000643 +                      MI     B7,CFC9     IF NOT A PARAMETER NAME       ...FAIL       DATA     1632
                          7170000000 X            SX7    E.DC10                                                  FC50180    19
           677  5170000711 +                      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/05. 19.59.22.      PAGE    35
        CONSTANT LIST SCANNING AND CONVERSION.                        CHC 
  
           700  0400000702 +                      EQ     CHC6                                                    DATA     1634
                                                                                                                 DATA     1635
           701  64430                    CHC5     SB4    A3                                                      DATA     1636
                     0100000000 X                 CALL   DEC         CONVERT DECIMAL CONSTANT                    DATA     1637
                                                                                                                 FC50180    21
           702  76011                    CHC6     =X0    M.INT                                                   DATA     1638
                     37310                        IX3    X1-X0                                                   DATA     1639
                          0313000704 +            NZ     X3,CHC7     IF NOT INTEGER CONSTANT                     DATA     1640
           703  73101                             =X1    X0-M.INT+M.REAL                                         DATA     1641
                     0100000000 X                 CALL   KCV         CONVERT CONSTANT VALUE                      DATA     1642
                                                                                                                 DATA     1643
           704  7231777774               CHC7     SX3    X1-M.REAL                                               DATA     1644
                          0313000643 +            NZ     X3,CFC9     IF NOT REAL OR INTEG.  NOT COMPLEX CON      DATA     1645
           705  5110000711 +                      SA1    CHCB                                                    FC50180    22
                          63710                   SB7    X1          PARAMETER FLAG                              FC50180    23
                               54111              =A1    A1+1        SYMTAB ORDINAL                              FC50570    30
           706  5120000710 +                      SA2    CHCA                                                    DATA     1646
                          0306000664 +            ZR     X6,EXIT.    IF VALUE = 0, AVOID COMPLEMENT              DATA     1647
           707  13662                             BX6    X6-X2       RETURN (X6) = SIGNED VALUE OF CON           DATA     1648
                     0400000664 +                 EQ     EXIT.                                                   DATA     1649
                                                                                                                 DATA     1650
           710                     1     CHCA     BSS    1           REMEMBER SIGN                               DATA     1651
           711                     1     CHCB     BSS    1           PARAMETER AS CONSTANT PART FLAG             FC50180    24
           712                     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
           713  0400400713 +             CMV      SUBR   =           ENTRY/EXIT.                                 DATA     1669
           714  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
           715  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
           716  11505                             BX5    X0*X5                                                   DATA     1681
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
           717  63750                             SB7    X5          PNTI = PNT[DITI]                            DATA     1685
                     20522                        LX5    DI.PNTP                                                 DATA     1686
                          0430000730 +            ZR     B3,CMV30    IF TYPE CHARACTER VARIABLE                  DATA     1687
                                                                                                                 DATA     1688
                                        *         DESIRED MODE IS SCALAR (NON-CHARACTER).                        DATA     1689
                                                                                                                 DATA     1690
           720  0423000713 +                      EQ     B2,B3,EXIT. IF CONMODE SAME AS VARMODE                  DATA     1691
                          0420000757 +            ZR     B2,CMV60    IF CHAR AND SCALAR MIXED                    DATA     1692
           721  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
           722  54321                             SA3    A2+B1                                                   DATA     1696
                     10166                        BX1    X6          (X1) = DESIRED MODE                         DATA     1697
                          22703                   LX7    X3                                                      DATA     1698
                               10622              BX6    X2                                                      DATA     1699
           723  0100000000 X                      CALL   KCV         CONVERT CONSTANT VALUE                      DATA     1700
           724  0620000726 +                      PL     B2,CMV10    IF NO CONVERSION ERROR                      DATA     1701
                          6170000000 X            FATAL  E.AT01      MIXED LOGICAL AND NON LOGICAL               DATA     1702
                                                                                                                 DATA     1703
           726  0100000627 +             CMV10    RJ     ASI         ADD SCALAR ITEM                             DATA     1704
           727  10566                             BX5    X6          (X5) = NEW CONSTANT DESCRIPTOR              DATA     1705
                     66310                        SB3    B1          INDICATE SCALAR MODE                        DATA     1706
                          0400000713 +            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
           730  0520000757 +             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
           731  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
           733  7120000011                        CW     X2,X3       OWLEN = CONLEN / 10                         DATA     1730
                               37721              IX7    X2-X1                                                   DATA     1731
           735  63610                             SB6    X1          ELS = NWLEN                                 DATA     1732
                     0327000713 +                 PL     X7,EXIT.    IF OWLEN .GE. NWLEN                         DATA     1733
                               14777              BX7    -X7                                                     DATA     1734
           736  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/05. 19.59.22.      PAGE    37
        CONSTANT LIST SCANNING AND CONVERSION.                        CMV 
  
           737  5110000000 X                      ALLOC  T.CON,B3    ALLOCATATE FOR NEW CHAR CON                 DATA     1739
                                                                                                                 DATA     1740
           741  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
           743  5110001053 +                      SA1    =10H                                                    DATA     1744
                          10611                   SETMEM B2+B6,B5,X1 BLANK FILL                                  DATA     1745
                                                                                                                 DATA     1746
           745  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
           746  5120000000 X                      SA2    T=CON                                                   DATA     1750
                          76330                   SX3    B3                                                      DATA     1751
                               37623              IX6    X2-X3                                                   DATA     1752
           747  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
           750  0100000000 X                      CALL   NCM                                                     DATA     1756
           751  0770000753 +                      MI     B7,CMV40    IF NOT ALREADY IN TABLE                     DATA     1757
                          66670                   SB6    B7          NEW ORD = (B7)                              DATA     1758
           752  0400000754 +                      EQ     CMV50                                                   DATA     1759
                                                                                                                 DATA     1760
           753  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
           754  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
           755  12551                             BX5    X5+X1                                                   DATA     1771
                     20522                        LX5    DI.PNTP                                                 DATA     1772
                          66300                   =B3    0           INDICATE CHARACTER                          DATA     1773
           756  0400000713 +                      EQ     EXIT.                                                   DATA     1774
                                                                                                                 DATA     1775
                                        *         CHARACTER AND SCALAR MIXED.  DO NOT CHANGE DESCRIPTOR.         DATA     1776
                                                                                                                 DATA     1777
           757  6170000000 X             CMV60    FATAL  E.AT13      ** CHAR AND OTHER MIXED                     DATA     1778
           760  13555                             BX5    0           PNT = 0     /* FAKE UP RETURN               DATA     1779
                     0400000713 +                 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
           761  0400400761 +             CPR      SUBR               ...ENTRY/EXIT...                            FC50570    42
           762  22001                             LX0    X1                                                      FC50570    43
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    38
        CONSTANT LIST SCANNING AND CONVERSION.                        CPR 
  
                     20052                        LX0    XR.TAGP                                                 FC50570    44
                          5110000000 X            SA1    REFVAR                                                  FC50570    45
           763  76240                             SX2    B4                                                      FC50570    46
                     37552                        IX5    X5-X2       CONVERT ORIGINAL POSITION TO DIFFERENCE     FC50570    47
                          10600                   ADDREF X0,X1                                                   FC50570    48
           765  56340                             SA3    B4          PROTECTION FOR TABLE MOVE IF IN STMT-FUN    FC50570    49
                     73554                        SX5    X5+B4       ORIGINAL POSITION (MAY BE UPDATED)          FC50570    50
                          0400000761 +            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
           766  0400400766 +             CRL      SUBR               ENTRY/EXIT...                               DATA     1797
           767  5120000000 +                      SA2    REPFLAG                                                 DATA     1798
                          5130000000 X            SA3    T.DATI                                                  DATA     1799
           770  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
           771  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
           772  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
           773  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
           774  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/05. 19.59.22.      PAGE    39
        CONSTANT LIST SCANNING AND CONVERSION.                        CRL 
  
           775  7110077777               CRL1     SX1    MAX.REPL                                                FC50336    20
                          37015                   IX0    X1-X5                                                   FC50336    21
           776  0320000766 +                      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
           777  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
          1000  5110000000 X                      ALLOC  T.DATI,B3                                               FC50336    35
          1002  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
          1003  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
          1004  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
          1005  12615                             BX6    X1+X5       MERGE IN REMAINDER COUNT                    FC50336    46
                                                  LX6    DI.RCP                                                  FC50336    47
                     54610                        SA6    A1          UPDATE                                      FC50336    48
                          0400000775 +            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
          1006  0400401006 +             CRC      SUBR               ENTRY/EXIT...                               DATA     1838
          1007  10655                             BX6    X5                                                      DATA     1839
                     0305000000 X                 ZR     X5,E.DCE    IF .EQ. 0                                   DATA     1840
                               21530              AX5    24                                                      FC5A132    66
          1010  6221777775                        SB2    X1-M.INT                                                DATA     1842
                          0315000000 X            NZ     X5,E.DCE    IF .GT. 2**24-1                             FC5A132    67
          1011  0420001006 +                      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/05. 19.59.22.      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
          1012  0400401012 +             CSC      SUBR   =           ENTRY/EXIT.                                 DATA     1869
          1013  5014000001                        SA1    A4+1                                                    FC5A231    60
                          7211777766              SX1    X1-O.VAR                                                FC5A231    61
          1014  0311001016 +                      NZ     X1,CSC1     IF NOT LONG NAME                            FC5A231    62
                          0100000000 X            CALL   TLV         TRUNCATE LONG NAME                          FC5A231    63
          1015  7164000001                        SX6    B4+1                                                    FC5A231    64
                          5160000023 +            SA6    SELIST      UPDATE TO REFLECT LONG NAME                 FC5A231    65
                                                                                                                 FC5A231    66
          1016  43152                    CSC1     MX1    TB.TOCL                                                 FC5A231    67
                     11614                        BX6    X1*X4                                                   DATA     1871
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           DATA     1872
          1017  0770001012 +                      MI     B7,EXIT.    IF NOT IN TABLE                             DATA     1873
                          20263                   HX2    WB.PARM                                                 DATA     1875
                               67701              SB7    -B1         INDICATE FAILURE                            DATA     1876
          1020  0322001012 +                      PL     X2,EXIT.    IF NOT PARAMETER                            DATA     1877
                          20211                   LX2    1+WB.PARMP-WB.MODEP                                     DATA     1879
                               66700              SB7    B0          INDICATE SUCCESS                            DATA     1880
          1021  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
          1022  5120000000 X                      SA2    T.CON                                                   DATA     1887
                          53223                   SA2    B3+X2       VALUE = T.CON(PNT)                          DATA     1888
                               10622              BX6    X2                                                      DATA     1889
          1023  0400001012 +                      EQ     EXIT.                                                   DATA     1891
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
          1024  0400401024 +             GNI      SUBR               ENTRY/EXIT...                               DATA     1900
          1025  5110000004 +                      SA1    I.DIT                                                   DATA     1901
                          5120000000 X            SA2    T.DATI                                                  DATA     1902
          1026  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
          1027  0325001033 +                      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
          1030  5160000000 +                      SA6    REPFLAG                                                 DATA     1913
                          54721                   SA7    A2+B1       SAVE ORDINAL OF REP LIST START              DATA     1914
                               20644              LX6    -DI.RLP                                                 DATA     1915
          1031  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
          1032  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
          1033  76010                    GNI1     SX0    B1                                                      DATA     1927
                     36701                        IX7    X0+X1       INDEX += 1                                  DATA     1928
                          54710                   SA7    A1                                                      DATA     1929
          1034  0302001024 +                      ZR     X2,EXIT.    IF NO REPETITION                            DATA     1930
                          73721                   SX7    X2+B1       REMAINDER += 1                              DATA     1931
                               54720              SA7    A2                                                      DATA     1932
          1035  0317001024 +                      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
          1036  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
          1037  54730                             SA7    A3                                                      DATA     1945
                     0300001042 +                 ZR     X0,GNI2     IF (DI.RC) = 0 THEN FINISHED                FC5A132    70
                               20344              LX3    DI.RCP-DI.RLP                                           DATA     1947
          1040  73730                             SX7    X3                                                      DATA     1948
                                   0              ERRNZ  18-DI.RLL                                               DATA     1949
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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
          1041  10744                             BX7    X4                                                      DATA     1953
                     54710                        SA7    A1          (I.DIT+0) = OF    /* RESET FOR NEXT ENTRY   DATA     1954
                          0400001024 +            EQ     EXIT.                                                   DATA     1955
                                                                                                                 DATA     1956
          1042  13777                    GNI2     BX7    0                                                       DATA     1957
                     54770                        SA7    A7          (REPFLAG) = 0     /* INDICATE REP LIST OVER DATA     1958
                          0400001024 +            EQ     EXIT.                                                   DATA     1959
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      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.
  
          1043  00000000002000000000         P
          1044  37746000000000000000    4@# 
          1045  37776000002000000000    4;#  P
          1046  36600000000000000000    3#
          1047  34600000000000000000    1#
          1050  40000000001200000000    5    J
          1051  00000631463146314632      FY-Y-Y-Z
          1052  37700000000000000000    4'
          1053  55555555555555555555
  
          1111                                    END                                                            DATA     2130
  
                             74600B CM  STORAGE USED             4587 STATEMENTS     1612 SYMBOLS      000010 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.440 SECONDS        1000 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADC           570   PROGRAM*       11/57     30/14 L
        ADC2          602   PROGRAM*       30/26     30/27     30/28     30/48 L
        ADC3          610   PROGRAM*       30/43     31/02     31/10 L
        ADC4          612   PROGRAM*       30/29     31/19 L
        ADW             0   EXTERNAL*       1/53 X    9/40     13/21     13/57     25/23     26/16     32/36
        ALC             0   EXTERNAL*       1/53 X   27/05     27/26     37/01     39/16
        ANSI=           0   EXTERNAL*       2/26 X   13/13     30/49     33/41     33/46
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        ASC           616   PROGRAM*       12/35     31/43 L
        ASC10         622   PROGRAM*       31/48     31/57 L
        ASC20         625   PROGRAM*       31/55     32/02     32/03     32/07 L
        ASI           627   PROGRAM*       13/55     31/26     32/25 L   36/23
        ASIA           24   PROGRAM*        5/25 L    5/26
        ASI2          635   PROGRAM*       32/35     32/43 L   33/02
        ASI4          640   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           134   PROGRAM*        7/43     11/13 L
        BIT10         135   PROGRAM*       11/17 L   13/32     14/16
        BIT20         155   PROGRAM*       11/26     11/44     11/46     11/48     12/53
                                           11/40     11/45     11/47     11/52 L
        BIT25         160   PROGRAM*       11/54     11/57 L
        BIT30         162   PROGRAM*       11/28     12/06 L
        BIT40         176   PROGRAM*       11/27     12/40 L
        BIT45         203   PROGRAM*       12/28     13/04 L
        BIT50         211   PROGRAM*       13/07     13/15 L
        BIT60         221   PROGRAM*       11/35     11/49     13/37 L
        BIT70         225   PROGRAM*       11/31     11/34     13/50 L
        BIT75         227   PROGRAM*       13/43     13/55 L
        BIT80         230   PROGRAM*       12/01     12/36     13/57 L
        BIT85         233   PROGRAM*       14/12 L   14/28
        BIT90         235   PROGRAM*       14/13     14/16 L
        BIT95         243   PROGRAM*       14/24     14/27 L
        B1=1            0 
        CFC           644   PROGRAM*       13/37     33/30 L   33/30 E
        CFCA          663   PROGRAM*       33/34 S   33/55     34/05 L
        CFC1          653   PROGRAM*       33/40     33/44 L
        CFC2          657   PROGRAM*       33/45     33/51 L
        CFC9          643   PROGRAM*       33/27 L   33/39     33/54     34/49     34/53     35/13
        CHC           664   PROGRAM*       33/33     33/44     34/30 L
        CHCA          710   PROGRAM*       34/45 S   35/17     35/22 L
        CHCB          711   PROGRAM*       34/33 S   34/55 S   35/14     35/23 L
        CHC2          670   PROGRAM*       34/35     34/40 L
        CHC3          671   PROGRAM*       34/36     34/43 L
        CHC5          701   PROGRAM*       34/46     34/47     35/03 L
        CHC6          702   PROGRAM*       35/01     35/06 L
        CHC7          704   PROGRAM*       35/08     35/12 L
        CLOSREP         1   PROGRAM*        5/07 L   13/17 S   14/12     14/23
        CMV           713   PROGRAM*       26/54     35/45 L   35/45 E
        CMV10         726   PROGRAM*       36/20     36/23 L
        CMV30         730   PROGRAM*       36/06     36/41 L
        CMV40         753   PROGRAM*       37/19     37/23 L
        CMV50         754   PROGRAM*       37/21     37/29 L
        CMV60         757   PROGRAM*       36/11     36/41     37/40 L
        CONONE          0   EXTERNAL*       2/29 X   16/32
        CO.SNAP         0   EXTERNAL*       2/14 X   15/45     16/03     19/17     29/08
        CPR           761   PROGRAM*       33/42     33/48     37/56 L
        CRC          1006   PROGRAM*       13/18     39/49 L
        CRL           766   PROGRAM*       14/14     14/25     38/31 L
        CRL1          775   PROGRAM*       39/01 L   39/32
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        CSC          1012   PROGRAM*       12/12     34/52     40/21 L   40/21 E
        CSC1         1016   PROGRAM*       40/24     40/29 L
        CVL             0   EXTERNAL*       2/20 X   15/31
        C=DVL         271   PROGRAM*       16/22 L   16/22 E   43/24 F
        C=ERR           0   EXTERNAL*       2/23 X
        DA             14   PROGRAM*        5/18 L   20/04 S   21/16     22/27     22/45     23/14     23/39
        DATAFLG       244   PROGRAM*       12/43 S   12/46 S   14/30 L   14/30 E
        DATARM          0   EXTERNAL*       2/23 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/02 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/56 X   12/44     35/04
        DH.ASP         72   FTX            17/39     17/41
        DH.PSL         30   FTX            17/31
        DH.PSP         36   FTX            17/33     17/39
        DH.VDP         73   FTX            17/41
        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/11 X   16/06
        DUC=            0   FTX             7/50
        DVI             7   PROGRAM*        5/15 L   21/36     23/22     24/41     25/53     26/42     28/08 S   29/11
        DVLA          325   PROGRAM*       17/56 S   18/01     18/04 L
        DVLOP           0   EXTERNAL*       2/23 X   15/27
        DVLT           21   PROGRAM*        5/22 L    7/42     15/21     15/32
        DVL21         304   PROGRAM*       16/42     17/03 L
        DVL24         306   PROGRAM*       16/34     17/09 L
        DVL30         320   PROGRAM*       16/36     16/39     17/07     17/11     17/49 L
        EDI           326   PROGRAM*       19/15 L   19/15 E
        EDI1          332   PROGRAM*       19/19     19/21 L
        EMT             0   EXTERNAL*       2/23 X    7/50     18/01
        ERT             0   EXTERNAL*       2/02 X   12/20     38/05
        E=TOTAL         0   EXTERNAL*       2/29 X   15/41
        E.AT01          0   EXTERNAL*       2/06 X   36/21
        E.AT03          0   EXTERNAL*       2/06 X   31/03     31/03
        E.AT08          0   EXTERNAL*       2/06 X   30/49
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        E.AT13          0   EXTERNAL*       2/06 X   37/40
        E.DACV          0   EXTERNAL*       2/06 X    7/57
        E.DAR           0   EXTERNAL*       2/06 X   13/13
        E.DAVC          0   EXTERNAL*       2/06 X    7/56
        E.DCE           0   EXTERNAL*       2/06 X   14/19     39/51     39/54     39/56
        E.DC10          0   EXTERNAL*       2/07 X   34/54
        E.DC7           0   EXTERNAL*       2/07 X   13/38
        E.DIL           0   EXTERNAL*       2/07 X   11/23     13/12
        E.DIL1          0   EXTERNAL*       2/07 X   11/50     30/36     30/48
        E.DIL2          0   EXTERNAL*       2/07 X   13/05
        E.DIL3          0   EXTERNAL*       2/07 X   14/20
        E.DIL4          0   EXTERNAL*       2/07 X   12/13
        E.DSE           0   EXTERNAL*       2/07 X    9/53     10/38
        E.DVL1          0   EXTERNAL*       2/08 X   16/23
        E.MDE2          0   EXTERNAL*       2/08 X   11/55
        FEC=EXU         0   EXTERNAL*       2/02 X    7/13
        FEC.RTN         0   EXTERNAL*       2/02 X    6/54
        FILL.           0   EXTERNAL*       2/08 X   12/11 S
        F.GRUP          0   PROGRAM*        5/05 L    5/13      7/28 S
        GNI          1024   PROGRAM*       21/52     22/23     23/36     41/08 L
        GNI1         1033   PROGRAM*       41/15     41/35 L
        GNI2         1042   PROGRAM*       41/54     42/08 L
        IDP=SVB         0   EXTERNAL*       2/17 X   19/20     19/20
        IDP=SVX         0   EXTERNAL*       2/17 X   19/20     19/20
        IODOIND         0   EXTERNAL*       2/20 X   16/38
        IOL.RTN         0   EXTERNAL*       2/23 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/56 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/26 X   11/55
        MOD             0   EXTERNAL*       2/29 X
        MP             17   PROGRAM*        5/20 L   21/25 S   21/44     22/19
        MVE=            0   EXTERNAL*       2/39 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     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/56 X   32/54
        NCM             0   EXTERNAL*       2/02 X   37/18
        NIC           337   PROGRAM*       19/31     20/01 L
        NICB          452   PROGRAM*       20/10 S   21/46     22/12     22/42     23/34     23/38     24/08 L
        NICN          453   PROGRAM*       21/14 S   21/43     22/18     22/40     24/09 L
        NICT          454   PROGRAM*       19/27 S   20/47     22/46     23/44     24/10 L
        NIC10         343   PROGRAM*       20/05     20/09 L
        NIC20         344   PROGRAM*       20/12 L   22/55
        NIC24         351   PROGRAM*       20/14     20/33 L   24/03
        NIC26         353   PROGRAM*       20/25     20/31     20/47 L
        NIC30         367   PROGRAM*       21/26     21/36 L
        NIC32         372   PROGRAM*       21/41     21/43 L
        NIC34         376   PROGRAM*       21/51 L   21/56
        NIC40         403   PROGRAM*       21/27     21/42     22/12 L
        NIC44         405   PROGRAM*       22/18 L   22/34
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        NIC50         415   PROGRAM*       22/01     22/40 L
        NIC56         424   PROGRAM*       22/54     22/57 L   23/49
        NIC60         426   PROGRAM*       20/37     21/05     23/14 L
        NIC62         433   PROGRAM*       23/32 L   23/56
        NIC63         434   PROGRAM*       23/26     23/34 L
        NIC64         435   PROGRAM*       23/33     23/36 L
        NIC68         450   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/02 X    7/07
        ORGN           13   PROGRAM*        5/17 L   23/17 S   23/32
        ORH           500   PROGRAM*       21/47     22/22     25/47 L
        OR.1OP          1   FTX            16/47
        OSH           455   PROGRAM*       23/35     24/33 L   26/07
        OSHA           24   PROGRAM*        5/26 D   24/37 S   24/39
        OSH20         462   PROGRAM*       24/35     24/41 L
        OSH40         471   PROGRAM*       25/02     25/09 L
        OSH80         473   PROGRAM*       25/07     25/17 L
        OVI           513   PROGRAM*       21/53     22/24     23/37     26/40 L
        OVIA           25   PROGRAM*        5/27 L   26/46 S
        OVI5          530   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     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/33 X    7/51
        PDM             0   EXTERNAL*       2/26 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           245   PROGRAM*        7/45     15/19 L
        PVL6          262   PROGRAM*       15/50     15/52 L
        PVL9          267   PROGRAM*       15/42     16/05     16/08 L
        REFVAR          0   EXTERNAL*       2/02 X   12/19     38/02
        REG=            0   EXTERNAL*       2/17 X   19/20
        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/39 X   37/07
        SCT             0   EXTERNAL*       2/02 X   32/32
        SDV           537   PROGRAM*       19/28     27/53 L
        SDV4          546   PROGRAM*       28/29     28/30     28/33 L
        SDV7          554   PROGRAM*       28/44     29/01 L
        SED             0   EXTERNAL*       1/56 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/17 X   29/11
        SN.PAR          0   EXTERNAL*       2/11 X   15/51
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        SP.MODEP       22   FTX            17/54
        SP.SKELP       52   FTX            17/52
        SSY             0   EXTERNAL*       2/02 X   40/31
        STAGE           0   EXTERNAL*       2/03 X    7/12
        STD           121   PROGRAM*        9/29      9/42     10/12 L
        STD1          125   PROGRAM*       10/24 L   10/27     10/32     10/37
        STD2          130   PROGRAM*       10/28     10/34 L
        STD5          132   PROGRAM*       10/36     10/38 L
        S.BLEN         35   PROGRAM*        6/37 L   25/51 S
        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   25/49     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            1   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/03 X   40/25
        TNK             0   EXTERNAL*       1/56 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/29 X    6/53      6/53 S    7/16     37/12     37/23
        T=CONB          0   EXTERNAL*       2/03 X    6/52      7/18 S
        T=DAR           0   EXTERNAL*       2/29 X    7/25      7/25 S   16/09     16/09 S
        T=DATI          0   EXTERNAL*       2/29 X    6/50      6/50 S    7/26      7/26 S
        T=DATL          0   EXTERNAL*       2/29 X    7/31      8/03      9/13      9/13 S    9/51
        T=DATS          0   EXTERNAL*       2/29 X    6/51      6/51 S    7/27      7/27 S    7/47
        T.CON           0   EXTERNAL*       2/30 X   27/06     27/28     32/32     36/12     37/01     37/09     40/44
        T.DAR           0   EXTERNAL*       2/30 X   15/53
        T.DATI          0   EXTERNAL*       2/30 X   13/57     23/51     38/33     41/10
                                           13/21     20/33     26/41     39/16
        T.DATL          0   EXTERNAL*       2/30 X    7/30      9/40      9/40
        T.DATS          0   EXTERNAL*       2/30 X   25/23     27/05     27/26     29/36
                                           25/23     26/16     27/05     27/26
        T.DIM           0   EXTERNAL*       2/30 X   17/26
        T.PAR           0   EXTERNAL*       2/30 X   15/52     16/43
        T.SYM           0   EXTERNAL*       2/30 X   17/12     27/54
        UPH           561   PROGRAM*       21/57     22/25     23/02     24/01     24/05     24/38     29/30 L
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/05. 19.59.22.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        VAI             0   EXTERNAL*       2/20 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
        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/36 X    7/50
        V=DVI           0   EXTERNAL*       2/36 X   17/49
        WA.W            0   FTX             6/10
        WB.ARYL         1   FTX            17/22
        WB.ARYP        12   FTX            17/22
        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
        .9              0                  29/11 D   29/11 D   29/11 D   29/11 D   29/11 D   29/11 D
                                           29/11     29/11     29/11     29/11     29/11     29/11
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3011              IDENT  DECL 
                       3011                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2624 
                                        LITERALS* LOCAL        2624        37 
                                        DEBUG     LOCAL        2663       126 
  
  
                                        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           2274+ 
                                        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/05. 19.59.24.      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/05. 19.59.24.      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  5120002624 +                      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/05. 19.59.24.      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
                          5120002624 +            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/05. 19.59.24.      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
                          5130002625 +            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
                          5140002626 +            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  5120002624 +                      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/05. 19.59.24.      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/05. 19.59.24.      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
                          5130002627 +            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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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  5120002630 +                      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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  5130002631 +                      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/05. 19.59.24.      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
                          0100002506 +            RJ     PKS         PARSE CONSTANT SUBSTRING                    DECL     1237
           702  5110000205 +                      SA1    EQSH                                                    DECL     1238
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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/05. 19.59.24.      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  5120002632 +                      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  5110002633 +                      CLAS=  X1,WB,(AL,LEV)                                          FC5A444   113
                          15221                   BX2    -X1*X2      CLEAR AL AND LEV FOR EXTERNAL SYMBOL        FC5A444   114
                                                                                                                 DECL     1339
           745  5130002634 +             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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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
                          5130002635 +            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  5110002636 +                      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
                     5130002637 +                 CLAS=  X3,WB,(LEV,VAR)                                         DECL     1544
                               12443              BX4    X4+X3                                                   DECL     1545
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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  5110002640 +             LVL32    SA1    =2H//       BLANK COMMON NAME FOR ERROR MESSAGE         DECL     1552
                          5140002624 +            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
                          5110002624 +            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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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  5140002641 +             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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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/05. 19.59.24.      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
                          5170001312 +            SA7    PCDA        SAVE (B4)                                   DECL     1960
                                                                                                                 DECL     1961
          1266  0100002405 +                      RJ     MFR         MARK FUNCTION AS REFERENCED                 DECL     1962
                                                                                                                 DECL     1963
          1267  0100002314 +                      RJ     MCA         MAKE /COMMON/ ADDRESS ASSIGNMENTS           DECL     1964
                                                                                                                 DECL     1965
          1270  0100001523 +                      RJ     EQU         PROCESS EQUIVALENCES                        DECL     1966
                                                                                                                 DECL     1967
          1271  0100001422 +                      RJ     CCL         CORDINATE COMMON LEVEL INFORMATION          DECL     1968
                                                                                                                 DECL     1969
          1272  0100001372 +                      RJ     CCC         CHECK CHARACTER COMMON BLOCKS               DECL     1970
                                                                                                                 DECL     1971
          1273  0100001446 +                      RJ     CCS         CONVERT CHARACTER SYMBOLS                   DECL     1972
                                                                                                                 DECL     1973
          1274  0100001466 +                      RJ     DCS         DIAGNOSE COMMON-SAVE VARIABLES              DECL     1974
                                                                                                                 DECL     1975
          1275  0100002535 +                      RJ     PSC         PROPAGATE SAVE BIT THROUGH COMMON           DECL     1976
                                                                                                                 DECL     1977
          1276  0100002415 +                      RJ     PCF         PROCESS CHARACTER/FORMAL PARAMETER INTERACT DECL     1978
                                                                                                                 DECL     1979
          1277  0100002575 +                      RJ     VDP         PROCESS VARABLE DIMENSIONS                  DECL     1980
                                                                                                                 DECL     1981
          1300  0100001313 +                      RJ     APT         ASSIGN ECS/LCM POINTER TAGS                 DECL     1982
                                                                                                                 DECL     1983
          1301  0100001352 +                      RJ     ASL         ASSIGN STORAGE LEVELS                       DECL     1984
                                                                                                                 DECL     1985
          1302  0100002553 +                      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
          1304  5110000000 X                      SA1    CO.SNAP                                                 DECL     1995
                          20104                   LX1    1RD                                                     DECL     1996
          1305  0321001307 +                      PL     X1,PCD7     IF DECL SNAP NOT SELECTED                   DECL     1997
          1306  0100000000 X             SNP=D    DUMPT  (SYM,BLKS,DIM)                                          DECL     1998
          1307                           PCD7     BSS                                                            DECL     1999
                                         SNAP=D   ENDIF                                                          DECL     2000
          1307  5120000000 X                      SA2    T.TB                                                    DECL     2001
                          5110001312 +            SA1    PCDA                                                    DECL     2002
          1310  53020                             SA0    X2          RESTORE (A0)                                DECL     2003
                     5150000000 X                 SA5    TB=TYPE     RESTORE (X5)                                DECL     2004
                               63410              SB4    X1          RESTORE (B4)                                DECL     2005
          1311  0400001263 +                      EQ     EXIT.       EXIT...                                     DECL     2006
                                                                                                                 DECL     2007
          1312  00000000000000000000     PCDA     CON    0           SAVE AREA                                   DECL     2008
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          1313  0400401313 +             APT      SUBR               ...ENTRY/EXIT...                            DECL     2029
          1314  5140000000 X                      SA4    WO.LCM                                                  FC5A132    72
                          63440                   SB4    X4          (B4) = LCM INDICATOR                        DECL     2031
                               43600              MX6    0                                                       DECL     2032
          1315  5110000000 X                      ADDWD  T.LCA                                                   DECL     2033
          1316  5110000000 X                      SA1    T.BLKS                                                  DECL     2034
                          5120000000 X            SA2    T=BLKS                                                  DECL     2035
          1317  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
          1320  53111                             =A1    X1+CB.W                                                 DECL     2041
                                                                                                                 DECL     2042
          1321  54113                    APT10    SA1    A1+B3       CBI = CB ENTRY                              DECL     2043
                     55411                        =A4    A1-CB.W+CA.W      CAI = CA ENTRY                        DECL     2044
                          0420001313 +            ZR     B2,EXIT.    IF NO MORE ENTRIES, EXIT..                  DECL     2045
          1322  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
          1323  5160000000 X                      SA6    FILL.                                                   DECL     2052
                          67221                   SB2    B2-B1                                                   DECL     2053
                               43072              MX0    -CA.BLVLL                                               DECL     2054
          1324  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
          1325  43301                             CLAS=  X3,CB,(LCM)                                             DECL     2059
                     12613                        BX6    X1+X3                                                   DECL     2060
                          76040                   SX0    B4          LCM INDICATOR                               DECL     2061
          1326  0337001330 +                      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/05. 19.59.24.      PAGE    43
        CLOSE OF DECLARATIVE ROUTINES.                                APT 
  
                                                  ZR     X3,APT20    IF NO LCM                                   F1037F5   417
                                                  MX7    0                                                       F1037F5   418
                                                                                                                 FC50443     4
          1327                           APT19    BSS    0                                                       F1037F5   419
          1327  5061000000                        SA6    A1+         LCM(CBI] = 1                                DECL     2063
                                                                                                                 FC50443     5
          1330  5130001351 +             APT20    SA3    APTB        MAXLEN = (MAX.SPCM)                         FC50443     6
                          6170000000 X            SB7    E.CM9                                                   DECL     2065
          1331  21773                             AX7    59                                                      DECL     2066
                     5120000000 X                 SA2    CO.LCM                                                  FC5A132    73
                               15227              BX2    -X7*X2                                                  FC5A132    74
          1332  15407                             BX4    -X7*X0                                                  DECL     2067
                     0322001334 +                 PL     X2,APT30           IF NOT LCM=G AND LCM                 FC5A132    75
          1333  5130001350 +                      SA3    APTA        MAXLEN = (MAX.SPLC)                         DECL     2069
                          6170000000 X            SB7    E.CM10                                                  DECL     2070
                                                                                                                 FC50443     7
          1334  37753                    APT30    IX7    X5-X3                                                   DECL     2071
                     0337001336 +                 MI     X7,APT40    IF BLENI .LT. MAXLEN                        DECL     2072
          1335  0100000000 X                      FATAL  B7                                                      DECL     2073
                                                                                                                 FC50443     8
          1336  0304001321 +             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
          1337  7170000004                        SX7    K=LC                                                    DECL     2079
                          20717                   LX7    P=PFX                                                   DECL     2080
                               36737              IX7    X3+X7                                                   DECL     2081
          1340  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
          1341  5120000000 X                      SA2    T.COMM                                                  DECL     2090
                          20106                   HX1    CB.FMI                                                  DECL     2091
                               21160              AX1    -CB.FMIL    FMIND = FMI[CBI]                            DECL     2092
          1342  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
          1343  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
          1344  5140000000 X                      SA4    T.BLKS                                                  FC50156     7
                          63340                   SB3    X4                                                      FC50156     8
                               75413              SX4    A1-B3       RELATIVIZE BLOCK POINTER                    FC50156     9
          1345  5110000000 X                      ADDWD  T.LCA                                                   DECL     2103
          1346  5110000000 X                      SA1    T.BLKS                                                  FC50156    10
                          63310                   SB3    X1                                                      FC50156    11
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    44
        CLOSE OF DECLARATIVE ROUTINES.                                APT 
  
                               53143              SA1    X4+B3       ABSOLUTIZE BLOCK POINTER                    FC50156    12
          1347  66311                             =B3    Z=BLKS                                                  DECL     2105
                     43072                        MX0    -CA.BLVLL     RESTORE X0                                DECL     2106
                          0400001321 +            EQ     APT10       LOOP                                        DECL     2107
                                                                                                                 DECL     2108
          1350  00000000000003777771     APTA     CON    MAX.SPLC+1                                              FC5A231   119
          1351  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
          1352  0400401352 +             ASL      SUBR               ...ENTRY/EXIT...                            DECL     2121
          1353  5110000000 X                      SA1    LEVEL2                                                  FC5A184    70
                          5120000000 X            SA2    T=SYM                                                   DECL     2122
          1354  5130000000 X                      SA3    T.SYM                                                   DECL     2123
                          6130000003              =B3    Z=SYM                                                   DECL     2124
          1355  0301001352 +                      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
          1356  5233777775                        =A3    X3-Z=SYM+WB.W                                           DECL     2128
                          43501                   CLAS=  X5,WB,LEV                                               DECL     2130
          1357  43701                             CLAS=  X7,WB,(LCM)                                             DECL     2131
                                                                                                                 DECL     2132
          1360  54333                    ASL2     SA3    A3+B3       FETCH SYMTAB ATTRIBUTE WORD                 DECL     2133
                     0460001352 +                 ZR     B6,EXIT.    IF TABLE EXHAUSTED                          DECL     2134
                               11453              BX4    X5*X3                                                   DECL     2135
                                         .TEST    IFEQ   TEST,ON,1                                               DECL     2136
          1361  0760401361 +                      MI     B6,"BLOWUP" IF SYMTAB LEN NOT MULTIPLE OF Z=SYM         DECL     2137
                          67663                   SB6    B6-B3                                                   FC5A517     7
                               20370              LX3    59-WB.LABP                                              DECL     2138
          1362  0333001360 +                      MI     X3,ASL2     IF LAB, IGNORE                              FC5A444   122
                          43601                   MX6    1                                                       FC5A444   123
                               20621              LX6    WB.ALP-WB.LABP                                          FC5A444   124
          1363  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
                          20604                   LX6    WB.LABP+1                                               FC5A444   127
                               54630              SA6    A3          UPDATE MEMORY COPY OF WORD B                FC5A444   128
          1364  20372                             LX3    WB.LABP-WB.VARP                                         DECL     2141
                     0323001360 +                 PL     X3,ASL2     IF NOT VAR, IGNORE                          FC5A444   129
          1365  0304001360 +                      ZR     X4,ASL2     IF NOT DECLARED IN LEVEL                    DECL     2144
                          20325                   LX3    WB.VARP+1-WB.LEVNP                                      DECL     2145
                               15230              BX2    -X0*X3      EXTRACT (X2) = LEVEL NUMBER                 DECL     2146
          1366  0312001367 +                      NZ     X2,ASL10    IF LEVEL NUMBER .NE. 0                      DECL     2147
                          76211                   =X2    2                                                       DECL     2148
          1367  7242777775               ASL10    =X4    X2+.DAL-3                                               DECL     2149
                                  -1              ERRPL  .DAL-2                                                  DECL     2150
                          0334001360 +            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/05. 19.59.24.      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
          1370  20355                             LX3    WB.LEVNP                                                DECL     2152
                     12673                        BX6    X7+X3       SET (LCM) BIT                               DECL     2153
                          54630                   SA6    A3                                                      DECL     2154
          1371  0400001360 +                      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
          1372  0400401372 +             CCC      SUBR               ...ENTRY/EXIT...                            DECL     2166
          1373  5110000000 X                      SA1    CHARDCL                                                 DECL     2167
                          5120000000 X            SA2    T.BLKS                                                  DECL     2168
          1374  0321001372 +                      PL     X1,EXIT.    IF NO CHARACTER DECLARATIONS                DECL     2169
                          5130000000 X            SA3    T=BLKS                                                  DECL     2170
          1375  5140000000 X                      SA4    BLNKCOM                                                 DECL     2171
                          63540                   SB5    X4          (B5) = BLKIND FOR BLANK COMMON              DECL     2172
                               66311              =B3    Z=BLKS                                                  FC5A312     5
          1376  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
          1377  6160777775                        SB6    -Z=BLKS     INITIALIZE FOR LOOP                         FC5A312     6
                                                                                                                 DECL     2179
                                        *         PROCESS NEXT COMMON BLOCK.                                     DECL     2180
                                                                                                                 DECL     2181
          1400  66663                    CCC10    SB6    B6+B3       BLKIND = BLKIND + Z=BLKS                    FC5A312     7
                     0664001372 +                 GE     B6,B4,EXIT. IF END OF T.BLKS                            FC5A330     4
                               56126              SA1    B2+B6       CAI = T.BLKS(BKLIND)                        DECL     2183
          1401  10711                             BX7    X1                                                      DECL     2184
                     20152                        HX1    CA.CHAR                                                 DECL     2185
                          0321001414 +            PL     X1,CCC30    IF NOT CHAR BLOCK                           DECL     2187
          1402  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
          1403  5150002642 +                      WX5    X3,X2       BLENI = BLENI / 10                          DECL     2192
          1407  15550                             BX5    -X0*X5                                                  DECL     2193
                                                                                                                 FC5A330     5
                                         .TEST    IFEQ   TEST,ON                                                 DECL     2194
                     7232777765                   SX3    X2-10                                                   DECL     2195
          1410  0323401410 +                      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/05. 19.59.24.      PAGE    46
        CLOSE OF DECLARATIVE ROUTINES.                                CCC 
  
                          76310                   =X3    1                                                       DECL     2199
          1411  0302001413 +                      ZR     X2,CCC20    IF NO REMAINDER                             DECL     2200
                          36553                   IX5    X5+X3       BLENI = BLENI + 1                           DECL     2201
                               20266              LX2    CB.RNCP-CB.BLENP                                        DECL     2202
          1412  12662                             BX6    X6+X2                                                   DECL     2203
                                                                                                                 FC5A330     6
          1413  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
          1414  20101                    CCC30    LX1    CA.CHARP-CA.NACP                                        DECL     2211
                     0321001400 +                 PL     X1,CCC10    IF NO CONFLICT                              DECL     2212
                               11747              BX7    X4*X7                                                   DECL     2213
          1415  0565001417 +                      NE     B6,B5,CCC40 IF NOT BLANK COMMON                         DECL     2214
                          7170005050              SX7    2R//                                                    FC50797     5
          1416  20760                             LX7    8*CHAR                                                  DECL     2216
                                                                                                                 FC5A330     7
          1417  5170000000 X             CCC40    SA7    FILL.       STORE BLOCK NAME                            DECL     2217
                          6170000000 X            FATAL  E.CM11                                                  DECL     2218
          1421  0400001400 +                      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
          1422  0400401422 +             CCL      SUBR               ...ENTRY/EXIT...                            DECL     2228
          1423  5140000000 X                      SA4    LEVEL                                                   FC5A184    72
                          5130000000 X            SA3    T.BLKS                                                  DECL     2229
          1424  5120000000 X                      SA2    T.COMM                                                  DECL     2230
                          0304001422 +            ZR     X4,EXIT.    IF NO LEVEL DECLARATIONS                    FC5A184    73
          1425  5140000000 X                      SA4    T.SYM                                                   DECL     2231
                          63320                   SB3    X2                                                      DECL     2232
                               63641              =B6    X4+WB.W                                                 DECL     2233
          1426  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
          1427  63210                             SB2    X1          BLKIND = (T=BLKS)                           DECL     2237
                     66411                        =B4    Z=BLKS                                                  DECL     2238
                                                                                                                 DECL     2239
          1430  67224                    CCL10    SB2    B2-B4       BLKIND = BLKIND - Z=BLKS                    DECL     2240
                     56452                        SA4    B5+B2       CAI = T.BLKS(BLKIND)                        DECL     2241
                          0602001422 +            LE     B2,B0,EXIT. IF END OF TABLE                             DECL     2242
          1431  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
          1432  21360                             AX3    -CB.FMIL    CMIND = FMI[CBI]                            DECL     2247
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          1433  0303001430 +             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
          1434  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
          1435  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
          1436  5150002643 +                      CLAS=  X5,WB,(LEV,LEVN)                                        DECL     2268
                          43652                   MX6    WA.SYML                                                 DECL     2269
                               15525              BX5    -X5*X2                                                  DECL     2270
          1437  20262                             HX2    WB.EQV                                                  DECL     2271
                     11661                        BX6    X6*X1                                                   DECL     2272
                          5160000000 X            SA6    FILL.       STORE NAME IN MESSAGE                       DECL     2273
          1440  0332001433 +                      MI     X2,CCL20    IF EQUIVALENCED                             DECL     2274
                          20252                   LX2    WB.EQVP-WB.LEVP                                         DECL     2275
          1441  0322001443 +                      PL     X2,CCL30    IF NOT ALREADY LEVELED                      DECL     2276
                          6170000000 X            FATAL  E.LV9       EXPLICT LEVEL DECLARATION BY COM MEMBER     DECL     2277
          1443  0307001433 +             CCL30    ZR     X7,CCL20    IF BLOCK NOT LEVELED                        DECL     2278
                          43101                   CLAS=  X1,WB,(LEV)                                             DECL     2279
          1444  12117                             BX1    X1+X7                                                   DECL     2280
                     12651                        BX6    X5+X1                                                   DECL     2281
                          54620                   SA6    A2          (LEV,LEVN) [WBI] = (1,BLEV) [WB.]           DECL     2282
          1445  0400001433 +                      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
          1446  0400401446 +             CCS      SUBR               ...ENTRY/EXIT...                            DECL     2290
          1447  5110000000 X                      SA1    CHARDCL                                                 DECL     2291
                          5120000000 X            SA2    T=SYM                                                   DECL     2292
          1450  0321001446 +                      PL     X1,EXIT.    IF NO CHARACTER DECLARATIONS                DECL     2293
                          5130000000 X            SA3    T.SYM                                                   DECL     2294
          1451  63620                             SB6    X2                                                      DECL     2295
                     6120777771                   SB2    -M.CHAR                                                 DECL     2296
          1452  6130000003                        =B3    Z=SYM                                                   DECL     2297
                          53331                   =A3    X3+WB.W                                                 DECL     2298
                               43071              MX0    -WB.MODEL                                               DECL     2299
          1453  43744                             MX7    -WC.RAL                                                 DECL     2300
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    48
        CLOSE OF DECLARATIVE ROUTINES.                                CCS 
  
                     5120002644 +                 CLAS=  X2,WB,(LAB,FP,PARM,NVAR,EXT,NLST,ENT)                   DECL     2301
          1454  54333                    CCS10    SA3    A3+B3       WBI = T.SYM(SYMIND)                         DECL     2302
                     67663                        SB6    B6-B3                                                   DECL     2303
                          0460001446 +            ZR     B6,EXIT.    IF END OF T.SYM                             DECL     2304
          1455  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
          1456  0316001454 +                      NZ     X6,CCS10    IF NOT MODE CHARACTER                       DECL     2309
                          0311001454 +            NZ     X1,CCS10    IF WRONG CLASS                              DECL     2310
          1457  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
          1460  5150002642 +                      WX5    X4,X3       RAI = RAI / 10                              DECL     2315
          1464  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
          1465  0400001454 +                      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
          1466  0400401466 +             DCS      SUBR               ...ENTRY/EXIT...                            DECL     2336
          1467  5110000000 X                      SA1    SAVE                                                    DECL     2337
                          5130000000 X            SA3    USAVE                                                   DECL     2338
          1470  11613                             BX6    X1*X3                                                   DECL     2339
                     12113                        BX1    X1+X3                                                   DECL     2340
                          0301001466 +            ZR     X1,EXIT.    IF NO SAVE STATEMENTS OCCURED               DECL     2341
          1471  0306001473 +                      ZR     X6,DCS10    IF NOT BOTH SAVE FLAGS ON                   DECL     2342
                          6170000000 X            WARN   E.SA        REDUNDANT SAVE DECLARATIONS                 DECL     2343
                                                                                                                 DECL     2344
          1473  5120000000 X             DCS10    SA2    T=SYM                                                   DECL     2345
                          5140000000 X            SA4    T.SYM                                                   DECL     2346
          1474  43052                             MX0    WA.SYML                                                 DECL     2347
                     63620                        SB6    X2                                                      DECL     2348
                          6130000003              =B3    Z=SYM                                                   DECL     2349
          1475  53541                             =A5    X4+WB.W                                                 DECL     2350
                     7120000030                   CLAS=  X2,WB,(LAB,CGS)                                         DECL     2351
          1476  5130002645 +                      CLAS=  X3,WB,(COM,SAVE)                                        DECL     2352
          1477  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/05. 19.59.24.      PAGE    49
        CLOSE OF DECLARATIVE ROUTINES.                                DCS 
  
                          0460001466 +            ZR     B6,EXIT.    IF END OF T.SYM                             DECL     2355
          1500  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
          1501  13543                             BX5    X4-X3                                                   DECL     2360
                     0316001477 +                 NZ     X6,DCS20    IF LABEL OR CGS                             DECL     2361
          1502  0315001477 +                      NZ     X5,DCS20    IF NOT (COMMON AND SAVE)                    DECL     2362
                          5170000000 X            SA7    FILL.                                                   DECL     2363
          1503  6170000000 X                      FATAL  E.SA6                                                   DECL     2364
          1504  0400001477 +                      EQ     DCS20                                                   DECL     2365
                                                                                                                 DECL     2366
          1504                           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
          1505  0400401505 +             DSRT     SUBR   0           ENTRY/EXIT...                               COMFDST    11
          1506  5021000000 X                      SA2    A1+=XN.TABLE                                            COMFDST    12
                          7232777775              SX3    X2-2                                                    COMFDST    13
          1507  0333001505 +                      MI     X3,EXIT.    IF LESS THAN 2 ENTRIES - EXIT...            COMFDST    14
                          63720                   SB7    X2          LENGTH OF TABLE TO  (I)                     COMFDST    15
          1510  5201777775                        SA0    X1-2        STARTING ADDRESS TO (Z)                     COMFDST    16
                          66670                   SB6    B7          LENGTH OF TABLE TO  (N)                     COMFDST    17
          1511  76060                    DSRT10   SX0    B6                                                      COMFDST    18
                     21002                        AX0    2           /4                                          COMFDST    19
                          66311                   =B3    2                                                       COMFDST    20
                               20001              LX0    1           /2                                          COMFDST    21
          1512  63600                             SB6    X0          N= N/2                                      COMFDST    22
                     0460001505 +                 ZR     B6,EXIT.    IF N=0 EXIT...                              COMFDST    23
                               67476              SB4    B7-B6       L=I-N                                       COMFDST    24
          1513  66230                             SB2    B3          J=K                                         COMFDST    25
          1514  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
          1515  0326001521 +                      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
          1516  10611                             BX6    X1                                                      COMFDST    33
                     22703                        LX7    X3                                                      COMFDST    34
                          54620                   SA6    A2          (SYMBOL)                                    COMFDST    35
                               54740              SA7    A4          (TAG   )                                    COMFDST    36
          1517  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
          1520  54730                             SA7    A3          (TAG   )                                    COMFDST    41
                     0702001514 +                 GT     B2,DSRT20   IF J .GT. 0                                 COMFDST    42
          1521  6133000002               DSRT30   SB3    B3+2        K=K+2                                       COMFDST    43
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    50
        CLOSE OF DECLARATIVE ROUTINES.
  
                          46000                   NO                                                             COMFDST    44
                               66230              SB2    B3          J=K                                         COMFDST    45
          1522  0643001514 +                      LE     B3,B4,DSRT20      IF K .LE. L                           COMFDST    46
                          0400001511 +            EQ     DSRT10      LOOP THRU TABLE                             COMFDST    47
                                         COMFDST  ENDX                                                           COMFDST    48
  
  
  
  
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          1523  0400401523 +             EQU      SUBR               ...ENTRY/EXIT...                            DECL     2381
          1524  5120000000 X                      SA2    T=EQUS                                                  DECL     2382
                          0302001523 +            ZR     X2,EQUX     IF NO EQUIV STATEMENTS                      DECL     2383
                                                                                                                 DECL     2384
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     2385
          1525  5110000000 X                      SA1    CO.SNAP                                                 DECL     2386
                          20104                   LX1    1RD                                                     DECL     2387
          1526  0321001533 +                      PL     X1,EQUS0    IF DECLARATIVE SNAP NOT SELECTED            DECL     2388
                          7110002646 +            PLINE  (=C=  (TRANSLATED EQUIV STATEMENTS.)=),4,2              DECL     2389
          1531  0100000000 X             EQU.0    DUMPT  EQUS                                                    DECL     2390
          1532  0100000000 X             EQU.1    DUMPT  COMM                                                    DECL     2391
          1533                           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
          1533  43601                             MX6    1                                                       FC50757    22
                     5110000000 X                 ADDWD  T.EQUS      MARK END OF TABLE                           DECL     2401
          1535  5251777776                        =A5    X1-1        INITIALIZE FETCH REG                        DECL     2402
                          43052                   MX0    -EQ.STFL                                                DECL     2403
                               43737              MX7    -EQ.SYMIL                                               DECL     2404
          1536  5140000000 X                      SA4    T.SYM                                                   DECL     2405
                          6234777776              SB3    X4-1                                                    DECL     2406
          1537  43422                             MX4    -WA.SYML                                                DECL     2407
                                                                                                                 DECL     2408
          1540  54551                   EQU5      =A5    A5+1                                                    DECL     2409
                     0335001560 +                 MI     X5,EQU15    IF TABLE EXHAUSTED                          FC50757    23
                               43260              MX2    -EQ.LINKL                                               FC50757    24
          1541  20514                             LX5    -EQ.LINKP                                               FC50757    25
                     15252                        BX2    -X2*X5      EXTRACT LINK                                FC50757    26
                          0302001540 +            ZR     X2,EQU5     IF NOT HEADER WORD                          FC50757    27
          1542  20522                             LX5    -EQ.STFP+EQ.LINKP                                       FC50757    28
                     15250                        BX2    -X0*X5      ISOLATE SUBSTRING FIRST                     DECL     2414
                          0302001540 +            ZR     X2,EQU5     IF NOT SUBSTRINGED                          DECL     2415
          1543  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
          1544  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/05. 19.59.24.      PAGE    52
        *EQUIVALENCE* DIGESTION.                                      EQU 
  
          1545  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
          1546  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
          1547  15535                             BX5    -X5*X3      ISOLATE MODE                                DECL     2431
                     7255777771                   SX5    X5-M.CHAR                                               DECL     2432
          1550  0305001553 +                      ZR     X5,EQU10    IF NO ERROR                                 DECL     2433
                          6170000000 X            FATAL  E.ST1       MODE NOT CHARACTER                          DECL     2434
          1552  0400001540 +                      EQ     EQU5                                                    DECL     2435
                                                                                                                 DECL     2436
          1553  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
          1554  20373                             LX3    WC.CTYPP-WC.CLENP                                       DECL     2441
                     0333001540 +                 MI     X3,EQU5     IF VARIABLE LENGTH                          DECL     2442
                               37332              IX3    X3-X2       MI IF FIRST GT LENGTH                       DECL     2443
          1555  0323001540 +                      PL     X3,EQU5     IF NO ERROR                                 DECL     2444
                          6170000000 X            FATAL  E.AT16      INVALID SUBSTRING                           DECL     2445
          1557  0400001540 +                      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
          1560  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
          1561  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
                          0400001564 +            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
          1562  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
          1563  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/05. 19.59.24.      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
          1564  0335001660 +             EQU30    MI     X5,EQU99    IF TABLE EXHAUSTED                          FC50757    29
                          10655                   BX6    X5                                                      FC50299    32
                               20636              HX6    EQ.ISUB                                                 FC50299    33
          1565  5160002273 +                      SA6    EQUS        SAVE SUBSCRIPTION INDICATOR                 FC50299    34
                          5130000000 X            SA3    T.SYM                                                   DECL     2485
          1566  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
          1567  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
          1571  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
          1572  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
          1573  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
          1574  0336001603 +                      MI     X6,EQU45    IF LEVELED                                  DECL     2503
                          20137                   LX1    WB.MODEP-WB.SAVEP                                       DECL     2504
          1575  7273777771                        SX7    X3-M.CHAR                                               DECL     2505
                          5140002272 +            SA4    GCI         GROUP CHAR INDICATER = (GCI)                DECL     2506
          1576  43601                             CLAS=  X6,G1,(CHAR)      CHARI = 1                             DECL     2507
                          0307001600 +            ZR     X7,EQU35    IF MODE CHARACTER                           DECL     2508
          1577  43600                             MX6    0           CHARI = 0                                   DECL     2509
                                                                                                                 FC50299    35
          1600  0521001601 +             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
          1601  37764                    EQU40    IX7    X6-X4                                                   DECL     2513
                     43644                        MX6    -WC.RAL                                                 DECL     2514
                          6170000000 X            SB7    E.EQ17      CHARACTER DECLARATION CONFLICT              DECL     2515
          1602  0307001610 +                      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
          1603  54551                    EQU45    =A5    A5+1                                                    DECL     2521
                     0335001606 +                 MI     X5,EQU47    IF TABLE ENDS BEFORE END OF CLASS           FC50757    35
                               43114              MX1    EQ.LINKL                                                FC50757    36
          1604  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/05. 19.59.24.      PAGE    54
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
                          63210                   SB2    X1                                                      FC50757    39
          1605  0521001603 +                      NE     B2,B1,EQU45 IF NOT END OF THIS CLASS                    DECL     2524
                                                                                                                 FC50299    38
          1606  0100000000 X             EQU47    FATAL  B7          CHARACTER DECLARATION CONFLICT              DECL     2525
          1607  0400001564 +                      EQ     EQU30                                                   DECL     2526
                                                                                                                 DECL     2527
                                        *         FORM PHASE 1 EQUIVALENCE TABLE WORD 1 (G1.).                   DECL     2528
                                                                                                                 DECL     2529
          1610  43301                    EQU50    CLAS=  X3,EQ,(ISUB)                                            FC50299    39
                          15553                   BX5    -X3*X5      CLEAR SUBSCRIPTION INDICATOR                FC50299    40
          1611  5130002652 +                      CLAS=  X3,EQ,(STF)                                             FC50299    41
                          11035                   BX0    X3*X5       STFI = STF[EQI]                             DECL     2531
                               13550              BX5    X5-X0                                                   DECL     2532
          1612  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
          1613  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
          1614  5120002653 +                      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
          1615  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
          1616  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
          1617  54071                             SA0    A7+B1                                                   DECL     2555
                     43201                        CLAS=  X2,G1,(CHAR)                                            DECL     2556
                               13242              BX2    X4-X2                                                   DECL     2557
          1620  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
          1621  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
          1622  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
          1623  6155777773                        SB5    B5-M.DBL                                                DECL     2575
                          0450001626 +            EQ     B5,B0,EQU60 IF MODE DOUBLE                              DECL     2576
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    55
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
          1624  0451001626 +                      EQ     B5,B1,EQU60 IF MODE COMPLEX                             DECL     2577
                          76100                   =X1    0           INDICATES ONE WORD ELEMENT                  DECL     2578
                               76360              SX3    B6                                                      DECL     2579
          1625  42737                             IX7    X3*X7       SIZI = SIZI * CLENI                         DECL     2580
                                                                                                                 FC50299    42
          1626  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
          1627  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
          1630  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
          1631  11112                             BX1    X1*X2                                                   DECL     2609
                     13000                        BX0    0           SIGMA = 0                                   DECL     2610
                          36212                   IX2    X1+X2                                                   DECL     2611
                                                                                                                 DECL     2612
          1632  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
          1633  0314001654 +                      NZ     X4,EQU90    IF NO MORE SUBSCRIPTS                       FC50757    46
                          21514                   AX5    -EQ.SUBSL   SIGN EXTEND SUBSCRIPT                       FC50757    47
                               10655              BX6    X5                                                      DECL     2616
          1634  5160000001 +                      SA6    EQUDIM+1                                                DECL     2617
                          55161                   =A1    A6-1        NO. OF DIMENSIONS                           DECL     2618
          1635  6170000000 X                      SB7    E.EQ13                                                  DECL     2619
                          5140002273 +            SA4    EQUS                                                    FC50299    46
          1636  0324001643 +                      PL     X4,EQU75    IF NOT SUBSCRIPTED                          FC50299    47
                          0301001646 +            ZR     X1,EQU80    IF NOT DIMENSIONED                          DECL     2621
          1637  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/05. 19.59.24.      PAGE    56
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
                                                  HX1    D2.LB                                                   DECL     2625
                               20106              LX1    D2.LBL-DM.INFL-DM.INFP                                  FC50299    48
          1640  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
          1641  6170000000 X                      SB7    E.EQ7                                                   DECL     2630
                          0335001646 +            MI     X5,EQU80    IF R1 .LT. 0      */SUBS TOO SMALL          DECL     2631
          1642  6170000000 X                      SB7    E.EQ8                                                   DECL     2632
                          0324001646 +            PL     X4,EQU80    IF SX .GE. 0      */SUS TOO BIG             DECL     2633
                                                                                                                 DECL     2634
          1643  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
          1644  0750001632 +                      MI     B5,EQU70    IF NO MORE DIMS                             DECL     2639
                          5033000002              SA3    A3+Z=DD     FETCH NEXT DIMENSION DESCRIPTOR             DECL     2640
          1645  0400001632 +                      EQ     EQU70                                                   DECL     2641
                                                                                                                 DECL     2642
                                        *         ERROR - SKIP OVER REST OF SUBSCRIPTS.                          DECL     2643
                                                                                                                 DECL     2644
          1646  0100000000 X             EQU80    FATAL  B7          OUTPUT THE MESSAGE                          DECL     2645
          1647  43000                             MX0    0           SIGMA = 0                                   DECL     2646
                                                                                                                 FC50299    50
          1650  54551                    EQU85    =A5    A5+1        NEXT SUBSCRIPT WORD                         DECL     2647
                     43114                        MX1    EQ.LINKL                                                FC50757    48
                          11115                   BX1    X1*X5       EXTRACT LINK                                FC50757    49
          1651  0301001650 +                      ZR     X1,EQU85    IF LAST SUBSCRIPT NOT YET FOUND             FC50757    50
                          6170000000 X            WARN   E.EQ14      EXCESS SUBSCRIPTS IGNORED                   DECL     2650
          1653  0400001562 +                      EQ     EQU20                                                   DECL     2651
                                                                                                                 DECL     2652
          1654  0450001562 +             EQU90    ZR     B5,EQU20    IF NO MORE DIMENSIONS                       DECL     2653
                          5110000001 +            SA1    EQUDIM+1                                                DECL     2654
          1655  0301001562 +                      ZR     X1,EQU20    IF NO SUBSCRIPT ON EQUIVALENCE              DECL     2655
                          6170000000 X            FATAL  E.EQ15      MISSING SUBSCRIPTS SET TO LOWER BOUND       FC5A126    34
          1657  0400001562 +                      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
          1660  43773                    EQU99    MX7    -1                                                      DECL     2663
                     54771                        =A7    A7+1        MARK END OF TABLE                           DECL     2664
                          65774                   SB7    A7-B4                                                   DECL     2665
          1661  0470001523 +                      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
          1663  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
                          5110000000 X            SA1    CO.SNAP                                                 DECL     2674
          1664  20104                             LX1    1RD                                                     DECL     2675
                     0321001666 +                 PL     X1,EQU99S   IF DECLARATIVE SNAP NOT SELECTED            DECL     2676
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    57
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
          1665  0100000000 X             EQU.99   DUMPT  EQUS                                                    DECL     2677
          1666                           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
          1666  54504                    EQU100   =A5    B4+A0                                                   DECL     2686
                     43044                        MX0    -G2.LOL                                                 DECL     2687
                          0335001774 +            MI     X5,EQU195   IF END OF EQUIV. INPUT                      DECL     2688
          1667  5140000000 X                      SA4    T.SYM                                                   DECL     2689
                          63340                   SB3    X4          FWA OF SYMBOL TABLE                         DECL     2690
                               20522              LX5    -G1.SYMIP                                               DECL     2691
          1670  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
          1671  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
          1672  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
          1673  20214                             LX2    G2.LINKL                                                FC50757    55
                     63620                        SB6    X2          (B6) = ROOT FLAG OF CURRENT                 FC50757    56
                          66442                   SB4    B4+B2                                                   DECL     2700
                                                                                                                 DECL     2701
          1674  66332                    EQU110   SB3    B3+B2                                                   DECL     2702
                     54303                        SA3    B3+A0                                                   DECL     2703
                          0635001703 +            GE     B3,B5,EQU130      IF END OF G/F TABLE                   DECL     2704
          1675  13235                             BX2    X3-X5                                                   DECL     2705
                     21252                        AX2    G1.SYMIP                                                DECL     2706
                          0312001674 +            NZ     X2,EQU110   IF NO MATCH IN G/F                          DECL     2707
          1676  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
          1677  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
          1700  63700                             SB7    X0          ROOT FLAG                                   FC50757    60
                     0473001706 +                 EQ     B7,B3,EQU140      IF THIS IS A ROOT                     DECL     2716
                               20344              HX3    G1.RA                                                   FC50757    61
          1701  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
          1702  0400001677 +                      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/05. 19.59.24.      PAGE    58
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
          1703  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
          1704  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
          1705  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
          1706  43644                    EQU140   MX6    -G2.LOL                                                 FC50757    65
                     15446                        BX4    -X6*X4      EXTRACT SUBSRIPT ONLY                       FC50757    66
                          0561001711 +            NE     B6,B1,EQU150 IF NOT A NEW GROUP                         FC50757    67
          1707  76630                             SX6    B3                                                      FC50757    68
                     20660                        LX6    G2.LINKP                                                FC50757    69
                          12664                   BX6    X6+X4                                                   FC50757    70
          1710  5160002272 +                      SA6    EQUA                                                    DECL     2743
                          0400001666 +            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
          1711  5120002272 +             EQU150   SA2    EQUA                                                    DECL     2750
                          43614                   MX6    G2.LINKL                                                FC50757    71
                               15326              BX3    -X6*X2      EXTRACT D0                                  FC50757    72
          1712  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
          1713  20544                             HX5    G1.RA                                                   FC50757    76
                     21544                        AX5    -G1.RAL     SIGN EXTEND                                 FC50757    77
                          0763001717 +            GT     B3,B6,EQU160 IF CURRENT OCCURS LATER THAN THIS ROOT     DECL     2754
          1714  0436001751 +                      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
          1715  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
          1716  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/05. 19.59.24.      PAGE    59
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
          1717  54303                    EQU160   SA3    B3+A0       G1T = T.EQUS(T)                             DECL     2770
                     54206                        SA2    B6+A0       G1T0 = T.EQUS(T0)                           DECL     2771
                          5140002654 +            CLAS=  X4,G1,(RB)                                              DECL     2772
          1720  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
          1721  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
          1722  0311001724 +                      NZ     X1,EQU170   IF RBT .NE. 0                               DECL     2781
                          0316001764 +            NZ     X6,EQU.50   IF RBT0 .NE. 0                              DECL     2782
          1723  0400001732 +                      EQ     EQU190                                                  DECL     2783
                                                                                                                 DECL     2784
                                        **        CURRENT ELEMENT HAS AN ADDRESS -- CHECK ITS ROOT.              DECL     2785
                                                                                                                 DECL     2786
          1724  0316001756 +             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
          1725  0337001767 +                      MI     X7,EQU.60   IF RAT .LT. DIST                            DECL     2793
                          10611                   BX6    X1          PRESERVE X1                                 DECL     2794
                               54121              =A1    A2+1                                                    DECL     2795
          1726  20144                             HX1    G2.LO                                                   DECL     2796
                     21144                        AX1    -G2.LOL     X1 = LOT0                                   DECL     2797
                          37171                   IX1    X7-X1       X1 = D - LOT0                               DECL     2798
          1727  0331001772 +                      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
          1730  12717                             BX7    X1+X7                                                   DECL     2803
                     5110002655 +                 CLAS=  X1,G1,(RB,RA)                                           DECL     2804
                               15221              BX2    -X1*X2      (RB,RA)[G1T0] = 0                           DECL     2805
          1731  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
          1732  54220                    EQU190   SA2    A2          G1R = G1 ENTRY OF T0                        DECL     2823
                     43032                        MX0    -G1.ADRL                                                DECL     2824
                          43401                   CLAS=  X4,G1,(SAVE)                                            DECL     2825
          1733  11603                             BX6    X0*X3       CLEAR (RB,RA) FIELD                         DECL     2826
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          1734  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
          1735  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
          1736  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
          1737  54730                             SA7    A3          LNK[G2I] = T0                               DECL     2839
                     20344                        HX3    G2.LO                                                   DECL     2840
                          20244                   HX2    G2.LO                                                   DECL     2841
          1740  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
          1741  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
          1743  0336401743 +                      MI     X6,"BLOWUP"       IF NEGATIVE OFFSET                    DECL     2851
                                                                                                                 FC50757    88
                          20244                   LX2    A                                                       DECL     2852
                               23373              AX3    B7                                                      DECL     2853
          1744  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
                               15661              BX6    -X1*X6                                                  FC50757    90
          1745  76160                             SX1    B6                                                      FC50757    91
                     20160                        LX1    G2.LINKP                                                FC50757    92
                          12116                   BX1    X1+X6       RESTORE LINK                                FC50757    93
                               37370              MX3    X7+X0       X3 = MAX ( HI(T0), HI(T)+DIST )             DECL     2858
                                                                                                                 FC50757    94
                                         .TEST    IFEQ   TEST,ON,1                                               DECL     2859
          1747  0333401747 +                      MI     X3,"BLOWUP"       IF NEGATIVE OFFSET                    DECL     2860
                                                                                                                 FC50757    95
                          20330                   LX3    G2.HIP                                                  DECL     2861
                               12713              BX7    X1+X3                                                   DECL     2862
          1750  54720                             SA7    A2          RESET (T0) (S, HI, LO)                      DECL     2863
                     0400001666 +                 EQ     EQU100                                                  DECL     2864
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    61
        *EQUIVALENCE* DIGESTION.                                      EQU.N 
  
                                        **        PHASE 2 ERROR PROCESSING.                                      DECL     2866
                                        *         CHECK / PROCESS EQUIVALENCE REDUNDANCY / CONTRADICTION ERRORS. DECL     2867
                                                                                                                 DECL     2868
                                                                                                                 DECL     2869
          1751  0315001754 +             EQU.10   NZ     X5,EQU.20   IF CONTRADICTION                            DECL     2870
                          6170000000 X            WARN   E.EQ11      REDUNDANT SPECIFICATIONS                    DECL     2871
          1753  0400001666 +                      EQ     EQU100                                                  DECL     2872
                                                                                                                 DECL     2873
          1754  6170000000 X             EQU.20   FATAL  E.EQ12      CONFLICTING SPECS.                          DECL     2874
          1755  0400001666 +                      EQ     EQU100                                                  DECL     2875
                                                                                                                 DECL     2876
          1756  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
          1757  0316001762 +                      NZ     X6,EQU.40   IF RBT .NE. RBT0                            DECL     2880
                          0311001762 +            NZ     X1,EQU.40   IF CONTRADICTION                            DECL     2881
          1760  6170000000 X                      WARN   E.EQ11      REDUNDANT SPECIFICATION                     DECL     2882
          1761  0400001732 +                      EQ     EQU190                                                  DECL     2883
                                                                                                                 DECL     2884
          1762  6170000000 X             EQU.40   FATAL  E.EQ12      CONFLICTING SPECS.                          DECL     2885
          1763  0400001732 +                      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
          1764  36075                    EQU.50   IX0    X7+X5       D = RAT0 + DIST                             DECL     2892
                     0320001732 +                 PL     X0,EQU190   IF D .GT. 0                                 DECL     2893
                               14577              BX5    -X7         DIST = -RAT0                                DECL     2894
          1765  6170000000 X                      FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN    DECL     2895
          1766  0400001732 +                      EQ     EQU190                                                  DECL     2896
                                                                                                                 DECL     2897
                                        *         ILLEGAL EXTENSION BY ROOT.                                     DECL     2898
                                                                                                                 DECL     2899
          1767  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
          1770  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
          1771  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
          1772  6170000000 X             EQU.70   FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN    DECL     2912
          1773  13777                             BX7    0           RAT0 = RAT - DIST = 0                       DECL     2913
                     43100                        MX1    0           RBT = RB[G1T] = 0                           DECL     2914
                          0400001730 +            EQ     EQU180                                                  DECL     2915
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          1774                           EQU195   BSS    0                                                       DECL     2931
          1774  76650                             SHRINK T=EQUS,B5                                               DECL     2932
          1775  5110000000 X                      ALLOC  T.ECT,B5    ALLOCATE SPACE FOR T.ECT                    DECL     2933
          1777  5110000000 X                      ALLOC  T.EOT,B5    ALLOCATE SPACE FOR T.EOT                    DECL     2934
                                                                                                                 DECL     2935
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     2936
          2001  5120000000 X                      SA2    CO.SNAP                                                 DECL     2937
                          20204                   LX2    1RD                                                     DECL     2938
          2002  0322002004 +                      PL     X2,EQU195S  IF DECLARATIVE SNAP NOT SELECTED            DECL     2939
          2003  0100000000 X             EQU.195  DUMPT  EQUS                                                    DECL     2940
          2004                           EQU195S  BSS    0                                                       DECL     2941
                                         SNAP=D   ENDIF                                                          DECL     2942
                                                                                                                 DECL     2943
          2004  5130000000 X                      SA3    T.EQUS                                                  DECL     2944
                          63610                   =B6    X1+OA.W                                                 DECL     2945
                               66700              =B7    0           EOIND = 0                                   DECL     2946
          2005  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
          2006  0450002020 +             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
          2007  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
          2010  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
          2011  0534002006 +                      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
          2012  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/05. 19.59.24.      PAGE    63
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
          2013  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
          2014  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
          2015  76740                             SX7    B4                                                      DECL     2981
                     36662                        IX6    X6+X2                                                   DECL     2982
                          56667                   SA6    B6+B7       T.EOT(EOIND) = (RBI,FWAI,LWAI) [OA.]        DECL     2983
          2016  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
          2017  0400002006 +                      EQ     EQU200                                                  DECL     2987
                                                                                                                 DECL     2988
                                        *         SORT T.EOT IN ASCENDING ORDER OF (RB,FWA,LWA).                 DECL     2989
                                                                                                                 DECL     2990
          2020  7167000002               EQU210   SX6    B7+Z=EOT                                                DECL     2991
                          43501                   MX5    1                                                       DECL     2992
                               14755              BX7    -X5         STORE A POSITIVE LARGE NUMBER INTO          DECL     2993
          2021  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
          2022  5110000000 X                      SA1    CO.SNAP                                                 DECL     2998
                          20104                   LX1    1RD                                                     DECL     2999
          2023  0321002025 +                      PL     X1,EQU210S                                              DECL     3000
          2024  0100000000 X             EQU.210  DUMPT  EOT                                                     DECL     3001
          2025                           EQU210S  BSS    0                                                       DECL     3002
                                         SNAP=D   ENDIF                                                          DECL     3003
                                                                                                                 DECL     3004
          2025  5110000000 X                      SA1    T.EOT                                                   DECL     3005
                          0100001505 +            RJ     DSRT        SORT T.EOT                                  DECL     3006
          2026  5120000000 X                      SA2    T.EOT                                                   DECL     3007
                          5130000000 X            SA3    T=EOT                                                   DECL     3008
          2027  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
          2030  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
          2031  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/05. 19.59.24.      PAGE    64
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
          2032  0333002075 +                      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
          2033  5120000000 X                      SA2    T.BLKS                                                  DECL     3030
                          0307002031 +            ZR     X7,EQU220   IF RBI .NE. 0                               DECL     3031
          2034  36627                             IX6    X2+X7                                                   DECL     3032
                     5120000000 X                 SA2    T.COMM                                                  DECL     3033
                               53461              =A4    X6+CB.W     CBI = T.BLKS(RBI)                           DECL     3034
          2035  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
          2036  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
          2037  0450002031 +             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
          2040  43760                             MX7    -CT.LNKL                                                DECL     3054
                     5110002656 +                 CLAS=  X1,OA,(FWA,LWA)                                         DECL     3055
                               20444              LX4    -CT.LNKP                                                DECL     3056
          2041  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
          2042  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
          2043  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
          2044  0450002046 +                      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
          2045  21144                             AX1    -CT.RAL     LWAM = RA[CMN]                              DECL     3074
                                                                                                                 FC50299    51
          2046  0336002037 +             EQU235   MI     X6,EQU230   IF LWAC .LT. FWAM                           DECL     3075
                          0306002037 +            ZR     X6,EQU230   IF LWAC .EQ. FWAM                           DECL     3076
          2047  37012                             IX0    X1-X2                                                   DECL     3077
                     0330002037 +                 MI     X0,EQU230   IF LWAM .LT. FWAC                           DECL     3078
          2050  0300002037 +                      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/05. 19.59.24.      PAGE    65
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
                          37642                   MX6    X4-X2       FWAC = MIN (FWAM, FWAC)                     DECL     3083
                               20630              LX6    OA.FWAP                                                 DECL     3084
          2052  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
          2054  54440                             SA4    A4          CMI                                         DECL     3094
                     5110000000 X                 SA1    T.EQUS                                                  DECL     3095
          2055  5120000000 X                      SA2    T=EQUS                                                  DECL     3096
                          63710                   =B7    X1+G1.W                                                 DECL     3097
                               43752              MX7    -G1.SYMIL                                               DECL     3098
          2056  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
          2057  36660                             IX6    X6+X0       SYMM = 3 * TAGI                             DECL     3104
                     20752                        LX7    G1.SYMIP                                                DECL     3105
                          73661                   =X6    X6+WB.W                                                 DECL     3106
          2060  6262777775                        SB6    X2-Z=EQS    LENGF = LEN(T.EQUS) - Z=EQS                 DECL     3107
                          20652                   LX6    G1.SYMIP                                                DECL     3108
                                                                                                                 FC50299    52
          2061  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
          2062  37263                             IX2    X6-X3                                                   DECL     3112
                     0302002037 +                 ZR     X2,EQU230   IF MATCH                                    DECL     3113
          2063  0660002061 +                      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
          2064  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
          2065  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
          2066  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
          2067  5110000000 X                      ALLOC  T.EQUS,Z=EQS                                            DECL     3133
          2071  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
          2072  55671                             SA6    A7-B1       GF1 = (SYMM,RAM) [G1.]                      DECL     3138
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    66
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
                                                                                                                 DECL     3139
                                        *         RESTORE SOME TABLE ORGINS.                                     DECL     3140
                                                                                                                 DECL     3141
                     5120000000 X                 SA2    T.EOT                                                   DECL     3142
          2073  5110000000 X                      SA1    T.COMM                                                  DECL     3143
                          63410                   SB4    X1                                                      DECL     3144
                               63320              =B3    X2+OA.W                                                 FC5A319     7
          2074  0400002037 +                      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
          2075                           EQU300   BSS    0                                                       FC50757   105
                                                                                                                 FC50757   106
                                         SNAP=D   IFNE   TEST                                                    FC50757   107
          2075  5110000000 X                      SA1    CO.SNAP                                                 FC50757   108
                          20104                   LX1    1RD                                                     FC50757   109
          2076  0321002100 +                      PL     X1,EQU300S  IF SNAP NOT REQUESTED                       FC50757   110
          2077  0100000000 X             EQU.300  DUMPT  EQUS                                                    FC50757   111
          2100                           EQU300S  BSS    0                                                       FC50757   112
                                         SNAP=D   ENDIF                                                          FC50757   113
                                                                                                                 FC50757   114
          2100  5110000000 X                      SA1    T.EOT                                                   FC50757   115
                          5120000000 X            SA2    T.EQUS                                                  DECL     3158
          2101  76710                             =X7    1                                                       DECL     3159
                     6150777775                   =B5    -Z=EOT      EOIND = -Z=EOT                              DECL     3161
                               63220              =B2    X2+G1.W                                                 DECL     3162
          2102  5170000721 +                      SA7    N.EQ        INITIALIZE (N.EQ) = 1                       DECL     3163
                          66411                   =B4    Z=EOT                                                   DECL     3164
          2103  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
          2104  54114                    EQU310   SA1    A1+B4       OANA = OANA + Z=EOT, OAN = (OANA)           DECL     3173
                     0331002131 +                 MI     X1,EQU340   IF END OF T.EOT                             FC5A195     5
                               43612              MX6    OA.RBL                                                  DECL     3175
          2105  20673                             LX6    OA.RBL+OA.RBP                                           DECL     3176
                     11761                        BX7    X6*X1       RBN = RB[OAN]                               FC5A195     6
                          0307002104 +            ZR     X7,EQU310   IF RBN .EQ. 0                               FC5A195     7
          2106  66611                             =B6    Z=EOT                                                   FC5A195     8
                                                                                                                 FC5A195     9
          2107  54216                    EQU320   SA2    A1+B6       OAN1 = OAN + OFFSET                         FC5A195    10
                     6166000002                   =B6    B6+Z=EOT                                                FC5A195    11
          2110  0332002104 +                      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/05. 19.59.24.      PAGE    67
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                               20673              LX6    OA.RBL+OA.RBP                                           FC5A195    14
          2111  11662                             BX6    X6*X2       RBN1 = RB[OAN1]                             FC5A195    15
                     37576                        IX5    X7-X6                                                   FC5A195    16
                          0315002107 +            NZ     X5,EQU320   IF RBN .NE. RBN1                            FC5A195    17
                                                                                                                 DECL     3184
                                        *         SAME RB, CHECK FOR OVERLAP.                                    DECL     3185
                                                                                                                 DECL     3186
          2112  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
          2113  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
          2114  0332002107 +                      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
          2115  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
          2117  37643                             IX6    X4-X3                                                   FC5A195    21
                     0336002121 +                 MI     X6,EQU330   IF GSR .LT. GNSR                            FC5A195    22
                               10633              BX6    X3          TEMP = GNSR                                 DECL     3209
          2120  22304                             LX3    X4          GNSR = GSR                                  DECL     3210
                     10466                        BX4    X6          GSR = TEMP                                  DECL     3211
                                                                                                                 FC50299    53
          2121  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
          2122  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
          2123  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
          2124  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
          2125  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/05. 19.59.24.      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
          2126  43614                             MX6    G2.LINKL                                                FC50757   116
                     15556                        BX5    -X6*X5                                                  FC50757   117
                          76670                   SX6    B7                                                      FC50757   118
                               20660              LX6    G2.LINKP                                                FC50757   119
          2127  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
          2130  0400002104 +                      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
          2131  66600                    EQU340   =B6    0           ECIND = 0                                   FC5A195    33
                                                                                                                 DECL     3250
          2132  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
          2133  0332002211 +                      MI     X2,EQU400   IF END OF T.EOT                             DECL     3254
                          0302002132 +            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
          2134  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
          2135  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
          2136  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
                          0333402136 +            MI     X3,"BLOWUP" LWA OF CLASS SHOULD NEVER BE NEGATIVE       DECL     3270
                                                                                                                 FC50757   122
          2137  37532                             IX5    X3-X2       SPANC = LWAC - FWAC                         DECL     3271
                     0324002142 +                 PL     X4,EQU355   IF NON-CHAR                                 DECL     3272
          2140  7110000011                        CW     X1,X5       SPANC = SPANC / 10                          DECL     3273
                               22501              LX5    X1                                                      DECL     3274
                                                                                                                 FC50299    54
          2142  5110000721 +             EQU355   SA1    N.EQ                                                    DECL     3275
                          7170052157              SX7    3REQ.                                                   DECL     3276
          2143  0100000000 X                      RJ     INN         INVENT A BASE SYMBOL                        DECL     3277
          2144  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
          2145  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/05. 19.59.24.      PAGE    69
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                     36775                        IX7    X7+X5                                                   DECL     3285
                          5170000000 +            SA7    DIMI        (SIZ,DIM)[DH.] = (SPANC,1)                  DECL     3286
          2146  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
          2147  36743                             IX7    X4+X3                                                   DECL     3291
                     54761                        SA7    A6+B1       (LB,UB)[D2.] = (1,SPANC)                    DECL     3292
                          6120000000 +            SB2    DIMI                                                    DECL     3293
          2150  6132000003                        SB3    B2+3                                                    DECL     3294
                          66700                   =B7    0                                                       DECL     3295
          2151  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
          2152  5110000000 X                      SA1    T.EOT                                                   DECL     3303
                          5130000000 X            SA3    T.EQUS                                                  DECL     3304
          2153  63310                             =B3    X1+OA.W                                                 DECL     3305
                     6223000001                   SB2    X3+G2.W                                                 DECL     3306
                               56435              SA4    B3+B5       OAI = T.EOT(EOIND)                          DECL     3307
          2154  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
          2155  43214                             MX2    F2.LINKL                                                FC50757   123
                     11223                        BX2    X2*X3                                                   FC50757   124
                          20214                   LX2    F2.LINKL                                                FC50757   125
                               63220              SB2    X2                                                      FC50757   126
          2156  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
          2157  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
          2160  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
          2161  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
          2162  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/05. 19.59.24.      PAGE    70
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
          2163  7164000000                        SX6    B4+WA.W     WAINDB = 3 * BSYM + WA.W                    DECL     3335
                          20114                   LX1    TE.EOIP-F2.EOIP                                         DECL     3336
          2164  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
          2165  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
          2166  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
          2167  5140002657 +                      CLAS=  X4,WB,(VAR,BMEM,ARY)                                    DECL     3356
                          20657                   LX6    WB.PNTP                                                 DECL     3357
                               12442              BX4    X4+X2                                                   DECL     3358
          2170  12646                             BX6    X4+X6                                                   DECL     3359
                     76100                        =X1    0                                                       DECL     3360
                          0300002172 +            ZR     X0,EQU370   IF RBC .EQ. 0                               DECL     3361
          2171  12773                             BX7    X7+X3                                                   DECL     3362
                     5110002660 +                 CLAS=  X1,WB,(COM,MAT)                                         DECL     3363
                                                                                                                 DECL     3364
          2172  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
          2173  11151                             BX1    X5*X1       SAVEI = SAVE[G1R]                           DECL     3368
                     20161                        LX1    WB.SAVEP-G1.SAVEP                                       DECL     3369
                          12661                   BX6    X6+X1                                                   DECL     3370
          2174  7120000012                        =X2    10                                                      DECL     3371
                          20236                   LX2    WC.CLENP                                                DECL     3372
                               43101              MX1    1                                                       DECL     3373
          2175  20522                             HX5    G1.CHAR                                                 DECL     3374
                     11115                        BX1    X1*X5                                                   DECL     3375
                          7130000006              =X3    M.CHAR                                                  DECL     3376
          2176  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
          2177  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
          2200  0300002132 +                      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/05. 19.59.24.      PAGE    71
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                          56135                   SA1    B3+B5       OAI = T.EOT(EOIND)                          DECL     3392
          2201  5140000000 X                      SA4    T.BLKS                                                  DECL     3393
                          20144                   HX1    OA.LWA                                                  DECL     3394
                               21144              AX1    -OA.LWAL    LWAC = LWA[OAI]                             DECL     3395
          2202  63241                             =B2    X4+CB.W                                                 DECL     3396
                     7150030000                   CLAS=  X5,CA,(BLVL)                                            DECL     3397
                               20014              LX0    -WC.RBP                                                 DECL     3398
          2203  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
          2204  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
          2206  36757                             IX7    X5+X7                                                   DECL     3408
                                                  LX7    CB.BLENP                                                DECL     3409
                     54730                        SA7    A3          BLEN[CBI] = MAX (BLEN,LWAC)                 DECL     3410
                          0302002132 +            ZR     X2,EQU350   IF BLOCK NOT LEVELED                        DECL     3411
          2207  43101                             CLAS=  X1,WB,(LEV)                                             DECL     3412
                          12112                   BX1    X1+X2                                                   DECL     3413
                               12661              BX6    X6+X1                                                   DECL     3414
          2210  54620                             SA6    A2          (LEV,LEVN)[WBI] = (1,BLKLEV) [WB.]          DECL     3415
                     0400002132 +                 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
          2211                           EQU400   BSS    0                                                       DECL     3433
                                         SNAP=D   IFNE   TEST                                                    DECL     3434
          2211  5110000000 X                      SA1    CO.SNAP                                                 DECL     3435
                          20104                   LX1    1RD                                                     DECL     3436
          2212  0321002215 +                      PL     X1,EQU400S                                              DECL     3437
          2213  0100000000 X             EQU.400  DUMPT  EQUS                                                    DECL     3438
          2214  0100000000 X                      DUMPT  EOT                                                     DECL     3439
          2215                           EQU400S  BSS    0                                                       DECL     3440
                                         SNAP=D   ENDIF                                                          DECL     3441
                                                                                                                 DECL     3442
          2215  5130000000 X                      SA3    T=EQUS      X3 = NUMBER OF EQUIVALENCED VARIABLES       FC5A128   307
                          5120000000 X            SA2    T=ECT                                                   FC5A128   308
          2216  5110000721 +                      SA1    N.EQ                                                    FC5A128   309
                          21301                   AX3    1                                                       FC5A128   310
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    72
        *EQUIVALENCE* DIGESTION.                                      PHASE5
  
          2217  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
          2220  5110000000 X                      ALLOC  T.ECT,X0                                                FC5A128   314
          2221  5110000000 X                      SA1    T.EQUS                                                  DECL     3443
                          5120000000 X            SA2    T.SYM                                                   DECL     3444
          2222  5130000000 X                      SA3    T=EQUS                                                  DECL     3445
                          53010                   =A0    X1+G1.W                                                 DECL     3446
                               63720              SB7    X2                                                      DECL     3447
          2223  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
          2225  6144000002               EQU410   SB4    B4+Z=EQS    GFIND = GFIND + Z=EQS                       DECL     3451
                          54104                   SA1    A0+B4       G1I = T.EQUS(GFIND)                         DECL     3452
          2226  6155777775                        SB5    B5-Z=EQS    GFLEN = GFLEN - Z=EQS                       DECL     3453
                          0750002262 +            MI     B5,EQU450   IF END OF T.EQUS                            DECL     3454
          2227  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
          2230  15550                             BX5    -X0*X5                                                  FC50757   136
                     43012                        MX0    G1.RBL                                                  FC50757   137
                          20614                   LX6    G2.LINKL                                                FC50757   138
                               63260              SB2    X6                                                      FC50757   139
          2231  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
          2232  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
          2233  0424002241 +                      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
          2234  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
          2235  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
          2236  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
          2237  15337                             BX3    -X7*X3      CLEAR LINK                                  FC50757   141
                     76720                        SX7    B2                                                      FC50757   142
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    73
        *EQUIVALENCE* DIGESTION.                                      PHASE5
  
                          20760                   LX7    G2.LINKP                                                FC50757   143
                               12773              BX7    X7+X3                                                   FC50757   144
          2240  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
          2241  10755                    EQU420   BX7    X5                                                      DECL     3498
                     20530                        LX5    -F2.EOIP                                                DECL     3499
                          43060                   MX0    -F2.EOIL                                                DECL     3500
                               20744              HX7    F2.FWA                                                  DECL     3501
          2242  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
          2243  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
          2244  0336402244 +                      MI     X6,"BLOWUP" BIAS SHOULD NOT BE .LT. 0                   DECL     3512
                                                                                                                 DECL     3513
                          20622                   LX6    TE.BIASP                                                DECL     3514
                               43301              CLAS=  X3,TE,(NB)                                              DECL     3515
                     12763                        BX7    X6+X3                                                   DECL     3516
                          12771                   BX7    X7+X1                                                   DECL     3517
                               20444              LX4    -G1.RBP                                                 DECL     3518
          2246  5130000000 X                      SA3    T.ECT                                                   DECL     3519
                          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
          2247  43300                             MX3    0           COMI = 0                                    DECL     3528
                     0304002255 +                 ZR     X4,EQU430   IF RBR .EQ. 0                               DECL     3529
          2250  5110000000 X                      SA1    T.BLKS                                                  DECL     3530
                          63210                   =B2    X1+CA.W                                                 DECL     3531
                               43301              CLAS=  X3,WB,(COM) COMI = COM[WB.] = 1                         DECL     3532
                     7120030000                   CLAS=  X2,CA,(BLVL)                                            DECL     3533
                               53142              SA1    X4+B2       CAI = T.BLKS(RBI) + CA.W                    DECL     3534
          2252  11721                             BX7    X2*X1       BLKLEV = BLVL[CAI]                          DECL     3535
                     20460                        LX4    WC.RBP                                                  DECL     3536
                          0307002255 +            ZR     X7,EQU430   IF BLOCK NOT LEVELED                        DECL     3537
          2253  20741                             LX7    WB.LEVNP-CA.BLVLP                                       DECL     3538
                     12337                        BX3    X3+X7                                                   DECL     3539
                          43201                   CLAS=  X2,WB,(LEV)                                             DECL     3540
          2254  12332                             BX3    X3+X2       COMI = (COM,LEV,LEVN) [WB.]                 DECL     3541
                                                                                                                 FC50299    56
          2255  20652                    EQU430   LX6    WC.RAP-TE.BIASP                                         DECL     3542
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          2256  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
          2257  12335                             BX3    X3+X5                                                   DECL     3551
                     7160001240                   CLAS=  X6,WB,(EQV,DEF,VAR)                                     DECL     3552
                               12663              BX6    X6+X3                                                   DECL     3553
          2260  54630                             SA6    A3          (EQV,DEF,VAR,BASE,COMI)[WBI] = [WB.]        DECL     3554
                     5110002661 +                 CLAS=  X1,WC,(RB,RA)                                           DECL     3555
                               15441              BX4    -X1*X4                                                  DECL     3556
          2261  12747                             BX7    X4+X7                                                   DECL     3557
                     54740                        SA7    A4          (RB,RA)[WCI] = (RBR,RAI) [WC.]              DECL     3558
                          0400002225 +            EQ     EQU410                                                  DECL     3559
                                                                                                                 DECL     3560
          2262                           EQU450   BSS    0                                                       DECL     3561
          2262  76660                             SHRINK T=ECT,B6    SHRINK T.ECT TO ACTUAL SIZE                 DECL     3562
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     3563
          2263  5110000000 X                      SA1    CO.SNAP                                                 DECL     3564
                          20104                   LX1    1RD                                                     DECL     3565
          2264  0321002267 +                      PL     X1,EQU450S  IF DECLARATIVE SNAP NOT SELECTED            DECL     3566
          2265  0100000000 X             EQU.450  DUMPT  EQUS                                                    DECL     3567
          2266  0100000000 X                      DUMPT  ECT                                                     DECL     3568
          2267                           EQU450S  BSS    0                                                       DECL     3569
                                         SNAP=D   ENDIF                                                          DECL     3570
                                                                                                                 DECL     3571
          2267  5110000000 X                      SA1    WO.LOM                                                  DECL     3572
                          43600                   MX6    0                                                       DECL     3573
          2270  5160000000 X                      SHRINK T=EQUS,X6   DISCARD T.EQUS                              DECL     3574
                          0331001523 +            MI     X1,EXIT.    IF COMMON-EQUIVALENCE MAP SELECTED          DECL     3575
          2271  5160000000 X                      SHRINK T=ECT,X6                                                DECL     3576
                          0400001523 +            EQ     EXIT.                                                   DECL     3577
                                                                                                                 DECL     3578
                                 721 +   N.EQ     EQU    EQSR        NUMBER OF EQUIVALENCE CLASSES               DECL     3579
          2272  00000000000000000000     EQUA     CON    0           12/T0, 48/D0,[PHASE 1 OF EQU]               FC50757   145
          2273                     1     EQUS     BSS    1           SUBSCRIPTED ITEM INDICATOR                  FC50299    57
                                2272 +   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/05. 19.59.24.      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
          2274  0400402274 +             ACV      SUBR   =           ...ENTRY/EXIT...                            FC50558    45
          2275  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
          2276  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
          2277  53155                             SA1    X5+B5       FETCH *WB*                                  DECL     3608
                     43371                        MX3    -WB.MODEL                                               DECL     3609
                          15213                   BX2    -X3*X1      ISOLATE MODE                                DECL     3610
          2300  6222777771                        SB2    X2-M.CHAR                                               DECL     3611
                          0520002274 +            NZ     B2,EXIT.    IF NOT TYPE CHARACTER                       DECL     3612
          2301  54211                             =A2    A1-WB.W+WC.W                                            DECL     3613
                     20236                        SBIT   X2,WC.CTYPP                                             DECL     3614
                          0322002311 +            PL     X2,ACV1     IF NOT ASSUMED LENGTH                       DECL     3615
          2302  0100000000 X                      CALL   CT1         GET TP. FORMAT                              DECL     3616
          2303  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
          2304  6130000000 X                      SB3    VD.GP                                                   DECL     3620
                          0100000624 +            RJ     OVT         OUTPUT THE GPL TURPLE                       DECL     3621
          2305  0100000540 +                      RJ     OVS         OUTPUT VARDIM STORE TURPLE                  DECL     3622
          2306  5110000000 X                      SA1    T.SYM                                                   DECL     3623
                          20520                   HX5    TP.BIAS                                                 DECL     3624
                               21544              AX5    -TP.BIASL   EXTRACT VD. INDEX                           DECL     3625
          2307  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
          2310  54620                             SA6    A2                                                      DECL     3630
                     0400002274 +                 EQ     EXIT.                                                   DECL     3631
                                                                                                                 DECL     3632
          2311  5110000000 X             ACV1     SA1    S=VALUE                                                 DECL     3633
                          7211000006              SX1    X1+M.CHAR                                               DECL     3634
          2312  37101                             IX1    X0-X1                                                   DECL     3635
                     76610                        =X6    1                                                       DECL     3636
                          0301002274 +            ZR     X1,EXIT.    IF VALUE.                                   DECL     3637
          2313  5160000000 X                      SA6    N.EPL       SET FIXED CHARACTER LENGTH FP PRESENT FLAG  DECL     3638
                          0400002274 +            EQ     EXIT.                                                   DECL     3639
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          2314  0400402314 +             MCA      SUBR               ...ENTRY/EXIT...                            DECL     3657
                                   0              ERRNZ  FUDGE-1                                                 DECL     3658
          2315  5120000000 X                      SA2    T=BLKS                                                  DECL     3659
                          5130000000 X            SA3    T.BLKS                                                  DECL     3660
          2316  5140000000 X                      SA4    T.COMM                                                  DECL     3661
                          13666                   BX6    0                                                       DECL     3662
                               36223              IX2    X2+X3                                                   DECL     3663
          2317  5150000000 X                      SA5    T.SYM                                                   DECL     3664
                          5110000000 X            SA1    T.DIM                                                   DECL     3665
          2320  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
          2321  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
          2322  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
          2323  0304002401 +                      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
          2324  0321002330 +                      PL     X1,MCA11    IF AUTOMATIC LEVEL IS OFF                   FC5A444   137
                          43672                   MX6    -CA.BLVLL                                               FC5A444   138
                               20614              LX6    CA.BLVLP                                                FC5A444   139
          2325  15046                             BX0    -X6*X4                                                  FC5A444   140
                     0310002330 +                 NZ     X0,MCA11    IF EXPLICITLY LEVELED                       FC5A444   141
                               76611              =X6    2                                                       FC5A444   142
          2326  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/05. 19.59.24.      PAGE    77
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
          2327  5160000000 X                      SA6    LEVEL2      MARK LEVEL 2 STORAGE IN USE                 FC5A444   147
                          5160000000 X            SA6    LEVEL                                                   FC5A444   148
                                                                                                                 FC5A444   149
          2330  43060                    MCA11    MX0    -CA.LMIL                                                FC5A444   150
                                                  LX4    -CA.LMIP                                                DECL     3682
                     15640                        BX6    -X0*X4      LASTMEM = LMI[CBA]                          DECL     3683
                          0316002332 +            NZ     X6,MCA13    IF AT LEAST ONE MEMBER ENTERED              FC5A444   151
          2331  54630                             SA6    A3          CBI = 0     SET FMI[CBA] = 0                DECL     3685
                     10366                        BX3    X6                                                      DECL     3686
                                                                                                                 DECL     3687
          2332  6144000002               MCA13    SB4    B4+Z=BLKS                                               FC5A444   152
                          43071                   MX0    -WB.MODEL                                               DECL     3689
                               43660              MX6    -CB.FMIL                                                DECL     3690
          2333  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
          2334  0316002340 +                      NZ     X6,MCA15    IF COMIND .NE. 0                            DECL     3698
                          43052                   MX0    CA.BNAML                                                DECL     3699
                               11604              BX6    X0*X4       EXTRACT BLOCK NAME                          DECL     3700
          2335  5160000000 X                      SA6    FILL.                                                   DECL     3701
                          6170000000 X            FATAL  E.CM12                                                  DECL     3702
          2337  0400002322 +                      EQ     MCA10                                                   DECL     3703
                                                                                                                 DECL     3704
                                                                                                                 DECL     3705
          2340  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
          2341  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
          2342  7272777771                        SX7    X2-M.CHAR                                               DECL     3716
                          43201                   CLAS=  X2,CA,(CHAR)                                            DECL     3717
          2343  0317002344 +                      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
          2344  0450002322 +             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/05. 19.59.24.      PAGE    78
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
          2345  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
          2346  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
          2347  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
          2350  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
          2351  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
          2352  13333                             BX3    0           INDICATE NON-CHAR                           DECL     3757
                     0316002354 +                 NZ     X6,MCA25    IF ELEMENT NOT MODE CHAR                    DECL     3758
                               43301              MX3    1           INDICATE CHARACTER                          FC50533     9
          2353  6170477777                        =B7    477777B     CMI = -300000B (CHARACTER MODE INDICATOR)   DECL     3759
                                                                                                                 FC50533    10
          2354  37634                    MCA25    IX6    X3-X4       COMPARE WITH BLOCK CHAR INDICATOR           DECL     3761
                     43360                        MX3    -CT.LNKL                                                DECL     3762
                          0306002362 +            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
          2355  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
          2356  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
          2357  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
          2360  7100200000                        CLAS=  X0,CA,(NAC)                                             DECL     3780
                          12704                   BX7    X0+X4                                                   DECL     3781
                               54650              SA6    A5          LNK[CMB] = CMIND                            DECL     3782
          2361  54740                             SA7    A4          NAC[CAI] = 1                                DECL     3783
                     0400002344 +                 EQ     MCA20                                                   DECL     3784
                                                                                                                 DECL     3785
                                        *         UPDATE BLOCK LENGTH, STORE BLOCK RELATIVE ADDRESS.             DECL     3786
                                                                                                                 DECL     3787
          2362  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/05. 19.59.24.      PAGE    79
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
                                                  LX3    -CB.BLENP                                               DECL     3790
                          76440                   SX4    B4                                                      DECL     3791
                               20460              LX4    WC.RBP                                                  DECL     3792
          2363  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
          2364  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
          2365  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
          2366  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
          2367  43274                             MX2    -0          FOR TWO WORD ELEMENTS                       DECL     3819
                     7117777773                   SX1    B7-M.DBL                                                DECL     3820
          2370  0301002376 +                      ZR     X1,MCA90    IF MODE DOUBLE                              DECL     3821
                          7211777776              SX1    X1+M.DBL-M.CPLX                                         DECL     3822
          2371  0301002376 +                      ZR     X1,MCA90    IF MODE COMPLEX                             DECL     3823
                          7120000000              SX2    0           FOR ONE WORD ELEMENTS                       DECL     3824
          2372  0670002376 +                      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
          2373  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
          2374  0305402374 +                      ZR     X5,"BLOWUP" IF CLEN .EQ. 0                              DECL     3832
                          20444                   LX4    -CB.BLENL                                               DECL     3833
                               21444              AX4    -CB.BLENL                                               DECL     3834
          2375  0334402375 +                      MI     X4,"BLOWUP" CHARACTER BLOCK LENGTH TOO LONG             DECL     3835
                                         .TEST    ENDIF                                                          DECL     3836
                                                                                                                 DECL     3837
          2376  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
          2377  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/05. 19.59.24.      PAGE    80
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
          2400  54630                             SA6    A3          BLEN[CBI] = BLEN[CBI] + CMLEN               DECL     3847
                     0400002344 +                 EQ     MCA20                                                   DECL     3848
          2401                           MCA99    BSS    0                                                       DECL     3849
                                         SNAP=B   IFNE   TEST                                                    DECL     3850
          2401  5130000000 X                      SA3    CO.SNAP                                                 DECL     3851
                          20302                   LX3    1RB                                                     DECL     3852
          2402  0323002404 +                      PL     X3,MCA99S   IF BLOCK TABLE SNAP NOT SELECTED            DECL     3853
          2403  0100000000 X             MCA.99   DUMPT  BLKS                                                    DECL     3854
          2404                           MCA99S   BSS    0                                                       DECL     3855
                                         SNAP=B   ENDIF                                                          DECL     3856
                                                                                                                 DECL     3857
          2404  0400002314 +                      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
          2405  0400402405 +             MFR      SUBR               ...ENTRY/EXIT...                            DECL     3868
          2406  5110000000 X                      SA1    MOD                                                     DECL     3869
                          20160                   HX1    MO.FUN                                                  DECL     3870
          2407  0321002405 +                      PL     X1,EXIT.    IF NOT COMPILING A FUNCTION                 DECL     3871
                          5120000000 X            SA2    S=VALUE                                                 DECL     3872
          2410  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
          2411  63210                             SB2    X1                                                      DECL     3877
                     20101                        LX1    1                                                       DECL     3878
                          73112                   SX1    X1+B2       CONVERT TO INDEX                            DECL     3879
          2412  5120000000 X                      SA2    T.SYM                                                   DECL     3880
                          6221000001              SB2    X1+WB.W                                                 DECL     3881
          2413  53222                             SA2    X2+B2       *WB* OF PROPER VALUE. SYMBOL                DECL     3882
                     7110000400                   LDBIT  X1,WB.MDFP                                              FC5A191    18
                               12612              BX6    X1+X2                                                   DECL     3884
          2414  54620                             SA6    A2          SET 1REF *DEFINITION REQUIRED* FLAG         DECL     3885
                     0400002405 +                 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
          2415  0400402415 +             PCF      SUBR               ...ENTRY/EXIT...                            DECL     3898
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    81
        CLOSE OF DECLARATIVE ROUTINES.                                PCF 
  
          2416  5110000000 X                      SA1    CHARDCL                                                 DECL     3899
                          0301002415 +            ZR     X1,EXIT.    IF NO CHARACTER DECLARATIONS                DECL     3900
          2417  5110000000 X                      SA1    S=ENTRY                                                 DECL     3901
                          5120000000 X            SA2    T.SYM                                                   DECL     3902
          2420  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
          2421  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
          2422  6220777771                        SB2    X0-M.CHAR                                               DECL     3912
                          0520002473 +            NZ     B2,PCF6     IF MAIN ENTRY NOT TYPE CHARACTER            FC50773    14
          2423  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
          2424  5150000000 X                      SA5    S=VALUE                                                 DECL     3918
                          5140000000 X            SA4    T.SYM                                                   DECL     3919
          2425  7255000006                        SX5    X5+M.CHAR                                               DECL     3920
                          63250                   SB2    X5                                                      DECL     3921
                               22115              LX1    X5,B1                                                   DECL     3922
          2426  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
          2430  20335                             LX3    MO.CLIFP                                                DECL     3930
                     12713                        BX7    X1+X3                                                   DECL     3931
                          54710                   SA7    A1          PROPAGATE CLIF TO MOD                       DECL     3932
          2431  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
          2432  5130002662 +                      CLAS=  X3,WB,(EQV,BASE)                                        DECL     3937
                          15663                   BX6    -X3*X6                                                  DECL     3938
                               54620              SA6    A2                                                      DECL     3939
          2433  5110000000 X                      ALLOC  T.FPI,1     NEED A NEW ENTRY FOR VALUE.                 DECL     3940
          2435  10311                             BX3    X1                                                      FC5A128   315
                     7212777776                   SX1    X2-1        COUNT (LESS NEW CELL)                       FC5A128   316
                               10233              BX2    X3          SOURCE                                      FC5A128   317
          2436  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
          2437  5110000000 X                      SA1    T.FPI                                                   FC5A128   321
                          10655                   BX6    X5                                                      FC5A128   322
                               53610              SA6    X1          VALUE. BECOMES FPNO 1                       FC5A128   323
          2440  76710                             =X7    1                                                       FC5A128   324
                     20741                        LX7    WB.FPNOP                                                FC5A128   325
                          5140000000 X            SA4    T.SYM                                                   FC5A128   326
                                                                                                                 FC50512    27
          2441  53214                    PCF1     SA2    X1+B4                                                   FC5A128   327
                     63220                        SB2    X2                                                      DECL     3950
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          2442  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
          2443  67441                             =B4    B4-1                                                    DECL     3958
                     0640002441 +                 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
          2444  5110000000 X                      SA1    MOD                                                     FC50512    32
                          20136                   SBIT   X1,MO.CTYPP                                             FC50512    33
          2445  0321002473 +                      PL     X1,PCF6     IF NOT ASSUMED SIZE                         FC50773    15
                          5110000000 X            SA1    T.ENTP                                                  FC50512    35
          2446  5120000000 X                      SA2    T=ENTP                                                  FC50512    36
                          0312002456 +            NZ     X2,PCF2     IF NOT NULL PARAMETER LIST                  FC50773    16
          2447  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
          2450  5110000000 X                      ADDWD  T.ENTP                                                  FC50773    22
          2451  5110000000 X                      SA1    S=VALUE                                                 FC50773    23
                          7261000006              SX6    X1+M.CHAR   VALUE.H                                     FC50773    24
          2452  20655                             LX6    EF.ORDP                                                 FC50773    25
                     5110000000 X                 ADDWD  T.ENTP      EF. WORD                                    FC50773    26
          2454  76611                             =X6    2                                                       FC50773    27
                     5160000000 X                 SA6    N.CPL                                                   FC50773    28
          2455  0400002473 +                      EQ     PCF6                                                    FC50773    29
                                                                                                                 FC50773    30
          2456  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
          2457  7160000001                        SX6    1                                                       FC50512    40
                          20114                   LX1    -EH.FPCP                                                FC50512    41
                               43060              MX0    -EH.FPCL                                                FC50512    42
          2460  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
          2461  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
          2462  63600                             SB6    X0                                                      FC50512    51
                     0301002463 +                 ZR     X1,PCF3     IF PARCELLED EXACTLY                        FC50773    32
                               66661              =B6    B6+1                                                    FC50512    53
                                                                                                                 FC50512    54
          2463  0464002466 +             PCF3     EQ     B6,B4,PCF4  IF NO ALLOCATION NEEDED                     FC50773    33
                          43600                   MX6    0                                                       FC50512    56
          2464  5110000000 X                      ADDWD  T.ENTP      ADD NEW WORD                                FC50512    57
          2465  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/05. 19.59.24.      PAGE    83
        CLOSE OF DECLARATIVE ROUTINES.                                PCF 
  
          2466  5110000000 X             PCF4     SA1    N.CPL                                                   FC50773    34
                          73611                   =X6    X1+1        INCREMENT                                   FC50773    35
                               54610              SA6    A1                                                      FC50773    36
          2467  5110000000 X                      SA1    S=VALUE                                                 FC50773    37
                          7211000006              SX1    X1+M.CHAR   FIRST 'CARRY OVER' IS VALUH.                FC50512    62
                                                                                                                 FC50512    63
          2470  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
          2471  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
          2472  67441                             =B4    B4-1        DECREMENT COUNT                             FC50512    72
                     10100                        BX1    X0          CARRY OVER FOR NEXT EF. WORD                FC50512    73
                          0540002470 +            NZ     B4,PCF5     IF MORE ADJUSTMENT                          FC50773    39
                                                                                                                 DECL     3960
                                        *         TEST FOR ASSUMED LENGTH CHARACTER                              DECL     3961
                                                                                                                 DECL     3962
          2473  5120000000 X             PCF6     SA2    T=FPI                                                   FC50773    40
                          5130000000 X            SA3    T.FPI                                                   DECL     3964
          2474  0302002415 +                      ZR     X2,EXIT.    IF NO FORMAL PARAMETERS                     DECL     3965
                          6242777776              SB4    X2-1        LAST T.PFI ELEMENT                          DECL     3966
                                                                                                                 FC50512    75
          2475  53134                    PCF10    SA1    X3+B4       FORMAL PARAMETER INFORMATION (ORDINAL)      DECL     3967
                     0100002274 +                 RJ     ACV         PROCESS FOR ASSUMED LENGTH CHARACTER        DECL     3968
          2476  5110000000 X                      SA1    MOD                                                     DECL     3969
                          43051                   MX0    -MO.CLIFL                                               DECL     3970
                               20137              LX1    -MO.CLIFP                                               DECL     3971
          2477  15110                             BX1    -X0*X1      ISOLATE CLIF                                DECL     3972
                     5120000000 X                 SA2    S=VALUE     SYMORD OF VALUE.                            DECL     3973
          2500  5140000000 X                      SA4    T.SYM                                                   DECL     3974
                          7222000006              =X2    X2+M.CHAR   SYMORD OF VALUH.                            DECL     3975
          2501  63220                             SB2    X2                                                      DECL     3976
                     20201                        LX2    1                                                       DECL     3977
                          63222                   SB2    X2+B2       CONVERT TO INDEX                            DECL     3978
          2502  6122000002                        SB2    B2-WA.W+WC.W                                            DECL     3979
                          53242                   SA2    X4+B2       *WC* OF VALUH.                              DECL     3980
                               20135              LX1    WC.CLIFP                                                DECL     3981
          2503  12621                             BX6    X2+X1                                                   DECL     3982
                     54620                        SA6    A2          RESET WC.CLIF OF VALUH.                     DECL     3983
                          5130000000 X            SA3    T.FPI                                                   DECL     3984
          2504  6144777776                        SB4    B4-1                                                    DECL     3985
                          0640002475 +            PL     B4,PCF10    IF NOT FINISHED                             DECL     3986
          2505  0400002415 +                      EQ     EXIT.                                                   DECL     3987
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          2506  0400402506 +             PKS      SUBR               ...ENTRY/EXIT...                            DECL     4004
          2507  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
          2510  20444                             LX4    TB.IOCPP-1-TB.COLP                                      DECL     4009
                     5160002534 +                 SA6    PKSA+1      (PKSA+1) = PNTRP                            DECL     4010
          2511  0324002530 +                      PL     X4,PKS80    IF THERE IS NO COLON                        DECL     4011
                          56441                   =A4    B4+1                                                    DECL     4012
                               66441              =B4    B4+1                                                    DECL     4013
          2512  6224777734                        SB2    X4-O.COLON                                              DECL     4014
                          76610                   =X6    1           FIRST = 1                                   DECL     4015
          2513  0420002514 +                      ZR     B2,PKS30    IF SUBSTRING FIRST OMITTED                  DECL     4016
                          0100000000 X            CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           DECL     4017
                                                                                                                 DECL     4018
          2514  5160002533 +             PKS30    SA6    PKSA        (PKSA) = FIRST                              DECL     4019
                          56240                   SA2    B4                                                      DECL     4020
                               66441              =B4    B4+1                                                    DECL     4021
          2515  6272777734                        SB7    X2-O.COLON                                              DECL     4022
                          0570002530 +            NZ     B7,PKS80    IF NEXT NOT COLON                           DECL     4023
          2516  56440                             SA4    B4                                                      DECL     4024
                     6224777737                   SB2    X4-O.RP                                                 DECL     4025
                               76610              =X6    1                                                       DECL     4026
          2517  20622                             LX6    18          X6 = POSITIVE LARGE NUMBER                  DECL     4027
                     0420002521 +                 ZR     B2,PKS40    IF SUBSTRING LAST OMITTED                   DECL     4028
          2520  0100000000 X                      CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           DECL     4029
                                                                                                                 DECL     4030
          2521  56240                    PKS40    SA2    B4                                                      DECL     4031
                     6272777737                   SB7    X2-O.RP                                                 DECL     4032
          2522  0570002530 +                      NZ     B7,PKS80    IF NO RIGHT PAREN                           DECL     4033
                          66441                   =B4    B4+1        ADVANCE CURSOR PAST SUBSTRING RP            DECL     4034
          2523  5150002533 +                      SA5    PKSA        X5 = FIRST                                  DECL     4035
                          76010                   =X0    1                                                       DECL     4036
                               37350              IX3    X5-X0                                                   DECL     4037
          2524  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
          2525  0320002506 +                      PL     X0,EXIT.    IF NO ERROR                                 DECL     4042
                          6170000000 X            FATAL  E.AT16                                                  DECL     4043
          2527  76510                             =X5    1                                                       DECL     4044
                     76610                        =X6    1                                                       DECL     4045
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    85
        CLOSE OF DECLARATIVE ROUTINES.                                PKS 
  
                          0400002506 +            EQ     EXIT.                                                   DECL     4046
                                                                                                                 DECL     4047
                                        *         SYNTAX ERROR OCCURED IN THIS SUBSTRING EXPRESSION,             DECL     4048
                                        *         DIAGNOSE, SET DEFAULT AND EXIT.                                DECL     4049
                                                                                                                 DECL     4050
          2530  6170000000 X             PKS80    FATAL  E.ST        SYNTAX ERROR                                DECL     4051
          2531  5110002534 +                      =A1    PKSA+1                                                  DECL     4052
                          63411                   =B4    X1+1        ADVANCE PAST CLOSING RIGHT PAREN            DECL     4053
                               76510              =X5    1                                                       DECL     4054
          2532  76610                             =X6    1                                                       DECL     4055
                     0400002506 +                 EQ     EXIT.                                                   DECL     4056
                                                                                                                 DECL     4057
          2533                     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
          2535  0400402535 +             PSC      SUBR               ...ENTRY/EXIT...                            DECL     4069
          2536  5110000000 X                      SA1    SAVE                                                    DECL     4070
                          5130000000 X            SA3    USAVE                                                   DECL     4071
          2537  5120000000 X                      SA2    T=SYM                                                   DECL     4072
                          0301002535 +            ZR     X1,EXIT.    IF NO EXPLICIT SAVE DECLARATION             DECL     4073
          2540  0313002535 +                      NZ     X3,EXIT.    IF UNIVERSAL SAVE                           DECL     4074
                          5140000000 X            SA4    T.SYM                                                   DECL     4075
          2541  5110000000 X                      SA1    T.BLKS                                                  DECL     4076
                          63620                   SB6    X2                                                      DECL     4077
          2542  6241000001                        SB4    X1+CB.W                                                 DECL     4078
                          6130000003              =B3    Z=SYM                                                   DECL     4079
          2543  53541                             =A5    X4+WB.W                                                 DECL     4080
                     7120100000                   CLAS=  X2,WB,(COM)                                             DECL     4081
                               43062              MX0    -WC.RBL                                                 DECL     4082
          2544  43401                             CLAS=  X4,CB,(SAVE)                                            DECL     4083
          2545  54553                    PSC10    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                     DECL     4084
                     67663                        SB6    B6-B3                                                   DECL     4085
                          0460002535 +            ZR     B6,EXIT.    IF END OF T.SYM                             DECL     4086
          2546  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
          2547  0335002545 +                      MI     X5,PSC10    IF LABEL                                    DECL     4090
                          0306002545 +            ZR     X6,PSC10    IF NOT COMMON                               DECL     4091
          2550  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
          2551  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/05. 19.59.24.      PAGE    86
        CLOSE OF DECLARATIVE ROUTINES.                                PSC 
  
                               54650              SA6    A5          SAVE[WBI] = SAVE[CBI]                       DECL     4099
          2552  0400002545 +                      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
          2553  0400402553 +             SAS      SUBR               ...ENTRY/EXIT...                            DECL     4111
          2554  5120000000 X                      SA2    T=SYM                                                   DECL     4112
                          5140000000 X            SA4    T.SYM                                                   DECL     4113
          2555  6130000003                        =B3    Z=SYM                                                   DECL     4114
                          63520                   SB5    X2          B5 = LENGTH OF SYMTAB                       DECL     4115
          2556  5244777775                        =A4    X4-Z=SYM+WB.W                                           DECL     4116
                          67601                   =B6    -1          INITIAL SYMTAB ORDINAL                      DECL     4117
          2557  5150000000 X                      SA5    CO.LCM                                                  DECL     4118
                          43652                   MX6    WA.SYML                                                 DECL     4119
                                                                                                                 DECL     4120
          2560  54443                    SAS10    SA4    A4+B3                                                   DECL     4121
                     0450002553 +                 ZR     B5,EXIT.    IF TABLE EXHAUSTED                          DECL     4122
                               20461              HX4    WB.ARY                                                  DECL     4123
                                                  IFEQ   TEST,ON,1                                               DECL     4124
          2561  0750402561 +                      MI     B5,"BLOWUP" IF SYMTAB LENGTH NOT MULTIPLE OF Z=SYM      DECL     4125
                          67553                   SB5    B5-B3                                                   DECL     4126
                               66661              =B6    B6+1                                                    DECL     4127
          2562  0324002560 +                      PL     X4,SAS10    IF NOT AN ARRAY                             DECL     4128
                          0100000000 X            CALL   GPS         GET PRODUCT OF SPANS                        DECL     4129
          2563  20465                             LX4    WB.ARYP-WB.LCMP                                         DECL     4130
                     11045                        BX0    X4*X5                                                   DECL     4131
                          6120000000 X            SB2    E.DM19                                                  DECL     4132
          2564  7170377777                        SX7    MAX.SPCM                                                DECL     4133
                          0320002567 +            PL     X0,SAS20    IF X7,B2 ARE CORRECT                        DECL     4134
          2565  6120000000 X                      SB2    E.DM20                                                  DECL     4135
                          5110002574 +            SA1    SASA                                                    DECL     4136
          2566  10711                             BX7    X1                                                      DECL     4137
                                                                                                                 DECL     4138
          2567  37072                    SAS20    IX0    X7-X2                                                   DECL     4139
                     0320002560 +                 PL     X0,SAS10    IF SIZE OK                                  DECL     4140
          2570  5014777776                        SA1    A4-WB.W+WA.W      *WA*                                  DECL     4141
                                                  HX1    WA.SYM                                                  DECL     4142
                          11761                   BX7    X6*X1       ISOLATE ARRAY NAME                          DECL     4143
          2571  5170000000 X                      SA7    FILL.                                                   DECL     4144
                          66720                   FATAL  B2                                                      DECL     4145
          2573  0400002560 +                      EQ     SAS10       CONTINUE                                    DECL     4146
                                                                                                                 DECL     4147
          2574  00000000000003777770     SASA     CON    MAX.SPLC                                                DECL     4148
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      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
          2575  0400402575 +             VDP      SUBR               ...ENTRY/EXIT...                            DECL     4158
          2576  5140000000 X                      SA4    N.VD                                                    DECL     4159
                          5120000000 X            SA2    T.SYM                                                   DECL     4160
          2577  0304002575 +                      ZR     X4,EXIT.    IF NO VARIABLE SUBSCRIPTS                   DECL     4161
                          5130000000 X            SA3    T=SYM                                                   DECL     4162
          2600  43771                             MX7    -WB.MODEL                                               DECL     4163
                     6263777775                   =B6    X3-Z=SYM+WB.W                                           DECL     4164
                               43501              CLAS=  X5,WB,(VDS)                                             DECL     4165
          2602  0760002620 +             VDP1     MI     B6,VDP3     IF LIST IS EXHAUSTED                        DECL     4166
                          53326                   SA3    X2+B6                                                   DECL     4167
          2603  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
          2604  7110300000                        CLAS=  X1,WB,(COM,FP)                                          DECL     4173
                          7244777775              SX4    X4-M.INT                                                DECL     4174
          2605  11013                             BX0    X1*X3                                                   DECL     4175
                     7110002010                   CLAS=  X1,WB,(ARY,LAB)                                         DECL     4176
                               11113              BX1    X1*X3                                                   DECL     4177
          2606  0311002602 +                      NZ     X1,VDP1     IF ARRAY OR STATEMENT LABEL                 DECL     4178
                          20341                   SBIT   X3,WB.VDSP                                              DECL     4179
          2607  0323002602 +                      PL     X3,VDP1     IF NOT USED AS VARIABLE SUBSCRIPT OR ARRAY  DECL     4180
                          0300002614 +            ZR     X0,VDP2     IF NOT FORMAL PARAMETER OR IN COMMON        DECL     4181
          2610  54630                             SA6    A3          REMOVE WB.VDS FOR THIS ENTRY                DECL     4182
                     20053                        SBIT   X0,WB.FPP                                               DECL     4183
                          0320002614 +            PL     X0,VDP2     IF NOT FORMAL PARAMETER                     DECL     4184
          2611  5110000000 X                      SA1    T.FPI                                                   DECL     4185
                          20622                   HX6    WB.FPNO                                                 DECL     4186
                               21663              AX6    -WB.FPNOL   EXTRACT FORMAL PARAMETER NUMBER             DECL     4187
          2612  6226777776                        SB2    X6-1                                                    DECL     4188
                          53112                   SA1    X1+B2       FETCH T.FPI ENTRY                           DECL     4189
                               43601              CLAS=  X6,FP,(VDS)                                             DECL     4190
          2613  12661                             BX6    X6+X1                                                   DECL     4191
                     54610                        SA6    A1          UPDATE WITH FP.VDS                          DECL     4192
          2614  0304002602 +             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
          2615  11614                             BX6    X1*X4                                                   DECL     4196
                     5160000000 X                 SA6    FILL.                                                   DECL     4197
          2616  6170000000 X                      FATAL  E.DM12                                                  DECL     4198
          2617  0400002602 +                      EQ     VDP1                                                    DECL     4199
                                                                                                                 DECL     4200
                                        *         PROCESS T.VDI                                                  DECL     4201
                                                                                                                 DECL     4202
          2620  5110000000 X             VDP3     SA1    T=VDI                                                   DECL     4203
                          5120000000 X            SA2    T.VDI                                                   DECL     4204
          2621  6221777776                        =B2    X1-1                                                    DECL     4205
                          43022                   MX0    VD.INDL                                                 DECL     4206
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    88
        CLOSE OF DECLARATIVE ROUTINES.                                VDP 
  
                               20066              LX0    VD.INDL+VD.INDP                                         DECL     4207
          2622  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
          2623  0720002575 +                      MI     B2,EXIT.    IF DONE                                     DECL     4212
                          0400002622 +            EQ     VDP4        CONTINUE LOOP                               DECL     4213
  
  
  
  
                                                  LIST   D                                                       DECL     4215
  
                                        CONTENT OF LITERALS BLOCK.
  
          2624  55555555555555000000
          2625  00000000002020360400         PP3D 
          2626  00000000010000100240        A  HB5
          2627  00000000002020060500         PPFE 
          2630  00000000000037777777          4;;;
          2631  00000000002020260510         PPVEH
          2632  00000000000020040100          PDA 
          2633  00000000001004000000         HD 
          2634  00000000000050020450          /BD/
          2635  00000000002020060510         PPFEH
          2636  00000000001004400000         HD5
          2637  00000000001000000040         H   5
          2640  50505555555555555555    //
          2641  00007777774000000000      ;;;5
          2642  00000631463146314632      FY-Y-Y-Z
          2643  00003000001000000000      X  H
          2644  00000000002000260510         P VEH
          2645  00000000004000100000         5 H
          2646  55555124220116231401      (TRANSLA
          2647  24050455052125112655    TED EQUIV 
          2650  23240124051505162423    STATEMENTS
          2651  57520000000000000000    .)
          2652  00007777770000000000      ;;; 
          2653  17770000000000000000    O;
          2654  00000000177700000000        O;
          2655  00000000177777777777        O;;;;;
          2656  00007777777777777777      ;;;;;;;;
          2657  00000000000002002040          B P5
          2660  00000000010000100000        A  H
          2661  17770000000077777777    O;    ;;;;
          2662  00000777700000001000      G;'   H 
  
          3011                                    END                                                            DECL     4216
  
                             75700B CM  STORAGE USED            16884 STATEMENTS     1905 SYMBOLS      000026 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            5.622 SECONDS        3084 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACV          2274   PROGRAM*       75/12 L   75/12 E   83/27
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        ACV1         2311   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
        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          1313   PROGRAM*       41/36     42/20 L
        APTA         1350   PROGRAM*       43/14     44/06 L
        APTB         1351   PROGRAM*       43/07     44/07 L
        APT10        1321   PROGRAM*       42/34 L   43/21     44/04
        APT19        1327   PROGRAM*       43/04 L
        APT20        1330   PROGRAM*       42/53     43/07 L
        APT30        1334   PROGRAM*       43/13     43/17 L
        APT40        1336   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          1352   PROGRAM*       41/38     44/22 L
        ASL10        1367   PROGRAM*       44/53     44/55 L
        ASL2         1360   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/44     79/45     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          1372   PROGRAM*       41/24     45/24 L
        CCC10        1400   PROGRAM*       45/40 L   46/15     46/23
        CCC20        1413   PROGRAM*       46/02     46/07 L
        CCC30        1414   PROGRAM*       45/45     46/14 L
        CCC40        1417   PROGRAM*       46/17     46/21 L
        CCL          1422   PROGRAM*       41/22     46/35 L
        CCL10        1430   PROGRAM*       46/50 L   47/10
        CCL20        1433   PROGRAM*       47/10 L   47/28     47/32     47/37
        CCL30        1443   PROGRAM*       47/30     47/32 L
        CCS          1446   PROGRAM*       41/26     47/47 L
        CCS10        1454   PROGRAM*       48/02 L   48/09     48/10     48/21
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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   51/16     62/21     66/24     74/22
                                           41/44     56/55     63/29     71/46     80/05
        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          1466   PROGRAM*       41/28     48/39 L
        DCS10        1473   PROGRAM*       48/45     48/48 L
        DCS20        1477   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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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   51/20     57/01     63/32     71/49     74/25     80/08
                                           41/47     51/21     62/24     66/27     71/50     74/26
        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         1505   PROGRAM*       49/25 L   63/37
        DSRT10       1511   PROGRAM*       49/32 L   50/04
        DSRT20       1514   PROGRAM*       49/40 L   49/56     50/03
        DSRT30       1521   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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          1523   PROGRAM*       41/20     51/11 L
        EQUA         2272   PROGRAM*       58/24 S   58/31     74/38 L   74/40
        EQUC         2661   PROGRAM*
        EQUDIM          0   PROGRAM*       53/20 S   55/49 S   56/33     74/42 D
        EQUS         2273   PROGRAM*       53/10 S   55/52     74/39 L
        EQUS0        1533   PROGRAM*       51/18     51/22 L
        EQU10        1553   PROGRAM*       52/11     52/15 L
        EQU100       1666   PROGRAM*       57/10 L   58/25     60/51     61/07     61/10
        EQU110       1674   PROGRAM*       57/31 L   57/36
        EQU120       1677   PROGRAM*       57/43 L   57/54
        EQU130       1703   PROGRAM*       57/33     58/01 L
        EQU140       1706   PROGRAM*       57/48     58/18 L
        EQU15        1560   PROGRAM*       51/43     52/37 L
        EQU150       1711   PROGRAM*       58/20     58/31 L
        EQU160       1717   PROGRAM*       58/40     59/01 L
        EQU170       1724   PROGRAM*       59/12     59/18 L
        EQU180       1730   PROGRAM*       59/33 L   61/52
        EQU190       1732   PROGRAM*       59/14     59/54 L   61/18     61/21     61/28     61/31
        EQU195       1774   PROGRAM*       57/12     62/15 L
        EQU195S      2004   PROGRAM*       62/23     62/25 L
        EQU20        1562   PROGRAM*       52/52 L   56/30     56/32     56/34     56/36
        EQU200       2006   PROGRAM*       62/39 L   62/50     63/18
        EQU210       2020   PROGRAM*       62/39     63/22 L
        EQU210S      2025   PROGRAM*       63/31     63/33 L
        EQU220       2031   PROGRAM*       63/55 L   64/05     64/25
        EQU230       2037   PROGRAM*       64/25 L   64/50     64/51     64/53     64/54     65/32     66/08
        EQU235       2046   PROGRAM*       64/45     64/50 L
        EQU240       2061   PROGRAM*       65/28 L   65/33
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        EQU30        1564   PROGRAM*       52/43     53/07 L   54/05
        EQU300       2075   PROGRAM*       64/01     66/21 L
        EQU300S      2100   PROGRAM*       66/26     66/28 L
        EQU310       2104   PROGRAM*       66/46 L   66/51     66/56     68/12
        EQU320       2107   PROGRAM*       66/54 L   67/04     67/19
        EQU330       2121   PROGRAM*       67/31     67/36 L
        EQU340       2131   PROGRAM*       66/47     68/19 L
        EQU35        1600   PROGRAM*       53/38     53/41 L
        EQU350       2132   PROGRAM*       68/21 L   68/25     70/51     71/20     71/25
        EQU355       2142   PROGRAM*       68/44     68/48 L
        EQU370       2172   PROGRAM*       70/27     70/31 L
        EQU40        1601   PROGRAM*       53/41     53/45 L
        EQU400       2211   PROGRAM*       68/24     71/44 L
        EQU400S      2215   PROGRAM*       71/48     71/51 L
        EQU410       2225   PROGRAM*       72/14 L   74/17
        EQU420       2241   PROGRAM*       72/34     73/12 L
        EQU430       2255   PROGRAM*       73/43     73/51     73/57 L
        EQU45        1603   PROGRAM*       53/33     53/53 L   54/02
        EQU450       2262   PROGRAM*       72/17     74/19 L
        EQU450S      2267   PROGRAM*       74/24     74/27 L
        EQU47        1606   PROGRAM*       53/54     54/04 L
        EQU5         1540   PROGRAM*       51/42 L   51/47     51/50     52/13     52/20     52/22     52/24
        EQU50        1610   PROGRAM*       53/48     54/09 L
        EQU60        1626   PROGRAM*       54/57     55/01     55/06 L
        EQU70        1632   PROGRAM*       55/42 L   56/16     56/18
        EQU75        1643   PROGRAM*       55/53     56/12 L
        EQU80        1646   PROGRAM*       55/54     56/08     56/10     56/22 L
        EQU85        1650   PROGRAM*       56/25 L   56/28
        EQU90        1654   PROGRAM*       55/46     56/32 L
        EQU99        1660   PROGRAM*       53/07     56/44 L
        EQU99S       1666   PROGRAM*       56/57     57/02 L
        EQU.10       1751   PROGRAM*       58/41     61/05 L
        EQU.20       1754   PROGRAM*       61/05     61/09 L
        EQU.30       1756   PROGRAM*       59/18     61/12 L
        EQU.40       1762   PROGRAM*       61/15     61/16     61/20 L
        EQU.50       1764   PROGRAM*       59/13     61/27 L
        EQU.60       1767   PROGRAM*       59/24     61/35 L
        EQU.70       1772   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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          2272   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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        MAX.SPCM   377777   FTX            44/07     86/38
        MAX.SPLC  3777770   FTX            44/06     86/53
        MAX.VAR         7   FTX             3/49
        MCA          2314   PROGRAM*       41/18     76/19 L
        MCA10        2322   PROGRAM*       76/40 L   77/26     77/55
        MCA11        2330   PROGRAM*       76/48     76/52     77/04 L
        MCA13        2332   PROGRAM*       77/07     77/11 L
        MCA15        2340   PROGRAM*       77/21     77/29 L
        MCA20        2344   PROGRAM*       77/41     77/55 L   78/52     80/02
        MCA25        2354   PROGRAM*       78/25     78/29 L
        MCA40        2362   PROGRAM*       78/31     78/56 L
        MCA70        2366   PROGRAM*       79/26 L
        MCA90        2376   PROGRAM*       79/32     79/34     79/36     79/49 L
        MCA99        2401   PROGRAM*       76/42     80/03 L
        MCA99S       2404   PROGRAM*       80/07     80/09 L
        MFR          2405   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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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         1312   PROGRAM*       41/14 S   41/51     41/57 L
        PCD7         1307   PROGRAM*       41/46     41/48 L
        PCF          2415   PROGRAM*       41/32     80/57 L
        PCF1         2441   PROGRAM*       81/56 L   82/09
        PCF10        2475   PROGRAM*       83/26 L   83/45
        PCF2         2456   PROGRAM*       82/19     82/34 L
        PCF3         2463   PROGRAM*       82/49     82/52 L
        PCF4         2466   PROGRAM*       82/52     83/01 L
        PCF5         2470   PROGRAM*       83/07 L   83/17
        PCF6         2473   PROGRAM*       81/15     82/16     82/32     83/21 L
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        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          2506   PROGRAM*       26/56     84/16 L
        PKSA         2533   PROGRAM*       84/22 S   84/31 S   84/47     85/07     85/13 L
        PKS30        2514   PROGRAM*       84/28     84/31 L
        PKS40        2521   PROGRAM*       84/40     84/43 L
        PKS80        2530   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
        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          2535   PROGRAM*       41/30     85/28 L
        PSC10        2545   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          2553   PROGRAM*       41/40     86/16 L
        SASA         2574   PROGRAM*       86/41     86/53 L
        SAS10        2560   PROGRAM*       86/26 L   86/33     86/45     86/51
        SAS20        2567   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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        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            1   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
        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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        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          2575   PROGRAM*       41/34     87/09 L
        VDP1         2602   PROGRAM*       87/17 L   87/29     87/31     87/44     87/50
        VDP2         2614   PROGRAM*       87/32     87/35     87/44 L
        VDP3         2620   PROGRAM*       87/17     87/54 L
        VDP4         2622   PROGRAM*       88/02 L   88/07
        VD.EQ           0   EXTERNAL*       2/37 X   21/26
        VD.GP           0   EXTERNAL*       2/37 X   75/35
        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     73/46     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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/05. 19.59.24.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        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   51/19
        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
        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/05. 19.59.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      420              IDENT  TYPE 
                        420                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       404 
                                        LITERALS* LOCAL         404        14 
  
  
                                        ENTRY POINTS. 
  
                                        B=TYPE           0+           KW=REAL          5+           TYPA           167+ 
                                        KW=BOOL          0+           KW=DOUB          6+           TYPD           172+ 
                                        KW=LOGI          3+           KW=COMP          7+           KW=IMPL        175+ 
                                        KW=INTE          4+           KW=CHAR         10+           IMP.ER         322+ 
  
  
                                        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/05. 19.59.30.      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/05. 19.59.30.      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  0100000327 +                      RJ     CCL         CHECK CHARACTER LENGTH                      FC5A257     7
            14  5160000171 +                      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/05. 19.59.30.      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
                          6170000000 X            SB7    FEC=1ST                                                 TYPE      103
            20  0570400020 +                      NZ     B7,"BLOWUP" IF NOT EXPECTED VALUE                       TYPE      104
                          0311000036 +            NZ     X1,TYP4     IF NOT IN *1ST CARD* PROCESSING.            TYPE      105
            21  56140                             SA1    B4                                                      TYPE      106
                     56241                        SA2    B4+B1                                                   TYPE      107
                          21266                   AX2    9*CHAR                                                  TYPE      108
                               20214              LX2    2*CHAR                                                  TYPE      109
            22  5130000170 +                      SA3    TYPB                                                    TYPE      110
                          12212                   BX2    X1+X2                                                   TYPE      111
                               37132              IX1    X3-X2                                                   TYPE      112
            23  0311000033 +                      NZ     X1,TYP2     IF NOT *FUNCTION*                           TYPE      113
                          7214777771              SX1    X4-M.CHAR                                               TYPE      114
            24  0311000026 +                      NZ     X1,TYP1     IF NOT TYPE CHARACTER                       TYPE      115
                          5110000171 +            SA1    TYPC        FETCH CHARACTER LENGTH                      TYPE      116
            25  12441                             BX4    X4+X1       MERGE IN WITH MODE                          TYPE      117
                                                                                                                 FC5A257     8
            26  7160000200               TYP1     CLAS=  X6,MO,(TYP)                                             FC5A116    12
                          12664                   BX6    X6+X4                                                   FC5A116    13
            27  5160000000 X                      SA6    MOD         INDICATE FUNCTION EXPLICITLY TYPED          TYPE      119
                          7150000405 +            SX5    1+=0                                                    TYPE      120
            30  7130000057                        SX3    8*CHAR-1                                                TYPE      121
                          20322                   LX3    KW.LENP                                                 TYPE      122
                               12535              BX5    X3+X5       PSEUDO *SATTR* FOR ASK                      TYPE      123
            31  0100000000 X                      RJ     ASK         ADJUST STATEMENT KEYWORD                    TYPE      124
            32  0400000000 X                      EQ     KW=FUNC                                                 TYPE      125
                                                                                                                 TYPE      126
            33  10644                    TYP2     BX6    X4                                                      TYPE      127
                     5160000167 +                 SA6    TYPA        SAVE TYPE                                   TYPE      128
            34  0100000000 X                      CALL   PSF         PROCESS DUMMY HEADER STATEMENT              TYPE      129
            35  5140000167 +                      SA4    TYPA                                                    TYPE      130
                                                                                                                 FC5A257     9
            36  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
            37  5160000167 +                      SA6    TYPA        SAVE TYPE                                   TYPE      135
                          7170000055              =X7    CR.DEC                                                  TYPE      136
            40  5170000000 X                      SA7    REFVAR                                                  TYPE      137
                                                                                                                 FC5A257    10
            41  56240                    TYP5     SA2    B4                                                      FC5A338    23
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      PAGE     5
        EXPLICIT                                                      TYP 
  
                     43052                        MX0    MAX.VAR*CHAR                                            TYPE      139
                          6272777766              SB7    X2-O.VAR                                                TYPE      140
            42  11602                             BX6    X0*X2                                                   TYPE      141
                     5160000000 X                 SA6    FILL.                                                   TYPE      142
                               20606              LX6    CHAR                                                    TYPE      143
            43  6266777744                        SB6    X6-1R0                                                  TYPE      144
                          0660000000 X            PL     B6,E.VA09   IF FIRST CHARACTER NOT LETTER               FC50110    14
            44  20666                             LX6    -CHAR       RESTORE                                     TYPE      146
                     0570000000 X                 NZ     B7,E.VA09   IF NOT SYMBOL                               FC50110    15
            45  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           TYPE      148
            46  0770000111 +                      MI     B7,TYP10    IF NO ENTRY                                 TYPE      149
                          76771                   =X7    B7-WB.W+WC.W                                            TYPE      150
            47  5170000173 +                      SA7    TYPE        SAVE *WC* INDEX                             TYPE      151
                          43771                   MX7    -WB.MODEL                                               TYPE      152
                               10566              BX5    X6                                                      FC5A225    23
            50  20642                             SBIT   X6,WB.TYPP                                              TYPE      153
                                                  LX7    WB.MODEP                                                TYPE      154
                     20563                        HX5    WB.PARM                                                 FC5A225    24
                          0335000103 +            MI     X5,TYP9     IF TYPING SYMBOLIC CONSTANT                 FC5A225    25
            51  6170000000 X                      SB7    E.TY10      ** NON-CONFIRMING PREVIOUS TYPING           FC50972    11
                          0326000056 +            PL     X6,TYP5.1   IF NOT PREVIOUSLY TYPED                     FC50972    12
            52  5110000167 +                      SA1    TYPA        CURRENT TYPE                                FC50972    13
                          15227                   BX2    -X7*X2      EXTRACT PREVIOUS TYPE                       FC50972    14
                               15117              BX1    -X7*X1                                                  FC50972    15
            53  37112                             IX1    X1-X2                                                   FC50972    16
                     0311000100 +                 NZ     X1,TYP8     IF NON CONFIRMING TYPE                      FC50972    17
            54  7212777771                        SX1    X2-M.CHAR                                               FC50972    18
                          6170000000 X            SB7    E.TY1                                                   FC50972    19
            55  0311000100 +                      NZ     X1,TYP8     IF NOT CHARACTER, CONFIRMING TYPE           FC50972    20
                          0400000101 +            EQ     TYP8.1                                                  FC50972    21
                                                                                                                 FC50972    22
            56  54521                    TYP5.1   =A5    A2-WB.W+WC.W                                            FC50972    23
                     20602                        SBIT   X6,WB.INTFP/WB.TYPP                                     TYPE      157
                          0336000067 +            MI     X6,TYP7     IF INTRINSIC FUNTION                        TYPE      158
            57  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
            60  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
            61  5110000000 X                      SA1    S=ENTRY                                                 TYPE      169
                          37110                   IX1    X1-X0                                                   TYPE      170
            62  0311000113 +                      NZ     X1,TYP12    IF NOT TYPING THE MAIN ENTRY POINT          TYPE      171
                          5110000000 X            SA1    MOD                                                     TYPE      172
            63  20161                             SBIT   X1,MO.SUBP                                              FC5A338    25
                     0321000065 +                 PL     X1,TYP6     IF NOT SUBROUTINE                           FC5A338    26
            64  6170000000 X                      SB7    E.TY0       **SUBROUTINE MAY NOT BE TYPED               FC5A338    27
                          0400000100 +            EQ     TYP8                                                    FC5A338    28
                                                                                                                 FC5A338    29
            65  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/05. 19.59.30.      PAGE     6
        EXPLICIT                                                      TYP 
  
                               11671              BX6    X7*X1       CLEAR IMPLICIT MODE                         TYPE      176
            66  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
                          0400000113 +            EQ     TYP12                                                   TYPE      180
                                                                                                                 TYPE      181
            67  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
            70  5211000000 X                      SA1    X1+F.INTF                                               FC5A227    80
                          20144                   SBIT   X1,IT.GNOP                                              FC5A227    81
            71  0321000074 +                      PL     X1,TYP7.1   IF NOT GENERIC ONLY INTRINSIC               FC5A227    82
                          6170000000 X            WARN   E.TY9                                                   FC5A227    83
            73  0400000113 +                      EQ     TYP12                                                   FC5A227    84
                                                                                                                 FC5A227    85
            74  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
            75  0303000113 +                      ZR     X3,TYP12    IF CONFIRMING MODE                          FC5A339    10
                          6170000000 X            WARN   E.TY2                                                   TYPE      186
            77  0400000113 +                      EQ     TYP12                                                   TYPE      187
                                                                                                                 TYPE      188
           100  0100000000 X             TYP8     WARN   B7                                                      FC5A338    31
                                                                                                                 FC50972    24
           101  5110000173 +             TYP8.1   SA1    TYPE                                                    FC50972    25
                          43701                   MX7    1                                                       TYPE      191
                               12771              BX7    X7+X1       INDICATE THIS TYPE NOT USED                 TYPE      192
           102  54710                             SA7    A1                                                      TYPE      193
                     0400000113 +                 EQ     TYP12                                                   TYPE      194
                                                                                                                 FC5A225    26
           103  15327                    TYP9     BX3    -X7*X2                                                  FC5A339    11
                     15447                        BX4    -X7*X4                                                  FC5A225    28
                          37343                   IX3    X4-X3                                                   FC5A339    12
           104  0313000107 +                      NZ     X3,TYP9.1   IF NOT CONFIRMING TYPE                      FC5A339    13
                          0326000113 +            PL     X6,TYP12    IF NOT PREVIOUSLY TYPED                     FC50515     6
           105  7234777771                        SX3    X4-M.CHAR                                               FC50972    26
                          0303000113 +            ZR     X3,TYP12    IF TYPE CHARACTER                           FC50972    27
           106  6170000000 X                      SB7    E.TY1       **PREVIOUSLY TYPED                          FC50515     7
                          0400000100 +            EQ     TYP8        OUTPUT DIAGNOSTIC                           FC50515     8
                                                                                                                 FC50515     9
           107  6170000000 X             TYP9.1   FATAL  E.TY8       **CANT CHANGE TYPE OF PARAMETER             FC50515    10
           110  0400000113 +                      EQ     TYP12                                                   FC5A225    32
                                                                                                                 TYPE      195
           111  10744                    TYP10    BX7    X4          SET TYPE-DECL BIT AND MODE                  TYPE      196
                     43200                        MX2    0           *WC*                                        TYPE      197
                          0100000000 X            ADSYM  A1                                                      TYPE      198
           112  76771                             =X7    B7-WB.W+WC.W                                            TYPE      199
                     5170000173 +                 SA7    TYPE        SAVE *WC* INDEX                             TYPE      200
                                                                                                                 TYPE      201
                                        *         (X0) = SYMTAB ORDINAL OF TYPED ITEM                            FC5A339    14
                                                                                                                 FC5A339    15
           113  56141                    TYP12    SA1    B4+B1                                                   TYPE      202
                     6271777766                   SB7    X1-O.VAR                                                TYPE      203
                               73500              SX5    X0          REMEMBER (X5) = SYMTAB ORDINAL              TYPE      204
           114  0570000116 +                      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/05. 19.59.30.      PAGE     7
        EXPLICIT                                                      TYP 
  
           115  56141                             =A1    B4+1                                                    TYPE      207
                                                                                                                 FC5A338    32
           116  7221777740               TYP14    SX2    X1-O.(                                                  TYPE      208
                          0302000121 +            ZR     X2,TYP16    IF DIMENSIONED                              TYPE      209
           117  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
           121  5110000167 +             TYP16    SA1    TYPA                                                    FC5A257    11
                          7211777771              SX1    X1-M.CHAR                                               FC5A257    12
           122  0311000127 +                      NZ     X1,TYP17    IF NOT TYPE CHARACTER                       FC5A257    13
                          5110000000 X            SA1    T.SYM                                                   FC5A257    14
           123  5120000173 +                      SA2    TYPE        *WC* INDEX                                  FC5A257    15
                          43023                   MX0    WC.CLIFL                                                FC5A257    16
                               63220              SB2    X2                                                      FC5A257    17
           124  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
           125  5160000174 +                      SA6    TYPF        SAVE ACROSS DIR CALL                        FC5A257    22
                          15620                   BX6    -X0*X2      CLEAR WC.CLIF                               FC5A257    23
                               20136              LX1    WC.CLENP                                                FC5A257    24
           126  12661                             BX6    X6+X1       DUMMY LENGTH 1 (FOR ERROR RECOVERY)         FC5A257    25
                     54620                        SA6    A2                                                      FC5A257    26
                                                                                                                 FC5A257    27
           127  0100000000 X             TYP17    CALL   DIR         PROCESS DIMENSIONED VARIABLE                FC5A257    28
           130  5110000167 +                      SA1    TYPA                                                    FC5A257    29
                          7211777771              SX1    X1-M.CHAR                                               FC5A257    30
           131  0311000135 +                      NZ     X1,TYP18    IF NOT TYPE CHARACTER                       FC5A257    31
                          5110000000 X            SA1    T.SYM                                                   FC5A257    32
           132  5120000173 +                      SA2    TYPE        *WC* INDEX                                  FC5A257    33
                          43023                   MX0    WC.CLIFL                                                FC5A257    34
                               63220              SB2    X2                                                      FC5A257    35
           133  20060                             LX0    WC.CLIFL+WC.CLIFP                                       FC5A257    36
                     53212                        SA2    X1+B2       *WC*                                        FC5A257    37
                          15620                   BX6    -X0*X2      CLEAR TEMPORARY LENGTH                      FC5A257    38
           134  5110000174 +                      SA1    TYPF        SAVED LENGTH INFORMATION                    FC5A257    39
                          12661                   BX6    X6+X1                                                   FC5A257    40
                               54620              SA6    A2          RESTORE                                     FC5A257    41
                                                                                                                 TYPE      215
           135  5110000167 +             TYP18    SA1    TYPA                                                    TYPE      216
                          6144000001              SB4    B4+1                                                    TYPE      217
           136  7211777771                        SX1    X1-M.CHAR                                               TYPE      218
                          0311000157 +            NZ     X1,TYP20    IF NOT TYPE CHARACTER                       TYPE      219
           137  5110000171 +                      SA1    TYPC        FETCH DEFAULT CHARACTER LENGTH              TYPE      220
                          10611                   BX6    X1                                                      TYPE      221
           140  0100000327 +                      RJ     CCL         CHECK CHARACTER LENGTH                      FC5A257    42
           141  5110000173 +                      SA1    TYPE        FETCH *WC* INDEX                            TYPE      223
                          63710                   SB7    X1                                                      TYPE      225
           142  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
           143  20263                             HX2    WB.PARM                                                 FC5A225    34
                     10022                        BX0    X2          SAVE EXPOSED PARAMETER BIT                  FC50972    28
                          13764                   BX7    X6-X4                                                   FC5A225    36
           144  5120000405 +                      CLAS=  X2,WC,(CLIF)                                            FC5A225    37
                          11727                   BX7    X2*X7                                                   FC5A225    38
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      PAGE     8
        EXPLICIT                                                      TYP 
  
           145  0331000150 +                      MI     X1,TYP18.1  IF PREVIOUS CONFLICT NOTED                  FC50972    29
                          0320000153 +            PL     X0,TYP19    IF NOT SYMBOLIC CONSTANT                    FC50972    30
           146  6170000000 X                      SB7    E.TY1       ** CONFIRMING TYPE                          FC50972    31
                          0307000152 +            ZR     X7,TYP18.2  IF CONFIRMING TYPE                          FC50972    32
           147  6170000000 X                      SB7    E.TY8       ** NON CONFIRMING TYPE                      FC50972    33
                          0400000152 +            EQ     TYP18.2                                                 FC50972    34
                                                                                                                 FC50972    35
           150  0330000157 +             TYP18.1  MI     X0,TYP20    IF SYMBOLIC CONSTANT, ALREADY DIAGNOSED     FC50972    36
                          6170000000 X            SB7    E.TY1                                                   FC50972    37
           151  0307000152 +                      ZR     X7,TYP18.2  IF CONFIRMING TYPE                          FC50972    38
                          6170000000 X            SB7    E.TY10                                                  FC50972    39
                                                                                                                 FC50972    40
           152  0100000000 X             TYP18.2  FATAL  B7                                                      FC50972    41
                                                                                                                 FC5A225    41
           153  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
           154  0470000157 +                      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
           155  54720                             SA7    A2          UPDATE                                      TYPE      235
                     5110000000 X                 SA1    MOD                                                     TYPE      236
                               12761              BX7    X6+X1       MERGE IN CHARACTER LENGTH INFORMATION       TYPE      237
           156  54710                             SA7    A1                                                      TYPE      238
                                                                                                                 TYPE      239
           157  56140                    TYP20    SA1    B4                                                      TYPE      240
                     5140000167 +                 SA4    TYPA        RESTORE (X4) = TYPE CODE                    TYPE      241
                               64411              =B4    A1+1        POINT TO NEXT ITEM                          TYPE      242
           160  7221777735                        SX2    X1-O.COMMA                                              TYPE      243
                          0301000000 X            ZR     X1,FEC.RTN  IF *EOS*                                    TYPE      244
                                   0              ERRNZ  O.EOS                                                   TYPE      245
           161  0302000041 +                      ZR     X2,TYP5     IF *COMMA*                                  FC5A338    34
                          67441                   =B4    B4-1                                                    TYPE      247
           162  6170000000 X                      FATAL  E.TY        ISSUE NON-COMMA ERROR MESSAGE               TYPE      248
           163  66441                             =B4    B4+1                                                    TYPE      249
                     0400000000 X                 EQ     FEC.RTN                                                 TYPE      250
                                                                                                                 TYPE      254
           164  56140                    TYP26    SA1    B4          ATTEMPT TO RESUME SCAN                      TYPE      255
                     6271777735                   SB7    X1-O.COMMA                                              TYPE      256
           165  0470000157 +                      ZR     B7,TYP20    IF *COMMA*                                  TYPE      257
                          66441                   SB4    B4+B1                                                   TYPE      258
           166  0311000164 +                      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
           167                     1     TYPA     BSSENT 1           TEMP CELL FOR TYPE                          TYPE      263
           170  06251603241117160011     TYPB     CON    8LFUNCTION+O.VAR                                        TYPE      264
           171                     1     TYPC     BSS    1           CHARACTER LENGTH (WC. FORMAT)               TYPE      265
           172  00000000000000000000     TYPD     CONENT 0           LETTERS SELECTED ON IMPLICIT STATEMENT      TYPE      266
           173                     1     TYPE     BSS    1           *WC* INDEX OF DECLARED SYMBOL               TYPE      267
           174                     1     TYPF     BSS    1           WC.CLIF SAVE ACROSS DIR CALL                FC5A257    43
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      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
           175                                    HEREIF IMPLICIT                                                TYPE      280
                                                                                                                 TYPE      281
           175  0100000364 +             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
           176  56540                             SA5    B4                                                      TYPE      287
                     54351                        SA3    A5+B1                                                   TYPE      288
                          6275777740              SB7    X5-O.(                                                  TYPE      289
           177  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
           200  20622                             LX6    WC.CLENL                                                TYPE      293
                     5160000171 +                 SA6    TYPC        SAVE CHARACTER LENGTH                       TYPE      294
                               66441              =B4    B4+1                                                    TYPE      295
           201  20636                             LX6    WC.CLENP                                                TYPE      296
                     20636                        SBIT   X6,WC.CTYPP                                             TYPE      297
                          0326000204 +            PL     X6,IMP1     IF NOT ASSUMED LENGTH                       TYPE      298
           202  6170000000 X                      FATAL  E.TYI9                                                  TYPE      299
           203  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
           204  73630                    IMP1     SX6    X3                                                      TYPE      307
                     13636                        BX6    X3-X6                                                   TYPE      308
                          6223777766              SB2    X3-O.VAR                                                TYPE      309
           205  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
           206  20066                             LX0    -CHAR                                                   TYPE      313
                     0520000000 X                 NZ     B2,E.TYI2   LETTER IS REQUIRED                          TYPE      314
                               11106              BX1    X0*X6                                                   TYPE      315
           207  56241                             =A2    B4+1                                                    TYPE      316
                     66441                        =B4    B4+1                                                    TYPE      317
                          0301000213 +            ZR     X1,IMP3     IF SINGLE CHARACTER ONLY                    TYPE      318
           210  43506                             MX5    CHAR                                                    TYPE      319
                     5110000000 X                 SA1    FILL.                                                   TYPE      320
                               11615              BX6    X1*X5                                                   TYPE      321
           211  5160000000 X                      SA6    FILL.3                                                  TYPE      322
                          6170000000 X            WARN   E.TYI3                                                  TYPE      323
                                                                                                                 FC5A257    44
           213  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/05. 19.59.30.      PAGE    10
        IMPLICIT                                                      IMP 
  
                               13555              BX5    0                                                       TYPE      326
           214  0570000230 +                      NZ     B7,IMP10    IF NOT A RANGE                              TYPE      327
                          56541                   =A5    B4+1                                                    TYPE      328
                               66441              =B4    B4+1                                                    TYPE      329
           215  73650                             SX6    X5                                                      TYPE      330
                     13656                        BX6    X5-X6                                                   TYPE      331
                          6225777766              SB2    X5-O.VAR                                                TYPE      332
           216  11105                             BX1    X0*X5                                                   TYPE      333
                     5160000000 X                 SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE             TYPE      334
           217  0520000000 X                      NZ     B2,E.TYI2   LETTER IS REQUIRED                          TYPE      335
                          21566                   AX5    -CHAR                                                   TYPE      336
           220  0301000223 +                      ZR     X1,IMP5     IF SINGLE CHARACTER                         TYPE      337
                          5110000000 X            SA1    FILL.                                                   TYPE      338
           221  43006                             MX0    CHAR                                                    TYPE      339
                     11601                        BX6    X0*X1                                                   TYPE      340
                          5160000000 X            SA6    FILL.3                                                  TYPE      341
           222  6170000000 X                      WARN   E.TYI3                                                  TYPE      342
                                                                                                                 FC5A257    45
           223  37553                    IMP5     IX5    X5-X3                                                   TYPE      343
                     56241                        =A2    B4+1                                                    TYPE      344
                          66441                   =B4    B4+1                                                    TYPE      345
           224  0315000226 +                      NZ     X5,IMP7                                                 TYPE      346
                          6170000000 X            WARN   E.TYI5      LAST = FIRST, WARN                          TYPE      347
                                                                                                                 FC5A257    46
           226  0325000230 +             IMP7     PL     X5,IMP10                                                TYPE      348
                          13555                   BX5    0           TRUNCATE RANGE TO 1ST LETTER ONLY           TYPE      349
           227  6170000000 X                      FATAL  E.TYI4      LAST .GT. FIRST                             TYPE      350
                                                                                                                 FC5A257    47
           230  43001                    IMP10    MX0    1                                                       TYPE      351
                     63750                        SB7    X5                                                      TYPE      352
                          6233777703              SB3    X3-60                                                   TYPE      353
           231  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
           232  12707                             BX7    X0+X7       ACCUMULATE MASK FOR THIS TYPE               TYPE      357
                     6272777737                   SB7    X2-O.)                                                  TYPE      358
                               56341              =A3    B4+1                                                    TYPE      359
           233  66441                             =B4    B4+1                                                    TYPE      360
                     0420000204 +                 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
           234  6120000006                        SB2    N.TYPE-1                                                TYPE      371
                          5110000172 +            SA1    TYPD                                                    TYPE      372
           235  12617                             BX6    X1+X7       SET SELECTED LETTERS                        TYPE      373
                     11571                        BX5    X7*X1                                                   TYPE      374
                          54610                   SA6    A1                                                      TYPE      375
           236  0305000241 +                      ZR     X5,IMP15    IF LETTERS NOT PREVIOUSLY MENTIONED         TYPE      376
                          66370                   SB3    B7          SAVE B7                                     TYPE      377
           237  6170000000 X                      WARN   E.TYI8                                                  TYPE      378
           240  66730                             SB7    B3          RESTORE B7                                  TYPE      379
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      PAGE    11
        IMPLICIT                                                      IMP 
  
                     13775                        BX7    X7-X5       REMOVE BAD LETTERS                          TYPE      380
                                                                                                                 FC5A257    48
           241  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
           242  54610                             SA6    A1                                                      TYPE      384
                     0620000241 +                 PL     B2,IMP15    LOOP THROUGH ALL TYPES                      TYPE      385
           243  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
           244  7244777771                        SX4    X4-M.CHAR                                               TYPE      390
                          0314000257 +            NZ     X4,IMP19    IF NOT TYPE CHARACTER                       TYPE      391
           245  5110000171 +                      SA1    TYPC                                                    TYPE      392
                          6120000033              SB2    26+1                                                    TYPE      393
           246  66300                             =B3    0                                                       TYPE      394
                     63610                        SB6    X1                                                      TYPE      395
                                                                                                                 FC5A257    49
           247  0327000255 +             IMP16    PL     X7,IMP18    IF LETTER NOT SELECTED                      TYPE      396
                          7123777776              SX2    B3-1                                                    TYPE      397
           250  43036                             MX0    30                                                      TYPE      398
                     20273                        LX2    -1                                                      TYPE      399
                          76660                   SX6    B6                                                      TYPE      400
           251  5252000000 X                      SA5    X2+NAT.LEN  FETCH CHARACTER LENGTH PAIR                 TYPE      401
                          0332000254 +            MI     X2,IMP17    IF LOWER HALF                               TYPE      402
           252  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
           253  0400000255 +                      EQ     IMP18                                                   TYPE      407
                                                                                                                 TYPE      408
           254  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
           255  67221                    IMP18    =B2    B2-1                                                    TYPE      413
                     66331                        =B3    B3+1                                                    TYPE      414
                          20701                   LX7    1                                                       TYPE      415
           256  0520000247 +                      NZ     B2,IMP16    IF MORE TO CHECK                            TYPE      416
                                                                                                                 TYPE      417
           257  0570000000 X             IMP19    NZ     B7,E.TYI6   IF MISSING ENDING *)*                       TYPE      418
                          6233777735              SB3    X3-O.COMMA                                              TYPE      419
           260  66441                             =B4    B4+1                                                    TYPE      420
                     0303000263 +                 ZR     X3,IMP20    IF *EOS*                                    TYPE      421
           261  0430000175 +                      ZR     B3,IMP      IF MORE TYPES TO SET                        TYPE      422
                          64430                   SB4    A3                                                      TYPE      423
           262  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
           263  5130000000 X             IMP20    SA3    MOD                                                     TYPE      431
                          5110000000 X            SA1    IDENT                                                   TYPE      432
           264  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/05. 19.59.30.      PAGE    12
        IMPLICIT                                                      IMP 
  
           265  0323000276 +                      PL     X3,IMP25    IF NOT FUNCTION SUBPROGRAM                  TYPE      436
                          20304                   SBIT   X3,MO.TYPP/MO.FUNP                                      TYPE      437
           266  0333000276 +                      MI     X3,IMP25    IF EXPLICITLY TYPED                         TYPE      438
                          10611                   BX6    X1                                                      TYPE      439
                               20310              LX3    MO.TYPP+1   RESTORE X3                                  TYPE      440
           267  0100000000 X                      RJ     STY         GET (NEW) IMPLICIT TYPE                     TYPE      441
           270  20214                             HX2    WC.CLEN                                                 TYPE      442
                     20222                        LX2    WC.CLENL                                                TYPE      443
                          63320                   SB3    X2          SAVE CHARACTER LENGTH                       TYPE      444
           271  5120000000 X                      SA2    S=ENTRY                                                 TYPE      445
                          63220                   SB2    X2                                                      TYPE      446
                               76622              SX6    B2+B2                                                   TYPE      447
           272  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
           273  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
           274  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
           275  54630                             SA6    A3          UPDATE (MOD)                                TYPE      461
                                                                                                                 TYPE      462
           276  5120000000 X             IMP25    SA2    T=FPI                                                   TYPE      463
                          0302000306 +            ZR     X2,IMP30    IF NO FORMAL PARAMETERS                     FC5A225    43
           277  5110000000 X                      SA1    T.FPI                                                   TYPE      465
                          43352                   MX3    -FP.PNTL                                                TYPE      466
                               53410              SA4    X1          INITIALIZE (T.FPI) FETCH                    TYPE      467
           300  63350                             =B3    X5+WA.W                                                 TYPE      468
                     63620                        SB6    X2          (B6) = NUMBER OF FORMALS                    TYPE      469
                                                                                                                 TYPE      470
                                         IMP27    LX4    -FP.PNTP                                                TYPE      471
           301  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
           302  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
           303  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
           304  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
           305  0706000301 +                      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/05. 19.59.30.      PAGE    13
        IMPLICIT                                                      IMP 
  
                                        *         AFFECTED BY THE CURRENT IMPLICIT STATEMENT ARE DIAGNOSED.      FC5A225    46
                                                                                                                 FC5A225    47
           306  5110000000 X             IMP30    SA1    PARAMC      PARAMETER (SYMBOLIC CONSTANT) COUNT         FC5A225    48
                          0301000000 X            ZR     X1,FEC.RTN  IF NONE                                     FC5A225    49
           307  5150000000 X                      SA5    T.SYM                                                   FC5A225    50
                          5120000000 X            SA2    T=SYM                                                   FC5A225    51
           310  6222000001                        SB2    X2+WB.W                                                 FC5A225    52
                          63310                   SB3    X1          PARAMETER COUNT                             FC5A225    53
                               43071              MX0    -WB.MODEL                                               FC5A225    54
                                                                                                                 FC5A225    55
           311  6122777774               IMP31    SB2    B2-Z=SYM                                                FC5A225    56
                          0430000000 X            ZR     B3,FEC.RTN  IF ALL PARAMETERS CHECKED                   FC5A225    57
           312  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
           313  20470                             SBIT   X4,WB.LABP                                              FC5A225    64
                     0334000311 +                 MI     X4,IMP31    IF STATEMENT LABEL                          FC5A225    65
                               20467              SBIT   X4,WB.PARMP/WB.LABP                                     FC5A225    66
           314  0324000311 +                      PL     X4,IMP31    IF NOT PARAMETER                            FC5A225    67
                          55141                   =A1    A4-WB.W+WA.W                                            FC5A225    68
                               67331              =B3    B3-1                                                    FC5A225    69
           315  43652                             MX6    WA.SYML                                                 FC5A225    70
                     11661                        BX6    X6*X1                                                   FC5A225    71
                          5160000000 X            SA6    FILL.                                                   FC5A225    72
           316  0100000000 X                      CALL   STY         CHECK IMPLICIT TYPE                         FC5A225    73
           317  73116                             SX1    X1+B6                                                   FC5A225    74
                     0301000311 +                 ZR     X1,IMP31    IF TYPE NOT MODIFIED                        FC5A225    75
           320  6170000000 X                      FATAL  E.TY8                                                   FC5A225    76
           321  0400000311 +                      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
           322                           IMP.ER   BSSENT 0           ...RETURN FROM ERROR PROCESSING             TYPE      502
           322  56141                             SA1    B4+B1                                                   TYPE      503
                     66441                        SB4    B4+B1                                                   TYPE      504
                          6221777737              SB2    X1-O.)                                                  TYPE      505
           323  0301000263 +                      ZR     X1,IMP20    IF *EOS*                                    TYPE      506
                          0520000322 +            NZ     B2,IMP.ER   IF NO RPAREN                                TYPE      507
           324  56141                             SA1    B4+B1                                                   TYPE      508
                     66441                        SB4    B4+B1                                                   TYPE      509
                          6221777735              SB2    X1-O.COMMA                                              TYPE      510
           325  0301000263 +                      ZR     X1,IMP20    IF *EOS*                                    TYPE      511
                          0520000322 +            NZ     B2,IMP.ER   IF NO COMMA                                 TYPE      512
           326  66441                             SB4    B4+B1       FOUND  COMMA FOLLOWED BY COMMA              TYPE      513
                     0400000175 +                 EQ     IMP         TRY ANOTHER KEYWORD                         TYPE      514
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      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
           327  0400400327 +             CCL      SUBR               ENTRY/EXIT                                  TYPE      537
           330  5114000000                        SA1    B4+                                                     FC50592     6
                          6271777761              SB7    X1-O.STAR                                               TYPE      539
           331  0570000327 +                      NZ     B7,EXIT.    IF NO CHARACTER LENGTH SPECIFICATION        TYPE      540
                          56141                   =A1    B4+1                                                    TYPE      541
                               66441              =B4    B4+1                                                    TYPE      542
           332  6231777740                        SB3    X1-O.LP                                                 TYPE      543
                          6221777772              SB2    X1-O.CONS                                               TYPE      544
           333  0430000343 +                      ZR     B3,CCL2     IF *(*                                      TYPE      545
                          6170000000 X            SB7    E.TY3                                                   TYPE      546
           334  0520000357 +                      NZ     B2,CCL4     IF NOT CONSTANT                             TYPE      547
                          7160000001              SX6    PM=ICE      INDICATE 3D0 NOT CONSTANT                   FC5A156    11
           335  5160000000 X                      SA6    PARNOW                                                  TYPE      549
                          0100000000 X            CALL   DEC                                                     TYPE      550
           336  7211777775                        SX1    X1-M.INT                                                TYPE      551
                          6170000000 X            SB7    E.TY3                                                   TYPE      552
           337  0311000357 +                      NZ     X1,CCL4     IF NOT INTEGER                              TYPE      553
                          6170000000 X            SB7    E.TY6                                                   TYPE      554
           340  0306000357 +                      ZR     X6,CCL4     IF ZERO                                     TYPE      555
                          7226677777              SX2    X6-MAX.CL-1                                             TYPE      556
           341  6170000000 X                      SB7    E.TY4                                                   TYPE      557
                          0322000357 +            PL     X2,CCL4     IF LENGTH SPECIFIER TOO LARGE               TYPE      558
           342  20636                             LX6    WC.CLENP                                                TYPE      559
                     66441                        =B4    B4+1                                                    TYPE      560
                          0400000327 +            EQ     EXIT.                                                   TYPE      561
                                                                                                                 TYPE      562
           343  56141                    CCL2     =A1    B4+1                                                    TYPE      563
                     66441                        =B4    B4+1                                                    TYPE      564
                          6221777761              SB2    X1-O.STAR                                               TYPE      565
           344  0520000350 +                      NZ     B2,CCL3     IF NOT ASSUMED LENGTH                       TYPE      566
                          43601                   CLAS=  X6,WC,(CTYP)                                            TYPE      567
           345  56141                             =A1    B4+1                                                    TYPE      568
                     66441                        =B4    B4+1                                                    TYPE      569
                          6221777737              SB2    X1-O.RP                                                 TYPE      570
           346  66441                             =B4    B4+1                                                    TYPE      571
                     0420000327 +                 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/05. 19.59.30.      PAGE    15
        SUBROUTINES                                                   CCL 
  
           347  0400000000 X                      EQ     E.TY5                                                   TYPE      574
                                                                                                                 TYPE      575
           350  0100000000 X             CCL3     CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           TYPE      576
           351  56140                             SA1    B4                                                      TYPE      577
                     6221777737                   SB2    X1-O.RP                                                 TYPE      578
           352  0520000000 X                      NZ     B2,E.TY5    IF NOT RIGHT PAREN FOLLOWING LENGTH         TYPE      579
                          6170000000 X            SB7    E.TY3                                                   TYPE      580
           353  0336000357 +                      MI     X6,CCL4     IF NEGATIVE CONSTANT                        TYPE      581
                          6170000000 X            SB7    E.TY6                                                   TYPE      582
           354  0306000357 +                      ZR     X6,CCL4     IF ZERO                                     TYPE      583
                          7226677777              SX2    X6-MAX.CL-1                                             TYPE      584
           355  6170000000 X                      SB7    E.TY4                                                   TYPE      585
                          66441                   SB4    B4+B1       ADVANCE TB POINTER TO SEPARATOR             TYPE      586
                               20636              LX6    WC.CLENP                                                TYPE      587
           356  0332000327 +                      MI     X2,EXIT.    IF LENGTH SPECIFIER NOT TOO LARGE           TYPE      588
                                                                                                                 TYPE      589
           357  0100000000 X             CCL4     FATAL  B7                                                      TYPE      590
           360  5114000000                        SA1    B4+                                                     FC50592     7
                          76610                   =X6    1           DEFAULT LENGTH                              TYPE      591
                               20636              LX6    WC.CLENP                                                TYPE      592
           361  0301000327 +                      ZR     X1,EXIT.    IF *EOS*                                    FC50592     8
                          6271777735              SB7    X1-O.COMMA                                              FC50592     9
           362  0470000327 +                      ZR     B7,EXIT.    IF *,*                                      FC50592    10
                          6144000001              SB4    B4+1                                                    FC50592    11
           363  0400000327 +                      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
           364  0400400364 +             CSK      SUBR               ** ENTRY/EXIT **                            TYPE      655
           365  6160000375 +                      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
           366  0100000000 X                      CALL   CAK         CHECK FOR AND ADJUST KEYWORD                TYPE      658
           367  0470000000 X                      ZR     B7,E.TYI    IF NO SUB-KEYWORD                           TYPE      659
                          0770000000 X            MI     B7,E.TYI    IF MISSPELLED KEYWORD                       TYPE      660
           370  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
           371  7274777771                        SX7    X4-M.CHAR                                               TYPE      677
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      PAGE    16
        SUBROUTINES                                                   CSK 
  
                          0317000364 +            NZ     X7,EXIT.    IF NOT CHARACTER                            TYPE      678
           372  43701                             MX7    1                                                       TYPE      679
                     5170000000 X                 SA7    CHARDCL                                                 TYPE      680
                               76610              =X6    1           DEFAULT CHARACTER LENGTH                    TYPE      681
           373  20636                             LX6    WC.CLENP                                                TYPE      682
                     0100000327 +                 RJ     CCL         CHECK CHARACTER LENGTH                      FC5A257    50
           374  7140000006                        =X4    M.CHAR      RESTORE (X4) = CHAR                         TYPE      684
                          0400000364 +            EQ     EXIT.                                                   TYPE      685
  
  
  
  
                                        **        FW.TYSK - *TYPE/IMPLICIT* SUB-KEYWORD TABLE.                   TYPE      690
                                        *                                                                        TYPE      691
                                        *                                                                        TYPE      692
                                                                                                                 TYPE      693
           375                           FW.TYSK  BSS    0           FWA OF *IMPLICIT* SUB-KEYWORD TABLE         TYPE      694
           375  00000000000052000406 +            SUBKEY BOOLEAN,M.BOOL                                          TYPE      695
           376  00000600000066000407 +            SUBKEY CHARACTER,M.CHAR                                        TYPE      696
           377  00000500000052000411 +            SUBKEY COMPLEX,M.CPLX                                          TYPE      697
           400  00000400000132000412 +            SUBKEY DOUBLEPRECISION,M.DBL                                   FC5A126    38
           401  00000200000052000415 +            SUBKEY INTEGER,M.INT                                           TYPE      699
           402  00000100000052000416 +            SUBKEY LOGICAL,M.LOG                                           TYPE      700
           403  00000300000030000417 +            SUBKEY REAL,M.REAL                                             TYPE      701
                                   7     L.TYSK   =      *-FW.TYSK                                               TYPE      702
  
  
  
  
                                                  LIST   D                                                       TYPE      704
  
                                        CONTENT OF LITERALS BLOCK.
  
           404  00000000000000000000
           405  00007777774000000000      ;;;5
           406  02171714050116000000    BOOLEAN 
           407  03100122010324000000    CHARACT 
           410  05220000000000000000    ER
           411  03171520140530000000    COMPLEX 
           412  04172502140520000000    DOUBLEP 
           413  22050311231117000000    RECISIO 
           414  16000000000000000000    N 
           415  11162405070522000000    INTEGER 
           416  14170711030114000000    LOGICAL 
           417  22050114000000000000    REAL
  
           420                                    END                                                            TYPE      705
  
                             74200B CM  STORAGE USED             2106 STATEMENTS     1471 SYMBOLS      000014 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.728 SECONDS         595 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/05. 19.59.30.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        CAK             0   EXTERNAL*       2/05 X   15/50
        CCL           327   PROGRAM*        3/41      7/47     14/21 L   16/06
        CCL2          343   PROGRAM*       14/29     14/47 L
        CCL3          350   PROGRAM*       14/50     15/03 L
        CCL4          357   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           364   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    4/18
        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       375   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           175   PROGRAM*        9/13 L   11/44     13/55
        IMP1          204   PROGRAM*        9/29      9/38 L   10/39
        IMP10         230   PROGRAM*       10/02     10/25     10/29 L
        IMP15         241   PROGRAM*       10/54     11/03 L   11/07
        IMP16         247   PROGRAM*       11/18 L   11/38
        IMP17         254   PROGRAM*       11/24     11/31 L
        IMP18         255   PROGRAM*       11/18     11/29     11/35 L
        IMP19         257   PROGRAM*       11/12     11/40 L
        IMP20         263   PROGRAM*       11/43     11/53 L   13/47     13/52
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/05. 19.59.30.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        IMP25         276   PROGRAM*       12/01     12/03     12/28 L
        IMP27         301   PROGRAM*       12/36 L   12/55
        IMP3          213   PROGRAM*        9/49      9/56 L
        IMP30         306   PROGRAM*       12/29     13/03 L
        IMP31         311   PROGRAM*       13/11 L   13/20     13/22     13/30     13/32
        IMP5          223   PROGRAM*       10/12     10/19 L
        IMP7          226   PROGRAM*       10/22     10/25 L
        IMP.ER        322   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       175   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/05. 19.59.30.      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            1   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          167   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          170   PROGRAM*        4/25      8/48 L
        TYPC          171   PROGRAM*        3/42 S    4/31      7/45      8/49 L    9/25 S   11/13
        TYPD          172   PROGRAM*        8/50 L    8/50 E   10/50
        TYPE          173   PROGRAM*        5/13 S    6/26      6/49 S    7/13      7/31      7/48      8/51 L
        TYPF          174   PROGRAM*        7/20 S    7/37      8/52 L
        TYP1           26   PROGRAM*        4/30      4/34 L
        TYP10         111   PROGRAM*        5/11      6/45 L
        TYP12         113   PROGRAM*        5/47      6/15      6/22      6/36      6/43
                                            6/05      6/20      6/30      6/38      6/53 L
        TYP14         116   PROGRAM*        6/56      7/03 L
        TYP16         121   PROGRAM*        7/04      7/09 L
        TYP17         127   PROGRAM*        7/11      7/26 L
        TYP18         135   PROGRAM*        7/07      7/29      7/41 L
        TYP18.1       150   PROGRAM*        8/01      8/08 L
        TYP18.2       152   PROGRAM*        8/04      8/06      8/10      8/13 L
        TYP19         153   PROGRAM*        8/02      8/15 L
        TYP2           33   PROGRAM*        4/28      4/44 L
        TYP20         157   PROGRAM*        7/44      8/08      8/19      8/27 L    8/41
        TYP26         164   PROGRAM*        8/39 L    8/43
        TYP4           36   PROGRAM*        4/20      4/49 L
        TYP5           41   PROGRAM*        4/57 L    8/33
        TYP5.1         56   PROGRAM*        5/21      5/32 L
        TYP6           65   PROGRAM*        5/50      5/54 L
        TYP7           67   PROGRAM*        5/34      6/07 L
        TYP7.1         74   PROGRAM*        6/13      6/17 L
        TYP8          100   PROGRAM*        5/26      5/29      5/52      6/24 L    6/40
        TYP8.1        101   PROGRAM*        5/30      6/26 L
        TYP9          103   PROGRAM*        5/19      6/32 L
        TYP9.1        107   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/05. 19.59.30.      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/05. 19.59.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/05. 19.59.31.      PAGE     2
                                                                      FMT 
  
                                        *         IN UTILITY                                                     FMT        26
                                                  EXT    CDD,MVE=                                                FMT        27
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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
           115  0770400115 +                      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
                          76670                   SX6    B7                                                      FC5A369    10
           116  5160000075 +                      SA6    FMTIDX                                                  FC5A369    11
                          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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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
  
                             74600B CM  STORAGE USED             6754 STATEMENTS     1627 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.484 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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.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/05. 19.59.31.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        TB.SHCP        52   FTX            13/42     13/47
        TB.TOCL        52   FTX            29/29
        TEST            1   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/05. 19.59.34.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2776              IDENT  IO 
                       2776                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2725 
                                        LITERALS* LOCAL        2725        51 
  
  
                                        ENTRY POINTS. 
  
                                        B=IO             0+           KW=ENCO        471+           C=ICIX        1370+ 
                                        IODIR            0+           IOJ            646+           A=ICL         1400+ 
                                        IONAM            6+           A=BMOD        1176+           C=ICL         1401+ 
                                        IODOLEN         10+           A=BLWA        1206+           C=IOL         1411+ 
                                        IODOIND         11+           BLWA          1260+           A=STR         1452+ 
                                        KW=BACK        125+           C=BFWA        1263+           A=UNT         1457+ 
                                        KW=CLOS        126+           C=CNT         1272+           C=UNT         1460+ 
                                        KW=ENDF        130+           A=FMT         1277+           CML           1464+ 
                                        KW=INQU        131+           C=FMT         1300+           VAI           1543+ 
                                        KW=OPEN        133+           C=FOU         1325+           LST           1620+ 
                                        KW=REWI        135+           A=FOU         1326+           CVL           1702+ 
                                        KW=PRIN        231+           A=ICC         1336+           IDCEX         2450+ 
                                        KW=PUNC        233+           C=ICC         1337+           A=DOCI        2556+ 
                                        KW=READ        236+           A=ICCX        1347+           C=DOCI        2557+ 
                                        KW=WRIT        242+           C=ICCX        1350+           A=DOCS        2570+ 
                                        KW=BUFF        410+           A=ICI         1356+           C=DOCS        2571+ 
                                        BUFERR         462+           C=ICI         1357+ 
                                        KW=DECO        467+           A=ICIX        1367+ 
  
  
                                        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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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
                          5110002760 +            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/05. 19.59.34.      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
                          5110002761 +            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
                          5110002762 +            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/05. 19.59.34.      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
                          5160001742 +            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  0100001531 +                      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/05. 19.59.34.      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
                          5160001742 +            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/05. 19.59.34.      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  5110002763 +             FPS3     SA1    ="FPLC"     KEYWORD LEGALITY MASK                       IO        376
                          0100001006 +            RJ     PKC         PROCESS KEYWORD CONTROL ITEMS               IO        377
           221  0100001531 +                      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/05. 19.59.34.      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  5150002764 +                      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  5150002765 +                      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/05. 19.59.34.      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  5150002766 +                      SA5    =0LINPUT                                                IO        476
                          7221777740              SX2    X1-O.(                                                  IO        477
           240  5110002767 +                      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
                          5110002770 +            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/05. 19.59.34.      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  0301001620 +                      ZR     X1,LST      IF NO LIST                                  FC50014     9
                          0570000000 X            NZ     B7,E.IO16   IF NO COMMA SEPARATOR                       FC50014    10
           257  0400001620 +                      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
                          5150002766 +            SA5    =0LINPUT                                                FC5A171A   23
           261  7176777777                        SX7    B6-S=INP                                                FC5A171A   24
                          0307000263 +            ZR     X7,PEC10    IF INPUT DIRECTION                          FC5A171A   25
           262  5150002764 +                      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/05. 19.59.34.      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/05. 19.59.34.      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
                          0400001620 +            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/05. 19.59.34.      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  0400001620 +                      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  0400001620 +                      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/05. 19.59.34.      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  0400001620 +                      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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
                          0400001632 +            EQ     LST.S       EXIT..  (TO PROCESS I/O LIST)               IO        878
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
                          5120002766 +            SA2    =0LINPUT                                                IO        911
           534  0301000535 +                      ZR     X1,CUD2     IF INPUT DIRECTION                          IO        912
                          5120002764 +            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/05. 19.59.34.      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  0100001543 +             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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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  5160001742 +                      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/05. 19.59.34.      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  5110001742 +                      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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
                     0100001522 +                 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/05. 19.59.34.      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/05. 19.59.34.      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  5120002771 +                      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  5160001530 +                      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/05. 19.59.34.      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
                          0100001522 +            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/05. 19.59.34.      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/05. 19.59.34.      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  5110002772 +                      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/05. 19.59.34.      PAGE    40
        SOURCE STATEMENT SUBROUTINES.                                 UDP 
  
                     5160000606 +                 =A6    CUDA+1      SET *WB* INDEX EXIT CONDITION               FC5A171A  271
          1156  5120002773 +                      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/05. 19.59.34.      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
                          0100001522 +            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  0100001543 +                      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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.34.      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  0100001522 +                      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  0100001543 +                      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
                          0100001522 +            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/05. 19.59.34.      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
                          0100001522 +            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/05. 19.59.34.      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  0100001522 +             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
          1325  0400401325 +                      EQ     "BLOWUP"    *FOUARM* IMPLIES NO ZERO LEVEL COMMAS       FC5A171A  321
                                                                                                                 FC5A171A  322
          1326                           A=FOU    BSSENT 0           ENTRY...                                    FC5A171A  323
          1326  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
          1327  0311001457 +                      NZ     X1,A=UNT    IF EXPRESSION MUST BE A UNIT DESIGNATOR     FC5A171A  329
                          13666                   SHRINK T=IOARG                                                 FC5A171A  330
                          5150000407 +            SA5    PECB                                                    FC5A171A  331
          1331  10655                             BX6    X5                                                      FC5A171A  332
                     76700                        =X7    M.BOOL                                                  FC5A171A  333
                          0100000000 X            CALL   NCS         ENTER DEFAULT UNIT DESIGNATOR IN CON TABLE  FC5A171A  334
          1332  5150000000 X                      SA5    CONONE                                                  FC5A171A  335
                          10466                   BX4    X6                                                      FC5A171A  336
          1333  5110000000 X                      EMIT   IOUNT,*,T.IOARG                                         FC5A171A  337
                                   0              ERRNZ  M.BOOL      MUST MERGE MODE INTO HEADER                 FC5A171A  338
          1335  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/05. 19.59.34.      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
          1336                           A=ICC    BSSENT 0                                                       IO       2004
          1336  6144777776                        SB4    B4-1                                                    IO       2005
                                                                                                                 FC50596     4
          1337                           C=ICC    BSSENT 0                                                       IO       2006
          1337  0100001516 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2007
          1340  43400                             MX4    0           INDICATE DEFINITIONAL OCCURRANCE            IO       2008
                     6130000000 X                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR           IO       2009
          1341  0100001543 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2010
          1342  6220777771                        SB2    X0-M.CHAR                                               IO       2011
                          0420000000 X            ZR     B2,PAREXIT  IF CHARACTER                                IO       2012
          1343  5110000006 X                      SA1    MOD.DPC+M.CHAR                                          IO       2013
                          22601                   LX6    X1                                                      IO       2014
          1344  5160000000 X                      SA6    FILL.3                                                  IO       2015
                          6170000000 X            FATAL  E.IO05                                                  IO       2016
          1346  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
          1347                           A=ICCX   BSSENT 0                                                       IO       2029
          1347  6144777776                        SB4    B4-1                                                    IO       2030
                                                                                                                 FC50596     5
          1350                           C=ICCX   BSSENT 0                                                       IO       2031
          1350  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
          1351  0470000000 X                      ZR     B7,PAREXIT  IF TYPE CHARACTER                           IO       2037
                          0100001516 +            RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2038
          1352  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/05. 19.59.34.      PAGE    48
        PARSER INTERFACE ROUTINES.                                    C=ICCX
  
          1353  5160000000 X                      SA6    FILL.3                                                  IO       2041
                          6170000000 X            FATAL  E.IO05                                                  IO       2042
          1355  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
          1356                           A=ICI    BSSENT 0                                                       IO       2056
          1356  6144777776                        SB4    B4-1                                                    IO       2057
                                                                                                                 FC50596     6
          1357                           C=ICI    BSSENT 0                                                       IO       2058
          1357  0100001516 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2059
          1360  43400                             MX4    0           INDICATE DEFINITIONAL OCCURRANCE            IO       2060
                     6130000000 X                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR           IO       2061
          1361  0100001543 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2062
          1362  6220777775                        SB2    X0-M.INT                                                IO       2063
                          0300000000 X            ZR     X0,PAREXIT  IF BOOLEAN                                  IO       2064
                                   0              ERRNZ  M.BOOL                                                  IO       2065
          1363  0420000000 X                      ZR     B2,PAREXIT  IF INTEGER                                  IO       2066
                          5110000002 X            SA1    MOD.DPC+M.INT                                           IO       2067
          1364  22601                             LX6    X1                                                      IO       2068
                     5160000000 X                 SA6    FILL.3                                                  IO       2069
          1365  6170000000 X                      FATAL  E.IO05                                                  IO       2070
          1366  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
          1367                           A=ICIX   BSSENT 0                                                       IO       2083
          1367  6144777776                        SB4    B4-1                                                    IO       2084
                                                                                                                 FC50596     7
          1370                           C=ICIX   BSSENT 0                                                       IO       2085
          1370  0100001516 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2086
          1371  22105                             LX1    X5                                                      IO       2087
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          IO       2088
          1372  0300001374 +                      ZR     X0,ICIX1    IF BOOLEAN                                  IO       2089
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    49
        PARSER INTERFACE ROUTINES.                                    C=ICIX
  
                                   0              ERRNZ  M.BOOL                                                  IO       2090
                          6270777775              SB7    X0-M.INT                                                IO       2091
          1373  0570000000 X                      NZ     B7,E.IO17   IF NOT INTEGER (OR BOOLEAN)                 IO       2092
                                                                                                                 FC50596     8
          1374  0420000000 X             ICIX1    ZR     B2,PAREXIT  IF NOT CONSTANT                             IO       2093
                          0336000000 X            MI     X6,E.IO17   IF NEGATIVE, ERROR                          IO       2095
          1375  0316000000 X                      NZ     X6,PAREXIT  IF NOT ZERO                                 FC50596     9
                          5110000000 X            SA1    FILL.                                                   FC50596    10
          1376  5120002736 +                      SA2    =4LBUFL                                                 FC50596    11
                          37212                   IX2    X1-X2                                                   FC50596    12
          1377  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
          1400                           A=ICL    BSSENT 0                                                       IO       2108
          1400  6144777776                        SB4    B4-1                                                    IO       2109
                                                                                                                 FC50596    15
          1401                           C=ICL    BSSENT 0                                                       IO       2110
          1401  0100001516 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2111
          1402  43400                             MX4    0           INDICATE DEFINITIONAL OCCURRANCE            IO       2112
                     6130000000 X                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR           IO       2113
          1403  0100001543 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2114
          1404  6220777776                        SB2    X0-M.LOG                                                IO       2115
                          0420000000 X            ZR     B2,PAREXIT  IF LOGICAL                                  IO       2116
          1405  5110000001 X                      SA1    MOD.DPC+M.LOG                                           IO       2117
                          22601                   LX6    X1                                                      IO       2118
          1406  5160000000 X                      SA6    FILL.3                                                  IO       2119
                          6170000000 X            FATAL  E.IO05                                                  IO       2120
          1410  0400000000 X                      EQ     PAREXIT                                                 IO       2121
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1411                           C=IOL    BSSENT 0           ENTRY...                                    IO       2130
          1411  0100002617 +                      RJ     PAX         PREPARE ARRAY CROSS-SECTION                 FC5A218    53
          1412  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        IO       2131
          1413  10155                             BX1    X5                                                      FC5A218    54
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          IO       2137
          1414  22005                             LX0    X5                                                      IO       2138
                     10455                        BX4    X5                                                      IO       2139
                          20070                   HX0    TP.EXPR                                                 IO       2140
          1415  5150000000 X                      SA5    CONONE                                                  IO       2141
                          0330001442 +            MI     X0,IOL30    IF ITEM IS EXPRESSION                       IO       2142
          1416  0520001442 +                      NZ     B2,IOL30    IF ITEM IS A CONSTANT                       IO       2143
                          20065                   LX0    TP.EXPRP-TP.INTRP                                       IO       2144
          1417  0320001423 +                      PL     X0,IOL10    IF ITEM NOT INTERMEDIATE                    IO       2145
                          20071                   LX0    TP.INTRP-TP.ARRP                                        IO       2146
          1420  0320001442 +                      PL     X0,IOL30    IF ITEM NOT SUBSCRIPTED ARRAY               IO       2147
                          5130000011 +            SA3    IODOIND                                                 IO       2148
          1421  0303001442 +                      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
          1422  54650                             SA6    A5                                                      IO       2172
                     55651                        =A6    A5-1        CLEAR COLLAPSE INDICATORS                   IO       2173
                          0400001442 +            EQ     IOL30                                                   IO       2174
                                                                                                                 IO       2175
          1423  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
          1424  63272                             SB2    B2+X7       CONVERT ORDINAL TO INDEX                    IO       2181
                                   0              ERRNZ  3-Z=SYM                                                 IO       2182
                     6122000001                   SB2    B2+WB.W                                                 IO       2183
          1425  5110000000 X                      SA1    T.SYM                                                   IO       2184
                          53212                   SA2    X1+B2       FETCH *WB* ENTRY                            IO       2185
                               22004              LX0    X4                                                      IO       2186
          1426  20261                             SBIT   X2,WB.ARYP                                              IO       2187
                     0322001442 +                 PL     X2,IOL30    IF NOT ARRAY                                IO       2188
                               20066              SBIT   X0,TP.AREP                                              IO       2189
          1427  0320001442 +                      PL     X0,IOL30    IF SINGLE ELEMENT                           IO       2190
                          20230                   SBIT   X2,WB.PNTP/WB.ARYP+1                                    IO       2191
          1430  5130000000 X                      SA3    T.DIM                                                   IO       2192
                          43057                   MX0    -WB.PNTL                                                IO       2193
                               15520              BX5    -X0*X2      ISOLATE T.DIM ORD                           IO       2194
          1431  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
          1432  15510                             BX5    -X0*X1      ARRAY LENGTH                                IO       2199
                     20524                        LX5    TP.BIASP                                                IO       2200
                          20137                   SBIT   X1,DH.ASP/DH.PSP-1                                      IO       2201
          1433  7120010002                        CLAS=  X2,TP,(SHRT),INT                                        IO       2202
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    51
        PARSER INTERFACE ROUTINES.                                    C=IOL 
  
                          12552                   BX5    X5+X2       MAKE INTO SHORT CONSTANT                    IO       2203
          1434  0321001437 +                      PL     X1,IOL20    IF NOT ASSUMED SIZE ARRAY                   IO       2204
                          6170000000 X            FATAL  E.IOL6                                                  IO       2205
          1436  0400000000 X                      EQ     C=ERR                                                   IO       2206
                                                                                                                 IO       2207
          1437  20173                    IOL20    SBIT   X1,DH.VDP/DH.ASP                                        IO       2208
                     0321001442 +                 PL     X1,IOL30    IF NOT ADJUSTABLY DIMENSIONED               IO       2209
          1440  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
          1442  5110000000 +             IOL30    SA1    IODIR                                                   FC5A141    68
                          5120000000 X            SA2    DATFLG                                                  FC5A141    69
          1443  0311001445 +                      NZ     X1,IOL40    IF NOT INPUT DIRECTION                      FC5A141    70
                          0312001445 +            NZ     X2,IOL40    IF DATA LIST                                FC5A141    71
          1444  0100001556 +                      RJ     AII         ADD INPUT ITEM TO T.ILI                     FC5A141    72
                                                                                                                 FC5A141    73
          1445  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
          1446  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
          1447  5110000000 X                      EMIT   IODTH,*,T.IOARG                                         IO       2227
          1451  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
          1452                           A=STR    BSSENT 0           ENTRY...                                    IO       2239
          1452  5140000000 +                      SA4    IODIR                                                   IO       2240
                          6130000000 X            SB3    E.IOS7      ** STRING ADDRESS CANNOT BE CONST/EXPR      IO       2241
          1453  0100001543 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2242
          1454  6220777771                        SB2    X0-M.CHAR                                               IO       2243
                          0420000000 X            ZR     B2,E.IOS10  IF TYPE CHARACTER                           IO       2244
          1455  7140000040                        SX4    IC.STR                                                  IO       2245
                          0100001522 +            RJ     OCT         OUTPUT CONTROL TURPLE                       IO       2246
          1456  0400000000 X                      EQ     PAREXIT                                                 IO       2247
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1457                           A=UNT    BSSENT                                                         IO       2254
          1457  6144777776                        SB4    B4-1                                                    IO       2255
          1460                           C=UNT    BSSENT                                                         IO       2256
          1460  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
          1461  5150001512 +             CML30    SA5    CMLA                                                    FC5A141    82
                          10655                   BX6    X5          RESTORE X6                                  FC5A141    83
                               54551              =A5    A5+1        RESTORE X5                                  FC5A141    84
          1462  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
          1463  20152                             LX1    -18                                                     FC5A141    89
                     63210                        SB2    X1          RESTORE B2                                  FC5A141    90
                                                                                                                 FC5A141    91
          1464  0400401464 +             CML      SUBR   =           ENTRY/EXIT...                               FC5A141    92
          1465  5110000000 X                      SA1    T=ILI                                                   FC5A141    93
                          0301001464 +            ZR     X1,EXIT.    IF TABLE EMPTY                              FC5A141    94
          1466  5160001512 +                      SA6    CMLA        PRESERVE X6                                 FC5A141    95
                          10755                   BX7    X5                                                      FC5A141    96
                               54761              =A7    A6+1        PRESERVE X5                                 FC5A141    97
          1467  43452                             MX4    -18                                                     FC5A141    98
                     76160                        SX1    B6                                                      FC5A141    99
                          15714                   BX7    -X4*X1                                                  FC5A141   100
                               76250              SX2    B5                                                      FC5A141   101
          1470  15224                             BX2    -X4*X2                                                  FC5A141   102
                     20222                        LX2    18                                                      FC5A141   103
                          12772                   BX7    X7+X2                                                   FC5A141   104
                               76220              SX2    B2                                                      FC5A141   105
          1471  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
          1472  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/05. 19.59.34.      PAGE    53
        PARSER INTERFACE ROUTINES.                                    CML 
  
                               15061              BX0    -X1*X6      X0 = SYMORD                                 FC5A141   113
          1473  0100000000 X                      CALL   CT1         GET EQV BIT INTO OPERAND                    FC5A141   114
          1474  10566                             BX5    X6          X5 = OPERAND                                FC5A141   115
                     0100000000 X                 CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A141   116
          1475  10044                             BX0    X4                                                      FC5A141   117
                     0100001607 +                 RJ     FII         FORMAT INPUT ITEM                           FC5A141   118
          1476  20572                             HX5    II.CHAR                                                 FC5A141   119
                     0335001461 +                 MI     X5,CML30    IF ITEM IS CHARACTER                        FC5A141   120
                               43054              MX0    -II.ORDL                                                FC5A141   121
          1477  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
          1500  15257                             BX2    -X7*X5      X2 = BIAS OF ITEM                           FC5A141   126
                     20524                        LX5    II.BIASP                                                FC5A141   127
                          5130000000 X            SA3    T=ILI                                                   FC5A141   128
          1501  5140000000 X                      SA4    T.ILI                                                   FC5A141   129
                          67201                   =B2    -1          B2 = LOOP COUNTER                           FC5A141   130
                               63530              =B5    X3          B5 = LOOP LIMIT                             FC5A141   131
          1502  63340                             SB3    X4          B3 = FWA OF TABLE                           FC5A141   132
                                                                                                                 FC5A141   133
          1503  66221                    CML10    =B2    B2+1                                                    FC5A141   134
                     0625001461 +                 GE     B2,B5,CML30 IF TABLE EXHAUSTED                          FC5A141   135
                               56332              SA3    B3+B2       X3 = TABLE ENTRY                            FC5A141   136
          1504  20320                             LX3    -II.ORDP                                                FC5A141   137
                     15430                        BX4    -X0*X3      X4 = ORDINAL OF ENTRY                       FC5A141   138
                          37441                   IX4    X4-X1                                                   FC5A141   139
          1505  0314001503 +                      NZ     X4,CML10    IF ORDINALS DONT MATCH                      FC5A141   140
                          20354                   LX3    II.ORDP                                                 FC5A141   141
                               12453              BX4    X5+X3                                                   FC5A141   142
          1506  20473                             HX4    II.ARY                                                  FC5A141   143
                     0334001510 +                 MI     X4,CML20    IF EITHER ONE IS AN INDEXED ARRAY           FC5A141   144
                               20350              LX3    -II.BIASP                                               FC5A141   145
          1507  15437                             BX4    -X7*X3      X4 = BIAS OF ENTRY                          FC5A141   146
                     37442                        IX4    X4-X2                                                   FC5A141   147
                          0314001503 +            NZ     X4,CML10    IF BIASES ARE NOT EQUAL                     FC5A141   148
                                                                                                                 FC5A141   149
                                        **        HERE IF WE NEED TO ISSUE APLIST INTERRUPT.                     FC5A141   150
                                                                                                                 FC5A141   151
          1510  76610                    CML20    =X6    1                                                       FC5A141   152
                     0100000646 +                 RJ     IOJ         ISSUE APLIST INTERRUPT                      FC5A141   153
          1511  0400001461 +                      EQ     CML30                                                   FC5A141   154
                                                                                                                 IO       2327
          1512                     1     CMLA     BSS    1           TEMPORARY FOR X6                            IO       2328
          1513                     1              BSS    1                         X5                            IO       2329
          1514                     1              BSS    1                         B2,B5,B6                      IO       2330
          1515                     1     CMLB     BSS    1           TEMP FOR ARRAY NAME                         IO       2331
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1516  0400401516 +             KWE      SUBR               ...ENTRY/EXIT...                            IO       2340
          1517  5110000634 +                      SA1    ICKA        FETCH THE KEYWORD                           IO       2341
                          54211                   =A2    A1+1                                                    IO       2342
                               10611              BX6    X1                                                      IO       2343
          1520  22702                             LX7    X2                                                      IO       2344
                     5160000000 X                 SA6    FILL.                                                   IO       2345
                               54761              =A7    A6+1                                                    IO       2346
          1521  0400001516 +                      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
          1522  0400401522 +             OCT      SUBR   0           ...ENTRY/EXIT...                            IO       2363
          1523  5110000000 X                      SA1    IOCTL                                                   IO       2364
                          20424                   LX4    TP.IOCP                                                 IO       2365
                               43071              MX0    -TP.MODEL                                               IO       2366
                                                  LX5    -TP.MODEP                                               IO       2367
          1524  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
          1525  5160001530 +                      SA6    OCTA                                                    IO       2372
                          5110000000 X            EMIT   OCTA,*,T.IOARG                                          IO       2373
          1527  0400001522 +                      EQ     EXIT.                                                   IO       2374
                                                                                                                 IO       2375
          1530                     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/05. 19.59.34.      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
          1531  0400401531 +             OST      SUBR               ...ENTRY/EXIT...                            FC5A143    24
          1532  5110000000 +                      SA1    IODIR       I/O DIRECTION                               FC5A143    25
                          0301001536 +            ZR     X1,OST1     IF INPUT                                    FC5A143    26
          1533  5110001002 +                      SA1    PKCA        FETCH DEFINED SPECIFIER MASK                FC5A143    27
                          7120000001              SX2    1                                                       FC5A143    28
          1534  20266                             LX2    59-IC.IOS                                               FC5A143    29
                     11012                        BX0    X1*X2                                                   FC5A143    30
                          0300001531 +            ZR     X0,EXIT.    IF IOSTAT= NOT SPECIFIED                    FC5A143    31
          1535  20202                             LX2    IC.IOS-IC.ERR                                           FC5A143    32
                     11012                        BX0    X1*X2                                                   FC5A143    33
                          0310001531 +            NZ     X0,EXIT.    IF ERR= SPECIFIED                           FC5A143    34
                                                                                                                 FC5A143    35
                                        *         EMIT DEFAULT SKIP LABEL.                                       FC5A143    36
                                                                                                                 FC5A143    37
          1536  7140000007               OST1     SX4    IC.SKP      1OP = CONTROL CODE                          FC5A143    38
                          5110000000 X            SA1    N.GL        NEXT GENERATED LABEL                        FC5A143    39
          1537  10611                             BX6    X1                                                      FC5A143    40
                     76210                        =X2    1                                                       FC5A143    41
                          73761                   =X7    X6+1                                                    FC5A143    42
                               20216              LX2    TP.GLP                                                  FC5A143    43
          1540  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
          1541  5160000004 +                      SA6    IOSKP                                                   FC5A143    48
                          0100001522 +            RJ     OCT         OUTPUT CONTROL TURPLE                       FC5A143    49
          1542  0400001531 +                      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/05. 19.59.34.      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
          1543  0400401543 +             VAI      SUBR   =           ENTRY/EXIT...                               FC5A218    55
          1544  0100000000 X                      CALL   DOA         DETERMINE OPERAND ADDRESSABILITY            IO       2401
          1545  66730                             SB7    B3                                                      IO       2402
                     0316001554 +                 NZ     X6,VAI8     IF INVALID STORE TARGET                     IO       2403
          1546  0314001543 +                      NZ     X4,EXIT.    IF NOT DEFINING OCCURANCE                   IO       2404
                          5110000015 +            SA1    LISTDIR                                                 IO       2405
          1547  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
                          0301001552 +            ZR     X1,VAI4     IF NOT LIST-DIRECTED OPERATION              IO       2410
          1551  20373                             LX3    -TP.IODP+TP.IOPP                                        IO       2411
                     12553                        BX5    X5+X3       ALSO MARK AS POTENTIAL DEFINITION           IO       2412
                                                                                                                 FC50718     8
          1552  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
          1553  0400001543 +                      EQ     EXIT.                                                   IO       2420
                                                                                                                 IO       2421
          1554  0100000000 X             VAI8     FATAL  B7                                                      IO       2422
          1555  6130777776                        SB3    -1                                                      IO       2423
                          0400001543 +            EQ     EXIT.                                                   IO       2424
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1556  0400401556 +             AII      SUBR               ENTRY/EXIT...                               FC5A141   165
          1557  10655                             BX6    X5                                                      FC5A248    21
                     5160000000 X                 SA6    AIIA        PRESERVE X5                                 FC5A141   173
                               10644              BX6    X4                                                      FC5A141   174
          1560  54661                             =A6    A6+1        PRESERVE X4                                 FC5A141   175
                     10544                        BX5    X4                                                      FC5A141   176
                          20661                   HX6    TP.INTR                                                 FC5A141   177
          1561  0336001567 +                      MI     X6,AII20    IF INTERMEDIATE OPERAND                     FC5A141   178
                          43054                   MX0    -TP.ORDL                                                FC5A141   179
                               20633              LX6    1+TP.INTRP-TP.ORDP                                      FC5A141   180
          1562  15060                             BX0    -X0*X6      X0 = ORDINAL                                FC5A141   181
                     0100000000 X                 CALL   CT1         COPY EQV BIT INTO OPERAND                   FC5A141   182
          1563  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
          1564  5110000000 X                      SA1    CONONE                                                  FC5A248    22
                          5120000000 X            SA2    AIIA                                                    FC5A248    23
          1565  76010                             =X0    1                                                       FC5A248    24
                     13212                        BX2    X1-X2                                                   FC5A248    25
                          0301001577 +            ZR     X1,AII30    IF NOT INDEXED ARRAY                        FC5A248    26
          1566  7100000000                        SX0    0                                                       FC5A248    27
                          0400001577 +            EQ     AII30                                                   FC5A141   187
                                                                                                                 FC5A141   188
          1567  0100000000 X             AII20    CALL   DOA                                                     FC5A141   189
          1570  0316001603 +                      NZ     X6,AII35    IF NOT ADDRESSABLE                          FC5A218    56
                          75021                   =X0    A2-1                                                    FC5A141   192
          1571  5110000000 X                      SA1    T.SYM                                                   FC5A141   193
                          37001                   IX0    X0-X1                                                   FC5A141   194
          1572  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
          1575  20354                             LX3    TP.ORDP                                                 FC5A141   200
                     7110001000                   CLAS=  X1,WB,(EQV)                                             FC5A141   201
                               11112              BX1    X1*X2       EXTRACT EQV BIT FROM *WB*                   FC5A141   202
          1576  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
          1577  0100000000 X             AII30    CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A141   208
          1600  0100001607 +                      RJ     FII         FORMAT INPUT LIST ITEM                      FC5A141   209
          1601  10655                             BX6    X5          X6 = FORMATTED ITEM                         FC5A141   210
                     5110000000 X                 ADDWD  T.ILI                                                   FC5A141   211
                                                                                                                 FC5A218    57
          1603  5150000001 X             AII35    SA5    AIIA+1      ARRAY OPERAND                               FC5A218    58
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    58
        I/O LIST PROCESSING.                                          AII 
  
                          43400                   MX4    0           WE ARE DEFINING IT                          FC5A218    59
          1604  6130000000 X                      SB3    E.IOL2      **CON/EXPR IN IO LIST                       FC5A218    60
                          0100001543 +            RJ     VAI         VALIDATE ADDRESSABILITY                     FC5A218    61
          1605  10455                             BX4    X5          UPDATED OPERAND                             FC5A218    62
                     5150000000 X                 SA5    AIIA        RESTORE X5                                  FC5A141   212
          1606  0400001556 +                      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
          1607  0400401607 +             FII      SUBR               ENTRY/EXIT...                               FC5A141   230
          1610  5120000000 X                      SA2    T.SYM                                                   FC5A141   231
                          5110002774 +            CLAS=  X1,TP,(ORD,BIAS)                                        FC5A141   232
          1611  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
          1612  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
          1613  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
          1614  7222777771                        SX2    X2-M.CHAR                                               FC5A141   247
                          43100                   MX1    0                                                       FC5A141   248
          1615  0312001616 +                      NZ     X2,FII10    IF NOT CHARACTER                            FC5A141   249
                          76111                   LDBIT  X1,II.CHARP                                             FC5A141   250
                                                                                                                 FC5A141   251
          1616  12551                    FII10    BX5    X5+X1                                                   FC5A141   252
                     0310001607 +                 NZ     X0,EXIT.    IF NOT INDEXED ARRAY                        FC5A141   253
                               76110              LDBIT  X1,II.ARYP                                              FC5A141   254
          1617  12551                             BX5    X5+X1                                                   FC5A141   255
                     0400001607 +                 EQ     EXIT.                                                   FC5A141   256
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1620                           LST      BSSENT 0           ENTRY...                                    IO       2446
          1620                           LST1     BSS    0                                                       IO       2447
          1620  56240                             SA2    B4                                                      IO       2448
                     0302001631 +                 ZR     X2,LST3     IF NO I/O LIST                              IO       2449
          1621  6272777735                        SB7    X2-O.COMMA                                              FC50014    12
                          56141                   =A1    B4+1                                                    IO       2450
                               54211              =A2    A1+1                                                    IO       2451
          1622  5130000015 +                      SA3    LISTDIR                                                 IO       2452
                          7211777735              SX1    X1-O.COMMA                                              IO       2453
          1623  0311001631 +                      NZ     X1,LST3     IF NOT EXTRANEOUS COMMA                     IO       2454
                          0303001627 +            ZR     X3,LST2     IF NOT LIST DIRECTED I/O                    IO       2455
          1624  5130000000 +                      SA3    IODIR                                                   FC50014    13
                          0303001627 +            ZR     X3,LST2     IF INPUT                                    FC50014    14
          1625  66441                             =B4    B4+1                                                    FC50014    15
                     0470001627 +                 ZR     B7,LST2     IF *,,*                                     FC50014    16
          1626  0302001631 +                      ZR     X2,LST3     IF COMMA TERMINATED LIST DIRECTED OUTPUT    FC50014    17
                                                                                                                 FC50014    18
          1627  6170000000 X             LST2     FATAL  E.IO02                                                  FC50014    19
          1630  0400000000 X                      EQ     PSL                                                     FC50014    20
                                                                                                                 IO       2460
          1631  0100001531 +             LST3     RJ     OST         OUTPUT SKIP TURPLE                          FC5A143    51
                                                                                                                 IO       2486
          1632                           LST.S    BSS    0           **** ENTRY FOR ENCODE/DECODE ****           IO       2487
          1632  5110000001 +                      SA1    IOARGT                                                  IO       2488
                          54211                   =A2    A1-IOARGT+IOREF                                         IO       2489
                               10611              BX6    X1          SET DIRECTION INTO ARG MODE                 IO       2490
          1633  22702                             LX7    X2                                                      IO       2491
                     5160000000 X                 SA6    ARGMODE                                                 IO       2492
                               76660              SX6    B6                                                      IO       2493
          1634  5170000000 X                      SA7    REFVAR                                                  IO       2494
                          0760001670 +            MI     B6,LST.N    IF NAMELIST OPERATION                       IO       2495
          1635  14666                             BX6    -X6         INDICATE NO I/O CALLS YET                   IO       2496
                     5160000006 +                 SA6    IONAM                                                   IO       2497
          1636  6130000016 +                      SB3    S.IOCALL                                                IO       2498
                          66663                   SB6    B6+B3       ADDRESS OF I/O NAME                         IO       2499
                               56160              TAGSEX B6                                                      IO       2500
          1640  5110000000 X                      SA1    T=BLST                                                  FC5A232     9
                          22601                   LX6    X1                                                      FC5A232    10
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    60
        I/O LIST PROCESSING.                                          LST 
  
          1641  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
          1642  5120000000 X                      SA2    IODTA                                                   IO       2512
                          7170000044              SX7    O.SLP                                                   IO       2513
          1643  7160000000                        SX6    PM=EXPR                                                 IO       2514
                          57741                   SA7    B4-B1       INSTALL O.SLP BEFORE LIST                   IO       2515
          1644  0100001702 +                      RJ     CVL         COMPILE VARIABLE LIST                       FC5A232    12
          1645  57141                             SA1    B4-B1                                                   IO       2518
                     5130000015 +                 SA3    LISTDIR                                                 IO       2519
          1646  7211777735                        SX1    X1-O.COMMA                                              IO       2520
                          5140000000 +            SA4    IODIR                                                   IO       2521
          1647  0311001662 +                      NZ     X1,LST10    IF *EOS* NOT PRECEDED BY *,*                IO       2522
                          0303001661 +            ZR     X3,LST9     IF NOT LIST DIRECTED I/O                    IO       2523
          1650  0304001661 +                      ZR     X4,LST9     IF INPUT DIRECTION                          IO       2524
                          6170000000 X            ANSI   E.IOL1      ** I/O LIST ENDING WITH *,* NON-ANSI        FC50643     7
          1652  5110000000 X                      SA1    IODTA       FETCH TURPLE HEADER PROTOTYPE               IO       2525
                          7170000007              SX7    7           FUNNY MODE FOR LIBRARY                      IO       2526
          1653  20722                             LX7    SP.MODEP                                                FC50104    68
                     12717                        BX7    X1+X7                                                   IO       2528
                          5170000003 +            SA7    IODTH                                                   IO       2529
          1654  7140000007                        SX4    7           FUNNY MODE FOR LIBRARY                      IO       2530
                                                  LX4    TP.MODEP                                                FC5A165     4
                          5110000000 X            SA1    CONZER                                                  FC5A165     5
          1655  12441                             BX4    X4+X1       1OP = ZERO W/MODE=7                         FC5A165     6
                     5150000000 X                 SA5    CONONE      2OP = LENGTH = 1                            FC5A165     7
          1656  5110000000 X                      EMIT   IODTH,*,T.IOARG                                         IO       2532
          1660  0400001662 +                      EQ     LST10                                                   IO       2533
                                                                                                                 IO       2534
          1661  6170000000 X             LST9     FATAL  E.IOL5      ** TRAILING COMMA NFG                       IO       2535
                                                                                                                 FC50643     8
          1662                           LST10    BSS                                                            IO       2536
          1662  13666                             BX6    0                                                       IO       2537
                     0100000646 +                 RJ     IOJ         COMPILE TERMINAL CALL                       IO       2538
          1663  5140000004 +                      SA4    IOSKP                                                   IO       2539
                          0304001666 +            ZR     X4,LST11    IF NO SKIP LABEL                            IO       2540
          1664  76500                             =X5    0           2OP = NULL                                  IO       2541
                     6130400000 X                 EMIT   OPBSS,*                                                 IO       2542
                                                                                                                 FC50643     9
          1666                           LST11    BSS                                                            IO       2543
          1666  0100000000 X                      CALL   OIL         OUTPUT IL                                   IO       2544
          1667  0400000000 X                      EQ     PSL                                                     IO       2545
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1670  6170000000 X             LST.N    ANSI   E.ION1                                                  IO       2553
          1671  5110000000 +                      SA1    IODIR                                                   IO       2554
                          56540                   SA5    B4                                                      IO       2555
                               23211              AX2    X1,B1       DIRECTION / 2                               IO       2556
          1672  6160000052 +                      SB6    S.NLST                                                  IO       2557
                          63626                   SB6    B6+X2       ADJUST FOR I/O DIRECTION                    IO       2558
                               56160              TAGSEX B6                                                      IO       2559
          1674  6130000016 +                      SB3    S.IOCALL                                                IO       2561
                          77636                   SX6    B3-B6       NEGATIVE INDICATES INITIAL CALL             IO       2562
          1675  5160000006 +                      SA6    IONAM                                                   IO       2563
                          0305001662 +            ZR     X5,LST10    IF *EOS* -- EXIT OK                         IO       2564
          1676  6235777737                        SB3    X5-O.)                                                  IO       2565
                          0530001700 +            NZ     B3,LST.N1   IF NOT *RP*                                 IO       2566
          1677  5154000001                        SA5    B4+1                                                    IO       2567
                          0305001662 +            ZR     X5,LST10    IF *EOS* -- EXIT OK                         IO       2568
          1700  6170000000 X             LST.N1   WARN   E.ION                                                   IO       2569
          1701  0400001662 +                      EQ     LST10                                                   IO       2570
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1702  0400401702 +             CVL      SUBR   =           ENTRY/EXIT...                               IO       2595
          1703  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
          1704  5140000000 X                      SA4    T=BLST                                                  IO       2596
                          10722                   BX7    X2          SAVE CALLER'S TURPLE HEADER                 IO       2597
                               56340              SA3    B4                                                      IO       2598
          1705  5170001743 +                      SA7    CVLTH                                                   IO       2599
                          10744                   BX7    X4          REMEMBER ORIGINAL DEPTH OF BLOCK-STRUCTURES IO       2600
                               56241              =A2    B4+1                                                    IO       2601
          1706  5160001742 +                      SA6    CVLPM       SAVE CALLER'S PARSE MODE                    IO       2602
                          5170000010 +            SA7    IODOLEN                                                 IO       2603
          1707  0303001702 +                      ZR     X3,EXIT.    IF EMPTY LIST                               FC50014    21
                          0302001740 +            ZR     X2,CVL10    IF PRINT *,                                 FC50014    22
          1710  10711                             BX7    X1                                                      IO       2605
                     76640                        SX6    B4                                                      IO       2606
                          5170001741 +            SA7    CVLAM                                                   IO       2607
          1711  5170000000 X                      SA7    ARGMODE                                                 IO       2608
                          5160000007 +            SA6    IODOCOL     INITIALIZE POINTER                          IO       2609
          1712  0100002524 +                      RJ     IOD         MARK DO LOOPS                               IO       2610
          1713  5140000000 X                      SA4    DATFLG                                                  FC5A218    63
                          0314001716 +            NZ     X4,CVL1     IF *DATA*                                   FC5A218    64
          1714  13666                             SHRINK T=IOLC                                                  FC5A218    65
          1715  5160002503 +                      SA6    TL=LCI                                                  FC5A218    66
                                                                                                                 FC5A218    67
          1716  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/05. 19.59.34.      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
          1717  56241                    CVL.N    =A2    B4+1        FETCH ELEMENT                               IO       2635
                     5110000000 X                 SA1    T=PAR                                                   FC50413     6
                               10611              BX6    X1                                                      FC50413     7
          1720  6144000001                        SB4    B4+1                                                    FC50413     8
                          5160000000 X            SA6    CURST       RESET TO INHIBIT SQUEEZE                    FC50413     9
          1721  6272777730                        SB7    X2-O.DOBI                                               IO       2637
                          0302001733 +            ZR     X2,CVL8     IF END OF LIST                              IO       2638
          1722  0770001730 +                      MI     B7,CVL4     IF SIMPLE LIST                              IO       2639
                          0277001723 +            JP     B7+*+1                                                  IO       2640
                                                                                                                 IO       2641
      L     47                                    LOC    O.DOBI                                                  IO       2642
      L     47  0400002017 +             O.DOBI   EQ     DOB         DO BEGIN                                    IO       2643
      L     50  0400002040 +             O.DOCI   EQ     DOC         DO CONCLUSION                               IO       2644
      L     51  0400001744 +             O.DCBI   EQ     DCB         DO COLLAPSE BEGIN                           IO       2645
      L     52  0400002015 +             O.DCCI   EQ     DCC         DO COLLAPSE CONCLUSION                      IO       2646
                                                  IFEQ   TEST,ON,1                                               IO       2647
      L     53  0400401727 +                      EQ     "BLOWUP"    ERROR                                       IO       2648
          1730                                    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
          1730  5110001742 +             CVL4     SA1    CVLPM                                                   IO       2658
                          10611                   BX6    X1                                                      IO       2659
          1731  5160000000 X                      SA6    PARMODE                                                 IO       2660
                          0100000000 X            CALL   PAR         PARSE SIMPLE LIST                           IO       2661
          1732  66441                             =B4    B4+1                                                    IO       2662
                     0400001717 +                 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
          1733                           CVL8     BSS                                                            IO       2670
          1733  5130000010 +                      SA3    IODOLEN                                                 IO       2671
                          5120000000 X            SA2    T=BLST                                                  IO       2672
          1734  67441                             =B4    B4-1        B4 _ O.EOS TOKEN                            FC5A165     8
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          1735  0300001702 +                      ZR     X0,EXIT.    IF ALL DO-S BALANCED                        IO       2676
                          5160000000 X            SHRINK T=BLST,X6   RESET STRUCTURES TABLE                      IO       2677
          1736  6170000000 X                      FATAL  E.IO14      ** UN-TERMINATED IMPLIED LOOPS              IO       2678
          1737  0400001702 +                      EQ     EXIT.                                                   IO       2679
                                                                                                                 FC50014    23
          1740  6144000001               CVL10    SB4    B4+1                                                    FC50014    24
                          0400001702 +            EQ     EXIT.                                                   FC50014    25
                                                                                                                 IO       2680
          1741                     1     CVLAM    BSS    1           SAVE CALLER'S ARGUMENT MODE                 IO       2681
          1742                     1     CVLPM    BSS    1           SAVE CALLER'S PARSE MODE                    IO       2682
          1743                     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
          1744                           DCB      BSS    0           ...ENTRY                                    IO       2697
          1744  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
          1745  5145000003                        =A4    B5+DC=VAR   FETCH VARIABLE COLLAPSE MULTIPLIER          IO       2703
                          0304002005 +            ZR     X4,DCB2     IF COLLAPSE NOT VARIABLE                    IO       2704
                                                                                                                 IO       2705
                                        *         THE LAST LIMIT WAS VARIABLE, MUST OUTPUT MULTIPLY TURPLE       IO       2706
                                                                                                                 IO       2707
          1746  22004                             LX0    X4                                                      IO       2708
                     0100000000 X                 CALL   CT1         GET TP. FORMAT                              IO       2709
          1747  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
          1750  0320001756 +                      PL     X0,DCB03    IF NOT SHORT CONSTANT                       FC50620    21
                          20520                   HX5    TP.BIAS                                                 FC50620    22
                               21544              AX5    -TP.BIASL   ISOLATE CONSTANT                            FC50620    23
          1751  7265777776                        SX6    X5-1        BIAS BY -1                                  FC50620    24
                          0306001766 +            ZR     X6,DCB09    IF INITIAL=1                                FC50620    25
          1752  76711                             =X7    M.INT                                                   FC50620    26
                     0100000000 X                 CALL   NCS         FORM CONSTANT                               FC50620    27
          1753  10566                             BX5    X6                                                      FC50620    28
                     6130030000 X                 EMIT   V=SUB.I,BOTH   SUBTRACT INITIAL FROM LIMIT              FC50620    29
          1755  0400001763 +                      EQ     DCB06                                                   FC50620    30
                                                                                                                 FC50620    31
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    65
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DCB 
  
          1756  6130030000 X             DCB03    EMIT   V=SUB.I,BOTH   SUBTRACT INITIAL FROM LIMIT              FC50620    32
          1757  5110000000 X                      SA1    T=PAR                                                   FC50620    33
                          7261777774              SX6    X1-Z=TURP                                               FC50620    34
          1760  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620    35
                          20654                   LX6    TP.ORDP                                                 FC50620    36
                               12462              BX4    X6+X2       FORM INDIRECT OPERAND                       FC50620    37
          1761  5150000000 X                      SA5    CONONE      GET CONSTANT ONE                            FC50620    38
                          6130030000 X            EMIT   V=ADD.I,BOTH    ADD ONE                                 FC50620    39
                                                                                                                 FC50620    40
          1763  5110000000 X             DCB06    SA1    T=PAR                                                   FC50620    41
                          7261777774              SX6    X1-Z=TURP                                               FC50620    42
          1764  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620    43
                          20654                   LX6    TP.ORDP                                                 FC50620    44
                               12662              BX6    X6+X2       FORM INDIRECT OPERAND                       FC50620    45
          1765  10466                             BX4    X6                                                      FC50620    46
                                                                                                                 FC50620    47
          1766  5155000002               DCB09    =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         FC50620    48
                          10644                   BX6    X4                                                      FC50620    49
          1767  7225777776                        =X2    X5-1                                                    IO       2711
                          0312001771 +            NZ     X2,DCB1     IF SIZE .NE. 1                              IO       2712
          1770  5160000012 +                      SA6    IODOIND+1   THE VARIABLE MULTIPLIER WILL BE SIZE        IO       2713
                          0400002007 +            EQ     DCB3                                                    IO       2714
                                                                                                                 IO       2715
          1771  5110000000 X             DCB1     SA1    WO.DOOT     GET TRIP COUNT                              FC50620    50
                          0301001777 +            ZR     X1,DCB15    IF ZERO TRIP DO                             FC50620    51
          1772  5150000000 X                      SA5    CONONE      GET CONSTANT ONE                            FC50620    52
                          6130030000 X            EMIT   V=MAX0,BOTH   GUARANTEE ONE TRIP                        FC50620    53
          1774  5110000000 X                      SA1    T=PAR                                                   FC50620    54
                          7261777774              SX6    X1-Z=TURP                                               FC50620    55
          1775  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620    56
                          20654                   LX6    TP.ORDP                                                 FC50620    57
                               12426              BX4    X2+X6       FORM INDIRECT OPERAND                       FC50620    58
          1776  5155000002                        =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         FC50620    59
                                                                                                                 FC50620    60
          1777  10655                    DCB15    BX6    X5                                                      FC50620    61
                     76711                        =X7    M.INT                                                   IO       2717
                          0100000000 X            CALL   NCS                                                     IO       2718
          2000  22506                             LX5    X6                                                      IO       2719
                     6130030000 X                 EMIT   V=MUL.I,BOTH                                            IO       2720
          2002  5110000000 X                      SA1    T=PAR                                                   IO       2721
                          7261777774              SX6    X1-Z=TURP                                               IO       2722
          2003  7120002000                        CLAS=  X2,TP,(INTR)                                            IO       2723
                          20654                   LX6    TP.ORDP                                                 IO       2724
                               12662              BX6    X6+X2       MAKE INTERMEDIATE OPERAND                   IO       2725
          2004  5160000012 +                      SA6    IODOIND+1   SAVE AS SIZE OPERAND                        IO       2726
                          0400002007 +            EQ     DCB3                                                    IO       2727
                                                                                                                 IO       2728
          2005  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
          2007  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/05. 19.59.34.      PAGE    66
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DCB 
  
                                   0              ERRNZ  18-TB.TOTL                                              IO       2744
          2010  0520001717 +                      NZ     B2,CVL.N                                                IO       2745
                          66441                   =B4    B4+1                                                    IO       2746
                               20130              HX1    TB.IBCC                                                 IO       2747
          2011  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
          2012  21152                             AX1    -TB.ICIXL   EXTRACT INDEX TO CONTROL INDEX              FC5A211    16
                     5251002504 +                 SA5    X1+IDCIDX                                               FC5A211    17
          2013  6130030000 X                      EMIT   V=STR.I,BOTH                                            IO       2755
          2014  0400002007 +                      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
          2015                           DCC      BSS    0           ...ENTRY                                    IO       2770
          2015  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
          2016  0400001717 +                      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
          2017                           DOB      BSS    0           ENTRY                                       IO       2789
          2017  0100002053 +                      RJ     IDC         PROCESS I/O IMPLIED DO COLLAPSE             IO       2790
          2020  0470002023 +                      ZR     B7,DOB1     IF LOOP NOT COMPLETLY COLLAPSED             FC5A271     7
                          0670002035 +            PL     B7,DOB8     IF COMPLETE COLLAPSE                        FC5A271     8
          2021  7160000001                        SX6    1                                                       FC5A271     9
                          0100000646 +            RJ     IOJ         INTERRUPT LIST                              FC5A271    10
          2022  0400002035 +                      EQ     DOB8                                                    FC5A271    11
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    67
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DOB 
  
                                                                                                                 FC5A271    12
          2023  7160000001               DOB1     SX6    1                                                       FC5A271    13
                          0100000646 +            RJ     IOJ         INTERRUPT LIST                              IO       2793
          2024  56240                             SA2    B4                                                      IO       2794
                     5110000000 X                 SA1    N.GL                                                    IO       2795
                               21222              AX2    TB.IOIXP    ISOLATE LINK TO DO-INDEX                    IO       2796
          2025  73220                             SX2    X2          ADDRESS OF INDEX                            IO       2797
                     7170000041                   =X7    O.=                                                     IO       2798
                               73611              =X6    X1+1        UPDATE PROGRAM TAG                          IO       2799
          2026  76040                             SX0    B4                                                      IO       2800
                     53721                        =A7    X2+1                                                    IO       2801
                          54610                   SA6    A1                                                      IO       2802
                               20052              LX0    -18                                                     IO       2803
          2027  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
          2030  5170002037 +                      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
          2031  7100000050                        =X0    O.DOCI                                                  IO       2815
                          5130002037 +            SA3    DOBA                                                    IO       2816
          2032  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
          2033  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
          2034  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
          2035  5110001741 +             DOB8     SA1    CVLAM                                                   IO       2835
                          10611                   BX6    X1          RESET PARSER ARGUMENT MODE                  IO       2836
          2036  5160000000 X                      SA6    ARGMODE                                                 IO       2837
                          0400001717 +            EQ     CVL.N       EXIT..                                      IO       2838
                                                                                                                 IO       2839
          2037                     1     DOBA     BSS    1           TEMP                                        IO       2840
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          2040                           DOC      BSS    0           ENTRY                                       IO       2856
          2040  7160000001                        SX6    1                                                       IO       2857
                          0100000646 +            RJ     IOJ         INTERRUPT LIST                              IO       2858
          2041  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
          2042  56240                    DOC2     SA2    B4                                                      IO       2862
                     6222777737                   SB2    X2-O.)                                                  IO       2863
          2043  0520002045 +                      NZ     B2,DOC4     IF NO REDUNDANT PAREN                       IO       2864
                          66441                   =B4    B4+1        SKIP REDUNDANT PAREN                        IO       2865
          2044  0400002042 +                      EQ     DOC2                                                    IO       2866
                                                                                                                 IO       2867
          2045  21322                    DOC4     AX3    18                                                      IO       2868
                     73230                        SX2    X3          ISOLATE TP.ORDL OF THIS DO                  IO       2869
                          0333002047 +            MI     X3,DOC6     IF ERROR IN DO-DEFINITION                   IO       2870
          2046  0100000000 X                      CALL   PDT         PROCESS DO TERMINATION (PASS 1)             IO       2871
                                                                                                                 IO       2872
          2047  56141                    DOC6     SA1    B4+B1                                                   IO       2873
                     56141                        =A1    B4+1                                                    IO       2874
                          0311001717 +            NZ     X1,CVL.N    IF NOT EOS                                  IO       2875
          2050  56240                             =A2    B4                                                      IO       2876
                     7222777735                   SX2    X2-O.COMMA                                              IO       2877
          2051  0312001717 +                      NZ     X2,CVL.N    IF EOS, CHECK PRECEEDING ELEMENT            IO       2878
                          66441                   =B4    B4+1                                                    IO       2879
          2052  0400001717 +                      EQ     CVL.N       EXIT..                                      IO       2880
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          2053  0400402053 +             IDC      SUBR               ...ENTRY/EXIT...                            IO       2913
          2054  5110000000 X                      SA1    DATFLG                                                  IO       2914
                          7211777772              SX1    X1-PM=DATA                                              IO       2915
          2055  0301002057 +                      ZR     X1,IDC5     IF *DATA* CALLING                           IO       2916
                          5110000000 X            SA1    CO.DBSB                                                 IO       2917
          2056  0331002053 +                      MI     X1,EXIT.    IF ARRAY BOUNDS CHECKING ON                 IO       2918
                                                                                                                 IO       2919
          2057  66700                    IDC5     =B7    0                                                       IO       2920
                     5110000007 +                 SA1    IODOCOL                                                 IO       2921
                               56240              SA2    B4          FETCH THE I/O DO-BEGIN TOKEN                IO       2922
          2060  20206                             HX2    TB.IOCP                                                 IO       2923
                     21252                        AX2    -TB.IOCPL   ISOLATE CLOSING RIGHT PAREN POINTER         IO       2924
                          37121                   IX1    X2-X1                                                   IO       2925
          2061  0331002053 +                      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
          2062  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
          2063  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
          2064  0530002066 +                      NZ     B3,IDC15    IF NOT DO BEGIN TOKEN                       IO       2939
                          66661                   =B6    B6+1        INCREMENT NESTING LEVEL                     IO       2940
          2065  0756002053 +                      GT     B6,B5,EXIT. IF TOO MANY LEVELS OF NESTING               IO       2941
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    70
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                          0400002063 +            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
          2066  6133000036               IDC15    =B3    B3+O.DOBI-O.VAR                                         IO       2949
                          0530002053 +            NZ     B3,EXIT.    IF NOT VARIABLE                             IO       2950
          2067  43052                             MX0    TB.TOCL                                                 IO       2951
                     11604                        BX6    X0*X4       ISOLATE ARRAY NAME                          IO       2952
                          0100000000 X            CALL   SSY                                                     IO       2953
          2070  0670002072 +                      PL     B7,IDC20    IF IN SYMBOL TABLE                          IO       2954
                          66700                   =B7    0                                                       IO       2955
          2071  0400002053 +                      EQ     EXIT.       CANT BE ARRAY                               IO       2956
                                                                                                                 IO       2957
          2072  20261                    IDC20    SBIT   X2,WB.ARYP                                              IO       2958
                     66700                        =B7    0                                                       IO       2959
                          0322002053 +            PL     X2,EXIT.    IF NOT ARRAY                                IO       2960
          2073  0100000000 X                      CALL   CT1         MAKE TAG                                    IO       2961
          2074  5160002461 +                      SA6    IDCA        SAVE                                        IO       2962
                          22506                   LX5    X6                                                      FC5A256     6
                               10422              BX4    X2          PRESERVE ACCROSS BBC                        FC5A256     7
          2075  0100000000 X                      CALL   BBC         BASE/BIAS CONVERT ARRAY                     FC5A256     8
          2076  22204                             LX2    X4          RESTORE                                     FC5A256     9
                     10655                        BX6    X5                                                      FC5A256    10
                          5160002476 +            SA6    IDCM        SAVE                                        FC5A256    11
          2077  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
          2100  15220                             BX2    -X0*X2      ISOLATE T.DIM POINTER                       IO       2968
                     5110000000 X                 SA1    T.DIM                                                   IO       2969
                               63220              SB2    X2                                                      IO       2970
          2101  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
          2102  0333002053 +                      MI     X3,EXIT.    IF NESTING LEVEL EXCEEDS DIMENSIONALITY     IO       2975
                          76721                   =X7    B2+1        POINT PAST THE HEADER ENTRY                 IO       2976
          2103  5170002462 +                      SA7    IDCB        SAVE POINTER TO FIRST DIMENSION             IO       2977
                          54441                   =A4    A4+1        ADVANCE PAST ARRAY NAME                     IO       2978
          2104  6224777740                        SB2    X4-O.(                                                  IO       2979
                          0520002053 +            NZ     B2,EXIT.    IF NOT SUBSCRIPTED ARRAY                    IO       2980
          2105  5160002463 +                      SA6    IDCC        SAVE NESTING LEVEL                          IO       2981
                          76740                   SX7    B4                                                      IO       2982
                               10622              BX6    X2                                                      IO       2983
          2106  5170002464 +                      SA7    IDCD        SAVE POINTER TO INITIAL DO-BEGIN            IO       2984
                          5160002467 +            SA6    IDCG        SAVE DIMENSIONALITY                         IO       2985
          2107  5110000000 X                      SA1    T=PAR                                                   IO       2986
                          5120000000 X            SA2    T=REF                                                   FC50464    12
          2110  22601                             LX6    X1                                                      IO       2987
                     10722                        BX7    X2                                                      FC50464    13
                          5160002472 +            SA6    IDCJ        SAVE LENGTH OF PARSE FILE FOR RESET         IO       2988
          2111  5170002477 +                      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/05. 19.59.34.      PAGE    71
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2112  10611                             BX6    X1                                                      FC50464    16
                     5160002500 +                 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
          2113  43600                             MX6    0           INITIALIZE SUBSCRIPT COUNT                  IO       2998
                     5110000000 X                 SA1    DOCOLS                                                  IO       2999
          2114  5160002465 +                      SA6    IDCE                                                    IO       3000
                          0100002715 +            RJ     PCI         PARSE COLLAPSE SUBSCRIPTS                   IO       3001
          2115  5110002472 +                      SA1    IDCJ        T.PAR UPON ENTRY                            IO       3002
                          5120002465 +            SA2    IDCE        NUMBER OF SUBSCRIPTS                        FC5A214     7
          2116  10611                             SHRINK T=PAR,X1                                                IO       3003
                               66441              =B4    B4+1        ADVANCE POINTER                             IO       3004
          2117  5130002467 +                      SA3    IDCG        ARRAY DIMENSIONALITY                        FC5A214     8
                          37223                   IX2    X2-X3                                                   FC5A214     9
          2120  0312002450 +                      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
          2121  5160002470 +                      SA6    IDCH        SAVE INDEX                                  IO       3010
                          66300                   =B3    0           INITIALIZE INDEX INTO IDCIDX                IO       3011
                               76710              =X7    1                                                       IO       3012
          2122  5170002471 +                      SA7    IDCI        INITIALIZE COLLAPSE MULTIPLIER              IO       3013
                                                                                                                 IO       3014
                                        *         PROCESS INDEX                                                  IO       3015
                                                                                                                 IO       3016
          2123  5143002504 +             IDC30    SA4    B3+IDCIDX                                               FC5A211    19
                          0334002450 +            MI     X4,IDCEX    IF COLLAPSE INVALID FOR THIS LEVEL          FC5A211    20
          2124  56140                             SA1    B4                                                      IO       3019
                     6221777735                   SB2    X1-O.COMMA                                              IO       3020
          2125  0520002450 +                      NZ     B2,IDCEX    IF NOT INDEX SEPERATOR                      IO       3021
                          56141                   =A1    B4+1                                                    IO       3022
                               66441              =B4    B4+1                                                    IO       3023
          2126  6221777766                        SB2    X1-O.VAR                                                IO       3024
                          0520002450 +            NZ     B2,IDCEX    IF NOT AN INDEX                             IO       3025
          2127  43652                             MX6    TB.TOCL                                                 IO       3026
                     11661                        BX6    X6*X1       NAME ONLY                                   IO       3027
                          5160000000 X            SA6    FILL.                                                   FC5A211    21
          2130  0100000000 X                      CALL   SSY                                                     IO       3028
          2131  0770002450 +                      MI     B7,IDCEX    IF NOT IN SYMBOL TABLE, NOT A CORRECT INDEX IO       3029
                          0100000000 X            CALL   CT1         MAKE TP. FORMAT                             FC5A211    22
          2132  10566                             BX5    X6                                                      FC5A211    23
                     0100000000 X                 CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A211    24
          2133  10655                             BX6    X5                                                      FC5A211    25
                     5160002517 +                 SA6    IDCCV       SAVE CONTROL VARIABLE                       FC5A211    26
                               37045              IX0    X4-X5                                                   FC5A211    27
          2134  0310002450 +                      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/05. 19.59.34.      PAGE    72
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                                        *         PREVIOUSLY COLLAPSED.                                          FC5A211    31
                                                                                                                 FC5A211    32
                          0430002140 +            ZR     B3,IDC32    IF FIRST LEVEL                              FC5A211    33
          2135  6123777776                        SB2    B3-1                                                    FC5A211    34
                          5110002504 +            SA1    IDCIDX                                                  FC5A211    35
                                                                                                                 FC5A431     8
          2136  54212                    IDC31    SA2    A1+B2                                                   FC5A211    36
                     37252                        IX2    X5-X2                                                   FC5A211    37
                          0302002450 +            ZR     X2,IDCEX    IF A DO INDEX REDEFINITION                  FC5A211    38
          2137  6122777776                        SB2    B2-1                                                    FC5A211    39
                          0620002136 +            PL     B2,IDC31    IF MORE TO CHECK                            FC5A211    40
                                                                                                                 FC5A211    41
          2140  5110000000 +             IDC32    SA1    IODIR                                                   FC5A211    42
                          7211777775              SX1    X1-S=OUT                                                FC5A141   261
          2141  0311002145 +                      NZ     X1,IDC33    IF NOT OUTPUT DIRECTION                     FC5A141   262
                          5150002461 +            SA5    IDCA        X5 = OPERAND OF ARRAY                       FC5A141   267
          2142  0100000000 X                      CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A141   268
          2143  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
          2144  15442                             BX4    -X2*X4      X4 = SYMORD OF INDEX                        FC5A211    44
                     37345                        IX3    X4-X5                                                   FC5A211    45
                          0303002450 +            ZR     X3,IDCEX    IF INDEX IS EQUIVALENCED TO THE ARRAY       FC5A141   275
                                                                                                                 FC5A141   276
          2145  56441                    IDC33    =A4    B4+1                                                    FC5A141   277
                     66441                        =B4    B4+1                                                    IO       3035
                          6224777736              SB2    X4-O.=                                                  IO       3036
          2146  0520002450 +                      NZ     B2,IDCEX    IF NOT *=*                                  IO       3037
                          5110000000 X            SA1    CONONE                                                  IO       3038
          2147  10611                             BX6    X1          INITIALIZE INCREMENT = 1                    IO       3039
                     43700                        MX7    0           INITIALIZE INDUCTION VARIABLE COUNT         IO       3040
                          5160002516 +            SA6    IDCINC                                                  IO       3041
          2150  5170002466 +                      SA7    IDCF                                                    IO       3042
                          5110000000 X            SA1    DOCOLI                                                  IO       3043
          2151  0100002715 +                      RJ     PCI         PARSE COLLAPSE INDICIES                     IO       3044
          2152  5110002472 +                      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
          2154  5110002516 +                      SA1    IDCINC      FETCH INCREMENT                             IO       3051
                          5120000000 X            SA2    CONONE                                                  IO       3052
          2155  37212                             IX2    X1-X2                                                   IO       3053
                     0312002450 +                 NZ     X2,IDCEX    IF NON-UNIT INCREMENT, DO MUST MATERIALIZE  IO       3054
                                                                                                                 IO       3055
                                        *         CHECK INITIAL                                                  IO       3056
                                                                                                                 IO       3057
          2156  5120002462 +                      SA2    IDCB        T.DIM POINTER                               IO       3058
                          5110000000 X            SA1    T.DIM                                                   IO       3059
          2157  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
          2160  5110002514 +                      SA1    IDCINT      FETCH INITIAL VARIABLE                      IO       3065
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    73
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                          22201                   LX2    X1                                                      IO       3066
                               20157              SBIT   X1,TP.SHRTP                                             IO       3067
          2161  0333002450 +                      MI     X3,IDCEX    IF ADJUSTABLE LOWER BOUND                   FC50620    62
                          0331002165 +            MI     X1,IDC35    IF SHORT CONSTANT                           FC5A431     9
          2162  5110002465 +                      SA1    IDCE        SUBSCRIPT COUNT                             FC5A431    10
                          5150002470 +            SA5    IDCH        INDEX OF PROCESSING LEVEL                   FC51069     6
          2163  73551                             =X5    X5+1                                                    FC51069     7
                     37115                        IX1    X1-X5                                                   FC5A431    12
                          0301002171 +            ZR     X1,IDC36    IF LAST SUBSCRIPT                           FC5A431    13
          2164  0400002450 +                      EQ     IDCEX                                                   FC5A431    14
                                                                                                                 FC5A431    15
          2165  20220                    IDC35    HX2    TP.BIAS                                                 FC5A431    16
                     21244                        AX2    -TP.BIASL   EXTRACT INITIAL VALUE                       IO       3070
                          6130000044              SB3    59-23                                                   IO       3072
          2166  22333                             LX3    B3,X3                                                   IO       3073
                     23333                        AX3    B3          SIGN EXTEND LOWER BOUND                     IO       3074
                          37023                   IX0    X2-X3                                                   IO       3075
          2167  0330002450 +                      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
          2170  0331002171 +                      MI     X1,IDC36    IF UPPER OR LOWER VARIABLE                  IO       3079
                          0300002173 +            ZR     X0,IDC37    IF INITIAL = LOWER                          IO       3080
                                                                                                                 IO       3081
          2171  5110002470 +             IDC36    SA1    IDCH                                                    IO       3082
                          5211002504 +            SA1    X1+IDCIDX                                               IO       3083
          2172  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
          2173  20444                    IDC37    LX4    -D2.UBP-DM.INFL                                         FC5A231   120
                     21444                        AX4    -DM.INFL    EXTRACT (SIGN EXTEND) UPPER BOUND           FC5A231   121
                          5110002515 +            SA1    IDCLMT      FETCH LIMIT VARIABLE                        IO       3092
          2174  22001                             LX0    X1                                                      IO       3093
                     20157                        SBIT   X1,TP.SHRTP                                             IO       3094
                          0321002201 +            PL     X1,IDC38    IF NOT SHORT CONSTANT                       IO       3095
          2175  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
          2176  5140002514 +                      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
          2177  0332002450 +                      MI     X2,IDCEX    IF INITIAL .GT. LIMIT                       IO       3100
                          0300002217 +            ZR     X0,IDC40    IF LIMIT .EQ. UPPER BOUND                   IO       3101
          2200  0400002210 +                      EQ     IDC39                                                   FC5A249     7
                                                                                                                 FC5A249     8
          2201  10011                    IDC38    BX0    X1          SAVE SHIFTED LIMIT OPERAND                  FC5A249     9
                     5150000000 +                 SA5    IODIR                                                   FC5A249    10
          2202  6225777777                        SB2    X5-S=INP                                                FC5A249    11
                          0520002210 +            NZ     B2,IDC39    IF NOT INPUT                                FC5A249    12
          2203  20115                             LX1    1+TP.SHRTP                                              FC5A249    13
                     10511                        BX5    X1                                                      FC5A249    14
                          0100000000 X            RJ     BBC                                                     FC5A249    15
          2204  10455                             BX4    X5          SAVE BASE/BIAS FORM OF LIMIT                FC5A249    16
                     5150002461 +                 SA5    IDCA                                                    FC5A249    17
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    74
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2205  0100000000 X                      RJ     BBC         GET BASE/BIAS FORM OF ARRAY                 FC5A249    18
          2206  13445                             BX4    X4-X5                                                   FC5A249    19
                     43654                        MX6    -TP.ORDL                                                FC5A249    20
                          20420                   LX4    -TP.ORDP                                                FC5A249    21
                               15646              BX6    -X6*X4                                                  FC5A249    22
          2207  0306002450 +                      ZR     X6,IDCEX    IF LIMIT EQUIVALENCED TO ARRAY              FC5A249    23
                          10100                   BX1    X0                                                      FC5A249    24
                                                                                                                 FC5A249    25
          2210  5120002470 +             IDC39    SA2    IDCH                                                    FC5A249    26
                          5222002504 +            SA2    X2+IDCIDX                                               IO       3103
          2211  43674                             MX6    -0                                                      IO       3104
                     54621                        =A6    A2+1        LAST LEVEL OF COLLAPSE                      IO       3105
                          76600                   =X6    0                                                       FC50620    67
          2212  5160002501 +                      SA6    IDCP        CLEAR LENGTH BIAS                           FC50620    68
                          0331002217 +            MI     X1,IDC40    IF SHORT CONSTANT                           IO       3106
          2213  5120002514 +                      SA2    IDCINT      FETCH INITIAL                               IO       3107
                          20220                   HX2    TP.BIAS                                                 IO       3108
                               21244              AX2    -TP.BIASL   EXTRACT INITIAL VALUE                       IO       3109
          2214  76010                             =X0    1                                                       FC5A136     5
                     37620                        IX6    X2-X0       CALCULATE LENGTH BIAS                       FC50620    69
                          5160002501 +            SA6    IDCP        SAVE LENGTH BIAS                            FC50620    70
          2215  20115                             LX1    TP.SHRTP+TP.SHRTL  RESTORE                              IO       3112
                     5120002775 +                 SA2    ="IDCEXC"   EXCLUSION MASK                              IO       3113
                               43071              MX0    -TP.MODEL                                               IO       3114
          2216  11101                             BX1    X0*X1       REMOVE MODE                                 IO       3115
                                   0              ERRNZ  TP.MODEP                                                IO       3116
                     11212                        BX2    X1*X2                                                   IO       3117
                          0312002450 +            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
          2217  5110002514 +             IDC40    SA1    IDCINT      GET INITIAL VALUE                           FC50620    71
                          10511                   BX5    X1                                                      FC50620    72
                               20157              SBIT   X1,TP.SHRTP                                             FC50620    73
          2220  0331002232 +                      MI     X1,IDC42    IF SHORT CONSTANT                           FC50620    74
                          10011                   BX0    X1                                                      FC50620    75
          2221  5110000000 +                      SA1    IODIR       GET IO DIRECTION                            FC50620    76
                          6221777777              SB2    X1-S=INP                                                FC50620    77
          2222  0520002227 +                      NZ     B2,IDC41    IF NOT INPUT                                FC50620    78
                          0100000000 X            RJ     BBC         CONVERT INITIAL TO BASE/BIAS                FC50620    79
          2223  10455                             BX4    X5                                                      FC50620    80
                     5150002461 +                 SA5    IDCA        GET ARRAY                                   FC50620    81
          2224  0100000000 X                      RJ     BBC         CONVERT ARRAY TO BASE/BIAS                  FC50620    82
          2225  13445                             BX4    X4-X5                                                   FC50620    83
                     43654                        MX6    -TP.ORDL                                                FC50620    84
                          20420                   LX4    -TP.ORDP                                                FC50620    85
                               15646              BX6    -X6*X4                                                  FC50620    86
          2226  0306002450 +                      ZR     X6,IDCEX    IF INITIAL EQUIV. TO ARRAY                  FC50620    87
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    75
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                                                                                                                 FC50620    88
          2227  10100                    IDC41    BX1    X0          RETRIEVE INITIAL                            FC50620    89
                     20115                        LX1    TP.SHRTP+TP.SHRTL                                       FC50620    90
                          5120002775 +            SA2    ="IDCEXC"                                               FC50620    91
          2230  43071                             MX0    -TP.MODEL                                               FC50620    92
                     11101                        BX1    X0*X1                                                   FC50620    93
                                   0              ERRNZ  TP.MODEP                                                FC50620    94
                          11212                   BX2    X1*X2                                                   FC50620    95
          2231  0312002450 +                      NZ     X2,IDCEX    IF INITIAL NOT SIMPLE VARIABLE              FC50620    96
                                                                                                                 FC50620    97
          2232  5110002463 +             IDC42    SA1    IDCC        GET NESTING LEVEL                           FC50620    98
                          5120002470 +            SA2    IDCH        INDEX OF PROCESSING LEVEL                   IO       3132
          2233  5150002464 +                      SA5    IDCD        1ST DO-BEGIN                                IO       3133
                          37112                   IX1    X1-X2                                                   IO       3134
          2234  6231777776                        =B3    X1-1                                                    IO       3135
                          53153                   SA1    X5+B3       FETCH CURRENT DO-BEGIN                      IO       3136
                               76511              =X5    -O.DOBI+O.DCBI                                          IO       3137
          2235  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
          2236  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
          2237  20622                             LX6    TB.ICCPP                                                IO       3149
                     7150000052                   =X5    O.DCCI                                                  IO       3150
                               12665              BX6    X6+X5                                                   IO       3151
          2240  20244                             LX2    TB.ICIXP                                                FC5A211    46
                     12662                        BX6    X6+X2       MAKE DO COLLAPSE CONCLUSION TOKEN           FC5A211    47
                          56650                   =A6    B5+DC=CCT                                               IO       3154
          2241  5110002514 +                      SA1    IDCINT                                                  IO       3155
                          22701                   LX7    X1                                                      IO       3156
                               54761              =A7    A6-DC=CCT+DC=ISV                                        IO       3157
          2242  5120002515 +                      SA2    IDCLMT                                                  IO       3158
                          20120                   HX1    TP.BIAS                                                 IO       3159
                               21144              AX1    -TP.BIASL   ISOLATE INITIAL                             IO       3160
          2243  5150002471 +                      SA5    IDCI        FETCH COLLAPSE (PRIOR PRODUCT)              IO       3161
                          10633                   BX6    X3                                                      FC50620    99
          2244  5160002502 +                      SA6    IDCQ        SAVE LOWER BOUND                            FC50620   100
                          37313                   IX3    X1-X3       INITIAL - *LB*                              IO       3162
                               42335              IX3    X3*X5       * COLLAPSE SIZE = OFFSET                    IO       3163
          2245  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
          2246  0322002252 +                      PL     X2,IDC45    IF NOT SHORT CONSTANT                       IO       3169
                          5150002514 +            SA5    IDCINT      GET INITIAL                                 FC50620   101
          2247  20557                             SBIT   X5,TP.SHRTP                                             FC50620   102
                     0325002252 +                 PL     X5,IDC45    IF NOT SHORT CONSTANT                       FC50620   103
                               20215              LX2    1+TP.SHRTP  RESTORE                                     IO       3170
          2250  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/05. 19.59.34.      PAGE    76
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                               73111              =X1    X1+1        +1 = MULTIPLIER                             IO       3174
          2251  42616                             IX6    X1*X6                                                   IO       3175
                     5160002471 +                 SA6    IDCI        GET COLLAPSE SIZE                           FC50620   104
                                                                                                                 FC50620   105
          2252  54671                    IDC45    =A6    A7-DC=ISV+DC=SIZ                                        IO       3177
                     22603                        LX6    X3                                                      IO       3178
                          54761                   =A7    A6-DC=SIZ+DC=VAR                                        IO       3179
          2253  5110002461 +                      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
          2254  6221777773                        SB2    X1-M.DBL                                                IO       3184
                          66610                   =B6    1                                                       IO       3185
          2255  0420002257 +                      EQ     B2,B0,IDC47 IF MODE DOUBLE                              IO       3186
                          0421002257 +            EQ     B2,B1,IDC47 IF MODE COMPLEX                             IO       3187
          2256  66600                             =B6    0                                                       IO       3188
                                                                                                                 FC5A431    17
          2257  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
          2260  5170002475 +                      SA7    IDCL                                                    FC5A218    70
                          0312002271 +            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
          2261  66630                             SB6    B3                                                      FC5A218    76
                     5110000000 X                 ALLOC  T.IOA,3                                                 FC5A218    77
          2263  5110002517 +                      SA1    IDCCV                                                   FC5A218    78
                          5120002514 +            SA2    IDCINT                                                  FC5A218    79
          2264  5130002515 +                      SA3    IDCLMT                                                  FC5A218    80
                          10611                   BX6    X1                                                      FC5A218    81
                               10722              BX7    X2                                                      FC5A218    82
          2265  5167777774                        SA6    B7-3                                                    FC5A218    83
                          10633                   BX6    X3                                                      FC5A218    84
                               54761              =A7    A6+1                                                    FC5A218    85
          2266  57671                             =A6    B7-1                                                    FC5A218    86
                     5110002503 +                 SA1    TL=LCI                                                  FC5A218    87
          2267  7261000003                        SX6    X1+3                                                    FC5A218    88
                          54610                   SA6    A1          TL=LCI  =  TL=LCI + 3                       FC5A218    89
                               66360              SB3    B6                                                      FC5A218    90
          2270  5110002475 +                      SA1    IDCL                                                    FC5A218    91
                          10711                   BX7    X1                                                      FC5A218    92
                                                                                                                 FC5A218    93
          2271                           IDC475   BSS    0                                                       FC5A218    94
          2271  0530002300 +                      NZ     B3,IDC48    IF MORE COLLAPSE TO TRY                     FC5A214    11
                          5110002463 +            SA1    IDCC        NESTING LEVEL                               FC5A214    12
          2272  5120002467 +                      SA2    IDCG        DIMENSIONALITY                              FC5A214    13
                          37112                   IX1    X1-X2                                                   FC5A214    14
                               66710              =B7    1                                                       FC5A214    15
          2273  0301002305 +                      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
                          5110002464 +            SA1    IDCD                                                    FC5A214    22
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    77
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2274  5120002472 +                      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
                          5110002461 +            SA1    IDCA        TP. OF ARRAY                                FC5A214    26
          2276  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
          2277  6170777776                        SB7    -1                                                      FC5A271    17
                          0400002053 +            EQ     EXIT.                                                   FC5A214    30
                                                                                                                 IO       3192
                                        *         INCREMENT FOR NEXT COLLAPSE LOOP                               IO       3193
                                                                                                                 IO       3194
          2300  5120002462 +             IDC48    SA2    IDCB        T.DIM POINTER                               FC5A214    31
                          5110002470 +            SA1    IDCH        FETCH INDEX OF PROCESSING LEVEL             IO       3196
          2301  7272000002                        SX7    X2+Z=DD                                                 IO       3197
                          73611                   =X6    X1+1                                                    IO       3198
                               54720              SA7    A2                                                      IO       3199
          2302  54610                             SA6    A1                                                      IO       3200
                     63360                        SB3    X6          INDEX FOR NEXT LEVEL                        FC5A211    48
                          5110002461 +            SA1    IDCA        FETCH ARRAY TAG                             IO       3201
          2303  10711                             BX7    X1                                                      IO       3203
                     5170000011 +                 SA7    IODOIND     INDICATE PARTIAL COLLAPSE                   IO       3205
          2304  0400002123 +                      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
          2305  5110000000 X             IDC50    SA1    DATFLG                                                  FC5A218    95
                          0311002311 +            NZ     X1,IDC51    IF *DATA*                                   FC5A218    96
          2306  5110002461 +                      SA1    IDCA                                                    FC5A248    28
                          10611                   BX6    X1                                                      FC5A248    29
                               76000              =X0    0                                                       FC5A248    30
          2307  0100001464 +                      RJ     CML         SEE IF RESTART NEEDED ON ARRAY              FC5A248    31
          2310  0100002617 +                      RJ     PAX         PREPARE ARRAY CROSS-SECTION                 FC5A218    97
                                                                                                                 FC5A218    98
          2311  5110002514 +             IDC51    SA1    IDCINT      GET INITIAL VALUE                           FC50620   106
                          20157                   SBIT   X1,TP.SHRTP                                             FC50620   107
          2312  0321002330 +                      PL     X1,IDC52.1  IF NOT SHORT CONSTANT                       FC50946     8
                          5110002475 +            SA1    IDCL        GET VARIABLE MULTIPLIER                     FC50620   109
          2313  10711                             BX7    X1                                                      FC5A218   100
                     0301002403 +                 ZR     X1,IDC55    IF NO VARIABLE MULTIPLIER                   FC5A218   101
                                                                                                                 IO       3231
                                        *         THE LAST LIMIT WAS VARIABLE, MUST OUTPUT MULTIPLY TURPLE       IO       3232
                                                                                                                 IO       3233
          2314  5110002501 +                      SA1    IDCP        GET LENGTH BIAS                             FC50620   110
                          0301002324 +            ZR     X1,IDC52    IF NO BIAS                                  FC50620   111
          2315  10611                             BX6    X1                                                      FC50620   112
                     76711                        =X7    M.INT                                                   FC50620   113
                          0100000000 X            CALL   NCS         FORM CONSTANT OPERAND                       FC50620   114
          2316  5140002515 +                      SA4    IDCLMT      GET LIMIT VALUE                             FC50620   115
                          22506                   LX5    X6                                                      FC50620   116
                                                                                                                 FC50620   117
          2317  6130030000 X             IDC51.1  EMIT   V=SUB.I,BOTH                                            FC50946     9
          2320  5110000000 X                      SA1    T=PAR                                                   FC50620   119
                          7261777774              SX6    X1-Z=TURP                                               FC50620   120
          2321  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   121
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          2322  5160002515 +                      SA6    IDCLMT      SAVE AS LIMIT VALUE                         FC50620   124
                          5110002475 +            SA1    IDCL        GET VARIABLE MULTIPLIER                     FC50620   125
          2323  10711                             BX7    X1                                                      FC50620   126
                                                                                                                 FC50620   127
          2324  20754                    IDC52    LX7    TP.ORDP                                                 FC50620   128
                     5155000002                   =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         IO       3235
          2325  7225777776                        =X2    X5-1                                                    IO       3236
                          0312002367 +            NZ     X2,IDC53    IF SIZE .NE. 1                              IO       3237
          2326  5150002515 +                      SA5    IDCLMT                                                  IO       3238
                          5140002461 +            SA4    IDCA        FETCH ARRAY OPERAND                         IO       3239
          2327  0400002405 +                      EQ     IDC56                                                   IO       3240
                                                                                                                 IO       3241
          2330  5110002502 +             IDC52.1  SA1    IDCQ        GET LOWER BOUND                             FC50946    10
                          20152                   LX1    42                                                      FC5A431    18
                               21152              AX1    42          EXTEND SIGN                                 FC5A431    19
          2331  10611                             BX6    X1                                                      FC50620   132
                     76711                        =X7    M.INT                                                   FC50620   133
                          0100000000 X            CALL   NCS         FORM CONSTANT OPERAND                       FC50620   134
          2332  22506                             LX5    X6                                                      FC50620   135
                     5140002514 +                 SA4    IDCINT      GET INITIAL VALUE                           FC50620   136
          2333  6130030000 X                      EMIT   V=SUB.I,BOTH  EMIT SUBTRACT TURPLE                      FC50620   137
          2334  5110002461 +                      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
          2335  6270777773                        SB7    X0-M.DBL                                                FC50946    15
                          0470002337 +            ZR     B7,IDC52.2  IF MODE DOUBLE                              FC50946    16
          2336  0471002337 +                      EQ     B7,B1,IDC52.2  IF MODE COMPLEX                          FC50946    17
                          0400002343 +            EQ     IDC52.3                                                 FC50946    18
                                                                                                                 FC50946    19
          2337  5110000000 X             IDC52.2  SA1    T=PAR                                                   FC50946    20
                          7241777774              SX4    X1-Z=TURP                                               FC50946    21
          2340  7100002002                        CLAS=  X0,TP,(INTR),INT                                        FC50946    22
                          20454                   LX4    TP.ORDP                                                 FC50946    23
                               12440              BX4    X4+X0                                                   FC50946    24
          2341  22504                             LX5    X4                                                      FC50946    25
                     6130030000 X                 EMIT   V=ADD.I,BOTH  DOUBLE SUBSCRIPT FOR COMPLEX AND DOUBLE   FC50946    26
                                                                                                                 FC50946    27
          2343  5110000000 X             IDC52.3  SA1    T=PAR                                                   FC50946    28
                          7261777774              SX6    X1-Z=TURP                                               FC50620   139
          2344  7120002002                        CLAS=  X2,TP,(INTR),INT                                        FC50946    29
                          20654                   LX6    TP.ORDP                                                 FC50620   141
                               12662              BX6    X6+X2       FORM INTERMEDIATE OPERAND                   FC50946    30
          2345  5160002502 +                      SA6    IDCQ        SAVE AS ARRAY OFFSET                        FC50620   143
                          5110002471 +            SA1    IDCI        GET COLLAPSE SIZE                           FC50620   144
          2346  63210                             SB2    X1                                                      FC50620   145
                     0421002355 +                 EQ     B2,B1,IDC52.6  IF COLLAPSE SIZE=1                       FC50946    31
                               10611              BX6    X1                                                      FC50620   147
          2347  76711                             =X7    M.INT                                                   FC50620   148
                     0100000000 X                 CALL   NCS         FORM CONSTANT OPERAND                       FC50620   149
          2350  22506                             LX5    X6                                                      FC50620   150
                     5140002502 +                 SA4    IDCQ        GET ARRAY OFFSET                            FC50620   151
          2351  6130030000 X                      EMIT   V=MUL.I,BOTH  ISSUE MULTIPLY TURPLE                     FC50620   152
          2352  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/05. 19.59.34.      PAGE    79
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2353  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   155
                          20654                   LX6    TP.ORDP                                                 FC50620   156
                               12662              BX6    X6+X2       FORM INTERMEDIATE OPERAND                   FC50946    32
          2354  5160002502 +                      SA6    IDCQ        SAVE ARRAY OFFSET                           FC50620   158
                                                                                                                 FC50620   159
          2355  5110002475 +             IDC52.6  SA1    IDCL        GET VARIABLE MULTIPLIER                     FC50946    33
                          0301002363 +            ZR     X1,IDC52.7  IF NO VARIABLE MULTIPLIER                   FC50946    34
          2356  5140002515 +                      SA4    IDCLMT      GET LIMIT (BIASED)                          FC50620   162
                          5150000000 X            SA5    CONONE      GET CONSTANT 1 OPERAND                      FC50620   163
          2357  6130030000 X                      EMIT   V=ADD.I,BOTH  EMIT ADD TURPLE                           FC50620   164
          2360  5110000000 X                      SA1    T=PAR                                                   FC50620   165
                          7261777774              SX6    X1-Z=TURP                                               FC50620   166
          2361  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   167
                          20654                   LX6    TP.ORDP                                                 FC50620   168
                               12462              BX4    X6+X2       FORM INTERMEDIATE OPERAND                   FC50946    35
          2362  5150002514 +                      SA5    IDCINT      GET INITIAL VALUE                           FC50620   170
                          0400002317 +            EQ     IDC51.1     GO ISSUE SUBTRACT TURPLE                    FC50946    36
                                                                                                                 FC50620   172
          2363  5110002515 +             IDC52.7  SA1    IDCLMT      GET LIMIT VALUE (CONSTANT)                  FC50946    37
                          20120                   HX1    TP.BIAS                                                 FC50620   174
                               21144              AX1    -TP.BIASL                                               FC50620   175
          2364  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
          2365  22406                             LX4    X6                                                      FC50620   179
                     5150002514 +                 SA5    IDCINT      GET INITIAL VALUE                           FC50620   180
          2366  0400002317 +                      EQ     IDC51.1     GO ISSUE SUBTRACT TURPLE                    FC50946    38
                                                                                                                 FC50620   182
          2367  5150000000 X             IDC53    SA5    WO.DOOT     GET MIN. TRIP COUNT                         FC50620   183
                          5140002515 +            SA4    IDCLMT      GET VARIABLE MULTIPLIER                     FC50620   184
          2370  0305002374 +                      ZR     X5,IDC54    IF ZERO-TRIP DO                             FC50620   185
                          5150000000 X            SA5    CONONE      GET CONSTANT ONE                            FC50620   186
          2371  6130030000 X                      EMIT   V=MAX0,BOTH ISSUE MAX0 TURPLE                           FC50620   187
          2372  5110000000 X                      SA1    T=PAR                                                   FC50620   188
                          7261777774              SX6    X1-Z=TURP                                               FC50620   189
          2373  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   190
                          20654                   LX6    TP.ORDP                                                 FC50620   191
                               12462              BX4    X6+X2       FORM INDIRECT OPERAND                       FC50620   192
                                                                                                                 FC50620   193
          2374  5155000002               IDC54    SA5    B5+DC=SIZ                                               FC50620   194
                          10655                   BX6    X5                                                      IO       3243
                               76711              =X7    M.INT                                                   IO       3244
          2375  0100000000 X                      CALL   NCS         FORM CONSTANT OPERAND                       IO       3245
          2376  22506                             LX5    X6                                                      IO       3246
                     6130030000 X                 EMIT   V=MUL.I,BOTH                                            IO       3247
          2400  5110000000 X                      SA1    T=PAR                                                   IO       3248
                          7261777774              SX6    X1-Z=TURP                                               IO       3249
          2401  7120002000                        CLAS=  X2,TP,(INTR)                                            IO       3250
                          20654                   LX6    TP.ORDP                                                 IO       3251
                               12562              BX5    X6+X2       MAKE INTERMEDIATE OPERAND                   IO       3252
          2402  5140002461 +                      SA4    IDCA        FETCH ARRAY OPERAND                         IO       3253
                          0400002405 +            EQ     IDC56                                                   IO       3254
                                                                                                                 IO       3255
                                        *         MAKE AND OUTPUT THE I/O DATA TURPLE                            IO       3256
                                                                                                                 IO       3257
          2403  5140002461 +             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/05. 19.59.34.      PAGE    80
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2404  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
          2405  5115000004               IDC56    SA1    B5+DC=OFF                                               FC50216     7
                          20124                   LX1    TP.BIASP                                                FC50216     8
                               12441              BX4    X4+X1       MERGE IN BIAS                               FC50216     9
          2406  5110002514 +                      SA1    IDCINT      GET INITIAL VALUE                           FC50620   195
                          20157                   SBIT   X1,TP.SHRTP                                             FC50620   196
          2407  0331002422 +                      MI     X1,IDC565   IF SHORT CONSTANT                           FC50620   197
                          10655                   BX6    X5                                                      FC50620   198
          2410  5160002501 +                      SA6    IDCP        SAVE X5 CONTENTS                            FC50620   199
                          5140002461 +            SA4    IDCA        GET ARRAY                                   FC50620   200
          2411  7150020000                        CLAS=  X5,TP,(ARR)                                             FC50620   201
                          12445                   BX4    X4+X5       SET ARRAY REF BIT                           FC50620   202
          2412  5150002502 +                      SA5    IDCQ        GET ARRAY OFFSET                            FC50620   203
                          43071                   MX0    -TP.MODEL                                               FC50620   204
                               15740              BX7    -X0*X4      GET ARRAY MODE                              FC50620   205
          2413  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
          2414  5170000005 +                      SA7    IOARY                                                   FC50620   209
                          6130400005 +            EMIT   IOARY,*     EMIT ARRAY LOAD TURPLE                      FC50620   210
          2416  5110000000 X                      SA1    T=PAR                                                   FC50620   211
                          7261777774              SX6    X1-Z=TURP                                               FC50620   212
          2417  7120022100                        CLAS=  X2,TP,(INTR,ARR,ARS)                                    FC50620   213
                          43071                   MX0    -TP.MODEL                                               FC50620   214
                               15440              BX4    -X0*X4      GET ARRAY MODE                              FC50620   215
          2420  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
          2421  5150002501 +                      SA5    IDCP        RESTORE X5                                  FC50620   219
                                                                                                                 FC50620   220
          2422  5110000000 +             IDC565   SA1    IODIR       GET IO DIRECTION                            FC50620   221
                          5120000000 X            SA2    DATFLG                                                  FC5A141   280
          2423  0311002431 +                      NZ     X1,IDC57    IF NOT INPUT DIRECTION                      FC5A141   281
                          0312002431 +            NZ     X2,IDC57    IF DATA LIST                                FC5A141   282
          2424  5110002461 +                      SA1    IDCA        FETCH ARRAY OPERAND                         FC51066     5
                          10011                   BX0    X1                                                      FC51066     6
          2425  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
          2426  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
          2427  11661                             BX6    X6*X1       SYMBOL ONLY                                 FC5A211    60
                     5160000000 X                 SA6    FILL.                                                   FC5A211    61
          2430  0100001556 +                      RJ     AII         ADD INPUT LIST ITEM TO T.ILI                FC5A141   283
                                                                                                                 FC5A141   284
          2431  5110001743 +             IDC57    SA1    CVLTH                                                   FC5A141   285
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          2432  55311                             =A3    A1-CVLTH+CVLPM                                          IO       3275
                     20222                        LX2    SP.MODEP                                                FC50104    69
                          12712                   BX7    X1+X2       MERGE IN MODE                               IO       3277
          2433  5170000003 +                      SA7    IODTH                                                   IO       3278
                          0313002437 +            NZ     X3,IDC58    IF NOT NORMAL I/O PARSEMODE                 FC5A141   286
          2434  5110000000 X                      EMIT   IODTH,*,T.IOARG                                         IO       3280
          2436  0400002440 +                      EQ     IDC59                                                   IO       3281
                                                                                                                 IO       3282
          2437  6130400003 +             IDC58    EMIT   IODTH,*                                                 FC5A141   287
                                                                                                                 FC50061     9
          2440  5110000002 +             IDC59    SA1    IOREF                                                   FC50061    10
                          5120002461 +            SA2    IDCA        TP. FORMAT OF ARRAY                         FC50061    11
                                                  HX2    TP.ORD                                                  FC50061    12
          2441  21254                             AX2    -TP.ORDL    EXTRACT ORDINAL                             FC50061    13
                     20252                        LX2    XR.TAGP     POSITION FOR ERT                            FC50061    14
                          10622                   ADDREF X2,X1                                                   FC50061    15
          2443  76600                             =X6    0                                                       FC50061    16
                     5160000011 +                 SA6    IODOIND                                                 IO       3285
                               54661              =A6    A6+1        CLEAR PARTIAL COLLAPSE INDICATORS           IO       3286
          2444  66710                             =B7    1           INDICATE COMPLETE COLLAPSE                  FC50683     6
                     56141                        =A1    B4+1                                                    FC50683     7
                          0311002053 +            NZ     X1,EXIT.    IF NOT *EOS*, I.E., NO TRAILING COMMA       FC50683     8
                                   0              ERRNZ  O.EOS                                                   FC50683     9
          2445  56140                             SA1    B4                                                      FC50683    10
                     7211777735                   SX1    X1-O.COMMA                                              FC50683    11
          2446  0311002053 +                      NZ     X1,EXIT.    IF NOT COMMA                                FC50683    12
                          6144000001              SB4    B4+1        INCREMENT FOR DIAGNOSTIC                    FC50683    13
          2447  0400002053 +                      EQ     EXIT.                                                   IO       3288
                                                                                                                 IO       3289
                                        *         COMPLETE COLLAPSE HAS FAILED, SET EXIT CONDITIONS.             IO       3290
                                                                                                                 IO       3291
          2450                           IDCEX    BSSENT 0           ENTRY HERE TO STOP COLLAPSE                 IO       3292
          2450  5110002464 +                      SA1    IDCD                                                    IO       3293
                          5120002472 +            SA2    IDCJ                                                    IO       3294
          2451  63410                             SB4    X1          RESTORE (B4) _ INITIAL DO-BEGIN TOKEN       IO       3295
                     10622                        SHRINK T=PAR,X2    RESTORE PARSE FILE                          IO       3296
          2452  5120000000 X                      SA2    T=REF                                                   FC50906     8
                          0302002456 +            ZR     X2,IDC60    IF T=REF IS ZERO DON'T SHRINK               FC50906     9
          2453  5110002477 +                      SA1    IDCN                                                    FC50464    18
                          10611                   SHRINK T=REF,X1    AVOID DUPLICATE REFERENCES                  FC50464    19
                          5110002500 +            SA1    IDCO                                                    FC50464    20
          2455  10611                             BX6    X1                                                      FC50464    21
                     5160000000 X                 SA6    LOSTREF     RESTORE REFERENCE COUNT                     FC50464    22
                                                                                                                 FC50906    10
          2456  5110002473 +             IDC60    SA1    IDCK                                                    FC50906    11
                          66700                   =B7    0                                                       IO       3298
                               76600              =X6    0                                                       IO       3299
          2457  0301002053 +                      ZR     X1,EXIT.    IF NO T.TB RESTORE                          IO       3300
                          54211                   SA2    A1+B1       FETCH ORIGINAL TOKEN                        IO       3301
                               10722              BX7    X2                                                      IO       3302
          2460  54610                             SA6    A1          CLEAR RESTORATION FLAG                      IO       3303
                     53710                        SA7    X1                                                      IO       3304
                          0400002053 +            EQ     EXIT.                                                   IO       3305
                                                                                                                 IO       3306
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    82
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2461                     1     IDCA     BSS    1           SAVE ARRAY TAG                              IO       3307
          2462                     1     IDCB     BSS    1           POINTER TO T.DIM DIMENSION INFORMATION      IO       3308
          2463                     1     IDCC     BSS    1           I/O DO NESTING LEVEL                        IO       3309
          2464                     1     IDCD     BSS    1           POINTER TO INITIAL DO-BEGIN TOKEN           IO       3310
          2465                     1     IDCE     BSS    1           SUBSCRIPT COUNT                             IO       3311
          2466                     1     IDCF     BSS    1           INDUCTION VARIABLE COUNTER                  IO       3312
          2467                     1     IDCG     BSS    1           ARRAY DIMENSIONALITY                        IO       3313
          2470                     1     IDCH     BSS    1           INDEX OF PROCESSING LEVEL                   IO       3314
          2471                     1     IDCI     BSS    1           COLLAPSE SIZE                               IO       3315
          2472                     1     IDCJ     BSS    1           VALUE OF T=PAR FOR RESET                    IO       3316
          2473                     1     IDCK     BSSZ   1           ADDRESS OF TOKEN TO RESTORE                 IO       3317
          2474                     1              BSS    1           CONTENTS                                    IO       3318
          2475                     1     IDCL     BSS    1           SAVE VARIABLE MULITIPLIER                   IO       3319
          2476                     1     IDCM     BSS    1           ARRAY BASE/BIAS                             FC5A256    12
          2477                     1     IDCN     BSS    1           REFERENCE TABLE COUNT (FOR RECOVER)         FC50464    23
          2500                     1     IDCO     BSS    1           REFERENCE COUNT (FOR RECOVER)               FC50464    24
          2501                     1     IDCP     BSS    1           LENGTH BIAS                                 FC50620   222
          2502                     1     IDCQ     BSS    1           LOWER BOUND / VARIABLE MULTIPLIER           FC50620   223
          2503                     1     TL=LCI   BSS    1           LEN OF *LIST COL. INFO.* APPENDED TO T.IOA  FC5A218   102
          2504                    10     IDCIDX   BSS    MAX.DIM+1   INDICES (+ TRASH WORD)                      IO       3320
          2514                     3     IDCIND   BSS    3           INDUCTION VARIABLES                         IO       3321
                                2514 +   IDCINT   EQU    IDCIND      INITIAL                                     IO       3322
                                2515 +   IDCLMT   EQU    IDCIND+1    LIMIT                                       IO       3323
                                2516 +   IDCINC   EQU    IDCIND+2    INCREMENT                                   IO       3324
          2517                     1     IDCCV    BSS    1           CONTROL VARIABLE                            FC5A211    62
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          2520  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
          2521  5110000000 X                      ADDWD  T.TB        ADD AN EXTRA -EOS- FOR *LST*                IO       3368
                                                                                                                 IO       3369
                                         .T       IFNE   TEST        DUMP TOKEN BUFFER                           IO       3370
          2522  5110000000 X                      SA1    CO.SNAP                                                 IO       3371
                          20116                   LX1    1RN         IMPLIED-LOOP SNAP FLAG                      IO       3372
          2523  0321002524 +                      PL     X1,IODX     IF (SNAP=N) NOT REQUESTED                   IO       3373
                          0100000000 X            CALL   LTB=        LIST TOKEN BUFFER                           IO       3374
                                         .T       ENDIF                                                          IO       3375
                                                                                                                 IO       3376
          2524  0400402524 +             IOD      SUBR               ENTRY/EXIT...                               IO       3377
          2525  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/05. 19.59.34.      PAGE    84
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IOD 
  
          2526  10344                    IOD2     BX3    X4                                                      IO       3383
                     54441                        =A4    A4+1                                                    IO       3384
                          6274777740              =B7    X4-O.LP                                                 IO       3385
          2527  0304002520 +                      ZR     X4,IOD9     IF *EOS*                                    IO       3386
                          67271                   =B2    B7+O.(-O.)                                              IO       3387
          2530  0470002543 +                      ZR     B7,IOD5     IF *(*                                      IO       3388
                          0420002536 +            ZR     B2,IOD4     IF *)*                                      IO       3389
          2531  0521002526 +                      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
          2532  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
          2533  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
          2534  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
          2535  0400002526 +                      EQ     IOD2                                                    IO       3409
                                                                                                                 IO       3410
                                                                                                                 IO       3411
                                        **        FOUND A *)*  --  POP UP PAREN STACK.                           IO       3412
                                                                                                                 IO       3413
          2536  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
          2537  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
          2540  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
          2541  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
          2542  0400002545 +                      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
          2543  10244                    IOD5     BX2    X4                                                      IO       3437
                     20201                        HX2    TB.EQL                                                  IO       3438
                          0332002552 +            MI     X2,IOD8     IF IMPLIED DO WITHIN THIS PAREN LEVEL       IO       3439
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    85
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IOD 
  
          2544  20430                             LX4    -TB.IOCPP                                               IO       3440
                     53440                        SA4    X4          SWOOP IMMEDIATELY TO MATCHING RIGHT PAREN   IO       3441
          2545  5024000001               IOD6     SA2    A4+1                                                    IO       3442
                          0302002526 +            ZR     X2,IOD2     IF *EOS*                                    IO       3443
          2546  6222777763                        SB2    X2-O.SEP                                                IO       3444
                          0720002551 +            MI     B2,IOD7     IF VARIABLE OR SOME FLAVOR OF CONSTANT      IO       3445
          2547  6222777740                        SB2    X2-O.LP                                                 IO       3446
                          0520002526 +            NZ     B2,IOD2     IF NOT *(*                                  IO       3447
                                                  SBIT   X2,TB.COLP                                              IO       3448
          2550  0332002526 +                      MI     X2,IOD2     SUBSTRING OK                                IO       3449
          2551  6042000000               IOD7     SB4    A2+                                                     IO       3450
                          0400000000 X            EQ     E.IOD4                                                  IO       3451
                                                                                                                 IO       3452
          2552  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
          2553  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
          2554  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
          2555  0400002526 +                      EQ     IOD2                                                    IO       3467
  
  
  
  
                                        **        C=DOCI - PROCESS I/O DO COLLAPSE INDUCTION VARIABLES           IO       3469
                                        *                                                                        IO       3470
                                                                                                                 IO       3471
                                                                                                                 IO       3472
          2556                           A=DOCI   BSSENT 0           ENTRY...                                    IO       3473
          2556  67441                             =B4    B4-1                                                    IO       3474
          2557                           C=DOCI   BSSENT 0           ENTRY...                                    IO       3475
          2557  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
          2560  0420002561 +                      ZR     B2,DOCI5    IF VARIABLE IS INTEGER                      FC5A249    32
                          0310002450 +            NZ     X0,IDCEX    IF NOT BOOLEAN                              FC5A249    33
                                   0              ERRNZ  M.BOOL                                                  FC5A249    34
                                                                                                                 FC5A249    35
          2561  10655                    DOCI5    BX6    X5                                                      FC5A249    36
                     5110002466 +                 SA1    IDCF                                                    IO       3477
                               56240              SA2    B4                                                      IO       3478
          2562  5261002514 +                      SA6    X1+IDCIND                                               IO       3479
                          6222777735              SB2    X2-O.COMMA                                              IO       3480
          2563  6232777737                        SB3    X2-O.)                                                  IO       3481
                          66441                   =B4    B4+1                                                    IO       3482
          2564  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/05. 19.59.34.      PAGE    86
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           C=DOCI
  
          2565  0520402565 +                      NZ     B2,"BLOWUP" IF NOT *,* - ERROR                          IO       3485
                          6226777774              =B2    X6-3                                                    IO       3486
          2566  0620002450 +                      PL     B2,IDCEX    IF TOO MANY INDUCTION VARIABLES             IO       3487
                          54610                   SA6    A1          INCREMENT                                   IO       3488
          2567  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
          2570                           A=DOCS   BSSENT 0           ENTRY...                                    IO       3498
          2570  67441                             =B4    B4-1                                                    IO       3499
                                                                                                                 FC50573     5
          2571                           C=DOCS   BSSENT 0           ENTRY...                                    IO       3500
          2571  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
          2572  7222777775                        SX2    X2-M.INT                                                IO       3506
                          0312002600 +            NZ     X2,DOCS5    IF NOT INTEGER, STOP COLLAPSE               IO       3507
          2573  11250                             BX2    X5*X0       REMOVE MODE                                 IO       3508
                                   0              ERRNZ  TP.MODEP                                                IO       3509
                     5110002775 +                 SA1    ="IDCEXC"   FETCH EXCLUSION MASK                        IO       3510
                               11212              BX2    X1*X2                                                   IO       3511
          2574  0312002600 +                      NZ     X2,DOCS5    IF NOT SIMPLE VARIABLE                      IO       3512
                          5110000000 X            SA1    S=CON                                                   FC5A211    63
          2575  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
          2576  0301002600 +                      ZR     X1,DOCS5    IF CONSTANT                                 IO       3517
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A211    68
          2577  22605                             LX6    X5                                                      IO       3518
                                                                                                                 IO       3519
          2600  20561                    DOCS5    SBIT   X5,TP.INTRP                                             FC50460     5
                     0335002450 +                 MI     X5,IDCEX    IF EXPRESSION, NO COLLAPSE                  FC50460     6
                               20513              LX5    1+TP.INTRP  RESTORE                                     FC50460     7
          2601  5110002465 +                      SA1    IDCE                                                    FC50460     8
                          5261002504 +            SA6    X1+IDCIDX   STORE COLLAPSE INDEX INFORMATION            IO       3521
          2602  63210                             SB2    X1          FOR SUBSCRIPT DUPLICATION CHECK             FC5A247     5
                     5120002467 +                 SA2    IDCG        FETCH NUMBER OF DIMENSIONS                  IO       3524
                               37212              IX2    X1-X2                                                   IO       3526
          2603  0322002450 +                      PL     X2,IDCEX    IF DIMENSIONALITY EXCEEDED                  IO       3528
                          73711                   =X7    X1+1        INCREMENT SUBSCRIPT COUNT                   FC5A247     6
                               54710              SA7    A1                                                      IO       3530
          2604  5110000000 +                      SA1    IODIR                                                   FC5A256    13
                          0311002607 +            NZ     X1,DOCS10   IF NOT INPUT                                FC5A256    14
          2605  5110002476 +                      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/05. 19.59.34.      PAGE    87
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           C=DOCS
  
          2606  20620                             LX6    -TP.ORDP                                                FC50573     6
                     15661                        BX6    -X1*X6                                                  FC5A256    19
                          0306002450 +            ZR     X6,IDCEX    IF INTERFERENCE                             FC5A256    20
                                                                                                                 FC5A256    21
          2607                           DOCS10   BSS    0                                                       FC5A256    22
          2607  0420002613 +                      ZR     B2,DOCS12   IF FIRST SUBSCRIPT                          FC5A247     7
                          6122777776              SB2    B2-1                                                    FC5A247     8
          2610  5110002504 +                      SA1    IDCIDX                                                  FC5A247     9
                                                                                                                 FC5A247    10
          2611  54212                    DOCS11   SA2    A1+B2                                                   FC5A247    11
                     37252                        IX2    X5-X2                                                   FC5A247    12
                          0302002450 +            ZR     X2,IDCEX    IF SUBSCRIPT DUPLICATION                    FC5A247    13
          2612  6122777776                        SB2    B2-1                                                    FC5A247    14
                          0620002611 +            PL     B2,DOCS11   IF MORE TO CHECK                            FC5A247    15
                                                                                                                 FC5A247    16
          2613                           DOCS12   BSS    0                                                       FC5A247    17
          2613  56240                             SA2    B4                                                      IO       3531
                     6222777737                   SB2    X2-O.)                                                  IO       3532
          2614  6232777735                        SB3    X2-O.COMMA                                              IO       3533
                          66441                   =B4    B4+1                                                    IO       3534
          2615  0420000000 X                      ZR     B2,PAREXIT  IF SUBSCRIPTS COMPLETED                     IO       3535
                          67661                   =B6    B6-1        REMOVE OPERAND FROM ESTACK                  IO       3536
          2616  0430000000 X                      ZR     B3,PAR.NX   IF MORE SUBSCRIPTS TO PROCESS               IO       3537
                                                  IFEQ   TEST,ON,1                                               IO       3538
                          0400402616 +            EQ     "BLOWUP"    SOMETHING WENT WRONG                        IO       3539
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      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
          2617  0400402617 +             PAX      SUBR                                                           FC5A218   119
          2620  5140002503 +                      SA4    TL=LCI                                                  FC5A218   120
                          5120000000 X            SA2    T=IOA                                                   FC5A248    32
          2621  0304002617 +                      ZR     X4,EXIT.    IF NO *LCI* ON FILE                         FC5A218   122
                          43600                   MX6    0                                                       FC5A248    33
                               37724              IX7    X2-X4                                                   FC5A248    34
          2622  5160002712 +                      SA6    PAXF                                                    FC5A248    35
                          5160002713 +            SA6    PAXG                                                    FC5A248    36
          2623  5170002714 +                      SA7    PAXH        OFFSET FOR *LCI* ON T.IOA                   FC5A248    37
                          10655                   BX6    X5                                                      FC5A218   123
          2624  5160002710 +                      SA6    PAXD                                                    FC5A218   124
                          76760                   SX7    B6                                                      FC5A218   125
          2625  5170002711 +                      SA7    PAXE                                                    FC5A218   126
                          76650                   SX6    B5                                                      FC5A218   127
                               37024              IX0    X2-X4                                                   FC5A218   128
          2626  5160002705 +                      SA6    PAXA                                                    FC5A218   129
                          5120000000 X            SA2    T.IOA                                                   FC5A218   130
          2627  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
          2630  10622                    PAX10    BX6    X2                                                      FC5A218   137
                     7244777774                   SX4    X4-3                                                    FC5A218   138
                               20657              HX6    TP.SHRT                                                 FC5A218   139
          2631  5022000003                        SA2    A2+3        NEXT LIMIT                                  FC5A218   140
                          0326002633 +            PL     X6,PAX20    IF LIMIT IS NOT CONSTANT                    FC5A218   141
          2632  0314002630 +                      NZ     X4,PAX10    IF MORE LIMITS                              FC5A218   142
                          0400002634 +            EQ     PAX30                                                   FC5A218   143
                                                                                                                 FC5A218   144
          2633  20615                    PAX20    LX6    TP.SHRTP+1  RESTORE LIMIT                               FC5A218   145
                     76010                        =X0    1                                                       FC5A218   146
                          0100001464 +            RJ     CML         CHECK FOR RESTART                           FC5A218   147
                                                                                                                 FC5A218   148
          2634  63650                    PAX30    SB6    X5                                                      FC5A218   149
          2635  5130000000 X             PAX40    SA3    T.IOA                                                   FC5A248    38
                          5110002714 +            SA1    PAXH                                                    FC5A248    39
          2636  5120000000 X                      SA2    WO.DOOT                                                 FC5A248    40
                          0312002656 +            NZ     X2,PAX50    IF DO = OT                                  FC5A248    41
          2637  5120002713 +                      SA2    PAXG                                                    FC5A248    42
                          20257                   HX2    TP.SHRT                                                 FC5A248    43
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    89
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PAX 
  
          2640  0322002656 +                      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
          2641  5110000000 X                      SA1    N.GL                                                    FC5A248    54
                          10611                   BX6    X1                                                      FC5A248    55
                               76210              =X2    1                                                       FC5A248    56
          2642  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
          2643  12612                             BX6    X1+X2                                                   FC5A248    61
                     10466                        BX4    X6                                                      FC5A248    62
                          5160002712 +            SA6    PAXF        SAVE GL OPERAND                             FC5A248    63
          2644  5150002706 +                      SA5    PAXB        INITIAL                                     FC5A248    64
                          5110000002 X            SA1    OPDUM+O.2ND-O.NONE                                      FC5A248    65
          2645  7100000000 X                      SX0    V=LCIF                                                  FC5A248    66
                          20052                   LX0    SP.SKELP                                                FC50104    70
                               12601              BX6    X0+X1                                                   FC5A248    68
          2646  5160000003 +                      SA6    IODTH                                                   FC5A248    69
                          5110000000 X            EMIT   IODTH,*,T.IOLC                                          FC5A248    70
          2650  5110000003 X                      SA1    OPDUM+O.BOTH-O.NONE                                     FC5A248    71
                          7100000000 X            SX0    V=NOOP                                                  FC5A248    72
          2651  20052                             LX0    SP.SKELP                                                FC50104    71
                     12601                        BX6    X0+X1                                                   FC5A248    74
                          5160000003 +            SA6    IODTH                                                   FC5A248    75
          2652  5140002707 +                      SA4    PAXC        UPPER LIMIT                                 FC5A248    76
                          5150000000 X            SA5    CONONE      INCREMENT                                   FC5A248    77
          2653  5110000000 X                      EMIT   IODTH,*,T.IOLC                                          FC5A248    78
          2655  5130000000 X                      SA3    T.IOA                                                   FC5A248    79
                          5110002714 +            SA1    PAXH                                                    FC5A248    80
                                                                                                                 FC5A248    81
          2656  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
          2657  5150000000 X                      SA5    CONONE                                                  FC5A218   157
                          54341                   =A3    A4+1        NEXT INITIAL                                FC5A218   158
                               54231              =A2    A3+1        NEXT LIMIT                                  FC5A218   159
          2660  14633                             BX6    -X3                                                     FC5A248    85
                     16762                        BX7    -X2+X6                                                  FC5A248    86
                          5170002713 +            SA7    PAXG                                                    FC5A248    87
          2661  10633                             BX6    X3                                                      FC5A218   160
                     10722                        BX7    X2                                                      FC5A218   161
                          5160002706 +            SA6    PAXB                                                    FC5A218   162
          2662  5170002707 +                      SA7    PAXC                                                    FC5A218   163
                          0100001556 +            RJ     AII         ADD CONTROL VARIABLE TO *ILI*               FC5A218   164
          2663  5110000003 X                      SA1    OPDUM+O.BOTH-O.NONE                                     FC5A248    88
                          7100000000 X            SX0    V=IOLC                                                  FC5A248    89
          2664  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/05. 19.59.34.      PAGE    90
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PAX 
  
          2665  5150002706 +                      SA5    PAXB                                                    FC5A218   170
                          5110000000 X            EMIT   IODTH,*,T.IOLC    EMIT FIRST HALF OF IOLC TURPLE        FC5A218   171
          2667  5110000003 X                      SA1    OPDUM+O.BOTH-O.NONE                                     FC5A218   172
                          7100000000 X            SX0    V=NOOP                                                  FC5A248    90
          2670  20052                             LX0    SP.SKELP                                                FC50104    73
                     12601                        BX6    X0+X1                                                   FC5A218   175
                          5160000003 +            SA6    IODTH                                                   FC5A218   176
          2671  5140002707 +                      SA4    PAXC                                                    FC5A218   177
                          5150000000 X            SA5    CONONE      INCREMENT                                   FC5A218   178
          2672  5110000000 X                      EMIT   IODTH,*,T.IOLC                                          FC5A218   179
          2674  0560002635 +                      NZ     B6,PAX40    IF MORE ENTRIES                             FC5A218   183
                          5110002503 +            SA1    TL=LCI                                                  FC5A218   184
          2675  5120000000 X                      SA2    T=IOA                                                   FC5A218   185
                          43700                   MX7    0                                                       FC5A218   186
                               37621              IX6    X2-X1                                                   FC5A218   187
          2676  54710                             SA7    A1          TL=LCI  = 0                                 FC5A218   188
                     5160000000 X                 SHRINK T=IOA,X6    DEALLOCATE *LCI*                            FC5A218   189
          2677  5140002712 +                      SA4    PAXF                                                    FC5A248    91
                          0304002702 +            ZR     X4,PAX60    IF NO PROTECT CODE ISSUED                   FC5A248    92
          2700  43500                             MX5    0                                                       FC5A248    93
                     5110000000 X                 EMIT   OPBSS,*,T.IOLC                                          FC5A248    94
                                                                                                                 FC5A248    95
          2702  5110002705 +             PAX60    SA1    PAXA                                                    FC5A248    96
                          63510                   SB5    X1                                                      FC5A218   191
          2703  5120002710 +                      SA2    PAXD                                                    FC5A218   192
                          5130002711 +            SA3    PAXE                                                    FC5A218   193
          2704  10522                             BX5    X2                                                      FC5A218   194
                     63630                        SB6    X3                                                      FC5A218   195
                          0400002617 +            EQ     EXIT.                                                   FC5A218   196
                                                                                                                 FC5A218   197
          2705                     1     PAXA     BSS    1                                                       FC5A218   198
          2706                     1     PAXB     BSS    1                                                       FC5A218   199
          2707                     1     PAXC     BSS    1                                                       FC5A218   200
          2710                     1     PAXD     BSS    1                                                       FC5A218   201
          2711                     1     PAXE     BSS    1                                                       FC5A218   202
          2712                     1     PAXF     BSS    1                                                       FC5A248    97
          2713                     1     PAXG     BSS    1                                                       FC5A248    98
          2714                     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
          2715  0400402715 +             PCI      SUBR   0           ENTRY/EXIT...                               IO       3558
          2716  10744                             BX7    X4                                                      IO       3559
                     76640                        SX6    B4                                                      IO       3560
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    91
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PCI 
  
                          5170002474 +            SA7    IDCK+1      SAVE TOKEN                                  IO       3561
          2717  55671                             SA6    A7-B1       SAVE ADDRESS                                IO       3562
                     7170000044                   SX7    O.SLP                                                   IO       3563
                               10611              BX6    X1                                                      IO       3564
          2720  56740                             SA7    B4                                                      IO       3565
                     5160000000 X                 SA6    ARGMODE                                                 IO       3566
          2721  0100000000 X                      CALL   PAR         PARSE COLLAPSE ITEMS                        IO       3567
          2722  5110002473 +                      SA1    IDCK                                                    IO       3568
                          54211                   SA2    A1+B1       FETCH ORIGINAL TOKEN                        IO       3569
                               43600              MX6    0                                                       IO       3570
          2723  10722                             BX7    X2                                                      IO       3571
                     54610                        SA6    A1          CLEAR TOKEN RESTORATION FLAG                IO       3572
                          53710                   SA7    X1          RESTORE                                     IO       3573
          2724  0400002715 +                      EQ     EXIT.                                                   IO       3574
  
  
  
  
                                                  LIST   D                                                       IO       3576
  
                                        CONTENT OF LITERALS BLOCK.
  
          2725  25161124000000000000    UNIT
          2726  05160400000000000000    END 
          2727  05222200000000000000    ERR 
          2730  06152400000000000000    FMT 
          2731  11172324012400000000    IOSTAT
          2732  22050300000000000000    REC 
          2733  53000000000000000000    $ 
          2734  01030305232300000000    ACCESS
          2735  02140116130000000000    BLANK 
          2736  02250614000000000000    BUFL
          2737  04112205032400000000    DIRECT
          2740  05301123240000000000    EXIST 
          2741  06111405000000000000    FILE
          2742  06172215000000000000    FORM
          2743  06172215012424000000    FORMATT 
          2744  05040000000000000000    ED
          2745  16011505000000000000    NAME
          2746  16011505040000000000    NAMED 
          2747  16053024220503000000    NEXTREC 
          2750  16251502052200000000    NUMBER
          2751  17200516050400000000    OPENED
          2752  22050314000000000000    RECL
          2753  23052125051624000000    SEQUENT 
          2754  11011400000000000000    IAL 
          2755  23240124252300000000    STATUS
          2756  25160617221501000000    UNFORMA 
          2757  24240504000000000000    TTED
          2760  25000000040000000000    U   D 
          2761  25006777720000000000    U &;< 
          2762  25007140240000000000    U ?5T 
          2763  25000000000000000000    U 
          2764  17252420252400000000    OUTPUT
          2765  20251603100000000000    PUNCH 
          2766  11162025240000000000    INPUT 
          2767  37400000000000000000    45
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    92
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           LITERALS
  
          2770  27400000000000000000    W5
          2771  00000000004000000100         5  A 
          2772  24012005000000000000    TAPE
          2773  00200000000000000120     P      AP
          2774  77777777777774000000    ;;;;;;@ 
          2775  00000377777774076177      C;;;@G[;
  
          2776                                    END                                                            IO       3577
  
                             76100B CM  STORAGE USED            12154 STATEMENTS     1954 SYMBOLS      000066 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.744 SECONDS        3126 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/15 X   57/55     83/43
        AII          1556   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        1567   PROGRAM*       57/17     57/34 L
        AII30        1577   PROGRAM*       57/30     57/32     57/52 L
        AII35        1603   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       2556   PROGRAM*       85/37 L   85/37 E
        A=DOCS       2570   PROGRAM*       86/17 L   86/17 E
        A=FMT        1277   PROGRAM*       45/31 L   45/31 E   46/51
        A=FOU        1326   PROGRAM*       46/33 L   46/33 E
        A=ICC        1336   PROGRAM*       47/16 L   47/16 E
        A=ICCX       1347   PROGRAM*       47/45 L   47/45 E
        A=ICI        1356   PROGRAM*       48/19 L   48/19 E
        A=ICIX       1367   PROGRAM*       48/50 L   48/50 E
        A=ICL        1400   PROGRAM*       49/27 L   49/27 E
        A=STR        1452   PROGRAM*       51/44 L   51/44 E
        A=UNT        1457   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/05. 19.59.34.      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          1464   PROGRAM*       52/37 L   52/37 E   77/34     88/49
        CMLA         1512   PROGRAM*       52/27     52/40 S   53/44 L
        CMLB         1515   PROGRAM*       53/47 L
        CML10        1503   PROGRAM*       53/22 L   53/28     53/36
        CML20        1510   PROGRAM*       53/32     53/40 L
        CML30        1461   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   83/46
        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          1702   PROGRAM*       60/13     62/23 L   62/23 E
        CVLAM        1741   PROGRAM*       62/40 S   64/11 L   67/45
        CVLPM        1742   PROGRAM*       10/16 S   11/35 S   29/39 S   30/11     62/34 S   63/42     64/12 L   81/04
        CVLTH        1743   PROGRAM*       62/31 S   64/13 L   80/57     81/04
        CVL1         1716   PROGRAM*       62/45     62/49 L
        CVL10        1740   PROGRAM*       62/37     64/08 L
        CVL4         1730   PROGRAM*       63/23     63/42 L
        CVL8         1733   PROGRAM*       63/22     63/54 L
        CVL.N        1717   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       2557   PROGRAM*       85/39 L   85/39 E
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        C=DOCS       2571   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        1337   PROGRAM*       47/19 L   47/19 E
        C=ICCX       1350   PROGRAM*       47/48 L   47/48 E
        C=ICI        1357   PROGRAM*       48/22 L   48/22 E
        C=ICIX       1370   PROGRAM*       48/53 L   48/53 E
        C=ICL        1401   PROGRAM*       49/30 L   49/30 E
        C=IOL        1411   PROGRAM*       50/08 L   50/08 E
        C=UNT        1460   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          1744   PROGRAM*       63/29     64/30 L
        DCB03        1756   PROGRAM*       64/47     65/01 L
        DCB06        1763   PROGRAM*       64/56     65/10 L
        DCB09        1766   PROGRAM*       64/51     65/17 L
        DCB1         1771   PROGRAM*       65/20     65/24 L
        DCB15        1777   PROGRAM*       65/25     65/35 L
        DCB2         2005   PROGRAM*       64/37     65/48 L
        DCB3         2007   PROGRAM*       65/22     65/46     65/56 L   66/12
        DCC          2015   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          2017   PROGRAM*       63/27     66/51 L
        DOBA         2037   PROGRAM*       67/18 S   67/26     67/50 L
        DOB1         2023   PROGRAM*       66/53     67/02 L
        DOB8         2035   PROGRAM*       66/54     66/57     67/45 L
        DOC          2040   PROGRAM*       63/28     68/15 L
        DOCI5        2561   PROGRAM*       85/45     85/49 L
        DOCOLI          0   EXTERNAL*       2/47 X   72/35
        DOCOLS          0   EXTERNAL*       2/47 X   71/13
        DOCS10       2607   PROGRAM*       86/54     87/05 L
        DOCS11       2611   PROGRAM*       87/10 L   87/14
        DOCS12       2613   PROGRAM*       87/06     87/16 L
        DOCS5        2600   PROGRAM*       86/27     86/32     86/38     86/42 L
        DOC2         2042   PROGRAM*       68/21 L   68/25
        DOC4         2045   PROGRAM*       68/23     68/27 L
        DOC6         2047   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/05. 19.59.34.      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/05. 19.59.34.      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          1607   PROGRAM*       53/06     57/53     58/25 L
        FII10        1616   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        1374   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/05. 19.59.34.      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          2053   PROGRAM*       66/52     69/29 L
        IDCA         2461   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         2462   PROGRAM*       70/42 S   72/50     77/13     82/02 L
        IDCC         2463   PROGRAM*       70/46 S   75/11     76/47     82/03 L
        IDCCV        2517   PROGRAM*       71/53 S   76/29     82/25 L
        IDCD         2464   PROGRAM*       70/49 S   75/13     76/57     81/36     82/04 L
        IDCE         2465   PROGRAM*       71/14 S   71/17     73/05     82/05 L   86/45
        IDCEX        2450   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         2466   PROGRAM*       72/34 S   82/06 L   85/50
        IDCG         2467   PROGRAM*       70/50 S   71/20     76/48     82/07 L   86/48
        IDCH         2470   PROGRAM*       71/28 S   73/06     73/24     74/09     75/12     77/14     82/08 L
        IDCI         2471   PROGRAM*       71/31 S   75/40     76/03 S   78/47     82/09 L
        IDCIDX       2504   PROGRAM*       66/10     71/35     72/05     73/25     74/10     82/20 L   86/46 S   87/08
        IDCINC       2516   PROGRAM*       72/33 S   72/43     82/24 D
        IDCIND       2514   PROGRAM*       82/21 L   82/22     82/23     82/24     85/52 S
        IDCINT       2514   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         2472   PROGRAM*       70/55 S   71/16     72/37     77/01     81/37     82/10 L
        IDCK         2473   PROGRAM*       81/48     82/11 L   91/01 S   91/08
        IDCL         2475   PROGRAM*       76/21 S   76/42     77/40     78/04     79/06     82/13 L
        IDCLMT       2515   PROGRAM*       73/34     76/31     78/03 S   79/08     79/30
                                           75/37     77/51     78/11     79/19     82/23 D
        IDCM         2476   PROGRAM*       70/27 S   82/14 L   86/55
        IDCN         2477   PROGRAM*       70/56 S   81/42     82/15 L
        IDCO         2500   PROGRAM*       71/02 S   81/44     82/16 L
        IDCP         2501   PROGRAM*       74/14 S   74/21 S   77/46     80/15 S   80/35     82/17 L
        IDCQ         2502   PROGRAM*       75/42 S   78/15     78/46 S   78/54     79/04 S   80/19     82/18 L
        IDC10        2063   PROGRAM*       69/52 L   70/01
        IDC15        2066   PROGRAM*       69/55     70/08 L
        IDC20        2072   PROGRAM*       70/13     70/17 L
        IDC30        2123   PROGRAM*       71/35 L   77/23
        IDC31        2136   PROGRAM*       72/07 L   72/11
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        IDC32        2140   PROGRAM*       72/03     72/13 L
        IDC33        2145   PROGRAM*       72/15     72/26 L
        IDC35        2165   PROGRAM*       73/04     73/12 L
        IDC36        2171   PROGRAM*       73/09     73/21     73/24 L
        IDC37        2173   PROGRAM*       73/22     73/32 L
        IDC38        2201   PROGRAM*       73/37     73/49 L
        IDC39        2210   PROGRAM*       73/47     73/52     74/09 L
        IDC40        2217   PROGRAM*       73/46     74/15     74/41 L
        IDC41        2227   PROGRAM*       74/48     75/02 L
        IDC42        2232   PROGRAM*       74/44     75/11 L
        IDC45        2252   PROGRAM*       75/50     75/53     76/05 L
        IDC47        2257   PROGRAM*       76/14     76/15     76/18 L
        IDC475       2271   PROGRAM*       76/22     76/45 L
        IDC48        2300   PROGRAM*       76/46     77/13 L
        IDC5         2057   PROGRAM*       69/32     69/36 L
        IDC50        2305   PROGRAM*       76/51     77/29 L
        IDC51        2311   PROGRAM*       77/30     77/37 L
        IDC51.1      2317   PROGRAM*       77/54 L   79/17     79/27
        IDC52        2324   PROGRAM*       77/47     78/07 L
        IDC52.1      2330   PROGRAM*       77/39     78/15 L
        IDC52.2      2337   PROGRAM*       78/29     78/30     78/33 L
        IDC52.3      2343   PROGRAM*       78/31     78/41 L
        IDC52.6      2355   PROGRAM*       78/49     79/06 L
        IDC52.7      2363   PROGRAM*       79/07     79/19 L
        IDC53        2367   PROGRAM*       78/10     79/29 L
        IDC54        2374   PROGRAM*       79/31     79/40 L
        IDC55        2403   PROGRAM*       77/42     79/56 L
        IDC56        2405   PROGRAM*       78/13     79/52     80/08 L
        IDC565       2422   PROGRAM*       80/13     80/37 L
        IDC57        2431   PROGRAM*       80/39     80/40     80/57 L
        IDC58        2437   PROGRAM*       81/08     81/12 L
        IDC59        2440   PROGRAM*       81/10     81/14 L
        IDC60        2456   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          2524   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/05. 19.59.34.      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         2526   PROGRAM*       84/01 L   84/08     84/27     85/04     85/08     85/10     85/28
        IOD4         2536   PROGRAM*       84/07     84/32 L
        IOD5         2543   PROGRAM*       84/06     84/55 L
        IOD6         2545   PROGRAM*       84/47     85/03 L
        IOD7         2551   PROGRAM*       85/06     85/11 L
        IOD8         2552   PROGRAM*       84/57     85/14 L
        IOD9         2520   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        1423   PROGRAM*       50/20     50/31 L
        IOL20        1437   PROGRAM*       51/02     51/06 L
        IOL30        1442   PROGRAM*       50/17     50/22     50/29     50/45     51/17 L
                                           50/18     50/24     50/43     51/07
        IOL40        1445   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          1516   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/05. 19.59.34.      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          1620   PROGRAM*       15/17     15/19     17/07     18/18     18/44     19/16     59/20 L   59/20 E
        LST1         1620   PROGRAM*       59/21 L
        LST10        1662   PROGRAM*       60/18     60/33     60/37 L   61/17     61/21     61/23
        LST11        1666   PROGRAM*       60/41     60/45 L
        LST2         1627   PROGRAM*       59/30     59/32     59/34     59/37 L
        LST3         1631   PROGRAM*       59/23     59/29     59/35     59/40 L
        LST9         1661   PROGRAM*       60/19     60/20     60/35 L
        LST.N        1670   PROGRAM*       59/50     61/07 L
        LST.N1       1700   PROGRAM*       61/19     61/22 L
        LST.S        1632   PROGRAM*       24/26     59/42 L
        LTB=            0   EXTERNAL*       2/38 X   83/49
        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          1522   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/05. 19.59.34.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        OCTA         1530   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          1531   PROGRAM*       10/49     12/15     55/10 L   59/40
        OST1         1536   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          2617   PROGRAM*       50/09     77/35     88/16 L
        PAXA         2705   PROGRAM*       88/31 S   90/23     90/31 L
        PAXB         2706   PROGRAM*       89/21     89/50 S   90/01     90/32 L
        PAXC         2707   PROGRAM*       89/33     89/51 S   90/08     90/33 L
        PAXD         2710   PROGRAM*       88/26 S   90/25     90/34 L
        PAXE         2711   PROGRAM*       88/28 S   90/26     90/35 L
        PAXF         2712   PROGRAM*       88/22 S   89/20 S   90/18     90/36 L
        PAXG         2713   PROGRAM*       88/23 S   88/56     89/47 S   90/37 L
        PAXH         2714   PROGRAM*       88/24 S   88/53     89/37     90/38 L
        PAX10        2630   PROGRAM*       88/39 L   88/44
        PAX20        2633   PROGRAM*       88/43     88/47 L
        PAX30        2634   PROGRAM*       88/45     88/51 L
        PAX40        2635   PROGRAM*       88/52 L   90/11
        PAX50        2656   PROGRAM*       88/55     89/01     89/39 L
        PAX60        2702   PROGRAM*       90/19     90/23 L
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/05. 19.59.34.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        PCI          2715   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/05. 19.59.34.      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/05. 19.59.34.      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            1   FTX            46/30 F   63/31 F   83/45 F   87/24 F
        TL=LCI       2503   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/05. 19.59.34.      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          1543   PROGRAM*       26/27     44/36     48/26     51/47     56/07 E
                                           41/40     47/23     49/34     56/07 L   58/03
        VAI4         1552   PROGRAM*       56/17     56/21 L
        VAI8         1554   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/05. 19.59.34.      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/05. 19.59.34.      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/05. 19.59.39.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     5146              IDENT  PAR
                       5146                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4726 
                                        LITERALS* LOCAL        4726        30 
                                        DEBUG     LOCAL        4756       170 
  
  
                                        ENTRY POINTS. 
  
                                        B=PAR            0+           IFARM          373+           DTC           2333+ 
                                        PARNOW           0+           LBARM          376+           EXD           2511+ 
                                        SMOD             2+           UBARM          377+           CF=AC         2635+ 
                                        SOPR             3+           PJXARM         401+           EAL           3046+ 
                                        CURST            4+           BUFMOD         405+           ES=CMPL          0
                                        CNF             30+           BUFFWA         406+           ES=LEN          10
                                        PIX             40+           BUFLWA         407+           ES=LGE          22
                                        PKX             66+           CNTARM         410+           ES=LGT          26
                                        DO.BEG         305+           DOCOLI         411+           ES=LLE          31
                                        MULROP         312+           DOCOLS         412+           ES=LLT          32
                                        ARYOP          315+           FMTARM         413+           ES=MASK         34
                                        DVLOP          316+           FOUARM         414+           ES=SHIF         47
                                        ERROP          317+           ICCARM         415+           ES=LOCF         63
                                        GAPOP          324+           ICCXARM        416+           ES=RANF         73
                                        IOCTL          326+           ICIARM         417+           VEL           3300+ 
                                        IODTA          327+           ICIXARM        420+           ACT           4023+ 
                                        IOUNT          330+           ICLARM         421+           ADT           4031+ 
                                        NOOPP          335+           IOARGM         422+           CMR           4167+ 
                                        OPBSS          336+           STRARM         424+           DOA           4236+ 
                                        OPDUM          340+           UNTARM         425+           ECC           4271+ 
                                        VD.EQ          352+           PAR            426+           EMT           4311+ 
                                        VD.MI          353+           PAR.NX         461+           FAT           4334+ 
                                        VD.MU          354+           PAREXIT       1472+           GOL           4355+ 
                                        VD.PL          355+           IOL.RTN       1533+           OMC           4410+ 
                                        VD.GP          356+           POP.STD       1572+           SDM           4506+ 
                                        CALLARM        366+           C=CERR        1606+           TPC           4721+ 
                                        DATARM         370+           C=ERR         1607+ 
                                        DOARM          371+           POP.DVA       1731+ 
  
  
                                        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 
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        LIR       E.AT01    E.LP3     E.MDE5    C=DOCI    T=ARG     OM=LT     V=RANF
                                        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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE     3
                                                                      PAR 
  
                                        *                PARSE/ANALYZE SYMBOLIC ELEMENT.                         PAR        18
                                        *                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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE     4
                                                                      PAR 
  
                                        *         IN IDP                                                         PAR        71
                                                  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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE     5
                                                                      POEM
  
                                        **        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
                                        *         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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE     6
  
  
            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
                                  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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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  0400001472 +                      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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  00000000000000001567 +   EOS      POPNX  ERR                                                     PAR       505
      L      1  00000000000000001567 +   HOLL     POPNX  ERR                                                     PAR       506
      L      2  00000000000000001567 +   QHOLL    POPNX  ERR                                                     FC5A258    50
      L      3  00000000000000001567 +   RLCON    POPNX  ERR                                                     FC5A258    51
      L      4  00000000000000001567 +   CHAR     POPNX  ERR                                                     PAR       507
      L      5  00000000000000001567 +   CONS     POPNX  ERR                                                     PAR       508
      L      6  00000000000000001567 +   OCT      POPNX  ERR                                                     PAR       509
      L      7  00000000000000001567 +   HEX      POPNX  ERR                                                     PAR       510
      L     10  00000000000000001567 +   PERIOD   POPNX  ERR                                                     PAR       511
      L     11  00000000000000001567 +   VAR      POPNX  ERR                                                     PAR       512
      L     12  00000000000000001567 +   TRUE     POPNX  ERR                                                     PAR       513
      L     13  00000000000000001567 +   FALSE    POPNX  ERR                                                     PAR       514
      L                                                                                                          PAR       515
      L     14  00000000000000001732 +   PL       POPNX  PL                                                      PAR       516
      L     15  00000000000000001572 +   MIN      POPNX  STD                                                     PAR       517
      L     16  00000000000000001650 +   MULT     POPNX  MUL                                                     PAR       518
      L     17  00000000000000001673 +   DIV      POPNX  DIV                                                     PAR       519
      L     20  00000000000000001744 +   UMIN     POPNX  UM                                                      PAR       520
      L     21  00000000000000002363 +   EXP      POPNX  EXP                                                     PAR       521
      L                                                                                                          PAR       522
      L     22  00000000000000001772 +   LT       POPNX  REL                                                     PAR       523
      L     23  00000000000000001772 +   GE       POPNX  REL                                                     PAR       524
      L     24  00000000000000001772 +   EQ       POPNX  REL                                                     PAR       525
      L     25  00000000000000001772 +   NE       POPNX  REL                                                     PAR       526
      L     26  00000000000000001766 +   LE       POPNX  LE          REVERSED TO O.GE                            PAR       527
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    15
        PARSER CONTROL TABLES.                                        POPNX 
  
      L     27  00000000000000001767 +   GT       POPNX  GT          REVERSED TO O.LT                            PAR       528
      L                                                                                                          PAR       529
      L     30  00000000000000001762 +   NOT      POPNX  NOT                                                     PAR       530
      L     31  00000000000000001764 +   AND      POPNX  LOG                                                     PAR       531
      L     32  00000000000000001764 +   XOR      POPNX  LOG                                                     FC51485    26
      L     33  00000000000000001764 +   NEQV     POPNX  LOG                                                     FC51485    27
      L     34  00000000000000001764 +   EQV      POPNX  LOG                                                     PAR       533
      L     35  00000000000000001764 +   OR       POPNX  LOG                                                     PAR       534
      L     36  00000000000000002040 +   CAT      POPNX  CAT                                                     PAR       535
      L                                                                                                          PAR       536
      L     37  00000000000000001615 +   LP       POPNX  PN                                                      PAR       537
      L     40  00000000000000001610 +   RP       POPNX  RP                                                      PAR       538
      L     41  00000000000000002071 +   =        POPNX  EQL                                                     PAR       539
      L     42  00000000000000001602 +   COMMA    POPNX  CM                                                      PAR       540
      L     43  00000000000000001602 +   COLON    POPNX  COL                                                     PAR       541
      L     44  00000000000000001615 +   SLP      POPNX  PN          SPECIAL LEFT PAREN                          PAR       542
      L                                                                                                          PAR       543
      L     45  00000000000000001567 +   STFA     POPNX  ERR                                                     PAR       544
      L     46  00000000000000001567 +   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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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/05. 19.59.39.      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
                          7202776244 -            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/05. 19.59.39.      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  0305001450 +                      ZR     X5,PAR.EOS  IF *EOS* FIRST ELEMENT                      PAR       957
                                   0              ERRNZ  O.EOS                                                   FC50068     5
                          6225777731              SB2    X5-O.ILL                                                FC50068     6
           455  0420001520 +                      ZR     B2,PAR.STOP IF INVALID STRING TOKEN                     FC50068     7
                          5154000001              SA5    B4+1        POINT TO NEXT TOKEN                         FC50377     6
           456  0400001433 +                      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/05. 19.59.39.      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
                          0301001450 +            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
           464  5130000000 X                      SA3    CO.SNAP                                                 PAR       997
                          20332                   LX3    1RZ                                                     PAR       998
           465  0323000472 +                      PL     X3,PAR.NXS  IF PARSE SNAP NOT SELECTED                  PAR       999
                          56350                   SA3    B5                                                      PAR      1000
           466  0100000000 X             MASTER   PARSNAP                                                        PAR      1001
           472  56350                    PAR.NXS  SA3    B5                                                      PAR      1002
                                         SNAP=Z   ENDIF                                                          PAR      1003
                                                                                                                 PAR      1004
                                         .T       IFEQ   TEST,ON                                                 PAR      1005
                     63210                        =B2    X1-O.DEF                                                PAR      1006
                          0720400472 +            MI     B2,"BLOWUP" TOKEN VERRY ILL                             PAR      1007
           473  6221777731                        SB2    X1-O.ILL                                                PAR      1008
                          0702400473 +            GT     B2,"BLOWUP" THIS TOKEN TOO BIG FOR CONO TABLE           PAR      1009
                                         .T       ENDIF                                                          PAR      1010
                                                                                                                 PAR      1011
           474  6120000047                        SB2    O.ENDNX                                                 PAR      1012
                          0723001417 +            GT     B3,B2,PAREX IF FOLLOWING TOKEN OUT OF CONO TABLE        PAR      1013
           475  0324001417 +                      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/05. 19.59.39.      PAGE    26
        PARSE/ANALYZE CONSTANT ELEMENT.                               O.TRUE
  
                                        **        HERE IF ELEMENT IS LOGICAL CONSTANT.                           PAR      1018
                                                                                                                 PAR      1019
                                                                                                                 PAR      1020
           476                           PAR.TRU  BSS    0           ENTRY...    (FROM CONO)                     PAR      1021
           476                           PAR.FAL  BSS    0           ENTRY...    (FROM CONO)                     PAR      1022
           476  5130000000 +                      SA3    PARNOW                                                  PAR      1023
                          6273777774              SB7    X3-PM=DIM                                               PAR      1024
           477  0570000503 +                      NZ     B7,PAR.FAL1       IF NOT 'DIM BOUND' PARSING            PAR      1025
                          6170000000 X            SB7    E.DM01                                                  PAR      1026
           500  0100004222 +                      RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR           PAR      1027
           501  5110000000 X                      SA1    CONONE                                                  PAR      1028
                          22601                   LX6    X1                                                      PAR      1029
           502  0400000505 +                      EQ     TNK.ES                                                  PAR      1030
                                                                                                                 PAR      1031
           503  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
           504  10611                             BX6    X1                                                      PAR      1035
                                                                                                                 PAR      1036
                                                                                                                 PAR      1037
           505                           TNK.ES   BSS    0           CONSTANT OPERAND TO ESTACK                  PAR      1038
           505  66441                             SB4    B4+B1       ADVANCE TOKEN POINTER                       PAR      1039
                     56660                        SA6    B6                                                      PAR      1040
                          6166000001              SB6    B6+1        ADVANCE ESTACK TOP                          PAR      1041
           506  0400000461 +                      EQ     PAR.NX                                                  PAR      1042
  
  
  
  
                                        **        TNK - CONVERT NUMERIC CONSTANTS.                               PAR      1044
                                        *                                                                        PAR      1045
                                        *         CALLS  DEC, OCT, NBC.                                          PAR      1046
                                                                                                                 PAR      1047
                                                                                                                 PAR      1048
           507                           PAR.OCT  BSS    0           O.OCT + O.HEX = BOOLEAN CONSTANTS           PAR      1049
           507  6170000000 X                      ANSI   E.DC1       O.OCT AND O.HEX NON-ANSI                    FC50560     5
           510  6170000000 X                      MDERR  E.MDE2      OCTAL AND HEX ARE MACHINE DEPENDENT         F1037F5   433
           511  0100000000 X                      CALL   OCT                                                     PAR      1050
           512  0400000514 +                      EQ     TNK.DBL                                                 PAR      1051
                                                                                                                 PAR      1052
                                                                                                                 PAR      1053
           513                           PAR.DEC  BSS    0           O.CONS = DECIMAL CONSTANT                   PAR      1054
           513  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
           514  5130000000 +             TNK.DBL  SA3    PARNOW                                                  PAR      1063
                          6273777774              SB7    X3-PM=DIM                                               PAR      1064
           515  0570000521 +                      NZ     B7,TNK.DBL5    IF NOT 'DIM BOUND' PROCESSING            PAR      1065
                          0301000521 +            ZR     X1,TNK.DBL5    IF MODE BOOLEAN                          PAR      1066
           516  6221777775                        SB2    X1-M.INT                                                PAR      1067
                          0420000521 +            ZR     B2,TNK.DBL5    IF MODE INTEGER                          PAR      1068
           517  6170000000 X                      SB7    E.DM01                                                  PAR      1069
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    27
        PARSE/ANALYZE CONSTANT ELEMENT.                               PAR.TNK 
  
                          0100004222 +            RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR           PAR      1070
           520  76111                             =X1    M.INT                                                   PAR      1071
                     76610                        =X6    1           DUMMY UP A CONSTANT 1                       PAR      1072
           521  10722                    TNK.DBL5 BX7    X2                                                      PAR      1073
                     0100000000 X                 CALL   NBC         ENTER BINARY OF CONSTANT                    PAR      1074
           522  56241                             SA2    B4+B1                                                   PAR      1075
                     5110000171 +                 SA1    ACONS                                                   PAR      1076
                               66441              =B4    B4+1                                                    PAR      1077
           523  63320                             SB3    X2                                                      PAR      1078
                     56660                        SA6    B6                                                      PAR      1079
                          22431                   LX4    B3,X1                                                   PAR      1080
                               66661              =B6    B6+1                                                    PAR      1081
           524  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
           525  6144777776                        SB4    B4-1                                                    FC5A216     6
                          6221777737              SB2    X1-O.RP                                                 FC5A216     7
           526  0520001417 +                      NZ     B2,PAREX    IF NOT COMPLEX CONSTANT                     FC5A216     8
                          5140000000 X            SA4    ARGMODE                                                 FC5A216     9
           527  20425                             SBIT   X4,AM.RPP                                               FC5A216    10
                     0324001417 +                 PL     X4,PAREX    IF NO SPECIAL PROCESSING                    FC5A216    11
                               66441              =B4    B4+1                                                    FC5A216    12
           530  6170000000 X                      SB7    E.PX5                                                   FC50041     6
                          0400001417 +            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
           531                           TNK.PARM BSS    0           ENTRY ... FROM TRE                          PAR      1094
                                                  LX2    -WB.MODEP                                               F1037F5   434
           531  43371                             MX3    -WB.MODEL                                               F1037F5   435
                     15323                        BX3    -X3*X2      EXTRACT MODE                                F1037F5   436
                                                  LX2    WB.MODEP                                                F1037F5   437
                          0313000533 +            NZ     X3,TNKPR0   IF NOT BOOLEAN                              F1037F5   438
                                   0              ERRNZ  M.BOOL                                                  F1037F5   439
           532  6170000000 X                      MDERR  E.MDE2                                                  F1037F5   440
                                                                                                                 F1037F5   441
           533  5130000000 +             TNKPR0   SA3    PARNOW                                                  F1037F5   442
                          7233777774              SX3    X3-PM=DIM                                               PAR      1096
           534  0313000542 +                      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
           535  6221777775                        SB2    X1-M.INT                                                PAR      1101
                          0301000542 +            ZR     X1,TNKPR1   IF MODE BOOLEAN                             PAR      1102
           536  0420000542 +                      ZR     B2,TNKPR1   IF MODE INTEGER                             PAR      1103
                          6170000000 X            SB7    E.DM01                                                  PAR      1104
           537  0100004222 +                      RJ     DBE         OUTPUT ILLEGAL MODE DIAGNOSTIC              PAR      1105
           540  5110000000 X                      SA1    CONONE                                                  PAR      1106
                          22601                   LX6    X1                                                      PAR      1107
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    28
        PARSE/ANALYZE CONSTANT ELEMENT.                               TNK.PARM
  
           541  0400000505 +                      EQ     TNK.ES                                                  PAR      1108
                                                                                                                 PAR      1109
           542  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
           543  5110000000 X                      SA1    REFVAR                                                  PAR      1115
                          10600                   BX6    X0                                                      PAR      1116
           544  6170000545 +                      ADDREF X6,X1       ENTER REFERENCE TABLE                       PAR      1117
           545  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
           546  0420000556 +                      ZR     B2,TNKPR4   IF CHARACTER PARAMETER                      PAR      1122
                          5130000000 X            SA3    T.CON                                                   FC50275     8
           547  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
           550  10155                             BX1    X5          MODE                                        FC50275    13
                     22702                        LX7    X2                                                      FC50275    14
                          0100000000 X            CALL   NBC         ENTER BINARY OF CONSTANT                    FC50275    15
           551  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
           552  0570000505 +                      NZ     B7,TNK.ES   IF NOT FOLLOWED BY LEFT PAREN               FC5A111    40
                          6170000000 X            FATAL  E.AT20      ** ILLEGAL USE OF PARAMETER                 FC5A111    41
           554  66441                             =B4    B4+1        B4 _ LEFT PAREN                             FC5A111    42
                     0100004567 +                 RJ     SPE         SKIP PARENTHESIZED EXPR                     FC5A111    43
           555  0620000000 X                      PL     B2,PSL      IF *EOS* FOUND BY SPE                       FC5A111    44
                          0400000505 +            EQ     TNK.ES                                                  FC5A403     7
                                                                                                                 PAR      1130
           556  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
           557  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
           560  0570000612 +                      NZ     B7,PAR.CHR1 IF NOT FOLLOWED BY LEFT PAREN               PAR      1139
                          6170000000 X            FATAL  E.AT18      ** SUBSTRING ILLEGAL FOR PARAMETER FILL.    PAR      1140
           562  20330                             LX3    TB.TOTP-TB.IOCPP                                        PAR      1141
                     63430                        SB4    X3          SKIP OVER THE PARENTHESIZED GROUP           PAR      1142
                          0400000612 +            EQ     PAR.CHR1                                                PAR      1143
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    29
        PARSE/ANALYZE CONSTANT ELEMENT.                               PAR.HOL 
  
                                        **        HERE IF ELEMENT IS A *HOLLERITH CONSTANT*.                     PAR      1145
                                                                                                                 PAR      1146
                                                                                                                 PAR      1147
           563                           PAR.HOL  BSS    0                                                       PAR      1148
           563  6170000000 X                      MDERR  E.MDE2      ALL HOLLERITH FORMS ARE MACHINE DEPENDENT   F1037F5   443
           564  6170000000 X                      ANSI   E.AT08      HOLLERITH IS NON-ANSI                       FC50796     6
           565  10011                             BX0    X1                                                      PAR      1149
                     21022                        AX0    TB.LCONP                                                PAR      1150
                          43263                   MX2    -TB.LCONL                                               PAR      1151
                               15702              BX7    -X2*X0                                                  PAR      1152
           566  6277777776                        SB7    X7-1                                                    PAR      1153
                          0470000600 +            ZR     B7,PAR.HOL5 IF LENGTH=1, OK                             PAR      1154
           567  5120000000 X                      SA2    ARGMODE                                                 FC5A415    12
                          6272775130 -            SB7    X2-A=CALL                                               FC5A415    13
           570  0470000574 +                      ZR     B7,PAR.HOL1 IF SUBROUTINE ARGUMENT                      FC5A415    14
                          6272775106 -            SB7    X2-A=FUN                                                FC5A415    15
           571  0470000574 +                      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
           573  0400000575 +                      EQ     PAR.HOL2                                                FC5A415    18
                                                                                                                 FC5A415    19
           574  7160000001               PAR.HOL1 SX6    1                                                       FC5A415    20
                          5160000000 X            SA6    NSQZLH      SET FLAG TO NOT SQUEEZE                     FC5A415    21
                                                                                                                 FC5A415    22
           575                           PAR.HOL2 BSS    0                                                       FC5A415    23
           575  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
           576  20154                             LX1    TP.ORDP                                                 PAR      1160
                     20624                        LX6    TP.BIASP                                                PAR      1161
                          12616                   BX6    X1+X6       FORM CON. *P1* ENTRY                        PAR      1162
           577  0400000505 +                      EQ     TNK.ES      GO ENTER STACK                              PAR      1164
                                                                                                                 FC50796     8
           600  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
           601  53127                             SA1    X2+B7       BINARY OF CONSTANT                          FC50796    13
                     76700                        =X7    M.BOOL                                                  FC50796    14
                          22601                   LX6    X1                                                      FC50796    15
           602  0100000000 X                      CALL   NCS         PROVIDE TP.SHRT WHEN APPROPRIATE            FC50796    16
           603  0400000505 +                      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
           604                           PAR.CHR  BSS    0           ENTRY ... FROM (F.CONO)                     PAR      1175
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    30
        PARSE/ANALYZE CONSTANT ELEMENT.                               PAR.CHR 
  
           604  5130000000 +                      SA3    PARNOW                                                  PAR      1176
                          20122                   LX1    -TB.SHCP                                                PAR      1177
                               43755              MX7    -TB.CLCNL                                               PAR      1178
           605  43052                             MX0    -TB.SHCL                                                PAR      1179
                     15210                        BX2    -X0*X1      CHAR IND = SHC [TB ENTRY]                   PAR      1180
                          6170000000 X            SB7    E.DM01                                                  PAR      1181
           606  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
           607  0313000612 +                      NZ     X3,PAR.CHR1       IF NOT 'DIM BOUND' PARSE              PAR      1185
                          0100004222 +            RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR           PAR      1186
           610  5110000000 X                      SA1    CONONE                                                  PAR      1187
                          22601                   LX6    X1                                                      PAR      1188
           611  0400000505 +                      EQ     TNK.ES                                                  PAR      1189
                                                                                                                 PAR      1190
           612  0100004271 +            PAR.CHR1  RJ     ECC         EMIT CHARACTER CONSTANT                     PAR      1191
           613  66441                             SB4    B4+B1                                                   PAR      1192
                     0400000461 +                 EQ     PAR.NX                                                  PAR      1193
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
           614                           PAR.VAR  BSS    0                                                       PAR      1221
           614  56140                             SA1    B4                                                      PAR      1222
                     43052                        MX0    TB.TOCL                                                 PAR      1223
                          11601                   BX6    X0*X1       SYMBOL ONLY                                 PAR      1224
                               13777              BX7    0                                                       PAR      1225
           615  5160000000 X                      SA6    FILL.       IN CASE OF ERROR                            PAR      1226
                          5170000001 +            SA7    ATTR        CLEAR ATTRIBUTE CELL                        PAR      1227
           616  5160000013 +                      SA6    CSYMBOL     SAVE CURRENT SYMBOL                         PAR      1228
                          56241                   =A2    B4+1                                                    PAR      1229
           617  6272777766                        SB7    X2-O.VAR                                                PAR      1230
                          0570000621 +            NZ     B7,PAR.VAR2 IF LESS THAN 8 CHARACTERS IN NAME           PAR      1231
           620  0100000000 X                      CALL   TLV         TRUNCATE NAME -- SORT OF                    PAR      1232
                                                                                                                 FC50326    17
           621  0100000000 X             PAR.VAR2 CALL   SSY         SEARCH SYMBOL TABLE                         PAR      1233
           622  5130000000 X                      SA3    REFVAR                                                  PAR      1234
                          7170000040              CLAS=  X7,WB,(VAR)                                             PAR      1235
           623  6223777754                        SB2    X3-CR.STR                                               PAR      1236
                          0520000625 +            NZ     B2,TRE6     IF NOT PROCESSING A *SET*                   PAR      1237
           624  7170000240                        CLAS=  X7,WB,(VAR,DEF)                                         PAR      1238
                                                                                                                 FC50326    18
           625  0770001000 +             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/05. 19.59.39.      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
           626  0336000531 +                      MI     X6,TNK.PARM       IF PARAMETER VARIABLE                 PAR      1260
                          0100000000 X            CALL   CT1         CONSTRUCT (TP.) FORM OPERAND                PAR      1261
           627  5160000014 +                      SA6    CSYTAG                                                  PAR      1262
                          54661                   =A6    A6-CSYTAG+CSYREF                                        PAR      1263
                               10622              BX6    X2          SAVE (WB)                                   PAR      1264
           630  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
           631  22302                             LX3    X2                                                      PAR      1266
                     54661                        =A6    A6-CSYREF+CSYWB                                         PAR      1267
                          7201777740              SX0    X1-O.LP                                                 PAR      1268
           632  20366                             SBIT   X3,WB.VARP                                              PAR      1269
                     0323000663 +                 PL     X3,TRE30    IF NOT VARIABLE                             PAR      1270
                               20367              SBIT   X3,WB.ARYP/WB.VARP                                      PAR      1271
           633  0323000653 +                      PL     X3,TRE22    IF NOT ARRAY                                PAR      1272
                          12667                   BX6    X6+X7                                                   PAR      1273
                               43701              CLAS=  X7,TP,(ARR)                                             PAR      1274
                     6120001140 +                 SB2    PAR.SUB                                                 PAR      1275
                               54620              SA6    A2          RESET TAG WITH APPROPRIATE CLASS BITS       PAR      1276
           635  5170000001 +                      SA7    ATTR                                                    PAR      1277
                          0100004131 +            RJ     CIL         CHECK IF ILLEGAL LEVEL                      PAR      1278
           636  0300001021 +                      ZR     X0,TREX     IF ARRAY FOLLOWED BY *(*                    PAR      1279
                          5130000000 X            SA3    ARGMODE                                                 PAR      1280
           637  20321                             HX3    AM.ARE                                                  PAR      1282
                     43401                        MX4    1                                                       FC5A279     5
                          0323000650 +            PL     X3,TRE15    IF ENTIRE ARRAY REFERENCE ILLEGAL           FC5A228     5
           640  5114777776                        SA1    B4-1        FETCH PREVIOUS TOKEN                        FC5A228     6
                          7211777740              SX1    X1-O.LP                                                 FC5A228     7
           641  0301000645 +                      ZR     X1,TRE14    IF LP PRECEDES, OK                          FC5A228     8
                          7211777772              SX1    X1+O.LP-O.SLP                                           FC5A228     9
           642  0301000645 +                      ZR     X1,TRE14    IF SPECIAL LP PRECEDES, OK                  FC5A228    10
                          7211000002              SX1    X1+O.SLP-O.COMMA                                        FC5A228    11
           643  0301000645 +                      ZR     X1,TRE14    IF COMMA PRECEDES, OK                       FC5A228    12
                          7211777772              SX1    X1+O.COMMA-O.DOBI                                       FC5A228    13
           644  0301000645 +                      ZR     X1,TRE14    IF DO-BEGIN PRECEDES, OK                    FC5A228    14
                          0400000650 +            EQ     TRE15       IF PREVIOUS TOKEN INDICATES INVALID         FC5A228    15
                                                                                                                 FC5A228    16
           645  7200777776               TRE14    SX0    X0+O.LP-O.RP                                            FC5A228    17
                          0300000651 +            ZR     X0,TRE16    IF RP FOLLOWS, OK                           FC5A228    18
           646  7200777775                        SX0    X0+O.RP-O.COMMA                                         FC5A228    19
                          0300000651 +            ZR     X0,TRE16    IF COMMA FOLLOWS, OK                        FC5A228    20
           647  7200000042                        SX0    X0+O.COMMA-O.EOS                                        FC5A228    21
                          0300000651 +            ZR     X0,TRE16    IF EOS FOLLOWS, OK (FOR I/O LISTS)          FC5A228    22
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    33
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                                                                                                 FC5A228    23
           650  6170000000 X             TRE15    FATAL  E.VA08      ** ARRAY MISSING SUBSCRIPT                  FC5A228    24
                                                                                                                 FC5A228    25
           651  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
           652  12717                             BX7    X1+X7       UPDATE (ATTR)                               PAR      1289
                     54770                        SA7    A7                                                      PAR      1290
                          0400001021 +            EQ     TREX        EXIT..                                      PAR      1291
                                                                                                                 PAR      1292
                                                                                                                 PAR      1293
                                        *         HERE IF POSSIBLE VARIABLE.                                     PAR      1294
                                                                                                                 PAR      1295
           653  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
           654  0100004131 +                      RJ     CIL         CHECK ILLEGAL LEVEL                         PAR      1299
           655  0310001021 +                      NZ     X0,TREX     IF NOT FOLLOWED BY LEFT PAREN               PAR      1300
                          56141                   SA1    B4+B1                                                   PAR      1301
           656  6120001150 +                      SB2    PAR.SBS                                                 PAR      1302
                                                  HX1    TB.COL                                                  PAR      1303
                          0331001021 +            MI     X1,TREX     IF SUBSTRING LPAREN                         PAR      1304
           657  6170000000 X                      FATAL  E.VA03      ILLEGAL *(* FOLLOWING VARIABLE NAME         PAR      1305
                                                                                                                 PAR      1306
                                        *         SKIP OVER BAD PARENTHESIZED EXPRESSION.                        PAR      1307
                                                                                                                 PAR      1308
           660  66441                             =B4    B4+1                                                    PAR      1309
                     0100004567 +                 RJ     SPE         SKIP PARENTHESIZED EXPRESSION               FC5A294    27
           661  0620000000 X                      PL     B2,PSL      IF *EOS* FOUND                              FC5A111    48
                          6120000461 +            SB2    PAR.NX                                                  PAR      1324
           662  0400001021 +                      EQ     TREX        EXIT..                                      PAR      1325
                                                                                                                 PAR      1326
                                        *         HERE IF POSSIBLE FUNCTION/SUBROUTINE.                          PAR      1327
                                                                                                                 PAR      1328
           663  6120001162 +             TRE30    SB2    PAR.FUN     INDICATE EXTERNAL                           PAR      1329
                          20373                   SBIT   X3,WB.NVARP/WB.VARP                                     PAR      1330
           664  0323000743 +                      PL     X3,TRE70    IF VARIABLE                                 PAR      1331
                          57541                   =A5    B4-1        X5 = TOKEN BEFORE POSSIBLE FUNCTION         FC5A164    44
           665  7240777774                        SX4    X0+O.LP-O.COMMA                                         FC5A164    45
                          6235777735              SB3    X5-O.COMMA                                              FC5A164    46
           666  7255777733                        SX5    X5-O.SLP                                                FC5A164    47
                          20366                   SBIT   X3,WB.FUNP/WB.NVARP                                     PAR      1332
           667  0323000714 +                      PL     X3,TRE40    IF NOT A FUNCTION                           PAR      1333
                          0300001021 +            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
           670  10733                    TRE30.1  BX7    X3                                                      FC5A437     5
                     6120000461 +                 SB2    PAR.NX                                                  PAR      1342
           671  6170000000 X                      SB7    E.VA04                                                  PAR      1343
                          5110000000 X            SA1    ARGMODE                                                 FC5A437     6
           672  20127                             SBIT   X1,AM.FUNP                                              FC5A437     7
                     0321000712 +                 PL     X1,TRE35    IF STAND ALONE EXTERNAL NOT ALLOWED         FC5A437     8
           673  7200777776                        SX0    X0+O.LP-O.RP                                            FC5A164    48
                          0300000675 +            ZR     X0,TRE31    IF FOLLOWED BY RP                           FC5A164    49
           674  0314000712 +                      NZ     X4,TRE35    IF NOT FOLLOWED BY A COMMA                  FC5A164    50
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    34
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                                                                                                 FC5A164    51
           675  0305000677 +             TRE31    ZR     X5,TRE33    IF PRECEDED BY A SPECIAL LP                 FC5A164    52
                          7255000005              SX5    X5+O.SLP-O.LP                                           FC5A164    53
           676  0305000677 +                      ZR     X5,TRE33    IF PRECEDED BY LP                           FC5A164    54
                          0530000712 +            NZ     B3,TRE35    IF NOT PRECEDED BY A COMMA                  FC5A164    55
                                                                                                                 FC5A164    56
           677  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
           700  0333001021 +                      MI     X3,TREX     IF DECLARED AS EXTERNAL                     PAR      1348
                          0327000712 +            PL     X7,TRE35    IF NOT DECLARED AS INTRINSIC                PAR      1349
                                                                                                                 PAR      1350
                                        *         CHECK WHETHER INTRINSIC NAME ALLOWED AS ACTUAL ARGUMENT.       PAR      1351
                                                                                                                 PAR      1352
           701  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
           702  7100000000 X                      SX0    Z.INTA                                                  PAR      1356
                          6170000000 X            SB7    E.VA06                                                  PAR      1357
           703  37370                             IX3    X7-X0                                                   PAR      1358
                     0333000712 +                 MI     X3,TRE35    IF FUNC NAME NOT ALLOWED                    PAR      1359
                                                                                                                 PAR      1360
                                        *         APPEND SUFFIX TO INTRINSIC FUNCTION NAME.                      PAR      1361
                                                                                                                 PAR      1362
           704  5217000000 X                      SA1    X7+F.INTF                                               PAR      1363
                          5120000025 +            SA2    FUNCALL                                                 PAR      1364
           705  5170002640 +                      SA7    /CF/IT                                                  PAR      1365
                          0100003220 +            RJ     TXI         TAG EXTERNAL INTRINSICS                     PAR      1366
           706  5110002643 +                      SA1    /CF/TP                                                  PAR      1367
                          5130000014 +            SA3    CSYTAG                                                  PAR      1368
           707  5120004726 +                      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
           710  6120000461 +                      SB2    PAR.NX                                                  PAR      1372
                          12616                   BX6    X1+X6                                                   PAR      1373
           711  5160000014 +                      SA6    CSYTAG      UPDATE CSYTAG                               PAR      1374
                          0400001021 +            EQ     TREX        EXIT...                                     PAR      1375
                                                                                                                 PAR      1376
           712  0100000000 X             TRE35    FATAL  B7                                                      PAR      1377
           713  0400001021 +                      EQ     TREX        EXIT...                                     PAR      1378
                                                                                                                 PAR      1379
                                        *         HERE IF POSSIBLE SUBROUTINE.                                   PAR      1380
                                                                                                                 PAR      1381
           714  20301                    TRE40    SBIT   X3,WB.SUBP/WB.FUNP                                      PAR      1382
                     0323000724 +                 PL     X3,TRE60    IF NOT A SUBROUTINE                         PAR      1383
           715  0300000722 +                      ZR     X0,TRE41    IF FOLLOWED BY *(*                          FC5A294    28
                          5130000000 X            SA3    ARGMODE                                                 PAR      1384
           716  6120000461 +                      =B2    PAR.NX                                                  PAR      1385
                          20327                   SBIT   X3,AM.FUNP                                              PAR      1386
           717  0333001021 +                      MI     X3,TREX     IF STAND ALONE OK THIS CASE                 FC5A294    29
                          6170000000 X            FATAL  E.VA04      ** EXTERNAL REFERENCE REQUIRES ARGUMENTS    FC5A294    30
           721  0400001021 +                      EQ     TREX                                                    FC5A294    31
                                                                                                                 FC5A294    32
           722  6170000000 X             TRE41    WARN   E.VA07      ** SUBROUTINE USED AS FUNCTION              FC5A294    33
           723  6120001162 +                      SB2    PAR.FUN     TREAT AS FUNCTION                           FC5A294    34
                          0400001021 +            EQ     TREX        EXIT..                                      PAR      1396
                                                                                                                 PAR      1397
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    35
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                        *         HERE IF DEFINED AS NOT-VAR BUT NOT A SUBROUTINE/FUNCTION.      PAR      1398
                                                                                                                 PAR      1399
           724  20372                    TRE60    SBIT   X3,WB.ENTP/WB.SUBP                                      PAR      1400
                     0323000740 +                 PL     X3,TRE65    IF NOT ENTRY POINT                          PAR      1401
           725  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
           726  36031                             IX0    X3+X1       (X0) = SYMORD OF PROPER VALUE. SYMBOL       PAR      1407
                     5110000000 X                 SA1    MOD                                                     PAR      1408
                               20160              HX1    MO.FUN                                                  PAR      1409
           727  0321000732 +                      PL     X1,TRE62    IF NOT IN FUNCTION SUBPROGRAM               PAR      1410
                          5120000000 +            SA2    PARNOW                                                  PAR      1411
           730  6272777774                        SB7    X2-PM=DIM                                               PAR      1412
                          6127777775              SB2    B7+PM=DIM-PM=DATA                                       PAR      1413
           731  0470000732 +                      ZR     B7,TRE62    IF PARSING DIMENSION BOUND                  PAR      1414
                          0520000734 +            NZ     B2,TRE63    IF NOT PARSING DATA STATEMENT               PAR      1415
                                                                                                                 FC5A279     7
           732  5110000000 X             TRE62    SA1    S=BU                                                    PAR      1416
                          10011                   BX0    X1                                                      PAR      1417
           733  6170000000 X                      FATAL  E.VA01      ** ILLEGAL USE OF ENTRY NAME                PAR      1418
                                                                                                                 PAR      1419
           734  0100000000 X             TRE63    CALL   CT1         CONSTRUCT (TP.) FORM OPERAND                PAR      1420
           735  5160000014 +                      SA6    CSYTAG                                                  PAR      1421
                          10622                   BX6    X2          SAVE *WB*                                   PAR      1422
                               56141              SA1    B4+B1       FETCH NEXT TOKEN                            PAR      1423
           736  7201777740                        SX0    X1-O.LP                                                 PAR      1424
                          5160000016 +            SA6    CSYWB                                                   PAR      1425
           737  0400000653 +                      EQ     TRE22                                                   PAR      1426
                                                                                                                 PAR      1427
           740  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
           741  0323000743 +                      PL     X3,TRE70    IF UNCLASSIFIED NON-VARIABLE                FC5A437    10
                          0300000743 +            ZR     X0,TRE70    IF FOLLOWED BY *(*, OKAY                    FC5A437    11
           742  20312                             SBIT   X3,WB.FUNP/WB.DEXTP                                     FC5A437    12
                     0400000670 +                 EQ     TRE30.1     TREAT AS FUNCTION IN THIS CONTEXT           FC5A437    13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
           743  22207                    TRE70    LX2    X7                                                      PAR      1465
                     6120000461 +                 =B2    PAR.NX                                                  PAR      1466
                               10166              BX1    X6                                                      PAR      1467
           744  0310000771 +                      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
           745  0331000766 +                      MI     X1,TRE74    IF DECLARED EXTERNAL                        PAR      1480
                                                  HX3    TB.COL                                                  PAR      1481
                          6120001150 +            SB2    PAR.SBS                                                 PAR      1482
           746  0333000777 +                      MI     X3,TRE78    IF FOLLOWED BY SUBSTRING LPAREN             PAR      1483
                          20106                   LX1    WB.DEXTP-WB.FPP                                         PAR      1484
           747  0331000766 +                      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/05. 19.59.39.      PAGE    37
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                                                                                                                 PAR      1489
                          43052                   MX0    WA.SYML                                                 PAR      1490
                               55321              =A3    A2-WB.W+WA.W                                            PAR      1491
           750  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
           751  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
           752  0720000766 +                      MI     B2,TRE74    IF NOT IN TABLE -- USER FUNCTION            PAR      1498
                          5112000000 X            SA1    B2+F.INTF                                               FC5A227    92
           753  20144                             SBIT   X1,IT.GNOP                                              FC5A227    93
                     43071                        MX0    -WB.MODEL                                               FC5A227    94
                                                  LX0    WB.MODEP                                                FC5A227    95
                          0321000756 +            PL     X1,TRE71    IF NOT GENERIC ONLY INTRINSIC               FC5A227    96
           754  6170000000 X                      WARN   E.TY9                                                   FC5A227    97
           755  0400000760 +                      EQ     TRE72                                                   FC5A227    98
                                                                                                                 FC5A227    99
           756  13163                    TRE71    BX1    X6-X3                                                   FC5A227   100
                     15110                        BX1    -X0*X1                                                  PAR      1502
                          0301000760 +            ZR     X1,TRE72    IF DECLARED MODE AGREES WITH INTRIN TABLE   PAR      1503
           757  6170000000 X                      WARN   E.TY2       ** CONFLICTING MODE IGNORED                 PAR      1504
                                                                                                                 PAR      1505
                                        *         CONFIRMED AS INTRINSIC FUNCTION.                               PAR      1506
                                                                                                                 PAR      1507
           760  5110000000 X             TRE72    SA1    STAGE                                                   FC5A227   101
                          7140000000 X            SX4    FEC=EXU                                                 FC5A227   102
           761  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
           762  0314000763 +                      NZ     X4,TRE73    IF NOT IN EXECUTABLES                       FC5A227   107
                          43001                   CLAS=  X0,WB,(TYP)                                             FC5A227   108
                                                                                                                 FC5A227   109
           763  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
           764  6120001162 +                      SB2    PAR.FUN                                                 PAR      1513
                          54710                   SA7    A1                                                      PAR      1514
           765  0400001021 +                      EQ     TREX        EXIT..                                      PAR      1518
                                                                                                                 PAR      1519
                                        *         CONFIRMED USER FUNCTION.                                       PAR      1520
                                                                                                                 PAR      1521
           766                           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
           766  7130050100                        CLAS=  X3,WB,(NVAR,FUN,EXT)                                    PAR      1530
                          12663                   BX6    X6+X3       MERGE NEW CLASS BITS                        PAR      1531
           767  6120001162 +                      SB2    PAR.FUN                                                 PAR      1532
                          54620                   SA6    A2          UPDATE INFO IN SYMTAB                       PAR      1533
           770  0400001021 +                      EQ     TREX        EXIT..                                      PAR      1534
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
           771  20145                    TRE76    HX1    WB.DEXT                                                 PAR      1540
                     0321000777 +                 PL     X1,TRE78    IF NOT DECLARED EXTERNAL, CHANGE CLASS      FC5A164    58
           772  6170000000 X                      SB7    E.VA04                                                  FC5A164    59
                          7200777776              SX0    X0+O.LP-O.RP                                            FC5A164    60
           773  0300000774 +                      ZR     X0,TRE77    IF FOLLOWED BY RP                           FC5A164    61
                          0314000712 +            NZ     X4,TRE35    IF NOT FOLLOWED BY A COMMA                  FC5A164    62
                                                                                                                 FC5A164    63
           774  0305001021 +             TRE77    ZR     X5,TREX     IF PRECEDED BY A SLP                        FC5A164    64
                          7255000005              SX5    X5+O.SLP-O.LP                                           FC5A164    65
           775  0305001021 +                      ZR     X5,TREX     IF PRECEDED BY LP                           FC5A164    66
                          0530000712 +            NZ     B3,TRE35    IF NOT PRECEDED BY A COMMA                  FC5A164    67
           776  0400001021 +                      EQ     TREX                                                    FC5A164    68
                                                                                                                 FC5A164    69
           777  12662                    TRE78    BX6    X6+X2       CONFIRMED AS VAR                            PAR      1542
                     54620                        SA6    A2                                                      PAR      1543
                          0400001021 +            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
          1000  56141                    TRE80    =A1    B4+1                                                    PAR      1551
                     7221777740                   SX2    X1-O.LP                                                 PAR      1552
          1001  7140000461 +                      SX4    PAR.NX                                                  PAR      1553
                          0312001003 +            NZ     X2,TRE83    IF NOT FOLLOWED BY LPAREN                   PAR      1554
                                                  HX1    TB.COL                                                  PAR      1555
          1002  0321001011 +                      PL     X1,TRE90    IF NOT SUBSTRING LPAREN                     PAR      1556
                          7140001150 +            SX4    PAR.SBS                                                 PAR      1557
                                                                                                                 FC5A279     8
          1003  0100000000 X             TRE83    CALL   STY         SET MODE                                    PAR      1558
          1004  36771                             IX7    X7+X1       ADD IN CLASS FIELD                          PAR      1559
                     5110000000 X                 ADSYM  T.SYM       ADD SYMBOL, TAG TO TABLE                    PAR      1560
          1006  0100000000 X                      CALL   CT1         CONSTRUCT OPERAND FOR SYMBOL                PAR      1561
          1007  63240                             SB2    X4                                                      PAR      1562
                     5160000014 +                 SA6    CSYTAG      SAVE P2 TAG                                 PAR      1563
                               54661              =A6    A6-CSYTAG+CSYREF                                        PAR      1564
          1010  10622                             BX6    X2                                                      PAR      1565
                     0400001021 +                 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
          1011  10166                    TRE90    BX1    X6                                                      PAR      1571
                     0100000000 X                 CALL   SLT         SCAN LIBRARY TABLE                          PAR      1572
          1012  10577                             BX5    X7          REMEMBER SYMTAB (WC) PER SLT                PAR      1573
                     43100                        MX1    0                                                       PAR      1574
                          13222                   BX2    0                                                       PAR      1575
          1013  0620001014 +                      PL     B2,TRE94    IF INTRINSIC FUNCTION                       PAR      1576
                          0100000000 X            CALL   STY         SET IMPLICIT TYPE                           PAR      1577
                                                                                                                 FC5A279     9
          1014  12713                    TRE94    BX7    X1+X3       *WB*                                        PAR      1578
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    39
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                     12225                        BX2    X2+X5       *WC*                                        PAR      1579
                          5170000016 +            SA7    CSYWB                                                   PAR      1580
          1015  5110000000 X                      ADSYM  T.SYM       ADD NAME TO SYMTAB                          PAR      1581
          1016  0100000000 X                      CALL   CT1         CONSTRUCT OPERAND FOR SYMBOL                PAR      1582
          1017  5160000014 +                      SA6    CSYTAG                                                  PAR      1583
                          54661                   =A6    A6-CSYTAG+CSYREF                                        PAR      1584
          1020  6120001162 +                      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
          1021  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
          1022  0311001024 +                      NZ     X1,TREX00   IF NOT MODE BOOLEAN                         F1037F5   448
                                   0              ERRNZ  M.BOOL                                                  F1037F5   449
                          6170000000 X            MDERR  E.MDE2                                                  F1037F5   450
                                                                                                                 F1037F5   451
          1024  10166                    TREX00   BX1    X6                                                      F1037F5   452
                     20157                        HX1    WB.FUN                                                  F1037F5   453
                          20655                   HX6    WB.EXT                                                  F1037F5   454
                               11116              BX1    X1*X6                                                   F1037F5   455
          1025  0321001034 +                      PL     X1,TREX0A   IF NOT EXTERNAL FUNCTION                    F1037F5   456
                          5110004727 +            SA1    =0LDATE                                                 F1037F5   457
          1026  5120000013 +                      SA2    CSYMBOL                                                 F1037F5   458
                          5130004730 +            SA3    =0LTIME                                                 F1037F5   459
          1027  5140004731 +                      SA4    =0LCLOCK                                                F1037F5   460
                          13112                   BX1    X1-X2                                                   F1037F5   461
          1030  0301001033 +                      ZR     X1,TREX0    IF *DATE*                                   F1037F5   462
                          13132                   BX1    X3-X2                                                   F1037F5   463
          1031  0301001033 +                      ZR     X1,TREX0    IF *TIME*                                   F1037F5   464
                          13142                   BX1    X4-X2                                                   F1037F5   465
          1032  0311001034 +                      NZ     X1,TREX0A   IF NOT *CLOCK*                              F1037F5   466
                                                                                                                 F1037F5   467
          1033  6170000000 X             TREX0    MDERR  E.MDE5      ** DATE, TIME, AND CLOCK ARE MACHINE DEP.   F1037F5   468
                                                                                                                 F1037F5   469
          1034  20617                    TREX0A   LX6    WB.EXTP+1   RESTORE X6                                  F1037F5   470
                     5110000012 +                 SA1    CMLFLG                                                  FC5A141   291
          1035  0301001044 +                      ZR     X1,TREX1    IF NOT INPUT LIST ITEMS                     FC5A141   292
                          0321001044 +            PL     X1,TREX1    IF NOT ARRAY SUBSCRIPT                      FC5A141   293
          1036  10166                             BX1    X6                                                      FC5A141   294
                     20157                        HX1    WB.FUN                                                  FC5A141   295
                          0321001044 +            PL     X1,TREX1    IF NOT A FUNCTION                           FC5A141   296
          1037  5110000000 X                      SA1    T=ILI                                                   FC5A141   297
                          0301001044 +            ZR     X1,TREX1    IF NO INPUT LIST ITEMS                      FC5A141   298
          1040  76620                             SX6    B2                                                      FC5A141   299
                     5160000000 X                 SA6    PARPA       PRESERVE PROCESSOR ADDRESS (B2)             FC5A141   300
                               76610              =X6    1           INDICATE RESTART                            FC50935     6
          1041  0100000000 X                      CALL   IOJ         ISSUE RESTART                               FC5A141   302
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    40
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
          1042  5110000000 X                      SA1    PARPA                                                   FC5A141   303
                          5120000016 +            SA2    CSYWB                                                   FC5A141   304
          1043  63210                             SB2    X1          RESTORE B2                                  FC5A141   305
                     10622                        BX6    X2          RESTORE X6                                  FC5A141   306
                                                                                                                 FC5A141   307
          1044  5110000000 +             TREX1    SA1    PARNOW                                                  FC5A141   308
                          0301001102 +            ZR     X1,TREX8    IF STANDARD PARSE                           PAR      1598
          1045  7211777774                        SX1    X1-PM=DIM                                               PAR      1599
                          0311001102 +            NZ     X1,TREX8    IF NOT 'DIM BOUND' PARSING                  PAR      1600
          1046  20666                             SBIT   X6,WB.VARP                                              PAR      1601
                     6170000000 X                 SB7    E.DM17                                                  PAR      1602
          1047  0326001066 +                      PL     X6,TREX2    IF NOT VARIABLE                             FC5A141   309
                          20667                   SBIT   X6,WB.ARYP/WB.VARP                                      PAR      1604
          1050  6170000000 X                      SB7    E.DM18                                                  PAR      1605
                          0336001066 +            MI     X6,TREX2    IF ARRAY                                    FC5A141   310
          1051  5110000000 X                      SA1    MOD                                                     FC50438    19
                          6170000000 X            SB7    E.DM14      ** ADJUSTABLE ARRAY CANT BE IN MAIN PROGRAM FC50438    20
          1052  20162                             SBIT   X1,MO.PROP                                              FC50438    21
                     0331001066 +                 MI     X1,TREX2    IF IN MAIN PROGRAM                          FC50438    22
          1053  5110000000 X                      SA1    TB=TYPE                                                 FC50438    23
                          6170000000 X            SB7    E.DM21      ** ADJUSTABLE ARRAY CANT BE IN COMMON       FC50438    24
          1054  20122                             LX1    -KW.JMPP                                                FC50438    25
                     63310                        SB3    X1                                                      FC50438    26
                                   0              ERRNZ  18-KW.JMPL                                              FC50438    27
                          67303                   SB3    -B3                                                     FC50438    28
          1055  7113000000 X                      SX1    B3+KW=COMM                                              FC50438    29
                          0301001066 +            ZR     X1,TREX2    IF PROCESSING COMMON ARRAY                  FC50438    30
          1056  5110000000 X                      SA1    T.SYM                                                   FC50438    31
                          5120000000 X            SA2    DIRT                                                    FC50438    32
          1057  63320                             SB3    X2                                                      FC50438    33
                     53113                        SA1    X1+B3       FETCH ARRAY *WB*                            FC50438    34
                          20154                   SBIT   X1,WB.COMP                                              FC50438    35
          1060  0331001066 +                      MI     X1,TREX2    IF PROCESSING COMMON ARRAY                  FC50438    36
                          5110000014 +            SA1    CSYTAG                                                  PAR      1607
          1061  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
          1062  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
          1063  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
          1064  53113                             SA1    X1+B3                                                   PAR      1623
                     43601                        CLAS=  X6,WB,(VDS)                                             PAR      1624
                               12661              BX6    X6+X1                                                   PAR      1625
          1065  54610                             SA6    A1          SET VDS BIT FOR THE VARIABLE                PAR      1626
                     0400001104 +                 EQ     TREX9                                                   PAR      1627
                                                                                                                 PAR      1628
          1066  0100004222 +             TREX2    RJ     DBE         OUTPUT DIMENSION ERROR                      FC5A141   311
          1067  56141                             =A1    B4+1                                                    PAR      1630
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    41
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                     7211777740                   SX1    X1-O.LP                                                 PAR      1631
          1070  0311001100 +                      NZ     X1,TREX6    IF NOT *(* FOLLOWING ILLEGAL NAME           PAR      1632
                          66441                   =B4    B4+1                                                    PAR      1633
                               66310              =B3    1           INITIALIZE *LP* COUNTER                     PAR      1634
          1071  66200                             =B2    0           INITIALIZE *RP* COUNTER                     PAR      1635
                                                                                                                 FC5A279    10
          1072  66441                    TREX3    =B4    B4+1                                                    PAR      1636
                     56140                        SA1    B4                                                      PAR      1637
                          0301000000 X            ZR     X1,PSL      IF *EOS*, EXIT...                           PAR      1638
          1073  6271777740                        SB7    X1-O.LP                                                 PAR      1639
                          0470001076 +            ZR     B7,TREX4    IF *(*                                      PAR      1640
          1074  6271777737                        SB7    X1-O.RP                                                 PAR      1641
                          0470001077 +            ZR     B7,TREX5    IF *)*                                      PAR      1642
          1075  0400001072 +                      EQ     TREX3                                                   PAR      1643
                                                                                                                 FC5A279    11
          1076  66331                    TREX4    =B3    B3+1                                                    PAR      1644
                     0400001072 +                 EQ     TREX3                                                   PAR      1645
                                                                                                                 FC5A279    12
          1077  66221                    TREX5    =B2    B2+1                                                    PAR      1646
                     0523001072 +                 NE     B2,B3,TREX3                                             PAR      1647
                                                                                                                 FC5A279    13
          1100  5110000000 X             TREX6    SA1    CONONE                                                  PAR      1648
                          66661                   =B6    B6+1                                                    PAR      1649
                               22601              LX6    X1                                                      PAR      1650
          1101  57661                             =A6    B6-1                                                    PAR      1651
                     66441                        =B4    B4+1        ADVANCE CURSOR PAST *)*                     PAR      1652
                          0400000461 +            EQ     PAR.NX                                                  PAR      1653
                                                                                                                 PAR      1654
          1102  20641                    TREX8    SBIT   X6,WB.VDSP                                              PAR      1655
                     0326001104 +                 PL     X6,TREX9    IF NOT FORWARD REFERENCE FORMAL PARAMETER   PAR      1656
          1103  6170000000 X                      FATAL  E.AT04                                                  PAR      1657
                                                                                                                 PAR      1658
          1104  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
          1105  20252                             LX2    XR.TAGP                                                 PAR      1663
                     5110000000 X                 SA1    REFVAR      TYPE OF REFERENCE                           PAR      1664
                               22602              LX6    X2                                                      PAR      1665
          1106  5130000000 X                      SA3    ARGMODE                                                 FC5A338    60
                          6170000000 X            SB7    A=UNT                                                   FC5A338    61
          1107  67707                             SB7    -B7                                                     FC5A338    62
                     63737                        SB7    X3+B7                                                   FC5A338    63
                          0570001114 +            NZ     B7,TREX10   IF NOT UNIT SPECIFIER                       FC5A338    64
          1110  5130000014 +                      SA3    CSYTAG                                                  FC5A338    65
                          43071                   MX0    -TP.MODEL                                               FC5A338    66
                               15030              BX0    -X0*X3      EXTRACT MODE                                FC5A338    67
          1111  7200777771                        SX0    X0-M.CHAR                                               FC5A338    68
                          0310001114 +            NZ     X0,TREX10   IF NOT INTERNAL FILE                        FC5A338    69
          1112  5130000000 X                      SA3    IODIR                                                   FC5A338    70
                          7110000027              SX1    CR.OUT                                                  FC5A338    71
          1113  0303001114 +                      ZR     X3,TREX10   IF READ                                     FC5A338    72
                          7110000022              SX1    CR.INP                                                  FC5A338    73
                                                                                                                 FC5A338    74
          1114  6170001115 +             TREX10   ADDREF X6,X1                                                   FC5A338    75
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1115  63250                             SB2    X5          (B2) = PROCESSOR JUMP ADDRESS               PAR      1675
                     5150000014 +                 SA5    CSYTAG      FETCH (X5) = PASS 1 TAG FORM                PAR      1676
          1116  5140000001 +                      SA4    ATTR                                                    PAR      1677
                          66441                   =B4    B4+1                                                    PAR      1678
                               66661              SB6    B6+B1       ADVANCE ESTACK POINTER                      PAR      1679
          1117  12645                             BX6    X4+X5       MERGE P2 ATTRIBUTE BITS                     PAR      1680
                     57661                        SA6    B6-B1       STACK THE SYMBOL                            PAR      1681
                          5120000012 +            SA2    CMLFLG                                                  PAR      1682
          1120  0302001122 +                      ZR     X2,PAR.VAR7 IF NOT INPUT I/O LIST ITEMS                 PAR      1683
                          56241                   =A2    B4+1                                                    FC5A141   313
          1121  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
          1122  0222000000               PAR.VAR7 JP     B2          JUMP TO PROCESS TRANSLATED SYMBOL           PAR      1694
  
  
  
  
                                        **        STFD - PARSE STATEMENT FUNCTION DUMMY ARG. TOKEN.              PAR      1696
                                                                                                                 PAR      1697
          1123  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
          1124  15610                             BX6    -X0*X1                                                  PAR      1703
                     5120000000 X                 SA2    T.SYM                                                   PAR      1704
                               22016              LX0    B1,X6                                                   PAR      1705
          1125  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
          1126  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
          1127  15130                             BX1    -X0*X3                                                  PAR      1715
                     43700                        MX7    0           CLEAR ATTRIBUTE SUMP                        FC50652     6
                          5170000001 +            SA7    ATTR        UPDATE                                      FC50445    10
          1130  0100004157 +                      RJ     CLM         COERCE MODE AND CHARACTER LENGTH            PAR      1716
          1131  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
          1132  0470001134 +                      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/05. 19.59.39.      PAGE    43
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               PAR.STFD
  
          1133  0400000461 +                      EQ     PAR.NX                                                  PAR      1723
                                                                                                                 FC50148    10
          1134  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
          1135  0301000461 +                      ZR     X1,PAR.NX   IF NO MODE COERSION                         FC50148    16
                          6170000000 X            ANSI   E.SF13      ** DUMMY/ACTUAL ARGUMENT TYPES MUST MATCH   FC50148    17
          1137  0400000461 +                      EQ     PAR.NX                                                  FC50148    18
  
  
  
  
                                        **        HERE IF ELEMENT IS *ARRAY(*.                                   PAR      1725
                                                                                                                 PAR      1726
          1140  5110000000 X             PAR.SUB  SA1    CO.DBSB                                                 FC50281     6
                          0321001143 +            PL     X1,PAR.SUB1 IF SUBSCRIPTS IN-LINE                       FC50281     7
          1141  5110000000 X                      SA1    T=PAR                                                   FC50281     8
                          10611                   BX6    X1                                                      FC50281     9
          1142  5160000004 +                      SA6    CURST       INHIBIT SQUEEZE                             FC50281    10
                                                                                                                 FC50281    11
          1143  0100003751 +             PAR.SUB1 RJ     SSO         SET UP SUBSCRIPT OPERATOR                   FC50281    12
                                                                     *SSO* RETURNS  (X4) = NEW *ARGMIS*,         PAR      1728
                                                                                    (X7) = NEW *ARGCOMA*.        PAR      1729
          1144  5110000012 +                      SA1    CMLFLG                                                  PAR      1730
                          0301001146 +            ZR     X1,PAR.SUB2 IF NOT I/O INPUT LIST ITEM                  FC50281    13
          1145  0331001146 +                      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
          1146  5130000365 +             PAR.SUB2 SA3    ARRARM                                                  FC50281    16
                          10633                   BX6    X3                                                      PAR      1736
          1147  6130000044                        =B3    O.SLP                                                   PAR      1737
                          0400001217 +            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
          1150                           PAR.SBS  BSS    0           ENTRY...                                    PAR      1748
                                         .T       IFEQ   TEST,ON                                                 PAR      1749
          1150  56140                             SA1    B4                                                      PAR      1750
                                                  HX1    TB.COL                                                  PAR      1751
                     0321401150 +                 PL     X1,"BLOWUP" IF NOT SUBSTRING LPAREN                     PAR      1752
                                         .T       ENDIF                                                          PAR      1753
                                                                                                                 PAR      1754
          1151  5110000012 +                      SA1    CMLFLG                                                  FC5A141   316
                          0301001153 +            ZR     X1,PAR.SBS5 IF NOT I/O INPUT LIST ITEM                  FC5A141   317
          1152  0331001153 +                      MI     X1,PAR.SBS5 IF FLAG ALREADY SET FOR SUBSTRING *(*       FC5A141   318
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1153  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
          1154  15761                             BX7    -X1*X6                                                  PAR      1759
                     6130000044                   SB3    O.SLP                                                   PAR      1760
          1155  6227777771                        SB2    X7-M.CHAR                                               PAR      1761
                          20722                   LX7    AC.MODEP    ARGCOMA = [MODE, CNT=0]                     PAR      1762
                               10633              BX6    X3          ARGMODE = (SBSARM)                          PAR      1763
          1156  0420001217 +                      ZR     B2,PAR.SPS  IF MODE = CHARACTER                         PAR      1764
                          6170000000 X            FATAL  E.AT16      ** CAN ONLY SUBSTRING CHAR                  PAR      1765
          1160  0100004567 +                      RJ     SPE         SKIP THE SUBSTRING                          FC50774     6
          1161  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
          1162  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
          1163  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
          1164  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
          1165  63720                             SB7    X2                                                      PAR      1783
                     0277001166 +                 JP     B7+FUNT     PROCESS EACH FUNCTION TYPE                  PAR      1784
                                                                                                                 PAR      1785
          1166                           FUNT     BSS    0                                                       PAR      1786
      L      0                                    LOC    0                                                       PAR      1787
                                                                                                                 PAR      1788
      L      0  5130000372 +             MF.USER  SA3    EXTFARM                                                 PAR      1789
                          0400001206 +            EQ     FUN.XU      EXTERNAL USER                               PAR      1790
                                                                                                                 PAR      1791
      L      1  0400001173 +             MF.STF   EQ     FUN.IS      INLINE STATEMENT FUNCTION                   PAR      1792
                                                                                                                 PAR      1793
      L      2  5130000374 +             MF.LIB   SA3    INFARM                                                  PAR      1794
                          0400001201 +            EQ     FUN.IN      INTRINSIC FUNCTION                          PAR      1795
                                                                                                                 PAR      1796
      L      3  20571                    MF.BEF   LX5    WC.FUNTP    RESTORE (X5) = SYMTAB (WC)                  PAR      1797
                     0400401171 +                 EQ     "BLOWUP"    **** DOES NOT HAPPEN IN PHASE 0 ****        PAR      1798
                                                                                                                 PAR      1799
      L      4  5130000374 +             MF.INL   SA3    INFARM                                                  PAR      1800
                          0400401172 +            EQ     "BLOWUP"                                                PAR      1801
                                                                                                                 PAR      1802
          1173                                    LOC    *O                                                      PAR      1803
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1173  55551                    FUN.IS   =A5    A5+WB.W-WC.W                                            PAR      1820
                     20547                        HX5    WB.SFX                                                  PAR      1821
                          0325001176 +            PL     X5,FUN.IS1  IF NOT RECURSIVE FUNCTION NEST              FC5A411    36
          1174  6170000000 X                      FATAL  E.SF10                                                  PAR      1823
          1175  0400001520 +                      EQ     PAR.STOP                                                PAR      1824
                                                                                                                 PAR      1825
          1176  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
          1177  76760                             =X7    B6                                                      PAR      1829
                     20722                        LX7    AC.EARGP    ARGCOMA = (ESTACK(ARG1),COMMA COUNT)        PAR      1830
                          10633                   BX6    X3                                                      PAR      1831
          1200  6130000044                        SB3    O.SLP                                                   PAR      1832
                          0400001217 +            EQ     PAR.SPS     SET PAREN STACK                             PAR      1833
  
  
  
  
                                        **        HERE IF INTRINSIC FUNCTION REFERENCE.                          PAR      1835
                                                                                                                 PAR      1836
          1201                           FUN.IN   BSS                                                            PAR      1837
          1201  5110000013 +                      SA1    CSYMBOL     NAME OF INTRINSIC                           PAR      1838
                          6130000044              SB3    O.ILP       SET INTRINSIC LEFT-PAREN                    PAR      1839
                                                  LX0    AS.ORDP                                                 PAR      1840
          1202  36410                             IX4    X1+X0       (X4) = ARGMIS   = AS.[SYM, ORD]             PAR      1841
                     5120004732 +                 SA2    =4LLOCF                                                 PAR      1842
                               37712              IX7    X1-X2                                                   PAR      1843
          1203  0317001205 +                      NZ     X7,FUN.IN1  IF THIS IS NOT 'LOCF'                       FC5A411    38
                          5110004733 +            CLAS=  X1,AM,(ARE,FUN,LEV3)                                    PAR      1845
          1204  12313                             BX3    X1+X3       ALLOW UN-LOADABLE NAMES                     PAR      1846
                                                                                                                 FC5A411    39
          1205  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
                          0400001217 +            EQ     PAR.SPS     ENTER PAREN STACK                           PAR      1849
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    46
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               FUN.XU
  
                                        **        HERE IF REFERENCE TO AN EXTERNAL FUNCTION.                     PAR      1851
                                                                                                                 PAR      1852
          1206  20533                    FUN.XU   LX5    WC.FUNTP-1-WC.CTYPP                                     PAR      1853
                     0325001211 +                 PL     X5,FUN.XU4  IF NOT ASSUMED-LENGTH CHARACTER             PAR      1854
                               43101              MX1    1                                                       PAR      1855
          1207  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
          1210  6170000000 X                      FATAL  E.VA12      ** F.P. FUNCTION WITH LENGTH=(*)            PAR      1859
          1211  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
          1212  20722                             LX7    AC.MODEP                                                PAR      1866
                     5120000000 X                 SA2    T=BLST                                                  PAR      1867
          1213  0302001216 +                      ZR     X2,FUN.XU5  IF NOT IN BLOCK STRUCTURE                   PAR      1868
                          7100040000              CLAS=  X0,WB,(DLER)                                            PAR      1869
          1214  10577                             BX5    X7                                                      PAR      1870
                     0100000000 X                 CALL   PDA         PROPOGATE DO LOOP ATTRIBUTE                 PAR      1871
          1215  10755                             BX7    X5                                                      PAR      1872
          1216  6130000044               FUN.XU5  SB3    O.SLP                                                   PAR      1873
                          0400001217 +            EQ     PAR.SPS                                                 PAR      1874
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1217  5160001256 +             PAR.SPS  SA6    SV67        SAV NEW ARGMODE                             FC51075    19
                          5076000001              SA7    A6+1        SAV NEW ARGCOMA                             FC51075    20
          1220  5120000000 X                      SA2    ARGMODE                                                 PAR      1906
                          22602                   LX6    X2                                                      FC51075    21
          1221  5110000000 X                      ADDWD  T.PCS       SAVE OLD VALUE FOR ARGMODE TO T.PCS         FC51075    22
          1222  5150000000 X                      SA5    ARGCOMA                                                 PAR      1910
                          22605                   LX6    X5                                                      FC51075    23
          1223  5110000000 X                      ADDWD  T.PCS       SAVE OLD VALUE FOR ARGCOMA TO T.PCS         FC51075    24
          1224  6120777773 X                      SB2    ESTACK-4                                                FC51075    25
                          6170000000 X            SB7    E.LP3       ** EXPRESSION TOO COMPLICATED               PAR      1913
          1225  0652001613 +                      GE     B5,B2,POP.RP5     IF OUT OF ROOM                        PAR      1914
                          5130000000 X            SA3    ARGMIS                                                  PAR      1917
          1226  10633                             BX6    X3                                                      FC51075    26
                     5110000000 X                 ADDWD  T.PCS       SAVE OLD VALUE FOR ARGMIS TO T.PCS          FC51075    27
          1230  76130                             SX1    B3          DPC FOR *(*                                 PAR      1922
                     5120001256 +                 SA2    SV67                                                    FC51075    28
          1231  5032000001                        SA3    A2+1                                                    FC51075    29
                          10622                   BX6    X2          NEW ARGMODE                                 FC51075    30
                               22703              LX7    X3          NEW ARGCOMA                                 FC51075    31
          1232  5160000000 X                      SA6    ARGMODE     RESET NEW *ARGMODE*                         FC51075    32
                          5170000000 X            SA7    ARGCOMA     RESET NEW *ARGCOMA*                         FC51075    33
          1233  10066                             BX0    X6                                                      FC51075    34
                     22704                        LX7    X4                                                      FC51075    35
                                                  HX0    AM.REF                                                  FC51075    36
                          5170000000 X            SA7    ARGMIS      RESET NEW *ARGMIS*                          FC51075    37
          1234  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/05. 19.59.39.      PAGE    48
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.SPS 
  
                               66441              =B4    B4+1        UPDATE TO NEXT ELEMENT                      PAR      1926
          1235  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
          1236  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
          1237  56650                             SA6    B5                                                      PAR      1935
                     56540                        =A5    B4                                                      PAR      1936
                          63350                   SB3    X5                                                      PAR      1937
                                   0              ERRNZ  18-TB.TOTL                                              PAR      1938
          1240  5231000122 +                      SA3    X1-O.DEF+F.CONO                                         PAR      1939
                          22433                   LX4    B3,X3                                                   PAR      1940
          1241  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
          1242  5120000000 X                      SA2    ARGMODE                                                 PAR      1948
                                                  LX2    -AM.PADP                                                PAR      1949
                                   0              ERRNZ  18-AM.PADL                                              PAR      1950
                          0520001250 +            NZ     B2,PAR.SPS2 IF NOT RIGHT PAREN                          PAR      1951
          1243  6222775106 -                      SB2    X2-A=FUN                                                PAR      1952
                          0420001246 +            ZR     B2,PAR.SPS1 IF PROCESSING FUNCTION                      PAR      1953
          1244  6222775022 -                      SB2    X2-A=STFA                                               PAR      1954
                          0420001246 +            ZR     B2,PAR.SPS1 IF PROCESSING ASF                           PAR      1955
          1245  6222775074 -                      SB2    X2-A=INF                                                PAR      1956
                          0520001417 +            NZ     B2,PAREX    IF NOT PROCESSING INTRINSIC FUNCTION        PAR      1957
          1246  5120000000 X             PAR.SPS1 SA2    ARGCOMA                                                 PAR      1958
                          43721                   MX7    AC.CNTL-1                                               PAR      1959
                               20722              LX7    AC.CNTL+AC.CNTP                                         PAR      1960
          1247  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
          1250  6122777774               PAR.SPS2 =B2    B2+O.RP-O.COLON                                         PAR      1965
                          0520001254 +            NZ     B2,PAR.SPS5 IF NOT COLON                                FC5A167     4
          1251  6222775620 -                      SB2    X2-A=SBS                                                PAR      1967
                          0520001417 +            NZ     B2,PAREX    IF NOT SUBSTRING LPAREN                     PAR      1968
          1252  5110000000 X                      SA1    CONONE                                                  PAR      1969
                          10611                   BX6    X1                                                      PAR      1970
                               66661              SB6    B6+B1       INVENT AND STACK DEFAULT FIRST OPERAND      PAR      1971
          1253  57661                             SA6    B6-B1                                                   PAR      1972
                     0400000461 +                 EQ     PAR.NX                                                  PAR      1973
                                                                                                                 FC5A167     5
          1254  6122000043               PAR.SPS5 =B2    B2+O.COLON-O.EOS                                        FC5A167     6
                          0520001417 +            NZ     B2,PAREX    IF NOT EOS                                  FC5A167     7
          1255  67441                             =B4    B4-1        **KLUDGE** TO PREVENT MODE OUT ON  ( EOS    FC5A167     8
                     0400001417 +                 EQ     PAREX                                                   FC5A167     9
                                                                                                                 FC51075    38
          1256                     2     SV67     BSS    2                                                       FC51075    39
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1260                           PAR.CM   BSS    0                                                       PAR      1983
          1260  5140000000 X                      SA4    ARGMODE                                                 FC5A414     5
                          0305001302 +            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
          1261  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
          1262  6170000014                        SB7    PR.SLP+1                                                PAR      1995
                          67707                   SB7    -B7                                                     PAR      1996
                               63737              SB7    X3+B7                                                   PAR      1997
          1263  0770001267 +                      MI     B7,PAR.CM7  IF NOT ARITHMETIC OPERATOR                  PAR      1998
                          7160000042              =X6    O.COMMA                                                 PAR      1999
          1264  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
          1265  5160000007 +                      SA6    POPDPC      INDICATE *,* CAUSING POP                    PAR      2004
                          0100001533 +            RJ     POP         POP OPERATOR                                PAR      2005
          1266  56350                             SA3    B5                                                      PAR      2006
                     0400001261 +                 EQ     PAR.CM5     LOOP                                        PAR      2007
                                                                                                                 PAR      2008
                                        *         SET COMMA INTO OPERATOR STACK AND POP ARGUMENT.                PAR      2009
                                                                                                                 PAR      2010
          1267  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
          1270  63710                             SB7    X1                                                      PAR      2018
                     5130004734 +                 SA3    ="A"                                                    PAR      2019
                               22673              LX6    X3,B7                                                   PAR      2020
          1271  0326401271 +                      PL     X6,"BLOWUP"                                             PAR      2021
                                         .T       ENDIF                                                          PAR      2022
                                                  LX0    SP.TBPRP                                                FC50104    89
                                                  LX1    SP.TBPRP                                                FC50104    90
                          11302                   BX3    X0*X2       FORM COP INSTAK SETOP WORD                  PAR      2025
                               36631              IX6    X3+X1                                                   PAR      2026
          1272  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/05. 19.59.39.      PAGE    50
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.CM
  
                          56150                   SA1    B5                                                      PAR      2033
          1273  0100001533 +                      RJ     POP         POP COMMA OPERATOR                          PAR      2034
          1274  5130000000 X                      SA3    ARGMODE                                                 PAR      2035
                                                  LX3    -AM.PADP                                                PAR      2036
                                   0              ERRNZ  18-AM.PADL                                              FC50985     9
                          6273774261 -            SB7    X3-A=ARRAY                                              FC50985    10
          1275  0470001277 +                      ZR     B7,PAR.CM8  IF SUBSCRIPT DONT INHIBIT SQUEEZE           FC50985    11
                          5110000000 X            SA1    T=PAR                                                   FC50985    12
          1276  10611                             BX6    X1                                                      FC50985    13
                     5160000004 +                 SA6    CURST       RESET SQUEEZE LIMIT                         FC50985    14
                                                                                                                 FC50985    15
          1277  6273776244 -             PAR.CM8  SB7    X3-A=LIST                                               FC50985    16
                          0470001472 +            ZR     B7,PAREXIT  IF IN I/O LIST                              PAR      2039
          1300  6273776130 -                      SB7    X3-A=DVL                                                FC50147     7
                          0470001472 +            ZR     B7,PAREXIT  IF IN DATA VARIABLE LIST                    FC50147     8
          1301  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
          1302  6224776244 -             PAR.CM9  SB2    X4-A=LIST                                               FC50985    17
                          0520001417 +            NZ     B2,PAREX    IF NOT I/O LIST PROCESSING                  PAR      2046
          1303  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
          1304                           PAR.COL  BSS                ENTRY...                                    PAR      2060
          1304  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
          1305  0324001417 +                      PL     X4,PAR.ERR  IF COLON NOT PERMITTED                      PAR      2066
                          6225777737              SB2    X5-O.RP                                                 PAR      2067
          1306  0520001261 +                      NZ     B2,PAR.CM5  IF NOT FOLLOWED BY RPAREN                   PAR      2068
                          6120002157 +            SB2    A=SBS                                                   PAR      2069
          1307  0427001261 +                      EQ     B2,B7,PAR.CM5     IF A SUBSTRING COLON                  PAR      2070
                          6120000065 +            SB2    A=PIX                                                   PAR      2071
          1310  0427001261 +                      EQ     B2,B7,PAR.CM5     IF PIX CALL -- DIAGNOSIS BY CALLER    PAR      2072
                          0400001417 +            EQ     PAREX                                                   PAR      2073
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1311                           PAR.LP   BSS    0                                                       PAR      2082
          1311  56440                             SA4    B4                                                      PAR      2083
                     20402                        HX4    TB.SBS                                                  PAR      2084
                          0324001313 +            PL     X4,PAR.LP2  IF NOT A SUBSTRING LEFT PAREN               PAR      2085
          1312  57161                             SA1    B6-B1                                                   PAR      2086
                     10611                        BX6    X1          OBJECT OF SUBSTRING IS STACK TOP            PAR      2087
                          0400001150 +            EQ     PAR.SBS                                                 PAR      2088
                                                                                                                 PAR      2089
          1313  20403                    PAR.LP2  LX4    -TB.SBSP                                                PAR      2090
                     0100000000 X                 RJ     CFC         CHECK FOR COMPLEX CONSTANT                  PAR      2091
          1314  64440                             SB4    A4                                                      PAR      2092
                     0300001317 +                 ZR     X0,PAR.LP5  IF CPLX CONST                               PAR      2093
                               13777              =X7                                                            PAR      2094
          1315  5110000375 +                      SA1    LPARM                                                   PAR      2095
                          6130000037              SB3    O.LP                                                    PAR      2096
          1316  10611                             BX6    X1                                                      PAR      2097
                     43400                        MX4    0                                                       PAR      2098
                          0400001217 +            EQ     PAR.SPS                                                 PAR      2099
                                                                                                                 PAR      2100
          1317  10611                    PAR.LP5  BX6    X1          REAL PART, IMAGINARY IN X2                  PAR      2101
                     7110000005                   =X1    M.CPLX                                                  PAR      2102
                               67441              =B4    B4-1                                                    PAR      2103
          1320  0400000514 +                      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
          1321                           PAR.DLP  BSS    0                                                       PAR      2112
          1321  5130000000 X                      SA3    ARGMODE                                                 PAR      2113
                          5120000000 X            SA2    ARGCOMA                                                 PAR      2114
          1322  63310                             SB3    X1          OPERATOR                                    PAR      2115
                     10633                        BX6    X3                                                      PAR      2116
                          22702                   LX7    X2                                                      PAR      2117
          1323  0400001217 +                      EQ     PAR.SPS     SET PAREN STACK                             PAR      2118
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1324                           PAR.RP   BSS                                                            PAR      2140
          1324  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
          1325  5140000000 X                      SA4    ARGMODE                                                 PAR      2146
                          0572001333 +            NE     B7,B2,PAR.RP1     IF NOT FOLLOWED BY LEFT PAREN         PAR      2147
          1326  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
          1327  0427000000 X                      EQ     B2,B7,IDCEX IF I/O LOOP SCAN -- STOP COLLAPSE           PAR      2152
                          0325001335 +            PL     X5,PAR.RP2  IF NOT A COLON LP                           PAR      2153
          1330  6274774261 -                      SB7    X4-A=ARRAY                                              PAR      2154
                          0570001335 +            NZ     B7,PAR.RP2  IF THIS NOT END OF ARRAY SUBSCRIPT          PAR      2155
          1331  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
          1332  0400001402 +                      EQ     PAR.STD                                                 PAR      2160
                                                                                                                 PAR      2161
          1333  6170000011               PAR.RP1  SB7    O.VAR                                                   PAR      2162
                          0572001402 +            NE     B7,B2,PAR.STD     IF NOT FOLLOWED BY VAR                PAR      2163
          1334  6224776140 -                      SB2    X4-A=IF                                                 PAR      2164
                          0420001402 +            ZR     B2,PAR.STD  IF PARSING *IF* STATEMENT                   PAR      2165
                                                                                                                 PAR      2166
          1335  20425                    PAR.RP2  HX4    AM.RP                                                   PAR      2167
                     0334001402 +                 MI     X4,PAR.STD  IF SPECIAL SYNTAX ALLOWED                   PAR      2168
                               54550              SA5    A5          RELOAD TOKEN FOR ERROR MESSAGE              PAR      2169
          1336  0400001424 +                      EQ     PAREX3                                                  PAR      2170
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    53
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.= 
  
                                        **        EQUAL SIGN - ADVANCE THRU CHAIN.                               PAR      2172
                                                                                                                 PAR      2173
                                                                                                                 PAR      2174
          1337                           PAR.EQL  BSS    0                                                       PAR      2175
          1337  5140000000 X                      SA4    ARGMODE                                                 PAR      2176
                          43001                   MX0    1                                                       PAR      2177
                               20050              LX0    AM.EQP+1                                                PAR      2178
          1340  11004                             BX0    X0*X4                                                   PAR      2179
                     0310001343 +                 NZ     X0,PAR.EQL2 IF *=* ALLOWED                              PAR      2180
          1341  6170000000 X                      FATAL  E.AT06      ILLEGAL USE OF ASSIGNMENT OPERATOR          PAR      2181
          1342  66441                             =B4    B4+1        BYPASS BAD *=*                              PAR      2182
                     0400000461 +                 EQ     PAR.NX                                                  PAR      2183
                                                                                                                 PAR      2184
          1343  5140000000 X             PAR.EQL2 SA4    ZLE                                                     PAR      2185
                          0304001402 +            ZR     X4,PAR.STD  IF ZERO LEVEL EQUAL SIGN                    PAR      2186
          1344  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
          1345  57461                    PAR.DIV  =A4    B6-1        LAST OPERAND                                FC5A150   435
                     43071                        MX0    -TP.MODEL                                               FC5A150   436
                                                  LX4    -TP.MODEP                                               FC5A150   437
                          5150001400 +            SA5    MULTOG                                                  FC5A150   438
          1346  76610                             =X6    1                                                       FC5A150   439
                     15740                        BX7    -X0*X4                                                  FC5A150   440
                          20611                   LX6    SP.STPRP                                                FC50104    91
          1347  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
          1350  0324001402 +                      PL     X4,PAR.STD  IF NOT POSSIBLE INTEGER DIVIDE              FC5A150   445
                          5120000275 +            SA2    IDIV        THIS POPS ALL MULTS                         FC5A150   446
          1351  0400001402 +                      EQ     PAR.STD                                                 FC5A150   447
  
  
  
  
                                        **        PLUS - CHECK WHETHER UNARY OR BINARY.                          PAR      2190
                                                                                                                 PAR      2191
                                                                                                                 PAR      2192
          1352                           PAR.PL   BSS    0                                                       PAR      2193
          1352  57441                             =A4    B4-1        LOAD LAST OPERATOR                          PAR      2194
                     5150004735 +                 SA5    ="PREUNAR"                                              PAR      2195
                               63740              SB7    X4                                                      PAR      2196
          1353  22075                             LX0    B7,X5                                                   PAR      2197
                     0320001402 +                 PL     X0,PAR.STD  IF NOT UNARY PLUS                           PAR      2198
          1354  5140000000 X                      SA4    CONZER                                                  PAR      2199
                          10744                   BX7    X4                                                      PAR      2200
                               56760              SA7    B6                                                      PAR      2201
          1355  66661                             =B6    B6+1                                                    PAR      2202
                     0400001402 +                 EQ     PAR.STD                                                 PAR      2203
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    54
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.MI
  
                                        **        MINUS - CHECK WHETHER UNARY OR BINARY.                         PAR      2205
                                                                                                                 PAR      2206
                                                                                                                 PAR      2207
          1356                           PAR.MIN  BSS    0                                                       PAR      2208
          1356  57441                             =A4    B4-1        LOAD LAST OPERATOR                          PAR      2209
                     5150004735 +                 SA5    ="PREUNAR"                                              PAR      2210
                               63740              SB7    X4                                                      PAR      2211
          1357  22075                             LX0    B7,X5                                                   PAR      2212
                     0320001402 +                 PL     X0,PAR.STD  IF NOT UNARY MINUS                          PAR      2213
          1360  5120000246 +                      SA2    F.PRIOR-O.SEP+O.UMIN                                    PAR      2214
                          7110000020              =X1    O.UMIN                                                  PAR      2215
          1361  0400001402 +                      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
          1362                           PAR.MULT BSS    0                                                       PAR      2224
          1362  57441                             SA4    B4-B1                                                   PAR      2225
                     5150004736 +                 SA5    ="PRELABL"                                              PAR      2226
                               63740              SB7    X4                                                      PAR      2227
                                   0              ERRNZ  18-TB.TOTL                                              PAR      2228
          1363  22775                             LX7    X5,B7                                                   PAR      2229
                     0327001375 +                 PL     X7,PAR.MU10 IF NOT UNARY STAR                           FC5A150   448
          1364  5140000000 X                      SA4    ARGMODE                                                 PAR      2231
                                                  LX4    -AM.PADP                                                PAR      2232
                          6224775130 -            SB2    X4-A=CALL                                               PAR      2233
          1365  0520001417 +                      NZ     B2,PAREX    IF NOT IN SUBROUTINE ARGLIST                PAR      2234
                          56441                   SA4    B4+B1                                                   PAR      2235
                               54241              SA2    A4+B1                                                   PAR      2236
          1366  6274777772                        SB7    X4-O.CONS                                               PAR      2237
                          63220                   SB2    X2                                                      PAR      2238
          1367  0570001417 +                      NZ     B7,PAREX    IF STAR NOT FOLLOWED BY DIGIT(S)            PAR      2239
                          5150004737 +            SA5    ="POSTLAB"                                              PAR      2240
          1370  22725                             LX7    X5,B2                                                   PAR      2241
                     0327001417 +                 PL     X7,PAREX    IF LABEL NOT STANDING ALONE                 PAR      2242
                               64420              SB4    A2          ADVANCE TOKEN POINTER PAST LABEL            PAR      2243
          1371  10644                             BX6    X4                                                      PAR      2244
                     5120004740 +                 CLAS=  X2,WB,(ALRN,SREF)                                       FC51356    20
          1372  0100000000 X                      CALL   ISL         IDENTIFY STATEMENT LABEL                    PAR      2246
          1373  0336001433 +                      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
          1374  56660                             SA6    B6          STACK THE LABEL OPERAND                     PAR      2251
                     66661                        SB6    B6+B1                                                   PAR      2252
                          0400000461 +            EQ     PAR.NX                                                  PAR      2253
                                                                                                                 FC5A150   449
          1375  5140001400 +             PAR.MU10 SA4    MULTOG                                                  FC5A150   450
                          37224                   IX2    X2-X4                                                   FC5A150   451
                               76510              =X5    1                                                       FC5A150   452
          1376  20511                             LX5    SP.STPRP                                                FC50104    92
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    55
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.MULT
  
                     13745                        BX7    X4-X5                                                   FC5A150   454
                          54740                   SA7    A4                                                      FC5A150   455
          1377  0400001402 +                      EQ     PAR.STD                                                 FC5A150   456
                                                                                                                 FC5A150   457
          1400                     1     MULTOG   BSSZ   1                                                       FC5A150   458
  
  
  
  
                                        **        XOR - DIAGNOSE NON-ANSI                                        FC5A471     9
                                                                                                                 FC5A471    10
          1401  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
          1402                           PAR.STD  BSS    0                                                       PAR      2272
          1402  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
          1403  5160000000 X                      SA6    FILL.2      SET FILLER FOR E.AT14                       FC5A204     9
                                                                                                                 FC5A204    10
          1404  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
          1405  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
          1406  0320001413 +                      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/05. 19.59.39.      PAGE    56
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.STD 
  
          1407  22702                             LX7    X2                                                      PAR      2291
                     5160000007 +                 SA6    POPDPC      SAVE *DPC* FOR OPERATOR                     PAR      2292
                               67441              =B4    B4-1                                                    PAR      2293
          1410  54761                             =A7    A6-POPDPC+POPPER  SAVE OPERATOR STACK WORD (SETOP WORD) PAR      2294
                     0100001533 +                 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
          1411  5120000010 +                      SA2    POPPER                                                  PAR      2301
                          56350                   SA3    B5          RELOAD LAST OPERATOR                        PAR      2302
                               55121              =A1    A2-POPPER+POPDPC                                        PAR      2303
          1412  0322001402 +                      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/05. 19.59.39.      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
          1413  43063                    PAR.ADOP MX0    -SP.TBPRL                                               FC50104    99
                     66551                        SB5    B5+B1       UPDATE POINTER                              PAR      2317
                          6120777767 X            SB2    ESTACK-8                                                PAR      2318
          1414  6170000000 X                      SB7    E.LP3       ** EXPRESSION TOO COMPLICATED               PAR      2319
                          0652001613 +            GE     B5,B2,POP.RP5     IF OSTACK TOO FULL                    PAR      2320
                                                  LX0    SP.TBPRP                                                FC50104   100
          1415  11302                             BX3    X0*X2                                                   PAR      2322
                     36631                        IX6    X3+X1       PRIORITY + ORIGINAL ENTRY                   PAR      2323
                          56650                   SA6    B5          ADD TO STACK                                PAR      2324
          1416  0400000461 +                      EQ     PAR.NX                                                  PAR      2325
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1417                           PAR.ERR  BSS    0                                                       PAR      2333
                                                                                                                 PAR      2334
          1417  5140000000 X             PAREX    SA4    ARGMODE                                                 PAR      2335
                          10044                   BX0    X4                                                      PAR      2336
                               20025              SBIT   X0,AM.RPP                                               PAR      2337
          1420  0320001423 +                      PL     X0,PAREX2   IF NO SPECIAL SYNTAX ALLOWED                PAR      2338
                                                                                                                 FC50792     6
          1421  6221777737               PAREX1   SB2    X1-O.RP                                                 PAR      2339
                          0520001424 +            NZ     B2,PAREX3   IF NOT LOOKING AT *)*                       PAR      2340
          1422  0277000000                        JP     B7          CONTINUE                                    PAR      2341
                                                                                                                 PAR      2342
          1423  6224776140 -             PAREX2   SB2    X4-A=IF                                                 PAR      2343
                          0420001421 +            ZR     B2,PAREX1   IF IN *IF* PROCESSING                       PAR      2344
                                                                                                                 PAR      2345
          1424  43052                    PAREX3   MX0    CH.DPCL                                                 PAR      2346
                     5221000000 X                 SA2    X1+CHARMAP                                              PAR      2347
          1425  0312001426 +                      NZ     X2,PAREX5   IF NOT *SYMBOL*                             PAR      2348
                          10211                   BX2    X1          USE (TB.TOC)                                PAR      2349
                                                                                                                 FC50792     7
          1426  11602                    PAREX5   BX6    X0*X2                                                   PAR      2350
                     5225000000 X                 SA2    X5+CHARMAP                                              PAR      2351
          1427  5160000000 X                      SA6    FILL.       SET FILLER                                  PAR      2352
                          0312001431 +            NZ     X2,PAREX10  IF NOT *SYMBOL*                             PAR      2353
          1430  10255                             BX2    X5                                                      PAR      2354
                                                                                                                 FC50792     8
          1431  11602                    PAREX10  BX6    X0*X2                                                   PAR      2355
                     6170000000 X                 SB7    E.AT02                                                  PAR      2356
                               54661              SA6    A6+B1       SET FILLER                                  PAR      2357
          1432  0100000000 X                      FATAL  B7          OUTPUT ERROR                                PAR      2358
                                                                                                                 FC50792     9
          1433  7245777735               PAREX11  =X4    X5-O.COMMA                                              PAR      2359
                          0304001435 +            ZR     X4,PAREX13  IF COMMA                                    FC50885     5
          1434  7215777737                        =X1    X5-O.RP                                                 FC50885     6
                          0311001436 +            NZ     X1,PAREX15  IF NOT RP                                   FC50885     7
                                                                                                                 FC50885     8
          1435  6144000001               PAREX13  SB4    B4+1        MOVE PAST IT                                FC50885     9
                                                                                                                 PAR      2366
          1436  56540                    PAREX15  SA5    B4                                                      FC5A442    11
                     0305001437 +                 ZR     X5,PAREX16  IF EOS                                      FC5A442    12
                                   0              ERRNZ  O.EOS                                                   FC5A442    13
                               66441              =B4    B4+1                                                    FC5A442    14
                                                                                                                 FC5A442    15
          1437  13444                    PAREX16  BX4    0                                                       FC5A442    16
                     43500                        MX5    0                                                       PAR      2369
                          6130400317 +            EMIT   ERROP,*                                                 PAR      2370
          1441  5150000000 X                      SA5    CDIFLG                                                  FC5A442    17
                          0305001446 +            ZR     X5,PAREX17  IF NO DO INDICATION ERROR                   FC5A442    18
          1442  5110000000 X                      SA1    T.BLST                                                  FC5A442    19
                          5120000000 X            SA2    T=BLST                                                  FC5A442    20
          1443  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/05. 19.59.39.      PAGE    59
        PARSE/ANALYZE NEXT SEPARATOR.                                 ERR 
  
                                                  LX1    -LC.CNTP                                                FC5A442    23
          1444  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
          1445  0520001520 +                      NZ     B2,PAR.STOP IF ERROR IN IMPLIED DO                      FC5A442    30
                                                                                                                 FC5A442    31
          1446  5110000000 X             PAREX17  SA1    ARGMODE                                                 FC5A442    32
                          6271775130 -            SB7    X1-A=CALL                                               FC50792    11
                                   0              ERRNZ  18-AM.PADL                                              FC50792    12
          1447  0470001520 +                      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/05. 19.59.39.      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
          1450                           PAR.EOS  BSS    0                                                       PAR      2407
          1450  6130000000 X                      SB3    OSTACK                                                  PAR      2408
                          67353                   SB3    B5-B3                                                   PAR      2409
          1451  0703001503 +                      GT     B3,PAR.EOS6 IF OPERATOR STACK NOT EMPTY                 PAR      2410
                          5110000000 X            SA1    ZLE                                                     PAR      2411
          1452  0301001463 +                      ZR     X1,PAR.EOS3 IF TRUE *EOS*                               PAR      2412
                          53210                   SA2    X1                                                      PAR      2413
                               76600              =X6    O.EOS                                                   PAR      2414
          1453  21222                             AX2    TB.TOCP                                                 PAR      2415
                     54620                        SA6    A2          REPLACE *=* WITH *EOS*                      PAR      2416
                          63420                   SB4    X2          RESET *B4* TO *=*                           PAR      2417
          1454  5110000000 X                      SA1    TB=1ST                                                  PAR      2418
                          66210                   =B2    1                                                       PAR      2419
          1455  0312001456 +                      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
          1456  10622                    PAR.EOS1 BX6    X2                                                      PAR      2423
                     56342                        SA3    B4+B2                                                   PAR      2424
                          5160000000 X            SA6    ZLE         RESET TO NEXT LEVEL                         PAR      2425
          1457  7110000041                        =X1    O.=                                                     PAR      2426
                          7160000023              =X6    CR.STR                                                  PAR      2427
          1460  6273777766                        SB7    X3-O.VAR                                                PAR      2428
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    61
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.EOS 
  
                                   0              ERRNZ  18-TB.TOTL                                              PAR      2429
                          5120000267 +            SA2    F.PRIOR-O.SEP+O.=                                       PAR      2430
          1461  5160000000 X                      SA6    REFVAR      SET UP FOR *STORE*                          PAR      2431
                          0470001413 +            ZR     B7,PAR.ADOP IF LEFT MEMBER IS A SYMBOL                  PAR      2432
          1462  6170000000 X                      FATAL  E.VA11      ILLEGAL LEFT MEMBER                         PAR      2433
                                                                                                                 PAR      2434
                                        *         HERE IF LAST *=* PROCESSED.                                    PAR      2435
                                                                                                                 PAR      2436
          1463  5110000000 X             PAR.EOS3 SA1    ARGMODE                                                 PAR      2437
                          7130000042              =X3    O.COMMA                                                 PAR      2438
          1464  20126                             SBIT   X1,AM.EOSP                                              PAR      2439
                     0321001472 +                 PL     X1,PAREXIT  IF NO SPECIAL EOS PROCESSING                PAR      2440
                               10633              BX6    X3                                                      PAR      2441
          1465  5110000000 X                      SA1    T.PAR                                                   FC50478     7
                          5120000000 X            SA2    T=PAR                                                   FC50478     8
          1466  0302001471 +                      ZR     X2,PAR.EOS4 IF NO PARSE FILE                            FC50478     9
                          6272777774              SB7    X2-Z=TURP                                               FC50478    10
          1467  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
          1470  7222777712                        SX2    X2-O.ERR                                                FC50478    15
                          0302001472 +            ZR     X2,PAREXIT  IF LAST WAS ERROR TURPLE                    FC50478    16
                                                                                                                 FC50478    17
          1471  76100                    PAR.EOS4 =X1    O.EOS                                                   FC50478    18
                     56651                        =A6    B5+1                                                    PAR      2443
                                                  LX1    SP.TBPRP                                                FC50104   101
                          0100001533 +            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
          1472                           PAREXIT  BSSENT 0           EXIT PARSER THROUGH HERE                    PAR      2455
                                                                                                                 PAR      2456
                                         SNAP=P   IFEQ   TEST,ON     DUMP PARSED FILE                            PAR      2457
          1472  5110000000 X                      SA1    CO.SNAP                                                 PAR      2458
                          20120                   LX1    1RP                                                     PAR      2459
          1473  0321001474 +                      PL     X1,PAR.EOSA IF SNAP NOT REQUESTED                       PAR      2460
                          0100000000 X            CALL   SN.PAR                                                  PAR      2461
          1474                           PAR.EOSA BSS    0                                                       PAR      2462
                                         SNAP=P   ENDIF                                                          PAR      2463
                                                                                                                 PAR      2464
                                         SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                           PAR      2465
          1474  5110000000 X                      SA1    CO.SNAP                                                 PAR      2466
                          20132                   LX1    1RZ                                                     PAR      2467
          1475  0321001502 +                      PL     X1,PAR.EOSS IF PARSE SNAP NOT SELECTED                  PAR      2468
          1476  0100000000 X             PARSEXIT PARSNAP                                                        PAR      2469
          1502                           PAR.EOSS BSS    0                                                       PAR      2470
                                         SNAP=Z   ENDIF                                                          PAR      2471
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    62
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAREXIT 
  
                                                                                                                 PAR      2472
          1502  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
          1503  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
          1504  6222777733                        SB2    X2-O.SLP                                                PAR      2483
                          6232777740              SB3    X2-O.LP                                                 PAR      2484
                                                  LX3    SP.TBPRP                                                FC50104   104
          1505  0420001513 +                      ZR     B2,PAR.EOS8 IF *(* BEING POPPED                         PAR      2486
                          0530001507 +            NZ     B3,PAR.EOS7 IF NOT POPPING *LP*                         PAR      2487
          1506  6170000000 X                      SB7    E.LP1                                                   PAR      2488
                          0400001613 +            EQ     POP.RP5     TAKE ERROR EXIT                             PAR      2489
                                                                                                                 PAR      2490
          1507  13666                    PAR.EOS7 BX6    0                                                       PAR      2491
                     56150                        SA1    B5                                                      PAR      2492
                          5160000010 +            SA6    POPPER                                                  PAR      2493
          1510  55661                             =A6    A6-POPPER+POPDPC                                        PAR      2494
                     0100001533 +                 RJ     POP         POP OPERATOR                                PAR      2495
          1511  5110000010 +                      SA1    POPPER                                                  PAR      2496
                          0321001450 +            PL     X1,PAR.EOS  IF NO PROCESSING NOT SET                    PAR      2497
          1512  67441                             =B4    B4-1        RESET *B4*                                  PAR      2498
                     67551                        =B5    B5-1                                                    PAR      2499
                          0400001450 +            EQ     PAR.EOS     CONTINUE                                    PAR      2500
                                                                                                                 PAR      2501
          1513  5150000000 X             PAR.EOS8 SA5    ARGMODE                                                 PAR      2502
                          20526                   HX5    AM.EOS                                                  PAR      2503
          1514  0325001516 +                      PL     X5,PAR.EOS9 IF EOS DOESNT UNSTACK *(*                   PAR      2504
                          7110000040              SX1    O.RP                                                    PAR      2505
          1515  77701                             =X7    -1                                                      PAR      2506
                     5170000010 +                 SA7    POPPER                                                  PAR      2507
                                                                                                                 FC50478    19
          1516  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
          1517  0100001533 +                      RJ     POP                                                     PAR      2512
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1520  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
          1522  22603                             LX6    X3                                                      PAR      2526
                     76500                        =X5    0                                                       PAR      2527
                          5170000002 +            SA7    SMOD                                                    PAR      2528
          1523  54671                             =A6    A7-SMOD+SOPR                                            PAR      2529
                     0100004031 +                 RJ     ADT         ADD ERROR TURPLE                            PAR      2530
          1524  5120000000 X                      SA2    T.TB                                                    FC50396    17
                          63320                   SB3    X2                                                      FC50396    18
                               67343              SB3    B4-B3                                                   FC50396    19
          1525  56141                             =A1    B4+1        PREFETCH                                    FC50396    20
                     76610                        =X6    1                                                       FC50396    21
                                                                                                                 FC50396    22
          1526  5011777776               STOP1    SA1    A1-1        FETCH TOKEN                                 FC50396    23
                          6221777727              SB2    X1-O.DOCI                                               FC50396    24
          1527  0420000000 X                      ZR     B2,PSL      IF DO CONCLUSION, NO HANGING IMPLIED DO     FC50396    25
                          6221777730              SB2    X1-O.DOBI                                               FC50396    26
          1530  0420001532 +                      ZR     B2,STOP2    IF DO BEGIN, HANGING IMPLIED DO             FC50396    27
                          6133777776              SB3    B3-1                                                    FC50396    28
          1531  0630001526 +                      PL     B3,STOP1    IF NOT FINISHED                             FC50396    29
                          0400000000 X            EQ     PSL         EXIT                                        FC50396    30
                                                                                                                 FC50396    31
          1532  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/05. 19.59.39.      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
          1533                           IOL.RTN  BSSENT 0           ...RETURN FROM IOL                          PAR      2561
                                                                                                                 PAR      2562
          1533  0400401533 +             POP      SUBR   0                                                       PAR      2563
          1534  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
          1535  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
          1536  5140000000 X                      SA4    T=PAR                                                   PAR      2573
                          63310                   SB3    X1          (B3) = TOKEN TYPE OF OPERATOR CAUSING POP   PAR      2574
                               22603              LX6    X3                                                      PAR      2575
          1537  5170000001 +                      SA7    ATTR        CLEAR ATTRIBUTE CELL                        PAR      2576
                          36045                   IX0    X4+X5                                                   PAR      2577
          1540  5160000003 +                      SA6    SOPR        SAVE OPERATOR                               PAR      2578
                          7270777774              SX7    X0-Z=TURP+OR.OPR                                        PAR      2579
          1541  5170000006 +                      SA7    LASTAD      LAST TURPLE OPERATOR ADDRESS                PAR      2580
                          5146777775              SA4    B6-2        1ST OPERAND INTO (X4)                       PAR      2581
          1542  53570                             SA5    X7                                                      PAR      2582
                     5222000173 +                 SA2    X2-O.DEF+F.POPNX                                        PAR      2583
          1543  6170000046                        SB7    O.ILL                                                   PAR      2584
                          0773401543 +            GT     B3,B7,"BLOWUP"                                          PAR      2585
          1544  10655                             BX6    X5                                                      PAR      2586
                     76700                        =X7    0                                                       PAR      2587
                          5160000005 +            SA6    LASTOP      SET LAST OPERATOR                           PAR      2588
          1545  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/05. 19.59.39.      PAGE    65
        POPPING (SYNTHESIS).                                          POP 
  
                                                                                                                 PAR      2591
                                         SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                           PAR      2592
                          5150000000 X            SA5    CO.SNAP                                                 PAR      2593
          1546  20532                             LX5    1RZ                                                     PAR      2594
                     0325001553 +                 PL     X5,POPS     IF PARSE SNAP NOT SELECTED                  PAR      2595
                               54541              =A5    A4+1                                                    PAR      2596
          1547  0100000000 X             POPP     PARSNAP                                                        PAR      2597
          1553  54541                    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
                               20626              SBIT   X6,SP.COMP                                              FC50104   110
          1554  0326001566 +                      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
                               10144              BX1    X4                                                      PAR      2639
          1565  0327001566 +                      PL     X7,POP.JP   IF IN NUMERIC ORDER                         PAR      2640
                          10455                   BX4    X5                                                      PAR      2641
                               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/05. 19.59.39.      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
          1566  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
          1567                           POP.ERR  BSS    0                                                       PAR      2659
          1567  5130000317 +                      SA3    ERROP                                                   PAR      2660
                          76700                   =X7    0           CLEAR OPERATOR CELL                         PAR      2661
                               43400              MX4    0                                                       PAR      2662
          1570  13555                             BX5    0           (1OP) = (2OP) = NIL                         PAR      2663
                     5170000003 +                 SA7    SOPR                                                    PAR      2664
          1571  0400001576 +                      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
          1572                           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
          1572  43063                             MX0    -SP.TBPRL                                               FC50104   111
                     5110000010 +                 SA1    POPPER                                                  FC5A150   464
                                                  LX1    -SP.TBPRP                                               FC50104   112
                               15710              BX7    -X0*X1                                                  FC5A150   466
          1573  43600                             MX6    0                                                       FC5A150   467
                     7277777723                   SX7    X7-PR.MULT                                              FC5A150   468
          1574  0327001575 +                      PL     X7,POP.ST0  IF COP GE PRIOR(*)                          FC5A150   469
                          5160001400 +            SA6    MULTOG      MULTOG = 0                                  FC5A150   470
                                                                                                                 FC5A150   471
          1575  0100004506 +             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/05. 19.59.39.      PAGE    67
        POPPING (SYNTHESIS).                                          POP.STD 
  
                                        *         CALLS  ADT, OMC.                                               PAR      2686
                                                                                                                 PAR      2687
                                                                                                                 PAR      2688
          1576                           POP.ST1  BSS    0           ENTRY...                                    PAR      2689
          1576  10633                             BX6    X3                                                      PAR      2690
                     5160000003 +                 SA6    SOPR        SET OPERATOR CELL                           PAR      2691
          1577  0100004410 +                      RJ     OMC                                                     PAR      2692
          1600  0100004031 +                      RJ     ADT         ADD TURPLE                                  PAR      2693
          1601  0400001533 +                      EQ     POPX        EXIT..                                      PAR      2694
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1602                           POP.COL  BSS    0                                                       PAR      2709
          1602                           POP.CM   BSS    0                                                       PAR      2710
          1602  5110000000 X                      SA1    ARGCOMA                                                 PAR      2711
                          5120000000 X            SA2    ARGMODE                                                 PAR      2712
          1603  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
          1604  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
          1605  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
          1606                           C=CERR   BSSENT 0           ENTRY...                                    PAR      2732
          1606  6170000000 X                      FATAL  E.AT05                                                  PAR      2733
          1607                           C=ERR    BSSENT 0           ENTRY...                                    PAR      2734
          1607  0400001567 +                      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
          1610                           POP.RP   BSS    0                                                       PAR      2746
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    69
        POPPING (SYNTHESIS).                                          POP.RP
  
          1610  56151                             =A1    B5+1                                                    PAR      2747
                     21122                        AX1    TB.IOSPP    TEST FOR SPECIAL RIGHT PAREN                PAR      2748
                          0301001612 +            ZR     X1,POP.RP1  IF NOT SPECIAL RP, THEN ERROR               PAR      2749
          1611  0400001463 +                      EQ     PAR.EOS3    CONTINUE PROCESSING IO LIST                 PAR      2750
          1612  6144777774               POP.RP1  =B4    B4-3        SET FOR ERROR PROCESSING                    PAR      2751
                          6170000000 X            SB7    E.LP2                                                   PAR      2752
          1613  0100000000 X             POP.RP5  FATAL  B7                                                      PAR      2753
          1614  0400001520 +                      EQ     PAR.STOP    CATASTROPHIC ERROR, START ANEW              PAR      2754
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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/05. 19.59.39.      PAGE    71
        POPPING (SYNTHESIS).                                          POP.PN
  
                                        *         USES   A2-4,A6   X5   B3.                                      PAR      2811
                                                                                                                 PAR      2812
                                                                                                                 PAR      2813
          1615                           POP.PN   BSS    0                                                       PAR      2814
          1615  5140000000 X                      SA4    ARGMODE                                                 PAR      2815
                          5130000007 +            SA3    POPDPC                                                  PAR      2816
          1616  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
          1617  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
          1620  5130000000 X                      SA3    ARGMIS                                                  PAR      2826
                          6170000000 X            SB7    E.LP1       IN CASE OF PARENTHESIS MISMATCH             PAR      2827
          1621  0520001613 +                      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
          1622  5170000000 X                      SA7    SCR         SAVE CURRENT *ARGMODE*                      PAR      2833
                          22605                   LX6    X5                                                      PAR      2834
                               10733              BX7    X3                                                      PAR      2835
          1623  5120000000 X                      SA2    T.PCS                                                   FC51075    45
                          5140000000 X            SA4    T=PCS                                                   FC51075    46
          1624  36024                             IX0    X2+X4                                                   FC51075    47
                     5220777774                   SA2    X0-Z=PSTACK+AM.W                                        FC51075    48
                               54671              =A6    A7+1        SAVE CURRENT *ARGCOMA*                      PAR      2837
          1625  54421                             =A4    A2-AM.W+AC.W                                            PAR      2838
                     54761                        =A7    A6+1        SAVE CURRENT *ARGMIS*                       PAR      2839
                          10622                   BX6    X2                                                      PAR      2840
          1626  5120000000 X                      SA2    T=PCS                                                   FC51075    49
                          7272777774              SX7    X2-Z=PSTACK                                             FC51075    50
          1627  54720                             SA7    A2                                                      FC51075    51
                     5130000012 +                 SA3    CMLFLG                                                  PAR      2842
                               54541              =A5    A4-AC.W+AS.W                                            PAR      2843
          1630  73235                             SX2    X3+B5                                                   PAR      2844
                     5160000000 X                 SA6    ARGMODE     RESET ARGMODE                               PAR      2845
          1631  0312001632 +                      NZ     X2,POP.PN1  IF NO NEED TO RESET FLAG                    PAR      2846
                          76710                   =X7    1                                                       PAR      2847
                               54730              SA7    A3                                                      PAR      2848
          1632  21660                    POP.PN1  AX6    AM.REFP                                                 PAR      2849
                     5120000000 X                 SA2    ARGCOMA                                                 PAR      2850
                               10744              BX7    X4                                                      PAR      2851
          1633  5160000000 X                      SA6    REFVAR      RESET CROSS REFERENCE VALUE                 PAR      2852
                          54720                   SA7    A2          RESET ARGCOMA                               PAR      2853
                               10655              BX6    X5                                                      PAR      2854
          1634  5160000000 X                      SA6    ARGMIS                                                  PAR      2855
                          5146777775              SA4    B6-2        1ST OPERAND                                 PAR      2856
          1635  43673                             MX6    -1                                                      PAR      2857
                     66441                        =B4    B4+1        BYPASS RIGHT PARENTHESIS                    PAR      2858
                          57561                   =A5    B6-1        2ND OPERAND                                 PAR      2859
          1636  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/05. 19.59.39.      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
          1637                           A=IF     BSS    0                                                       PAR      2881
          1637  0400001644 +                      EQ     AIF8        **** TEMP ****                              PAR      2882
          1640  5110000005 +                      SA1    LASTOP                                                  PAR      2883
                                         RELOP    BITMIC (O.LT,O.GE,O.EQ,O.NE)                                   PAR      2884
                          5120004741 +            SA2    ="RELOP"                                                PAR      2885
          1641  63710                             SB7    X1                                                      PAR      2886
                     22672                        LX6    X2,B7                                                   PAR      2887
                          0326001644 +            PL     X6,AIF8     IF LAST OP NOT RELATION                     PAR      2888
          1642  10155                             BX1    X5                                                      PAR      2889
                     0100004215 +                 RJ     COR         CHECK IF OPERAND IS REDUCIBLE INTERMEDIATE  PAR      2890
          1643  0310001644 +                      NZ     X0,AIF8     IF RELATION-OP NOT INPUT TO IF-OP           PAR      2891
          1644  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
          1645  5170000000 X                      SA7    IFRESLT                                                 PAR      2897
                          5160000000 X            SA6    IFMOD                                                   PAR      2898
          1646  0400001472 +                      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
                                1533 +   A=LIST   EQU    POPX        EXIT...                                     PAR      2909
                                                                                                                 PAR      2910
          1647  0400001533 +             A=DVL    EQ     POPX        ME TOO..                                    PAR      2911
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1650  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
          1651  37117                             IX1    X1-X7                                                   PAR      2956
                                                  LX3    SP.TBPRP                                                FC50104   117
                     0311001572 +                 NZ     X1,POP.STD  IF NOT BEING POPPED BY LIKE OPERATOR        PAR      2958
                               10633              BX6    X3                                                      PAR      2959
          1652  20627                             HX6    SP.AS                                                   FC50104   118
                     0326001572 +                 PL     X6,POP.STD  IF OPERATOR NOT ASSOCIATIVE                 PAR      2961
          1653  5110000276 +                      SA1    SDIV                                                    FC5A221    15
                          43263                   MX2    -SP.STPRL                                               FC50104   119
                               13113              BX1    X1-X3                                                   FC5A221    17
          1654  20163                             LX1    -SP.STPRP                                               FC50104   120
                     15212                        BX2    -X2*X1                                                  FC5A221    19
                          0302001572 +            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/05. 19.59.39.      PAGE    74
        POP/EMIT SIMPLE OPERATORS.                                    POP=COM 
  
                                                                                                                 PAR      2965
                                                                                                                 PAR      2966
          1655                           POP.SDIV BSS                                                            PAR      2967
                                         .T       IFEQ   TEST,ON                                                 PAR      2968
          1655  57261                             SA2    B6-B1       TOP-1                                       PAR      2969
                     55121                        SA1    A2-B1       TOP-2                                       PAR      2970
                          13725                   BX7    X2-X5                                                   PAR      2971
                               13614              BX6    X1-X4                                                   PAR      2972
          1656  13115                             BX1    X1-X5                                                   PAR      2973
                     13224                        BX2    X2-X4                                                   PAR      2974
                          0306001661 +            ZR     X6,POPCOM2  IF (1OP) = TOP-2                            PAR      2975
          1657  0312401657 +                      NZ     X2,"BLOWUP" IF (1OP) NOT FROM STACK                     PAR      2976
                          0311401657 +            NZ     X1,"BLOWUP" IF (2OP) <> TOP-2                           PAR      2977
          1660  0400001662 +                      EQ     POPCOM8                                                 PAR      2978
                                                                                                                 PAR      2979
          1661  0317401661 +             POPCOM2  NZ     X7,"BLOWUP" IF (2OP) <> TOP-1                           PAR      2980
          1662                           POPCOM8  BSS                OK..                                        PAR      2981
                                         .T       ENDIF                                                          PAR      2982
                                                                                                                 PAR      2983
          1662  10144                             BX1    X4                                                      PAR      2984
                     0100000000 X                 CALL   LCT         LOAD CONSTANT (1OP)                         PAR      2985
          1663  77301                             SX3    -B1                                                     PAR      2986
                     10155                        BX1    X5                                                      PAR      2987
                          0420001666 +            ZR     B2,COM3     IF FIRST IS NOT CONSTANT                    PAR      2988
          1664  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
          1665  10566                             BX5    X6                                                      PAR      2993
                     22407                        LX4    X7                                                      PAR      2994
                          55761                   SA7    A6-B1                                                   PAR      2995
                                                                                                                 PAR      2996
          1666  0100000000 X             COM3     CALL   LCT         LOAD CONSTANT (2OP)                         PAR      2997
          1667  63730                             SB7    X3                                                      PAR      2998
                     0420001670 +                 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
          1670  5130000003 +             COM4     SA3    SOPR        RELOAD POPPED OPERATOR                      PAR      3006
                          0570001572 +            NZ     B7,POP.STD  IF BOTH OR NONE ARE CONSTANTS               PAR      3007
          1671  5120000010 +                      SA2    POPPER                                                  PAR      3008
                          66551                   =B5    B5+1        RETAIN OPERATOR ON OSTACK                   PAR      3009
                               55121              =A1    A2-POPPER+POPDPC                                        PAR      3010
          1672  66441                             =B4    B4+1        ADVANCE TO NEXT TOKEN                       PAR      3011
                     0400001413 +                 EQ     PAR.ADOP    RESET OPERATOR STACK                        PAR      3012
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1673                           POP.DIV  BSS    0                                                       PAR      3046
          1673  10155                             BX1    X5                                                      PAR      3047
                     0100000000 X                 CALL   LCT         LOAD CONSTANT TEST                          PAR      3048
          1674  0420001700 +                      ZR     B2,POP.DV2  IF DENOMINATOR NOT CONSTANT                 PAR      3049
                          0316001700 +            NZ     X6,POP.DV2  IF DENOMINATOR NOT ZERO                     PAR      3050
          1675  7200777772                        SX0    X0-M.CPLX                                               PAR      3051
                          0310001677 +            NZ     X0,POP.DV1  IF DENOM. NOT COMPLEX                       PAR      3052
          1676  0317001700 +                      NZ     X7,POP.DV2  IF AIMAG(DENOM.) NZ                         PAR      3053
                                                                                                                 PAR      3054
          1677  6170000000 X             POP.DV1  FATAL  E.DC4       ** DIVIDE BY ZERO                           PAR      3055
                                                                                                                 PAR      3056
          1700  5110000000 X             POP.DV2  SA1    CO.RNDM                                                 FC50392    12
                          5120000000 X            SA2    CO.RNDD                                                 FC50392    13
          1701  13112                             BX1    X1-X2                                                   FC50392    14
                     22203                        LX2    X3                                                      FC50392    15
                          0311001716 +            NZ     X1,POP.DV10 IF DIFFERENT ARITHMETIC SELECTED            FC50392    16
          1702  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
          1703  37012                             IX0    X1-X2                                                   PAR      3061
                     10233                        BX2    X3                                                      PAR      3062
                          0310001716 +            NZ     X0,POP.DV10 IF NOT DIVIDE POPPING DIVIDE                PAR      3063
          1704  20226                             SBIT   X2,SP.COMP                                              FC50104   123
                     0322001711 +                 PL     X2,POP.DV5  IF NOT POPPING SPECIAL DIVIDE               PAR      3065
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    76
        POP/EMIT SIMPLE OPERATORS.                                    POP.DIV 
  
          1705  5110000276 +                      SA1    SDIV                                                    PAR      3066
                          76210                   =X2    O.DIV&O.MULT                                            PAR      3067
                                                  LX2    SP.TBPRP                                                FC50104   124
                               13632              BX6    X3-X2                                                   PAR      3069
          1706  22701                             LX7    X1                                                      PAR      3070
                     5160000003 +                 SA6    SOPR        SET CONFIRMED MULTIPLY                      PAR      3071
                               10366              BX3    X6                                                      PAR      3072
          1707  5170000010 +                      SA7    POPPER      CHANGE TO SPECIAL DIVIDE                    PAR      3073
                          56651                   =A6    B5+1        CHANGE IN STACK ALSO (INCASE MULT NO POP)   PAR      3074
          1710  0400001655 +                      EQ     POP.SDIV    HANDLE AS MULTIPLY                          PAR      3075
                                                                                                                 PAR      3076
                                        *         HERE FOR FIRST DIVIDE IN SEQUENCE.                             PAR      3077
                                                                                                                 PAR      3078
          1711  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
          1712  7202777774                        SX0    X2-M.REAL                                               FC5A150   477
                                   0              ERRNZ  M.INT-2                                                 FC5A150   478
                                   0              ERRNZ  M.BOOL                                                  FC5A150   479
                          0330001716 +            MI     X0,POP.DV10 IF INTEGER DIVIDE                           FC5A150   480
          1713  5120000276 +                      SA2    SDIV        CHANGE TO SPECIAL DIVIDE                    FC5A150   481
                          66441                   =B4    B4+1        NEXT                                        PAR      3080
          1714  7110000017                        =X1    O.DIV                                                   PAR      3081
                          66551                   =B5    B5+1        REACTIVATE 1ST DIVIDE                       PAR      3082
          1715  0400001413 +                      EQ     PAR.ADOP    IGNORE- SET INTO OPERATOR STACK             PAR      3083
                                                                                                                 PAR      3084
          1716  20226                    POP.DV10 SBIT   X2,SP.COMP                                              FC50104   125
                     0332001727 +                 MI     X2,POP.DV25 IF POPPING SPECIAL DIVIDE                   FC5A150   482
                                         .INV     IFEQ   NOINVERT,0                                              FC5A150   483
          1717  0420001722 +                      ZR     B2,POP.DV15 IF DENOMINATOR IS NOT CONSTANT              FC5A150   484
                          43600                   MX6    0                                                       FC5A150   485
          1720  5160001731 +                      SA6    POP.DVA                                                 FC5A150   486
                          0100000000 X            CALL   PDC         PROCESS DIVIDE BY CONSTANT                  FC5A150   487
          1721  5110001731 +                      SA1    POP.DVA                                                 FC5A150   488
                          0311001726 +            NZ     X1,POP.DV20 IF DIVIDE CHANGED TO MULTIPLY               FC5A150   489
                                         .INV     ENDIF                                                          FC5A150   490
                                                                                                                 FC5A150   491
          1722  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
          1723  7211777772                        SX1    X1-M.CPLX                                               FC5A150   497
                          7222777774              SX2    X2-M.REAL                                               FC5A150   498
                                                  LX4    TP.MODEP                                                FC5A150   499
                                                  LX5    TP.MODEP                                                FC5A150   500
          1724  0311001727 +                      NZ     X1,POP.DV25 IF NUMERATOR NOT COMPLEX                    FC5A150   501
                          0312001727 +            NZ     X2,POP.DV25 IF DENOMINATOR NOT REAL                     FC5A150   502
          1725  5130000300 +                      SA3    CRDIV       CHANGE OP TO SPECIAL CPLX/REAL DIVIDE       FC5A150   503
                          0400001727 +            EQ     POP.DV25                                                FC5A150   504
                                                                                                                 FC5A150   505
          1726  5130000244 +             POP.DV20 SA3    F.PRIOR+O.MULT-O.SEP                                    FC5A150   506
                                                                                                                 FC5A150   507
          1727  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/05. 19.59.39.      PAGE    77
        POP/EMIT SIMPLE OPERATORS.                                    POP.DIV 
  
                          5160000003 +            SA6    SOPR        SET CONFIRMED MULTIPLY                      PAR      3090
          1730  10366                             BX3    X6                                                      PAR      3091
                     0400001572 +                 EQ     POP.STD     POP AS TRUE MULTIPLY                        PAR      3092
                                                                                                                 FC5A150   509
          1731                     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
          1732                           POP.PL   BSS    0                                                       PAR      3103
          1732  5110000004 +                      SA1    CURST                                                   FC50612    16
                          5120000000 X            SA2    T=PAR                                                   FC50612    17
          1733  37112                             IX1    X1-X2                                                   FC50612    18
                     0301001650 +                 ZR     X1,POP=COM  IF LAST TURPLE NOT TO BE SQUEEZED           FC50612    19
          1734  5110000005 +                      SA1    LASTOP                                                  PAR      3104
                          6271777757              SB7    X1-O.UMIN                                               PAR      3105
          1735  5120000006 +                      SA2    LASTAD                                                  PAR      3106
                          0570001650 +            NZ     B7,POP=COM  IF LAST OP NOT *UNARY-*                     PAR      3107
          1736  10144                             BX1    X4                                                      PAR      3108
                     0100004215 +                 RJ     COR         CHECK IF OPERAND IS INPUT TO OPERATOR       PAR      3109
          1737  0310001650 +                      NZ     X0,POP=COM  IF *UNARY-* NOT INPUT INTO *PLUS*           PAR      3110
                          5130000277 +            SA3    MINUSOP                                                 PAR      3111
          1740  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
          1741  5110000000 X                      SA1    INSTF                                                   FC51427     6
                          0311001743 +            NZ     X1,POP.PL4  IF IN ARITHMETIC STATEMENT FUNCTION         FC51427     7
          1742  54720                             SA7    A2          RESET LENGTH OF T.PAR                       FC51427     8
                                                                                                                 FC51427     9
          1743  5160000003 +             POP.PL4  SA6    SOPR                                                    FC51427    10
                          0400001572 +            EQ     POP.STD                                                 PAR      3117
  
  
  
  
                                        **        POP.MUL - MULTIPLY BEING POPPED.                               PAR      3119
                                                                                                                 PAR      3120
                                                                                                                 PAR      3121
                                1650 +   POP.MUL  EQU    POP=COM                                                 PAR      3122
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          1744                           POP.UM   BSS    0                                                       PAR      3135
          1744  5110000005 +                      SA1    LASTOP                                                  PAR      3136
                          5120000006 +            SA2    LASTAD                                                  PAR      3137
                                                                                                                 PAR      3138
                                        *         CHECK FOR -(A-B)                                               PAR      3139
                                                                                                                 PAR      3140
          1745  6221777762                        SB2    X1-O.MIN                                                PAR      3141
                          6271777757              SB7    X1-O.UMIN                                               PAR      3142
          1746  5110000000 X                      SA1    INSTF       STATEMENT FUNCTION FLAG                     FC50664     7
                          0311001761 +            NZ     X1,POP=UNO  SKIP OPTIMIZATION IF IN STATEMENT FUNCTION  FC50664     8
          1747  0520001754 +                      NZ     B2,POP=UNR  IF LAST NOT BINARY MINUS                    PAR      3143
                          10155                   BX1    X5                                                      PAR      3144
          1750  0100004215 +                      RJ     COR                                                     PAR      3145
          1751  0310001761 +                      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
          1752  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
          1753  0400001533 +                      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
          1754                           POP=UNR  BSS    0           ENTRY...                                    PAR      3160
          1754  0570001761 +                      NZ     B7,POP=UNO  IF OPERAND NOT RESULT OF SAME OPERATOR      PAR      3161
                          10155                   BX1    X5                                                      PAR      3162
          1755  0100004215 +                      RJ     COR                                                     PAR      3163
          1756  0310001761 +                      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
          1757  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
          1760  0400001533 +                      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/05. 19.59.39.      PAGE    79
        POP/EMIT SIMPLE OPERATORS.                                    POP=UNR 
  
          1761                           POP=UNO  BSS                                                            PAR      3175
          1761  10455                             BX4    X5          (1OP) = (2OP) FOR SDM                       PAR      3176
                     66661                        =B6    B6+1        ADJUST ELSTAK TO REMOVE ONLY 1 ELEMENT      PAR      3177
                          0400001572 +            EQ     POP.STD                                                 PAR      3178
  
  
  
  
                                        **        CHECK IF .NOT. (.NOT. EXPRESSION) COMBINATION.                 PAR      3180
                                                                                                                 PAR      3181
                                                                                                                 PAR      3182
          1762                           POP.NOT  BSS    0                                                       PAR      3183
          1762  5110000005 +                      SA1    LASTOP                                                  PAR      3184
                          6271777747              SB7    X1-O.NOT                                                PAR      3185
          1763  0400001754 +                      EQ     POP=UNR                                                 PAR      3186
  
  
  
  
                                        **        POP.LOG - POPPING BINARY LOGICAL OPERATOR.                     PAR      3188
                                                                                                                 PAR      3189
                                                                                                                 PAR      3190
          1764                           POP.LOG  BSS    0                                                       PAR      3191
          1764  10633                             BX6    X3                                                      PAR      3192
                     20626                        HX6    SP.COM                                                  FC50104   127
                          0336001650 +            MI     X6,POP=COM  IF COMMUTATIVE OPERATOR                     PAR      3194
          1765  0400001572 +                      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
          1766  7110000005               POP.LE   =X1    O.LE&O.GE                                               PAR      3203
                          0400001770 +            EQ     REL1                                                    PAR      3204
                                                                                                                 PAR      3205
          1767  7110000005               POP.GT   =X1    O.GT&O.LT                                               PAR      3206
          1770  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
          1771  5160000003 +                      SA6    SOPR                                                    PAR      3211
                          13331                   BX3    X3-X1                                                   PAR      3212
                               22400              LX4    X0                                                      PAR      3213
                                                                                                                 PAR      3214
                                                                                                                 PAR      3215
          1772                           POP.REL  BSS    0                                                       PAR      3216
          1772  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      3217
          1773  10655                             BX6    X5          PRESERVE X5                                 PAR      3218
                     10544                        BX5    X4                                                      PAR      3219
                          0100004721 +            RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      3220
          1774  10566                             BX5    X6          RESTORE X5                                  PAR      3221
                     22603                        LX6    X3                                                      PAR      3222
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    80
        POP/EMIT SIMPLE OPERATORS.                                    POP.REL 
  
                          5160000011 +            SA6    LASTREL     REMEMBER (TH.SKEL) OF RELATION              PAR      3223
          1775  0100004506 +                      RJ     SDM         SELECT DOMINANT MODE                        PAR      3224
          1776  0100004410 +                      RJ     OMC         OUTPUT MODE CONVERSION                      PAR      3225
          1777  5120000000 +                      SA2    PARNOW                                                  PAR      3226
                          7212777770              SX1    X2-PM=PARM                                              FC5A156    15
          2000  0301002002 +                      ZR     X1,REL3     IF PROCESSING *PARAMETER* STATEMENT         FC5A156    16
                          7222777775              SX2    X2-PM=CXP                                               PAR      3227
          2001  0312002015 +                      NZ     X2,REL5     IF NOT PARSING CONSTANT EXPRESSIONS         PAR      3228
          2002  5110000002 +             REL3     SA1    SMOD                                                    FC5A156    17
                          7271777771              SX7    X1-M.CHAR                                               PAR      3230
          2003  0317002015 +                      NZ     X7,REL5     IF DOMINANT MODE NOT CHARACTER              PAR      3231
                          10733                   BX7    X3                                                      PAR      3232
          2004  5170000000 X                      SA7    PCR.RO      SAVE RELOP                                  PAR      3233
                          10144                   BX1    X4                                                      PAR      3234
          2005  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT 1OP                  PAR      3235
          2006  6122000002                        SB2    B2+2                                                    PAR      3236
                          0520002015 +            NZ     B2,REL5     IF 1OP NOT CHARACTER CONSTANT               PAR      3237
          2007  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
          2010  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT 2OP                  PAR      3241
          2011  6122000002                        SB2    B2+2                                                    PAR      3242
                          0520002015 +            NZ     B2,REL5     IF 2OP NOT CHARACTER CONSTANT               PAR      3243
          2012  5160000000 X                      SA6    PCR.2OP     SAVE T.CON INDEX                            PAR      3244
                          54761                   =A7    A6+1        SAVE CHARACTER LENGTH                       PAR      3245
          2013  0100000000 X                      CALL   PCR         PROCESS CHARACTER RELATIONALS               PAR      3246
          2014  0400001533 +                      EQ     POPX                                                    PAR      3247
                                                                                                                 PAR      3248
          2015  5110000002 +             REL5     SA1    SMOD                                                    PAR      3249
                          7170000001              SX7    M.LOG                                                   PAR      3250
          2016  10611                             BX6    X1                                                      PAR      3251
                     54710                        SA7    A1          (SMOD) = M.LOG                              PAR      3252
                          5160000017 +            SA6    RELA        SAVE OPERAND MODE                           PAR      3253
          2017  0100004031 +                      RJ     ADT         ISSUE TURPLE                                PAR      3254
          2020  0620001533 +                      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
          2021  5120000017 +                      SA2    RELA                                                    PAR      3264
                          43063                   MX0    -SP.TBPRL                                               FC50104   129
                               15610              BX6    -X0*X1                                                  PAR      3266
          2022  6276777753                        SB7    X6-O.EQ                                                 PAR      3267
                          73220                   SX2    X2                                                      PAR      3268
                               20201              LX2    1                                                       PAR      3269
          2023  73227                             SX2    X2+B7                                                   PAR      3270
                     20273                        LX2    -1                                                      PAR      3271
                          5212002031 +            SA1    IFRELT+X2   IFRELT(2*MODE+OP-O.EQ)                      PAR      3272
          2024  0332002025 +                      MI     X2,REL10    IF WANT LOWER HALF                          PAR      3273
                          20136                   LX1    30                                                      PAR      3274
                                                                                                                 PAR      3275
          2025  10611                    REL10    BX6    X1                                                      PAR      3276
                     73110                        SX1    X1                                                      PAR      3277
                          0770001533 +            LT     B7,B0,POPX  IF NOT .EQ. OR .NE.                         PAR      3278
          2026  0717001533 +                      GT     B7,B1,POPX  IF NOT .EQ. OR .NE.                         PAR      3279
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    81
        POP/EMIT SIMPLE OPERATORS.                                    POP.REL 
  
                                   0              ERRNZ  O.NE-O.EQ-1                                             PAR      3280
                          73110                   SX1    X1                                                      PAR      3281
          2027  0331001533 +                      MI     X1,POPX     IF NO SPECIAL SKEL                          PAR      3282
                          5160000000 X            SA6    IFREL2      SAVE (OPPOSITE,THIS) SPECIAL PAIR           PAR      3283
          2030  0400001533 +                      EQ     POPX                                                    PAR      3284
                                                                                                                 PAR      3285
          2031                           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
          2040                           POP.CAT  BSS    0                                                       PAR      3302
          2040  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
          2041  7211777771                        SX1    X1-M.CHAR                                               PAR      3307
                          7222777771              SX2    X2-M.CHAR                                               PAR      3308
          2042  0311002066 +                      NZ     X1,CAT2     IF (1OP) NOT TYPE CHARACTER                 PAR      3309
                          0312002066 +            NZ     X2,CAT2     IF (2OP) NOT TYPE CHARACTER                 PAR      3310
          2043  10633                             BX6    X3                                                      PAR      3311
                     10144                        BX1    X4                                                      PAR      3312
                          5160000017 +            SA6    CATA        SAVE (CATA) = OPERATOR WORD                 PAR      3313
          2044  0100000000 X                      CALL   LCH         CHECK IF (1OP) IS CHAR CONSTANT             PAR      3314
          2045  6172000002                        SB7    B2+2                                                    PAR      3315
                          63360                   SB3    X6          SAVE (B3) = INDEX OF (1OP)                  PAR      3316
                               10155              BX1    X5                                                      PAR      3317
          2046  0570002055 +                      NZ     B7,CAT1     IF (1OP) NOT CHAR CONSTANT                  PAR      3318
                          5170000020 +            SA7    CATB        SAVE (CATB) = CHAR LEN OF (1OP)             PAR      3319
          2047  0100000000 X                      CALL   LCH         CHECK IF (2OP) IS CHAR CONSTANT             PAR      3320
          2050  6172000002                        SB7    B2+2                                                    PAR      3321
                          5130000020 +            SA3    CATB        (X3) = LEN OF (1OP)                         PAR      3322
          2051  0570002055 +                      NZ     B7,CAT1     IF (2OP) NOT CHAR CONSTANT                  PAR      3323
                          63260                   SB2    X6          (B2) = INDEX OF (2OP)                       PAR      3324
          2052  0100000000 X                      CALL   PCC         PERFORM CHARACTER CONCATENATION             PAR      3325
          2053  6166777775                        =B6    B6-2        POP TWO OPERANDS                            PAR      3326
                          0100004271 +            RJ     ECC         EMIT CHAR CONSTANTS                         PAR      3327
          2054  0400001533 +                      EQ     POPX                                                    PAR      3328
                                                                                                                 PAR      3329
          2055  10755                    CAT1     BX7    X5                                                      PAR      3330
                     5170002070 +                 SA7    CATC        SAVE 2OP                                    PAR      3331
                               10144              BX1    X4                                                      PAR      3332
          2056  0100004355 +                      RJ     GOL         SEE IF 1OP IS FIXED LENGTH                  PAR      3333
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    82
        POP/EMIT SIMPLE OPERATORS.                                    POP.CAT 
  
          2057  5160000020 +                      SA6    CATB        SAVE FIXED/PASSED FLAG                      PAR      3334
                          5110002070 +            SA1    CATC                                                    PAR      3335
          2060  0100004355 +                      RJ     GOL         SEE IF 2OP IS FIXED LENGTH                  PAR      3336
          2061  5110000020 +                      SA1    CATB                                                    PAR      3337
                          43001                   MX0    1                                                       PAR      3338
                               12616              BX6    X1+X6                                                   PAR      3339
          2062  11006                             BX0    X0*X6       MI IFF EITHER OPERAND NOT FIXED-LENGTH      PAR      3340
                     20033                        LX0    1+TH.PLCP                                               PAR      3341
                          5150002070 +            SA5    CATC        RESTORE 2OP                                 PAR      3342
          2063  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
          2064  7170001000                        CLAS=  X7,TP,(CAT)                                             PAR      3346
                          12707                   BX7    X0+X7       MARK OPERAND AS PASSED LENGTH (LCF)         PAR      3347
          2065  5170000001 +                      SA7    ATTR        MARK RESULT OPERAND AS CAT                  PAR      3348
                          0400001572 +            EQ     POP.STD                                                 PAR      3349
                                                                                                                 PAR      3350
          2066  6170000000 X             CAT2     FATAL  E.AT15      ** OPERANDS OF // MUST BE CHARACTER         PAR      3351
          2067  0400001567 +                      EQ     POP.ERR                                                 PAR      3352
                                                                                                                 PAR      3353
          2070                     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
          2071                           POP.EQL  BSS    0                                                       PAR      3366
          2071  10733                             BX7    X3                                                      PAR      3367
                     5170000017 +                 SA7    EQLA                                                    PAR      3368
                               43071              MX0    -TP.MODEL                                               PAR      3369
                                                  LX5    -TP.MODEP                                               PAR      3370
          2072  15650                             BX6    -X0*X5      DM = MODE OF L.H.S.                         PAR      3371
                     22504                        LX5    X4                                                      PAR      3372
                          0100004167 +            RJ     CMR         COERCE MODE OF R.H.S.                       PAR      3373
          2073  10455                             BX4    X5          (1OP) = CONVERTED R.H.S.                    PAR      3374
                     0470002075 +                 ZR     B7,EQL30    IF CONVERSION OK                            PAR      3375
                               57461              SA4    B6-B1       (1OP) = L.H.S.          /* FAKE LHS=LHS     PAR      3376
          2074  0100000000 X                      FATAL  B7                                                      PAR      3377
          2075  57561                    EQL30    SA5    B6-B1       (2OP) = L.H.S.                              PAR      3378
                     5130000000 X                 SA3    T=BLST                                                  PAR      3379
                               10633              BX6    X3                                                      PAR      3380
          2076  0100000000 X                      CALL   MDD         MARK DO PARAMETERS DEFINED                  PAR      3381
          2077  57561                             SA5    B6-B1       (2OP) = L.H.S                               PAR      3382
                     0100004236 +                 CALL   DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      3383
          2100  0316002105 +                      NZ     X6,EQL48    IF L.H.S. IS CONSTANT OR EXPRESSION         PAR      3384
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2101  0321002105 +                      PL     X1,EQL48    IF SYMBOL NOT A VAR                         PAR      3391
                          7110000200              CLAS=  X1,WB,(DEF)                                             FC5A211    72
          2102  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
          2103  0100000000 X                      CALL   DDR         DIAGNOSE DO REDEFINITION                    FC5A211    73
          2104  0400002107 +                      EQ     EQL50                                                   PAR      3400
                                                                                                                 PAR      3401
          2105  6170000000 X             EQL48    FATAL  E.VA11      ILLEGAL LEFT MEMBER                         PAR      3402
          2106  0400002143 +                      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
          2107  13045                    EQL50    BX0    X4-X5                                                   PAR      3407
                     67661                        =B6    B6-1        ELIMINATE ONE OPERAND                       PAR      3408
                          0300001533 +            ZR     X0,POPX     IF LEFT MEMBER = RIGHT MEMBER               PAR      3409
          2110  5120000000 X                      SA2    T=PAR                                                   PAR      3410
                          7272000003              SX7    X2+Z=TURP   SQZ NOT SMART ENUF TO CROSS STORES          PAR      3411
          2111  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
          2112  15050                             BX0    -X0*X5      ISOLATE TARGET MODE                         FC50189    14
                                                  LX5    TP.MODEP    RESET X5                                    FC5A441    15
                     7200777771                   SX0    X0-M.CHAR                                               FC50189    15
          2113  0310002143 +                      NZ     X0,EQL99.1  IF NOT TYPE CHARACTER                       FC5A441    16
                          22704                   LX7    X4                                                      FC5A441    17
                               10655              BX6    X5                                                      FC50189    17
          2114  5170000020 +                      SA7    EQLB        SAVE X4 (SOURCE OPERAND)                    FC5A441    18
                          5160000021 +            SA6    EQLC        SAVE X5 (TARGET VARIABLE)                   FC5A441    19
          2115  76400                             SX4    B0          INDICATE TARGET CHARACTERISTICS             FC5A441    20
                     0100004431 +                 RJ     SCB         SET CHARACTER BOUNDS                        FC5A441    21
          2116  5150000020 +                      SA5    EQLB        SOURCE OPERAND                              FC5A441    22
                          10255                   BX2    X5                                                      FC5A441    23
                               20262              SBIT   X2,TP.CATP                                              FC5A441    24
          2117  0332002121 +                      MI     X2,EQL60    IF SOURCE IS CONCATENATION EXPRESSION       FC5A441    25
                          0100004113 +            RJ     CDI         CHECK DATA INTERFERENCE                     FC5A441    26
          2120  0400002142 +                      EQ     EQL99       EXIT                                        FC50189    25
                                                                                                                 FC50189    26
          2121  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
          2122  63351                             SB3    X5+B1       SET CURRENT NODE                            FC5A441    30
                     66200                        SB2    B0          SET LAST NODE = LAMDA                       FC50189    32
                                                                                                                 FC50189    33
          2123  66730                    EQL65    SB7    B3          B7=CURRENT NODE,LEFT BRANCH                 FC50189    34
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    84
        POP/EMIT SIMPLE OPERATORS.                                    POP.EQL 
  
                     0630002124 +                 GE     B3,B0,EQL70 IF WE WANT LEFT BRANCH                      FC50189    35
                               67713              SB7    B1-B3       B7=CURRENT NODE,RIGHT BRANCH                FC50189    36
                                                                                                                 FC50189    37
          2124  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
          2125  0335002137 +                      MI     X5,EQL90    IF BRANCH IS CONCAT EXPRESSION              FC5A441    34
                          20512                   LX5    1+TP.CATP   SHIFT RESTORE                               FC5A441    35
          2126  0100004113 +                      RJ     CDI         CHECK DATA INTERFERENCE                     FC5A441    36
                                                                                                                 FC50189    44
          2127  0730002131 +             EQL75    LT     B3,B0,EQL80 IF CURRENT NODE, RIGHT BRANCH               FC50189    45
                          67303                   SB3    B0-B3       SET CURRENT NODE, RIGHT BRANCH              FC50189    46
          2130  0400002123 +                      EQ     EQL65       GO PROCESS RIGHT BRANCH                     FC50189    47
                                                                                                                 FC50189    48
          2131  0420002142 +             EQL80    EQ     B2,B0,EQL99 IF LAST NODE = LAMDA                        FC50189    49
                          66720                   SB7    B2          B7=LAST NODE,LEFT BRANCH                    FC50189    50
          2132  0620002133 +                      GE     B2,B0,EQL85 IF LAST NODE=LEFT BRANCH                    FC50189    51
                          67712                   SB7    B1-B2       B7=LAST NODE,RIGHT BRANCH                   FC50189    52
                                                                                                                 FC50189    53
          2133  5150000000 X             EQL85    SA5    T.PAR                                                   FC5A441    37
                          53557                   SA5    X5+B7       GET LEFT/RIGHT BRANCH                       FC5A441    38
                               67703              SB7    B0-B3                                                   FC50189    56
          2134  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
          2135  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
          2136  0400002127 +                      EQ     EQL75                                                   FC50189    64
                                                                                                                 FC50189    65
          2137  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
          2140  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
          2141  0400002123 +                      EQ     EQL65                                                   FC50189    73
                                                                                                                 FC50189    74
          2142  5150000021 +             EQL99    SA5    EQLC        RESTORE X5                                  FC5A441    45
                          5140000020 +            SA4    EQLB        RESTORE X4                                  FC5A441    46
                                                                                                                 FC5A441    47
          2143  5130000017 +             EQL99.1  SA3    EQLA        RESTORE X3                                  FC5A441    48
                          0400001572 +            EQ     POP.STD     EXIT                                        FC50189    76
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2144                           C=SBS    BSS    0           ENTRY...                                    PAR      3426
          2144  0100002212 +                      RJ     CSM         CHECK SUBSTRING MODE                        PAR      3427
          2145  56141                             SA1    B4+B1       PEEK AHEAD                                  PAR      3428
                                                  LX1    -TB.TOTP                                                PAR      3429
                     6221777737                   SB2    X1-O.RP                                                 PAR      3430
          2146  0520001533 +                      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
          2147  0100004236 +                      RJ     DOA         DETERMINE OPERAND ATTRIBUTES                PAR      3434
          2150  0316402150 +                      NZ     X6,"BLOWUP" IF EXPRESSION OR CONSTANT                   PAR      3435
                          54421                   =A4    A2-WB.W+WC.W                                            PAR      3436
                               43052              MX0    -WC.CLENL                                               PAR      3437
          2151  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
          2152  0334002154 +                      MI     X4,CSBS4    IF ADAPTABLE LENGTH                         PAR      3442
                          0100000000 X            CALL   NCS         ENTER CONSTANT                              PAR      3443
          2153  0400002156 +                      EQ     CSBS8                                                   PAR      3444
                                                                                                                 PAR      3445
          2154  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
          2155  12217                             BX2    X1+X7                                                   PAR      3450
                     12662                        BX6    X6+X2       CONSTRUCT OPERAND = VD.+(CLEN)              PAR      3451
          2156  56660                    CSBS8    SA6    B6                                                      PAR      3452
                     66661                        SB6    B6+B1       STACK DEFAULT-LAST OPERAND                  PAR      3453
                          0400001533 +            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
          2157                           A=SBS    BSS    0           ENTRY...                                    PAR      3462
          2157  0100002212 +                      RJ     CSM         CHECK SUBSTRING MODE                        PAR      3463
          2160  5146777775                        SA4    B6-2        RESTORE *FIRST*                             FC5A385     7
                          10144                   BX1    X4                                                      PAR      3464
          2161  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT FIRST                PAR      3465
          2162  5160002210 +                      SA6    ASBSA       SAVE VALUE OF FIRST                         PAR      3466
                          66320                   SB3    B2          SAVE FLAG                                   PAR      3467
                               10155              BX1    X5                                                      PAR      3468
          2163  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT LAST                 PAR      3469
          2164  56020                             SA0    B2          SAVE *LAST* FLAG                            PAR      3470
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    86
        POP/EMIT SUBSTRING.                                           A=SBS 
  
                     5160002211 +                 SA6    ASBSB       SAVE VALUE OF SECOND                        PAR      3471
          2165  5156777774                        SA5    B6-3        SUBSTRING SYMBOL/ARRAY INTER.               PAR      3472
                          0100004236 +            RJ     DOA         GET SYMBOL                                  PAR      3473
          2166  64200                             SB2    A0                                                      PAR      3474
                     5150002211 +                 SA5    ASBSB                                                   PAR      3475
                               10655              BX6    X5                                                      PAR      3476
          2167  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
          2170  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
          2171  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
          2172  0321002173 +                      PL     X1,ASBS10   IF LENGTH CONSTANT                          FC5A294    35
                          76210                   =X2    1                                                       PAR      3490
                               20222              LX2    18          X2 = POSITIVE LARGE NUMBER                  PAR      3491
                                                                                                                 PAR      3492
          2173  5130002210 +             ASBS10   SA3    ASBSA       X3 = FIRST                                  PAR      3493
                          0530002175 +            NZ     B3,ASBS20   IF FIRST CONSTANT                           PAR      3494
          2174  76310                             =X3    1                                                       PAR      3495
                                                                                                                 PAR      3496
          2175  0520002176 +             ASBS20   NZ     B2,ASBS30   IF LAST IS CONSTANT                         PAR      3497
                          10622                   BX6    X2                                                      PAR      3498
                                                                                                                 PAR      3499
          2176  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
          2177  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
          2200  0320002202 +                      PL     X0,ASBS40   IF NO ERROR                                 PAR      3508
                          6170000000 X            FATAL  E.AT16      INVALID SUBSTRING                           PAR      3509
                                                                                                                 PAR      3510
          2202  5130000331 +             ASBS40   SA3    COLOP                                                   PAR      3511
                          0100004506 +            RJ     SDM         SET UP (SMOD) AND (SOPR)                    PAR      3512
          2203  0100004031 +                      RJ     ADT         T1 = (COLON, FIRST, LAST)                   PAR      3513
                                                                                                                 PAR      3514
          2204  5140000002 X                      SA4    SCR+AS.W    (1OP) = (ARGMIS)                            PAR      3515
                          5130000332 +            SA3    SUBST                                                   PAR      3516
          2205  57561                             SA5    B6-B1       (2OP) = T1                                  PAR      3517
                     0100004506 +                 RJ     SDM         SET UP (SMOD) AND (SOPR)                    PAR      3518
          2206  0100004031 +                      RJ     ADT         T2 = (SUBST, SYMORD, T1)                    PAR      3519
          2207  0400001533 +                      EQ     POPX        EXIT..                                      PAR      3520
                                                                                                                 PAR      3521
          2210                     1     ASBSA    BSS    1           PRESERVE VALUE OF FIRST HERE                PAR      3522
          2211                     1     ASBSB    BSS    1           PRESERVE VALUE OF LAST HERE                 PAR      3523
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2212  0400402212 +             CSM      SUBR   0           ENTRY/EXIT...                               PAR      3540
          2213  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
          2214  0302002212 +                      ZR     X2,EXIT.    IF TYPE = BOOLEAN                           PAR      3548
                          0303002212 +            ZR     X3,EXIT.    IF TYPE = INTEGER                           PAR      3549
          2215  6170000000 X                      ANSI   E.AT17      ** NON-INTEGER EXPRESSION                   FC5A385    10
          2216  7160000002                        SX6    M.INT                                                   FC5A385    11
                          0100004167 +            RJ     CMR         COERCE MODE OF RESULT                       FC5A385    12
          2217  0470002221 +                      ZR     B7,CSM1     IF NO CONVERSION ERROR                      FC5A385    13
                          0100000000 X            FATAL  B7                                                      FC5A385    14
          2220  5150000000 X                      SA5    CONONE                                                  PAR      3550
                          6166000001              SB6    B6+1        CODE ASSUMES CONSTANT NOT IN ESTACK         FC5A491     6
                                                                                                                 FC5A385    15
          2221  10655                    CSM1     BX6    X5                                                      FC5A385    16
                     57661                        SA6    B6-B1                                                   PAR      3552
                          0400002212 +            EQ     EXIT.                                                   PAR      3554
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    88
        POP/EMIT DO LOOP INDICIES.                                    A=DO
  
                                        **        A=DO - PROCESS CLOSING OF *DO*.                                PAR      3557
                                                                                                                 PAR      3558
                                                                                                                 PAR      3559
          2222                           A=DO     BSS    0                                                       FC5A138     6
          2222  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
          2223  0321001472 +                      PL     X1,PAREXIT  IF SUFFICIENT DO INDEX PARAMETERS           FC5A138    11
                          6170000000 X            FATAL  E.DO00                                                  FC5A138    12
                                                                                                                 FC51277     7
          2225  5120000000 X             A=DO5    SA2    T=BLST                                                  FC51277     8
                          7262777766              SX6    X2-Z=BLST-1                                             FC5A138    14
          2226  54620                             SHRINK A2,X6                                                   FC5A138    15
                                                                                                                 FC51277     9
                     5110000000 X                 SA1    T.BLST                                                  FC51277    10
          2227  5120000000 X                      SA2    T=BLST                                                  FC51277    11
                          6222777776              SB2    X2-1                                                    FC51277    12
          2230  0302002234 +                      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
          2231  20306                             HX3    LC.DO                                                   FC51277    19
                     21352                        AX3    -LC.DOL     EXTRACT DO LOOP HEADER LABEL INDEX          FC51277    20
                          0303002234 +            ZR     X3,A=DO9    IF NOT DO LOOP                              FC51277    21
                                                                                                                 FC51277    22
          2232  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
          2233  20352                             HX3    DO.IOD                                                  FC51277    26
                     21352                        AX3    -DO.IODL    EXTRACT IMPLIED IO DO FLAG                  FC51277    27
                          0313002225 +            NZ     X3,A=DO5    IF IMPLIED IO DO THEN SHRINK                FC51277    28
                                                                                                                 FC51277    29
          2234  76600                    A=DO9    =X6    0                                                       FC51277    30
                     5160000000 X                 SA6    CDIFLG      CLEAR TO AVOID SECOND SCRATCH               FC5A138    17
          2235  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/05. 19.59.39.      PAGE    89
        POP/EMIT DO LOOP INDICIES.                                    C=DO
  
                                        *         EXIT   POPX                                                    PAR      3577
                                                                                                                 PAR      3578
          2236                           C=DO     BSS                ENTRY...                                    PAR      3579
                                                  LX6    -AC.CNTP                                                PAR      3580
          2236  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
          2237  5123000000 X                      SA2    B3+DO.DPC                                               PAR      3583
                          22601                   LX6    X1                                                      FC50842     6
                               10722              BX7    X2          PREPARE (FILL.2) FOR ERROR MESSAGE          PAR      3584
          2240  5160000004 +                      SA6    CURST                                                   FC50842     7
                          5170000000 X            SA7    FILL.2                                                  PAR      3585
          2241  0233002242 +                      JP     B3+DOXA     ENTER INDEX PROCESSOR                       PAR      3586
                                                                                                                 PAR      3587
          2242                           DOXA     BSS                                                            PAR      3588
      L      0                                    LOC    0                                                       PAR      3589
      L      0  0400002260 +                      EQ     DOC         CONTROL INDEX                               PAR      3590
      L      1  0400002250 +                      EQ     DOS         START (INITIAL) INDEX                       PAR      3591
      L      2  0400002254 +                      EQ     DOL         LIMIT INDEX                                 PAR      3592
      L      3  0400002256 +                      EQ     DOI         INCREMENT INDEX                             PAR      3593
          2246                                    LOC    *O                                                      PAR      3594
          2246                           DO.ERR1  BSS    0           TOO MANY INDICES                            PAR      3595
                                                                                                                 PAR      3596
                                        *         RETURN FOR ALL *DO* DEFINITION ERRORS.                         PAR      3597
                                                                                                                 PAR      3598
          2246  6170000000 X             DO.ERR1  FATAL  E.DO00                                                  PAR      3599
          2247  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
          2250  7100000013               DOS      =X0    PR.SLP                                                  PAR      3610
                          7130000042              =X3    O.COMMA                                                 PAR      3611
          2251  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
          2252  0100002317 +                      RJ     CDP         CONVERT DO PARAMETER                        PAR      3616
          2253  56620                             =A6    B2+DOSI.W   SET (DO-START INDEX) IN DO TABLE            PAR      3620
                     0400001533 +                 EQ     POPX        EXIT..                                      PAR      3622
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2254  0100002317 +             DOL      RJ     CDP         CONVERT DO PARAMETER                        PAR      3629
          2255  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
          2256  0100002317 +             DOI      RJ     CDP         CONVERT DO PARAMETER                        PAR      3644
          2257  5162000002                        =A6    B2+DOII.W   SET (INCREMENT) IN DO TABLE                 PAR      3645
                          0400001533 +            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
          2260  10144                    DOC      BX1    X4                                                      PAR      3653
                     22504                        LX5    X4          REMEMBER (X5) = CONTROL-INDEX OPERAND       PAR      3654
                          0100004236 +            RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      3655
          2261  6170000000 X                      SB7    E.DO15      ** CONTROL INDEX CANNOT BE CONST/EXPR       PAR      3656
                          0316002300 +            NZ     X6,DOC4     IF OPERAND NOT ADDRESSABLE                  PAR      3657
          2262  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
          2263  11673                             BX6    X7*X3       (FILL.) = NAME OF SYMBOL                    PAR      3662
                     5160000000 X                 SA6    FILL.                                                   PAR      3663
          2264  0321002300 +                      PL     X1,DOC4     IF OPERAND SYMBOL IS NOT *WB.VAR*           PAR      3664
                          20167                   SBIT   X1,WB.ARYP/WB.VARP                                      FC5A253     4
          2265  0331002300 +                      MI     X1,DOC4     IF SYMBOL IS ARRAY                          FC5A253     5
                          7110000200              CLAS=  X1,WB,(DEF)                                             FC50956     8
          2266  43701                             CLAS=  X7,WB,(1REF)                                            FC50221     5
                          15727                   BX7    -X7*X2      CLEAR STRAY FLAG                            FC50221     6
                               54720              SA7    A2                                                      PAR      3670
          2267  5130000000 X                      SA3    DATFLG                                                  PAR      3671
                          7233777772              SX3    X3-PM=DATA                                              PAR      3672
          2270  0303002274 +                      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/05. 19.59.39.      PAGE    91
        POP/EMIT DO LOOP INDICIES.                                    DOC 
  
                               54720              SA7    A2                                                      FC50956    10
          2271  5110000000 X                      SA1    T.BLST                                                  FC5A211    76
                          5120000000 X            SA2    T=BLST                                                  FC5A211    77
          2272  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
          2273  6130777776                        SB3    -1          INDICATE DO CONTROL INDEX                   FC50718    11
                          0100000000 X            CALL   DDR         DIAGNOSE DO REDEFINITION                    FC5A211    81
                                                                                                                 PAR      3675
          2274  5140004742 +             DOC2     SA4    ="M.OKDOC"                                              FC5A254     5
                          63200                   SB2    X0                                                      PAR      3677
                               22424              LX4    B2                                                      PAR      3678
          2275  0334002301 +                      MI     X4,DOC7     IF THIS TYPE PERMITTED                      PAR      3679
                          5230000000 X            SA3    X0+MOD.DPC                                              PAR      3680
          2276  10633                             BX6    X3                                                      PAR      3681
                     6170000000 X                 SB7    E.DO15      ** DO INDEX CANNOT BE <TYPE>                PAR      3682
          2277  5160000000 X                      SA6    FILL.3                                                  PAR      3683
          2300  0100000000 X             DOC4     FATAL  B7                                                      PAR      3684
                                                                                                                 PAR      3685
                                        *         DETERMINE CONTROL INDEX MODE.  SELECT CONCLUSION TURPLE.       PAR      3686
                                                                                                                 PAR      3687
          2301  5130000311 +             DOC7     SA3    DO.END                                                  PAR      3688
                          10455                   BX4    X5          (1OP) = (2OP)    /* INHIBIT MODE CONVERSION PAR      3689
          2302  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
          2303  0100004506 +                      RJ     SDM         SELECT DOMINANT MODE                        PAR      3693
          2304  5110000002 +                      SA1    SMOD                                                    PAR      3694
                          5120000000 X            SA2    T=BLST                                                  PAR      3695
          2305  73610                             SX6    X1                                                      PAR      3696
                     5160000000 X                 SA6    DOMODE                                                  PAR      3697
                               43022              MX0    SP.SKELL                                                FC50104   133
          2306  6272777775                        SB7    X2-Z=BLST-1+DP.W                                        PAR      3699
                          5110000000 X            SA1    T.BLST                                                  PAR      3700
                                                  HX3    SP.SKEL                                                 FC50104   134
          2307  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
          2310  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
          2311  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
          2312  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
          2313  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
          2314  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/05. 19.59.39.      PAGE    92
        POP/EMIT DO LOOP INDICIES.                                    DOC 
  
          2315  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
          2316  54710                             SA7    A1          UPDATE *WB*                                 PAR      3729
                     0400002236 +                 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
          2317  0400402317 +             CDP      SUBR   0           ENTRY/EXIT...                               PAR      3743
          2320  10155                             BX1    X5                                                      PAR      3744
                     0100000000 X                 CALL   LCH         LOAD/CHECK CONSTANT                         PAR      3745
          2321  5130004743 +                      SA3    ="M.OKDO"                                               PAR      3746
                          5110000000 X            SA1    DOMODE                                                  PAR      3747
          2322  63200                             SB2    X0                                                      PAR      3748
                     22323                        LX3    B2                                                      PAR      3749
                          0333002327 +            MI     X3,CDP2     IF THIS TYPE PERMITTED                      PAR      3750
          2323  5220000000 X                      SA2    X0+MOD.DPC                                              PAR      3751
                          10722                   BX7    X2                                                      PAR      3752
          2324  5170000000 X                      SA7    FILL.3                                                  PAR      3753
                          6170000000 X            FATAL  E.DO16      ** DO <INDEX> PARAMETER CANNOT BE <TYPE>    PAR      3754
          2326  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
          2327  10611                    CDP2     BX6    X1                                                      PAR      3760
                     0100004167 +                 RJ     CMR         COERCE MODE OF PARAMETER                    PAR      3761
                                                                                                                 PAR      3762
          2330  5110000000 X                      SA1    T.BLST                                                  PAR      3763
                          5120000000 X            SA2    T=BLST                                                  PAR      3764
          2331  10655                             BX6    X5          RETURN (X6) = CONVERTED OPERAND             PAR      3765
                     36312                        IX3    X1+X2                                                   PAR      3766
                          67661                   SB6    B6-B1       DECREMENT ESTACK TOP                        PAR      3767
          2332  6223777766                        SB2    X3-Z=BLST-1                                             PAR      3768
                          0400002317 +            EQ     EXIT.                                                   PAR      3769
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2333  0400402333 +             DTC      SUBR   =           ...ENTRY/EXIT...                            PAR      3783
          2334  5110000000 X                      SA1    T.BLST                                                  PAR      3784
                          5120000000 X            SA2    T=BLST                                                  PAR      3785
          2335  36112                             IX1    X1+X2                                                   PAR      3786
                     6221777766                   SB2    X1-Z=BLST-1                                             PAR      3787
                               56520              =A5    B2+DOSI.W          (2OP) = M1                           FC50772    11
          2336  54451                             =A4    A5-DOSI.W+DOLI.W   (1OP) = M2                           FC50772    12
                     13645                        BX6    X4-X5                                                   FC50772    13
                          5160002362 +            SA6    DTCA        SAVE FOR LATER REFERENCE                    FC5A122     4
          2337  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
          2340  6166000004                        SB6    B6+4        TOP = TOP + 4                               PAR      3795
                          7110000015              SX1    O.MIN                                                   PAR      3796
          2341  0100004023 +                      RJ     ACT         T1 = (MINUS, M2, M1)                        FC50772    17
                                                                                                                 PAR      3798
          2342  57561                             SA5    B6-B1                                                   PAR      3799
                     7110000014                   SX1    O.PL                                                    FC50772    18
                               55451              SA4    A5-B1                                                   PAR      3801
          2343  0100004023 +                      RJ     ACT         T2 = (PLUS, T1, M3)                         FC50772    19
                                                                                                                 PAR      3803
          2344  5120000000 X                      SA2    CONONE                                                  FC5A132    76
                          57461                   SA4    B6-B1                                                   PAR      3804
                               55541              SA5    A4-B1                                                   PAR      3805
          2345  13025                             BX0    X2-X5                                                   FC5A132    77
                     10155                        BX1    X5                                                      PAR      3806
                          0300002352 +            ZR     X0,DTC15    IF M3 = 1                                   FC5A132    78
          2346  0100000000 X                      CALL   LCT         LOAD CONSTANT TEST                          PAR      3807
          2347  0420002351 +                      ZR     B2,DTC10    IF INCR. NOT CONSTANT                       PAR      3808
                          0316002351 +            NZ     X6,DTC10    IF INCR. NZ                                 PAR      3809
          2350  6170000000 X                      FATAL  E.DO02      INCR. MUST NOT BE ZERO                      PAR      3810
                                                                                                                 PAR      3811
          2351  7110000017               DTC10    SX1    O.DIV                                                   PAR      3812
                          0100004023 +            RJ     ACT         T3 = (DIV, T2, M3)                          PAR      3813
                                                                                                                 PAR      3814
          2352  5156777776               DTC15    SA5    B6-1        FETCH T3                                    FC5A132    79
                          5120000000 X            SA2    DATFLG                                                  PAR      3816
          2353  0302002357 +                      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
          2354  15020                             BX0    -X0*X2                                                  PAR      3821
                     6220777775                   SB2    X0-M.INT                                                PAR      3822
          2355  0300002357 +                      ZR     X0,DTC20    IF TC IS BOOLEAN                            PAR      3823
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    94
        POP/EMIT DO LOOP INDICIES.                                    DTC 
  
                                   0              ERRNZ  M.BOOL                                                  PAR      3824
                          0420002357 +            ZR     B2,DTC20    IF TC IS INTEGER                            PAR      3825
          2356  6170000000 X                      FATAL  E.DO17      MUST BE INTEGER IN DATA                     PAR      3826
                                                                                                                 PAR      3827
          2357  76611                    DTC20    =X6    M.INT                                                   PAR      3828
                     67661                        SB6    B6-B1       TOP = TOP - 1     /* RESTORE (B6)           PAR      3829
                          0100004167 +            RJ     CMR         COERCE MODE:  TC = INT (T3)                 PAR      3830
          2360  5110002362 +                      SA1    DTCA                                                    FC5A122     5
                          0311002333 +            NZ     X1,EXIT.    IF M1 .NE. M2                               FC5A122     6
          2361  5150000000 X                      SA5    CONONE                                                  FC5A122     7
                          0400002333 +            EQ     EXIT.                                                   FC5A122     8
                                                                                                                 FC5A122     9
          2362                     1     DTCA     BSS    1                                                       FC5A122    10
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2363                           POP.EXP  BSS    0                                                       PAR      3868
          2363  5110000000 X                      SA1    =XDATFLG                                                PAR      3869
                          5130000345 +            SA3    EXPOP                                                   PAR      3870
          2364  0311001572 +                      NZ     X1,POP.STD  IF COMPILING DATA STATEMENT                 PAR      3871
                                                                                                                 PAR      3872
          2365  43071                    EXP10    MX0    -TP.MODEL                                               PAR      3873
                     15640                        BX6    -X0*X4      MODE OF BASE                                PAR      3874
                          5216002444 +            SA1    X6+OM=EXP                                               PAR      3875
                                   0              ERRNZ  M.BOOL                                                  PAR      3876
          2366  0316002367 +                      NZ     X6,EXP11    IF MODE OF BASE NOT BOOLEAN                 PAR      3877
                          76611                   =X6    M.INT                                                   PAR      3878
                                                                                                                 PAR      3879
          2367  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
          2370  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
          2371  5236002453 +                      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/05. 19.59.39.      PAGE    96
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
          2372  0303002455 +                      ZR     X3,EXP90    IF ILLEGAL MODE COMBO                       PAR      3891
                          0100004227 +            RJ     DDC         DIAGNOSE DOUBLE AND COMPLEX EXPRESSION      FC50014    28
                                                                                                                 PAR      3892
          2373  5170002637 +                      SA7    /CF/IE      SAVE INTRINSIC TABLE ENTRY                  PAR      3893
                          74630                   SX6    A3                                                      PAR      3894
                               10155              BX1    X5                                                      PAR      3895
          2374  5160000017 +                      SA6    EXPA        REMEMBER (EXPA) = ADDRESS OF CONTROL WORD   PAR      3896
                          0100000000 X            CALL   LCT         CHECK IF POWER IS CONSTANT                  PAR      3897
          2375  5160000022 +                      SA6    TER2        SAVE POWER                                  PAR      3898
                          0420002435 +            ZR     B2,EXP60    IF POWER NOT CONSTANT                       PAR      3899
          2376  6270777774                        SB7    X0-M.REAL                                               PAR      3900
                          0570002413 +            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
          2377  5110000000 +                      SA1    PARNOW                                                  PAR      3921
                          6271777770              SB7    X1-PM=PARM                                              PAR      3922
          2400  0570002403 +                      NZ     B7,EXP20    IF NOT 'PARAMETER' PROCESSING               FC5A156    18
                          6170000000 X            FATAL  E.PX7       REAL POWER ILLEGAL ON 'PARAMETER'           FC5A156    19
          2402  5150000000 X                      SA5    CONONE                                                  FC5A156    20
                          0400000426 +            EQ     PARX                                                    FC5A156    21
                                                                                                                 FC5A156    22
          2403  10266                    EXP20    BX2    X6                                                      FC5A156    23
                     0100000000 X                 CALL   LIR         LOAD INTEGRAL REAL                          PAR      3925
          2404  0316002432 +                      NZ     X6,EXP40    IF POWER NOT INTEGRAL VALUE                 PAR      3926
                          10577                   BX5    X7                                                      PAR      3927
                               57761              SA7    B6-B1       POWER := IFIX (POWER)                       PAR      3928
          2405  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
          2406  5160000022 +                      SA6    TER2                                                    PAR      3934
                          7160000003              =X6    M.REAL                                                  PAR      3935
          2407  37336                             IX3    X3-X6                                                   PAR      3936
                     0323002365 +                 PL     X3,EXP10    IF MODE.BASE .GE. REAL                      PAR      3937
                               10544              BX5    X4                                                      PAR      3938
          2410  0100004167 +                      CALL   CMR         FLOAT (BASE)                                PAR      3939
                                                  IFEQ   TEST,ON,1                                               PAR      3940
          2411  0570402411 +                      NZ     B7,"BLOWUP" IF BASE MODE NFG                            PAR      3941
                          10755                   BX7    X5                                                      PAR      3942
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE    97
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
                               57561              SA5    B6-B1                                                   PAR      3943
          2412  22407                             LX4    X7                                                      PAR      3944
                     55751                        SA7    A5-B1                                                   PAR      3945
                          0400002365 +            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
          2413  66771                    EXP30    =B7    B7+M.REAL-M.INT                                         PAR      3956
                     0570002432 +                 NZ     B7,EXP40    IF POWER NOT MODE INTEGER                   PAR      3957
          2414  0316002427 +                      NZ     X6,EXP35    IF POWER VALUE NOT ZERO                     PAR      3958
                          10144                   BX1    X4                                                      PAR      3959
          2415  0100000000 X                      CALL   LCT         LOAD CONSTANT TEST (BASE)                   PAR      3960
          2416  6170000000 X                      SB7    =XE.XP7     ** VARIABLE TO 0 RESULTS = 0                PAR      3961
                          0420002422 +            ZR     B2,EXP32    IF BASE NOT CONSTANT                        PAR      3962
          2417  0316002423 +                      NZ     X6,EXP34    IF BASE NOT ZERO                            PAR      3963
                          6170000000 X            TRIV   E.XP3       ** 0 TO 0 IS INDEFINITE                     PAR      3964
          2421  0400002435 +                      EQ     EXP60                                                   FC5A243    23
                                                                                                                 PAR      3966
          2422  0100000000 X             EXP32    TRIV   B7                                                      PAR      3967
          2423  5120000002 +             EXP34    SA2    SMOD                                                    PAR      3968
                          5150000000 X            SA5    CONONE                                                  PAR      3969
          2424  10622                             BX6    X2                                                      PAR      3970
                     0100004167 +                 CALL   CMR         CONVERT MODE OF (CONSTANT ONE)              PAR      3971
          2425  67661                             =B6    B6-1                                                    PAR      3972
                     10655                        BX6    X5                                                      PAR      3973
                          57661                   SA6    B6-B1                                                   PAR      3974
          2426  0400001533 +                      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
          2427  43273                    EXP35    MX2    -1                                                      PAR      3980
                     36062                        IX0    X6+X2                                                   PAR      3981
                          0310002432 +            NZ     X0,EXP40    IF POWER NE 1                               PAR      3982
          2430  7130000010                        CLAS=  X3,TP,(EXPR)                                            PAR      3983
                          67661                   =B6    B6-1                                                    PAR      3984
                               12643              BX6    X4+X3                                                   PAR      3985
          2431  57661                             =A6    B6-1        RESTORE BASE (IN CASE CHANGED)              PAR      3986
                     0400001533 +                 EQ     POPX        EXIT..                                      PAR      3987
                                                                                                                 PAR      3988
                                        *         GENERAL TRANSFORMS NOW EXHAUSTED.  GOTO SPECIFIC PROCESSOR,    PAR      3989
                                        *         WHEN ONE EXISTS.                                               PAR      3990
                                                                                                                 PAR      3991
          2432  5110000017 +             EXP40    SA1    EXPA                                                    PAR      3992
                          53310                   SA3    X1                                                      PAR      3993
                               63310              SB3    X1          (B3) = ADDRESS OF CONTROL WORD              PAR      3994
          2433  20352                             HX3    IT.PAR                                                  PAR      3995
                     0323002435 +                 PL     X3,EXP60    IF NO SPECIAL PROCESSING                    PAR      3996
          2434  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/05. 19.59.39.      PAGE    98
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
                                                                                                                 PAR      4000
                                        *         NO REDUCTION POSSIBLE.  ISSUE TURPLES LIKE FUNCTION CALL.      PAR      4001
                                                                                                                 PAR      4002
          2435  5110002637 +             EXP60    SA1    /CF/IE                                                  PAR      4003
                          43071                   MX0    -IT.ARGML                                               PAR      4004
                               20171              LX1    -IT.ARGMP                                               PAR      4005
          2436  15610                             BX6    -X0*X1      (SMOD) = MODE OF RESULT                     PAR      4006
                     5160000002 +                 SA6    SMOD                                                    PAR      4007
                               57561              SA5    B6-B1                                                   PAR      4008
          2437  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
          2440  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
          2441  5120000027 +                      SA2    FUNCALL+2                                               PAR      4017
                          43600                   MX6    0           FAKE (WB.JPF) = 0                           PAR      4018
          2442  5170002635 +                      SA7    /CF/AC                                                  PAR      4019
                          5160002640 +            SA6    /CF/IT                                                  PAR      4020
          2443  0400002711 +                      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
          2444                           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   2453                                    LOC    *O                                                      PAR      4044
                                                  PURGMAC EMODE                                                  PAR      4045
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2453                           EXP.BASE BSS    0           FWA OF CONTROL WORDS                        PAR      4061
                                                                                                                 PAR      4062
                                                                                                                 PAR      4063
                                        *         ILLEGAL COMBINATIONS.                                          PAR      4064
                                                                                                                 PAR      4065
          2453  00000000000000000000 X   TO.LE    CON    E.XP1       LOGICAL BASE OR POWER                       PAR      4066
          2454  00000000000000000000 X   TO.HE    CON    E.XP6       CHARACTER BASE OR POWER                     PAR      4067
                                                                                                                 PAR      4072
          2455  63770                    EXP90    FATAL  X7                                                      PAR      4073
          2456  67661                             SB6    B6-B1       SET RESULT = BASE                           PAR      4074
                     0400001533 +                 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/05. 19.59.39.      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
          2457  11241730000003100023     TO.IR    EXPEX  ITOX,INT,REAL                                           PAR      4101
          2460  11241704000003100024     TO.ID    EXPEX  ITOD,INT,DBL                                            PAR      4102
          2461  11241732000003100025     TO.IZ    EXPEX  ITOZ,INT,CPLX                                           PAR      4103
          2462  30241731000003100033     TO.RR    EXPEX  XTOY,REAL,REAL                                          PAR      4104
          2463  30241704000003100034     TO.RD    EXPEX  XTOD,REAL,DBL                                           PAR      4105
          2464  30241732000003100035     TO.RZ    EXPEX  XTOZ,REAL,CPLX                                          PAR      4106
          2465  04241730000003100044     TO.DR    EXPEX  DTOX,DBL,DBL                                            PAR      4107
          2466  04241704000003100044     TO.DD    EXPEX  DTOD,DBL,DBL                                            PAR      4108
          2467  04241732000003100045     TO.DZ    EXPEX  DTOZ,DBL,CPLX                                           PAR      4109
          2470  32241730000003100055     TO.ZR    EXPEX  ZTOX,CPLX,CPLX                                          FC5A310     5
          2471  32241704000003100055     TO.ZD    EXPEX  ZTOD,CPLX,CPLX                                          FC5A310     6
          2472  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
          2473  11241712000003500022     TO.II    EXPEX  ITOJ,INT,INT,1                                          PAR      4116
          2474  0322002476 +                      PL     X2,TO.II5   IF POWER IS POSITIVE                        PAR      4117
                          6170000000 X            TRIV   E.XP4       (INTEGER TO NEGATIVE CONST, RESULT ZERO)    PAR      4118
          2476  6170000020               TO.II5   SB7    TOIL.I                                                  PAR      4119
                          7150000000 X            SX5    V=MUL.I                                                 PAR      4120
          2477  0400002517 +                      EQ     EXM                                                     PAR      4121
                                                                                                                 PAR      4122
                                                                                                                 PAR      4123
          2500  30241711000003500033     TO.RI    EXPEX  XTOI,REAL,REAL,1                                        PAR      4124
          2501  7150000000 X                      SX5    V=MUL.R                                                 PAR      4125
                          6170000020              SB7    TOIL.R                                                  PAR      4126
          2502  0400002517 +                      EQ     EXM                                                     PAR      4127
                                                                                                                 PAR      4128
                                                                                                                 PAR      4129
          2503  04241711000003500044     TO.DI    EXPEX  DTOI,DBL,DBL,1                                          PAR      4130
          2504  6170000002                        SB7    TOIL.D                                                  PAR      4131
                          7150000000 X            SX5    V=MUL.D                                                 PAR      4132
          2505  0400002517 +                      EQ     EXM                                                     PAR      4133
                                                                                                                 PAR      4134
                                                                                                                 PAR      4135
          2506  32241711000003500055     TO.ZI    EXPEX  ZTOI,CPLX,CPLX,1                                        PAR      4136
          2507  7150000000 X                      SX5    V=MUL.C                                                 PAR      4137
                          6170000004              SB7    TOIL.Z                                                  PAR      4138
          2510  0400002517 +                      EQ     EXM                                                     PAR      4139
                                                                                                                 PAR      4140
                                                  PURGMAC EXPEX                                                  PAR      4141
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2511  0400402511 +             EXD      SUBR   =           ENTRY/EXIT...                               PAR      4151
          2512  10711                             BX7    X1                                                      PAR      4152
                     5170000022 +                 SA7    TER2                                                    PAR      4153
          2513  5150000304 +                      SA5    INTEG+/OP/MULT                                          PAR      4154
                          76711                   =X7    M.INT                                                   PAR      4155
          2514  5170000002 +                      SA7    SMOD                                                    PAR      4156
                          0100000000 X            CALL   NCS         ENTER CONSTANT FOR BASE OPERAND             PAR      4157
          2515  5160002574 +                      SA6    EXOPDS                                                  PAR      4158
                          0100002603 +            RJ     EXV         EVALUATE EXPONENTIAL                        PAR      4159
          2516  0306402516 +                      ZR     X6,"BLOWUP" IF SUBSUMPTION FAILED                       PAR      4160
                          0400002511 +            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
          2517                           EXM      BSS                                                            PAR      4175
          2517  5110000314 +                      SA1    IN.EXP      OPERATOR SKELETON                           PAR      4176
                          20552                   LX5    SP.SKELP                                                FC50104   136
                               12715              BX7    X1+X5       (SOPR) = COMPLETE MULTIPLY SKELETON         PAR      4178
          2520  5170000003 +                      SA7    SOPR                                                    PAR      4179
                          10644                   BX6    X4                                                      PAR      4180
                               22104              LX1    X4                                                      PAR      4181
          2521  5160002574 +                      SA6    EXOPDS      EXOPDS(0) = BASE OPERAND                    PAR      4182
                          76471                   SX4    B7+B1                                                   PAR      4183
          2522  0100000000 X                      CALL   LCT         LOAD CONSTANT TEST (BASE)                   PAR      4184
          2523  0420002527 +                      ZR     B2,EXM2     IF BASE NOT CONSTANT                        PAR      4185
                          54761                   SA7    A6+B1                                                   PAR      4186
          2524  0100002603 +                      RJ     EXV         EVALUATE CONSTANT EXPONENTIAL               PAR      4187
          2525  0306002435 +                      ZR     X6,EXP60    IF NOT REDUCED                              PAR      4188
                          67661                   SB6    B6-B1                                                   PAR      4189
                               57661              SA6    B6-B1                                                   PAR      4190
          2526  0400001533 +                      EQ     POPX        EXIT..                                      PAR      4191
                                                                                                                 PAR      4192
          2527  5120000022 +             EXM2     SA2    TER2                                                    PAR      4193
                          37124                   IX1    X2-X4                                                   PAR      4194
          2530  0321002435 +                      PL     X1,EXP60    IF POWER .GE. (LIM+1)                       PAR      4195
                          0332002435 +            MI     X2,EXP60    IF POWER IS NEGATIVE, CAN-T BE EXPANDED     PAR      4196
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   102
        POP/EMIT EXPONENTIATION.                                      EXM 
  
                                         .T       IFEQ   TEST,ON                                                 PAR      4197
          2531  7272777775                        SX7    X2-2                                                    PAR      4198
                          0337402531 +            MI     X7,"BLOWUP" IF POWER = 0, OR = 1                        PAR      4199
                                         .T       ENDIF                                                          PAR      4200
                                                                                                                 PAR      4201
          2532  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
          2533  5212002553 +                      SA1    EXMB-2+X2   ECW = EXMB(POWER)                           PAR      4205
                                                                                                                 PAR      4206
          2534  43071                    EXM4     MX0    -3                                                      PAR      4207
                     20103                        LX1    3           ECW = SHIFT (ECW , 3)                       PAR      4208
                          15610                   BX6    -X0*X1      J = FIELDN[ECW]                             PAR      4209
          2535  0306001533 +                      ZR     X6,POPX     IF J EQ 0                                   PAR      4210
                          6237002574 +            SB3    X7+EXOPDS                                               PAR      4211
          2536  10711                             BX7    X1                                                      PAR      4212
                     66661                        SB6    B6+B1       DONT REDUCE STACK SIZE                      PAR      4213
                          5170000020 +            SA7    EXPB                                                    PAR      4214
          2537  5236002545 +                      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
          2540  53533                             SA5    X3+B3       OP2 = EXOPDS(N-IND2(OCW))                   PAR      4218
                     5130000003 +                 SA3    SOPR                                                    PAR      4219
          2541  0100004031 +                      RJ     ADT         OUTPUT MULTIPLY                             PAR      4220
          2542  57161                             SA1    B6-B1                                                   PAR      4221
                     5120000017 +                 SA2    EXPA                                                    PAR      4222
                               10611              BX6    X1                                                      PAR      4223
          2543  5262002574 +                      SA6    EXOPDS+X2   EXOPDS(N) = TOP OF ESTACK                   PAR      4224
                          73721                   =X7    X2+1        N = N + 1                                   PAR      4225
          2544  5110000020 +                      SA1    EXPB                                                    PAR      4226
                          54720                   SA7    A2                                                      PAR      4227
          2545  0400002534 +                      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
          2546                           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   2555                                    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/05. 19.59.39.      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
          2555                           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
          2574                                    LOC    *O                                                      PAR      4286
                                                                                                                 PAR      4287
          2574                     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
          2602  6170000000 X             EXV9     TRIV   E.XP5       ** CONSTANT TO CONSTANT WON'T EVALUATE      PAR      4306
                                                                                                                 PAR      4307
          2603  0400402603 +             EXV      SUBR   0           ENTRY/EXIT...                               PAR      4308
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   104
        POP/EMIT EXPONENTIATION.                                      EXV 
  
          2604  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
          2605  5170000020 +                      SA7    EXPB                                                    PAR      4314
                          5130000002 +            SA3    SMOD                                                    PAR      4315
          2606  5150000000 X                      SA5    CONONE                                                  PAR      4316
                          10633                   BX6    X3                                                      PAR      4317
          2607  0100004167 +                      CALL   CMR         (EXVG) = OPERAND FOR CONSTANT ONE           PAR      4318
                                         .T       IFEQ   TEST,ON,1                                               PAR      4319
          2610  0570402610 +                      NZ     B7,"BLOWUP" IF CAN'T CONVERT ONE                        PAR      4320
                          5120000022 +            SA2    TER2                                                    PAR      4321
          2611  10655                             BX6    X5                                                      PAR      4322
                     5160002575 +                 SA6    EXVG                                                    PAR      4323
                               54661              SA6    A6+B1       (EXVG+1) ALSO = ONE                         PAR      4324
          2612  10122                             BX1    X2                                                      PAR      4325
                     21273                        AX2    -1                                                      PAR      4326
                          13721                   BX7    X2-X1       SCALE = ABS(POWER)                          PAR      4327
          2613  5170000017 +                      SA7    EXPA                                                    FC5A158A  420
                                                                                                                 PAR      4328
          2614  43073                    EXV4     MX0    -1                                                      PAR      4329
                     15270                        BX2    -X0*X7      (X2) = ODD(SCALE)                           PAR      4330
                          0302002620 +            ZR     X2,EXV6     IF SCALE NOT ODD                            PAR      4332
          2615  5140002574 +                      SA4    EXVF        FAC                                         PAR      4333
                          5130000020 +            SA3    EXPB                                                    PAR      4334
          2616  54541                             SA5    A4+B1       G                                           PAR      4335
                     10733                        BX7    X3                                                      PAR      4336
                          0100000000 X            CALL   CCR         G = G * FAC                                 PAR      4337
          2617  0306002602 +                      ZR     X6,EXV9     IF BAD MULTIPLY                             PAR      4338
                          5160002575 +            SA6    EXVG                                                    PAR      4339
          2620  5140002574 +             EXV6     SA4    EXVF                                                    PAR      4340
                          5130000020 +            SA3    EXPB                                                    PAR      4341
          2621  5150000017 +                      SA5    EXPA                                                    FC5A158A  421
                          23715                   AX7    X5,B1       SCALE = SCALE/2                             FC5A158A  422
                               54750              SA7    A5                                                      FC5A158A  423
          2622  0307002627 +                      ZR     X7,EXV7     IF SCALE = 0                                FC5A158A  424
                          10544                   BX5    X4                                                      PAR      4342
                               22703              LX7    X3                                                      PAR      4343
          2623  0100000000 X                      CALL   CCR         FAC = FAC * FAC                             PAR      4344
          2624  0306002602 +                      ZR     X6,EXV9     IF BAD MULTIPLY                             PAR      4345
                          5160002574 +            SA6    EXVF                                                    PAR      4346
          2625  5150000017 +                      SA5    EXPA                                                    FC5A158A  425
                          10755                   BX7    X5                                                      FC5A158A  426
          2626  0400002614 +                      EQ     EXV4                                                    FC5A158A  427
                                                                                                                 PAR      4350
                                        *         IF POWER WAS NEGATIVE, RESULT = RECIPROCAL.                    PAR      4351
                                                                                                                 PAR      4352
          2627  5110000022 +             EXV7     SA1    TER2                                                    FC5A158A  428
                          5150002575 +            SA5    EXVG                                                    PAR      4354
          2630  0321002634 +                      PL     X1,EXV8     IF POWER WAS POSITIVE                       PAR      4355
                          54451                   SA4    A5+B1       (1OP) = CONSTANT ONE                        PAR      4356
          2631  7110000017                        SX1    O.DIV                                                   PAR      4357
                          66661                   SB6    B6+B1       COMPENSATE FOR DECREMENT IN ACT             PAR      4358
          2632  0100004023 +                      RJ     ACT         ADD CONVERTED TURPLE                        PAR      4359
          2633  57561                             SA5    B6-B1                                                   PAR      4360
                                                                                                                 PAR      4361
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   105
        POP/EMIT EXPONENTIATION.                                      EXV 
  
          2634  10655                    EXV8     BX6    X5          RETURN (X6) = RESULT                        PAR      4362
                     0400002603 +                 EQ     EXIT.                                                   PAR      4363
                                                                                                                 PAR      4364
                                2574 +   EXVF     EQU    EXOPDS      HOLDS CURRENT FACTOR = BASE ** (2**N)       PAR      4365
                                2575 +   EXVG     EQU    EXVF+1      HOLDS PARTIAL RESULT                        PAR      4366
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2635                     1     AC       BSS    1           ACTUAL ARGUMENT COUNT                       PAR      4372
          2636                     1     APL      BSS    1           APLIST OPERATOR                             PAR      4373
          2637                     1     IE       BSS    1           INTRINSIC TABLE ENTRY                       PAR      4374
          2640                     1     IT       BSS    1           INTRINSIC TABLE INDEX                       PAR      4375
          2641                     1     MA       BSS    1           .NZ. IF POST-COERCION NEEDED                PAR      4376
          2642                     1     RJ       BSS    1           FUNCTION CALL OPERATOR                      PAR      4377
          2643                     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
          2644                           C=CALL   BSS    0                                                       PAR      4387
          2644  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4388
          2645  0100003207 +                      RJ     SSA         STACK SUBROUTINE ARGUMENT                   PAR      4389
          2646  0400001533 +                      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/05. 19.59.39.      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
          2647                           A=CALL   BSS    0                                                       PAR      4423
          2647  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4424
          2650  0100003207 +                      RJ     SSA         STACK SUBROUTINE ARGUMENT                   PAR      4425
          2651  0100003175 +                      RJ     IAC         INCREMENT ARGUMENT COUNT                    PAR      4426
          2652  5140000000 X                      SA4    CALLTAG                                                 PAR      4427
                          0100003300 +            RJ     VEL         VALIDATE ARGUMENT LIST                      PAR      4428
          2653  5120000000 X                      SA2    T=SLARG                                                 PAR      4429
                          0302002655 +            ZR     X2,ACALL3   IF NO STATEMENT LABEL PARAMETERS            PAR      4430
          2654  0100000000 X                      CALL   CRL         PROCESS CALL RETURN LABELS                  PAR      4431
                                                                                                                 PAR      4432
          2655  56140                    ACALL3   SA1    B4                                                      PAR      4433
                     0301002660 +                 ZR     X1,ACALL5   IF *EOS*                                    PAR      4434
          2656  6170000000 X                      FATAL  E.SU10                                                  FC50966     6
                                   0              ERRNZ  O.EOS                                                   PAR      4435
          2657  76600                             =X6    O.EOS                                                   FC50634     6
                     56640                        SA6    B4          RESET CURRENT T.TB TO *EOS*                 FC50634     7
                                                                                                                 PAR      4437
          2660  5130002636 +             ACALL5   SA3    /CF/APL                                                 PAR      4438
                          0100003046 +            RJ     EAL         EMIT AP LIST                                PAR      4439
          2661  0400001533 +                      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
          2662                           C=FUN    BSS    0           ENTRY...                                    PAR      4450
          2662  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4451
          2663  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
          2664  0311002667 +                      NZ     X1,CFUN5    IF NOT STATEMENT LABEL PARAMETER            PAR      4458
                          6170000000 X            FATAL  E.SU11                                                  PAR      4459
          2666  0400001533 +                      EQ     POPX                                                    PAR      4460
                                                                                                                 PAR      4461
          2667  0100003207 +             CFUN5    RJ     SSA         STACK SUBPROGRAM ARGUMENT                   PAR      4462
          2670  0400001533 +                      EQ     POPX        EXIT..                                      PAR      4463
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2671                           A=FUN    BSS    0                                                       PAR      4475
          2671  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4476
          2672  5120000320 +                      SA2    FUNOP                                                   PAR      4477
                          10622                   BX6    X2          SET RJ TYPE = USER FUNCTION                 PAR      4478
          2673  5160002642 +                      SA6    /CF/RJ                                                  PAR      4479
                          0100003175 +            RJ     IAC         INCREMENT ARGUMENT COUNT                    PAR      4480
          2674  0307002676 +                      ZR     X7,AFUN4    IF NO ARGS                                  PAR      4481
                          0100003207 +            RJ     SSA         STACK SUBPROGRAM ARGUMENT                   PAR      4482
          2675  5110002635 +                      SA1    /CF/AC                                                  PAR      4483
                          10711                   BX7    X1          RESTORE (X7) = ARG COUNT                    PAR      4484
                                                                                                                 PAR      4485
          2676  5140000002 X             AFUN4    SA4    SCR+AS.W    FETCH (ARGMIS)                              PAR      4486
                          0100003300 +            RJ     VEL         VALIDATE EXTERNAL LIST                      PAR      4487
          2677  0400003033 +                      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
          2700                           C=INF    BSS                ENTRY...                                    PAR      4495
          2700  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4496
          2701  5120000000 X                      SA2    ARGCOMA                                                 PAR      4497
                          0100003247 +            RJ     VAM         VALIDATE ARGUMENT MODE                      PAR      4498
          2702  0400001533 +                      EQ     POPX                                                    PAR      4499
  
  
  
  
                                        **        A=INF - INTRINSIC FUNCTION RIGHT PAREN.                        PAR      4501
                                                                                                                 PAR      4502
                                                                                                                 PAR      4503
          2703                           A=INF    BSS                ENTRY...                                    PAR      4504
          2703  0100004721 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4505
          2704  0100003175 +                      RJ     IAC         INCREMENT ARG COUNT                         PAR      4506
          2705  0100003247 +                      RJ     VAM         VALIDATE FINAL ARGUMENT MODE                PAR      4507
          2706  5170000002 +                      SA7    SMOD                                                    PAR      4508
                          0100003325 +            RJ     VIL         VALIDATE INTRISIC ARG LIST                  PAR      4510
          2707  10122                             BX1    X2                                                      PAR      4511
                     20250                        HX2    IT.XTER                                                 PAR      4512
                          0322002724 +            PL     X2,ABIF     IF INLINE INTRINSIC                         PAR      4513
          2710  5120000025 +                      SA2    FUNCALL                                                 PAR      4514
                                        *         EQ     ABEF                                                    PAR      4515
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          2711                           ABEF     BSS                                                            PAR      4526
          2711  5130000000 X                      SA3    CO.DBTB                                                 PAR      4527
                          20146                   HX1    IT.BYN                                                  PAR      4528
                               12431              BX4    X3+X1                                                   PAR      4529
          2712  20126                             LX1    IT.BYNP+1                                               PAR      4530
                     0334002714 +                 MI     X4,ABEF2    IF (TRACEBACK) OR (BY-NAME FUNC)            PAR      4531
          2713  5120000026 +                      SA2    FUNCALL+1                                               PAR      4532
                                                                                                                 FC5A411    43
          2714  10622                    ABEF2    BX6    X2          SET CALLING SEQUENCE STYLE                  PAR      4533
                     5160000024 +                 SA6    FUNCALL-1                                               PAR      4534
          2715  0100003220 +                      RJ     TXI         TAG EXTERNAL INTRINSIC                      PAR      4535
          2716  5150002635 +                      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
          2717  5110000000 X                      ALLOC  T.ARG,X5                                                PAR      4538
          2721  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
          2723  0400003033 +                      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
          2724                           ABIF     BSS                                                            PAR      4550
          2724  5120000000 +                      SA2    PARNOW                                                  FC5A227   112
                          7222777772              SX2    X2-PM=DATA                                              FC5A227   113
          2725  0312002727 +                      NZ     X2,ABIF0    IF NOT PROCESSING DATA VARIABLE LIST        FC5A227   114
                          6170000000 X            ANSI   E.ANS5                                                  FC5A227   115
                                                                                                                 FC5A227   116
          2727                           ABIF0    BSS    0                                                       FC5A227   117
          2727  5120000000 +                      SA2    PARNOW                                                  FC5A184    79
                          7222777770              SX2    X2-PM=PARM                                              FC5A184    80
          2730  0312002732 +                      NZ     X2,ABIF1    IF NOT *PARAMETER* PROCESSING               FC5A184    81
                          6170000000 X            ANSI   E.ANS5      ** FUNCTION REF. IN CONSTANT EXPRESSION     FC5A184    82
                                                                                                                 FC5A184    83
          2732  0100003067 +             ABIF1    RJ     ESF         EVALUATE SPECIAL FUNCTION                   FC5A184    84
          2733  0332001533 +                      MI     X2,POPX     IF FUNCTION REDUCED                         PAR      4552
                          5110002635 +            SA1    /CF/AC                                                  PAR      4553
          2734  63710                             SB7    X1                                                      PAR      4554
                     0717002737 +                 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/05. 19.59.39.      PAGE   110
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ABIF
  
                     0470402735 +                 ZR     B7,"BLOWUP" IF INLINE WITH ZERO ARGUMENTS               FC5A227   118
                                                                                                                 FC5A411    45
                               12336              BX3    X3+X6       INDICATE UNARY TURPLE                       PAR      4559
          2736  5156777776                        SA5    B6-1        FETCH ARGUMENT                              FC5A411    46
                          0400001576 +            EQ     POP.ST1     EXIT..                                      PAR      4560
                                                                                                                 PAR      4561
          2737  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
          2740  54710                             SA7    A1                                                      PAR      4565
                                                                                                                 PAR      4566
          2741  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
          2742  0100004031 +                      RJ     ADT         ADD TURPLE                                  PAR      4570
          2743  5110002635 +                      SA1    /CF/AC                                                  PAR      4571
                          7271777776              SX7    X1-1        (TC) = (TC) - 1                             PAR      4572
          2744  54710                             SA7    A1                UNTIL (TC) = 0                        PAR      4573
                     0317002741 +                 NZ     X7,ABIF4    IF MORE ARGS TO ISSUE                       PAR      4574
                                                                                                                 PAR      4575
                               57561              SA5    B6-B1                                                   PAR      4576
          2745  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
          2746  5120002641 +                      SA2    /CF/MA                                                  PAR      4584
                          0302001533 +            ZR     X2,POPX     IF MODE ALREADY CORRECT                     PAR      4585
          2747  73620                             SX6    X2          (SMOD) = TARGET RESULT MODE                 PAR      4586
                     5130000334 +                 SA3    MCVOP                                                   PAR      4587
                               21222              AX2    18                                                      PAR      4588
          2750  5160000002 +                      SA6    SMOD                                                    PAR      4589
                          73120                   SX1    X2                                                      PAR      4590
                               20152              LX1    SP.SKELP                                                FC50104   139
          2751  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
          2752  5170000003 +                      SA7    SOPR                                                    PAR      4595
                          0100004031 +            RJ     ADT         ADD CONVERSION TURPLE                       PAR      4596
          2753  0400001533 +                      EQ     POPX        EXIT..                                      PAR      4597
  
  
  
  
                                        **        C=STFA - STATEMENT FUNCTION ACTUAL ARGUMENT COMMA.             PAR      4599
                                                                                                                 PAR      4600
          2754  0400001533 +             C=STFA   EQ     POPX                                                    PAR      4601
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   111
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=STFA
  
                                        **        A=STFA - STATEMENT FUNCTION ACTUAL ARGUMENT RIGHT PAREN.       PAR      4603
                                                                                                                 PAR      4604
          2755  5110000000 X             A=STFA   SA1    DATFLG                                                  FC5A227   119
                          0301002757 +            ZR     X1,STFA1    IF NOT PROCESSING DATA STATEMENT            FC5A227   120
          2756  6170000000 X                      FATAL  E.DVR5                                                  FC5A227   121
                                                                                                                 FC5A227   122
          2757  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
          2760  5110000000 X                      SA1    T.SYM                                                   FC5A227   124
                          15340                   BX3    -X0*X4                                                  PAR      4609
                               22713              LX7    B1,X3                                                   PAR      4610
          2761  63311                             =B3    X1+WB.W                                                 PAR      4611
                     36037                        IX0    X3+X7                                                   PAR      4612
                          53303                   SA3    B3+X0                                                   PAR      4613
                               43001              MX0    1                                                       PAR      4614
          2762  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
          2763  43052                             MX0    WA.SYML                                                 PAR      4619
                     11703                        BX7    X0*X3                                                   PAR      4620
                          5170000000 X            SA7    FILL.                                                   PAR      4621
          2764  20414                             LX4    -WC.ARGCP                                               PAR      4622
                     43063                        MX0    -WC.ARGCL                                               PAR      4623
                          15740                   BX7    -X0*X4                                                  PAR      4624
          2765  6237777776                        SB3    X7-1                                                    PAR      4625
                          0423002770 +            EQ     B2,B3,STFA10      IF ARG COUNT OK                       PAR      4626
          2766  6170000000 X                      FATAL  E.SF09                                                  PAR      4627
          2767  66321                             =B3    B2+1                                                    PAR      4628
                     67663                        SB6    B6-B3       UNSTACK ARGS                                PAR      4629
                          0400001520 +            EQ     PAR.STOP                                                PAR      4630
                                                                                                                 PAR      4631
          2770  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
          2771  20252                             LX2    -AC.EARGP                                               PAR      4635
                     15660                        BX6    -X0*X6                                                  PAR      4636
                          5110000000 X            SA1    T.STF                                                   PAR      4637
          2772  36016                             IX0    X1+X6                                                   PAR      4638
                     76740                        SX7    B4          ARGCOMA = *TB* POINTER RESTORE              PAR      4639
                          5130000000 X            SA3    INSTF                                                   PAR      4640
          2773  0303002774 +                      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
          2774  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
          2775  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
          2776  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/05. 19.59.39.      PAGE   112
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=STFA
  
                               73330              SX3    X3                                                      PAR      4657
                                   0              ERRNZ  SF.PEARL-18                                             PAR      4658
          2777  20322                             LX3    TB.ACTEP                                                PAR      4659
                     20244                        LX2    SF.PEARP                                                PAR      4660
                          20022                   LX0    SF.DACPP                                                PAR      4661
                               12602              BX6    X0+X2                                                   PAR      4662
          3000  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
          3001  0300003004 +                      ZR     X0,STFA30   IF NO PARAMETERS USED                       FC5A172     9
                                                                                                                 PAR      4667
          3002  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
          3003  54610                             SA6    A1                                                      PAR      4672
                     15014                        BX0    -X4*X1                                                  PAR      4673
                          0310003002 +            NZ     X0,STFA20   IF NOT END OF DUMMY ARG REF                 PAR      4674
                                                                                                                 FC5A172    10
          3004  5140000002 X             STFA30   SA4    SCR+AS.W    PROPOGATE ARGMIS                            FC5A172    11
                          5110000000 X            SA1    INSTF                                                   PAR      4676
          3005  73611                             =X6    X1+1                                                    PAR      4677
                     54610                        SA6    A1          INSTF = INSTF + 1 */ SF EXPANSION DEPTH     PAR      4678
                          5110000404 +            SA1    ESFARM                                                  PAR      4679
          3006  10611                             BX6    X1          ARGMODE = ESFARM  */ BEGIN EXPANSION        PAR      4680
                     6130000044                   SB3    O.SLP                                                   PAR      4681
          3007  0400001217 +                      EQ     PAR.SPS                                                 PAR      4682
  
  
  
  
                                        **        A=STFE - POP RIGHT PAREN AFTER EXPANDING ST. FUNCT. BODY.      PAR      4684
                                                                                                                 PAR      4685
          3010  5120000002 X             A=STFE   SA2    SCR+AS.W                                                PAR      4686
                          5110000000 X            SA1    INSTF                                                   PAR      4687
          3011  20220                             LX2    -TP.ORDP                                                PAR      4688
                     43054                        MX0    -TP.ORDL                                                PAR      4689
                          15020                   BX0    -X0*X2                                                  PAR      4690
                               22410              LX4    B1,X0                                                   PAR      4691
          3012  36440                             IX4    X4+X0                                                   PAR      4692
                     7261777776                   SX6    X1-1                                                    PAR      4693
                               54610              SA6    A1          POP ONE LEVEL OF SF EXPANSION               PAR      4694
          3013  0316003016 +                      NZ     X6,STFE10   IF STILL IN SF EXPANSION                    PAR      4695
                          5110000000 X            SA1    ALC.00                                                  PAR      4696
          3014  10611                             BX6    X1                                                      PAR      4697
                     5160000000 X                 SA6    ALC.REG     UNLOCK B4                                   PAR      4698
          3015  0400003017 +                      EQ     STFE20                                                  PAR      4699
                                                                                                                 PAR      4700
          3016  5110000000 X             STFE10   SA1    T.STF                                                   PAR      4701
                          63212                   SB2    X1+B2       ABSOLUTIZE STATEMENT FUNCTION TOKEN POINTER PAR      4702
                                                                                                                 PAR      4703
          3017  5110000000 X             STFE20   SA1    T.SYM                                                   PAR      4704
                          63311                   =B3    X1+WB.W                                                 PAR      4705
                               43073              MX0    -1                                                      PAR      4706
          3020  53143                             SA1    X4+B3                                                   PAR      4707
                     20024                        LX0    WB.SFXP                                                 PAR      4708
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   113
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=STFE
  
                          11601                   BX6    X0*X1       CLEAR *EXPANDING* FLAG                      PAR      4709
                               54610              SA6    A1                                                      PAR      4710
          3021  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
          3022  5160000000 X                      SA6    FILL.       FOR POSSIBLE DIAGNOSTIC                     FC50474    12
                          54411                   =A4    A1+WC.W-WB.W                                            PAR      4712
                               43063              MX0    -WC.ARGCL                                               PAR      4713
          3023  20414                             LX4    -WC.ARGCP                                               PAR      4714
                     15140                        BX1    -X0*X4                                                  PAR      4715
                          57561                   =A5    B6-1                                                    PAR      4716
                               10655              BX6    X5                                                      PAR      4717
          3024  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
          3025  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
          3026  0100004157 +                      RJ     CLM         COERCE MODE AND CHAR LEN TO S.F.            PAR      4726
          3027  10655                             BX6    X5                                                      PAR      4727
                     56660                        SA6    B6          REPLACE EXP WITH CONVERSION                 PAR      4728
                          66661                   =B6    B6+1                                                    PAR      4729
          3030  0470000461 +                      ZR     B7,PAR.NX   IF NO CONVERSION ERROR                      PAR      4730
                          6170000000 X            FATAL  E.SF15                                                  FC50474    13
          3032  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
          3033                           GFR      BSS                ENTRY...                                    PAR      4751
          3033  5120000002 +                      SA2    SMOD                                                    PAR      4752
                          5130000323 +            SA3    FAPOP                                                   PAR      4753
          3034  20222                             LX2    SP.MODEP                                                FC50104   140
                     5150002635 +                 SA5    /CF/AC      (2OP) = NUMBER OF ARGS IN CALL              PAR      4755
                               12623              BX6    X2+X3       SET MODE IN TURPLE HEADER                   PAR      4756
          3035  5140002643 +                      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/05. 19.59.39.      PAGE   114
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       GFR 
  
          3036  5160000003 +                      SA6    SOPR                                                    PAR      4759
                          6036400000              EMIT   A6,*                                                    PAR      4760
          3040  5130002636 +                      SA3    /CF/APL                                                 PAR      4761
                          0100003046 +            RJ     EAL         EMIT AP LIST                                PAR      4762
                                                                                                                 PAR      4763
                                        *         EMIT RJ TO ROUTINE, AND RESET SQUEEZE BOUNDARY.                PAR      4764
                                                                                                                 PAR      4765
          3041  5140002643 +                      SA4    /CF/TP      (1OP) = TAG OF ROUTINE                      PAR      4766
                          5110000000 X            SA1    T=PAR                                                   FC5A323     5
          3042  5130002642 +                      SA3    /CF/RJ      (OPR) = JUMP TYPE                           PAR      4768
                          5150002635 +            SA5    /CF/AC      (2OP) = NUMBER OF ARGS IN THIS CALL         PAR      4769
          3043  7271000003                        SX7    X1+Z=TURP                                               PAR      4770
                          66661                   SB6    B6+B1       ADJUST ESTACK FOR SINGLE ELEMENT            PAR      4771
          3044  5170000004 +                      SA7    CURST       RESET SQUEEZE BOUNDARY                      PAR      4772
                          20524                   LX5    TP.BIASP                                                PAR      4773
          3045  0400001576 +                      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
          3046  0400403046 +             EAL      SUBR   =           ENTRY/EXIT...                               PAR      4794
          3047  10633                             BX6    X3                                                      PAR      4795
                     5120002635 +                 SA2    /CF/AC                                                  PAR      4796
                               43500              MX5    0           (2OP) = NIL                                 PAR      4797
          3050  5160002636 +                      SA6    /CF/APL                                                 PAR      4798
                          0302003046 +            ZR     X2,EXIT.    IF NO ARGUMENTS                             PAR      4799
          3051  5110000000 X                      SA1    T.ARG                                                   PAR      4800
                          5130000000 X            SA3    T=ARG                                                   PAR      4801
          3052  36113                             IX1    X1+X3                                                   PAR      4802
                     37112                        IX1    X1-X2       FWA OF ARGUMENT LIST                        PAR      4803
                          66200                   =B2    0                                                       PAR      4804
                                                                                                                 PAR      4805
          3053  53412                    EAL10    SA4    X1+B2       X4 = NEXT ARGUMENT                          PAR      4806
                     76621                        =X6    B2+1                                                    PAR      4807
                          5160003065 +            SA6    EALA        UPDATE AND SAVE INDEX                       PAR      4808
          3054  43071                             MX0    -TP.MODEL                                               PAR      4809
                     5120002636 +                 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/05. 19.59.39.      PAGE   115
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       EAL 
  
          3055  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
          3056  6036400000                        EMIT   A6,*                                                    PAR      4817
          3057  5110000000 X                      SA1    T.ARG                                                   PAR      4818
                          5120000000 X            SA2    T=ARG                                                   PAR      4819
          3060  36112                             IX1    X1+X2                                                   PAR      4820
                     5130002635 +                 SA3    /CF/AC                                                  PAR      4821
                               37113              IX1    X1-X3       REFRESH FWA OF ARGLIST                      PAR      4822
          3061  5120003065 +                      SA2    EALA                                                    PAR      4823
                          63220                   SB2    X2                                                      PAR      4824
                               37432              IX4    X3-X2                                                   PAR      4825
          3062  0314003053 +                      NZ     X4,EAL10    IF MORE ARGUMENTS                           PAR      4826
                          5110000000 X            SA1    T=ARG                                                   PAR      4827
          3063  37613                             IX6    X1-X3       X6 = NEW LENGTH OF T.ARG                    PAR      4828
                     5160000000 X                 SHRINK T=ARG,X6                                                PAR      4829
          3064  0400003046 +                      EQ     EXIT.                                                   PAR      4830
                                                                                                                 PAR      4831
          3065                     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
          3066  5110000350 +             ESF9     SA1    BIFFUN                                                  PAR      4851
                          20252                   LX2    SP.SKELP                                                FC50104   142
                               12312              BX3    X1+X2       FORM TURPLE HEADER                          PAR      4853
                                                                                                                 PAR      4854
          3067  0400403067 +             ESF      SUBR   -           ENTRY/EXIT...                               PAR      4855
          3070  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
          3071  7226000000 X                      SX2    X6+OM=INL   (X2) = (POSSIBLE) SKELETON INDEX            PAR      4860
                          0321003066 +            PL     X1,ESF9     IF NO PARSER PROCESSING                     PAR      4861
          3072  57561                             SA5    B6-B1                                                   PAR      4862
                     63760                        SB7    X6                                                      PAR      4863
                          0277003073 +            JP     B7+ESFBASE                                              PAR      4864
                                                                                                                 PAR      4865
                                                                                                                 PAR      4866
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3073                           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
          3073                           CMPL     ESINL                                                          PAR      4881
          3073  7160000003                        =X6    M.REAL                                                  PAR      4882
                          0100004167 +            CALL   CMR         COERCE (2OP) MODE                           PAR      4883
                                         .T       IFEQ   TEST,ON,1                                               PAR      4884
          3074  0570403074 +                      NZ     B7,"BLOWUP" IF VIL LET BAD MODE THRU                    PAR      4885
                          10755                   BX7    X5                                                      PAR      4886
                               57761              SA7    B6-B1                                                   PAR      4887
                                                                                                                 PAR      4888
          3075  7160000003                        =X6    M.REAL                                                  PAR      4889
                          55571                   SA5    A7-B1                                                   PAR      4890
          3076  0100004167 +                      CALL   CMR         COERCE (1OP) MODE                           PAR      4891
                                         .T       IFEQ   TEST,ON,1                                               PAR      4892
          3077  0570403077 +                      NZ     B7,"BLOWUP" IF VIL LET BAD MODE THRU                    PAR      4893
                          7120000000 X            SX2    V=CMPLX                                                 PAR      4894
          3100  7160000005                        =X6    M.CPLX      RESTORE (SMOD)  (CMR DESTROYED IT)          PAR      4895
                          10755                   BX7    X5                                                      PAR      4896
          3101  5160000002 +                      SA6    SMOD                                                    PAR      4897
                          5176777775              SA7    B6-2                                                    PAR      4898
          3102  0400003066 +                      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
          3103                           LEN      ESINL                                                          PAR      4907
          3103  5110000000 +                      SA1    PARNOW                                                  FC5A227   125
                          7211777770              SX1    X1-PM=PARM                                              FC5A227   126
          3104  0311003106 +                      NZ     X1,ES.LEN1  IF NOT PARAMETER CONSTANT EXPRESSION        FC5A227   127
                          6170000000 X            FATAL  E.INF3                                                  FC5A227   128
                                                                                                                 FC5A227   129
          3106  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/05. 19.59.39.      PAGE   117
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ES.LEN
  
          3107  6270777771                        SB7    X0-M.CHAR                                               PAR      4914
                          0570003112 +            NZ     B7,ES.LEN4  IF NOT CHAR, ERROR                          PAR      4915
          3110  0100004355 +                      RJ     GOL         GET OPERAND LENGTH                          PAR      4916
          3111  0327003114 +                      PL     X7,ES.LEN6  IF CONSTANT LENGTH                          PAR      4917
                          7160000000 X            SX6    OMI=LEN                                                 PAR      4918
                                                                                                                 PAR      4919
          3112  5216000000 X             ES.LEN4  SA1    X6+F.INTF                                               PAR      4920
                          5120000025 +            SA2    FUNCALL     FORCE CALL-BY-NAME                          PAR      4921
          3113  5160002640 +                      SA6    /CF/IT                                                  PAR      4922
                          0400002711 +            EQ     ABEF        GO TREAT AS EXTERNAL ...                    PAR      4923
                                                                                                                 PAR      4924
          3114  10677                    ES.LEN6  BX6    X7          RESULT VALUE = LENGTH OF CONSTANT STRING    PAR      4925
                     76711                        =X7    M.INT                                                   PAR      4926
                          0400003136 +            EQ     ES.MSK8                                                 PAR      4927
  
  
  
  
                                        **        ES.XXX - TRANSFORM LGE(C1,C2) ETC. INTO C1.LGE.C2  .           PAR      4929
                                                                                                                 PAR      4930
          3115                           LGE      ESINL                                                          PAR      4931
          3115  5146777775                        SA4    B6-2                                                    PAR      4932
                          5130000346 +            SA3    LGEOP                                                   PAR      4933
                                                                                                                 PAR      4934
          3116  10733                    LXX10    BX7    X3                                                      PAR      4935
                     5170000003 +                 SA7    SOPR                                                    PAR      4936
                               67661              =B6    B6-1        EAT FUNCTION NAME                           PAR      4937
          3117  0100004031 +                      RJ     ADT                                                     PAR      4938
          3120  77201                             =X2    -1                                                      PAR      4939
                     0400003067 +                 EQ     EXIT.                                                   PAR      4940
                                                                                                                 PAR      4941
          3121                           LGT      ESINL                                                          PAR      4942
          3121  5130000347 +                      SA3    LLTOP                                                   PAR      4943
                                                                                                                 PAR      4944
                                        *         INVERT OPERANDS FOR INVERTED OPERATOR.                         PAR      4945
                                                                                                                 PAR      4946
          3122  10455                    LXX20    BX4    X5                                                      PAR      4947
                     5156777775                   SA5    B6-2                                                    PAR      4948
          3123  0400003116 +                      EQ     LXX10                                                   PAR      4949
                                                                                                                 PAR      4950
          3124                           LLE      ESINL                                                          PAR      4951
          3124  5130000346 +                      SA3    LGEOP                                                   PAR      4952
                          0400003122 +            EQ     LXX20                                                   PAR      4953
                                                                                                                 PAR      4954
          3125                           LLT      ESINL                                                          PAR      4955
          3125  5146777775                        SA4    B6-2                                                    PAR      4956
                          5130000347 +            SA3    LLTOP                                                   PAR      4957
          3126  0400003116 +                      EQ     LXX10                                                   PAR      4958
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   118
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ES.MSK
  
                                        **        ES.MSK - ATTEMPT REDUCTION OF 'MASK'.                          PAR      4960
                                                                                                                 PAR      4961
                                                                                                                 PAR      4962
          3127                           MASK     ESINL                                                          PAR      4963
          3127  10155                             BX1    X5                                                      PAR      4964
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          PAR      4965
          3130  7120000000 X                      SX2    V=MASK                                                  PAR      4966
                          0720003140 +            MI     B2,ES.MSK9  IF LONG CONSTANT                            FC5A190     9
          3131  0521003066 +                      NE     B2,B1,ESF9  IF NOT SHORT INTEGER CONSTANT               PAR      4967
                          0306003133 +            ZR     X6,ES.MSK5  IF MASK(-0)                                 FC5A190    10
          3132  0336003140 +                      MI     X6,ES.MSK9  IF NEGATIVE ARG.                            FC5A190    11
                                                                                                                 FC5A190    12
          3133  7216777702               ES.MSK5  SX1    X6-61                                                   FC5A190    13
                          0321003140 +            PL     X1,ES.MSK9  IF ARG GT 60                                FC5A190    14
          3134  43101                             MX1    1                                                       PAR      4968
                     6276777776                   SB7    X6-1                                                    PAR      4969
                               76700              =X7    M.BOOL      SET MODE OF NEW CONSTANT                    PAR      4970
          3135  23671                             AX6    B7,X1                                                   PAR      4971
                     10166                        BX1    X6                                                      PAR      4972
                          21173                   AX1    59                                                      PAR      4973
                               11616              BX6    X1*X6                                                   PAR      4974
          3136  67661                    ES.MSK8  SB6    B6-B1       DECREMENT STACK FOR FUNCTION NAME           PAR      4975
                     0100000000 X                 CALL   NCS         ENTER NEW CONSTANT                          PAR      4976
          3137  77201                             =X2    -1          INDICATE REDUCED                            PAR      4977
                     57661                        =A6    B6-1        REPLACE *MASK(CON)* WITH CON                PAR      4978
                          0400003067 +            EQ     EXIT.                                                   PAR      4979
                                                                                                                 FC5A190    15
          3140  6170000000 X             ES.MSK9  WARN   E.INF1                                                  FC5A190    16
          3141  0400003066 +                      EQ     ESF9                                                    FC5A190    17
  
  
  
  
                                        **        ES.SHF - ATTEMPT REDUCTION OF 'SHIFT'.                         PAR      4981
                                                                                                                 PAR      4982
                                                                                                                 PAR      4983
          3142                           SHIFT    ESINL                                                          PAR      4984
          3142  10155                             BX1    X5                                                      PAR      4985
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          PAR      4986
          3143  7120000000 X                      SX2    V=SHIFT                                                 PAR      4987
                          0720003154 +            MI     B2,ES.SHF5  IF LONG CONSTANT                            FC5A190    18
          3144  0521003066 +                      NE     B2,B1,ESF9  IF NOT SHORT INTEGER CONSTANT               PAR      4988
                          10266                   BX2    X6                                                      FC5A190    19
                               21273              AX2    59                                                      FC5A190    20
          3145  13226                             BX2    X2-X6                                                   FC5A190    21
                     7222777702                   SX2    X2-61                                                   FC5A190    22
          3146  0322003154 +                      PL     X2,ES.SHF5  IF ABS(ARG) .GT. 60                         FC5A190    23
                          6276777703              SB7    X6-60                                                   PAR      4989
          3147  7120000000 X                      SX2    V=SHIFT                                                 PAR      4994
                          0306003151 +            ZR     X6,ES.SHF4  IF NULL SHIFT (0)                           FC50148    19
          3150  0470003151 +                      ZR     B7,ES.SHF4  IF NULL SHIFT (60)                          FC50148    20
                          0400003066 +            EQ     ESF9        EXIT, NOT REDUCED                           PAR      4996
                                                                                                                 FC50148    21
          3151  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
          3152  43071                             MX0    -TP.MODEL                                               FC50372     5
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3153  5061777776                        SA6    A1-1        REPLACE SHIFT WITH VALUE OPERAND            FC50372     9
                          0400003067 +            EQ     EXIT.                                                   FC50148    27
                                                                                                                 FC5A190    24
          3154  6170000000 X             ES.SHF5  WARN   E.INF2      SHIFT ARG OUT OF RANGE                      FC5A190    25
          3155  7120000000 X                      SX2    V=SHIFT                                                 FC5A296     6
                          0400003066 +            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
          3156                           LOCF     ESINL                                                          PAR      5005
          3156  0100004236 +                      RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      5006
          3157  0306003161 +                      ZR     X6,ES.LOC2  IF OPERAND OKAY                             PAR      5007
                          6170000000 X            FATAL  E.INF                                                   PAR      5008
                                                                                                                 PAR      5009
          3161  6270777771               ES.LOC2  SB7    X0-M.CHAR                                               PAR      5010
                          43601                   CLAS=  X6,WB,LOCF                                              FC5A206     4
          3162  12662                             BX6    X6+X2       LOCF[WB(ARG)] = 1                           FC5A206     5
                     54620                        SA6    A2                                                      FC5A206     6
                          7160000000 X            SX6    OMI=LCF                                                 PAR      5011
          3163  0470003112 +                      ZR     B7,ES.LEN4  IF CHARACTER ARGUMENT, DO IT EXTERNAL       PAR      5012
                          7100004030              CLAS=  X0,TP,(ADDR,LCF,EXPR)                                   PAR      5013
          3164  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
          3165  67661                             =B6    B6-1        REPLACE LOCF(ARG) WITH ADDR(ARG)            PAR      5024
                     57661                        =A6    B6-1                                                    PAR      5025
                          0400003067 +            EQ     EXIT.                                                   PAR      5026
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3166                           RANF     ESINL                                                          PAR      5033
          3166  5110003174 +                      TAGSEX S.RANDOM    TAG SYSTEM EXTERNAL                         PAR      5034
          3167  5130000344 +                      SA3    RANOP                                                   PAR      5035
                          10466                   BX4    X6          (1OP) = SYMORD (RANDOM.)                    PAR      5036
                               22603              LX6    X3                                                      PAR      5037
          3170  10544                             BX5    X4          (2OP) = (1OP)                               PAR      5038
                     66661                        SB6    B6+B1       COMPENSATE FOR ADT STACK DECREMENT          PAR      5039
                                         .T       IFEQ   TEST,ON                                                 PAR      5040
                          5120000002 +            SA2    SMOD                                                    PAR      5041
          3171  7272777774                        SX7    X2-M.REAL                                               PAR      5042
                          0317403171 +            NZ     X7,"BLOWUP" IF (SMOD) INCORRECT                         PAR      5043
                                         .T       ENDIF                                                          PAR      5044
          3172  5160000003 +                      SA6    SOPR                                                    PAR      5045
                          0100004031 +            RJ     ADT                                                     PAR      5046
          3173  77201                             =X2    -1                                                      PAR      5047
                     0400003067 +                 EQ     EXIT.                                                   PAR      5048
                                                                                                                 PAR      5049
          3174  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
          3175  0400403175 +             IAC      SUBR   0           ENTRY/EXIT..                                PAR      5069
          3176  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
          3177  11302                             BX3    X0*X2       CLEAR PREVIOUS ARG COUNT                    PAR      5075
                     36637                        IX6    X3+X7       MERGE INCREMENTED COUNT                     PAR      5076
                          5170002635 +            SA7    /CF/AC                                                  PAR      5077
                                                  LX6    AC.CNTP                                                 PAR      5078
          3200  10266                             BX2    X6                                                      PAR      5079
                     54620                        SA6    A2                                                      PAR      5080
                          0400003175 +            EQ     EXIT.                                                   PAR      5081
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3201  0400403201 +             MAD      SUBR   0           ENTRY/EXIT...                               PAR      5096
          3202  0100004236 +                      RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      5097
          3203  0316003201 +                      NZ     X6,EXIT.    IF NOT CALL-BY-REFERENCE ARGUMENT           PAR      5098
                          7130000200              CLAS=  X3,WB,(DEF)                                             PAR      5099
          3204  12732                             BX7    X3+X2                                                   PAR      5100
                                         .T       IFEQ   TEST,ON                                                 PAR      5101
                     20265                        HX2    WB.NVAR                                                 PAR      5102
                          13312                   BX3    X1-X2                                                   PAR      5103
          3205  0323403205 +                      PL     X3,"BLOWUP" IF (VAR .EQV. NVAR)                         PAR      5104
                                         .T       ENDIF                                                          PAR      5105
                          0321003201 +            PL     X1,EXIT.    IF ARG IS NOT KNOWN AS VARIABLE             PAR      5106
          3206  54720                             SA7    A2                                                      PAR      5107
                     0400003201 +                 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
          3207  0400403207 +             SSA      SUBR   0           ENTRY/EXIT...                               PAR      5118
          3210  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
          3211  0301003215 +                      ZR     X1,SSA2     IF MODE = ALL BITS, ARG IS LABEL            PAR      5126
                          10655                   BX6    X5                                                      PAR      5127
          3212  5110000000 X                      ADDWD  T.ARG                                                   PAR      5128
          3213  0100003201 +                      RJ     MAD         MARK ARGUMENT DEFINED                       PAR      5129
          3214  0400003207 +                      EQ     EXIT.                                                   PAR      5130
                                                                                                                 PAR      5131
          3215  11605                    SSA2     BX6    X0*X5       REMOVE WEIRD MODE                           PAR      5132
                     5110000000 X                 ADDWD  T.SLARG                                                 PAR      5133
          3217  0400003207 +                      EQ     EXIT.                                                   PAR      5134
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3220  0400403220 +             TXI      SUBR   0           ENTRY/EXIT...                               PAR      5151
          3221  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
          3222  26222                             UX2,B2             (B2) = FUNCTION TYPE FOR (WC.FUNT)          PAR      5157
                     5170002637 +                 SA7    /CF/IE                                                  PAR      5158
                               11401              BX4    X0*X1       EXTRACT (X4) = SPECIFIC NAME                PAR      5159
          3223  5160002636 +                      SA6    /CF/APL                                                 PAR      5160
                          20236                   LX2    30                                                      PAR      5161
                               53320              SA3    X2                                                      PAR      5162
          3224  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
          3225  5170002642 +                      SA7    /CF/RJ                                                  PAR      5167
                          6120000030              SB2    IT.DPCP                                                 PAR      5168
          3226  22620                    TXI2     LX6    X0,B2       POSITION CHARACTER MASK                     PAR      5169
                     15246                        BX2    -X6*X4                                                  PAR      5170
                          6122000006              SB2    B2+6                                                    PAR      5171
          3227  0302003226 +                      ZR     X2,TXI2     IF NO SIGNIFICANT CHARACTER YET             PAR      5172
                          6122777763              SB2    B2-2*6                                                  PAR      5173
          3230  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
          3231  20326                             LX3    IT.CHARP                                                PAR      5177
                     11031                        BX0    X3*X1                                                   PAR      5178
                          0300003233 +            ZR     X0,TXI1     IF NOT COLLATE = FIXED AND CHAR OR ICHAR RE PAR      5179
          3232  6177000600                        SB7    B7+0600B    2RF:                                        PAR      5180
                          6122777771              SB2    B2-6                                                    PAR      5181
                                                                                                                 PAR      5182
          3233  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
          3234  0100000000 X                      TAGSEX A1          TAG SYSTEM EXTERNAL                         PAR      5186
          3235  7110050320                        CLAS=  X1,WB,(NVAR,EXT,CGS,FUN,DEF)                            PAR      5187
                          5160002643 +            SA6    /CF/TP                                                  PAR      5188
          3236  5130002640 +                      SA3    /CF/IT                                                  PAR      5189
                          12712                   BX7    X1+X2       MERGE FUNC ATTRIBUTES ONTO NEW SYMBOL (WB)  PAR      5190
          3237  5140002637 +                      SA4    /CF/IE                                                  PAR      5191
                          43671                   MX6    -IT.MODEL                                               PAR      5192
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   123
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       TXI 
  
                               20357              LX3    WB.JPFP                                                 PAR      5193
          3240  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
          3241  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
          3242  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
          3243  0520003244 +                      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
          3244  5130000002 +                      SA3    SMOD                                                    PAR      5212
                          6223777771              SB2    X3-M.CHAR                                               PAR      5213
          3245  0520003246 +                      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
          3246  12656                    TXI7     BX6    X5+X6                                                   PAR      5218
                     54621                        =A6    A2-WB.W+WC.W                                            PAR      5219
                          0400003220 +            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
          3247  0400403247 +             VAM      SUBR               ENTRY/EXIT...                               PAR      5236
          3250  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
          3251  0313003252 +                      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
          3252  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/05. 19.59.39.      PAGE   124
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VAM 
  
                          11202                   BX2    X0*X2       CLEAR MAXIMUM ARGUMENT                      FC5A411    58
                               37063              MX0    X6+X3                                                   FC5A411    59
          3254  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
          3255  5130000000 X                      SA3    T.SYM                                                   PAR      5237
                          6273000001              SB7    X3+WB.W                                                 PAR      5238
          3256  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
          3257  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
          3260  5160000000 X                      SA6    FILL.                                                   PAR      5250
                          53317                   SA3    B7+X1       WB(FUNCTION)                                PAR      5251
                               20346              HX3    WB.GENF                                                 PAR      5252
          3261  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
          3262  0333003265 +                      MI     X3,VAM1     IF GENERIC FUNCTION                         PAR      5257
                          43063                   MX0    -WB.JPFL                                                PAR      5258
                               20343              LX3    WB.GENFP+1-WB.JPFP                                      PAR      5259
          3263  15030                             BX0    -X0*X3                                                  PAR      5260
                     5230000000 X                 SA3    F.INTF+X0                                               PAR      5261
                               43071              MX0    -IT.ARGML                                               PAR      5262
          3264  20371                             LX3    -IT.ARGMP                                               PAR      5263
                     15330                        BX3    -X0*X3      ARGM[INTF(JPF[WB(FUNCTION)])]  REQUIRED MOD PAR      5264
                          0303003276 +            ZR     X3,VAM10    IF ARGM = M.BOOL                            FC5A411    64
                                   0              ERRNZ  M.BOOL                                                  PAR      5266
                                                                                                                 PAR      5267
          3265  63720                    VAM1     SB7    X2                                                      PAR      5268
                                   0              ERRNZ  18-AC.CNTL                                              PAR      5269
                     0717003270 +                 GT     B7,B1,VAM2  IF NOT FIRST ARG                            PAR      5270
                               20252              LX2    AC.CNTP-AC.MODEP                                        PAR      5271
          3266  12672                             BX6    X7+X2       SET (AC.MODE) = MODE OF FIRST ARG           PAR      5272
                     20622                        LX6    AC.MODEP                                                PAR      5273
                          54620                   SA6    A2                                                      PAR      5274
          3267  0400003247 +                      EQ     EXIT.                                                   PAR      5275
                                                                                                                 PAR      5276
          3270  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
          3271  0300003247 +                      ZR     X0,EXIT.    IF MODE AGREEMENT                           PAR      5281
                          76000                   =X0    0                                                       PAR      5282
          3272  0302003276 +                      ZR     X2,VAM10    IF REQUIRED MODE TYPELESS                   PAR      5283
                          0317003274 +            NZ     X7,VAM4     IF ACTUAL ARG NOT BOOLEAN                   PAR      5284
          3273  7222777771                        SX2    X2-M.CHAR                                               PAR      5285
                          0312003247 +            NZ     X2,EXIT.    IF DEFINED MODE NOT CHARACTER               PAR      5286
                                                                                                                 PAR      5287
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   125
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VAM 
  
          3274  6170000000 X             VAM4     FATAL  E.SU03      WRONG ARGUMENT MODE                         PAR      5288
          3275  7170000000                        SX7    M.BOOL      MODE BITS = BOOLEAN                         PAR      5289
                          0400003247 +            EQ     EXIT.                                                   PAR      5290
                                                                                                                 PAR      5291
          3276  7207777771               VAM10    SX0    X7-M.CHAR                                               PAR      5292
                          0300003274 +            ZR     X0,VAM4     IF THIS ARGUMENT MODE IS CHARACTER          PAR      5293
          3277  0400003247 +                      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
          3300  0400403300 +             VEL      SUBR   =           ENTRY/EXIT...                               PAR      5318
          3301  10644                             BX6    X4          SET (CF/TP) = OPERAND FOR ROUTINE           PAR      5319
                     5130000324 +                 SA3    GAPOP                                                   PAR      5320
                               43071              MX0    -TP.MODEL                                               PAR      5321
          3302  10166                             BX1    X6                                                      PAR      5322
                     5160002643 +                 SA6    /CF/TP                                                  PAR      5323
                               10477              BX4    X7          (X4) = NUMBER OF ARGS                       PAR      5324
                                                  LX6    -TP.MODEP                                               PAR      5325
          3303  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
          3304  5160002636 +                      SA6    /CF/APL                                                 PAR      5329
                          0100004344 +            RJ     FSA         FIND SYMBOL ATTRIBUTES                      PAR      5330
                                         .T       IFEQ   TEST,ON                                                 PAR      5331
          3305  0770403305 +                      MI     B7,"BLOWUP"       IF NOT IN SYMTAB                      PAR      5332
                          0331403305 +            MI     X1,"BLOWUP"       IF SYMTAB HAS *VAR* SET               PAR      5333
          3306  20173                             LX1    WB.VARP-WB.NVARP                                        PAR      5334
                     0321403306 +                 PL     X1,"BLOWUP"       IF *NVAR* NOT SET                     PAR      5335
          3307  7110014000                        CLAS=  X1,WB,(FUN,SUB)                                         PAR      5336
                          11112                   BX1    X1*X2                                                   PAR      5337
          3310  0301403310 +                      ZR     X1,"BLOWUP"       IF NEITHER *FUN* NOR *SUB*            PAR      5338
                                         .T       ENDIF                                                          PAR      5339
                          73240                   SX2    X4                                                      PAR      5340
                               43001              CLAS=  X0,WB,(DEF)                                             PAR      5341
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   126
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VEL 
  
                     54420                        SA4    A2          FETCH (X4) = SYMTAB WORD (WB)               PAR      5342
                          54121                   =A1    A2-WB.W+WC.W                                            PAR      5343
                               11604              BX6    X0*X4                                                   PAR      5344
          3312  6222777013                        SB2    X2-MAX.SARG                                             PAR      5345
                          0316003316 +            NZ     X6,VEL30    IF ALREADY DEFINED                          PAR      5346
          3313  20260                             LX2    WC.ARGCP                                                PAR      5347
                     12740                        BX7    X4+X0       SET DEFINED BIT                             PAR      5348
                          36621                   IX6    X2+X1       SET ARGUMENT COUNT                          PAR      5349
          3314  6170000000 X                      SB7    E.SU08      TOO MANY ARGUMENTS                          PAR      5350
                          0702003322 +            GT     B2,VEL50    IF NARGS .GT. MAX                           PAR      5351
          3315  54610                             SA6    A1                                                      PAR      5352
                     54740                        SA7    A4          UPDATE SYMTAB ENTRY (WC + WB)               PAR      5353
                          0400003300 +            EQ     EXIT.                                                   PAR      5354
                                                                                                                 PAR      5355
                                                                                                                 PAR      5356
                                        *         HERE IF NOT 1ST REFERENCE TO EXTERNAL.                         PAR      5357
                                        *                (X2) = ARGUMENT COUNT.                                  PAR      5358
                                                                                                                 PAR      5359
          3316  43063                    VEL30    MX0    -WC.ARGCL                                               PAR      5360
                     20114                        LX1    -WC.ARGCP                                               PAR      5361
                          15010                   BX0    -X0*X1      ISOLATE (X1) = PREVIOUS ARGUMENT COUNT      PAR      5362
          3317  6170000000 X                      SB7    E.SU02      ARGUMENT COUNT INCONSISTENT                 PAR      5363
                          37602                   IX6    X0-X2                                                   PAR      5364
          3320  0316003322 +                      NZ     X6,VEL50    IF ARGUMENT COUNT NON-AGREEMENT             PAR      5365
                          6170000000 X            SB7    E.SU08      TOO MANY ARGUMENTS                          PAR      5366
          3321  0602003300 +                      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
          3322  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
          3323  5160000000 X                      SA6    FILL.                                                   PAR      5375
                          0100000000 X            FATAL  B7                                                      PAR      5376
          3324  0400003300 +                      EQ     EXIT.                                                   PAR      5377
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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/05. 19.59.39.      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
          3325  0400403325 +             VIL      SUBR               ENTRY/EXIT...                               PAR      5432
          3326  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
          3327  5170002641 +                      SA7    /CF/MA                                                  PAR      5438
                          0100000000 X            CALL   CT1         LOAD SYMTAB (WB)                            PAR      5439
                                                                                                                 FC5A411    88
                                         .T       IFEQ   TEST,ON                                                 PAR      5440
          3330  7110000050                        CLAS=  X1,WB,(LAB,VAR)                                         PAR      5441
                          11312                   BX3    X1*X2                                                   PAR      5442
          3331  0313403331 +                      NZ     X3,"BLOWUP"       IF SYMTAB ENTRY IS ILL                PAR      5443
                          10122                   BX1    X2                                                      PAR      5444
                               20157              HX1    WB.FUN                                                  PAR      5445
          3332  0321403332 +                      PL     X1,"BLOWUP"       IF SYMTAB ENTRY IS ILL                PAR      5446
                                         .T       ENDIF                                                          PAR      5447
                                                                                                                 FC5A411    89
                          43063                   MX0    -WB.JPFL                                                PAR      5448
                               20215              LX2    -WB.JPFP                                                PAR      5449
          3333  54420                             SA4    A2          REMEMBER (A4,X4) = SYMTAB (WB)              PAR      5450
                     15320                        BX3    -X0*X2      EXTRACT (X3) = FJ = INTRINSIC TABLE INDEX   PAR      5451
                          5213000000 X            SA1    X3+F.INTF                                               PAR      5452
          3334  5120002635 +                      SA2    /CF/AC                                                  PAR      5453
                          43771                   MX7    -IT.ARGCL                                               PAR      5454
                               20156              LX1    -IT.ARGCP                                               PAR      5455
          3335  15017                             BX0    -X7*X1      EXTRACT (X0) = DEFINED ARGUMENT COUNT       PAR      5456
                     6170000000 X                 SB7    E.SU05      WRONG NUMBER OF ARGUMENTS                   PAR      5457
                               63220              SB2    X2                                                      PAR      5458
          3336  12770                             BX7    X7+X0                                                   PAR      5459
                     5170000017 +                 SA7    VILA                                                    PAR      5460
          3337  0317003341 +                      NZ     X7,VIL05    IF INFINITE ARG COUNT NOT PERMITTED         FC5A411    90
                          0712003350 +            GT     B2,B1,VIL15 IF TWO OR MORE ARGUMENTS                    FC5A411    91
          3340  6170000000 X                      SB7    E.SU09      NOT ENOUGH ARGUMENTS                        PAR      5463
                          0400003345 +            EQ     VIL10       OUTPUT ERROR                                FC5A411    92
                                                                                                                 PAR      5465
          3341  37602                    VIL05    IX6    X0-X2                                                   FC5A411    93
                     0306003350 +                 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/05. 19.59.39.      PAGE   129
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3342  7170000000 X                      SX7    OMI=CPX                                                 PAR      5469
                          37637                   IX6    X3-X7                                                   PAR      5470
          3343  0316003345 +                      NZ     X6,VIL10    IF FUNCTION NAME NOT 'CMPLX'                FC5A411    95
                          37332                   IX3    X3-X2       FJ = FJ - 2                                 PAR      5472
          3344  0421003350 +                      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
          3345  0100000000 X             VIL10    FATAL  B7                                                      FC5A411    97
          3346  5120000000 X                      SA2    F.INTF      SUBSTITUTE ERROR INTRINSIC                  PAR      5478
                          13777                   BX7    0                                                       PAR      5479
          3347  5170002640 +                      SA7    /CF/IT                                                  PAR      5480
                          0400003325 +            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
          3350                           VIL15    BSS                                                            FC5A411    98
                                                                                                                 FC5A411    99
                                         .T       IFEQ   TEST,ON                                                 PAR      5488
          3350  7160000000 X                      SX6    Z.INTF                                                  PAR      5489
                          37636                   IX6    X3-X6                                                   PAR      5490
          3351  0326403351 +                      PL     X6,"BLOWUP"       IF FJ .GE. INTRIN TABLE LENGTH        PAR      5491
                                         .T       ENDIF                                                          PAR      5492
                                                                                                                 FC5A411   100
                          5110000001 X            SA1    SCR+AC.W                                                PAR      5493
                                                  HX1    AC.BOOL                                                 FC5A411   101
          3352  0321003450 +                      PL     X1,VIL60    IF NO BOOLEAN ARGUMENTS                     FC5A411   102
                          5223000000 X            SA2    X3+F.INTF                                               FC5A411   103
          3353  43071                             MX0    -IT.ARGML                                               FC5A411   104
                     20271                        LX2    -IT.ARGMP                                               FC5A411   105
                          15220                   BX2    -X0*X2      EXTRACT REQUIRED ARGUMENT MODE              FC5A411   106
          3354  0302003450 +                      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
                               20130              LX1    AC.CNTP-AC.MAXMP                                        FC5A411   112
          3355  73510                             SX5    X1          EXTRACT MAXIMUM MODE                        FC5A411   113
                                   0              ERRNZ  18-AC.MAXML                                             FC5A411   114
                     0521003404 +                 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
                               22104              LX1    X4                                                      FC5A411   119
          3356  20146                             SBIT   X1,WB.GENFP                                             FC5A411   120
                     0321003373 +                 PL     X1,VIL19    IF NOT GENERIC                              FC5A411   121
          3357  5110000000 X                      SA1    FILL.       SAVED FUNCTION NAME                         FC5A411   122
                          5120004744 +            SA2    =4LREAL                                                 FC5A411   123
          3360  37212                             IX2    X1-X2                                                   FC5A411   124
                     0302003364 +                 ZR     X2,VIL16    IF INTRINSIC REAL                           FC5A411   125
          3361  5120004745 +                      SA2    =4LDBLE                                                 FC5A411   126
                          37212                   IX2    X1-X2                                                   FC5A411   127
          3362  0302003364 +                      ZR     X2,VIL16    IF INTRINSIC DBLE                           FC5A411   128
                          5120004746 +            SA2    =5LCMPLX                                                FC5A411   129
          3363  37212                             IX2    X1-X2                                                   FC5A411   130
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   130
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
                     0312003366 +                 NZ     X2,VIL17    IF NOT INTRINSIC CMPLX                      FC5A411   131
                                                                                                                 FC5A411   132
          3364  5116777776               VIL16    SA1    B6-1        FETCH ARGUMENT                              FC5A411   133
                          7160000003              SX6    M.REAL                                                  FC5A411   134
          3365  0400003401 +                      EQ     VIL20                                                   FC5A411   135
                                                                                                                 FC5A411   136
          3366  5213000001 X             VIL17    SA1    X3+1+F.INTF  GENERIC SELECTION VECTOR                   FC5A411   137
                          6170000020              SB7    M.INT*8     SHIFT FOR INTEGER                           FC5A411   138
          3367  7160000003                        SX6    M.REAL                                                  FC5A411   139
                          43064                   MX0    -8                                                      FC5A411   140
                               15010              BX0    -X0*X1      VECTOR FOR INTEGER                          FC5A411   141
          3370  5116777776                        SA1    B6-1        FETCH ARGUMENT                              FC5A411   142
                          7200777400              SX0    X0-1S8+1                                                FC5A411   143
          3371  0300003401 +                      ZR     X0,VIL20    IF INTEGER NOT ALLOWED [TREAT AS REAL]      FC5A411   144
                          7160000002              SX6    M.INT                                                   FC5A411   145
          3372  0400003401 +                      EQ     VIL20                                                   FC5A411   146
                                                                                                                 FC5A411   147
                                        *         ONE ARGUMENT, CONVERT TO REQUIRED MODE (NOT GENERIC)           FC5A411   148
                                                                                                                 FC5A411   149
          3373  57161                    VIL19    =A1    B6-1        FETCH ARGUMENT                              FC5A411   150
                     10622                        BX6    X2          REQUIRED MODE                               FC5A411   151
                          7222777773              SX2    X2-M.DBL                                                FC5A411   152
          3374  0332003401 +                      MI     X2,VIL20    IF NOT DBL OR CMPLX                         FC5A411   153
                          22501                   LX5    X1          OPERAND                                     FC5A411   154
          3375  0100004167 +                      RJ     CMR         COERCE MODE TO REQUIRED                     FC5A411   155
          3376  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
          3377  0100000000 X                      CALL   CT1         LOAD SYMTAB WB.                             FC5A411   160
          3400  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
          3401  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
          3402  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
          3403  5061000000                        SA6    A1+         UPDATE                                      FC5A411   175
                          0400003450 +            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
          3404  6235777771               VIL21    SB3    X5-M.CHAR                                               FC5A411   184
                          0430003450 +            ZR     B3,VIL60    IF MAXMODE = CHAR, ERROR                    FC5A411   185
          3405  6235777776                        SB3    X5-M.LOG                                                FC5A411   186
                          0430003450 +            ZR     B3,VIL60    IF MAXMODE = LOGICAL, ERROR                 FC5A411   187
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   131
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3406  22002                             LX0    X2          PRESERVE REQUIRED MODE                      FC5A422     6
                     5110000000 X                 SA1    FILL.                                                   FC5A411   189
          3407  5120004746 +                      SA2    =5LCMPLX                                                FC5A411   190
                          37112                   IX1    X1-X2                                                   FC5A411   192
                               10200              BX2    X0          RESTORE REQUIRED MODE                       FC5A422     7
          3410  0311003412 +                      NZ     X1,VIL21.1  IF NOT INTRINSIC COMPLEX                    FC5A422     8
                          7150000003              SX5    M.REAL      BOOLEAN ARGUMENTS TREATED AS REAL           FC5A422     9
          3411  0400003414 +                      EQ     VIL22                                                   FC5A422    10
                                                                                                                 FC5A422    11
          3412  0315003414 +             VIL21.1  NZ     X5,VIL22    IF MAXMODE " BOOLEAN                        FC5A422    12
                          76511                   =X5    M.INT                                                   FC5A411   194
                               10144              BX1    X4                                                      FC5A411   195
          3413  20146                             SBIT   X1,WB.GENFP                                             FC5A411   196
                     0331003414 +                 MI     X1,VIL22    IF GENERIC FUNCTION                         FC5A411   197
                               10522              BX5    X2          SET TO REQUIRED MODE                        FC5A411   198
                                                                                                                 FC5A411   199
          3414  6235777773               VIL22    SB3    X5-M.DBL                                                FC5A411   200
                          0630003426 +            PL     B3,VIL30    IF MODE DOUBLE OR COMPLEX, EXPLICIT CONVERT FC5A411   201
          3415  67361                             =B3    B6-1        INITIAL FETCH REGISTER                      FC5A411   202
                     43071                        MX0    -TP.MODEL                                               FC5A411   203
                                                                                                                 FC5A411   204
          3416  56130                    VIL23    SA1    B3          FETCH NEXT ARGUMENT                         FC5A411   205
                     15210                        BX2    -X0*X1      EXTRACT ARGUMENT MODE                       FC5A411   206
                          0312003420 +            NZ     X2,VIL24    IF ARGUMENT NOT BOOLEAN                     FC5A411   207
          3417  12615                             BX6    X1+X5       CONVERT TO PROPER MODE                      FC5A411   208
                                   0              ERRNZ  M.BOOL                                                  FC5A411   209
                     54610                        SA6    A1          UPDATE                                      FC5A411   210
                                                                                                                 FC5A411   211
          3420  6122777776               VIL24    SB2    B2-1                                                    FC5A411   212
                          0420003422 +            ZR     B2,VIL25    IF ALL ARGUMENTS PROCESSED                  FC5A411   213
          3421  6133777776                        SB3    B3-1                                                    FC5A411   214
                          0400003416 +            EQ     VIL23       CONTINUE PROCESSING                         FC5A411   215
                                                                                                                 FC5A411   216
          3422  5110000001 X             VIL25    SA1    SCR+AC.W                                                FC5A411   217
                          43052                   MX0    -AC.MODEL                                               FC5A411   218
                               20022              LX0    AC.MODEP                                                FC5A411   219
          3423  15010                             BX0    -X0*X1      EXTRACT MODE                                FC5A411   220
                     0310003450 +                 NZ     X0,VIL60    IF MODE NOT BOOLEAN                         FC5A411   221
                                   0              ERRNZ  M.BOOL                                                  FC5A411   222
                               20522              LX5    AC.MODEP                                                FC5A411   223
          3424  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
          3425  0400003450 +                      EQ     VIL60                                                   FC5A411   227
                                                                                                                 FC5A411   228
                                        *         DOUBLE/COMPLEX CONVERSION                                      FC5A411   229
                                                                                                                 FC5A411   230
          3426  6136777776               VIL30    SB3    B6-1        INITIAL FETCH REGISTER                      FC5A411   231
                                                                                                                 FC5A411   232
          3427  5113000000               VIL31    SA1    B3+         FETCH NEXT ARGUMENT                         FC5A411   233
                          43071                   MX0    -TP.MODEL                                               FC5A411   234
                               15210              BX2    -X0*X1      EXTRACT ARGUMENT MODE                       FC5A411   235
          3430  0312003437 +                      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
          3431  76530                             SX5    B3                                                      FC5A411   240
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3432  12665                             BX6    X6+X5                                                   FC5A411   244
                     5160000020 +                 SA6    VILB        SAVE (X5), (B3), (B2)                       FC5A411   245
                               21644              AX6    18+18       COERSION MODE                               FC5A411   246
          3433  22501                             LX5    X1          OPERAND                                     FC5A411   247
                     0100004167 +                 RJ     CMR         COERSE BOOLEAN OPERAND                      FC5A411   248
          3434  5110000020 +                      SA1    VILB                                                    FC5A411   249
                          63210                   SB2    X1          RESTORE (B2)                                FC5A411   250
                               21122              AX1    18                                                      FC5A411   251
          3435  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
          3436  22501                             LX5    X1          RESTORE (X5)                                FC5A411   256
                                                                                                                 FC5A411   257
          3437  6122777776               VIL32    SB2    B2-1                                                    FC5A411   258
                          0420003441 +            ZR     B2,VIL33    IF ALL ARGUMENTS PROCESSED                  FC5A411   259
          3440  6133777776                        SB3    B3-1                                                    FC5A411   260
                          0400003427 +            EQ     VIL31       CONTINUE PROCESSING                         FC5A411   261
                                                                                                                 FC5A411   262
          3441  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
          3442  0100000000 X                      CALL   CT1         LOAD SYMTAB (WB)                            FC5A411   267
          3443  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
          3444  20457                             LX4    WB.JPFP                                                 FC5A411   272
                     5110000001 X                 SA1    SCR+AC.W                                                FC5A411   273
                               43052              MX0    -AC.MODEL                                               FC5A411   274
          3445  20022                             LX0    AC.MODEP                                                FC5A411   275
                     15010                        BX0    -X0*X1      EXTRACT MODE                                FC5A411   276
                          0310003447 +            NZ     X0,VIL35    IF MODE NOT BOOLEAN                         FC5A411   277
                                   0              ERRNZ  M.BOOL                                                  FC5A411   278
          3446  20522                             LX5    AC.MODEP                                                FC5A411   279
                     12615                        BX6    X1+X5       MERGE IN CONVERTED MODE                     FC5A411   280
                          5061000000              SA6    A1+         UPDATE                                      FC5A411   281
                                                                                                                 FC5A411   282
          3447  5156777776               VIL35    SA5    B6-1        RESTORE LAST ARGUMENT                       FC5A411   283
                                                                                                                 FC5A411   284
          3450  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
          3451  20446                             HX4    WB.GENF                                                 PAR      5497
                     0324003462 +                 PL     X4,VIL70    IF NOT GENERIC FUNCTION                     PAR      5498
                               20703              LX7    3                                                       PAR      5499
          3452  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
          3453  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/05. 19.59.39.      PAGE   133
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3454  0313003460 +                      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
          3455  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
          3457  22506                             LX5    X6          STACK AND RETURN RESULT                     PAR      5520
                     57661                        SA6    B6-B1                                                   PAR      5521
                          0400001533 +            EQ     POPX        EXIT..                                      PAR      5522
                                                                                                                 PAR      5523
          3460  6223777400               VIL66    SB2    X3-1S8+1                                                PAR      5524
                          6170000000 X            SB7    E.SU07      INVALID ARGUMENT MODE                       PAR      5525
          3461  0420003345 +                      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
          3462  5223000000 X             VIL70    SA2    X3+F.INTF                                               PAR      5533
                          10633                   BX6    X3                                                      PAR      5534
                               43071              MX0    -IT.ARGML                                               PAR      5535
          3463  5160002640 +                      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
          3464  20203                             LX2    IT.ARGMP-IT.MODEP                                       PAR      5539
                                                  IFNE   IT.ARGML,IT.MODEL,1                                     PAR      5540
                                                  MX0    -IT.MODEL                                               PAR      5541
                     0334003473 +                 MI     X4,VIL78    IF GENERIC INTRINSIC                        PAR      5542
          3465  6170000000 X                      SB7    E.SU03      WRONG ARGUMENT MODE                         PAR      5543
                          13367                   BX3    X6-X7                                                   PAR      5544
          3466  0303003473 +                      ZR     X3,VIL78    IF ACTUAL .EQ. REQUIRED                     PAR      5545
                                                  =X6    X6-M.BOOL                                               PAR      5546
                          0316003471 +            NZ     X6,VIL74    IF REQUIRED MODE NOT BOOL                   PAR      5547
          3467  7237777771                        SX3    X7-M.CHAR                                               PAR      5548
                          0313003473 +            NZ     X3,VIL78    IF ACTUAL MODE NOT CHARACTER                PAR      5549
          3470  0400003345 +                      EQ     VIL10                                                   FC5A411   287
                                                                                                                 PAR      5551
          3471  0317003345 +             VIL74    NZ     X7,VIL10    IF ACTUAL MODE NOT BOOLEAN                  FC5A411   288
                          7266777775              =X6    X6+M.BOOL-M.INT                                         PAR      5553
          3472  0316003345 +                      NZ     X6,VIL10    IF REQUIRED MODE NOT BOOL/INT AND ACTUAL IS FC5A411   289
                                                                                                                 FC5A411   290
          3473  13717                    VIL78    BX7    X1-X7       CLEAR PREVIOUS (AC.MODE)                    PAR      5555
                     5130000017 +                 SA3    VILA                                                    PAR      5556
                               15620              BX6    -X0*X2                                                  PAR      5557
          3474  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/05. 19.59.39.      PAGE   134
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3475  0313003502 +                      NZ     X3,VIL84    IF INDEFINITE ARG COUNT NOT PERMITTED       PAR      5562
                          5110002640 +            SA1    /CF/IT      (X1) = INDEX OF THIS INTRINSIC              PAR      5564
          3476  5130000000 X                      SA3    F.IMCV                                                  PAR      5565
                          6170000000 X            SB7    Z.IMCV                                                  PAR      5566
          3477  6120000044                        SB2    2*18                                                    PAR      5567
                                                                                                                 FC5A411   291
          3500  23723                    VIL82    AX7    X3,B2                                                   PAR      5568
                     37071                        IX0    X7-X1                                                   PAR      5569
                          0300003503 +            ZR     X0,VIL86    IF FUNCTION REQUIRES POST-COERCION          PAR      5570
          3501  67771                             SB7    B7-B1                                                   PAR      5571
                     54331                        SA3    A3+B1                                                   PAR      5572
                          0670003500 +            PL     B7,VIL82    IF MORE TO CHECK                            PAR      5573
                                                                                                                 FC5A411   292
          3502  5160000002 +             VIL84    SA6    SMOD                                                    PAR      5574
                          0400003325 +            EQ     EXIT.                                                   PAR      5575
                                                                                                                 PAR      5576
          3503  10633                    VIL86    BX6    X3          INDICATE POST-EVALUATION COERCION REQUIRED  PAR      5577
                     5160002641 +                 SA6    /CF/MA                                                  PAR      5578
          3504  0400003325 +                      EQ     EXIT.                                                   PAR      5579
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   135
        POP/EMIT ARRAY SUBSCRIPTS.
  
                                        **        POP/EMIT ARRAY SUBSCRIPTS.                                     PAR      5581
                                                                                                                 PAR      5582
                                                                                                                 PAR      5583
                                                  QUAL   AR                                                      PAR      5584
          3505                     1     BIAS     BSS    1           CONSTANT SUBSCRIPT BIAS ACCUMULATOR         PAR      5585
          3506                     1     DIMI     BSS    1           INDEX OF ARRAY IN T.DIM                     PAR      5586
          3507                     1     NSUB     BSS    1           COUNT OF SUBSCRIPTS (IN ARRAY REF)          PAR      5587
          3510                     1     VDSK     BSS    1           SKELETON  *VD.*  OPERAND                    PAR      5588
                                                  QUAL   *                                                       PAR      5589
                                                                                                                 PAR      5590
          3511  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/05. 19.59.39.      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
          3512                           C=ARRAY  BSS    0                                                       PAR      5652
          3512  5110000000 X                      SA1    ARGMIS                                                  PAR      5653
                          55411                   =A4    A1+AC.W-AS.W      *ARGCOMA*                             PAR      5654
                               10611              BX6    X1                                                      PAR      5655
          3513  5160000002 X                      SA6    SCR+AS.W    POP ARRAY NAME EARLY FOR *FERRS*            PAR      5656
                          0100003764 +            RJ     SSR         STANDARDIZE SUBSCRIPT RESULT                PAR      5657
          3514  10644                             BX6    X4                                                      PAR      5658
                     66441                        =B4    B4+1        (B4) = ADVANCE TO NEXT TOKEN                PAR      5659
                          5160000000 X            SA6    ARGCOMA                                                 PAR      5660
          3515  0400000461 +                      EQ     PAR.NX      CONTINUE ...                                PAR      5661
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3516                           A=ARRAY  BSS    0           ENTRY...                                    PAR      5676
          3516  76010                             =X0    1                                                       PAR      5677
                                                  LX0    AC.CNTP                                                 PAR      5678
                     36420                        IX4    X2+X0       INCREMENT COUNT OF SUBSCRIPTS               PAR      5679
                          0100003764 +            RJ     SSR         STANDARDIZE LAST SUBSCRIPT                  PAR      5680
          3517  13666                             BX6    0                                                       PAR      5681
                     5160003505 +                 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
          3520  0100003667 +                      RJ     GDI         GET DIMENSION INFORMATION                   PAR      5690
          3521  0423003536 +                      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
          3523  0732003534 +                      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
          3524  22702                             LX7    X2                                                      FC51082    18
                     5110003506 +                 SA1    /AR/DIMI                                                FC51082    19
          3525  5130000000 X                      SA3    T.DIM                                                   FC51082    20
                          36113                   IX1    X1+X3                                                   FC51082    21
                               53310              SA3    X1          (A3) -> DIM HEADER                          FC51082    22
          3526  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
          3527  0331003532 +                      MI     X1,A=AR4    IF ADJUSTABLE LOWER BOUND                   FC51082    26
                          5120004747 +            CLAS=  X2,TP,(BIAS)                                            FC51082    27
          3530  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
          3531  5120000000 X                      SA2    CONZERI                                                 FC51082    31
                          12772                   BX7    X7+X2                                                   FC51082    32
                                                                                                                 FC51082    33
          3532  56760                    A=AR4    SA7    B6          B6 -> TOP OF ESTACK + 1                     FC51082    34
                     66661                        SB6    B6+B1                                                   FC51082    35
                          67771                   SB7    B7-B1                                                   FC51082    36
          3533  0707003532 +                      GT     B7,A=AR4    IF NOT DONE PADDING ESTACK                  FC51082    37
                          0400003535 +            EQ     A=AR7                                                   FC51082    38
                                                                                                                 FC51082    39
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   138
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
                                        *         HERE IF SUBSCRIPT COUNT .GT. DIMENSION COUNT                   FC51082    40
                                                                                                                 FC51082    41
          3534  67723                    A=AR6    SB7    B2-B3       (B7) = SUBSCRIPT COUNT - DIMENSION COUNT    FC51082    42
                     67667                        SB6    B6-B7       ADJUST ESTACK                               FC51082    43
                                                                                                                 FC51082    44
          3535  76630                    A=AR7    SX6    B3                                                      FC51082    45
                     5160003507 +                 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
          3536  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
          3537  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
                          0311003541 +            NZ     X1,A=AR10   IF PROCESSING DATA ITEM                     PAR      5706
          3540  0337003552 +                      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
          3541                           A=AR10   BSS    0                                                       PAR      5711
          3541  5110000000 X                      SA1    S=VD        INITIALIZE SKELETON VD. OPERAND             PAR      5712
                          76211                   =X2    M.INT                                                   PAR      5713
                               13777              BX7    0                                                       PAR      5714
          3542  20154                             LX1    TP.ORDP                                                 PAR      5715
                                                  LX2    TP.MODEP                                                PAR      5716
                     12612                        BX6    X1+X2                                                   PAR      5717
                          5160003510 +            SA6    /AR/VDSK                                                PAR      5718
          3543  56760                             =A7    B6          CREATE EMPTY SUBSCRIPT VALUE                PAR      5719
                     66661                        =B6    B6+1                                                    PAR      5720
                          0400003545 +            EQ     A=AR14                                                  PAR      5721
                                                                                                                 PAR      5722
                                        *         PROCESS SUBSCRIPT EXPRESSION RESULTS FROM RIGHT TO LEFT.       PAR      5723
                                                                                                                 PAR      5724
          3544  5110003507 +             A=AR12   SA1    /AR/NSUB                                                PAR      5725
                          0100003700 +            RJ     MSP         MULTIPLY BY DIMENSION SPAN                  PAR      5726
          3545  0100003623 +             A=AR14   RJ     ASE         ADD SUBSCRIPT EXPRESSION                    PAR      5727
          3546  5110003507 +                      SA1    /AR/NSUB                                                PAR      5728
                          0100003740 +            RJ     SLB         SUBTRACT LOWER BOUND                        PAR      5729
          3547  5110003507 +                      SA1    /AR/NSUB                                                PAR      5730
                          76210                   =X2    1                                                       PAR      5731
                               37612              IX6    X1-X2       DECREMENT SUBSCRIPT COUNT                   PAR      5732
          3550  63760                             SB7    X6                                                      PAR      5733
                     54610                        SA6    A1                                                      PAR      5734
                          0707003544 +            GT     B7,B0,A=AR12      IF ANOTHER DIMENSION                  PAR      5735
          3551  0400003576 +                      EQ     A=AR30                                                  PAR      5736
                                                                                                                 PAR      5737
                                        *         HERE IF SUBSCRIPT TO BE CHECKED AND EVALUATED OUT-OF-LINE.     PAR      5738
                                                                                                                 PAR      5739
          3552                           A=AR20   BSS    0                                                       PAR      5740
          3552  43001                             CLAS=  X0,DH,(MAT)                                             PAR      5741
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3553  5110000000 X                      SA1    S=RD                                                    PAR      5747
                          5120003506 +            SA2    /AR/DIMI                                                PAR      5748
          3554  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
          3555  6130400324 +                      EMIT   GAPOP,*                                                 PAR      5753
                                                                                                                 PAR      5754
                                        *         EMIT APLIST TURPLE FOR EACH SUBSCRIPT EXPRESSION RESULT.       PAR      5755
                                                                                                                 PAR      5756
          3556  5110003507 +                      SA1    /AR/NSUB                                                PAR      5757
                          63710                   SB7    X1          (B7) = COUNT OF SUBSCRIPTS                  PAR      5758
                                                                                                                 PAR      5759
                                         .T       IFEQ   TEST,ON                                                 PAR      5760
          3557  0607403557 +                      LE     B7,B0,"BLOWUP"    IF SUBSCRIPT COUNT ERROR              PAR      5761
                          6120000007              SB2    MAX.DIM                                                 PAR      5762
          3560  0727403560 +                      GT     B7,B2,"BLOWUP"    IF SUBSCRIPT COUNT ERROR              PAR      5763
                                         .T       ENDIF                                                          PAR      5764
                                                                                                                 PAR      5765
                          13555                   BX5    0           (2OP)                                       PAR      5766
                               57467              SA4    B6-B7       (1OP) = 1ST SUBSCRIPT (ELSTACK)             PAR      5767
          3561  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
          3562  20222                             LX2    SP.MODEP                                                FC50104   143
                     12612                        BX6    X1+X2                                                   PAR      5774
                          5160000003 +            SA6    SOPR                                                    PAR      5775
          3563  6036400000                        EMIT   A6,*        SUBSCRIPT TURPLE                            PAR      5776
          3564  64741                             =B7    A4+1        ADVANCE TO NEXT SUBSCRIPT                   PAR      5777
                     54441                        =A4    A4+1                                                    PAR      5778
                          0776003561 +            LT     B7,B6,A=AR22      IF ANOTHER SUBSCRIPT                  PAR      5779
          3565  5110003507 +                      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
          3566  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
          3567  0100000000 X                      CALL   NCS         NAME TO RUN-TIME CONTAB                     PAR      5789
          3570  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
          3572  5110003511 +                      TAGSEX S.CES                                                   PAR      5798
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   140
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
          3573  5110003507 +                      SA1    /AR/NSUB                                                PAR      5799
                          5130000320 +            SA3    FUNOP                                                   PAR      5800
          3574  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
          3575  66661                             =B6    B6+1        DUMMY ADVANCE                               PAR      5804
                     0100003616 +                 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
          3576                           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
          3576  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
          3577  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
          3600  43073                             MX0    -1                                                      PAR      5832
                     15210                        BX2    -X0*X1      =1 IF DOUBLE OR COMPLEX, =0 IF ELSE         PAR      5833
                          5110003505 +            SA1    /AR/BIAS                                                PAR      5834
          3601  43044                             MX0    -TP.BIASL                                               PAR      5835
                     6232000024                   SB3    X2+TP.BIASP                                             PAR      5836
                               20024              LX0    TP.BIASP                                                PAR      5837
          3602  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
          3603  12667                             BX6    X6+X7       INSERT BIAS IN ARRAY OPERAND                PAR      5842
                     57661                        =A6    B6-1        UPDATE ARRAY OPERAND                        PAR      5843
                          0304001533 +            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
          3604  66661                             =B6    B6+1        NOTE THAT SUBSCRIPT VALUE EXISTS            PAR      5849
                     10544                        BX5    X4          (2OP) = SUBSCRIPT VALUE                     PAR      5850
                          0302003606 +            ZR     X2,A=AR32   IF NOT DOUBLE OR COMPLEX ARRAY              PAR      5851
          3605  5130000301 +                      SA3    INTEG+/OP/PLUS                                          PAR      5852
                          0100003616 +            RJ     ADU         ISSUE *ADD* TO DOUBLE THE SUBSCRIPT VALUE   PAR      5853
                                                                                                                 PAR      5854
          3606  57461                    A=AR32   =A4    B6-1        FETCH 2OP (SUBSCRIPT VALUE)                 FC5A140     8
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   141
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
                     7100022000                   CLAS=  X0,TP,(ARR,INTR)                                        FC5A140     9
                               11104              BX1    X0*X4                                                   FC5A140    10
          3607  13101                             BX1    X0-X1                                                   FC5A140    11
                     0311003612 +                 NZ     X1,A=AR40   IF NOT SUBSCRIPTED SUBSCRIPT                FC5A140    12
                               43500              MX5    0                                                       FC5A140    13
          3610  5130000337 +                      SA3    XMITOP                                                  FC5A140    14
                          10633                   BX6    X3                                                      FC5A140    15
                               66661              =B6    B6+1        INCREMENT FOR XMIT TURPLE                   FC5A140    16
          3611  5160000003 +                      SA6    SOPR                                                    FC5A140    17
                          0100004031 +            RJ     ADT         ADD THE XMIT TURPLE                         FC5A140    18
          3612  5130000315 +             A=AR40   SA3    ARYOP                                                   FC5A140    19
                          22603                   LX6    X3                                                      PAR      5856
          3613  5160000003 +                      SA6    SOPR                                                    PAR      5857
                          7100020100              CLAS=  X0,TP,(ARR,ARS)                                         PAR      5858
          3614  5110000001 +                      SA1    ATTR                                                    PAR      5859
                          12701                   BX7    X0+X1       MERGE (ATTR)                                PAR      5860
                               54710              SA7    A1          UPDATE (ATTR) = ARRAY                       PAR      5861
          3615  57561                             =A5    B6-1        (2OP) = SUBSCRIPT VALUE                     PAR      5862
                     55451                        =A4    A5-1        (1OP) = ARRAY                               PAR      5863
                          0400001572 +            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
          3616  0400403616 +             ADU      SUBR   0           **  ENTRY/EXIT  **                          PAR      5893
          3617  10633                             BX6    X3                                                      PAR      5894
                     76711                        =X7    M.INT                                                   PAR      5895
                          5160000003 +            SA6    SOPR                                                    PAR      5896
          3620  66661                             =B6    B6+1                                                    PAR      5897
                     46000                        NO                                                             PAR      5898
                          5170000002 +            SA7    SMOD                                                    PAR      5899
          3621  0100004031 +                      RJ     ADT                                                     PAR      5900
          3622  0400003616 +                      EQ     EXIT.                                                   PAR      5901
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3623  0400403623 +             ASE      SUBR   0           **  ENTRY/EXIT  **                          PAR      5923
          3624  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
          3625  0100000000 X                      INTLCT             CHECK RESULT TYPE                           PAR      5928
                          0420003633 +            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
          3630  5110003505 +                      SA1    /AR/BIAS                                                PAR      5935
                          56260                   SA2    B6          (X2) = SUBSCR VALUE OPERAND                 PAR      5936
                               36616              IX6    X1+X6       BIAS = BIAS + CONSTANT SUBSCR EXPR          PAR      5937
          3631  10722                             BX7    X2                                                      PAR      5938
                     54610                        SA6    A1                                                      PAR      5939
                          57761                   =A7    B6-1        BUBBLE SUBSCR VALUE OPD DOWN (LIKE *ADT*)   PAR      5940
          3632  0400003623 +                      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
          3633                           ASE20    BSS    0                                                       PAR      5947
          3633  10755                             BX7    X5                                                      PAR      5948
                     20761                        SBIT   X7,TP.INTRP                                             PAR      5949
                          0327003662 +            PL     X7,ASE32    IF NOT INTERMEDIATE                         PAR      5950
                                                                                                                 PAR      5951
                                        *         HERE IF RESULT IS AN INTERMEDIATE.                             PAR      5952
                                                                                                                 PAR      5953
          3634  43054                             MX0    -TP.ORDL                                                PAR      5954
                     20733                        LX7    -TP.ORDP+TP.INTRP+1                                     PAR      5955
                          5110000000 X            SA1    T.PAR                                                   PAR      5956
          3635  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/05. 19.59.39.      PAGE   143
        POP/EMIT ARRAY SUBSCRIPTS.                                    ASE 
  
                          5120000303 +            SA2    INTEG+/OP/UMIN                                          PAR      5960
          3636  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
          3637  56460                             SA4    B6                                                      PAR      5965
                     0312003642 +                 NZ     X2,ASE22    IF OPERATOR NOT *UMIN*                      FC50104   149
          3640  0304003623 +                      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
          3641  0400003665 +                      EQ     ASE34                                                   PAR      5970
                                                                                                                 PAR      5971
          3642  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
          3643  0302003645 +                      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
          3644  21252                             AX2    -SP.SKELL                                               FC50104   155
                     37212                        IX2    X1-X2                                                   FC50104   156
                          0312003662 +            NZ     X2,ASE32    IF (X-OPR) NOT *PLUS* (AND NOT *MINUS*)     FC50104   157
                                                                                                                 FC50104   158
          3645  54411                    ASE24    =A4    A1+OR.1OP-OR.OPR                                        PAR      5984
                     10144                        BX1    X4                                                      PAR      5985
                          0100000000 X            INTLCT             CHECK (X-1OP) TYPE                          PAR      5986
                          54141                   =A1    A4+OR.2OP-OR.1OP                                        PAR      5987
                               10466              BX4    X6          SAVE POSSIBLE (N-K) = CONVERTED (X-1OP)     PAR      5988
          3650  0520003655 +                      NZ     B2,ASE26    IF (X-1OP) CONSTANT                         PAR      5989
                          0100000000 X            INTLCT             CHECK (X-2OP) TYPE                          PAR      5990
                          0420003662 +            ZR     B2,ASE32    IF (X-2OP) (AND X-1OP) NOT CONST, CAN-T OPT PAR      5991
          3653  76030                             SX0    B3                                                      PAR      5992
                     54540                        =A5    A4+OR.1OP-OR.1OP        (N-2OP) = (X-1OP)               PAR      5993
                          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
          3654  0400003661 +                      EQ     ASE30                                                   PAR      5996
                                                                                                                 PAR      5997
                                        *         HERE IF (X-1OP) IS CONSTANT.                                   PAR      5998
                                                                                                                 PAR      5999
          3655  0100000000 X             ASE26    INTLCT             CHECK (X-2OP) TYPE                          PAR      6000
                                                                                                                 PAR      6001
                                         .T       IFEQ   TEST,ON                                                 PAR      6002
                          0520403657 +            NZ     B2,"BLOWUP" IF BOTH (X-OPS) CONST, *CONRED* BUG LIKELY  PAR      6003
                                         .T       ELSE                                                           PAR      6004
                                                  NZ     B2,ASE32    IF (X-2OP) (AND X-1OP) ARE CONST, CAN-T OPT PAR      6005
                                         .T       ENDIF                                                          PAR      6006
                                                                                                                 PAR      6007
          3660  54541                             =A5    A4+OR.2OP-OR.1OP        (N-2OP) = (X-2OP)               PAR      6008
                     0430003661 +                 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/05. 19.59.39.      PAGE   144
        POP/EMIT ARRAY SUBSCRIPTS.                                    ASE 
  
          3661                           ASE30    BSS    0                                                       PAR      6014
          3661  5110003505 +                      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
          3662  56460                    ASE32    SA4    B6                      (N-1OP) = SUBSCR VALUE OPERAND  PAR      6022
                     66210                        =B2    /OP/MINUS                                               PAR      6023
                          0314003665 +            NZ     X4,ASE34    IF ANY PREVIOUS SUBSCRIPT VALUE             PAR      6024
          3663  63330                             SB3    X3                                                      PAR      6025
                     76311                        =X3    /OP/UMIN                (N-OPR) = UNARY MINUS           PAR      6026
                          0432003665 +            EQ     B3,B2,ASE34 IF (N-OPR) *MINUS*, ISSUE *UMIN*            PAR      6027
          3664  10655                             BX6    X5                                                      PAR      6028
                     57661                        =A6    B6-1        (N-2OP) TO ELSTACK AS NEW SUBSCR VALUE      PAR      6029
                          0400003623 +            EQ     EXIT.                                                   PAR      6030
                                                                                                                 PAR      6031
          3665  5233000301 +             ASE34    SA3    X3+INTEG    (X3) = SELECTED (TH.)                       PAR      6032
                          0100003616 +            RJ     ADU         ISSUE NEW TURPLE                            PAR      6033
          3666  0400003623 +                      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
          3667  0400403667 +             GDI      SUBR   0           **  ENTRY/EXIT  **                          PAR      6058
          3670  5110003506 +                      SA1    /AR/DIMI    ARRAY INDEX IN T.DIM                        PAR      6059
                                                                                                                 PAR      6060
                                         .T       IFEQ   TEST,ON                                                 PAR      6061
                          0331403670 +            MI     X1,"BLOWUP" IF INDEX BELOW T.DIM                        PAR      6062
          3671  5120000000 X                      SA2    T=DIM                                                   PAR      6063
                          37221                   IX2    X2-X1                                                   PAR      6064
          3672  0332403672 +                      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/05. 19.59.39.      PAGE   145
        POP/EMIT ARRAY SUBSCRIPTS.                                    GDI 
  
                          5120000000 X            SA2    T.DIM                                                   PAR      6068
          3673  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
          3674  63360                             SB3    X6          *(B3) = COUNT OF DIMS                       PAR      6075
                     0732003667 +                 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
          3675  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
          3676  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
          3677  20244                             LX2    -D2.UBP-DM.INFP-DM.INFL                                 FC5A231   126
                     21244                        AX2    -DM.INFL    *(X2) = SIGN EXTENDED UPPER BOUND           FC5A231   127
                          0400003667 +            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
          3700  0400403700 +             MSP      SUBR   0           **  ENTRY/EXIT  **                          PAR      6101
          3701  63210                             SB2    X1                                                      PAR      6102
                     0100003667 +                 RJ     GDI         GET DIMENSION INFORMATION                   PAR      6103
          3702  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
          3703  5130003505 +                      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
          3704  0331003725 +                      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/05. 19.59.39.      PAGE   146
        POP/EMIT ARRAY SUBSCRIPTS.                                    MSP 
  
                               54630              SA6    A3                                                      PAR      6122
          3705  0304003700 +                      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
          3706  0322003722 +                      PL     X2,MSP16    IF SUBSCRIPT VALUE NOT AN INTERMEDIATE      PAR      6129
                          5110000000 X            SA1    T.PAR                                                   PAR      6130
          3707  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
          3710  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
          3711  21252                             AX2    -SP.SKELL                                               FC50104   162
                     37112                        IX1    X1-X2                                                   FC50104   163
                          0311003722 +            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
          3712  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
          3713  0420003716 +                      ZR     B2,MSP12    IF (1OP) NOT A CONSTANT                     PAR      6148
                                                                                                                 PAR      6149
                                         .T       IFEQ   TEST,ON                                                 PAR      6150
                          5120004750 +            SA2    ="BOOLINT"                                              PAR      6151
          3714  63200                             SB2    X0          MODE                                        PAR      6152
                     22222                        LX2    B2                                                      PAR      6153
                          0322403714 +            PL     X2,"BLOWUP" IF NOT BOOL OR INT  ( *SSR* ERROR )         PAR      6154
                                         .T       ENDIF                                                          PAR      6155
                                                                                                                 PAR      6156
          3715  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
                          0400003723 +            EQ     MSP18       ISSUE NEW MULTIPLY TURPLE (OLD MAY DANGLE)  PAR      6160
                                                                                                                 PAR      6161
          3716  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
          3717  0420003722 +                      ZR     B2,MSP16    IF (2OP) NOT A CONSTANT                     PAR      6165
                                                                                                                 PAR      6166
                                         .T       IFEQ   TEST,ON                                                 PAR      6167
                          5120004750 +            SA2    ="BOOLINT"                                              PAR      6168
          3720  63200                             SB2    X0          MODE                                        PAR      6169
                     22222                        LX2    B2                                                      PAR      6170
                          0322403720 +            PL     X2,"BLOWUP" IF NOT BOOL OR INT  ( *SSR* ERROR )         PAR      6171
                                         .T       ENDIF                                                          PAR      6172
                                                                                                                 PAR      6173
          3721  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/05. 19.59.39.      PAGE   147
        POP/EMIT ARRAY SUBSCRIPTS.                                    MSP 
  
                          0400003723 +            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
          3722  5146777776               MSP16    SA4    B6-1        (1OP) = PREVIOUS RESULT                     PAR      6183
          3723  10655                    MSP18    BX6    X5                                                      PAR      6184
                     76711                        =X7    M.INT                                                   PAR      6185
                          0100000000 X            CALL   NCS                                                     PAR      6186
          3724  10566                             BX5    X6          (2OP) = SPAN                                PAR      6187
                     0400003736 +                 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
          3725  10655                    MSP20    BX6    X5                                                      PAR      6195
                     43700                        MX7    0                                                       PAR      6196
                          5160000017 +            SA6    MSPA        TEMP SAVE VD. ORD                           PAR      6197
          3726  54730                             SA7    A3          CLEAR BIAS ACCUMULATOR                      PAR      6198
                     10544                        BX5    X4          PRESET (2OP) = SUBSCRIPT VALUE              PAR      6199
                          0313003730 +            NZ     X3,MSP22    IF BIAS .NZ., GO ADD IT IN                  PAR      6200
          3727  0304003700 +                      ZR     X4,EXIT.    IF NULL SUBSCRIPT VALUE                     PAR      6201
                          0400003734 +            EQ     MSP28                                                   PAR      6202
                                                                                                                 PAR      6203
          3730  10633                    MSP22    BX6    X3                                                      PAR      6204
                     76711                        =X7    M.INT                                                   PAR      6205
                          0100000000 X            CALL   NCS                                                     PAR      6206
          3731  5130000301 +                      SA3    INTEG+/OP/PLUS    (OPR) = INTEGER ADD                   PAR      6207
                          10566                   BX5    X6          (2OP) = BIAS                                PAR      6208
          3732  0304003734 +                      ZR     X4,MSP28    IF NULL SUBSCRIPT VALUE                     PAR      6209
                          0100003616 +            RJ     ADU         ISSUE ADD                                   PAR      6210
          3733  57561                             =A5    B6-1        (2OP) = NEW SUBSCRIPT VALUE                 PAR      6211
                                                                                                                 PAR      6212
          3734  5110000017 +             MSP28    SA1    MSPA        SAVED VD. ORDINAL                           PAR      6213
                          5120003510 +            SA2    /AR/VDSK    VD. OPERAND SKELETON, PRESET WITH (S=VD)    PAR      6214
          3735  20124                             LX1    TP.BIASP                                                PAR      6215
                     12412                        BX4    X1+X2       (1OP) = ADJUSTABLE SPAN                     PAR      6216
                                                                                                                 PAR      6217
          3736  5130000304 +             MSP30    SA3    INTEG+/OP/MULT                                          PAR      6218
                          0100003616 +            RJ     ADU                                                     PAR      6219
          3737  0400003700 +                      EQ     EXIT.                                                   PAR      6220
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3740  0400403740 +             SLB      SUBR   0           **  ENTRY/EXIT  **                          PAR      6232
          3741  63210                             SB2    X1          (B2) = CURRENT SUBSCRIPT NUMBER             PAR      6233
                     0100003667 +                 RJ     GDI         GET DIMENSION INFORMATION                   PAR      6234
          3742  0336003744 +                      MI     X6,SLB2     IF LOWER BOUND IS ADJUSTABLE                PAR      6235
                          5120003505 +            SA2    /AR/BIAS                                                PAR      6236
          3743  37621                             IX6    X2-X1       BIAS = BIAS - LOWER BOUND (CONSTANT)        PAR      6237
                     54620                        SA6    A2                                                      PAR      6238
                          0400003740 +            EQ     EXIT.                                                   PAR      6239
                                                                                                                 PAR      6240
                                        *         HERE IF LOWER BOUND IS ADJUSTABLE.                             PAR      6241
                                                                                                                 PAR      6242
          3744  5120003510 +             SLB2     SA2    /AR/VDSK                                                PAR      6243
                          57461                   =A4    B6-1        (1OP) = SUBSCRIPT VALUE                     PAR      6244
                               20124              LX1    TP.BIASP                                                PAR      6245
          3745  12521                             BX5    X2+X1       (2OP) = ADJUSTABLE LOWER BOUND              PAR      6246
                     5130000302 +                 SA3    INTEG+/OP/MINUS   (OPR) = INTEGER SUBTRACT              PAR      6247
          3746  0314003747 +                      NZ     X4,SLB3     IF SUBSCRIPT VALUE NOT NULL                 PAR      6248
                          54331                   =A3    A3-/OP/MINUS+/OP/UMIN                                   PAR      6249
          3747  0100003616 +             SLB3     RJ     ADU         ISSUE SUBTRACT OR UNARY MINUS               PAR      6250
          3750  0400003740 +                      EQ     EXIT.                                                   PAR      6251
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3751  0400403751 +             SSO      SUBR   0           **  ENTRY/EXIT  **                          PAR      6270
          3752  5110000014 +                      SA1    CSYTAG                                                  PAR      6271
                          5120000000 X            SA2    T.SYM                                                   PAR      6272
          3753  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
          3754  0720403754 +                      MI     B2,"BLOWUP"       IF INDEX BELOW T.SYM                  PAR      6280
                          5130000000 X            SA3    T=SYM                                                   PAR      6281
          3755  63330                             SB3    X3                                                      PAR      6282
                     0732403755 +                 GT     B2,B3,"BLOWUP"    IF INDEX ABOVE T.SYM                  PAR      6283
                                         .T       ENDIF                                                          PAR      6284
                                                                                                                 PAR      6285
                               22017              LX0    X7,B1                                                   PAR      6286
          3756  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
          3757  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
          3760  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
                          0330403760 +            MI     X0,"BLOWUP"       IF INDEX BELOW T.DIM                  PAR      6300
          3761  5120000000 X                      SA2    T=DIM                                                   PAR      6301
                          37220                   IX2    X2-X0                                                   PAR      6302
          3762  0332403762 +                      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
          3763  12770                             BX7    X7+X0       *(X7) = ARGCOMA[VSUB=0,SYM=*,DIMI=**,CNT=0] PAR      6308
                     0400003751 +                 EQ     EXIT.                                                   PAR      6309
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          3764  0400403764 +             SSR      SUBR   0           **  ENTRY/EXIT  **                          PAR      6324
                                                  LX4    -AC.CNTP                                                PAR      6325
          3765  73640                             SX6    X4                                                      PAR      6326
                     63240                        SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT              PAR      6327
                                   0              ERRNZ  AC.CNTL-18                                              PAR      6328
                          5160003507 +            SA6    /AR/NSUB    SAVE CURRENT SUBSCRIPT COUNT                PAR      6329
          3766  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
          3767  5170003506 +                      SA7    /AR/DIMI    SAVE INDEX OF ARRAY IN T.DIM                PAR      6334
                          0100003667 +            RJ     GDI         GET DIMENSION INFORMATION                   PAR      6335
          3770  0732003764 +                      GT     B2,B3,EXIT. IF TOO MANY SUBSCRIPTS (DIAGNOSED LATER)    PAR      6336
                          10155                   BX1    X5                                                      PAR      6337
          3771  0100000000 X                      CALL   LCT                                                     PAR      6338
          3772  5120004751 +                      SA2    ="ALLNUM"                                               PAR      6339
                          6170000000 X            SB7    E.SB2       PRESET MSG  *NOT NUMERIC TYPE*              PAR      6340
          3773  63300                             SB3    X0          (B3) = MODE                                 PAR      6341
                     22232                        LX2    B3                                                      PAR      6342
                          0322004017 +            PL     X2,SSR30    IF SUBSCRIPT NOT NUMERIC                    PAR      6343
          3774  10066                             BX0    X6          (X0) = CONSTANT SUBSCRIPT VALUE (=0 IF VAR) PAR      6344
                     66711                        =B7    M.INT                                                   PAR      6345
                          0437003776 +            EQ     B3,B7,SSR2  IF SUBSCRIPT INTEGER                        PAR      6346
          3775  6170000000 X                      SUBERR E.SB3       ISSUE MSG *(NON-ANS) NOT INTEGER*           PAR      6347
          3776  5120004750 +             SSR2     SA2    ="BOOLINT"                                              PAR      6348
                          76711                   =X7    M.INT                                                   PAR      6349
                               22232              LX2    B3                                                      PAR      6350
          3777  0520004004 +                      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
          4000  0332003764 +                      MI     X2,EXIT.    IF SUBSCRIPT IS BOOLEAN OR INTEGER          PAR      6359
                          22604                   LX6    X4                                                      PAR      6360
                               13444              BX4    0           (1OP) = DUMMY                               PAR      6361
          4001  5160000017 +                      SA6    SSRA        TEMP SAVE ARGCOMA                           PAR      6362
                          5130000333 +            SA3    INTMAC      (X3) = *INT* OPERATOR                       PAR      6363
          4002  0100003616 +                      RJ     ADU         *INT* CONVERSION TURPLE TO T.PAR            PAR      6364
          4003  5140000017 +                      SA4    SSRA        RESTORE (X4) = ARGCOMA                      PAR      6365
                          0400003764 +            EQ     EXIT.                                                   PAR      6366
                                                                                                                 PAR      6367
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   151
        POP/EMIT ARRAY SUBSCRIPTS.                                    SSR 
  
                                        *         HERE IF SUBSCRIPT IS CONSTANT.                                 PAR      6368
                                                                                                                 PAR      6369
          4004  10500                    SSR20    BX5    X0          (X5) = CONSTANT SUBSCRIPT VALUE             PAR      6370
                     0332004007 +                 MI     X2,SSR22    IF SUBSCRIPT IS BOOLEAN OR INTEGER CONSTANT PAR      6371
                               26075              UX0,B7 X5          INTEGERIZE CONSTANT                         PAR      6372
          4005  22670                             LX6    X0,B7                                                   PAR      6373
                     10566                        BX5    X6          (X5) = SAVE INTEGERIZED CONSTANT            PAR      6374
                          0100000000 X            CALL   NCS                                                     PAR      6375
          4006  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
          4007  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
          4010  0310004017 +                      NZ     X0,SSR30    IF ABS(SUBSCRIPT) TOO LARGE                 PAR      6392
                          0100003667 +            RJ     GDI         GET DIMENSION INFORMATION                   PAR      6393
          4011  0336004013 +                      MI     X6,SSR24    IF LOWER BOUND ADJUSTABLE                   PAR      6394
                          37051                   IX0    X5-X1                                                   PAR      6395
          4012  6170000000 X                      SB7    E.SB5       PRESET MSG *SUBSCRIPT .LT. LOWER BOUND*     PAR      6396
                          0330004015 +            MI     X0,SSR28    IF SUBSCRIPT .LT. LOWER BOUND               PAR      6397
          4013  0337003764 +             SSR24    MI     X7,EXIT.    IF UPPER BOUND ADJUSTABLE                   PAR      6398
                          37025                   IX0    X2-X5                                                   PAR      6399
          4014  6170000000 X                      SB7    E.SB6       PRESET MSG *SUBSCRIPT .GT. UPPER BOUND*     PAR      6400
                          0320003764 +            PL     X0,EXIT.    IF SUBSCRIPT .LE. UPPER BOUND               PAR      6401
          4015  0100000000 X             SSR28    SUBERR B7                                                      PAR      6402
          4016  0400003764 +                      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
          4017  0100000000 X             SSR30    SUBERR B7          ISSUE ERROR MESSAGE                         PAR      6409
                                                  LX4    -AC.CNTP                                                PAR      6410
          4020  63240                             SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT              PAR      6411
                                   0              ERRNZ  AC.CNTL-18                                              PAR      6412
                                                  LX4    AC.CNTP                                                 PAR      6413
                     0100003667 +                 RJ     GDI         GET DIMENSION INFORMATION                   PAR      6414
          4021  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
          4022  57661                             =A6    B6-1         *SAFE* SUBSCRIPT TO ELSTACK                PAR      6418
                     0400003764 +                 EQ     EXIT.                                                   PAR      6419
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4023  0400404023 +             ACT      SUBR   =           ...ENTRY/EXIT...                            PAR      6436
          4024  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
          4025  12371                             BX3    X7+X1       SET (TH.TBPR) = TOKEN TYPE                  PAR      6441
                                                  LX3    SP.TBPRP                                                FC50104   167
                     0100004506 +                 RJ     SDM         SELECT DOMINANT MODE                        PAR      6443
          4026  0100004410 +                      RJ     OMC         OUTPUT MODE CONVERSION (IF NECESSARY)       PAR      6444
          4027  0100004031 +                      RJ     ADT         ADD TURPLE                                  PAR      6445
          4030  0400004023 +                      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/05. 19.59.39.      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
          4031  0400404031 +             ADT      SUBR   =           ENTRY/EXIT...                               PAR      6483
          4032  5110000000 X                      SA1    DATFLG                                                  FC50391    13
                          7211777772              SX1    X1-PM=DATA                                              FC50391    14
          4033  0301004037 +                      ZR     X1,ADT1     IF PARSING *DATA*                           FC50391    15
                          0100004103 +            RJ     CBB         CONVERT 2OP TO BASE/BIAS FORMAT             FC50391    16
          4034  10055                             BX0    X5                                                      FC50391    17
                     22504                        LX5    X4                                                      FC50391    18
                          10400                   BX4    X0          SWAP 1OP/2OP FOR CBB                        FC50391    19
          4035  0100004103 +                      RJ     CBB         CONVERT 2OP TO BASE/BIAS FORMAT             FC50391    20
          4036  22005                             LX0    X5                                                      FC50391    21
                     10544                        BX5    X4                                                      FC50391    22
                          22400                   LX4    X0          RESTORE                                     FC50391    23
                                                                                                                 FC50391    24
          4037  5110000000 +             ADT1     SA1    PARNOW                                                  FC50391    25
                          43600                   MX6    0                                                       PAR      6485
          4040  5160000000 X                      SA6    IFREL2      INDICATE LAST TURPLE NOT RELATIONAL         PAR      6486
                          7211777774              SX1    X1-PM=DIM                                               PAR      6487
          4041  0311004045 +                      NZ     X1,ADT2     IF NOT 'DIM BOUND' PARSING                  FC50391    26
                          43001                   CLAS=  X0,SP,(NSQZ)                                            FC50104   168
          4042  12603                             BX6    X0+X3       DONT SQUEEZE DIMENSION BOUNDS EXPRESSION    PAR      6490
                     22306                        LX3    X6                                                      PAR      6491
                          5160000003 +            SA6    SOPR                                                    PAR      6492
          4043  20633                             HX6    SP.BND                                                  FC50104   169
                     0336004045 +                 MI     X6,ADT2     IF LEGAL OPERATION                          FC50391    27
          4044  6170000000 X                      SB7    E.DM11                                                  PAR      6495
                          0100004222 +            RJ     DBE         OUTPUT DIMENSION BOUND ERROR                PAR      6496
                                                                                                                 PAR      6497
          4045  10033                    ADT2     BX0    X3                                                      FC50391    28
                     20023                        HX0    SP.UNAR                                                 FC50104   170
                          0320004047 +            PL     X0,ADT3     IF NOT UNARY TURPLE                         FC50391    29
          4046  10455                             BX4    X5          (P1) = ONLY OPERAND (1OP)                   PAR      6501
                     43500                        MX5    0           (P2) = NIL                                  PAR      6502
                                                                                                                 PAR      6503
          4047  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
          4050  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
          4051  0307004061 +                      ZR     X7,ADT5     IF THIS SKEL NOT REDUCIBLE                  PAR      6511
                          0320004055 +            PL     X0,ADT4     IF NOT UNARY TURPLE                         FC50947    11
          4052  5110000000 X                      SA1    CO.DOLG                                                 FC50947    12
                          0301004055 +            ZR     X1,ADT4     IF NOT LONG DO                              FC50947    13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   154
        SUBROUTINES.                                                  ADT 
  
          4053  5110000000 X                      SA1    ARGMODE                                                 FC50947    14
                          6271775555 -            SB7    X1-A=DO                                                 FC50947    15
          4054  0470004061 +                      ZR     B7,ADT5     IF DO INDUCTION VARIABLE                    FC50947    16
                                                                                                                 FC50947    17
          4055  0100000000 X             ADT4     CALL   CCR         CHECK CONSTANT REDUCTION                    FC50947    18
          4056  5130000003 +                      SA3    SOPR                                                    PAR      6514
                          0306004061 +            ZR     X6,ADT5     IF TURPLE NOT REDUCED                       PAR      6515
          4057  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
          4060  0400004031 +                      EQ     EXIT.                                                   PAR      6518
                                                                                                                 PAR      6519
          4061  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
          4062  0330004066 +                      MI     X0,ADT7     IF SQZ INHIBITED FOR THIS TURPLE            PAR      6525
                          5160004102 +            SA6    ADTA        SAVE B5                                     PAR      6526
          4063  0100004600 +                      RJ     SQZ         CHECK IF CURRENT TURPLE CAN BE ELIMINATED   PAR      6527
          4064  5110004102 +                      SA1    ADTA        RESTORE B5                                  PAR      6528
                          63510                   SB5    X1          RESTORE *B5*                                PAR      6529
          4065  0620004031 +                      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
          4066  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
          4067  6277777736                        SB7    X7-O.=                                                  PAR      6540
                          10655                   BX6    X5          FIRST GUESS RESULT = STORE TARGET           PAR      6541
                               43700              MX7    0                                                       PAR      6542
          4070  0470004074 +                      ZR     B7,ADT8     IF STORE TURPLE                             PAR      6543
                          5130000002 +            SA3    SMOD                                                    PAR      6544
          4071  5110000001 +                      SA1    ATTR        ATTRIBUTES FOR RESULT                       PAR      6545
                          5120000000 X            SA2    T=PAR                                                   PAR      6546
          4072  7100002000                        SX0    TP.INTRM                                                PAR      6547
                          36113                   IX1    X1+X3       MERGE ATTRIBUTE + RESULT MODE               PAR      6548
                               20254              LX2    TP.ORDP                                                 PAR      6549
          4073  12302                             BX3    X0+X2       ORD + INTR                                  PAR      6550
                     12631                        BX6    X3+X1       + (ATTR) + (SMOD)                           PAR      6551
                                                                                                                 FC50391    31
          4074  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
          4075  5120000002 +                      SA2    SMOD                                                    PAR      6563
                          5130000003 +            SA3    SOPR                                                    PAR      6564
          4076  73220                             SX2    X2          EXTRACT (X2) = DOMINANT MODE                PAR      6565
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   155
        SUBROUTINES.                                                  ADT 
  
                     20222                        LX2    SP.MODEP                                                FC50104   176
                          12623                   BX6    X2+X3       (ADTA) = TURPLE HEADER                      PAR      6567
          4077  5160004102 +                      SA6    ADTA                                                    PAR      6568
                          6130404102 +            EMIT   ADTA,*      EMIT TURPLE TO IL                           PAR      6569
          4101  67201                             =B2    -1                                                      FC5A207     8
                     0400004031 +                 EQ     EXIT.       EXIT...                                     PAR      6570
                                                                                                                 PAR      6571
          4102                     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
          4103  0400404103 +             CBB      SUBR               ...ENTRY/EXIT...                            FC50391    44
          4104  22005                             LX0    X5                                                      FC50391    45
                     20052                        SBIT   X0,TP.EQVP                                              FC50391    46
                          0320004103 +            PL     X0,EXIT.    IF NOT EQUIVALENCED                         FC50391    47
          4105  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
          4106  0300004103 +                      ZR     X0,EXIT.    IF TYPE CHARACTER                           FC50391    53
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS                        FC50391    54
          4107  0400004103 +                      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
          4110  6170000000 X             CDI00    WARN   E.AT11      ISSUE WARNING                               FC5A441    61
                                                                                                                 FC5A441    62
          4111                           CDIX     BSS    0           ... EXIT ...                                FC5A421     9
          4111  5110004127 +                      SA1    CDIA        RESTORE B2                                  FC5A421    10
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   156
        SUBROUTINES.                                                  CDI 
  
                          54211                   SA2    A1+B1       RESTORE B7                                  FC5A421    11
                               63210              SB2    X1                                                      FC5A421    12
          4112  63720                             SB7    X2                                                      FC5A421    13
                                                                                                                 FC5A421    14
          4113  0400404113 +             CDI      SUBR   -           ... ENTRY ...                               FC5A421    15
          4114  76620                             SX6    B2          SAVE B2  (USED BY BBC)                      FC5A421    16
                     76770                        SX7    B7          SAVE B7                                     FC5A421    17
                          5160004127 +            SA6    CDIA                                                    FC5A421    18
          4115  54761                             SA7    A6+B1                                                   FC5A421    19
                     76410                        SX4    B1          INDICATE SOURCE OPERAND                     FC5A441    63
                          0100004431 +            CALL   SCB         SET CHARACTER BOUNDS                        FC5A441    64
          4116  5110004503 +                      SA1    SCBB        GET TARGET LOWER BOUND                      FC5A441    65
                          5120004504 +            SA2    SCBC        GET TARGET UPPER BOUND                      FC5A441    66
          4117  0306004124 +                      ZR     X6,CDI50    IF VARIABLE L.B.                            FC50189   154
                          0307004126 +            ZR     X7,CDI60    IF VARIABLE U.B.                            FC50189   155
          4120  37016                             IX0    X1-X6                                                   FC50189   156
                     0320004122 +                 PL     X0,CDI40    IF TARGET L.B. >= L.B.                      FC50189   157
                               37226              IX2    X2-X6                                                   FC50189   158
          4121  0322004110 +                      PL     X2,CDI00    IF TARGET U.B. >= L.B.                      FC50189   159
                          0400004111 +            EQ     CDIX        EXIT                                        FC5A421    25
                                                                                                                 FC50189   161
          4122  0300004110 +             CDI40    ZR     X0,CDI00    IF TARGET L.B. = L.B.                       FC50189   162
                          37071                   IX0    X7-X1                                                   FC50189   163
          4123  0320004110 +                      PL     X0,CDI00    IF U.B. >= TARGET L.B.                      FC50189   164
                          0400004111 +            EQ     CDIX        EXIT                                        FC5A421    26
                                                                                                                 FC50189   166
          4124  37071                    CDI50    IX0    X7-X1                                                   FC50189   167
                     0330004111 +                 MI     X0,CDIX     IF U.B. < TARGET L.B.                       FC5A421    27
                               37027              IX0    X2-X7                                                   FC50189   169
          4125  0330004111 +                      MI     X0,CDIX     IF TARGET U.B. < U.B.                       FC5A421    28
                          0400004110 +            EQ     CDI00       GO ISSUE WARNING                            FC50189   171
                                                                                                                 FC50189   172
          4126  10766                    CDI60    BX7    X6                                                      FC50189   173
                     0400004124 +                 EQ     CDI50       SET U.B. = L.B.                             FC50189   174
                                                                                                                 FC5A421    29
          4127                     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
          4131  0400404131 +             CIL      SUBR               ...ENTRY/EXIT...                            PAR      6583
          4132  20353                             SBIT   X3,WB.LEVP/WB.ARYP                                      PAR      6584
                     0323004131 +                 PL     X3,EXIT.    IF NOT LEVEL NAME                           PAR      6585
                               20353              LX3    WB.LEVP+1-WB.LEVNP    RIGHT-JUSTIFY LEVEL NUMBER        PAR      6586
          4133  43272                             MX2    -WB.LEVNL                                               PAR      6587
                     15232                        BX2    -X2*X3      (X2) = LEVEL NUMBER                         PAR      6588
                          7222777774              SX2    X2-3                                                    PAR      6589
          4134  0312004131 +                      NZ     X2,EXIT.    IF NOT LEVEL 3                              PAR      6590
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   157
        SUBROUTINES.                                                  CIL 
  
                                                                                                                 PAR      6591
                                        *         HERE IF LEVEL 3 TAG.                                           PAR      6592
                                                                                                                 PAR      6593
                          5130000000 X            SA3    ARGMODE                                                 PAR      6594
          4135  20322                             HX3    AM.LEV3                                                 PAR      6595
                     0333004131 +                 MI     X3,EXIT.    IF LEVEL 3 PERMITTED                        PAR      6596
          4136  5130000000 X                      SA3    DATFLG                                                  FC50023     4
                          0313004131 +            NZ     X3,EXIT.    IF IN DATA STATEMENT                        FC50023     5
                                                                                                                 PAR      6597
                                        *         HERE IF ILLEGAL USE OF LEVEL 3.                                PAR      6598
                                                                                                                 PAR      6599
          4137  6170000000 X                      FATAL  E.LV11                                                  PAR      6600
          4140  0400004131 +                      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
          4141  0400404141 +             CLC      SUBR   0           ENTRY/EXIT...                               PAR      6626
          4142  10755                             BX7    X5                                                      PAR      6627
                     56760                        SA7    B6          PUSH  OI                                    PAR      6628
                          66661                   SB6    B6+B1                                                   PAR      6629
                               10411              BX4    X1                                                      FC5A132    80
          4143  10155                             BX1    X5                                                      FC5A132    81
                     0100004355 +                 RJ     GOL         GET OPERAND LENGTH                          FC5A132    82
          4144  10144                             BX1    X4                                                      FC5A132    83
                     0337004146 +                 MI     X7,CLC10    IF OPERAND LENGTH NOT DETERMINABLE          FC5A132    84
                               37047              IX0    X4-X7                                                   FC5A132    85
          4145  0300004156 +                      ZR     X0,CLC80    IF OPERAND LENGTH = DLEN                    FC5A132    86
                                                                                                                 FC5A132    87
          4146  5120000000 X             CLC10    SA2    N.CT        NDX = N.CT                                  FC5A132    88
                          10711                   BX7    X1                                                      PAR      6633
          4147  7130000011                        CW     X3,X7       WINC = (DLEN+9) / 10                        PAR      6634
                               36623              IX6    X2+X3       (N.CT) = (N.CT) + WINC                      PAR      6635
          4151  54620                             SA6    A2                                                      PAR      6636
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   158
        SUBROUTINES.                                                  CLC 
  
                                        *                            T2 = ECS (DLEN, NDX, S=CT)                  PAR      6637
                     5130000000 X                 SA3    S=CT                                                    PAR      6638
          4152  0100004274 +                      RJ     ECS         EMIT CHARACTER SUBSTRING                    PAR      6639
          4153  5130000351 +                      SA3    STRHOP                                                  PAR      6640
                          57561                   SA5    B6-B1       (2OP) = T2                                  PAR      6641
                               10633              BX6    X3                                                      PAR      6642
          4154  55451                             SA4    A5-B1       (1OP) = OI                                  PAR      6643
                     5160000003 +                 SA6    SOPR                                                    PAR      6644
          4155  0100004031 +                      RJ     ADT         PUSH   ADT (V=STR.H, OI, T2)                PAR      6645
                                                                                                                 PAR      6646
          4156  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
                          0400004141 +            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
          4157  0400404157 +             CLM      SUBR   0           ENTRY/EXIT...                               PAR      6666
          4160  10711                             BX7    X1                                                      PAR      6667
                     5170004166 +                 SA7    CLMA                                                    PAR      6668
          4161  0100004167 +                      RJ     CMR         COERCE MODE OF RESULT                       PAR      6669
          4162  5110000002 +                      SA1    SMOD                                                    PAR      6670
                          0570004157 +            NZ     B7,EXIT.    IF ERROR IN CONVERSION                      PAR      6671
          4163  7261777771                        SX6    X1-M.CHAR                                               PAR      6672
                          0316004157 +            NZ     X6,EXIT.    IF DOMINANT MODE NOT CHARACTER              PAR      6673
          4164  5110004166 +                      SA1    CLMA                                                    PAR      6674
                          0100004141 +            RJ     CLC         COERCE CHARACTER LENGTH                     PAR      6675
          4165  66700                             SB7    B0          (**** TEMP ****)  INDICATE NO ERROR         PAR      6676
                                        **FV             NEED ERROR FOR CONTEXTS WHERE PADDING IS ILLEGAL.       PAR      6677
                     0400004157 +                 EQ     EXIT.                                                   PAR      6678
                                                                                                                 PAR      6679
          4166                     1     CLMA     BSS    1                                                       PAR      6680
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4167  0400404167 +             CMR      SUBR   =           ...ENTRY/EXIT...                            PAR      6701
          4170  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
          4171  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
          4172  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
          4173  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
          4174  0303004210 +                      ZR     X3,CMR60    IF NO CONVERSION NECESSARY                  PAR      6718
                          7213777400              SX1    X3-1S8+1                                                PAR      6719
          4175  0301004211 +                      ZR     X1,CMR90    IF MODE CONVERSION ERROR                    PAR      6720
                          10155                   BX1    X5                                                      PAR      6722
          4176  0100000000 X                      CALL   LCT         LOAD BINARY OF CONSTANT                     PAR      6723
          4177  0420004204 +                      ZR     B2,CMR30    IF NOT CONSTANT                             PAR      6724
                          5110000002 +            SA1    SMOD                                                    PAR      6725
          4200  0100000000 X                      CALL   KCV         CONVERT CONSTANT VALUE                      PAR      6726
                                         .T       IFEQ   TEST,ON,1                                               PAR      6727
          4201  0720404201 +                      MI     B2,"BLOWUP" IF ILLEGAL CONVERSION (WE ALREADY CHECKED)  PAR      6728
                          0602004210 +            LE     B2,CMR60    IF OLD VALUE IS CORRECT                     PAR      6729
          4202  0100000000 X                      CALL   NBC         ENTER BINARY OF CONSTANT                    PAR      6730
          4203  10566                             BX5    X6                                                      PAR      6731
                     66700                        SB7    B0                                                      PAR      6732
                          0400004167 +            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
          4204  5120000334 +             CMR30    SA2    MCVOP                                                   PAR      6739
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   160
        SUBROUTINES.                                                  CMR 
  
                          20352                   LX3    SP.SKELP                                                FC50104   177
                               36623              IX6    X2+X3       (TH.SKEL) = BASE + OFFSET                   PAR      6741
          4205  6166000002                        SB6    B6+2        ADVANCE ESTACK FOR ADT                      PAR      6742
                          5160000003 +            SA6    SOPR                                                    PAR      6743
          4206  36323                             IX3    X2+X3       (X3) = (SOPR)                               PAR      6744
                     0100004031 +                 RJ     ADT         ADD CONVERSION TURPLE                       PAR      6745
          4207  6166777776                        SB6    B6-1        REMOVE RESULT FROM ESTACK                   PAR      6746
                                                                                                                 PAR      6747
          4210  56560                    CMR60    SA5    B6          RETURN (X5) = COERCED RESULT                PAR      6748
                     66700                        SB7    B0                                                      PAR      6749
                          0400004167 +            EQ     EXIT.                                                   PAR      6750
                                                                                                                 PAR      6751
          4211  5216000000 X             CMR90    SA1    X6+MOD.DPC                                              PAR      6752
                          5224000000 X            SA2    X4+MOD.DPC                                              PAR      6753
          4212  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
          4213  6170000000 X                      SB7    E.AT19      ** <AM> CANNOT BE CONVERTED TO <DM>         PAR      6757
                          55671                   SA6    A7-B1                                                   PAR      6758
          4214  0400004167 +                      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
          4215  0400404215 +             COR      SUBR               ENTRY/EXIT...                               PAR      6776
          4216  10011                             BX0    X1                                                      PAR      6777
                     20061                        SBIT   X0,TP.INTRP                                             PAR      6778
                          0320004215 +            PL     X0,EXIT.    IF NOT INTERMEDIATE                         PAR      6779
          4217  5120000000 X                      SA2    T=PAR                                                   PAR      6780
                                                  HX1    TP.ORD                                                  PAR      6781
                          21154                   AX1    TP.ORDP                                                 PAR      6782
          4220  7272777774                        SX7    X2-Z=TURP                                               PAR      6783
                          37017                   IX0    X1-X7                                                   PAR      6784
          4221  5110000006 +                      SA1    LASTAD                                                  PAR      6785
                          0400004215 +            EQ     EXIT.                                                   PAR      6786
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4222  0400404222 +             DBE      SUBR               ...ENTRY/EXIT...                            PAR      6797
          4223  5110000000 X                      SA1    CDBB                                                    PAR      6798
                          54211                   =A2    A1+1                                                    PAR      6799
                               22701              LX7    X1                                                      PAR      6800
          4224  22602                             LX6    X2                                                      PAR      6801
                     5170000000 X                 SA7    FILL.                                                   PAR      6802
                               54671              =A6    A7+1                                                    PAR      6803
          4225  0100000000 X                      FATAL  B7                                                      PAR      6804
          4226  0400004222 +                      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
          4227  0400404227 +             DDC      SUBR               ENTRY/EXIT...                               FC50014    50
          4230  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
          4231  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
          4232  0570004227 +                      NZ     B7,EXIT.    IF NEITHER 1OP NOR 2OP IS COMPLEX           FC50014    61
                          6271777773              SB7    X1-M.DBL                                                FC50014    62
          4233  0570004227 +                      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
          4235  0400004227 +                      EQ     EXIT.                                                   FC50014    65
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4236  0400404236 +             DOA      SUBR   =           ENTRY/EXIT...                               PAR      6840
          4237  10155                             BX1    X5                                                      PAR      6841
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          PAR      6842
          4240  10255                             BX2    X5                                                      PAR      6843
                     6170000000 X                 SB7    ERL=CON                                                 PAR      6844
          4241  0520004266 +                      NZ     B2,DOA8     IF CONSTANT                                 PAR      6845
                          6170000000 X            SB7    ERL=XPR                                                 PAR      6846
          4242  20270                             HX2    TP.EXPR                                                 PAR      6847
                     0332004266 +                 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
          4243  20265                             LX2    TP.EXPRP-TP.INTRP                                       PAR      6854
                     0322004257 +                 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
          4244  0331404244 +                      MI     X1,"BLOWUP" IF NEGATIVE ORDINAL                         PAR      6859
                          5130000000 X            SA3    T=PAR                                                   PAR      6860
          4245  37713                             IX7    X1-X3                                                   PAR      6861
                     0327404245 +                 PL     X7,"BLOWUP" IF ORDINAL .GE. TABLE LENGTH                PAR      6862
                                         .T       ENDIF                                                          PAR      6863
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   163
        SUBROUTINES.                                                  DOA 
  
          4246  5130000000 X                      SA3    T.PAR                                                   PAR      6864
                          36713                   IX7    X1+X3                                                   PAR      6865
                               53370              =A3    X7+OR.OPR                                               PAR      6866
          4247  54131                             =A1    A3-OR.OPR+OR.1OP                                        PAR      6867
                     20271                        LX2    TP.INTRP-TP.ARRP                                        PAR      6868
                          0332004257 +            MI     X2,DOA6     IF ARRAY ELEMENT                            PAR      6869
                                                  HX3    TH.SKEL                                                 PAR      6870
          4250  21356                             AX3    -TH.SKELL                                               PAR      6871
                     7170000000 X                 SX7    V=SUBST                                                 PAR      6872
                               37637              IX6    X3-X7                                                   PAR      6873
          4251  0316004266 +                      NZ     X6,DOA8     IF NOT SUBSTRING INTERMEDIATE               PAR      6874
                          10211                   BX2    X1                                                      PAR      6875
                               20261              HX2    TP.INTR                                                 PAR      6876
          4252  0322004257 +                      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
          4253  0331404253 +                      MI     X1,"BLOWUP" IF NEGATIVE ORDINAL                         PAR      6887
                          5130000000 X            SA3    =XT=PAR                                                 PAR      6888
          4254  37713                             IX7    X1-X3                                                   PAR      6889
                     0327404254 +                 PL     X7,"BLOWUP" IF ORDINAL .GE. TABLE LENGTH                PAR      6890
                                         .T       ENDIF                                                          PAR      6891
          4255  5130000000 X                      SA3    T.PAR                                                   PAR      6892
                          36713                   IX7    X1+X3                                                   PAR      6893
                               53171              =A1    X7+OR.1OP                                               PAR      6894
          4256  20271                             LX2    TP.INTRP-TP.ARRP                                        PAR      6895
                     0322004266 +                 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
          4257  0331404257 +                      MI     X1,"BLOWUP" IF ILL ORDINAL                              PAR      6903
                          10311                   BX3    X1                                                      PAR      6904
                                                  LX3    TP.ORDL+TP.ORDP                                         PAR      6905
                                                  HX3    TP.ORD                                                  PAR      6906
                               21354              AX3    -TP.ORDL    (X3) = SYMORD OF OPERAND                    PAR      6907
          4260  5120000000 X                      SA2    T=SYM                                                   PAR      6908
                          22713                   LX7    X3,B1                                                   PAR      6909
                               36737              IX7    X3+X7                                                   PAR      6910
                                   0              ERRNZ  3-Z=SYM                                                 PAR      6911
          4261  37772                             IX7    X7-X2                                                   PAR      6912
                     0327404261 +                 PL     X7,"BLOWUP" IF ORDINAL .GE. SYMTAB LENGTH               PAR      6913
                                         .T       ENDIF                                                          PAR      6914
                                                                                                                 PAR      6915
                               21154              AX1    -TP.ORDL                                                PAR      6916
          4262  5120000000 X                      SA2    T.SYM                                                   PAR      6917
                          22711                   LX7    X1,B1                                                   PAR      6918
                               63721              =B7    X2+WB.W                                                 PAR      6919
          4263  36371                             IX3    X7+X1       (X3) = SYMTAB INDEX                         PAR      6920
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
                               10122              BX1    X2                                                      PAR      6924
                                         .T       IFEQ   TEST,ON                                                 PAR      6925
          4264  20170                             HX1    WB.LAB                                                  PAR      6926
                     0331404264 +                 MI     X1,"BLOWUP" IF STATEMENT LABEL                          PAR      6927
                               20104              LX1    WB.LABP+1                                               PAR      6928
                                         .T       ENDIF                                                          PAR      6929
          4265  20166                             HX1    WB.VAR                                                  PAR      6930
                     0400004236 +                 EQ     EXIT.                                                   PAR      6931
                                                                                                                 PAR      6932
                                        *         OPERAND IS EXPRESSION OR CONSTANT.  SET UP ERROR LITERAL,      PAR      6933
                                        *         AND RETURN PARAMETERS.                                         PAR      6934
                                                                                                                 PAR      6935
          4266  56170                    DOA8     SA1    B7                                                      PAR      6936
                     10611                        BX6    X1          (FILL.3) = WORD FOR DIAGNOSTIC              PAR      6937
                          5120000000 X            SA2    S=BU                                                    PAR      6938
          4267  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
          4270  5160000000 X                      SA6    FILL.3                                                  PAR      6943
                          0400004236 +            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
          4271  0400404271 +             ECC      SUBR   =           ENTRY/EXIT...                               PAR      6967
          4272  5130000000 X                      SA3    S=CON                                                   PAR      6968
                          0100004274 +            RJ     ECS         EMIT CHARACTER SUBSTRING                    PAR      6969
          4273  0400004271 +                      EQ     EXIT.                                                   PAR      6970
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4274  0400404274 +             ECS      SUBR   0           ENTRY/EXIT...                               PAR      7001
          4275  7160000006                        =X6    M.CHAR                                                  PAR      7002
                          76510                   SX5    B1                                                      PAR      7003
                               20354              LX3    TP.ORDP                                                 PAR      7004
          4276  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
          4300  7100010002                        CLAS=  X0,TP,(SHRT),INT                                        PAR      7010
                          5130000331 +            SA3    COLOP                                                   PAR      7011
          4301  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
          4302  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
          4303  5170000003 +                      SA7    SOPR                                                    PAR      7019
                          12560                   BX5    X6+X0       FORM (2OP) = LAST                           PAR      7020
          4304  0100004031 +                      RJ     ADT         EMIT COLON TURPLE                           PAR      7021
                                                                                                                 PAR      7022
          4305  5130000332 +                      SA3    SUBST                                                   PAR      7023
                          57561                   SA5    B6-B1       (4OP) = RESULT OF COLON TURPLE              PAR      7024
                               10733              BX7    X3                                                      PAR      7025
          4306  5170000003 +                      SA7    SOPR                                                    PAR      7026
                          55451                   SA4    A5-B1       (3OP) = SYMORD (SYO)                        PAR      7027
          4307  0100004031 +                      RJ     ADT         FINISH SUBSTRING TURPLE                     PAR      7028
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   166
        SUBROUTINES.                                                  ECS 
  
          4310  0400004274 +                      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
          4311  0400404311 +             EMT      SUBR   =           ENTRY/EXIT...                               PAR      7055
          4312  66233                             SB2    B3+B3                                                   PAR      7056
                     0720004314 +                 MI     B2,EMT2     IF TABLE PRESET IN (A1)                     PAR      7057
          4313  5110000000 X                      SA1    T.PAR                                                   PAR      7058
          4314  7100000003               EMT2     ALLOC  A1,Z=TURP   RESERVE ROOM FOR TURPLE                     PAR      7059
          4315  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
          4316  57771                             =A7    B7-Z=TURP+OR.2OP                                        PAR      7064
                     22604                        LX6    X4                                                      PAR      7065
                          55671                   =A6    A7-OR.2OP+OR.1OP                                        PAR      7066
          4317  0730004322 +                      MI     B3,EMT4     IF SETOP ADDRESS GIVEN                      PAR      7067
                          43060                   MX0    -12                                                     PAR      7068
                               15220              BX2    -X0*X2      ISOLATE SKELETON ORDINAL                    PAR      7069
          4320  21314                             AX3    12                                                      PAR      7070
                     5233000340 +                 SA3    X3+OPDUM                                                PAR      7071
                               20252              LX2    SP.SKELP                                                FC50104   178
          4321  12332                             BX3    X3+X2                                                   PAR      7073
                     0400004323 +                 EQ     EMT5                                                    PAR      7074
                                                                                                                 PAR      7075
          4322  5233000000               EMT4     SA3    X3+         FETCH OPERATOR WORD                         PAR      7076
          4323  5120004753 +             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
          4324  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/05. 19.59.39.      PAGE   167
        SUBROUTINES.                                                  EMT 
  
                               12626              BX6    X2+X6       REPOSITION SKELETON INDEX                   FC50104   184
          4325  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
                          5120000000 X            SA2    CO.SNAP                                                 PAR      7082
                                                  HX6    TH.SKEL                                                 PAR      7083
          4326  7170000000 X                      SX7    =XZ.SKCR                                                PAR      7084
                          21656                   AX6    -TH.SKELL                                               PAR      7085
                               37767              IX7    X6-X7                                                   PAR      7086
          4327  20221                             LX2    1RQ                                                     PAR      7087
                     16767                        BX7    -X7+X6      .MI. IFF NOT (0 .LE. SKEL .LT. MAX)         PAR      7088
                          0327004331 +            PL     X7,EMT8     IF SKEL OKAY                                PAR      7089
          4330  6170000000 X                      FATAL  E.ZEMT      ** SKEL ILL                                 PAR      7090
          4331  12227                    EMT8     BX2    X2+X7                                                   PAR      7091
                     0322004333 +                 PL     X2,EMT9     IF NOT ((SNAP=Q) OR (SKEL ILL))             PAR      7092
          4332  7100004311 +                      SX0    EMT                                                     PAR      7093
                          0100000000 X            CALL   SN.EMT                                                  PAR      7094
          4333  0337404333 +             EMT9     MI     X7,"BLOWUP" IF SKEL ILL                                 PAR      7095
                                         .T       ENDIF                                                          PAR      7096
                          0400004311 +            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
          4334  0400404334 +             FAT      SUBR   =           ENTRY/EXIT...                               PAR      7113
          4335  5120000000 X                      SA2    T=IOARG                                                 PAR      7114
                          37024                   IX0    X2-X4       (X0) = WORD COUNT OF TURPLES TO BE MOVED    PAR      7115
          4336  0300004334 +                      ZR     X0,EXIT.    IF NO TURPLES TO MOVE                       PAR      7116
                                         .T       IFEQ   TEST,ON,1                                               PAR      7117
                          0330404336 +            MI     X0,"BLOWUP"       IF FLUSH REQUEST EXCEEDS TABLE LENGTH PAR      7118
          4337  5110000000 X                      ALLOC  T.PAR,X0                                                PAR      7119
          4340  5120000000 X                      SA2    T.IOARG                                                 PAR      7120
                          5110000000 X            SA1    T=IOARG                                                 PAR      7121
          4341  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
          4342  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
          4343  0400004334 +                      EQ     EXIT.                                                   PAR      7129
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4344  0400404344 +             FSA      SUBR               ENTRY/EXIT...                               PAR      7145
          4345  7120052000                        CLAS=  X2,TP,(INTR,SHRT,GL)                                    PAR      7146
                          11021                   BX0    X2*X1                                                   PAR      7147
                               67701              SB7    -B1                                                     PAR      7148
          4346  0310004344 +                      NZ     X0,EXIT.    IF OPERAND NOT A SYMBOL                     PAR      7149
                          43254                   MX2    -TP.ORDL                                                PAR      7150
                               20120              LX1    -TP.ORDP                                                PAR      7151
          4347  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
          4350  5120000000 X                      SA2    T=SYM                                                   PAR      7158
                          37212                   IX2    X1-X2                                                   PAR      7159
          4351  0322404351 +                      PL     X2,"BLOWUP"       IF (INDEX) .GE. (SYMTAB LENGTH)       PAR      7160
                                         .T       ENDIF                                                          PAR      7161
                          5110000000 X            SA1    T.SYM                                                   PAR      7162
          4352  53217                             SA2    X1+B7       FETCH SYMTAB (WB)                           PAR      7163
                     10122                        BX1    X2                                                      PAR      7164
                                         .T       IFEQ   TEST,ON                                                 PAR      7165
                          20170                   HX1    WB.LAB                                                  PAR      7166
          4353  0331404353 +                      MI     X1,"BLOWUP"       IF STATEMENT LABEL                    PAR      7167
                          20172                   LX1    WB.LABP-WB.VARP                                         PAR      7168
                                         .T       ELSE                                                           PAR      7169
                                                  HX1    WB.VAR                                                  PAR      7170
                                         .T       ENDIF                                                          PAR      7171
          4354  0400004344 +                      EQ     EXIT.                                                   PAR      7172
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4355  0400404355 +             GOL      SUBR   =           ENTRY/EXIT...                               FC5A171A  344
                                         .T       IFEQ   TEST,ON                                                 PAR      7185
          4356  10511                             BX5    X1                                                      PAR      7186
                     20557                        HX5    TP.SHRT                                                 PAR      7187
                          0335404356 +            MI     X5,"BLOWUP" IF SHORT CON                                PAR      7188
          4357  20515                             LX5    TP.SHRTP+1-TP.MODEP                                     PAR      7189
                     43071                        MX0    -TP.MODEL                                               PAR      7190
                          15050                   BX0    -X0*X5                                                  PAR      7191
          4360  6270777771                        SB7    X0-M.CHAR                                               PAR      7192
                          0570404360 +            NZ     B7,"BLOWUP" IF NOT CHARACTER OPERAND                    PAR      7193
                                         .T       ENDIF                                                          PAR      7194
                                                                                                                 PAR      7195
          4361  7160000000                        SX6    0                                                       PAR      7196
                          5160004406 +            SA6    GOLA        FLAG NOT SUBSTRING                          PAR      7197
                                                                                                                 PAR      7198
          4362  10511                    GOL10    BX5    X1                                                      PAR      7199
                     20561                        HX5    TP.INTR                                                 PAR      7200
                                                                                                                 PAR      7201
          4363  43054                    GOL20    MX0    -TP.ORDL                                                PAR      7202
                     20120                        LX1    -TP.ORDP                                                PAR      7203
                          15110                   BX1    -X0*X1                                                  PAR      7204
          4364  0335004367 +                      MI     X5,GOL30    IF OPERAND IS INTERMEDIATE                  PAR      7205
                          0100000000 X            CALL   GCL         GET CHARACTER LENGTH                        PAR      7206
          4365  12612                             BX6    X1+X2       CHAR LENGTH OR -0                           PAR      7207
                     5110004406 +                 SA1    GOLA                                                    PAR      7208
                               12716              BX7    X1+X6       IF SUBSTRING, NOT EXACT LENGTH              PAR      7209
          4366  0400004355 +                      EQ     EXIT.                                                   PAR      7210
                                                                                                                 PAR      7211
                                        *         OPERAND IS INTERMEDIATE.  MAY BE SUBSTRING, ARRAY, FUNCTION    PAR      7212
                                        *         OR CONCATANATION.                                              PAR      7213
                                                                                                                 PAR      7214
          4367  5120000000 X             GOL30    SA2    T.PAR                                                   PAR      7215
                          63220                   =B2    X2+OR.OPR                                               PAR      7216
                               53312              SA3    B2+X1       OPERATOR WORD                               PAR      7217
          4370  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
          4371  43500                             MX5    0                                                       PAR      7223
                     7127000000 X                 SX2    B7+V=CAT                                                PAR      7224
          4372  7107000000 X                      SX0    B7+V=SUBST                                              PAR      7225
                          0302004404 +            ZR     X2,GOL50    IF CONCAT                                   PAR      7226
          4373  0310004363 +                      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/05. 19.59.39.      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
          4374  5160004407 +                      SA6    GOLB        SAVE SUBSTRING 1OP                          PAR      7235
                          54311                   =A3    A1+OR.2OP-OR.1OP                                        PAR      7236
                               43054              MX0    -TP.ORDL                                                PAR      7237
          4375  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
          4376  54311                             =A3    A1+OR.2OP-OR.1OP  2OP OF COLON                          PAR      7242
                     0100000000 X                 CALL   LCT         EVALUATE 1OP                                PAR      7243
          4377  0521004402 +                      NE     B2,B1,GOL40 IF NOT CONSTANT                             PAR      7244
                          10133                   BX1    X3                                                      PAR      7245
          4400  7236777776                        SX3    X6-1        FIRST - 1                                   PAR      7246
                          0100000000 X            CALL   LCT         EVALUATE 2OP                                PAR      7247
          4401  37763                             IX7    X6-X3       SUBSTRING LENGTH                            PAR      7248
                     10677                        BX6    X7                                                      PAR      7249
                          0421004355 +            EQ     B2,B1,EXIT. IF CONSTANT                                 PAR      7250
                                                                                                                 PAR      7251
          4402  5110004407 +             GOL40    SA1    GOLB        RESET OPERAND TO SUBSTRING SYMBOL           PAR      7252
                          43674                   MX6    60                                                      PAR      7253
          4403  5160004406 +                      SA6    GOLA        FLAG SUBSTRING                              PAR      7254
                          0400004362 +            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
          4404  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
          4405  0400004355 +                      EQ     EXIT.                                                   PAR      7263
                                                                                                                 PAR      7264
          4406                     1     GOLA     BSS    1                                                       PAR      7265
          4407                     1     GOLB     BSS    1                                                       PAR      7266
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4410  0400404410 +             OMC      SUBR   =           ENTRY/EXIT...                               FC5A150   511
          4411  5110000002 +                      SA1    SMOD                                                    PAR      7294
                          73610                   SX6    X1          (X6) = DOMINANT MODE                        PAR      7295
                               21122              AX1    18                                                      PAR      7296
          4412  0301004410 +                      ZR     X1,EXIT.    IF NO CONVERSION REQUIRED                   PAR      7297
                                                                                                                 PAR      7298
                          10733                   BX7    X3                                                      PAR      7299
          4413  5170004426 +                      SA7    OMCA        SAVE (X3)                                   PAR      7300
                          10755                   BX7    X5                                                      PAR      7301
                               54771              SA7    A7+B1       SAVE (2OP) = (X5)                           PAR      7302
          4414  10744                             BX7    X4                                                      PAR      7303
                     54771                        SA7    A7+B1       SAVE (1OP) = (X4)                           PAR      7304
                          5221004423 +            SA2    X1+OMC.RC                                               PAR      7305
          4415  5251004426 +                      SA5    X1+OMCA     (X5) = OPERAND TO CONVERT                   PAR      7306
                          10722                   BX7    X2          PLUG RESTORE CODE                           PAR      7307
          4416  5170004422 +                      SA7    OMC.RR                                                  PAR      7308
                          0100004167 +            RJ     CMR         COERCE MODE OF RESULT                       PAR      7309
          4417  0570404417 +                      NZ     B7,"BLOWUP"       IF CONVERSION NOT POSSIBLE            PAR      7310
                          5130004426 +            SA3    OMCA                                                    PAR      7311
          4420  10655                             BX6    X5                                                      PAR      7312
                     22703                        LX7    X3                                                      PAR      7313
                          57661                   SA6    B6-B1       SET ESTACK[TOP] = NEW RESULT                PAR      7314
          4421  5170000003 +                      SA7    SOPR        RESTORE (SOPR) = OPERATOR                   PAR      7315
                                                                                                                 PAR      7316
          4422                     1     OMC.RR   BSS    1           ** FILLED **                                PAR      7317
          4423  0400004410 +                      EQ     EXIT.                                                   PAR      7318
                                                                                                                 PAR      7319
                                        **        SKELETON RESTORE REGISTER WORDS.                               PAR      7320
                                                                                                                 PAR      7321
          4424  5140004430 +             OMC.X5   =A4    OMCA+2      RESTORE *X4*                                PAR      7322
                          5156777776              SA5    B6-1        RESET *X5* TO CONVERSION INTERMEDIATE       PAR      7323
          4425  5146777776               OMC.X4   SA4    B6-1        RESET *X4* TO CONVERSION INTERMEDIATE       PAR      7324
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   172
        SUBROUTINES.                                                  OMC 
  
                          5150004427 +            =A5    OMCA+1      RESTORE *X5*                                PAR      7325
                                                                                                                 PAR      7326
                                4423 +   OMC.RC   EQU    OMC.X5-1                                                PAR      7327
                                                                                                                 PAR      7328
          4426                     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
          4431  0400404431 +             SCB      SUBR   0           ... ENTRY/EXIT ...                          FC5A441    86
          4432  10655                             BX6    X5                                                      FC5A441    87
                     20661                        SBIT   X6,TP.INTRP                                             FC5A441    88
                          66700                   SB7    B0          (B7) = 0 IF SUBSTRING NOT PRESENT           FC5A441    89
          4433  0326004442 +                      PL     X6,SCB20    IF NOT TURPLE POINTER                       FC5A441    90
                          20520                   LX5    -TP.ORDP                                                FC5A441    91
                               43054              MX0    -TP.ORDL                                                FC5A441    92
          4434  15550                             BX5    -X0*X5      ISOLATE TURPLE ORDINAL                      FC5A441    93
                     63750                        SB7    X5                                                      FC5A441    94
                          5110000000 X            SA1    T.PAR                                                   FC5A441    95
          4435  53117                             SA1    X1+B7       TURPLE HEADER                               FC5A441    96
                     21156                        AX1    -TH.SKELL                                               FC5A441    97
                          14111                   BX1    -X1                                                     FC5A441    98
          4436  7211000000 X                      SX1    X1+V=SUBST                                              FC5A441    99
                          0311004441 +            NZ     X1,SCB10    IF NOT SUBSTRING                            FC5A441   100
          4437  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
          4440  0321004442 +                      PL     X1,SCB20    IF STATIC VARIABLE                          FC5A441   105
                                                                                                                 FC5A441   106
          4441  0304002142 +             SCB10    ZR     X4,EQL99    IF TARGET - NO CHECKING                     FC5A441   107
                          0400004111 +            EQ     CDIX        IF SOURCE - NO CHECKING THIS ELEMENT        FC5A441   108
                                                                                                                 FC5A441   109
          4442  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
          4443  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/05. 19.59.39.      PAGE   173
        SUBROUTINES.                                                  SCB 
  
                               22617              LX6    X7,B1                                                   FC5A441   116
          4444  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
          4445  20652                             HX6    TP.EQV                                                  FC5A441   121
                     0326004447 +                 PL     X6,SCB30    IF NOT EQUIVALENCED                         FC5A441   122
                               43760              MX7    -WB.BASEL                                               FC5A441   123
          4446  20333                             LX3    -WB.BASEP                                               FC5A441   124
                     15737                        BX7    -X7*X3      (X7) = SYM ORD OF BASE ENTRY                FC5A441   125
                                                                                                                 FC5A441   126
          4447  0314004451 +             SCB30    NZ     X4,SCB40    IF SOURCE ELEMENT                           FC5A441   127
                          5170004502 +            SA7    SCBA        SAVE TARGET BASE ORD                        FC5A441   128
          4450  0400004453 +                      EQ     SCB50                                                   FC5A441   129
                                                                                                                 FC5A441   130
          4451  5120004502 +             SCB40    SA2    SCBA        COMPARE TARGET/SOURCE BASE ORDS             FC5A441   131
                          37027                   IX0    X2-X7                                                   FC5A441   132
          4452  0310004111 +                      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
          4453  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
          4454  7170000012                        SX7    10                                                      FC5A441   143
                          42667                   IX6    X6*X7       RA*10                                       FC5A441   144
                               43070              MX0    -WC.BCPL                                                FC5A441   145
          4455  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
          4456  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
          4457  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
          4460  36660                             IX6    X6+X0       RA*10 + BCP + BIAS*CLEN + 1                 FC5A441   158
                     0570004462 +                 NZ     B7,SCB60    IF SUBSTRING PRESENT                        FC5A441   159
                               36762              IX7    X6+X2       UPPER BOUND = (LOWER BOUND) + CLEN - 1      FC5A441   160
          4461  37770                             IX7    X7-X0                                                   FC5A441   161
                     0400004474 +                 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
          4462  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/05. 19.59.39.      PAGE   174
        SUBROUTINES.                                                  SCB 
  
                               15110              BX1    -X0*X1      COLON ORDINAL                               FC5A441   173
          4463  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
          4464  63711                             SB7    X1+B1                                                   FC5A441   178
                     5110000000 X                 SA1    T.PAR                                                   FC5A441   179
                               53117              SA1    X1+B7       FETCH LOWER SUBSTRING BOUND                 FC5A441   180
          4465  22201                             LX2    X1                                                      FC5A441   181
                     20157                        SBIT   X1,TP.SHRTP                                             FC5A441   182
                          0331004467 +            MI     X1,SCB62    IF SHORT CONSTANT                           FC5A441   183
          4466  43600                             MX6    0           SET VARIABLE LOWER BOUND                    FC5A441   184
                     0400004470 +                 EQ     SCB64                                                   FC5A441   185
                                                                                                                 FC5A441   186
          4467  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
          4470  54111                    SCB64    SA1    A1+B1       FETCH UPPER SUBSTRING BOUND                 FC5A441   191
                     22201                        LX2    X1                                                      FC5A441   192
                          20157                   SBIT   X1,TP.SHRTP                                             FC5A441   193
          4471  0321004473 +                      PL     X1,SCB67    IF NOT SHORT CONSTANT                       FC51168     9
                          20220                   HX2    TP.BIAS                                                 FC5A441   195
                               21244              AX2    -TP.BIASL   UPPER SUBSTRING BOUND                       FC5A441   196
          4472  36752                             IX7    X5+X2       FINAL UPPER BOUND VALUE                     FC5A441   197
                     0400004474 +                 EQ     SCB70                                                   FC51168    10
                                                                                                                 FC51168    11
          4473  7170077777               SCB67    SX7    77777B      SET SOURCE U.B. TO MAX LENGTH               FC51168    12
                                                                                                                 FC5A441   198
          4474  0314004431 +             SCB70    NZ     X4,EXIT.    IF CALLED FOR SOURCE ELEMENT                FC5A441   199
                          5160004503 +            SA6    SCBB        STORE LOWER BOUND                           FC5A441   200
          4475  0316004477 +                      NZ     X6,SCB80    IF LOWER BOUND NOT VARIABLE                 FC5A441   201
                          0307002142 +            ZR     X7,EQL99    IF BOTH VARIABLE - NO CHECKING              FC5A441   202
          4476  5170004503 +                      SA7    SCBB        STORE UPPER BOUND FOR BOTH                  FC5A441   203
                                                                                                                 FC5A441   204
          4477  5170004504 +             SCB80    SA7    SCBC        STORE UPPER BOUND                           FC5A441   205
                          0317004431 +            NZ     X7,EXIT.    IF UPPER BOUND NOT VARIABLE                 FC5A441   206
          4500  7170077777                        SX7    77777B      SET TARGET U.B. TO MAX LENGTH               FC51168    13
                          5170004504 +            SA7    SCBC        STORE UPPER BOUND                           FC51168    14
          4501  0400004431 +                      EQ     EXIT.       RETURN                                      FC5A441   208
                                                                                                                 FC5A441   209
          4502                     1     SCBA     BSS    1           BASE ORDINAL                                FC5A441   210
          4503                     1     SCBB     BSS    1           LOWER CHARACTER BOUND                       FC5A441   211
          4504                     1     SCBC     BSS    1           UPPER CHARACTER BOUND                       FC5A441   212
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4505  10633                    SDM90    BX6    X3                                                      PAR      7354
                     46000                        NO                                                             PAR      7355
                          5160000003 +            SA6    SOPR        UPDATE OPERATOR                             PAR      7356
                                                                                                                 PAR      7357
          4506  0400404506 +             SDM      SUBR   =           ENTRY/EXIT...                               PAR      7358
          4507  5110000000 X                      SA1    CO.ANSI                                                 FC50014    66
                          0301004511 +            ZR     X1,SDM5     IF ANSI NOT ON CONTROL CARD                 FC50014    67
          4510  0100004227 +                      RJ     DDC         DIAGNOSE DBL PREC. AND CPLX. EXPRESSION     FC50014    68
                                                                                                                 FC50014    69
          4511  43001                    SDM5     CLAS=  X0,SP,(SMD)                                             FC50104   189
                          11203                   BX2    X0*X3                                                   PAR      7360
                               22603              LX6    X3                                                      PAR      7361
          4512  0312004506 +                      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
          4513  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
          4514  20624                             HX6    SP.MDLS                                                 FC50104   192
                     5170000002 +                 SA7    SMOD        INITIALIZE (SMOD) = MODE1                   PAR      7371
                                                  LX4    TP.MODEP                                                PAR      7372
          4515  0336004505 +                      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
          4516  6272777733                        SB7    X2-O.SLP                                                PAR      7377
                          0470004505 +            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
          4517  22103                             LX1    X3                                                      PAR      7383
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   176
        SUBROUTINES.                                                  SDM 
  
                     15650                        BX6    -X0*X5      MODE2 = MODE OF (2OP)                       PAR      7384
                          20123                   HX1    SP.UNAR                                                 FC50104   195
          4520  0321004521 +                      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
          4521  66300                    SDM16    SB3    B0          TRY POINT = 0                               PAR      7393
                     37176                        IX1    X7-X6                                                   PAR      7394
                          0301004524 +            ZR     X1,SDM20    IF MODE1 .EQ. MODE2                         PAR      7395
          4522  66311                             =B3    2                                                       PAR      7396
                     0331004524 +                 MI     X1,SDM20    IF MODE1 .LT. MODE2                         PAR      7397
                               22607              LX6    X7          SET (X6) = DM = MODE1                       PAR      7398
          4523  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
          4524  7216777771               SDM20    SX1    X6-M.CHAR                                               PAR      7404
                                                  LX5    TP.MODEP                                                PAR      7405
                          0311004536 +            NZ     X1,SDM30    IF DM .NE. CHARACTER                        PAR      7406
                                   0              ERRNZ  M.CHAR+1-N.TYPE   ASSUMES CHAR IS LARGEST TYPE          PAR      7407
          4525  0430004531 +                      ZR     B3,SDM24    IF POINT .ZR.   /* BOTH ARE CHAR            PAR      7408
                          6170000000 X            SB7    E.AT13      ** CHARACTER AND OTHER TYPE MIXED           PAR      7409
          4526  0100000000 X             SDM22    FATAL  B7                                                      PAR      7410
          4527  66300                             SB3    B0          POINT = 0    /* INHIBIT CONVERSION          PAR      7411
                     7160000006                   =X6    M.CHAR                                                  PAR      7412
                               10766              BX7    X6                                                      PAR      7413
          4530  0400004550 +                      EQ     SDM40                                                   PAR      7414
                                                                                                                 PAR      7415
          4531  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
          4532  0321004526 +                      PL     X1,SDM22    IF THIS OPERATOR ILL FOR CHAR               PAR      7419
                          43052                   MX0    -SP.SKELL                                               FC50104   197
                               20322              LX3    -SP.SKELP                                               FC50104   198
          4533  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
          4534  5160000002 +                      SA6    SMOD                                                    PAR      7426
                          20352                   LX3    SP.SKELP                                                FC50104   199
          4535  0400004505 +                      EQ     SDM90       EXIT..                                      PAR      7428
                                                                                                                 PAR      7429
                                        *         IF MASKING OPERATOR, DETERMINE RESULT MODE.                    PAR      7430
                                                                                                                 PAR      7431
          4536  10133                    SDM30    BX1    X3                                                      PAR      7432
                     20130                        HX1    SP.MASK                                                 FC50104   200
                          0321004547 +            PL     X1,SDM37    IF NOT LOGICAL/MASKING                      PAR      7434
          4537  7216777776                        SX1    X6-M.LOG                                                PAR      7435
                          7227777776              SX2    X7-M.LOG                                                PAR      7436
          4540  0301004541 +                      ZR     X1,SDM32    IF DM = LOGICAL                             PAR      7437
                          0312004544 +            NZ     X2,SDM36    IF NEITHER (MODE1 NOR MODE2) IS LOGICAL     PAR      7438
          4541  0430004550 +             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/05. 19.59.39.      PAGE   177
        SUBROUTINES.                                                  SDM 
  
          4543  66300                             SB3    B0                                                      PAR      7441
                     76610                        =X6    M.LOG                                                   PAR      7442
                          0400004550 +            EQ     SDM40                                                   PAR      7443
                                                                                                                 PAR      7444
          4544  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
          4546  0400004550 +                      EQ     SDM40                                                   PAR      7448
                                                                                                                 PAR      7449
          4547  0316004550 +             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
          4550  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
          4551  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
          4552  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
          4553  0312004554 +                      NZ     X2,SDM44    IF MODE CONVERSION NECESSARY                PAR      7469
                          7266000000              SX6    X6+         POINT = 0                                   PAR      7470
          4554  5160000002 +             SDM44    SA6    SMOD                                                    PAR      7471
                          7212777400              SX1    X2-1S8+1                                                PAR      7472
          4555  6170000000 X                      SB7    E.AT01      LOGICAL AND OTHER TYPE OPERANDS MIXED       PAR      7473
                          0301004563 +            ZR     X1,SDM80    IF MODE CONVERSION ERROR                    PAR      7474
                                                                                                                 PAR      7475
                                        *         SELECT SPECIFIC SKELETON.                                      PAR      7476
                                        *                (B2) = 8 * DM                                           PAR      7477
                                                                                                                 PAR      7478
          4556  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
          4557  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
          4560  12661                             BX6    X6+X1                                                   PAR      7487
                     6270777400                   SB7    X0-1S8+1                                                PAR      7488
                               36360              IX3    X6+X0       (TH.SKEL) = BASE + DOMOFF                   PAR      7489
          4561  20352                             LX3    SP.SKELP                                                FC50104   203
                     0770004505 +                 MI     B7,SDM90    IF OPERATION DEFINED FOR THIS MODE          PAR      7491
          4562  6170000000 X                      SB7    E.AT01                                                  PAR      7492
                                                                                                                 PAR      7493
                                        *         ON ERROR, INHIBIT CONVERSION.                                  PAR      7494
                                        *                (B7) = ERROR MESSAGE ADDRESS.                           PAR      7495
                                                                                                                 PAR      7496
          4563  5130000317 +             SDM80    SA3    ERROP                                                   PAR      7497
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   178
        SUBROUTINES.                                                  SDM 
  
                          0100000000 X            FATAL  B7                                                      PAR      7498
          4564  5110000002 +                      SA1    SMOD                                                    PAR      7499
                          43001                   MX0    1                                                       PAR      7500
                               73710              SX7    X1          POINT = 0                                   PAR      7501
          4565  20050                             LX0    1+SP.MDLSP                                              FC50104   204
                     12303                        BX3    X0+X3       RESET OPERATOR MODELESS WHEN ERROR          PAR      7503
                          54710                   SA7    A1                                                      PAR      7504
          4566  0400004505 +                      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
          4567  0400404567 +             SPE      SUBR               ENTRY/EXIT...                               FC5A111    61
          4570  66310                             =B3    1           INITIALIZE *LP* COUNTER                     FC5A111    62
                     66200                        =B2    0           INITIALIZE *RP* COUNTER                     FC5A111    63
                                                                                                                 FC5A111    64
          4571  66441                    SPE10    =B4    B4+1                                                    FC5A111    65
                     56140                        SA1    B4                                                      FC5A111    66
                          0301004567 +            ZR     X1,EXIT.    IF *EOS*                                    FC5A111    67
          4572  6271777740                        SB7    X1-O.LP                                                 FC5A111    68
                          0470004575 +            ZR     B7,SPE20    IF *(*                                      FC5A111    69
          4573  6271777737                        SB7    X1-O.RP                                                 FC5A111    70
                          0470004576 +            ZR     B7,SPE30    IF *)*                                      FC5A111    71
          4574  0400004571 +                      EQ     SPE10                                                   FC5A111    72
                                                                                                                 FC5A111    73
          4575  66331                    SPE20    =B3    B3+1                                                    FC5A111    74
                     0400004571 +                 EQ     SPE10                                                   FC5A111    75
                                                                                                                 FC5A111    76
          4576  66221                    SPE30    =B2    B2+1                                                    FC5A111    77
                     0523004571 +                 NE     B2,B3,SPE10                                             FC5A111    78
                               67201              =B2    -1          INDICATE MATCHING *)* FOUND                 FC5A111    79
          4577  0400004567 +                      EQ     EXIT.                                                   FC5A111    80
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4600  0400404600 +             SQZ      SUBR               ENTRY/EXIT...                               PAR      7534
          4601  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
          4602  6270777736                        SB7    X0-O.=                                                  FC50104   209
                          0470004600 +            ZR     B7,EXIT.    CAN NOT SQUEEZE STORES                      FC50104   210
                                                  LX3    SP.TBPRP                                                FC50104   211
          4603  5120000000 X                      SA2    T=PAR                                                   PAR      7543
                          0302004600 +            ZR     X2,SQZ      IF T.PAR EMPTY                              FC51609     8
          4604  36012                             IX0    X1+X2       LWA+1                                       PAR      7544
                     5120000004 +                 SA2    CURST                                                   PAR      7545
          4605  6230777774                        =B3    X0-Z=TURP   LAST OPERATOR                               PAR      7546
                          36012                   IX0    X1+X2                                                   PAR      7547
                               63500              =B5    X0+OR.OPR   FWA                                         PAR      7548
          4606  5120004754 +                      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
          4607  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
          4610  12303                             BX3    X0+X3       CONVERT TO TH. FORMAT                       FC50104   222
                     5120000000 X                 SA2    =XCO.OPT                                                FC51322    11
          4611  0302004613 +                      ZR     X2,SQZ5     IF OPT .EQ. 0                               FC51322    12
                          0400004635 +            EQ     SQZ12       CHECK FOR INTEGER ADD OR SUB TURPLE SQUEEZE FC51322    13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   180
        SUBROUTINES.                                                  SQZ 
  
                                                                                                                 PAR      7551
                                        *         SCAN PARSED FILE BACKWARDS FOR MATCHING TURPLE.                PAR      7552
                                                                                                                 PAR      7553
          4612  6120777776               SQZ4     SB2    -1                                                      FC51322    14
                                                                                                                 FC51322    15
          4613  5113000000               SQZ5     SA1    B3+                                                     FC51322    16
                          5120004755 +            CLAS=  X2,TH,(SKEL,OVAL)                                       FC50104   224
          4614  0735004600 +                      LT     B3,B5,EXIT. IF FINISHED                                 PAR      7555
                          6133777774              =B3    B3-Z=TURP                                               PAR      7557
          4615  11621                             BX6    X2*X1       CLEAR IRRELEVANT FIELDS                     FC50104   225
                     13663                        BX6    X6-X3                                                   FC50104   226
                          0316004613 +            NZ     X6,SQZ5     IF DIFFERENT SKEL                           PAR      7562
                                                                                                                 PAR      7564
                                        *         OPERATOR IS THE SAME,  CHECK 2ND OPERAND.                      PAR      7565
                                                                                                                 PAR      7566
          4616  5021000002                        =A2    A1+OR.2OP   2ND OPERAND                                 FC50104   227
                          37725                   IX7    X2-X5                                                   PAR      7567
                               10611              BX6    X1          SAVE OPERATOR                               PAR      7568
          4617  0317004613 +                      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
          4620  0312004613 +                      NZ     X2,SQZ5     IF (1OP) DIFFERENT                          PAR      7575
                                                                                                                 PAR      7576
                                        *         ELIMINATE TURPLE,  SQUEEZE PERFORMED.                          PAR      7577
                                                                                                                 PAR      7578
          4621  7110000000 X             SQZ6     SX1    V=ARY                                                   FC51322    17
                          43056                   MX0    -TH.SKELL                                               FC50199     6
                               20616              LX6    -TH.SKELP                                               FC50199     7
          4622  15260                             BX2    -X0*X6      EXTRACT SKELETON ORDINAL                    FC50199     8
                     37221                        IX2    X2-X1                                                   FC50199     9
                          7130022000              CLAS=  X3,TP,(ARR,INTR)                                        FC50199    10
          4623  0302004624 +                      ZR     X2,SQZ7     IF SQUEEZED TURPLE WAS ARRAY LOAD           FC50199    11
                          7130002000              CLAS=  X3,TP,(INTR)                                            FC50199    12
                                                                                                                 FC50199    13
          4624  43070                    SQZ7     MX0    -TH.MODEL                                               FC50199    14
                     5110000000 X                 SA1    T.PAR                                                   PAR      7584
                               20634              LX6    TH.SKELP-TH.MODEP                                       FC50199    15
          4625  15560                             BX5    -X0*X6      DOMINANT MODE                               PAR      7587
                     6221777774                   =B2    X1-Z=TURP                                               PAR      7589
                               77432              SX4    B3-B2       ORDINAL                                     PAR      7590
          4626  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
          4627  5120000001 +                      SA2    ATTR                                                    FC50199    18
                          7130001020              CLAS=  X3,TP,(CAT,LCF)                                         FC50199    19
          4630  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
          4631  5110000000 X                      SA1    CO.SNAP                                                 PAR      7599
                          10211                   BX2    X1                                                      PAR      7600
                               20121              LX1    1RQ                                                     PAR      7601
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   181
        SUBROUTINES.                                                  SQZ 
  
          4632  20217                             LX2    1RO                                                     PAR      7602
                     12112                        BX1    X1+X2                                                   PAR      7603
                          0321004634 +            PL     X1,SQZ9     IF NEITHER SNAP=(O NOR Q) SELECTED          PAR      7604
          4633  0100004671 +                      RJ     SN.SQZ                                                  PAR      7605
          4634                           SQZ9     BSS                                                            PAR      7606
                                         SNAP=Q   ENDIF                                                          PAR      7607
          4634  0400004600 +                      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
          4635  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
          4636  7100000000 X                      SX0    V=ADD.I                                                 FC51322    28
                          37120                   IX1    X2-X0                                                   FC51322    29
          4637  6170000001                        SB7    1                                                       FC51322    30
                          0311004612 +            NZ     X1,SQZ4     IF NOT V=ADD.I                              FC51609    10
          4640  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
          4641  7100000000 X                      SX0    V=MUL.I                                                 FC51322    41
                          37120                   IX1    X2-X0                                                   FC51322    42
          4642  0311004612 +                      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
          4643  5021000001                        SA2    A1+OR.2OP-OR.1OP  SECOND OPERAND OF LAST ENTERED        FC51322    45
                          54020                   SA0    A2                                                      FC51322    46
                               10011              BX0    X1                                                      FC51322    47
          4644  20057                             LX0    59-TP.SHRTP                                             FC51322    48
                     0330004612 +                 MI     X0,SQZ4     IF SHORT CONSTANT                           FC51322    49
                               20002              LX0    TP.SHRTP-TP.INTRP                                       FC51322    50
          4645  0330004612 +                      MI     X0,SQZ4     IF INTERMEDATE                              FC51322    51
                          10022                   BX0    X2                                                      FC51322    52
                               20057              LX0    59-TP.SHRTP                                             FC51322    53
          4646  0320004612 +                      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
          4647  20161                             LX1    59-TP.INTRP                                             FC51322    57
                     20261                        LX2    59-TP.INTRP                                             FC51322    58
                          13012                   BX0    X1-X2                                                   FC51322    59
          4650  0320004612 +                      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
          4651  0331004652 +                      MI     X1,SQZ14    IF FIRST INTERMEDATE                        FC51322    63
                          22605                   LX6    X5          INTERMEDATE                                 FC51322    64
                               10744              BX7    X4          NON INTERMEDATE                             FC51322    65
                                                                                                                 FC51322    66
          4652  43020                   SQZ14     MX0    TP.ORDL                                                 FC51322    67
                     11106                        BX1    X0*X6                                                   FC51322    68
                          20120                   LX1    TP.ORDL                                                 FC51322    69
          4653  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/05. 19.59.39.      PAGE   182
        SUBROUTINES.                                                  SQZ 
  
          4654  0523004612 +                      NE     B2,B3,SQZ4  IF NOT LAST TURPLE                          FC51322    73
                          54210                   SA2    A1                                                      FC51322    74
                               13027              BX0    X2-X7                                                   FC51322    75
          4655  0310004612 +                      NZ     X0,SQZ4     IF OPERANDS NOT EQUAL                       FC51322    76
                          6133777774              SB3    B3-Z=TURP   UPDATE FOR PROPER INTR POINTER              FC51322    77
          4656  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
          4657  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
          4660  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
          4661  54700                             SA7    A0          2ND OPERAND OF LAST TURPLE (CONSTANT)       FC51322    90
                                                                                                                 FC51322    91
                                         .T       IFEQ   TEST,ON                                                 FC51322    92
                     5110000000 X                 SA1    CO.SNAP                                                 FC51322    93
                               10211              BX2    X1                                                      FC51322    94
          4662  20121                             LX1    1RQ                                                     FC51322    95
                     20217                        LX2    1RO                                                     FC51322    96
                          12112                   BX1    X1+X2                                                   FC51322    97
          4663  0321004667 +                      PL     X1,SQZ17    IF NEITHER SNAP=(O NOR Q) SELECTED          FC51322    98
                          0670004665 +            PL     B7,SQZ15    IF V=ADD.I SQUEEZED                         FC51322    99
          4664  0400004667 +                      EQ     SQZ17                                                   FC51322   103
          4665                           SQZ15    BSS                                                            FC51322   104
          4665  5120004717 +                      SA2    SQZE                                                    FC51322   105
                          10622                   BX6    X2                                                      FC51322   106
          4666  5160004712 +                      SA6    SQZB        SET V=ADD.I MSG                             FC51609    13
          4667                           SQZ17    BSS                                                            FC51322   108
                                         .T       ENDIF                                                          FC51322   109
                                                                                                                 FC51322   110
          4667  5020777775                        SA2    A0-OR.2OP                                               FC51322   111
                          10622                   BX6    X2          OPERATOR OF LAST TURPLE IN T.PAR            FC51322   112
          4670  0400004621 +                      EQ     SQZ6                                                    FC51322   113
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4671  0400404671 +             SN.SQZ   SUBR   0                                                       PAR      7622
          4672  0100000000 X                      CALL   SVR=        SAVE ALL REGISTERS                          PAR      7623
          4673  5130000003 X                      SA3    SV=B+3      FETCH [B3]                                  PAR      7624
                          5120000000 X            SA2    T.PAR                                                   PAR      7625
          4674  37032                             IX0    X3-X2                                                   PAR      7626
                     7210000003                   SX1    X0+Z=TURP                                               PAR      7627
          4675  0100000000 X                      CALL   COD         CONVERT TO OCTAL                            PAR      7628
          4676  20466                             LX4    -6                                                      PAR      7629
                     43036                        MX0    5*6                                                     PAR      7630
                          5110000000 X            SA1    T=PAR                                                   PAR      7631
          4677  11504                             BX5    X0*X4                                                   PAR      7632
                     0100000000 X                 CALL   COD         CONVERT TO OCTAL                            PAR      7633
          4700  43036                             MX0    -5*6                                                    PAR      7634
                     15460                        BX4    -X0*X6                                                  PAR      7635
                          12654                   BX6    X5+X4                                                   PAR      7636
          4701  5160004714 +                      SA6    SQZBO                                                   PAR      7637
                          5110000003 +            SA1    SOPR                                                    PAR      7638
          4702  43052                             MX0    -SP.SKELL                                               FC50104   228
                     20122                        LX1    -SP.SKELP                                               FC50104   229
                          15110                   BX1    -X0*X1      ISOLATE (X1) = SKELETON NUMBER              PAR      7641
          4703  5221000000 X                      SA2    X1+=XF.SKNAM                                            PAR      7642
                          10622                   BX6    X2                                                      PAR      7643
          4704  5160004716 +                      SA6    SQZBN                                                   PAR      7644
                          7110004712 +            PLINE  SQZB,SQZBL                                              PAR      7645
          4707  5110004720 +                      SA1    SQZG                                                    FC51322   114
                          10611                   BX6    X1                                                      FC51322   115
          4710  5160004712 +                      SA6    SQZB        RESTORE OPERATOR SQUEEZ MSG                 FC51322   116
                          0100000000 X            CALL   RSR=        RESTORE ALL REGISTERS                       PAR      7646
          4711  0400004671 +                      EQ     EXIT.                                                   PAR      7647
                                                                                                                 PAR      7648
          4712  47471720052201241722     SQZB     DIS    2,**OPERATOR SQUEEZ AT                                  FC51322   117
          4714  55343536375534353637     SQZBO    DIS    1, 1234 1234                                            PAR      7650
          4715  55112355231305145555              DIS    1, IS SKEL                                              PAR      7651
          4716  26542313051455555555     SQZBN    DIS    1,V=SKEL                                                PAR      7652
                                   5     SQZBL    =      *-SQZB                                                  PAR      7653
          4717  47475526540104045711     SQZE     DIS    1,** V=ADD.I                                            FC51322   118
          4720  47471720052201241722     SQZG     DIS    1,**OPERATOR                                            FC51322   120
                                         .T       ENDIF                                                          PAR      7654
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      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
          4721  0400404721 +             TPC      SUBR   =           ...ENTRY/EXIT...                            PAR      7668
          4722  10155                             BX1    X5                                                      PAR      7669
                     20162                        SBIT   X1,TP.CATP                                              PAR      7670
                          0321004721 +            PL     X1,EXIT.    IF NOT CONCATENATION                        PAR      7671
          4723  20105                             SBIT   X1,TP.LCFP/TP.CATP                                      PAR      7672
                     0321004721 +                 PL     X1,EXIT.    IF NOT PASSED LENGTH CHARACTER              PAR      7673
          4724  6170000000 X                      FATAL  E.SU01                                                  PAR      7674
          4725  0400004721 +                      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.
  
          4726  77777400000000000000    ;;@ 
          4727  04012405000000000000    DATE
          4730  24111505000000000000    TIME
          4731  03141703130000000000    CLOCK 
          4732  14170306000000000000    LOCF
          4733  00000141000000000000      A6
          4734  00000000000300000000         C
          4735  40000077752745000000    5  ;\W+ 
          4736  00000000002240000000         R5 
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   185
        SUBROUTINES.                                                  LITERALS
  
          4737  00000000001200000000         J
          4740  00000000010000000100        A   A 
          4741  00000074000000000000       @
          4742  16000000000000000000    N 
          4743  56000000000000000000    , 
          4744  22050114000000000000    REAL
          4745  04021405000000000000    DBLE
          4746  03152014300000000000    CMPLX 
          4747  00000377777774000000      C;;;@ 
          4750  50000000000000000000    / 
          4751  57000000000000000000    . 
          4752  00000631463146314632      FY-Y-Y-Z
          4753  77777777776000777000    ;;;;;# ;' 
          4754  00000077776017777000       ;;#O;' 
          4755  77776000000000000777    ;;#     G;
  
          5146                                    END                                                            PAR      7678
  
                            100200B CM  STORAGE USED            23460 STATEMENTS     2492 SYMBOLS      000048 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            7.516 SECONDS        7720 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABEF         2711   PROGRAM*       98/22    109/10 L  117/10
        ABEF2        2714   PROGRAM*      109/15    109/18 L
        ABIF         2724   PROGRAM*      108/54    109/38 L
        ABIF0        2727   PROGRAM*      109/41    109/44 L
        ABIF1        2732   PROGRAM*      109/47    109/50 L
        ABIF2        2737   PROGRAM*      109/54    110/07 L
        ABIF4        2741   PROGRAM*      110/12 L  110/19
        ACALL3       2655   PROGRAM*      107/12    107/15 L
        ACALL5       2660   PROGRAM*      107/16    107/22 L
        ACONS         171   PROGRAM*       14/11 L   27/07
        ACT          4023   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          4031   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         4102   PROGRAM*      154/18 S  154/20    155/03 S  155/04    155/08 L
        ADT1         4037   PROGRAM*      153/15    153/25 L
        ADT2         4045   PROGRAM*      153/29    153/35    153/39 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   186
        SYMBOLIC REFERENCE TABLE. 
  
        ADT3         4047   PROGRAM*      153/41    153/45 L
        ADT4         4055   PROGRAM*      153/55    153/57    154/05 L
        ADT5         4061   PROGRAM*      153/54    154/03    154/07    154/13 L
        ADT7         4066   PROGRAM*      154/17    154/28 L
        ADT8         4074   PROGRAM*      154/35    154/45 L
        ADU          3616   PROGRAM*      140/07    140/55    141/45 L  144/20    147/34    147/43    148/29    150/54
        ADW             0   EXTERNAL*       3/14 X   47/35     47/38     47/44    121/49    121/54
        AFUN4        2676   PROGRAM*      108/17    108/22 L
        AIF8         1644   PROGRAM*       72/23     72/29     72/32     72/33 L
        ALC             0   EXTERNAL*       3/14 X  109/23    166/34    167/46
        ALC.REG         0   EXTERNAL*       3/14 X  111/51 S  112/47 S
        ALC.STF         0   EXTERNAL*       3/14 X  111/49
        ALC.00          0   EXTERNAL*       3/14 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/20 X   26/36     43/09     87/24    109/48    177/07
                                            7/13     29/06     55/12    109/42    161/52
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   187
        SYMBOLIC REFERENCE TABLE. 
  
        ARGCOMA         0   EXTERNAL*       3/27 X   10/03 S   47/51 S   61/55     71/07    108/36
                                            7/20 S   25/41     48/33     65/07     71/45    136/34 S
                                            8/30 S   47/36     51/43     68/16     91/40
        ARGMIS          0   EXTERNAL*       3/27 X   47/42     47/55 S   71/16     71/50 S   85/15    136/27
        ARGMODE         0   EXTERNAL*       3/27 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        2210   PROGRAM*       85/53 S   86/23     86/52 L
        ASBSB        2211   PROGRAM*       86/01 S   86/05     86/53 L
        ASBS10       2173   PROGRAM*       86/19     86/23 L
        ASBS20       2175   PROGRAM*       86/24     86/27 L
        ASBS30       2176   PROGRAM*       86/27     86/30 L
        ASBS40       2202   PROGRAM*       86/38     86/41 L
        ASE          3623   PROGRAM*      138/43    142/21 L
        ASE20        3633   PROGRAM*      142/27    142/45 L
        ASE22        3642   PROGRAM*      143/09    143/15 L
        ASE24        3645   PROGRAM*      143/20    143/28 L
        ASE26        3655   PROGRAM*      143/33    143/44 L
        ASE30        3661   PROGRAM*      143/40    143/53    144/01 L
        ASE32        3662   PROGRAM*      142/48    143/26    143/35    144/09 L
        ASE34        3665   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/47 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      3516   PROGRAM*       21/35     50/06     52/35    137/14 L
        A=AR10       3541   PROGRAM*      138/22    138/27 L
        A=AR12       3544   PROGRAM*      138/41 L  138/51
        A=AR14       3545   PROGRAM*      138/37    138/43 L
        A=AR20       3552   PROGRAM*      138/23    138/56 L
        A=AR22       3561   PROGRAM*      139/27 L  139/38
        A=AR30       3576   PROGRAM*      138/52    140/19 L
        A=AR32       3606   PROGRAM*      140/53    140/57 L
        A=AR4        3532   PROGRAM*      137/44    137/52 L  137/55
        A=AR40       3612   PROGRAM*      141/04    141/11 L
        A=AR6        3534   PROGRAM*      137/31    138/03 L
        A=AR7        3535   PROGRAM*      137/56    138/06 L
        A=AR8        3536   PROGRAM*      137/29    138/14 L
        A=BLWA          0   EXTERNAL*       4/05 X   21/56
        A=BMOD          0   EXTERNAL*       4/05 X   21/54
        A=CALL       2647   PROGRAM*       21/36     29/14     54/32     59/11    107/05 L
        A=DBD           0   EXTERNAL*       3/24 X   21/44     21/45
        A=DO         2222   PROGRAM*       21/39     88/04 L  154/02
        A=DOCI          0   EXTERNAL*       4/05 X   22/01
        A=DOCS          0   EXTERNAL*       4/05 X   22/02     52/29
        A=DO5        2225   PROGRAM*       88/12 L   88/34
        A=DO9        2234   PROGRAM*       88/19     88/27     88/36 L
        A=DVL        1647   PROGRAM*       21/38     50/14     72/55 L
        A=EXPR        457   PROGRAM*       21/43     24/41 L
        A=FMT           0   EXTERNAL*       4/05 X   22/03
        A=FOU           0   EXTERNAL*       4/08 X   22/04
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   188
        SYMBOLIC REFERENCE TABLE. 
  
        A=FUN        2671   PROGRAM*       21/40     29/16     48/27    108/11 L
        A=ICC           0   EXTERNAL*       4/05 X   22/05
        A=ICCX          0   EXTERNAL*       4/05 X   22/06
        A=ICI           0   EXTERNAL*       4/05 X   22/07
        A=ICIX          0   EXTERNAL*       4/06 X   22/08
        A=ICL           0   EXTERNAL*       4/06 X   22/09
        A=IF         1637   PROGRAM*       21/41     52/45     58/18     72/22 L
        A=INF        2703   PROGRAM*       21/42     48/31    108/46 L
        A=LIST       1533   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        2157   PROGRAM*       21/48     48/42     50/48     85/48 L
        A=STFA       2755   PROGRAM*       21/49     48/29    111/03 L
        A=STFE       3010   PROGRAM*       21/50    112/35 L
        A=STR           0   EXTERNAL*       4/06 X   22/12
        A=UNT           0   EXTERNAL*       4/06 X   22/13     41/41
        BBC             0   EXTERNAL*       3/27 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/27 X  107/09
        CATA           17   PROGRAM*        6/22 D   81/37 S   82/10
        CATB           20   PROGRAM*        6/23 D   81/43 S   81/46     82/01 S   82/04
        CATC         2070   PROGRAM*       81/55 S   82/02     82/09     82/21 L
        CAT1         2055   PROGRAM*       81/42     81/47     81/54 L
        CAT2         2066   PROGRAM*       81/33     81/34     82/18 L
        CBB          4103   PROGRAM*      153/16    153/20    155/24 L
        CCR             0   EXTERNAL*       3/17 X  104/29    104/40    154/05
        CDBB            0   EXTERNAL*       3/24 X  161/11
        CDI          4113   PROGRAM*       83/47     84/09    156/05 L
        CDIA         4127   PROGRAM*      155/57    156/08 S  156/36 L
        CDIFLG          0   EXTERNAL*       4/14 X   58/52     63/34 S   88/37 S
        CDIX         4111   PROGRAM*      155/56 L  156/20    156/25    156/28    156/30    172/50    173/18
        CDI00        4110   PROGRAM*      155/54 L  156/19    156/22    156/24    156/31
        CDI40        4122   PROGRAM*      156/17    156/22 L
        CDI50        4124   PROGRAM*      156/14    156/27 L  156/34
        CDI60        4126   PROGRAM*      156/15    156/33 L
        CDP          2317   PROGRAM*       89/46     90/06     90/24     92/22 L
        CDP2         2327   PROGRAM*       92/29     92/39 L
        CFC             0   EXTERNAL*       3/21 X   51/17
        CFUN5        2667   PROGRAM*      107/45    107/49 L
        CF=AC        2635   PROGRAM*      106/13 D  106/13 E
        CHARMAP         0   EXTERNAL*       3/27 X   55/35     58/22     58/27
        CH.DPCL        52   FTX            55/34     58/21
        CIL          4131   PROGRAM*       32/35     33/17    156/50 L
        CLC          4141   PROGRAM*      157/41 L  158/42
        CLC10        4146   PROGRAM*      157/49    157/53 L
        CLC80        4156   PROGRAM*      157/51    158/11 L
        CLM          4157   PROGRAM*       42/51    113/22    158/33 L
        CLMA         4166   PROGRAM*      158/35 S  158/41    158/47 L
        CML             0   EXTERNAL*       4/06 X   42/19
        CMLFLG         12   PROGRAM*        6/02 L   23/55 S   39/46     42/15     43/26     43/55     71/37
        CMR          4167   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        4204   PROGRAM*      159/42    159/57 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   189
        SYMBOLIC REFERENCE TABLE. 
  
        CMR60        4210   PROGRAM*      159/37    159/47    160/09 L
        CMR90        4211   PROGRAM*      159/39    160/13 L
        CNF            30   PROGRAM*        7/04 L    7/04 E
        CNFARM        367   PROGRAM*        7/17     21/37 L
        CNF1           34   PROGRAM*        7/12      7/17 L
        CNTARM        410   PROGRAM*       21/57 L   21/57 E
        COD             0   EXTERNAL*       3/55 X  183/19    183/24
        COLOP         331   PROGRAM*       20/10 L   86/41    165/40
        COM3         1666   PROGRAM*       74/24     74/33 L
        COM4         1670   PROGRAM*       74/35     74/42 L
        CONONE          0   EXTERNAL*       4/23 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/23 X   53/50
        CONZERI         0   EXTERNAL*       4/28 X  137/49
        COR          4215   PROGRAM*       72/31     77/29     78/24     78/45    160/40 L
        CO.ANSI         0   EXTERNAL*       3/55 X  175/29
        CO.DBSB         0   EXTERNAL*       3/55 X   43/17    138/15
        CO.DBTB         0   EXTERNAL*       3/55 X  109/11
        CO.DOLG         0   EXTERNAL*       3/56 X  153/56
        CO.OPT          0   EXTERNAL*     179/55
        CO.RNDD         0   EXTERNAL*       3/55 X   75/45
        CO.RNDM         0   EXTERNAL*       3/55 X   75/44
        CO.SNAP         0   EXTERNAL*       3/55 X   25/37     61/44     61/52     65/03    167/06    180/55    182/21
        CRDIV         300   PROGRAM*       19/13 L   76/50
        CRL             0   EXTERNAL*       4/11 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        2154   PROGRAM*       85/25     85/29 L
        CSBS8        2156   PROGRAM*       85/27     85/35 L
        CSM          2212   PROGRAM*       85/10     85/49     87/15 L
        CSM1         2221   PROGRAM*       87/27     87/32 L
        CSYMBOL        13   PROGRAM*        6/04 L   31/33 S   39/33     45/37
        CSYREF         15   PROGRAM*        6/06 L   32/18     32/24     38/42     39/06     41/33
        CSYTAG         14   PROGRAM*        6/05 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*        6/07 L   32/24     35/29 S   39/02 S   39/18 S   40/02    149/40
        CT1             0   EXTERNAL*       3/27 X   32/16     35/24     38/39     39/04    128/26    130/30    132/27
        CURST           4   PROGRAM*        5/50 L   43/21 S   77/20     89/11 S  179/40
                                            5/50 E   50/10 S   83/26 S  114/14 S
        C=ARRAY      3512   PROGRAM*       21/35    136/26 L
        C=BFWA          0   EXTERNAL*       4/06 X   21/55
        C=CALL       2644   PROGRAM*       21/36    106/23 L
        C=CERR       1606   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/06 X   21/57
        C=DBD           0   EXTERNAL*       3/24 X   21/44     21/45
        C=DO         2236   PROGRAM*       21/39     89/03 L   92/06
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   190
        SYMBOLIC REFERENCE TABLE. 
  
        C=DOCI          0   EXTERNAL*       4/06 X   22/01
        C=DOCS          0   EXTERNAL*       4/06 X   22/02
        C=DVL           0   EXTERNAL*       3/21 X   21/38
        C=ERR        1607   PROGRAM*       68/42 L   68/42 E
        C=FMT           0   EXTERNAL*       4/07 X   22/03
        C=FOU           0   EXTERNAL*       4/08 X   22/04
        C=FUN        2662   PROGRAM*       21/40    107/37 L
        C=ICC           0   EXTERNAL*       4/07 X   22/05
        C=ICCX          0   EXTERNAL*       4/07 X   22/06
        C=ICI           0   EXTERNAL*       4/07 X   22/07
        C=ICIX          0   EXTERNAL*       4/07 X   22/08
        C=ICL           0   EXTERNAL*       4/07 X   22/09
        C=INF        2700   PROGRAM*       21/42    108/34 L
        C=IOL           0   EXTERNAL*       4/07 X   22/10     22/11
        C=PIX          64   PROGRAM*        9/04 L   21/46
        C=PJX           0   EXTERNAL*       4/11 X   21/47
        C=SBS        2144   PROGRAM*       21/48     85/09 L
        C=STFA       2754   PROGRAM*       21/49    110/49 L
        C=UNT           0   EXTERNAL*       4/07 X   22/13
        DATARM        370   PROGRAM*       21/38 L   21/38 E
        DATFLG          0   EXTERNAL*       3/27 X   90/54     95/36    138/14    157/07
                                           23/51     93/50    111/03    153/13
        DAT.Z           0   EXTERNAL*       3/21 X   24/25
        DBE          4222   PROGRAM*       26/10     27/01     27/55     30/11     40/56    153/37    161/10 L
        DDC          4227   PROGRAM*       96/02    161/38 L  175/31
        DDR             0   EXTERNAL*       4/14 X   83/12     91/08
        DEC             0   EXTERNAL*       3/17 X   26/43
        DH.DIML         6   FTX           145/04
        DH.MATP        70   FTX           138/57
        DIRT            0   EXTERNAL*       3/24 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          4236   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         4257   PROGRAM*      162/49    163/06    163/14    163/38 L
        DOA8         4266   PROGRAM*      162/39    162/42    163/11    163/33    164/16 L
        DOC          2260   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         2274   PROGRAM*       90/56     91/10 L
        DOC4         2300   PROGRAM*       90/40     90/47     90/49     91/18 L
        DOC7         2301   PROGRAM*       91/13     91/22 L
        DOI          2256   PROGRAM*       89/20     90/24 L
        DOII.W          2   FTX            90/25     90/25 S   93/22
        DOL          2254   PROGRAM*       89/19     90/06 L
        DOLI.W          1   FTX            90/07     93/19     93/22
        DOMODE          0   EXTERNAL*       4/14 X   91/31 S   92/26
        DORT.W          4   FTX            91/52
        DOS          2250   PROGRAM*       89/18     89/40 L
        DOSI.W          0   FTX            89/47     93/18     93/19
        DOXA         2242   PROGRAM*       89/13     89/15 L
        DO.BEG        305   PROGRAM*       19/45 L   19/45 E
        DO.DPC          0   EXTERNAL*       3/32 X   89/08
        DO.END        311   PROGRAM*       19/49 L   91/22
        DO.ERR1      2246   PROGRAM*       89/22 L   89/26 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   191
        SYMBOLIC REFERENCE TABLE. 
  
        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
        DP.W            7   FTX            91/33     91/45     91/45 S
        DTC          2333   PROGRAM*       93/13 L   93/13 E
        DTCA         2362   PROGRAM*       93/21 S   94/08     94/13 L
        DTC10        2351   PROGRAM*       93/42     93/43     93/46 L
        DTC15        2352   PROGRAM*       93/40     93/49 L
        DTC20        2357   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          3046   PROGRAM*      107/23    114/04    114/39 L  114/39 E
        EALA         3065   PROGRAM*      114/53 S  115/11    115/20 L
        EAL10        3053   PROGRAM*      114/51 L  115/14
        ECC          4271   PROGRAM*       30/16     81/51    164/50 L  164/50 E
        ECS          4274   PROGRAM*      158/03    164/52    165/30 L
        EMT          4311   PROGRAM*       58/51    115/05    139/35    155/04    166/30 E
                                          114/02    139/12    139/52    166/30 L  167/17
        EMT2         4314   PROGRAM*      166/32    166/34 L
        EMT4         4322   PROGRAM*      166/42    166/51 L
        EMT5         4323   PROGRAM*      166/49    166/52 L
        EMT8         4331   PROGRAM*      167/13    167/15 L
        EMT9         4333   PROGRAM*      167/16    167/19 L
        EQLA           17   PROGRAM*        6/14 D   82/41 S   84/44
        EQLB           20   PROGRAM*        6/15 D   83/39 S   83/43     84/42
        EQLC           21   PROGRAM*        6/16 D   83/40 S   84/41
        EQL30        2075   PROGRAM*       82/48     82/51 L
        EQL48        2105   PROGRAM*       82/57     83/07     83/15 L
        EQL50        2107   PROGRAM*       83/13     83/21 L
        EQL60        2121   PROGRAM*       83/46     83/50 L
        EQL65        2123   PROGRAM*       83/57 L   84/13     84/39
        EQL70        2124   PROGRAM*       84/01     84/04 L
        EQL75        2127   PROGRAM*       84/11 L   84/30
        EQL80        2131   PROGRAM*       84/11     84/15 L
        EQL85        2133   PROGRAM*       84/17     84/20 L
        EQL90        2137   PROGRAM*       84/07     84/32 L
        EQL99        2142   PROGRAM*       83/48     84/15     84/41 L  172/49    174/33
        EQL99.1      2143   PROGRAM*       83/16     83/36     84/44 L
        ERL=CON         0   EXTERNAL*       3/44 X   24/21    162/38
        ERL=XPR         0   EXTERNAL*       3/44 X  162/40
        ERROP         317   PROGRAM*       19/57 L   19/57 E   58/51     63/10     66/16    177/57
        ERT             0   EXTERNAL*       3/28 X   28/10     41/55
        ESF          3067   PROGRAM*      109/50    115/46 L
        ESFARM        404   PROGRAM*       21/50 L  112/25
        ESFBASE      3073   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         3066   PROGRAM*      115/42 L  115/52    116/36    118/09    118/29    118/42    118/52    119/09
        ESTACK          0   EXTERNAL*       3/28 X   23/42     25/41     47/39     57/12     61/55     65/07
        ESY             0   EXTERNAL*       3/28 X   38/38     39/03
        ES=CMPL         0                 116/18 D  116/18 E
        ES=LEN         10                 116/47 D  116/47 E
        ES=LGE         22                 117/21 D  117/21 E
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   192
        SYMBOLIC REFERENCE TABLE. 
  
        ES=LGT         26                 117/32 D  117/32 E
        ES=LLE         31                 117/41 D  117/41 E
        ES=LLT         32                 117/45 D  117/45 E
        ES=LOCF        63                 119/21 D  119/21 E
        ES=MASK        34                 118/04 D  118/04 E
        ES=RANF        73                 120/06 D  120/06 E
        ES=SHIF        47                 118/37 D  118/37 E
        ES.LEN1      3106   PROGRAM*      116/50    116/53 L
        ES.LEN4      3112   PROGRAM*      117/02    117/07 L  119/31
        ES.LEN6      3114   PROGRAM*      117/04    117/12 L
        ES.LOC2      3161   PROGRAM*      119/23    119/26 L
        ES.MSK5      3133   PROGRAM*      118/10    118/13 L
        ES.MSK8      3136   PROGRAM*      117/14    118/22 L
        ES.MSK9      3140   PROGRAM*      118/08    118/11    118/14    118/28 L
        ES.SHF4      3151   PROGRAM*      118/50    118/51    118/54 L
        ES.SHF5      3154   PROGRAM*      118/41    118/47    119/07 L
        EXD          2511   PROGRAM*      101/09 L  101/09 E
        EXM          2517   PROGRAM*      100/31    100/37    100/43    100/49    101/36 L
        EXMA         2546   PROGRAM*      102/19    102/39 L
        EXMB         2555   PROGRAM*      102/09    103/15 L
        EXM2         2527   PROGRAM*      101/46    101/54 L
        EXM4         2534   PROGRAM*      102/11 L  102/32
        EXOPDS       2574   PROGRAM*      101/16 S  101/43 S  102/15    102/28 S  103/34 L  105/04
        EXPA           17   PROGRAM*        6/12 D   96/07 S   97/50    102/08 S  102/26    104/20 S  104/34    104/43
        EXPB           20   PROGRAM*        6/13 D  102/18 S  102/30    104/06 S  104/26    104/33
        EXPOP         345   PROGRAM*       20/24 L   95/37
        EXP10        2365   PROGRAM*       95/40 L   96/52     97/04
        EXP11        2367   PROGRAM*       95/44     95/47 L
        EXP20        2403   PROGRAM*       96/34     96/39 L
        EXP30        2413   PROGRAM*       96/12     97/14 L
        EXP32        2422   PROGRAM*       97/20     97/25 L
        EXP34        2423   PROGRAM*       97/21     97/26 L
        EXP35        2427   PROGRAM*       97/16     97/38 L
        EXP40        2432   PROGRAM*       96/41     97/15     97/40     97/50 L
        EXP60        2435   PROGRAM*       96/10     97/23     97/54     98/04 L  101/49    101/56    101/57
        EXP90        2455   PROGRAM*       96/01     99/24 L
        EXP.BASE     2453   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          2603   PROGRAM*      101/17    101/48    103/57 L
        EXVF         2574   PROGRAM*      104/25    104/32    104/42 S  105/04 D  105/05
        EXVG         2575   PROGRAM*      104/15 S  104/31 S  104/50    105/05 D
        EXV4         2614   PROGRAM*      104/22 L  104/45
        EXV6         2620   PROGRAM*      104/24    104/32 L
        EXV7         2627   PROGRAM*      104/37    104/49 L
        EXV8         2634   PROGRAM*      104/51    105/01 L
        EXV9         2602   PROGRAM*      103/55 L  104/30    104/41
        E.ANS4          0   EXTERNAL*       3/34 X  161/52
        E.ANS5          0   EXTERNAL*       3/34 X  109/42    109/48
        E.AT01          0   EXTERNAL*       3/32 X  176/57    177/33    177/52
        E.AT02          0   EXTERNAL*       3/32 X   58/33
        E.AT03          0   EXTERNAL*       3/32 X   29/19
        E.AT04          0   EXTERNAL*       3/32 X   41/31     41/31
        E.AT05          0   EXTERNAL*       3/32 X   68/41
        E.AT06          0   EXTERNAL*       3/32 X   53/10     53/10
        E.AT07          0   EXTERNAL*       3/32 X  177/07
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   193
        SYMBOLIC REFERENCE TABLE. 
  
        E.AT08          0   EXTERNAL*       3/33 X   29/06
        E.AT09          0   EXTERNAL*       3/33 X    7/13
        E.AT10          0   EXTERNAL*       3/33 X   24/27
        E.AT11          0   EXTERNAL*       3/46 X  155/54
        E.AT13          0   EXTERNAL*       3/33 X  176/26
        E.AT14          0   EXTERNAL*       3/33 X  176/35
        E.AT15          0   EXTERNAL*       3/33 X   82/18
        E.AT16          0   EXTERNAL*       3/33 X   44/14     86/39
        E.AT17          0   EXTERNAL*       3/33 X   87/24
        E.AT18          0   EXTERNAL*       3/34 X   28/44
        E.AT19          0   EXTERNAL*       3/34 X  160/18
        E.AT20          0   EXTERNAL*       3/34 X   28/29
        E.AT21          0   EXTERNAL*       3/34 X   55/12
        E.DC1           0   EXTERNAL*       3/34 X   26/36
        E.DC4           0   EXTERNAL*       3/35 X   75/42
        E.DM01          0   EXTERNAL*       3/35 X   26/09     26/57     27/54     30/06
        E.DM11          0   EXTERNAL*       3/35 X  153/36
        E.DM14          0   EXTERNAL*       3/35 X   40/17
        E.DM17          0   EXTERNAL*       3/35 X   40/11
        E.DM18          0   EXTERNAL*       3/35 X   40/14
        E.DM21          0   EXTERNAL*       3/35 X   40/21
        E.DO00          0   EXTERNAL*       3/35 X   88/10     89/26
        E.DO02          0   EXTERNAL*       3/36 X   93/44
        E.DO04          0   EXTERNAL*       3/36 X   90/43
        E.DO15          0   EXTERNAL*       3/36 X   90/39     91/16
        E.DO16          0   EXTERNAL*       3/36 X   92/33
        E.DO17          0   EXTERNAL*       3/36 X   94/03
        E.DVL1          0   EXTERNAL*       3/36 X   24/24
        E.DVR5          0   EXTERNAL*       3/36 X  111/05
        E.INF           0   EXTERNAL*       3/37 X  119/24
        E.INF1          0   EXTERNAL*       3/37 X  118/28
        E.INF2          0   EXTERNAL*       3/37 X  119/07
        E.INF3          0   EXTERNAL*       3/37 X  116/51
        E.LP1           0   EXTERNAL*       3/38 X   62/20     71/17
        E.LP2           0   EXTERNAL*       3/38 X   69/06
        E.LP3           0   EXTERNAL*       3/38 X   47/40     57/13
        E.LV11          0   EXTERNAL*       3/38 X  157/12
        E.MDE2          0   EXTERNAL*      26/37     27/42     29/05     39/25
        E.MDE5          0   EXTERNAL*       3/44 X   39/43
        E.PX1           0   EXTERNAL*       3/38 X    8/47
        E.PX5           0   EXTERNAL*       3/38 X   27/23
        E.PX6           0   EXTERNAL*       3/38 X   10/24     10/43
        E.PX7           0   EXTERNAL*       3/38 X   96/35
        E.SB2           0   EXTERNAL*       3/39 X  150/30
        E.SB3           0   EXTERNAL*       3/39 X  150/37
        E.SB4           0   EXTERNAL*       3/39 X  151/20
        E.SB5           0   EXTERNAL*       3/39 X  151/29
        E.SB6           0   EXTERNAL*       3/39 X  151/33
        E.SB7           0   EXTERNAL*       3/39 X  137/30
        E.SF09          0   EXTERNAL*       3/39 X  111/29
        E.SF10          0   EXTERNAL*       3/39 X   45/19
        E.SF13          0   EXTERNAL*       3/45 X   43/09
        E.SF15          0   EXTERNAL*       3/45 X  113/27
        E.SU01          0   EXTERNAL*       3/40 X  184/19    184/19
        E.SU02          0   EXTERNAL*       3/40 X  126/22
        E.SU03          0   EXTERNAL*       3/40 X  125/01    133/38
        E.SU05          0   EXTERNAL*       3/40 X  128/46
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   194
        SYMBOLIC REFERENCE TABLE. 
  
        E.SU07          0   EXTERNAL*       3/40 X  133/20
        E.SU08          0   EXTERNAL*       3/40 X  126/09    126/25
        E.SU09          0   EXTERNAL*       3/40 X  128/52
        E.SU10          0   EXTERNAL*       3/40 X  107/17    107/17
        E.SU11          0   EXTERNAL*       3/41 X  107/46
        E.TY2           0   EXTERNAL*       3/41 X   37/22
        E.TY4           0   EXTERNAL*       3/41 X   10/26
        E.TY9           0   EXTERNAL*       3/41 X   37/16
        E.VA01          0   EXTERNAL*       3/41 X   35/22     35/22
        E.VA03          0   EXTERNAL*       3/41 X   33/23
        E.VA04          0   EXTERNAL*       3/41 X   33/51     34/51     38/08
        E.VA05          0   EXTERNAL*       3/41 X   34/07
        E.VA06          0   EXTERNAL*       3/42 X   34/19
        E.VA07          0   EXTERNAL*       3/42 X   34/54
        E.VA08          0   EXTERNAL*       3/42 X   33/02
        E.VA11          0   EXTERNAL*       3/42 X   61/05     83/15
        E.VA12          0   EXTERNAL*       3/42 X   46/09     46/09
        E.VA13          0   EXTERNAL*       3/42 X   35/33
        E.XP1           0   EXTERNAL*       3/43 X   99/21
        E.XP3           0   EXTERNAL*       3/43 X   97/22
        E.XP4           0   EXTERNAL*       3/43 X  100/28
        E.XP5           0   EXTERNAL*       3/43 X  103/55
        E.XP6           0   EXTERNAL*       3/43 X   99/22
        E.XP7           0   EXTERNAL*       3/43 X   97/19
        E.ZEMT          0   EXTERNAL*       3/43 X  167/14
        FAPOP         323   PROGRAM*       20/04 L  113/52
        FAT          4334   PROGRAM*      167/40 L  167/40 E
        FEC=EXU         0   EXTERNAL*       3/28 X   37/27
        FEXPR         172   PROGRAM*       14/14 L   24/11
        FILL.           0   EXTERNAL*       3/44 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/44 X   55/38 S   89/12 S
        FILL.3          0   EXTERNAL*       3/44 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          4344   PROGRAM*      125/46    168/15 L
        FUNCALL        25   PROGRAM*        6/33 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         1166   PROGRAM*       44/38     44/40 L
        FUN.IN       1201   PROGRAM*       44/49     45/36 L
        FUN.IN1      1205   PROGRAM*       45/43     45/47 L
        FUN.IS       1173   PROGRAM*       44/46     45/16 L
        FUN.IS1      1176   PROGRAM*       45/18     45/22 L
        FUN.XU       1206   PROGRAM*       44/44     46/03 L
        FUN.XU4      1211   PROGRAM*       46/04     46/10 L
        FUN.XU5      1216   PROGRAM*       46/18     46/23 L
        F.CONO        122   PROGRAM*       13/16 L   25/29     48/14
        F.IMCV          0   EXTERNAL*       4/31 X  134/03
        F.INTF          0   EXTERNAL*       4/31 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/31 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/31 X  104/02    153/49
        F.SKNAM         0   EXTERNAL*       4/31 X  183/33
        GAPOP         324   PROGRAM*        6/33      6/35     20/05 L   20/05 E  125/36    139/12    139/27    139/52
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   195
        SYMBOLIC REFERENCE TABLE. 
  
        GCL             0   EXTERNAL*       4/23 X  169/33
        GDI          3667   PROGRAM*      137/28    144/48 L  145/39    148/13    150/25    151/26    151/47
        GFR          3033   PROGRAM*      108/24    109/28    113/50 L
        GOL          4355   PROGRAM*       81/57     82/03    117/03    157/47    169/11 L  169/11 E
        GOLA         4406   PROGRAM*      169/24 S  169/35    170/24 S  170/35 L
        GOLB         4407   PROGRAM*      170/05 S  170/22    170/36 L
        GOL10        4362   PROGRAM*      169/26 L  170/25
        GOL20        4363   PROGRAM*      169/29 L  169/54
        GOL30        4367   PROGRAM*      169/32    169/42 L
        GOL40        4402   PROGRAM*      170/14    170/22 L
        GOL50        4404   PROGRAM*      169/53    170/30 L
        IAC          3175   PROGRAM*      107/08    108/16    108/48    120/45 L
        IAPOP         325   PROGRAM*        6/34     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/07 X   52/33
        IDIV          275   PROGRAM*       19/10 L   53/35
        IFARM         373   PROGRAM*       21/41 L   21/41 E
        IFMOD           0   EXTERNAL*       4/11 X   72/39 S
        IFRELT       2031   PROGRAM*       80/50     81/07 L
        IFREL2          0   EXTERNAL*       4/11 X   24/04 S   81/04 S  153/27 S
        IFRESLT         0   EXTERNAL*       4/11 X   72/38 S
        INFARM        374   PROGRAM*       21/42 L   44/48     44/54
        INFOP         321   PROGRAM*        6/34     20/02 L
        INSTF           0   EXTERNAL*       3/28 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/08 X   41/50
        IODTA         327   PROGRAM*       20/08 L   20/08 E
        IOJ             0   EXTERNAL*       4/08 X   39/57
        IOL.RTN      1533   PROGRAM*       64/28 L   64/28 E
        IOUNT         330   PROGRAM*       20/09 L   20/09 E
        ISL             0   EXTERNAL*       4/14 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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   196
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/17 X  159/44
        KW=COMM         0   EXTERNAL*       3/24 X   40/26
        KW.JMPL        22   FTX            40/24
        KW.JMPP        52   FTX            40/22
        LASTAD          6   PROGRAM*        5/53 L   64/47 S   77/26     78/14    160/49
        LASTOP          5   PROGRAM*        5/51 L   64/55 S   72/24     77/24     78/13     79/13
        LASTREL        11   PROGRAM*        6/01 L   80/01 S   80/41
        LBARM         376   PROGRAM*       21/44 L   21/44 E
        LCH             0   EXTERNAL*       3/17 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/17 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/28 X   24/02 S
        LGEOP         346   PROGRAM*       20/25 L  117/23    117/42
        LIBOP         322   PROGRAM*        6/33      6/35     20/03 L
        LIR             0   EXTERNAL*       3/17 X   96/40
        LLTOP         347   PROGRAM*       20/26 L  117/33    117/47
        LPARM         375   PROGRAM*       21/43 L   51/21
        LXX10        3116   PROGRAM*      117/25 L  117/39    117/48
        LXX20        3122   PROGRAM*      117/37 L  117/43
        MAD          3201   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.DIM         7   FTX           139/21
        MAX.SARG      764   FTX           126/04
        MCVOP         334   PROGRAM*       20/13 L  110/32    159/57
        MDD             0   EXTERNAL*       3/49 X   82/54
        MDERR=          0   EXTERNAL*       4/20 X   26/37     27/42     29/05     39/25     39/43
        MF.BEF          3   FTX             6/34     44/51 L  123/11
        MF.INL          4   FTX            44/54 L
        MF.LIB          2   FTX             6/33      6/35     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/23 X   35/11     40/16
        MOD.DPC         0   EXTERNAL*       3/44 X   91/14     92/30    160/13    160/14
        MO.FUNL         1   FTX            35/12
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   197
        SYMBOLIC REFERENCE TABLE. 
  
        MO.FUNP        13   FTX            35/12
        MO.PROP        11   FTX            40/18
        MSP          3700   PROGRAM*      138/42    145/37 L
        MSPA           17   PROGRAM*        6/18 D  147/21 S  147/37
        MSP12        3716   PROGRAM*      146/29    146/43 L
        MSP16        3722   PROGRAM*      146/08    146/22    146/46    147/07 L
        MSP18        3723   PROGRAM*      146/41    147/01    147/08 L
        MSP20        3725   PROGRAM*      145/47    147/19 L
        MSP22        3730   PROGRAM*      147/24    147/28 L
        MSP28        3734   PROGRAM*      147/26    147/33    147/37 L
        MSP30        3736   PROGRAM*      147/12    147/42 L
        MULROP        312   PROGRAM*       19/52 L   19/52 E
        MULTOG       1400   PROGRAM*       53/27     54/54     55/05 L   66/47 S
        MVE=            0   EXTERNAL*       4/44 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     80/10     84/25    123/21    133/43    165/31    176/29
                                           28/13     81/31     98/47 L  124/55    155/32    169/19
                                           41/48     81/32    117/01    125/05    158/39    176/21
                                           44/10     83/35    119/26    130/54    165/31    176/24
        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/50    100/05    100/10    116/26    130/09
                                           76/45     97/14    100/08    100/34    120/15    131/07
                                           96/11     98/44 L  100/09    116/19    130/04
        NBC             0   EXTERNAL*       3/17 X   27/05     28/23    159/48
        NCS             0   EXTERNAL*       3/17 X   29/42    101/15    139/48    147/30    151/50
                                            3/28 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/27 X   29/23 S
        N.CT            0   EXTERNAL*       4/23 X  157/53
        N.TYPE          7   FTX            54/48    107/43    121/44    176/24
        OCT             0   EXTERNAL*       3/17 X   26/38
        OMC          4410   PROGRAM*       67/07     80/03    152/23    171/26 L  171/26 E
        OMCA         4426   PROGRAM*      171/33 S  171/39    171/44    171/55    172/01    172/05 L
        OMC.RC       4423   PROGRAM*      171/38    172/03 D
        OMC.RR       4422   PROGRAM*      171/41 S  171/50 L
        OMC.X4       4425   PROGRAM*      171/57 L
        OMC.X5       4424   PROGRAM*      171/55 L  172/03
        OMI=CPX         0   EXTERNAL*       4/32 X  129/01
        OMI=LCF         0   EXTERNAL*       4/32 X  119/30
        OMI=LEN         0   EXTERNAL*       4/32 X  117/05
        OM=ADD          0   EXTERNAL*       4/32 X   18/15
        OM=AND          0   EXTERNAL*       4/32 X   18/31
        OM=CONV         0   EXTERNAL*       4/32 X   20/13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   198
        SYMBOLIC REFERENCE TABLE. 
  
        OM=DIV          0   EXTERNAL*       4/32 X   18/18     19/10
        OM=DOC          0   EXTERNAL*       4/33 X   19/49
        OM=EQ           0   EXTERNAL*       4/33 X   18/25     20/50
        OM=EQV          0   EXTERNAL*       4/33 X   18/34
        OM=EXP       2444   PROGRAM*       95/42     98/39 L
        OM=GE           0   EXTERNAL*       4/33 X   18/24     18/27     20/47
        OM=INL          0   EXTERNAL*       4/33 X  115/51
        OM=LT           0   EXTERNAL*       4/33 X   18/23     18/28     20/48
        OM=MUL          0   EXTERNAL*       4/33 X   18/17     19/11
        OM=NE           0   EXTERNAL*       4/33 X   18/26     20/49
        OM=NOT          0   EXTERNAL*       4/34 X   18/30
        OM=OR           0   EXTERNAL*       4/34 X   18/35
        OM=STR          0   EXTERNAL*       4/34 X   18/41
        OM=SUB          0   EXTERNAL*       4/34 X   18/16     19/12
        OM=UMI          0   EXTERNAL*       4/34 X   18/19
        OM=XOR          0   EXTERNAL*       4/34 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/44 X  137/30    150/37    151/35    151/42
        OSTACK          0   EXTERNAL*       3/28 X   23/54     24/08 S   25/41     60/36     61/55     65/07
        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     25/46
                                           13/20     13/26     13/34     13/41     13/48     13/55     14/06     48/14
                                           13/21     13/27     13/35     13/42     13/49     13/57     14/12     64/50
                                           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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   199
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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     25/48     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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   200
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   201
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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        1417   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      1472   PROGRAM*        9/08     50/15     61/23     61/41 E   88/09
                                           50/13     61/12     61/41 L   72/40
        PAREX1       1421   PROGRAM*       58/14 L   58/19
        PAREX10      1431   PROGRAM*       58/29     58/32 L
        PAREX11      1433   PROGRAM*       24/33     54/46     58/37 L
        PAREX13      1435   PROGRAM*       58/38     58/42 L
        PAREX15      1436   PROGRAM*       58/40     58/44 L
        PAREX16      1437   PROGRAM*       58/45     58/49 L
        PAREX17      1446   PROGRAM*       58/53     59/10 L
        PAREX2       1423   PROGRAM*       58/12     58/18 L
        PAREX3       1424   PROGRAM*       52/51     58/15     58/21 L
        PAREX5       1426   PROGRAM*       58/23     58/26 L
        PARMODE         0   EXTERNAL*       3/28 X    8/21 S    9/48 S   23/39
        PARNOW          0   PROGRAM*        5/46 L   23/41 S   26/51     35/14     96/32    116/48
                                            5/46 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/45 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     1413   PROGRAM*       55/50     57/10 L   61/04     74/48     76/26
        PAR.CAT      1404   PROGRAM*       13/52     55/40 L
        PAR.CHR       604   PROGRAM*       13/22     29/57 L
        PAR.CHR1      612   PROGRAM*       28/43     28/47     30/10     30/16 L
        PAR.CM       1260   PROGRAM*       14/01     49/09 L
        PAR.CM5      1261   PROGRAM*       49/17 L   49/32     50/47     50/49     50/51
        PAR.CM7      1267   PROGRAM*       49/23     49/36 L
        PAR.CM8      1277   PROGRAM*       50/07     50/12 L
        PAR.CM9      1302   PROGRAM*       49/11     50/21 L
        PAR.COL      1304   PROGRAM*       14/02     50/39 L
        PAR.DEC       513   PROGRAM*       13/23     13/26     26/42 L
        PAR.DIV      1345   PROGRAM*       13/35     53/24 L
        PAR.DLP      1321   PROGRAM*       14/03     51/41 L
        PAR.EOS      1450   PROGRAM*       13/18     24/28     25/25     60/35 L   62/29     62/32
        PAR.EOSA     1474   PROGRAM*       61/46     61/48 L
        PAR.EOSS     1502   PROGRAM*       61/54     61/56 L
        PAR.EOS1     1456   PROGRAM*       60/48     60/52 L
        PAR.EOS3     1463   PROGRAM*       60/40     61/09 L   69/04
        PAR.EOS4     1471   PROGRAM*       61/16     61/25 L
        PAR.EOS6     1503   PROGRAM*       60/38     62/10 L
        PAR.EOS7     1507   PROGRAM*       62/19     62/23 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   202
        SYMBOLIC REFERENCE TABLE. 
  
        PAR.EOS8     1513   PROGRAM*       62/18     62/34 L
        PAR.EOS9     1516   PROGRAM*       62/36     62/41 L
        PAR.EQL      1337   PROGRAM*       13/57     53/04 L
        PAR.EQL2     1343   PROGRAM*       53/09     53/14 L
        PAR.ERR      1417   PROGRAM*       14/12     14/15     50/45     58/07 L
        PAR.FAL       476   PROGRAM*       13/30     26/05 L
        PAR.FAL1      503   PROGRAM*       26/08     26/15 L
        PAR.FUN      1162   PROGRAM*       33/35     34/55     37/39     37/55     39/07     44/25 L
        PAR.HOL       563   PROGRAM*       13/19     13/20     13/21     29/04 L
        PAR.HOL1      574   PROGRAM*       29/15     29/17     29/22 L
        PAR.HOL2      575   PROGRAM*       29/20     29/25 L
        PAR.HOL5      600   PROGRAM*       29/12     29/35 L
        PAR.LP       1311   PROGRAM*       13/54     51/08 L
        PAR.LP2      1313   PROGRAM*       51/11     51/16 L
        PAR.LP5      1317   PROGRAM*       51/19     51/27 L
        PAR.MIN      1356   PROGRAM*       13/33     54/04 L
        PAR.MULT     1362   PROGRAM*       13/34     54/23 L
        PAR.MU10     1375   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.NXS       472   PROGRAM*       25/39     25/42 L
        PAR.OCT       507   PROGRAM*       13/24     13/25     26/35 L
        PAR.PL       1352   PROGRAM*       13/32     53/44 L
        PAR.RP       1324   PROGRAM*       13/55     52/21 L
        PAR.RP1      1333   PROGRAM*       52/28     52/43 L
        PAR.RP2      1335   PROGRAM*       52/34     52/36     52/48 L
        PAR.SBS      1150   PROGRAM*       33/20     36/51     38/34     43/48 L   51/14
        PAR.SBS5     1153   PROGRAM*       43/56     43/57     44/04 L
        PAR.SPS      1217   PROGRAM*       43/35     45/29     46/24     51/25    112/28
                                           44/13     45/50     47/31 L   51/47
        PAR.SPS1     1246   PROGRAM*       48/28     48/30     48/33 L
        PAR.SPS2     1250   PROGRAM*       48/26     48/40 L
        PAR.SPS5     1254   PROGRAM*       48/41     48/50 L
        PAR.STD      1402   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     1123   PROGRAM*       14/04     42/31 L
        PAR.STOP     1520   PROGRAM*       14/06     24/31     45/20     59/08     59/13     63/10 L   69/08    111/32
        PAR.SUB      1140   PROGRAM*       32/32     43/17 L
        PAR.SUB1     1143   PROGRAM*       43/18     43/23 L
        PAR.SUB2     1146   PROGRAM*       43/27     43/28     43/32 L
        PAR.TRU       476   PROGRAM*       13/29     26/04 L
        PAR.VAR       614   PROGRAM*       13/27     31/26 L
        PAR.VAR2      621   PROGRAM*       31/36     31/39 L
        PAR.VAR7     1122   PROGRAM*       42/16     42/24 L
        PAR.XOR      1401   PROGRAM*       13/48     55/12 L
        PCC             0   EXTERNAL*       3/17 X   81/49
        PCR             0   EXTERNAL*       3/18 X   80/26
        PCR.RO          0   EXTERNAL*       3/18 X   80/13 S
        PCR.1OP         0   EXTERNAL*       3/18 X   80/18 S
        PCR.2OP         0   EXTERNAL*       3/18 X   80/24 S
        PDA             0   EXTERNAL*       4/14 X   46/21
        PDC             0   EXTERNAL*       3/49 X   76/34
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   203
        SYMBOLIC REFERENCE TABLE. 
  
        PDM             0   EXTERNAL*       4/20 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    167/14
                                           24/27     34/54     46/09     82/50     93/44    107/17    119/24    176/27
                                           28/29     35/22     53/10     83/15     94/03    107/46    125/01    176/57
                                           28/44     37/16     58/35     86/39     96/35    111/05    126/35    178/01
                                           29/19     37/22     61/05     87/28     97/22    111/29    129/09    184/19
        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
        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          1533   PROGRAM*       49/30     50/02     56/05     61/28     62/27     62/45     64/30 L
        POPCOM2      1661   PROGRAM*       74/11     74/16 L
        POPCOM8      1662   PROGRAM*       74/14     74/17 L
        POPDPC          7   PROGRAM*        5/55 L   49/29 S   56/04     62/26     71/06     74/46
                                            5/56     56/02 S   56/13     62/42 S   73/39     75/49
        POPPER         10   PROGRAM*        5/56 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
        POPS         1553   PROGRAM*       65/05     65/08 L
        POP=COM      1650   PROGRAM*       73/39 L   77/23     77/27     77/30     77/48     79/26
        POP=UNO      1761   PROGRAM*       78/21     78/25     78/43     78/46     79/01 L
        POP=UNR      1754   PROGRAM*       78/22     78/42 L   79/15
        POP.CAT      2040   PROGRAM*       15/09     81/26 L
        POP.CM       1602   PROGRAM*       15/14     68/15 L
        POP.COL      1602   PROGRAM*       15/15     68/14 L
        POP.DIV      1673   PROGRAM*       14/49     75/33 L
        POP.DVA      1731   PROGRAM*       76/33 S   76/35     77/05 L   77/05 E
        POP.DV1      1677   PROGRAM*       75/39     75/42 L
        POP.DV10     1716   PROGRAM*       75/48     75/55     76/21     76/28 L
        POP.DV15     1722   PROGRAM*       76/31     76/39 L
        POP.DV2      1700   PROGRAM*       75/36     75/37     75/40     75/44 L
        POP.DV20     1726   PROGRAM*       76/36     76/53 L
        POP.DV25     1727   PROGRAM*       76/29     76/48     76/49     76/51     76/55 L
        POP.DV5      1711   PROGRAM*       75/57     76/14 L
        POP.EQL      2071   PROGRAM*       15/13     82/39 L
        POP.ERR      1567   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      2363   PROGRAM*       14/51     95/35 L
        POP.GT       1767   PROGRAM*       15/01     79/41 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   204
        SYMBOLIC REFERENCE TABLE. 
  
        POP.JP       1566   PROGRAM*       65/14     65/50     66/05 L
        POP.LE       1766   PROGRAM*       14/57     79/38 L
        POP.LOG      1764   PROGRAM*       15/04     15/05     15/06     15/07     15/08     79/23 L
        POP.MUL      1650   PROGRAM*       14/48     77/48 D
        POP.NOT      1762   PROGRAM*       15/03     79/12 L
        POP.PL       1732   PROGRAM*       14/46     77/19 L
        POP.PL4      1743   PROGRAM*       77/36     77/39 L
        POP.PN       1615   PROGRAM*       15/11     15/16     71/04 L
        POP.PN1      1632   PROGRAM*       71/41     71/44 L
        POP.REL      1772   PROGRAM*       14/53     14/54     14/55     14/56     79/51 L
        POP.RP       1610   PROGRAM*       15/12     68/57 L
        POP.RP1      1612   PROGRAM*       69/03     69/05 L
        POP.RP5      1613   PROGRAM*       47/41     57/14     62/21     69/07 L   71/18
        POP.SDIV     1655   PROGRAM*       74/03 L   76/10
        POP.STD      1572   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      1575   PROGRAM*       66/46     66/49 L
        POP.ST1      1576   PROGRAM*       66/21     67/04 L  110/05    114/16
        POP.UM       1744   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/14 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/29 X   24/07 S   28/08     31/40     41/38     48/04 S   61/03 S   71/47 S
        REG=            0   EXTERNAL*       4/02 X   25/41     61/55     65/07
        RELA           17   PROGRAM*        6/17 D   80/33 S   80/42
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   205
        SYMBOLIC REFERENCE TABLE. 
  
        REL1         1770   PROGRAM*       79/39     79/42 L
        REL10        2025   PROGRAM*       80/51     80/54 L
        REL3         2002   PROGRAM*       80/06     80/09 L
        REL5         2015   PROGRAM*       80/08     80/11     80/17     80/23     80/29 L
        RSR=            0   EXTERNAL*       4/02 X  183/40
        SBSARM        402   PROGRAM*       21/48 L   44/07
        SCB          4431   PROGRAM*       83/42    156/11    172/28 L
        SCBA         4502   PROGRAM*      173/13 S  173/16    174/42 L
        SCBB         4503   PROGRAM*      156/12    174/31 S  174/34 S  174/43 L
        SCBC         4504   PROGRAM*      156/13    174/36 S  174/39 S  174/44 L
        SCB10        4441   PROGRAM*      172/42    172/49 L
        SCB20        4442   PROGRAM*      172/32    172/47    172/52 L
        SCB30        4447   PROGRAM*      173/07    173/12 L
        SCB40        4451   PROGRAM*      173/12    173/16 L
        SCB50        4453   PROGRAM*      173/14    173/24 L
        SCB60        4462   PROGRAM*      173/44    173/55 L
        SCB62        4467   PROGRAM*      174/11    174/15 L
        SCB64        4470   PROGRAM*      174/13    174/19 L
        SCB67        4473   PROGRAM*      174/22    174/28 L
        SCB70        4474   PROGRAM*      173/47    174/26    174/30 L
        SCB80        4477   PROGRAM*      174/32    174/36 L
        SCR             0   EXTERNAL*       4/23 X   86/45    111/07    120/46    130/26    132/23    136/30 S
                                            5/45     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          4506   PROGRAM*       66/49     80/02     86/42     86/48     91/27    152/22    175/28 L  175/28 E
        SDM16        4521   PROGRAM*      176/03    176/10 L
        SDM20        4524   PROGRAM*      176/12    176/14    176/21 L
        SDM22        4526   PROGRAM*      176/27 L  176/36
        SDM24        4531   PROGRAM*      176/25    176/33 L
        SDM30        4536   PROGRAM*      176/23    176/49 L
        SDM32        4541   PROGRAM*      176/54    176/56 L
        SDM36        4544   PROGRAM*      176/55    177/05 L
        SDM37        4547   PROGRAM*      176/51    177/10 L
        SDM40        4550   PROGRAM*      176/31    176/56    177/03    177/08    177/10    177/19 L
        SDM44        4554   PROGRAM*      177/29    177/31 L
        SDM5         4511   PROGRAM*      175/30    175/33 L
        SDM80        4563   PROGRAM*      177/34    177/57 L
        SDM90        4505   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          3740   PROGRAM*      138/45    148/11 L
        SLB2         3744   PROGRAM*      148/14    148/22 L
        SLB3         3747   PROGRAM*      148/27    148/29 L
        SLT             0   EXTERNAL*       3/29 X   37/06     38/50
        SMOD            2   PROGRAM*        5/48 L   80/09     98/08 S  113/51    125/44 S  158/37    175/45 S
                                            5/48 E   80/29    101/14 S  116/34 S  134/14 S  159/27 S  176/43 S
                                           63/16 S   91/28    104/07    120/14    141/51 S  159/43    177/31 S
                                           63/17     95/48 S  108/50 S  123/05 S  154/36    165/34 S  178/02
                                           64/37 S   97/26    110/34 S  123/20    154/55    171/27
        SNP=            0   EXTERNAL*       4/02 X   25/41     61/55     61/55     65/07
                                           25/41     25/41     61/55     65/07     65/07
        SN.EMT          0   EXTERNAL*       3/52 X  167/18
        SN.PAR          0   EXTERNAL*       3/52 X   61/47
        SN.SQZ       4671   PROGRAM*      181/04    183/13 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   206
        SYMBOLIC REFERENCE TABLE. 
  
        SOPR            3   PROGRAM*        5/49 L   67/06 S   79/46 S  110/40 S  139/34 S  154/06    165/48 S
                                            5/49 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  183/29
        SPE          4567   PROGRAM*       28/31     33/28     44/15    178/24 L
        SPE10        4571   PROGRAM*      178/28 L  178/35    178/38    178/41
        SPE20        4575   PROGRAM*      178/32    178/37 L
        SPE30        4576   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
        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    183/30
        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    183/31
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   207
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          4600   PROGRAM*      154/19    179/29 L  179/38
        SQZB         4712   PROGRAM*      182/32 S  183/36    183/39 S  183/43 L  183/47
        SQZBL           5                 183/36    183/47 D
        SQZBN        4716   PROGRAM*      183/35 S  183/46 L
        SQZBO        4714   PROGRAM*      183/28 S  183/44 L
        SQZE         4717   PROGRAM*      182/30    183/48 L
        SQZG         4720   PROGRAM*      183/37    183/49 L
        SQZ12        4635   PROGRAM*      179/57    181/14 L
        SQZ14        4652   PROGRAM*      181/48    181/52 L
        SQZ15        4665   PROGRAM*      182/27    182/29 L
        SQZ17        4667   PROGRAM*      182/26    182/28    182/33 L
        SQZ4         4612   PROGRAM*      180/04 L  181/28    181/36    181/45    182/04
                                          181/21    181/34    181/39    182/01
        SQZ5         4613   PROGRAM*      179/56    180/06 L  180/12    180/19    180/25
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   208
        SYMBOLIC REFERENCE TABLE. 
  
        SQZ6         4621   PROGRAM*      180/29 L  182/38
        SQZ7         4624   PROGRAM*      180/35    180/38 L
        SQZ9         4634   PROGRAM*      181/03    181/05 L
        SSA          3207   PROGRAM*      106/25    107/07    107/49    108/18    121/39 L
        SSA2         3215   PROGRAM*      121/47    121/53 L
        SSO          3751   PROGRAM*       43/23    149/18 L
        SSR          3764   PROGRAM*      136/31    137/18    150/14 L
        SSRA           17   PROGRAM*        6/19 D  150/52 S  150/55
        SSR2         3776   PROGRAM*      150/36    150/38 L
        SSR20        4004   PROGRAM*      150/41    151/03 L
        SSR22        4007   PROGRAM*      151/04    151/19 L
        SSR24        4013   PROGRAM*      151/27    151/31 L
        SSR28        4015   PROGRAM*      151/30    151/35 L
        SSR30        4017   PROGRAM*      150/33    151/25    151/42 L
        SSY             0   EXTERNAL*       3/29 X   31/39
        STAGE           0   EXTERNAL*       3/29 X   37/26
        STFARM        403   PROGRAM*       21/49 L   45/23
        STFA1        2757   PROGRAM*      111/04    111/07 L
        STFA10       2770   PROGRAM*      111/28    111/34 L
        STFA15       2774   PROGRAM*      111/43    111/46 L
        STFA20       3002   PROGRAM*      112/13 L  112/19
        STFA30       3004   PROGRAM*      112/11    112/21 L
        STFD1        1134   PROGRAM*       42/56     43/03 L
        STFE10       3016   PROGRAM*      112/44    112/50 L
        STFE20       3017   PROGRAM*      112/48    112/53 L
        STOP1        1526   PROGRAM*       63/25 L   63/31
        STOP2        1532   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/29 X   38/36     38/55
        SUBST         332   PROGRAM*       20/11 L   86/46    165/52
        SVR=            0   EXTERNAL*       4/02 X  183/14
        SV67         1256   PROGRAM*       47/31 S   47/46     48/55 L
        SV=B            0   EXTERNAL*       4/02 X  183/15
        S=BU            0   EXTERNAL*       4/23 X   35/20     92/34    164/18
        S=CON           0   EXTERNAL*       4/23 X   10/38     29/29    164/51
        S=CT            0   EXTERNAL*       4/23 X  158/02
        S=RD            0   EXTERNAL*       4/23 X  139/06
        S=VALUE         0   EXTERNAL*       4/24 X   35/05
        S=VD            0   EXTERNAL*       4/24 X   85/29    138/28
        S.CES        3511   PROGRAM*      135/11 L  139/57    139/57
        S.RANDOM     3174   PROGRAM*      120/07    120/23 L
        TB=TYPE         0   EXTERNAL*       4/17 X   40/20
        TB=1ST          0   EXTERNAL*       4/17 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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   209
        SYMBOLIC REFERENCE TABLE. 
  
        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*        6/10 L    6/12      6/14      6/16      6/18      6/20      6/22
                                            6/11      6/13      6/15      6/17      6/19      6/21      6/23
        TER2           22   PROGRAM*        6/25 L   96/09 S   96/49 S   97/55    101/11 S  101/54    104/13    104/49
        TEST            1   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
        TH.PLCP        32   FTX            82/08     82/12    170/30
        TH.SKELL       16   FTX           143/04    163/08    169/47    180/07    181/16
                                          146/18    167/09    172/39    180/30    181/24
        TH.SKELP       56   FTX           166/57    179/53    180/07    180/31    180/40    181/15    181/23
        TLV             0   EXTERNAL*       3/29 X   31/37
        TNKPR0        533   PROGRAM*       27/40     27/44 L
        TNKPR1        542   PROGRAM*       27/46     27/52     27/53     28/03 L
        TNKPR4        556   PROGRAM*       28/15     28/35 L
        TNK.DBL       514   PROGRAM*       26/39     26/51 L   51/30
        TNK.DBL5      521   PROGRAM*       26/53     26/54     26/56     27/04 L
        TNK.ES        505   PROGRAM*       26/13     26/21 L   28/01     28/28     28/33     29/33     29/43     30/14
        TNK.PARM      531   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        2466   PROGRAM*       98/45    100/12 L
        TO.DI        2503   PROGRAM*       98/45    100/40 L
        TO.DR        2465   PROGRAM*       98/45    100/11 L
        TO.DZ        2467   PROGRAM*       98/45    100/13 L
        TO.HE        2454   PROGRAM*       98/41     98/42     98/43     98/44     98/45     98/46     98/47     99/22 L
        TO.ID        2460   PROGRAM*       98/41     98/43    100/06 L
        TO.II        2473   PROGRAM*       98/41     98/43    100/26 L
        TO.II5       2476   PROGRAM*      100/27    100/29 L
        TO.IR        2457   PROGRAM*       98/41     98/43    100/05 L
        TO.IZ        2461   PROGRAM*       98/41     98/43    100/07 L
        TO.LE        2453   PROGRAM*       98/41     98/42     98/43     98/44     98/45     98/46     98/47     99/21 L
        TO.RD        2463   PROGRAM*       98/44    100/09 L
        TO.RI        2500   PROGRAM*       98/44    100/34 L
        TO.RR        2462   PROGRAM*       98/44    100/08 L
        TO.RZ        2464   PROGRAM*       98/44    100/10 L
        TO.ZD        2471   PROGRAM*       98/46    100/15 L
        TO.ZI        2506   PROGRAM*       98/46    100/46 L
        TO.ZR        2470   PROGRAM*       98/46    100/14 L
        TO.ZZ        2472   PROGRAM*       98/46    100/16 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   210
        SYMBOLIC REFERENCE TABLE. 
  
        TPC          4721   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
        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  169/17
                                           40/35     65/46     76/39     95/40    116/56    124/25    139/28    175/41
                                           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    169/16
        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    163/53    172/34    181/54
                                           34/31     83/52    112/38    146/10    162/51    168/20    172/53    182/11
                                           40/44     84/36    137/47    146/14    163/22    169/29    173/57
                                           41/36     91/49    142/52    149/21    163/44    170/07    181/52
        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    169/14
        TP.SHRTP       14   FTX            10/45     65/46     65/46    168/16    169/16    174/21    181/35
                                           65/46     65/46    165/39    169/14    174/10    181/33    181/38
        TREB           17   PROGRAM*        6/11 D
        TREX         1021   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        1033   PROGRAM*       39/37     39/39     39/43 L
        TREX0A       1034   PROGRAM*       39/31     39/41     39/45 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   211
        SYMBOLIC REFERENCE TABLE. 
  
        TREX00       1024   PROGRAM*       39/23     39/27 L
        TREX1        1044   PROGRAM*       39/47     39/48     39/51     39/53     40/06 L
        TREX10       1114   PROGRAM*       41/44     41/49     41/52     41/55 L
        TREX2        1066   PROGRAM*       40/12     40/15     40/19     40/27     40/33     40/56 L
        TREX3        1072   PROGRAM*       41/07 L   41/14     41/17     41/20
        TREX4        1076   PROGRAM*       41/11     41/16 L
        TREX5        1077   PROGRAM*       41/13     41/19 L
        TREX6        1100   PROGRAM*       41/02     41/22 L
        TREX8        1102   PROGRAM*       40/07     40/09     41/29 L
        TREX9        1104   PROGRAM*       40/54     41/30     41/33 L
        TRE14         645   PROGRAM*       32/43     32/45     32/47     32/49     32/52 L
        TRE15         650   PROGRAM*       32/40     32/50     33/02 L
        TRE16         651   PROGRAM*       32/53     32/55     32/57     33/04 L
        TRE22         653   PROGRAM*       32/29     33/14 L   35/30
        TRE30         663   PROGRAM*       32/27     33/35 L
        TRE30.1       670   PROGRAM*       33/49 L   35/38
        TRE31         675   PROGRAM*       33/56     34/02 L
        TRE33         677   PROGRAM*       34/02     34/04     34/07 L
        TRE35         712   PROGRAM*       33/54     33/57     34/05     34/11     34/21     34/39 L   38/11     38/16
        TRE40         714   PROGRAM*       33/43     34/44 L
        TRE41         722   PROGRAM*       34/46     34/54 L
        TRE6          625   PROGRAM*       31/43     31/46 L
        TRE60         724   PROGRAM*       34/45     35/03 L
        TRE62         732   PROGRAM*       35/13     35/17     35/20 L
        TRE63         734   PROGRAM*       35/18     35/24 L
        TRE65         740   PROGRAM*       35/04     35/32 L
        TRE70         743   PROGRAM*       33/37     35/35     35/36     36/34 L
        TRE71         756   PROGRAM*       37/15     37/19 L
        TRE72         760   PROGRAM*       37/17     37/21     37/26 L
        TRE73         763   PROGRAM*       37/32     37/35 L
        TRE74         766   PROGRAM*       36/49     36/54     37/10     37/45 L
        TRE76         771   PROGRAM*       36/37     38/06 L
        TRE77         774   PROGRAM*       38/10     38/13 L
        TRE78         777   PROGRAM*       36/52     38/07     38/19 L
        TRE80        1000   PROGRAM*       31/46     38/28 L
        TRE83        1003   PROGRAM*       38/31     38/36 L
        TRE90        1011   PROGRAM*       38/33     38/49 L
        TRE94        1014   PROGRAM*       38/54     38/57 L
        TSX             0   EXTERNAL*       3/29 X  120/07    122/51    139/57
        TXI          3220   PROGRAM*       34/28    109/20    122/16 L
        TXI1         3233   PROGRAM*      122/44    122/48 L
        TXI2         3226   PROGRAM*      122/34 L  122/37
        TXI6         3244   PROGRAM*      123/16    123/19 L
        TXI7         3246   PROGRAM*      123/22    123/26 L
        T=ARG           0   EXTERNAL*       4/24 X  109/22    114/46    115/07    115/15    115/17    115/17 S
        T=BLST          0   EXTERNAL*       4/24 X   58/55     88/12     91/03     92/43
                                           46/17     82/52     88/17     91/29     93/15
        T=DIM           0   EXTERNAL*       4/24 X  144/53    149/49
        T=ILI           0   EXTERNAL*       4/24 X   39/52
        T=IOARG         0   EXTERNAL*       4/24 X  167/41    167/48
        T=PAR           0   EXTERNAL*       4/24 X    8/37 S   23/37     61/15     83/24    154/38    163/25
                                            8/22      9/50     43/19     64/40     89/07    160/44    179/37
                                            8/37     11/07 S   50/08     77/21    114/09    162/54    183/22
        T=PCS           0   EXTERNAL*       4/27 X   23/36     23/36 S   71/27     71/34
        T=SCR           0   EXTERNAL*      63/11 S
        T=SLARG         0   EXTERNAL*       4/25 X  107/11
        T=SYM           0   EXTERNAL*       4/25 X  149/29    163/45    168/28
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   212
        SYMBOLIC REFERENCE TABLE. 
  
        T.ARG           0   EXTERNAL*       4/25 X  109/23    114/45    115/06    121/49    121/49
        T.BLST          0   EXTERNAL*       4/25 X   58/54     88/16     91/02     91/34     92/42     93/14
        T.CON           0   EXTERNAL*       4/25 X   28/16     29/36
        T.DIM           0   EXTERNAL*       4/25 X  137/38    145/01
        T.IOARG         0   EXTERNAL*       4/25 X  167/47
        T.PAR           0   EXTERNAL*       4/25 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    183/16
        T.PCS           0   EXTERNAL*       4/27 X   47/35     47/35     47/38     47/38     47/44     71/26
        T.SLARG         0   EXTERNAL*       4/26 X  121/54
        T.STF           0   EXTERNAL*       4/26 X  111/39    112/50
        T.SYM           0   EXTERNAL*       4/26 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/26 X   63/19
        UBARM         377   PROGRAM*       21/45 L   21/45 E
        UNTARM        425   PROGRAM*       22/13 L   22/13 E
        VAM          3247   PROGRAM*      108/37    108/49    123/46 L
        VAM0         3252   PROGRAM*      123/52    123/56 L
        VAM1         3265   PROGRAM*      124/27    124/38 L
        VAM10        3276   PROGRAM*      124/35    124/53    125/05 L
        VAM2         3270   PROGRAM*      124/40    124/47 L
        VAM4         3274   PROGRAM*      124/54    125/01 L  125/06
        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          3300   PROGRAM*      107/10    108/23    125/34 L  125/34 E
        VEL30        3316   PROGRAM*      126/05    126/19 L
        VEL50        3322   PROGRAM*      126/10    126/24    126/31 L
        VIL          3325   PROGRAM*      108/51    128/19 L
        VILA           17   PROGRAM*        6/20 D  128/49 S  133/52
        VILB           20   PROGRAM*        6/21 D  132/05 S  132/09
        VIL05        3341   PROGRAM*      128/50    128/55 L
        VIL10        3345   PROGRAM*      128/53    129/03    129/09 L  133/21    133/45    133/47    133/49
        VIL15        3350   PROGRAM*      128/51    128/56    129/05    129/19 L
        VIL16        3364   PROGRAM*      129/52    129/55    130/03 L
        VIL17        3366   PROGRAM*      130/01    130/07 L
        VIL19        3373   PROGRAM*      129/48    130/20 L
        VIL20        3401   PROGRAM*      130/05    130/14    130/16    130/23    130/37 L
        VIL21        3404   PROGRAM*      129/42    130/54 L
        VIL21.1      3412   PROGRAM*      131/06    131/10 L
        VIL22        3414   PROGRAM*      131/08    131/10    131/14    131/17 L
        VIL23        3416   PROGRAM*      131/22 L  131/32
        VIL24        3420   PROGRAM*      131/24    131/29 L
        VIL25        3422   PROGRAM*      131/30    131/34 L
        VIL30        3426   PROGRAM*      131/18    131/48 L
        VIL31        3427   PROGRAM*      131/50 L  132/21
        VIL32        3437   PROGRAM*      131/53    132/18 L
        VIL33        3441   PROGRAM*      132/19    132/23 L
        VIL35        3447   PROGRAM*      132/37    132/43 L
        VIL60        3450   PROGRAM*      129/29    129/34    130/46    130/55    130/57    131/38    131/44    132/45 L
        VIL66        3460   PROGRAM*      133/01    133/19 L
        VIL70        3462   PROGRAM*      132/50    133/28 L
        VIL74        3471   PROGRAM*      133/42    133/47 L
        VIL78        3473   PROGRAM*      133/37    133/40    133/44    133/51 L
        VIL82        3500   PROGRAM*      134/07 L  134/12
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   213
        SYMBOLIC REFERENCE TABLE. 
  
        VIL84        3502   PROGRAM*      134/01    134/14 L
        VIL86        3503   PROGRAM*      134/09    134/17 L
        VS.CRAL        22   FTX           104/05    153/53
        VTRUE           0   EXTERNAL*       4/26 X   26/17
        V=ADD.I         0   EXTERNAL*       4/34 X   19/27     20/34    181/18
        V=APIOC         0   EXTERNAL*       4/35 X   20/07
        V=APIOD         0   EXTERNAL*       4/35 X   20/08
        V=APIOU         0   EXTERNAL*       4/35 X   20/09
        V=ARY           0   EXTERNAL*       4/35 X   19/55    180/29
        V=BSS           0   EXTERNAL*       4/35 X   20/15
        V=CAT           0   EXTERNAL*       4/35 X   18/37    169/51
        V=CMPLX         0   EXTERNAL*       4/35 X  116/31
        V=COLON         0   EXTERNAL*       4/36 X   20/10
        V=DOBL          0   EXTERNAL*       4/36 X   19/48
        V=DOBS          0   EXTERNAL*       4/36 X   19/46
        V=DOBZL         0   EXTERNAL*       4/36 X   19/47
        V=DOBZS         0   EXTERNAL*       4/36 X   19/45
        V=DVC.R         0   EXTERNAL*       4/36 X   19/13
        V=DVI           0   EXTERNAL*       4/36 X   19/56
        V=ERR           0   EXTERNAL*       4/37 X   18/44     18/46     19/57
        V=EXP.I         0   EXTERNAL*       4/37 X   20/24
        V=FAP           0   EXTERNAL*       4/37 X   20/04
        V=FUNC          0   EXTERNAL*       4/37 X   20/01
        V=GAP           0   EXTERNAL*       4/37 X   20/05
        V=GPL           0   EXTERNAL*       4/37 X   20/35
        V=IAP           0   EXTERNAL*       4/37 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/37 X   20/12
        V=INTF          0   EXTERNAL*       4/38 X   20/02
        V=LGE           0   EXTERNAL*       4/38 X   20/25
        V=LIBF          0   EXTERNAL*       4/38 X   20/03
        V=LLT           0   EXTERNAL*       4/38 X   20/26
        V=MASK          0   EXTERNAL*       4/38 X  118/07
        V=MUL.C         0   EXTERNAL*       4/38 X  100/47
        V=MUL.D         0   EXTERNAL*       4/38 X  100/42
        V=MUL.I         0   EXTERNAL*       4/39 X   19/30     20/33    100/30    181/26
        V=MUL.R         0   EXTERNAL*       4/39 X   19/52    100/35
        V=NOOP          0   EXTERNAL*       4/39 X   20/14
        V=NOT.L         0   EXTERNAL*       4/39 X   19/53
        V=RANF          0   EXTERNAL*       4/39 X   20/23
        V=SHIFT         0   EXTERNAL*       4/39 X  118/40    118/49    119/08
        V=STR.H         0   EXTERNAL*       4/39 X   20/30
        V=STR.I         0   EXTERNAL*       4/40 X   20/31
        V=SUBST         0   EXTERNAL*       4/40 X   20/11    163/09    169/52    172/41
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   214
        SYMBOLIC REFERENCE TABLE. 
  
        V=SUB.I         0   EXTERNAL*       4/40 X   19/28     20/32
        V=UMI.I         0   EXTERNAL*       4/40 X   19/29
        V=XMIT          0   EXTERNAL*       4/40 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    125/57
        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
        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    125/52    128/33
        WB.FUNP        14   FTX            33/42     34/09     35/37     39/28    122/52    128/33
                                           34/08     34/44     37/53     39/50    125/52
        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.LABL         1   FTX           128/29    164/06    168/36
        WB.LABP         3   FTX           128/29    164/06    164/08    168/36    168/38
        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    121/20    122/52
        WB.NVARP        6   FTX            33/36     33/42     37/53    121/20    122/52    125/50
        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.SUBL         1   FTX           125/52
        WB.SUBP        13   FTX            34/44     35/03    125/52
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   215
        SYMBOLIC REFERENCE TABLE. 
  
        WB.TYPP        31   FTX            37/33
        WB.VARL         1   FTX            31/44     83/06    128/29    164/10
        WB.VARP         5   FTX            31/44     32/28     40/10     83/06    125/50    164/10
                                           32/26     33/36     40/13     90/48    128/29    168/38
        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
        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/26 X  183/36
        WO.CS           0   EXTERNAL*       4/26 X  122/39
        WO.DOLG         0   EXTERNAL*       4/26 X   91/24
        XMITOP        337   PROGRAM*       20/16 L  141/06
        XR.TAGP        52   FTX            28/05     41/37
        ZLE             0   EXTERNAL*       3/29 X    7/08 S   53/14     60/39     60/54 S
        ZLEQUAL         0   EXTERNAL*       3/29 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    163/48    164/01    168/25
        Z=TURP          3   FTX            61/17     83/25    160/47    166/39    179/41    180/42    183/18
                                           64/46    114/12    166/34    179/41    180/09    182/05
        Z.IMCV          0   EXTERNAL*       4/40 X  134/04
        Z.INTA          0   EXTERNAL*       4/40 X   34/18
        Z.INTF          0   EXTERNAL*       4/41 X  129/22
        Z.NEGOP        30                  20/54 L
        Z.SKCR          0   EXTERNAL*       4/41 X  167/08
        .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
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/05. 19.59.39.      PAGE   216
        SYMBOLIC REFERENCE TABLE. 
  
        .9              0                  25/41 D   25/41 D   25/41 D   61/55 D   61/55 D   61/55 D   65/07 D   65/07 D
                                           25/41     25/41     25/41     61/55     61/55     61/55     65/07     65/07
                                           25/41 D   25/41 D   25/41 D   61/55 D   61/55 D   65/07 D   65/07 D   65/07 D
                                           25/41     25/41     25/41     61/55     61/55     65/07     65/07     65/07
                                           25/41 D   25/41 D   25/41 D   61/55 D   61/55 D   65/07 D   65/07 D   65/07 D
                                           25/41     25/41     25/41     61/55     61/55     65/07     65/07     65/07
                                           25/41 D   25/41 D   25/41 D   61/55 D   61/55 D   65/07 D   65/07 D   65/07 D
                                           25/41     25/41     25/41     61/55     61/55     65/07     65/07     65/07
                                           25/41 D   25/41 D   61/55 D   61/55 D   61/55 D   65/07 D   65/07 D   65/07 D
                                           25/41     25/41     61/55     61/55     61/55     65/07     65/07     65/07
                                           25/41 D   25/41 D   61/55 D   61/55 D   61/55 D   65/07 D   65/07 D
                                           25/41     25/41     61/55     61/55     61/55     65/07     65/07
                                           25/41 D   25/41 D   61/55 D   61/55 D   61/55 D   65/07 D   65/07 D
                                           25/41     25/41     61/55     61/55     61/55     65/07     65/07
  
  
  
  
                                                  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           2635   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          2636   PROGRAM*      106/06 L  107/22    114/03    114/43 S  114/55    122/25 S  125/45 S
        IE           2637   PROGRAM*       96/04 S   98/04    106/07 L  122/23 S  122/56
        IT           2640   PROGRAM*       34/27 S   98/21 S  106/08 L  117/09 S  122/54    129/12 S  133/31 S  134/02
        MA           2641   PROGRAM*      106/09 L  110/29    128/25 S  134/18 S
        RJ           2642   PROGRAM*      106/10 L  108/15 S  114/10    122/32 S
        TP           2643   PROGRAM*       34/29    106/11 L  113/56    114/08    122/53 S  125/39 S
  
  
  
  
                                                  SYMBOL QUALIFIER =  AR
  
  
        BIAS         3505   PROGRAM*      135/05 L  137/20 S  140/36    142/33    144/02    145/44    148/15
        DIMI         3506   PROGRAM*      135/06 L  137/37    139/07    144/49    150/24 S
        NSUB         3507   PROGRAM*      135/07 L  138/41    138/46    139/39    150/19 S
                                          138/07 S  138/44    139/16    140/01
        VDSK         3510   PROGRAM*      135/08 L  138/34 S  147/38    148/22
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1437              IDENT  CONRED 
                       1437                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1432 
                                        LITERALS* LOCAL        1432         5 
  
  
                                        ENTRY POINTS. 
  
                                        B=CONRE          0+           PCR.1OP        574+           D=BSS         1134+ 
                                        LVEC             6+           PCR.2OP        576+           D=DOBD2       1134+ 
                                        LLVEC           10+           PCR.RO         600+           D=DVI         1232+ 
                                        RVEC            12+           KCV            760+           GPS           1333+ 
                                        RLVEC           13+           LCH           1007+           D=EXP.I       1351+ 
                                        REG=T           14+           LCT           1050+           D=STR.I       1360+ 
                                        CTAA            43+           LIR           1065+           D=DOBS        1401+ 
                                        DEC             62+           NBC           1073+           D=DOBL        1401+ 
                                        OCT            223+           NCS           1112+           D=DOBZS       1401+ 
                                        TNK            250+           SED           1130+           D=DOBZL       1401+ 
                                        CCR            442+           D=NOOP        1134+           D=DOC.S       1413+ 
                                        CTA            474+           D=ARY         1134+           D=DOC.L       1413+ 
                                        PCC            513+           D=SUBST       1134+ 
                                        PCR            555+           D=COLON       1134+ 
  
  
                                        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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      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/05. 19.59.48.      PAGE    20
        FSCALE - FLOATING DP CONVERSION.
  
                                                                                                                 CONRED    540
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
                     0100001050 +                 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/05. 19.59.48.      PAGE    22
        CONSTANT REDUCTION.                                           CCR 
  
           453  5160000473 +                      SA6    CONRB       0 IF RESULT DOUBLE, OPERATOR +, CONST LONG  FC51344    15
                          0100001050 +            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/05. 19.59.48.      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  0100001073 +                      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/05. 19.59.48.      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  5120001433 +                      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
                     5140001432 +                 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/05. 19.59.48.      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/05. 19.59.48.      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  0100000767 +                      RJ     CCS         COMPARE CHARACTER STRINGS                   CONRED    779
           563  5110001434 +                      LDX    X1,"EQ"     X1 = IMPLICATION VECTOR FOR EQ              CONRED    780
                          0307000566 +            ZR     X7,PCR10    IF 1ST STRING .EQ. 2ND STRING               CONRED    781
           564  5110001435 +                      LDX    X1,"LT"     X1 = IMPLICATION VECTOR FOR LT              CONRED    782
                          0337000566 +            MI     X7,PCR10    IF 1ST STRING .LT. 2ND STRING               CONRED    783
           565  5110001436 +                      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  0100001073 +                      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
                     5160000741 +                 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/05. 19.59.48.      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
                     0100000714 +                 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/05. 19.59.48.      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/05. 19.59.48.      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
           711  0312400711 +                      NZ     X2,"BLOWUP" IF VAL .NZ.                                 CONRED    944
                          5110000052 +            SA1    INST=03                                                 CONRED    945
           712  12614                             BX6    X1+X4                                                   CONRED    946
                     5160000633 +                 SA6    INST                                                    CONRED    947
           713  0400000640 +                      EQ     EXIT.                                                   CONRED    948
  
  
  
  
                                        **        COL - CHECK OPERAND LEGALITY.                                  CONRED    950
                                                                                                                 CONRED    951
           714  0400400714 +             COL      SUBR                                                           CONRED    952
           715  5110000045 +                      SA1    PIK                                                     CONRED    953
                          20150                   HX1    OD.UP                                                   CONRED    954
           716  0321000723 +                      PL     X1,COL10    IF NOT UNPACK INSTRUCTION                   CONRED    955
                          10733                   BX7    X3                                                      CONRED    956
           717  0100000742 +                      RJ     CFO         CHECK FLOATING POINT OPERAND                CONRED    957
           720  0400000714 +                      EQ     EXIT.       TO ALLOW REDUCTION OF NINT (IF NO PROBLEM)  CONRED    958
           721  26033                             UX0    B3,X3                                                   CONRED    959
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    30
        CONSTANT REDUCTION.                                           COL 
  
                     0630000511 +                 PL     B3,CTA.ER   IF VALUE TOO LARGE TO FIX                   FC5A150   533
           722  0400000714 +                      EQ     EXIT.                                                   CONRED    961
                                                                                                                 CONRED    962
           723  20101                    COL10    LX1    OD.UPP-OD.PKP                                           CONRED    963
                     0321000726 +                 PL     X1,COL20    IF NOT PACK INSTRUCTION                     CONRED    964
                               10733              BX7    X3                                                      CONRED    965
           724  0100000745 +                      RJ     CIO         CHECK INTEGER OPERAND                       CONRED    966
           725  0400000714 +                      EQ     EXIT.                                                   CONRED    967
                                                                                                                 CONRED    968
           726  20105                    COL20    LX1    OD.PKP-OD.FPAP                                          CONRED    969
                     0321000714 +                 PL     X1,EXIT.    IF NOT FP ARITHMETIC                        CONRED    970
                               10722              BX7    X2                                                      CONRED    971
           727  0100000742 +                      RJ     CFO         CHECK 1OP                                   CONRED    972
           730  10733                             BX7    X3                                                      CONRED    973
                     0100000742 +                 RJ     CFO         CHECK 2OP                                   CONRED    974
           731  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
           732  6133000060                        SB3    B3+60B                                                  FC5A158A  433
                          6170002050              SB7    1770B+60B   B7 = TEST VALUE                             FC5A158A  434
           733  20173                             LX1    OD.FPAP-OD.DIVP                                         FC5A158A  435
                     0321000736 +                 PL     X1,COL30    IF NOT DIVIDE                               FC5A158A  436
                               24103              NX1    X3                                                      FC5A158A  437
           734  0301000511 +                      ZR     X1,CTA.ER   IF DIVIDE BY ZERO                           FC5A158A  438
                          67223                   SB2    B2-B3                                                   FC5A158A  439
           735  0772000511 +                      GT     B2,B7,CTA.ER      IF RESULT OF DIVIDE WOULD BE BAD      FC5A158A  440
                          0400000714 +            EQ     EXIT.                                                   FC5A158A  441
                                                                                                                 FC5A158A  442
           736  5110000741 +             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
           737  0331000714 +                      MI     X1,EXIT.    IF ADD OR SUBTRACT                          FC5A158A  445
                          66223                   SB2    B2+B3                                                   FC5A158A  446
           740  0772000511 +                      GT     B2,B7,CTA.ER      IF RESULT OF MULTIPLY WOULD BE BAD    FC5A158A  447
                          0400000714 +            EQ     EXIT.                                                   FC5A158A  448
                                                                                                                 FC5A158A  449
           741                     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
           742  0400400742 +             CFO      SUBR                                                           CONRED    984
           743  0357000511 +                      OR     X7,CTA.ER   IF OPERAND OUT OF RANGE                     FC5A150   535
                          0377000511 +            ID     X7,CTA.ER   IF OPERAND INDEF.                           FC5A150   536
           744  0400000742 +                      EQ     EXIT.                                                   CONRED    987
  
  
  
  
                                        **        CIO - CHECK INTEGER ABOUT TO BE FLOATED.                       CONRED    989
                                                                                                                 CONRED    990
           745  0400400745 +             CIO      SUBR                                                           CONRED    991
           746  21760                             AX7    60-12                                                   CONRED    992
                     0307000745 +                 ZR     X7,EXIT.    IF NOT TOO LARGE                            CONRED    993
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    31
        CONSTANT REDUCTION.                                           CIO 
  
           747  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
           750                           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
           757                                    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
           757  6120777776               KCEE     SB2    -1          INDICATE ILL CONVERSION                     CONRED   1044
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    32
        CONSTANT REDUCTION.                                           KCV 
  
                                                                                                                 CONRED   1045
           760  0400400760 +             KCV      SUBR   =           ENTRY/EXIT...                               CONRED   1046
           761  5220000750 +                      SA2    X0+KMOD     FETCH ROW FOR OLD MODE                      CONRED   1047
                          20103                   LX1    3           (B2) = 8 * SMOD                             CONRED   1048
                               43064              MX0    -8                                                      CONRED   1049
           762  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
           763  6223777776                        SB2    X3-1                                                    CONRED   1054
                          0222000760 +            JP     B2+KCEE+1   ENTER MODE-CONVERTER..                      CONRED   1055
                                                                                                                 CONRED   1056
                                                                                                                 CONRED   1057
                                 760 +   KCNN     EQU    EXIT.       NULL CONVERSION                             CONRED   1058
                                                                                                                 CONRED   1059
                                 757 +   KCEE     EQU    KCNN-1      ILL CONVERSION                              CONRED   1060
                                                                                                                 CONRED   1061
           764                           KCIR     BSS                INT  ->  REAL                               CONRED   1062
           764                           KCID     BSS                INT  ->  DBL                                CONRED   1063
           764                           KCIZ     BSS                INT  ->  CPLX                               CONRED   1064
           764  27206                             PX2    X6                                                      CONRED   1065
                     6100000000                   SB0    +                                                       CONRED   1066
                               24602              NX6    X2                                                      CONRED   1067
                                                                                                                 CONRED   1068
           765                           KCRD     BSS                REAL ->  DBL                                CONRED   1069
           765                           KCRZ     BSS                REAL ->  CPLX                               CONRED   1070
           765                           KCDZ     BSS                DBL  ->  CPLX                               CONRED   1071
           765                           KCZD     BSS                CPLX ->  DBL                                CONRED   1072
           765  76700                             SX7    B0          LOWER = ZERO                                CONRED   1073
                     0400000760 +                 EQ     EXIT.                                                   CONRED   1074
                                                                                                                 CONRED   1075
           766                           KCRI     BSS                REAL ->  INT                                CONRED   1076
           766                           KCDI     BSS                DBL  ->  INT                                CONRED   1077
           766                           KCZI     BSS                CPLX ->  INT                                CONRED   1078
           766  26276                             UX2,B7 X6                                                      CONRED   1079
                     22672                        LX6    X2,B7                                                   CONRED   1080
                          0400000760 +            EQ     EXIT.                                                   CONRED   1081
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
           767  0400400767 +             CCS      SUBR               ENTRY/EXIT...                               CONRED   1100
           770  6170000012                        SB7    10          NEXT WORD FLAG                              CONRED   1101
                          43006                   MX0    CHAR                                                    CONRED   1102
                                                                                                                 CONRED   1103
           771  76323                    CCS10    SX3    B2+B3                                                   CONRED   1104
                     43700                        MX7    0                                                       CONRED   1105
                          0303000767 +            ZR     X3,EXIT.    IF BOTH STRINGS DONE                        CONRED   1106
           772  0100000775 +                      RJ     GNC         GET NEXT CHARACTERS                         CONRED   1107
           773  37743                             IX7    X4-X3                                                   CONRED   1108
                     0317000767 +                 NZ     X7,EXIT.    IF STRINGS DONT MATCH HERE                  CONRED   1109
           774  0400000771 +                      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
           775  0400400775 +             GNC      SUBR               ENTRY/EXIT...                               CONRED   1135
           776  0520001000 +                      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/05. 19.59.48.      PAGE    34
        CONSTANT TEST AND MANIPULATION.                               GNC 
  
           777  5110001433 +                      SA1    =10H            SUPPLY BLANKS FROM NOW ON               CONRED   1138
                                                                                                                 CONRED   1139
          1000  0530001002 +             GNC10    NZ     B3,GNC20    IF 2ND STRING NOT EXHAUSTED                 CONRED   1140
                          66331                   =B3    B3+1        GUARANTEES B3 STAYS ZERO                    CONRED   1141
          1001  5120001433 +                      SA2    =10H            SUPPLY BLANKS FROM NOW ON               CONRED   1142
                                                                                                                 CONRED   1143
          1002  11301                    GNC20    BX3    X0*X1       ISOLATE CHARACTER FROM 1ST STRING           CONRED   1144
                     0100000204 +                 RJ     DTA         DPC TO ASCII                                CONRED   1145
          1003  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
          1004  20106                             LX1    CHAR                                                    CONRED   1149
                     20206                        LX2    CHAR                                                    CONRED   1150
                          67221                   =B2    B2-1                                                    CONRED   1151
                               67331              =B3    B3-1                                                    CONRED   1152
          1005  67771                             =B7    B7-1                                                    CONRED   1153
                     0570000775 +                 NZ     B7,EXIT.    IF NEXT WORD NOT REQUIRED                   CONRED   1154
                               54111              =A1    A1+1                                                    CONRED   1155
          1006  54221                             =A2    A2+1                                                    CONRED   1156
                     0400000775 +                 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
          1007  0400401007 +             LCH      SUBR   =           ENTRY/EXIT...                               CONRED   1189
          1010  43071                             MX0    -TP.MODEL                                               CONRED   1190
                     10611                        BX6    X1                                                      CONRED   1191
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
          1011  20620                             HX6    TP.BIAS                                                 CONRED   1195
                     6270777771                   =B7    X0-M.CHAR                                               CONRED   1196
                               20120              LX1    TP.MODEP-TP.ORDP                                        CONRED   1197
          1012  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
          1013  0570001040 +                      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
                          0321001037 +            PL     X1,LCH4     IF OPERAND NOT INTERMEDIATE                 CONRED   1207
                                                                                                                 CONRED   1208
                                         .T       IFEQ   TEST,ON                                                 CONRED   1209
          1014  0316401014 +                      NZ     X6,"BLOWUP" IF BIAS NOT ZERO                            CONRED   1210
                          0336401014 +            MI     X6,"BLOWUP"                                             CONRED   1211
          1015  5120000000 X                      SA2    T=PAR                                                   CONRED   1212
                          37672                   IX6    X7-X2                                                   CONRED   1213
          1016  0326401016 +                      PL     X6,"BLOWUP" IF INTERMEDIATE TOO BIG                     CONRED   1214
                                         .T       ENDIF                                                          CONRED   1215
                                                                                                                 CONRED   1216
                          5120000000 X            SA2    T.PAR                                                   CONRED   1217
          1017  63720                             =B7    X2+OR.OPR                                               CONRED   1218
                     53377                        SA3    X7+B7       FETCH OPERATOR WORD OF TURPLE               CONRED   1219
                          43056                   MX0    -TH.SKELL                                               CONRED   1220
                               20316              LX3    -TH.SKELP                                               CONRED   1221
          1020  15630                             BX6    -X0*X3      (X6) = OPERATOR                             CONRED   1222
                     7170000000 X                 SX7    V=SUBST                                                 CONRED   1223
                               37667              IX6    X6-X7                                                   CONRED   1224
          1021  0316001037 +                      NZ     X6,LCH4     IF NOT SUBSTRING TURPLE                     CONRED   1225
                          54331                   =A3    A3-OR.OPR+OR.1OP                                        CONRED   1227
                               43754              MX7    -TP.ORDL                                                CONRED   1228
          1022  5110000000 X                      SA1    S=CON                                                   CONRED   1229
                          20320                   LX3    -TP.ORDP                                                CONRED   1230
                               15637              BX6    -X7*X3                                                  CONRED   1231
          1023  37361                             IX3    X6-X1                                                   CONRED   1232
                     0313001037 +                 NZ     X3,LCH4     IF NOT SUBSTRING OF CONSTANT                CONRED   1233
                               20341              LX3    TP.ORDP-1-TP.INTRP                                      FC50172     6
          1024  0333001037 +                      MI     X3,LCH4     IF ARRAY INTERMEDIATE                       FC50172     7
                          54331                   =A3    A3-OR.1OP+OR.2OP                                        CONRED   1234
                               20320              LX3    -TP.ORDP                                                CONRED   1235
          1025  15237                             BX2    -X7*X3      (X2) = (2OP.ORD) OF SUBSTRING               CONRED   1236
                                                                                                                 CONRED   1237
                                         .T       IFEQ   TEST,ON                                                 CONRED   1238
                     20341                        LX3    TP.ORDP-1-TP.INTRP                                      CONRED   1239
                          0323401025 +            PL     X3,"BLOWUP" IF (2OP) NOT FURTHER INTERMEDIATE           CONRED   1240
          1026  53127                             SA1    X2+B7                                                   CONRED   1241
                     7170000000 X                 SX7    V=COLON                                                 CONRED   1242
                               20116              LX1    -TH.SKELP                                               CONRED   1243
          1027  43056                             MX0    -TH.SKELL                                               CONRED   1244
                     15010                        BX0    -X0*X1                                                  CONRED   1245
                          37607                   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/05. 19.59.48.      PAGE    36
        CONSTANT TEST AND MANIPULATION.                               LCH 
  
                                         .T       ENDIF                                                          CONRED   1248
                                                                                                                 CONRED   1249
                               66771              =B7    B7-OR.OPR+OR.1OP                                        CONRED   1250
          1030  53127                             SA1    X2+B7       FETCH SUBSTRING FIRST                       CONRED   1251
                     54311                        =A3    A1-OR.1OP+OR.2OP                                        CONRED   1252
                          0100001050 +            RJ     LCT         LOAD VALUE                                  CONRED   1253
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1254
          1031  0521401031 +                      NE     B2,B1,"BLOWUP"  IF NOT SHORT CONSTANT                   CONRED   1255
                          10133                   BX1    X3                                                      CONRED   1256
          1032  7236777776                        SX3    X6-1        (X3) = FIRST CHAR POSITION                  CONRED   1257
                          0100001050 +            RJ     LCT         LOAD VALUE OF SUBSTRING-LAST                CONRED   1258
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1259
          1033  0521401033 +                      NE     B2,B1,"BLOWUP"  IF NOT SHORT CONSTANT                   CONRED   1260
                          37763                   IX7    X6-X3       CONLEN = LAST - (FIRST - 1)                 CONRED   1261
          1034  7110000011                        CW     X1,X3       CFWA = (FIRST - 1) / 10                     CONRED   1262
          1036  6120777775                        SB2    -2          INDICATE CHARACTER CONSTANT                 CONRED   1263
                          10611                   BX6    X1                                                      CONRED   1264
                                                                                                                 FC50201     6
          1037  7100000006               LCH4     =X0    M.CHAR                                                  CONRED   1265
                          0400001007 +            EQ     EXIT.                                                   CONRED   1266
                                                                                                                 CONRED   1267
                                        *         RESULT IS NON-CHARACTER.                                       CONRED   1268
                                                                                                                 CONRED   1269
          1040  5120000000 X             LCH6     SA2    S=CON                                                   CONRED   1270
                          7107000006              SX0    B7+M.CHAR                                               CONRED   1271
          1041  0331001007 +                      MI     X1,EXIT.    IF RESULT IS INTERMEDIATE                   CONRED   1272
                          20172                   LX1    TP.INTRP-TP.SHRTP                                       CONRED   1273
                               37272              IX2    X7-X2                                                   CONRED   1274
          1042  0331001046 +                      MI     X1,LCH8     IF SHORT CONSTANT                           CONRED   1275
                          0312001007 +            NZ     X2,EXIT.    IF NOT CONSTANT                             CONRED   1276
          1043  5110000000 X                      SA1    T.CON                                                   CONRED   1277
                          36716                   IX7    X1+X6                                                   CONRED   1278
                               53271              SA2    X7+B1       LOAD CONSTANT                               CONRED   1279
          1044  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
          1045  22601                             LX6    X1                                                      CONRED   1284
                     0400001007 +                 EQ     EXIT.                                                   CONRED   1285
                                                                                                                 CONRED   1286
          1046  66210                    LCH8     SB2    B1                                                      CONRED   1287
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1288
                     0317401046 +                 NZ     X7,"BLOWUP" IF SHORT CON WITH ORDINAL                   CONRED   1289
          1047  0400001007 +                      EQ     EXIT.                                                   CONRED   1290
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
          1050  0400401050 +             LCT      SUBR   =           ENTRY/EXIT...                               CONRED   1316
          1051  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
          1052  6270777771                        SB7    X0-M.CHAR                                               CONRED   1321
                          0470001050 +            ZR     B7,EXIT.    IF CHARACTER OPERAND                        CONRED   1322
          1053  10211                             BX2    X1                                                      CONRED   1323
                     20261                        SBIT   X2,TP.INTRP                                             CONRED   1324
                          0332001050 +            MI     X2,EXIT.    IF INTERMEDIATE                             CONRED   1325
          1054  20272                             SBIT   X2,TP.SHRTP/TP.INTRP                                    CONRED   1326
                     0332001062 +                 MI     X2,LCT1     IF SHORT CONSTANT                           CONRED   1327
                               22701              LX7    X1                                                      CONRED   1328
                                                  HX7    TP.ORD      LEFT ADJUST                                 CONRED   1329
          1055  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
          1056  37272                             IX2    X7-X2                                                   CONRED   1333
                     0312001050 +                 NZ     X2,EXIT.    IF NOT *CONSTANT*                           CONRED   1334
          1057  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
          1060  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
          1061  10611                             BX6    X1          1ST WORD                                    CONRED   1342
                     22702                        LX7    X2          2ND WORD                                    CONRED   1343
                          0400001050 +            EQ     EXIT.                                                   CONRED   1344
                                                                                                                 CONRED   1345
          1062  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/05. 19.59.48.      PAGE    38
        CONSTANT TEST AND MANIPULATION.                               LCT 
  
                               10611              BX6    X1                                                      CONRED   1349
          1063  0400001050 +                      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
          1064  76610                    LIR10    =X6    1                                                       CONRED   1368
                                                                                                                 CONRED   1369
          1065  0400401065 +             LIR      SUBR   =           ENTRY/EXIT...                               CONRED   1370
          1066  26022                             UX0,B2 X2                                                      CONRED   1371
                     22620                        LX6    B2,X0                                                   CONRED   1372
                          27706                   PX7    X6                                                      CONRED   1373
                               24707              NX7                                                            CONRED   1374
          1067  37072                             IX0    X7-X2                                                   CONRED   1375
                     0310001064 +                 NZ     X0,LIR10    IF NOT EXACT INTEGER                        CONRED   1376
                                                                                                                 CONRED   1377
                               76711              =X7    M.INT                                                   CONRED   1378
          1070  5160000006 +                      SA6    LVEC                                                    CONRED   1379
                          0100001112 +            RJ     NCS         CREATE OPERAND                              CONRED   1380
          1071  5120000006 +                      SA2    LVEC                                                    CONRED   1381
                          10766                   BX7    X6                                                      CONRED   1382
                               43600              MX6    0                                                       CONRED   1383
          1072  0400001065 +                      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
          1073  0400401073 +             NBC      SUBR   =           ENTRY/EXIT...                               CONRED   1398
          1074  6221777773                        =B2    X1-M.DBL                                                CONRED   1399
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    39
        CONSTANT TEST AND MANIPULATION.                               NBC 
  
                          0620001077 +            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
          1075  73710                             SX7    X1                                                      CONRED   1404
                     0100001112 +                 CALL   NCS         ENTER SINGLE-WORD CONSTANT                  CONRED   1405
          1076  0400001073 +                      EQ     EXIT.                                                   CONRED   1406
                                                                                                                 CONRED   1407
                                        *         HERE IF DOUBLE WORD CONSTANT                                   CONRED   1408
                                                                                                                 CONRED   1409
          1077  5160001107 +             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
          1100  6221777771                        SB2    X1-M.CHAR                                               CONRED   1414
                          0420401100 +            ZR     B2,"BLOWUP"       IF TYPE CHARACTER -- NFG              CONRED   1415
                                         .TEST    ENDIF                                                          CONRED   1416
          1101  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
          1102  5110000000 X                      SA1    T.CON                                                   CONRED   1420
                          6132000002              SB3    B2+2        (B3) = LWA+1 OF VALUE                       CONRED   1421
          1103  0100000000 X                      CALL   NCM         ENTER CONSTANT MULTIPLE                     CONRED   1422
          1104  5110000000 X                      SA1    S=CON                                                   CONRED   1423
                          76670                   SX6    B7                                                      CONRED   1424
                               20154              LX1    TP.ORDP                                                 CONRED   1425
          1105  20624                             LX6    TP.BIASP    ACTUAL CONSTANT ORDINAL IN BIAS             CONRED   1426
                     5130001111 +                 SA3    NBCA+2                                                  CONRED   1427
                               12216              BX2    X1+X6                                                   CONRED   1428
                                                  LX3    TP.MODEP                                                CONRED   1429
          1106  12623                             BX6    X2+X3       OPERAND = SYMORD(CON.) + BIAS + MODE        CONRED   1430
                     0400001073 +                 EQ     EXIT.                                                   CONRED   1431
                                                                                                                 CONRED   1432
          1107                     2     NBCA     BSS    2           CONSTANT VALUE                              CONRED   1433
          1111                     1              BSS    1           CONSTANT MODE                               CONRED   1434
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
          1112  0400401112 +             NCS      SUBR   =           ENTRY/EXIT...                               CONRED   1452
                                         .T       IFEQ   TEST,ON                                                 CONRED   1453
          1113  6227777773                        SB2    X7-M.DBL                                                CONRED   1454
                          0620401113 +            PL     B2,"BLOWUP" IF DOUBLE OR COMPLEX OR CHARACTER           CONRED   1455
                                   2              ERRMI  M.CHAR-M.DBL                                            CONRED   1456
                                         .T       ENDIF                                                          CONRED   1457
          1114  10266                             BX2    X6                                                      CONRED   1458
                     21221                        AX2    TP.SHRTB-1                                              CONRED   1459
                          0312001120 +            NZ     X2,NCS10    IF UPPER BITS NOT ALL SAME                  CONRED   1460
          1115  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
          1117  0400001112 +                      EQ     EXIT.                                                   CONRED   1467
                                                                                                                 CONRED   1468
                                         NCS10    LX7    TP.MODEP                                                CONRED   1469
          1120  5170001107 +                      SA7    NCSA        SAVE MODE                                   CONRED   1470
                          5110000000 X            SCAN   T.CON,SCT   SCAN CONSTANT TABLE                         CONRED   1471
          1122  76370                             SX3    B7                                                      CONRED   1472
                     0670001125 +                 PL     B7,NCS20    IF CONSTANT IN TABLE                        CONRED   1473
          1123  0100000000 X                      ADDWD  A1          ENTER CONSTANT                              CONRED   1474
          1124  7232777776                        =X3    X2-1                                                    CONRED   1475
          1125  5110000000 X             NCS20    SA1    S=CON                                                   CONRED   1476
                          5120001107 +            SA2    NCSA                                                    CONRED   1477
          1126  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
          1127  0400001112 +                      EQ     EXIT.                                                   CONRED   1482
                                                                                                                 CONRED   1483
                                1107 +   NCSA     EQU    NBCA        MODE OF CONSTANT                            CONRED   1484
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
  
  
  
  
          1130  0400401130 +             SED      SUBR   =                                                       CONRED   1503
          1131  7160000000                        SX6    0                                                       CONRED   1504
                          5160001170 +            SA6    SED.ERR                                                 CONRED   1505
          1132  5160001167 +                      SA6    SEDTURP     I=0                                         CONRED   1506
                          76600                   SHRINK T=DVV,0                                                 CONRED   1507
                                                                                                                 CONRED   1508
          1134                                    HEREFOR (NOOP,ARY,SUBST,COLON,BSS,DOBD2)                       CONRED   1509
          1134                           SED.RTN  BSS    0                                                       CONRED   1510
                                                                                                                 CONRED   1511
          1134  5110001167 +                      SA1    SEDTURP                                                 CONRED   1512
                          5120000000 X            SA2    T=DAR                                                   CONRED   1513
          1135  7261000003                        SX6    X1+3        I = I + 1                                   CONRED   1514
                          37026                   IX0    X2-X6                                                   CONRED   1515
          1136  0330001160 +                      MI     X0,SED.END  IF I = (T=DAR)                              CONRED   1516
                          5120000000 X            SA2    T.DAR                                                   CONRED   1517
          1137  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
          1140  63500                             SB5    X0                                                      CONRED   1522
                     43056                        MX0    -TH.SKELL                                               CONRED   1523
                          20116                   LX1    -TH.SKELP                                               CONRED   1524
                               15610              BX6    -X0*X1                                                  CONRED   1525
          1141  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
          1142  0770001143 +                      MI     B7,SED10    IF NO *HEREFOR*                             FC5A132    92
                          0277000000              JP     B7          GO TO APPROPRIATE *HEREFOR*                 FC5A132    93
                                                                                                                 FC5A132    94
          1143  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/05. 19.59.48.      PAGE    42
        DATA STATEMENT INTERPRETER                                    SED 
  
                                   0              ERRNZ  18-VS.CRAL                                              FC5A132    97
                          0307001152 +            ZR     X7,SED15    IF NOT REDUCIBLE, ERROR                     FC5A132    98
          1144  54411                             =A4    A1+OR.1OP-OR.OPR                                        CONRED   1531
                     54541                        =A5    A4+OR.2OP-OR.1OP                                        CONRED   1532
                          0100001171 +            RJ     CDR         CONSTANT-REDUCE TURPLE                      CONRED   1533
                                                                                                                 CONRED   1534
                                        *         STORE CONSTANT-VALUE IN TURPLE HEADER.                         CONRED   1535
                                                                                                                 CONRED   1536
          1145  43044                    SED.STO  MX0    -TH.DVALL                                               CONRED   1537
                     15660                        BX6    -X0*X6                                                  CONRED   1538
                          5110001167 +            SA1    SEDTURP                                                 CONRED   1539
          1146  5120000000 X                      SA2    T.DAR                                                   CONRED   1540
                          36712                   IX7    X1+X2                                                   CONRED   1541
          1147  5217777774                        =A1    X7-3+OR.OPR                                             CONRED   1542
                          20146                   LX1    -TH.DVALP                                               CONRED   1543
                               11101              BX1    X0*X1       CLEAR DVAL                                  CONRED   1544
          1150  12761                             BX7    X6+X1       INSERT VALUE                                CONRED   1545
                     20726                        LX7    TH.DVALP                                                CONRED   1546
                          43101                   CLAS=  X1,TH,(DDEF)                                            FC5A111    85
          1151  12771                             BX7    X7+X1       INDICATE DATA DEFINED                       FC5A111    86
                     54710                        SA7    A1                                                      CONRED   1547
                          0400001134 +            EQ     SED.RTN                                                 CONRED   1548
                                                                                                                 CONRED   1549
          1152  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
          1153  7160000001               SED.ABT  SX6    1                                                       CONRED   1559
                          5160001170 +            SA6    SED.ERR                                                 CONRED   1560
                                                                                                                 CONRED   1561
                                        *         PLACE SYM[WA(X0)] IN FILL.                                     CONRED   1562
                                                                                                                 CONRED   1563
          1154  5110000000 X                      SA1    T.SYM                                                   CONRED   1564
                          22610                   LX6    B1,X0                                                   CONRED   1565
                               36706              IX7    X0+X6                                                   CONRED   1566
          1155  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
          1156  5160000000 X                      SA6    FILL.                                                   CONRED   1572
                          64700                   SB7    A0                                                      CONRED   1573
          1157  0100000000 X                      FATAL  B7                                                      CONRED   1574
                                                                                                                 CONRED   1575
                                        *         END OF INTERPRETIVE SCAN.                                      CONRED   1576
                                                                                                                 CONRED   1577
          1160  5110000000 X             SED.END  SA1    T=DVV                                                   CONRED   1578
                          5150001170 +            SA5    SED.ERR                                                 CONRED   1579
          1161  5120000000 X                      SA2    T.DVV                                                   CONRED   1580
                          5130000000 X            SA3    T.SYM                                                   CONRED   1581
          1162  43022                             MX0    WC.DVPL                                                 CONRED   1582
                     63530                        SB5    X3                                                      CONRED   1583
                          63610                   SB6    X1                                                      CONRED   1584
                               20060              LX0    WC.DVPL+WC.DVPP                                         CONRED   1585
          1163  76600                             SHRINK T=DVV,0                                                 CONRED   1586
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    43
        DATA STATEMENT INTERPRETER                                    SED 
  
                                                                                                                 CONRED   1587
                                        *         CLEAR WC.DVP OF ENTRIES USED.                                  CONRED   1588
                                                                                                                 CONRED   1589
          1164  0460001130 +             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
          1165  53145                             SA1    B5+X4                                                   CONRED   1594
                                   0              ERRNZ  DV.PNTL-18                                              CONRED   1595
                     15710                        BX7    -X0*X1                                                  CONRED   1596
                          54710                   SA7    A1                                                      CONRED   1597
          1166  0400001164 +                      EQ     SED20                                                   CONRED   1598
                                                                                                                 CONRED   1599
          1167                     1     SEDTURP  BSS    1                                                       CONRED   1600
          1170                     1     SED.ERR  BSS    1           ERROR FLAG                                  CONRED   1601
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
          1171  0400401171 +             CDR      SUBR                                                           CONRED   1611
          1172  5170000000 +                      SA7    CCRA                                                    CONRED   1612
                          10144                   BX1    X4                                                      CONRED   1613
          1173  0100001205 +                      RJ     LCD         LOAD 1OP                                    CONRED   1614
          1174  5160000006 +                      SA6    LVEC                                                    CONRED   1615
                          10155                   BX1    X5                                                      CONRED   1616
          1175  0305001177 +                      ZR     X5,CDR10    IF 2OP NIL                                  CONRED   1617
                          0100001205 +            RJ     LCD         LOAD 2OP                                    CONRED   1618
          1176  5160000007 +                      SA6    LVEC+1                                                  CONRED   1619
                                                                                                                 CONRED   1620
          1177  5130000000 +             CDR10    SA3    CCRA                                                    CONRED   1621
                          0100000474 +            RJ     CTA         CONSTANT REDUCE TURPLE                      FC5A150   538
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1623
          1200  0306401200 +                      ZR     X6,"BLOWUP" IF NOT REDUCIBLE                            CONRED   1624
                          10166                   BX1    X6                                                      CONRED   1625
          1201  0100001050 +                      RJ     LCT         GET CONSTANT VALUE                          CONRED   1626
          1202  5110001167 +                      SA1    SEDTURP                                                 CONRED   1627
                          5120000000 X            SA2    T.DAR                                                   CONRED   1628
          1203  36012                             IX0    X1+X2                                                   CONRED   1629
                     6250777774                   SB5    X0-3        RESTORE TURPLE POINTER                      CONRED   1630
          1204  0400001171 +                      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
          1205  0400401205 +             LCD      SUBR                                                           CONRED   1638
          1206  10611                             BX6    X1                                                      CONRED   1639
                     5160001231 +                 SA6    LCDA                                                    CONRED   1640
                                                  LX6    -TP.MODEP                                               CONRED   1641
                               43071              MX0    -TP.MODEL                                               CONRED   1642
          1207  15060                             BX0    -X0*X6                                                  CONRED   1643
                     5100000000 X                 SA0    E.DVR4      NOT INTEGER                                 CONRED   1644
          1210  6220777775                        SB2    X0-M.INT                                                CONRED   1645
                          0300001212 +            ZR     X0,LCD5     IF BOOLEAN                                  CONRED   1646
                                   0              ERRNZ  M.BOOL                                                  CONRED   1647
          1211  0520001153 +                      NZ     B2,SED.ABT  OF NOT INTEGER                              CONRED   1648
                                                                                                                 CONRED   1649
          1212  20661                    LCD5     LX6    TP.MODEP-1-TP.INTRP                                     CONRED   1650
                     0336001224 +                 MI     X6,LCD10    IF INTERMEDIATE                             CONRED   1651
          1213  0100001050 +                      RJ     LCT         TRY TO LOAD CONSTANT                        CONRED   1652
          1214  0520001205 +                      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/05. 19.59.48.      PAGE    45
        DATA STATEMENT INTERPRETER                                    LCD 
  
                          5110001231 +            SA1    LCDA                                                    CONRED   1657
          1215  5120000000 X                      SA2    T.SYM                                                   CONRED   1658
                          43054                   MX0    -TP.ORDL                                                CONRED   1659
                               20120              LX1    -TP.ORDP                                                CONRED   1660
          1216  15610                             BX6    -X0*X1                                                  CONRED   1661
                     6272000002                   SB7    X2+WC.W                                                 CONRED   1662
                               22716              LX7    B1,X6                                                   CONRED   1663
          1217  36067                             IX0    X6+X7                                                   CONRED   1664
                     53207                        SA2    X0+B7       WORD C OF VAR                               CONRED   1665
                          5110000000 X            SA1    T.DVV                                                   CONRED   1666
          1220  20236                             LX2    -WC.DVPP                                                CONRED   1667
                     6222777776                   SB2    X2-1                                                    CONRED   1668
                               53212              SA2    X1+B2                                                   CONRED   1669
          1221  73060                             SX0    X6          ORD                                         CONRED   1670
                     5100000000 X                 SA0    E.DVR1      VARIABLE FILL. NOT DO INDEX                 CONRED   1671
          1222  0720001153 +                      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
          1223  0400001205 +                      EQ     EXIT.                                                   CONRED   1677
                                                                                                                 CONRED   1678
                                        *         GET VALUE OF INTERMEDIATE FROM TURPLE HEADER.                  CONRED   1679
                                                                                                                 CONRED   1680
          1224  20120                    LCD10    LX1    -TP.ORDP                                                CONRED   1681
                     43054                        MX0    -TP.ORDL                                                CONRED   1682
                          5120000000 X            SA2    T.DAR                                                   CONRED   1683
          1225  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
          1227  76010                             =X0    1                                                       FC5A111    95
                     0302001153 +                 ZR     X2,SED.ABT  IF NOT YET DEFINED                          FC5A111    96
                               20116              HX1    TH.DVAL                                                 CONRED   1687
          1230  21144                             AX1    -TH.DVALL                                               CONRED   1688
                     10611                        BX6    X1                                                      CONRED   1689
                          0400001205 +            EQ     EXIT.                                                   CONRED   1690
                                                                                                                 CONRED   1691
          1231                     1     LCDA     BSS    1                                                       CONRED   1692
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    46
        DATA STATEMENT INTERPRETER                                    DVI 
  
          1232                                    HEREFOR DVI                                                    CONRED   1694
          1232  56251                             =A2    B5+OR.1OP                                               CONRED   1695
                     10122                        BX1    X2                                                      CONRED   1696
                          20261                   HX2    TP.INTR                                                 CONRED   1697
          1233  0322001254 +                      PL     X2,DVI10    IF NOT INTERMEDIATE                         CONRED   1698
                          20271                   LX2    TP.INTRP-TP.ARYP                                        CONRED   1699
          1234  0332001254 +                      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
          1235  15610                             BX6    -X0*X1                                                  CONRED   1706
                     53163                        SA1    B3+X6       1OP                                         CONRED   1707
                          5160001303 +            SA6    DVIA                                                    CONRED   1708
          1236  0100001310 +                      RJ     EDS         EVALUATE DATA SCALAR                        CONRED   1709
          1237  5120001303 +                      SA2    DVIA                                                    CONRED   1710
                          63421                   =B4    X2+OR.2OP-OR.1OP                                        CONRED   1711
                               54620              SA6    A2          SAVE WC OF BASE                             CONRED   1712
          1240  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
          1241  53163                             SA1    B3+X6       COLON 1OP                                   CONRED   1717
                     73761                        =X7    X6+OR.2OP-OR.1OP                                        CONRED   1718
                          5170001304 +            SA7    DVIB                                                    CONRED   1719
          1242  66470                             SB4    B7                                                      CONRED   1720
                     0100001205 +                 RJ     LCD         GET SUBSTRING START                         CONRED   1721
          1243  10366                             BX3    X6                                                      CONRED   1722
                     5110001304 +                 SA1    DVIB                                                    CONRED   1723
                               53113              SA1    B3+X1       COLON 2OP                                   CONRED   1724
          1244  0100001205 +                      RJ     LCD         GET SUBSTRING END                           CONRED   1725
          1245  5120001303 +                      SA2    DVIA                                                    CONRED   1726
                          10466                   BX4    X6                                                      CONRED   1727
                               10622              BX6    X2                                                      CONRED   1728
          1246  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
          1247  12712                             BX7    X1+X2       MI IFF EITHER NOT POSITIVE                  CONRED   1736
                     5110001305 +                 SA1    CLEN        SET BY EDS                                  CONRED   1737
                               37043              IX0    X4-X3       MI IFF START GT END                         CONRED   1738
          1250  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
          1251  76060                             SX0    B6                                                      CONRED   1743
                     5100000000 X                 SA0    E.AT16      INVALID SUBSTRING                           CONRED   1744
          1252  0332001153 +                      MI     X2,SED.ABT  IF INVALID SUBSTRING                        CONRED   1745
                          0100000000 X            CALL   ECS         EVALUATE SUBSTRING                          CONRED   1746
          1253  0400001255 +                      EQ     DVI20                                                   CONRED   1747
                                                                                                                 CONRED   1748
          1254  0100001310 +             DVI10    RJ     EDS         EVALUATE SCALAR                             CONRED   1749
                                                                                                                 CONRED   1750
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    47
        DATA STATEMENT INTERPRETER                                    DVI 
  
          1255  10466                    DVI20    BX4    X6          PRESERVE X6                                 FC5A111    97
                     76670                        SX6    B7                                                      FC5A111    98
                          5160001307 +            SA6    DVIC        PRESERVE B7                                 FC5A111    99
          1256  76060                             SX0    B6          PRESERVE B6                                 FC5A111   100
                     0100000000 X                 CALL   CT1         GET OPERAND OF VARIABLE                     FC5A111   101
          1257  63600                             SB6    X0          RESTORE B6                                  FC5A111   102
                     10566                        BX5    X6                                                      FC5A111   103
                          0100000000 X            CALL   DOA         DETERMINE OPERAND ADDRESSABILITY            FC5A111   104
          1260  76060                             SX0    B6          X0 = SYMORD FOR POSSIBLE ERROR              FC5A111   105
                     0306001263 +                 ZR     X6,DVI30    IF NOT INVALID STORE TARGET                 FC5A111   106
          1261  6170000000 X                      FATAL  E.DVL1                                                  FC5A111   107
          1262  0400001160 +                      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
          1263  7130200510               DVI30    CLAS=  X3,WB,(FP,NVAR,LAB,PARM)                                FC5A111   113
                          11332                   BX3    X3*X2                                                   FC5A111   114
          1264  5100000000 X                      SA0    E.DAUC                                                  FC5A111   115
                          0313001153 +            NZ     X3,SED.ABT  IF USEAGE CONFLICT                          FC5A111   116
          1265  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
          1266  54121                             =A1    A2-WB.W+WC.W                                            FC5A111   124
                     20254                        HX2    WB.COM                                                  FC5A111   125
                          0322001275 +            PL     X2,DVI40    IF NOT IN COMMON                            FC5A111   126
          1267  43662                             MX6    -WC.RBL                                                 FC5A111   127
                     20114                        LX1    -WC.RBP                                                 FC5A111   128
                          5130000000 X            SA3    BLNKCOM                                                 FC5A111   129
          1270  15616                             BX6    -X6*X1      ISOLATE BLOCK NUMBER                        FC5A111   130
                     37663                        IX6    X6-X3                                                   FC5A111   131
                          5100000000 X            SA0    E.DABC                                                  FC5A111   132
          1271  0306001153 +                      ZR     X6,SED.ABT  IF IN BLANK COMMON                          FC5A111   133
                          5130000000 X            SA3    MOD                                                     FC5A184    86
          1272  20363                             HX3    MO.BLK                                                  FC5A184    87
                     0333001277 +                 MI     X3,DVI50    IF IN BLOCK DATA                            FC50201     7
          1273  6170000000 X                      ANSI   E.ANS6      ** COMMON PRESET IN BLOCK DATA ONLY         FC5A184    89
          1274  0400001277 +                      EQ     DVI50                                                   FC5A111   134
                                                                                                                 FC5A111   135
          1275  5130000000 X             DVI40    SA3    MOD                                                     FC5A111   136
                          20363                   HX3    MO.BLK                                                  FC5A111   137
          1276  5100000000 X                      SA0    E.DABL                                                  FC5A111   138
                          0333001153 +            MI     X3,SED.ABT  IF BLOCK DATA LOCAL VAR                     FC5A111   139
                                                                                                                 FC5A111   140
          1277  10144                    DVI50    BX1    X4                                                      FC5A111   141
                     5120001307 +                 SA2    DVIC                                                    FC5A111   142
          1300  5130001306 +                      SA3    COUNT                                                   FC5A111   143
                          63720                   SB7    X2                                                      FC5A111   144
                               10633              BX6    X3                                                      FC5A111   145
          1301  0100000000 X                      CALL   EDI         FILE ADDRESS/COUNT                          CONRED   1754
          1302  0400001134 +                      EQ     SED.RTN                                                 CONRED   1755
                                                                                                                 CONRED   1756
          1303                     1     DVIA     BSS    1                                                       CONRED   1757
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    48
        DATA STATEMENT INTERPRETER                                    DVI 
  
          1304                     1     DVIB     BSS    1                                                       CONRED   1758
          1305                     1     CLEN     BSS    1                                                       CONRED   1759
          1306                     1     COUNT    BSS    1                                                       CONRED   1760
          1307                     1     DVIC     BSS    1                                                       FC5A111   146
  
  
  
  
                                        **        EDS - EVALUATE SCALAR FOR DATA.                                CONRED   1762
                                        *                                                                        CONRED   1763
                                        *         PRESERVES B3,B5                                                CONRED   1764
                                                                                                                 CONRED   1765
          1310  0400401310 +             EDS      SUBR                                                           CONRED   1766
          1311  10311                             BX3    X1                                                      CONRED   1767
                     5115000002                   SA1    B5+OR.2OP                                               CONRED   1768
          1312  0100001205 +                      RJ     LCD         GET NUMBER OF ELEMENTS (COUNT)              CONRED   1769
          1313  5160001306 +                      SA6    COUNT                                                   CONRED   1770
                          10133                   BX1    X3                                                      CONRED   1771
                               10211              BX2    X1                                                      CONRED   1772
          1314  43600                             MX6    0                                                       CONRED   1773
                     20261                        HX2    TP.INTR                                                 CONRED   1774
                          0322001320 +            PL     X2,EDS10    IF NOT ARRAY                                CONRED   1775
          1315  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
          1316  56136                             SA1    B3+B6                                                   CONRED   1780
                     0100001205 +                 RJ     LCD         GET INDEX                                   CONRED   1781
          1317  67661                             =B6    B6+OR.1OP-OR.2OP                                        CONRED   1782
                     56136                        SA1    B3+B6                                                   CONRED   1783
                                                                                                                 CONRED   1784
          1320  10211                    EDS10    BX2    X1                                                      CONRED   1785
                     20120                        HX1    TP.BIAS                                                 CONRED   1786
                          21144                   AX1    -TP.BIASL                                               CONRED   1787
                               43054              MX0    -TP.ORDL                                                CONRED   1788
          1321  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
          1322  5170001332 +                      SA7    EDSA        SAVE INDEX                                  CONRED   1793
                          5130000000 X            SA3    T.SYM                                                   CONRED   1794
          1323  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
          1324  0100001333 +                      RJ     GPS         GET PRODUCT OF SPANS AND CLEN               CONRED   1801
          1325  5170001305 +                      SA7    CLEN                                                    CONRED   1802
                          5120001332 +            SA2    EDSA        INDEX                                       CONRED   1803
          1326  5140001306 +                      SA4    COUNT                                                   CONRED   1804
                          23322                   AX3    B2,X2       INDEX IN ELEMENTS                           CONRED   1805
                               36034              IX0    X3+X4       INDEX + 1 OF LAST ELEMENT                   CONRED   1806
          1327  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
          1330  5100000000 X                      SA0    =XE.DVR2    FILL. SUBSCRIPT OUTSIDE ARRAY BOUNDS        CONRED   1810
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    49
        DATA STATEMENT INTERPRETER                                    EDS 
  
                          0337001153 +            MI     X7,SED.ABT  IF INVALID REF.                             CONRED   1811
          1331  0400001310 +                      EQ     EXIT.                                                   CONRED   1812
                                                                                                                 CONRED   1813
          1332                     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
          1333  0400401333 +             GPS      SUBR   =                                                       CONRED   1827
          1334  5110000000 X                      SA1    T.SYM                                                   CONRED   1828
                          76260                   SX2    B6                                                      CONRED   1829
                               63211              =B2    X1+WB.W                                                 CONRED   1830
          1335  22712                             LX7    B1,X2                                                   CONRED   1831
                     36272                        IX2    X7+X2                                                   CONRED   1832
                          53122                   SA1    X2+B2       WB                                          CONRED   1833
          1336  5120000000 X                      SA2    T.DIM                                                   CONRED   1834
                          43057                   MX0    -WB.PNTL                                                CONRED   1835
                               63220              SB2    X2                                                      CONRED   1836
          1337  20115                             LX1    -WB.PNTP                                                CONRED   1837
                     15710                        BX7    -X0*X1                                                  CONRED   1838
                          53272                   SA2    X7+B2                                                   CONRED   1839
                               43044              MX0    -DH.PSL                                                 CONRED   1840
          1340  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
          1341  15120                             BX1    -X0*X2      PRODUCT OF SPANS IN ELEMENTS                CONRED   1845
                     66210                        =B2    1                                                       CONRED   1846
                          23221                   AX2    B2,X1                                                   CONRED   1847
          1342  7273777775                        SX7    X3-M.DBL/2                                              CONRED   1848
                          0307001333 +            ZR     X7,EXIT.    IF DOUBLE OR COMPLEX (DEPENDS ON M.DBL/2 =  CONRED   1849
          1343  66200                             =B2    0                                                       CONRED   1850
                     43700                        MX7    0                                                       CONRED   1851
                          10211                   BX2    X1                                                      CONRED   1852
          1344  7203777774                        SX0    X3-M.CHAR/2                                             CONRED   1853
                          0310001333 +            NZ     X0,EXIT.    IF NOT CHAR (DEPENDS ON NO TYPE = M.CHAR+1) CONRED   1854
          1345  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
          1346  10311                             BX3    X1                                                      CONRED   1859
                     7120000011                   CW     X2,X3                                                   CONRED   1860
          1350  0400001333 +                      EQ     EXIT.                                                   CONRED   1861
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      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
          1351                                    HEREFOR EXP.I                                                  CONRED   1867
          1351  5115000002                        SA1    B5+OR.2OP   EXPONENT                                    CONRED   1868
                          0100001205 +            RJ     LCD         GET VALUE                                   CONRED   1869
          1352  5160001357 +                      SA6    EXPA                                                    CONRED   1870
                          5115000001              SA1    B5+OR.1OP                                               CONRED   1871
          1353  0100001205 +                      RJ     LCD         GET BASE VALUE                              CONRED   1872
          1354  5110001357 +                      SA1    EXPA                                                    CONRED   1873
                          0100000000 X            CALL   EXD         EXPAND AND GET VALUE OF I**J                CONRED   1874
          1355  10166                             BX1    X6                                                      CONRED   1875
                     0100001050 +                 RJ     LCT                                                     CONRED   1876
          1356  0400001145 +                      EQ     SED.STO     PLACE VALUE IN HEADER AND CONTINUE          CONRED   1877
                                                                                                                 CONRED   1878
          1357                     1     EXPA     BSS    1                                                       CONRED   1879
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    51
        DATA STATEMENT INTERPRETER                                    STR.I 
  
          1360                                    HEREFOR STR.I                                                  CONRED   1881
                                                                                                                 CONRED   1882
                                        *         SIMULATE STORE TURPLE BY FILING VAL(1OP) IN DVV(2OP)           CONRED   1883
                                                                                                                 CONRED   1884
          1360  56151                             =A1    B5+OR.1OP                                               CONRED   1885
                     0100001205 +                 RJ     LCD         GET RIGHT HAND VALUE                        CONRED   1886
          1361  10566                             BX5    X6                                                      CONRED   1887
                     5125000002                   SA2    B5+OR.2OP   GET TARGET TAG                              CONRED   1888
          1362  0100001364 +                      RJ     SDV         STORE DATA VALUE                            CONRED   1889
          1363  0400001134 +                      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
          1364  0400401364 +             SDV      SUBR                                                           CONRED   1897
          1365  20220                             LX2    -TP.ORDP                                                CONRED   1898
                     43054                        MX0    -TP.ORDL                                                CONRED   1899
                          15620                   BX6    -X0*X2                                                  CONRED   1900
                               63660              SB6    X6                                                      CONRED   1901
          1366  5110000000 X                      SA1    T.SYM                                                   CONRED   1902
                          66766                   SB7    B6+B6                                                   CONRED   1903
          1367  7211000002                        SX1    X1+WC.W                                                 CONRED   1904
                          66776                   SB7    B7+B6                                                   CONRED   1905
                               53117              SA1    X1+B7       WC OF TARGET                                CONRED   1906
          1370  5120000000 X                      SA2    T.DVV                                                   CONRED   1907
                          43052                   MX0    -WC.DVPL                                                CONRED   1908
          1371  6222777776                        SB2    X2-1                                                    CONRED   1909
                          20136                   LX1    -WC.DVPP                                                CONRED   1910
                               15710              BX7    -X0*X1                                                  CONRED   1911
          1372  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
          1373  0317001377 +                      NZ     X7,SDV10    IF ALREADY IN DVV                           CONRED   1916
                          5130000000 X            SA3    T=DVV                                                   CONRED   1917
          1374  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
          1375  5110000000 X                      ADDWD  T.DVV                                                   CONRED   1922
          1376  54360                             SA3    A6                                                      CONRED   1923
                                                                                                                 CONRED   1924
          1377  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
          1400  54630                             SA6    A3          VAL[DVV(TARGET)] = VALUE                    CONRED   1929
                     0400001364 +                 EQ     EXIT.                                                   CONRED   1930
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    52
        DATA STATEMENT INTERPRETER                                    DO
  
          1401                                    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
          1401  5135000007                        SA3    B5+7                                                    CONRED   1937
                          5140000000 X            SA4    T.SYM                                                   CONRED   1938
          1402  5120001167 +                      SA2    SEDTURP                                                 CONRED   1939
                          20320                   LX3    -TP.ORDP                                                CONRED   1940
                               43054              MX0    -TP.ORDL                                                CONRED   1941
                                                  LX2    WC.BRADP                                                CONRED   1942
          1403  15630                             BX6    -X0*X3                                                  CONRED   1943
                     6274000002                   SB7    X4+WC.W                                                 CONRED   1944
                               22716              LX7    B1,X6                                                   CONRED   1945
          1404  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
          1405  5115000002                        SA1    B5+OR.2OP   NUMBER OF TRIPS                             CONRED   1953
                          0100001205 +            RJ     LCD         LOAD VALUE                                  CONRED   1954
          1406  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
          1407  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
          1410  0335001153 +                      MI     X5,SED.ABT  SET B7 AND FILL. ORD                        CONRED   1961
                          10566                   BX5    X6                                                      CONRED   1962
          1411  5125000004                        SA2    B5+4        DC.N TAG                                    CONRED   1963
                          0100001364 +            RJ     SDV         STORE VALUE IN DC.N                         CONRED   1964
          1412  0400001134 +                      EQ     SED.RTN                                                 CONRED   1965
  
  
  
  
          1413                                    HEREFOR (DOC.S,DOC.L)                                          CONRED   1967
                                                                                                                 CONRED   1968
                                        *         INCREMENT I = I + M3.                                          CONRED   1969
                                                                                                                 CONRED   1970
          1413  56151                             =A1    B5+OR.1OP                                               CONRED   1971
                     54311                        =A3    A1+OR.2OP-OR.1OP                                        CONRED   1972
                          0100001205 +            RJ     LCD         GET I (1OP)                                 CONRED   1973
          1414  10133                             BX1    X3                                                      CONRED   1974
                     10366                        BX3    X6                                                      CONRED   1975
                          0100001205 +            RJ     LCD         GET M3 (2OP)                                CONRED   1976
          1415  36536                             IX5    X3+X6                                                   CONRED   1977
                     5125000001                   SA2    B5+OR.1OP                                               CONRED   1978
          1416  0100001364 +                      RJ     SDV         STORE NEW I                                 CONRED   1979
          1417  5110001167 +                      SA1    SEDTURP                                                 CONRED   1980
                          5120000000 X            SA2    T.DAR                                                   CONRED   1981
          1420  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/05. 19.59.48.      PAGE    53
        DATA STATEMENT INTERPRETER                                    DOEND 
  
          1421  0100001205 +                      RJ     LCD         GET TRIP COUNT                              CONRED   1985
          1422  76010                             =X0    1                                                       CONRED   1986
                     37560                        IX5    X6-X0       DC. = DC. - 1                               CONRED   1987
                          0305001134 +            ZR     X5,SED.RTN  IF DC. = 0  */ LOOP EXHAUSTED               CONRED   1988
                                        *         CLEAR WC.DVP[L1]  (I) WHEN EXHAUSTED                           CONRED   1989
          1423  10233                             BX2    X3                                                      CONRED   1990
                     0100001364 +                 RJ     SDV         STORE NEW DC.                               CONRED   1991
                                                                                                                 CONRED   1992
                                        *         RESET SEDTURP TO BRAD[DO.] TO SIMULATE BRANCH-BACK.            CONRED   1993
                                                                                                                 CONRED   1994
          1424  5110001167 +                      SA1    SEDTURP                                                 CONRED   1995
                          5120000000 X            SA2    T.DAR                                                   CONRED   1996
          1425  36012                             IX0    X1+X2                                                   CONRED   1997
                     53101                        =A1    X0-3+4      DO. OPERAND                                 CONRED   1998
                          5120000000 X            SA2    T.SYM                                                   CONRED   1999
          1426  20120                             LX1    -TP.ORDP                                                CONRED   2000
                     43054                        MX0    -TP.ORDL                                                CONRED   2001
                          15610                   BX6    -X0*X1                                                  CONRED   2002
          1427  6272000002                        SB7    X2+WC.W                                                 CONRED   2003
                          22716                   LX7    B1,X6                                                   CONRED   2004
                               36067              IX0    X6+X7                                                   CONRED   2005
          1430  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
                          5160001167 +            SA6    SEDTURP                                                 CONRED   2010
          1431  0400001134 +                      EQ     SED.RTN                                                 CONRED   2011
  
  
  
  
                                                  LIST   D                                                       CONRED   2013
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ANSI= 
             0 X                        EXD 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1432  00000631463146314632      FY-Y-Y-Z
          1433  55555555555555555555
          1434  00000000000026000000          V 
          1435  00000000000031000000          Y 
          1436  00000000000052000000          ) 
  
          1437                                    END                                                            CONRED   2014
  
                             75100B CM  STORAGE USED             5943 STATEMENTS     1716 SYMBOLS      000005 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.700 SECONDS        1573 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/05. 19.59.48.      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           767   PROGRAM*       26/10     33/17 L
        CCS10         771   PROGRAM*       33/21 L   33/27
        CDR          1171   PROGRAM*       42/05     44/09 L
        CDR10        1177   PROGRAM*       44/15     44/19 L
        CFO           742   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           745   PROGRAM*       30/07     30/55 L
        CLEN         1305   PROGRAM*       46/44     48/02 L   48/49 S
        COL           714   PROGRAM*       27/35     29/50 L
        COL10         723   PROGRAM*       29/53     30/04 L
        COL20         726   PROGRAM*       30/05     30/10 L
        COL30         736   PROGRAM*       30/22     30/29 L
        COL.PO        741   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        1306   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/05. 19.59.48.      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         1303   PROGRAM*       46/15 S   46/17     46/33     47/57 L
        DVIB         1304   PROGRAM*       46/26 S   46/30     48/01 L
        DVIC         1307   PROGRAM*       47/03 S   47/50     48/04 L
        DVI10        1254   PROGRAM*       46/05     46/07     46/56 L
        DVI20        1255   PROGRAM*       46/54     47/01 L
        DVI30        1263   PROGRAM*       47/10     47/17 L
        DVI40        1275   PROGRAM*       47/30     47/44 L
        DVI50        1277   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        1134   PROGRAM*       41/32 L   41/32 E
        D=BSS        1134   PROGRAM*       41/32 L   41/32 E
        D=COLON      1134   PROGRAM*       41/32 L   41/32 E
        D=DOBD2      1134   PROGRAM*       41/32 L   41/32 E
        D=DOBL       1401   PROGRAM*       52/01 L   52/01 E
        D=DOBS       1401   PROGRAM*       52/01 L   52/01 E
        D=DOBZL      1401   PROGRAM*       52/01 L   52/01 E
        D=DOBZS      1401   PROGRAM*       52/01 L   52/01 E
        D=DOC.L      1413   PROGRAM*       52/40 L   52/40 E
        D=DOC.S      1413   PROGRAM*       52/40 L   52/40 E
        D=DVI        1232   PROGRAM*       46/01 L   46/01 E
        D=EXP.I      1351   PROGRAM*       50/05 L   50/05 E
        D=NOOP       1134   PROGRAM*       41/32 L   41/32 E
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        D=STR.I      1360   PROGRAM*       51/01 L   51/01 E
        D=SUBST      1134   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          1310   PROGRAM*       46/16     46/56     48/13 L
        EDSA         1332   PROGRAM*       48/40 S   48/50     49/04 L
        EDS10        1320   PROGRAM*       48/22     48/32 L
        EXD             0   EXTERNAL*      50/12
        EXPA         1357   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           775   PROGRAM*       33/24     33/55 L
        GNC10        1000   PROGRAM*       33/56     34/03 L
        GNC20        1002   PROGRAM*       34/03     34/07 L
        GPS          1333   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          766   PROGRAM*       31/33     32/33 L
        KCDZ          765   PROGRAM*       31/33     32/27 L
        KCEE          757   PROGRAM*       31/29     31/31     31/33     31/35     32/11
                                           31/30     31/32     31/34     31/57 L   32/16 D
        KCID          764   PROGRAM*       31/31     32/19 L
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        KCIR          764   PROGRAM*       31/31     32/18 L
        KCIZ          764   PROGRAM*       31/31     32/20 L
        KCNN          760   PROGRAM*       31/29     31/31     31/33     31/35     32/16
                                           31/30     31/32     31/34     32/14 D
        KCRD          765   PROGRAM*       31/29     31/32     32/25 L
        KCRI          766   PROGRAM*       31/32     32/32 L
        KCRZ          765   PROGRAM*       31/29     31/32     32/26 L
        KCV           760   PROGRAM*       32/02 L   32/02 E
        KCZD          765   PROGRAM*       31/34     32/28 L
        KCZI          766   PROGRAM*       31/34     32/34 L
        KMOD          750   PROGRAM*       31/27 L   32/03
        KW=DATA         0   EXTERNAL*       2/06 X   11/40
        KW.JMPL        22   FTX            11/43
        LCD          1205   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         1231   PROGRAM*       44/41 S   45/01     45/41 L
        LCD10        1224   PROGRAM*       44/52     45/25 L
        LCD5         1212   PROGRAM*       44/47     44/51 L
        LCH          1007   PROGRAM*       34/55 L   34/55 E
        LCH4         1037   PROGRAM*       35/16     35/34     35/41     35/43     36/19 L
        LCH6         1040   PROGRAM*       35/11     36/24 L
        LCH8         1046   PROGRAM*       36/29     36/41 L
        LCT          1050   PROGRAM*       21/44     36/06     37/25 L   44/24     50/14
                                           22/02     36/11     37/25 E   44/53
        LCT1         1062   PROGRAM*       37/36     37/55 L
        LIR          1065   PROGRAM*       38/25 L   38/25 E
        LIR10        1064   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
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        M.CHAR          6   FTX            31/35 L   36/19     37/30     39/15     49/46
                                           35/05     36/25     39/03     40/21
        M.COND          0                   4/09 D
        M.CPLX          5   FTX            31/34 L   39/02
        M.DBL           4   FTX            11/29     31/33 L   38/57     39/03     40/21
                                           21/52     38/57     39/02     40/19     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          1073   PROGRAM*       23/45     26/27     38/56 L   38/56 E
        NBCA         1107   PROGRAM*       39/11 S   39/28     39/34 L   40/49
        NBC4         1077   PROGRAM*       39/01     39/11 L
        NCM             0   EXTERNAL*       2/09 X   25/16     39/23
        NCS          1112   PROGRAM*       38/35     39/06     40/17 L   40/17 E
        NCSA         1107   PROGRAM*       40/35 S   40/42     40/49 D
        NCS10        1120   PROGRAM*       40/25     40/34 L
        NCS20        1125   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
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        O.GE           23   FTX            25/52     25/53
        O.GT           27   FTX            25/53
        O.HEX           7   FTX            13/21     14/39
        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          1364   PROGRAM*       51/09     51/20 L   52/34     52/52     53/07
        SDV10        1377   PROGRAM*       51/39     51/48 L
        SED          1130   PROGRAM*       41/26 L   41/26 E
        SEDTURP      1167   PROGRAM*       41/29 S   42/11     44/25     52/53     53/26 S
                                           41/35     43/14 L   52/08     53/11
        SED10        1143   PROGRAM*       41/53     41/56 L
        SED15        1152   PROGRAM*       42/02     42/24 L
        SED20        1164   PROGRAM*       43/04 L   43/12
        SED.ABT      1153   PROGRAM*       42/30 L   45/16     46/52     47/37     49/01
                                           44/49     45/35     47/20     47/47     52/31
        SED.END      1160   PROGRAM*       41/39     42/49 L   47/12
        SED.ERR      1170   PROGRAM*       41/28 S   42/31 S   42/50     43/15 L
        SED.RTN      1134   PROGRAM*       41/33 L   42/22     47/55     51/10     52/35     53/04     53/27
        SED.STO      1145   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
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        SKM.TMP         1                   3/09 D
        SKO.CON         0                   3/10 D
        SKO.GOP   7777776                   3/11 D
        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            1   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     35/54     41/46
        TH.SKELP       56   FTX            35/30     35/53     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
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        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
        TP.INTRL        1   FTX            46/04     48/21
        TP.INTRP       12   FTX            35/10     35/49     37/33     44/51     46/06     48/23
                                           35/42     36/27     37/35     46/04     48/21
        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     39/26     45/25     48/23     52/09
                                           35/10     35/45     40/43     46/11     48/36     52/26
                                           35/38     35/49     45/04     46/22     51/21     53/16
        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   35/21
        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   35/52
        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
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/05. 19.59.48.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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
  
                             74000B CM  STORAGE USED             2073 STATEMENTS     1426 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.933 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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.51.      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/05. 19.59.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1245              IDENT  LABEL
                       1245                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1212 
                                        LITERALS* LOCAL        1212        15 
                                        DEBUG     LOCAL        1227        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=LABEL          0+           PSL            272+           DDR            750+ 
                                        DOMODE           0+           KW=DO          313+           FBS            777+ 
                                        CUL              1+           CDI            334+           PDA           1135+ 
                                        GSL             21+           CDIFLG         566+           RBE           1144+ 
                                        ISL            103+           PDT            574+ 
                                        STL0R          270+           ALU            700+ 
  
  
                                        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
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE     2
                                                                      LABEL 
  
                                                  EXT    ARGCOMA,ARGMODE,ASK,ASL,BBC,CSB,CSLTAG,CT1,DTI,ERT      FC5A231   132
                                                  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/05. 19.59.52.      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/05. 19.59.52.      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
                          5130001212 +            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/05. 19.59.52.      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  5130001213 +                      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
                          5110001214 +            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/05. 19.59.52.      PAGE     6
        STATEMENT LABELS.                                             GSL 
  
            40  5110001215 +                      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
                          5110001216 +            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/05. 19.59.52.      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
                          0100000700 +            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/05. 19.59.52.      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  5130001217 +                      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  5130001217 +                      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/05. 19.59.52.      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  5110001220 +                      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/05. 19.59.52.      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/05. 19.59.52.      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
                          5110001216 +            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/05. 19.59.52.      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
                     0100001144 +                 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  0100001144 +                      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/05. 19.59.52.      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/05. 19.59.52.      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
                          0100000700 +            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  5110000566 +                      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/05. 19.59.52.      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  0100001144 +             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
                     0100000574 +                 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/05. 19.59.52.      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/05. 19.59.52.      PAGE    17
        *DO* STATEMENT.                                               SDO 
  
           332  5170000000 X                      SA7    LDEAD                                                   LABEL     707
                          0400000000 X            EQ     E.NP1                                                   LABEL     708
                                                                                                                 LABEL     709
           333  04170000000013001222 +   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/05. 19.59.52.      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  5170000566 +                      SA7    CDIFLG      PRESERVE ORIGINAL STMT ERROR COUNT          LABEL     737
                          63760                   SB7    X6                                                      LABEL     738
                               76770              SX7    B7                                                      FC50632     7
           337  5170000565 +                      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  5170000566 +                      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
                          5160000561 +            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
                          5140000561 +            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/05. 19.59.52.      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  5160000562 +                      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  5120000561 +                      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/05. 19.59.52.      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  5160000564 +                      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
                          5140000566 +            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
                     0100001144 +                 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  5110000561 +                      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/05. 19.59.52.      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
                          5120000562 +            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/05. 19.59.52.      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
                          5110001222 +            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
                          0100000567 +            RJ     KDI         CONVERT INITIAL                             FC5A371    19
           464  22306                             LX3    X6          *M1* BINARY                                 FC5A371    20
                     56151                        =A1    B5-DOSI.W+DOLI.W                                        FC5A371    21
                          0100000567 +            RJ     KDI         CONVERT LIMIT                               FC5A371    22
           465  22406                             LX4    X6          *M2* BINARY                                 FC5A371    23
                     5115000002                   =A1    B5-DOSI.W+DOII.W                                        FC5A371    24
           466  0100000567 +                      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  5110001223 +             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/05. 19.59.52.      PAGE    23
        *DO* STATEMENT.                                               CDI 
  
           474  5110001224 +             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
                     5160000563 +                 SA6    CDIC        SAVE FOR TURPLE OUTPUT                      LABEL     981
                                                                                                                 LABEL     982
                                        *         INVENT TRIP COUNT VARIABLE                                     LABEL     983
                                                                                                                 LABEL     984
           510  5110000564 +                      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/05. 19.59.52.      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
                          5110000561 +            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/05. 19.59.52.      PAGE    25
        *DO* STATEMENT.                                               CDI 
  
                          5054000003              =A5    A4-DOCI.W+DOTC.W                                        LABEL    1030
           537  54620                             SA6    A2                                                      LABEL    1031
                     6130400563 +                 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  5110000565 +                      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
                          5110000000 X            SA1    CO.SNAP                                                 LABEL    1062
           556  20116                             LX1    1RN                                                     LABEL    1063
                     0321000560 +                 PL     X1,CDIXX    IF (SNAP=N) NOT SELECTED                    LABEL    1064
           557  0100000000 X             CDI      DUMPT  (BLST)                                                  LABEL    1065
           560                           CDIXX    BSS                                                            LABEL    1066
                                         SNAP=N   ENDIF                                                          LABEL    1067
                                                                                                                 LABEL    1068
           560  0400000334 +                      EQ     EXIT.                                                   LABEL    1069
                                                                                                                 LABEL    1070
           561                     1     CDIA     BSS    1           GENERAL SAVE CELL                           LABEL    1071
           562                     1     CDIB     BSS    1           DO BEGIN LABEL (TP. FORMAT)                 LABEL    1072
           563                     1     CDIC     BSS    1           DO BEGIN TURPLE HEADER                      LABEL    1073
           564                     1     CDID     BSS    1           DO TRIP COUNT (TP.)                         FC50594    24
           565                     1     CDIE     BSS    1           DO TYPE INDICATOR                           FC50632    14
           566                     1     CDIFLG   BSZENT 1           ERRORS IN STMT + 1 (ON ENTRY)               LABEL    1074
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      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
           567  0400400567 +             KDI      SUBR               ...ENTRY/EXIT...                            FC5A371    61
           570  0100000000 X                      CALL   LCT         LOAD BINARY OF CONSTANT                     FC5A371    62
           571  0420000567 +                      ZR     B2,EXIT.    IF NOT CONSTANT                             FC5A371    63
                          7200777774              SX0    X0-M.REAL                                               FC5A371    64
           572  0330000567 +                      MI     X0,EXIT.    IF NOT FLOATING                             FC5A371    65
                          26626                   UX6    X6,B2                                                   FC5A371    66
                               22626              LX6    B2,X6       INTEGERIZE                                  FC5A371    67
           573  0400000567 +                      EQ     EXIT.                                                   FC5A371    68
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      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
           574  0400400574 +             PDT      SUBR   =           ENTRY/EXIT...                               LABEL    1098
                                                                                                                 LABEL    1099
                                         SNAP=N   IFEQ   TEST,ON                                                 LABEL    1100
           575  5110000000 X                      SA1    CO.SNAP                                                 LABEL    1101
                          20116                   LX1    1RN         DO SNAP FLAG                                LABEL    1102
           576  0321000600 +                      PL     X1,PDT1A                                                LABEL    1103
           577  0100000000 X             N-PDT    DUMPT  (BLST)                                                  LABEL    1104
           600                           PDT1A    BSS    0                                                       LABEL    1105
                                         SNAP=N   ENDIF                                                          LABEL    1106
                                                                                                                 LABEL    1107
           600  10622                             BX6    X2                                                      LABEL    1108
                     5160000676 +                 SA6    PDTA        SAVE STATEMENT TAG (LOW ORDER)              LABEL    1109
                                                                                                                 FC50594    25
           601  5140000000 X             PDT1     SA4    T=BLST                                                  LABEL    1110
                          0304000574 +            ZR     X4,EXIT.    IF ALL BLOCKS REMOVED (FOR ERRORS)          LABEL    1111
           602  5110000000 X                      SA1    T.BLST                                                  LABEL    1112
                          6234777776              =B3    X4-1                                                    LABEL    1113
           603  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
           604  0310000610 +                      NZ     X0,PDT2     IF NOT IF BLOCK                             LABEL    1118
                          6170000000 X            FATAL  E.IF16      UNTERMINATED IF BLOCK                       LABEL    1119
           606  7160000000                        SX6    0           INDICATE IF BLOCK                           LABEL    1120
                          0100001144 +            RJ     RBE         REMOVE THE BLOCK ENTRY                      LABEL    1121
           607  0400000601 +                      EQ     PDT1        CONTINUE PROCESSING                         LABEL    1122
                                                                                                                 LABEL    1123
           610  5120000676 +             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
           611  37040                             IX0    X4-X0                                                   LABEL    1128
                     6250000005                   SB5    X0-DOSI.W+DO.W                                          LABEL    1129
                               43022              MX0    DO.FLGL                                                 LABEL    1130
           612  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/05. 19.59.52.      PAGE    28
        *DO* STATEMENT.                                               PDT 
  
                                                  HX5    DO.FLG                                                  LABEL    1133
                          6053777772              =B5    A3-DO.W     (B5) = ADDRESS OF THIS DO-TABLE ENTRY       LABEL    1134
           613  15250                             BX2    -X0*X5      REMOVE (DO.FLG) FROM COMPARISON             LABEL    1135
                     0302000620 +                 ZR     X2,PDT5     IF NOT ILLEGALLY NESTED DO                  LABEL    1136
           614  6170000000 X                      FATAL  E.DO12                                                  LABEL    1137
           615  5110000676 +                      SA1    PDTA                                                    LABEL    1138
                          20130                   HX1    DO.TAG                                                  LABEL    1139
                               21152              AX1    -DO.TAGL    EXTRACT LABEL SYMTAB ORDINAL                LABEL    1140
           616  10611                             BX6    X1                                                      LABEL    1141
                     20654                        LX6    TP.ORDP                                                 LABEL    1142
                          0100001144 +            RJ     RBE         REMOVE THE T.BLST ENTRY                     LABEL    1143
           617  0400000574 +                      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
           620  5125000004               PDT5     SA2    B5+DORT.W                                               LABEL    1151
                          0312000626 +            NZ     X2,PDT7     IF NO ERROR IN DO DEFINITION                LABEL    1152
           621  0332000623 +                      MI     X2,PDT6     IF NO CODE BECAUSE ONE TRIP LOOP            FC50594    26
                          6170000000 X            TRIV   E.DO13      DEFINITION ERROR                            LABEL    1153
                                                                                                                 FC50594    27
           623  63730                    PDT6     SB7    X3                                                      FC50594    28
                     0570000656 +                 NZ     B7,PDT40    IF CURRENT IS AN I/O IMPLIED DO             FC50594    29
           624  0100000777 +                      RJ     FBS         FINISH THE DO STRUCTURE                     FC50594    30
           625  0400000656 +                      EQ     PDT40                                                   LABEL    1155
                                                                                                                 LABEL    1156
           626  63730                    PDT7     SB7    X3                                                      LABEL    1157
                     0570000631 +                 NZ     B7,PDT10    IF CURRENT IS AN I/O IMPLIED DO             LABEL    1158
           627  0100000777 +                      RJ     FBS         FINISH THE DO STRUCTURE                     LABEL    1159
           630  66700                             =B7    0           INDICATE PROGRAMMER *DO*                    LABEL    1160
                                                                                                                 FC50594    31
           631                           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
           631  5110000000 X                      SA1    T.BLST                                                  LABEL    1181
                          5120000000 X            SA2    T=BLST                                                  LABEL    1182
           632  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/05. 19.59.52.      PAGE    29
        *DO* STATEMENT.                                               PDT 
  
           633  5127000007                        SA2    B7+DP.W                                                 LABEL    1185
                          20252                   HX2    DP.TURC                                                 LABEL    1186
                               21252              AX2    -DP.TURCL   EXTRACT DO CONCLUSION SKELETON              LABEL    1187
           634  0302000647 +                      ZR     X2,PDT25    IF CONCLUSION NOT TO BE OUTPUT              LABEL    1188
                          20252                   LX2    SP.SKELP                                                FC50104   235
           635  5130000003 X                      SA3    OPDUM+DUC=BOTH                                          LABEL    1190
                          12623                   BX6    X2+X3                                                   LABEL    1191
           636  5160000677 +                      SA6    PDTB        SAVE FOR TURPLE OUTPUT                      LABEL    1192
                          5147000003              =A4    B7+DOCI.W                                               LABEL    1193
           637  55541                             =A5    A4-DOCI.W+DOII.W                                        LABEL    1194
                     6130400677 +                 EMIT   PDTB,*                                                  LABEL    1195
                                                                                                                 LABEL    1196
           641  5130000000 X                      SA3    T.BLST                                                  LABEL    1197
                          63735                   SB7    X3+B5                                                   LABEL    1198
           642  5147000004                        =A4    B7+DORT.W                                               LABEL    1199
                          5054000003              =A5    A4-DORT.W+DP.W                                          LABEL    1200
           643  20530                             HX5    DP.DOTI                                                 LABEL    1201
                     21552                        AX5    -DP.DOTIL   EXTRACT TRIP COUNT VARIABLE ORDINAL         LABEL    1202
                          10055                   BX0    X5                                                      LABEL    1203
           644  0100000000 X                      CALL   CT1         GET TP. FORM OF TRIP COUNT VARIABLE         LABEL    1204
           645  22506                             LX5    X6                                                      LABEL    1205
                     6130020000 X                 EMIT   V=NOOP,2ND                                              LABEL    1206
                                                                                                                 LABEL    1207
           647  5110000000 X             PDT25    SA1    T.BLST                                                  LABEL    1208
                          63715                   SB7    X1+B5                                                   LABEL    1209
           650  5147000007                        SA4    B7+DP.W                                                 LABEL    1210
                                                  HX4    DP.DOXL                                                 LABEL    1211
                          21452                   AX4    -DP.DOXLL   EXTRACT DO CONCLUSION GL                    LABEL    1212
           651  0304000654 +                      ZR     X4,PDT30    IF NO GENERATED LABEL                       LABEL    1213
                          7110040000              CLAS=  X1,TP,(GL)                                              LABEL    1214
           652  20454                             LX4    TP.ORDP                                                 LABEL    1215
                     12441                        BX4    X4+X1                                                   LABEL    1216
                          43500                   MX5    0                                                       LABEL    1217
           653  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
           654  5110000000 X             PDT30    SA1    T=PAR                                                   LABEL    1223
                          10711                   BX7    X1                                                      LABEL    1224
           655  5170000000 X                      SA7    CURST       DONT SQUEEZE PAST DO                        LABEL    1225
                                                                                                                 LABEL    1226
           656  5140000000 X             PDT40    SA4    T=BLST                                                  LABEL    1227
                          7264777766              SX6    X4-Z=BLST-1                                             LABEL    1244
           657  54640                             SHRINK A4,X6       REMOVE CONCLUDED LOOP FROM DO-STACK         LABEL    1245
                     0306000574 +                 ZR     X6,EXIT.    IF DO-STACK EMPTY                           LABEL    1246
           660  5120000000 X                      SA2    T=BLST                                                  LABEL    1247
                          7100100000              CLAS=  X0,WB,(DLNI)                                            LABEL    1248
           661  0100001135 +                      RJ     PDA         PROPOGATE DO LOOP ATTRIBUTES                LABEL    1249
                                                                                                                 LABEL    1250
                                        *         CHECK FOR BLOCK IF ENTRY                                       LABEL    1251
                                                                                                                 LABEL    1252
           662  5110000000 X                      SA1    T.BLST                                                  LABEL    1253
                          5120000000 X            SA2    T=BLST                                                  LABEL    1254
           663  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/05. 19.59.52.      PAGE    30
        *DO* STATEMENT.                                               PDT 
  
           664  73030                             SX0    X3          EXTRACT DO INDEX                            LABEL    1258
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1259
                     0300000574 +                 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
           665  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
                          5120000676 +            SA2    PDTA        FETCH (X2) = TAG OF CURRENT DO LABEL        LABEL    1269
           666  6220000005                        =B2    X0+DO.W                                                 LABEL    1270
                          43052                   MX0    -DO.TAGL                                                LABEL    1271
                               53312              SA3    X1+B2                                                   LABEL    1272
           667  20022                             LX0    DO.TAGP                                                 LABEL    1273
                     15330                        BX3    -X0*X3                                                  LABEL    1274
                          13732                   BX7    X3-X2                                                   LABEL    1275
           670  0317000574 +                      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
           671  6053777772                        =B5    A3-DO.W                                                 LABEL    1285
                          0570000620 +            NZ     B7,PDT5     IF IN *I/O* DO                              LABEL    1286
           672  10633                             BX6    X3                                                      LABEL    1287
                     5110000000 X                 SA1    T.SYM                                                   LABEL    1288
                               21622              AX6    DO.TAGP                                                 LABEL    1289
           673  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
           674  53212                             SA2    X1+B2       LOAD *WB*                                   LABEL    1296
                     7100100000                   CLAS=  X0,WB,(DLNI)                                            LABEL    1297
                               12620              BX6    X2+X0                                                   LABEL    1298
           675  54620                             SA6    A2          INDICATE LABEL TERMINATES MORE THAN 1 LOOP  LABEL    1299
                     0400000620 +                 EQ     PDT5        CONTINUE                                    LABEL    1300
                                                                                                                 LABEL    1301
           676  00000000000000000000     PDTA     CON    0           CURRENT DO LABEL                            LABEL    1302
           677                     1     PDTB     BSS    1           TURPLE HEADER FOR DO CONCLUSION             LABEL    1303
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      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
           700  0400400700 +             ALU      SUBR   =           ...ENTRY/EXIT...                            FC5A341    29
           701  5110000000 X                      SA1    T.BLST                                                  LABEL    1323
                          5120000000 X            SA2    T=BLST                                                  LABEL    1324
           702  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
           703  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
           704  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
           705  0313000714 +                      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
                          0520000707 +            NZ     B2,ALU1     IF LABEL BEING DEFINED                      LABEL    1345
           706  43301                             CLAS=  X3,LA,(REF)                                             LABEL    1346
                          0400000737 +            EQ     ALU20                                                   LABEL    1347
                                                                                                                 LABEL    1348
           707  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
           710  0323000713 +                      PL     X3,ALU2     IF NOT PREVIOUSLY REFERENCED                FC50293    14
                          37020                   IX0    X2-X0                                                   LABEL    1353
           711  0320000713 +                      PL     X0,ALU2     IF FIRST REFERENCE WITHIN CURRENT ARM       LABEL    1354
                          6170000000 X            FATAL  E.SL09                                                  LABEL    1355
                                                                                                                 LABEL    1356
           713  43301                    ALU2     CLAS=  X3,LA,(DEF)                                             LABEL    1357
                     0400000737 +                 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/05. 19.59.52.      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
           714  0520000723 +             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
           715  20264                             SBIT   X2,WB.SDEFP                                             LABEL    1369
                     43301                        CLAS=  X3,LA,(REF)                                             LABEL    1370
           716  0322000737 +                      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
           717  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
                     0320000722 +                 PL     X0,ALU7     IF DEFINITION IS WITHIN CURRENT DO LOOP     LABEL    1378
           721  5130001225 +                      CLAS=  X3,LA,(REF,EXT)                                         LABEL    1379
                          7170200000              CLAS=  X7,WB,(DLEX)                                            LABEL    1380
                                                                                                                 FC50293    15
           722  12727                    ALU7     BX7    X2+X7                                                   LABEL    1381
                     54720                        SA7    A2          UPDATE DO HEADER *WB*                       LABEL    1382
                          0400000737 +            EQ     ALU20                                                   LABEL    1383
                                                                                                                 LABEL    1384
                                        *         HERE WHEN LABEL IS DEFINED WITHIN LOOP                         LABEL    1385
                                                                                                                 LABEL    1386
           723  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
           724  0322000737 +                      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
           725  0302000737 +                      ZR     X2,ALU20    IF FIRST REFERENCE IS ASSIGN                FC50879     6
                          37020                   IX0    X2-X0                                                   LABEL    1394
           726  0320000737 +                      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
           730  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
           731  36121                             IX1    X2+X1                                                   FC51356    68
                     5211000001                   SA1    X1+WB.W                                                 FC51356    69
                               43200              MX2    0                                                       FC51356    70
           732  22002                             LX0    X2                                                      FC51356    71
                     20135                        SBIT   X1,WB.ALRNP                                             FC51356    72
                          0321000734 +            PL     X1,ALU12    IF NO ALTERNATE RETURN TO THIS LABEL        FC51356    73
           733  43201                             CLAS=  X2,LA,(ALRN)                                            FC51356    74
                          22002                   LX0    X2                                                      FC51356    75
                                                                                                                 FC51356    76
           734  20101                    ALU12    SBIT   X1,WB.GOTOP/WB.ALRNP                                    FC51356    77
                     0321000736 +                 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/05. 19.59.52.      PAGE    33
        DO NEST AND IF BLOCK LABEL LINKAGE.                           ALU 
  
           736  5130001226 +             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
           737  5110000000 X             ALU20    SA1    T.BLST                                                  LABEL    1407
                          5120000000 X            SA2    T=BLST                                                  LABEL    1408
           740  6222777776                        SB2    X2-1                                                    LABEL    1409
                          67223                   SB2    B2-B3                                                   FC5A124    37
                               53112              SA1    X1+B2       PREFETCH LABEL WORD                         FC5A124    38
                                                                                                                 FC5A124    39
           741  0430000745 +             ALU21    ZR     B3,ALU25    IF NO MORE LABELS                           FC5A124    40
                          67331                   =B3    B3-1                                                    FC5A124    41
                               13716              BX7    X1-X6                                                   FC5A124    42
           742  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
           743  0317000741 +                      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
           744  5061777776                        SA6    A1-1        UPDATE TABLE ENTRY                          FC5A124    48
                          0400000700 +            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
           745  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
           746  5110000000 X                      ADDWD  T.BLST                                                  LABEL    1434
           747  0400000700 +                      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/05. 19.59.52.      PAGE    34
        DO NEST AND IF BLOCK LABEL LINKAGE.                           DDR 
  
           750  0400400750 +             DDR      SUBR   =           ...ENTRY/EXIT...                            FC5A211   108
           751  10755                             BX7    X5                                                      FC5A211   109
                     20761                        SBIT   X7,TP.INTRP                                             FC5A211   110
                          0337000750 +            MI     X7,EXIT.    IF ARRAY LOAD, CANT TELL                    FC5A211   111
           752  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
           753  0307000750 +                      ZR     X7,EXIT.    IF CHARACTER OPERAND                        FC5A211   117
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS                        FC5A211   118
           754  5110000000 X                      SA1    T.BLST                                                  FC5A211   119
                          5120000000 X            SA2    T=BLST                                                  FC5A211   120
           755  6222777776                        SB2    X2-1                                                    FC5A211   121
                          43750                   MX7    TP.ORBIL                                                FC5A211   122
                                                  LX7    TP.ORBIL+TP.ORBIP                                       FC5A211   123
           756  0302000750 +                      ZR     X2,EXIT.    IF NO ACTIVE BLOCKS                         FC5A211   124
                                                                                                                 FC50718    15
           757  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
           760  67227                             SB2    B2-B7                                                   FC5A211   131
                     0303000776 +                 ZR     X3,DDR5     IF NOT DO LOOP                              FC5A428     7
           761  6172000004                        SB7    B2+DOCI.W+1                                             FC5A211   133
                          53317                   SA3    X1+B7                                                   FC5A211   134
                               37353              IX3    X5-X3                                                   FC5A211   135
           762  11373                             BX3    X7*X3       EXTRACT TAG/BIAS                            FC5A211   136
                     0313000776 +                 NZ     X3,DDR5     IF NO DO INDEX REDEFINITION                 FC5A428     8
           763  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
           764  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
           765  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
           766  0313000773 +                      NZ     X3,DDR2     IF IMPLIED I/O DO                           FC5A428    20
                          5110000271 +            SA1    STLTAG      CURRENT DO TERMINAL                         FC50718    18
           767  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
           770  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
           771  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
           772  54710                             SA7    A1          UPDATE                                      FC50718    31
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    35
        DO NEST AND IF BLOCK LABEL LINKAGE.                           DDR 
  
                                                                                                                 FC5A428    21
           773  0100001144 +             DDR2     RJ     RBE         REMOVE THE DO ENTRY                         FC5A428    22
           774  43600                             MX6    0                                                       FC50718    33
                     5160000566 +                 SA6    CDIFLG      CLEAR TO AVOID SECOND SCRATCH               FC50718    34
           775  0400000000 X                      EQ     E.DO08      ** DO INDEX REDEFINITION                    FC50718    35
                                                                                                                 FC50718    36
           776  0620000757 +             DDR5     PL     B2,DDR1     IF MORE BLOCKS                              FC5A428    23
                          0400000750 +            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
           777  0400400777 +             FBS      SUBR   =           ...ENTRY/EXIT...                            LABEL    1449
                                                                                                                 LABEL    1450
                                        *         COPY THE BLOCK STRUCTURE SEGMENT TO T.SCR FOR PROCESSING EASE. LABEL    1451
                                                                                                                 LABEL    1452
          1000  5110000000 X                      SA1    T.BLST                                                  LABEL    1453
                          5120000000 X            SA2    T=BLST                                                  LABEL    1454
          1001  6232777776                        =B3    X2-1                                                    LABEL    1455
                          53113                   SA1    X1+B3       FETCH COUNT WORD                            LABEL    1456
                               10611              BX6    X1                                                      FC5A127    28
          1002  5160001132 +                      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
          1003  63210                             SB2    X1                                                      LABEL    1461
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1462
                     5110000000 X                 ALLOC  T.SCR,B3                                                LABEL    1463
          1005  22301                             LX3    X1          DESTINATION                                 LABEL    1464
                     5150000000 X                 SA5    T=BLST                                                  LABEL    1465
          1006  5120000000 X                      SA2    T.BLST                                                  LABEL    1466
                          76130                   SX1    B3          LENGTH                                      LABEL    1467
                               37551              IX5    X5-X1       NEW LENGTH OF T.BLST                        LABEL    1468
          1007  10655                             SHRINK T=BLST,X5                                               LABEL    1469
                               36225              IX2    X2+X5       SOURCE                                      LABEL    1470
          1010  0100000000 X                      MOVE   X1,X2,X3                                                LABEL    1471
          1011  66720                             SB7    B2                                                      LABEL    1472
                     5110000000 X                 SA1    T.SCR                                                   LABEL    1473
                               63210              SB2    X1          BASE OF THE CURRENT SEGMENT                 LABEL    1474
          1012  6133777766                        SB3    B3-Z=BLST-1 NUMBER OF LABELS TO PROCESS                 LABEL    1475
                          0570001044 +            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/05. 19.59.52.      PAGE    36
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
          1013  0430001021 +                      ZR     B3,FBS3     IF NO LABELS IN THIS ARM                    LABEL    1480
                          6122000010              SB2    B2+Z=BLST   ADVANCE TO FIRST LABEL                      LABEL    1481
                                                                                                                 FC50594    32
          1014  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
                          0321001020 +            PL     X1,FBS2     IF LABEL NOT DEFINED IN CURRENT BLOCK       LABEL    1486
          1015  5110000000 X                      SA1    T.SYM                                                   LABEL    1487
                          63720                   SB7    X2                                                      LABEL    1488
                               20201              LX2    1                                                       LABEL    1489
          1016  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
          1020  66221                    FBS2     =B2    B2+1                                                    LABEL    1497
                     67331                        =B3    B3-1                                                    LABEL    1498
                          0530001014 +            NZ     B3,FBS1     IF NOT FINISHED                             LABEL    1499
                                                                                                                 LABEL    1500
          1021  5110000000 X             FBS3     SA1    T=BLST                                                  LABEL    1501
                          0301001033 +            ZR     X1,FBS5     IF THIS IS ONLY BLOCK                       LABEL    1502
                                                                                                                 LABEL    1503
                                        *         MERGE LABELS INTO OUTER BLOCK                                  LABEL    1504
                                                                                                                 LABEL    1505
          1022  5120000000 X                      SA2    T=SCR                                                   LABEL    1506
                          7222777776              SX2    X2-1                                                    LABEL    1507
          1023  10622                             SHRINK A2,X2       REMOVE COUNT WORD (LC.)                     LABEL    1508
                                                                                                                 LABEL    1509
          1024  5110000000 X             FBS4     SA1    T.SCR                                                   LABEL    1510
                          6252777767              SB5    X2-Z=BLST                                               LABEL    1511
          1025  0450001033 +                      ZR     B5,FBS5     IF NO MORE LABELS                           LABEL    1512
                          6252777776              SB5    X2-1                                                    LABEL    1513
          1026  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
          1027  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
          1030  63731                             =B7    X3-WA.W+WB.W                                            LABEL    1525
                     0100000700 +                 RJ     ALU         ANALYZE LABEL USAGE (FOR OUTER STRUCTURE)   LABEL    1526
          1031  5120000000 X                      SA2    T=SCR                                                   LABEL    1527
                          7222777776              SX2    X2-1                                                    LABEL    1528
          1032  10622                             SHRINK A2,X2       REMOVE THE LABEL JUST PROCESSED             LABEL    1529
                          0400001024 +            EQ     FBS4                                                    LABEL    1530
                                                                                                                 LABEL    1531
                                        *         MOVE BLOCK BACK TO T.BLST                                      LABEL    1532
                                                                                                                 LABEL    1533
          1033  5110000000 X             FBS5     ALLOC  T.BLST,Z=BLST                                           LABEL    1534
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    37
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
          1035  7110000010                        SX1    Z=BLST      LENGTH                                      LABEL    1535
                          5120000000 X            SA2    T.SCR       SOURCE                                      LABEL    1536
          1036  7137777767                        SX3    B7-Z=BLST   DESTINATION                                 LABEL    1537
                          0100000000 X            MOVE   X1,X2,X3                                                LABEL    1538
          1037  7160000011                        SX6    Z=BLST+1                                                LABEL    1539
                          5110000000 X            SA1    REFLIN                                                  LABEL    1540
          1040  20114                             LX1    -XR.LINEP+LC.LINEP                                      LABEL    1541
                     12616                        BX6    X1+X6                                                   LABEL    1542
                          5110001132 +            SA1    FBSA        OLD COUNT WORD                              FC5A127    30
          1041  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
          1042  5110000000 X                      ADDWD  T.BLST      NEW LC. WORD                                LABEL    1543
          1043  0400001130 +                      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
          1044  0430001021 +             FBS10    ZR     B3,FBS3     IF NO LABELS IN THIS ARM                    FC51488     6
                          5110000000 X            SA1    T.SYM                                                   LABEL    1553
          1045  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
          1046  5160001133 +                      SA6    ALRNF                                                   FC51356    85
                          5160001134 +            SA6    GOTOF                                                   FC51356    86
                                                                                                                 FC50594    34
          1047  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
          1050  0321001056 +                      PL     X1,FBS12    IF NOT REFERENCED IN THIS DO LOOP           LABEL    1560
                          20101                   SBIT   X1,LA.EXTP/LA.REFP                                      LABEL    1561
          1051  0331001056 +                      MI     X1,FBS12    IF KNOWN TO BE EXIT                         LABEL    1562
                          20172                   SBIT   X1,LA.DEFP/LA.EXTP                                      LABEL    1563
          1052  0331001056 +                      MI     X1,FBS12    IF LABEL DEFINED IN THIS DO LOOP            LABEL    1564
                          5110000000 X            SA1    T.SYM                                                   LABEL    1565
          1053  7160200000                        CLAS=  X6,WB,(DLEX)                                            LABEL    1566
                          12336                   BX3    X3+X6       MERGE LOOP EXIT BIT                         LABEL    1567
                               63720              SB7    X2                                                      LABEL    1568
          1054  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
          1055  7160000400                        CLAS=  X6,WB,(SLEX)                                            LABEL    1574
                          12626                   BX6    X2+X6                                                   LABEL    1575
                               54620              SA6    A2                                                      LABEL    1576
                                                                                                                 FC50594    35
          1056  20704                    FBS12    SBIT   X7,LA.ALRNP                                             FC51356    88
                     0327001060 +                 PL     X7,FBS12A   IF NO *ALTERNATE RETURN* TO THIS LABEL      FC51356    89
                               43601              MX6    1                                                       FC51356    90
          1057  5160001133 +                      SA6    ALRNF                                                   FC51356    91
                                                                                                                 FC51356    92
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    38
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
          1060  20701                    FBS12A   SBIT   X7,LA.GOTOP/LA.ALRNP                                    FC51356    93
                     0327001062 +                 PL     X7,FBS12B   IF NO *GOTO* TO THIS LABEL                  FC51356    94
                               43601              MX6    1                                                       FC51356    95
          1061  5160001134 +                      SA6    GOTOF                                                   FC51356    96
                                                                                                                 FC51356    97
          1062  66221                    FBS12B   =B2    B2+1                                                    FC51356    98
                     67331                        =B3    B3-1                                                    LABEL    1578
                          0530001047 +            NZ     B3,FBS11    IF NOT FINISHED                             LABEL    1579
                                                                                                                 LABEL    1580
                                        *         TEST FOR ILLEGAL ENTRY/EXIT CONDITIONS                         LABEL    1581
                                                                                                                 LABEL    1582
          1063  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
          1064  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
          1065  20252                             HX2    WB.DLEN     MI IFF LOOP HAS EXIT AND NO ENTRY           LABEL    1590
                     0322001067 +                 PL     X2,FBS13A   IF NO ENTRY                                 FC50015    26
          1066  6170000000 X                      ANSI   E.DO19      LOOP HAS ENTRY                              FC50015    27
                                                                                                                 FC50015    28
          1067  0321001074 +             FBS13A   PL     X1,FBS14    IF NO ENTRY OR HAS EXIT                     FC50015    29
                          5120001133 +            SA2    ALRNF                                                   FC51356    99
          1070  0322001072 +                      PL     X2,FBS13B   IF NO ALTERNATE RETURN TO LOOP              FC51356   100
                          6170000000 X            WARN   E.DO20                                                  FC51356   101
                                                                                                                 FC51356   102
          1072  5120001134 +             FBS13B   SA2    GOTOF                                                   FC51356   103
                          0322001074 +            PL     X2,FBS14    IF NO *GOTO* TO THIS LOOP                   FC51356   104
          1073  6170000000 X                      FATAL  E.DO07                                                  FC51356   105
                                                                                                                 FC50594    36
          1074  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
                     0333001077 +                 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
          1077  5110000000 X             FBS14A   SA1    T.SCR                                                   FC50015    40
                          5130000000 X            SA3    T=SCR                                                   FC50015    41
          1100  6233777766                        SB3    X3-Z=BLST-1 NUMBER OF LABELS                            FC50015    42
                          6221000010              SB2    X1+Z=BLST   STARTING POINT                              FC50015    43
                                                                                                                 FC50594    37
          1101  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
                          0321001105 +            PL     X1,FBS16    IF LABEL NOT DEFINED IN CURRENT LOOP        FC50015    48
          1102  5110000000 X                      SA1    T.SYM                                                   FC50015    49
                          63730                   SB7    X3                                                      FC50015    50
                               20301              LX3    1                                                       FC50015    51
          1103  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/05. 19.59.52.      PAGE    39
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
                          53317                   SA3    X1+B7                                                   FC50015    55
                               12603              BX6    X0+X3                                                   FC50015    56
          1104  54630                             SA6    A3          MARK DEFINED LABEL AS INACTIVE              FC50015    57
                                                                                                                 FC50594    38
          1105  66221                    FBS16    =B2    B2+1                                                    FC50015    58
                     67331                        =B3    B3-1                                                    FC50015    59
                          0530001101 +            NZ     B3,FBS15    IF NOT FINISHED                             FC50015    60
          1106  0322001107 +                      PL     X2,FBS18    IF NO POSSIBLE LEGAL ENTRY                  FC50015    61
                          0100000000 X            CALL   LPE         LINK POSSIBLE-ENTRY DO LOOPS                FC5A127    34
                                                                                                                 FC50594    39
          1107  5120000000 X             FBS18    SA2    T=BLST                                                  FC50015    62
                          0302001121 +            ZR     X2,FBS20    IF THIS IS ONLY BLOCK                       LABEL    1604
                                                                                                                 LABEL    1605
                                        *         MERGE LABELS INTO OUTER BLOCK                                  LABEL    1606
                                                                                                                 LABEL    1607
          1110  5120000000 X                      SA2    T=SCR                                                   LABEL    1608
                          7222777776              SX2    X2-1                                                    LABEL    1609
          1111  10622                             SHRINK A2,X2       REMOVE COUNT WORD (LC.)                     LABEL    1610
                                                                                                                 LABEL    1611
          1112  5110000000 X             FBS19    SA1    T.SCR                                                   FC50015    63
                          6252777767              SB5    X2-Z=BLST                                               LABEL    1613
          1113  0450001121 +                      ZR     B5,FBS20    IF NO MORE LABELS                           LABEL    1614
                          6252777776              SB5    X2-1                                                    LABEL    1615
          1114  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
          1115  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
          1116  63731                             =B7    X3-WA.W+WB.W                                            LABEL    1627
                     0100000700 +                 RJ     ALU         ANALYZE LABEL USAGE (FOR OUTER STRUCTURE)   LABEL    1628
          1117  5120000000 X                      SA2    T=SCR                                                   LABEL    1629
                          7222777776              SX2    X2-1                                                    LABEL    1630
          1120  10622                             SHRINK A2,X2       REMOVE THE LABEL JUST PROCESSED             LABEL    1631
                          0400001112 +            EQ     FBS19                                                   FC50015    64
                                                                                                                 LABEL    1633
                                        *         MOVE BLOCK BACK TO T.BLST                                      LABEL    1634
                                                                                                                 LABEL    1635
          1121  5110000000 X             FBS20    ALLOC  T.BLST,Z=BLST                                           LABEL    1636
          1123  7110000010                        SX1    Z=BLST      LENGTH                                      LABEL    1637
                          5120000000 X            SA2    T.SCR       SOURCE                                      LABEL    1638
          1124  7137777767                        SX3    B7-Z=BLST   DESTINATION                                 LABEL    1639
                          0100000000 X            MOVE   X1,X2,X3                                                LABEL    1640
          1125  5110001132 +                      SA1    FBSA                                                    LABEL    1641
                          7160000011              SX6    Z=BLST+1                                                LABEL    1642
          1126  43052                             MX0    -LC.CNTL                                                LABEL    1643
                     11101                        BX1    X0*X1       CLEAR COUNT                                 LABEL    1644
                          12616                   BX6    X1+X6                                                   LABEL    1645
          1127  5110000000 X                      ADDWD  T.BLST      NEW LC. WORD                                LABEL    1646
                                                                                                                 LABEL    1647
          1130  76600                    FBS25    SHRINK T=SCR,B0                                                LABEL    1648
          1131  0400000777 +                      EQ     EXIT.                                                   LABEL    1649
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    40
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
                                                                                                                 LABEL    1650
          1132                     1     FBSA     BSS    1                                                       LABEL    1651
          1133                     1     ALRNF    BSS    1                                                       FC51356   106
          1134                     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
          1135  0400401135 +             PDA      SUBR   =           ...ENTRY/EXIT...                            LABEL    1663
          1136  5110000000 X                      SA1    T.BLST                                                  LABEL    1664
                          6222777776              SB2    X2-1                                                    LABEL    1665
                                                                                                                 FC5A341    31
          1137  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
          1140  67227                             SB2    B2-B7                                                   LABEL    1673
                     0430001143 +                 ZR     B3,PDA2     IF NOT DO LOOP                              LABEL    1674
          1141  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
          1142  54730                             SA7    A3                                                      LABEL    1678
                                                                                                                 FC5A341    32
          1143  0620001137 +             PDA2     PL     B2,PDA1     IF MORE BLOCKS                              LABEL    1679
                          0400001135 +            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/05. 19.59.52.      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
          1144  0400401144 +             RBE      SUBR   =           ...ENTRY/EXIT...                            LABEL    1698
          1145  0336001204 +                      MI     X6,RBE10    IF IMPLIED DO                               FC5A111   158
                          0316001154 +            NZ     X6,RBE1     IF NOT BLOCK IF                             LABEL    1699
          1146  5110000000 X                      SA1    IFLEVEL                                                 LABEL    1700
                          7261777776              SX6    X1-1                                                    LABEL    1701
          1147  5061000000                        SA6    A1+         DECREMENT IF LEVEL                          LABEL    1702
                          0100000777 +            RJ     FBS         FINISH BLOCK STRUCTURE                      LABEL    1703
          1150  5110000000 X                      SA1    T.BLST                                                  LABEL    1704
                          5120000000 X            SA2    T=BLST                                                  LABEL    1705
          1151  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
          1152  37223                             IX2    X2-X3                                                   LABEL    1710
                     10622                        SHRINK T=BLST,X2                                               LABEL    1711
          1153  0400001144 +                      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
          1154  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
          1156  5120000000 X             RBE2     SA2    T.BLST                                                  LABEL    1722
                          5130000000 X            SA3    T=BLST                                                  LABEL    1723
          1157  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
          1160  20130                             LX1    LC.CNTP-LC.DOP                                          LABEL    1729
                     73110                        SX1    X1          EXTRACT DO.N INDEX                          LABEL    1730
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1731
                          0301001164 +            ZR     X1,RBE3     IF BLOCK IF STRUCTURE                       LABEL    1732
          1161  76020                             SX0    B2                                                      LABEL    1733
                     37030                        IX0    X3-X0                                                   LABEL    1734
                          6270000005              SB7    X0+DO.W                                                 LABEL    1735
          1162  53127                             SA1    X2+B7                                                   LABEL    1736
                     21122                        AX1    DO.TAGP                                                 LABEL    1737
                          73113                   SX1    X1+B3                                                   LABEL    1738
          1163  0301001171 +                      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
          1164  5110000000 X             RBE3     ALLOC  T.SCR,B2                                                LABEL    1761
          1166  5110000000 X                      SA1    T.BLST                                                  LABEL    1762
                          5120000000 X            SA2    T=BLST                                                  LABEL    1763
          1167  76020                             SX0    B2                                                      LABEL    1764
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      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
          1170  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
          1171  5110000000 X             RBE4     SA1    T=BLST                                                  LABEL    1774
                          76020                   SX0    B2                                                      LABEL    1775
                               37110              IX1    X1-X0                                                   LABEL    1776
          1172  10611                             SHRINK A1,X1                                                   LABEL    1777
                          0316001156 +            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
          1173  5120000000 X                      SA2    T=SCR                                                   LABEL    1783
                          0302001144 +            ZR     X2,EXIT.    IF NO BLOCK INFORMATION                     LABEL    1784
          1174  5110000000 X                      ALLOC  T.BLST,X2                                               LABEL    1785
          1176  63210                             SB2    X1                                                      LABEL    1786
                     63320                        SB3    X2                                                      LABEL    1787
          1177  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
          1200  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
          1201  76320                             SX3    B2          DESTINATION                                 LABEL    1797
                     66227                        SB2    B2+B7       INCREMENT                                   LABEL    1798
                          0100000000 X            MOVE   X1,X2,X3                                                LABEL    1799
          1202  0530001177 +                      NZ     B3,RBE5     IF NOT FINISHED                             LABEL    1800
                          13666                   SHRINK T=SCR                                                   LABEL    1801
                          0400001144 +            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
          1204  5130000000 X             RBE10    SA3    IODOLEN                                                 FC51490    12
                          7233777767              SX3    X3-Z=BLST                                               FC51490    13
                                                                                                                 FC51490    14
          1205  5110000000 X             RBE12    SA1    T.BLST                                                  FC51490    15
                          5120000000 X            SA2    T=BLST                                                  FC51490    16
          1206  0302001144 +                      ZR     X2,EXIT.    IF BLST EMPTY                               FC51490    17
                          6222777776              SB2    X2-1                                                    FC51490    18
          1207  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
          1211  0323001205 +                      PL     X3,RBE12    IF ANOTHER LEVEL IN IMPLIED *DO*            FC51490    23
                          0400001144 +            EQ     EXIT.                                                   FC5A111   198
                                                                                                                 LABEL    1803
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      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.
  
          1212  00000000077740000000        G;5 
          1213  00000000000044000200          9 B 
          1214  00000000000004000010          D  H
          1215  00000000000040000010          5  H
          1216  00000000000010000140          H A5
          1217  00000000014000000000        A5
          1220  00000000000004000200          D B 
          1221  33000000000000000000    0 
          1222  24221120550317251624    TRIP COUNT
          1223  15344515365555555555    M1+M3 
          1224  15354515365555555555    M2+M3 
          1225  30000000000000000000    X 
          1226  44000000000000000000    9 
  
          1245                                    END                                                            LABEL    1805
  
                             74600B CM  STORAGE USED             6993 STATEMENTS     1617 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.594 SECONDS        1368 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACT             0   EXTERNAL*       2/31 X   20/19     21/13
        ADW             0   EXTERNAL*       1/52 X   33/38     37/13     39/54
        ALC             0   EXTERNAL*       1/52 X   19/14     35/41     36/57     39/44     41/54     42/21
        ALRNF        1133   PROGRAM*       37/27 S   37/56 S   38/24     40/03 L
        ALU           700   PROGRAM*        7/24     14/09     31/17 L   31/17 E   36/49     39/36
        ALU1          707   PROGRAM*       31/40     31/44 L
        ALU10         723   PROGRAM*       32/06     32/28 L
        ALU12         734   PROGRAM*       32/50     32/54 L
        ALU14         736   PROGRAM*       32/55     33/01 L
        ALU2          713   PROGRAM*       31/49     31/51     31/54 L
        ALU20         737   PROGRAM*       31/42     31/55     32/11     32/24     32/32     32/35     32/37     33/10 L
        ALU21         741   PROGRAM*       33/16 L   33/22
        ALU25         745   PROGRAM*       33/16     33/34 L
        ALU5          714   PROGRAM*       31/33     32/06 L
        ALU7          722   PROGRAM*       32/18     32/22 L
        ANSI=           0   EXTERNAL*       2/34 X   10/54     38/21
        ARGCOMA         0   EXTERNAL*       2/01 X   19/55 S
        ARGMODE         0   EXTERNAL*       2/01 X   19/56 S
        ASK             0   EXTERNAL*       2/01 X   16/16
        ASL             0   EXTERNAL*       2/01 X   16/20
        BBC             0   EXTERNAL*       2/01 X   21/39     34/11
        B1=1            0 
        CDI           334   PROGRAM*       16/45     18/23 L   18/23 E
        CDIA          561   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/05. 19.59.52.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        CDIB          562   PROGRAM*       19/13 S   21/21     25/45 L
        CDIC          563   PROGRAM*       23/35 S   25/03     25/46 L
        CDID          564   PROGRAM*       20/10 S   23/39     25/47 L
        CDIE          565   PROGRAM*       18/29 S   25/28     25/48 L
        CDIFLG        566   PROGRAM*       14/55     18/26 S   18/40 S   20/25     25/49 L   25/49 E   35/04 S
        CDIXX         560   PROGRAM*       25/37     25/39 L
        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/37 X   19/34
        CO.OPT          0   EXTERNAL*      23/47
        CO.SNAP         0   EXTERNAL*       2/19 X   25/35     27/25
        CR.DO           4   FTX            18/35
        CR.LAB         14   FTX             7/27
        CSB             0   EXTERNAL*       2/01 X   15/27
        CSLTAG          0   EXTERNAL*       2/01 X    6/57 S    7/26
        CT1             0   EXTERNAL*       2/01 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/31 X   29/41 S
        DDR           750   PROGRAM*       34/01 L   34/01 E
        DDR1          757   PROGRAM*       34/19 L   35/07
        DDR2          773   PROGRAM*       34/43     35/02 L
        DDR5          776   PROGRAM*       34/26     34/31     35/07 L
        DER             0   EXTERNAL*       2/13 X   10/57
        DMT=            0   EXTERNAL*       2/16 X   25/38     27/28
        DOARM           0   EXTERNAL*       2/31 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/31 X   23/33
        DO.FLGL        22   FTX            27/55
        DO.FLGP        52   FTX            24/55
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        DO.IODL        22   FTX            15/12     30/26     34/41     34/42
        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/31 X   20/04
        DTI             0   EXTERNAL*       2/01 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/31 X   22/17     25/03     25/14     25/27     29/11     29/22     29/34
        ERT             0   EXTERNAL*       2/01 X    7/29     14/21
        ESTACK          0   EXTERNAL*       2/02 X   20/17     21/11
        ESY             0   EXTERNAL*       2/02 X    6/07     13/08
        E=TOTAL         0   EXTERNAL*       2/37 X   18/24     20/24
        E.DO01          0   EXTERNAL*       2/06 X   21/54
        E.DO03          0   EXTERNAL*       2/06 X   23/07
        E.DO05          0   EXTERNAL*       2/06 X   16/19
        E.DO06          0   EXTERNAL*       2/06 X   12/30
        E.DO07          0   EXTERNAL*       2/06 X   38/30
        E.DO08          0   EXTERNAL*       2/06 X   35/05
        E.DO10          0   EXTERNAL*      16/35
        E.DO12          0   EXTERNAL*       2/06 X   12/53     28/05     28/05
        E.DO13          0   EXTERNAL*       2/06 X   28/22
        E.DO14          0   EXTERNAL*       2/07 X   16/29
        E.DO18          0   EXTERNAL*       2/07 X   21/56
        E.DO19          0   EXTERNAL*       2/07 X   10/54     38/21     38/21
        E.DO20          0   EXTERNAL*       2/10 X   38/26
        E.IF16          0   EXTERNAL*       2/07 X   27/44
        E.NP1           0   EXTERNAL*       2/07 X   17/02
        E.SL00          0   EXTERNAL*       2/07 X    5/42
        E.SL01          0   EXTERNAL*       2/07 X    5/25
        E.SL02          0   EXTERNAL*       2/07 X   10/08
        E.SL03          0   EXTERNAL*       2/08 X   10/25
        E.SL04          0   EXTERNAL*       2/08 X   10/14
        E.SL05          0   EXTERNAL*       2/08 X   10/35
        E.SL06          0   EXTERNAL*       2/08 X   10/30     11/44
        E.SL07          0   EXTERNAL*       2/08 X   11/34
        E.SL08          0   EXTERNAL*       2/08 X   11/49     11/54
        E.SL09          0   EXTERNAL*       2/08 X   10/48     31/52
        E.SL10          0   EXTERNAL*       2/08 X    6/28
        E.SL11          0   EXTERNAL*       2/09 X    9/19
        E.SL12          0   EXTERNAL*       2/09 X    6/31
        E.SL13          0   EXTERNAL*       2/09 X    6/45
        E.SL14          0   EXTERNAL*       2/09 X    4/49
        E.SL15          0   EXTERNAL*       2/09 X    4/40
        E.SL16          0   EXTERNAL*       2/09 X    5/44
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        E.SL17          0   EXTERNAL*       2/09 X   10/11
        E.SL18          0   EXTERNAL*       2/09 X    8/09
        E.SL19          0   EXTERNAL*       2/10 X    4/46
        E.SL20          0   EXTERNAL*       2/10 X   10/44     10/44
        FBS           777   PROGRAM*       28/26     28/31     35/25 L   35/25 E   41/13
        FBSA         1132   PROGRAM*       35/34 S   37/09     39/49     40/02 L
        FBS1         1014   PROGRAM*       36/04 L   36/22
        FBS10        1044   PROGRAM*       35/54     37/22 L
        FBS11        1047   PROGRAM*       37/30 L   38/08
        FBS12        1056   PROGRAM*       37/35     37/37     37/39     37/53 L
        FBS12A       1060   PROGRAM*       37/54     38/01 L
        FBS12B       1062   PROGRAM*       38/02     38/06 L
        FBS13A       1067   PROGRAM*       38/20     38/23 L
        FBS13B       1072   PROGRAM*       38/25     38/28 L
        FBS14        1074   PROGRAM*       38/23     38/29     38/32 L
        FBS14A       1077   PROGRAM*       38/36     38/42 L
        FBS15        1101   PROGRAM*       38/47 L   39/07
        FBS16        1105   PROGRAM*       38/51     39/05 L
        FBS18        1107   PROGRAM*       39/08     39/11 L
        FBS19        1112   PROGRAM*       39/20 L   39/40
        FBS2         1020   PROGRAM*       36/08     36/20 L
        FBS20        1121   PROGRAM*       39/12     39/22     39/44 L
        FBS25        1130   PROGRAM*       37/14     39/56 L
        FBS3         1021   PROGRAM*       36/01     36/24 L   37/22
        FBS4         1024   PROGRAM*       36/33 L   36/53
        FBS5         1033   PROGRAM*       36/25     36/35     36/57 L
        FEC.RTN         0   EXTERNAL*       2/02 X   15/32     15/35     15/38
        FILL.           0   EXTERNAL*       2/10 X    4/22 S    7/20
        FILL.2          0   EXTERNAL*       2/10 X    8/14 S
        FILL.3          0   EXTERNAL*       2/10 X   23/06 S
        FLOW            0   EXTERNAL*       2/02 X   16/46
        GOTOF        1134   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/02 X   15/21
        IFFLAG          0   EXTERNAL*       2/25 X    8/15      9/27
        IFLEVEL         0   EXTERNAL*       2/02 X   41/10
        INIF            0   EXTERNAL*       2/25 X   15/22
        INN             0   EXTERNAL*       2/02 X   18/53     20/56     24/17
        IODOLEN         0   EXTERNAL*       2/22 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
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        ISL17         171   PROGRAM*       10/42     10/47 L
        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           567   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/25 X    7/15
        KW=FORM         0   EXTERNAL*       2/28 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/55 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/02 X   17/01 S
        LPE             0   EXTERNAL*       2/13 X   39/09
        MAX.SDL    377777   FTX            22/29     22/43
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        MDD             0   EXTERNAL*       2/13 X   21/45
        MVE=            0   EXTERNAL*       2/45 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/03 X   15/26 S   16/57 S
        N.DOB           0   EXTERNAL*       2/37 X   18/50     20/52     24/13
        N.GL            0   EXTERNAL*       2/37 X   22/02     23/14
        OIL             0   EXTERNAL*       2/03 X   25/30
        OPBSS           0   EXTERNAL*       2/31 X   29/34
        OPDUM           0   EXTERNAL*       2/31 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/31 X   19/57
        PDA          1135   PROGRAM*       29/49     40/19 L   40/19 E
        PDA1         1137   PROGRAM*       40/23 L   40/37
        PDA2         1143   PROGRAM*       40/31     40/37 L
        PDM             0   EXTERNAL*       2/34 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           574   PROGRAM*       15/34     27/22 L   27/22 E
        PDTA          676   PROGRAM*       27/33 S   27/49     28/06     30/12     30/45 L
        PDTB          677   PROGRAM*       29/08 S   29/11     30/46 L
        PDT1          601   PROGRAM*       27/35 L   27/47
        PDT1A         600   PROGRAM*       27/27     27/29 L
        PDT10         631   PROGRAM*       28/30     28/34 L
        PDT2          610   PROGRAM*       27/43     27/49 L
        PDT25         647   PROGRAM*       29/04     29/24 L
        PDT30         654   PROGRAM*       29/29     29/39 L
        PDT40         656   PROGRAM*       28/25     28/27     29/43 L
        PDT5          620   PROGRAM*       28/04     28/19 L   30/29     30/43
        PDT6          623   PROGRAM*       28/21     28/24 L
        PDT7          626   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          1144   PROGRAM*       12/29     15/19     27/46     35/02     41/07 E
                                           12/52     20/38     28/11     41/07 L
        RBE1         1154   PROGRAM*       41/09     41/26 L
        RBE10        1204   PROGRAM*       41/08     42/43 L
        RBE12        1205   PROGRAM*       42/46 L   42/55
        RBE2         1156   PROGRAM*       41/32 L   42/14
        RBE3         1164   PROGRAM*       41/42     41/54 L
        RBE4         1171   PROGRAM*       41/49     42/10 L
        RBE5         1177   PROGRAM*       42/24 L   42/36
        REFLIN          0   EXTERNAL*       2/03 X    5/49      6/14      9/06     13/54     18/54     37/06
        REFNUM          0   EXTERNAL*       2/03 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
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        SSY             0   EXTERNAL*       2/03 X    5/23      8/31
        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/28 X    5/24      7/14
        TB.TOCL        52   FTX             8/10
        TEST            1   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/37 X   14/54     14/54 S
        T=BLST          0   EXTERNAL*       2/37 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/39 X   24/03
        T=PAR           0   EXTERNAL*       2/37 X   24/53     29/39
        T=SCR           0   EXTERNAL*       2/37 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/38 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/38 X
        T.SCR           0   EXTERNAL*       2/38 X   35/51     37/02     39/20     41/54
                                           35/41     36/33     38/42     39/46     42/24
        T.SYM           0   EXTERNAL*       2/38 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/42 X   23/55
        V=DOC.S         0   EXTERNAL*       2/42 X   23/51
        V=DOC.1         0   EXTERNAL*      23/57
        V=GOTO          0   EXTERNAL*       2/42 X   22/17
        V=NOOP          0   EXTERNAL*       2/42 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
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/05. 19.59.52.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/38 X   22/25     23/22
        WO.DOOT         0   EXTERNAL*       2/38 X   21/48
        WO.LOR          0   EXTERNAL*       2/38 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/05. 19.59.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      656              IDENT  QCGC 
                        656                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       630 
                                        LITERALS* LOCAL         630         4 
                                        RGFILE    COMMON          0        30 
                                        DEBUG     LOCAL         634        22 
  
  
                                        ENTRY POINTS. 
  
                                        B=QCGC           0+           RGX             15+           DUC.2ND        131+ 
                                        REGFILE          0+/RGFILE/   RREG            16+           DUC.BTH        135+ 
                                        REG=G            0+           TRACE           17+           POS            153+ 
                                        REG=GL           0+           TYPLOD          20+           RED            173+ 
                                        REG=GP           0+           UUC             21+           DPT            257+ 
                                        CII              6+           WQ.CS           22+           QCP            267+ 
                                        N$IT             6+           WQ.DOOT         23+           SMB            305+ 
                                        N$OT             7+           CAI             24+           WIN            323+ 
                                        DRITE           10+           PIG             52+           WTE            320+ 
                                        NOLDS           13+           DUC.           122+           ITS            566+ 
                                        RGC             14+           DUC.1ST        125+ 
  
  
                                        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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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/05. 19.59.55.      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  0100000052 +                      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
                          5120000000 X            SA2    CO.SNAP                                                 QCGC      150
            33  20201                             LX2    1RA                                                     QCGC      151
                     0322000036 +                 PL     X2,CAI2SN   IF *ARITH* SNAP NOT REQUESTED               QCGC      152
            34  0100000000 X             SNP=A    DUMPT  (OUS)       OPERAND USAGE STATUS                        QCGC      153
            35  0100000000 X                      CALL   SN.PAR                                                  QCGC      154
            36                           CAI2SN   BSS    0                                                       QCGC      155
                                         .TEST    ENDIF                                                          QCGC      156
                                                                                                                 QCGC      157
            36  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
            40  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
            41  5170000000 X                      SA7    ALC.REG                                                 QCGC      165
                          0100000000 X            CALL   EIS         EXPAND INSTRUCTION SKELETONS                QCGC      166
            42  13000                             DRITE  DEACTIVATE                                              QCGC      167
            43  5110000000 X                      SA1    ALC.00      UNLOCK (B4)                                 QCGC      168
                          10711                   BX7    X1                                                      QCGC      169
            44  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
            46  5120000000 X                      SA2    N.STMAX                                                 QCGC      180
                          5130000000 X            SA3    N.ST                                                    QCGC      181
            47  37623                             MX6    X2+X3       (X6) = MAX TEMP-TAG GENERATED               QCGC      182
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      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
            51  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
            52  0400400052 +             PIG      SUBR   =           ...ENTRY/EXIT...                            QCGC      217
            53  76600                             SHRINK T=OUS,0                                                 QCGC      218
            54  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
            55  7100000000 X                      SX0    V=BVD                                                   QCGC      222
                          21256                   AX2    -OP.SKELL                                               QCGC      223
                               37002              IX0    X0-X2                                                   QCGC      224
            56  0310000071 +                      NZ     X0,PIG5     IF NOT A BVD, CONTINUE NORMALLY             QCGC      225
                          76710                   =X7    1                                                       QCGC      226
            57  5120000000 X                      SA2    ENT.VD      GET VDIM FLAG                               QCGC      227
                          0312000071 +            NZ     X2,PIG5     IF VAR-DIM PROCESS ALREADY INITIALIZED      QCGC      228
            60  54720                             SA7    A2          SET V-DIM FLAG                              QCGC      229
                     76600                        SHRINK T=VDIM,0                                                QCGC      230
            61  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
            63  5110000000 X                      SA1    T=VDIM      COUNT                                       QCGC      233
                          5120000000 X            SA2    T.PAR       SOURCE                                      QCGC      234
            64  5130000000 X                      SA3    T.VDIM      DESTINATION                                 QCGC      235
                          0100000000 X            MOVE   X1,X2,X3    MOVE V-DIM I.L. TO T.VDIM                   QCGC      236
            65  7160000003                        SHRINK T=PAR,3     SHRINK T.PAR BY LENGTH OF VDIM IL           QCGC      237
            66  5120000000 X                      SA2    T=VDIM      (X2) = VDIM LENGTH = VDIM I.L. LENGTH       QCGC      238
                          5130000000 X            SA3    T.PAR       DESTINATION                                 QCGC      239
            67  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
            71  5110000000 X             PIG5     SA1    T.PAR                                                   QCGC      242
                          0100000100 +            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/05. 19.59.55.      PAGE    16
        CAI - COMPILE ALL INSTRUCTIONS.                               PIG 
  
                                                                                                                 QCGC      246
            72  76600                             =X6    0                                                       QCGC      247
                     5110000000 X                 ADDWD  T.OUS       START OUS WITH A ZERO WORD                  QCGC      248
            74  5110000000 X                      SA1    T.PAR       (A1,X1) _,= FWA I. L. FOR DUC               QCGC      249
                          0100000110 +            RJ     DUC         DETERMINE USE COUNTS                        QCGC      250
            75  13666                             BX6    0                                                       QCGC      251
                     5110000000 X                 ADDWD  T.PAR       END INDICATOR                               QCGC      252
            77  0400000052 +                      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
           100  0400400100 +             DOW      SUBR               ...ENTRY/EXIT...                            QCGC      266
           101  5021000000 X                      SA2    A1+N.TABLE  LENGTH OF TABLE                             QCGC      267
                          6130000003              SB3    Z=TURP                                                  QCGC      268
           102  5231777774                        SA3    X1-Z=TURP                                               QCGC      269
                          63520                   SB5    X2                                                      QCGC      270
                               43270              MX2    -OP.QATRL                                               QCGC      271
           103  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
                          5150000630 +            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
           104  54333                    DOW2     SA3    A3+B3       FETCH NEXT OPERAND                          QCGC      285
                     67553                        SB5    B5-B3                                                   QCGC      286
                          0750000100 +            MI     B5,EXIT.    IF TABLE EXHAUSTED                          QCGC      287
           105  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
           106  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
           107  0400000104 +                      EQ     DOW2        LOOP..                                      QCGC      296
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      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
           110  0400400110 +             DUC      SUBR               ...ENTRY/EXIT...                            QCGC      317
           111  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
           112  7242777774                        SX4    X2-Z=TURP   LENGTH - Z=TURP                             QCGC      321
                          63510                   SB5    X1          FWA OF TABLE                                QCGC      322
                               10122              BX1    X2                                                      QCGC      323
           113  53345                             SA3    X4+B5                                                   QCGC      324
                     0400000116 +                 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
           114  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
           115  0334000110 +                      MI     X4,EXIT.    IF FINISHED                                 QCGC      337
                                                                                                                 QCGC      338
                                        *         DETERMINE TYPE OF OPERAND                                      QCGC      339
                                        *         (X3) = OPERATOR WORD                                           QCGC      340
                                                                                                                 QCGC      341
           116  43166                    DUC1     MX1    -OP.CHINL                                               QCGC      342
                     20346                        LX3    -OP.CHINP                                               QCGC      343
                          15231                   BX2    -X1*X3      EXTRACT (X3) = CHARMAP INDEX                QCGC      344
           117  5212000000 X                      SA1    X2+CHARMAP  FETCH DUCABILITY VECTOR ELEMENT             QCGC      345
                          7244777774              SX4    X4-Z=TURP                                               QCGC      346
           120  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
           121  0266000000                        JP     B6          (B6) = DUC.,DUC.1ST,DUC.2ND OR DUC.BTH      QCGC      351
                                                                                                                 QCGC      352
           122                           DUC.     BSSENT 0                 NEITHER OPPERAND IS USE COUNTED       QCGC      353
           122  0100000202 +                      RJ     TIL               REFORMAT WITHOUT USE COUNT            QCGC      354
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    18
        CAI - COMPILE ALL INSTRUCTIONS.                               DUC 
  
           123  5022777776               DUC2     SA2    A2-OR.2OP+OR.1OP   FETCH SECOND OPERAND                 QCGC      355
                          0100000202 +            RJ     TIL         REFORMAT WITHOUT USE COUNT                  QCGC      356
           124  0400000114 +                      EQ     DUC.NX      CONTINUE                                    QCGC      357
                                                                                                                 QCGC      358
           125                           DUC.1ST  BSSENT 0                 FIRST OPERAND USE COUNTED             QCGC      359
           125  0100000142 +                      RJ     KUT         KILL UNUSED TURPLE                          QCGC      360
           126  0100000202 +                      RJ     TIL               REFORMAT WITHOUT USE COUNT            QCGC      361
           127  5022777776               DUC3     SA2    A2-OR.2OP+OR.1OP   FETCH FIRST OPERAND                  QCGC      362
                          0100000214 +            RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      363
           130  0400000114 +                      EQ     DUC.NX      CONTINUE                                    QCGC      364
                                                                                                                 QCGC      365
           131                           DUC.2ND  BSSENT 0           2ND OPERAND USE COUNTED                     QCGC      366
           131  0100000142 +                      RJ     KUT         KILL UNUSED TURPLE                          QCGC      367
           132  0100000214 +                      RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      368
           133  5022777776                        SA2    A2-OR.2OP+OR.1OP   GET FIRST OPERAND                    QCGC      369
                          0100000202 +            RJ     TIL         REFORMAT WITHOUT USE COUNT                  QCGC      370
           134  0400000114 +                      EQ     DUC.NX      CONTINUE                                    QCGC      371
                                                                                                                 QCGC      372
           135                           DUC.BTH  BSSENT 0           BOTH OPERANDS USE COUNTED                   QCGC      373
           135  0100000142 +                      RJ     KUT         KILL UNUSED TURPLE                          QCGC      374
           136  0100000214 +                      RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      375
           137  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
           140  0100000214 +                      RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      379
           141  0400000114 +                      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
           142  0400400142 +             KUT      SUBR   0           ENTRY/EXIT.                                 QCGC      396
           143  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
           144  0316000142 +                      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/05. 19.59.55.      PAGE    19
        CAI - COMPILE ALL INSTRUCTIONS.                               KUT 
  
                          21356                   AX3    -OP.SKELL                                               QCGC      409
           145  5213000000 X                      SA1    X3+F.SCT    FETCH SKELETON CONTROL WORD                 QCGC      410
                          20152                   HX1    VS.CRA                                                  QCGC      411
                               21152              AX1    -VS.CRAL                                                QCGC      412
           146  0301000142 +                      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
           147  21156                             AX1    -OP.SKELL                                               QCGC      420
                     7160000000 X                 SX6    V=BVD                                                   QCGC      421
                               37716              IX7    X1-X6                                                   QCGC      422
           150  0317000142 +                      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
           151  7100000054                        SX0    O.NONE                                                  QCGC      426
                          20656                   LX6    OP.SKELP                                                QCGC      427
                               20026              LX0    OP.CHINP                                                QCGC      428
           152  12760                             BX7    X6+X0       CHANGE TO NO-OP OPERATOR                    QCGC      429
                     54730                        SA7    A3                                                      QCGC      430
                          0400000122 +            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
           153  0400400153 +             POS      SUBR   =           ENTRY/EXIT                                  QCGC      460
           154  5160000172 +                      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/05. 19.59.55.      PAGE    20
        CAI - COMPILE ALL INSTRUCTIONS.                               POS 
  
           155  10633                             BX6    X3                                                      QCGC      463
                     5160000000 X                 SA6    SCSA                                                    QCGC      464
           156  7110000777                        CLAS=  X1,RG,(USE)                                             QCGC      465
                          10622                   BX6    X2                                                      QCGC      466
                               11112              BX1    X1*X2       EXTRACT USE COUNT                           QCGC      467
           157  0311000153 +                      NZ     X1,EXIT.    IF OPERAND USE ALREADY COUNTED              QCGC      468
                                                                                                                 QCGC      469
                                         .TEST    IFEQ   TEST,ON                                                 QCGC      470
                          10122                   BX1    X2                                                      QCGC      471
                               20161              SBIT   X1,P2.INTRP                                             QCGC      472
           160  0331400160 +                      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
           162  5110000172 +                      SA1    POS.INC     GET USE COUNT INCREMENT                     QCGC      477
                          0770000165 +            MI     B7,POS1     IF NOT ALREADY IN TABLE                     QCGC      478
           163  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
           164  0400000167 +                      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
           165  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
           166  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
           167  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
           170  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
           171  0400000153 +                      EQ     EXIT.                                                   QCGC      508
                                                                                                                 QCGC      509
           172  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/05. 19.59.55.      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
           173  0400400173 +             RED      SUBR   =           ENTRY/EXIT                                  QCGC      535
           174  5110000631 +                      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
           175  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
           176  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
           177  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
           200  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
           201  0400000173 +                      EQ     EXIT.                                                   QCGC      559
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      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
           202  0400400202 +             TIL      SUBR               ENTRY/EXIT                                  QCGC      579
           203  10522                             BX5    X2          TP. WORD KEPT IN X5 THROUGHOUT              QCGC      580
                     5130000632 +                 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
           204  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
           205  7211777773                        SX1    X1-M.DBL    0 OR 1 IMPLIES LONG                         QCGC      592
                          7130040000              CLAS=  X3,TP,(GL)                                              QCGC      593
           206  11101                             BX1    X0*X1       ZERO IMPLIES LONG                           QCGC      594
                     20021                        LX0    P2.LONGP                                                QCGC      595
                          0311000210 +            NZ     X1,TIL10    IF NOT DOUBLE OR COMPLEX                    QCGC      596
           207  16660                             BX6    -X0+X6      P2.LONG = 1                                 QCGC      597
                                                                                                                 QCGC      598
           210  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
           211  0322000213 +                      PL     X2,TIL20    IF NOT INTERMEDIATE OPERAND                 QCGC      604
                          43020                   MX0    P2.TAGL                                                 QCGC      605
                               43250              MX2    P2.TAGL+P2.BIASL                                        QCGC      606
           212  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
           213  10266                    TIL20    BX2    X6                                                      QCGC      612
                     54620                        SA6    A2          RESET OPERAND WORD                          QCGC      613
                          0400000202 +            EQ     EXIT.                                                   QCGC      614
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      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
           214  0400400214 +             TIU      SUBR               ENTRY/EXIT                                  QCGC      640
           215  6274000004                        SB7    X4+Z=TURP+OR.1OP                                        QCGC      641
                          66775                   SB7    B7+B5                                                   QCGC      642
                               65727              SB7    A2-B7                                                   QCGC      643
           216  43600                             MX6    0                                                       QCGC      644
                     0570000222 +                 NZ     B7,TIU1  IF NOT PROCESSING 1OP                          QCGC      645
                               63745              SB7    B5+X4                                                   QCGC      646
           217  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
           220  6271000000 X                      SB7    X1+V=SUBST                                              QCGC      650
                          0570000222 +            NZ     B7,TIU1     IF NOT SUBSTRING OPERAND                    QCGC      651
           221  43601                             MX6    1                                                       QCGC      652
                                                                                                                 QCGC      653
           222  5160000627 +             TIU1     SA6    =STIUA                                                  QCGC      654
                          5150000256 +            SA5    TIU.TP      PRESET A5                                   QCGC      655
           223  0100000202 +                      RJ     TIL         REFORMAT TO P2.                             QCGC      656
           224  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
           225  0331000233 +                      MI     X1,TIU8     IF INTERMEDIATE                             QCGC      661
                          0306000214 +            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
           226  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/05. 19.59.55.      PAGE    24
        CAI - COMPILE ALL INSTRUCTIONS.                               TIU 
  
                          0100000153 +            RJ     POS         PREPARE OPERAND AND STATUS WORD             QCGC      672
           227  56340                             SA3    B4          GET FWA I. L.                               QCGC      673
                     5150000256 +                 SA5    TIU.TP      PLACE TP. FORM IN (X5)                      QCGC      674
           230  5110000627 +                      SA1    TIUA                                                    QCGC      675
                          53235                   SA2    X3+B5       RESTORE OPERAND                             QCGC      676
           231  0331000214 +                      MI     X1,EXIT.    IF SUBSTRING 1OP                            QCGC      677
                          54620                   SA6    A2          STORE NEW OPERAND                           QCGC      678
           232  0400000214 +                      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
           233  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
           234  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
           235  43056                             MX0    -OP.1ORDL   SET MASK FOR STATUS WORD ORDINAL IN OUS     QCGC      711
                     76710                        =X7    1           SET INITIAL USE COUNT INCREMENT             QCGC      712
                          0570000242 +            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
           236  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
           237  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
           240  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/05. 19.59.55.      PAGE    25
        CAI - COMPILE ALL INSTRUCTIONS.                               TIU 
  
                               53337              SA3    X3+B7       GET STATUS WORD FOR CURRENT OPERATOR        QCGC      729
           241  15735                             BX7    -X5*X3      (X7) = USE INC IF OPERAND^OPERATOR NOT DBL  QCGC      730
                     0316000242 +                 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
           242  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
           243  65525                             SB5    A2-B5       IL ORD OF CURRENT OPERAND                   QCGC      743
                     0315000250 +                 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
           244  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
           245  54730                             SA7    A3          RESET ASSOCIATE OPERATOR WITH ORDINAL SET   QCGC      754
                     5110000000 X                 ADDWD  T.OUS                                                   QCGC      755
           247  56240                             SA2    B4          GET FWA I. L.                               QCGC      756
                     53225                        SA2    X2+B5       RESET OPERAND POINTER                       FC50452    15
                          0400000252 +            EQ     TIU12       WRAP IT UP                                  QCGC      758
                                                                                                                 QCGC      759
                                        **        OPERAND IN TABLE. MUST INCREMENT USE COUNT                     QCGC      760
                                                                                                                 QCGC      761
           250  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
           251  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
           252  20554                    TIU12    LX5    P2.TAGP     POSITION OUS ORDINAL                        QCGC      769
                     12665                        BX6    X6+X5       INSERT OUS ORDINAL IN TAG FIELD             QCGC      770
                          5150000256 +            SA5    TIU.TP      RESTORE TP WORD                             QCGC      771
           253  22206                             LX2    X6          (X2) = CURRENT VALUE OR OPERAND             QCGC      772
                     5110000627 +                 SA1    TIUA                                                    QCGC      773
           254  0331000214 +                      MI     X1,EXIT.    IF SUBSTRING 1OP                            QCGC      774
                          54620                   SA6    A2          RESET OPERAND                               QCGC      775
           255  0400000214 +                      EQ     EXIT.                                                   QCGC      776
                                                                                                                 QCGC      777
           256                     1     TIU.TP   BSS    1           SAVE AREA FOR TP. WORD                      QCGC      778
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      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
           257  0400400257 +             DPT      SUBR   =           ...ENTRY/EXIT...                            QCGC      790
           260  5110000000 X                      SA1    N.GL                                                    QCGC      791
                          5120000000 X            SA2    T=GL                                                    QCGC      792
           261  5160000266 +                      SA6    DPTA        SAVE (X6)                                   QCGC      793
                          73311                   =X3    X1+1                                                    QCGC      794
                               37032              IX0    X3-X2                                                   QCGC      795
                                                  IFEQ   TEST,ON,1                                               QCGC      796
           262  0330400262 +                      MI     X0,"BLOWUP" IF (N.GL) .LT. (T=GL)                       QCGC      797
                          5110000000 X            ALLOC  T.GL,X0     INSURE TABLE LARGE ENOUGH FOR ALL GLS       QCGC      798
           264  5120000266 +                      SA2    DPTA                                                    QCGC      799
                          10622                   BX6    X2                                                      QCGC      800
                               53613              SA6    X1+B3       STORE ENTRY IN GL TABLE                     QCGC      801
           265  0400000257 +                      EQ     EXIT.                                                   QCGC      802
                                                                                                                 QCGC      803
           266                     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
           267  0400400267 +             QCP      SUBR   =           ENTRY/EXIT...                               QCGC      811
           270  7160000000                        SX6    0                                                       QCGC      812
                          5160000010 +            SA6    DRITE                                                   QCGC      813
           271  7170000465 +                      SX7    WINOC                                                   QCGC      815
                          5170000531 +            SA7    PSTAB       SET WIN JUMP TABLE TO OC$XXX                QCGC      816
           272  76600                             =X6    0                                                       QCGC      817
                     5110000000 X                 ADDWD  T.IOI       ADD ZERO WORD AT START OF TABLE             QCGC      818
           274  5110000000 X                      ADDWD  T.API       ADD ZERO WORD AT START OF TABLE             QCGC      819
           275  5110000000 X                      ADDWD  T.GL        ADD ZERO WORD AT START OF TABLE             QCGC      820
           276  5160000000 X                      SA6    ENT.EGL     PRESET ENTRY GENERATED LABEL                QCGC      821
                          5066000001              SA6    A6+1        PRESET ENTRY SYM TAB ORDINAL(ENT.STO)       QCGC      822
           277  5066000001                        SA6    A6+1        PRESET AD SUB COUNTER (ENT.SUB)             QCGC      823
                          54661                   =A6    A6+B1       PRESET SUB0 COUNTER (ENT.SB0)               QCGC      824
           300  5066000001                        SA6    A6+1        PRESET VAR DIM FLAG(ENT.VD)                 QCGC      825
                          54661                   SA6    A6+B1       PRESET N.ALTEN - ALTERNATE ENTRY COUNTER    QCGC      826
           301  5110000000 X                      SA1    CO.CS                                                   QCGC      827
                          5120000000 X            SA2    CO.DOOT                                                 QCGC      828
           302  10611                             BX6    X1          INITIALIZE WORKING QCG COPY OF OPTIONS      QCGC      829
                     22702                        LX7    X2                                                      QCGC      830
                          5160000022 +            SA6    WQ.CS                                                   QCGC      831
           303  54761                             =A7    A6-WQ.CS+WQ.DOOT                                        QCGC      832
                     7160000033                   SX6    I.LOO                                                   QCGC      833
           304  5160000000 X                      SA6    OCIOL       INITIALIZE                                  QCGC      834
                          0400000267 +            EQ     EXIT.       EXIT...                                     QCGC      835
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      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
           305  0400400305 +             SMB      SUBR   =           ENTRY/EXIT.                                 QCGC      843
           306  5130000000 X                      SA3    MOD                                                     QCGC      844
                          20363                   HX3    MO.BLK                                                  QCGC      845
           307  0333000305 +                      MI     X3,EXIT.    IF BLOCK DATA                               QCGC      846
                          5130000000 X            SA3    T.SYM                                                   QCGC      847
           310  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
           312  43201                             CLAS=  X2,WB,(MAT)                                             QCGC      853
                                                                                                                 FC50326    31
           313  54333                    SMB10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     QCGC      854
                     67663                        SB6    B6-B3                                                   QCGC      855
                          0460000305 +            ZR     B6,EXIT.    IF END OF T.SYM                             QCGC      856
           314  10033                             BX0    X3                                                      FC50326    32
                     20070                        SBIT   X0,WB.LABP                                              FC50326    33
                          0330000313 +            MI     X0,SMB10    IF STATEMENT LABEL                          FC50326    34
           315  20037                             SBIT   X0,WB.SFAP/WB.LABP                                      FC50326    35
                     0330000313 +                 MI     X0,SMB10    IF STATEMENT FUNCTION DUMMY ARGUMENT        FC50326    36
                               11143              BX1    X4*X3       VARI = VAR[WBI]                             QCGC      857
           316  12632                             BX6    X3+X2                                                   QCGC      858
                     0301000313 +                 ZR     X1,SMB10    IF VARI .EQ. 0                              QCGC      859
                               54630              SA6    A3          MAT[WBI] = 1                                QCGC      860
           317  0400000313 +                      EQ     SMB10                                                   QCGC      861
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    28
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.
  
           317                                    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/05. 19.59.55.      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
           320                           WTE      BSS    0                                                       COMFWIN    28
           320  5170000533 +                      SA7    WINB                                                    COMFWIN    29
                          10633                   BX6    X3                                                      COMFWIN    30
                               43700              MX7    0                                                       COMFWIN    31
           321  54771                             =A7    A7+1                                                    COMFWIN    32
                     5160000535 +                 SA6    WINC                                                    COMFWIN    33
           322  0400000376 +                      EQ     WIN100                                                  COMFWIN    34
                                                                                                                 COMFWIN    35
                                                                                                                 COMFWIN    36
           323                           WIN      BSS    0           ENTRY...                                    COMFWIN    37
                                                                                                                 COMFWIN    38
                                        *         DETERMINE IF PSEUDO INSTRUCTION                                COMFWIN    39
                                                                                                                 COMFWIN    40
           323  10633                             BX6    X3                                                      COMFWIN    41
                     5160000535 +                 SA6    WINC        SAVE X3                                     COMFWIN    42
                               43014              MX0    PB.GHIJL                                                COMFWIN    43
           324  5170000533 +                      SA7    WINB        SAVE (X7)                                   COMFWIN    44
                                                                                                                 COMFWIN    45
                                         .SNAP=W  IFEQ   TEST,ON                                                 COMFWIN    46
                          5130000000 X            SA3    =XCO.SNAP                                               COMFWIN    47
           325  20327                             LX3    1RW                                                     COMFWIN    48
                     0323000330 +                 PL     X3,WIN1                                                 COMFWIN    49
                               76620              =X6    B2                                                      COMFWIN    50
           326  5067000001                        SA6    A7+1        STORE RETURN ADDRESS IN WINB+1              COMFWIN    51
           327  0100000000 X             W=WIN    SNAP   WINB,,2,NONE,,1E5                                       COMFWIN    52
           330                           WIN1     BSS    0                                                       COMFWIN    53
                                         .SNAP=W  ENDIF                                                          COMFWIN    54
                                                                                                                 COMFWIN    55
           330  76600                             =X6    0                                                       COMFWIN    56
                     5067000001                   SA6    A7+1        INITIALIZE WINB + 1 TO ZERO                 COMFWIN    57
                               11207              BX2    X0*X7                                                   COMFWIN    58
           331  20214                             LX2    PB.GHIJL                                                COMFWIN    59
                     63320                        SB3    X2          (B3) = GHIJ                                 COMFWIN    60
                          21206                   AX2    PB.GHL      (X2) = GH                                   COMFWIN    61
           332  0302000412 +                      ZR     X2,PSI      IF A PSEUDO, GO PROCESS IT...               COMFWIN    62
                                                                                                                 COMFWIN    63
                                        *         ADVANCE  *ORG* COUNTER IF NECESSARY                            COMFWIN    64
                                                                                                                 COMFWIN    65
                          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
           333  5120000565 +             WIN10    SA2    ORG                                                     COMFWIN    71
                          5130000564 +            SA3    PARCEL                                                  COMFWIN    72
           334  7263000001                        SX6    X3+1                                                    COMFWIN    73
                          0321000341 +            PL     X1,WIN40    IF SHORT, PARCEL = PARCEL + 1               COMFWIN    74
           335  6273777774                        SB7    X3-3                                                    COMFWIN    75
                          0470000337 +            ZR     B7,WIN20    IF PARCEL = 3                               COMFWIN    76
           336  7263000002                        SX6    X3+2                                                    COMFWIN    77
                          0400000341 +            EQ     WIN40       PARCEL = PARCEL +2                          COMFWIN    78
                                                                                                                 COMFWIN    79
           337  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/05. 19.59.55.      PAGE    30
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          73621                   =X6    X2+1                                                    COMFWIN    82
                               54620              SA6    A2          ORG = ORG + 1                               COMFWIN    83
           340  0400000376 +                      EQ     WIN100                                                  COMFWIN    84
                                                                                                                 COMFWIN    85
           341  6276777773               WIN40    SB7    X6-4                                                    COMFWIN    86
                          0570000343 +            NZ     B7,WIN50    IF PARCEL NE 4                              COMFWIN    87
           342  73621                             =X6    X2+1        ORG = ORG + 1                               COMFWIN    88
                     54620                        SA6    A2                                                      COMFWIN    89
                          76600                   =X6    0           PARCEL = 0                                  COMFWIN    90
                                                                                                                 COMFWIN    91
           343  54630                    WIN50    SA6    A3                                                      COMFWIN    92
                     5120000532 +                 SA2    WINA                                                    COMFWIN    93
           344  0331000376 +                      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
           345  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
           346  0331000354 +                      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
           347  0707000367 +                      GT     B7,WIN70    IF (PB.GH) .GT. 17B                         COMFWIN   114
                          6276777762              SB7    X6-15B                                                  COMFWIN   115
           350  0770000367 +                      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
           351  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
           352  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
           353  0400000367 +                      EQ     WIN70                                                   COMFWIN   127
                                                                                                                 COMFWIN   128
           354  6276777767               WIN65    SB7    X6-10B                                                  COMFWIN   129
                          0570000365 +            NZ     B7,WIN60    IF NOT TRANSMIT (10IJX) INSTRUCTION         COMFWIN   130
           355  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
           356  15171                             BX1    -X1*X7      *J* REGISTER                                COMFWIN   135
                     20071                        LX0    PB.JP-PB.IP                                             COMFWIN   136
                          37601                   IX6    X0-X1                                                   COMFWIN   137
           357  5130000564 +                      SA3    PARCEL                                                  COMFWIN   138
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    31
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          0316000365 +            NZ     X6,WIN60    IF NOT TRANSMIT TO SELF                     COMFWIN   139
           360  7263777776                        SX6    X3-1                                                    COMFWIN   140
                          5160000564 +            SA6    PARCEL      THIS INST DOESNT COUNT / PARCEL = PARCEL-1  COMFWIN   141
           361  0326000375 +                      PL     X6,WINX     IF CURRENT WORD NOT NOW COMPLETELY EMPTY    COMFWIN   142
                          5130000565 +            SA3    ORG                                                     COMFWIN   143
           362  7160000003                        SX6    3                                                       COMFWIN   144
                          54660                   SA6    A6          PARCEL = 3                                  COMFWIN   145
           363  7263777776                        SX6    X3-1                                                    COMFWIN   146
                          54630                   SA6    A3          ORG = ORG - 1                               COMFWIN   147
           364  0400000375 +                      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
           365  43071                    WIN60    MX0    -PB.JL                                                  COMFWIN   155
                     46000                        NO                                                             COMFWIN   156
                          20060                   LX0    PB.JP                                                   COMFWIN   157
                               46000              NO                                                             COMFWIN   158
           366  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
           367  6272777776               WIN70    =B7    X2-1                                                    COMFWIN   166
                          0770000374 +            MI     B7,WIN80    IF NO PACKAGE PRESENT                       COMFWIN   167
           370  20755                             LX7    -15         POSITION INSTRUCTION                        COMFWIN   168
                     0470000374 +                 ZR     B7,WIN80    IF ONE PACKAGE PRESENT                      COMFWIN   169
                               20755              LX7    -15         RE-POSITION INSTRUCTION                     COMFWIN   170
           371  7100077777                        SX0    77777B                                                  COMFWIN   171
                          12727                   BX7    X2+X7       INSERT THIRD PACKAGE                        COMFWIN   172
                               43600              MX6    0                                                       COMFWIN   173
           372  12707                             BX7    X0+X7       INSERT LOW ORDER BITS                       COMFWIN   174
                     54620                        SA6    A2          CLEAR WINA                                  COMFWIN   175
                          5170000533 +            SA7    WINB        SAVE INSTRUCTION                            COMFWIN   176
           373  0400000376 +                      EQ     WINW        OUTPUT SAVED INSTRUCTIONS                   COMFWIN   177
                                                                                                                 COMFWIN   178
           374  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
           375  5130000535 +             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
           376                           WIN100   BSS    0           **** TEMP ****                              COMFWIN   192
           376                           WINW     BSS    0           ...WRITE PB                                 COMFWIN   193
           376  5120000532 +                      SA2    WINA                                                    COMFWIN   194
                          64740                   SB7    A4          SAVE (A4,X4)                                COMFWIN   195
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    32
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                               10644              BX6    X4                                                      COMFWIN   196
           377  5160000536 +                      SA6    WIND                                                    COMFWIN   197
                          0302000403 +            ZR     X2,WINW7    IF NO PACKED SHORT INSTRUCTIONS WAITING     COMFWIN   198
           400  5130000532 +                      SA3    WINA                                                    COMFWIN   199
                          43055                   MX0    -PB.INSTL                                               COMFWIN   200
                               76700              SX7    B0          INDICATE NO ACCUMULATED SHORT INSTRUCTIONS  COMFWIN   201
           401  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
           403  5130000533 +             WINW7    SA3    WINB                                                    COMFWIN   205
                          10633                   BX6    X3                                                      COMFWIN   206
           404  5110000002 X                      WRITEO F.PB        WRITE ONE WORD (CURRENT INSTRUCTION)        COMFWIN   207
           405  5110000536 +                      SA1    WIND                                                    COMFWIN   208
                          56470                   SA4    B7          RESTORE (A4, X4)                            COMFWIN   209
                               10411              BX4    X1                                                      COMFWIN   210
           406  5110000534 +             WINW8    SA1    WINB+1                                                  COMFWIN   211
                          0301000375 +            ZR     X1,WINX     IF NO FORCE UPPER AFTER REQUESTED           COMFWIN   212
           407  5130000564 +                      SA3    PARCEL                                                  COMFWIN   213
                          5120000565 +            SA2    ORG                                                     COMFWIN   214
           410  0303000375 +                      ZR     X3,WINX     IF ALREADY UPPER                            COMFWIN   215
                          73621                   SX6    X2+B1                                                   COMFWIN   216
                               43700              MX7    0                                                       COMFWIN   217
           411  54620                             SA6    A2          ADVANCE ORIGIN COUNTER                      COMFWIN   218
                     54730                        SA7    A3          INDICATE EMPTY WORD                         COMFWIN   219
                          0400000375 +            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
           412                           PSI      BSS                ...ENTRY                                    COMFWIN   241
                                                                                                                 COMFWIN   242
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                COMFWIN   243
           412  6170000044                        SB7    Z.PSUD      LENGTH OF PSEUDO TABLE                      COMFWIN   244
                          0637400412 +            GE     B3,B7,"BLOWUP"    IF ILLEGAL PSUEDO                     COMFWIN   245
                                                                                                                 COMFWIN   246
           413  5110000531 +                      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/05. 19.59.55.      PAGE    33
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           414  0277000000                        JP     B7          EXIT TO PSEUDO PROCESSOR...                 COMFWIN   250
                                                                                                                 COMFWIN   251
                                                                                                                 COMFWIN   252
                                        **        PSEUDO INSTRUCTION PROCESSORS.                                 COMFWIN   253
                                                                                                                 COMFWIN   254
                                                                                                                 COMFWIN   255
           415                           WI=BOS   BSS    0           BOS - BEGINNING OF STATEMENT.               COMFWIN   256
                                         .CG      IFEQ   .CG,.FAST                                               FC50452     6
           415  5120000000 X                      SA2    CO.DBID                                                 FC50452     7
                          5130000000 X            SA3    CO.DBST                                                 FC50545     9
           416  12223                             BX2    X2+X3                                                   FC50545    10
                     0302000376 +                 ZR     X2,WIN100   IF 5700 TABLE NOT REQUIRED                  FC50452     8
           417  0100000537 +                      RJ     BNW         BEGIN NEW WORD                              FC50452     9
                                         .CG      ENDIF                                                          FC50452    10
           420  0400000376 +                      EQ     WIN100                                                  COMFWIN   257
                                                                                                                 COMFWIN   258
                                                                                                                 COMFWIN   259
           421                           WO=IDNT  BSS    0           IDENT - BEGIN OBJECT PROGRAM                COMFWIN   260
           421  76600                             =X6    0                                                       COMFWIN   261
                     5160000565 +                 SA6    =XORG       INIT  ORG  TO  0                            COMFWIN   262
           422  5160000000 X                      SA6    =XCBI       INIT  CBI  TO  0                            COMFWIN   263
                          5160000564 +            SA6    PARCEL                                                  COMFWIN   264
           423  5160000532 +                      SA6    WINA        INIT PACKED 15-BIT INSTRUCTIONS             FC50860     9
                          0400000376 +            EQ     WIN100                                                  COMFWIN   265
                                                                                                                 COMFWIN   266
                                                                                                                 COMFWIN   267
           424                           WI=LD0   BSS    0           LOAD INSTRUCTION FOR LEVEL 0                COMFWIN   268
           424                           WI=ST0   BSS    0           STORE INSTRUCTION FOR LEVEL 0               COMFWIN   269
           424  5130000564 +                      SA3    PARCEL                                                  COMFWIN   270
                          5120000565 +            SA2    ORG                                                     COMFWIN   271
           425  73631                             =X6    X3+1                                                    COMFWIN   272
                     77101                        =X1    -1          INDICATE LONG                               COMFWIN   273
                          0400000341 +            EQ     WIN40       COUNT AS SHORT INSTRUCTION                  COMFWIN   274
                                                                                                                 COMFWIN   275
           426                           WO=ADDR  BSS    0           FILE VECTOR POINTER WORD                    COMFWIN   276
           426                           WI=CPL   BSS    0           CPL LIST ITEM                               COMFWIN   277
           426                           WO=PLIM  BSS    0           PRINT LIMIT WORD                            FC50049     7
           426                           WI=SUBI  BSS    0           SUB INDEX                                   COMFWIN   278
           426                           WI=SB0I  BSS    0           SUB0 INDEX                                  COMFWIN   279
           426                           WI=ZERO  BSS    0           ZERO WORD                                   COMFWIN   280
           426                           WO=FVEC  BSS    0           FILE POINTER WORD                           COMFWIN   281
           426  43100                             MX1    0                                                       COMFWIN   282
                     76210                        SX2    B1          RESERVE SPACE FOR WORD                      COMFWIN   283
                          0100000543 +            RJ     DLT         ADVANCE ORIGIN COUNTER                      COMFWIN   284
           427  0400000376 +                      EQ     WIN100                                                  COMFWIN   285
                                                                                                                 COMFWIN   286
                                                                                                                 COMFWIN   287
           430                           WO=TRAC  BSS    0           TRAC - GENERATE TRACEBACK WORDS.            COMFWIN   288
           430  5130000000 X                      SA3    =XS=TRACE                                               COMFWIN   289
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   290
           431  7120000001                        SX2    1                                                       COMFWIN   291
                          0100000543 +            RJ     DLT         DEFINE LABEL TAG (TRACE.  BSS 1)            COMFWIN   292
           432  5130000000 X                      SA3    =XS=TA0                                                 COMFWIN   293
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   294
           433  7120000001                        SX2    1                                                       COMFWIN   295
                          0100000543 +            RJ     DLT         DEFINE LABEL TAG (TEMPA0.  BSS 1)           COMFWIN   296
           434  0400000376 +                      EQ     WIN100                                                  COMFWIN   297
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    34
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
                                                                                                                 COMFWIN   298
                                                                                                                 COMFWIN   299
           435                           WO=CON   BSS                *READ CON TABLE PSEUDO                      COMFWIN   300
           435  0400000376 +                      EQ     WIN100                                                  COMFWIN   301
                                                                                                                 COMFWIN   302
                                                                                                                 COMFWIN   303
           436                           WI=USE   BSS    0           *USE* PSEUDO INSTRUCTION                    COMFWIN   304
           436                           WO=USE   BSS                                                            COMFWIN   305
           436  0100000614 +                      RJ     PUSE        EXCHANGE PARCEL AND ORG (BLEN) COUNTERS     COMFWIN   306
           437  0400000376 +                      EQ     WIN100                                                  COMFWIN   307
                                                                                                                 COMFWIN   308
                                                                                                                 COMFWIN   309
           440                           WI=OTR   BSS    0           OTR INSTRUCTION (6102B)                     COMFWIN   310
           440  5130000565 +                      SA3    ORG                                                     COMFWIN   311
                          5120000564 +            SA2    PARCEL                                                  COMFWIN   312
           441  76611                             =X6    2                                                       COMFWIN   313
                     54620                        SA6    A2          PARCEL = 2                                  COMFWIN   314
                          73631                   =X6    X3+1                                                    COMFWIN   315
           442  0302000376 +                      ZR     X2,WIN100   IF PARCEL WAS 0                             COMFWIN   316
                          54630                   SA6    A3          ORG = ORG + 1                               COMFWIN   317
           443  0400000376 +                      EQ     WIN100                                                  COMFWIN   318
                                                                                                                 COMFWIN   319
           444                           WI=RJ6   BSS    0           RJT INSTRUCTION (0100B)                     COMFWIN   320
           444  5130000565 +                      SA3    ORG                                                     COMFWIN   321
                          73631                   =X6    X3+1                                                    COMFWIN   322
           445  5160000534 +                      SA6    WINB+1      FORCE UPPER AFTER                           COMFWIN   323
                          5120000533 +            SA2    WINB        RJ6 INSTRUCTION                             FC50264     8
           446  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
           447  7200770001                        SX0    X0-7776B                                                FC50264    12
                          0330000376 +            MI     X0,WIN100   IF LINE/SEQUENCE NUMBER .LT. 4095           FC50264    13
           450  73661                             =X6    X6+1                                                    FC50264    14
                     54660                        SA6    A6          INCREMENT ORG COUNTER                       FC50264    15
                          0400000376 +            EQ     WIN100                                                  COMFWIN   325
                                                                                                                 COMFWIN   326
           451                           WI=UJP   BSS    0           EQ INSTRUCTION (0400B)                      COMFWIN   327
           451                           WI=JPI   BSS    0           JP INSTRUCTION (0200B)                      COMFWIN   328
           451                           WI=RJ3   BSS    0           RJ INSTRUCTION (0100B)                      COMFWIN   329
           451  77601                             =X6    -B1                                                     COMFWIN   330
                     5160000534 +                 SA6    WINB+1      SET FLAG TO FORCE UPPER AFTER               COMFWIN   331
                               10166              =X1    X6          LONG INSTRUCTION                            COMFWIN   332
           452  0400000333 +                      EQ     WIN10                                                   COMFWIN   333
                                                                                                                 COMFWIN   334
           453                           WI=BSS   BSS    0           BSS, BSSZ PSEUDO INSTRUCTION                COMFWIN   335
           453                           WO=BSS   BSS    0                                                       COMFWIN   336
           453                           WO=BSSZ  BSS                                                            COMFWIN   337
           453  10077                             BX0    X7                                                      FC50001     5
                     0100000537 +                 RJ     BNW         BEGIN NEW WORD                              COMFWIN   338
           454  10300                             BX3    X0                                                      FC50001     6
                     43052                        MX0    -PB.TAGL                                                COMFWIN   339
                          20336                   LX3    -PB.TAGP                                                COMFWIN   341
                               15130              BX1    -X0*X3                                                  COMFWIN   342
           455  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/05. 19.59.55.      PAGE    35
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           456  0100000543 +                      RJ     DLT         DEFINE LABEL AND RESERVE BLOCK STORAGE      COMFWIN   346
           457  0400000376 +                      EQ     WIN100                                                  COMFWIN   347
                                                                                                                 COMFWIN   348
                                                                                                                 COMFWIN   349
           460                           WO=END   BSS    0                                                       COMFWIN   350
           460  76700                             =X7    0           FAKE AN INSTRUCTION TO CALL PUSE            COMFWIN   351
                     0100000614 +                 RJ     PUSE        STORE PARCEL AND ORG COUNT IN T.LBT         COMFWIN   352
           461  0400000376 +                      EQ     WIN100                                                  COMFWIN   353
                                                                                                                 COMFWIN   354
                                                                                                                 COMFWIN   355
                                        *         THE FOLLOWING PSEUDOS NEED NO PASS 2 PROCESSING.               COMFWIN   356
                                                                                                                 COMFWIN   357
                                                                                                                 COMFWIN   358
           462                           WI=LOO   BSS    0           LOO - TURN ON /OFF OBJECT LISTING           COMFWIN   359
           462                           WO=LOO   BSS    0                                                       COMFWIN   360
           462                           WI=EMI   BSS    0           EMI - END MACHINE INSTRUCTIONS.             COMFWIN   361
           462                           WI=BCI   BSS                BCI - BEGIN CCG TYPE INSTRUCTION            COMFWIN   362
           462                           WI=ECI   BSS                ECI - END CCG TYPE INSTRUCTION              COMFWIN   363
           462                           WO=BMI   BSS    0           BMI - BEGIN MACHINE INSTRUCTIONS.           COMFWIN   364
           462                           WO=NLST  BSS                *READ NAMELIST TABLE PSEUDO                 COMFWIN   366
           462                           WO=APL   BSS                APLIST                                      COMFWIN   367
           462                           WO=IOM   BSS                PROCESS I/O APLISTS                         COMFWIN   368
           462                           WO=FMT   BSS                FORMAT                                      COMFWIN   369
           462                           WO=EQUN  BSS                NEGATIVE RELOCATION                         COMFWIN   370
           462                           WO=LCC   BSS                LOADER CONTROL DIRECTIVES                   COMFWIN   371
           462  0400000376 +                      EQ     WIN100                                                  COMFWIN   374
           463                           WI=DATA  BSS    0                                                       FC50001     7
           463  0100000537 +                      RJ     BNW         FORCE UPPER                                 FC50001     8
           464  0400000376 +                      EQ     WIN100                                                  FC50001     9
  
  
  
  
           465                           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/05. 19.59.55.      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
                                 465 +   OCPSUD   EQU    *O                                                      COMSPSU     6
      L      0  00000000000000000426 +            PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1  00000000000000000453 +            PSUD   BSS                                                     COMSPSU     8
      L      2  00000000000000000462 +            PSUD   APL         APLIST                                      COMSPSU     9
      L      3  00000000000000000462 +            PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4  00000000000000000435 +            PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5  00000000000000000460 +            PSUD   END                                                     COMSPSU    17
      L      6  00000000000000000462 +            PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7  00000000000000000462 +            PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10  00000000000000000426 +            PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11  00000000000000000421 +            PSUD   IDNT                                                    COMSPSU    22
      L     12  00000000000000000462 +            PSUD   IOM                                                     COMSPSU    23
      L     13  00000000000000000462 +            PSUD   LCC                                                     COMSPSU    24
      L     14  00000000000000000462 +            PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15  00000000000000000462 +            PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16  00000000000000000426 +            PSUD   PLIM                                                    FC50049     6
      L     17  00000000000000000430 +            PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20  00000000000000000436 +            PSUD   USE                                                     COMSPSU    31
      L                                                                                                          COMSPSU    32
                                                                                                                 COMSPSU    33
                                 506 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21  00000000000000000462 +            IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22  00000000000000000415 +            IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23  00000000000000000426 +            IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24  00000000000000000453 +            IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25  00000000000000000463 +            IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26  00000000000000000462 +            IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27  00000000000000000462 +            IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30  00000000000000000451 +            IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31  00000000000000000424 +            IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32  00000000000000000424 +            IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33  00000000000000000462 +            IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34  00000000000000000440 +            IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35  00000000000000000451 +            IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36  00000000000000000444 +            IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37  00000000000000000426 +            IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
      L     40  00000000000000000426 +            IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41  00000000000000000451 +            IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42  00000000000000000436 +            IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43  00000000000000000426 +            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
           531                                    LOC    *O                                                      COMSPSU    57
                                                                                                                 COMSPSU    58
                                        * PSU     ENDX                                                           COMSPSU    59
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    37
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    SAVE                COMFWIN 
  
                                        *         WIN SAVE AREA.                                                 COMFWIN   401
                                                                                                                 COMFWIN   402
           531  00000000000000000000     PSTAB    CON    0           FWA OF OC$XXX OR I.XXX TABLE                COMFWIN   403
           532  00000000000000000000     WINA     CON    0           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      COMFWIN   404
           533  00000000000000000000     WINB     CON    0           TEMP STORE OF INSTRUCTION                   COMFWIN   405
                                                                     ** WINB MUST BE AT WINA+1 **                COMFWIN   406
           534  00000000000000000000              CON    0           MINUS IF FORCE UPPER AFTER, ELSE 0          COMFWIN   407
           535  00000000000000000000     WINC     CON    0           SAVE OF X3                                  COMFWIN   408
           536                     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
           537  0400400537 +             BNW      SUBR   0           ENTRY/EXIT...                               COMFWIN   418
           540  5120000564 +                      SA2    PARCEL                                                  COMFWIN   419
                          5130000565 +            SA3    ORG                                                     COMFWIN   420
           541  0302000537 +                      ZR     X2,EXIT.    IF ALREADY AT TOP OF WORD                   COMFWIN   421
                          43600                   MX6    0                                                       COMFWIN   422
                               54620              SA6    A2          (PARCEL) = 0                                COMFWIN   423
           542  73631                             SX6    X3+B1                                                   COMFWIN   424
                     54630                        SA6    A3          ADVANCE ORIGIN COUNTER                      COMFWIN   425
                          0400000537 +            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
           543  0400400543 +             DLT      SUBR   0           ENTRY/EXIT...                               COMFWIN   442
           544  5130000565 +                      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/05. 19.59.55.      PAGE    38
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    DLT                 COMFWIN 
  
                               54630              SA6    A3                                                      COMFWIN   445
           545  0301000543 +                      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
           546  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
           547  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
           550  12223                             BX2    X2+X3                                                   COMFWIN   459
                     12626                        BX6    X2+X6       FORM ADDRESS DEFINITION WORD                COMFWIN   460
                          0233000551 +            JP     B3+DLTA     PROCESS ACCORDING TO TAG PREFIX             COMFWIN   461
                                                                                                                 COMFWIN   462
           551                           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
                          0400000556 +            EQ     DLT2                                                    COMFWIN   466
      L      1  0400000562 +             K=GL     EQ     DLT4                                                    COMFWIN   467
      L      2  0400400553 +             K=AP     EQ     "BLOWUP"                                                COMFWIN   468
      L      3  0400400554 +             K=IO     EQ     "BLOWUP"                                                COMFWIN   469
      L      4  0400400555 +             K=LC     EQ     "BLOWUP"                                                COMFWIN   470
      L      5                           K=END    BSS    0           VERIFY VECTOR SYNCHRONIZATION               COMFWIN   471
           556                                    LOC    *O                                                      COMFWIN   472
                                                                                                                 COMFWIN   473
                                                                                                                 COMFWIN   474
           556                           DLT2     BSS                ... TAG IS IN SYMBOL TABLE                  COMFWIN   475
           556  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
           557  53203                             SA2    X0+B3       FETCH SYMTAB ADDRESS WORD                   COMFWIN   480
                                                                                                                 COMFWIN   481
                                         .TEST    IFEQ   TEST,ON                                                 COMFWIN   482
                     5130000633 +                 CLAS=  X3,WC,(RL,RB,RA)                                        COMFWIN   483
                               11132              BX1    X3*X2                                                   COMFWIN   484
           560  0311400560 +                      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
           561  0400000543 +                      EQ     EXIT.                                                   COMFWIN   490
                                                                                                                 COMFWIN   491
                                                                                                                 COMFWIN   492
           562                           DLT4     BSS                ... TAG IS GENERATED LABEL                  COMFWIN   493
           562  66370                             SB3    B7                                                      COMFWIN   494
                     0100000257 +                 CALL   DPT         DEFINE PROGRAM TAG                          COMFWIN   495
           563  0400000543 +                      EQ     EXIT.                                                   COMFWIN   496
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    39
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    COMFWIN             COMFWIN 
  
                                         QUAL$    IF     -DEF,QUAL$,1                                            COMFWIN   498
                                                  QUAL   *                                                       COMFWIN   499
                                 323 +   WIN      EQU    /COMFWIN/WIN                                            COMFWIN   500
                                 320 +   WTE      EQU    /COMFWIN/WTE                                            COMFWIN   501
                                 531 +   PSTAB    EQU    /COMFWIN/PSTAB                                          COMFWIN   502
                                 506 +   WINI     EQU    /COMFWIN/IPSUD                                          COMFWIN   503
                                 465 +   WINOC    EQU    /COMFWIN/OCPSUD                                         COMFWIN   504
                                         QUAL$    ENDIF                                                          COMFWIN   505
                                         COMFWIN  ENDX                                                           COMFWIN   506
                                                  ENTRY  WIN                                                     QCGC      863
                                                  ENTRY  WTE                                                     QCGC      864
                                                                                                                 QCGC      865
           564                     1     PARCEL   BSSZ   1                                                       QCGC      866
           565                     1     ORG      BSSZ   1                                                       QCGC      867
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    40
        COMFITS - ISSUE TEMP STORAGE.                                 ITS 
  
           566                           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
           566  0400400566 +             ITS      SUBR   0           ENTRY/EXIT...                               COMFITS    12
           567  7110000000 X                      ISUSE$ TEM         USE TEM.                                    COMFITS    13
                                                                                                                 COMFITS    14
           572  6150000605 +                      SB5    ITSA                                                    COMFITS    15
           573  56150                    ITS2     SA1    B5                                                      COMFITS    16
                     0301000600 +                 ZR     X1,ITS4     IF NO MORE TEMPS TO ISSUE                   COMFITS    17
                               53210              SA2    X1                                                      COMFITS    18
           574  66551                             SB5    B5+B1                                                   COMFITS    19
                     21122                        AX1    18                                                      COMFITS    20
                          53310                   SA3    X1          FETCH SYMORD OF TEMP NAME                   COMFITS    21
           575  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
           576  20660                             LX6    PB.GHIJP                                                COMFITS    26
                     12132                        BX1    X3+X2                                                   COMFITS    27
                          36761                   IX7    X6+X1                                                   COMFITS    28
           577  6120000573 +                      WCODE  X7,ITS2     ISSUE  * TAG  BSS  (N.TAG) *                COMFITS    29
                                                                                                                 COMFITS    30
           600  7110000000 X             ITS4     ISUSE$ BUF         USE BUF.                                    COMFITS    31
           603  7170000006                        SX7    OC$EQUN                                                 COMFITS    32
                          20760                   LX7    PB.GHIJP                                                COMFITS    33
           604  6120000566 +                      WCODE  X7,EXIT.                                                COMFITS    34
                                                                                                                 COMFITS    35
                                                                                                                 COMFITS    36
           605                           ITSA     BSS    0           TABLE OF TEMPS TO ISSUE                     COMFITS    37
           605  00000000000000 X                  VFD    24/0,18/=XS=ST,18/=XN.STMAX                             COMFITS    38
                              000000 X
           606  00000000000000 X                  VFD    24/0,18/=XS=CT,18/=XN.CTMAX                             COMFITS    39
                              000000 X
           607  00000000000000 X                  VFD    24/0,18/=XS=IT,18/=XN$IT                                COMFITS    40
                              000006 +
           610  00000000000000 X                  VFD    24/0,18/=XS=OT,18/=XN$OT                                COMFITS    41
                              000007 +
           611  00000000000000 X                  VFD    24/0,18/=XS=VD,18/=XN.VD                                COMFITS    42
                              000000 X
           612  00000000000000 X                  VFD    24/0,18/=XS=LC,18/=XN$LC                                COMFITS    43
                              000000 X
           613  00000000000000000000              CON    0                                                       COMFITS    44
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    41
        COMFITS - ISSUE TEMP STORAGE.                                 COMFITS             COMFITS 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFITS    46
                                                  QUAL   *                                                       COMFITS    47
                                 566 +   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/05. 19.59.55.      PAGE    42
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION
  
           614                                    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
           614  0400400614 +             PUSE     SUBR   0           ENTRY/EXIT                                  COMFUSE    17
                                                                                                                 COMFUSE    18
                                        *         SAVE THE OLD.                                                  COMFUSE    19
                                                                                                                 COMFUSE    20
           615  5120000000 X                      SA2    =XCBI       CURRENT BLOCK INDEX                         COMFUSE    21
                          43666                   MX6    -LB.PARCL                                               COMFUSE    22
                               43052              MX0    -LB.ORGL                                                COMFUSE    23
           616  20666                             LX6    LB.PARCP                                                COMFUSE    24
                     63720                        SB7    X2                                                      COMFUSE    25
                          5130000565 +            SA3    =XORG                                                   COMFUSE    26
           617  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
           620  5120000564 +                      SA2    =XPARCEL                                                COMFUSE    31
                          11101                   BX1    X0*X1       SAVE ALL BUT LB.ORG AND LB.PARC             COMFUSE    32
                               20266              LX2    LB.PARCP                                                COMFUSE    33
           621  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
           622  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
           623  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
           624  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
           625  5170000565 +                      SA7    =XORG                                                   COMFUSE    51
                          5160000564 +            SA6    =XPARCEL                                                COMFUSE    52
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    43
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION                                          COMFUSE 
  
           626  0400000614 +                      EQ     EXIT.                                                   COMFUSE    53
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFUSE    55
                                                  QUAL   *                                                       COMFUSE    56
                                 614 +   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=
           627                          TIUA
  
                                        CONTENT OF LITERALS BLOCK.
  
           630  77777777776017000000    ;;;;;#O 
           631  77776000001777200000    ;;#  O;P
           632  77777777777777037000    ;;;;;;;C' 
           633  77770000000077777777    ;;    ;;;;
  
           656                                    END                                                            QCGC      874
  
                             75400B CM  STORAGE USED             5961 STATEMENTS     1799 SYMBOLS      000006 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.012 SECONDS        1118 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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        BN=BUF          0   EXTERNAL*       2/36 X   40/33
        BN=TEM          0   EXTERNAL*       2/36 X   40/15
        B1=1            0 
        CAI            24   PROGRAM*       14/16 L   14/16 E
        CAI2SN         36   PROGRAM*       14/27     14/30 L
        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   14/25     29/23
        CP#RM           0   FTX            28/29 F
        DMT=            0   EXTERNAL*       2/21 X   14/28
        DOW           100   PROGRAM*       15/55     16/24 L
        DOW2          104   PROGRAM*       16/43 L   16/54
        DPT           257   PROGRAM*       26/10 L   26/10 E   38/51
        DPTA          266   PROGRAM*       26/13 S   26/19     26/24 L
        DRITE          10   PROGRAM*       13/09 L   13/09 E   26/36 S
        DUC           110   PROGRAM*       16/05     17/20 L
        DUC1          116   PROGRAM*       17/28     17/45 L
        DUC2          123   PROGRAM*       18/01 L
        DUC3          127   PROGRAM*       18/08 L
        DUC.          122   PROGRAM*       17/56 L   17/56 E   19/23
        DUC.BTH       135   PROGRAM*       18/19 L   18/19 E
        DUC.NX        114   PROGRAM*       17/37 L   18/03     18/10     18/17     18/26
        DUC.1ST       125   PROGRAM*       18/05 L   18/05 E
        DUC.2ND       131   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           566   PROGRAM*       41/03 D   41/08 E
        I.LOO          33   FTX            26/55
        KUT           142   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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        MO.BLKL         1   FTX            27/09
        MO.BLKP        10   FTX            27/09
        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           565   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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        PARCEL        564   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
        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            52   PROGRAM*       14/19     15/28 L   15/28 E
        PIG5           71   PROGRAM*       15/36     15/39     15/54 L
        PIK=PS          0   EXTERNAL*       2/37 X   29/42
        POS           153   PROGRAM*       19/55 L   19/55 E   24/01
        POS1          165   PROGRAM*       20/16     20/26 L
        POS2          167   PROGRAM*       20/20     20/38 L
        POS.INC       172   PROGRAM*       19/56 S   20/15     20/48 L
        PSTAB         531   PROGRAM*       26/38 S   39/05 D
        PUSE          614   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   20/10     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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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           267   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           173   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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        R.A6           16                  11/41 L
        R.A7           17                  11/42 L
        R.B0            0                  11/25 L
        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           305   PROGRAM*       27/07 L   27/07 E
        SMB10         313   PROGRAM*       27/19 L   27/24     27/26     27/29     27/31
        SNP=            0   EXTERNAL*       2/33 X   29/28
        SN.PAR          0   EXTERNAL*       2/21 X   14/29
        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            1   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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        TH.LINEP       34   FTX            16/38
        TH.MODEL        4   FTX             6/51     16/41
        TH.MODEP       22   FTX            16/40
        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           202   PROGRAM*       17/57     18/02     18/07     18/16     22/19 L   23/42
        TIL10         210   PROGRAM*       22/36     22/39 L
        TIL20         213   PROGRAM*       22/44     22/52 L
        TIU           214   PROGRAM*       18/09     18/14     18/21     18/25     23/25 L
        TIUA          627   PROGRAM*       23/40 S   24/04     25/45
        TIU1          222   PROGRAM*       23/30     23/37     23/40 L
        TIU11         250   PROGRAM*       25/16     25/34 L
        TIU12         252   PROGRAM*       25/30     25/41 L
        TIU5          226   PROGRAM*       23/56 L
        TIU8          233   PROGRAM*       23/47     24/33 L
        TIU9          242   PROGRAM*       24/42     25/03     25/11 L
        TIU.TP        256   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
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        VS.CRAL        22   FTX            19/03     19/04
        VS.CRAP         0   FTX            19/03
        V=ARY           0   EXTERNAL*       2/43 X   24/39
        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.RAL         30   FTX            38/39
        WC.RAP          0   FTX            38/39
        WC.RBL         12   FTX            38/39
        WC.RBP         60   FTX            38/10     38/39
        WC.RLL          2   FTX            38/39
        WC.RLP         72   FTX            38/14     38/39
        WC.W            2   FTX            38/35
        WIN           323   PROGRAM*       39/03 D   39/10 E   40/15     40/31     40/33     40/36
        WINI          506   PROGRAM*       39/06 D
        WINOC         465   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           320   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 
  
  
        A               3                  38/39 D   38/39     38/39 D   38/39     38/39 D   38/39     38/39 D
        BNW           537   PROGRAM*       33/13     34/50     35/28     37/22 L
        DLT           543   PROGRAM*       33/44     33/52     33/56     35/01     37/55 L
        DLTA          551   PROGRAM*       38/17     38/19 L
        DLT2          556   PROGRAM*       38/22     38/31 L
        DLT4          562   PROGRAM*       38/23     38/49 L
        IPSUD         506   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        465   PROGRAM*       36/04 D   39/07
        PSI           412   PROGRAM*       29/38     32/49 L
        PSTAB         531   PROGRAM*       32/55     37/03 L   39/05
        P.COPY         14                  28/57 D   30/21
        WIN           323   PROGRAM*       29/13 L   39/03
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    51
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        WINA          532   PROGRAM*       30/12     31/56     32/04     33/23 S   37/04 L
        WINB          533   PROGRAM*       29/05 S   29/28     32/10     34/26 S   34/42 S
                                           29/20 S   31/38 S   32/16     34/27     37/05 L
        WINC          535   PROGRAM*       29/09 S   29/18 S   31/46     37/08 L
        WIND          536   PROGRAM*       32/02 S   32/13     37/09 L
        WINW          376   PROGRAM*       31/39     31/55 L
        WINW7         403   PROGRAM*       32/03     32/10 L
        WINW8         406   PROGRAM*       32/16 L
        WINX          375   PROGRAM*       31/04     31/10     31/46 L   32/17     32/20     32/25
        WIN1          330   PROGRAM*       29/25     29/29 L
        WIN10         333   PROGRAM*       29/47 L   34/44
        WIN100        376   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         337   PROGRAM*       29/52     29/56 L
        WIN40         341   PROGRAM*       29/50     29/54     30/05 L   33/33
        WIN50         343   PROGRAM*       30/06     30/11 L
        WIN60         365   PROGRAM*       30/49     31/01     31/17 L
        WIN65         354   PROGRAM*       30/28     30/48 L
        WIN70         367   PROGRAM*       30/33     30/35     30/46     31/28 L
        WIN80         374   PROGRAM*       31/29     31/31     31/41 L
        WI=BCI        462   PROGRAM*       35/17 L   36/25
        WI=BOS        415   PROGRAM*       33/07 L   36/26
        WI=BSS        453   PROGRAM*       34/46 L   36/28
        WI=CPL        426   PROGRAM*       33/36 L   36/27
        WI=DATA       463   PROGRAM*       35/27 L   36/29
        WI=ECI        462   PROGRAM*       35/18 L   36/30
        WI=EMI        462   PROGRAM*       35/16 L   36/31
        WI=JPI        451   PROGRAM*       34/39 L   36/32
        WI=LD0        424   PROGRAM*       33/27 L   36/33
        WI=LOO        462   PROGRAM*       35/14 L   36/35
        WI=OTR        440   PROGRAM*       34/13 L   36/36
        WI=RJ3        451   PROGRAM*       34/40 L   36/37
        WI=RJ6        444   PROGRAM*       34/23 L   36/38
        WI=SB0I       426   PROGRAM*       33/39 L   36/40
        WI=ST0        424   PROGRAM*       33/28 L   36/34
        WI=SUBI       426   PROGRAM*       33/38 L   36/39
        WI=UJP        451   PROGRAM*       34/38 L   36/41
        WI=USE        436   PROGRAM*       34/07 L   36/42
        WI=ZERO       426   PROGRAM*       33/40 L   36/43
        WO=ADDR       426   PROGRAM*       33/35 L   36/05
        WO=APL        462   PROGRAM*       35/21 L   36/07
        WO=BMI        462   PROGRAM*       35/19 L   36/08
        WO=BSS        453   PROGRAM*       34/47 L   36/06
        WO=BSSZ       453   PROGRAM*       34/48 L
        WO=CMNT       465   PROGRAM*       35/34 L
        WO=CON        435   PROGRAM*       34/03 L   36/09
        WO=END        460   PROGRAM*       35/05 L   36/10
        WO=EQUN       462   PROGRAM*       35/24 L   36/11
        WO=FMT        462   PROGRAM*       35/23 L   36/12
        WO=FVEC       426   PROGRAM*       33/41 L   36/13
        WO=IDNT       421   PROGRAM*       33/18 L   36/14
        WO=IOM        462   PROGRAM*       35/22 L   36/15
        WO=LCC        462   PROGRAM*       35/25 L   36/16
        WO=LOO        462   PROGRAM*       35/15 L   36/17
        WO=NLST       462   PROGRAM*       35/20 L   36/18
        WO=PLIM       426   PROGRAM*       33/37 L   36/19
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/05. 19.59.55.      PAGE    52
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        WO=TRAC       430   PROGRAM*       33/48 L   36/20
        WO=USE        436   PROGRAM*       34/08 L   36/21
        WTE           320   PROGRAM*       29/04 L   39/04
        Z.PSUD         44                  32/52     36/45 D
        .9              0                  29/28 D   29/28 D   29/28 D   29/28 D   29/28 D   29/28 D
                                           29/28     29/28     29/28     29/28     29/28     29/28
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFITS 
  
  
        ITS           566   PROGRAM*       40/14 L   41/03
        ITSA          605   PROGRAM*       40/17     40/39 L
        ITS2          573   PROGRAM*       40/18 L   40/31     40/31
        ITS4          600   PROGRAM*       40/19     40/33 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFUSE 
  
  
        PUSE          614   PROGRAM*       42/22 L   43/08
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2035              IDENT  QSKEL
                       2035                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1563 
                                        RGFILE    COMMON          0        30 
                                        SKLNAM    COMMON          0       252 
                                        SCT       LOCAL        1563       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/05. 19.59.58.      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         1563+ 
                                        V=ITOB          57            V=ARY          147            F.SKCR        1563+ 
                                        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         1313+ 
                                        V=EQV.L         66            V=STOP         164            F.IFN         1322+ 
                                        V=EQV.B         66            V=PEND         164            F.INTF        1330+ 
                                        V=OR.L          67            V=PAUS         165            Z.INTA          77
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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        1557+ 
                                        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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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
             0  26541114145555555555    ILL       SKEL                                                           SKEL       11
                                                  CALL   ILL                                                     SKEL       12
             0 0                                  ENDS                                                           SKEL       13
                                                                                                                 SKEL       14
                                                                                                                 SKEL       15
                                                                                                                 SKEL       16
                                                                                                                 SKEL       17
             1  26540104045711555555     ADD.I    SKEL                                                           SKEL       18
                                                  IA     R1,L1,L2                                                SKEL       19
             1 0                                  ENDS                                                           SKEL       20
                                                                                                                 SKEL       21
             2  26540104045722555555     ADD.R    SKEL                                                           SKEL       22
                                                  FAR    T1,L1,L2                                                SKEL       23
                                                  NR     R1,0,T1                                                 SKEL       24
             2 0                                  ENDS                                                           SKEL       25
                                                                                                                 SKEL       26
             3  26540104045704555555     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
             4  26540104045703555555     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/05. 19.59.58.      PAGE    29
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       SUBTR.
  
                                        *         SUBTRACT INSTRUCTIONS.                                         SKEL       50
                                                                                                                 SKEL       51
                                                                                                                 SKEL       52
             5  26542325025711555555     SUB.I    SKEL                                                           SKEL       53
                                                  IS     R1,L1,L2                                                SKEL       54
            23 0                                  ENDS                                                           SKEL       55
                                                                                                                 SKEL       56
             6  26542325025722555555     SUB.R    SKEL                                                           SKEL       57
                                                  FSR    T1,L1,L2                                                SKEL       58
                                                  NR     R1,0,T1                                                 SKEL       59
            24 0                                  ENDS                                                           SKEL       60
                                                                                                                 SKEL       61
             7  26542325025704555555     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
            10  26542325025703555555     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
            11  26541525145711555555     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/05. 19.59.58.      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
            12  26541525145722555555     MUL.R    SKEL                                                           SKEL      133
                                                  FMR    R1,L1,L2                                                SKEL      134
            43 0                                  ENDS                                                           SKEL      135
                                                                                                                 SKEL      136
            13  26541525145704555555     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
            14  26541525145703555555     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/05. 19.59.58.      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
            15  26540411265711555555     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
            16  26540411265722555555     DIV.R    SKEL                                                           SKEL      186
                                                  FDR    R1,L1,L2                                                SKEL      187
            76 0                                  ENDS                                                           SKEL      188
                                                                                                                 SKEL      189
            17  26540411265704555555     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/05. 19.59.58.      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
            20  26540411265703555555     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
            21  26540426035722555555     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/05. 19.59.58.      PAGE    33
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       UMIN. 
  
                                        *         UNARY MINUS INSTRUCTIONS.                                      SKEL      229
                                                                                                                 SKEL      230
                                                                                                                 SKEL      231
                                                                                                                 SKEL      232
            22  26542515115711555555     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
            23  26542515115704555555     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
            24  26541424571155555555     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
            25  26541424572255555555     LT.R     SKEL                                                           SKEL      257
                                                  FSR    T1,L1,L2                                                SKEL      258
                                                  PNR    R1,0,T1                                                 SKEL      259
           146 0                                  ENDS                                                           SKEL      260
                                                                                                                 SKEL      261
            26  26541424570455555555     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
            27  26541424571055555555     LT.H     SKEL                                                           SKEL      271
                                                  CALL   HREL                                                    SKEL      272
                                         LTH1     DEF    R1,,"X6."                                               SKEL      273
           156 0                                  ENDS                                                           SKEL      274
                                                                                                                 SKEL      275
            30  26541414245555555555     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/05. 19.59.58.      PAGE    34
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT     SKLNAM
  
            31  26540705571155555555     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
            32  26540705572255555555     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
            33  26540705570455555555     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
            34  26540705571055555555     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
            35  26541407055555555555     LGE      SKEL               ASCII GE                                    SKEL      314
                                                  CALL   HLEX                                                    SKEL      315
           203                                    BRANCH GEH1                                                    SKEL      316
           203 0                                  ENDS                                                           SKEL      317
                                                                                                                 SKEL      318
            36  26541605571155555555     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
            37  26541605572255555555     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
            40  26541605570455555555     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/05. 19.59.58.      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
            41  26541605571055555555     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
            42  26541416055555555555     LNE      SKEL               ASCII NE                                    SKEL      357
                                                  CALL   HLEX                                                    SKEL      358
           237                                    BRANCH NEH1                                                    SKEL      359
           237 0                                  ENDS                                                           SKEL      360
                                                                                                                 SKEL      361
            43  26540521571155555555     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
            44  26540521572255555555     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
            45  26540521570455555555     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/05. 19.59.58.      PAGE    36
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                         EQ.B     SKEQU  EQ.I                                                    SKEL      391
                                                                                                                 SKEL      392
            46  26540521571055555555     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
            47  26541405215555555555     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
            50  26542324225711555555     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
            51  26542324225704555555     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
            52  26542324225710555555     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
            53  26540301245555555555     CAT      SKEL                                                           SKEL      431
                                                  CALL   HCAT                                                    SKEL      432
           302 0                                  ENDS                                                           SKEL      433
                                                                                                                 SKEL      434
                                                                                                                 SKEL      435
            54  26540317141716555555     COLON    SKEL               (P1=FIRST, P2=LAST)                         SKEL      436
                                                  CALL   HCOL                                                    SKEL      437
           303 0                                  ENDS                                                           SKEL      438
                                                                                                                 SKEL      439
            55  26542325022324555555     SUBST    SKEL               (P1=SYMBOL, P2=COLON INTERMEDIATE)          SKEL      440
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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
            56  26541124172255555555     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
            57  26541124170255555555     ITOB     SKEL               XMIT -- NO CONVERSION                       SKEL      452
                                                  XMT    R1,LU1                                                  SKEL      453
           307 0                                  ENDS                                                           SKEL      454
                                                                                                                 SKEL      455
            60  26541124170455555555     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
            61  26542224171155555555     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
            62  26542224170455555555     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
            63  26540424170355555555     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/05. 19.59.58.      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/05. 19.59.58.      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
            64  26541617245714555555     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
            65  26540116045714555555     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
            66  26540521265714555555     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
            67  26541722571455555555     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
            70  26543017225714555555     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/05. 19.59.58.      PAGE    40
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                        **        INTRINSIC FUNCTION SKELETONS.                                  SKEL      539
                                                                                                                 SKEL      540
                                                                                                                 SKEL      541
            71  26540102235555555555     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
            72  26542325153423555555     SUM1S    SKEL                                                           FC5A496     9
                                                  CX     R1,L1                                                   FC5A496    10
           331 0                                  ENDS                                                           FC5A496    11
                                                                                                                 FC5A496    12
                                                                                                                 FC5A496    13
            73  26540111150107555555     AIMAG    SKEL                                                           SKEL      548
                                                  XMT    R1,LL1      IMAGINARY PART OF COMPLEX (1OP)             SKEL      549
           332 0                                  ENDS                                                           SKEL      550
                                                                                                                 SKEL      551
            74  26540111162455555555     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
            75  26540116111624555555     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
            76  26541501303355555555     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
            77  26540415013034555555     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/05. 19.59.58.      PAGE    41
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS   SKLNAM
  
           100  26541511163355555555     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
           101  26540415111634555555     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
           102  26540115013034555555     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
           103  26540115111634555555     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
           104  26540115170455555555     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
           105  26540317161207555555     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/05. 19.59.58.      PAGE    42
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      648
           106  26540315201430555555     CMPLX    SKEL                                                           SKEL      649
                                                  XMT    RU1,L1                                                  SKEL      650
                                                  XMT    RL1,L2                                                  SKEL      651
           421 0                                  ENDS                                                           SKEL      652
                                                                                                                 SKEL      653
                                                                                                                 SKEL      654
           107  26540401022355555555     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
           110  26540404111555555555     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
           111  26540411155555555555     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
           112  26540411162455555555     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/05. 19.59.58.      PAGE    43
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS   SKLNAM
  
           113  26540420221704555555     DPROD    SKEL                                                           SKEL      702
                                                  FM     RU1,L1,L2                                               SKEL      703
                                                  DFM    RL1,L1,L2                                               SKEL      704
           464 0                                  ENDS                                                           SKEL      705
                                                                                                                 SKEL      706
           114  26540416111624555555     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
           115  26540423110716555555     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
           116  26541104161116555555     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
           117  26541123110716555555     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/05. 19.59.58.      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
           120  26541104111555555555     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
           121  26541501231355555555     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
           122  26541517045555555555     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/05. 19.59.58.      PAGE    45
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      810
                                         OR       SKEQU  OR.B                                                    SKEL      811
                                                                                                                 SKEL      812
                                                                                                                 SKEL      813
           123  26542201160655555555     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
           124  26542310110624555555     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/05. 19.59.58.      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
           125  26540417022355555555     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
           126  26540417021455555555     DOBL     SKEL                                                           SKEL      865
                                                  CALLC  DOL         FLAG LONG DO                                SKEL      866
           574                                    BRANCH DOBS1                                                   SKEL      867
           574 0                                  ENDS                                                           SKEL      868
                                                                                                                 SKEL      869
           127  26540417023223555555     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
           130  26540417023214555555     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/05. 19.59.58.      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
           131  26540417035723555555     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
           132  26540417035717555555     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/05. 19.59.58.      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
           133  26540417035714555555     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
           134  26540417035722555555     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
           135  26540417035704555555     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
           136  26541117140355555555     IOLC     SKEL               IO LIST COLLAPSE - DEFINE CONTROL VAR       FC5A218    22
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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
           137  26541403110655555555     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
           140  26540717241755555555     GOTO     SKEL                         UNCONDITIONAL GOTO                SKEL      977
                                                  UJP    P1                                                      SKEL      978
                                                  CALLC  PGT                                                     SKEL      979
           665 0                                  ENDS                                                           SKEL      980
                                                                                                                 SKEL      981
                                                                                                                 SKEL      982
           141  26540107172417555555     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
           142  26540307172417555555     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
           143  26541207172417555555     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/05. 19.59.58.      PAGE    50
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       GOTO      SKLNAM
  
           144  26542207172417555555     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
           145  26540123230716555555     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
           146  26540223235555555555     BSS      SKEL                                                           SKEL     1049
                                                  CALL   PLA,P1                                                  SKEL     1050
           725 0                                  ENDS                                                           SKEL     1051
                                                                                                                 SKEL     1052
           147  26540122315555555555     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/05. 19.59.58.      PAGE    51
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       APL 
  
                                        **        AP-LIST CONSTRUCTION.                                          SKEL     1057
                                                                                                                 SKEL     1058
                                                                                                                 SKEL     1059
           150  26540701205555555555     GAP      SKEL                                                           SKEL     1060
                                                  CALL   GAP         PROCESS GENERAL ACTUAL PARAMETER            SKEL     1061
           727 0                                  ENDS                                                           SKEL     1062
                                                                                                                 SKEL     1063
           151  26540601205555555555     FAP      SKEL                                                           SKEL     1064
                                                  CALL   FAP         FUNCTION APLIST FOLLOWS                     SKEL     1065
           730 0                                  ENDS                                                           SKEL     1066
                                                                                                                 SKEL     1067
           152  26541101205555555555     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
           153  26540120111703555555     APIOC    SKEL                                                           SKEL     1101
                                                  CALL   IOC         PROCESS I/O CONTROL PARAMETER               SKEL     1102
           740 0                                  ENDS                                                           SKEL     1103
                                                                                                                 SKEL     1104
           154  26540120111704555555     APIOD    SKEL                                                           SKEL     1105
                                                  CALL   IOD         PROCESS I/O DATA PARAMETER (LIST ITEM)      SKEL     1106
           741 0                                  ENDS                                                           SKEL     1107
                                                                                                                 SKEL     1108
           155  26540120111725555555     APIOU    SKEL                                                           SKEL     1109
                                                  CALL   IOU         PROCESS I/O UNIT                            SKEL     1110
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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/05. 19.59.58.      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
           156  26542325022255555555     SUBR     SKEL                                                           SKEL     1186
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    54
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  CALL   SUB         PROCESS SUBROUTINE                          SKEL     1187
          1006 0                                  ENDS                                                           SKEL     1188
                                                                                                                 SKEL     1189
           157  26540625160355555555     FUNC     SKEL                                                           SKEL     1190
                                                  CALL   FUN         PROCESS GENERAL FUNCTION                    SKEL     1191
          1007 0                                  ENDS                                                           SKEL     1192
                                                                                                                 SKEL     1193
           160  26541411020655555555     LIBF     SKEL               LIBRARY FUNCTION (NO ZERO TERMINATOR)       SKEL     1194
                                                  CALL   LIBF                                                    SKEL     1195
          1010 0                                  ENDS                                                           SKEL     1196
           161  26541116240655555555     INTF     SKEL                                                           SKEL     1197
                                                  CALL   INF         PROCESS INTRINSIC FUNCTION CALL             SKEL     1198
          1011 0                                  ENDS                                                           SKEL     1199
                                                                                                                 SKEL     1200
           162  26541117232502555555     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
           163  26540522225555555555     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
           164  26542324172055555555     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
           165  26542001252355555555     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/05. 19.59.58.      PAGE    55
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       EXIT.     SKLNAM
  
           166  26542205245555555555     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
           167  26542224161355555555     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
           170  26540720145555555555     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
           171  26540516242255555555     ENTR     SKEL                                                           SKEL     1267
                                                  CALL   ENT                                                     SKEL     1268
          1032 0                                  ENDS                                                           SKEL     1269
                                                                                                                 SKEL     1270
                                                                                                                 SKEL     1271
           172  26540226045555555555     BVD      SKEL               BEGIN VARDIM CODE                           SKEL     1272
                                                  CALL   BVD                                                     SKEL     1273
          1033 0                                  ENDS                                                           SKEL     1274
                                                                                                                 SKEL     1275
                                                                                                                 SKEL     1276
           173  26540526045555555555     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/05. 19.59.58.      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/05. 19.59.58.      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
           174  26542305075555555555     SEG      SKEL                                                           SKEL     1363
                                                  CALLC  SEG                                                     SKEL     1364
          1072 0                                  ENDS                                                           SKEL     1365
                                                                                                                 SKEL     1366
           175  26541617172055555555     NOOP     SKEL   ILL                                                     SKEL     1367
                                                  CALLQ  NOOP                                                    SKEL     1368
          1072 0                                  ENDS                                                           SKEL     1369
                                                                                                                 SKEL     1370
           176  26541004225555555555     HDR      SKEL                         BEGIN NEW PROGRAM-UNIT            SKEL     1371
                                                  CALL   HDR                                                     SKEL     1372
          1073 0                                  ENDS                                                           SKEL     1373
                                                                                                                 SKEL     1374
           177  26540611140555555555     FILE     SKEL                                                           SKEL     1375
                                                  CALL   GFD         GENERATE FILE DECLARATION                   SKEL     1376
          1074 0                                  ENDS                                                           SKEL     1377
                                                                                                                 SKEL     1378
           200  26542014111555555555     PLIM     SKEL                     END OF FILE DECLARATIONS              SKEL     1379
                                                  CALL   PLIM                                                    SKEL     1380
          1075 0                                  ENDS                                                           SKEL     1381
                                                                                                                 SKEL     1382
           201  26542305305555555555     SEX      SKEL                         START OF EXECUTABLES              SKEL     1383
                                                  CALL   SEX                                                     SKEL     1384
          1076 0                                  ENDS                                                           SKEL     1385
                                                                                                                 SKEL     1386
           202  26540304141717555555     CDLOO    SKEL               OBJECT LIST ON/OFF                          SKEL     1387
                                                  CALL   CDLOO                                                   SKEL     1388
          1077 0                                  ENDS                                                           SKEL     1389
                                                                                                                 SKEL     1390
           203  26540304041724555555     CDDOT    SKEL               ZERO/ONE-TRIP DO                            SKEL     1391
                                                  CALL   CDDOT                                                   SKEL     1392
          1100 0                                  ENDS                                                           SKEL     1393
                                                                                                                 SKEL     1394
           204  26540304032355555555     CDCS     SKEL               USER/FIXED COLLATE                          SKEL     1395
                                                  CALL   CDCS                                                    SKEL     1396
          1101 0                                  ENDS                                                           SKEL     1397
                                                                                                                 SKEL     1398
           205  26540401240155555555     DATA     SKEL               DATA TABLE INFO                             SKEL     1399
                                                  CALL   DATA                                                    SKEL     1400
          1102 0                                  ENDS                                                           SKEL     1401
                                                                                                                 SKEL     1402
           206  26540611165555555555     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/05. 19.59.58.      PAGE    58
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       HDR 
  
                                                  CALL   FIN                                                     SKEL     1406
          1103 0                                  ENDS                                                           SKEL     1407
                                                                                                                 SKEL     1408
           207  26541403035555555555     LCC      SKEL                         LOADER CONTROL CARD               SKEL     1409
                                                  CALL   LCC                                                     SKEL     1410
          1106 0                                  ENDS                                                           SKEL     1411
                                                                                                                 SKEL     1412
           210  26540426115555555555     DVI      SKEL                                                           SKEL     1413
                                                  CALL   ILL                                                     SKEL     1414
          1107 0                                  ENDS                                                           SKEL     1415
                                                                                                                 SKEL     1416
           211  26540530205711555555     EXP.I    SKEL               I**J FOR DATA                               SKEL     1417
                                                  CALL   ILL                                                     SKEL     1418
          1110 0                                  ENDS                                                           SKEL     1419
                                                                                                                 SKEL     1420
           212  26540417020435555555     DOBD2    SKEL                                                           SKEL     1421
                                                  CALLQ  NOOP                                                    SKEL     1422
          1111 0                                  ENDS                                                           SKEL     1423
  
  
  
  
                                        *         *IF* INSTRUCTION SKELETONS.                                    SKEL     1425
                                                                                                                 SKEL     1426
                                                                                                                 SKEL     1427
           213  26541134353655555555     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
           214  26541134353555555555     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
           215  26542234353555555555     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
           216  26541134343655555555     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/05. 19.59.58.      PAGE    59
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF        SKLNAM
  
           217  26542234343655555555     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
           220  26541134353455555555     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
           221  26541116353655555555     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
           222  26541134163655555555     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
           223  26542234163655555555     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
           224  26541134351655555555     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
           225  26541116353555555555     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
           226  26542216353555555555     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
           227  26541134161655555555     IFI1NN   SKEL                                                           SKEL     1513
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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
           230  26542234161655555555     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
           231  26541116163655555555     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
           232  26542216163655555555     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
           233  26541134341655555555     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
           234  26542234341655555555     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
           235  26541116351655555555     IFIN2N   SKEL                                                           SKEL     1554
                                                  ZR     L1,"N2"                                                 SKEL     1555
                                                  CALLC  IF,1                                                    SKEL     1556
          1202 0                                  ENDS                                                           SKEL     1557
                                                                                                                 SKEL     1558
           236  26541134163455555555     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
           237  26541106245555555555     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/05. 19.59.58.      PAGE    61
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF        SKLNAM
  
           240  26541106065555555555     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
           241  26541134343455555555     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
           242  26541105215711555555     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
           243  26541105215722555555     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
           244  26541105215704555555     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/05. 19.59.58.      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
           245  26541105215703555555     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
           246  26541116055711555555     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
           247  26541116055722555555     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
           250  26541116055704555555     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
           251  26541116055703555555     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/05. 19.59.58.      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
          1563                           F.SCT    BSSENT             FWA SKEL BEGIN INDEX VECTOR                 COMFSKL   734
          1563                           F.SCT BSS                                                              BSSENT  .1
          1563                           F.SKCR   BSSENT             FWA SKEL CONSTANT REDUCTION VECTOR          COMFSKL   735
          1563                           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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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
          2035                                    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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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
      L      7  03777777777777777777     NONE     MCTBL  ----,----,----,----,----,----,----                      PARSKEL   126
      L   1313                                    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
          1313                           F.IFS    BSSENT                                                         PARSKEL   147
          1313  00177000000003767740     123      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   148
          1314  00777003010023767740     113      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   149
          1315  00377001002013767740     122      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   150
          1316  01377005012027767740     121      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   151
                                                                                                                 PARSKEL   152
                                        *                                  NEXT LABEL REFERENCED ONCE.           PARSKEL   153
          1317  01577006014033767740     N23      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   154
          1320  01777007020043767740     1N3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   155
          1321  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/05. 19.59.58.      PAGE    74
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               F.IFT 
  
          1322                           F.IFN    BSSENT                                                         PARSKEL   159
          1322  03577016036077767740     NN3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   160
          1323  04177020042107767740     11N      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   161
          1324  02577012026057767740     N22      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   162
          1325  03177014032067767740     1NN      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   163
          1326  04777023046117767740     1N1      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   164
          1327  04577022044113767740     N2N      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   165
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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/05. 19.59.58.      PAGE    76
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF
  
                                        **        INLINE INTRINSICS.                                             PARSKEL   203
                                                                                                                 PARSKEL   204
                                                                                                                 PARSKEL   205
          1330                           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/05. 19.59.58.      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/05. 19.59.58.      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
          1557                                    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/05. 19.59.58.      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
          1354  00220240400000177400     BOOL     GENF   ****,****,****,DTOB.,CTOB.,BOOL$                        FC50168    25
          1374  03770262044300177400     INT      GENF   ****,****,INT,IDINT,CTOI.,-                             FC50168    26
          1417  03771543400007777400     REAL     GENF   ****,FLOAT,****,SNGL,REAL,-                             PARSKEL   389
          1363  03770300003201177402     DBLE     GENF   BTOD.,ITOD.,DBLE,****,CTOD.,-                           FC50168    27
          1357  03770000440701377403     CMPL.    GENF   BTOC.,ITOC.,RTOC.,DTOC.,****,-                          FC50168    28
          1361  03777761403006177430     CMPLX    GENF   CMPLX,CMPLX,CMPLX,CMPLX,-,-                             PARSKEL   392
                                        *                            MODE CONVERSION FOR CMPLX DONE IN PAR/ESF.  PARSKEL   393
                                                                                                                 PARSKEL   394
          1430  03772164507724777523     ABS      GENF   IABS,IABS,ABS,DABS,CABS,-                               PARSKEL   395
          1433  03777764710277777777     AINT     GENF   -,-,AINT,DINT,-,-                                       PARSKEL   396
          1436  03777765010577777777     ANINT    GENF   -,-,ANINT,DNINT,-,-                                     PARSKEL   397
          1445  03777764551425177514     DIM      GENF   DIM,IDIM,DIM,DDIM,-,-                                   PARSKEL   398
          1403  00521242505212425052     LOCF     GENF   LOCF,LOCF,LOCF,LOCF,LOCF,LOCF,LOCF                      PARSKEL   399
          1464  03777764750426777533     MOD      GENF   MOD,MOD,AMOD,DMOD,-,-                                   PARSKEL   400
          1405  03777761601613577456     MAX      GENF   MAX0,MAX0,AMAX1,DMAX1,-,-                               PARSKEL   401
          1411  03777761642014577462     MIN      GENF   MIN0,MIN0,AMIN1,DMIN1,-,-                               PARSKEL   402
          1466  03777765253577777777     NINT     GENF   -,-,NINT,IDNINT,-,-                                     PARSKEL   403
          1473  03777765114225777527     SIGN     GENF   ISIGN,ISIGN,SIGN,DSIGN,-,-                              PARSKEL   404
                                                                                                                 PARSKEL   405
          1475  03773166314477777777     SQRT     GENF   -,-,SQRT,DSQRT,CSQRT,-                                  PARSKEL   406
          1501  03773266515077777777     EXP      GENF   -,-,EXP,DEXP,CEXP,-                                     PARSKEL   407
          1423  03773346655477777777     LOG      GENF   -,-,ALOG,DLOG,CLOG,-                                    PARSKEL   408
          1425  03777767015777777777     LOG10    GENF   -,-,ALOG10,DLOG10,-,-                                   PARSKEL   409
          1512  03773507156177777777     SIN      GENF   -,-,SIN,DSIN,CSIN,-                                     PARSKEL   410
          1517  03773627416677777777     COS      GENF   -,-,COS,DCOS,CCOS,-                                     PARSKEL   411
          1524  03777767657377777777     TAN      GENF   -,-,TAN,DTAN,-,-                                        PARSKEL   412
          1530  03777770057777777777     ASIN     GENF   -,-,ASIN,DASIN,-,-                                      PARSKEL   413
          1533  03777770220277777777     ACOS     GENF   -,-,ACOS,DACOS,-,-                                      PARSKEL   414
          1536  03777770360577777777     ATAN     GENF   -,-,ATAN,DATAN,-,-                                      PARSKEL   415
          1541  03777770521077777777     ATAN2    GENF   -,-,ATAN2,DATAN2,-,-                                    PARSKEL   416
          1544  03777770661377777777     SINH     GENF   -,-,SINH,DSINH,-,-                                      PARSKEL   417
          1547  03777771021677777777     COSH     GENF   -,-,COSH,DCOSH,-,-                                      PARSKEL   418
          1552  03777771162177777777     TANH     GENF   -,-,TANH,DTANH,-,-                                      PARSKEL   419
          1557                                    ORG    F.INTF+Z.INTF                                           PARSKEL   420
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      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
          1557                           F.IMCV   BSSENT             INTRINSICS TO MODE CONVERT                  PARSKEL   433
          1557  00000015000001000003              VFD    24//INTF/AMAX0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   434
          1560  00000017000001000003              VFD    24//INTF/AMIN0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   435
          1561  00000057000004000002              VFD    24//INTF/_MAX1,18/V=RTOI-OM=CONV,18/M.INT               PARSKEL   436
          1562  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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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 
  
          2035                                    END                                                            QSKEL      48
  
                            107000B CM  STORAGE USED            48261 STATEMENTS     3200 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           15.749 SECONDS        5438 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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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/05. 19.59.58.      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        1322   PROGRAM*       74/01 L   74/01 E
        F.IFS        1313   PROGRAM*       73/46 L   73/46 E
        F.IMCV       1557   PROGRAM*       80/12 L   80/12 E   80/17
        F.INTF       1330   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        1563   PROGRAM*       63/12 L   63/12 E
        F.SKCR       1563   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/05. 19.59.58.      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/05. 19.59.58.      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.NONE          7                  73/22 L
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        OM=MUL       1257   PROGRAM*       72/08 L   72/08 E
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        O=MASK          0   EXTERNAL*       4/10 X   44/16
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        SKO.CON         0                  20/30 D   22/13     22/14     22/15
        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            1   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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        U=ANINT       337                  40/26 D   65/26
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        U=EVD           0                  55/40 D   55/41 D   67/36
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        U=LCC           0                  58/04 D   58/05 D   68/03
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        U=STR.I         0                  36/22 D   36/23 D   64/41
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        V=DABS        107                  42/08 D   42/08 E   65/46 L   77/18
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        V=FAP         151                  51/08 D   51/08 E   66/57 L
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        V=LCIF        137                  49/11 D   49/11 E   66/37 L
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        V=R11N        234                  60/34 D   60/34 E   68/45 L   70/37     74/03
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        W=ARY         726                  50/43 D   66/53
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        W=DTOB        307                  37/44 D
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        W=IEQ.R      1211                  61/46 D   69/02
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        W=MOD         542                  44/30 D   66/11
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        W=SNGL        307                  45/17 D
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   107
        SYMBOLIC REFERENCE TABLE. 
  
        ZT.R           13                  22/05 D   22/05     22/06
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   108
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        COSD          172                  78/06 L
        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
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/05. 19.59.58.      PAGE   109
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        LOCF           52                  76/48 L   79/30     79/30
        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/05. 20.00.17.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1264              IDENT  FUN
                       1264                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1245 
                                        LITERALS* LOCAL        1245        10 
                                        RGFILE    COMMON          0        30 
                                        DEBUG     LOCAL        1255         7 
  
  
                                        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       1144+ 
                                        O=GAP           43+           O=IOF          163+           O=SCRET       1171+ 
                                        O=HLEX          47+           O=IOU          205+           O=SURET       1207+ 
                                        O=HREL          51+           O=LIB          227+           APLFLG        1224+ 
                                        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
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE     2
  
  
                                                                                                                 FUN         8
                                         FUN      SECT   ((QCG)    EXTERNAL PROCEDURE INVOCATION.)               FUN         9
  
  
  
  
  
                                        *         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/05. 20.00.17.      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
                     5160001224 +                 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  5110001224 +                      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/05. 20.00.17.      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
                          5120001241 +            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  5170001241 +                      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
                          0100001036 +            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/05. 20.00.17.      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  0100001145 +             PCR10    RJ     SAS         STACK APLIST                                FUN       198
            54  5110000000 X                      SA1    CURSK       CURRENT SKELETON POINTER                    FUN       199
                          10711                   BX7    X1                                                      FUN       200
            55  5170001215 +                      SA7    FUN.CUR     SAVE                                        FUN       201
                          76600                   =X6    0                                                       FUN       202
            56  5110000000 X                      ADDWD  T.SAP       RESERVE FOR HEADER                          FUN       203
            57  5110001224 +                      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/05. 20.00.17.      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
                          0100001036 +            RJ     PEJ         ISSUE CALL                                  FUN       230
            72  0100000662 +                      RJ     PAS         RESTORE APLIST STRUCTURES                   FUN       231
            73  76700                             =X7    0                                                       FUN       232
                     5170001241 +                 SA7    FAF         ZERO OUT FIRST APL FLAG                     FUN       233
            74  5110001215 +                      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  5170001215 +                      SA7    FUN.CUR     SAVE SKELETON POINTER                       FUN       247
                          0100001145 +            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  5120001224 +                      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
                          0100001036 +            RJ     PEJ         ISSUE - RJ   MMC -                          FUN       262
           111  5140001215 +                      SA4    FUN.CUR                                                 FUN       263
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      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
                     5170001241 +                 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
                          5120001224 +            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
                     5170001224 +                 SA7    APLEN                                                   FUN       307
           130  0400000031 +                      EQ     O=FUN2      CONTINUE..                                  FUN       308
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      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  5110001245 +                      CLAS=  X1,AT,(IO,IOC)                                          FUN       321
                          10611                   BX6    X1                                                      FUN       322
           134  5160001235 +                      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  5110001224 +                      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/05. 20.00.17.      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
                     5160001235 +                 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  5120001246 +                      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  5160001235 +                      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
                          5120001241 +            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  5110001224 +             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/05. 20.00.17.      PAGE    10
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=IOF 
  
                     5170001241 +                 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  5110001245 +                      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
                     5160001235 +                 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/05. 20.00.17.      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  5110001247 +                      CLAS=  X1,AT,(IOC,IO,LEN)                                      FUN       486
                          5150000162 +            SA5    IODA                                                    FUN       487
           224  12615                             BX6    X1+X5       INSERT NUL PROPERTY                         FUN       488
                     5160001235 +                 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
                          5120001241 +            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/05. 20.00.17.      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  0100001036 +                      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/05. 20.00.17.      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  5150001235 +                      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
                     5110001232 +                 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  5110001224 +                      SA1    APLEN                                                   FUN       583
                          7271000001              SX7    X1+1                                                    FUN       584
           257  5170001224 +                      SA7    APLEN                                                   FUN       585
                          0400000242 +            EQ     EXIT.                                                   FUN       586
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      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  5170001213 +                      SA7    LNK.CUR                                                 FUN       616
                          5120000000 X            SA2    T=PAR       GET I. L. LENGTH                            FUN       617
           263  5160001240 +                      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
                          5160001214 +            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  5150001212 +                      SA5    LEAF                                                    FUN       630
                          0100000743 +            RJ     PCI         PROCESS CHARACTER ITEM                      FUN       631
           272  5150001213 +                      SA5    LNK.CUR                                                 FUN       632
                          0400000270 +            EQ     BGA1                                                    FUN       633
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      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
                     5170001235 +                 SA7    ATF         INDEX IS NOT TYPE CHAR                      FUN       641
           275  0100001063 +                      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  0100001036 +                      RJ     PEJ         PROCESS EXTERNAL JUMP                       FUN       648
           301  0100000662 +                      RJ     PAS         POP APLIST STRUCTURES                       FUN       649
           302  0100001156 +                      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  5120001235 +                      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/05. 20.00.17.      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  0100001175 +                      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/05. 20.00.17.      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  0100001145 +                      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  5110001224 +                      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  5110001240 +                      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  5110001232 +                      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/05. 20.00.17.      PAGE    18
        SUBROUTINES.                                                  DAC 
  
                     0100001036 +                 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  0100001156 +                      RJ     SCI         STORE NEW APLIST WORD FROM MMC. TO APL      FC5A243    78
           371  5110000337 +                      SA1    CCTA                                                    FC5A243    79
                          0100001207 +            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/05. 20.00.17.      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  5140001252 +                      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  5110001232 +                      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  5120001235 +                      SA2    ATF                                                     FUN       820
                          7100000006              SX0    M.CHAR      MODE = CHAR                                 FUN       821
           421  76610                             =X6    1                                                       FUN       822
                     5130001250 +                 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  5170001235 +                      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/05. 20.00.17.      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/05. 20.00.17.      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  5160001242 +                      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
                          0100001145 +            RJ     SAS         STACK APLIST STRUCTURES                     FUN       916
           450  5150001212 +                      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  5130001242 +                      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/05. 20.00.17.      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
                          5160001242 +            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
                          5170001243 +            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
                          5110001242 +            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/05. 20.00.17.      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  5150001212 +                      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  0100001216 +                      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/05. 20.00.17.      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
                          5150001212 +            SA5    LEAF                                                    FUN      1036
           517  0100001175 +                      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  5110001242 +                      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  0100001145 +             FVS3     RJ     SAS         STACK APLIST INFO                           FUN      1050
           524  5150001212 +                      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  5120001242 +                      SA2    DEFDIF      GET DEFERED TURPLE DIFFERENCE               FUN      1059
                          43700                   MX7    0                                                       FUN      1060
           530  5170001235 +                      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
                          0100001063 +            RJ     SAP         SELECT NORMAL APLIST PROCESSOR              FUN      1064
                                                                                                                 FUN      1065
           532  5120001242 +             FVS5     SA2    DEFDIF      GET DEFERED TURPLE ORDINAL DIFFERENCE       FUN      1066
                          5110001243 +            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
                          0100001063 +            RJ     SAP         OUTPUT APLIST WORD                          FUN      1073
           535  5114000002                        SA1    B4+OR.2OP   GET SECOND SBST INDEX FUNCTION              FUN      1074
                          0100001063 +            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
                          0100001036 +            RJ     PEJ         PROCESS EXTERNAL JUMP TO SUBSTRING ROUTINE  FUN      1080
           540  5110001243 +                      SA1    COLDIF                                                  FUN      1081
                          0100000662 +            RJ     PAS         POP APLIST STRUCTURE                        FUN      1082
           541  63414                             SB4    B4+X1       (B4) _ ORIGINAL TURPLE                      FUN      1083
                     0100001156 +                 RJ     SCI         STORE INTO CHARACTER ITEM                   FUN      1084
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    25
        SUBROUTINES.                                                  FVS 
  
           542  5150001212 +                      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/05. 20.00.17.      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
                          5120001214 +            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/05. 20.00.17.      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  5170001212 +                      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  5170001214 +                      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  5160001213 +                      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/05. 20.00.17.      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  5130001244 +                      SA3    LEVEL       GET CURRENT STACK DEPTH                     FUN      1250
                          43600                   MX6    0                                                       FUN      1251
           607  5160001235 +                      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  5120001241 +                      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
                     5160001241 +                 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  5160001232 +                      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
                     5160001227 +                 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  5160001224 +                      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/05. 20.00.17.      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  5120001235 +                      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
                     5170001235 +                 SA7    ATF                                                     FUN      1311
           627  0460000632 +                      ZR     B6,IAW30    IF CHARACTER                                FC5A165     9
                          5110000564 +            SA1    GASA        GET ORIGINAL OPERAND                        FUN      1313
           630  0100001063 +                      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  0100000763 +                      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/05. 20.00.17.      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
                          5120001227 +            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/05. 20.00.17.      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  5130001244 +                      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
                          5120001224 +            SA2    APLEN                                                   FUN      1407
           671  0306000675 +                      ZR     X6,PAS10    IF POPPED TO ZERO LEVEL                     FC50239    17
                          5130001232 +            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  5130001235 +             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/05. 20.00.17.      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
                          0100001216 +            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  0100001175 +                      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
                     5120001240 +                 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
                     5170001240 +                 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  0100001156 +                      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/05. 20.00.17.      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  5130001240 +                      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  0100001145 +                      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/05. 20.00.17.      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  5170001212 +                      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
                     0333000761 +                 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
           754  5120000000 X                      SA2    T.PAR       GET FWA I. L.                               FUN      1544
                          20766                   LX7    1+P2.ARRP-P2.BIASP      POSITION I. L. ORDINAL          FUN      1545
                               63220              SB2    X2                                                      FUN      1546
           755  53272                             SA2    B2+X7       GET ASSOCIATE OPERATOR                      FUN      1547
                     21256                        AX2    OP.SKELP    POSITION SKELETON                           FUN      1548
                          14222                   BX2    -X2         GET NEGATIVE OR SKEL                        FUN      1549
           756  6222000000 X                      SB2    X2+V=SUBST                                              FC5A246    32
                          0520400756 +            NZ     B2,"BLOWUP" IF NOT A SUBSTRING                          FUN      1551
                                         .TEST    ENDIF                                                          FUN      1552
                                                                                                                 FUN      1553
           757  0100000456 +                      RJ     FVS         FORMAT VARIABLE SUBSTRING                   FUN      1554
           760  0400000743 +                      EQ     EXIT.                                                   FUN      1555
                                                                                                                 FUN      1556
           761  0100000733 +             PCI4     RJ     PCF         ISSUE CHARACTER FP SCALAR                   FUN      1557
           762  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/05. 20.00.17.      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
           763  0400400763 +             PCL      SUBR                                                           FUN      1578
           764  5130001235 +                      SA3    ATF                                                     FUN      1579
                          20303                   HX3    AT.NUL                                                  FUN      1580
           765  0323001016 +                      PL     X3,PCL50    IF NOT ARRAY ITEM                           FUN      1581
                          5120001232 +            SA2    APTAB                                                   FUN      1582
           766  10611                             BX6    X1                                                      FUN      1583
                     7170000000 X                 SX7    T.CLW                                                   FUN      1584
           767  5160001022 +                      SA6    PCLA        SAVE OPERAND                                FUN      1585
                          54720                   SA7    A2          RESET APTAB FOR CLW ENTRIES                 FUN      1586
                               10622              BX6    X2                                                      FUN      1587
           770  5160001023 +                      SA6    PCLB        SAVE CURRENT APLIST TABLE                   FUN      1588
                          5150001212 +            SA5    LEAF        GET LAST OPERAND TO ALIST                   FUN      1589
           771  0100000551 +                      RJ     GAS         GET STATUS WORD OF LAST OPD TO APLIST       FUN      1590
           772  10011                             BX0    X1                                                      FC5A151     4
                     20172                        LX1    -ST.ORD1P                                               FUN      1591
                          20051                   HX0    P2.FP                                                   FC5A151     5
           773  0320000774 +                      PL     X0,PCL10    IF NOT FORMAL PARAMETER                     FC5A151     6
                          20122                   LX1    ST.ORD1P-P2.TAGP                                        FC5A151     7
                                                                                                                 FC5A151     8
           774  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
           775  20124                             LX1    P2.BIASP                                                FUN      1595
                     20354                        LX3    P2.TAGP                                                 FUN      1596
                          12113                   BX1    X1+X3                                                   FUN      1597
                               66700              =B7    0                                                       FUN      1598
           776  0100000242 +                      RJ     AAP         ENTER CLEN TO CLW                           FUN      1599
           777  5110001022 +                      SA1    PCLA                                                    FUN      1600
                          0100001063 +            RJ     SAP         LENGTH TO CLW                               FUN      1601
          1000  5150001224 +                      SA5    APLEN                                                   FUN      1602
                          7265777775              SX6    X5-2                                                    FUN      1603
          1001  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
          1002  5130000000 X                      SA3    T=CLW                                                   FUN      1609
                          6265000002              SB6    X5+2                                                    FUN      1610
          1003  36053                             IX0    X5+X3                                                   FUN      1611
                     63200                        SB2    X0                                                      FUN      1612
                          57221                   =A2    B2-1                                                    FUN      1613
                               55121              =A1    A2-1                                                    FUN      1614
          1004  7203777775                        SX0    X3-2        INDEX = T=CLW - 2                           FUN      1615
                          53350                   SA3    X5                                                      FUN      1616
                               53551              =A5    X5+1                                                    FUN      1617
                                                                                                                 FUN      1618
          1005  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/05. 20.00.17.      PAGE    36
        SUBROUTINES.                                                  PCL 
  
          1006  12667                             BX6    X6+X7       2 CLW WORDS CANNOT BE COMPLEMENTS           FUN      1622
                     54531                        =A5    A3+1        W2 = W2+2                                   FUN      1623
                          0316001005 +            NZ     X6,PCL30    IF NOT HIT                                  FUN      1624
          1007  65332                             SB3    A3-B2                                                   FUN      1625
                     0430001011 +                 ZR     B3,PCL40    IF HIT NOT END OF TABLE                     FUN      1626
                               10700              BX7    X0                                                      FUN      1627
          1010  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
          1011  23210                    PCL40    AX2    B1,X0       BIAS = INDEX/2                              FUN      1631
                     5130001023 +                 SA3    PCLB        GET ORIGINAL APLIST TABLE POINTER           FUN      1632
                               10733              BX7    X3                                                      FUN      1633
          1012  5130000000 X                      SA3    S=CL        SYMBOL ORDINAL CHARACTER LENGTH DESCRIPTORS FUN      1634
                          20224                   LX2    P2.BIASP                                                FUN      1635
                               20354              LX3    P2.TAGP                                                 FUN      1636
          1013  12123                             BX1    X2+X3                                                   FUN      1637
                     5170001232 +                 SA7    APTAB       RESTORE ORIGINAL APTAB VALUE FOR THIS LEVEL FUN      1638
                               66700              =B7    0                                                       FUN      1639
          1014  0100000242 +                      RJ     AAP         FILE CL. POINTER TO APLIST                  FUN      1640
          1015  0400000763 +                      EQ     EXIT.                                                   FUN      1641
                                                                                                                 FUN      1642
          1016  76600                    PCL50    =X6    0                                                       FUN      1643
                     5110001232 +                 SA1    APTAB                                                   FUN      1644
                               53110              ADDWD  X1                                                      FUN      1645
          1020  5110001224 +                      SA1    APLEN                                                   FUN      1646
                          73711                   =X7    X1+1                                                    FUN      1647
                               54710              SA7    A1                                                      FUN      1648
          1021  0400000763 +                      EQ     EXIT.                                                   FUN      1649
                                                                                                                 FUN      1650
          1022                     1     PCLA     BSS    1                                                       FUN      1651
          1023                     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
          1024  5110000000 X             PEJ6     SA1    ROUTNAM                                                 FUN      1670
                          10611                   BX6    X1                                                      FUN      1671
                               20151              SBIT   X1,P2.FPP                                               FUN      1672
          1025  0321001034 +                      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/05. 20.00.17.      PAGE    37
        SUBROUTINES.                                                  PEJ 
  
          1026  15117                             BX1    -X7*X1                                                  FUN      1676
                     76710                        =X7    1                                                       FUN      1677
                          63710                   SB7    X1                                                      FUN      1678
          1027  5170000000 X                      SA7    ENT.SUB     SET ADDSUB FLAG                             FUN      1679
                          66777                   SB7    B7+B7                                                   FUN      1680
          1030  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
          1031  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
          1032  20122                             HX1    WB.FPNO                                                 FUN      1688
                     6273777776                   =B7    X3-1        (B7) = FWA-1                                FUN      1689
                               21163              AX1    -WB.FPNOL   ISOLATE FPNO                                FUN      1690
          1033  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
          1034  5130000000 X             PEJ7     SA3    TRACE       SET LINE NUMBER                             FUN      1694
                          77101                   CRJ    MUST                                                    FUN      1695
                                                                                                                 FUN      1696
          1036  0400401036 +             PEJ      SUBR   -           ENTRY/EXIT...                               FUN      1697
          1037  10611                             BX6    X1                                                      FUN      1698
                     5160001062 +                 SA6    PEJA                                                    FUN      1699
          1040  0100000000 X                      CALL   CIA         CLEAR INTERMEDIATES/ASSOCIATES              FUN      1700
          1041  5130001224 +                      SA3    APLEN                                                   FUN      1701
                          5150000000 X            SA5    T=APL       GET CURRENT APLIST LENGTH                   FUN      1702
          1042  5110000000 X                      ALLOC  T.APL,X3    RESERVE ENOUGH SPACE FOR STACKED APLIST     FUN      1703
          1044  36315                             IX3    X1+X5       (X3) = *TO* = FWA(APL) + PREVIOUS LEN(APL)  FUN      1704
                     5120001232 +                 SA2    APTAB       GET POINTER TO STACKED APLIST               FUN      1705
                               53520              SA5    X2          GET FWA OR STACKED APLIST                   FUN      1706
          1045  21222                             AX2    18          POSITION INDEX OF LIST IN SAP               FUN      1707
                     63250                        SB2    X5                                                      FUN      1708
                          5110001224 +            SA1    APLEN       (X1) = *COUNT* = LENGTH OF CURRENT LIST     FC5A246    33
          1046  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
          1047  5120001224 +                      SA2    APLEN       GET APLIST LEN                              FUN      1712
                          43600                   MX6    0                                                       FUN      1713
                               54620              SA6    A2          APLEN = 0                                   FUN      1714
          1050  63320                             SB3    X2                                                      FUN      1715
                     5120001062 +                 SA2    PEJA                                                    FUN      1716
          1051  0312001053 +                      NZ     X2,PEJ1     IF NO TERMINATOR REQUESTED                  FUN      1717
                          66331                   =B3    B3+1                                                    FUN      1718
          1052  5110000000 X                      ADDWD  T.APL+USER  ZERO WORD APLIST TERM.                      FUN      1719
                                                                                                                 FUN      1720
          1053  0430001024 +             PEJ1     ZR     B3,PEJ6     IF NO APLIST                                FUN      1721
                                                                                                                 FUN      1722
                                         SNAP=L   IFNE   TEST        DUMP AP-LIST TABLE                          FUN      1723
                          5130000000 X            SA3    CO.SNAP                                                 FUN      1724
          1054  20314                             LX3    1RL                                                     FUN      1725
                     0323001056 +                 PL     X3,PEJ3S    IF AP-LIST SNAP NOT SELECTED                FUN      1726
          1055  0100000000 X                      DUMPT  APL                                                     FUN      1727
          1056                           PEJ3S    BSS    0                                                       FUN      1728
                                         SNAP=L   ENDIF                                                          FUN      1729
                                                                                                                 FUN      1730
          1056  7150000000                        SX5    USER                                                    FUN      1731
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    38
        SUBROUTINES.                                                  PEJ 
  
                          0100000644 +            RJ     NAP         SCAN/ENTER AP-LIST TABLE.                   FUN      1732
          1057  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
          1060  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
          1061  6120001024 +                      WCODE  X7,PEJ6     COMPILE LOAD OF AP-LIST TAG                 FUN      1740
                                                                                                                 FUN      1741
          1062                     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
          1063  0400401063 +             SAP      SUBR               ENTRY/EXIT                                  FUN      1765
          1064  10511                             BX5    X1                                                      FUN      1766
                     43063                        MX0    -P2.USEL                                                FUN      1767
                          5130001235 +            SA3    ATF                                                     FUN      1768
          1065  63630                             SB6    X3          (B6) = IO INDICATOR                         FUN      1769
                     15010                        BX0    -X0*X1      EXTRACT USE COUNT FIELD                     FUN      1770
                          0300001067 +            ZR     X0,SAP5     IF OPERAND WAS NOT DUC-ED                   FUN      1771
          1066  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
          1067  22305                    SAP5     LX3    X5                                                      FUN      1784
                     5120001235 +                 SA2    ATF         GET APLIST TYPE FUNCTION                    FUN      1785
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    39
        SUBROUTINES.                                                  SAP 
  
                               10055              BX0    X5                                                      FUN      1786
          1070  20361                             SBIT   X3,P2.INTRP                                             FUN      1787
                     0323001077 +                 PL     X3,SAP10    IF NOT INTERMEDIATE                         FUN      1788
                                                                                                                 FUN      1789
                                         .TEST    IFEQ   TEST,ON                                                 FUN      1790
                               43663              MX6    -P2.USEL                                                FUN      1791
          1071  15656                             BX6    -X6*X5                                                  FUN      1792
                     0306401071 +                 ZR     X6,"BLOWUP"           IF INTR NOT USE COUNTED           FUN      1793
                                         .TEST    ENDIF                                                          FUN      1794
                                                                                                                 FUN      1795
                               20056              SBIT   X0,P2.ARRP                                              FUN      1796
          1072  0320001125 +                      PL     X0,SAP50    IF NOT ARRAY INTERMEDIATE STORE TO TEMP     FUN      1797
                          43654                   MX6    -P2.TAGL                                                FUN      1798
                               20654              LX6    P2.TAGP                                                 FUN      1799
          1073  21124                             AX1    P2.BIASP    POSITION I. L. ORDINAL                      FUN      1800
                     5120000000 X                 SA2    T.PAR                                                   FUN      1801
          1074  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
          1075  20373                             SBIT   X3,P2.ADDRP/P2.INTRP                                    FUN      1806
                     0333001113 +                 MI     X3,SAP30    IF LOCF STORE TO TEMP                       FUN      1807
          1076  0332001113 +                      MI     X2,SAP30    IF I/O LENGTH  (A(I),I=1,J(K))              FUN      1808
                          0400001105 +            EQ     SAP20             PLUG ADDRESS INTO APLIST              FUN      1809
                                                                                                                 FUN      1810
          1077  20060                    SAP10    SBIT   X0,P2.ADDRP                                             FUN      1811
                     0330001113 +                 MI     X0,SAP30    IF ADDRESS LOAD                             FUN      1812
                               20364              SBIT   X3,P2.FPP/P2.INTRP                                      FUN      1813
          1100  20064                             SBIT   X0,P2.LCMP/P2.ADDRP                                     FUN      1814
                     12003                        BX0    X0+X3                                                   FUN      1815
                          11020                   BX0    X2*X0                                                   FUN      1816
          1101  0330001113 +                      MI     X0,SAP30    IF FP/LCM IO LENGTH, STORE VALUE TO TEMP    FUN      1817
                          0332001141 +            MI     X2,SAP80    IF OTHER IO, LENGTH ENTER DIRECTLY INTO APL FUN      1818
          1102  43054                             MX0    -P2.TAGL                                                FUN      1819
                     20054                        LX0    P2.TAGP     POSITION STATUS WORD                        FUN      1820
                          15010                   BX0    -X0*X1      EXTRACT TAG                                 FUN      1821
          1103  0300001137 +                      ZR     X0,SAP70    IF SHORT CON, EXPAND TO LONG CON            FUN      1822
                          0560001141 +            NZ     B6,SAP80    IF IO APL, ENTER IN APL DIRECTLY            FUN      1823
          1104  0323001141 +                      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/05. 20.00.17.      PAGE    40
        SUBROUTINES.                                                  SAP 
  
                                        *         OF THE ARG IN THE APLIST. GENTEATED L OPERANDS ARE             FUN      1843
                                        *         CONSTRUCTED.                                                   FUN      1844
                                                                                                                 FUN      1845
          1105  76210                    SAP20    =X2    1                                                       FUN      1846
                     5130001224 +                 SA3    APLEN       GET CURRENT APL LENGTH FOR BIAS OF GL       FUN      1847
                               20213              LX2    P2.ADDRP                                                FUN      1848
          1106  12525                             BX5    X2+X5       SET ADDRESS BIT OF ARGUMENT                 FUN      1849
                     23363                        AX3    B6          IF IO, DIVIED APLIST LENGTH BY 2            FUN      1850
                          5120001227 +            SA2    APIND       TAG[GL2] = INDEX IN APLIST INDEX TABLE      FUN      1851
          1107  76060                             =X0    B6                                                      FUN      1852
                     7222040000                   SX2    X2+K2.AP    ADD IN PREFIX                               FUN      1853
                               20015              LX0    P2=PFX                                                  FUN      1854
          1110  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
          1111  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
          1112  0400001117 +                      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
          1113  5120000000 X             SAP30    SA2    N.ST        GET NUMBER OF TEMPORARYS                    FUN      1869
                          5130000000 X            SA3    S=ST        GET ORDINAL OF TEMPORARY ARRAY              FUN      1870
          1114  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
          1115  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
          1116  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
          1117  5170000001 X             SAP40    SA7    REG=G+1     SAVE APL TAG, BIAS AS GL2                   FUN      1887
                          76600                   =X6    0                                                       FUN      1888
          1120  0100000000 X                      CALL   POS         PREPARE STATUS WORD                         FUN      1889
          1121  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
          1122  76600                             =X6    0                                                       FUN      1893
                     0100000000 X                 CALL   POS         PROCESS OPERAND AND STATUS WORD             FUN      1894
          1123  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
          1124  0400001142 +                      EQ     SAP90                                                   FUN      1898
                                                                                                                 FUN      1899
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      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
          1125  6130000000               SAP50    SB3    0           TYPE=UPPER                                  FUN      1911
                          0100000000 X            CALL   STS         SET TAG STATUS (DECREMENT USE COUNT)        FUN      1912
          1126  0420001131 +                      ZR     B2,SAP55    IF NOT IN REG                               FUN      1913
                          10655                   BX6    X5                                                      FUN      1914
          1127  5160000000 X                      SA6    REG=G       SAVE OPERAND IN GENERATED OP TAB            FUN      1915
                          0100000000 X            CALL   CWI         STORE TO TEMPORARY                          FUN      1916
          1130  5150000000 X                      SA5    REG=G       RESTORE OPERAND                             FUN      1917
          1131  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
          1132  6130000001                        SB3    1           SET TYPE = LOWER                            FUN      1921
                          0100000000 X            CALL   STS         SET TAG STATUS (DECREMENT USE TOTAL)        FUN      1922
          1133  10611                             BX6    X1                                                      FUN      1923
                     5160000000 X                 SA6    REG=G       SAVE STATUS WORD IN G-OPERAND TABLE         FUN      1924
          1134  0420001135 +                      ZR     B2,SAP60    IF LOWER PART NOT IN REG/EXISTANCE          FUN      1925
                          0100000000 X            CALL   CWI         WRITE LOWER PART TO TEMPORARY               FUN      1926
          1135  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
          1136  0400001142 +                      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
          1137  0100000435 +             SAP70    RJ     ESC         EXPAND SHORT CONSTANT                       FUN      1938
          1140  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
          1141  6150777776               SAP80    SB5    -1          NO SKEL CALLS                               FUN      1947
                          6170000000              SB7    0           PLUG FLAG OFF                               FUN      1948
                                                                                                                 FUN      1949
          1142  5150001235 +             SAP90    SA5    ATF         RESET APLIST TYPE FLAG                      FUN      1950
                          0100000242 +            RJ     AAP                                                     FUN      1951
          1143  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/05. 20.00.17.      PAGE    42
        SUBROUTINES.                                                  SAP 
  
                                        *                PROCESS LIKE SUBROUTINES.                               FUN      1957
                                                                                                                 FUN      1958
                                                                                                                 FUN      1959
          1144                           O=APRET  BSSENT 0           SUB SKEL RETURN                             FUN      1960
          1144  0400001063 +                      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
          1145  0400401145 +             SAS      SUBR               ENTRY/EXIT.                                 FUN      1980
          1146  5130001244 +                      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
          1153  76660                             SX6    B6                                                      FUN      1992
                     54630                        SA6    A3          RESET LEVEL                                 FUN      1993
                          6150000000 X            SB5    T.API       APLIST INDEX POINTER                        FUN      1994
          1154  6160000000 X                      SB6    T.SAP       APLIST TABLE POINTER WORD                   FUN      1995
                          0100000605 +            RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN      1996
          1155  0400001145 +                      EQ     EXIT.                                                   FUN      1997
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      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
          1156  0400401156 +             SCI      SUBR               ENTRY/EXIT                                  FUN      2014
          1157  5150001235 +                      SA5    ATF                                                     FUN      2015
                                                                                                                 FUN      2016
                                        **        CONSTRUCT GENERATED L OPERAND                                  FUN      2017
                                                                                                                 FUN      2018
                          5130001224 +            SA3    APLEN       GET INDEX OF CURRENT ITEM IN APLIST         FUN      2019
          1160  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
          1161  20344                             LX3    -P2.TAGP+P2.BIASP                                       FUN      2023
                     5110001227 +                 SA1    APIND       GET CURRENT APLIST NUMBER                   FUN      2024
                               20615              LX6    P2=PFX                                                  FUN      2025
          1162  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
          1163  0100000000 X                      CALL   POS         PERPARE OPERAND STATUS WORD                 FUN      2030
          1164  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
          1165  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
          1166  7262000001                        =X6    X2+CIO      (X6)=2*NUL + CSKTAB IO OFFSET               FUN      2042
                          11656                   BX6    X5*X6       CLEAR IF NOT IO                             FUN      2043
          1167  5226001172 +                      SA2    X6+CSKTAB   GET PLUG SKELETON                           FUN      2044
                          73620                   SX6    X2                                                      FUN      2045
          1170  0400000000 X                      EQ     SUB.RET                                                 FUN      2046
                                                                                                                 FUN      2047
          1171                           O=SCRET  BSSENT 0           CHARACTER STORE SKELETON RETURN             FUN      2048
          1171  6170000001                        SB7    1           SET STORE FLAG TO AAP                       FUN      2049
                          0400001156 +            EQ     EXIT.                                                   FUN      2050
                                                                                                                 FUN      2051
          1172                           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/05. 20.00.17.      PAGE    44
        SUBROUTINES.                                                  SCI 
  
      L      2  00000000000000000000 X            CON    W=CIA0S     IO ARRAY LEVEL 0                            FUN      2056
          1175                                    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
          1175  0400401175 +             SSC      SUBR               ENTRY/EXIT.                                 FUN      2080
                                                                                                                 FUN      2081
                                        .TEST     IFEQ   TEST,ON                                                 FUN      2082
          1176  43063                             MX0    -P2.USEL                                                FUN      2083
                     15050                        BX0    -X0*X5      EXTRACT USE COUNT                           FUN      2084
                          0300401176 +            ZR     X0,"BLOWUP"                                             FUN      2085
                                        .TEST     ENDIF                                                          FUN      2086
                                                                                                                 FUN      2087
          1177  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
          1200  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
          1201  20024                             LX0    P2.BIASP    POSITION CAC ORD./FPNO                      FUN      2095
                     5120001253 +                 CLAS=  X2,P2,TAG                                               FUN      2096
                               36030              IX0    X3+X0       MERGE EQV BASE ORD AND CAC ORD/FPNO         FUN      2097
          1202  11721                             BX7    X2*X1       EXTRACT SYM ORD OF OPD                      FUN      2098
                     5120001254 +                 CLAS=  X2,P2,(TAG,BIAS)                                        FUN      2099
                               15112              BX1    -X2*X1      CLEAR TAG AND BIAS                          FUN      2100
          1203  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
          1204  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
          1205  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/05. 20.00.17.      PAGE    45
        SUBROUTINES.                                                  SSC 
  
                          12702                   BX7    X0+X2       MERGE IN CAC BIT                            FUN      2110
                               20522              LX5    P2.FPP                                                  FUN      2111
          1206  10177                             BX1    X7                                                      FUN      2112
                     54710                        SA7    A1                                                      FUN      2113
                          0400001175 +            EQ     EXIT.                                                   FUN      2114
  
  
  
  
                                        **        SUA - STORE UNKNOWN-LENGTH APLIST ADJUSTED TEMP.               FC5A243   141
                                        *                                                                        FC5A243   142
                                        *         ENTRY  X1 = STATUS WORD.                                       FC5A243   143
                                                                                                                 FC5A243   144
          1207                           O=SURET  BSSENT 0           RETURN FROM SKELETON                        FC5A243   145
          1207  0400401207 +             SUA      SUBR                                                           FC5A243   146
          1210  20150                             LX1    -P2.BIASP                                               FC5A243   147
                     63610                        SB6    X1                                                      FC5A243   148
                          0100000401 +            RJ     DAT         SET UP ST.+K FOR SKEL                       FC5A243   149
          1211  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
          1212                     1     LEAF     BSSZ   1                                                       FUN      2120
          1213                     1     LNK.CUR  BSSZ   1                                                       FUN      2121
          1214                     1     LNK.LST  BSSZ   1                                                       FUN      2122
                                                                                                                 FUN      2123
                                        **        SAVE CELLS                                                     FUN      2124
                                                                                                                 FUN      2125
          1215                     1     FUN.CUR  BSS    1           CURRENT SKELETON POINTER                    FC5A246    35
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    46
        SCB - SUBSUME CONSTANT CHARACTER BIAS.
  
          1216                                    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
          1216  0400401216 +             SCB      SUBR                                                           COMFSCB    13
          1217  5150000000 X                      SA5    "O$"SYM                                                 COMFSCB    14
                          43054                   MX0    -"TP"."ORD"L                                            COMFSCB    15
                               63250              SB2    X5                                                      COMFSCB    16
          1220  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
          1221  15510                             BX5    -X0*X1                                                  COMFSCB    21
                     20544                        LX5    -"TP"."BIAS"L                                           COMFSCB    22
                          21544                   AX5    -"TP"."BIAS"L                                           COMFSCB    23
          1222  0100000000 X                      CALL   ECB         EVALUATE CONSTANT BIAS                      COMFSCB    24
          1223  0400001216 +                      EQ     EXIT.                                                   COMFSCB    25
                                         COMFSCB  ENDX                                                           COMFSCB    26
                                                                                                                 FUN      2128
                                        **        COUNTERS,  POINTERS AND FLAGS                                  FUN      2129
                                                                                                                 FUN      2130
          1224                           APLFLG   BSSENT 0                                                       FC50239    27
          1224                     3     APLEN    BSSZ   3           LENGTH OF CURRENT APLIST                    FUN      2131
          1227                     3     APIND    BSSZ   3           INDEX INTO INDEX TABLE                      FUN      2132
          1232                     3     APTAB    BSSZ   3           42/INDEX[FW LIST],18/TABLE PTR WORD (T.)    FUN      2133
          1235                     3     ATF      BSSZ   3           APLIST TYPE FUNCTION (CONTROLS IA. FORMAT)  FUN      2134
                                                                                                                 FUN      2135
          1240                     1     CLEN     BSSZ   1           LENGTH COUNTER FOR GENERATED APLISTS        FUN      2136
                                                                                                                 FUN      2137
          1241                     1     FAF      BSSZ   1           FIRST APLIST FLAG                           FUN      2138
                                                                                                                 FUN      2139
          1242                     1     DEFDIF   BSSZ   1           DEFERED TURPLE POINTER DIFERENCE            FUN      2140
          1243                     1     COLDIF   BSSZ   1           COLIN TURPLE POINTER DIFFERENCE             FUN      2141
                                                                                                                 FUN      2142
          1244                     1     LEVEL    BSSZ   1           STACK DEPTH INDICATOR                       FUN      2143
                                         L.APLF   EQUENT *-APLFLG                                                FC50239    28
  
  
  
  
                                                  LIST   D                                                       FUN      2150
  
                                        CONTENT OF LITERALS BLOCK.
  
          1245  20000000000000000001    P        A
          1246  40000000000000000001    5        A
          1247  60000000000000000001    #        A
          1250  00760000000000000000     ^
          1251  00000631463146314632      FY-Y-Y-Z
          1252  00000077776000000000       ;;#
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    47
        SCB - SUBSUME CONSTANT CHARACTER BIAS.                        LITERALS
  
          1253  77777400000000000000    ;;@ 
          1254  77777777777774000000    ;;;;;;@ 
  
          1264                                    END                                                            FUN      2151
  
                             75600B CM  STORAGE USED             8089 STATEMENTS     1878 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.818 SECONDS        1152 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AAP           242   PROGRAM*       13/12 L   19/56     35/35     36/19     41/52
        ADW             0   EXTERNAL*       2/09 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/09 X   37/29
        APIND        1227   PROGRAM*       28/41 S   30/51     31/29     40/09     42/35     43/26     46/31 L
        APLEN        1224   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       1224   PROGRAM*       46/29 L   46/29 E   46/43
        APTAB        1232   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          1235   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/24 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/37 X    9/42
        CIA             0   EXTERNAL*       2/37 X    9/43     37/26
        CIO             1                  43/44     43/57 L
        CLEN         1240   PROGRAM*       14/32 S   17/39     32/38     32/41 S   33/14     46/35 L
        COLDIF       1243   PROGRAM*       22/41 S   24/40     24/54     46/40 L
        CO.ARGF         0   EXTERNAL*       2/18 X    4/05     11/45
        CO.SNAP         0   EXTERNAL*       2/18 X   37/50
        CRJ             0   EXTERNAL*       2/37 X    7/50     10/16     37/21
        CSKTAB       1172   PROGRAM*       43/46     43/54 L
        CURSK           0   EXTERNAL*       2/21 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/05. 20.00.17.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        CWI             0   EXTERNAL*       2/37 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       1242   PROGRAM*       21/27 S   21/44     22/27 S   22/56     24/13     24/32     24/39     46/39 L
        DIT             0   EXTERNAL*       2/37 X    4/48      5/02
        DMT=            0   EXTERNAL*       2/15 X   37/53
        ECA           417   PROGRAM*       15/20     16/20     18/12     19/44 L   25/04     32/46     33/05
        ECB             0   EXTERNAL*       2/24 X   46/23
        ECS             0   EXTERNAL*       2/24 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/21 X    3/36      5/25      8/36      9/21     11/22
        ENT.SUB         0   EXTERNAL*       2/21 X   37/04 S
        ESC           435   PROGRAM*       20/48 L   20/48 E   41/39
        ESC10         443   PROGRAM*       20/54     20/57 L
        FAF          1241   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      1215   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/24 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/37 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/05. 20.00.17.      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         1212   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        1244   PROGRAM*       28/19     31/22     42/28     46/42 L
        LNK.CUR      1213   PROGRAM*       14/30 S   14/46     27/40 S   45/30 L
        LNK.LST      1214   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/40 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/12 X   30/32
        NULLOP          0   EXTERNAL*       2/21 X    3/25      4/39      5/03      6/28      7/06     10/17     12/09
        N.ST            0   EXTERNAL*       2/24 X   15/47     16/23     40/27
        N.TABLE         0   EXTERNAL*       2/24 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.SKELP       56                  34/33
        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      1144   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
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        O=FUN2         31   PROGRAM*        4/38      4/43 L    7/53
        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      1171   PROGRAM*       43/50 L   43/50 E
        O=SUB         230   PROGRAM*       11/44 L   11/44 E
        O=SURET      1207   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          761   PROGRAM*       34/17     34/42 L
        PCL           763   PROGRAM*       29/38     35/09 L
        PCLA         1022   PROGRAM*       35/16 S   35/36     36/30 L
        PCLB         1023   PROGRAM*       35/19 S   36/11     36/31 L
        PCL10         774   PROGRAM*       35/25     35/28 L
        PCL30        1005   PROGRAM*       35/55 L   36/03
        PCL40        1011   PROGRAM*       36/05     36/10 L
        PCL50        1016   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          1036   PROGRAM*        4/30      6/21      6/56     12/06     15/14     18/01     24/53     37/23 L
        PEJA         1062   PROGRAM*       37/25 S   37/42     38/11 L
        PEJ1         1053   PROGRAM*       37/43     37/47 L
        PEJ3S        1056   PROGRAM*       37/52     37/54 L
        PEJ6         1024   PROGRAM*       36/52 L   37/47     38/09
        PEJ7         1034   PROGRAM*       36/55     37/20 L
        POS             0   EXTERNAL*       2/30 X   18/38     33/38     40/47     40/52     43/32
        P2=PFX         15                  40/12     43/27
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        P2.ADDRP       13                  39/21     39/26     39/29     40/06
        P2.ARRP        15                  34/13     34/30     39/11
        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     34/30     40/14     44/43
                                            9/04     16/43     22/21     23/32     26/56     35/31     40/32     44/47
                                            9/54     18/35     22/38     24/03     27/25     36/14     41/41     45/16
                                           10/46     20/49     22/52     24/04     27/36     39/15     43/25     46/19
        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     39/06     44/31
        P2.USEP         0                  19/12
        P=PFX          17   FTX            30/54
        REG=G           0   EXTERNAL*       2/30 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/12 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/37 X   29/55
        R.X6           26                   4/45
        R.X7           27                   4/57
        SAP          1063   PROGRAM*       15/08     24/37     24/46     24/48     29/32     35/37     38/37 L
        SAP10        1077   PROGRAM*       39/03     39/26 L
        SAP20        1105   PROGRAM*       39/24     40/04 L
        SAP30        1113   PROGRAM*       39/22     39/23     39/27     39/32     40/27 L
        SAP40        1117   PROGRAM*       40/20     40/45 L
        SAP5         1067   PROGRAM*       38/43     38/56 L
        SAP50        1125   PROGRAM*       39/12     41/12 L
        SAP55        1131   PROGRAM*       41/14     41/19 L
        SAP60        1135   PROGRAM*       41/26     41/28 L
        SAP70        1137   PROGRAM*       39/37     41/39 L
        SAP80        1141   PROGRAM*       39/33     39/38     39/39     41/48 L
        SAP90        1142   PROGRAM*       40/56     41/31     41/51 L
        SAS          1145   PROGRAM*        5/46      6/42     17/30     21/32     24/23     33/32     42/27 L
        SA=BK       51000                  10/09     38/04
        SCB          1216   PROGRAM*       23/55     32/22     46/12 L
        SCI          1156   PROGRAM*       15/16     18/05     24/57     32/53     43/16 L
        SCT             0   EXTERNAL*       2/12 X   20/52
        SSC          1175   PROGRAM*       16/10     24/10     32/27     44/28 L
        STS             0   EXTERNAL*       2/37 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
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        ST.UKLP        16                  16/45     26/03
        SUA          1207   PROGRAM*       18/07     45/15 L
        SUB1          235   PROGRAM*       11/53     11/54     11/57 L
        SUB10         231   PROGRAM*       11/42     11/48 L
        SUB.RET         0   EXTERNAL*       2/21 X    7/31     30/01     41/54     43/48     45/20
        S=CL            0   EXTERNAL*       2/24 X   36/13
        S=CON           0   EXTERNAL*       2/24 X   20/57
        S=FAR           0   EXTERNAL*       2/24 X   15/09
        S=FAS           0   EXTERNAL*       2/24 X   22/53
        S=FMC           0   EXTERNAL*       2/25 X    5/42
        S=FVS           0   EXTERNAL*       2/25 X   22/16
        S=LMC           0   EXTERNAL*       2/25 X    5/35
        S=MMC           0   EXTERNAL*       2/25 X    6/52     17/53
        S=ST            0   EXTERNAL*       2/25 X   16/09     16/40     18/31     40/28
        TEST            1   FTX            34/28 F   37/49 F   39/05 F   44/30 F
        TRACE           0   EXTERNAL*       2/30 X   10/15     37/20
        T=APL           0   EXTERNAL*       2/25 X   30/24     30/35     37/28
        T=CAC           0   EXTERNAL*       2/25 X   20/30     20/30 S
        T=CLW           0   EXTERNAL*       2/25 X   35/45     36/07 S
        T=IOA           0   EXTERNAL*       2/25 X    8/17     11/02
        T=PAR           0   EXTERNAL*       2/26 X   14/31
        T=SAP           0   EXTERNAL*       2/26 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/26 X    3/26      4/10      5/19     11/50     30/50     42/41
        T.APL           0   EXTERNAL*       2/26 X   30/23     37/29     37/45     37/45
        T.CAC           0   EXTERNAL*       2/26 X   18/29     20/20     20/20     32/34
        T.CLW           0   EXTERNAL*       2/26 X   35/15     35/44
        T.CON           0   EXTERNAL*       2/26 X   20/52     20/52
        T.FPI           0   EXTERNAL*       2/26 X   37/11
        T.IOA           0   EXTERNAL*       2/26 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/27 X    8/09      8/48      9/46     10/32
        T.OUS           0   EXTERNAL*       2/27 X   16/25     16/47     25/45     44/37
        T.PAR           0   EXTERNAL*       2/27 X   22/20     23/27     26/45     39/16
                                           21/21     23/15     23/56     34/29
        T.SAP           0   EXTERNAL*       2/27 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/27 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/30 X    4/47 S
        V=SUBST         0   EXTERNAL*       2/33 X   34/35
        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/30 X   10/12     38/09
        WO.CS           0   EXTERNAL*       2/27 X    5/41
        WO.DOOT         0   EXTERNAL*       2/27 X   13/39
        W=APSTR         0   EXTERNAL*       2/33 X   40/37
        W=CAPST         0   EXTERNAL*       2/33 X   43/56
        W=CIA0S         0   EXTERNAL*       2/33 X   44/01
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/05. 20.00.17.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        W=CIS0S         0   EXTERNAL*       2/33 X   43/57
        W=IAPD1         0   EXTERNAL*       2/33 X    7/33
        W=IAPD2         0   EXTERNAL*       2/33 X    7/35
        W=IAPS1         0   EXTERNAL*       2/34 X    7/33
        W=IAPS2         0   EXTERNAL*       2/34 X    7/35
        W=IPLG0         0   EXTERNAL*       2/34 X   40/19
        W=IPLUG         0   EXTERNAL*       2/34 X
        W=LUA           0   EXTERNAL*       2/34 X   29/57
        W=SUA           0   EXTERNAL*       2/34 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/05. 20.00.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1723              IDENT  REG
                       1723                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1621 
                                        LITERALS* LOCAL        1621         4 
                                        RGFILE    COMMON          0        30 
                                        DEBUG     LOCAL        1625        76 
  
  
                                        ENTRY POINTS. 
  
                                        B=REG            0+           CIA            110+           RLL           1024+ 
                                        P2=KEEP       1621+           CLI            143+           RUL           1031+ 
                                        RG=BADR          0+           CRJ            231+           REGLK         1040+ 
                                        RG=INTR          3+           CWI            260+           CLOADJ        1042+ 
                                        RG=TEMP          6+           DIT            305+           STRGLK        1043+ 
                                        RG=LOAD         11+           DSC            327+           RUT           1052+ 
                                        RG=LODX         14+           GNR            360+           SDS           1143+ 
                                        RG=SET          17+           GST            441+           SFR           1244+ 
                                        RG=STOR         22+           GSTC           467+           STS           1274+ 
                                        AIR             25+           GTR            470+           O=PAR         1337+ 
                                        ASR             37+           LSC            765+           SLD           1342+ 
                                        CDS             71+           LTG           1016+ 
  
  
                                        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
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE     2
                                                                      REG 
  
                                        *         IN IDP                                                         REG        14
                                                  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
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE     3
                                                                      DEFREG
  
                                                  VFD    "A"                                                     REG        65
                                         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
                          0100001244 +            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
                          0100001244 +            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/05. 20.00.20.      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
                          0100001244 +            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  0100001052 +             ASR2     RJ     RUT                                                     REG       146
            51  0400000037 +                      EQ     EXIT.                                                   REG       147
                                                                                                                 REG       148
            52  0100000403 +             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/05. 20.00.20.      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
                     5153000465 +                 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/05. 20.00.20.      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/05. 20.00.20.      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  0100001052 +             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/05. 20.00.20.      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
                     5130001621 +                 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/05. 20.00.20.      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  5170001330 +                      SA7    STORE                                                   REG       388
                          43001                   MX0    1                                                       REG       389
                               20014              LX0    1+P2.ADDRP                                              REG       390
           146  11705                             BX7    X0*X5                                                   REG       391
                     5170001327 +                 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  5170001330 +                      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  0100000360 +                      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/05. 20.00.20.      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
                          0100000755 +            RJ     LPA         LOAD FP ADDRESS                             REG       444
           165  5120001327 +                      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
                          5150001327 +            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/05. 20.00.20.      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
                     5170001326 +                 SA7    AFREG                                                   REG       505
                               76720              SX7    B2                                                      REG       506
           210  5170001325 +                      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  0100001024 +                      RJ     RLL         LOCK HARD STORE REG                         REG       514
                                                                                                                 REG       515
           214  0100000531 +             CLI110   RJ     LLA         LOAD LCM ADDRESS                            REG       516
           215  0100000727 +                      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/05. 20.00.20.      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  0100000423 +                      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/05. 20.00.20.      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/05. 20.00.20.      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/05. 20.00.20.      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  0100000403 +                      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/05. 20.00.20.      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  5123000465 +                      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/05. 20.00.20.      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
           321  0316000324 +                      NZ     X6,DIT8     IF INTERMEDIATE NEEDED (USE .NE. 0)         REG       796
                          5120000000 X            SA2    CO.SNAP                                                 REG       797
           322  20227                             LX2    1RW                                                     REG       798
                     0322000324 +                 PL     X2,DIT8     IF NOT REQUESTED                            REG       799
           323  0100000000 X             USE=0    REG    (A1,X5)                                                 REG       800
           324                           DIT8     BSS                                                            REG       801
                                         .TEST    ENDIF                                                          REG       802
                                                                                                                 REG       803
           324  0306000325 +                      ZR     X6,DIT9     IF USE COUNT ZERO NO REGFILE ENTRY          REG       804
                          0100001274 +            RJ     STS         SET TAG STATUS                              REG       805
           325  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/05. 20.00.20.      PAGE    18
                                                                      DIT 
  
                               20603              LX6    3                                                       REG       809
           326  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
           327  0400400327 +             DSC      SUBR   =           ENTRY/EXIT                                  REG       836
           330  0100000441 +                      RJ     GST         GET STATUS OF TAG                           REG       837
           331  0420000327 +                      ZR     B2,EXIT.                                                REG       838
                          0100000246 +            RJ     CRT         CHECK REGISTER TYPE                         REG       839
           332  0570000336 +                      NZ     B7,DSC1     IF TYPES DO NOT MATCH                       REG       840
                          5120000000 X            SA2    RREG        GET HARD REGISTER                           REG       841
           333  43371                             MX3    -3          SET (00R) MASK                              REG       842
                     76020                        SX0    B2          (X0) = (0TR)[OPERAND]                       REG       843
                          0332000327 +            MI     X2,EXIT.    IF NO HARD REGISTER                         REG       844
           334  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
                          0310000336 +            NZ     X0,DSC1     IF NOT IN CORRECT REGISTER                  REG       847
           335  14722                             BX7    -X2         CLEAR HARD REGISTER ASSIGNMENT              REG       848
                     54720                        SA7    A2                                                      REG       849
                          0400000327 +            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
           336  6277000000               DSC1     SB7    X7+                                                     REG       856
                          7102777751              SX0    B2-R.X6     (X0) = (0TR)[OPREAND] - (0TR)[X6]           REG       857
           337  0330000343 +                      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/05. 20.00.20.      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
           340  5170001043 +                      SA7    STRGLK      REGISTER TO CLEAR                           REG       867
                          5122000000 C            SA2    B2+REGFILE  GET REGFILE ENTRY OF OPERAND                REG       868
           341  7100000400                        SX0    RLOCK                                                   REG       869
                          12702                   BX7    X0+X2       LOCK ON                                     REG       870
                               54720              SA7    A2          RESET REGFILE ENTRY WITH LOCK ON            REG       871
           342  0400000350 +                      EQ     DSC3                                                    REG       872
                                                                                                                 REG       873
           343  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
           344  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
           345  0302000350 +                      ZR     X2,DSC3     IF TAG NOT IN *A* REGISTER                  REG       880
                          5027000010              SA2    A7+REG.X-REG.A   GET ASSOCIATE *X* REG                  REG       881
           346  46000                             NO                                                             REG       882
                     13725                        BX7    X2-X5                                                   REG       883
                          21711                   AX7    RG.USEL                                                 REG       884
           347  0317000350 +                      NZ     X7,DSC3     IF NOT SAME TAGE IN *X* REGISTER            REG       885
                          54720                   SA7    A2          CLEAR ASSIGNMENT                            REG       886
           350  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
           351  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
           352  0302000327 +                      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
           353  5220000355 +                      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
           354  0400000327 +                      EQ     EXIT.       FINISH UP                                   REG       903
                                                                                                                 REG       904
           355                           DSC.LOD  BSS    0                                                       REG       905
           355  00000000000000000011 +            VFD    42/0,18/RG=LOAD                                         REG       906
           356  00000000000000000000 +            VFD    42/0,18/RG=BADR                                         REG       907
           357  00000000000000000014 +            VFD    42/0,18/RG=LODX                                         REG       908
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
           360  0400400360 +             GNR      SUBR   =           ENTRY/EXIT...                               REG       929
           361  0100001244 +                      RJ     SFR         FIND AVAILABLE REGISTER                     REG       930
           362  0307000366 +                      ZR     X7,GNR5     IF REGISTER FREE                            REG       931
                          5120000000 X            SA2    RGX                                                     REG       932
           363  76730                             SX7    B3                                                      REG       933
                     0302000364 +                 ZR     X2,GNR2     IF NON-INTERMEDIATE NOT AVAILABLE           REG       934
                               63220              SB2    X2                                                      REG       935
           364  5170000373 +             GNR2     SA7    GNRA                                                    REG       936
                          0100001052 +            RJ     RUT         CLEAR REGISTER                              REG       937
           365  5120000373 +                      SA2    GNRA                                                    REG       938
                          63320                   SB3    X2                                                      REG       939
           366  6170000011 +             GNR5     SB7    RG=LOAD                                                 REG       940
                          77037                   SX0    B3-B7                                                   REG       941
           367  0310000360 +                      NZ     X0,EXIT.    IF NOT *A* REGISTER LOAD                    REG       942
                          6122777767              SB2    B2-REG.X+REG.A                                          REG       943
           370  5112000000 C                      SA1    B2+REGFILE                                              REG       944
                          43063                   MX0    -RG.USEL                                                REG       945
                               15110              BX1    -X0*X1      USE COUNT ONLY                              REG       946
           371  0301000360 +                      ZR     X1,EXIT.    IF *A* REGISTER IS FREE                     REG       947
                          0100001052 +            RJ     RUT         CLEAR *A* REGISTER                          REG       948
           372  0400000360 +                      EQ     EXIT.                                                   REG       949
                                                                                                                 REG       950
           373  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
           374  0400400374 +             GPN      SUBR               ...ENTRY/EXIT...                            REG       963
           375  22211                             LX2    X1,B1                                                   REG       964
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
                          0331400375 +            MI     X1,"BLOWUP"       IF ILLEGAL SYMORD                     REG       968
           376  5120000000 X                      SA2    T=SYM                                                   REG       969
                          37212                   IX2    X1-X2                                                   REG       970
           377  0322400377 +                      PL     X2,"BLOWUP"       IF INDEX .GE. SYMTAB LENGTH           REG       971
                                         .TEST    ENDIF                                                          REG       972
                          5120000000 X            SA2    T.SYM                                                   REG       973
           400  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
                               10211              BX2    X1                                                      REG       978
           401  20253                             HX2    WB.FP                                                   REG       979
                     0322400401 +                 PL     X2,"BLOWUP"       IF NOT A FORMAL PARAMETER             REG       980
                                         .TEST    ENDIF                                                          REG       981
                               20133              LX1    -WB.FPNOP                                               REG       982
           402  15110                             BX1    -X0*X1      ISOLATE (X1) = F.P. NUMBER                  REG       983
                     0400000374 +                 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
           403  0400400403 +             GNT      SUBR               ENTRY/EXIT...                               REG       999
           404  43073                             MX0    -1                                                      REG      1000
                     5130000000 X                 SA3    T.OUS       GET FWA OUS TAB                             REG      1001
                               20154              LX1    -RG.TYPP                                                REG      1002
           405  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
           406  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
           407  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/05. 20.00.20.      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
           410  10611                             BX6    X1                                                      REG      1029
                     22103                        LX1    X3                                                      REG      1030
                          7100777776              SX0    -1                                                      REG      1031
           411  0326000412 +                      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
           412  21154                    GNT5     AX1    P2.TAGP     ISOLATE TAG FIELD                           REG      1035
                                   0              ERRNZ  60-P2.TAGP-P2.TAGL                                      REG      1036
                     0311000415 +                 NZ     X1,GNT10    IF ALREADY DEFINED                          REG      1037
                               43644              MX6    60-P2.BIASL                                             REG      1038
           413  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
           414  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
           415  5120001622 +             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
           416  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
           417  5120000000 X                      SA2    CO.SNAP                                                 REG      1061
                          20210                   LX2    1RH                                                     REG      1062
           420  0322000422 +                      PL     X2,GNT22    IF SNAP = H NOT SELECTED                    REG      1063
           421  0100000000 X             SNP=H    SNAP   GNT,,1,(B6,B2,A3,A7,X5,X7,X6,X1)                        REG      1064
           422                           GNT22    BSS                                                            REG      1065
                                         .TEST    ENDIF                                                          REG      1066
                                                                                                                 REG      1067
           422  54730                             SA7    A3          CLEAR STATUS OF TAG                         REG      1068
                     36616                        IX6    X1+X6       ADD TYPE TO BIAS OF STORE WORD              REG      1069
                          0400000403 +            EQ     EXIT.                                                   REG      1070
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
           423  0400400423 +             GPT      SUBR   0                                                       REG      1081
           424  5130000000 X                      SA3    T.SYM                                                   REG      1082
                          6273000002              =B7    X3+WC.W                                                 REG      1083
           425  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
           426  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
           427  53227                             SA2    X2+B7       (X2) = ADDRESS TABLE ENTRY                  REG      1092
                     10722                        BX7    X2                                                      FC5A209     7
                          20744                   HX7    WC.RA                                                   FC5A209     8
           430  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
           431  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
           432  43060                             MX0    -WB.BASEL                                               FC5A209    13
                     0323000435 +                 PL     X3,GPT10    IF NOT EQUIVALENCED                         FC5A209    14
                               20345              LX3    WB.EQVP+1-WB.BASEP                                      FC5A209    15
           433  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
           434  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
           435  5130000642 +             GPT10    SA3 BIAS                                                       FC5A209    24
                          43044                   MX0    -P2.BIASL                                               FC5A209    25
                               20344              LX3    59-23                                                   FC5A209    26
           436  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
           437  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
           440  0400000423 +                      EQ     GPTX              EXIT..                                REG      1101
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
           441  0400400441 +             GST      SUBR   =           ENTRY/EXIT.                                 REG      1123
           442  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
           443  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
           444  0720400444 +                      MI     B2,"BLOWUP" IF BAD TYPE                                 REG      1132
                          5212000000 X            SA1    X2+N.TABLE  GET TABLE LENGTH                            REG      1133
           445  0712400445 +                      LT     B1,B2,"BLOWUP"    IF TYPE BAD                           REG      1134
                          37610                   IX6    X1-X0                                                   REG      1135
           446  0336400446 +                      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
                               53107              SA1    B7+X0       GET STATUS WORD                             REG      1140
           447  20554                             LX5    P2.TAGP     RESET OPERAND WORD                          REG      1141
                     36602                        IX6    X0+X2       (X6) = 42/T.OUS,18/ORDINAL, ST. WD. POINTER REG      1142
                          5122000465 +            SA2    B2+STATUS   GET STATUS SHIFT COUNTS                     REG      1143
           450  5160000467 +                      SA6    GSTC        SET STATUS WORD POINTER                     REG      1144
                          14022                   BX0    -X2                                                     REG      1145
                               21222              AX2    18          POSITION NEXT SHIFT COUNT                   REG      1146
           451  6270000073                        SB7    59+X0       (B7) = SHIFT COUNT TO MOVE ST. BIT TO TOP   REG      1147
                          22071                   LX0    B7,X1       POSITION STATUS BIT                         REG      1148
                               66200              =B2    0                                                       REG      1149
           452  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
                          0320000462 +            PL     X0,GST1     IF NOT IN REG EXIT WITH (B2) = 0            REG      1153
           453  23071                             AX0    B7,X1       POSITION (0TR)                              REG      1154
                     15606                        BX6    -X6*X0      EXTRACT (0TR)                               REG      1155
                          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/05. 20.00.20.      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
           454  5122000000 C                      SA2    B2+REGFILE  GET REGFILE ENTRY  INDICATED BY STAT WORD   REG      1163
                          13025                   BX0    X2-X5                                                   REG      1164
           455  5120001623 +                      CLAS=  X2,P2,(USE,LONG)                                        REG      1165
                          15202                   BX2    -X2*X0                                                  REG      1166
           456  0312000462 +                      NZ     X2,GST1     IF NOT SAME OPERAND                         REG      1167
                          7100000010              SX0    REG.A       (X0) = (0T0) FOR A REG                      REG      1168
           457  11006                             BX0    X0*X6                                                   REG      1169
                     0300000463 +                 ZR     X0,GST2     IF NOT IN AN A-REG CLEAN UP                 REG      1170
           460  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
           461  0302000463 +                      ZR     X2,GST2     IF X-REG ENTRY NOT THE SAME                 REG      1174
                                                                                                                 REG      1175
           462  6120000000               GST1     SB2    0           SET NOT IN REG FLAG                         REG      1176
                          7160000000              SX6    0           (0R0) = 0                                   REG      1177
                                                                                                                 REG      1178
           463  43071                    GST2     MX0    -3                                                      REG      1179
                     15660                        BX6    -X0*X6      (X6) = (00R)                                REG      1180
                          20603                   LX6    3           (X6) = (0R0)                                REG      1181
           464  0400000441 +                      EQ     EXIT.                                                   REG      1182
                                                                                                                 REG      1183
           465  00000000000000000016     STATUS   VFD    24/OP.UTOTP,18/ST.UREGP,18/ST.USTP                      REG      1184
           466  00000011000006000017              VFD    24/OP.LTOTP,18/ST.LREGP,18/ST.LSTP                      REG      1185
                                                                                                                 REG      1186
           467                           GSTC     BSSENT 0                                                       FC50264    21
           467  00000000000000 X                  VFD    24/0,18/T.OUS,18/"BLOWUP"                               REG      1188
                              400467 +
  
  
  
  
                                        **        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
           470  0400400470 +             GTR      SUBR   =           ENTRY/EXIT                                  REG      1200
           471  6130000006 +                      SB3    RG=TEMP                                                 REG      1201
                          0100001244 +            RJ     SFR                                                     REG      1202
           472  0307000470 +                      ZR     X7,EXIT.    IF TEMP REGISTER AVAILABLE                  REG      1203
                          5110000000 X            SA1    RGX                                                     REG      1204
           473  0301000476 +                      ZR     X1,GTR5     IF NON-INTERMEDIATE NOT AVAILABLE           REG      1205
                          63210                   SB2    X1                                                      REG      1206
           474  0100001052 +                      RJ     RUT                                                     REG      1207
           475  0400000470 +                      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/05. 20.00.20.      PAGE    26
                                                                      GTR 
  
                                                                                                                 REG      1213
           476  5110000026 C             GTR5     SA1    REGFILE+R.X6                                            REG      1214
                          5120000027 C            SA2    REGFILE+R.X7                                            REG      1215
           477  7130000400                        =X3    RLOCK                                                   REG      1216
                          43063                   MX0    -RG.USEL                                                REG      1217
                               15110              BX1    -X0*X1      USE COUNT ON *X6*                           REG      1218
           500  37113                             IX1    X1-X3                                                   REG      1219
                     0321000504 +                 PL     X1,GTR10    IF *X6* IS LOCKED                           REG      1220
                               15220              BX2    -X0*X2      USE COUNT ON *X7*                           REG      1221
           501  37123                             IX1    X2-X3                                                   REG      1222
                     0321000504 +                 PL     X1,GTR10    IF *X7* IS LOCKED                           REG      1223
                                                                                                                 REG      1224
                                        *         NEITHER *X6* NOR *X7* IS LOCKED                                REG      1225
                                                                                                                 REG      1226
           502  0100000037 +                      RJ     ASR         ASSIGN STORE REGISTER                       REG      1227
           503  0400000470 +                      EQ     EXIT.                                                   REG      1228
                                                                                                                 REG      1229
                                        *         USE TEMP REGISTER OF LOWEST USE COUNT.                         REG      1230
                                                                                                                 REG      1231
           504  0100001052 +             GTR10    RJ     RUT                                                     REG      1232
           505  0400000470 +                      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
           506  0400400506 +             LFP      SUBR               ...ENTRY/EXIT...                            REG      1253
           507  5130001325 +                      SA3    ALREG                                                   REG      1254
                          43071                   MX0    -3                                                      REG      1255
           510  6273777751                        SB7    X3-R.X6                                                 REG      1256
                          15630                   BX6    -X0*X3                                                  REG      1257
                               10511              BX5    X1                                                      REG      1258
           511  20606                             LX6    6           =R00                                        REG      1259
                     0770000514 +                 NG     B7,LFP4     IF *AREG NOT STORE REGISTER                 REG      1260
           512  6130000011 +                      SB3    RG=LOAD                                                 REG      1261
                          0100000360 +            RJ     GNR                                                     REG      1262
           513  20603                             LX6    3           R00                                         REG      1263
           514  5160000530 +             LFP4     SA6    LFPA                                                    REG      1264
                          0100000755 +            RJ     LPA         LOAD FP BASE ADDRESS                        REG      1265
           515  5130000530 +                      SA3    LFPA                                                    REG      1266
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
           516  6130000000 +                      =B3    RG=BADR                                                 REG      1271
                          0100001244 +            RJ     SFR         GET NEXT *B* REGISTER                       REG      1272
           517  20603                             LX6    3                                                       REG      1273
                     76360                        SX3    B6                                                      REG      1274
                          21303                   AX3    3                                                       REG      1275
                               43052              MX0    -PB.BIASL                                               REG      1276
           520  36663                             IX6    X6+X3                                                   REG      1277
                     21524                        AX5    P2.BIASP                                                REG      1278
                          7170062000              SX7    SB=XK                                                   REG      1279
           521  15250                             BX2    -X0*X5      BIAS ON TAG                                 REG      1280
                     0312000523 +                 NZ     X2,LFP10    IF NOT *0* BIAS                             REG      1281
           522  7170063000                        SX7    SB=XB                                                   REG      1282
           523  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
           524  66520                             SB5    B2                                                      REG      1287
                     6120000526 +                 WCODE  X7                                                      REG      1288
           526  66250                             SB2    B5                                                      REG      1289
                     0400000506 +                 EQ     EXIT.                                                   REG      1290
                                                                                                                 REG      1291
           527  00000000000000000000     FPREG    DATA   0           FORMAL PARAMETER REGISTER                   REG      1292
           530                     1     LFPA     BSS    1                                                       REG      1293
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
           531  0400400531 +             LLA      SUBR                                                           REG      1308
           532  43600                             MX6    0                                                       FC51413     7
                     5160000647 +                 SA6    BIASF       INITIALIZE                                  FC51413     8
                               43044              MX0    -P2.BIASL                                               REG      1309
           533  10655                             BX6    X5                                                      REG      1310
                     20650                        LX6    -P2.BIASP                                               REG      1311
                          15660                   BX6    -X0*X6                                                  REG      1312
           534  5160000642 +                      SA6    BIAS                                                    REG      1313
                          5110001325 +            SA1    ALREG                                                   REG      1314
           535  5120001330 +                      SA2    STORE                                                   REG      1315
                          63210                   SB2    X1          SETREG = ALREG                              REG      1316
                               43071              MX0    -3                                                      REG      1317
           536  15610                             BX6    -X0*X1                                                  REG      1318
                     0302000541 +                 ZR     X2,LLA10    IF NOT STORE                                REG      1319
           537  6130000017 +                      SB3    RG=SET                                                  REG      1320
                          0100000360 +            RJ     GNR         SETREG = GNR(RG=SET.                        REG      1321
           540  21603                             AX6    3                                                       REG      1322
                                                                                                                 REG      1323
           541  10266                    LLA10    BX2    X6                                                      FC51509     6
                     76620                        SX6    B2                                                      FC51509     7
                          43071                   MX0    -3                                                      REG      1327
                               15660              BX6    -X0*X6                                                  REG      1328
           542  5160000643 +                      SA6    SETREG                                                  REG      1329
                          10055                   BX0    X5                                                      FC51509     8
                               20051              HX0    P2.FP                                                   FC51509     9
           543  0320000546 +                      PL     X0,LLA11    IF NOT FORMAL PARAMETER                     FC51509    10
                          5130001330 +            SA3    STORE                                                   FC51509    11
           544  0313000546 +                      NZ     X3,LLA11    IF STORE                                    FC51509    12
                          63720                   SB7    X2                                                      FC51509    13
           545  0100001024 +                      RJ     RLL                                                     FC51509    14
                                                                                                                 REG      1330
           546  0100000650 +             LLA11    RJ     LLB         LOAD BASE ADDRESS(FROM A0 OR LC.)           FC51509    15
           547  5160000527 +                      SA6    FPREG                                                   REG      1332
                          5160000644 +            SA6    LLAA        T1 = FPREG                                  REG      1333
           550  5120000642 +                      SA2    BIAS                                                    FC51413     9
                          20244                   LX2    -P2.BIASL                                               FC51413    10
                               43053              MX0    TP.ORBIL+3                                              FC51413    11
           551  21244                             AX2    -P2.BIASL                                               FC51413    12
                     0322000552 +                 PL     X2,LLA13    IF BIAS NOT MINUS                           FC51413    13
                               14222              BX2    -X2                                                     FC51413    14
           552  11702                    LLA13    BX7    X0*X2                                                   FC51413    15
                     5170000647 +                 SA7    BIASF                                                   FC51413    16
           553  5110001326 +                      SA1    AFREG                                                   REG      1334
                          43071                   MX0    -3                                                      REG      1335
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    29
                                                                      LLA 
  
           554  5120000642 +                      SA2    BIAS                                                    REG      1336
                          15710                   BX7    -X0*X1                                                  REG      1337
           555  0301000620 +                      ZR     X1,LLA50    IF NOT INDEXED REF.                         REG      1338
                          5170000645 +            SA7    LLAB        T2 = AFREG                                  REG      1339
           556  0302000625 +                      ZR     X2,LLA90    IF NO BIAS                                  REG      1340
                          5130000643 +            SA3    SETREG                                                  REG      1341
           557  10733                             BX7    X3                                                      REG      1342
                     5170000644 +                 SA7    LLAA        T1 = SETREG                                 REG      1343
           560  5160000645 +                      SA6    LLAB        T2 = FPREG                                  REG      1344
                          15110                   BX1    -X0*X1                                                  REG      1345
                               20155              LX1    PB.KP                                                   REG      1346
           561  20660                             LX6    PB.JP                                                   REG      1347
                     7120036000                   SX2    IA                                                      REG      1348
                               12016              BX0    X1+X6                                                   REG      1349
           562  20363                             LX3    PB.IP                                                   REG      1350
                     20255                        LX2    PB.INSTP                                                REG      1351
                          12223                   BX2    X2+X3                                                   REG      1352
                               12702              BX7    X0+X2                                                   REG      1353
           563  6120000564 +                      WCODE  X7          IX_SETREG FPREG+AFREG                       FC51560     5
           564  5120000643 +                      SA2    SETREG                                                  FC51601     5
                          5130000645 +            SA3    LLAB                                                    FC51601     6
           565  63720                             SB7    X2          IN CASE OF RLL CALL                         FC51601     7
                     13232                        BX2    X3-X2                                                   FC51601     8
                          0312000603 +            NZ     X2,LLA30    IF NO CONFLICT                              FC51601     9
           566  0100001024 +                      RJ     RLL         LOCK SETREG                                 FC51601    10
           567  5120000647 +                      SA2    BIASF                                                   FC51601    11
                          0312000574 +            NZ     X2,LLA14    IF ABS(BIAS) GT 2**17                       FC51601    12
           570  6130000017 +                      SB3    RG=SET      CHECK REGISTERS 0-5                         FC51601    13
                          0100001244 +            RJ     SFR                                                     FC51601    14
           571  0307000575 +                      ZR     X7,LLA14A   IF FREE                                     FC51601    15
                          6130000022 +            SB3    RG=STOR     CHECK REGISTERS 6-7                         FC51601    16
           572  0100001244 +                      RJ     SFR                                                     FC51601    17
           573  0307000575 +                      ZR     X7,LLA14A   IF FREE                                     FC51601    18
                                                                                                                 FC51601    19
           574  6130000011 +             LLA14    SB3    RG=LOAD                                                 FC51601    20
                          0100000360 +            RJ     GNR         GET A LOAD REGISTER                         FC51601    21
                                                                                                                 FC51601    22
           575  21603                    LLA14A   AX6    3                                                       FC51601    23
                     5160000645 +                 SA6    LLAB                                                    FC51601    24
           576  0400000603 +                      EQ     LLA30                                                   FC51601    25
                                                                                                                 REG      1355
           577  5110000527 +             LLA15    SA1    FPREG                                                   REG      1356
                          63710                   SB7    X1                                                      REG      1357
           600  0100001024 +                      RJ     RLL         LOCK FPREG                                  REG      1358
           601  6130000011 +                      SB3    RG=LOAD                                                 REG      1359
                          0100000360 +            RJ     GNR         GET A LOAD REG                              FC51601    26
           602  21603                             AX6    3                                                       FC51601    27
                     5160000645 +                 SA6    LLAB        T2 = GRN(LOAD)                              FC51601    28
                                                                                                                 REG      1363
           603  5120000642 +             LLA30    SA2    BIAS                                                    REG      1364
                          5130000647 +            SA3    BIASF                                                   FC50920    23
           604  0303000614 +                      ZR     X3,LLA40    IF ABS(BIAS) LT 2**17                       REG      1368
                          10655                   BX6    X5                                                      REG      1369
           605  5160000646 +                      SA6    LLAC                                                    REG      1370
                          43001                   MX0    1                                                       REG      1371
                               20015              LX0    1+P2.SHRTP  FAKE                                        REG      1372
           606  20224                             LX2    P2.BIASP                                                REG      1373
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    30
                                                                      LLA 
  
                     12502                        BX5    X0+X2                                                   REG      1374
                          0100000000 X            CALL   ESC         EXPAND SHORT CONSTANT                       REG      1375
           607  5150000646 +                      SA5    LLAC                                                    REG      1376
                          7100051000              SX0    SA=BK                                                   REG      1377
           610  20055                             LX0    PB.INSTP                                                REG      1378
                     20314                        LX3    PB.BIASP                                                REG      1379
                          20136                   LX1    PB.TAGP                                                 REG      1380
                               12603              BX6    X0+X3                                                   REG      1381
           611  5130000645 +                      SA3    LLAB                                                    REG      1382
                          12761                   BX7    X6+X1                                                   REG      1383
                               20363              LX3    PB.IP                                                   REG      1384
           612  12773                             BX7    X7+X3                                                   REG      1385
                     6120000625 +                 WCODE  X7,LLA90    SA_T2 CON.+K                                REG      1386
                                                                                                                 REG      1387
           614  43052                    LLA40    MX0    -PB.BIASL                                               FC51601    29
                     15220                        BX2    -X0*X2                                                  REG      1389
                          20214                   LX2    PB.BIASP                                                REG      1390
           615  7100071000                        SX0    SX=BK                                                   REG      1391
                          5130000645 +            SA3    LLAB                                                    FC51601    30
           616  20055                             LX0    PB.INSTP                                                REG      1393
                     20363                        LX3    PB.IP                                                   REG      1394
                          12002                   BX0    X0+X2                                                   REG      1395
                               12703              BX7    X0+X3                                                   REG      1396
           617  6120000625 +                      WCODE  X7,LLA90    SX_T2 BIAS                                  REG      1397
                                                                                                                 REG      1398
                                        *         NON-INDEXED (SCALAR OR CON ARRAY ELEMENT)                      REG      1399
                                                                                                                 REG      1400
           620  5110000642 +             LLA50    SA1    BIAS                                                    REG      1401
                          0311000577 +            NZ     X1,LLA15    IF BIAS                                     REG      1402
           621  5110000643 +                      SA1    SETREG                                                  REG      1403
                          5120000527 +            SA2    FPREG                                                   REG      1404
           622  20163                             LX1    PB.IP                                                   REG      1405
                     20260                        LX2    PB.JP                                                   REG      1406
                          7100010000              SX0    XMT                                                     REG      1407
           623  12612                             BX6    X1+X2                                                   REG      1408
                     20055                        LX0    PB.INSTP                                                REG      1409
                          12706                   BX7    X0+X6                                                   REG      1410
           624  6120000632 +                      WCODE  X7,LLA100   BX_SETREG FPREG                             REG      1411
                                                                                                                 REG      1412
           625  5110000643 +             LLA90    SA1    SETREG                                                  REG      1413
                          5120000644 +            SA2    LLAA                                                    REG      1414
           626  5130000645 +                      SA3    LLAB                                                    REG      1415
                          7100036000              SX0    IA                                                      REG      1416
           627  20055                             LX0    PB.INSTP                                                REG      1417
                     20163                        LX1    PB.IP                                                   REG      1418
                          12001                   BX0    X0+X1                                                   REG      1419
                               20260              LX2    PB.JP                                                   REG      1420
           630  20355                             LX3    PB.KP                                                   REG      1421
                     12002                        BX0    X0+X2                                                   REG      1422
                          12703                   BX7    X0+X3                                                   REG      1423
           631  6120000632 +                      WCODE  X7          IX_SETREG T1+T2                             REG      1424
                                                                                                                 REG      1425
           632  5110000527 +             LLA100   SA1    FPREG                                                   REG      1426
                          63710                   SB7    X1                                                      REG      1427
           633  0100001031 +                      RJ     RUL         UNLOCK FPREG                                REG      1428
           634  5110001326 +                      SA1    AFREG                                                   REG      1429
                          0301000637 +            ZR     X1,LLA110   NO ADDRESS FUNCTION                         REG      1430
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    31
                                                                      LLA 
  
           635  43071                             MX0    -3                                                      REG      1431
                     15110                        BX1    -X0*X1                                                  REG      1432
                          63710                   SB7    X1                                                      REG      1433
           636  0100001031 +                      RJ     RUL         UNLOCK AFREG                                REG      1434
                                                                                                                 REG      1435
           637  5120000643 +             LLA110   SA2    SETREG                                                  REG      1436
                          63720                   SB7    X2                                                      REG      1437
           640  0100001031 +                      RJ     RUL         UNLOCK SETREG                               REG      1438
           641  0400000531 +                      EQ     EXIT.                                                   REG      1439
                                                                                                                 REG      1440
           642                     1     BIAS     BSS    1                                                       REG      1441
           643                     1     SETREG   BSS    1                                                       REG      1442
           644                     1     LLAA     BSS    1                                                       REG      1443
           645                     1     LLAB     BSS    1                                                       REG      1444
           646                     1     LLAC     BSS    1                                                       REG      1445
           647                     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
           650  0400400650 +             LLB      SUBR                                                           REG      1453
           651  6130000011 +                      SB3    RG=LOAD                                                 REG      1454
                          0100000360 +            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
           652  5110000726 +                      SA1    LINS        LAST UEM INSTRUCTION                        FC51555    10
                          0301000712 +            ZR     X1,LLB9     IF NO UEM INST                              FC51555    11
           653  5120001273 +                      SA2    REGE                                                    FC51555    12
                          0302000712 +            ZR     X2,LLB9     IF REGFILE ENTRY FREE                       FC51555    13
           654  7120001400                        SX2    DRL                                                     FC51555    14
                          43011                   MX0    PB.GHL+PB.IL                                            FC51555    15
                               11301              BX3    X0*X1                                                   FC51555    16
           655  20255                             LX2    PB.INSTP                                                FC51555    17
                     13223                        BX2    X2-X3                                                   FC51555    18
                          0312000712 +            NZ     X2,LLB9     IF LAST INST NOT 014, READ UEM              FC51555    19
           656  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
           657  13326                             BX3    X2-X6                                                   FC51555    24
                     0313000712 +                 NZ     X3,LLB9     IF LOAD REG DOES NOT CONFLICT WITH UEM READ FC51555    25
           660  5110000026 C                      SA1    REGFILE+REG.X+6                                         FC51555    26
                          0311000712 +            NZ     X1,LLB9     IF X6 REG NOT AVAILABLE                     FC51555    27
           661  5031000001                        SA3    A1+1                                                    FC51555    28
                          0313000712 +            NZ     X3,LLB9     IF X7 REG NOT AVAILABLE                     FC51555    29
           662  76720                             SX7    B2                                                      FC51555    30
                     5170000721 +                 SA7    LLSV        SAVE B2                                     FC51555    31
           663  5067000001                        SA6    A7+1        SAVE X6                                     FC51555    32
                          22705                   LX7    X5                                                      FC51555    33
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    32
                                                                      LLB 
  
           664  5076000001                        SA7    A6+1        SAVE X5                                     FC51555    34
                          22702                   LX7    X2                                                      FC51555    35
           665  5170000724 +                      SA7    SVX2        REG BEING WIPED OUT                         FC51555    36
                          5150001273 +            SA5    REGE        REGFILE ENTRY OF REG WIPED OUT              FC51555    37
           666  43073                             MX0    -1                                                      FC51555    38
                     10355                        BX3    X5                                                      FC51555    39
                          21320                   AX3    RG.TYPP                                                 FC51555    40
                               15730              BX7    -X0*X3                                                  FC51555    41
           667  63270                             SB2    X7                                                      FC51555    42
                     5170000725 +                 SA7    SVB2        UPPER/LOWER FLAG                            FC51555    43
           670  0100000441 +                      RJ     GST         GET STATUS FOR STS CALL                     FC51555    44
           671  6120000026                        SB2    R.X6                                                    FC51555    45
                          5130000725 +            SA3    SVB2                                                    FC51555    46
           672  63330                             SB3    X3          UPPER/LOWER FLAG                            FC51555    47
                     0100001274 +                 RJ     STS         SET STATUS                                  FC51555    48
           673  6170000006                        SB7    R.X6-REG.X                                              FC51555    49
                          0100001024 +            RJ     RLL         LOCK X6                                     FC51555    50
           674  5110000000 X                      SA1    INS.REG     I REG FOR NEXT INST                         FC51555    51
                          7100000777              SX0    MAX.USEC                                                FC51555    52
           675  11701                             BX7    X0*X1                                                   FC51555    53
                     5120000724 +                 SA2    SVX2        REG WIPED OUT                               FC51555    54
                               21203              AX2    PB.KL                                                   FC51555    55
           676  13727                             BX7    X2-X7                                                   FC51555    56
                     0317000707 +                 NZ     X7,LLB8     IF I REG OF NEXT AND REG WIPED OUT NOT SAME FC51555    57
           677  7170000006                        SX7    R.X6-REG.X                                              FC51555    58
                          5170000000 X            SA7    INS.REG     UPDATE TO NEW REG                           FC51555    59
           700  5110001040 +                      SA1    REGLK                                                   FC51555    60
                          5031000001              SA3    A1+1                                                    FC51555    61
           701  13013                             BX0    X1-X3                                                   FC51555    62
                     0310000707 +                 NZ     X0,LLB8     IF NO LOCK                                  FC51555    63
                               13012              BX0    X1-X2                                                   FC51555    64
           702  0310000707 +                      NZ     X0,LLB8     IF REG NOT JUST WIPED OUT                   FC51555    65
                          5170001040 +            SA7    REGLK                                                   FC51555    66
           703  5077000001                        SA7    A7+1        UPDATE REGLK                                FC51555    67
                          5120000724 +            SA2    SVX2        RESTORE X2 FOR WCODE                        FC51555    68
           704  7110000006                        SX1    R.X6-REG.X                                              FC51555    69
                          7100010000              SX0    XMT                                                     FC51555    70
           705  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
           706  6120000707 +                      WCODE  X7,LLB8                                                 FC51555    75
                                                                                                                 FC51555    76
           707  5110000721 +             LLB8     SA1    LLSV                                                    FC51555    77
                          63210                   SB2    X1          RESTORE B2                                  FC51555    78
           710  5021000001                        SA2    A1+1                                                    FC51555    79
                          22602                   LX6    X2          RESTORE X6                                  FC51555    80
           711  5032000001                        SA3    A2+1                                                    FC51555    81
                          10533                   BX5    X3          RESTORE X5                                  FC51555    82
                                                                                                                 FC51555    83
           712  20603                    LLB9     LX6    3                                                       FC51555    84
                     43700                        MX7    0                                                       FC51555    85
                          5170000726 +            SA7    LINS                                                    FC51555    86
           713  5160000530 +                      SA6    LFPA                                                    REG      1457
                          10055                   BX0    X5                                                      REG      1458
                               20051              HX0    P2.FP                                                   REG      1459
           714  0320000717 +                      PL     X0,LLB20    IF NOT FORMAL                               REG      1460
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    33
                                                                      LLB 
  
                          0100000755 +            RJ     LPA         LOAD FP BASE ADDRESS                        REG      1461
                                                                                                                 REG      1462
           715  5130000530 +             LLB10    SA3    LFPA                                                    REG      1463
                          21306                   AX3    6                                                       REG      1464
                               10633              BX6    X3                                                      REG      1465
           716  0400000650 +                      EQ     EXIT.                                                   REG      1466
                                                                                                                 REG      1467
           717  0100000224 +             LLB20    RJ     CLP         LOAD COMMON POINTER                         REG      1468
           720  0400000715 +                      EQ     LLB10                                                   REG      1469
                                                                                                                 FC51555    87
           721                     3     LLSV     BSS    3           SAVE AREA                                   FC51555    88
           724                     1     SVX2     BSS    1                                                       FC51555    89
           725                     1     SVB2     BSS    1                                                       FC51555    90
           726  00000000000000000000     LINS     CON    0                                                       FC51555    91
  
  
  
  
                                        **        LLV - LOAD LCM VALUE.                                          REG      1471
                                                                                                                 REG      1472
           727  0400400727 +             LLV      SUBR                                                           REG      1473
           730  5110001327 +                      SA1    ADDR                                                    REG      1474
                          5120000000 X            SA2    T.SYM                                                   REG      1475
           731  0311000727 +                      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
           732  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
           733  36361                             IX3    X6+X1                                                   REG      1484
                     5160000754 +                 SA6    LLVTAG                                                  REG      1485
                               53237              SA2    B7+X3                                                   REG      1486
           734  43072                             MX0    -WB.LEVNL                                               REG      1487
                     10722                        BX7    X2                                                      REG      1488
                          20217                   LX2    -WB.LEVNP                                               REG      1489
                               15620              BX6    -X0*X2                                                  REG      1490
           735  5120001325 +                      SA2    ALREG                                                   REG      1491
                          43071                   MX0    -3                                                      REG      1492
           736  5110000643 +                      SA1    SETREG                                                  REG      1493
                          15220                   BX2    -X0*X2                                                  REG      1494
           737  5130001330 +                      SA3    STORE                                                   REG      1495
                          0306000744 +            ZR     X6,LLV20    IF LEVEL 0 REF.                             REG      1496
           740  20306                             LX3    PB.IP-PB.INSTP                                          REG      1497
                     7233001400                   SX3    DRL+X3                                                  REG      1498
                               20260              LX2    PB.JP                                                   REG      1499
           741  20355                             LX3    PB.INSTP                                                REG      1500
                     20155                        LX1    PB.KP                                                   REG      1501
                          12032                   BX0    X3+X2                                                   REG      1502
                               12710              BX7    X1+X0                                                   REG      1503
           742  5170000726 +                      SA7    LINS        LAST UEM INSTRUCTION                        FC51555    92
                          6120000727 +            WCODE  X7,EXIT.                                                REG      1504
                                                                                                                 REG      1505
           744  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/05. 20.00.20.      PAGE    34
                                                                      LLV 
  
                               20360              LX3    PB.GHIJP                                                REG      1509
           745  43063                             MX0    -WB.FPOL                                                REG      1510
                     20733                        LX7    -WB.FPOP                                                REG      1511
                          15070                   BX0    -X0*X7                                                  REG      1512
                               12332              BX3    X3+X2                                                   REG      1513
           746  12713                             BX7    X1+X3                                                   REG      1514
                     5110000754 +                 SA1    LLVTAG                                                  REG      1515
                               20136              LX1    PB.TAGP                                                 REG      1516
           747  12771                             BX7    X7+X1                                                   REG      1517
                     5110000000 X                 SA1    =XT.FPI                                                 REG      1518
           750  6271777776                        SB7    X1-1                                                    REG      1519
                          53207                   SA2    B7+X0                                                   REG      1520
                               76310              =X3    1                                                       REG      1521
           751  20322                             LX3    FP.SUB0P                                                REG      1522
                     36623                        IX6    X2+X3                                                   REG      1523
                          5160000000 X            SA6    =XENT.SB0   FLAG LEVEL0 REF ISSUED                      REG      1524
           752  54620                             SA6    A2          INCREMENT FP.SUB0                           REG      1525
                     6120000727 +                 WCODE  X7,EXIT.                                                REG      1526
                                                                                                                 REG      1527
           754                     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
           755  0400400755 +             LPA      SUBR                                                           REG      1535
           756  20520                             LX5    -P2.TAGP                                                REG      1536
                     43054                        MX0    -P2.TAGL                                                REG      1537
                          15150                   BX1    -X0*X5                                                  REG      1538
                               20554              LX5    P2.TAGP                                                 REG      1539
           757  0100000374 +                      RJ     GPN         GET PARAMETER NUMBER                        REG      1540
           760  7271777776                        SX7    X1-1                                                    REG      1541
                          7206050000              SX0    X6+SA=AK                                                REG      1542
           761  0317000762 +                      NZ     X7,LPA10    IF NOT FIST FP                              REG      1543
                          7206054000              SX0    X6+SA=AB                                                REG      1544
                                                                                                                 REG      1545
           762  20714                    LPA10    LX7    PB.BIASP                                                REG      1546
                     20055                        LX0    PB.INSTP                                                REG      1547
                          36707                   IX7    X0+X7                                                   REG      1548
           763  6120000764 +                      WCODE  X7                                                      REG      1549
           764  0400000755 +                      EQ     EXIT.                                                   REG      1550
  
  
  
  
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
           765  0400400765 +             LSC      SUBR   =           ENTRY/EXIT...                               REG      1567
           766  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
           767  10611                             BX6    X1                                                      REG      1572
                     76730                        SX7    B3          SCAN TYPE FOR SFR                           REG      1573
                          5130000000 X            SA3    RREG        GET HARD REG CELL                           REG      1574
           770  5160001014 +                      SA6    LSCA        (LSCA) = STATUS WORD OF SHORT CON           REG      1575
                          54761                   =A7    A6+1        (LSCA+1) = REGISTER SCAN TYPE               REG      1576
           771  0323000774 +                      PL     X3,LSC10    IF REGISTER ALREADY ASSIGNED                REG      1577
                          6272777736              SB7    X2-O.=                                                  REG      1578
           772  0570000774 +                      NZ     B7,LSC10    IF NOT PROCESSING STORE TURPLE              REG      1579
                          0100000037 +            RJ     ASR         ASSIGN STORAGE REGISTER                     REG      1580
           773  0400000775 +                      EQ     LSC20                                                   REG      1581
                                                                                                                 REG      1582
           774  0100000360 +             LSC10    RJ     GNR         GET REGISTER                                REG      1583
                                                                                                                 REG      1584
           775  10766                    LSC20    BX7    X6          (0R0)                                       REG      1585
                     5130001015 +                 SA3    LSCA+1      GET SCAN TYPE                               REG      1586
                               20703              LX7    3           (X7) = (R00)                                REG      1587
           776  55231                             =A2    A3-1        GET STATUS WORD OF SHORT CON                REG      1588
                     6170000000 +                 SB7    RG=BADR                                                 REG      1589
                               67707              SB7    -B7                                                     REG      1590
           777  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
          1000  0570001001 +                      NZ     B7,LSC21    IF NOT *B* REGISTER LOAD                    REG      1594
                          7217061000              SX1    X7+SB=BK    OPCODE+I00                                  REG      1595
          1001  21244                    LSC21    AX2    -P2.BIASL   SIGN EXTENDED CONSTANT, (X2) = CONSTANT.    REG      1596
                     0570001004 +                 NZ     B7,LSC22    IF NOT *B* REGISTER LOAD                    REG      1597
          1002  0312001007 +                      NZ     X2,LSC30    IF NOT CONSTANT ZERO                        REG      1598
                          7217066000              SX1    X7+SB=BB    OPCODE+I00                                  REG      1599
          1003  0400001007 +                      EQ     LSC30                                                   REG      1600
                                                                                                                 REG      1601
                                        *         IF *0* COMPILE: BXI XI-XI (IF +0), BXI -XI-XI (IF -0)          REG      1602
                                                                                                                 REG      1603
          1004  0312001007 +             LSC22    NZ     X2,LSC30    IF CONSTANT NOT ZERO                        REG      1604
                          7217013000              SX1    X7+CLR      OP-CODE + I00                               REG      1605
          1005  0322001006 +                      PL     X2,LSC24    IF CONSTANT = POSITIVE ZERO                 REG      1606
                          7217017000              SX1    X7+EQV      OP-CODE + I00                               REG      1607
          1006  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/05. 20.00.20.      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
          1007  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
          1010  20214                             LX2    PB.BIASP    POSITION CONSTANT IN PB. BIAS FIELD         REG      1621
                     36712                        IX7    X1+X2       ADD CONSTANT INTO INSTRUCTION               REG      1622
                          6120001012 +            WCODE  X7                                                      REG      1623
          1012  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
          1013  20603                             LX6    3           (X6) = (0R0)                                REG      1628
                     0400000765 +                 EQ     EXIT.                                                   REG      1629
                                                                                                                 REG      1630
          1014  00000000000000000000     LSCA     DATA   0,0                                                     REG      1631
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
          1016  0400401016 +             LTG      SUBR   =           ENTRY/EXIT...                               REG      1650
          1017  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
          1020  5160001023 +                      SA6    LTGA        SAVE TAG TO BE USED IN INSTRUCTION          REG      1655
                          0100000360 +            RJ     GNR         GET REGISTER                                REG      1656
          1021  5110001023 +                      SA1    LTGA                                                    REG      1657
                          0100000143 +            RJ     CLI         COMPILE LOAD INSTRUCTION                    REG      1658
          1022  0400001016 +                      EQ     EXIT.                                                   REG      1659
                                                                                                                 REG      1660
                                                                                                                 REG      1661
          1023  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
          1024  0400401024 +             RLL      SUBR   =           ENTRY/EXIT...                               REG      1676
          1025  7100000400                        =X0    RLOCK                                                   REG      1677
                          5117000020 C            SA1    B7+REGFILE+REG.X                                        REG      1678
          1026  12710                             BX7    X1+X0                                                   REG      1679
                     5127000010 C                 SA2    B7+REGFILE+REG.A                                        REG      1680
                               54710              SA7    A1          LOCK ON *X*                                 REG      1681
          1027  12720                             BX7    X2+X0                                                   REG      1682
                     54720                        SA7    A2          LOCK ON *A*                                 REG      1683
                          76770                   SX7    B7          REGISTER = 00R.                             REG      1684
          1030  0400001024 +                      EQ     EXIT.                                                   REG      1685
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
          1031  0400401031 +             RUL      SUBR   =           ENTRY/EXIT...                               REG      1697
          1032  7100000400                        =X0    RLOCK                                                   REG      1698
                          0770001031 +            LT     B7,EXIT.    IF NO REGISTER TO UNLOCK                    REG      1699
          1033  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
          1034  7120000777                        =X2    MAX.USEC                                                REG      1706
                          13272                   BX2    X7-X2                                                   REG      1707
          1035  0302001036 +                      ZR     X2,RUL1     IF TEMP REGISTER                            REG      1708
                          15710                   BX7    -X0*X1                                                  REG      1709
                               54710              SA7    A1          CLEAR LOCK ON *X*                           REG      1710
          1036  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
          1037  0400001031 +                      EQ     EXIT.                                                   REG      1714
                                                                                                                 REG      1715
          1040                     3     REGLK    BSSENT 3           LOCK REGISTER                               REG      1716
                                1041 +   CLOADK   EQU    REGLK+1     *K* PORTION                                 REG      1717
                                         CLOADJ   EQUENT REGLK+2     *J* PORTION                                 REG      1718
          1043                     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
          1044  5150001132 +             RUT.X    SA5    RUTA        RESTORE (X5)                                REG      1737
                          76650                   SX6    B5                                                      REG      1738
                               13777              BX7    0                                                       REG      1739
          1045  66250                             SB2    B5          RESTORE*B2*                                 REG      1740
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    39
                                                                      RUT 
  
                     43071                        MX0    -3                                                      REG      1741
                                                                                                                 REG      1742
                                        **        CLEAR REGFILE ENTRY.                                           REG      1743
                                                                                                                 REG      1744
                          6155777757              SB5    B5-REG.X                                                REG      1745
          1046  5112000000 C                      SA1    B2+REGFILE                                              REG      1746
                          0750001051 +            MI     B5,RUT35    IF NOT X REG CLEAR ONLY ONE ENTRY           REG      1747
          1047  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
          1050  0312001051 +                      NZ     X2,RUT35    IF TAGS NOT EQUAL                           REG      1751
                          5072000000              SA7    A2+         CLOBBER A REG                               REG      1752
          1051  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
          1052  0400401052 +             RUT      SUBR   =           ENTRY/EXIT...                               REG      1758
          1053  10755                             BX7    X5                                                      REG      1759
                     66520                        SB5    B2                                                      REG      1760
                          5170001132 +            SA7    RUTA                                                    REG      1761
          1054  7160001044 +                      SX6    RUT.X                                                   REG      1762
                          5152000000 C            SA5    B2+REGFILE                                              REG      1763
          1055  5160001135 +                      SA6    RUT.ADR                                                 REG      1764
          1056  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
          1057  15710                             BX7    -X0*X1                                                  REG      1769
                     63270                        SB2    X7          TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)   REG      1770
                          5170001140 +            SA7    RUT.TYP                                                 REG      1771
          1060  0100000441 +                      RJ     GST         GET STATUS OF TAG                           REG      1772
          1061  5120001135 +                      SA2    RUT.ADR                                                 REG      1773
                          63720                   SB7    X2                                                      REG      1774
          1062  0520001063 +                      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
          1063  5120001140 +             RUT6     SA2    RUT.TYP                                                 REG      1784
                          43073                   MX0    -1                                                      REG      1785
                               10755              BX7    X5                                                      REG      1786
          1064  6232000016                        SB3    X2+ST.STATP                                             REG      1787
                          22030                   LX0    X0,B3                                                   REG      1788
                               11601              BX6    X0*X1       INDICATE TAG NOT IN REGISTER                REG      1789
          1065  54610                             SA6    A1                                                      REG      1790
                     20761                        SBIT   X7,P2.INTRP                                             REG      1791
                          0337001067 +            MI     X7,RUT20    IF INTERMEDIATE                             REG      1792
          1066  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/05. 20.00.20.      PAGE    40
                                                                      RUT 
  
                                                                                                                 REG      1798
                                        *RUT20    SBIT   X2,P2.ADDRP/P2.INTRP                                    REG      1799
                                        *         MI     X2,RUT30                                                REG      1800
          1067                           RUT20    BSS    0                                                       REG      1801
                                                                                                                 REG      1802
                                         SNAP=H   IFNE   TEST                                                    REG      1803
          1067  7160222524                        SX6    3RRUT                                                   REG      1804
                          0100001564 +            RJ     REGPRO                                                  REG      1805
                                         SNAP=H   ENDIF                                                          REG      1806
          1070  20771                             SBIT   X7,P2.ARRP/P2.INTRP                                     REG      1807
                     0327001072 +                 PL     X7,RUT25    IF NOT ARRAY-LOAD                           REG      1808
                                                                                                                 REG      1809
                                        **        INTERMEDIATE IS ARY-LOD -- INDICATE POST-PROCESSING REQUIRED.  REG      1810
                                                                                                                 REG      1811
          1071  0277000000                        JP     B7                                                      REG      1812
                                                                                                                 REG      1813
          1072  7105777751               RUT25    SX0    B5-R.X6                                                 REG      1814
                          10755                   BX7    X5                                                      REG      1815
                               66250              SB2    B5                                                      REG      1816
          1073  0320001126 +                      PL     X0,RUT28    IF ALREADY IN STORE REGISTER                REG      1817
                          76650                   SX6    B5                                                      REG      1818
          1074  6130000022 +                      SB3    RG=STOR                                                 REG      1819
                          5160001137 +            SA6    INT.REG     SAVE 0TR OF REGISTER BEING CLOBBERED        REG      1820
          1075  5170001136 +                      SA7    INT.TAG                                                 REG      1821
                          0100001244 +            RJ     SFR         GET STORE REGISTER                          REG      1822
          1076  5120000000 X                      SA2    RUT.REG     IJK OF PREVIOUS INSTRUCTION                 FC50950    12
                          0302001112 +            ZR     X2,RUT26A   IF IJK OF PREVIOUS INST CLEARED             FC50950    13
          1077  21206                             AX2    6                                                       FC50950    14
                     21603                        AX6    3           STORE REGISTER SELECTED                     FC50950    15
                          13026                   BX0    X2-X6                                                   FC50950    16
          1100  0310001107 +                      NZ     X0,RUT26    IF STORE REG NOT I OF PREVIOUS INST         FC50950    17
                          0317001107 +            NZ     X7,RUT26    IF NON ZERO USE COUNT                       FC50950    18
                                                                                                                 FC50950    19
          1101  7132777751               RUT25A   SX3    B2-R.X6                                                 FC50950    20
                          0313001104 +            NZ     X3,RUT25B   IF STORE REG SELECTED NOT X6                FC50950    21
          1102  6120000027                        SB2    R.X7                                                    FC50950    22
                          5152000000 C            SA5    B2+REGFILE                                              FC50950    23
          1103  0400001105 +                      EQ     RUT25C                                                  FC50950    24
                                                                                                                 FC50950    25
          1104  6120000026               RUT25B   SB2    R.X6                                                    FC50950    26
                          5152000000 C            SA5    B2+REGFILE                                              FC50950    27
                                                                                                                 FC50950    28
          1105  7170001120 +             RUT25C   SX7    RUT27                                                   FC50950    29
                          5170001135 +            SA7    RUT.ADR                                                 FC50950    30
          1106  66520                             SB5    B2                                                      FC50950    31
                     0400001056 +                 EQ     RUT5                                                    FC50950    32
                                                                                                                 FC50950    33
          1107  5130000000 X             RUT26    SA3    IJK                                                     FC50950    34
                          0313001112 +            NZ     X3,RUT26A   IF K PART OF INST NOT JUST PROCESSED        FC50950    35
          1110  5110000000 X                      SA1    INS.REG     K OF CURRENT INSTRUCTION                    FC50950    36
                          13316                   BX3    X1-X6                                                   FC50950    37
          1111  0303001101 +                      ZR     X3,RUT25A   IF STORE REG IS *K* OF CURRENT INSTRUCTION  FC50950    38
                                                                                                                 FC50950    39
          1112  66520                    RUT26A   SB5    B2                                                      FC50950    40
                     0307001120 +                 ZR     X7,RUT27    IF REGISTER AVAILABLE                       REG      1824
                               13000              DRITE  DEACTIVATE                                              REG      1825
          1114  5152000000 C                      SA5    B2+REGFILE                                              REG      1826
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    41
                                                                      RUT 
  
                          7170001120 +            SX7    RUT27                                                   REG      1827
          1115  5170001135 +                      SA7    RUT.ADR     RESET JUMP ADDRESS                          REG      1828
                          0302001056 +            ZR     X2,RUT5     IF REGISTER NOT FREED                       REG      1829
          1116  43063                             MX0    -RG.USEL                                                REG      1830
                     66520                        SB5    B2                                                      REG      1831
                          15250                   BX2    -X0*X5                                                  REG      1832
          1117  0312001056 +                      NZ     X2,RUT5     IF NOT LAST USE OF REGISTER                 REG      1833
                                                                                                                 REG      1834
                                        **        TRANSFER INTERMEDIATE TO STORE REGISTER.                       REG      1835
                                                                                                                 REG      1836
          1120  76650                    RUT27    SX6    B5          0TR *I* REGISTER                            REG      1837
                     43071                        MX0    -3                                                      REG      1838
                          5110001137 +            SA1    INT.REG     0TR *J* REGISTER                            REG      1839
          1121  15260                             BX2    -X0*X6                                                  REG      1840
                     15710                        BX7    -X0*X1                                                  REG      1841
                          20203                   LX2    3                                                       REG      1842
                               36772              IX7    X7+X2                                                   REG      1843
          1122  7277001000                        SX7    X7+XMT/1S3                                              REG      1844
                          20760                   LX7    PB.INSTP+3                                              REG      1845
          1123  6120001124 +                      WCODE  X7                                                      REG      1846
          1124  6170001044 +                      SB7    RUT.X                                                   REG      1847
                          5120001137 +            SA2    INT.REG                                                 REG      1848
          1125  66250                             SB2    B5                                                      REG      1849
                     5150001136 +                 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
          1126  76650                    RUT28    SX6    B5                                                      REG      1857
                     76770                        SX7    B7                                                      REG      1858
                          5160001133 +            SA6    RUTA+1                                                  REG      1859
          1127  5170001135 +                      SA7    RUT.ADR                                                 REG      1860
                          0100000260 +            RJ     CWI         STORE INTERMEDIATE IN TEMPORARY             REG      1861
          1130  5110001133 +                      SA1    RUTA+1                                                  REG      1862
                          5120001135 +            SA2    RUT.ADR                                                 REG      1863
          1131  63510                             SB5    X1                                                      REG      1864
                     63720                        SB7    X2                                                      REG      1865
                          0277000000              JP     B7                                                      REG      1866
                                                                                                                 REG      1867
          1132                     3     RUTA     BSS    3           RUT SCRATCH                                 REG      1868
          1135  00000000000000000000     RUT.ADR  DATA   0                                                       REG      1869
          1136  00000000000000000000     INT.TAG  DATA   0           INTERMEDIATE TAG                            REG      1870
          1137  00000000000000000000     INT.REG  DATA   0           0TR OF REGISTER INTERMEDIATE IS IN          REG      1871
          1140  00000000000000000000     RUT.TYP  DATA   0           TYPE OF TAG                                 REG      1872
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
          1141  5120001236 +             SDS.X    SA2    SDSA                                                    REG      1893
                          43071                   MX0    -3                                                      REG      1894
                               46000              NO                                                             REG      1895
          1142  15620                             BX6    -X0*X2                                                  REG      1896
                     63220                        SB2    X2                                                      REG      1897
                          20603                   LX6    3                                                       REG      1898
                                                                                                                 REG      1899
                                                                                                                 REG      1900
          1143  0400401143 +             SDS      SUBR   =           ENTRY/EXIT...                               REG      1901
          1144  76730                             SX7    B3                                                      REG      1902
                     76020                        SX0    B2                                                      REG      1903
                          5130000000 X            SA3    DRITE                                                   REG      1904
          1145  10655                             BX6    X5                                                      REG      1905
                     20020                        LX0    RG.TYPP                                                 REG      1906
                          5170001236 +            SA7    SDSA        SAVE REGISTER                               REG      1907
          1146  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
          1147  66620                             SB6    B2                                                      REG      1912
                     0300001152 +                 ZR     X0,SDS10    IF CURRENT TAG ALREADY DELAYED- IGNORE OLD  REG      1913
          1150  0303001152 +                      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
          1152  66260                    SDS10    SB2    B6                                                      REG      1919
                     66700                        =B7    0           STATUS OF TAG ONLY                          REG      1920
                          0100000441 +            RJ     GST         GET STATUS OF TAG                           REG      1921
          1153  43071                             MX0    -3                                                      REG      1922
                     7130000010                   =X3    REG.A                                                   REG      1923
                               11605              BX6    X0*X5                                                   REG      1924
          1154  76220                             SX2    B2                                                      REG      1925
                     0420001161 +                 ZR     B2,SDS15    IF TAG NOT IN REGISTER                      REG      1926
                               11732              BX7    X3*X2                                                   REG      1927
          1155  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/05. 20.00.20.      PAGE    43
                                                                      SDS 
  
          1156  0307001160 +                      ZR     X7,SDS12    IF NOT IN *A* REGISTER                      REG      1931
                          76700                   =X7    0                                                       REG      1932
                               15220              BX2    -X0*X2      =00R (LEFT MEMBER)                          REG      1933
          1157  6122000010                        SB2    B2+REG.X-REG.A                                          REG      1934
                          36662                   IX6    X6+X2                                                   REG      1935
                                                                                                                 REG      1936
          1160  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
          1161  5120001236 +             SDS15    SA2    SDSA        *X* REGISTER FOR LEFT MEMBER                REG      1940
                          5160000000 X            SA6    DRITE       SET DRITE IN MOTION                         REG      1941
          1162  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
          1163  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
          1164  36606                             IX6    X0+X6                                                   REG      1949
                     76060                        SX0    B6                                                      REG      1950
                          66360                   SB3    B6                                                      REG      1951
                               20024              LX0    P2.BIASP                                                REG      1952
          1165  36660                             IX6    X6+X0                                                   REG      1953
                     54661                        =A6    A6+1                                                    REG      1954
                          54761                   =A7    A6+1                                                    REG      1955
          1166  0317001172 +                      NZ     X7,SDS20    IF NOT LAST USE OF RIGHT MEMBER             REG      1956
                          6170001170 +            SB7    SDS16                                                   FC5A375     9
          1167  0400001210 +                      EQ     SDS32       POSSIBLY FORCE RELOAD OF CURRENT TAG        FC5A375    10
          1170  0100001274 +             SDS16    RJ     STS         SET TAG STATUS                              FC5A375    11
                                                                                                                 FC5A375    12
          1171  0400001141 +                      EQ     SDS.X       FINISH UP                                   REG      1958
                                                                                                                 REG      1959
          1172  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
          1173  15023                             BX0    -X3*X2                                                  REG      1964
                     5120000467 +                 SA2    GSTC        REMEMBER LOCATION OF STATUS WORD            REG      1965
                               10722              BX7    X2                                                      REG      1966
          1174  0300001141 +                      ZR     X0,SDS.X    IF LAST USE OF LEFT MEMBER                  REG      1967
                          6170001176 +            SB7    SDS22                                                   FC5A375    13
          1175  0400001210 +                      EQ     SDS32       POSSIBLY FORCE RELOAD OF CURRENT TAG        FC5A375    14
          1176  5170001237 +             SDS22    SA7    SDSA+1                                                  FC5A375    15
                                                                                                                 FC5A375    16
                          6130000014 +            SB3    RG=LODX                                                 REG      1969
          1177  0100001244 +                      RJ     SFR                                                     REG      1970
          1200  0317001141 +                      NZ     X7,SDS.X    IF X REGISTER NOT AVAILABLE                 REG      1971
                          5110001236 +            SA1    SDSA        =0TR) (RIGHT MEMBER)                        REG      1972
          1201  43071                             MX0    -3                                                      REG      1973
                     7236001000                   SX3    X6+XMT/1S3                                              REG      1974
                               15110              BX1    -X0*X1      =00R                                        REG      1975
          1202  66520                             SB5    B2                                                      REG      1976
                     36731                        IX7    X3+X1                                                   REG      1977
                          20760                   LX7    PB.INSTP+3                                              REG      1978
          1203  6120001204 +                      WCODE  X7                                                      REG      1979
          1204  5120001237 +                      SA2    SDSA+1                                                  REG      1980
                          66250                   SB2    B5                                                      REG      1981
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    44
                                                                      SDS 
  
                               63720              SB7    X2          ORDINAL IN TABLE OF STATUS WORD             REG      1982
          1205  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
          1206  0100001274 +                      RJ     STS         SET TAG STATUS                              REG      1987
          1207  0400001141 +                      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
          1210  22006                    SDS32    LX0    X6                                                      FC5A375    23
                     10655                        BX6    X5                                                      FC5A375    24
                          5160001235 +            SA6    SDSX5       SAVE X5                                     FC5A375    25
          1211  10622                             BX6    X2                                                      FC5A375    26
                     5160001234 +                 SA6    SDSX2       SAVE X2                                     FC5A375    27
                               22600              LX6    X0                                                      FC5A375    28
          1212  5154000002                        SA5    B4+OR.2OP                                               FC5A375    29
                          22305                   LX3    X5                                                      FC5A375    30
                               20556              SBIT   X5,P2.ARRP                                              FC5A375    31
          1213  0325001232 +                      PL     X5,SDS42    IF NOT ARRAY REFERENCE                      FC5A375    32
                          43020                   MX0    P2.TAGL                                                 FC5A375    33
          1214  5055777775                        SA5    A5-OR.2OP   SET A5                                      FC5A375    34
                                                                                                                 FC5A375    35
          1215  5055000003               SDS34    SA5    A5+Z=TURP   NEXT TURPLE                                 FC5A375    36
                          0305001232 +            ZR     X5,SDS42    IF END OF T.PAR                             FC5A375    37
                                                                                                                 FC5A375    38
                                         SDS35    HX5    OP.SKEL                                                 FC5A375    39
          1216  21556                             AX5    -OP.SKELL   EXTRACT SKELTON ORDINAL                     FC5A375    40
                     14555                        BX5    -X5                                                     FC5A375    41
                          5025000002              SA2    A5+OR.2OP                                               FC5A375    42
          1217  6255000000 X                      SB5    X5+V=STR.I                                              FC5A375    43
                          0550001215 +            NZ     B5,SDS34    IF NOT STORE (V=STR.I)                      FC5A375    44
          1220  22502                             LX5    X2                                                      FC5A375    45
                     20561                        SBIT   X5,P2.INTRP                                             FC5A375    46
                          0325001226 +            PL     X5,SDS40    IF NOT INTERMEDIATE                         FC5A375    47
          1221  20571                             SBIT   X5,P2.ARRP/P2.INTRP                                     FC5A375    48
                     0325001226 +                 PL     X5,SDS40    IF NOT ARRAY (LEFT MEMBER)                  FC5A375    49
                                                                                                                 FC5A375    50
          1222  22502                    SDS38    LX5    X2                                                      FC5A375    51
                     5120000000 X                 SA2    T.PAR                                                   FC5A375    52
                               20520              HX5    P2.BIAS                                                 FC5A375    53
          1223  21544                             AX5    -P2.BIASL                                               FC5A375    54
                     63550                        SB5    X5                                                      FC5A375    55
                          63525                   SB5    X2+B5                                                   FC5A375    56
          1224  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
          1225  0302001141 +                      ZR     X2,SDS.X    IF ARRAY WITH VARIABLE SUBSCRIPT FOUND      FC5A375    60
                          0400001215 +            EQ     SDS34       LOOP                                        FC5A375    61
                                                                                                                 FC5A375    62
          1226  5025000001               SDS40    SA2    A5+OR.1OP                                               FC5A375    63
                          22502                   LX5    X2                                                      FC5A375    64
                               20561              SBIT   X5,P2.INTRP                                             FC5A375    65
          1227  0335001215 +                      MI     X5,SDS34    IF INTERMEDIATE                             FC5A375    66
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    45
                                                                      SDS 
  
                          20571                   SBIT   X5,P2.ARRP/P2.INTRP                                     FC5A375    67
          1230  0325001215 +                      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
          1231  0312001215 +                      NZ     X2,SDS34    IF ARRAY WITH SCALAR OFFSET NOT FOUND       FC5A375    71
                                                                                                                 FC5A375    72
          1232  5120001234 +             SDS42    SA2    SDSX2       RELOAD X2                                   FC5A375    73
                          5150001235 +            SA5    SDSX5       RELOAD X5                                   FC5A375    74
          1233  0277000000                        JP     B7          RETURN TO SDS16 OR SDS22                    FC5A375    75
                                                                                                                 FC5A375    76
          1234  00000000000000000000     SDSX2    DATA   0           X2 SAVED HERE                               FC5A375    77
          1235  00000000000000000000     SDSX5    DATA   0           X5 SAVED HERE                               FC5A375    78
                                                                                                                 REG      1989
          1236  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
          1240  5110001273 +             SFR.X    SA1    REGE        ADD OF REGFILE ENTRY SELECTED               FC51555    93
                          53110                   SA1    X1                                                      FC51555    94
                               10611              BX6    X1                                                      FC51555    95
          1241  5160001273 +                      SA6    REGE        REGFILE ENTRY IF NOT ZERO USE COUNT ELSE 0  FC51555    96
                          10622                   BX6    X2                                                      FC51555    97
                               76320              SX3    B2                                                      REG      2015
          1242  43071                             MX0    -3                                                      REG      2016
                     56631                        =A6    B3+1        RESET REGISTER SKELETON WORD                REG      2017
                          5150001272 +            SA5    SFRA        RESTORE *X5*                                REG      2018
          1243  15630                             BX6    -X0*X3                                                  REG      2019
                     20603                        LX6    3                                                       REG      2020
                                                                                                                 REG      2021
          1244  0400401244 +             SFR      SUBR   =           ...ENTRY/EXIT...                            FC5A346    12
          1245  56130                             SA1    B3                                                      REG      2023
                     13666                        BX6    0                                                       REG      2024
                          5120000000 X            SA2    RREG                                                    REG      2025
          1246  20152                             LX1    -RS.NUMP                                                REG      2026
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    46
                                                                      SFR 
  
                     14722                        BX7    -X2                                                     REG      2027
                          5160000000 X            SA6    RGX                                                     REG      2028
          1247  0332001253 +                      MI     X2,SFR5     IF NO HARD REGISTER                         REG      2029
                          43063                   MX0    -RG.USEL                                                REG      2030
                               54720              SA7    A2                                                      REG      2031
          1250  63220                             SB2    X2                                                      REG      2032
                     43171                        MX1    -3                                                      REG      2033
                          15621                   BX6    -X1*X2                                                  REG      2034
          1251  5132000000 C                      SA3    B2+REGFILE                                              REG      2035
                          20603                   LX6    3           =0R0                                        REG      2036
                               15730              BX7    -X0*X3      USE COUNT FOR HARD REGISTER                 REG      2037
          1252  0400001244 +                      EQ     EXIT.                                                   REG      2038
                                                                                                                 REG      2039
          1253  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
          1254  7150000400                        SX5    RLOCK                                                   REG      2045
                          5170001272 +            SA7    SFRA                                                    REG      2046
          1255  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
          1256  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
          1257  11602                             BX6    X0*X2                                                   REG      2055
                     5236000000 C                 SA3    X6+REGFILE                                              REG      2056
                               15131              BX1    -X1*X3      EXTRACT USE COUNT                           REG      2057
                                                                                                                 REG      2058
          1260  63260                    SFR10    SB2    X6                                                      REG      2059
                     74630                        SX6    A3                                                      FC51555    98
                          5160001273 +            SA6    REGE        RETAIN ADD OF REGFILE SELECTED              FC51555    99
          1261  10711                             BX7    X1                                                      REG      2060
                     0317001263 +                 NZ     X7,SFR12    IF REGISTER NOT FREE                        FC50949     7
                               43600              MX6    0                                                       FC50949     8
          1262  54630                             SA6    A3          A3 => CURRENT REGFILE ENTRY                 FC50949     9
                     0400001240 +                 EQ     SFR.X                                                   FC50949    10
                                                                                                                 REG      2062
          1263  0470001240 +             SFR12    ZR     B7,SFR.X    IF FINISHED                                 REG      2063
                          11602                   BX6    X0*X2       NEXT REGISTER ORDINAL                       REG      2064
                               43163              MX1    -RG.USEL                                                REG      2065
          1264  5236000000 C                      SA3    X6+REGFILE                                              REG      2066
                          15131                   BX1    -X1*X3      EXTRACT USE COUNT                           REG      2067
                               37317              IX3    X1-X7                                                   REG      2068
          1265  0333001260 +                      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
          1266  5236000000 C                      SA3    X6+REGFILE                                              REG      2072
                          37115                   IX1    X1-X5                                                   REG      2073
                               20361              SBIT   X3,P2.INTRP                                             REG      2074
          1267  0333001263 +                      MI     X3,SFR12    IF INTERMEDIATE                             REG      2075
                          0321001263 +            PL     X1,SFR12    IF NOT NEW LOW (NON-INTERMEDIATE)           REG      2076
          1270  36515                             IX5    X1+X5                                                   REG      2077
                     5160000000 X                 SA6    RGX                                                     FC51555   100
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    47
                                                                      SFR 
  
          1271  0400001263 +                      EQ     SFR12                                                   REG      2079
                                                                                                                 REG      2080
          1272                     1     SFRA     BSS    1                                                       REG      2081
          1273                     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
          1274  0400401274 +             STS      SUBR   =           ENTRY/EXIT.                                 REG      2110
          1275  5120000000 X                      SA2    UUC         GET USE COUNT INCREMENT                     FC5A258    56
                          0100000061 +            RJ     AUT         ADJUST USE TOTAL                            REG      2112
          1276  0420001274 +                      ZR     B2,EXIT.    IF NO REGISTER REQUIRED                     REG      2113
                          5123000465 +            SA2    B3+STATUS   GET SHIFT COUNTS FOR STATUS ROUTINES        REG      2114
          1277  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
          1300  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
          1301  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
          1302  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
          1303  54710                             SA7    A1          RESET STATUS WORD                           REG      2133
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    48
                                                                      STS 
  
                     5122000000 C                 SA2    B2+REGFILE                                              FC50748     6
                               43063              MX0    -P2.USEL                                                FC50748     7
          1304  22702                             LX7    X2                                                      FC50748     8
                     15220                        BX2    -X0*X2      USE COUNT                                   FC50748     9
                          0302001314 +            ZR     X2,STS1     IF NO USE COUNT                             FC50748    10
          1305  7100000400                        SX0    RLOCK                                                   FC50748    11
                          11002                   BX0    X0*X2       LOCK BIT EXTRACTION                         FC50748    12
          1306  0310001314 +                      NZ     X0,STS1     IF LOCK BIT SET                             FC50748    13
                          13057                   BX0    X5-X7                                                   FC50748    14
                               21011              AX0    P2.USEL     ELIMINATE USE COUNT                         FC50748    15
          1307  0310001314 +                      NZ     X0,STS1     IF TAGS NOT EQUAL                           FC50748    16
                          63320                   SB3    X2          REGFILE USE COUNT                           FC50964     8
                               43063              MX0    -P2.USEL                                                FC50748    17
          1310  15750                             BX7    -X0*X5                                                  FC50964     9
                     63770                        SB7    X7          INCOMING OPERAND USE COUNT                  FC50964    10
                          11505                   BX5    X0*X5                                                   FC50748    18
          1311  0737001313 +                      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
          1312  0400001314 +                      EQ     STS1                                                    FC50964    12
                                                                                                                 FC50964    13
          1313  36557                    STSA     IX5    X5+X7       RETAIN INCOMING OPERAND USE COUNT           FC50964    14
                                                                                                                 FC50964    15
                                                                                                                 FC50748    20
          1314  7102777767               STS1     SX0    B2-REG.A    (XO) = (OTR) - (010)                        FC50748    21
                          5120000000 X            SA2    UUC         GET USE COUNT DECREMENT VALUE               FC50748    22
          1315  21003                             AX0    3           (X0) = (00T) = (001)                        FC50748    23
                     37752                        IX7    X5-X2       SUBTRACT USE COUNT INCRIMENT                FC50748    24
                          0310001320 +            NZ     X0,STS2     IF NOT AN A-REG                             FC50748    25
          1316  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
          1317  0332001274 +                      MI     X2,EXIT.    IF LCM, DONT PLACE IN A-REG                 REG      2140
                                                                                                                 REG      2141
          1320  5172000000 C             STS2     SA7    B2+REGFILE  MAKE REGFILE ENTRY FOR TAG                  FC50748    26
                          0400001274 +            EQ     EXIT.                                                   REG      2143
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    49
        SUBSCRIPT PROCESSING. 
  
          1321  00000000000000000000     ALTAG    DATA   0           PASS 3 ARRAY LOAD TAG                       REG      2145
          1322                     3     SAVEB4   BSS    3                                                       REG      2146
          1325  00000000000000000000     ALREG    CON    0                                                       REG      2147
          1326  00000000000000000000     AFREG    CON    0                                                       REG      2148
          1327  00000000000000000000     ADDR     DATA   0                                                       REG      2149
          1330                     1     STORE    BSS    1                                                       REG      2150
          1331                     1     ADDRS    BSS    1                                                       REG      2151
          1332                     1     STORES   BSS    1                                                       REG      2152
          1333  00000000000000000000     SAVEB2   DATA   0                                                       REG      2153
          1334  00000000000000000000     TRIP     DATA   0                                                       REG      2154
          1335  00000000000000000000     SAVEX1   DATA   0                                                       REG      2155
          1336  00000000000000401336 +   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
          1337                           O=PAR    BSSENT 0           ENTRY...                                    REG      2173
                                         .T       IFEQ   TEST,ON                                                 FC5A140    20
          1337  5154000002                        SA5    B4+OR.2OP                                               REG      2174
                          7100022000              CLAS=  X0,TP,(ARR,INTR)                                        FC5A140    21
          1340  11105                             BX1    X0*X5                                                   FC5A140    22
                     13101                        BX1    X0-X1                                                   FC5A140    23
                          0301401340 +            ZR     X1,"BLOWUP" IF SUBSCRIPTED SUBSCRIPT                    FC5A140    24
                                         .T       ENDIF                                                          FC5A140    25
          1341  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/05. 20.00.20.      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
          1342  0400401342 +             SLD      SUBR   =           ENTRY/EXIT...                               REG      2211
          1343  76640                             SX6    B4                                                      REG      2212
                     10744                        BX7    X4                                                      REG      2213
                          5120000000 X            SA2    T.PAR                                                   REG      2214
          1344  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
          1345  5160001322 +                      SA6    SAVEB4      SAVE *B4*                                   REG      2219
                          63410                   SB4    X1                                                      REG      2220
                               74640              SX6    A4                                                      REG      2221
          1346  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
          1347  5170001332 +                      SA7    STORES                                                  REG      2226
                          20560                   SBIT   X5,P2.ADDRP                                             REG      2227
          1350  0325001351 +                      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
          1351  5170001331 +             SLD1     SA7    ADDRS       NZ IF NO VALUE LOAD                         REG      2231
                          5154000002              SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                        REG      2232
          1352  5110000000 X                      SA1    RREG                                                    REG      2233
                          43674                   MX6    -0                                                      REG      2234
                               10711              BX7    X1                                                      REG      2235
          1353  54610                             SA6    A1                                                      REG      2236
                     76620                        SX6    B2                                                      REG      2237
                          5170001325 +            SA7    ALREG       SAVE HARD REGISTER FLAG                     REG      2238
          1354  5170001563 +                      SA7    ALREGS                                                  FC50131     5
                          5160000000 X            SA6    TYPLOD                                                  REG      2239
          1355  7207777751                        SX0    X7-R.X6                                                 REG      2240
                          0330001361 +            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
          1356  43071                             MX0    -3                                                      REG      2246
                     15070                        BX0    -X0*X7                                                  REG      2247
                          63700                   SB7    X0          (00R) HARD REGISTER FLAG                    REG      2248
          1357  0100001024 +                      RJ     RLL         LOCK HARD REGISTER                          REG      2249
          1360  76710                             =X7    1                                                       REG      2250
                     5170001332 +                 SA7    STORES                                                  REG      2251
          1361  10055                    SLD15    DRITE  X5                                                      REG      2252
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    51
        SUBSCRIPT PROCESSING.                                         SLD 
  
          1362  13666                             BX6    0                                                       REG      2253
                     5160001334 +                 SA6    TRIP        RESET RE-TRY INDICATOR                      REG      2254
          1363  6130000011 +                      SB3    RG=LOAD                                                 REG      2255
                          66200                   SB2    B0                                                      REG      2256
                               66710              SB7    B1                                                      REG      2257
          1364  0100000441 +                      RJ     GST         GET STATUS OF ADDRESS FUNCTION              REG      2258
          1365  5120000467 +                      SA2    GSTC                                                    REG      2259
                          10722                   BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS    REG      2260
          1366  5170001336 +                      SA7    AFSTS                                                   REG      2261
                          6160401366 +            SB6    "BLOWUP"    **** DEBUG ****                             REG      2262
          1367  0420001373 +                      ZR     B2,SLD2     IF TAG NOT IN REGISTER                      REG      2263
                          10066                   BX0    X6                                                      REG      2264
                               21003              AX0    3                                                       REG      2265
          1370  5220000020 C                      SA2    X0+REGFILE+REG.X                                        REG      2266
                          13052                   BX0    X5-X2                                                   REG      2267
                               20261              SBIT   X2,P2.INTRP                                             REG      2268
          1371  0332001423 +                      MI     X2,SLD3     IF INTERMEDIATE, NO CONFLICT                REG      2269
                          21011                   AX0    RG.USEL                                                 REG      2270
          1372  0300001423 +                      ZR     X0,SLD3     IF CORRECT TAG                              REG      2271
          1373  5120001621 +             SLD2     SA2    P2=KEEP                                                 REG      2272
                          11121                   BX1    X2*X1                                                   REG      2273
                               66200              SB2    B0          INDICATE TYPLOD = UPPER                     REG      2274
          1374  0100001016 +                      RJ     LTG         LOAD ADDRESS FUNCTION                       REG      2275
          1375  10255                             BX2    X5                                                      FC50131     6
                     20250                        HX2    P2.LCM                                                  FC50131     7
                          0322001401 +            PL     X2,SLD21    IF NOT LCM ADDRESS FUNCTION                 FC50131     8
          1376  10266                             BX2    X6                                                      FC50825     7
                     21203                        AX2    3                                                       FC50825     8
                          6222000020              SB2    X2+REG.X    USE X-REG FOR STATUS                        FC50825     9
          1377  5120001563 +                      SA2    ALREGS                                                  FC50131    12
                          10722                   BX7    X2                                                      FC50131    13
          1400  5170001325 +                      SA7    ALREG       RESTORE FROM POSSIBLE CLI USE               FC50131    14
                                                                                                                 FC50131    15
          1401  5120001334 +             SLD21    SA2    TRIP                                                    FC50131    16
                          0302001423 +            ZR     X2,SLD3     IF NO RECORD OF TROUBLE                     REG      2277
          1402  5130001333 +                      SA3    SAVEB2      (0TR) ARRAY LOAD REG                        REG      2278
                          63330                   SB3    X3                                                      REG      2279
          1403  5114000001                        SA1    B4+OR.1OP                                               FC51572     5
                          20150                   HX1    P2.LCM                                                  FC51572     6
          1404  0321001405 +                      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
          1405  0523001423 +             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
                          76010                   =X0    1                                                       REG      2288
                               15020              BX0    -X0*X2                                                  REG      2289
          1406  0100000000 X             S=SLDCL  SNAP   SLD,,,(B2,B4,X5)                                        REG      2290
          1407  0100000000 X             S=SLDTP  SNAP   *SAVEB4,,3,NONE                                         REG      2291
          1410  0310401410 +                      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/05. 20.00.20.      PAGE    52
        SUBSCRIPT PROCESSING.                                         SLD 
  
                          21603                   AX6    3           (00R)  ADDRESS FUNCTION REGISTER            FC50408     6
                               63760              SB7    X6                                                      FC50408     7
          1411  0100001024 +                      CALL   RLL         LOCK ADDRESS FUNCTION REGISTER              FC50408     8
          1412  0100000025 +                      RJ     AIR         ASSIGN INTERMEDIATE REGISTER                REG      2295
          1413  0620001414 +                      PL     B2,SLD25    IF REGISTER FREE                            REG      2296
                          0100000037 +            RJ     ASR         ASSIGN STORE REGISTER                       REG      2297
          1414  5130001333 +             SLD25    SA3    SAVEB2      (0TR) ADDRESS FUNCTION REGISTER             REG      2298
                          63530                   SB5    X3                                                      REG      2299
                               76620              SX6    B2          (0TR) *I* REGISTER                          REG      2300
          1415  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
          1416  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
          1417  7277001000                        SX7    X7+XMT/1S3                                              REG      2314
                          20760                   LX7    PB.INSTP+3                                              REG      2315
                               66520              SB5    B2                                                      REG      2316
          1420  6120001421 +                      WCODE  X7                                                      REG      2317
                                                                                                                 REG      2318
                                        *         ADJUST/RESTORE REGISTERS                                       REG      2319
                                                                                                                 REG      2320
          1421  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
          1422  20603                             LX6    3           (0R0) NEW ADDRESS FUNCTION REGISTER         REG      2325
          1423  5110001336 +             SLD3     SA1    AFSTS                                                   REG      2326
                          63710                   SB7    X1          ORDINAL IN TABLE OF STATUS WORD             REG      2327
                               21122              AX1    18                                                      REG      2328
          1424  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
          1425  10755                             BX7    X5                                                      REG      2332
                     5120001334 +                 SA2    TRIP        GET TROUBLE INDICATOR                       REG      2333
                               20761              SBIT   X7,P2.INTRP                                             REG      2334
          1426  0327001430 +                      PL     X7,SLD31    IF NOT INTERMEDIATE                         REG      2335
                          15732                   BX7    -X2*X3      (X7) = 0 IF TRIP=1 OR UUC IF TRIP=0         REG      2336
          1427  5170000000 X                      SA7    UUC         RESET UUC TO AVOID DOUBLE USE DECRIMENT     REG      2337
          1430  6130000000               SLD31    SB3    0           TYPE=UPPER                                  REG      2338
                          0100001274 +            RJ     STS         SET TAG STATUS                              REG      2339
          1431  10733                             BX7    X3                                                      REG      2340
                     5170000000 X                 SA7    UUC         RESTORE UUC                                 REG      2341
                               21603              AX6    3                                                       REG      2342
          1432  63760                             SB7    X6                                                      REG      2343
                     0100001024 +                 RJ     RLL         LOCK ADDRESS FUNCTION REGISTER              FC51150     9
          1433  5110001325 +                      SA1    ALREG                                                   FC51150    10
                          76620                   SX6    B2                                                      REG      2346
                               10711              BX7    X1                                                      REG      2347
          1434  5160001326 +                      SA6    AFREG                                                   REG      2348
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    53
        SUBSCRIPT PROCESSING.                                         SLD 
  
                          5170000000 X            SA7    RREG        RESET HARD REGISTER FLAG                    REG      2349
          1435  7207777751                        SX0    X7-R.X6                                                 REG      2350
                          0330001440 +            MI     X0,SLD32    IF NOT STORE REGISTER                       REG      2351
          1436  43071                             MX0    -3                                                      REG      2352
                     15070                        BX0    -X0*X7                                                  REG      2353
                          63700                   SB7    X0          (00R) HARD REGISTER FLAG                    REG      2354
          1437  0100001031 +                      RJ     RUL         UNLOCK HARD REGISTER                        REG      2355
          1440  6130000011 +             SLD32    SB3    RG=LOAD                                                 REG      2356
                          0100000360 +            RJ     GNR         GET ARRAY LOAD REGISTER                     REG      2357
          1441  76720                             SX7    B2                                                      REG      2358
                     5170001333 +                 SA7    SAVEB2                                                  FC51150    11
          1442  5154000002                        SA5    B4+OR.2OP    ADDRESS FUNCTION TAG                       FC51150    12
                          6130000011 +            SB3    RG=LOAD                                                 REG      2361
          1443  66200                             SB2    B0                                                      REG      2362
                     66710                        SB7    B1                                                      REG      2363
                          0100000441 +            RJ     GST         GET STATUS OF ADDRESS FUNCTION (AGAIN)      REG      2364
          1444  5120000467 +                      SA2    GSTC                                                    REG      2365
                          10722                   BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS    REG      2366
          1445  5170001336 +                      SA7    AFSTS                                                   REG      2367
                          6160401445 +            SB6    "BLOWUP"    **** DEBUG ****                             REG      2368
          1446  0520001450 +                      NZ     B2,SLD35    IF TAG IN REGISTER                          REG      2369
                          5120001334 +            SA2    TRIP                                                    REG      2370
          1447  73621                             =X6    X2+1                                                    FC50131    17
                     54620                        SA6    A2          INCREMENT TRIP HISTORY                      REG      2372
                          0400001373 +            EQ     SLD2                                                    REG      2373
                                                                                                                 REG      2374
          1450  5150001333 +             SLD35    SA5    SAVEB2                                                  REG      2375
                          63250                   SB2    X5          RESTORE B2                                  REG      2376
          1451  6122000010                        SB2    B2+REG.X-REG.A                                          REG      2377
                          5154000001              SA5    B4+OR.1OP                                               REG      2378
          1452  76620                             SX6    B2                                                      REG      2379
                     10755                        BX7    X5          ARRAY TAG - PASS 3 FORMAT                   REG      2380
                          5160001325 +            SA6    ALREG                                                   REG      2381
          1453  5170001321 +                      SA7    ALTAG                                                   REG      2382
                          5130001326 +            SA3    AFREG                                                   REG      2383
          1454  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
          1455  7140051000                        SX4    SA=BK                                                   REG      2388
                          0303001457 +            ZR     X3,SLD4     IF *B* REGISTER                             REG      2389
          1456  7140052000                        SX4    SA=XK                                                   REG      2390
                          0100001031 +            RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            REG      2391
          1457  5130000000 X             SLD4     SA3    TYPLOD      TYPE OF LOAD (0=UPPER HALF, 1= LOWER HALF)  REG      2392
                          5110001331 +            SA1    ADDRS                                                   REG      2393
          1460  10711                             BX7    X1                                                      REG      2394
                     5170001327 +                 SA7    ADDR                                                    REG      2395
          1461  5110001332 +                      SA1    STORES                                                  REG      2396
                          10711                   BX7    X1                                                      REG      2397
          1462  5170001330 +                      SA7    STORE                                                   REG      2398
                          5110001321 +            SA1    ALTAG       ARRAY LOAD TAG                              REG      2399
          1463  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/05. 20.00.20.      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
                     5120001327 +                 SA2    ADDR                                                    REG      2410
                               36113              IX1    X1+X3                                                   REG      2411
          1464  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
          1465  0337001467 +                      MI     X7,SLD40    IF LCM REF                                  REG      2416
                          20351                   SBIT   X3,P2.FPP                                               REG      2417
          1466  0323001510 +                      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
          1467  10711                    SLD40    BX7    X1                                                      REG      2423
                     5170001335 +                 SA7    SAVEX1      SAVE X1                                     REG      2424
          1470  0100001024 +                      RJ     RLL                                                     REG      2425
          1471  5110001325 +                      SA1    ALREG                                                   REG      2426
                          7221777751              SX2    X1-R.X6                                                 REG      2427
          1472  0332001474 +                      MI     X2,SLD42    IF NOT STORE REG, REG LOCK  IS NOT ON.      REG      2428
                          6271777757              SB7    X1-REG.X                                                REG      2429
          1473  0100001024 +                      RJ     RLL         HARD STORE REG MUST BE LOCKED.              REG      2430
                                                                                                                 REG      2431
          1474  5110001335 +             SLD42    SA1    SAVEX1                                                  REG      2432
                          10711                   BX7    X1                                                      REG      2433
                               20750              HX7    P2.LCM                                                  REG      2434
          1475  0337001533 +                      MI     X7,SLD100   IF LCM REF                                  REG      2435
                          0100000506 +            RJ     LFP         LOAD ADDRESS OF FP                          REG      2436
          1476  5130001325 +                      SA3    ALREG                                                   REG      2437
                          7203777751              SX0    X3-R.X6                                                 REG      2438
          1477  0330001501 +                      MI     X0,SLD44    IF NOT A STORE REG                          REG      2439
                          6273777757              SB7    X3-REG.X                                                REG      2440
          1500  0100001031 +                      RJ     RUL         UNLOCK HARD STORE REG                       REG      2441
          1501  5130001326 +             SLD44    SA3    AFREG                                                   REG      2442
                          43071                   MX0    -3                                                      REG      2443
                               15330              BX3    -X0*X3      (00R) ADDRESS FUNCTION REGISTER             REG      2444
          1502  63730                             SB7    X3                                                      REG      2445
                     0100001031 +                 RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            REG      2446
          1503  5130001326 +                      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
          1504  7110053000                        SX1    SA=XB                                                   REG      2450
                          5120001327 +            SA2    ADDR                                                    REG      2451
          1505  0313001506 +                      NZ     X3,SLD6     IF NOT IN *B* REGISTER                      REG      2452
                          7110056000              SX1    SA=BB                                                   REG      2453
          1506  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
          1507  0400001516 +                      EQ     SL.CMP      CONTINUE                                    REG      2457
                                                                                                                 REG      2458
                                        **        ADD IN BIAS FIELD FOR TAG IN (X1)                              REG      2459
                                                                                                                 REG      2460
          1510  43044                    SLD8     MX0    -P2.BIASL                                               FC50760     6
                     10711                        BX7     X1                                                     FC50760     7
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    55
        SUBSCRIPT PROCESSING.                                         SLD 
  
                          20750                   LX7    -P2.BIASP                                               FC50760     8
                               15770              BX7    -X0*X7      (X7) = BIAS                                 FC50760     9
          1511  10277                             BX2    X7                                                      FC50760    10
                     5170000642 +                 SA7    BIAS                                                    FC50760    11
                               20244              LX2    -P2.BIASL                                               FC50760    12
          1512  21265                             AX2    -P2.BIASL+17                                            FC50760    13
                     20455                        LX4    PB.INSTP    OP-CODE                                     FC50760    14
                          0312001537 +            NZ     X2,SLD102   IF ABS(BIAS) .GT. 2**17                     FC50760    15
          1513  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
          1514  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
          1515  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
          1516  5120001326 +             SL.CMP   SA2    AFREG                                                   REG      2479
                          43071                   MX0    -3                                                      REG      2480
                               15420              BX4    -X0*X2      EXTRACT *J* REGISTER                        REG      2481
          1517  20460                             LX4    -12                                                     REG      2482
                     36774                        IX7    X7+X4       ADD IN *J* REGISTER                         REG      2483
                          5110001325 +            SA1    ALREG                                                   REG      2484
          1520  15610                             BX6    -X0*X1                                                  REG      2485
                     20663                        LX6    60-9        *I* REGISTER                                REG      2486
                          36767                   IX7    X6+X7       ADD IN *I* REGISTER                         REG      2487
          1521  6120001522 +                      WCODE  X7          COMPILE ARRAY LOAD                          REG      2488
                                                                                                                 REG      2489
          1522  5150001327 +             SLCMPQ   SA5    ADDR                                                    REG      2490
                          5120001325 +            SA2    ALREG       (0TR)                                       REG      2491
          1523  0305001524 +                      ZR     X5,SL.CMP0  IF ADDRESS NOT REQUESTED                    REG      2492
                          7150004000              =X5    P2.ADDRM                                                REG      2493
          1524  7255020000               SL.CMP0  =X5    X5+P2.ARRM                                              REG      2494
                          5110000000 X            SA1    TYPLOD                                                  REG      2495
          1525  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
          1526  5150001322 +                      SA5    SAVEB4                                                  REG      2505
                          76700                   =X7    0                                                       REG      2506
                               54151              =A1    A5+1                                                    REG      2507
          1527  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/05. 20.00.20.      PAGE    56
        SUBSCRIPT PROCESSING.                                         SLD 
  
          1530  54211                             =A2    A1+1                                                    REG      2511
                     5130000000 X                 SA3    NOLDS                                                   REG      2512
          1531  5170001326 +                      SA7    AFREG                                                   REG      2513
                          53410                   SA4    X1          RESTORE *A4*                                REG      2514
                               73731              =X7    X3+1                                                    REG      2515
          1532  10422                             BX4    X2          RESTORE *X4*                                REG      2516
                     54730                        SA7    A3          UPDATE NO. OF LOADS                         REG      2517
                          0400001342 +            EQ     EXIT.                                                   REG      2518
                                                                                                                 REG      2519
          1533  5150001321 +             SLD100   SA5    ALTAG                                                   REG      2520
                          5110000000 X            SA1    TYPLOD                                                  FC50010     9
          1534  20124                             LX1    P2.BIASP                                                FC50010    10
                     36515                        IX5    X1+X5       ADD 1 IF LOWER                              FC50010    11
                          0100000531 +            RJ     LLA         LOAD LCM ADDRESS                            REG      2521
          1535  0100000727 +                      RJ     LLV         LOAD LCM VALUE                              REG      2522
          1536  0400001522 +                      EQ     SLCMPQ                                                  REG      2523
                                                                                                                 FC50131    18
                                        *         HERE IF CA FIELD OVERFLOWS                                     FC50760    16
                                                                                                                 FC50760    17
          1537  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
          1540  12774                             BX7    X7+X4                                                   FC50760    22
                     5170001561 +                 SA7    SLAA                                                    FC50760    23
          1541  6130000011 +                      SB3    RG=LOAD                                                 FC50760    24
                          0100000360 +            CALL   GNR                                                     FC50760    25
          1542  21603                             AX6    3                                                       FC50760    26
                     5160001562 +                 SA6    SLBB        CA LOAD REG                                 FC50760    27
                               43001              MX0    1                                                       FC50760    28
          1543  20015                             LX0    1+P2.SHRTP                                              FC50760    29
                     5120000642 +                 SA2    BIAS                                                    FC50760    30
                               20224              LX2    P2.BIASP                                                FC50760    31
          1544  12502                             BX5    X0+X2                                                   FC50760    32
                     0100000000 X                 CALL   ESC         EXPAND SHORT CONSTANT                       FC50760    33
          1545  7100051000                        SX0    SA=BK                                                   FC50760    34
                          20055                   LX0    PB.INSTP                                                FC50760    35
                               20314              LX3    PB.BIASP    (X3) = BIAS IN T.CON                        FC50760    36
          1546  20136                             LX1    PB.TAGP     (X1) = (S=CON)                              FC50760    37
                     12603                        BX6    X0+X3                                                   FC50760    38
                          5130001562 +            SA3    SLBB        CA LOAD REG                                 FC50760    39
          1547  12761                             BX7    X6+X1                                                   FC50760    40
                     20363                        LX3    PB.IP                                                   FC50760    41
                          12773                   BX7    X7+X3                                                   FC50760    42
          1550  6120001551 +                      WCODE  X7          SA    CON.+K                                FC50760    43
          1551  7120036000                        SX2    IA                                                      FC50760    44
                          20255                   LX2    PB.INSTP    OP-CODE                                     FC50760    45
          1552  5130001326 +                      SA3    AFREG                                                   FC50760    46
                          43071                   MX0    -3                                                      FC50760    47
                               15430              BX4    -X0*X3                                                  FC50760    48
          1553  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
          1554  12243                             BX2    X4+X3                                                   FC50760    53
                     5150001562 +                 SA5    SLBB                                                    FC50760    54
                               20555              LX5    PB.KP       K REG                                       FC50760    55
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    57
        SUBSCRIPT PROCESSING.                                         SLD 
  
          1555  12725                             BX7    X2+X5                                                   FC50760    56
                     6120001557 +                 WCODE  X7          IX    JX + KX                               FC50760    57
          1557  5120001561 +                      SA2    SLAA                                                    FC50760    58
                          10722                   BX7    X2                                                      FC50760    59
          1560  0400001516 +                      EQ     SL.CMP                                                  FC50760    60
                                                                                                                 FC50760    61
          1561                     1     SLAA     BSS    1                                                       FC50760    62
          1562                     1     SLBB     BSS    1                                                       FC50760    63
          1563                     1     ALREGS   BSS    1           LOCAL COPY ALREG                            FC50131    19
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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
          1564  0400401564 +             REGPRO   SUBR               ...ENTRY/EXIT...                            REG      2538
          1565  5110000000 X                      SA1    CO.SNAP                                                 REG      2539
                          20110                   LX1    1RH                                                     REG      2540
          1566  0321001564 +                      PL     X1,REGPROX  IF NOT REQUESTED.                           REG      2541
                          5110001624 +            SA1    =7L                                                     REG      2542
          1567  12616                             BX6    X1+X6                                                   REG      2543
                     5160001614 +                 SA6    REGLNN      CALLER NAME.                                REG      2544
          1570  0100000000 X             REGFILE  CORE   REGFILE,L.RGFILE                                        REG      2545
          1571  0100000000 X                      CALL   SVR=                                                    REG      2546
          1572  5110000004 X                      SA1    SVB+4                                                   REG      2547
                          5120000000 X            SA2    T.PAR                                                   REG      2548
          1573  73010                             SX0    X1                                                      REG      2549
                     37102                        IX1    X0-X2                                                   REG      2550
                          0100000000 X            CALL   COD         CONVERT TO DPC                              REG      2551
          1574  5160001612 +                      SA6    REGLNO                                                  REG      2552
                          5110000002 X            SA1    SVB+2                                                   REG      2553
          1575  73110                             SX1    X1                                                      REG      2554
                     0100000000 X                 CALL   COD         CONVERT TO DPC                              REG      2555
          1576  5160001613 +                      SA6    REGLNW                                                  REG      2556
                          5110000000 X            SA1    RGC                                                     REG      2557
          1577  0100000000 X                      CALL   COD                                                     REG      2558
          1600  5160001616 +                      SA6    REGRGC                                                  REG      2559
                          5110000000 X            SA1    RGX                                                     REG      2560
          1601  0100000000 X                      CALL   COD                                                     REG      2561
          1602  5160001620 +                      SA6    REGRGX                                                  REG      2562
                          7110001607 +            PLINE  REGLN,10    PRINT CONTENTS OF RGC, RGX                  REG      2563
          1605  0100000000 X                      CALL   RSR=                                                    REG      2564
          1606  0400001564 +                      EQ     REGPRO      CONTINUE                                    REG      2565
                                                                                                                 REG      2566
          1607  55220507112324052255     REGLN    DATA   30H REGISTER REASSIGNMENT -HELP-                        REG      2567
          1612  55555555555555555555     REGLNO   DATA   10H                                                     REG      2568
          1613  55555555555555555555     REGLNW   DATA   10H                                                     REG      2569
          1614  00000000000000000000     REGLNN   DATA   0                                                       REG      2570
          1615  55552207035554555555              DATA   10H  RGC =                                              REG      2571
          1616  00000000000000000000     REGRGC   DATA   0                                                       REG      2572
          1617  55552207305554555555              DATA   10H  RGX =                                              REG      2573
          1620  00000000000000000000     REGRGX   DATA   0                                                       REG      2574
                                                                                                                 REG      2575
                                         .TEST    ENDIF                                                          REG      2576
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      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.
  
          1621  77777777777777400000    ;;;;;;;5
          1622  77777777777774000000    ;;;;;;@ 
          1623  00000000000000400777           5G;
          1624  55555555555555000000
  
          1723                                    END                                                            REG      2579
  
                             76000B CM  STORAGE USED             7867 STATEMENTS     1934 SYMBOLS      000020 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.755 SECONDS        1612 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDR         1327   PROGRAM*        9/18 S   10/53     49/05 L   54/05     55/37
                                           10/14     33/22     53/47 S   54/46
        ADDRS        1331   PROGRAM*       49/07 L   50/35 S   53/45
        AFREG        1326   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        1336   PROGRAM*       49/12 L   51/09 S   52/35     53/19 S
        AIR            25   PROGRAM*        3/32 L    3/32 E   52/04
        AIR1           32   PROGRAM*        3/40      3/43 L
        ALREG        1325   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       1563   PROGRAM*       50/43 S   51/30     57/09 L
        ALTAG        1321   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          642   PROGRAM*       23/43     28/48     29/50     31/11 L   56/32
                                           28/21 S   29/01     30/28     55/04 S
        BIASF         647   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/39      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
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        CIW           124   PROGRAM*        6/36      6/42      8/13 L
        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       1042   PROGRAM*       38/32 D   38/32 E
        CLOADK       1041   PROGRAM*       38/31 D
        CLP           224   PROGRAM*       12/10 L   33/08
        CLR         13000                  35/53
        COD             0   EXTERNAL*       1/50 X   58/26     58/30     58/33     58/36
        CO.DBTB         0   EXTERNAL*       1/50 X   12/40
        CO.SNAP         0   EXTERNAL*       1/50 X   17/46     22/43     58/14
        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
        DIT8          324   PROGRAM*       17/45     17/48     17/50 L
        DIT9          325   PROGRAM*       17/53     17/55 L
        DRITE           0   EXTERNAL*       2/05 X    6/24      6/44      8/14     42/31     43/11 S
        DRL          1400                  31/38     33/46
        DSC           327   PROGRAM*       18/31 L   18/31 E
        DSC1          336   PROGRAM*       18/35     18/42     18/51 L
        DSC2          343   PROGRAM*       18/53     19/12 L
        DSC3          350   PROGRAM*       19/10     19/18     19/23     19/25 L
        DSC.LOD       355   PROGRAM*       19/39     19/43 L
        EIS.PNX         0   EXTERNAL*       1/56 X   49/38
        ENT.SB0         0   EXTERNAL*      34/16 S
        EQV         17000                  35/55
        ESC             0   EXTERNAL*       1/53 X   30/02     56/35
        FPREG         527   PROGRAM*       27/26 L   28/46 S   29/42     30/31     30/53
        FP.SUB0P       22   FTX            34/14
        GNR           360   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          373   PROGRAM*       20/26 S   20/28     20/41 L
        GNR2          364   PROGRAM*       20/24     20/26 L
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        GNR5          366   PROGRAM*       20/21     20/30 L
        GNT           403   PROGRAM*        4/32     15/37     21/38 L   22/46
        GNT10         415   PROGRAM*       22/19     22/34 L
        GNT22         422   PROGRAM*       22/45     22/47 L
        GNT5          412   PROGRAM*       22/14     22/17 L
        GPN           374   PROGRAM*       20/56 L   34/35
        GPT           423   PROGRAM*       12/11     23/11 L
        GPT10         435   PROGRAM*       23/33     23/43 L
        GST           441   PROGRAM*       18/32     24/21 L   24/21 E   32/11     39/32     42/48     51/06     53/16
        GSTC          467   PROGRAM*       24/42 S   25/28 L   25/28 E   43/38     51/07     53/17
        GST1          462   PROGRAM*       24/51     25/08     25/17 L
        GST2          463   PROGRAM*       25/11     25/15     25/20 L
        GTR           470   PROGRAM*       25/45 L   25/45 E
        GTR10         504   PROGRAM*       26/08     26/11     26/20 L
        GTR5          476   PROGRAM*       25/50     26/02 L
        IA          36000                  29/13     30/43     56/46
        IDP=SVA         0   EXTERNAL*       2/02 X   17/49     22/46     22/46
        IDP=SVB         0   EXTERNAL*       2/02 X   22/46     22/46     51/53     51/53
        IDP=SVX         0   EXTERNAL*       2/02 X   17/49     22/46     22/46     22/46     22/46     51/53
        IJK             0   EXTERNAL*       1/56 X   40/48
        INS.REG         0   EXTERNAL*       1/56 X   32/18     32/26 S   40/50
        INT.REG      1137   PROGRAM*       40/23 S   41/13     41/22     41/45 L
        INT.TAG      1136   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           506   PROGRAM*       26/44 L   54/31
        LFPA          530   PROGRAM*       26/55 S   26/57     27/27 L   32/54 S   33/03
        LFP10         523   PROGRAM*       27/15     27/17 L
        LFP4          514   PROGRAM*       26/51     26/55 L
        LINS          726   PROGRAM*       31/34     32/53 S   33/14 L   33/52 S
        LLA           531   PROGRAM*       11/28     28/14 L   56/14
        LLAA          644   PROGRAM*       28/47 S   29/08 S   30/41     31/13 L
        LLAB          645   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          646   PROGRAM*       29/54 S   30/03     31/15 L
        LLA10         541   PROGRAM*       28/27     28/32 L
        LLA100        632   PROGRAM*       30/38     30/53 L
        LLA11         546   PROGRAM*       28/39     28/41     28/45 L
        LLA110        637   PROGRAM*       30/57     31/06 L
        LLA13         552   PROGRAM*       28/52     28/54 L
        LLA14         574   PROGRAM*       29/27     29/35 L
        LLA14A        575   PROGRAM*       29/30     29/33     29/38 L
        LLA15         577   PROGRAM*       29/42 L   30/29
        LLA30         603   PROGRAM*       29/24     29/40     29/50 L
        LLA40         614   PROGRAM*       29/52     30/15 L
        LLA50         620   PROGRAM*       29/03     30/28 L
        LLA90         625   PROGRAM*       29/05     30/13     30/24     30/40 L
        LLB           650   PROGRAM*       28/45     31/27 L
        LLB10         715   PROGRAM*       33/03 L   33/09
        LLB20         717   PROGRAM*       32/57     33/08 L
        LLB8          707   PROGRAM*       32/24     32/30     32/32     32/42     32/44 L
        LLB9          712   PROGRAM*       31/35     31/37     31/43     31/49     31/51     31/53     32/51 L
        LLSV          721   PROGRAM*       31/55 S   32/44     33/11 L
        LLV           727   PROGRAM*       11/29     33/21 L   56/15
        LLVTAG        754   PROGRAM*       33/33 S   34/07     34/20 L
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        LLV20         744   PROGRAM*       33/44     33/55 L
        LPA           755   PROGRAM*       10/13     26/56     33/01     34/30 L
        LPA10         762   PROGRAM*       34/38     34/41 L
        LSC           765   PROGRAM*       35/15 L   35/15 E
        LSCA         1014   PROGRAM*       35/23 S   35/34     36/22 L
        LSC10         774   PROGRAM*       35/25     35/27     35/31 L
        LSC20         775   PROGRAM*       35/29     35/33 L
        LSC21        1001   PROGRAM*       35/42     35/44 L
        LSC22        1004   PROGRAM*       35/45     35/52 L
        LSC24        1006   PROGRAM*       35/54     35/56 L
        LSC30        1007   PROGRAM*       35/46     35/48     35/52     36/08 L
        LTG          1016   PROGRAM*       37/18 L   37/18 E   51/23
        LTGA         1023   PROGRAM*       37/23 S   37/25     37/30 L
        L.RGFILE       30                   7/22     58/20
        MAX.USEC      777                  32/19     38/20
        M.DBL           4   FTX            17/12
        NOLDS           0   EXTERNAL*       2/05 X   56/02
        N.ST            0   EXTERNAL*       2/08 X   21/44
        N.TABLE         0   EXTERNAL*       2/08 X   24/31
        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     49/31     50/36     53/12
        O=PAR        1337   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      1621   PROGRAM*        2/23 E    8/36     51/20
        P2.ADDRM     4000                  55/40
        P2.ADDRP       13                   9/16     50/31
        P2.ARRM     20000                  55/41
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        P2.ARRP        15                   4/24     40/10     44/22     44/39     45/01
        P2.BIASL       30                   2/24     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/24      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/24     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/24     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/24
        P2.2ATRP       21                   2/24
        REGE         1273   PROGRAM*       31/36     32/04     45/41     45/44 S   46/35 S   47/04 L
        REGFILE         0   RGFILE          3/50      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     58/20
                                            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        1040   PROGRAM*       32/27     32/33 S   38/30 L   38/30 E   38/31     38/32
        REGLN        1607   PROGRAM*       58/38     58/42 L
        REGLNN       1614   PROGRAM*       58/19 S   58/45 L
        REGLNO       1612   PROGRAM*       58/27 S   58/43 L
        REGLNW       1613   PROGRAM*       58/31 S   58/44 L
        REGPRO       1564   PROGRAM*       40/08     58/13 L   58/40
        REGRGC       1616   PROGRAM*       58/34 S   58/47 L
        REGRGX       1620   PROGRAM*       58/37 S   58/49 L
        REG=            0   EXTERNAL*       2/02 X   17/49
        REG.A          10                   3/08     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/05
        REG.X          20                   3/06      3/11     16/08     31/50     37/49     48/30 S   52/15 S
                                            3/07      8/32     19/19     32/16     38/14     51/14     53/29
                                            3/09      8/42     20/33     32/25     39/05     51/29     54/24
                                            3/10     15/41     25/12     32/36     43/04     51/41     54/35
        RGC             0   EXTERNAL*       2/05 X   58/32
        RGX             0   EXTERNAL*       2/05 X    3/48      4/26     20/22     25/49     46/02 S   46/57 S   58/35
        RG=BADR         0   PROGRAM*        3/05 E    3/05 L   19/45     27/05     27/05     35/37
        RG=INTR         3   PROGRAM*        3/06 E    3/06 L    3/33
        RG=LOAD        11   PROGRAM*        3/08 E    3/43     19/44     26/52     29/45     51/03     53/13
                                            3/08 L    9/54     20/30     29/35     31/28     53/08     56/26
        RG=LODX        14   PROGRAM*        3/09 E    3/09 L   19/26     19/46     43/45
        RG=SET         17   PROGRAM*        3/10 E    3/10 L   28/28     29/28
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        RG=STOR        22   PROGRAM*        3/11 E    3/11 L    4/14     29/31     40/22
        RG=TEMP         6   PROGRAM*        3/07 E    3/07 L   25/46
        RG.TYPP        20                  21/41     21/47     32/07     39/28     42/33     42/38     47/54
        RG.USEL        11                   3/47      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          1024   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
        RLOCK         400                  19/07     26/04     37/48     37/48     38/12     38/12     46/19     48/06
        RREG            0   EXTERNAL*       2/05 X    6/32      6/37     18/36     35/22     45/56     50/37     53/01 S
        RSR=            0   EXTERNAL*       2/02 X   58/39
        RS.INSL         6                   3/05      3/06      3/07      3/08      3/09      3/10      3/11
        RS.MSKL        22                   3/05      3/06      3/07      3/08      3/09      3/10      3/11     46/22
        RS.MSKP        44                  46/18
        RS.NUML        22                   3/05      3/06      3/07      3/08      3/09      3/10      3/11     46/15
        RS.NUMP        22                  45/57     46/18
        RS.TYPL        22                   3/05      3/06      3/07      3/08      3/09      3/10      3/11
        RUL          1031   PROGRAM*       30/55     31/08     38/11 E   53/43     54/41
                                           31/04     38/11 L   53/07     54/36
        RUL1         1036   PROGRAM*       38/22     38/25 L
        RUT          1052   PROGRAM*        4/29      7/46     20/27     20/38     25/52     26/20     39/18 L   39/18 E
        RUTA         1132   PROGRAM*       38/54     39/21 S   41/33 S   41/36     41/42 L
        RUT20        1067   PROGRAM*       39/52     40/04 L
        RUT25        1072   PROGRAM*       40/11     40/17 L
        RUT25A       1101   PROGRAM*       40/34 L   40/52
        RUT25B       1104   PROGRAM*       40/35     40/40 L
        RUT25C       1105   PROGRAM*       40/38     40/43 L
        RUT26        1107   PROGRAM*       40/31     40/32     40/48 L
        RUT26A       1112   PROGRAM*       40/27     40/49     40/54 L
        RUT27        1120   PROGRAM*       40/43     40/55     41/01     41/11 L
        RUT28        1126   PROGRAM*       40/20     41/31 L
        RUT35        1051   PROGRAM*       39/07     39/11     39/13 L
        RUT5         1056   PROGRAM*       39/25 L   40/46     41/03     41/07
        RUT6         1063   PROGRAM*       39/35     39/44 L
        RUT.ADR      1135   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/56 X    7/25 S   40/26
        RUT.TYP      1140   PROGRAM*       39/31 S   39/44     41/46 L
        RUT.X        1044   PROGRAM*       38/54 L   39/22     41/21
        R.B1            1                   3/05      3/05
        R.B2            2                   3/05      3/05
        R.B3            3                   3/05      3/05
        R.B4            4                   3/05      3/05
        R.B5            5                   3/05      3/05
        R.X0           20                   3/06      3/06      3/07      3/07      3/10      3/10
        R.X1           21                   3/07      3/07      3/08      3/08      3/09      3/09      3/10      3/10
        R.X2           22                   3/07      3/07      3/08      3/08      3/09      3/09      3/10      3/10
        R.X3           23                   3/07      3/07      3/08      3/08      3/09      3/09      3/10      3/10
        R.X4           24                   3/07      3/07      3/08      3/08      3/09      3/09      3/10      3/10
        R.X5           25                   3/07      3/07      3/08      3/08      3/09      3/09      3/10      3/10
        R.X6           26                   3/06      3/11     15/42     26/47     32/25     40/34     53/02
                                            3/06      9/42     18/52     32/12     32/36     40/40     54/22
                                            3/11     11/21     26/02     32/16     40/17     50/45     54/33
        R.X7           27                   3/06      3/06      3/11      3/11     26/03     40/36
        SAVEB2       1333   PROGRAM*       49/09 L   51/36     52/07     53/11 S   53/27
        SAVEB4       1322   PROGRAM*       49/02 L   50/23 S   51/54     55/52
        SAVEX1       1335   PROGRAM*       49/11 L   54/19 S   54/27
        SA=AB       54000                   8/23     15/09     34/39
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        SA=AK       50000                  34/37     50/33
        SA=BB       56000                  54/48
        SA=BK       51000                   3/08     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/05     35/43
        SB=XB       63000                  15/09     15/10     27/16
        SB=XK       62000                  27/13
        SDS          1143   PROGRAM*       42/28 L   42/28 E
        SDSA         1236   PROGRAM*       42/20     42/34 S   43/10     43/43 S   43/48     43/56     45/14 L
        SDSX2        1234   PROGRAM*       44/18 S   45/07     45/11 L
        SDSX5        1235   PROGRAM*       44/16 S   45/08     45/12 L
        SDS10        1152   PROGRAM*       42/40     42/41     42/46 L
        SDS12        1160   PROGRAM*       43/01     43/07 L
        SDS15        1161   PROGRAM*       42/53     43/10 L
        SDS16        1170   PROGRAM*       43/27     43/29 L
        SDS20        1172   PROGRAM*       43/26     43/33 L
        SDS22        1176   PROGRAM*       43/41     43/43 L
        SDS32        1210   PROGRAM*       43/28     43/42     44/14 L
        SDS34        1215   PROGRAM*       44/27 L   44/35     44/52     44/57     45/02     45/05
        SDS35        1216   PROGRAM*       44/30 L
        SDS38        1222   PROGRAM*       44/42 L
        SDS40        1226   PROGRAM*       44/38     44/40     44/54 L
        SDS42        1232   PROGRAM*       44/23     44/28     45/07 L
        SDS.X        1141   PROGRAM*       42/20 L   43/31     43/40     43/47     44/07     44/51
        SETREG        643   PROGRAM*       28/36 S   29/06     29/20     30/30     30/40     31/06     31/12 L   33/41
        SFR          1244   PROGRAM*        3/34      4/15     25/47     29/29     40/25     45/53 L
                                            3/44     20/20     27/06     29/32     43/46     45/53 E
        SFRA         1272   PROGRAM*       45/49     46/20 S   47/03 L
        SFR10        1260   PROGRAM*       46/33 L   46/48
        SFR12        1263   PROGRAM*       46/37     46/42 L   46/54     46/55     47/01
        SFR5         1253   PROGRAM*       46/03     46/14 L
        SFR.X        1240   PROGRAM*       45/41 L   46/40     46/42
        SLAA         1561   PROGRAM*       56/25 S   57/03     57/07 L
        SLBB         1562   PROGRAM*       56/29 S   56/41     56/56     57/08 L
        SLCMPQ       1522   PROGRAM*       55/37 L   56/16
        SLD          1342   PROGRAM*       50/15 L   50/15 E   51/53
        SLD1         1351   PROGRAM*       50/32     50/35 L
        SLD100       1533   PROGRAM*       54/30     56/10 L
        SLD102       1537   PROGRAM*       55/08     56/20 L
        SLD15        1361   PROGRAM*       50/46     50/57 L
        SLD2         1373   PROGRAM*       51/11     51/20 L   53/25
        SLD21        1401   PROGRAM*       51/26     51/34 L
        SLD23        1405   PROGRAM*       51/40     51/43 L
        SLD25        1414   PROGRAM*       52/05     52/07 L
        SLD3         1423   PROGRAM*       51/17     51/19     51/35     51/43     52/35 L
        SLD31        1430   PROGRAM*       52/44     52/47 L
        SLD32        1440   PROGRAM*       53/03     53/08 L
        SLD35        1450   PROGRAM*       53/21     53/27 L
        SLD4         1457   PROGRAM*       53/41     53/44 L
        SLD40        1467   PROGRAM*       54/11     54/18 L
        SLD42        1474   PROGRAM*       54/23     54/27 L
        SLD44        1501   PROGRAM*       54/34     54/37 L
        SLD6         1506   PROGRAM*       54/47     54/49 L
        SLD8         1510   PROGRAM*       54/13     54/56 L
        SL.CMP       1516   PROGRAM*       54/52     55/26 L   57/05
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        SL.CMP0      1524   PROGRAM*       55/39     55/41 L
        SNP=            0   EXTERNAL*       2/02 X   22/46     51/53     51/54     58/20
        STATUS        465   PROGRAM*        5/33     16/55     24/41     25/25 L   47/40
        STORE        1330   PROGRAM*        9/14 S    9/45 S   28/23     28/40     33/43     49/06 L   53/50 S
        STORES       1332   PROGRAM*       49/08 L   50/30 S   50/56 S   53/48
        STRGLK       1043   PROGRAM*       19/05 S   38/33 L   38/33 E
        STS          1274   PROGRAM*       17/54     32/15     43/29     44/06     47/36 L   47/36 E   52/48
        STSA         1313   PROGRAM*       48/17     48/21 L
        STS1         1314   PROGRAM*       48/05     48/08     48/11     48/19     48/24 L
        STS2         1320   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/02 X   58/22     58/28
        SVB2          725   PROGRAM*       32/10 S   32/13     33/13 L
        SVR=            0   EXTERNAL*       2/02 X   58/21
        SVX2          724   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/09      3/11     10/55     30/18     35/41
        SX=XK       72000                   3/06      3/07      3/10     10/20
        S=ST            0   EXTERNAL*       2/08 X   22/21
        TEST            1   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.ARRL         1   FTX            49/32
        TP.ARRP        15   FTX            49/32
        TP.INTRL        1   FTX            49/32
        TP.INTRP       12   FTX            49/32
        TP.ORBIL       50   FTX            28/50
        TRIP         1334   PROGRAM*       49/10 L   51/02 S   51/34     52/42     53/22
        TYPLOD          0   EXTERNAL*       2/05 X   50/44 S   53/44     55/42     56/11
        T=SYM           0   EXTERNAL*       2/08 X   21/05
        T.BLKS          0   EXTERNAL*       2/08 X   23/21
        T.FPI           0   EXTERNAL*      34/10
        T.OUS           0   EXTERNAL*       2/08 X   17/04     21/40     24/23     25/29
        T.PAR           0   EXTERNAL*       2/08 X    5/31     17/09     44/43     50/18     55/55     58/23
        T.SYM           0   EXTERNAL*       2/08 X   21/09     23/12     33/23
        UUC             0   EXTERNAL*       2/05 X   47/37     48/25     52/39     52/46 S   52/50 S
        V=STR.I         0   EXTERNAL*       2/11 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.FPL          1   FTX            21/15
        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.FPP         20   FTX            21/15
        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
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/05. 20.00.20.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        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/05 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/08 X   58/38
        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
        .9              0                  22/46 D   22/46     51/53 D   51/53     51/54 D   51/54     58/20 D   58/20
                                           22/46     22/46 D   51/53     51/53 D   51/54     51/54 D   58/20
                                           22/46 D   22/46     51/53 D   51/53     51/54 D   51/54     58/20 D
                                           22/46     22/46 D   51/53     51/54 D   51/54     58/20 D   58/20
                                           22/46 D   22/46     51/53 D   51/54     51/54 D   58/20     58/20 D
                                           22/46     51/53 D   51/53     51/54 D   51/54     58/20 D   58/20
                                           22/46 D   51/53     51/53 D   51/54     51/54 D   58/20     58/20 D
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1645              IDENT  GEN
                       1645                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1623 
                                        LITERALS* LOCAL        1623         2 
                                        RGFILE    COMMON          0        30 
                                        DEBUG     LOCAL        1625        20 
  
  
                                        ENTRY POINTS. 
  
                                        B=GEN            0+           O=CDCS         562+           O=FINX        1227+ 
                                        EIS              0+           O=CDDOT        564+           O=GFD         1353+ 
                                        EIS.PNX         12+           O=CDLOO        566+           O=HDR         1404+ 
                                        SUB.RET         22+           OCIOL          572+           O=DATA        1442+ 
                                        NULLOP         135+           O=ENT          573+           O=ILL         1455+ 
                                        O=NOOP         135+           O=GENT         603+           O=LCC         1456+ 
                                        O=BVD          135+           O=GENTX        605+           O=PLIM        1462+ 
                                        O=HSBS         135+           O=FPENT        622+           O=RGT         1512+ 
                                        O=HCAT         135+           O=FPHDR        657+           O=SEX         1521+ 
                                        O=HCOL         135+           ISA            661+           O=IM          1571+ 
                                        CURSK          146+           O=EVD         1077+           O=ID          1572+ 
                                        EIS.GP         223+           O=FUNT        1104+           O=MASK        1573+ 
                                        INS.REG        471+           O=MENT        1115+           O=MOD         1574+ 
                                        IJK            473+           ENT.EGL       1147+           O=SHIFT       1575+ 
                                        RUT.REG        500+           ENT.STO       1150+           O=DOB         1576+ 
                                        O=CAR          535+           ENT.SUB       1151+           O=DOBZ        1577+ 
                                        O=CBJ          537+           ENT.SB0       1152+           O=DOC         1602+ 
                                        O=CDW          542+           ENT.VD        1153+           O=PDE         1605+ 
                                        O=PLA          551+           N.ALTEN       1154+           O=PCG         1606+ 
                                        O=CRJ          554+           O=FIN         1212+           O=PASG        1614+ 
  
  
                                        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 
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        BN=CON    S=ENTRY   T=ENTP    DRITE     W=ALENT   CRJ       SDS 
  
  
  
  
                                                  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
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE     3
                                                                      GEN 
  
                                                  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
                                                                     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/05. 20.00.24.      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/05. 20.00.24.      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
            12  5150000000 X                      SA5    CO.SNAP                                                 GEN       165
                          20527                   LX5    1RW                                                     GEN       166
            13  0325000015 +                      PL     X5,PNX1                                                 GEN       167
            14  0100000000 X             TURP=W   REGS   (B4),,1E5                                               GEN       168
            15                           PNX1     BSS    0                                                       GEN       169
                                         .SNAP=W  ENDIF                                                          GEN       170
                                                                                                                 GEN       171
            15  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
            16  0301000017 +                      ZR     X1,PNX4     IF NO LINE NUMBER                           GEN       176
                          0100000501 +            RJ     BOS         BEGINNING OF STATEMENT                      GEN       177
                                                                                                                 FC5A337    21
            17  0305000000 +             PNX4     ZR     X5,EXIT.    IF END OF I. L.                             GEN       178
                          0100000000 X            CALL   RED         REFORMAT OPR FOR EXPANSION AND DEFINITION   GEN       179
            20  5226000000 X                      SA2    X6+F.SCT    LOAD CONTROL WORD FOR SKELETON              GEN       180
                          7170000001              SX7    1+                                                      GEN       181
            21  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
            22                           SUB.RET  BSSENT 0           SUBSKELETON RETURN                          GEN       187
            22  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
            23  5110000000 X                      SA1    CO.SNAP                                                 GEN       192
                          20127                   LX1    1RW                                                     GEN       193
            24  0321000026 +                      PL     X1,SRET1                                                GEN       194
            25  0100000000 X             SKEL=W   REGS   (X6),,1E5                                               GEN       195
            26                           SRET1    BSS    0                                                       GEN       196
                                         .SNAP=W  ENDIF                                                          GEN       197
                                                                                                                 GEN       198
                                                                                                                 GEN       199
            26                           EIS.LNX  BSS    0                                                       GEN       200
            26  7160777774                        SX6    -3                                                      GEN       201
                          13555                   BX5    0           CLEAR REGISTER ASSEMBLE - 000.              GEN       202
            27  5160000473 +                      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/05. 20.00.24.      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
            30  10044                             BX0    X4                                                      GEN       215
                     5170000146 +                 SA7    CURSK                                                   GEN       216
                               21066              AX0    SK.TYPP                                                 GEN       217
            31  43167                             MX1    -SK.TYPL+1                                              GEN       218
                     15701                        BX7    -X1*X0      EXTRACT OPCODE TYPE                         GEN       219
                          63770                   SB7    X7                                                      GEN       220
            32  5170000474 +                      SA7    OPTYP                                                   GEN       221
                          0277000033 +            JP     B7+EIS.TYP                                              GEN       222
                                                                                                                 GEN       223
            33                           EIS.TYP  BSS    0                                                       GEN       224
      L      0                                    LOC    0                                                       GEN       225
      L      0  0400000055 +             M.COND   EQ     EIS.COND    CONDITIONAL                                 GEN       226
      L      1  0400000055 +             M.NORM   EQ     EIS.LN1     ARITHMETIC OPCODES                          GEN       227
      L      2  0400000055 +             M.INCR   EQ     EIS.LN1     LOAD REGISTER                               GEN       228
      L      3  0400000055 +             M.BRAN   EQ     EIS.BRN     BRANCH                                      GEN       229
      L      4  0400000055 +             M.SHIF   EQ     EIS.SHF     SHIFT / XMT                                 GEN       230
      L      5  0400000046 +             M.ICALL  EQ     EIS.CALL    CALL A SUBROUTINE                           GEN       231
      L      6  0400000135 +             M.INOOP  EQ     NULLOP      FOR PROCESSING NOOPS                        GEN       232
      L      7  0400000044 +             M.ISBRN  EQ     EIS.SBRN    FOR BRANCHING TO ANOTHER SKELETON           GEN       233
      L     10  0400000052 +             M.LOAD   EQ     EIS.LOD     LOAD / STORE TURPLE                         GEN       234
      L     11                           L.MTBL   BSS                LENGTH OF TYPE JUMP-VECTOR                  GEN       235
            44                                    LOC    *O                                                      GEN       236
                                                                                                                 GEN       237
                                        **        IF PROCESSING *RESET* SKELETON                                 GEN       238
                                                                                                                 GEN       239
            44                           EIS.SBRN BSS    0                                                       GEN       240
            44  63240                             =B2    X4          GET SKELETON ADDRESS                        GEN       241
                                         .TEST    IFEQ   TEST,ON                                                 GEN       242
                     0720400044 +                 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
            45  0400000026 +                      EQ     EIS.LNX                                                 GEN       246
                                                                                                                 GEN       247
                                        **        IF PROCESSING *CALL* SKELETON                                  GEN       248
                                                                                                                 GEN       249
            46  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
            47  20154                             LX1    P2.TAGP                                                 GEN       258
                     0670000051 +                 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/05. 20.00.24.      PAGE     7
        EIS - EXPAND INSTRUCTION SKELETONS.                           SPECIAL 
  
                                                                                                                 GEN       264
                               63740              SB7    X4                                                      GEN       265
            50  57147                             SA1    B4-B7       LOAD ARGUMENT FROM PARSED FILE              GEN       266
            51  0222000000               EIS.CL5  JP     B2          EXECUTE CALLED ROUTINE                      GEN       267
                                                                                                                 GEN       268
                                        **        IF PROCESSING *LOAD* TYPE INSTRUCTION.                         GEN       269
                                                                                                                 GEN       270
            52  43060                    EIS.LOD  MX0    -SK.QFL                                                 GEN       271
                     15640                        BX6    -X0*X4                                                  GEN       272
                          0306000055 +            ZR     X6,EIS.LN1  IF NO HARD REGISTER SPECIFIED               GEN       273
            53  5160000000 X                      SA6    RREG        SET HARD REGISTER                           GEN       274
                          5160000477 +            SA6    HREG        SET LOCK FLAG                               GEN       275
            54  0400000055 +                      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
            55                           EIS.COND BSS    0                                                       GEN       283
            55                           EIS.BRN  BSS    0                                                       GEN       284
            55                           EIS.SHF  BSS    0                                                       GEN       285
            55                           EIS.NOOP BSS    0                                                       GEN       286
            55  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
            56  21655                             AX6    SK.OPCP                                                 GEN       291
                     5160000472 +                 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
            57  5110000473 +             EIS.NX   SA1    IJK                                                     GEN       297
                          43066                   MX0    -SR.NUML                                                GEN       298
            60  6271777774                        SB7    X1-3                                                    GEN       299
                          0717000115 +            GT     B7,B1,EIS.CMP     IF FINISHED.                          GEN       300
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
            61  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
            62  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
            63  7221777750                        SX2    X1-L.ATABLE                                             GEN       318
                          0322400063 +            PL     X2,"BLOWUP"       IF INDEX OUTSIDE VECTOR               GEN       319
                                         .TEST    ENDIF                                                          GEN       320
            64  5221000066 +                      SA2    X1+AT.BASE                                              GEN       321
                          63220                   SB2    X2          ADDRESS OF PROCESSOR.                       GEN       322
                               66700              =B7    0                                                       GEN       323
            65  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/05. 20.00.24.      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
            66                           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  00000000000000000433 +            CON    EIS.AA      AT.A                                       SKOP    .1
      L      1  00000000000000000433 +            CON    EIS.CA      ZT.A                                       SKOP    .1
      L      2  00000000000000000147 +            CON    EIS.AB      AT.B                                       SKOP    .1
      L      3  00000000000000000222 +            CON    EIS.CB      ZT.B                                       SKOP    .1
      L      4  00000000000000000152 +            CON    EIS.AX      AT.X                                       SKOP    .1
      L      5  00000000000000000154 +            CON    EIS.CX      ZT.X                                       SKOP    .1
      L      6  00000000000000000234 +            CON    EIS.LNU     AT.L                                       SKOP    .1
      L      7  00000000000000000235 +            CON    EIS.L       ZT.L                                       SKOP    .1
      L     10  00000000000000000232 +            CON    EIS.LNL     AT.LL                                      SKOP    .1
      L     11  00000000000000000233 +            CON    EIS.LL      ZT.LL                                      SKOP    .1
      L     12  00000000000000000441 +            CON    EIS.P       ZT.P                                       SKOP    .1
      L     13  00000000000000000417 +            CON    EIS.IR      ZT.R                                       SKOP    .1
      L     14  00000000000000000416 +            CON    EIS.IRL     ZT.RL                                      SKOP    .1
      L     15  00000000000000000223 +            CON    EIS.GP      ZT.GP                                      SKOP    .1
      L     16  00000000000000000224 +            CON    EIS.GLN     AT.GL                                      SKOP    .1
      L     17  00000000000000000225 +            CON    EIS.GL      ZT.GL                                      SKOP    .1
      L     20  00000000000000000226 +            CON    EIS.GLNL    AT.GLL                                     SKOP    .1
      L     21  00000000000000000227 +            CON    EIS.GLL     ZT.GLL                                     SKOP    .1
      L     22  00000000000000000202 +            CON    EIS.AT      AT.T                                       SKOP    .1
      L     23  00000000000000000216 +            CON    EIS.CT      ZT.T                                       SKOP    .1
      L     24  00000000000000000435 +            CON    EIS.Q       AT.Q                                       SKOP    .1
      L     25  00000000000000000437 +            CON    EIS.S       AT.S                                       SKOP    .1
      L     26  00000000000000000433 +            CON    EIS.K       AT.K                                       SKOP    .1
                                                  LIST   *                                                       GEN       356
                                                                                                                 GEN       357
      L     27                           L.ATABLE BSS                NUMBER OF FIELD PROCESSORS                  GEN       358
           115                                    LOC    *O                                                      GEN       359
                                 -11              ERRPL  L.ATABLE-1S5                                            GEN       360
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           115  5120000474 +             EIS.CMP  SA2    OPTYP                                                   GEN       373
                          43063                   MX0    -SK.OPCL                                                GEN       374
                               22104              LX1    X4          SAVE                                        GEN       375
           116  6272777767                        SB7    X2-M.LOAD                                               GEN       376
                          0570000124 +            NZ     B7,EIS.CM1  IF NOT *LOAD* OP-CODE                       GEN       377
                                                                                                                 GEN       378
                                        **        TERMINATE INSTRUCTION *LOAD* OPERATOR                          GEN       379
                                                                                                                 GEN       380
           117  10344                             BX3    X4                                                      GEN       381
                     5110000000 X                 SA1    RREG                                                    GEN       382
                               20355              LX3    59-SK.ENDP+SK.OPCP                                      GEN       383
           120  6271010000                        SB7    X1+XMT                                                  GEN       384
                          0570000135 +            NZ     B7,NULLOP   IF LOAD SATISFIED                           GEN       385
           121  14211                             BX2    -X1                                                     GEN       386
                     43773                        MX7    -1                                                      GEN       387
                          5150000471 +            SA5    INS.REG                                                 GEN       388
           122  54710                             SA7    A1          INDICATE SATISFIED                          GEN       389
                     36725                        IX7    X2+X5                                                   GEN       390
                          20755                   LX7    PB.INSTP                                                GEN       391
           123  0400000134 +                      EQ     EIS.CM6                                                 GEN       392
                                                                                                                 GEN       393
           124  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
           125  63230                             SB2    X3                                                      GEN       401
                     5150000471 +                 SA5    INS.REG                                                 GEN       402
                               43066              MX0    -SK.TYPL                                                GEN       403
           126  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
           127  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
                          0430000132 +            ZR     B3,CBREAK   IF UNCONDITIONAL JUMP CLEAR REGS            GEN       416
           130  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/05. 20.00.24.      PAGE    11
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.CMP 
  
           131  0302000134 +                      ZR     X2,COMPILE  IF NO DELAYED STORE WRITE TO PRE-BIN        GEN       419
                          0630000134 +            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/05. 20.00.24.      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
           132  5170000000 X             CBREAK   SA7    ESTACK                                                  GEN       429
                          0100000000 X            CALL   CIA         CLEAR REGISTER FILE                         GEN       430
           133  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
           134                           EIS.CM6  BSS    0                                                       GEN       438
           134  6120000135 +             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
           135                           NULLOP   BSSENT 0                                                       GEN       445
           135                           O=NOOP   BSSENT 0           NULLOP FOR TURPLE                           GEN       446
           135                           O=BVD    BSSENT 0           BEGIN VARDIM                                GEN       447
           135                           O=HSBS   BSSENT 0           SUBSTRING PROCESSOR IS A NULLOP             GEN       448
           135                           O=HCAT   BSSENT 0           CONCAT IS DEFERED                           GEN       449
           135                           O=HCOL   BSSENT 0           COLON TURPLE IS DEFERRED                    FC50066     8
           135  5110000473 +                      SA1    IJK                                                     FC50950    41
                          7211777771              SX1    X1-6                                                    FC50950    42
           136  0311000140 +                      NZ     X1,EIS.CM9  IF INSTRUCTION NOT COMPLETED                FC50950    43
                          5110000471 +            SA1    INS.REG                                                 FC50950    44
           137  10711                             BX7    X1                                                      FC50950    45
                     5170000500 +                 SA7    RUT.REG     IJK PARTS OF INSTRUCTION JUST COMPLETED     FC50950    46
                                                                                                                 FC50950    47
           140  43600                    EIS.CM9  MX6    0                                                       FC50950    48
                     13777                        =X7                                                            GEN       452
                          5160000471 +            SA6    INS.REG     CLEAR REGISTER ASSEMBLY CELL                GEN       453
           141  54761                             =A7    A6+1        CLEAR OPCODE CELL                           GEN       454
                     5110000000 X                 SA1    REGLK                                                   GEN       455
                               54711              =A7    A1+1        *I* PORTION                                 GEN       456
           142  54671                             =A6    A7+1        *J* PORTION                                 GEN       457
                     63710                        SB7    X1                                                      GEN       458
                          0100000000 X            CALL   RUL         UNLOCK REGISTER                             GEN       459
           143  43673                             MX6    -1                                                      GEN       460
                     5130000146 +                 SA3    CURSK                                                   GEN       461
                               53430              SA4    X3                                                      GEN       462
                                                  HX4    SK.END                                                  GEN       463
           144  5160000000 X                      SA6    REGLK                                                   GEN       464
                          0324000026 +            PL     X4,EIS.LNX  IF NOT LAST INST. IN SKEL                   GEN       465
           145  6144000003                        SB4    B4+Z=TURP                                               GEN       466
                          0400000012 +            EQ     EIS.PNX     PROCESS NEXT TURPLE                         GEN       467
                                                                                                                 GEN       468
           146                     1     CURSK    BSSENT 1                                                       GEN       469
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    13
        EIS - EXPAND INSTRUCTION SKELETONS.                           HARDRG
  
                                        **        2.  ASSIGN TEMPORARY REGISTER.                                 GEN       471
                                        **            A.  ASSIGN TEMPORARY *B* REGISTER.                         GEN       472
                                                                                                                 GEN       473
                                                                                                                 GEN       474
           147  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
           150  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
           151  0400000452 +                      EQ     EIS.LRF                                                 GEN       484
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           152  63630                    EIS.AX   SB6    X3                                                      GEN       498
                     7160000776                   SX6    MAX.USEC-1                                              GEN       499
           153  0400000155 +                      EQ     EIS.X                                                   GEN       500
                                                                                                                 GEN       501
           154  63630                    EIS.CX   SB6    X3                                                      GEN       502
                     76600                        =X6    0                                                       GEN       503
                          0400000155 +            EQ     EIS.X                                                   GEN       504
                                                                                                                 GEN       505
           155  6273777771               EIS.X    SB7    X3-R.X6+REG.X     (B7) = 0TR(X.6)-0TR(TARGET)           GEN       506
                          7233000020              SX3    X3+REG.X                                                GEN       507
           156  20324                             LX3    P2.BIASP    POSITION HARD REGISTER NUMBER               GEN       508
                     36663                        IX6    X6+X3       FORM DUMMY REGFILE ENTRY                    GEN       509
                          5160000201 +            SA6    EISXA       SAVE DUMMY REGFILE ENTRY                    GEN       510
           157  66260                             SB2    B6          (B2) = 00R OF TARGET                        GEN       511
                     0770000162 +                 MI     B7,EIS.X5   IF NOT REQUESTING STORE REGISTER            GEN       512
                               13000              DRITE  DEACTIVATE                                              GEN       513
           161  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
           162  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
           163  7200777000                        SX0    X0-MAX.USEC SUBTRACT THE SPECIAL TEMP REG USE COUNT     GEN       523
                          0320000167 +            PL     X0,EIS.X7         IF A TEMP FIND A NEW REGISTER         GEN       524
           164  0770000176 +                      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
           165  15013                             BX0    -X3*X1      EXTRACT USE COUNT                           GEN       527
                     7200777000                   SX0    X0-MAX.USEC SUBTRACT USE COUNT GIVEN TO TEMP REGS       GEN       528
           166  0330000176 +                      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
           167  76520                    EIS.X7   SX5    B2          SAVE REG TO CLEAR ACROSS GTR CALL           GEN       541
                     0100000000 X                 CALL   GTR         GET TEMPORARY REGISTER                      GEN       542
           170  36765                             IX7    X6+X5       (X7) = 0IJ                                  GEN       543
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    15
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.X 
  
                     7277001000                   SX7    X7+XMT/1S3  ADD OPCODE IN FOR XMT INSTRUCTION           GEN       544
           171  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
           172  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
           173  10611                             BX6    X1                                                      GEN       551
                     5162000000 C                 SA6    B2+REGFILE  RESET USAGE TABLE (REGFILE)                 GEN       552
           174  6120000175 +                      WCODE  X7          WRITE TRANSMIT INSTRUCTION                  GEN       553
           175  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
           176  6126000020               EIS.X10  SB2    B6+REG.X                                                GEN       559
                          0100000000 X            CALL   RUT         CLEAR REGFILE ENTRY                         GEN       560
           177  5110000201 +             EIS.X15  SA1    EISXA       GET DUMMY REGFILE ENTRY                     GEN       561
                          10711                   BX7    X1                                                      GEN       562
           200  5172000000 C                      SA7    B2+REGFILE  RESET USE TABLE TO DUMMY X-TAG              GEN       563
                          0400000463 +            EQ     EIS.REG                                                 GEN       564
                                                                                                                 GEN       565
           201                     1     EISXA    BSS    1                                                       GEN       566
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           202  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
           203  0311000212 +                      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
                          5120000472 +            SA2    OPCODE                                                  GEN       584
           204  6272777677                        SB7    X2-XMT/1S6                                              GEN       585
                          0570000211 +            NZ     B7,EIS.AT10 IF NOT *XMT*                                GEN       586
           205  5120000471 +                      SA2    INS.REG                                                 GEN       587
                          43071                   MX0    -3                                                      GEN       588
                               21203              AX2    3                                                       GEN       589
           206  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
           207  15121                             BX1    -X1*X2      USE COUNT                                   GEN       593
                     0311000211 +                 NZ     X1,EIS.AT10 IF USE COUNT NOT ZERO                       GEN       594
                                                                                                                 GEN       595
                                        *         TRANSMIT INSTRUCTION IS UNNECESSARY                            GEN       596
                                                                                                                 GEN       597
           210  6220000020                        SB2    X0+REG.X    *I* REGISTER - 0TR                          GEN       598
                          0400000212 +            EQ     EIS.AT30                                                GEN       599
                                                                                                                 GEN       600
           211  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
           212  76360                    EIS.AT30 SX3    B6                                                      GEN       607
                     76720                        SX7    B2                                                      GEN       608
                          20324                   LX3    P2.BIASP    POSITION REG=T ORDINAL                      GEN       609
           213  7120000777                        =X2    MAX.USEC                                                GEN       610
                          43071                   MX0    -3                                                      GEN       611
                               12623              BX6    X2+X3       DUMMY TAG FOR REGFILE                       GEN       612
           214  5176000000 X                      SA7    B6+REG=T    SET *REG=T* FILE                            GEN       613
                          5162000000 C            SA6    B2+REGFILE                                              GEN       614
           215  15670                             BX6    -X0*X7                                                  GEN       615
                     20603                        LX6    3                                                       GEN       616
                          0400000452 +            EQ     EIS.LRF                                                 GEN       617
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           216  5223000000 X             EIS.CT   SA2    X3+REG=T    LOAD TEMPORARY REGISTER CELL                GEN       622
                          76700                   =X7    0                                                       GEN       623
                               43171              MX1    -3                                                      GEN       624
           217  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
           220  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
           221  5272000000 C                      SA7    X2+REGFILE                                              GEN       636
                          0400000452 +            EQ     EIS.LRF                                                 GEN       637
  
  
  
  
                                        **        EIS.CB - LAST USE OF *B* REGISTER.                             GEN       639
                                                                                                                 GEN       640
                                                                                                                 GEN       641
           222  73230                    EIS.CB   SX2    X3                                                      GEN       642
                     43171                        MX1    -3                                                      GEN       643
                          0400000220 +            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
           223                           EIS.GP   BSSENT 0                                                       GEN       654
           223  5223000000 X                      SA2    X3+REG=G    GET PSEUDO OPERAND                          GEN       655
                          0400000442 +            EQ     EIS.P4                                                  GEN       656
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           224  7170000000               EIS.GLN  SX7    0           (X7) = USE COUNT DECRIMENT                  GEN       676
                          5170000000 X            SA7    UUC         DO NOT  DECREMENT USE COUNT                 GEN       677
           225  7160000000               EIS.GL   SX6    0           (X6) = TYPE UPPER                           GEN       678
                          0400000230 +            EQ     EIS.GL2     PROCESS GENERATED OPERAND                   GEN       679
                                                                                                                 GEN       680
           226  7170000000               EIS.GLNL SX7    0           (X7) USE COUNT DECRIMENT                    GEN       681
                          5170000000 X            SA7    UUC         DO NOT DECRIMENT USE COUNT                  GEN       682
           227  7160000001               EIS.GLL  SX6    1           (X6) = TYPE LOWER                           GEN       683
                          0400000230 +            EQ     EIS.GL2     PROCESS GENERATED OPERAND                   GEN       684
                                                                                                                 GEN       685
                                                                                                                 GEN       686
           230  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
           231  76710                             =X7    1           NEW USE COUNT                               GEN       691
                     36557                        IX5    X5+X7       ADD USE COUNT INTO OPERAND                  GEN       692
                          0400000236 +            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
           232  76600                    EIS.LNL  =X6    0                                                       GEN       700
                     5160000000 X                 SA6    UUC                                                     GEN       701
                                                                                                                 GEN       702
           233  53534                    EIS.LL   SA5    X3+B4       TAG TO BE LOADED                            GEN       703
                     76610                        =X6    1           INDICATE LOWER HALF                         GEN       704
                          0400000236 +            EQ     EIS.L2                                                  GEN       705
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           234  76600                    EIS.LNU  =X6    0                                                       GEN       716
                     5160000000 X                 SA6    UUC                                                     GEN       717
           235  53534                    EIS.L    SA5    X3+B4       TAG TO BE LOADED                            GEN       718
                     76600                        =X6    0           UPPER HALF                                  GEN       719
                                                                                                                 GEN       720
           236  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
                               43063              MX0    -RG.USEL                                                GEN       725
           237  15150                             BX1    -X0*X5      EXTRACT USE COUNT                           GEN       726
                     0301400237 +                 ZR     X1,"BLOWUP" IF OPREAND WAS NOT DUC-ED                   GEN       727
           240  7211777377                        SX1    X1-RLOCK                                                GEN       728
                          0321400240 +            PL     X1,"BLOWUP" IMPOSSIBLE USE COUNT                        GEN       729
                                         .TEST    ENDIF                                                          GEN       730
                                                                                                                 GEN       731
           241  5110000473 +                      SA1    IJK         SR. FIELD INDICATOR: -3 IF K,0 IF J,3 IF I  GEN       732
                          7201777776              =X0    X1-1                                                    GEN       733
           242  5110000474 +                      SA1    OPTYP       GET SK.TYP FIELD OF CURRETN SKELETON WORD   GEN       734
                          7211777767              =X1    X1-M.LOAD                                               GEN       735
           243  20620                             LX6    RG.TYPP                                                 GEN       736
                     12556                        BX5    X5+X6                                                   GEN       737
                          5120000000 X            SA2    RREG                                                    GEN       738
           244  0330000246 +                      MI     X0,EIS.L3   IF PROCESSING J OR K FIELDS                 GEN       739
                          0322000246 +            PL     X2,EIS.L3   IF HARD REGISTER LOAD                       GEN       740
           245  0301000371 +                      ZR     X1,EIS.STO  IF OPTYP IS LOAD/STORE COMPILE A STORE      GEN       741
           246  13000                    EIS.L3   DRITE  DEACTIVATE                                              GEN       742
           247  10155                             BX1    X5                                                      GEN       743
                     66260                        SB2    B6                                                      GEN       744
                          10055                   BX0    X5                                                      GEN       745
                               20161              SBIT   X1,P2.INTRP                                             GEN       746
           250  0321000254 +                      PL     X1,EIS.L5   IF NOT INTERMEDIATE                         GEN       747
                          20056                   SBIT   X0,P2.ARRP                                              GEN       748
           251  0320000254 +                      PL     X0,EIS.L5   IF NOT ARY-LOD                              GEN       749
                          66260                   SB2    B6                                                      GEN       750
           252  0100000000 X                      CALL   SLD         LOAD SUBSCRIPTED ARRAY                      GEN       751
           253  0400000361 +                      EQ     EIS.L21                                                 FC5A346    13
                                                                                                                 GEN       753
           254  6130000000 X             EIS.L5   SB3    RG=LOAD                                                 GEN       754
                          0100000000 X            CALL   DSC         DETERMINE REGISTER STATUS CLASS             GEN       755
           255  5120000000 X                      SA2    GSTC                                                    GEN       756
                          22307                   LX3    X7                                                      GEN       757
                               10722              BX7    X2                                                      GEN       758
           256  5170000370 +                      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/05. 20.00.24.      PAGE    20
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
           257  5120000000 X                      SA2    P2=KEEP                                                 GEN       761
                          11121                   BX1    X2*X1                                                   GEN       762
           260  5130000000 X                      SA3    TYPLOD                                                  GEN       763
                          10255                   BX2    X5                                                      GEN       764
                               20257              SBIT   X2,P2.SHRTP                                             GEN       765
           261  0332000273 +                      MI     X2,EIS.L10  IF SHORT CONSTANT                           GEN       766
                          36113                   IX1    X1+X3                                                   GEN       767
           262  0420000271 +                      ZR     B2,EIS.L7   IF TAG NOT IN REGISTER                      GEN       768
                          43020                   MX0    P2.TAGL                                                 GEN       769
                               11001              BX0    X0*X1                                                   GEN       770
           263  20020                             LX0    P2.TAGL                                                 GEN       771
                     7220757777                   SX2    X0-"P2=PFX"                                             GEN       772
           264  0322000270 +                      PL     X2,EIS.L6   IF NOT SYMTAB SYMBOL                        GEN       773
                          5120000000 X            SA2    T.SYM                                                   GEN       774
           265  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
           266  10022                             BX0    X2                                                      GEN       779
                     5120001623 +                 CLAS=  X2,WB,(EQV,BMEM)                                        GEN       780
                               11202              BX2    X0*X2                                                   GEN       781
           267  0312000271 +                      NZ     X2,EIS.L7   IF SYMBOL EQUIVALENCED                      GEN       782
                                                                                                                 GEN       783
           270                           EIS.L6   BSS    0                                                       GEN       784
           270  0520000276 +                      NZ     B2,EIS.L12   IF TAG IN REGISTER                         GEN       785
           271  63230                    EIS.L7   SB2    X3          INDICATE UPPER OR LOWER                     GEN       786
                     0100000000 X                 CALL   LTG         LOAD TAG                                    GEN       787
           272  0400000311 +                      EQ     EIS.L15                                                 GEN       788
                                                                                                                 GEN       789
           273  6130000000 X             EIS.L10  SB3    RG=LODX                                                 GEN       790
                          0520000276 +            NZ     B2,EIS.L12  IF TAG IN REGISTER                          GEN       791
           274  0100000000 X                      CALL   LSC         LOAD SHORT CONSTANT                         GEN       792
           275  0400000311 +                      EQ     EIS.L15                                                 GEN       793
                                                                                                                 GEN       794
           276  0470000311 +             EIS.L12  ZR     B7,EIS.L15  IF TAG IN CORRECT REGISTER                  GEN       795
                          5170000475 +            SA7    EIS.INST    SAVE INSTRUNCION                            GEN       796
           277  21603                             AX6    3                                                       GEN       797
                     5067000001                   =A6    A7+EIS.JREG-EIS.INST  SAVE *J* REGISTER                 GEN       798
           300  0100000000 X                      CALL   GNR         GET REGISTER                                GEN       799
           301  5120000476 +                      SA2    EIS.JREG                                                GEN       800
                          10366                   BX3    X6                                                      GEN       801
           302  5012777776                        =A1    A2-EIS.JREG+EIS.INST                                    GEN       802
                          36062                   IX0    X6+X2       =0IJ                                        GEN       803
                               66520              SB5    B2                                                      GEN       804
           303  36710                             IX7    X1+X0       OP-CODE + IJ                                GEN       805
                     20760                        LX7    PB.INSTP+3                                              GEN       806
                          6120000305 +            WCODE  X7                                                      GEN       807
           305  5110000000 X                      SA1    STRGLK                                                  GEN       808
                          0331000310 +            MI     X1,EIS.L13  IF NO ASSIGNMENT TO CLEAR                   GEN       809
           306  5211000000 C                      SA1    X1+REGFILE                                              GEN       810
                          7100000400              SX0    RLOCK                                                   GEN       811
           307  15610                             BX6    -X0*X1      UNLOCK STORE REGISTER                       GEN       812
                     54610                        SA6    A1                                                      GEN       813
           310  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/05. 20.00.24.      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
           311  5110000473 +             EIS.L15  SA1    IJK                                                     FC5A346    14
                          7201777776              SX0    X1-1                                                    FC5A346    15
           312  0320000355 +                      PL     X0,EIS.L20  IF NOT PROCESSING  J OR K  FIELD            FC5A346    16
                          7130000400              SX3    RLOCK                                                   FC5A346    17
           313  77102                             SX1    -B2                                                     FC5A346    18
                     6271000026                   SB7    X1+R.X6                                                 FC5A346    19
           314  0707000355 +                      LT     B0,B7,EIS.L20  IF TAG NOT IN STORE REGISTER             FC5A346    20
                          5127000027 C            SA2    B7+REGFILE+R.X7                                         FC5A346    21
           315  11132                             BX1    X3*X2                                                   FC5A346    22
                     0301000355 +                 ZR     X1,EIS.L20  IF OTHER STORE REGISTER NOT LOCKED          FC5A346    23
                               76720              SX7    B2                                                      FC5A346    24
           316  5170000366 +                      SA7    EIS.LK      SAVE OTR OF REGISTER TAG IS IN              FC5A346    25
                          5130000000 X            SA3    UUC                                                     FC5A346    26
           317  76700                             SX7    B0                                                      FC5A346    27
                     54730                        SA7    A3          SET USE COUNT TO ZERO TEMPORARILY           FC5A346    28
                          10733                   BX7    X3                                                      FC5A346    29
           320  5170000365 +                      SA7    EIS.LUC     CURRENT USE COUNT                           FC5A346    30
                          5130000000 X            SA3    TYPLOD                                                  FC5A346    31
           321  5110000370 +                      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
           322  53210                             SA2    X1          FETCH ORIGIN OF TABLE                       GEN       828
                     53127                        SA1    X2+B7                                                   GEN       829
                          63330                   SB3    X3                                                      GEN       830
           323  0100000000 X                      RJ     STS         SET STATUS OF TAG                           GEN       831
           324  6130000000 X                      SB3    RG=TEMP                                                 FC5A346    32
                          0100000000 X            CALL   SFR                                                     FC5A346    33
           325  0317000330 +                      NZ     X7,EIS.L16  IF TEMPORARY REGISTER NOT AVAILABLE         FC5A346    34
                          76620                   SX6    B2          OTR ASSIGNED BY *SFR*                       FC5A346    35
           326  5160000367 +                      SA6    EIS.LX                                                  FC5A346    36
                          5120000366 +            SA2    EIS.LK      OTR OF REG HOLDING TAG                      FC5A346    37
           327  63220                             SB2    X2                                                      FC5A346    38
                     0400000353 +                 EQ     EIS.L19     SET STATUS USING REAL USE COUNT             FC5A346    39
                                                                                                                 FC5A346    40
           330  6130000000 X             EIS.L16  SB3    RG=LODX                                                 FC5A346    41
                          0100000000 X            CALL   GNR                                                     FC5A346    42
           331  76720                             SX7    B2          OTR OF REG ASSIGNED BY *GNR*                FC5A346    43
                     5170000367 +                 SA7    EIS.LX                                                  FC5A346    44
           332  5130000000 X                      SA3    TYPLOD                                                  FC5A346    45
                          63230                   SB2    X3                                                      FC5A346    46
           333  0100000000 X                      CALL   GST                                                     FC5A346    47
           334  0520000342 +                      NZ     B2,EIS.L17  IF TAG IN REGISTER - XMIT                   FC5A346    48
                          5110000370 +            SA1    EIS.LST     GET LOCATION OF STATUS WORD                 FC5A346    49
           335  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
           336  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
           337  5130000367 +                      SA3    EIS.LX      ASSIGNED REGISTER                           FC5A346    57
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    22
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
                          63230                   SB2    X3                                                      FC5A346    58
                               43071              MX0    -3                                                      FC5A346    59
           340  15630                             BX6    -X0*X3                                                  FC5A346    60
                     20603                        LX6    3                                                       FC5A346    61
                          0100000000 X            CALL   CLI                                                     FC5A346    62
           341  0400000353 +                      EQ     EIS.L19                                                 FC5A346    63
                                                                                                                 FC5A346    64
           342  5120000367 +             EIS.L17  SA2    EIS.LX      OTR OF REGISTER TO TRANSMIT TO              FC5A346    65
                          63220                   SB2    X2                                                      FC5A346    66
                               43071              MX0    -3                                                      FC5A346    67
           343  15220                             BX2    -X0*X2      (00R) *I* REGISTER                          FC5A346    68
                     5130000366 +                 SA3    EIS.LK                                                  FC5A346    69
                               76600              SX6    B0                                                      FC5A346    70
           344  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
           345  5135777767 C                      SA3    B5+REGFILE-REG.A  *A* REGFILE ENTRY                     FC5A346    74
                          13131                   BX1    X3-X1                                                   FC5A346    75
                               21111              AX1    OP.USEL                                                 FC5A346    76
           346  0311000347 +                      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
           347  54610                    EIS.L18  SA6    A1          CLEAR OLD *X* REGFILE ENTRY                 FC5A346    80
                     20203                        LX2    3                                                       FC5A346    81
                          36772                   IX7    X7+X2                                                   FC5A346    82
           350  7277001000                        SX7    X7+XMT/1S3                                              FC5A346    83
                          20760                   LX7    PB.GHIJP                                                FC5A346    84
                               66520              SB5    B2                                                      FC5A346    85
           351  6120000352 +                      WCODE  X7          TRANSMIT                                    FC5A346    86
           352  66250                             SB2    B5                                                      FC5A346    87
                                                                                                                 FC5A346    88
           353  5110000365 +             EIS.L19  SA1    EIS.LUC     SAVED USE COUNT                             FC5A346    89
                          10711                   BX7    X1                                                      FC5A346    90
           354  5170000000 X                      SA7    UUC         RESTORE USE COUNT                           FC5A346    91
                                                                                                                 FC5A346    92
           355  5130000000 X             EIS.L20  SA3    TYPLOD                                                  FC5A346    93
                          5110000370 +            SA1    EIS.LST     GET LOCATION OF STATUS WORD                 FC5A346    94
           356  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
           357  63330                             SB3    X3                                                      FC5A346    99
                     0100000000 X                 CALL   STS         SET STATUS OF TAG                           FC5A346   100
           360  43071                             MX0    -3                                                      FC5A346   101
                     76120                        SX1    B2                                                      FC5A346   102
                          15610                   BX6    -X0*X1                                                  FC5A346   103
                               20603              LX6    3           0R0                                         FC5A346   104
                                                                                                                 GEN       832
           361  5110000477 +             EIS.L21  SA1    HREG                                                    FC5A346   105
                          0301000452 +            ZR     X1,EIS.LRF  IF HARD REGISTER TO REMAIN UN-LOCKED        GEN       834
           362  10266                             BX2    X6                                                      GEN       835
                     43700                        MX7    0                                                       GEN       836
                          20271                   LX2    -3                                                      GEN       837
                               54710              SA7    A1          CLEAR HREG                                  GEN       838
           363  63720                             SB7    X2                                                      GEN       839
                     0100000000 X                 CALL   RLL         LOCK REGISTER                               GEN       840
           364  0400000452 +                      EQ     EIS.LRF                                                 GEN       841
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    23
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
           365  00000000000000000000     EIS.LUC  DATA   0           USE COUNT SAVED HERE                        FC5A346   106
           366  00000000000000000000     EIS.LK   DATA   0           OTR OF REG TAG IS IN                        FC5A346   107
           367  00000000000000000000     EIS.LX   DATA   0           REG ASSIGNED AFTER GNR CALL                 FC5A346   108
                                                                                                                 GEN       842
           370  00000000000000400370 +   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
           371  5120000471 +             EIS.STO  SA2    INS.REG     GET (0R0) FOR RIGHT HAND SIDE               GEN       850
                          13777                   BX7    0                                                       GEN       851
                               22602              LX6    X2                                                      GEN       852
           372  5170000000 X                      SA7    UUC         DO NOT DECRIMENT USE COUNT                  GEN       853
                          21203                   AX2    3           (X2) = (00R)                                GEN       854
           373  6222000020                        SB2    X2+REG.X    ADD IN TYPE FOR (0TR)                       GEN       855
                          7102777751              SX0    B2-R.X6                                                 GEN       856
           374  0320000402 +                      PL     X0,EIS.ST1  IF IN *STORE* REGISTER                      GEN       857
                          63720                   SB7    X2                                                      FC50066     9
           375  0100000000 X                      RJ     RLL         LOCK RHS IN CASE ASR CALLS DRITE(FP OR LCM) FC50066    10
           376  0100000000 X                      RJ     ASR         ASSIGN STORE REGISTER                       GEN       858
           377  7170767777                        SX7    -XMT                                                    GEN       859
                          5170000000 X            SA7    RREG        SET *RIGHT MEMBER NOT IN STORE REG* FLAG    GEN       860
           400  5110000471 +                      SA1    INS.REG                                                 FC50066    11
                          21103                   AX1    3                                                       FC50066    12
                               63710              SB7    X1                                                      FC50066    13
           401  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
           402  10255                    EIS.ST1  BX2    X5                                                      GEN       866
                     20261                        SBIT   X2,P2.INTRP                                             GEN       867
                          0322000414 +            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
           403  5110000000 X                      SA1    RREG        GET HARD REG CELL                           GEN       872
                          76720                   SX7    B2                                                      GEN       873
           404  6271010000                        SB7    X1+XMT                                                  GEN       874
                          54710                   SA7    A1          SET HARD REG = 0TR OF RIGHE HAND SIDE       GEN       875
           405  0570000411 +                      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
                          5130000471 +            SA3    INS.REG     GET CURRENT 0R0, THE J-REG                  GEN       880
           406  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
           407  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/05. 20.00.24.      PAGE    24
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.STO 
  
                          6120000411 +            WCODE  X7          WRITE TRANSMIT INSTRUCTION                  GEN       887
           411  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
           412  0100000000 X                      CALL   SLD         LOAD SUBSCRIPTED ARRAY                      GEN       891
           413  0400000463 +                      EQ     EIS.REG                                                 GEN       892
                                                                                                                 GEN       893
                                        *         SET DELAYED STORE IN MOTION                                    GEN       894
                                                                                                                 GEN       895
           414  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
           415  0400000463 +                      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
           416  6160000001               EIS.IRL  SB6    1           SET TYPE = FOR 1 LOWER HALF                 GEN       909
                          0400000420 +            EQ     EIS.IR1                                                 GEN       910
                                                                                                                 GEN       911
           417  6160000000               EIS.IR   SB6    0           SET TYPE = 0 FOR UPPER HALF                 GEN       912
                          0400000420 +            EQ     EIS.IR1                                                 GEN       913
                                                                                                                 GEN       914
                                        *         CHECK IF NEXT TURPLE IS A STORE TURPLE                         GEN       915
                                                                                                                 GEN       916
           420  5124000003               EIS.IR1  SA2    B4+Z=TURP   GET NEXT OPERATOR                           GEN       917
                          13666                   BX6    0                                                       GEN       918
           421  5160000000 X                      SA6    UUC         DO NOT DECRIMENT USE COUNT                  GEN       919
                          43066                   MX0    -OP.CHINL                                               GEN       920
                               21226              AX2    OP.CHINP                                                GEN       921
           422  15220                             BX2    -X0*X2      EXTRACT OPERATOR CHARACTOR INDEX            GEN       922
                     7222777736                   SX2    X2-O.=      SUBTRACT INDEX FOR A STORE                  GEN       923
           423  0312000425 +                      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
           424  0400000431 +                      EQ     EIS.IR30    CONTINUE                                    GEN       926
                                                                                                                 GEN       927
                                        *         IF INTERMEDIATE NOT INPUT INTO *STORE* TURPLE                  GEN       928
                                                                                                                 GEN       929
           425  0100000000 X             EIS.IR10 CALL   AIR         ASSIGN INTERMEDIATE REGISTER                GEN       930
           426  0620000430 +                      PL     B2,EIS.IR20 IF REGISTER AVAILABLE                       GEN       931
                          0100000000 X            CALL   ASR         USE STORE REGISTER                          GEN       932
           427  0400000431 +                      EQ     EIS.IR30                                                GEN       933
                                                                                                                 GEN       934
           430  0307000431 +             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
           431  76500                    EIS.IR30 =X5    0                                                       GEN       940
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           432  0400000463 +                      EQ     EIS.REG                                                 GEN       943
  
  
  
  
                                        **        SET CONSTANT FOR CURRENT INSTRUCTION.                          GEN       945
                                                                                                                 GEN       946
           433                           EIS.AA   BSS    0                                                       GEN       947
           433                           EIS.CA   BSS    0                                                       GEN       948
           433  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
           434  0400000452 +                      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
           435  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
           436  0400000444 +                      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
           437  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
           440  0400000444 +                      EQ     EIS.P5                                                  GEN       976
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           441                           EIS.P    BSS    0                                                       GEN       988
           441  53234                             SA2    X3+B4       LOAD PARSED FILE WORD = 18/TAG,18/BIAS,24/0 GEN       989
                                                                                                                 GEN       990
           442  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
           443  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
           444  5150000474 +             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
           445  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
           446  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
           447  0470000463 +                      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
                          5130000473 +            SA3    IJK                  GET VARIABLE SHIFT COUNT           GEN      1021
           450  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
           451  0400000463 +                      EQ     EIS.REG                                                 GEN      1026
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           452  5120000473 +             EIS.LRF  SA2    IJK                                                     GEN      1038
                          5110000000 X            SA1    REGLK                                                   GEN      1039
           453  43773                             MX7    -1                                                      GEN      1040
                     0322000460 +                 PL     X2,EIS.LRF5 IF NOT PROCESSING *K*                       GEN      1041
           454  0720000463 +                      MI     B2,EIS.REG  IF A CONSTANT (NOT A REGISTER)              GEN      1042
                          76520                   SX5    B2                                                      GEN      1043
                               43171              MX1    -3                                                      GEN      1044
           455  15251                             BX2    -X1*X5      GET REGISTER -00R                           GEN      1045
                     63720                        SB7    X2                                                      GEN      1046
                          0100000000 X            CALL   RLL         LOCK REGISTER                               GEN      1047
           456  5170000000 X                      SA7    REGLK       SAVE REGISTER  -00R.                        GEN      1048
                          54771                   =A7    A7+1                                                    GEN      1049
           457  0400000463 +                      EQ     EIS.REG     CONTINUE                                    GEN      1050
                                                                                                                 GEN      1051
           460  54710                    EIS.LRF5 SA7    A1          CLEAR *REGLK*                               GEN      1052
                     0312000463 +                 NZ     X2,EIS.REG  IF NOT PROCESSING *J*                       GEN      1053
           461  5170000000 X                      SA7    CLOADJ                                                  GEN      1054
                          63710                   SB7    X1                                                      GEN      1055
           462  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/05. 20.00.24.      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
           463  5130000473 +             EIS.REG  SA3    IJK                                                     GEN      1069
                          5110000471 +            SA1    INS.REG                                                 GEN      1070
           464  63630                             SB6    X3                                                      GEN      1071
                     0323000466 +                 PL     X3,EIS.RG5  IF POSITIVE SHIFT                           GEN      1072
           465  6166000074                        SB6    B6+60       NO DROPPING THE BITS..                      GEN      1073
           466  22266                    EIS.RG5  LX2    B6,X6                                                   GEN      1074
                     12612                        BX6    X1+X2                                                   GEN      1075
                          20467                   LX4    -SR.OADL                                                GEN      1076
           467  7273000003                        SX7    X3+3                                                    GEN      1077
                          54610                   SA6    A1          UPDATE ASSIGNED                             GEN      1078
                               54730              SA7    A3          UPDATE *IJK*                                GEN      1079
           470  0400000057 +                      EQ     EIS.NX      CONTINUE FOR NEXT PORTION OF INSTRUCTION.   GEN      1080
                                                                                                                 GEN      1081
           471                     1     INS.REG  BSZENT 1           IJK PARTS OF INSTRUCTION                    FC50950    49
           472  00000000000000000000     OPCODE   DATA   0           OPCODE                                      GEN      1083
           473                     1     IJK      BSZENT 1           = 3 PROCESSING *I* PART                     FC50950    50
                                                                     = 0    -       *J*  -                       GEN      1085
                                                                     =-3    -       *K*  -                       GEN      1086
           474  00000000000000000000     OPTYP    DATA   0           M.XXX FOR OP-CODE FIELD OF SKELETON         GEN      1087
                                                                                                                 GEN      1088
                                                                                                                 GEN      1089
           475  00000000000000000000     EIS.INST DATA   0           INSTRUNCION TO PUT TAG IN CORRECT REGISTER  GEN      1090
           476  00000000000000000000     EIS.JREG DATA   0           *J* REGISTER FOR ABOVE                      GEN      1091
           477                     1     HREG     BSSZ   1           LOCK HARD REGISTER FLAG                     GEN      1092
           500                     1     RUT.REG  BSZENT 1           IJK PARTS OF PREVIOUS INSTRUCTION           FC50950    51
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           501  0400400501 +             BOS      SUBR   0           ENTRY/EXIT...                               GEN      1117
           502  11605                             BX6    X0*X5       REMOVE LINE NUMBER FROM (OP.)               GEN      1118
                     20140                        LX1    -OP.LINEP                                               GEN      1119
                          5120000000 X            SA2    CO.DBER                                                 GEN      1120
           503  5130000000 X                      SA3    CO.DBID                                                 GEN      1121
                          12223                   BX2    X2+X3                                                   GEN      1122
                               11505              BX5    X0*X5       ADJUST (X5) ALSO                            GEN      1123
           504  22701                             LX7    X1                                                      GEN      1124
                     54650                        SA6    A5                                                      GEN      1125
                          5170000000 X            SA7    TRACE                                                   GEN      1126
           505  0302000511 +                      ZR     X2,BOS4     IF ERROR RECOVERY DE-SELECTED               FC50936     6
                          0313000510 +            NZ     X3,BOS3     IF CO.DBID ON                               FC50936     7
           506  13000                             DRITE  DEACTIVATE                                              GEN      1128
           507  0400000511 +                      EQ     BOS4                                                    FC50936     8
                                                                                                                 FC5A337    23
           510  0100000000 X             BOS3     CALL   CIA         CLEAR ALL REGISTERS                         FC50936     9
           511  5110000000 X             BOS4     SA1    TRACE                                                   GEN      1129
                          7130000022              SX3    I.BOS                                                   GEN      1130
           512  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
           514  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
           515  7233000000 X                      SX3    X3+V=BSS                                                FC5A337    24
                          0313000523 +            NZ     X3,BOS5     IF BSS NOT NEXT                             FC5A166    13
           516  7100200000                        CLAS=  X0,OP,BSSI                                              FC5A166    14
                          12602                   BX6    X0+X2                                                   FC5A166    15
                               54620              SA6    A2          MARK BSS ISSUED                             FC5A166    16
           517  54121                             =A1    A2+OR.1OP                                               FC5A166    17
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    30
        (O=)  PROCESSORS CALLED BY SKELETONS.                         BOS 
  
                     0100000544 +                 RJ     PBW         PREPARE BSS FOR WCODE                       FC5A166    18
           520  5170000000 X                      SA7    ESTACK      SAVE BSS                                    FC5A166    19
                          0100000000 X            CALL   CIA         CLEAR ALL REGISTERS                         FC5A166    20
           521  5120000000 X                      SA2    ESTACK                                                  FC5A166    21
                          10722                   BX7    X2                                                      FC5A166    22
           522  6120000523 +                      WCODE  X7          ISSUE BSS                                   FC5A166    23
                                                                                                                 FC5A166    24
           523  5120000000 X             BOS5     SA2    CO.DBER                                                 FC5A166    25
                          5130000000 X            SA3    CO.DBID                                                 GEN      1136
           524  7160000016                        SX6    I.BOS&I.OTR                                             GEN      1137
                          12223                   BX2    X2+X3                                                   GEN      1138
           525  0302000501 +                      ZR     X2,EXIT.    IF OBJECT-TIME-REPRIEVE DE-SELECTED         GEN      1139
                          5120000000 X            SA2    MOD                                                     GEN      1140
           526  20263                             HX2    MO.BLK                                                  GEN      1141
                     0332000501 +                 MI     X2,EXIT.    IF PROCESSING BLOCK DATA                    GEN      1142
                               20660              LX6    PB.GHIJP                                                GEN      1143
           527  13746                             BX7    X4-X6       SWITCH OPCODE                               GEN      1144
                     0303000534 +                 ZR     X3,BOS8     IF INTERACTIVE DEBUG NOT SELECTED           GEN      1145
           530  6120000531 +                      WCODE  X7                                                      GEN      1146
           531  0100000000 X                      CALL   CIA         CLEAR ALL REGISTERS                         GEN      1147
           532  7130000035                        SX3    I.RJ3                                                   GEN      1148
                          5140000000 X            SA4    S=FID                                                   GEN      1149
           533  20360                             LX3    PB.GHIJP                                                GEN      1150
                     20436                        LX4    PB.TAGP                                                 GEN      1151
                          12734                   BX7    X3+X4                                                   GEN      1152
                                                                                                                 FC5A337    25
           534  6120000501 +             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
           535                           O=CAR    BSSENT             ENTRY...                                    GEN      1165
           535  0100000000 X                      CALL   CIA         CLEAR REGISTER FILE                         GEN      1166
           536  0400000135 +                      EQ     NULLOP                                                  GEN      1167
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           537                           O=CBJ    BSSENT 0           ENTRY...                                    GEN      1180
           537  20156                             LX1    -P2.TAGP+PB.TAGP                                        GEN      1181
                     7150000006                   SX5    R.B6        ** B6 ONLY **                               GEN      1182
           540  7120000030                        =X2    I.JPI                                                   GEN      1183
                          12115                   BX1    X1+X5                                                   GEN      1184
                               20260              LX2    PB.GHIJP                                                GEN      1185
           541  12712                             BX7    X1+X2       12/GHIJ,18/TAG(IF EXISTS),18/0,12/B-REG     GEN      1186
                     0400000132 +                 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
           542                           O=CDW    BSSENT             ENTRY...                                    GEN      1199
           542  13000                             DRITE  DEACTIVATE                                              GEN      1200
           543  0400000135 +                      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
           544  0400400544 +             PBW      SUBR               PREPARE BSS FOR WCODE                       FC5A166    26
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    32
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=CBSS
  
           545  20120                             LX1    -P2.TAGP                                                GEN      1221
                     43057                        MX0    -P2.ORDL                                                GEN      1222
                          15210                   BX2    -X0*X1                                                  GEN      1223
                               43003              MX0    P2.PFXL                                                 GEN      1224
           546  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
           547  7100000024                        =X0    I.BSS                                                   GEN      1229
                          20060                   LX0    PB.GHIJP                                                GEN      1230
                               20236              LX2    PB.TAGP                                                 GEN      1231
           550  12702                             BX7    X0+X2                                                   GEN      1232
                     0400000544 +                 EQ     EXIT.                                                   FC5A166    27
  
  
  
  
           551                           O=PLA    BSSENT 0                                                       FC5A166    29
           551  56240                             SA2    B4                                                      FC5A166    30
                     20253                        HX2    OP.BSSI                                                 FC5A166    31
                          0332000135 +            MI     X2,NULLOP   IF BSS  ISSUED AT BOS                       FC5A166    32
  
  
  
  
           552  0100000544 +             O=CBSS   RJ     PBW                                                     FC5A166    34
           553  0400000132 +                      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
           554                           O=CRJ    BSSENT             ENTRY...                                    GEN      1244
           554  5140000146 +                      SA4    CURSK                                                   GEN      1245
                          53240                   SA2    X4          FETCH CURRENT SKEL WORD                     GEN      1246
                               20230              HX2    SK.ARG                                                  GEN      1247
           555  0332000557 +                      MI     X2,CRJ2     IF (X1) ALREADY IN RIGHT FORMAT             GEN      1248
                          20120                   LX1    -P2.TAGP                                                GEN      1249
                               43054              MX0    -P2.TAGL                                                GEN      1250
           556  15110                             BX1    -X0*X1                                                  GEN      1251
                     53110                        SA1    X1                                                      GEN      1252
                          20154                   LX1    P2.TAGP                                                 GEN      1253
           557  5130000000 X             CRJ2     SA3    TRACE                                                   GEN      1254
                          43020                   MX0    P2.TAGL                                                 GEN      1255
                               11601              BX6    X0*X1       TAG                                         GEN      1256
           560  77101                             CRJ    MUST        COMPILE RJT (WITH TRACE)                    GEN      1257
           561  0400000135 +                      EQ     NULLOP      EXIT..                                      GEN      1258
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    33
        (O=)  PROCESSORS CALLED BY SKELETONS.                         CDCS
  
                                        **        O=CDCS - RESET USER/FIXED COLLATE.                             GEN      1260
                                                                                                                 GEN      1261
           562                           O=CDCS   BSSENT 0                                                       GEN      1262
           562  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
           563  5160000000 X                      SA6    WO.CS       SET COLLATE FIXED/USER                      GEN      1267
                          0400000135 +            EQ     NULLOP                                                  GEN      1268
  
  
  
  
                                        **        O=CDDOT - RESET ZERO/ONE-TRIP LOOP.                            GEN      1270
                                                                                                                 GEN      1271
           564                           O=CDDOT  BSSENT 0                                                       GEN      1272
           564  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
           565  5160000000 X                      SA6    WO.DOOT     SET DO TRIP 0/1                             GEN      1277
                          0400000135 +            EQ     NULLOP                                                  GEN      1278
  
  
  
  
                                        **        O=CDLOO - RESET OBJECT LIST ON/OFF.                            GEN      1280
                                                                                                                 GEN      1281
           566                           O=CDLOO  BSSENT 0                                                       GEN      1282
           566  56141                             =A1    B4+OR.1OP                                               GEN      1283
                     43044                        MX0    -P2.BIASL                                               GEN      1284
                          20150                   LX1    -P2.BIASP                                               GEN      1285
           567  5120000572 +                      SA2    OCIOL                                                   GEN      1286
                          15110                   BX1    -X0*X1                                                  GEN      1287
                               20260              LX2    PB.GHIJP                                                GEN      1288
           570  20114                             LX1    PB.BIASP                                                GEN      1289
                     12712                        BX7    X1+X2                                                   GEN      1290
                          6120000135 +            WCODE  X7,NULLOP   OC$ OR I.IOL 0/1                            GEN      1291
                                                                                                                 GEN      1292
           572                     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
           573                           O=ENT    BSSENT             ENTRY...                                    GEN      1301
           573  5110000000 X                      SA1    N.GL                                                    GEN      1302
                          73611                   SX6    X1+B1       COUNT GENERATED LABELS                      GEN      1303
                               54610              SA6    A1                                                      GEN      1304
           574  56241                             =A2    B4+OR.1OP   GET ENTRY TAG                               GEN      1305
                     5130001154 +                 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/05. 20.00.24.      PAGE    34
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=ENT 
  
           575  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
           576  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
           577  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
           600  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
           601  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
           602  0400000552 +                      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
           603                           O=GENT   BSSENT 0                                                       GEN      1333
           603  5110000000 X                      SA1    S=ENTRY     ORDINAL OF MAIN ENTRY                       GEN      1334
                          7261000000              SX6    X1+                                                     GEN      1335
           604  5160001150 +                      SA6    ENT.STO     INITIALIZE SYMBOL TABLE ORDINAL FOR SCAN    GEN      1336
                                                                                                                 GEN      1337
           605                           O=GENTX  BSSENT 0                                                       GEN      1338
           605  5120001154 +                      SA2    N.ALTEN     GET ALTERNATE ENTRY COUNT                   GEN      1339
                          7272777776              =X7    X2-1                                                    GEN      1340
           606  0302000135 +                      ZR     X2,NULLOP   IF NO MORE ALTERNATE ENTRIES                GEN      1341
                          5150001150 +            SA5    ENT.STO     GET SYM TAB ORDINAL OF LAST ENTRY           GEN      1342
           607  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
           610  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
           611  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
           612  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
           613  20156                             SBIT   X1,WB.ENTP                                              GEN      1358
                     0321000612 +                 PL     X1,GENT5    IF NOT AN ENTRY                             GEN      1359
                               20112              SBIT   X1,WB.LABP/WB.ENTP                                      GEN      1360
           614  0331000612 +                      MI     X1,GENT5    IF LABEL                                    GEN      1361
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
           615  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
           616  5160000000 X                      SA6    REG=G       (GP1) = ALTERNATE ENTRY TAG                 GEN      1373
                          7271020000              SX7    X1+K2.GL                                                GEN      1374
           617  20754                             LX7    P2.TAGP     POSITION TAG FOR GP2                        GEN      1375
                     5170000001 X                 SA7    REG=G+1     (GP2) = EGL                                 GEN      1376
           620  7160000000 X                      SX6    W=ALENT     SKELETON FOR STANDARD ENTRY CODE            GEN      1377
                          5170001147 +            SA7    ENT.EGL     SAVE ENTRY GENERATED LABEL TAG              GEN      1378
           621  0400000022 +                      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
           622                           O=FPENT  BSSENT 0                                                       GEN      1388
           622  7160000000                        SX6    0                                                       F2950F5A   14
                          5160000000 X            SA6    =XENTRJ     FLAG NO RJ ISSUED SINCE CODE MODIFICATION   F2950F5A   15
                                                                                                                 F2950F5A   16
           623                           FPENT1   BSS    0                                                       F2950F5A   17
           623  5140001150 +                      SA4    ENT.STO     ENTRY POINT SYMORD                          GEN      1389
                          0100000661 +            RJ     ISA         ISSUE SAVE A0 OR RJ CPL.                    GEN      1390
           624  5140001150 +                      SA4    ENT.STO                                                 GEN      1391
                          0100000760 +            RJ     OSC         ISSUE SUB CODE                              GEN      1392
           625  0100001001 +                      RJ     OZC         ISSUE SUB0 CODE                             GEN      1393
           626  5110001153 +                      SA1    ENT.VD            GET VAR DIM FLAG                      GEN      1394
                          5110000000 X            SA1    ENTRJ                                                   F2950F5A   18
           627  0311000641 +                      NZ     X1,FPENT2   IF RJ ISSUED (OR NOT NEEDED)                F2950F5A   19
                          5120000000 X            SA2    N.GL                                                    F2950F5A   20
           630  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
           631  7170000035                        ISSUE  I.RJ3,X4    RJ GL                                       F2950F5A   24
           634  7170000024                        ISSUE  I.BSS,X4    GL BSS 0                                    F2950F5A   25
           637  7170000043                        ISSUE  I.ZERO      BSS 1                                       F2950F5A   26
                                                                                                                 F2950F5A   27
           641  5110001153 +             FPENT2   SA1    ENT.VD      VARDIM FLAG                                 F2950F5A   28
                          0301001101 +            ZR     X1,EVD1     IF NO VARDIM CODE                           GEN      1395
           642  76600                             SHRINK T=PAR,0                                                 GEN      1396
           643  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
           645  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/05. 20.00.24.      PAGE    36
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=FPENT 
  
           646  10155                             MOVE   X5,X2,X3    MOVE VDIM I. L. TO T.PAR                    GEN      1401
           647  5110000000 X                      SA1    ALC.00                                                  GEN      1402
                          10711                   BX7    X1          UNLOCK (B4)                                 GEN      1403
           650  5170000000 X                      SA7    ALC.REG                                                 GEN      1404
                          5110001150 +            SA1    ENT.STO                                                 GEN      1405
           651  0100001022 +                      RJ     MAV         MARK VD IN *VDI* ALLOWED FROM THSI ENTRY    GEN      1406
           652  0100001064 +                      RJ     MVT         NO-OP STORES NOT APPLICABLE                 GEN      1407
           653  0100000000 X                      CALL   PIG         PROCESS I.L. FOR GEN                        GEN      1408
           654  5110000000 X                      SA1    ALC.CAI                                                 GEN      1409
                          10711                   BX7    X1          RESTORE (B4) LOCK -> (T.PAR)                GEN      1410
           655  5170000000 X                      SA7    ALC.REG                                                 GEN      1411
                          5110000000 X            SA1    T.PAR                                                   GEN      1412
           656  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
           657                           O=FPHDR  BSSENT 0                                                       F2950F5A   30
           657  43601                             MX6    1                                                       F2950F5A   31
                     5160000000 X                 SA6    ENTRJ       FLAG RJ NOT NEEDED TO VOID HEADER           F2950F5A   32
           660  0400000623 +                      EQ     FPENT1                                                  F2950F5A   33
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    37
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
           660                           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
           661  0400400661 +             ISA      SUBR   =                                                       COMFISA     7
           662  5120000000 X                      SA2    =XCO.DBID                                               COMFISA     8
                          0302000670 +            ZR     X2,ISA05    IF DB=ID NOT SELECTED                       COMFISA     9
           663  7170007461                        ISSUE  7461B       SX6 A1                                      COMFISA    10
           665  5110000000 X                      SA1    =XS=SA1                                                 COMFISA    11
                          7170005160              ISSUE  5160B,X1    SA6 SAVEA1.                                 COMFISA    12
                                                                                                                 COMFISA    13
           670  5120000000 X             ISA05    SA2    =XN.EPL                                                 COMFISA    14
                          0312000712 +            NZ     X2,ISA20    IF CPL. CALL NEEDED                         COMFISA    15
                                                                                                                 FC50249     7
           671  5110000000 X             ISA15    SA1    =XN.FP                                                  FC50249     8
                          0311000674 +            NZ     X1,ISA17    IF FP/S                                     COMFISA    17
           672  5120000000 X                      SA2    MOD                                                     FC50249     9
                          43051                   MX0    -MO.CLIFL                                               COMFISA    20
                               20237              LX2    -MO.CLIFP                                               COMFISA    21
           673  15220                             BX2    -X0*X2                                                  COMFISA    22
                     0302000661 +                 ZR     X2,EXIT.    IF NOT CHARACTER FUNCTION                   COMFISA    23
                                                                                                                 COMFISA    24
           674  7170007460               ISA17    ISSUE  7460B       SX6 A0                                      COMFISA    25
           676  7170005401                        ISSUE  5401B       SA0 A1                                      COMFISA    26
           700  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    27
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    28
           703  5120000000 X                      SA2    =XCO.DBID                                               FC5A436     5
                          0302000661 +            ZR     X2,EXIT.    RETURN IF DEBUG NOT ON                      FC5A436     6
           704  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436     7
           706  5110000000 X                      SA1    =XS=SA0                                                 FC5A436     8
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436     9
           711  0400000661 +                      EQ     EXIT.                                                   COMFISA    29
                                                                                                                 COMFISA    30
           712  5120000000 X             ISA20    SA2    =X"O$"SYM                                               COMFISA    31
                          22514                   LX5    B1,X4                                                   COMFISA    32
                               36645              IX6    X4+X5                                                   COMFISA    33
           713  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
           714  15630                             BX6    -X0*X3                                                  COMFISA    38
                     5140000000 X                 SA4    =X"O$"ENTP                                              COMFISA    39
           715  0306000671 +                      ZR     X6,ISA15    IF NO FPS THIS ENTRY                        COMFISA    40
                          36446                   IX4    X4+X6                                                   COMFISA    41
           716  5120000000 X                      SA2    =XMOD                                                   COMFISA    42
                          43051                   MX0    -MO.CLIFL                                               COMFISA    43
                               20237              LX2    -MO.CLIFP                                               COMFISA    44
           717  15220                             BX2    -X0*X2                                                  COMFISA    45
                     0302000730 +                 ZR     X2,ISA30    IF NOT CHAR FUNCTION                        COMFISA    46
                                                                                                                 COMFISA    47
           720  7170001061                        ISSUE  1061B       BX6 X1                                      COMFISA    48
           722  76110                             =X1    1                                                       COMFISA    49
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFISA    50
                          7170005011              ISSUE  5011B,X1     SA1 A1+1                                   COMFISA    51
           725  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/05. 20.00.24.      PAGE    38
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
                                                                                                                 COMFISA    54
           730  5214777776               ISA30    SA1    X4-1                                                    COMFISA    55
                          43652                   MX6    -EH.BIASL                                               COMFISA    56
                                                  LX1    -EH.BIASP                                               COMFISA    57
                               15316              BX3    -X6*X1                                                  COMFISA    58
           731  5110000000 X                      SA1    =XS=CP                                                  COMFISA    59
                          20352                   LX3    PB.BIASP-PB.TAGP                                        COMFISA    60
                               12413              BX4    X1+X3                                                   COMFISA    61
           732  7170007060                        ISSUE  7060B       SX6 A0+                                     COMFISA    62
           734  5110000000 X                      SA1    =XS=GPL                                                 COMFISA    63
                          7170005100              ISSUE  5100B,X1          SA0 GPL.                              COMFISA    64
           737  7170005130                        ISSUE  5130B,X4    SA3 CP.+BIAS[ENTP]                          COMFISA    65
           742  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    66
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    67
           745  5110000000 X                      SA1    =XS=CPL                                                 COMFISA    68
                          7170000035              ISSUE  I.RJ3,X1          RJ CPL.                               COMFISA    69
           750  5120000000 X                      SA2    =XCO.DBID                                               FC5A436    10
                          0302000756 +            ZR     X2,ISA35    IF DEBUG NOT ON                             FC5A436    11
           751  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436    12
           753  5110000000 X                      SA1    =XS=SA0                                                 FC5A436    13
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436    14
                                 756 +   ISA35    EQU    *                                                       FC5A436    15
           756  43601                             MX6    1                                                       F2950F5A    5
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    6
           757  0400000661 +                      EQ     EXIT.                                                   COMFISA    70
                                         COMFISA  ENDX                                                           COMFISA    71
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    39
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OSC 
  
           757                           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
           760  0400400760 +             OSC      SUBR                                                           COMFOSC     9
           761  5110001151 +                      SA1    =XCC$SUB                                                COMFOSC    10
                          0301000760 +            ZR     X1,EXIT.    IF NO SUBS                                  COMFOSC    11
           762  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    12
                          22314                   LX3    B1,X4                                                   COMFOSC    13
                               36534              IX5    X3+X4                                                   COMFOSC    14
           763  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
           764  15650                             BX6    -X0*X5                                                  COMFOSC    19
                     0306000760 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    20
           765  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    21
                          36616                   IX6    X1+X6                                                   COMFOSC    22
           766  5226777776                        SA2    X6-1                                                    COMFOSC    23
                          43055                   MX0    -EH.SUBIL                                               COMFOSC    24
                               20233              LX2    -EH.SUBIP                                               COMFOSC    25
           767  15620                             BX6    -X0*X2                                                  COMFOSC    26
                     0306000760 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    27
           770  5130000000 X                      SA3    =XS=SUBI                                                COMFOSC    28
                          7266777776              SX6    X6-1                                                    COMFOSC    29
           771  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    30
                     12136                        BX1    X3+X6                                                   COMFOSC    31
                          7170005110              ISSUE  5110B,X1    SA1 SUBI.+BIAS                              COMFOSC    32
           774  5110000000 X                      SA1    =XS=SPA                                                 COMFOSC    33
                          7170000035              ISSUE  I.RJ3,X1          RJ SP5.                               COMFOSC    34
           777  43601                             MX6    1                                                       F2950F5A    7
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    8
          1000  0400000760 +                      EQ     EXIT.                                                   COMFOSC    35
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
          1001  0400401001 +             OZC      SUBR                                                           COMFOSC    43
          1002  5110000000 X                      SA1    =XLEVEL0                                                COMFOSC    44
                          0301001001 +            ZR     X1,EXIT.    IF NO SUB0                                  COMFOSC    45
                                         #MD      IFEQ   .DAL,1                                                  COMFOSC    46
          1003  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    47
                          22314                   LX3    B1,X4                                                   COMFOSC    48
                               36534              IX5    X3+X4                                                   COMFOSC    49
          1004  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
          1005  15650                             BX6    -X0*X5                                                  COMFOSC    54
                     0306001001 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    55
          1006  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    56
                          36616                   IX6    X1+X6                                                   COMFOSC    57
          1007  5226777776                        SA2    X6-1                                                    COMFOSC    58
                          43055                   MX0    -EH.SB0IL                                               COMFOSC    59
                               20252              LX2    -EH.SB0IP                                               COMFOSC    60
          1010  15620                             BX6    -X0*X2                                                  COMFOSC    61
                     0306001001 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    62
          1011  5130000000 X                      SA3    =XS=SUB0I                                               COMFOSC    63
                          7266777776              SX6    X6-1                                                    COMFOSC    64
          1012  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    65
                     12136                        BX1    X3+X6                                                   COMFOSC    66
                          7170005110              ISSUE  5110B,X1    SA1 SUB0I.+BIAS                             COMFOSC    67
          1015  5110000000 X                      SA1    =XS=SLI                                                 COMFOSC    68
                          7170000035              ISSUE  I.RJ3,X1          RJ SLI.                               COMFOSC    69
          1020  43601                             MX6    1                                                       F2950F5A    9
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A   10
          1021  0400001001 +                      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/05. 20.00.24.      PAGE    41
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
          1021                           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
          1022  0400401022 +             MAV      SUBR                                                           COMFMAV    15
                                                                                                                 COMFMAV    16
                                        *         CLEAR VD.ALO OF ALL VARDIM CELLS.                              COMFMAV    17
                                                                                                                 COMFMAV    18
          1023  5120000000 X                      SA2    =X"O$"VDI                                               COMFMAV    19
                          5130000000 X            SA3    =X"L$"VDI                                               COMFMAV    20
          1024  63730                             SB7    X3                                                      COMFMAV    21
                     43001                        CLAS=  X0,VD,ALO                                               COMFMAV    22
                               53420              SA4    X2                                                      COMFMAV    23
                                                                                                                 COMFMAV    24
          1025  15640                    MAV10    BX6    -X0*X4                                                  COMFMAV    25
                     67771                        SB7    B7-B1                                                   COMFMAV    26
                          54640                   SA6    A4                                                      COMFMAV    27
                               54441              SA4    A4+B1                                                   COMFMAV    28
          1026  0570001025 +                      NZ     B7,MAV10    IF VDI NOT EXHAUSTED                        COMFMAV    29
                          5120000000 X            SA2    "O$"SYM                                                 COMFMAV    30
          1027  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
          1030  43057                             MX0    -WB.PNTL                                                COMFMAV    35
                     20215                        LX2    -WB.PNTP                                                COMFMAV    36
                          15620                   BX6    -X0*X2                                                  COMFMAV    37
          1031  0306001022 +                      ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFMAV    38
                          5110000000 X            SA1    =X"O$"ENTP                                              COMFMAV    39
          1032  36016                             IX0    X1+X6                                                   COMFMAV    40
                     53200                        SA2    X0          SKIP HEADER                                 COMFMAV    41
                          6160000074              S"BT"  60                                                      COMFMAV    42
                                                                                                                 COMFMAV    43
          1033  0560001035 +             MAV20    NZ     "BT",MAV30  IF THIS WORD NOT FINISHED                   COMFMAV    44
                          6160000074              S"BT"  60                                                      COMFMAV    45
          1034  5022000001                        SA2    A2+1                                                    COMFMAV    46
                                                                                                                 COMFMAV    47
          1035  6166777760               MAV30    S"BT"  "BT"-15                                                 COMFMAV    48
                          43055                   MX0    -EF.ORDL                                                COMFMAV    49
                               23462              AX4    "BT",X2                                                 COMFMAV    50
          1036  15340                             BX3    -X0*X4                                                  COMFMAV    51
                     0303001022 +                 ZR     X3,EXIT.    IF LAST PARAMETER                           COMFMAV    52
                               22413              LX4    B1,X3                                                   COMFMAV    53
          1037  36634                             IX6    X3+X4                                                   COMFMAV    54
                     53567                        SA5    B7+X6       WB(ENTP(I))                                 COMFMAV    55
                          20561                   HX5    WB.ARY                                                  COMFMAV    56
          1040  0325001055 +                      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/05. 20.00.24.      PAGE    42
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
                               20530              LX5    1+WB.ARYP-WB.PNTP                                       COMFMAV    59
          1041  15353                             BX3    -X3*X5                                                  COMFMAV    60
                     5110000000 X                 SA1    =X"O$"DIM                                               COMFMAV    61
                               36513              IX5    X1+X3                                                   COMFMAV    62
          1042  53150                             SA1    X5                                                      COMFMAV    63
                                                  HX1    DH.VD                                                   COMFMAV    64
                     0321001055 +                 PL     X1,MAV90    IF NOT VARIABLE-DIMENSION                   COMFMAV    65
                               20102              LX1    DH.VDP-DH.VPP                                           COMFMAV    66
          1043  0321001045 +                      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
          1044  0100001060 +                      RJ     MVD         MARK PRODUCT OF SPAN VD.                    COMFMAV    70
                                                                                                                 COMFMAV    71
          1045  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
          1046  54111                    MAV50    =A1    A1+1                                                    COMFMAV    77
                     20136                        LX1    59-D1.SPANP-DM.TDP                                      FC5A231     8
                          0321001050 +            PL     X1,MAV60    IF NOT VARIABLE SPAN                        COMFMAV    79
          1047  20136                             LX1    1+DM.TDP                                                FC5A231     9
                     10311                        BX3    X1                                                      COMFMAV    81
                          0100001060 +            RJ     MVD         MARK SPAN VD.                               COMFMAV    82
                                                                                                                 COMFMAV    83
          1050  54111                    MAV60    =A1    A1+1                                                    COMFMAV    84
                                                  LX1    59-D2.LBP-DM.TDP                                        FC5A231    10
                     0321001052 +                 PL     X1,MAV70    IF VARIABLE LOWER BOUND                     COMFMAV    86
                               10311              BX3    X1                                                      COMFMAV    87
          1051  20336                             LX3    1+DM.TDP                                                FC5A231    11
                     0100001060 +                 RJ     MVD         MARK LOWER BOUND VD.                        COMFMAV    89
                                                                                                                 COMFMAV    90
          1052  20136                    MAV70    LX1    D2.LBP-D2.UBP                                           COMFMAV    91
                     0321001054 +                 PL     X1,MAV80    IF NOT VARIABLE UPPER BOUND                 COMFMAV    92
                               10311              BX3    X1                                                      COMFMAV    93
          1053  20336                             LX3    1+DM.TDP                                                FC5A231    12
                     0100001060 +                 RJ     MVD         MARK UPPER BOUND VD.                        COMFMAV    95
                                                                                                                 COMFMAV    96
          1054  67221                    MAV80    =B2    B2-1                                                    COMFMAV    97
                     0520001046 +                 NZ     B2,MAV50    IF MORE DIMENSIONS TO GO                    COMFMAV    98
                                                                                                                 COMFMAV    99
          1055  54351                    MAV90    =A3    A5+WC.W-WB.W                                            COMFMAV   100
                     20336                        HX3    WC.CTYP                                                 COMFMAV   101
                          0323001033 +            PL     X3,MAV20    IF NOT PASSED-LENGTH CHARACTER FORMAL       COMFMAV   102
                                                  LX3    1+WC.CTYPP-WC.CLENP                                     COMFMAV   103
          1056  0100001060 +                      RJ     MVD         MARK CLEN VD.                               COMFMAV   104
          1057  0400001033 +                      EQ     MAV20                                                   COMFMAV   105
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
          1060  0400401060 +             MVD      SUBR                                                           COMFMAV   113
          1061  43052                             MX0    -WC.CLENL                                               COMFMAV   114
                     15630                        BX6    -X0*X3                                                  COMFMAV   115
                          5130000000 X            SA3    "O$"VDI                                                 COMFMAV   116
          1062  43401                             CLAS=  X4,VD,ALO                                               COMFMAV   117
                          36036                   IX0    X3+X6                                                   COMFMAV   118
                               53300              SA3    X0                                                      COMFMAV   119
          1063  12643                             BX6    X4+X3                                                   COMFMAV   120
                     54630                        SA6    A3          ALO[VDI(ORD)] = 1                           COMFMAV   121
                          0400001060 +            EQ     EXIT.                                                   COMFMAV   122
                                         COMFMAV  ENDX                                                           COMFMAV   123
  
  
  
  
                                        **        MVT - MARK VARDIM TURPLES NOT ALLOWED FOR THIS ENTRY.          GEN      1419
                                                                                                                 GEN      1420
          1064  0400401064 +             MVT      SUBR                                                           GEN      1421
          1065  5110000000 X                      SA1    T.VDI                                                   GEN      1422
                          5120000000 X            SA2    T.PAR                                                   GEN      1423
          1066  5130000000 X                      SA3    T=VDI                                                   GEN      1424
                          7160000000 X            SX6    V=NOOP                                                  GEN      1425
          1067  20656                             LX6    TH.SKELP                                                GEN      1426
                     7100000054                   =X0    O.NONE                                                  GEN      1427
                                                  LX0    TH.OVALP                                                FC50104   249
                               12660              BX6    X6+X0                                                   GEN      1429
          1070  5211777776                        SA1    X1-1                                                    GEN      1430
                          63730                   SB7    X3                                                      GEN      1431
                               63220              SB2    X2                                                      GEN      1432
          1071  64717                             SB7    A1+B7                                                   GEN      1433
                                                                                                                 GEN      1434
          1072  65617                    MVT10    SB6    A1-B7                                                   GEN      1435
                     0460001064 +                 ZR     B6,EXIT.    IF VDI EXHAUSTED                            GEN      1436
                               54111              =A1    A1+1                                                    GEN      1437
          1073  20101                             HX1    VD.ALO                                                  GEN      1438
                     0331001072 +                 MI     X1,MVT10    IF THIS VD APPLIES TO THIS ENTRY POINT      GEN      1439
                               20173              LX1    VD.ALOP+1-VD.LENP                                       GEN      1440
          1074  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
          1075  22110                             LX1    B1,X0                                                   GEN      1446
                     36010                        IX0    X1+X0                                                   GEN      1447
                          53602                   SA6    B2+X0       STORE = NOOP                                GEN      1448
          1076  0400001072 +                      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/05. 20.00.24.      PAGE    44
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MVT 
  
          1077                           O=EVD    BSSENT 0           END VARDIM                                  GEN      1455
          1077  13000                             DRITE  DEACTIVATE  CHECK DELAYED WRITE                         GEN      1456
          1100  0100000000 X                      CALL   CIA         CLEAR REGFILE                               GEN      1457
          1101  5110001147 +             EVD1     SA1    ENT.EGL     GET ENTRY GENERATED LABEL                   GEN      1458
                          0301001227 +            ZR     X1,O=FINX   IF PROCESSING MAIN ENTRY                    GEN      1459
                              100000              ERRZR  K.GL                                                    GEN      1460
          1102  10711                             BX7    X1                                                      GEN      1461
                     7160000000 X                 SX6    W=TENT      SET TERMINATE ENTRY CODE                    GEN      1462
          1103  5170000001 X                      SA7    REG=G+1     SET GP2 FOR W=TENT                          GEN      1463
                          0400000022 +            EQ     SUB.RET                                                 GEN      1464
  
  
  
  
                                        **        O=FUNT  SETS X6 AND X7 TO FUNCTION RESULT IF NEEDED.           GEN      1466
                                                                                                                 GEN      1467
                                                                                                                 GEN      1468
          1104                           O=FUNT   BSSENT 0                                                       GEN      1469
          1104  5110000000 X                      SA1    MOD         GET PROGRAM MODE                            GEN      1470
                          7160000000 X            SX6    W=TMENT     NORMAL TERMINAL CODE SKEL FOR MAIN ENTRY    GEN      1471
          1105  20160                             SBIT   X1,MO.FUNP                                              GEN      1472
                     0321000022 +                 PL     X1,SUB.RET  IF NOT A FUNCTION                           GEN      1473
                               20114              LX1    MO.FUNP+1-MO.MODEP      POSITION MODE                   GEN      1474
          1106  43071                             MX0    -MO.MODEL   SET MODE MASK                               GEN      1475
                     15010                        BX0    -X0*X1      EXTRACT MODE                                GEN      1476
                          6270777771              SB7    X0-M.CHAR                                               GEN      1477
          1107  0470000022 +                      ZR     B7,SUB.RET  IF CHARACTER FUNCTION                       GEN      1478
                          7160000000 X            SX6    W=DFENT                                                 GEN      1479
          1110  5110000000 X                      SA1    S=VALUE                                                 GEN      1480
                          7211000004              SX1    X1+M.DBL                                                GEN      1481
          1111  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
          1112  36242                             IX2    X4+X2                                                   GEN      1486
                     5130000000 X                 SA3    T.SYM                                                   GEN      1487
                               63731              =B7    X3+WB.W                                                 GEN      1488
          1113  53117                             SA1    X1+B7                                                   GEN      1489
                     53227                        SA2    X2+B7                                                   GEN      1490
                          12012                   BX0    X1+X2                                                   GEN      1491
                               20063              HX0    WB.MDF                                                  FC5A191    19
          1114  0330000022 +                      MI     X0,SUB.RET  IF THERE IS DOUBLE OR COMPLEX ENTRY         GEN      1493
                          0400000135 +            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
          1115                           O=MENT   BSSENT 0                                                       GEN      1501
          1115  0100001155 +                      RJ     ICP         ISSUE CP. AND GPL. TABLES                   GEN      1502
          1116  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/05. 20.00.24.      PAGE    45
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              O=MENT
  
          1117  15110                             BX1    -X0*X1                                                  GEN      1506
                     0311001122 +                 NZ     X1,MENT05   IF CHARACTER FUNCTION                       GEN      1507
          1120  5110000000 X                      SA1    N.FP        GET NUMBER OF FORMAL PARAMETERS             GEN      1508
                          7150000000 X            SX5    W=FUNT      FUNCTION ENTRY CODE SKELETON                GEN      1509
          1121  0301001123 +                      ZR     X1,MENT1    IF NO FORMAL PAREMETERS                     GEN      1510
                                                                                                                 GEN      1511
          1122  7150000000 X             MENT05   SX5    W=MFPNT     SUBSKEL FOR MAIN ENTRY                      GEN      1512
                                                                                                                 GEN      1513
          1123  76000                    MENT1    CBSS   0           FORCE UPPER ON START BLOCK                  GEN      1514
          1126  7110000000 X                      ISUSE  STRT        USE   START.                                GEN      1515
          1131  5120000000 X                      SA2    CO.DBER                                                 GEN      1516
                          0302001133 +            ZR     X2,MENT2    IF OTR DESELEDTED                           GEN      1517
          1132  0100001561 +                      RJ     SOR         SET OBJECT TIME REPRIEVE                    GEN      1518
                                                                                                                 GEN      1519
          1133  5110000000 X             MENT2    SA1    S=EXIT                                                  GEN      1520
                          7170000024              ISSUE  I.BSS,X1    EXIT. BSS 0                                 GEN      1521
          1136  5110000000 X                      SA1    =XN.ARP                                                 GEN      1522
                          0301001144 +            ZR     X1,MENT25   IF NO ALT ENTRIES                           GEN      1523
          1137  7170007110                        ISSUE  7110B       SX1 0                                       GEN      1524
          1141  5110000000 X                      SA1    S=AEXIT                                                 GEN      1525
                          7170000024              ISSUE  I.BSS,X1    AEXIT. BSS 0                                GEN      1526
                                                                                                                 GEN      1527
          1144  13777                    MENT25   BX7    0                                                       GEN      1528
                     10655                        =X6    X5          (X6) = SUBSKEL ORDINAL                      GEN      1529
                          5170001147 +            SA7    ENT.EGL     SET EGL FLAG TO INDICATE MAIN ENTRY         GEN      1530
          1145  5110000000 X                      SA1    S=ENTRY                                                 GEN      1531
                          10711                   BX7    X1                                                      GEN      1532
          1146  5170001150 +                      SA7    ENT.STO     FLAG MAIN ENTRY                             GEN      1533
                          0400000022 +            EQ     SUB.RET                                                 GEN      1534
                                                                                                                 GEN      1535
          1147                     1     ENT.EGL  BSZENT 1           ENTRY GENERATED LABEL CELL                  GEN      1536
          1150                     1     ENT.STO  BSZENT 1           SYM TAB ORDINAL FOR ENTRY SYM TAB SCAN.     GEN      1537
          1151                     1     ENT.SUB  BSZENT 1           ADD SUB FLAG                                GEN      1538
                                1151 +   CC$SUB   EQU    ENT.SUB                                                 GEN      1539
          1152                     1     ENT.SB0  BSZENT 1                                                       GEN      1540
                                1152 +   CC$SUB0  EQU    ENT.SB0                                                 GEN      1541
          1153                     1     ENT.VD   BSZENT 1           VARDIM I. L. FLAG                           GEN      1542
          1154                     1     N.ALTEN  BSZENT 1           ALTERNATE ENTRY COUNTER                     GEN      1543
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    46
        COMFICP - ISSUE CP. AND GPL. TABLES.                          ICP 
  
          1155                           ICP      CTEXT  COMFICP - ISSUE CP. AND GPL. TABLES.                    COMFICP     2
          1155  0400401155 +             ICP      SUBR                                                           COMFICP     3
          1156  5110000000 X                      SA1    =XN.EPL                                                 COMFICP     4
                          0301001155 +            ZR     X1,EXIT.    IF NO CPL. CALLS NEEDED                     COMFICP     5
          1157  7110000000 X                      ISUSE  TEM         USE TEM.                                    COMFICP     6
          1162  5120000000 X                      SA2    =XS=GPL                                                 COMFICP     7
                          5130000000 X            SA3    =X"L$"FPI                                               COMFICP     8
          1163  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
          1166  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
          1171  5110000000 X                      SA1    =X"O$"ENTP                                              COMFICP    17
                          6150777776              SB5    -1                                                      COMFICP    18
          1172  53010                             SA0    X1                                                      COMFICP    19
                     0400001176 +                 EQ     ICP20                                                   COMFICP    20
                                                                                                                 COMFICP    21
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           COMFICP    22
                                                                                                                 COMFICP    23
          1173  7170000043               ICP10    ISSUE  I.ZERO                                                  COMFICP    24
          1175  5110000000 X                      SA1    "O$"ENTP                                                COMFICP    25
                          53010                   SA0    X1                                                      COMFICP    26
                                                                                                                 COMFICP    27
          1176  6155000002               ICP20    SB5    B5+2        SKIP HEADER                                 COMFICP    28
                          5110000000 X            SA1    =X"L$"ENTP                                              COMFICP    29
          1177  63710                             SB7    X1                                                      COMFICP    30
                     67757                        SB7    B5-B7                                                   COMFICP    31
                          0670001155 +            PL     B7,EXIT.    IF END OF ENTP                              COMFICP    32
          1200  54405                             SA4    B5+A0                                                   COMFICP    33
                     6160000074                   S"BT"  60                                                      COMFICP    34
                                                                                                                 COMFICP    35
          1201  0560001203 +             ICP30    NZ     "BT",ICP40  IF THIS WORD NOT EXHAUSTED                  COMFICP    36
                          6160000074              S"BT"  60                                                      COMFICP    37
          1202  66551                             SB5    B5+B1                                                   COMFICP    38
                     54405                        SA4    A0+B5                                                   COMFICP    39
                                                                                                                 COMFICP    40
          1203  6166777760               ICP40    S"BT"   "BT"-15                                                COMFICP    41
                          43055                   MX0    -EF.ORDL                                                COMFICP    42
                               23364              AX3    "BT",X4                                                 COMFICP    43
          1204  15630                             BX6    -X0*X3                                                  COMFICP    44
                     0306001173 +                 ZR     X6,ICP10    IF END OF LIST                              COMFICP    45
          1205  7170000023                        ISSUE  I.CPL,X6                                                COMFICP    46
          1210  5110000000 X                      SA1    "O$"ENTP                                                COMFICP    47
                          53010                   SA0    X1                                                      COMFICP    48
          1211  0400001201 +                      EQ     ICP30                                                   COMFICP    49
                                         COMFICP  ENDX                                                           COMFICP    50
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
          1212                           O=FIN    BSSENT             ENTRY...                                    GEN      1552
          1212  5120000000 X                      SA2    MOD                                                     GEN      1553
                          20262                   HX2    MO.PRO                                                  GEN      1554
          1213  0322001224 +                      PL     X2,FIN3     IF A SUB PROGRAM                            GEN      1555
                          76000                   CBSS   0           FORCE UPPER                                 GEN      1556
          1216  7110000000 X                      ISUSE  STRT        USE START                                   GEN      1557
          1221  5120000000 X                      SA2    CO.DBER                                                 GEN      1558
                          0302001223 +            ZR     X2,FIN2     IF OTR DE-SELECTED                          GEN      1559
          1222  0100001561 +                      RJ     SOR         SET OBJRCT TIME REPRIEVE                    GEN      1560
          1223  7160000000 X             FIN2     SX6    W=PROM      SET MAIN PROGRAM SKELETON                   GEN      1561
                          0400000022 +            EQ     SUB.RET     PROCESS MAIN PROLOGUE                       GEN      1562
                                                                                                                 GEN      1563
          1224  20201                    FIN3     LX2    MO.PROP-MO.BLKP                                         GEN      1564
                     0332001227 +                 MI     X2,O=FINX   IF BLOCK DATA, TERMINATE                    GEN      1565
          1225  0100001243 +                      RJ     OST         OUTPUT SUB TABLES                           GEN      1566
          1226  7160000000 X                      SX6    W=PROS                                                  GEN      1567
                          0400000022 +            EQ     SUB.RET     ISSUE PROLOG                                GEN      1568
                                                                                                                 GEN      1569
                                        *         PROLOG SKELETONS RETURN TO O=FINX.                             GEN      1570
                                                                                                                 GEN      1571
          1227                           O=FINX   BSSENT             ...RETURN FROM PROLOG SKELETONS             GEN      1572
          1227  76000                             CBSS   0           FORCE UPPER ON START BLOCK                  GEN      1573
          1232  7170000027                        WPOP   I.EMI       END MACHINE INSTRUCTIONS                    GEN      1574
          1234  5120000000 X                      SA2    =XN.STMAX                                               FC50138     5
                          5130000000 X            SA3    =XN.ST                                                  FC50138     6
          1235  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
          1237  5110000000 X                      SA1    T=CON                                                   GEN      1576
                          10611                   BX6    X1                                                      GEN      1577
          1240  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/05. 20.00.24.      PAGE    48
        COMFICP - ISSUE CP. AND GPL. TABLES.                          OST 
  
                                        **        OST - OUTPUT SUB AND SUB0 INDEX TABLES.                        GEN      1581
                                                                                                                 GEN      1582
          1243  0400401243 +             OST      SUBR                                                           GEN      1583
          1244  5110001151 +                      SA1    ENT.SUB                                                 GEN      1584
                          0301001262 +            ZR     X1,OST10    IF NO SUBS                                  GEN      1585
          1245  7110000000 X                      ISUSE  SUB                                                     GEN      1586
          1250  5110000000 X                      SA1    S=SUB                                                   GEN      1587
                          7170000024              ISSUE  I.BSS,X1    SUB. BSS 0                                  GEN      1588
          1253  7110000000 X                      ISUSE  TEM                                                     GEN      1589
          1256  5110000000 X                      SA1    S=SUBI                                                  GEN      1590
                          7170000024              ISSUE  I.BSS,X1    SUBI. BSS 0                                 GEN      1591
          1261  76600                             =X6    0                                                       GEN      1592
                     0100001272 +                 RJ     OSI         ISSUE SUBI.                                 GEN      1593
                                                                                                                 GEN      1594
          1262  7110000000 X             OST10    ISUSE  TEM                                                     GEN      1595
          1265  5110000000 X                      SA1    S=SUB0I                                                 GEN      1596
                          7170000024              ISSUE  I.BSS,X1    SUB0I. BSS 0                                GEN      1597
          1270  76610                             =X6    1                                                       GEN      1598
                     0100001272 +                 RJ     OSI         ISSUE SUB0I.                                GEN      1599
          1271  0400001243 +                      EQ     EXIT.                                                   GEN      1600
  
  
  
  
                                        **        OSI - ISSUE SUB INDEX TABLE.                                   GEN      1602
                                        *                                                                        GEN      1603
                                        *         ENTRY  X6 = 0/1 FOR SUB/SUB0                                   GEN      1604
                                                                                                                 GEN      1605
          1272  0400401272 +             OSI      SUBR                                                           GEN      1606
          1273  5160001337 +                      SA6    OSIA                                                    GEN      1607
                          43700                   MX7    0                                                       GEN      1608
          1274  5170001340 +                      SA7    OSIB                                                    GEN      1609
                          5170001342 +            SA7    OSID        TOTAL = 0                                   GEN      1610
          1275  5110000000 X                      SA1    T.ENTP                                                  GEN      1611
                          57001                   =A0    -1                                                      GEN      1612
                               63510              SB5    X1                                                      GEN      1613
          1276  0400001311 +                      EQ     OSI20                                                   GEN      1614
                                                                                                                 GEN      1615
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           GEN      1616
                                                                                                                 GEN      1617
          1277  5120001340 +             OSI10    SA2    OSIB                                                    GEN      1618
                          5140001342 +            SA4    OSID                                                    GEN      1619
          1300  37142                             IX1    X4-X2                                                   GEN      1620
                     0301001311 +                 ZR     X1,OSI20    IF NO SUBS THIS LIST                        GEN      1621
          1301  7170000043                        ISSUE  I.ZERO                                                  GEN      1622
          1303  5110000000 X                      SA1    T.ENTP                                                  GEN      1623
                          63510                   SB5    X1                                                      GEN      1624
          1304  5110001340 +                      SA1    OSIB                                                    GEN      1625
                          73611                   SX6    X1+B1       TOTAL = TOTAL + 1                           GEN      1626
                               54610              SA6    A1                                                      GEN      1627
          1305  54640                             SA6    A4          NEW LEN = TOTAL                             GEN      1628
                     73641                        SX6    X4+B1                                                   GEN      1629
                          5110001341 +            SA1    OSIC                                                    GEN      1630
          1306  53215                             SA2    X1+B5                                                   GEN      1631
                     5110001337 +                 SA1    OSIA                                                    GEN      1632
          1307  5211001343 +                      SA1    OSIS+X1                                                 GEN      1633
                          63310                   SB3    X1                                                      GEN      1634
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    49
        COMFICP - ISSUE CP. AND GPL. TABLES.                          OSI 
  
                               22636              LX6    B3                                                      GEN      1635
          1310  12726                             BX7    X2+X6                                                   GEN      1636
                     54720                        SA7    A2          SUBI[ENTP(I)] = OLD SUBI LEN+1              GEN      1637
                                                                                                                 GEN      1638
          1311  5000000002               OSI20    SA0    A0+2        SKIP HEADER                                 GEN      1639
                          75601                   SX6    A0-B1       POINTS TO HEADER                            GEN      1640
                               54505              SA5    B5+A0                                                   GEN      1641
          1312  5160001341 +                      SA6    OSIC                                                    GEN      1642
                          5110000000 X            SA1    T=ENTP                                                  GEN      1643
          1313  63710                             SB7    X1                                                      GEN      1644
                     65707                        SB7    A0-B7                                                   GEN      1645
                          0670001272 +            PL     B7,EXIT.    IF ENTP FINISHED                            GEN      1646
          1314  6160000074                        SB6    60                                                      GEN      1647
                                                                                                                 GEN      1648
          1315  0560001317 +             OSI30    NZ     B6,OSI40    IF THIS WORD NOT EXHAUSTED                  GEN      1649
                          6160000074              SB6    60                                                      GEN      1650
          1316  54001                             =A0    A0+1                                                    GEN      1651
                     54505                        SA5    B5+A0                                                   GEN      1652
                                                                                                                 GEN      1653
          1317  6166777760               OSI40    SB6    B6-15                                                   GEN      1654
                          43055                   MX0    -EF.ORDL                                                GEN      1655
                               23365              AX3    B6,X5                                                   GEN      1656
          1320  15630                             BX6    -X0*X3                                                  GEN      1657
                     0306001277 +                 ZR     X6,OSI10    IF END OF LIST                              GEN      1658
          1321  5110000000 X                      SA1    T.SYM                                                   GEN      1659
                          22716                   LX7    B1,X6                                                   GEN      1660
                               36376              IX3    X7+X6                                                   GEN      1661
          1322  63711                             =B7    X1+WB.W                                                 GEN      1662
                     53137                        SA1    B7+X3                                                   GEN      1663
                          43063                   MX0    -WB.FPNOL                                               GEN      1664
          1323  5120000000 X                      SA2    =XT.FPI                                                 GEN      1665
                          20133                   LX1    -WB.FPNOP                                               GEN      1666
                               15110              BX1    -X0*X1                                                  GEN      1667
          1324  36312                             IX3    X1+X2                                                   GEN      1668
                     5233777776                   SA3    X3-1                                                    GEN      1669
          1325  5140001337 +                      SA4    OSIA                                                    GEN      1670
                          5224001347 +            SA2    OSIM2+X4                                                GEN      1671
          1326  11023                             BX0    X2*X3                                                   GEN      1672
                     0300001315 +                 ZR     X0,OSI30    IF THIS FP NOT APPLICABLE                   GEN      1673
          1327  5224001351 +                      SA2    OSIM3+X4                                                GEN      1674
                          11023                   BX0    X2*X3                                                   GEN      1675
          1330  0300001315 +                      ZR     X0,OSI30    IF SUB0 AND NOT LEVEL 0                     GEN      1676
                          5214001345 +            SA1    OSIO+X4     INSTRUCTION OPCODE                          GEN      1677
          1331  10711                             ISSUE  X1,X6                                                   GEN      1678
          1334  5110001340 +                      SA1    OSIB                                                    GEN      1679
                          73611                   =X6    X1+1                                                    GEN      1680
                               54610              SA6    A1          TOTAL = TOTAL + 1                           GEN      1681
          1335  5110000000 X                      SA1    T.ENTP                                                  GEN      1682
                          63510                   SB5    X1                                                      GEN      1683
          1336  0400001315 +                      EQ     OSI30                                                   GEN      1684
                                                                                                                 GEN      1685
          1337                     1     OSIA     BSS    1                                                       GEN      1686
          1340                     1     OSIB     BSSZ   1                                                       GEN      1687
          1341                     1     OSIC     BSS    1                                                       GEN      1688
          1342                     1     OSID     BSSZ   1                                                       GEN      1689
          1343  00000000000000000041     OSIS     CON    EH.SUBIP,EH.SB0IP                                       GEN      1690
          1344  00000000000000000022
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    50
        COMFICP - ISSUE CP. AND GPL. TABLES.                          OSI 
  
          1345  00000000000000000037     OSIO     CON    I.SUBI,I.SB0I                                           GEN      1691
          1346  00000000000000000040
          1347                           OSIM2    BFMW   FP,LEN                                                  GEN      1692
          1350                                    BFMW   FP,(VDS,SUB0)                                           GEN      1693
          1351  77777777777777777777     OSIM3    VFD    60/-0                                                   GEN      1694
          1352                                    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
          1353                           O=GFD    BSSENT 0           ENTRY...                                    GEN      1708
          1353  66540                             SB5    B4                                                      GEN      1709
          1353                           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
          1354  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
          1355  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
          1356  55131                             =A1    A3-WC.W+WB.W      *WB*                                  COMFGFD    19
                     20105                        LX1    -WB.EQUP-1                                              COMFGFD    20
                          0321001366 +            PL     X1,GFD4     IF NOT EQUIVALENCED FILE                    COMFGFD    21
                                                                                                                 COMFGFD    22
                                        *         EQUIVALENCED FILE.                                             COMFGFD    23
                                                                                                                 COMFGFD    24
          1357  10144                             BX1    X4                                                      COMFGFD    25
                     10466                        BX4    X6                                                      COMFGFD    26
                          7170000010              ISSUE  OC$FVEC,X1                                              COMFGFD    27
          1362  7170000010                        ISSUE  OC$FVEC,X4                                              COMFGFD    28
          1365  0400001403 +                      EQ     GFD6                                                    COMFGFD    29
                                                                                                                 COMFGFD    30
                                        *         NON-EQUIVALENCED FILE.                                         COMFGFD    31
                                                                                                                 COMFGFD    32
          1366  5110000000 X             GFD4     SA1    =XCO.STAT                                               F1037F5    46
                          0321001374 +            PL     X1,GFD5     IF NOT *STATIC* MODE                        F1037F5    47
          1367  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/05. 20.00.24.      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
          1370  7120000011                        CW     X2,X7       X2 = MRL (WORDS)                            F1037F5    52
                                         .RM      IFEQ   CP#RM,0                                                 F1037F5    53
          1372  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
          1373  5170000000 X                      SA7    N.BUF       UPDATE THE CELL                             F1037F5    59
                                                                                                                 F1037F5    60
          1374  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
          1375  7170000010                        ISSUE  OC$FVEC,X1                                              F1037F5    65
          1400  10144                             BX1    X4                                                      F1037F5    66
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFGFD    39
                          7170000010              ISSUE  OC$FVEC,X1                                              COMFGFD    40
                                                                                                                 COMFGFD    41
          1403                           GFD6     BSS    0                                                       COMFGFD    42
                                                                                                                 COMFGFD    43
                                                  ENDX                                                           COMFGFD    44
          1403  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
          1404                           O=HDR    BSSENT             ENTRY...                                    GEN      1720
          1404  6144000003                        SB4    B4+Z=TURP                                               GEN      1721
                          7170000011              WPOP   OC$IDNT                                                 GEN      1722
          1407  5120000000 X                      SA2    MOD                                                     GEN      1723
                          20263                   HX2    MO.BLK                                                  GEN      1724
          1410  0332000012 +                      MI     X2,EIS.PNX  IF BLOCKDATA, NO TRACE WORD                 GEN      1725
                          7170000017              WPOP   OC$TRAC                                                 GEN      1726
          1413  5120000000 X                      SA2    MOD                                                     GEN      1727
                          20262                   HX2    MO.PRO                                                  GEN      1728
          1414  5110000000 X                      SA1    S=UPW                                                   GEN      1729
                          0322001424 +            PL     X2,HDR6     IF NOT MAIN PROGRAM                         GEN      1730
          1415  0301000012 +                      ZR     X1,EIS.PNX  IF NO FILE ARGUMENTS                        GEN      1731
                          76710                   ISSUE  OC$BSS,X1   UPW.  BSS 0                                 GEN      1732
          1420  5120000000 X                      SA2    NARGS                                                   GEN      1733
                          73721                   SX7    X2+B1                                                   GEN      1734
                               22117              LX1    X7,B1       FILETAB LEN = 2 * (NARGS + 1)               GEN      1735
          1421  20152                             LX1    -PB.TAGP+PB.BIASP                                       GEN      1736
                     7170000010                   ISSUE  OC$FVEC,X1,EIS.PNX                                      GEN      1737
                                                                                                                 GEN      1738
          1424  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/05. 20.00.24.      PAGE    52
        COMFICP - ISSUE CP. AND GPL. TABLES.                          O=HDR 
  
          1427  7170000043                        WPOP   I.ZERO                                                  FC5A436    20
                                                                                                                 FC5A436    21
                                        *         CID REQUIRES SAVEA0 TO BE AT SAVEA1+1.                         FC5A436    22
                                                                                                                 FC5A436    23
          1431  5110000000 X                      SA1    S=SA0                                                   FC5A436    24
                          76710                   ISSUE  OC$BSS,X1   SAVEA0  BSS  0                              FC5A436    25
          1434  7170000003                        WPOP   OC$BMI                                                  GEN      1741
          1436  7170000043                        WPOP   I.ZERO                                                  GEN      1742
          1440  7170000027                        WPOP   I.EMI,EIS.PNX                                           GEN      1743
  
  
  
  
                                        **        DATA - PROCESS DATA TURPLE AND TABLE.                          GEN      1745
                                                                                                                 GEN      1746
                                                                                                                 GEN      1747
          1442                           O=DATA   BSSENT 0                                                       GEN      1748
          1442  5110000000 X                      SA1    T=DATS                                                  GEN      1749
                          10411                   BX4    X1                                                      GEN      1750
                               20152              LX1    PB.BIASP-PB.TAGP                                        GEN      1751
          1443  7170000025                        ISSUE  I.DATA,X1                                               GEN      1752
                                                                                                                 GEN      1753
          1446  6150000000                        SB5    0                                                       GEN      1754
                          63640                   SB6    X4                                                      GEN      1755
          1447  6120001450 +                      SB2    DATA10      EXIT FROM WTE                               GEN      1756
                                                                                                                 GEN      1757
          1450  5110000000 X             DATA10   SA1    T.DATS                                                  GEN      1758
                          0456001453 +            EQ     B5,B6,DATA20      IF DATA TABLE EXHAUSTED               GEN      1759
          1451  53515                             SA5    X1+B5                                                   GEN      1760
                     10755                        BX7    X5                                                      GEN      1761
                          6155000001              SB5    B5+1                                                    GEN      1762
          1452  0400000000 X                      JP     WTE         WRITE DATA TABLE ENTRY TO PREBINARY         GEN      1763
                                                                                                                 GEN      1764
          1453  76600                    DATA20   SHRINK T=DATS,0                                                GEN      1765
          1454  0400000135 +                      EQ     NULLOP                                                  GEN      1766
  
  
  
  
                                        **        O=ILL - TURPLE CODE LOST.                                      GEN      1768
                                                                                                                 GEN      1769
          1455                           O=ILL    BSSENT                                                         GEN      1770
          1455  0400401455 +                      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
          1456                           O=LCC    BSSENT             ENTRY...                                    GEN      1779
          1456  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/05. 20.00.24.      PAGE    53
        COMFICP - ISSUE CP. AND GPL. TABLES.                          O=LCC 
  
          1457  20760                             LX7    PB.GHIJP                                                GEN      1783
                     5124000002                   =A2    B4+OR.2OP                                               GEN      1784
                               12771              BX7    X7+X1                                                   GEN      1785
          1460  20212                             LX2    0-P2.BIASP+PB.TAGP                                      GEN      1786
                     12772                        BX7    X7+X2                                                   GEN      1787
                          6144000003              SB4    B4+Z=TURP                                               GEN      1788
          1461  6120000012 +                      WCODE  X7,EIS.PNX                                              GEN      1789
  
  
  
  
                                        **        O=PLIM - MARK END OF FILE DEFINITIONS.                         GEN      1791
                                                                                                                 GEN      1792
                                                                                                                 GEN      1793
          1462                           O=PLIM   BSSENT             ENTRY...                                    GEN      1794
          1462  6144000003                        SB4    B4+Z=TURP                                               GEN      1795
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    54
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     PLI 
  
          1462                           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
          1463  0301001470 +                      ZR     X1,PLI4     IF NO FILES                                 COMFPLI     7
                          7170000010              ISSUE  OC$FVEC     CON 0       TERMINATE FILE LIST             COMFPLI     8
          1466  7170000010                        ISSUE  OC$FVEC     CON 0                                       COMFPLI     9
          1470  5110000000 X             PLI4     SA1    S=FILES                                                 COMFPLI    10
                          76710                   ISSUE  OC$BSS,X1   FILES. BSS 0                                COMFPLI    11
          1473  5140000000 X                      SA4    =XCO.STAT   STATIC MODE FLAG                            F1037F5    67
                          5110000000 X            SA1    S=UPW                                                   COMFPLI    12
          1474  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
          1475  12117                             BX1    X1+X7                                                   COMFPLI    15
                     76700                        ISSUE  OC$ADDR,X1    CON 1S18+UPW.                             COMFPLI    16
          1500  7170000016                        ISSUE  OC$PLIM     CON PLIM                                    FC50049     5
          1502  0304001511 +                      ZR     X4,PLI10    IF NOT *STATIC* MODE                        F1037F5    70
                          5110000000 X            SA1    =XN.BUF                                                 F1037F5    71
          1503  5140000000 X                      SA4    =XS=BUF                                                 F1037F5    72
                          20152                   LX1    PB.BIASP-PB.TAGP                                        F1037F5    73
                               12114              BX1    X1+X4                                                   F1037F5    74
          1504  76700                             ISSUE  OC$ADDR,X1   CON    BUF.,C(N.BUF)                       F1037F5    75
          1506  5110000000 X                      SA1    =XN.BUF                                                 F1037F5    76
                          20152                   LX1    PB.BIASP-PB.TAGP                                        F1037F5    77
                               12114              BX1    X1+X4                                                   F1037F5    78
          1507  76710                             ISSUE  OC$BSS,X1   BUF.   BSS   C(N.BUF)                       F1037F5    79
                                                                                                                 F1037F5    80
          1511                           PLI10    BSS    0                                                       F1037F5    81
                                         COMFPLI  ENDX                                                           COMFPLI    20
          1511  0400000012 +                      EQ     EIS.PNX                                                 GEN      1797
  
  
  
  
                                        **        O=RGT - ALTERNATE RETURN                                       GEN      1799
                                                                                                                 GEN      1800
                                                                                                                 GEN      1801
          1512                           O=RGT    BSSENT 0                                                       GEN      1802
          1512  43230                             MX2    P2.BIASL                                                GEN      1803
                     20254                        LX2    P2.BIASL+P2.BIASP                                       GEN      1804
                          5114000002              =A1    B4+OR.2OP                                               GEN      1805
          1513  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
          1514  12613                             BX6    X1+X3                                                   GEN      1810
                     5160000001 X                 SA6    REG=G+1     GL2 = -2OP                                  GEN      1811
                               56541              =A5    B4+OR.1OP                                               GEN      1812
          1515  5130000000 X                      SA3    UAP                                                     GEN      1813
                          7213040000              SX1    X3+K2.AP                                                GEN      1814
          1516  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/05. 20.00.24.      PAGE    55
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     O=RGT 
  
          1517  12616                             BX6    X1+X6                                                   GEN      1819
                     5160000000 X                 SA6    REG=G       GL1 = APIND + BIAS[OP1]                     GEN      1820
          1520  0400000135 +                      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
          1521                           O=SEX    BSSENT             ENTRY...                                    GEN      1830
          1521  6144000003                        SB4    B4+Z=TURP                                               GEN      1831
                          7110000000 X            ISUSE$ CON         USE CON.                                    GEN      1832
          1525  7170000004                        WPOP   OC$CON      PROCESS LITERALS                            GEN      1833
          1527  7110000000 X                      ISUSE$ FMT         USE FMT.                                    GEN      1834
          1532  7170000007                        WPOP   OC$FMT      PROCESS FORMATS                             GEN      1835
          1534  7110000000 X                      ISUSE$ APL         USE APL.                                    GEN      1837
          1537  76711                             WPOP   OC$APL      PROCESS AP-LIST                             GEN      1838
          1541  7110000000 X                      ISUSE$ IOAP        USE IOAPL.                                  GEN      1839
          1544  7170000012                        WPOP   OC$IOM      PROCESS I/O APLISTS.                        GEN      1840
          1546  7110000000 X                      ISUSE$ NLST        USE NLST.                                   GEN      1841
          1551  7170000015                        WPOP   OC$NLST     PROCESS NAMELIST DEFS                       GEN      1842
          1553  7120000000 X                      SX2    BN=CODE                                                 GEN      1843
                          7160000020              SX6    OC$USE                                                  GEN      1844
          1554  20214                             LX2    PB.BIASP                                                GEN      1845
                     20660                        LX6    PB.GHIJP                                                GEN      1846
                          12726                   BX7    X2+X6       ISSUE   * USE  CODE. *                      GEN      1847
          1555  6120001556 +                      WCODE  X7                                                      GEN      1848
          1556  7160000033                        SX6    I.LOO                                                   GEN      1849
                          5160000572 +            SA6    OCIOL       CURRENT OBJECT ON/OFF OPCODE                GEN      1850
          1557  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
          1561  0400401561 +             SOR      SUBR   0                                                       GEN      1862
          1562  7140000034                        SX4    I.OTR                                                   GEN      1863
                          5120000000 X            SA2    S=LENP                                                  GEN      1864
                                                  =X2    X2+K.SYM                                                GEN      1865
          1563  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
          1564  6120001565 +                      WCODE  X7          SB0    B2-LEN.                              GEN      1869
          1565  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/05. 20.00.24.      PAGE    56
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     SOR 
  
                          20255                   LX2    PB.INSTP                                                GEN      1871
          1566  5130000000 X                      SA3    S=TRACE                                                 GEN      1872
                          73430                   =X4    X3+K.SYM                                                GEN      1873
                               20436              LX4    PB.TAGP                                                 GEN      1874
          1567  36724                             IX7    X2+X4       12/6102,18/TAG OF TRACE WORD,30/0           GEN      1875
                     6120001561 +                 WCODE  X7,EXIT.    SB0   B2+L.0                                GEN      1876
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    57
        PROCESSORS TO SELECT SUB-SKELETONS.                           O=IM
  
                                        **        O=IM - INTEGER MULTIPLY.                                       GEN      1879
                                                                                                                 GEN      1880
                                                                                                                 GEN      1881
          1571                           O=IM     BSSENT 0           ENTRY...                                    GEN      1882
          1571  7160000000 X                      SX6    W=IMV       GENERAL INTEGER MULTIPLY                    GEN      1883
                          0400000022 +            EQ     SUB.RET                                                 GEN      1884
  
  
  
  
                                        **        O=ID - INTEGER DIVIDE.                                         GEN      1886
                                                                                                                 GEN      1887
                                                                                                                 GEN      1888
          1572                           O=ID     BSSENT 0                                                       GEN      1889
          1572  7160000000 X                      SX6    W=IDV       GENERAL INTEGER DIVIDE                      GEN      1890
                          0400000022 +            EQ     SUB.RET                                                 GEN      1891
  
  
  
  
                                        **        O=MASK - SELECT MASK GENERATION CODE.                          GEN      1893
                                                                                                                 GEN      1894
                                                                                                                 GEN      1895
          1573                           O=MASK   BSSENT 0                                                       GEN      1896
          1573  7160000000 X                      SX6    W=MASKV     SET GENERAL MASK                            GEN      1897
                          0400000022 +            EQ     SUB.RET                                                 GEN      1898
  
  
  
  
                                        **        O=MOD - SELECT CODE FOR MODULUS FUNCTION.                      GEN      1900
                                                                                                                 GEN      1901
                                                                                                                 GEN      1902
          1574                           O=MOD    BSSENT 0                                                       GEN      1903
          1574  7160000000 X                      SX6    W=MODG      SET GENERAL MODULUS SKEL                    GEN      1904
                          0400000022 +            EQ     SUB.RET                                                 GEN      1905
  
  
  
  
                                        *         O=SHIFT - SELECT SUBSKEL FOR SHIFT FUNCTION                    GEN      1907
                                                                                                                 GEN      1908
          1575                           O=SHIFT  BSSENT 0                                                       GEN      1909
          1575  7160000000 X                      SX6    W=SHIFV     SET GENERAL SHIFT SKEL                      GEN      1910
                          0400000022 +            EQ     SUB.RET                                                 GEN      1911
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      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
          1576                           O=DOB    BSSENT 0           ENTRY...                                    GEN      1923
          1576  6144000006                        SB4    B4+2*Z=TURP ADVANCE REST OF MEGATURP                    GEN      1924
                          0400000552 +            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
          1577                           O=DOBZ   BSSENT 0                                                       GEN      1940
          1577  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
          1600  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
          1601  5160000000 X                      SA6    REG=G       SET GL1                                     GEN      1948
                          0400000135 +            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
          1602                           O=DOC    BSSENT 0           ENTRY...                                    GEN      1959
          1602  43127                             MX1    P2.BIASL-1                                              GEN      1960
                     7130010000                   CLAS=  X3,P2,(SHRT)                                            GEN      1961
                               20154              LX1    P2.BIASL+P2.BIASP                                       GEN      1962
          1603  12231                             BX2    X3+X1                                                   GEN      1963
                     76600                        SX6    B0                                                      GEN      1964
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    59
        (O=DO)  DO LOOP SKELETON PROCESSORS.                          O=DOC 
  
                          0100000000 X            CALL   POS         PROCESS OPERAND STATUS                      GEN      1965
          1604  5160000000 X                      SA6    REG=G       SET (GL1) = MINUS ONE                       GEN      1966
                          0400000026 +            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
          1605                           O=PDE    BSSENT 0           ENTRY/EXIT...                               GEN      1980
          1605  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/05. 20.00.24.      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
          1606                           O=PCG    BSSENT 0                                                       GEN      2006
          1606  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
          1607  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
          1610  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
          1611  6120001612 +                      WCODE  X7          WRITE: JP  B6+GL.N                          GEN      2018
          1612  7170000024                        =X7    I.BSS                                                   GEN      2019
                          20760                   LX7    PB.GHIJP                                                GEN      2020
                               36775              IX7    X7+X5                                                   GEN      2021
          1613  6120000135 +                      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
          1614                           O=PASG   BSSENT 0                                                       GEN      2027
          1614  5110000000 X                      SA1    S=LA                                                    GEN      2028
                          5120000000 X            SA2    T=LA                                                    GEN      2029
          1615  20154                             LX1    P2.TAGP                                                 GEN      2030
                     20224                        LX2    P2.BIASP                                                GEN      2031
                          76600                   =X6    0                                                       GEN      2032
                               12212              BX2    X1+X2                                                   GEN      2033
          1616  0100000000 X                      RJ     POS         PREPARE OPERAND                             GEN      2034
          1617  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/05. 20.00.24.      PAGE    61
        (O=GO)  COMPUTED GOTO PROCESSOR.                              O=PASG
  
                          56141                   =A1    B4+OR.1OP                                               GEN      2036
                               43054              MX0    -P2.TAGL                                                GEN      2037
          1620  20120                             LX1    -P2.TAGP                                                GEN      2038
                     15610                        BX6    -X0*X1                                                  GEN      2039
                          5110000000 X            ADDWD  T.LA        LA(K) = SYMORD(1OP)                         GEN      2040
          1622  0400000135 +                      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.
  
          1623  00000000000002001000          B H 
          1624  00000631463146314632      FY-Y-Y-Z
  
          1645                                    END                                                            GEN      2044
  
                             74000B CM  STORAGE USED             9970 STATEMENTS     2043 SYMBOLS      000008 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.885 SECONDS        1777 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/14 X   61/05
        AIR             0   EXTERNAL*       2/51 X   24/47
        ALC             0   EXTERNAL*       2/14 X   35/55
        ALC.CAI         0   EXTERNAL*       2/14 X   36/09
        ALC.REG         0   EXTERNAL*       2/14 X   36/04 S   36/11 S
        ALC.00          0   EXTERNAL*       2/14 X   36/02
        ASR             0   EXTERNAL*       2/51 X   23/25     24/42     24/49
        AT.BASE        66   PROGRAM*        8/20      9/25 L
        BN=APL          0   EXTERNAL*       2/32 X   55/21
        BN=CODE         0   EXTERNAL*       2/32 X   55/27
        BN=CON          0   EXTERNAL*       2/32 X   55/17
        BN=FMT          0   EXTERNAL*       2/32 X   55/19
        BN=IOAP         0   EXTERNAL*       2/32 X   55/23     55/23
        BN=NLST         0   EXTERNAL*       2/32 X   55/25
        BN=STRT         0   EXTERNAL*       2/32 X   45/10     45/10     47/12
        BN=SUB          0   EXTERNAL*       2/33 X   48/06
        BN=TEM          0   EXTERNAL*       2/33 X   46/05     48/09     48/15
        BOS           501   PROGRAM*        5/24     29/26 L
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        BOS3          510   PROGRAM*       29/37     29/41 L
        BOS4          511   PROGRAM*       29/36     29/39     29/42 L
        BOS5          523   PROGRAM*       29/53     30/08 L
        BOS8          534   PROGRAM*       30/18     30/27 L
        B1=1            0 
        CBREAK        132   PROGRAM*       10/55     12/08 L   31/19     32/27
        CC$SUB       1151   PROGRAM*       39/09     45/34 D
        CC$SUB0      1152   PROGRAM*       45/36 D
        CDS             0   EXTERNAL*       2/51 X   14/27     19/39     29/38     31/35     44/02
        CHRCNT          5 
        CIA             0   EXTERNAL*       2/51 X   12/09     29/41     30/03     30/20     30/43     44/03
        CLI             0   EXTERNAL*      22/05
        CLOADJ          0   EXTERNAL*       2/51 X   27/27 S
        COMPILE       134   PROGRAM*       11/01     11/02     12/18 L
        CO.DBER         0   EXTERNAL*       2/23 X   29/29     30/08     45/11     47/13
        CO.DBID         0   EXTERNAL*       2/23 X   29/30     30/09     37/07     37/28     38/17
        CO.LL           0   EXTERNAL*       2/23 X
        CO.SNAP         0   EXTERNAL*       2/23 X    5/12      5/40
        CO.STAT         0   EXTERNAL*      50/55     54/11
        CP#RM           0   FTX            51/05 F
        CRJ             0   EXTERNAL*       2/51 X   32/54
        CRJ2          557   PROGRAM*       32/45     32/51 L
        CURSK         146   PROGRAM*        6/10 S   12/47     12/55 L   12/55 E   32/42
        DATA10       1450   PROGRAM*       52/25     52/27 L
        DATA20       1453   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/51 X   25/02
        DM.TDP         35   FTX            42/20     42/22     42/30     42/36
        DRITE           0   EXTERNAL*       2/42 X   10/56
        DSC             0   EXTERNAL*       2/51 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         201   PROGRAM*       14/24 S   15/18     15/23 L
        EIS.AA        433   PROGRAM*       25/10 L
        EIS.AB        147   PROGRAM*       13/05 L
        EIS.AT        202   PROGRAM*       16/08 L
        EIS.AT10      211   PROGRAM*       16/19     16/27     16/34 L
        EIS.AT30      212   PROGRAM*       16/11     16/32     16/40 L
        EIS.AX        152   PROGRAM*       14/12 L
        EIS.BRN        55   PROGRAM*        6/23      7/21 L
        EIS.CA        433   PROGRAM*       25/11 L
        EIS.CALL       46   PROGRAM*        6/25      6/44 L
        EIS.CB        222   PROGRAM*       17/27 L
        EIS.CL5        51   PROGRAM*        6/53      7/04 L
        EIS.CMP       115   PROGRAM*        7/37     10/12 L
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        EIS.CM1       124   PROGRAM*       10/16     10/33 L
        EIS.CM6       134   PROGRAM*       10/31     12/17 L
        EIS.CM9       140   PROGRAM*       12/32     12/37 L
        EIS.COND       55   PROGRAM*        6/20      7/20 L
        EIS.CT        216   PROGRAM*       17/04 L
        EIS.CT5       220   PROGRAM*       17/14 L   17/29
        EIS.CX        154   PROGRAM*       14/16 L
        EIS.GL        225   PROGRAM*       18/21 L
        EIS.GLL       227   PROGRAM*       18/26 L
        EIS.GLN       224   PROGRAM*       18/19 L
        EIS.GLNL      226   PROGRAM*       18/24 L
        EIS.GL2       230   PROGRAM*       18/22     18/27     18/30 L
        EIS.GP        223   PROGRAM*       17/42 L   17/42 E
        EIS.INST      475   PROGRAM*       20/36 S   20/38 S   20/42     28/32 L
        EIS.IR        417   PROGRAM*       24/29 L
        EIS.IRL       416   PROGRAM*       24/26 L
        EIS.IR1       420   PROGRAM*       24/27     24/30     24/34 L
        EIS.IR10      425   PROGRAM*       24/41     24/47 L
        EIS.IR20      430   PROGRAM*       24/48     24/52 L
        EIS.IR30      431   PROGRAM*       24/43     24/50     24/52     24/57 L
        EIS.JREG      476   PROGRAM*       20/38 S   20/40     20/42     28/33 L
        EIS.K         433   PROGRAM*       25/12 L
        EIS.L         235   PROGRAM*       19/15 L
        EIS.LK        366   PROGRAM*       21/18 S   21/37     22/12     23/02 L
        EIS.LL        233   PROGRAM*       18/49 L
        EIS.LNL       232   PROGRAM*       18/46 L
        EIS.LNU       234   PROGRAM*       19/13 L
        EIS.LNX        26   PROGRAM*        5/48 L    6/40     12/51     59/03
        EIS.LN1        55   PROGRAM*        6/21      6/22      7/10      7/13      7/24 L
        EIS.LOD        52   PROGRAM*        6/28      7/08 L
        EIS.LRF       452   PROGRAM*       13/14     16/50     17/19     22/50     22/57     25/15     27/11 L
        EIS.LRF5      460   PROGRAM*       27/14     27/25 L
        EIS.LST       370   PROGRAM*       19/56 S   21/25     21/49     22/37     23/05 L
        EIS.LUC       365   PROGRAM*       21/23 S   22/32     23/01 L
        EIS.LX        367   PROGRAM*       21/36 S   21/44 S   21/57     22/08     23/03 L
        EIS.L10       273   PROGRAM*       20/06     20/30 L
        EIS.L12       276   PROGRAM*       20/25     20/31     20/35 L
        EIS.L13       310   PROGRAM*       20/49     20/54 L
        EIS.L15       311   PROGRAM*       20/28     20/33     20/35     21/07 L
        EIS.L16       330   PROGRAM*       21/34     21/41 L
        EIS.L17       342   PROGRAM*       21/48     22/08 L
        EIS.L18       347   PROGRAM*       22/20     22/23 L
        EIS.L19       353   PROGRAM*       21/39     22/06     22/32 L
        EIS.L2        236   PROGRAM*       18/36     18/51     19/18 L
        EIS.L20       355   PROGRAM*       21/09     21/13     21/16     22/36 L
        EIS.L21       361   PROGRAM*       19/49     22/49 L
        EIS.L3        246   PROGRAM*       19/36     19/37     19/39 L
        EIS.L5        254   PROGRAM*       19/44     19/46     19/51 L
        EIS.L6        270   PROGRAM*       20/13     20/24 L
        EIS.L7        271   PROGRAM*       20/08     20/22     20/26 L
        EIS.NOOP       55   PROGRAM*        7/23 L
        EIS.NX         57   PROGRAM*        7/34 L   28/22
        EIS.P         441   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        442   PROGRAM*       17/44     26/14 L
        EIS.P5        444   PROGRAM*       25/31     25/45     26/24 L
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        EIS.Q         435   PROGRAM*       25/26 L
        EIS.REG       463   PROGRAM*       15/21     24/13     26/37     27/15     27/26
                                           24/06     25/03     26/49     27/23     28/11 L
        EIS.RG5       466   PROGRAM*       28/14     28/16 L
        EIS.S         437   PROGRAM*       25/39 L
        EIS.SBRN       44   PROGRAM*        6/27      6/34 L
        EIS.SHF        55   PROGRAM*        6/24      7/22 L
        EIS.STO       371   PROGRAM*       19/38     23/15 L
        EIS.ST1       402   PROGRAM*       23/22     23/37 L
        EIS.ST2       411   PROGRAM*       23/47     24/02 L
        EIS.ST3       414   PROGRAM*       23/39     24/10 L
        EIS.TYP        33   PROGRAM*        6/16      6/18 L
        EIS.X         155   PROGRAM*       14/14     14/18     14/20 L
        EIS.X10       176   PROGRAM*       14/39     14/43     15/16 L
        EIS.X15       177   PROGRAM*       15/18 L
        EIS.X5        162   PROGRAM*       14/26     14/34 L
        EIS.X7        167   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      1147   PROGRAM*       35/17 S   44/04     45/25 S   45/31 L   45/31 E
        ENT.SB0      1152   PROGRAM*       45/35 L   45/35 E   45/36
        ENT.STO      1150   PROGRAM*       34/32 S   34/38     35/35     35/37     36/05     45/28 S   45/32 L   45/32 E
        ENT.SUB      1151   PROGRAM*       45/33 L   45/33 E   45/34     48/04
        ENT.VD       1153   PROGRAM*       35/40     35/51     45/37 L   45/37 E
        ESTACK          0   EXTERNAL*       2/20 X   12/08 S   12/10     30/02 S   30/04
        EVD1         1101   PROGRAM*       35/52     44/04 L
        FIN2         1223   PROGRAM*       47/14     47/16 L
        FIN3         1224   PROGRAM*       47/10     47/19 L
        FPENT1        623   PROGRAM*       35/34 L   36/19
        FPENT2        641   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/46 X    5/28
        F.SKEL          0   EXTERNAL*       2/46 X    5/36
        GENT5         612   PROGRAM*       34/50 L   34/55     34/57
        GFD4         1366   PROGRAM*       50/43     50/55 L
        GFD5         1374   PROGRAM*       50/56     51/13 L
        GFD6         1403   PROGRAM*       50/51     51/22 L
        GNR             0   EXTERNAL*       2/51 X   20/39     21/42
        GST             0   EXTERNAL*      21/47
        GSTC            0   EXTERNAL*       2/51 X   19/53
        GTR             0   EXTERNAL*       2/51 X   14/56     16/34
        HDR6         1424   PROGRAM*       51/47     51/56 L
        HREG          477   PROGRAM*        7/12 S   22/49     28/34 L
        ICP          1155   PROGRAM*       44/54     46/02 L
        ICP10        1173   PROGRAM*       46/23 L   46/44
        ICP20        1176   PROGRAM*       46/19     46/27 L
        ICP30        1201   PROGRAM*       46/35 L   46/48
        ICP40        1203   PROGRAM*       46/35     46/40 L
        IDP=SVB         0   EXTERNAL*       2/29 X    5/15
        IDP=SVX         0   EXTERNAL*       2/29 X    5/43
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        IJK           473   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       471   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           661   PROGRAM*       35/36     37/06 L   37/06 E
        ISA05         670   PROGRAM*       37/08     37/13 L
        ISA15         671   PROGRAM*       37/16 L   37/44
        ISA17         674   PROGRAM*       37/17     37/24 L
        ISA20         712   PROGRAM*       37/14     37/35 L
        ISA30         730   PROGRAM*       37/50     38/02 L
        ISA35         756   PROGRAM*       38/18     38/22 D
        ITS             0   EXTERNAL*       2/42 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/33 X   40/08
        LSC             0   EXTERNAL*       2/51 X   20/32
        LTG             0   EXTERNAL*       2/52 X   20/27
        L.ATABLE       27                   8/17      9/55 L    9/57
        L.FET6         15   FTX            51/06
        L.FIT6         34   FTX            51/06
        L.MTBL         11                   6/29 L
        MAV          1022   PROGRAM*       36/06     41/14 L
        MAV10        1025   PROGRAM*       41/24 L   41/28
        MAV20        1033   PROGRAM*       41/43 L   42/44     42/47
        MAV30        1035   PROGRAM*       41/43     41/47 L
        MAV40        1045   PROGRAM*       42/09     42/14 L
        MAV50        1046   PROGRAM*       42/19 L   42/40
        MAV60        1050   PROGRAM*       42/21     42/26 L
        MAV70        1052   PROGRAM*       42/28     42/33 L
        MAV80        1054   PROGRAM*       42/34     42/39 L
        MAV90        1055   PROGRAM*       41/56     42/07     42/42 L
        MAX.USEC      777                  13/11     14/13     14/37     14/42     16/43     16/43
        MENT05       1122   PROGRAM*       45/02     45/07 L
        MENT1        1123   PROGRAM*       45/05     45/09 L
        MENT2        1133   PROGRAM*       45/12     45/15 L
        MENT25       1144   PROGRAM*       45/18     45/23 L
        MOD             0   EXTERNAL*       2/33 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/05. 20.00.24.      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          1060   PROGRAM*       42/12     42/24     42/31     42/37     42/46     43/07 L
        MVE=            0   EXTERNAL*       2/56 X   36/01
        MVT          1064   PROGRAM*       36/07     43/24 L
        MVT10        1072   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/33 X   51/50
        NULLOP        135   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      1154   PROGRAM*       33/56     34/35     45/38 L   45/38 E
        N.ARP           0   EXTERNAL*       2/33 X   45/17
        N.BUF           0   EXTERNAL*      50/57     51/11 S   54/21     54/26
        N.CON           0   EXTERNAL*       2/33 X   47/37 S
        N.EPL           0   EXTERNAL*       2/33 X   37/13     46/03
        N.FP            0   EXTERNAL*       2/33 X   37/16     45/03
        N.GL            0   EXTERNAL*       2/34 X   33/52     35/43     60/26
        N.ST            0   EXTERNAL*      47/31
        N.STMAX         0   EXTERNAL*      47/30
        OCIOL         572   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        472   PROGRAM*        7/29 S   16/17     28/25 L
        OPTYP         474   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/05. 20.00.24.      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           760   PROGRAM*       35/38     39/08 L
        OSI          1272   PROGRAM*       48/13     48/19     48/29 L
        OSIA         1337   PROGRAM*       48/30 S   48/55     49/36     49/52 L
        OSIB         1340   PROGRAM*       48/32 S   48/41     48/48     49/45     49/53 L
        OSIC         1341   PROGRAM*       48/53     49/08 S   49/54 L
        OSID         1342   PROGRAM*       48/33 S   48/42     49/55 L
        OSIM2        1347   PROGRAM*       49/37     50/03 L
        OSIM3        1351   PROGRAM*       49/40     50/05 L
        OSIO         1345   PROGRAM*       49/43     50/01 L
        OSIS         1343   PROGRAM*       48/56     49/56 L
        OSI10        1277   PROGRAM*       48/41 L   49/24
        OSI20        1311   PROGRAM*       48/37     48/44     49/05 L
        OSI30        1315   PROGRAM*       49/15 L   49/39     49/42     49/50
        OSI40        1317   PROGRAM*       49/15     49/20 L
        OST          1243   PROGRAM*       47/21     48/03 L
        OST10        1262   PROGRAM*       48/05     48/15 L
        OZC          1001   PROGRAM*       35/39     40/07 L
        O=BVD         135   PROGRAM*       12/26 L   12/26 E
        O=CAR         535   PROGRAM*       30/42 L   30/42 E
        O=CBJ         537   PROGRAM*       31/12 L   31/12 E
        O=CBSS        552   PROGRAM*       32/26 L   34/19     58/12
        O=CDCS        562   PROGRAM*       33/03 L   33/03 E
        O=CDDOT       564   PROGRAM*       33/16 L   33/16 E
        O=CDLOO       566   PROGRAM*       33/29 L   33/29 E
        O=CDW         542   PROGRAM*       31/34 L   31/34 E
        O=CRJ         554   PROGRAM*       32/41 L   32/41 E
        O=DATA       1442   PROGRAM*       52/17 L   52/17 E
        O=DOB        1576   PROGRAM*       58/10 L   58/10 E
        O=DOBZ       1577   PROGRAM*       58/30 L   58/30 E
        O=DOC        1602   PROGRAM*       58/52 L   58/52 E
        O=EISX          0   PROGRAM*        4/47 L
        O=ENT         573   PROGRAM*       33/51 L   33/51 E
        O=EVD        1077   PROGRAM*       44/01 L   44/01 E
        O=FIN        1212   PROGRAM*       47/07 L   47/07 E
        O=FINX       1227   PROGRAM*       44/05     47/20     47/27 L   47/27 E
        O=FPENT       622   PROGRAM*       35/30 L   35/30 E
        O=FPHDR       657   PROGRAM*       36/16 L   36/16 E
        O=FUNT       1104   PROGRAM*       44/18 L   44/18 E
        O=GENT        603   PROGRAM*       34/29 L   34/29 E
        O=GENTX       605   PROGRAM*       34/34 L   34/34 E
        O=GFD        1353   PROGRAM*       50/22 L   50/22 E
        O=HCAT        135   PROGRAM*       12/28 L   12/28 E
        O=HCOL        135   PROGRAM*       12/29 L   12/29 E
        O=HDR        1404   PROGRAM*       51/37 L   51/37 E
        O=HSBS        135   PROGRAM*       12/27 L   12/27 E
        O=ID         1572   PROGRAM*       57/14 L   57/14 E
        O=ILL        1455   PROGRAM*       52/42 L   52/42 E
        O=IM         1571   PROGRAM*       57/04 L   57/04 E
        O=LCC        1456   PROGRAM*       52/54 L   52/54 E
        O=MASK       1573   PROGRAM*       57/24 L   57/24 E
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        O=MENT       1115   PROGRAM*       44/53 L   44/53 E
        O=MOD        1574   PROGRAM*       57/34 L   57/34 E
        O=NOOP        135   PROGRAM*       12/25 L   12/25 E
        O=PASG       1614   PROGRAM*       60/49 L   60/49 E
        O=PCG        1606   PROGRAM*       60/25 L   60/25 E
        O=PDE        1605   PROGRAM*       59/22 L   59/22 E
        O=PLA         551   PROGRAM*       32/18 L   32/18 E
        O=PLIM       1462   PROGRAM*       53/15 L   53/15 E
        O=RGT        1512   PROGRAM*       54/41 L   54/41 E
        O=SEX        1521   PROGRAM*       55/15 L   55/15 E
        O=SHIFT      1575   PROGRAM*       57/43 L   57/43 E
        O.NONE         54   FTX            43/30
        O.=            41   FTX            24/40
        PBW           544   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/42 X   36/08
        PLI10        1511   PROGRAM*       54/20     54/31 L
        PLI4         1470   PROGRAM*       54/06     54/09 L
        PNX1           15   PROGRAM*        5/14      5/16 L
        PNX4           17   PROGRAM*        5/23      5/26 L
        POS             0   EXTERNAL*       2/42 X   58/37     59/01     60/56
        P2=KEEP         0   EXTERNAL*       2/52 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
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/42 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/52 X    4/54 S   12/41     12/50 S   27/12     27/21 S
        REG=            0   EXTERNAL*       2/29 X    5/15      5/43
        REG=G           0   EXTERNAL*       2/42 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/17 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/42 X    4/56 S
        RGX             0   EXTERNAL*       2/42 X    4/52 S
        RG=INTR         0   EXTERNAL*       2/52 X    5/07
        RG=LOAD         0   EXTERNAL*       2/52 X    5/07     19/51
        RG=LODX         0   EXTERNAL*       2/52 X    5/07     20/30     21/41
        RG=STOR         0   EXTERNAL*       2/52 X    5/07
        RG=TEMP         0   EXTERNAL*       2/53 X    5/07     21/32
        RG.TYPP        20                  19/33
        RG.USEL        11                  14/35     16/25     18/31     19/22
        RLL             0   EXTERNAL*       2/53 X   22/56     23/24     27/20
        RLOCK         400                  19/25     20/51     21/10
        RREG            0   EXTERNAL*       2/42 X    7/11 S   10/21     19/35     23/27 S   23/43
        RUL             0   EXTERNAL*       2/53 X   12/45     23/31     27/29
        RUT             0   EXTERNAL*       2/53 X   15/12     15/17     24/53
        RUT.REG       500   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/53 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/53 X   19/48     24/05
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        SOR          1561   PROGRAM*       45/13     47/15     55/49 L
        SRET1          26   PROGRAM*        5/42      5/44 L
        SR.NUML         6                   7/35      8/13
        SR.OADL         5                   8/12     28/18
        STRGLK          0   EXTERNAL*       2/53 X    4/55 S   20/48
        STS             0   EXTERNAL*       2/53 X   21/31     22/43
        SUB.RET        22   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/34 X   45/20
        S=BUF           0   EXTERNAL*      54/22
        S=CP            0   EXTERNAL*       2/34 X   38/06     46/11
        S=CPL           0   EXTERNAL*       2/34 X   38/15
        S=ENTRY         0   EXTERNAL*       2/34 X   34/30     45/26
        S=EXIT          0   EXTERNAL*       2/34 X   45/15
        S=FID           0   EXTERNAL*       2/34 X   30/22
        S=FILES         0   EXTERNAL*       2/34 X   54/09
        S=GPL           0   EXTERNAL*       2/35 X   37/56     38/10     46/06
        S=LA            0   EXTERNAL*       2/35 X   60/50
        S=LENP          0   EXTERNAL*       2/35 X   55/51
        S=SA0           0   EXTERNAL*       2/39 X   37/31     38/20     52/05
        S=SA1           0   EXTERNAL*       2/35 X   37/10     51/56
        S=SLI           0   EXTERNAL*      40/32
        S=SPA           0   EXTERNAL*       2/35 X   39/32
        S=SUB           0   EXTERNAL*       2/35 X   48/07
        S=SUBI          0   EXTERNAL*       2/35 X   39/27     48/10
        S=SUB0I         0   EXTERNAL*       2/35 X   40/27     48/16
        S=TA0           0   EXTERNAL*       2/36 X   37/26     38/13
        S=TRACE         0   EXTERNAL*       2/36 X   56/02
        S=UPW           0   EXTERNAL*       2/36 X   51/46     54/05     54/12
        S=VALUE         0   EXTERNAL*       2/36 X   44/29
        TEST            1   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/42 X   29/35 S   29/42     32/51
        TYPLOD          0   EXTERNAL*       2/42 X   19/18 S   20/03     21/24     21/45     21/54     22/36
        T=CON           0   EXTERNAL*       2/36 X   47/35
        T=DATS          0   EXTERNAL*       2/36 X   52/18     52/34     52/34 S
        T=ENTP          0   EXTERNAL*       2/36 X   46/28     49/09
        T=FPI           0   EXTERNAL*       2/36 X   46/07
        T=LA            0   EXTERNAL*       2/37 X   60/51
        T=PAR           0   EXTERNAL*       2/37 X   35/53     35/53 S
        T=VDI           0   EXTERNAL*       2/37 X   41/19     43/27
        T=VDIM          0   EXTERNAL*       2/37 X   35/54
        T.DATS          0   EXTERNAL*       2/37 X   52/27
        T.DIM           0   EXTERNAL*       2/37 X   42/03
        T.ENTP          0   EXTERNAL*       2/37 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/37 X   49/31
        T.LA            0   EXTERNAL*       2/37 X   61/05
        T.PAR           0   EXTERNAL*       2/38 X   35/55     35/57     36/12     43/26
        T.SYM           0   EXTERNAL*       2/38 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/38 X   41/18     43/10     43/25
        T.VDIM          0   EXTERNAL*       2/38 X   35/56
        UAP             0   EXTERNAL*       2/26 X   54/52
        UUC             0   EXTERNAL*       2/43 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
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/46 X   29/52
        V=NOOP          0   EXTERNAL*       2/46 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/43 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/38 X   33/08 S
        WO.DOOT         0   EXTERNAL*       2/38 X   33/21 S
        WTE             0   EXTERNAL*       2/43 X   52/32
        W=ALENT         0   EXTERNAL*       2/46 X   35/16
        W=DFENT         0   EXTERNAL*       2/46 X   44/28
        W=FUNT          0   EXTERNAL*       2/46 X   45/04
        W=IDV           0   EXTERNAL*       2/46 X   57/15
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/05. 20.00.24.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        W=IMV           0   EXTERNAL*       2/47 X   57/05
        W=MASKV         0   EXTERNAL*       2/47 X   57/25
        W=MFPNT         0   EXTERNAL*       2/47 X   45/07
        W=MODG          0   EXTERNAL*       2/47 X   57/35
        W=PROM          0   EXTERNAL*       2/47 X   47/16
        W=PROS          0   EXTERNAL*       2/47 X   47/22
        W=SHIFV         0   EXTERNAL*       2/47 X   57/44
        W=TENT          0   EXTERNAL*       2/48 X   44/08
        W=TMENT         0   EXTERNAL*       2/48 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/05. 20.00.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      451              IDENT  REC
                        451                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       433 
                                        LITERALS* LOCAL         433         7 
                                        DEBUG     LOCAL         442         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=REC            0+           WO.57            1+           ADA            312+ 
                                        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
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE     2
                                                                      REC 
  
                                                  EXT    FV.LGO,F.PB,TL.CSOP,WNB=                                FC5A262    36
                                                                                                                 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/05. 20.00.28.      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/05. 20.00.28.      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  0100000074 +                      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
                          0100000112 +            RJ     END         PERFORM STORAGE ALLOCATION                  REC        66
                                                                                                                 REC        67
                                         .T       IFEQ   TEST,ON                                                 REC        68
            10  5110000000 X                      SA1    CO.SNAP                                                 REC        69
                          20105                   LX1    1RE                                                     REC        70
            11  0321000013 +                      PL     X1,REC02S   IF (SNAP=E) NOT SELECTED                    REC        71
            12  0100000000 X             SNAP=E   DUMPT  (SYM)                                                   REC        72
            13                           REC02S   BSS                                                            REC        73
                                         .T       ENDIF                                                          REC        74
                                                                                                                 REC        75
                                        *         OUTPUT REFERENCE MAP.                                          REC        76
                                                                                                                 REC        77
            13  5110000000 X                      SA1    WO.LOA                                                  REC        78
                          5120000000 X            SA2    WO.LOM                                                  REC        79
            14  5130000000 X                      SA3    WO.LOR                                                  REC        80
                          12112                   BX1    X1+X2                                                   REC        81
                               12113              BX1    X1+X3                                                   REC        82
            15  0301000016 +                      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
            16  0100000000 X             REC20    CALL   BCT         CONVERT CONSTANT TABLE                      REC        88
            17  0100000000 X                      CALL   PCA         CONVERT CONSTANTS IN T.CAC                  REC        89
            20  5120000000 X                      SA2    FV.LGO                                                  REC        90
                          5130000000 X            SA3    CO.LOO                                                  FC5A262    37
            21  10633                             BX6    X3                                                      REC        92
                     5160000000 X                 SA6    WO.LOO      INITIALIZE WORKING OLIST FLAG               REC        93
            22  5110000000 X                      SA1    CO.QC                                                   REC        94
                          12623                   BX6    X2+X3                                                   REC        95
            23  0331000063 +                      MI     X1,REC60    IF QC MODE, SKIP ASSEMBLY                   REC        96
                          0306000063 +            ZR     X6,REC60    IF NEITHER OL NOR BINARY REQUESTED          REC        97
            24  7170000005                        =X7    PASS=FAS                                                REC        98
                          5170000000 X            SA7    PASS        SET PASS TO ASSEMBLY                        REC        99
            25  0312000032 +                      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
            32  0313000043 +             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/05. 20.00.28.      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
            43  5140000001 +             REC40    SA4    WO.57                                                   REC       109
                          0314000050 +            NZ     X4,REC50    IF 57 TABLE REQUESTED                       REC       110
            44  7160000000 X                      PLUG   AT=CLE.EQ,TO=CLE,VOID=NO                                REC       111
            46  7160000000 X                      PLUG   AT=ESL.EQ,TO=ESL,VOID=NO                                REC       112
                                                                                                                 REC       113
            50                           REC50    BSS    0                                                       REC       114
            50  0100000352 +                      RJ     MER         MARK EXTERNAL RELOCATION                    REC       123
            51  5170000000 X                      SA7    NREXT                                                   REC       124
                          5110000000 X            SA1    ERRORS                                                  FC5A262    38
            52  0311000062 +                      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
            54  5110000000 X                      SA1    BINIO                                                   REC       132
                          0331000060 +            MI     X1,REC55    IF CCG OR PHYSICAL I/O HAS OCCURED          REC       133
            55  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
            56  7160000023                        SX6    23B                                                     REC       137
                          12616                   BX6    X1+X6       SIMULATE REWIND,RECALL,READ                 REC       138
                               54610              SA6    A1          UPDATE THE FET                              REC       139
            57  0400000062 +                      EQ     REC59                                                   REC       140
                                                                                                                 REC       141
            60                           REC55    BSS    0                                                       REC       142
            60  7120000000 X                      READ   F.PB                                                    FC5A262    42
                                         .RM      ENDIF                                                          REC       145
                                                                                                                 REC       146
            62  0100000000 X             REC59    CALL   FAS         PERFORM ASSEMBLY                            REC       147
                                                                                                                 REC       148
                                        *         TRASH TABLES NO LONGER REQUIRED.                               REC       149
                                                                                                                 REC       150
            63  13666                    REC60    SHRINK T=CON                                                   REC       151
            64  5160000000 X                      SHRINK T=FMT,X6                                                REC       152
                          5160000000 X            SHRINK T=NLST,X6                                               REC       153
            65  5160000000 X                      SHRINK T=GL,X6                                                 REC       154
                          5160000000 X            SHRINK T=APL,X6                                                REC       155
            66  5160000000 X                      SHRINK T=API,X6                                                REC       156
                          5160000000 X            SHRINK T=LCA,X6                                                REC       157
            67  5160000000 X                      SHRINK T=IOA,X6                                                REC       158
                          5160000000 X            SHRINK T=IOI,X6                                                REC       159
            70  5160000000 X                      SHRINK T=DATS,X6                                               REC       160
                          5160000000 X            SHRINK T=FPI,X6                                                REC       161
            71  5160000000 X                      SHRINK T=FPO,X6                                                REC       162
                          5160000000 X            SHRINK T=SUB,X6                                                REC       163
            72  13666                             SHRINK T=SUB0                                                  REC       164
            73  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/05. 20.00.28.      PAGE     6
                                                                      REP 
  
                                        **        REP - REAR END PRESETS.                                        REC       168
                                        *                                                                        REC       169
                                        *         SET UP CELLS FOR REAR END.                                     REC       170
                                                                                                                 REC       171
                                                                                                                 REC       172
            74  0400400074 +             REP      SUBR   0           ENTRY/EXIT...                               REC       173
            75  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
            76  5130000000 X                      SA3    CO.DBST                                                 REC       177
                          5140000000 X            SA4    CO.DBID                                                 REC       178
            77  12334                             BX3    X3+X4                                                   REC       179
                     22702                        LX7    X2                                                      REC       180
                          7150000000 X            SX5    BT.IDN9                                                 REC       181
           100  5265000000 X                      SA6    X5+BT.IDNT                                              REC       182
                          54121                   =A1    A2+1        (TL.CSOP+3)                                 FC51002     5
                               54761              =A7    A6+1                                                    REC       183
           101  5120000433 +                      SA2    =7R                                                     FC51002     6
                          43022                   MX0    18                                                      FC51002     7
                               11601              BX6    X0*X1                                                   FC51002     8
           102  12662                             BX6    X6+X2                                                   FC51002     9
                     54671                        =A6    A7+1                                                    FC51002    10
                          5150000000 X            SA5    CO.DBPM                                                 REC       184
           103  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
           104  5170000001 +                      SA7    WO.57       (WO.57) = (CO.DBID) OR (CO.DBST)            REC       188
                          5110000000 X            SA1    BINIO                                                   REC       189
           105  0321000074 +                      PL     X1,EXIT.    IF NOT CCG AND NO PHYSICAL I/O HAS OCCURED  REC       190
                          5110000000 X            SA1    FV.LGO                                                  FC50616    20
           106  5120000000 X                      SA2    CO.LOO                                                  FC50616    21
                          12112                   BX1    X1+X2                                                   FC50616    22
           107  0301000074 +                      ZR     X1,EXIT.    IF B=0 AND LO=-O                            FC50616    23
                          7120000000 X            REWIND F.PB                                                    REC       191
           111  0400000074 +                      EQ     EXIT.       EXIT...                                     REC       192
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      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
           112  0400400112 +             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
           113  5110000000 X                      SA1    S=VALUE                                                 REC       213
                          63210                   SB2    X1                                                      REC       214
                               20101              LX1    1                                                       REC       215
           114  63212                             SB2    X1+B2       CONVERT TO INDEX                            REC       216
                     5120000000 X                 SA2    T.SYM                                                   REC       217
           115  6122000001                        SB2    B2+WB.W                                                 REC       218
                          63722                   SB7    X2+B2       SAVE ADDRESS OF BASE MEMBER                 REC       219
           116  6122000025                        SB2    B2+Z=SYM*N.TYPE                                         REC       220
                          53222                   SA2    X2+B2       INITIALIZE FETCH REG                        REC       221
           117  7170000006                        SX7    M.CHAR                                                  REC       222
                                                                                                                 REC       223
           120  5022777774               END1A    SA2    A2-Z=SYM                                                REC       224
                          20264                   SBIT   X2,WB.DEFP                                              FC50252    18
           121  0332000124 +                      MI     X2,END1B    IF A VALUE. IS DEFINED                      FC50252    19
                          7277777776              =X7    X7-1                                                    REC       226
           122  0327000120 +                      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
           123  0400000126 +                      EQ     END1C                                                   REC       233
                                                                                                                 REC       234
                                         END1B    LX7    WB.MODEP    POSITION NEW MODE                           REC       235
           124  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
           125  54620                             SA6    A2          UPDATE *WB*                                 REC       241
                                                                                                                 REC       242
           126                           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/05. 20.00.28.      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
           126  5110000000 X                      SA1    T=FMT                                                   REC       255
                          5140000003 X            SA4    F.LBT+BN=FMT                                            FC5A262    44
           127  43200                             MX2    0                                                       REC       257
                     0100000322 +                 RJ     GBS         RESERVE FORMAT BLOCK                        REC       258
           130  5130000000 X                      SA3    CO.OPT                                                  REC       259
                          5110000000 X            SA1    T=LA                                                    REC       260
           131  0313000133 +                      NZ     X3,END1     IF NOT QUICK CODE GENERATOR                 REC       261
                          5120000000 X            SA2    S=LA                                                    REC       262
           132  0100000322 +                      RJ     GBS         GENERATE SPACE FOR (LA.)                    REC       263
                                                                                                                 REC       264
           133  5044777776               END1     SA4    A4-BN=FMT+BN=CON  GENERATE (BN=CON)                     REC       265
                          5110000000 X            SA1    =XN.CON                                                 REC       266
           134  5120000000 X                      SA2    S=CON                                                   REC       267
                          0100000322 +            RJ     GBS         GENERATE SPACE FOR (CON.)                   REC       268
                                                                                                                 REC       269
           135  5044000003                        SA4    A4-BN=CON+BN=APL        GENERATE (BN=APL)               REC       270
                          5120000000 X            SA2    T=LCA                                                   REC       271
           136  5110000000 X                      SA1    T=APL                                                   REC       272
                          7272777776              SX7    X2-1                                                    REC       273
           137  43200                             MX2    0                                                       REC       274
                     36117                        IX1    X1+X7       LENGTH = T=APL + T=LCA - 1                  REC       275
                          0100000322 +            RJ     GBS                                                     REC       276
           140  5110000000 X                      SA1    T=IOA                                                   FC5A262    45
                          5044000001              SA4    A4-BN=APL+BN=IOAP       GENERATE (BN=IOAP)              REC       279
           141  21101                             AX1    1           IOLEN = T=IOA / Z=IOA                       REC       280
                                   0              ERRNZ  2-Z=IOA                                                 REC       281
                     43200                        MX2    0                                                       REC       282
                          0100000322 +            RJ     GBS         COUNT SPACE FOR IO APLS                     REC       283
           142  5110000000 X                      SA1    T=CLW                                                   REC       284
                          5120000000 X            SA2    S=CL                                                    REC       285
           143  21101                             AX1    1           CLLEN = T=CLW / Z=CLW                       REC       286
                                   0              ERRNZ  2-Z=CLW                                                 REC       287
                     0100000322 +                 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
           144  5110000007 X                      SA1    F.LBT+BN=NLST                                           REC       299
                          0311400144 +            NZ     X1,"BLOWUP" IF SPURIOUS USE OF  *NAMLST.*  BLOCK        REC       300
                                         .T       ENDIF                                                          REC       301
                                                                                                                 REC       302
           145  13777                             BX7    0           (X7) = RA = ACCUM LENGTH  *NAMLST.*  BLOCK  REC       303
                     43400                        MX4    0                                                       REC       304
                          0100000312 +            RJ     ADA         ASSIGN BLOCK-REL RUN-TIME DIMTAB ADDRESSES  REC       305
           146  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/05. 20.00.28.      PAGE     9
        RELOCATE SYMBOL TABLES.                                       END 
  
                                        *         PROCESS A NAMELIST GROUP.                                      REC       309
                                                                                                                 REC       310
           147  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
           150  0730000157 +                      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
           151  5130000434 +                      CLAS=  X3,WC,(RLRB,RA)                                         REC       321
                          11631                   BX6    X3*X1                                                   REC       322
           152  0316400152 +                      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
           153  5120000310 +                      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
           154  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
           155  0420000147 +                      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
           156  63211                             =B2    X1+1                                                    REC       337
                     0400000147 +                 EQ     END2        LOOP FOR NEXT GROUP                         REC       338
                                                                                                                 REC       339
                                        *         HERE WHEN ALL GROUPS PROCESSED.                                REC       340
                                                                                                                 REC       341
           157  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
           160  5110000000 X                      SA1    T.SYM                                                   REC       355
                          5140000435 +            CLAS=  X4,WC,(RLRB)                                            REC       356
           161  5150000436 +                      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
           162  5120000311 +                      SA2    ENDB        SKELETON  *RL=PROG, RB=(BN=FMT)*            REC       360
                          6130000003              =B3    Z=SYM                                                   REC       361
           163  7100000001                        SX0    1                                                       REC       362
                                                  LX0    WC.RAP                                                  REC       363
                                                                                                                 FC50252    20
           164  54333                    END10    SA3    A3+B3       WBA = WBA + Z=SYM, WBI = (WBA)              REC       364
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    10
        RELOCATE SYMBOL TABLES.                                       END 
  
                     67773                        SB7    B7-B3       LENSYM = LENSYM - Z=SYM                     REC       365
                          0470000170 +            ZR     B7,END15    IF END OF T.SYM                             REC       366
           165  11653                             BX6    X5*X3                                                   REC       367
                     37765                        IX7    X6-X5                                                   REC       368
                          0317000164 +            NZ     X7,END10    IF NOT FORMAT LABEL                         REC       369
           166  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
           167  54710                             SA7    A1          (RL,RB,RA)[WCI] = (ML.PROG,BN=FMT,RA+1)[WC. REC       374
                     0400000164 +                 EQ     END10                                                   REC       375
                                                                                                                 REC       376
                                                                                                                 REC       377
                                        **        PART 5 - ASSIGN ADDRESSES TO LOCAL SYMBOLS.                    REC       378
                                                                                                                 REC       379
                                                                                                                 REC       380
           170                           END15    BSS                                                            REC       381
           170  0100000000 X                      RJ     SMB         SET MAT BIT                                 REC       382
           171  0100000375 +                      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
           172  5140000000 X                      SA4    T=FPI                                                   REC       393
                          0304000222 +            ZR     X4,END60    IF NO FORMAL PARAMETERS                     REC       394
           173  5110000000 X                      ALLOC  T.FPO,X4                                                REC       395
           175  63210                             SB2    X1                                                      REC       396
                     63740                        SB7    X4          FPLEN = (T=FPI)                             REC       397
                          5130000000 X            SA3    T.FPI                                                   FC50252    21
           176  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
           177  66511                             =B5    2                                                       REC       403
                     43056                        MX0    -FP.SUBL                                                REC       404
                                                                                                                 FC50252    22
           200  0470000211 +             END45    ZR     B7,END50    IF END OF T.FPI                             REC       406
                          56343                   SA3    B4+B3       FPI = T.FPI(IND)                            REC       407
           201  5110000437 +                      CLAS=  X1,FP,(CA,SUB,SUB0)                                     FC50252    23
                          10644                   BX6    X4                                                      REC       409
                               15731              BX7    -X1*X3      CLEAR (SUB,SUB0) FIELDS                     REC       410
           202  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
           203  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
           204  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/05. 20.00.28.      PAGE    11
        RELOCATE SYMBOL TABLES.                                       END 
  
                          12776                   BX7    X7+X6                                                   REC       425
                               56623              SA6    B2+B3       [T.FPO(IND)] = (LENSUB,LENSUB0)[FP.]        REC       426
           205  54730                             SA7    A3          [FPI]  = (LENSUB,LENSUB0) [FP.]             REC       427
                     66331                        SB3    B3+B1       IND = IND + 1                               REC       428
                          0301000207 +            ZR     X1,END48    IF LENI .EQ. 0                              REC       429
           206  36441                             IX4    X4+X1       LENSUB = LENSUB + LENI                      REC       430
                     73441                        SX4    X4+B1       ALLOW FOR 0 TERMINATOR WORD                 REC       431
                                                                                                                 FC50252    25
           207  0303000200 +             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
           210  0400000200 +                      EQ     END45                                                   REC       435
                                                                                                                 REC       436
           211  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
           212  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
           213  5130000000 X                      SA3    FV.LGO                                                  FC5A262    46
                          0303000222 +            ZR     X3,END60    IF NO BINARY                                REC       445
           214  0304000220 +                      ZR     X4,END55    IF LENSUB .EQ. 0                            REC       446
                          5110000000 X            ALLOC  T.SUB,X0  ALLOCATE SPACE FOR T.SUB                      REC       447
           216  43674                             MX6    60                                                      REC       448
                     53610                        SETMEM X1,X2,X6    INITIALIZE TO -0                            REC       449
                                                                                                                 FC5A128   334
           220                           END55    BSS    0                                                       FC5A128   335
           220  76600                             SHRINK T=SUB0,0                                                FC5A197     5
                                         #MD      IFNE   .DAL,0,1                                                FC5A128   336
           221  0100000340 +                      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
           222                           END60    BSS    0                                                       REC       461
           222  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
           223  76600                             =X6    0           ORG = 0                                     REC       464
                     43052                        MX0    -LB.BLENL                                               REC       465
                          5110000000 X            SA1    ERRORS                                                  FC5A174    17
           224  0311000233 +                      NZ     X1,END90    IF FATAL ERRORS                             FC5A174    18
                                                                                                                 REC       466
           225  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
           226  21766                             AX7    -LB.PARCL   PARCNT = PARC[LBTI]                         REC       472
                     66300                        =B3    0           ROUNDUP = 0                                 REC       473
                          0307000230 +            ZR     X7,END80    IF PARCNT  EQ  0 (NO NEED TO ROUND UP)      REC       474
           227  66310                             SB3    B1          ROUNDUP = 1                                 REC       475
                                                                                                                 FC50252    26
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    12
        RELOCATE SYMBOL TABLES.                                       END 
  
           230  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
           231  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
           232  12772                             BX7    X7+X2                                                   REC       485
                     54720                        SA7    A2          (BLEN,ORG) [LBTI] = (TBLNI,ORG) [LB.]       REC       486
                          0520000225 +            NZ     B2,END70    IF LENLBT  NE  0                            REC       487
                                                                                                                 REC       488
           233  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
           234  6130000003                        =B3    Z=SYM                                                   REC       501
                          5120000000 X            SA2    T=SYM                                                   FC5A262    50
           235  5231000002                        SA3    X1+WC.W     WCA = (T.SYM)+WC.W                          REC       503
                          6272777774              SB7    X2-Z=SYM    LENSYM = (T=SYM) - Z=SYM                    REC       504
           236  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
           237  54333                    END100   SA3    A3+B3       WCA = WCA + Z=SYM, WCI = (WCA)              REC       515
                     20302                        LX3    -WC.RLP                                                 REC       516
                          0470000247 +            ZR     B7,END110   IF TABLE EXHAUSTED                          REC       517
                                                  IFEQ   TEST,ON,1                                               REC       518
           240  0770400240 +                      MI     B7,"BLOWUP" IF SYMBOL TABLE NOT MULT OF Z=SYM           REC       519
                          15430                   BX4    -X0*X3      RLI = RL[WCI]                               REC       520
                               67773              SB7    B7-B3       LENSYM = LENSYM - Z=SYM                     REC       521
           241  6224777776                        SB2    X4-ML.PROG        = WC.RL(I) - ML.PROG                  REC       522
                          0520000237 +            NE     B2,B0,END100      IF RL(I) .NE. ML.PROG                 REC       523
           242  55531                             =A5    A3-WC.W+WB.W      *WB*                                  REC       524
                     7110010000                   CLAS=  X1,WB,(FUN)                                             REC       525
                               11515              BX5    X1*X5                                                   REC       526
           243  0315000237 +                      NZ     X5,END100   IF A FUNCTION                               REC       527
                          20312                   LX3    WC.RLP-WC.RBP                                           REC       528
                               11673              BX6    X7*X3                                                   REC       529
           244  15337                             BX3    -X7*X3      RBI = RB[WCI]                               REC       530
                     53534                        SA5    X3+B4       LBI = LBT(RBI)                              REC       531
                          20660                   LX6    WC.RBP                                                  REC       532
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    13
        RELOCATE SYMBOL TABLES.                                       END 
  
                               20552              HX5    LB.ORG      ORGI = ORG[LBI]                             REC       533
           245  21552                             AX5    -LB.ORGL+WC.RAP                                         REC       534
                                                  LX5    WC.RAP                                                  REC       535
                     36665                        IX6    X6+X5       RAI = RAI + ORGI                            REC       536
                          54630                   SA6    A3          (RB,RA)[WCI] = (0,RAI) [WC.]                REC       537
           246  0400000237 +                      EQ     END100                                                  REC       538
                                                                                                                 REC       539
                                                                                                                 REC       540
                                        **        PART 9 - PROCESS AUXILIARY TABLES.                             REC       541
                                                                                                                 REC       542
                                                                                                                 REC       543
           247                           END110   BSS    0                                                       REC       544
           247  5110000000 X                      SA1    ERRORS                                                  FC5A262    52
                          0311000256 +            NZ     X1,END115   IF FATAL ERRORS, SKIP RELOCATING AUX TABLES REC       546
           250  5110000000 X                      SA1    T=GL                                                    FC5A262    53
                          5120000000 X            SA2    T.GL                                                    FC5A262    54
           251  0100000366 +                      RJ     RAT         RELOCATE T.GL                               REC       549
           252  5110000000 X                      SA1    T=API                                                   FC5A262    55
                          5120000000 X            SA2    T.API                                                   FC5A262    56
           253  0100000366 +                      RJ     RAT         RELOCATE T.API                              REC       552
           254  5110000000 X                      SA1    T=IOI                                                   FC5A262    57
                          5120000000 X            SA2    T.IOI                                                   FC5A262    58
           255  0100000366 +                      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
           256                           END115   BSS    0                                                       REC       574
           256  5110000000 X                      SA1    T=SYM                                                   FC5A262    59
                          5120000000 X            SA2    T.SYM                                                   FC5A262    60
           257  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
           260  6252000002                        =B5    X2+WC.W                                                 REC       580
                          43014                   MX0    WC.RLRBL                                                REC       581
                                                  LX0    WC.RLRBL+WC.RLRBP                                       REC       582
                                                                                                                 FC50252    27
           261  54443                    END120   SA4    A4+B3       WBA = WBA + Z=SYM,  WBI = (WBA)             REC       583
                     67443                        SB4    B4-B3       LENSYM = LENSYM - Z=SYM                     REC       584
                          0440000274 +            ZR     B4,END130   IF END OF T.SYM                             REC       585
           262  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/05. 20.00.28.      PAGE    14
        RELOCATE SYMBOL TABLES.                                       END 
  
           263  11214                             BX2    X1*X4                                                   REC       589
                     20462                        SBIT   X4,WB.EQVP                                              FC50252    28
                          0324000261 +            PL     X4,END120   IF NOT EQUIVALENCED                         FC50252    29
           264  0312000261 +                      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
           265  0307400265 +                      ZR     X7,"BLOWUP" BASE ORD SHOULD NOT BE 0                    REC       596
                                                                                                                 REC       597
                          54341                   =A3    A4-WB.W+WC.W      WCI                                   REC       598
                               22217              LX2    X7,B1                                                   REC       599
           266  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
                          7110100000              CLAS=  X1,WB,(COM)                                             REC       603
           267  20441                             LX4    WB.BASEP    RESTORE (X4)                                REC       604
                     53225                        SA2    X2+B5       WCB = T.SYM(STINDB) + WC.W                  REC       605
                          55521                   =A5    A2-WC.W+WB.W      WBB = WB ENTRY OF BASE                REC       606
                               11115              BX1    X1*X5       COMB = COM[WBB]                             REC       607
           270  12614                             BX6    X1+X4                                                   REC       608
                     11302                        BX3    X0*X2       RLRBB = RLRB[WCB]                           REC       609
                          20244                   HX2    WC.RA                                                   REC       610
                               21244              AX2    -WC.RAL     RAB = RA[WCB]                               REC       611
           271  5110000000 X                      SA1    =XUSAVE                                                 REC       612
                          11115                   BX1    X1*X5       SAVEB = SAVE[WBB] IF UNIVERSAL SAVE         REC       613
                               12661              BX6    X6+X1                                                   REC       614
           272  12773                             BX7    X7+X3                                                   REC       615
                     36772                        IX7    X7+X2                                                   REC       616
                          54730                   SA7    A3          (RLRB,RA) [WCI] = (RARBB,RAI+RAB) [WC.]     REC       617
                               54640              SA6    A4          (COM,SAVE) [WBI] = (COMB,SAVEB) [WBB]       REC       618
           273  0400000261 +                      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
           274  43301                    END130   MX3    1                                                       REC       626
                     0100000330 +                 RJ     GCL         GET LCM COMMON LENGTH                       REC       627
           275  5160000001 X                      SA6    COMSIZ+1                                                REC       628
                          43300                   MX3    0                                                       REC       629
           276  0100000330 +                      RJ     GCL         GET CM COMMON LENGTH                        REC       630
           277  7170377777                        SX7    MAX.SPCM                                                FC5A126    41
                          76110                   =X1    1                                                       FC5A126    42
                               36771              IX7    X7+X1                                                   FC5A126    43
           300  37767                             IX7    X6-X7                                                   FC5A126    44
                     5110000000 X                 SA1    SUM.LBT                                                 FC5A126    45
           301  5160000000 X                      SA6    COMSIZ                                                  REC       633
                          36216                   IX2    X1+X6       OBJ PROG LEN = PROG LEN + COMMON LEN        REC       634
           302  7100377777                        SX0    MAX.SPCM                                                FC5A126    46
                          76110                   =X1    1                                                       FC5A126    47
                               36001              IX0    X0+X1                                                   FC5A126    48
           303  37020                             IX0    X2-X0                                                   FC5A126    49
                     0337000305 +                 MI     X7,END140   IF COMMON LEN O.K.                          REC       636
           304  6170000000 X                      FATAL  E.MO8       COMMON LENGTH TOO LONG                      REC       637
           305  0330000112 +             END140   MI     X0,EXIT.    IF OBJ PROG LEN  O.K.                       REC       638
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    15
        RELOCATE SYMBOL TABLES.                                       END 
  
                          6170000000 X            FATAL  E.MO1       PROGRAM UNIT LENGTH TOO LONG                REC       639
           307  0400000112 +                      EQ     EXIT.       EXIT...                                     REC       640
                                                                                                                 REC       641
                                                                                                                 REC       642
                                                                                                                 REC       643
           310                           ENDA     BSS    0           DEFINE SKELETON  *RL=PROG, RB=(BN=NLST)*    REC       644
                                  74              POS    WC.RLP+WC.RLL                                           REC       645
           310  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
           311                           ENDB     BSS    0           DEFINE SKELETON  *RL=PROG, RB=(BN=FMT)*     REC       652
                                  74              POS    WC.RLP+WC.RLL                                           REC       653
           311  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
           312  0400400312 +             ADA      SUBR   =           ENTRY/EXIT...                               REC       681
           313  5110000000 X                      SA1    T=DIM                                                   REC       682
                          5120000000 X            SA2    T.DIM                                                   REC       683
           314  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
           315  0623000312 +             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
           316  63232                             SB2    B2+X3                                                   REC       692
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      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
           317  12641                             BX6    X4+X1       MATI = (X4) .OR. (DH.MAT)                   REC       696
                     0326000315 +                 PL     X6,ADA2     IF THIS ENTRY NOT MATERIAL                  REC       697
                               20163              LX1    DH.MATP+1-DH.RAP                                        REC       698
           320  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
           321  54610                             SA6    A1                                                      REC       703
                     0400000315 +                 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
           322  0400400322 +             GBS      SUBR   0           ENTRY/EXIT...                               REC       718
                                                  LX1    LB.TBLNP                                                REC       719
           323  36641                             IX6    X4+X1       TBLN(I) = TBLN(I) + LENGTH                  REC       720
                     54640                        SA6    A4                                                      REC       721
                          0302000327 +            ZR     X2,GBS8     IF NO SYMBOL                                REC       722
                                                                                                                 REC       723
           324  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
           325  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
           326  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
           327  10466                    GBS8     BX4    X6          RETURN (X4) = NEW ENTRY                     REC       737
                     0400000322 +                 EQ     EXIT.                                                   REC       738
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      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
           330  0400400330 +             GCL      SUBR   0           ENTRY/EXIT...                               REC       748
           331  5120000000 X                      SA2    T.BLKS                                                  REC       749
                          63221                   =B2    X2+CB.W                                                 REC       750
                               76600              =X6    0           COMLEN = 0                                  REC       751
           332  5110000000 X                      SA1    T=BLKS                                                  REC       752
                          66611                   =B6    Z=BLKS      BLKIND = Z=BLKS                             REC       753
                               63410              SB4    X1                                                      REC       754
           333  66360                             SB3    B6                                                      REC       755
                     43044                        MX0    -CB.BLENL                                               REC       756
           334  0664000330 +             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
           335  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
           336  0332000334 +                      MI     X2,GCL10    IF NOT REQUESTED RESIDENCE                  REC       765
                          36661                   IX6    X6+X1       BLKLEN = BLKLEN + BLENI                     REC       766
           337  0400000334 +                      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
           340  0400400340 +             ISZ      SUBR   0           ENTRY/EXIT...                               REC       774
           341  0305000340 +                      ZR     X5,EXIT.    IF NO SUB0 TABLE                            FC5A128   341
                          5110000000 X            ALLOC  T.SUB0,X5   ALLOCATE SPACE FOR TABLE                    FC5A128   342
           343  5110000000 X                      SA1    T.SUB0                                                  REC       775
                          5120000000 X            SA2    T.FPO                                                   REC       776
           344  5130000000 X                      SA3    T=SUB0                                                  REC       777
                          5140000000 X            SA4    T=FPO                                                   REC       778
           345  63210                             SB2    X1                                                      REC       779
                     63340                        SB3    X4                                                      REC       780
                          36513                   IX5    X1+X3                                                   REC       781
                               43600              MX6    0           0 HEADER WORD                               REC       782
           346  43774                             MX7    60          -0 TERMINATOR WORD                          REC       783
                     5275777776                   SA7    X5-1        LWA(T.SUB0) = -0                            REC       784
                                   0              ERRMI  FUDGE-1                                                 REC       785
           347  0430000340 +             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/05. 20.00.28.      PAGE    18
        RELOCATE SYMBOL TABLES.                                       ISZ 
  
           350  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
           351  0400000347 +                      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
           352  0400400352 +             MER      SUBR   0           ENTRY/EXIT...                               REC       804
           353  5120000000 X                      SA2    T=SYM                                                   REC       805
                          5110000000 X            SA1    T.SYM                                                   REC       806
           354  5140000435 +                      CLAS=  X4,WC,(RLRB)                                            REC       807
                          7100040000              CLAS=  X0,WB,(EXT)                                             REC       808
           355  76710                             SX7    B1          INITIALIZE EXTERNAL COUNTER                 REC       809
                     63720                        SB7    X2                                                      REC       810
                          6130000003              =B3    Z=SYM                                                   REC       811
           356  7120000003                        =X2    ML.EXT      RLI = ML.EXT                                REC       812
                          53311                   =A3    X1+WB.W                                                 REC       813
                               20272              LX2    WC.RLP                                                  REC       814
           357  54333                    MER20    SA3    A3+B3       WBA = WBA + L.SYM, WBI = (WBA)              REC       815
                     67773                        SB7    B7-B3                                                   REC       816
                          0470000352 +            ZR     B7,EXIT.    IF SYMTAB EXHAUSTED                         REC       817
           360  10533                             BX5    X3                                                      REC       818
                     11603                        BX6    X0*X3                                                   REC       819
                          20570                   HX5    WB.LAB                                                  REC       820
           361  0335000357 +                      MI     X5,MER20    IF LABEL                                    REC       821
                          0306000357 +            ZR     X6,MER20    IF NOT EXTERNAL                             REC       822
           362  20557                             LX5    WB.LABP-WB.FPP                                          REC       823
                     54131                        =A1    A3-WB.W+WC.W                                            REC       824
                          0325000364 +            PL     X5,MER30    IF NOT F.P.                                 REC       825
           363  15630                             BX6    -X0*X3                                                  REC       826
                     54630                        SA6    A3          EXT[WBI] = 0                                REC       827
                          0400000357 +            EQ     MER20                                                   REC       828
                                                                                                                 REC       829
           364  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
           365  0400000357 +                      EQ     MER20                                                   REC       834
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      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
           366  0400400366 +             RAT      SUBR   0           ENTRY/EXIT...                               REC       845
           367  6120000000 X                      SB2    =XF.LBT                                                 REC       846
                          0301000366 +            ZR     X1,EXIT.    IF LENGTH OF TABLE = 0                      REC       847
           370  63310                             SB3    X1          LENTAB = LENGTH OF TABLE                    REC       848
                     53120                        SA1    X2          TA = FWA OF TABLE                           REC       849
                          43752                   MX7    -LB.ORGL                                                REC       850
           371  67331                    RAT10    SB3    B3-B1       LENTAB = LENTAB - 1                         REC       851
                     54111                        SA1    A1+B1       TA = TA + 1,  TI = (TA)                     REC       852
                          0430000366 +            EQ     B3,B0,EXIT. IF TABLE EXHAUSTED                          REC       853
           372  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
           373  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
           374  0400000371 +                      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
           375  0400400375 +             SSA      SUBR   0           ENTRY/EXIT...                               REC       884
           376  5110000000 X                      SA1    T.SYM                                                   FC5A262    61
                          6130000003              =B3    Z=SYM                                                   REC       886
           377  5120000000 X                      SA2    T=SYM                                                   FC5A262    62
                          53311                   =A3    X1+WB.W     WBA = FWA(T.SYM) + WB.W                     REC       888
           400  5140000440 +                      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/05. 20.00.28.      PAGE    20
        RELOCATE SYMBOL TABLES.                                       SSA 
  
                          76610                   =X6    ML.PROG                                                 REC       890
           401  7150000010                        =X5    BN=VAR                                                  REC       891
                          20672                   LX6    WC.RLP                                                  REC       892
                               20560              LX5    WC.RBP                                                  REC       893
           402  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
           403  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
           404  54333                    SSA10    SA3    A3+B3       WBA = WBA + L.SYM, WBI = (WBA)              REC       906
                     67773                        SB7    B7-B3       STLEN = STLEN + L.SYM                       REC       907
                          0470000426 +            ZR     B7,SSA30    IF SYMTAB EXHAUSTED                         REC       908
                                                                                                                 REC       909
                                         .TEST    IFEQ   TEST,ON,1                                               REC       910
           405  0770400405 +                      MI     B7,"BLOWUP" IF SYMBOL TABLE LENGTH NOT MULT OF L.SYM    REC       911
                                                                                                                 REC       912
                          11243                   BX2    X4*X3                                                   REC       913
           406  0312000404 +                      NZ     X2,SSA10    IF NOT UNIQUE LOCAL, AVOID..                REC       914
                          20335                   SBIT   X3,WB.MATP                                              FC5A262    63
           407  0323000404 +                      PL     X3,SSA10    IF NOT MATERIALIZED                         FC5A262    64
                          54131                   =A1    A3-WB.W+WC.W      WCI = WC.W ENTRY                      REC       916
           410  5120000434 +                      CLAS=  X2,WC,(RLRB,RA)                                         REC       917
                          11221                   BX2    X2*X1       RBRAI = (RLRB, RA) [WCI]                    REC       918
                               43671              MX6    -WB.MODEL                                               REC       919
           411  0312000404 +                      NZ     X2,SSA10    IF STORAGE ALREADY ALLOCATED                REC       920
                          20354                   LX3    WB.MATP+1-WB.PNTP                                       REC       922
                               43757              MX7    -WB.PNTL                                                REC       923
           412  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
           413  20357                             LX3    WB.PNTP-WB.MODEP                                        REC       928
                     15736                        BX7    -X6*X3      MODEI = MODE[WBI]                           REC       929
                          7267777771              SX6    X7-M.CHAR                                               REC       930
           414  43374                             MX3    -0                                                      REC       931
                     6227777773                   SB2    X7-M.DBL                                                REC       932
           415  0420000422 +                      EQ     B2,B0,SSA20 IF MODE = DOUBLE                            REC       933
                          0421000422 +            EQ     B2,B1,SSA20 IF MODE = COMPLEX                           REC       934
           416  7130000000                        SX3    0           INDICATE SINGLE WORD ELEMENT                REC       935
                          0316000422 +            NZ     X6,SSA20    IF NOT MODE CHARACTER                       REC       936
           417  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
           420  7120000011                        CW     X2,X7       SIZE = SIZE / 10                            REC       941
                                                                                                                 FC5A262    65
           422  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/05. 20.00.28.      PAGE    21
        RELOCATE SYMBOL TABLES.                                       SSA 
  
                                                  LX1    -WC.RAP                                                 REC       946
                               15616              BX6    -X6*X1      RAI = RA[WCI]                               REC       947
           423  0316400423 +                      NZ     X6,"BLOWUP" IF RAI .NE. 0                               REC       948
                                                  LX1    WC.RAP                                                  REC       949
                                         .T       ENDIF                                                          REC       950
                          11332                   BX3    X3*X2                                                   REC       951
                               36223              IX2    X2+X3       SIZE = 2 * SIZE (IF DOUBLE WORD)            REC       952
                                                  LX7    WC.RAP                                                  REC       953
           424  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
           425  0400000404 +                      EQ     SSA10                                                   REC       957
                                                                                                                 REC       958
                                        *         UPDATE BLOCK LENGTH FOR (BN=VAR) BLOCK.                        REC       959
                                        *         (X0) = VARLEN                                                  REC       960
                                                                                                                 REC       961
           426  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
           427  11763                             BX7    X6*X3                                                   REC       966
                     7140377777                   SX4    MAX.SPCM                                                FC5A139     4
                               76110              =X1    1                                                       FC5A139     5
           430  36441                             IX4    X4+X1                                                   FC5A139     6
                     37404                        IX4    X0-X4                                                   FC5A139     7
                          0334000432 +            MI     X4,SSA40    IF VARIABLE LENGTH .LE. MAX.SPCM            FC5A139     8
           431  7100377777                        SX0    MAX.SPCM                                                FC5A139     9
                                                                                                                 FC5A262    66
           432  12770                    SSA40    BX7    X7+X0                                                   FC5A139    10
                                                  LX7    LB.TBLNP                                                REC       974
                     54730                        SA7    A3          TBLN[LBVAR] = VARLEN                        REC       975
                          0400000375 +            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.
  
           433  00000055555555555555
           434  77770000000077777777    ;;    ;;;;
           435  77770000000000000000    ;;
           436  00000000000004000010          D  H
           437  03777777777777000000    C;;;;;; 
           440  00000000006000361510         # 3MH
           441  00000631463146314632      FY-Y-Y-Z
  
           451                                    END                                                            REC       979
  
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    22
        RELOCATE SYMBOL TABLES. 
  
                             70200B CM  STORAGE USED             3477 STATEMENTS     1819 SYMBOLS      000018 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.201 SECONDS         648 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADA           312   PROGRAM*        8/54     15/46 L   15/46 E
        ADA2          315   PROGRAM*       15/53 L   16/05     16/12
        ALC             0   EXTERNAL*       1/46 X   10/31     11/24     17/43
        ALC.PAR         0   EXTERNAL*       4/15 S
        BCT             0   EXTERNAL*       2/18 X    4/40
        BINIO           0   EXTERNAL*       2/10 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    8/48      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/51 X    4/54
        BST.EQ          0   EXTERNAL*       1/51 X    4/54 S
        BT.IDNT         0   EXTERNAL*       1/49 X    6/15 S
        BT.IDN9         0   EXTERNAL*       1/49 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/27 X    5/31      6/34
        CLE             0   EXTERNAL*       1/49 X    5/06
        CLE.EQ          0   EXTERNAL*       1/49 X    5/06 S
        COMSIZ          0   EXTERNAL*       2/10 X   14/41 S   14/49 S
        CO.DBID         0   EXTERNAL*       1/57 X    6/11
        CO.DBPM         0   EXTERNAL*       1/57 X    6/23
        CO.DBST         0   EXTERNAL*       1/57 X    6/10
        CO.LOO          0   EXTERNAL*       1/57 X    4/43      6/31
        CO.OPT          0   EXTERNAL*       1/57 X    8/09
        CO.QC           0   EXTERNAL*       1/57 X    4/46
        CO.SNAP         0   EXTERNAL*       1/57 X    4/21
        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/54 X    4/24
        END           112   PROGRAM*        4/18      7/09 L
        ENDA          310   PROGRAM*        9/20     15/06 L
        ENDB          311   PROGRAM*        9/52     15/14 L
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        END1          133   PROGRAM*        8/11      8/15 L
        END1A         120   PROGRAM*        7/30 L    7/34
        END1B         124   PROGRAM*        7/32      7/42 L
        END1C         126   PROGRAM*        7/40      7/50 L
        END10         164   PROGRAM*        9/57 L   10/05     10/11
        END100        237   PROGRAM*       12/40 L   12/48     12/52     13/06
        END110        247   PROGRAM*       12/42     13/12 L
        END115        256   PROGRAM*       13/14     13/42 L
        END120        261   PROGRAM*       13/52 L   14/03     14/04     14/32
        END130        274   PROGRAM*       13/54     14/39 L
        END140        305   PROGRAM*       14/55     14/57 L
        END15         170   PROGRAM*       10/02     10/17 L
        END2          147   PROGRAM*        9/03 L    9/26      9/30
        END4          157   PROGRAM*        9/06      9/34 L
        END45         200   PROGRAM*       10/42 L   11/09     11/12
        END48         207   PROGRAM*       11/05     11/09 L
        END50         211   PROGRAM*       10/42     11/14 L
        END55         220   PROGRAM*       11/23     11/28 L
        END60         222   PROGRAM*       10/30     11/22     11/40 L
        END70         225   PROGRAM*       11/48 L   12/12
        END80         230   PROGRAM*       11/55     12/01 L
        END90         233   PROGRAM*       11/46     12/14 L
        ERRORS          0   EXTERNAL*       2/10 X    5/12     11/45     13/13
        ESL             0   EXTERNAL*       1/49 X    5/07
        ESL.EQ          0   EXTERNAL*       1/49 X    5/07 S
        E.MO1           0   EXTERNAL*       2/24 X   15/01
        E.MO8           0   EXTERNAL*       2/24 X   14/56     14/56
        FAS             0   EXTERNAL*       1/49 X    5/34
        FBP             0   EXTERNAL*       1/50 X    5/02
        FBP.EQ          0   EXTERNAL*       1/50 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*       2/01 X    4/42      6/30     11/21
        F.LBT           0   EXTERNAL*       2/10 X    8/48     11/19 S   11/41     19/11
                                            8/06      9/34 S   11/20 S   12/30     21/17
        F.PB            0   EXTERNAL*       2/01 X    5/19      5/22      5/31      6/34
        GBS           322   PROGRAM*        8/08      8/13      8/18      8/26      8/32      8/37     16/29 L
        GBS8          327   PROGRAM*       16/33     16/48 L
        GCL           330   PROGRAM*       14/40     14/43     17/09 L
        GCL10         334   PROGRAM*       17/18 L   17/26     17/28
        ISZ           340   PROGRAM*       11/31     17/41 L
        ISZ10         347   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/04 X    4/36
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        MAX.SPCM   377777   FTX            14/44     14/51     21/22     21/27
        MER           352   PROGRAM*        5/10     18/20 L
        MER20         357   PROGRAM*       18/31 L   18/37     18/38     18/44     18/50
        MER30         364   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/10 X    5/11 S
        N.CON           0   EXTERNAL*       2/10 X    8/16
        N.TYPE          7   FTX             7/26
        PASS            0   EXTERNAL*       2/10 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/18 X    4/41
        PDM             0   EXTERNAL*       2/07 X   14/56     15/01
        POL             0   EXTERNAL*       1/51 X    4/56
        POL.EQ          0   EXTERNAL*       1/51 X    4/56 S
        RADOL1          0   EXTERNAL*       1/50 X    4/57 S
        RADOL2          0   EXTERNAL*       1/50 X    5/01 S
        RADRTN          0   EXTERNAL*       1/50 X    4/57      5/01
        RAT           366   PROGRAM*       13/17     13/20     13/23     19/10 L
        RAT10         371   PROGRAM*       19/16 L   19/28
        REC             2   PROGRAM*        4/08 L    4/08 E
        REC02S         13   PROGRAM*        4/23      4/25 L
        REC20          16   PROGRAM*        4/35      4/40 L
        REC30          32   PROGRAM*        4/52      4/55 L
        REC40          43   PROGRAM*        4/55      5/04 L
        REC50          50   PROGRAM*        5/05      5/09 L
        REC55          60   PROGRAM*        5/21      5/30 L
        REC59          62   PROGRAM*        5/13      5/28      5/34 L
        REC60          63   PROGRAM*        4/48      4/49      5/38 L
        REL.RTN         0   EXTERNAL*       2/21 X    5/53
        REP            74   PROGRAM*        4/10      6/06 L
        SBM=            0   EXTERNAL*       2/27 X   11/26
        SMB             0   EXTERNAL*       2/18 X   10/18
        SNR             0   EXTERNAL*       1/49 X    9/05
        SSA           375   PROGRAM*       10/19     19/52 L
        SSA10         404   PROGRAM*       20/17 L   20/25     20/27     20/32     21/12
        SSA20         422   PROGRAM*       20/44     20/45     20/47     20/54 L
        SSA30         426   PROGRAM*       20/19     21/17 L
        SSA40         432   PROGRAM*       21/26     21/29 L
        SUM.LBT         0   EXTERNAL*       2/10 X   12/14 S   14/48
        S=CL            0   EXTERNAL*       2/11 X    8/34
        S=CON           0   EXTERNAL*       2/11 X    8/17
        S=LA            0   EXTERNAL*       2/11 X    8/12
        S=VALUE         0   EXTERNAL*       2/11 X    7/19
        TEST            1   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*       2/01 X    6/07
        TV=CUR          0   EXTERNAL*       4/17 S
        TV=END          0   EXTERNAL*       4/13
        T=API           0   EXTERNAL*       2/11 X    5/43      5/43 S   13/18
        T=APL           0   EXTERNAL*       2/11 X    5/42      5/42 S    8/22
        T=BLKS          0   EXTERNAL*       2/11 X   17/13
        T=CLW           0   EXTERNAL*       2/12 X    8/33
        T=CON           0   EXTERNAL*       2/12 X    5/38      5/38 S
        T=DATS          0   EXTERNAL*       2/12 X    5/47      5/47 S
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/05. 20.00.28.      PAGE    25
        SYMBOLIC REFERENCE TABLE. 
  
        T=DIM           0   EXTERNAL*       2/12 X   15/47
        T=FMT           0   EXTERNAL*       2/12 X    5/39      5/39 S    8/05
        T=FPI           0   EXTERNAL*       2/12 X    5/48      5/48 S   10/29
        T=FPO           0   EXTERNAL*       2/12 X    5/49      5/49 S   17/47
        T=GL            0   EXTERNAL*       2/12 X    5/41      5/41 S   13/15
        T=IOA           0   EXTERNAL*       2/12 X    5/45      5/45 S    8/27
        T=IOI           0   EXTERNAL*       2/13 X    5/46      5/46 S   13/21
        T=LA            0   EXTERNAL*       2/11 X    8/10
        T=LCA           0   EXTERNAL*       2/13 X    5/44      5/44 S    8/21
        T=LNT           0   EXTERNAL*       2/13 X    5/52      5/52 S
        T=NLST          0   EXTERNAL*       2/13 X    5/40      5/40 S
        T=SUB           0   EXTERNAL*       2/13 X    5/50      5/50 S
        T=SUB0          0   EXTERNAL*       2/13 X    5/51      5/51 S   11/29     11/29 S   17/46
        T=SYM           0   EXTERNAL*       2/13 X    9/46     12/27     13/43     18/21     19/55
        T.API           0   EXTERNAL*       2/13 X   13/19
        T.BLKS          0   EXTERNAL*       2/14 X   17/10
        T.DIM           0   EXTERNAL*       2/14 X   15/48     20/07
        T.FPI           0   EXTERNAL*       2/14 X   10/34
        T.FPO           0   EXTERNAL*       2/14 X   10/31     17/45
        T.GL            0   EXTERNAL*       2/14 X   13/16
        T.IOI           0   EXTERNAL*       2/14 X   13/22
        T.SUB           0   EXTERNAL*       2/14 X   11/24
        T.SUB0          0   EXTERNAL*       2/14 X   17/43     17/44
        T.SYM           0   EXTERNAL*       2/14 X    7/23      9/47     12/25     13/44     16/35     18/22     19/53
        USAVE           0   EXTERNAL*       2/15 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.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/05. 20.00.28.      PAGE    26
        SYMBOLIC REFERENCE TABLE. 
  
        WC.CLENL       22   FTX            20/49     20/50
        WC.CLENP       36   FTX            20/49
        WC.RAL         30   FTX             9/13     14/23     14/24     20/29     20/55
        WC.RAP          0   FTX             9/13      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/13      9/48     13/49     18/23     20/29
        WC.RLRBP       60   FTX             9/13      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/51 X    4/53
        WLF.EQ          0   EXTERNAL*       1/51 X    4/53 S
        WNB=            0   EXTERNAL*       2/01 X    5/19
        WO.LOA          0   EXTERNAL*       2/15 X    4/30
        WO.LOM          0   EXTERNAL*       2/15 X    4/31
        WO.LOO          0   EXTERNAL*       2/15 X    4/45 S
        WO.LOR          0   EXTERNAL*       2/15 X    4/32
        WO.56           0   PROGRAM*        2/30 L    2/30 E    6/26 S
        WO.57           1   PROGRAM*        2/31 L    2/31 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/15 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/05. 20.00.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       65              IDENT  RERRS
                         65                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0         1 
                                        LITERALS* LOCAL           1        46 
                                        FORMAT.   LOCAL          47        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=RERRS          0+           L.FILL           3            E.MO6           55+ 
                                        DICT             1+           E.MO1           47+           E.MO7           57+ 
                                        FILL.            2+           E.MO2           50+           E.MO8           61+ 
                                        FILL.2           3+           E.MO4           52+           E.TC1           63+ 
                                        FILL.3           4+           E.MO5           53+           E.CCG           64+ 
  
  
                                        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/05. 20.00.29.      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/05. 20.00.29.      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/05. 20.00.29.      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/05. 20.00.29.      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/05. 20.00.29.      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
                                  47 +   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/05. 20.00.29.      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/05. 20.00.29.      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
            47  005                      E.MO1    ERROR  F,*,(PROGRAM LENGTH EXCEEDS 2**17-1)                    COMFERR    12
            50  011                      E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN) COMFERR    13
                                                                                                                 COMFERR    15
                                         .TEST    IFEQ   TEST,ON     IF TESTMODE                                 COMFERR    16
            52  020                      E.MO4    ERROR  D,*,(PREBINARY SPILLS TO DISK)                          COMFERR    17
            53  024                      E.MO5    ERROR  D,*,(REFERENCE FILE SPILLS TO DISK)                     COMFERR    18
            55  026                      E.MO6    ERROR  DS,*,(THRESHOLD REACHED -- ONLY FILL. LEFT OUT OF FILL. COMFERR    19
                                        ,2)                                                                      COMFERR    20
            57  034                      E.MO7    ERROR  D,*,(LINK AND FILL TABLES SPILLS TO DISK)               COMFERR    21
                                         .TEST    ENDIF                                                          COMFERR    22
                                                                                                                 COMFERR    23
            61  037                      E.MO8    ERROR  F,*,("SCM" COMMON BLOCK LENGTH EXCEEDS "MAX.SPCM")      COMFERR    24
                                                                                                                 COMFERR    25
                                         .T       IFEQ   TEST,ON                                                 COMFERR    26
            63  011                      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
            64  044                      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/05. 20.00.29.      PAGE     9
        COMFERR                                                       LITERALS
  
            12  17260522061417275575    OVERFLOW \
            13  46465555555555555567    --       &
            14  11160322050123055575    INCREASE \
            15  06110514045555555572    FIELD    <
            16  01160455555555555570    AND      '
            17  22052225165555555572    RERUN    <
            20  20220502111601223176    PREBINARY^
            21  23201114142355555573    SPILLS   >
            22  24175555555555555567    TO       &
            23  04112313555555555571    DISK     ?
            24  22050605220516030576    REFERENCE^
            25  06111405555555555571    FILE     ?
            26  24102205231017140476    THRESHOLD^
            27  22050103100504555574    REACHED  @
            30  17161431555555555571    ONLY     ?
            31  14050624555555555571    LEFT     ?
            32  17252455555555555570    OUT      '
            33  17065555555555555567    OF       &
            34  14111613555555555571    LINK     ?
            35  06111414555555555571    FILL     ?
            36  24010214052355555573    TABLES   >
            37  03155555555555555567    CM       &
            40  03171515171655555573    COMMON   >
            41  02141703135555555572    BLOCK    <
            42  34363433423455555573    131071   >
            43  03220123105555555572    CRASH    <
            44  05032355555555555570    ECS      '
            45  10012204270122055575    HARDWARE \
            46  05222217225555555572    ERROR    <
  
            65                                    END                                                            RERRS      22
  
                             67700B CM  STORAGE USED             1671 STATEMENTS     1679 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.550 SECONDS          83 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/41 X    8/18      8/19      8/20      8/22      8/28
        ERR.F           0   EXTERNAL*       1/41 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          64   PROGRAM*        8/40 E    8/40 D
        E.MO1          47   PROGRAM*        8/14 E    8/14 D
        E.MO2          50   PROGRAM*        8/15 E    8/15 D
        E.MO4          52   PROGRAM*        8/18 E    8/18 D
        E.MO5          53   PROGRAM*        8/19 E    8/19 D
        E.MO6          55   PROGRAM*        8/20 E    8/20 D
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/05. 20.00.29.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        E.MO7          57   PROGRAM*        8/22 E    8/22 D
        E.MO8          61   PROGRAM*        8/25 E    8/25 D
        E.TC1          63   PROGRAM*        8/28 E    8/28 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
        N.ER1ST         4                   7/37 D
        PEM             0   EXTERNAL*       1/38 X    8/14      8/15      8/18      8/19      8/22      8/25      8/40
        PEMS            0   EXTERNAL*       1/38 X    8/20      8/28
        TEST            1   FTX             8/17 F    8/27 F
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      434              IDENT  RLINK
                        434                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       433 
                                        LITERALS* LOCAL         433         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=RLINK          0+           LEXFLG           1+           BCT            333+ 
                                        FEC=BY           0            LDB              2+           SMB            353+ 
                                        STAGE            0+           CGE              5+           PAT            370+ 
                                        BLL              1+           LSR             14+           PCA            412+ 
                                        CHARMAP          1+           N.ALTEN         15+           SCS            423+ 
                                        FEC.RTN          1+           CII            166+           SCSA           432+ 
  
  
                                        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/05. 20.00.30.      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
             3  5110000000 X                      SA1    =XT.STMT                                                RLINK      38
                          0311400003 +            NZ     X1,"BLOWUP" IF STATEMENT TABLE NOT EMPTY                RLINK      39
             4  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
             5  0400400005 +             CGE      SUBR   =           ...ENTRY/EXIT...                            RLINK      48
             6  5110000000 X                      SA1    ERR22                                                   RLINK      49
                          0301000005 +            ZR     X1,EXIT.    IF NO DIAGNOSTICS TO OUTPUT                 RLINK      50
             7  6170000000 X                      SB7    E.MO2       INSUFFICIENT FL                             RLINK      51
                          7211777776              SX1    X1-1                                                    RLINK      52
            10  0311000011 +                      NZ     X1,CGE1     IF NOT FL MESSAGE                           RLINK      53
                          6170000000 X            SB7    E.CCG       ECS/LCM HARDWARE ERROR                      RLINK      54
                                                                                                                 RLINK      55
            11  0100000000 X             CGE1     FATAL  B7                                                      RLINK      56
            12  7160000000                        SX6    0                                                       RLINK      57
                          5160000000 X            SA6    ERR22       CLEAR DIAGNOSTIC FLAG                       RLINK      58
            13  0400000005 +                      EQ     EXIT.                                                   RLINK      59
  
  
  
  
            14  00000000000000000000     LSR      CONENT 0           .NZ. IF FORMAL PARAMETER REFERENCE          RLINK      61
            15  00000000000000000000     N.ALTEN  CONENT 0           NUMBER OF ALTERNATE ENTRIES                 RLINK      62
                                                                                                                 RLINK      63
                                                                                                                 RLINK      64
                                        *         RTT - REGISTER TRANSLATION TABLE.                              RLINK      65
                                                                                                                 RLINK      66
            16                           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/05. 20.00.30.      PAGE     3
                                                                      CELLS 
  
                                                                                                                 RLINK      74
            46                           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
            53                           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
            57                           OPJP     BSS                                                            RLINK      99
      L      0                                    LOC    0                                                       RLINK     100
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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/05. 20.00.30.      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  0400000325 +             EOQ      OPR (  IV     -   -  1/ 1/1    -     -      -              A ) CCGA092     9
      L      1  0400000173 +             BOS      OPR (  IV     -   -      -     -     -      -                ) CCGA092    10
      L      2  0400000326 +             EOS      OPR (  IV     -   -      -     -     -      -              A ) CCGA092    11
      L      3  0400000322 +             DAR      OPR (  I      -   -      -     -     -      -                ) CCGA092    12
      L      4  0400000331 +             RS       OPR (  II     -   -      -     -     -      -       REGST    ) CCGA092    13
      L      5  0400000323 +             DEF      OPR (  II     -   -      -     -     -      -              D ) CCGA092    14
      L      6  0400000317 +             LAB      OPR (  IV     -   - 31/31/31   -     -      -              B ) CCGA092    15
      L      7  0400000324 +             ENT      OPR (  IV     -   -      -     -     -      -              B ) CCGA092    16
                                        *         REGISTER TO REGISTER MACHINE INSTRUCTIONS                      CCGA092    17
      L     10  0400000203 +             XMT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    18
      L     11  0400000176 +             AND      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    19
      L     12  0400000176 +             OR       OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    20
      L     13  0400000176 +             XOR      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    21
      L     14  0400000203 +             XMTC     OPR (  I      -   -  3/ 3/2  BOOL    -     15  K=J           ) CCGA092    22
      L     15  0400000207 +             STR      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    23
      L     16  0400000207 +             IMP      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    24
      L     17  0400000207 +             EQV      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    25
      L     20  0400000234 +             KLS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    26
      L     21  0400000234 +             KRS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    27
      L     22  0400000176 +             ILS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    28
      L     23  0400000176 +             IRS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    29
      L     24  0400000176 +             NR       OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    30
      L     25  0400000176 +             RNZ      OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    31
      L     26  0400000176 +             UP       OPR (  I      -   -  3/ 3/2  PACK    -     15  2R            ) CCGA092    32
      L     27  0400000176 +             PK       OPR (  I      -   -  3/ 3/2  PACK    -     15                ) CCGA092    33
      L     30  0400000176 +             FA       OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    34
      L     31  0400000176 +             FS       OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    35
      L     32  0400000176 +             DFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    36
      L     33  0400000176 +             DFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    37
      L     34  0400000176 +             RFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    38
      L     35  0400000176 +             RFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    39
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE     6
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
      L     36  0400000176 +             IA       OPR (  I    COMM USI 3/ 3/2  IADD    -     15                ) CCGA092    40
      L     37  0400000176 +             IS       OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    41
      L     40  0400000176 +             FM       OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    42
      L     41  0400000176 +             RFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    43
      L     42  0400000176 +             DFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    44
      L     43  0400000234 +             FMA      OPR (  II     -   -  4/ 3/2  SHIFT   -     15  K=J  ZEROP    ) CCGA092    45
      L     44  0400000176 +             FD       OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    46
      L     45  0400000176 +             RFD      OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    47
      L     46  0400000172 +             NOP      OPR (  III    -   -      -     -     -      -       REGST    ) CCGA092    48
      L     47  0400000176 +             CX       OPR (  I      -   -  6/ 8/2  POPC    -     15  K=J           ) CCGA092    49
                                        *         MEMORY REFERENCE AND SET (LOAD IMMEDIATE ) INSTRUCTIONS        CCGA092    50
      L     50  0400000242 +             LD       OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    51
      L     51  0400000242 +             ST       OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    52
      L     52  0400000242 +             STT      OPR (  III    -   -  3/ 3/2  INC    FU1    30                ) CCGA092    53
      L     53  0400000242 +             PLD      OPR (  I      -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    54
      L     54  0400000242 +             PST      OPR (  I      -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    55
      L     55  0400000242 +             S        OPR (  II     -   -  3/ 3/2  INC    FU1    30       ZEROP    ) CCGA092    56
      L     56  0400000262 +             SLD      OPR (  I    COMM  -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    57
      L     57  0400000262 +             SST      OPR (  I    COMM  -  3/10/2  INC    FU1    15       STORE    ) CCGA092    58
      L     60  0400000262 +             SA       OPR (  I    COMM  -  3/ 3/2  INC    FU1    15                ) CCGA092    59
      L     61  0400000263 +             SDL      OPR (  I      -   -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    60
      L     62  0400000263 +             SDS      OPR (  I      -   -  3/10/2  INC    FU1    15       STORE    ) CCGA092    61
      L     63  0400000263 +             SS       OPR (  I      -   -  3/ 3/2  INC    FU1    15                ) CCGA092    62
      L     64  0400000214 +             DRL      OPR (  I      -   -  8/ 0/17 LCM     -     15       LOAD2    ) CCGA092    63
      L     65  0400000220 +             DWL      OPR (  I      -   -  3/ 0/3  LCM     -     15       STORE2   ) CCGA092    64
                                        *         CONDITIONAL JUMPS                                              CCGA092    65
      L     66  0400000330 +             RJXJ     OPR (  III    -   -  5/ 9/3  XJUMP   -     30       ECJUMP   ) CCGA092    66
      L     67  0400000273 +             JPX      OPR (  III    -   -  5/11/2  XJUMP   -     30       JUMP   C ) CCGA092    67
      L     70  0400000277 +             JPBB     OPR (  III    -   -  5/ 8/3  BJUMP   -     30       JUMP   C ) CCGA092    68
                                        *         UNCONDITIONAL JUMPS                                            CCGA092    69
      L     71  0400000304 +             JIN      OPR (  III    -   - 29/14/13 INC    FU1    30       UJUMP  A ) CCGA092    70
      L     72  0400000306 +             RJ3      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    71
      L     73  0400000310 +             RJ6      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    72
      L     74  0400000315 +             UJP      OPR (  IV     -   -  5/14/13 BJUMP  FU1    30       UJUMP  A ) CCGA092    73
                                        *         SPECIAL INSTRUCTIONS FOR THE OPTIMIZER                         CCGA092    74
      L     75  0400000242 +             ILD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    75
      L     76  0400000242 +             TLD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    76
      L     77  0400000242 +             TST      OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    77
      L    100  0400000231 +             IAZ      OPR (  I    COMM  -  3/ 3/2  IADD    -     15                ) CCGA092    78
      L    101  0400000232 +             ISZ      OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    79
      L    102  0400000233 +             IM       OPR (  I    COMM  -  7/10/5  MULT   FU1    15                ) CCGA092    80
      L    103  0400000237 +             LDC      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    81
      L    104  0400000327 +             LDV      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    82
      L    105  0400000321 +             CLR      OPR (  II     -   -  4/ 3/2  SHIFT  BOOL   15  K=J  ZEROP    ) CCGA092    83
      L    106  0400000332 +             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
           166                                    LOC    *O                                                      RLINK     102
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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
           166  0400400166 +             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
           167  43066                             MX0    -6                                                      RLINK     122
                     6160000016 +                 SB6    RTT                                                     RLINK     123
                               15650              BX6    -X0*X5                                                  RLINK     124
           170  26725                             UX7    B2,X5                                                   RLINK     125
                     5246000016 +                 SA4    RTT+X6      I = RTT( RI[PI] )                           RLINK     126
           171  0222000057 +                      JP     OPJP+B2     JUMP( OPJP( OC[PI] )                        RLINK     127
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE     8
        INSTRUCTION PROCESSORS.                                       NOP 
  
                                        **        PROCESS NOP.                                                   RLINK     130
                                                                                                                 RLINK     131
           172                           CI=NOP   BSS                                                            RLINK     132
           172  0400000166 +                      EQ     EXIT.                                                   RLINK     133
  
  
  
  
                                        **        PROCESS BOS.                                                   RLINK     135
                                                                                                                 RLINK     136
           173                           CI=BOS   BSS                                                            RLINK     137
           173  7170000022                        SX7    I.BOS                                                   RLINK     138
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     139
                               20536              LX5    -SI.CAP                                                 RLINK     140
           174  73350                             SX3    X5          CA[PI]                                      RLINK     141
                     20314                        LX3    PB.BIASP                                                RLINK     142
                          12573                   BX5    X7+X3       [PB] = [PB] + BIAS[PB]                      RLINK     143
           175  0400000166 +                      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
           176                                    TYI    (AND,OR,XOR)                                            RLINK     156
           176                                    TYI    (ILS,IRS,NR,RNZ,UP,PK,FA)         OC = 22-30            RLINK     157
           176                                    TYI    (FS,DFA,DFS,RFA,RFS,IA,IS,FM,RFM,DFM) OC=31-42          RLINK     158
           176                                    TYI    (FD,RFD,CX)                       OC = 44,45,47         RLINK     159
                                                                                                                 RLINK     160
           176                           TYI      BSS                                                            RLINK     161
           176  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
           177  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
           200  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
           201  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
           202  12572                             BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     178
                     0400000166 +                 EQ     EXIT.                                                   RLINK     179
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE     9
        INSTRUCTION PROCESSORS.                                       TYPE1 
  
                                        *         XMT AND XMTC NEED K=J                                          RLINK     181
                                                                                                                 RLINK     182
           203                           CI=XMT   BSS                                                            RLINK     183
           203                           CI=XMTC  BSS                                                            RLINK     184
           203  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
           204  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
           205  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
           206  12572                             BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     197
                     0400000166 +                 EQ     EXIT.                                                   RLINK     198
  
  
  
  
                                                                                                                 RLINK     200
                                        *         NON-COMMUTATIVE BOOLEANS ARE OCIKJ.                            RLINK     201
                                                                                                                 RLINK     202
           207                           CI=STR   BSS    0                                                       RLINK     203
           207                           CI=IMP   BSS    0                                                       RLINK     204
           207                           CI=EQV   BSS    0                                                       RLINK     205
           207  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
           210  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
           211  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
           212  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
           213  12572                             BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     222
                     0400000166 +                 EQ     EXIT.                                                   RLINK     223
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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
           224  20760                    SUB0     LX7    PB.GHIJP                                                RLINK     239
                     7233737777                   SX3    X3-IH.LCM                                               RLINK     240
                               20336              LX3    PB.TAGP                                                 RLINK     241
           225  12773                             BX7    X7+X3                                                   RLINK     242
                     20566                        LX5    -SI.RJP                                                 RLINK     243
                          15350                   BX3    -X0*X5                                                  RLINK     244
                               53336              SA3    B6+X3                                                   RLINK     245
           226  73330                             SX3    X3                                                      RLINK     246
                     20303                        LX3    3                                                       RLINK     247
                          20566                   LX5    SI.RJP-SI.RKP                                           RLINK     248
                               15250              BX2    -X0*X5                                                  RLINK     249
           227  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
           230  0400000166 +                      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
           234  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
           235  12773                             BX7    X7+X3       [PB] = OC[PB] + I[PB]                       RLINK     275
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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
           236  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
                          0400000166 +            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
           237                           CI=LDC   BSS    0                                                       RLINK     290
           237  6120000050                        SB2    OC.LD                                                   RLINK     291
                          43652                   MX6    -SI.CAL                                                 RLINK     292
           240  5110000000 X                      SA1    =XT.CUT                                                 RLINK     293
                          20536                   LX5    -SI.CAP                                                 RLINK     294
                               63710              SB7    X1                                                      RLINK     295
           241  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
           242  26734                             UX7    B3,X4       I = RTT( RI[PI] )                           RLINK     304
                     20763                        LX7    PB.IP                                                   RLINK     305
                          7113000005              SX1    B3+5        G[OC]                                       RLINK     306
           243  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
           244  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
           245  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
           246  0312000250 +                      NZ     X2,LD1      IF IHCA[PI] .NE. 0                          RLINK     319
                          20301                   LX3    1           RJ*2                                        RLINK     320
           247  6170000000                        SB7    0                                                       RLINK     321
                          0400000270 +            EQ     TIB2        PROCESS AS 15 BIT SRI RJ                    RLINK     322
                                                                                                                 RLINK     323
           250  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
           251  0306000253 +                      ZR     X6,LD2      IF IH[PI] .EQ. 0                            RLINK     328
                          0100000344 +            RJ     CFP         CHECK FORMAL PARAMETERS                     RLINK     329
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE    12
        INSTRUCTION PROCESSORS.                                       TYIII 
  
           252  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
           253  20552                    LD2      LX5    SI.IHP-SI.CAP                                           RLINK     334
                     43052                        MX0    -SI.CAL                                                 RLINK     335
                          15650                   BX6    -X0*X5      CA[PI]                                      RLINK     336
           254  0306000255 +                      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
           255  20536                    LD3      LX5    SI.CAP+59-SI.H2P                                        RLINK     340
                     0325000261 +                 PL     X5,LD4      IF H2[PI] .EQ. 0                            RLINK     341
                               10077              BX0    X7                                                      RLINK     342
           256  0100000000 X                      RJ     =XRNI       READ NEXT INSTRUCTION                       RLINK     343
           257  10700                             BX7    X0                                                      RLINK     344
                     73650                        SX6    X5          H2[PI]                                      RLINK     345
                          0100000344 +            RJ     CFP         CHECK FORMAL PARAMETERS                     RLINK     346
           260  73650                             SX6    X5          H2[PI]                                      RLINK     347
                                                  LX6    PB.H2P                                                  RLINK     348
                     12776                        BX7    X7+X6       [PB] = [PB] + H2[PB]                        RLINK     349
           261  10577                    LD4      BX5    X7                                                      RLINK     350
                     0400000166 +                 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
           262  6170000000                        SB7    0           FLAG A +BK                                  RLINK     359
                          0400000264 +            EQ     TIB                                                     RLINK     360
                                                                                                                 RLINK     361
                                                  ECHO   1,NAM=(SDL,SDS,SS)    (61,62,63)                        RLINK     362
                                         CI=NAM   BSS                                                            RLINK     363
           263  6170000001                        SB7    1           FLAG A -BK                                  RLINK     364
                                                                                                                 RLINK     365
           264  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
           265  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
           266  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
           267  12772                             BX7    X7+X2       [PB] = [PB] + J[PB]                         RLINK     377
                                                                                                                 RLINK     378
           270  73137                    TIB2     SX1    X3+B7                                                   RLINK     379
                     5231000046 +                 SA3    HTT+X1      GET H PART OF OPCODE                        RLINK     380
                               12773              BX7    X7+X3       [PB] = [PB] + H[PB]                         RLINK     381
           271  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/05. 20.00.30.      PAGE    13
        INSTRUCTION PROCESSORS.                                       TIB 
  
                          53326                   SA3    B6+X2                                                   RLINK     384
                               73230              SX2    X3                                                      RLINK     385
           272  20255                             LX2    PB.KP                                                   RLINK     386
                     12572                        BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     387
                          0400000166 +            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
           273                           CI=JPX   BSS                                                            RLINK     394
           273  73340                             SX3    X4          [PB] = RTT[RI]                              RLINK     395
                     20536                        LX5    -SI.CAP                                                 RLINK     396
                          7275000030              SX7    030B+X5     I = XJT( CA[PI] )                           RLINK     397
           274  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
           275                           CJP      BSS                                                            RLINK     405
           275  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
           276  0400000166 +                      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
           277                           CI=JPBB  BSS                                                            RLINK     416
           277  73740                             SX7    X4          I = RTT( RJ[PI] )                           RLINK     417
                     20763                        LX7    PB.IP                                                   RLINK     418
                          20536                   LX5    -SI.CAP                                                 RLINK     419
           300  5235000053 +                      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
           301  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
           302  20360                             LX3    PB.JP                                                   RLINK     427
                     12773                        BX7    X7+X3                                                   RLINK     428
                          20566                   LX5    SI.RJP-SI.IHP                                           RLINK     429
           303  0400000275 +                      EQ     CJP         ADD IN IH FIELD                             RLINK     430
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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
           304                           CI=JIN   BSS                                                            RLINK     436
           304  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
           305  20560                             LX5    -SI.IHP                                                 RLINK     441
                     12773                        BX7    X7+X3       [PB] = [PB] + BJR[PB]                       RLINK     442
                          0400000275 +            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
           306                           CI=RJ3   BSS                                                            RLINK     449
           306  7170000035                        SX7    I.RJ3                                                   RLINK     450
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     451
           307  0400000275 +                      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
           310                           CI=RJ6   BSS                                                            RLINK     458
           310  7170000036                        SX7    I.RJ6                                                   RLINK     459
                          20760                   LX7    PB.GHIJP    [PB] = OC[P]                                RLINK     460
                               20536              LX5    -SI.CAP                                                 RLINK     461
           311  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
           312  20536                             LX5    SI.CAP                                                  RLINK     466
                     73650                        SX6    X5          IH[PI]                                      RLINK     467
                          0100000344 +            RJ     CFP         CHECK FOR FORMAL PARAMETER                  RLINK     468
           313  73650                             SX6    X5          IH[PI]                                      RLINK     469
                     20636                        LX6    PB.TAGP                                                 RLINK     470
                          12576                   BX5    X7+X6       [PB] = [PB] + IH[PB]                        RLINK     471
           314  0400000166 +                      EQ     EXIT.                                                   RLINK     472
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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
           315                           CI=UJP   BSS                                                            RLINK     478
           315  7170000041                        SX7    I.UJP                                                   RLINK     479
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     480
           316  0400000275 +                      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
           317                           CI=LAB   BSS                                                            RLINK     487
           317  7170000024                        SX7    I.BSS                                                   RLINK     488
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     489
           320  0400000275 +                      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
           321  0400400321 +             CLR      ILL                                                            RLINK     500
           322  0400400322 +             DAR      ILL                                                            RLINK     501
           323  0400400323 +             DEF      ILL                                                            RLINK     502
           324  0400400324 +             ENT      ILL                                                            RLINK     503
           325  0400400325 +             EOQ      ILL                                                            RLINK     504
           326  0400400326 +             EOS      ILL                                                            RLINK     505
           327  0400400327 +             LDV      ILL                                                            RLINK     506
           330  0400400330 +             RJXJ     ILL                                                            RLINK     507
           331  0400400331 +             RS       ILL                                                            RLINK     508
           332  0400400332 +             SXT      ILL                                                            RLINK     509
                                                                                                                 RLINK     510
           333                                    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
           333  0400400333 +             BCT      SUBR   =                                                       RLINK     518
           334  43600                             MX6    0                                                       RLINK     519
                     5110000000 X                 ADDWD  T.CUT                                                   RLINK     520
           336  5130000000 X                      SA3    =XT.CON                                                 RLINK     521
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE    16
        INSTRUCTION PROCESSORS.                                       BCT 
  
                          66200                   SB2    B0          I = 0                                       RLINK     522
                               63320              SB3    X2          N = L.CUT                                   RLINK     523
           337  63430                             SB4    X3                        (B4) = CON                    RLINK     524
                     63510                        SB5    X1                        (B5) = CUT                    RLINK     525
                          7170000000              SX7    0           J = 0                                       RLINK     526
                                                                                                                 RLINK     527
           340  56552                    BCT1     SA5    B5+B2                                                   RLINK     528
                     0305000342 +                 ZR     X5,BCT2     IF CUT(I) = 0 */ CON NOT REFERENCED         RLINK     529
                                                                                                                 RLINK     530
                               54750              SA7    A5          CUT(I) = J    */ SET ORDINAL                RLINK     531
           341  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
           342  66221                    BCT2     SB2    B2+B1       I = I + 1                                   RLINK     537
                     0723000340 +                 LT     B2,B3,BCT1  IF I < N                                    RLINK     538
           343  5170000000 X                      SA7    =XT=CON                                                 RLINK     539
                          0400000333 +            EQ     EXIT.                                                   RLINK     540
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      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
           344  0400400344 +             CFP      SUBR               ...ENTRY/EXIT...                            RLINK     554
           345  10366                             BX3    X6                                                      RLINK     555
                     21317                        AX3    IH.IP                                                   RLINK     556
                          0313000344 +            NZ     X3,EXIT.    IF NOT SYMBOL TABLE SYMBOL                  RLINK     557
           346  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
           347  5120000000 X                      SA2    =XT.SYM                                                 RLINK     562
                          6122000001              SB2    B2+WB.W                                                 RLINK     563
           350  53222                             SA2    X2+B2       WB OF SYMTAB                                RLINK     564
                     20253                        HX2    WB.FP                                                   RLINK     565
                          0322000344 +            PL     X2,EXIT.    IF NOT F.P., EXIT...                        RLINK     566
           351  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
           352  5160000014 +                      SA6    LSR         FLAG F.P.                                   RLINK     573
                          0400000344 +            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
           353  0400400353 +             SMB      SUBR   =           ENTRY/EXIT.                                 RLINK     580
           354  5140000000 X                      SA4    T=NLST                                                  FC51315    10
                          0304000353 +            ZR     X4,SMB      IF NO NAMELIST ENTRIES                      FC51315    11
           355  66210                             SB2    B1                                                      FC51315    12
                     66300                        SB3    B0                                                      FC51315    13
                                                                                                                 FC51315    14
           356  0100000000 X             SMB3     CALL   SNR         SET NAMELIST REGISTERS                      FC51315    15
           357  5140000433 +                      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
           360  0314000365 +                      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/05. 20.00.30.      PAGE    18
        POST SUPPORT ROUTINES.                                        SMB 
  
           361  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
           362  6254000001                        SB5    X4+WB.W                                                 FC51315    28
                          63635                   SB6    X3+B5                                                   FC51315    29
                               22413              LX4    X3,B1                                                   FC51315    30
           363  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
           364  54610                             SA6    A1                                                      FC51315    34
                                                                                                                 FC51315    35
           365  0702000356 +             SMB4     GT     B2,SMB3     IF MORE MEMBERS                             FC51315    36
                          0730000353 +            LT     B3,SMB      IF NO MORE GROUPS                           FC51315    37
           366  66210                             SB2    B1                                                      FC51315    38
                     0400000356 +                 EQ     SMB3        CHECK MEMBERS OF NEXT GROUP                 FC51315    39
           367  0400000353 +                      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
           370  0400400370 +             PAT      SUBR   =           ENTRY/EXIT.                                 RLINK     591
           371  5116000000 X                      SA1    =XT.APL+B6                                              RLINK     592
                          5126000000 X            SA2    =XT=APL+B6                                              RLINK     593
           372  5130000000 X                      SA3    =XAPCON                                                 RLINK     594
                          0303000370 +            ZR     X3,EXIT.    IF NO CONSTANTS IN AP-LISTS                 RLINK     595
           373  5150000000 X                      SA5    =XS=CON                                                 RLINK     596
                          5140000000 X            SA4    =XT.CUT                                                 RLINK     597
           374  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
           375  63220                             SB2    X2                                                      RLINK     603
                     5221777776                   SA2    X1-1                                                    RLINK     604
           376  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
           377  0420000370 +             PAT10    ZR     B2,EXIT.    IF END OF TABLE                             RLINK     615
                          54221                   SA2    A2+B1                                                   RLINK     616
                               11412              BX4    X1*X2                                                   RLINK     617
           400  67223                             SB2    B2-B3                                                   RLINK     618
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE    19
        POST SUPPORT ROUTINES.                                        PAT 
  
                     20222                        LX2    -IA.TAGP                                                RLINK     619
                          15620                   BX6    -X0*X2      TAGI = TAG[AP2]                             RLINK     620
           401  0314000405 +                      NZ     X4,PAT20    IF CHARACTER                                RLINK     621
                          37756                   IX7    X5-X6                                                   RLINK     622
                               20230              LX2    IA.TAGP-IA.BIASP                                        RLINK     623
           402  0317000405 +                      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
           403  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
           404  54720                             SA7    A2                                                      RLINK     631
                                                                                                                 RLINK     632
           405  0561000377 +             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
           406  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
           407  11732                             BX7    X3*X2       CLEAR BIAS FIELD                            RLINK     644
                     0316000377 +                 NZ     X6,PAT10    IF TAGI .NE. (S=CON)                        RLINK     645
                               53445              SA4    X4+B5       CUI = T.CUT(BIASI)                          RLINK     646
           410  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
           411  0400000377 +                      EQ     PAT10                                                   RLINK     651
  
  
  
  
                                        **        PCA - PROCESS CONSTANT REFERENCES IN T.CAC.                    RLINK     653
                                                                                                                 RLINK     654
           412  0400400412 +             PCA      SUBR   =                                                       RLINK     655
           413  5110000000 X                      SA1    =XAPCON                                                 RLINK     656
                          5120000000 X            SA2    =XT=CAC                                                 RLINK     657
           414  0301000412 +                      ZR     X1,EXIT.    IF NO CONSTANTS IN APLISTS                  RLINK     658
                          5130000000 X            SA3    =XT.CAC                                                 RLINK     659
           415  0302000412 +                      ZR     X2,EXIT.    IF NO T.CAC                                 RLINK     660
                          5140000000 X            SA4    =XT.CUT                                                 RLINK     661
           416  6262777776                        SB6    X2-1                                                    RLINK     662
                          63340                   SB3    X4                                                      RLINK     663
                                                                                                                 RLINK     664
           417  53136                    PCA10    SA1    X3+B6                                                   RLINK     665
                     0760000412 +                 MI     B6,EXIT.    IF TOP OF TABLE                             RLINK     666
                               67661              SB6    B6-B1                                                   RLINK     667
           420  20113                             LX1    59-WC.RBP                                               RLINK     668
                     0321000417 +                 PL     X1,PCA10    IF RB NE 1  */ NOT CON.                     RLINK     669
                               20161              LX1    1+WC.RBP-WC.RAP                                         RLINK     670
           421  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/05. 20.00.30.      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
           422  54710                             SA7    A1                                                      RLINK     677
                     0400000417 +                 EQ     PCA10                                                   RLINK     678
           422                           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
           423  0400400423 +             SCS      SUBR   =           ...ENTRY/EXIT...                            COMFSCS    20
           424  5021000000 X                      SA2    A1+=XN.TABLE                                            COMFSCS    21
                          5130000432 +            SA3    SCSA                                                    COMFSCS    22
           425  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
           426  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
           427  0310000426 +                      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
           430  0770000423 +                      MI     B7,SCSX     IF DUMMY HIT - EXIT...                      COMFSCS    38
                          11632                   BX6    X3*X2       MASK OFF                                    COMFSCS    39
           431  0400000423 +                      EQ     SCSX        EXIT...                                     COMFSCS    40
                                                                                                                 COMFSCS    41
           432  00000000000000000000     SCSA     CONENT 0           MASK TO BE USED                             COMFSCS    42
                                                  ENDX                                                           COMFSCS    43
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE    21
        POST SUPPORT ROUTINES.                                        RLINK 
  
                                                  LIST   D                                                       RLINK     681
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        SNR 
  
                                        CONTENT OF LITERALS BLOCK.
  
           433  00000000010000001240        A   J5
  
           434                                    END                                                            RLINK     682
  
                             70100B CM  STORAGE USED             1752 STATEMENTS     1798 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.699 SECONDS         486 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       1/40 X   15/56
        APCON           0   EXTERNAL*       1/43 X   18/33     19/41
        BCT           333   PROGRAM*       15/54 L   15/54 E
        BCT1          340   PROGRAM*       16/07 L   16/17
        BCT2          342   PROGRAM*       16/08     16/16 L
        BJT            53   PROGRAM*        3/09 L   13/43
        BLL             1   PROGRAM*        2/07 L    2/07 E
        B1=1            0 
        CFP           344   PROGRAM*       11/57     12/17     14/43     17/12 L
        CGE             5   PROGRAM*        2/29 L    2/29 E
        CGE1           11   PROGRAM*        2/34      2/37 L
        CHARMAP         1   PROGRAM*        2/08 L    2/08 E
        CII           166   PROGRAM*        7/09 L    7/09 E
        CI=AND        176   PROGRAM*        5/37      8/33 L
        CI=BOS        173   PROGRAM*        5/28      8/11 L
        CI=CLR        321   PROGRAM*        6/44     15/33 L
        CI=CX         176   PROGRAM*        6/10      8/36 L
        CI=DAR        322   PROGRAM*        5/30     15/34 L
        CI=DEF        323   PROGRAM*        5/32     15/35 L
        CI=DFA        176   PROGRAM*        5/54      8/35 L
        CI=DFM        176   PROGRAM*        6/05      8/35 L
        CI=DFS        176   PROGRAM*        5/55      8/35 L
        CI=DRL        214   PROGRAM*        6/24     10/13 L
        CI=DWL        220   PROGRAM*        6/25     10/13 L
        CI=ENT        324   PROGRAM*        5/34     15/36 L
        CI=EOQ        325   PROGRAM*        5/27     15/37 L
        CI=EOS        326   PROGRAM*        5/29     15/38 L
        CI=EQV        207   PROGRAM*        5/43      9/28 L
        CI=FA         176   PROGRAM*        5/52      8/34 L
        CI=FD         176   PROGRAM*        6/07      8/36 L
        CI=FM         176   PROGRAM*        6/03      8/35 L
        CI=FMA        234   PROGRAM*        6/06     10/52 L
        CI=FS         176   PROGRAM*        5/53      8/35 L
        CI=IA         176   PROGRAM*        6/01      8/35 L
        CI=IAZ        231   PROGRAM*        6/39     10/42 L
        CI=ILD        242   PROGRAM*        6/36     11/30 L
        CI=ILS        176   PROGRAM*        5/46      8/34 L
        CI=IM         233   PROGRAM*        6/41     10/42 L
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/05. 20.00.30.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        CI=IMP        207   PROGRAM*        5/42      9/27 L
        CI=IRS        176   PROGRAM*        5/47      8/34 L
        CI=IS         176   PROGRAM*        6/02      8/35 L
        CI=ISZ        232   PROGRAM*        6/40     10/42 L
        CI=JIN        304   PROGRAM*        6/31     14/05 L
        CI=JPBB       277   PROGRAM*        6/29     13/39 L
        CI=JPX        273   PROGRAM*        6/28     13/14 L
        CI=KLS        234   PROGRAM*        5/44     10/52 L
        CI=KRS        234   PROGRAM*        5/45     10/52 L
        CI=LAB        317   PROGRAM*        5/33     15/17 L
        CI=LD         242   PROGRAM*        6/12     11/30 L
        CI=LDC        237   PROGRAM*        6/42     11/18 L
        CI=LDV        327   PROGRAM*        6/43     15/39 L
        CI=NOP        172   PROGRAM*        6/09      8/03 L
        CI=NR         176   PROGRAM*        5/48      8/34 L
        CI=OR         176   PROGRAM*        5/38      8/33 L
        CI=PK         176   PROGRAM*        5/51      8/34 L
        CI=PLD        242   PROGRAM*        6/15     11/30 L
        CI=PST        242   PROGRAM*        6/16     11/30 L
        CI=RFA        176   PROGRAM*        5/56      8/35 L
        CI=RFD        176   PROGRAM*        6/08      8/36 L
        CI=RFM        176   PROGRAM*        6/04      8/35 L
        CI=RFS        176   PROGRAM*        5/57      8/35 L
        CI=RJXJ       330   PROGRAM*        6/27     15/40 L
        CI=RJ3        306   PROGRAM*        6/32     14/21 L
        CI=RJ6        310   PROGRAM*        6/33     14/33 L
        CI=RNZ        176   PROGRAM*        5/49      8/34 L
        CI=RS         331   PROGRAM*        5/31     15/41 L
        CI=S          242   PROGRAM*        6/17     11/30 L
        CI=SA         262   PROGRAM*        6/20     12/32 L
        CI=SDL        263   PROGRAM*        6/21     12/37 L
        CI=SDS        263   PROGRAM*        6/22     12/37 L
        CI=SLD        262   PROGRAM*        6/18     12/32 L
        CI=SS         263   PROGRAM*        6/23     12/37 L
        CI=SST        262   PROGRAM*        6/19     12/32 L
        CI=ST         242   PROGRAM*        6/13     11/30 L
        CI=STR        207   PROGRAM*        5/41      9/26 L
        CI=STT        242   PROGRAM*        6/14     11/30 L
        CI=SXT        332   PROGRAM*        6/45     15/42 L
        CI=TLD        242   PROGRAM*        6/37     11/30 L
        CI=TST        242   PROGRAM*        6/38     11/30 L
        CI=UJP        315   PROGRAM*        6/34     15/05 L
        CI=UP         176   PROGRAM*        5/50      8/34 L
        CI=XMT        203   PROGRAM*        5/36      9/03 L
        CI=XMTC       203   PROGRAM*        5/40      9/04 L
        CI=XOR        176   PROGRAM*        5/39      8/33 L
        CJP           275   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            46   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/05. 20.00.30.      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           250   PROGRAM*       11/47     11/52 L
        LD2           253   PROGRAM*       11/56     12/05 L
        LD3           255   PROGRAM*       12/08     12/11 L
        LD4           261   PROGRAM*       12/12     12/21 L
        LEXFLG          1   PROGRAM*        2/10 L    2/10 E
        LSR            14   PROGRAM*        2/45 L    2/45 E   17/31 S
        N.ALTEN        15   PROGRAM*        2/46 L    2/46 E
        N.TABLE         0   EXTERNAL*       1/52 X   20/26
        OC.LD          50   CTX            11/19
        OPJP           57   PROGRAM*        3/29 L    7/23
        PAT           370   PROGRAM*       18/30 L   18/30 E
        PAT10         377   PROGRAM*       18/54 L   19/15     19/27     19/33
        PAT20         405   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           412   PROGRAM*       19/40 L   19/40 E
        PCA10         417   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            16   PROGRAM*        2/51 L    7/19      7/22
        SCS           423   PROGRAM*       20/25 L   20/25 E
        SCSA          432   PROGRAM*       20/27     20/47 L   20/47 E
        SCS1          426   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/05. 20.00.30.      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           353   PROGRAM*       17/43 L   17/43 E   17/45     18/14
        SMB3          356   PROGRAM*       17/49 L   18/13     18/16
        SMB4          365   PROGRAM*       17/53     18/13 L
        SNR             0   EXTERNAL*      17/49
        STAGE           0   PROGRAM*        2/05 L    2/05 E
        SUB0          224   PROGRAM*       10/13     10/13     10/15 L
        S=CON           0   EXTERNAL*       1/52 X   18/35
        TEST            1   FTX             2/15 F
        TIB           264   PROGRAM*       12/34     12/40 L
        TIB2          270   PROGRAM*       11/50     12/53 L
        TYI           176   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    2/16
        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/05. 20.00.30.      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       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      203              IDENT  RSNAP
                        203              ENDSNAP  END                MARK END OF SNAP DECK
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       175 
                                        LITERALS* LOCAL         175         6 
  
  
                                        ENTRY POINTS. 
  
                                        B=RSNAP          0+           UKT=RE           2+ 
                                        FI=BRLI          1+           DMT=            37+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DCM=      IDP=FRK   IDP=SFN   IDP=ZTB   SVR=      T=SYM     IDP=FLL   IDP=MCS 
                                        FW=IDPL   IDP=HDR   IDP=SKT   ROL=      NAMES     T.SYM     IDP=PAT   IDP=SYS 
                                        IDPFLG    IDP=MN    IDP=SOB   RSR=      N.TABLE   IDP=CAD   IDP=CDD 
                                        IDP=COD   IDP=PAS   IDP=WOD   SNAPLNE   ORIGINS   IDP=CHK   IDP=DXB 
  
  
  
  
                                        **IF DEF,TEST                                                            FC5A388    14
                                                  IDENT  RSNAP                                                   RSNAP       2
                                         RSNAP    SECT   (REAR-END TEST MODE SNAP PACKAGE.)                      RSNAP       3
  
  
  
  
  
                                        ***              RSNAP PROVIDES SNAPSHOT AND DEBUGGING ROUTINES SPECIFIC RSNAP       5
                                        *         TO PASS THREE.                                                 RSNAP       6
                                                                                                                 RSNAP       7
                                                                                                                 RSNAP       8
                                         #SNAP    IFEQ   TEST,ON                                                 RSNAP       9
                                                                                                                 RSNAP      10
                                                                                                                 RSNAP      11
                                        *         IN IDP                                                         RSNAP      12
                                                  EXT    DCM=,FW=IDPL,IDPFLG,IDP=COD,IDP=FRK,IDP=HDR,IDP=MN      RSNAP      13
                                                  EXT    IDP=PAS,IDP=SFN,IDP=SKT,IDP=SOB,IDP=WOD,IDP=ZTB,ROL=    RSNAP      14
                                                  EXT    RSR=,SNAPLNE,SVR=                                       RSNAP      15
                                                                                                                 RSNAP      16
                                        *         IN PUC                                                         RSNAP      17
                                                  EXT    NAMES,N.TABLE,ORIGINS,T=SYM,T.SYM                       RSNAP      18
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     2
                                                                      IDP 
  
                                        ***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.                         RSNAP      20
                                        *                                                                        RSNAP      21
                                        *                                                                        RSNAP      22
                                                                                                                 RSNAP      23
                                                                                                                 RSNAP      24
                                         CAD      EQUEXT IDP=CAD                                                 RSNAP      25
                                         CHK      EQUEXT IDP=CHK                                                 RSNAP      26
                                         FLL      EQUEXT IDP=FLL                                                 RSNAP      27
                                         FRK      EQUEXT IDP=FRK                                                 RSNAP      28
                                         HDR      EQUEXT IDP=HDR                                                 RSNAP      29
                                         PAS      EQUEXT IDP=PAS                                                 RSNAP      30
                                         PAT      EQUEXT IDP=PAT                                                 RSNAP      31
                                         SKT      EQUEXT IDP=SKT                                                 RSNAP      32
                                         SOB      EQUEXT IDP=SOB                                                 RSNAP      33
                                                                                                                 RSNAP      34
                                                                                                                 RSNAP      35
                                         CDD      EQUEXT IDP=CDD                                                 RSNAP      36
                                         COD      EQUEXT IDP=COD                                                 RSNAP      37
                                         DXB      EQUEXT IDP=DXB                                                 RSNAP      38
                                         MCS      EQUEXT IDP=MCS                                                 RSNAP      39
                                         SFN      EQUEXT IDP=SFN                                                 RSNAP      40
                                         SYS=     EQUEXT IDP=SYS                                                 RSNAP      41
                                         WOD      EQUEXT IDP=WOD                                                 RSNAP      42
                                         ZTB      EQUEXT IDP=ZTB                                                 RSNAP      43
  
  
  
  
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              RSNAP      45
                                        *                                                                        RSNAP      46
                                        *                                                                        RSNAP      47
                                                                                                                 RSNAP      48
                                                                                                                 RSNAP      49
                                   5     SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER    RSNAP      50
                                                                                                                 RSNAP      51
                                                                                                                 RSNAP      52
             0                     1     IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                          RSNAP      53
  
  
  
  
                                        **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                    RSNAP      55
                                                                                                                 RSNAP      56
                                                  PURGMAC PRBDO                                                  RSNAP      57
                                                                                                                 RSNAP      58
                                         PRBDO    OPSYN  PLINE                                                   RSNAP      59
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     3
                                                                      TEXTS 
  
                                        ***       TEXTS - INTERFACE TEXTS.                                       RSNAP      61
                                        *                                                                        RSNAP      62
                                                                                                                 RSNAP      63
                                                                                                                 RSNAP      64
                                                  QUAL   IDP                                                     RSNAP      65
                                   1     QUAL$    =      1           DESELECT QUALS IN /IDP/                     RSNAP      66
                                                  LIST   -L          *COMSIDP* IS LISTED IN DECK *IDP*           RSNAP      67
                                                  LIST   *                                                       RSNAP      69
                                                  QUAL   *                                                       RSNAP      70
  
  
  
  
                                        ***       DATA STRUCTURES.                                               RSNAP      72
                                        *                                                                        RSNAP      73
                                        *                                                                        RSNAP      74
                                        *         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE        RSNAP      75
                                        *         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE           RSNAP      76
                                        *         ROUTINES IN *RSNAP*.                                           RSNAP      77
  
  
  
  
                                        **        FI= - FTN/IDP CELLS.                                           RSNAP      79
                                        *                                                                        RSNAP      80
                                        *         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED           RSNAP      81
                                        *         FOR FTN/IDP COMMUNICATION.                                     RSNAP      82
  
  
  
  
                                        **        FI=BRLI - *BRLINE NR* CELL.                                    RSNAP      84
                                        *                                                                        RSNAP      85
                                        *         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED         RSNAP      86
                                        *         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS        RSNAP      87
                                        *         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS          RSNAP      88
                                        *         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN          RSNAP      89
                                        *         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END           RSNAP      90
                                        *         MASTER LOOP.                                                   RSNAP      91
                                                                                                                 RSNAP      92
                                                                                                                 RSNAP      93
             1  77777777777777777776     FI=BRLI  CONENT -1                                                      RSNAP      94
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     4
        FTN5 SNAPPING ROUTINES.                                       ST= 
  
                                        ***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.       RSNAP      97
                                        *                                                                        RSNAP      98
                                        *                                                                        RSNAP      99
                                        *         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC      RSNAP     100
                                        *         STMT PROCESSORS FOR IDP COMMANDS.                              RSNAP     101
  
  
  
  
                                        **        UKT=RE - USER IDP KEYWORD TABLE FOR *REAR-END*.                RSNAP     103
                                                                                                                 RSNAP     104
                                                                                                                 RSNAP     105
             2                           UKT=RE   BSSENT 0           ** FWA OF KEYWORD TABLE **                  RSNAP     106
                                                  QUAL   IDP                                                     RSNAP     107
             2                           BRL      KEYW   (BRLINE NR)                                             RSNAP     108
             4                           DMT      KEYW   (DUMPT FWA,LWA,LEN)                                     RSNAP     109
                                                  QUAL   *                                                       RSNAP     110
             6  00000000000000000000              DATA   0           ** END OF TABLE MARK **                     RSNAP     111
             7  00000000000000000000     UKT=LNK  DATA   0           ** LINK WORD **                             RSNAP     112
  
  
  
  
                                        **        ST=BRL - HERE TO PROCESS *BRLINE NR*.                          RSNAP     114
                                                                                                                 RSNAP     115
                                                                                                                 RSNAP     116
            10                           ST=BRL   BSS    0           ** ENTRY **                                 RSNAP     117
            10  0100000000 X                      RJ     PAS         PARSE SUBEXPRESSION                         RSNAP     118
            11  5160000001 +                      SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT         RSNAP     119
                          0400000000 X            EQ     IDP=MN                                                  RSNAP     120
  
  
  
  
                                        *         COMMON DECKS.                                                  RSNAP     122
                                                                                                                 RSNAP     123
                                                                                                                 RSNAP     124
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     5
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.
  
            12                                    CTEXT  COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                  COMDDMT     2
                                                                                                                 COMDDMT     3
                                                                                                                 COMDDMT     4
                                                  IF     -DEF,QUAL$,1                                            COMDDMT     5
                                                  QUAL   COMDDMT                                                 COMDDMT     6
                                 D_D              BASE   D                                                       COMDDMT     7
  
  
  
  
                                        **        DAT - DUMP A TABLE.                                            COMDDMT     9
                                        *                                                                        COMDDMT    10
                                        *                                                                        COMDDMT    11
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN (TT.) WORD        COMDDMT    12
                                        *                (X2) = 42/7LNAME,18/ORDINAL OF TABLE                    COMDDMT    13
                                        *                                                                        COMDDMT    14
                                        *         EXIT   NONE                                                    COMDDMT    15
                                        *                                                                        COMDDMT    16
                                        *         USES   ALL                                                     COMDDMT    17
                                        *                                                                        COMDDMT    18
                                        *         CALLS  COD,DCM,PRIDP                                           COMDDMT    19
                                                                                                                 COMDDMT    20
                                                                                                                 COMDDMT    21
            12  0100000057 +             DAT8     RJ     DSY         DUMP SYMBOL TABLE                           COMDDMT    22
                                                                                                                 COMDDMT    23
            13  0400400013 +             DAT      SUBR               ** ENTRY/EXIT **                            COMDDMT    24
            14  5130000200 +                      SA3    =3R                                                     COMDDMT    25
                          43452                   MX4    42                                                      COMDDMT    26
                               11542              BX5    X4*X2       REMOVE ORDINAL                              COMDDMT    27
            15  12653                             BX6    X5+X3       ADD BLANKS                                  COMDDMT    28
                     5160000035 +                 SA6    DATB+2      TABLE NAME 10H FMT                          COMDDMT    29
            16  6051000000                        SB5    A1+         (B5) = ADDR OF TABLE ORIGIN WORD            COMDDMT    30
                          5011000000 X            SA1    A1+N.TABLE  (X1) = LEN OF TABLE                         COMDDMT    31
            17  5120000033 +                      SA2    DATB                                                    COMDDMT    32
                          54321                   SA3    A2+B1                                                   COMDDMT    33
                               10622              BX6    X2                                                      COMDDMT    34
            20  54431                             SA4    A3+B1                                                   COMDDMT    35
                     5160000000 X                 SA6    SNAPLNE                                                 COMDDMT    36
                               22703              LX7    X3                                                      COMDDMT    37
            21  54761                             SA7    A6+B1                                                   COMDDMT    38
                     54541                        SA5    A4+B1                                                   COMDDMT    39
                          10644                   BX6    X4                                                      COMDDMT    40
                               22705              LX7    X5                                                      COMDDMT    41
            22  54671                             SA6    A7+B1                                                   COMDDMT    42
                     54761                        SA7    A6+B1                                                   COMDDMT    43
                          0100000000 X            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (TBL LEN)       COMDDMT    44
            23  54671                             SA6    A7+B1                                                   COMDDMT    45
                     43700                        MX7    0                                                       COMDDMT    46
                          54761                   SA7    A6+B1       MARK EOL                                    COMDDMT    47
                               66450              SB4    B5          (B4) = ADDR OF TABLE ORIGIN WORD            COMDDMT    48
            24  7160000000 X                      PRIDP  SNAPLNE,,1                                              COMDDMT    49
            26  5110000201 +                      SA1    =10HSYM                                                 COMDDMT    50
                          5120000035 +            SA2    DATB+2      TABLE NAME                                  COMDDMT    51
            27  37612                             IX6    X1-X2                                                   COMDDMT    52
                     0306000012 +                 ZR     X6,DAT8     IF SYMBOL TABLE TO BE DUMPED                COMDDMT    53
                               56240              SA2    B4          (X2) = ORIGIN (FWA) OF TABLE                COMDDMT    54
            30  43300                             MX3    0           (X3) = LWA (NULL)                           COMDDMT    55
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     6
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DAT                 COMDDMT 
  
                     5144000000 X                 SA4    B4+N.TABLE  (X4) = LENGTH OF TABLE                      COMDDMT    56
            31  0304000013 +                      ZR     X4,EXIT.    IF TABLE EMPTY -- AVOID DUMP                COMDDMT    57
                          0100000000 X            CALL   DCM=        DUMP CENTRAL MEMORY                         COMDDMT    58
            32  0400000013 +                      EQ     EXIT.                                                   COMDDMT    59
                                                                                                                 COMDDMT    60
                                                                                                                 COMDDMT    61
            33  55555555555504251520     DATB     DIS    2,      DUMP OF TABLE                                   COMDDMT    62
            35  00000000000000000000              DATA   0           NAME OF TABLE 10H FMT                       COMDDMT    63
            36  55140516072410555455              DATA   10H LENGTH =                                            COMDDMT    64
                                        *         DATA   10H NNNNNNB                                             COMDDMT    65
  
  
  
  
                                        **        DMT - DUMP TABLES.                                             COMDDMT    67
                                        *                                                                        COMDDMT    68
                                        *                                                                        COMDDMT    69
                                        *                CALLED BY *DUMPT* MACRO.                                COMDDMT    70
                                        *                                                                        COMDDMT    71
                                        *         ENTRY  LOWER HALF OF *RJ DMT=* WORD HAS FWA OF PARAMETER LIST- COMDDMT    72
                                        * +       RJ     DMT=                                                    COMDDMT    73
                                        * -       VFD    30/FWA OF PARAMETER LIST                                COMDDMT    74
                                        *                                                                        COMDDMT    75
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP    COMDDMT    76
                                        *         BY *DUMPT* MACRO.  (SEE *TSTEXT*) --                           COMDDMT    77
                                        *                                                                        COMDDMT    78
                                        *         VFD    60/LOWER LIMIT (LL)                                     COMDDMT    79
                                        *         VFD    60/UPPER LIMIT (UL)                                     COMDDMT    80
                                        *         VFD    60/INCREMENT (INC)                                      COMDDMT    81
                                        *         VFD    60/10HSNAP NAME   (OR .ZR. IF NO NAME)                  COMDDMT    82
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          COMDDMT    83
                                        *         VFD    42/7LTN1,18/0                                           COMDDMT    84
                                        *                 .                                                      COMDDMT    85
                                        *                 .                                                      COMDDMT    86
                                        *         VFD    42/7LTNN,18/0                                           COMDDMT    87
                                        *         VFD    60/0        END OF TABLE MARK                           COMDDMT    88
                                        *                                                                        COMDDMT    89
                                        *                WHERE TN1,...,TNN ARE THE NAMES OF TABLES IN THE        COMDDMT    90
                                        *                NAMES TABLE (SEE *TABLES* MACRO IN *TABLES*).           COMDDMT    91
                                        *                                                                        COMDDMT    92
                                        *         EXIT   NONE                                                    COMDDMT    93
                                        *                                                                        COMDDMT    94
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      COMDDMT    95
                                        *                                                                        COMDDMT    96
                                        *         CALLS  DAT,FRK,HDR,RSR=,SOB,SVR=                               COMDDMT    97
                                                                                                                 COMDDMT    98
                                                                                                                 COMDDMT    99
            37  0400400037 +             DMT=     SUBR   =           ** ENTRY/EXIT **                            COMDDMT   100
            40  0100000000 X                      RJ     SVR=        SAVE ALL REGISTERS                          COMDDMT   101
            41  7110000003                        SX1    3           SET TO *EXECUTIVE IS /DMT=/*                COMDDMT   102
                          0100000000 X            RJ     SOB         SET OUTPUT BIT FLAGS                        COMDDMT   103
            42  5140000037 +                      SA4    DMT=                                                    COMDDMT   104
                          20436                   LX4    30                                                      COMDDMT   105
            43  5254777776                        SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       COMDDMT   106
                          73650                   SX6    X5          (X6) = FWA OF PARAMETER LIST                COMDDMT   107
            44  5160000000 X                      SA6    FW=IDPL                                                 COMDDMT   108
                          0100000000 X            RJ     FRK         CHECK FREQUENCY PARAMETERS                  COMDDMT   109
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     7
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DMT                 COMDDMT 
  
            45  0305000055 +                      ZR     X5,DMT3     IF NO DUMP THIS TIME                        COMDDMT   110
                          0100000000 X            RJ     HDR         OUTPUT HEADING                              COMDDMT   111
            46  7225000004                        SX2    X5+SN=DMT-1 (X2+1) = ADDR OF 1ST TABLE PARAMETER WORD   COMDDMT   112
                                                                                                                 COMDDMT   113
                                        **        PICK UP NEXT *DUMPT* PARAMETER LIST ENTRY.                     COMDDMT   114
                                                                                                                 COMDDMT   115
            47  73621                    DMT2     SX6    X2+B1                                                   COMDDMT   116
                     53160                        SA1    X6          (X1) = 42/7LTABLENAME,18/0                  COMDDMT   117
                          5160000000 X            SA6    FW=IDPL     RESET START OF PARAMETER LIST               COMDDMT   118
            50  0301000055 +                      ZR     X1,DMT3     IF NO MORE TABLES TO DUMP                   COMDDMT   119
                                                                                                                 COMDDMT   120
                          43052                   MX0    42                                                      COMDDMT   121
            51  6160000000 X                      SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS              COMDDMT   122
                          0100000000 X            CALL   SKT         SEARCH TABLE FOR MATCH                      COMDDMT   123
            52  0302400052 +                      ZR     X2,"BLOWUP" IF UNKNOW TABLE ON DUMPT MACRO              COMDDMT   124
                                                                                                                 COMDDMT   125
                          5212000000 X            SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  COMDDMT   126
            53  0100000013 +                      RJ     DAT         DUMP A TABLE                                COMDDMT   127
            54  5120000000 X                      SA2    FW=IDPL     ADDRESS OF NEXT PARAMETER                   COMDDMT   128
                          0400000047 +            EQ     DMT2        LOOP FOR NEXT...                            COMDDMT   129
                                                                                                                 COMDDMT   130
            55  0100000000 X             DMT3     RJ     RSR=        RESTORE ALL REGISTERS                       COMDDMT   131
            56  0400000037 +                      EQ     EXIT.                                                   COMDDMT   132
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     8
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DSY                 COMDDMT 
  
                                        **        DSY - DUMP SYMBOL TABLE.                                       COMDDMT   134
                                                                                                                 COMDDMT   135
                                                                                                                 COMDDMT   136
            57  0400400057 +             DSY      SUBR                                                           COMDDMT   137
            60  5110000000 X                      SA1    IDPFLG                                                  COMDDMT   138
                          43073                   MX0    -1                                                      COMDDMT   139
                               20101              LX1    -/IDP/IDF.IDOP                                          COMDDMT   140
            61  15210                             BX2    -X0*X1      (X2) = 1 IF WRITING INTERACTIVELY           COMDDMT   141
                     7262000000 X                 SX6    X2+SNAPLNE                                              COMDDMT   142
            62  6262000150 +                      SB6    X2+DSYB     SKIP 10 COLUMNS IF INTERACTIVE              COMDDMT   143
                          5160000162 +            SA6    DSYC                                                    COMDDMT   144
            63  6120000162 +                      SB2    DSYB+DSYBL  (B2) = LWA+1 OF HEADER                      COMDDMT   145
                          76660                   PRIDP  B6,B2-B6    LIST HEADING                                COMDDMT   146
            65  66500                             SB5    B0          (B5) = SYMTAB ENTRY ORDINAL                 COMDDMT   147
                     13555                        BX5    0           (X5) = SYMTAB WORD INDEX                    COMDDMT   148
            66  6160000000 X             DSY2     SB6    SNAPLNE                                                 COMDDMT   149
                          73150                   SX1    X5                                                      COMDDMT   150
            67  0100000000 X                      RJ     COD         CONVERT WORD INDEX                          COMDDMT   151
            70  7120000010                        SX2    1R+&1R                                                  COMDDMT   152
                          22222                   LX2    B2                                                      COMDDMT   153
                               13662              BX6    X6-X2                                                   COMDDMT   154
            71  20622                             LX6    3*6         -+12345---                                  COMDDMT   155
                     56660                        SA6    B6                                                      COMDDMT   156
                          76150                   SX1    B5          CONVERT ORDINAL                             COMDDMT   157
            72  0100000000 X                      RJ     COD                                                     COMDDMT   158
            73  5120000000 X                      SA2    =XT.SYM                                                 COMDDMT   159
                          43752                   MX7    7*6                                                     COMDDMT   160
                               63350              SB3    X5          (B3) = WORD INDEX                           COMDDMT   161
            74  20636                             LX6    5*6         12345-----                                  COMDDMT   162
                     11476                        BX4    X7*X6       12345--...                                  COMDDMT   163
                          53523                   SA5    X2+B3       (X5) = SYMTAB WORD WA                       COMDDMT   164
                               63750              SB7    X5          (B7) = HASH CHAIN LINK                      COMDDMT   165
            75  20522                             LX5    3*6         DEFG123ABC                                  COMDDMT   166
                     15657                        BX6    -X7*X5      .......ABC                                  COMDDMT   167
                          43330                   MX3    4*6                                                     COMDDMT   168
                               11035              BX0    X3*X5       DEFG......                                  COMDDMT   169
            76  12164                             BX1    X6+X4       12345--ABC                                  COMDDMT   170
                     0100000000 X                 RJ     ZTB         ZEROES TO BLANKS                            COMDDMT   171
            77  56661                             SA6    B6+B1                                                   COMDDMT   172
                     76170                        SX1    B7                                                      COMDDMT   173
                          0100000000 X            RJ     COD         CONVERT HASH LINK                           COMDDMT   174
           100  43330                             MX3    -6*6                                                    COMDDMT   175
                     15263                        BX2    -X3*X6      ....-12345                                  COMDDMT   176
                          36120                   IX1    X2+X0       DEFG-12345                                  COMDDMT   177
           101  0100000000 X                      RJ     ZTB                                                     COMDDMT   178
           102  5166000002                        SA6    B6+2                                                    COMDDMT   179
                                                                                                                 COMDDMT   180
                          54551                   =A5    A5+WB.W     (X5) = SYMTAB WORD WB                       COMDDMT   181
                               43272              MX2    -2          LEVN                                        COMDDMT   182
           103  20517                             LX5    -45                                                     COMDDMT   183
                     15452                        BX4    -X2*X5      (X4) = LEVEL NUMBER                         COMDDMT   184
                          20572                   LX5    45-47                                                   COMDDMT   185
           104  7204777755                        SX0    X4+1R0-1R   CONVERT LEVEL NUMBER                        COMDDMT   186
                          43757                   MX7    -13         PTRF                                        COMDDMT   187
                               15157              BX1    -X7*X5                                                  COMDDMT   188
           105  20006                             LX0    6                                                       COMDDMT   189
                     0100000000 X                 RJ     COD         CONVERT POINTER FIELD                       COMDDMT   190
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE     9
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DSY                 COMDDMT 
  
           106  20630                             LX6    4*6                                                     COMDDMT   191
                     36760                        IX7    X6+X0       -12345--L-                                  COMDDMT   192
                          54761                   SA7    A6+B1                                                   COMDDMT   193
                               20516              LX5    47-33       RB/FPNO/FUNI                                COMDDMT   194
           107  43260                             MX2    -12                                                     COMDDMT   195
                     15152                        BX1    -X2*X5                                                  COMDDMT   196
                          20541                   LX5    33-0                                                    COMDDMT   197
                               43471              MX4    -3                                                      COMDDMT   198
           110  15354                             BX3    -X4*X5                                                  COMDDMT   199
                     63730                        SB7    X3          (B7) = MODE                                 COMDDMT   200
                          0100000000 X            RJ     COD         CONVERT RB/FPNO/FUNI                        COMDDMT   201
           111  20644                             LX6    6*6                                                     COMDDMT   202
                     54671                        SA6    A7+B1                                                   COMDDMT   203
                          20571                   LX5    0-3                                                     COMDDMT   204
                               64350              SB3    A5          SAVE (B3) = (A5)                            COMDDMT   205
           112  10155                             BX1    X5                                                      COMDDMT   206
                     0100000000 X                 RJ     WOD         CONVERT ALL OF WORD WB                      COMDDMT   207
           113  54160                             SA1    A6          FUNI------                                  COMDDMT   208
                     43244                        MX2    6*6                                                     COMDDMT   209
                          20730                   LX7    4*6         5678901234                                  COMDDMT   210
                               11121              BX1    X2*X1       ABCD--....                                  COMDDMT   211
           114  15372                             BX3    -X2*X7      ......1234                                  COMDDMT   212
                     11727                        BX7    X2*X7       567890....                                  COMDDMT   213
                          5147000140 +            SA4    DSYA+B7     ......--M-                                  COMDDMT   214
           115  12613                             BX6    X1+X3                                                   COMDDMT   215
                     54660                        SA6    A6          FUNI---1234                                 COMDDMT   216
                          12747                   BX7    X4+X7       567890--M-                                  COMDDMT   217
                               54761              SA7    A6+B1                                                   COMDDMT   218
                                                                                                                 COMDDMT   219
           116  56531                             =A5    B3-WB.W+WC.W      FETCH (X5) = SYMTAB WORD WC           COMDDMT   220
                     43360                        MX3    -12         (X3) = BASE                                 COMDDMT   221
                          20514                   LX5    -48                                                     COMDDMT   222
                               15153              BX1    -X3*X5      (X1) = EQUIV CLASS BASE                     COMDDMT   223
           117  0100000000 X                      RJ     COD         CONVERT OCTAL                               COMDDMT   224
           120  43252                             MX2    7*6                                                     COMDDMT   225
                     20636                        LX6    5*6         -BASE-----                                  COMDDMT   226
                          11026                   BX0    X2*X6       -BASE--...                                  COMDDMT   227
                               43452              MX4    -18                                                     COMDDMT   228
           121  20522                             LX5    48-30                                                   COMDDMT   229
                     15154                        BX1    -X4*X5      (X1) = CHARACTER LENGTH                     COMDDMT   230
                          0100000000 X            RJ     COD         CONVERT OCTAL                               COMDDMT   231
           122  20652                             LX6    7*6         456----123                                  COMDDMT   232
                     43252                        MX2    7*6                                                     COMDDMT   233
                          15362                   BX3    -X2*X6      .......123                                  COMDDMT   234
                               12703              BX7    X0+X3       -BASE--123                                  COMDDMT   235
           123  54771                             SA7    A7+B1                                                   COMDDMT   236
                     20502                        LX5    30-28                                                   COMDDMT   237
                          43472                   MX4    -2                                                      COMDDMT   238
                               15154              BX1    -X4*X5                                                  COMDDMT   239
           124  7231777755                        SX3    X1+1R0-1R   CONVERT CHARACTER TYPE                      COMDDMT   240
                          20330                   LX3    4*6         .....C....                                  COMDDMT   241
                               36663              IX6    X6+X3       456--C-123                                  COMDDMT   242
           125  11026                             BX0    X2*X6       456--C-...                                  COMDDMT   243
                     20504                        LX5    28-24                                                   COMDDMT   244
                          43470                   MX4    -4                                                      COMDDMT   245
                               15154              BX1    -X4*X5      (X1) = BEGINNING CHARACTER POSITION         COMDDMT   246
           126  5120000202 +                      SA2    =3R  0                                                  COMDDMT   247
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    10
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        DSY                 COMDDMT 
  
                          36621                   IX6    X2+X1       .......--P                                  COMDDMT   248
                               12760              BX7    X6+X0       456--C---P                                  COMDDMT   249
           127  54771                             SA7    A7+B1                                                   COMDDMT   250
                     20530                        LX5    24-0                                                    COMDDMT   251
                          43444                   MX4    -24                                                     COMDDMT   252
                               15154              BX1    -X4*X5      (X1) = WC.RA                                COMDDMT   253
           130  0100000000 X                      RJ     COD         CONVERT OCTAL                               COMDDMT   254
           131  54671                             SA6    A7+B1       --12345678                                  COMDDMT   255
                     43700                        MX7    0                                                       COMDDMT   256
                          76551                   SX5    B5+B1       ADVANCE ORDINAL                             COMDDMT   257
           132  5120000162 +                      SA2    DSYC                                                    COMDDMT   258
                          54761                   SA7    A6+B1       MARK END OF LINE                            COMDDMT   259
                               63620              SB6    X2                                                      COMDDMT   260
           133  76660                             PRIDP  B6,A7-B6                                                COMDDMT   261
           135  63550                             SB5    X5          (B5) = ORDINAL                              COMDDMT   262
                     5120000000 X                 SA2    =XT=SYM                                                 COMDDMT   263
                               22315              LX3    X5,B1                                                   COMDDMT   264
           136  36535                             IX5    X3+X5       (X5) = INDEX                                COMDDMT   265
                     37752                        IX7    X5-X2                                                   COMDDMT   266
                          0337000066 +            MI     X7,DSY2     IF INDEX .LT. LENGTH                        COMDDMT   267
           137  0400000057 +                      EQ     EXIT.                                                   COMDDMT   268
                                                                                                                 COMDDMT   269
           140                           DSYA     BSS                                                            COMDDMT   270
      L      0                                    LOC    0                                                       COMDDMT   271
      L      0  00000000000055553355     M.UNIV   CON    4R  0       CHAMELEON                                   COMDDMT   272
      L      1  00000000000055551455     M.LOG    CON    4R  L       LOGICAL                                     COMDDMT   273
      L      2  00000000000055551155     M.INT    CON    4R  I       INTEGER                                     COMDDMT   274
      L      3  00000000000055552255     M.REAL   CON    4R  R       REAL                                        COMDDMT   275
      L      4  00000000000055550455     M.DBL    CON    4R  D       DOUBLE                                      COMDDMT   276
      L      5  00000000000055553255     M.CPLX   CON    4R  Z       COMPLEX                                     COMDDMT   277
      L      6  00000000000055554155              CON    4R  6       BOOLEAN                                     COMDDMT   278
      L      7  00000000000055554255              CON    4R  7       CHARACTER                                   COMDDMT   279
           150                                    LOC    *O                                                      COMDDMT   280
                                                                                                                 COMDDMT   281
           150  55551116040530555555     DSYB     DIS    5,  INDEX   ORDNL  SYMBOL  CHAIN  PTRF LV BASE          COMDDMT   282
           155  03140123235555551555              DIS    4,CLASS   M  FUNI    CLEN  C BCP    RELADD              COMDDMT   283
           161  00000000000000000000              CON    0                                                       COMDDMT   284
                                  12     DSYBL    =      *-DSYB                                                  COMDDMT   285
                                                                                                                 COMDDMT   286
           162  00000000000000000000 X   DSYC     CON    SNAPLNE     FWA OF LINE TO OUTPUT                       COMDDMT   287
  
  
  
  
                                        **        HERE TO PROCESS *DUMPT T1,T2,...,TN*.                          COMDDMT   289
                                                                                                                 COMDDMT   290
                                                                                                                 COMDDMT   291
           163  74650                    ST=DMT   SX6    A5                                                      COMDDMT   292
                     5160000000 +                 SA6    IDPSA5      SAVE (A5) = NEXT TOKEN ADDR                 COMDDMT   293
                                                                                                                 COMDDMT   294
           164  53560                    ST=DMT2  SA5    X6                                                      COMDDMT   295
                     43052                        MX0    7*CHAR                                                  COMDDMT   296
                          0305000000 X            ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          COMDDMT   297
           165  7265777775                        SX6    X5-/IDP/O.VAR                                           COMDDMT   298
                          0316000173 +            NZ     X6,ST=DMT3  IF NOT A NAME TOKEN                         COMDDMT   299
           166  11105                             BX1    X0*X5                                                   COMDDMT   300
                     0100000000 X                 RJ     =XSFN       SPACE FILL NAME                             COMDDMT   301
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    11
        COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                        ST=DMT              COMDDMT 
  
           167  10166                             BX1    X6          (X1) = 10HTABLE NAME                        COMDDMT   302
                     6160000000 X                 SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS              COMDDMT   303
           170  0100000000 X                      RJ     SKT         SEARCH TABLE FOR MATCH                      COMDDMT   304
           171  0302000173 +                      ZR     X2,ST=DMT3  IF NO FIND                                  COMDDMT   305
                          5212000000 X            SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  COMDDMT   306
           172  0100000013 +                      RJ     DAT         DUMP A TABLE                                COMDDMT   307
                                                                                                                 COMDDMT   308
           173  5110000000 +             ST=DMT3  SA1    IDPSA5                                                  COMDDMT   309
                          73611                   SX6    X1+B1                                                   COMDDMT   310
                               54610              SA6    A1                                                      COMDDMT   311
           174  0400000164 +                      EQ     ST=DMT2                                                 COMDDMT   312
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMDDMT   314
                                                  QUAL   *                                                       COMDDMT   315
                                  13 +   DAT      EQU    /COMDDMT/DAT                                            COMDDMT   316
                                  37 +   DMT=     EQU    /COMDDMT/DMT=                                           COMDDMT   317
                                 163 +   ST=DMT   EQU    /COMDDMT/ST=DMT                                         COMDDMT   318
                                         QUAL$    ENDIF                                                          COMDDMT   319
                                 D_D              BASE   *                                                       COMDDMT   320
                                                                                                                 COMDDMT   321
                                         COMDDMT  ENDX                                                           COMDDMT   322
                                                                                                                 RSNAP     126
  
  
  
  
                                                  LIST   D                                                       RSNAP     128
  
                                        CONTENT OF LITERALS BLOCK.
  
           175  02221411160500000000    BRLINE
           176  00000000000000000000
           177  04251520240000000000    DUMPT 
           200  00000000000000555555
           201  23311555555555555555    SYM 
           202  00000000000000555533             0
  
           203                           ENDSNAP  END                MARK END OF SNAP DECK                       RSNAP     129
  
                             70500B CM  STORAGE USED             2047 STATEMENTS     1912 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.816 SECONDS         373 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        CAD             0   EXTERNAL*       2/06 D
        CDD             0   EXTERNAL*       2/17 D
        CHAR            6   FTX            10/52
        CHK             0   EXTERNAL*       2/07 D
        COD             0   EXTERNAL*       2/18 D    8/18      8/41      9/11      9/41
                                            5/46      8/25      8/57      9/34     10/07
        DAT            13   PROGRAM*       11/18 D
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    12
        SYMBOLIC REFERENCE TABLE. 
  
        DCM=            0   EXTERNAL*       1/45 X    6/03
        DMT=           37   PROGRAM*        6/48 E   11/19 D
        DXB             0   EXTERNAL*       2/19 D
        ENDSNAP       203   PROGRAM*       11/31 L
        FI=BRLI         1   PROGRAM*        3/42 L    3/42 E    4/29 S
        FLL             0   EXTERNAL*       2/08 D
        FRK             0   EXTERNAL*       2/09 D    6/57
        FW=IDPL         0   EXTERNAL*       1/45 X    6/56 S    7/09 S    7/19
        HDR             0   EXTERNAL*       2/10 D    7/02
        IDPFLG          0   EXTERNAL*       1/45 X    8/05
        IDPSA5          0   PROGRAM*        2/37 L   10/49 S   11/08
        IDP=CAD         0   EXTERNAL*       2/06
        IDP=CDD         0   EXTERNAL*       2/17
        IDP=CHK         0   EXTERNAL*       2/07
        IDP=COD         0   EXTERNAL*       1/45 X    2/18
        IDP=DXB         0   EXTERNAL*       2/19
        IDP=FLL         0   EXTERNAL*       2/08
        IDP=FRK         0   EXTERNAL*       1/45 X    2/09
        IDP=HDR         0   EXTERNAL*       1/45 X    2/10
        IDP=MCS         0   EXTERNAL*       2/20
        IDP=MN          0   EXTERNAL*       1/45 X    4/30     10/53
        IDP=PAS         0   EXTERNAL*       1/46 X    2/11
        IDP=PAT         0   EXTERNAL*       2/12
        IDP=SFN         0   EXTERNAL*       1/46 X    2/21
        IDP=SKT         0   EXTERNAL*       1/46 X    2/13
        IDP=SOB         0   EXTERNAL*       1/46 X    2/14
        IDP=SYS         0   EXTERNAL*       2/22
        IDP=WOD         0   EXTERNAL*       1/46 X    2/23
        IDP=ZTB         0   EXTERNAL*       1/46 X    2/24
        MCS             0   EXTERNAL*       2/20 D
        NAMES           0   EXTERNAL*       1/50 X    7/13     11/02
        N.TABLE         0   EXTERNAL*       1/50 X    5/33      6/01
        ORIGINS         0   EXTERNAL*       1/50 X    7/17     11/05
        PAS             0   EXTERNAL*       2/11 D    4/28
        PAT             0   EXTERNAL*       2/12 D
  U     QUAL$                               5/04 F   11/16 F
        ROL=            0   EXTERNAL*       1/46 X    5/51      8/13     10/14
        RSR=            0   EXTERNAL*       1/47 X    7/22
        SFN             0   EXTERNAL*       2/21 D   10/57
        SKT             0   EXTERNAL*       2/13 D    7/14     11/03
        SNAPLNE         0   EXTERNAL*       1/47 X    5/38 S    5/51      8/09      8/16     10/40
        SN=DMT          5                   2/34 D    7/03
        SOB             0   EXTERNAL*       2/14 D    6/51
        ST=BRL         10   PROGRAM*        4/15      4/27 L
        ST=DMT        163   PROGRAM*        4/16     11/20 D
        SVR=            0   EXTERNAL*       1/47 X    6/49
        SYS=            0   EXTERNAL*       2/22 D
        TEST            1   FTX             1/41 F
        T=SYM           0   EXTERNAL*       1/50 X   10/16
        T.SYM           0   EXTERNAL*       1/50 X    8/26
        UKT=LNK         7   PROGRAM*        4/19 L
        UKT=RE          2   PROGRAM*        4/13 L    4/13 E
        WB.W            1   FTX             8/48      9/30
        WC.W            2   FTX             9/30
        WOD             0   EXTERNAL*       2/23 D    9/17
        ZTB             0   EXTERNAL*       2/24 D    8/38      8/45
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    13
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
                                                  SYMBOL QUALIFIER =  IDP 
  
  
        BB.TOCL        52                   3/07 D    3/07
        BB.TOCP        22                   3/07 D
        BB.TOTL        22                   3/07 D    3/07
        BB.TOTP         0                   3/07 D
        BN.TOCL        52                   3/07 D
        BN.TOCP        22                   3/07 D
        BN.TOTL        22                   3/07 D
        BN.TOTP         0                   3/07 D
        BTC.EQ          5                   3/07 D
        BTC.GE         10                   3/07 D
        BTC.GT         12                   3/07 D
        BTC.LE         11                   3/07 D
        BTC.LT          7                   3/07 D
        BTC.MI          2                   3/07 D
        BTC.NE          6                   3/07 D
        BTC.NZ          4                   3/07 D
        BTC.PL          1                   3/07 D
        BTC.ZR          3                   3/07 D
        CHAR            6                   3/07 D    4/15      4/16
        DXB1$           1                   3/07 D
        IDF.ADRP       63                   3/07 D
        IDF.BDOP       70                   3/07 D
        IDF.BKOP       67                   3/07 D
        IDF.BRFP       57                   3/07 D
        IDF.FTOP       65                   3/07 D
        IDF.IDOP       73                   3/07 D    8/07
        IDF.IKOP       72                   3/07 D
        IDF.INPP       64                   3/07 D
        IDF.MEMP       56                   3/07 D
        IDF.RAPP       55                   3/07 D
        IDF.SNLL       22                   3/07 D
        IDF.SNLP        0                   3/07 D
        IDF.XECL        3                   3/07 D
        IDF.XECP       60                   3/07 D
        IDF.XJRP       54                   3/07 D
        KW.ATTRL       30                   3/07 D    4/15      4/16
        KW.ATTRP       44                   3/07 D
        KW.HADL        22                   3/07 D    4/15      4/16
        KW.HADP         0                   3/07 D
        KW.KEYL        22                   3/07 D    4/15      4/16
        KW.KEYP         0                   3/07 D
        KW.LADL        11                   3/07 D    4/15      4/16
        KW.LADP        33                   3/07 D
        KW.LENL        11                   3/07 D    4/15      4/16
        KW.LENP        22                   3/07 D
        KW.PADL        22                   3/07 D    4/15      4/16
        KW.PADP        44                   3/07 D
        KW.PNRL         6                   3/07 D    4/15      4/16
        KW.PNRP        66                   3/07 D
        KW.UDOL        11                   3/07 D    4/15      4/16
        KW.UDOP        22                   3/07 D
        KW.XATL        11                   3/07 D    4/15      4/16
        KW.XATP        33                   3/07 D
        LIP.BRL         0                   4/15 D    4/15
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    14
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        LIP.DMT         0                   4/16 D    4/16
        L1.PTR          2                   3/07 D
        L.BSL           4                   3/07 D
        L.ISL           2                   3/07 D
        L.PRB           0                   3/07 D
        OI.ERR          2                   3/07 D
        O.AND          13                   3/07 D
        O.BOS           0                   3/07 D    3/07
        O.COM          17                   3/07 D
        O.CONS          3                   3/07 D
        O.EOS           0                   3/07 D
        O.ILL          23                   3/07 D
        O.KEY           1                   3/07 D
        O.LP           10                   3/07 D
        O.MIN           6                   3/07 D
        O.NOT          16                   3/07 D
        O.NUL           0                   3/07 D
        O.OR           14                   3/07 D
        O.PER          20                   3/07 D
        O.PLUS          5                   3/07 D    3/07
        O.QQQ          22                   3/07 D
        O.REG           4                   3/07 D
        O.RP           11                   3/07 D
        O.SEP           5                   3/07 D
        O.SHFT         12                   3/07 D
        O.SQOT         21                   3/07 D
        O.STAR          7                   3/07 D
        O.VAR           2                   3/07 D   10/54
        O.XOR          15                   3/07 D
        PAF.LENM     4000                   3/07 D
        PAF.LENP       13                   3/07 D
        PAF.LWAM    40000                   3/07 D
        PAF.LWAP       16                   3/07 D
        PS.PIPL        22                   3/07 D
        PS.PIPP        22                   3/07 D
        PS.POPL        22                   3/07 D    3/07
        PS.POPP         0                   3/07 D    3/07
        PS.PRIL         6                   3/07 D
        PS.PRIP        66                   3/07 D
        PS.TOTL        22                   3/07 D
        PS.TOTP         0                   3/07 D
        PS.UPIPL       22                   3/07 D
        PS.UPIPP       44                   3/07 D
        PTR.BRK         1                   3/07 D
        PTR.BRL         0                   4/15 D    4/15
        PTR.COD         1                   3/07 D
        PTR.DMT         0                   4/16 D    4/16
        PTR.DPC         3                   3/07 D
        PTR.SNP         3                   3/07 D
        PTR.STO         3                   3/07 D
        PTR.WHR         1                   3/07 D
        PT.FWAL        36                   3/07 D
        PT.FWAP        36                   3/07 D
        PT.LENL        36                   3/07 D
        PT.LENP         0                   3/07 D
        QUAL$           1                   3/06 D
        SC.PADL        22                   3/07 D
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    15
        SYMBOLIC REFERENCE TABLE.                                     IDP 
  
        SC.PADP         0                   3/07 D
        SC.TOTL        22                   3/07 D
        SC.TOTP        52                   3/07 D
        SN=BRAD         6                   3/07 D
        SN=BRF          5                   3/07 D
        SN=CNT          4                   3/07 D
        SN=FRK          0                   3/07 D
        SN=FWA          5                   3/07 D
        SN=HDR          3                   3/07 D
        SN=INC          2                   3/07 D
        SN=LEN          7                   3/07 D
        SN=LL           0                   3/07 D
        SN=LWA          6                   3/07 D
        SN=RRL          6                   3/07 D
        SN=SRL         11                   3/07 D
        SN=UL           1                   3/07 D
        SN=URF          5                   3/07 D
        SN=USF         10                   3/07 D
        ST.BRL          2   PROGRAM*        4/15 L
        ST.DMT          4   PROGRAM*        4/16 L
        SY.DECK         1                   3/07 D
        SY.LFN          3                   3/07 D
        SY.NONE         0                   3/07 D
        SY.SET          2                   3/07 D
        SY.USY          4                   3/07 D
        TB.LASP        73                   3/07 D
        TB.LENL        22                   3/07 D
        TB.LENP         0                   3/07 D
        TB.PRSL        22                   3/07 D
        TB.PRSP        22                   3/07 D
        TB.TOCL        52                   3/07 D
        TB.TOCP        22                   3/07 D
        TB.TOTL        22                   3/07 D
        TB.TOTP         0                   3/07 D
        TB.0TRL        22                   3/07 D
        TB.0TRP        22                   3/07 D
        UDO.BRL         0                   4/15 D    4/15
        UDO.DMT         0                   4/16 D    4/16
        XTC.AR         15                   3/07 D
        XTC.EQ          5                   3/07 D
        XTC.GE         10                   3/07 D
        XTC.GT         12                   3/07 D
        XTC.LE         11                   3/07 D
        XTC.LT          7                   3/07 D
        XTC.MI          2                   3/07 D
        XTC.NE          6                   3/07 D
        XTC.NR         14                   3/07 D
        XTC.NZ          4                   3/07 D
        XTC.PL          1                   3/07 D
        XTC.RNG        13                   3/07 D
        XTC.ZR          3                   3/07 D
        #SVR            1                   3/07 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMDDMT 
1       RSNAP - REAR-END TEST MODE SNAP PACKAGE.                      COMPASS 3.7-871.     24/05/05. 20.00.31.      PAGE    16
        SYMBOLIC REFERENCE TABLE.                                     COMDDMT 
  
        DAT            13   PROGRAM*        5/26 L    7/18     11/06     11/18
        DATB           33   PROGRAM*        5/31 S    5/34      5/53      6/07 L
        DAT8           12   PROGRAM*        5/24 L    5/55
        DMT2           47   PROGRAM*        7/07 L    7/20
        DMT3           55   PROGRAM*        7/01      7/10      7/22 L
        DMT=           37   PROGRAM*        6/48 L    6/52     11/19
        DSY            57   PROGRAM*        5/24      8/04 L
        DSYA          140   PROGRAM*        9/24     10/23 L
        DSYB          150   PROGRAM*        8/10      8/12     10/35 L   10/38
        DSYBL          12                   8/12     10/38 D
        DSYC          162   PROGRAM*        8/11 S   10/11     10/40 L
        DSY2           66   PROGRAM*        8/16 L   10/20
        M.CPLX          5                  10/30 L
        M.DBL           4                  10/29 L
        M.INT           2                  10/27 L
        M.LOG           1                  10/26 L
        M.REAL          3                  10/28 L
        M.UNIV          0                  10/25 L
        ST=DMT        163   PROGRAM*       10/48 L   11/20
        ST=DMT2       164   PROGRAM*       10/51 L   11/11
        ST=DMT3       173   PROGRAM*       10/55     11/04     11/08 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2534              IDENT  FAS
                       2534                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2465 
                                        LITERALS* LOCAL        2465        13 
                                        DEBUG     LOCAL        2500        34 
  
  
                                        ENTRY POINTS. 
  
                                        B=FAS            0+           TAGSUB0        206+           CLE           1047+ 
                                        BT.IDNT          0+           OL=BIN         207+           CLE.EQ        1050+ 
                                        BT.IDN8         10            OL=LBF         210+           DLF           1326+ 
                                        BT.IDN9         11            OL=PB          211+           ESL           1433+ 
                                        BT.XFR1         61+           OL=RL          212+           ESL.EQ        1434+ 
                                        CIDMOD          65+           FAS            221+           FBP           1454+ 
                                        COMMOD          66+           APLA           336+           FBP.EQ        1455+ 
                                        FCLMOD          70+           RADRTN         470+           POL           2226+ 
                                        FAPSUD         132+           RADOL1         533+           POL.EQ        2227+ 
                                        ORG            201+           RADOL2         553+           RNI           2357+ 
                                        PARCEL         202+           RADC           763+           SNR           2404+ 
                                        ORGSUB         203+           BST           1000+           WLF           2451+ 
                                        SUBFLG         204+           BST.EQ        1001+           WLF.EQ        2452+ 
                                        ORGSUB0        205+           CAB           1037+ 
  
  
                                        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 * 
  
  
  
  
                                        **ENDIF TEST                                                             FC5A388    16
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE     2
  
  
                                                  IDENT  FAS                                                     FAS         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/05. 20.00.32.      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/05. 20.00.32.      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/05. 20.00.32.      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/05. 20.00.32.      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/05. 20.00.32.      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/05. 20.00.32.      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
                                2465 +   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/05. 20.00.32.      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/05. 20.00.32.      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  0400001746 +             UNT      ICDEF  UNIT=                                                   COMSIOC     8
      L      2  0400001727 +             END      ICDEF  END=                                                    COMSIOC     9
      L      3  0400001727 +             ERR      ICDEF  ERR=                                                    COMSIOC    10
      L      4  0400001742 +             FMT      ICDEF  FMT=                                                    COMSIOC    11
      L      5  0400001746 +             IOS      ICDEF  IOSTAT=                                                 COMSIOC    12
      L      6  0400001746 +             REC      ICDEF  REC=                                                    COMSIOC    13
      L      7  0400001727 +             SKP      ICDEF  SKIP                                                    COMSIOC    14
      L     10  0400001727 +             NML      ICDEF  NAMELIST NAME (GROUP)                                   COMSIOC    15
      L     11  0400001726 +                      ICDEF                                                          COMSIOC    16
      L     12  0400001726 +                      ICDEF                                                          COMSIOC    17
      L     13  0400001726 +                      ICDEF                                                          COMSIOC    18
      L     14  0400001740 +             ACC      ICDEF  ACCESS=                                                 COMSIOC    19
      L     15  0400001740 +             BLK      ICDEF  BLANK=                                                  COMSIOC    20
      L     16  0400001740 +             BFL      ICDEF  BUFL=                                                   COMSIOC    21
      L     17  0400001740 +             DIR      ICDEF  DIRECT=                                                 COMSIOC    22
      L     20  0400001740 +             EXS      ICDEF  EXIST=                                                  COMSIOC    23
      L     21  0400001740 +             FIL      ICDEF  FILE=                                                   COMSIOC    24
      L     22  0400001740 +             FOR      ICDEF  FORM=                                                   COMSIOC    25
      L     23  0400001740 +             FMD      ICDEF  FORMATTED=                                              COMSIOC    26
      L     24  0400001740 +             NAM      ICDEF  NAME=                                                   COMSIOC    27
      L     25  0400001740 +             NMD      ICDEF  NAMED=                                                  COMSIOC    28
      L     26  0400001740 +             NXT      ICDEF  NEXTREC=                                                COMSIOC    29
      L     27  0400001740 +             NUM      ICDEF  NUMBER=                                                 COMSIOC    30
      L     30  0400001740 +             OPE      ICDEF  OPENED=                                                 COMSIOC    31
      L     31  0400001727 +             RCL      ICDEF  RECL=                                                   COMSIOC    32
      L     32  0400001740 +             SEQ      ICDEF  SEQUENTIAL=                                             COMSIOC    33
      L     33  0400001740 +             STA      ICDEF  STATUS=                                                 COMSIOC    34
      L     34  0400001740 +             UNF      ICDEF  UNFORMATTED=                                            COMSIOC    35
      L     35  0400001733 +             BUF      ICDEF  BFFER I/O FWA AND LWA                                   COMSIOC    36
      L     36  0400001751 +             CNT      ICDEF  ENCODE/DECODE COUNT                                     COMSIOC    37
      L     37  0400001727 +             MOD      ICDEF  BUFFER I/O MODE                                         COMSIOC    38
      L     40  0400001751 +             STR      ICDEF  ENCODE/DECODE STRING ADDRESS                            COMSIOC    39
      L     41  0400001734 +             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/05. 20.00.32.      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  0400000276 +                      PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1  0400000341 +                      PSUD   BSS                                                     COMSPSU     8
      L      2  0400000307 +                      PSUD   APL         APLIST                                      COMSPSU     9
      L      3  0400000337 +                      PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4  0400000343 +                      PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5  0400000437 +                      PSUD   END                                                     COMSPSU    17
      L      6  0400000346 +                      PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7  0400000350 +                      PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10  0400000357 +                      PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11  0400000370 +                      PSUD   IDNT                                                    COMSPSU    22
      L     12  0400000373 +                      PSUD   IOM                                                     COMSPSU    23
      L     13  0400000404 +                      PSUD   LCC                                                     COMSPSU    24
      L     14  0400000413 +                      PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15  0400000415 +                      PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16  0400000367 +                      PSUD   PLIM                                                    FC50049     6
      L     17  0400000425 +                      PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20  0400000421 +                      PSUD   USE                                                     COMSPSU    31
      L                                                                                                          COMSPSU    32
                                                                                                                 COMSPSU    33
                                 153 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21  0400000567 +                      IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22  0400000615 +                      IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23  0400000624 +                      IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24  0400000612 +                      IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25  0400000571 +                      IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26  0400000610 +                      IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27  0400000640 +                      IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30  0400000642 +                      IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31  0400000662 +                      IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32  0400000671 +                      IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33  0400000645 +                      IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34  0400000647 +                      IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35  0400000660 +                      IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36  0400000725 +                      IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37  0400000674 +                      IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    12
        BINARY OUTPUT TABLE DEFINITIONS.                              PSUD
  
      L     40  0400000672 +                      IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41  0400000711 +                      IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42  0400000747 +                      IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43  0400000755 +                      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/05. 20.00.32.      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
                          0312000456 +            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/05. 20.00.32.      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
                          0100001421 +            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/05. 20.00.32.      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  0100002357 +                      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
                          5170000763 +            SA7    RADC        (RADC) = - GHIJ                             FAS       579
                                                                                                                 FAS       580
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                FAS       581
           274  6170000044                        SB7    Z.PSUD                                                  FAS       582
                          0647400274 +            GE     B4,B7,"BLOWUP"    IF ILLEGAL PSEUDO NUMBER              FAS       583
           275  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
  
  
  
  
           276  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
           277  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
           300  5160002355 +                      SA6    RELMASK                                                 FAS       603
                          7160000014              SX6    PB.BIASP                                                FAS       604
           301  5160002356 +                      SA6    RELPOS                                                  FAS       605
                          0100002262 +            RJ     REL                                                     FAS       606
           302  5110000055 +                      SA1    BINWORD                                                 FAS       607
                          76240                   SX2    B4                                                      FAS       608
                               20222              LX2    18                                                      FAS       609
           303  73110                             SX1    X1          ISOLATE ADDRESS                             FAS       610
                     12112                        BX1    X1+X2                                                   FAS       611
                          5120000056 +            SA2    BINREL                                                  FAS       612
           304  10011                             BX0    X1                                                      FAS       613
                     0100002435 +                 RJ     STX                                                     FAS       614
           305  0100001454 +                      RJ     FBP                                                     FAS       615
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    16
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=ADDR 
  
           306  0400000270 +                      EQ     FASRTN                                                  FAS       616
  
  
  
  
           307                           FO=APL   BSS    0           PROCESS OC$APL PSEUDO                       FAS       618
           307  66600                             =B6    0           INDICATE REGULAR AP-LIST                    FAS       619
                     0100000000 X                 CALL   PAT         PRE-PROCESS AP-LIST TABLE                   FAS       620
           310  5120000000 X                      SA2    T=LCA                                                   FAS       621
                          5130000000 X            SA3    T=APL                                                   FAS       622
           311  7222777776                        SX2    X2-1                                                    FAS       623
                          10633                   BX6    X3                                                      FAS       624
           312  5160000336 +                      SA6    APLA        SAVE (APLA) = CURRENT LENGTH OF T.APL       FAS       625
                          0302000331 +            ZR     X2,APL.20   IF NO LCM POINTERS                          FAS       626
           313  5110000000 X                      ALLOC  T.APL,X2                                                FAS       627
           315  5150000336 +                      SA5    APLA                                                    FAS       628
                          5140000000 X            SA4    T.APL                                                   FAS       629
           316  5110000000 X                      SA1    T=LCA                                                   FAS       630
                          5120000000 X            SA2    T.LCA                                                   FAS       631
           317  7211777776                        SX1    X1-1                                                    FAS       632
                          73221                   SX2    X2+B1                                                   FAS       633
                               36345              IX3    X4+X5                                                   FAS       634
           320  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
           321  5110000336 +                      SA1    APLA                                                    FAS       642
                          5120000000 X            SA2    T.LCA                                                   FAS       643
           322  63521                             SB5    X2+B1       I = 1                                       FAS       644
                     6160000000 X                 SB6    BN=APL                                                  FAS       645
           323  5126000000 X                      SA2    F.LBT+B6                                                FAS       646
                          43701                   MX7    1                                                       FAS       647
                               43052              MX0    -LB.ORGL                                                FAS       648
           324  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
           325  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
           326  0305000331 +             APL.15   ZR     X5,APL.20   IF T.LCA EXHAUSTED                          FAS       656
                          7255777776              SX5    X5-1                                                    FAS       657
           327  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
           330  0400000326 +                      EQ     APL.15                                                  FAS       661
                                                                                                                 FAS       662
           331  43600                    APL.20   MX6    0                                                       FAS       663
                     5160000000 X                 SHRINK T=PTXTR,X6                                              FAS       664
           332  0100001554 +                      RJ     KAP         COMPILE APLISTS (AND LCM POINTERS)          FAS       665
           333  66600                             =B6    0           INDICATE REGULAR APLIST                     FAS       666
                     0100002226 +                 RJ     POL         PRINT OBJECT LISTING                        FAS       667
           334  76600                             SHRINK T=APL,0                                                 FAS       668
           335  5160000000 X                      SHRINK T=PTXTR,X6                                              FAS       669
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    17
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=APL
  
                          0400000270 +            EQ     FASRTN                                                  FAS       670
                                                                                                                 FAS       671
           336                     1     APLA     BSSENT 1           T=APL BEFORE T=LCA APPENDED                 FAS       672
  
  
  
  
           337                           FO=BMI   BSS    0           PROCESS OC$BMI PSEUDO                       FAS       674
           337  0100000462 +                      RJ     RAD         PROCESS *TS* TYPE INSTRUCTIONS              FAS       675
           340  0400000270 +                      EQ     FASRTN                                                  FAS       676
  
  
  
  
           341                           FO=BSS   BSS    0           PROCESS OC$BSS PSEUDO FOR LABELS            FC50264    22
           341  0100002253 +                      RJ     RBS         RELOCATE   BSS   INSTRUCTION                FAS       679
           342  0400000270 +                      EQ     FASRTN                                                  FAS       680
  
  
  
  
           343                           FO=CON   BSS    0                                                       FAS       682
           343  0100002226 +                      RJ     POL         PRINT CONSTANT TABLE                        FAS       683
           344  5110000000 X                      SA1    T.CON                                                   FAS       684
                          0100002376 +            RJ     SMW         STORE MULTIPLE WORDS (T.CON)                FAS       685
           345  0400000270 +                      EQ     FASRTN                                                  FAS       686
  
  
  
  
           346                           FO=EQUN  BSS    0           *EQUN* PSEUDO                               FAS       694
           346  0100002226 +                      RJ     POL         PRINT *  LENP.  EQUN   *                    FAS       695
           347  0400000270 +                      EQ     FASRTN                                                  FAS       696
  
  
  
  
           350                           FO=FMT   BSS    0           PROCESS OC$FMT PSEUDO                       FAS       698
           350  0100002226 +                      RJ     POL         PRINT FORMAT TABLE                          FAS       699
           351  5110000000 X                      SA1    T.FMT                                                   FAS       700
                          0100002376 +            RJ     SMW         STORE MULTIPLE WORDS (T.FMT)                FAS       701
           352  5130000000 X                      SA3    CO.OPT                                                  FAS       702
                          5140000000 X            SA4    T=LA                                                    FAS       703
           353  0313000270 +                      NZ     X3,FASRTN   IF NOT QCG                                  FAS       704
                          7160777733              SX6    -OC=FLA                                                 FAS       705
           354  0304000270 +                      ZR     X4,FASRTN   IF NO LABELS ASSIGN-ED                      FAS       706
                          5160000763 +            SA6    RADC                                                    FAS       707
           355  0100001461 +                      RJ     FLA         FORMAT LABELS ASSIGN-ED                     FAS       708
           356  0400000270 +                      EQ     FASRTN                                                  FAS       709
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    18
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=FVEC 
  
           357                           FO=FVEC  BSS    0                                                       FAS       711
           357  5120000000 X                      SA2    T.SYM                                                   FAS       712
                          43052                   MX0    -PB.TAGL                                                FAS       713
                               20536              LX5    -PB.TAGP                                                FAS       714
           360  15050                             BX0    -X0*X5      TAGI = TAG[INSTRUCTION]                     FAS       715
                     0300000363 +                 ZR     X0,FVEC.10                                              FAS       716
                               36220              IX2    X2+X0                                                   FAS       717
           361  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
           362  11004                             BX0    X0*X4       ISOLATE LFN                                 FAS       721
                     43401                        MX4    1                                                       FAS       722
                          13004                   BX0    X0-X4       TURN OFF BIT 59                             FAS       723
           363  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
           364  76200                    FVEC.20  =X2    0                                                       FC50049    20
                     10011                        BX0    X1                                                      FAS       730
                          0100002435 +            RJ     STX         OUTPUT POINTER WORD                         FAS       731
           365  0100001454 +                      RJ     FBP         PRINT FILE DESCRIPTOR                       FAS       732
           366  0400000270 +                      EQ     FASRTN                                                  FAS       733
                                                                                                                 FC50049    21
           367  5110000000 X             FO=PLIM  SA1    =XCO.LL     PRINT LIMIT                                 FC50049    22
                          0400000364 +            EQ     FVEC.20                                                 FC50049    23
  
  
  
  
           370                           FO=IDNT  BSS    0           PROCESS OC$IDENT PSEUDO                     FAS       735
           370  0100001230 +                      RJ     DIT         DUMP IDENTIFICATION TABLES                  FAS       736
           371  0100002226 +                      RJ     POL         PRINT * IDENT  PROGNAM*                     FAS       737
           372  0400000270 +                      EQ     FASRTN                                                  FAS       738
  
  
  
  
           373                           FO=IOM   BSS    0           PROCESS OC$IOM PSEUDO                       FAS       740
           373  6160000001                        SB6    1           INDICATE IO-APLIST TABLE                    FAS       741
                          5110000000 X            SA1    T=IOA                                                   FAS       742
           374  0301000270 +                      ZR     X1,FASRTN   IF NO I/O                                   FAS       743
                          0100000000 X            CALL   PAT         PRE-PROCESS I/O AP-LIST TABLE               FAS       744
           375  43600                             MX6    0                                                       FAS       745
                     5160000000 X                 SHRINK T=PTXTR,X6                                              FAS       746
           376  5160000000 X                      SHRINK T=CLWB,X6                                               FC5A219     7
                          0100001643 +            RJ     KIO         COMPILE I/O AP-LISTS                        FAS       748
           377  0100002027 +                      RJ     OCL         OUTPUT CHARACTER LENGTH ARRAYS              FC5A219     8
           400  0100002226 +                      RJ     POL                                                     FAS       750
           401  76600                             SHRINK T=CLW,0                                                 FAS       751
           402  5160000000 X                      SHRINK T=IOA,X6                                                FAS       752
                          5160000000 X            SHRINK T=PTXTR,X6                                              FAS       753
           403  5160000000 X                      SHRINK T=CLWB,X6                                               FC5A219     9
                          0400000270 +            EQ     FASRTN                                                  FAS       755
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    19
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=LCC
  
           404                           FO=LCC   BSS    0           PROCESS OC$LCC PSEUDO                       FAS       757
           404  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
           405  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
                          0100002451 +            WLGO   B6,B7       OUTPUT LOADER DIRECTIVE                     FAS       767
           407  7120000000 X                      WRITER F.LGO,RCL                                               FAS       768
           411  5150000762 +                      SA5    RADB                                                    FAS       769
                          0100002226 +            RJ     POL                                                     FAS       770
           412  0400000270 +                      EQ     FASRTN                                                  FAS       771
  
  
  
  
           413                           FO=LOO   BSS    0           TURN ON / OFF OBJECT LISTING                FAS       773
           413  43652                             MX6    -PB.BIASL                                               FAS       774
                     21514                        AX5    PB.BIASP                                                FAS       775
                          15656                   BX6    -X6*X5                                                  FAS       776
           414  5160000000 X                      SA6    WO.LOO      (WO.LOO) = BIAS [INSTRUCTION]               FAS       777
                          0400000270 +            EQ     FASRTN                                                  FAS       778
  
  
  
  
           415                           FO=NLST  BSS    0           PROCESS OC$NLST PSEUDO                      FAS       780
           415  0100001767 +                      RJ     KNG         COMPILE NAMELIST GROUP DEFINITIONS          FAS       781
           416  0100002226 +                      RJ     POL         PRINT NAMELIST TABLE                        FAS       782
           417  76600                             SHRINK T=NLST,0                                                FAS       783
           420  0400000270 +                      EQ     FASRTN                                                  FAS       784
  
  
  
  
           421                           FO=USE   BSS    0           PROCESS OC$USE PSEUDO                       FAS       786
           421  10755                             BX7    X5                                                      FAS       787
                     0100002240 +                 RJ     PUSE        GO SWITCH  ORG  AND  PARCEL                 FAS       788
           422  0100001421 +                      RJ     DTX         DUMP TEXT                                   FAS       789
           423  0100002226 +                      RJ     POL         PRINT OBJECT LISTING                        FAS       790
           424  0400000270 +                      EQ     FASRTN                                                  FAS       791
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    20
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=TRAC 
  
           425                           FO=TRAC  BSS    0           PROCESS OC$TRAC PSEUDO                      FAS       793
           425  5110000000 X                      SA1    IDENT       ROUTINE NAME IN  0L  FORMAT                 FAS       794
                          0100000000 X            CALL   SFN         SPACE FILL NAME                             FAS       795
           426  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
           427  22014                             LX0    X4,B1       DOUBLE ORDINAL                              FAS       799
                     5130000000 X                 SA3    T.SYM                                                   FAS       800
                               36004              IX0    X0+X4       =   3 * ORDINAL                             FAS       801
           430  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
           431  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
           432  0100002435 +                      RJ     STX         STORE TEXT TABLE ENTRY (TRACE.)             FAS       810
           433  0100001454 +                      RJ     FBP         PRINT  *  NAME  TRACE.*                     FAS       811
           434  7110001777                        =X1    1777B                                                   FAS       812
                          20160                   LX1    48                                                      FAS       813
                               43200              MX2    0           NO RELOCATION                               FAS       814
           435  0100002435 +                      RJ     STX         STORE TEXT TABLE  ENTRY (TEMPA0.)           FAS       815
           436  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
           437                           FO=END   BSS    0                                                       FAS       841
           437  0100002226 +                      RJ     POL         PRINT * END   PROGNAM*                      FAS       842
           440  5110000000 X                      SA1    FV.LGO                                                  FAS       843
                          0301000221 +            ZR     X1,EXIT.    IF NO BINARY                                FAS       844
           441  5140000000 X                      SA4    T.SUB                                                   FAS       845
                          7170000000 X            =X7    BN=SUB                                                  FAS       846
           442  0100002110 +                      RJ     OSB         OUTPUT *SUB* BLOCK                          FAS       847
           443  5140000000 X                      SA4    T.SUB0                                                  FAS       848
                          7170000000 X            =X7    BN=SUB0                                                 FAS       849
           444  0100002110 +                      RJ     OSB         OUTPUT *SUB0* BLOCK                         FAS       850
           445  0100001421 +                      RJ     DTX         DUMP/RESET TEXT TABLE                       FAS       851
           446  0100001326 +                      RJ     DLF         FLUSH LINK AND FILL TABLES                  FAS       852
           447  0100001200 +                      RJ     DFD         DUMP 5600/5700 TABLES                       FAS       853
           450  5130000000 X                      SA3    MOD                                                     FAS       854
                          20362                   SBIT   X3,MO.PROP                                              FC5A231   135
           451  0323000453 +                      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
           453  7120000000 X             END.50   WRITER F.LGO                                                   FAS       860
           455  0400000221 +                      EQ     EXIT.                                                   FAS       861
                                                                                                                 FAS       862
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    21
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=END
  
                                        *         OUTPUT ERRORS BINARY IF FATAL ERRORS.                          FAS       863
                                                                                                                 FAS       864
           456                           END.ERR  BSS    0           ENTRY FOR FATAL ERRORS IN COMPILATION       FAS       865
           456  0100002200 +                      RJ     PIT         PUMP  OUT IDNT (77) TABLE                   FAS       866
           457  6160002465 +                      WLGO   BT.ERR,3    ...FOLLOWED BY ERRORS BINARY                FAS       868
           461  0400000453 +                      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/05. 20.00.32.      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
           462  0400400462 +             RAD      SUBR               ENTRY/EXIT...                               FAS       886
           463  43600                             MX6    0                                                       FAS       887
                     5160000177 +                 SA6    BCI                                                     FAS       888
           464  7170000003                        SX7    3                                                       FAS       889
                          5170000202 +            SA7    PARCEL                                                  FAS       890
           465  0100001421 +                      RJ     DTX         INITIALIZE TABLE                            FAS       891
           466  7170000014                        SX7    PB.BIASP                                                FAS       892
                          43652                   MX6    -PB.BIASL                                               FAS       893
           467  5170002356 +                      SA7    RELPOS                                                  FAS       894
                          5160002355 +            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
           470                           RADRTN   BSSENT 0                                                       FAS       902
           470  5120000761 +                      SA2    RADA                                                    FAS       903
                          43700                   MX7    0                                                       FAS       904
           471  5170000206 +                      SA7    TAGSUB0     CLEAR SUB0 TAG                              FAS       905
                          0312000512 +            NZ     X2,RAD20    IF READING PACKED INSTRUCTION               FAS       906
           472  5110000766 +                      SA1    RADF                                                    FC50264    23
                          0301000500 +            ZR     X1,RAD10    IF NO SB0 FILL NEEDED                       FC50264    24
           473  7261777776                        SX6    X1-1                                                    FC50264    25
                          54610                   SA6    A1          DECREMENT                                   FC50264    26
           474  5150000764 +                      SA5    RADD        SB0+0                                       FC50264    27
                          0316000476 +            NZ     X6,RAD5     IF SB0+0                                    FC50264    28
           475  5150000765 +                      SA5    RADE        SB0+LINE/SEQ NO.                            FC50264    29
                                                                                                                 FC50264    30
           476  10755                    RAD5     BX7    X5                                                      FC50264    31
                     5170000211 +                 SA7    OL=PB                                                   FC50264    32
           477  5170000762 +                      SA7    RADB                                                    FC50264    33
                          0400000510 +            EQ     RAD15                                                   FC50264    34
                                                                                                                 FC50264    35
           500  0100002357 +             RAD10    RJ     RNI         READ NEXT INSTRUCTION                       FC50264    36
                                                                                                                 FAS       908
                                         .T       IFEQ   TEST,ON,1   IF TEST MODE                                FAS       909
           501  0305400501 +                      ZR     X5,"BLOWUP" IF TABLE EXHAUSTED                          FAS       910
                          5110000177 +            SA1    BCI                                                     FAS       911
           502  0321000510 +                      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/05. 20.00.32.      PAGE    23
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
                                        *         BEFORE PROCESSING.                                             FAS       915
                                                                                                                 FAS       916
                                         .T       IFEQ   TEST,ON                                                 FAS       917
                          5120000000 X            SA2    CO.OPT                                                  FAS       918
           503  0302400503 +                      ZR     X2,"BLOWUP" QCG SHOULD NOT HAVE CCG TYPE INSTRUCTIONS   FAS       919
                                         .T       ENDIF                                                          FAS       920
                          43060                   MX0    -PB.GHIJL                                               FAS       921
                               20514              LX5    PB.GHIJL                                                FAS       922
           504  15050                             BX0    -X0*X5      GHIJ[INSTRUCTION]                           FAS       923
                     7260777751                   SX6    X0-I.ECI                                                FAS       924
                               20560              LX5    -PB.GHIJL                                               FAS       925
           505  0306000514 +                      ZR     X6,RAD30    IF I.ECI INSTRUCTION                        FAS       926
                          26625                   UX6    B2,X5                                                   FAS       927
           506  0720000470 +                      MI     B2,RADRTN   IF CCG PSEUDO - IGNORE                      FAS       928
                          0100000000 X            CALL   CII         CONVERT INSTRUCTION                         FAS       929
           507  0400000514 +                      EQ     RAD30                                                   FAS       930
                                                                                                                 FAS       931
           510  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
           511  0317000514 +                      NZ     X7,RAD30    IF NOT PACKED INSTRUCTION                   FAS       936
                          11235                   BX2    X3*X5                                                   FAS       937
           512  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
           513  5170000761 +                      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
           514  5120000202 +             RAD30    SA2    PARCEL                                                  FAS       947
                          10755                   BX7    X5          (OL=PB) = INSTRUCTION ACTUALLY ASSEMBLED    FAS       948
                               43014              MX0    PB.GHIJL                                                FAS       949
           515  5170000762 +                      SA7    RADB        ** TEMP **                                  FAS       950
                          5170000211 +            SA7    OL=PB                                                   FAS       951
           516  11305                             BX3    X0*X5                                                   FAS       952
                     43672                        MX6    -2          X6 = -3                                     FAS       953
                          63220                   SB2    X2                                                      FAS       954
           517  6232777775                        SB3    X2-2                                                    FAS       955
                          20306                   LX3    PB.GHL                                                  FAS       956
                               73130              SX1    X3          X1 = GH                                     FAS       957
           520  0301000564 +                      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
           521  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/05. 20.00.32.      PAGE    24
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
           522  11743                             BX7    X4*X3       X7 = + LONG, 0 SHORT                        FAS       972
                     5170000763 +                 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
           523  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
           524  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
           525  0100000767 +             RAD40    RJ     BNW         FORCE UPPER                                 FAS       987
           526  5110000763 +                      SA1    RADC                                                    FAS       988
                          0311000535 +            NZ     X1,RAD70    IF NOT A SHORT INSTRUCTION                  FAS       989
                                                                                                                 FAS       990
                                                                                                                 FAS       991
                                        **        MERGE 15-BIT INSTRUCTION INTO (BINWORD).                       FAS       992
                                                                                                                 FAS       993
           527  77721                             SX7    B2-B1                                                   FAS       994
                     76120                        SX1    B2                                                      FAS       995
                          5170000202 +            SA7    PARCEL                                                  FAS       996
           530  5120000055 +                      SA2    BINWORD                                                 FAS       997
                          6150000017              SB5    15          LEN = 15                                    FAS       998
           531  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
           532  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
           533                           RADOL1   BSSENT 0                                                       FAS      1008
                                        *         EQ     RADRTN      PLUGGED IF NOT LO=O                         FAS      1009
           533  10166                             BX1    X6                                                      FAS      1010
                     66430                        SB4    B3          INSTRUCTION SHIFT COUNT                     FAS      1011
                          0100000000 X            CALL   VFD         CONVERT AND FORMAT INSTRUCTION              FC5A171A  349
           534  5130002470 +                      SA3    =10H                                                    FAS      1013
                          0400000560 +            EQ     RAD90                                                   FAS      1014
                                                                                                                 FAS      1015
                                                                                                                 FAS      1016
                                        **        GET RELOCATION FOR 30-BIT INST.                                FAS      1017
                                                                                                                 FAS      1018
                                                                                                                 FAS      1019
           535  7172777775               RAD70    SX7    B2-2                                                    FAS      1020
                          43060                   MX0    -PB.H2L                                                 FAS      1021
           536  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
           537  5140000000 X                      SA4    T.SYM                                                   FAS      1026
                          0303000550 +            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/05. 20.00.32.      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
           540  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
           541  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
           542  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
           543  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
           544  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
           545  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
           546  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
           547  20514                             LX5    PB.BIASP                                                FAS      1065
           550  0100002262 +             RAD80    RJ     REL                                                     FAS      1066
           551  5110000055 +                      SA1    BINWORD                                                 FAS      1067
                          5120000056 +            SA2    BINREL                                                  FAS      1068
           552  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
           553                           RADOL2   BSSENT 0                                                       FAS      1075
                                        *         EQ     RADRTN      PLUGGED IF NOT LO=O                         FAS      1076
                                                                                                                 FAS      1077
           553  6150000036               RAD85    SB5    30          LEN = 30                                    FAS      1078
                          66435                   SB4    B3+B5       INSTRUCTION SHIFT COUNT + LEN               FAS      1079
           554  0100000000 X                      CALL   VFD                                                     FC5A171A  350
           555  76270                             SX2    B7          (X2) = RELOC INFO                           FAS      1081
                     5130002470 +                 SA3    =10H                                                    FAS      1082
                               67321              SB3    B2-B1       = (PARCEL) - 1                              FAS      1083
           556  43071                             MX0    -3                                                      FAS      1084
                     23132                        AX1    X2,B3                                                   FAS      1085
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    26
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
                          15010                   BX0    -X0*X1      ISOLATE THIS RELOC VALUE                    FAS      1086
           557  0300000560 +                      ZR     X0,RAD90    IF NO RELOCATION                            FAS      1087
                          5130002471 +            SA3    =10H+                                                   FAS      1088
           560  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
           561  54671                             =A6    A7+1        (LINEBUF+3) = RELOCATION FIELD              FAS      1092
                     5150000211 +                 SA5    OL=PB                                                   FAS      1093
           562  0100002226 +                      RJ     POL         PRINT OBJECT LIST                           FAS      1094
           563  0400000470 +                      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
           564                           RAD=PSI  BSS    0                                                       FAS      1108
           564  20306                             LX3    PB.GHL                                                  FAS      1109
                     63430                        SB4    X3          IJ                                          FAS      1110
                          14733                   =X7    -X3                                                     FAS      1111
           565  5170000763 +                      SA7    RADC        INDICATES PSEUDO INST                       FAS      1112
                          15550                   BX5    -X0*X5      MASK OFF GHIJ FROM INSTRUCTION              FAS      1113
           566  0244000132 +                      JP     B4+OCPSUD   JUMP TO I.PSUEDO INSTRUCTION PROCESSOR      FAS      1114
  
  
  
  
           567                           FI=BCI   BSS    0           BEGIN CCG TYPE INSTRUCTIONS                 FAS      1116
           567  43601                             MX6    1                                                       FAS      1117
                     5160000177 +                 SA6    BCI         (BCI) = 1S59                                FAS      1118
           570  0400000470 +                      EQ     RADRTN                                                  FAS      1119
  
  
  
  
           571                           FI=DATA  BSS    0           READ AND PROCESS *DATA* INFORMATION         FAS      1121
                                                                                                                 FAS      1122
                                        *         FLUSH PARTIAL WORD AND SAVE ORG.                               FAS      1123
                                                                                                                 FAS      1124
           571  0100000767 +                      RJ     BNW         BEGIN NEW WORD                              FAS      1125
           572  5110000201 +                      SA1    ORG                                                     FAS      1126
                          10611                   BX6    X1                                                      FAS      1127
           573  5160000607 +                      SA6    ORGD                                                    FAS      1128
                          76600                   SHRINK T=DATS,0                                                FAS      1129
                          20560                   LX5    -PB.BIASP                                               FAS      1130
                               43052              MX0    -PB.BIASL                                               FAS      1131
           575  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/05. 20.00.32.      PAGE    27
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=DATA 
  
           577  63610                             SB6    X1          (T.DATS)                                    FAS      1134
                     0100002365 +                 RJ     RMI         READ MULTIPLE PB WORDS                      FAS      1135
           600  0100002226 +                      RJ     POL         PRINT OBJECT LIST                           FAS      1136
           601  0100001055 +                      RJ     DDS         DUMP T.DATS                                 FAS      1137
           602  5110000607 +                      SA1    ORGD                                                    FAS      1138
                          7170000003              SX7    3                                                       FAS      1139
           603  76600                             SHRINK T=DATS,0                                                FAS      1140
                               10611              BX6    X1                                                      FAS      1141
           604  5170000202 +                      SA7    PARCEL      START OF NEW WORD                           FAS      1142
                          5160000201 +            SA6    ORG         RESTORE ORG                                 FAS      1143
           605  0100001421 +                      RJ     DTX         INITIALIZE TEXT TABLE                       FAS      1144
           606  0400000470 +                      EQ     RADRTN                                                  FAS      1145
                                                                                                                 FAS      1146
           607                     1     ORGD     BSS    1                                                       FAS      1147
  
  
  
  
           610                           FI=ECI   BSS    0           END CCG TYPE INSTRUCTIONS                   FAS      1149
           610  43600                             MX6    0                                                       FAS      1150
                     5160000177 +                 SA6    BCI         (BCI) = 0                                   FAS      1151
           611  0400000470 +                      EQ     RADRTN                                                  FAS      1152
  
  
  
  
           612                           FI=BSS   BSS    0           PROCESS I.BSS INSTRUCTION                   FAS      1154
           612  0100002253 +                      RJ     RBS         RELOCATE  BSS  PSEUDO INSTRUCTION           FAS      1155
           613  0100001433 +                      RJ     ESL         ENTER STMT LABEL IN 57 TABLE                FAS      1156
           614  0400000470 +                      EQ     RADRTN                                                  FAS      1157
  
  
  
  
           615                           FI=BOS   BSS    0           PROCESS I.BOS INSTRUCTION                   FAS      1159
                                         .T       IFEQ   TEST,ON                                                 FAS      1160
           615  5120000000 X                      SA2    FI=BRLI                                                 FAS      1161
                          43152                   MX1    -PB.BIASL                                               FAS      1162
                               20560              LX5    -PB.BIASP                                               FAS      1163
           616  15651                             BX6    -X1*X5      (LINES) = NEW LINE NUMBER                   FAS      1164
                     37262                        IX2    X6-X2                                                   FAS      1165
                          5160000000 X            SA6    LINES                                                   FAS      1166
           617  20514                             LX5    PB.BIASP                                                FAS      1167
                     0312000621 +                 NZ     X2,BOS.1    IF NOT AT BREAKPOINT LINE                   FAS      1168
           620  0100000000 X             BRLI3    BREAK                                                          FAS      1169
           621                           BOS.1    BSS                                                            FAS      1170
                                         .T       ENDIF                                                          FAS      1171
                                                                                                                 FAS      1172
           621  0100001047 +                      RJ     CLE         CREATE LINE TABLE ENTRY                     FAS      1173
           622  0100002226 +                      RJ     POL         PRINT * LINE    NNN*                        FAS      1174
           623  0400000470 +                      EQ     RADRTN                                                  FAS      1175
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    28
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=CPL
  
           624                           FI=CPL   BSS    0           *CPL.* TABLE ORDINAL                        FAS      1177
           624  0100000767 +                      RJ     BNW         FORCE UPPER                                 FAS      1178
           625  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
           626  11362                             BX3    X6*X2       PFXI = PFX[TAGI]                            FAS      1183
                     20536                        LX5    PB.TAGP                                                 FAS      1184
                          0313400626 +            NZ     X3,"BLOWUP" IF PFXI .NE. K=SYM                          FAS      1185
                                   0              ERRNZ  K=SYM                                                   FAS      1186
           627  5110000000 X                      SA1    T.SYM                                                   FAS      1187
                          63711                   =B7    X1+WB.W                                                 FAS      1188
                               22012              LX0    X2,B1                                                   FAS      1189
           630  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
           631  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
           632  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
           633  0331400633 +                      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
                               20336              LX3    30                                                      FAS      1206
           634  43601                             MX6    1                                                       FAS      1207
                     12113                        BX1    X1+X3                                                   FAS      1208
                          12116                   BX1    X1+X6       ADD IN SIGN BIT                             FAS      1209
                               76200              =X2    0           INDICATE NO RELOCATION                      FAS      1210
           635  10011                             BX0    X1          SAVE (X0) = (X1)                            FAS      1211
                     0100002435 +                 RJ     STX         STORE INTO TEXT                             FAS      1212
           636  0100001454 +                      RJ     FBP         FORMAT BINARY DISPLAY CODE AND PRINT        FAS      1213
           637  0400000470 +                      EQ     RADRTN                                                  FAS      1214
  
  
  
  
           640                           FI=EMI   BSS    0           END OF QUICK MODE CODE, EXIT RAD            FAS      1216
           640  0100000767 +                      RJ     BNW         STORE LAST WORD INTO TEXT TABLE             FAS      1217
           641  0400000462 +                      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/05. 20.00.32.      PAGE    29
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=JPI
  
           642                           FI=JPI   BSS    0           PROCESS  I.JPI PSEUDO                       FAS      1225
                                                  LX5    -PB.BJRP                                                FAS      1226
           642  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
           643  36554                             IX5    X5+X4                                                   FAS      1232
                     7120000200                   SX2    200B                                                    FAS      1233
           644  6133000002                        SB3    B3+2        WORTH TWO PARCELS                           FAS      1234
                          0400000715 +            EQ     UJP.10                                                  FAS      1235
  
  
  
  
           645                           FI=LOO   BSS    0           TURN ON /OFF OBJECT LISTING                 FAS      1237
           645  43652                             MX6    -PB.BIASL                                               FAS      1238
                     21514                        AX5    PB.BIASP                                                FAS      1239
                          15656                   BX6    -X6*X5                                                  FAS      1240
           646  5160000000 X                      SA6    WO.LOO      (WO.LOO) = BIAS [INSTRUCTION]               FAS      1241
                          0400000470 +            EQ     RADRTN                                                  FAS      1242
  
  
  
  
           647                           FI=OTR   BSS    0           PROCESS  I.OTR PSEUDO                       FAS      1244
           647  7120006102                        SX2    6102B                                                   FAS      1245
                          20260                   LX2    -PB.GHIJL                                               FAS      1246
                               12552              BX5    X5+X2       REPLACE GHIJ WITH OPCODE EQUIVALENT         FAS      1247
           650  22705                             LX7    X5                                                      FAS      1248
                     76610                        =X6    B1                                                      FAS      1249
                          5160000763 +            SA6    RADC        CHANGE INDICATOR FROM PSEUDO TO LONG        FAS      1250
           651  5170000211 +                      SA7    OL=PB       SET MODIFIED INSTRUCTION                    FAS      1251
                          43014                   MX0    PB.GHIJL                                                FAS      1252
                               15150              BX1    -X0*X5                                                  FAS      1253
           652  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
           653  0313000525 +                      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
           654  5120000000 X                      SA2    T.SYM                                                   FAS      1260
                          36627                   IX6    X2+X7                                                   FAS      1261
           655  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
           656  11105                             BX1    X0*X5                                                   FAS      1266
                     20314                        LX3    PB.BIASP                                                FAS      1267
                          36513                   IX5    X1+X3                                                   FAS      1268
                               10655              BX6    X5                                                      FAS      1269
           657  5160000211 +                      SA6    OL=PB                                                   FAS      1270
                          0400000525 +            EQ     RAD40       PROCESS LIKE A LONG INSTRUCTION             FAS      1271
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    30
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=RJ3
  
           660                           FI=RJ3   BSS    0           PROCESS  I.RJ3 PSEUDO                       FAS      1273
           660  7120000100                        SX2    100B                                                    FAS      1274
                          6133000002              SB3    B3+2        WORTH TWO PARCELS                           FAS      1275
           661  0400000715 +                      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
           662                           FI=LD0   BSS    0           LOAD INSTRUCTION FOR SUB0                   FAS      1278
           662  7120001400                        =X2    1400B       LCM LOAD INSTRUCTION                        FAS      1279
           663  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
           664  12102                             BX1    X0+X2       (014IJ/ 015IJ)                              FAS      1284
                     7150053000                   =X5    53000B                                                  FAS      1285
                               20003              LX0    3                                                       FAS      1286
           665  12550                             BX5    X5+X0       (53IJ0)                                     FAS      1287
                     0100001017 +                 RJ     BSZ         MAKE AN SUB0 ENTRY                          FAS      1288
           666  20555                             LX5    -15                                                     FAS      1289
                     43600                        MX6    0                                                       FAS      1290
                          22705                   LX7    X5          (OL=PB) = ACTUAL INSTRUCTION                FAS      1291
           667  5160000763 +                      SA6    RADC        INDICATE SHORT INSTRUCTION                  FAS      1292
                          6133000003              =B3    B3+3        THIS INSTRUCTION TAKES 15 BITS              FAS      1293
           670  5170000211 +                      SA7    OL=PB                                                   FAS      1294
                          0400000525 +            EQ     RAD40       PROCESS AS 15 BIT INSTRUCTION               FAS      1295
  
  
  
  
           671                           FI=ST0   BSS    0                                                       FAS      1297
           671  7120001500                        =X2    1500B       LCM STORE INSTRUCTION                       FAS      1298
                          0400000663 +            EQ     LD0.10                                                  FAS      1299
  
  
  
  
           672                           FI=SB0I  BSS    0           OUTPUT A SUB0 INDEX WORD                    FAS      1301
           672  6140000000 X                      SB4    BN=SUB0                                                 FAS      1302
                          6160000022              SB6    FP.SUB0P                                                FAS      1303
           673  0400000675 +                      EQ     SUBI.10                                                 FAS      1304
                                         #DAL     ENDIF                                                          FC5A171A  357
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    31
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=SUBI 
  
           674                           FI=SUBI  BSS    0           OUTPUT A SUBI WORD                          FAS      1306
           674  6140000000 X                      SB4    BN=SUB                                                  FAS      1307
                          6160000044              SB6    FP.SUBP                                                 FAS      1308
           675                           SUBI.10  BSS    0                                                       FAS      1309
           675  0100000767 +                      RJ     BNW         FORCE UPPER                                 FAS      1310
           676  20514                             HX5    PB.TAG                                                  FAS      1311
                     21552                        AX5    -PB.TAGL    TAGI = TAG[INSTRUCTION]                     FAS      1312
                                         .T       IFEQ   TEST,ON,1                                               FAS      1313
                          0335400676 +            MI     X5,"BLOWUP" IF TAGI .LT. 0                              FAS      1314
           677  5120000000 X                      SA2    T.SYM                                                   FAS      1315
                          22015                   LX0    X5,B1                                                   FAS      1316
                               36050              IX0    X5+X0       STIND = 3 * TAGI                            FAS      1317
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1318
           700  63721                             =B7    X2+WB.W                                                 FAS      1319
                     53107                        SA1    X0+B7       WBI = T.SYM(STIND) + WB.W                   FAS      1320
                          43063                   MX0    -WB.FPNOL                                               FAS      1321
                               21141              AX1    WB.FPNOP                                                FAS      1322
           701  15110                             BX1    -X0*X1      FPNOI = FPNO[WBI]                           FAS      1323
                     6271777776                   SB7    X1-1        FPNOI = FPNOI - 1                           FAS      1324
                                  11              ERRMI  18-WB.FPNOL                                             FAS      1325
           702  5130000000 X                      SA3    T.FPO                                                   FAS      1326
                          53237                   SA2    X3+B7       FPOI = T.FPO(FPNOI)                         FAS      1327
                               23262              AX2    B6                                                      FAS      1328
           703  43056                             MX0    -FP.SUBL                                                FC50252    30
                     15220                        BX2    -X0*X2      EXTRACT SUB FIELD                           FC50252    31
                                         .T       IFEQ   TEST,ON,1                                               FAS      1331
                          0332400703 +            MI     X2,"BLOWUP" IF SUBFWA .LT. 0                            FAS      1332
           704  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
           705  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
           706  0100002435 +                      RJ     STX         OUTPUT THE SUB INDEX WORD                   FAS      1340
           707  0100001454 +                      RJ     FBP         FORMAT BINARY AND PRINT                     FAS      1341
           710  0400000470 +                      EQ     RADRTN                                                  FAS      1342
  
  
  
  
           711                           FI=UJP   BSS    0           PROCESS  I.UJP PSEUDO                       FAS      1344
           711  5110000000 X                      SA1    S=ENTRY                                                 FC50730     8
                          10255                   BX2    X5                                                      FC50730     9
                               20214              HX2    PB.TAG                                                  FC50730    10
           712  21252                             AX2    -PB.TAGL    EXTRACT OPERAND ORDINAL                     FC50730    11
                     37112                        IX1    X1-X2                                                   FC50730    12
                          0311000714 +            NZ     X1,UJP.5    IF NOT MAIN ENTRY (OF SUBROUTINE)           FC50730    13
           713  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
           714  7120000400               UJP.5    SX2    400B        EQ CODE                                     FC50730    18
                          6133000002              SB3    B3+2        THIS INSTRUCTION IS WORTH TWO PARCELS       FAS      1346
                                                                                                                 FC50730    19
           715  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/05. 20.00.32.      PAGE    32
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=UJP
  
                          22605                   LX6    X5          (OL=PB) = MODIFIED INSTRUCTION              FAS      1349
           716  5160000211 +                      SA6    OL=PB                                                   FAS      1350
                          0100000767 +            RJ     BNW         FORCE UPPER IF NECESSARY                    FAS      1351
           717  0100002262 +                      RJ     REL         RELOCATE ADDRESS                            FAS      1352
           720  5120000056 +                      SA2    BINREL                                                  FAS      1353
                          5110000055 +            SA1    BINWORD                                                 FAS      1354
           721  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
           722  5160000214 +                      SA6    TEMP        SAVE (TEMP) = BINARY WORD                   FAS      1358
                          0100002435 +            RJ     STX         STORE IN TEXT TABLE, FORCE UPPER AFTER      FAS      1359
           723  5110000214 +                      SA1    TEMP                                                    FAS      1360
                          63300                   SB3    X0          RESTORE (B3)                                FAS      1361
                               64700              SB7    A0                                                      FAS      1362
           724  0400000553 +                      EQ     RAD85                                                   FAS      1363
  
  
  
  
           725                           FI=RJ6   BSS    0           PROCESS  RJ WITH TRACE PSEUDO INST          FAS      1365
           725  7120000100                        SX2    100B                                                    FAS      1366
                          43152                   MX1    -PB.BIASL                                               FAS      1367
                               20260              LX2    -PB.GHIJL                                               FAS      1368
           726  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
           727  11515                             BX5    X1*X5                                                   FAS      1373
                     20660                        LX6    -PB.BIASP                                               FC50264    37
                          5160000214 +            SA6    SAVETR      (SAVETR) = LINE NUMBER                      FAS      1374
           730  5170000211 +                      SA7    OL=PB                                                   FAS      1375
                          0100000767 +            RJ     BNW         BEGIN NEW WORD (FORCE UPPER)                FAS      1376
           731  0100002262 +                      RJ     REL         RELOCATE THE RJ                             FAS      1377
           732  5140000214 +                      SA4    SAVETR      LINE NUM                                    FAS      1378
                          5130000211 +            SA3    OL=PB                                                   FAS      1379
           733  7120007776                        SX2    7776B                                                   FC50264    38
                          37242                   IX2    X4-X2                                                   FC50264    39
                               43600              MX6    0           NO SPECIAL LINE/SEQUENCE PROCESSING         FC50264    40
           734  0332000736 +                      MI     X2,RJ6.10   IF LINE/SEQUENCE NUMBER .LT. 4095           FC50264    41
                          22604                   LX6    X4          INDICATE SPECIAL LINE/SEQUENCE PROCESSING   FC50264    42
           735  7140007777                        SX4    7777B       RESET TO FLAG NOT REALLY LINE NUMBER        FC50264    43
                                                                                                                 FC50264    44
           736  5160000214 +             RJ6.10   SA6    SAVETR                                                  FC50264    45
                          20414                   LX4    PB.BIASP                                                FC50264    46
                               76211              =X2    2           INDICATE LOWER PGM REL                      FC50264    47
           737  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
           740  12114                             BX1    X1+X4       ADD LINE NUM BACK IN TO BINARY              FAS      1384
                     10011                        BX0    X1                                                      FAS      1385
                          54730                   SA7    A3                                                      FAS      1386
           741  0100002435 +                      RJ     STX         STORE IN *TEXT* TABLE                       FAS      1387
           742  0100001454 +                      RJ     FBP         FORM BINARY AND PRINT                       FAS      1388
           743  5130000214 +                      SA3    SAVETR                                                  FC50264    48
                          0303000470 +            ZR     X3,RADRTN   IF NO LINE/SEQUENCE NUMBER TO PROCESS       FC50264    49
           744  5110000764 +                      SA1    RADD                                                    FC50264    50
                          20314                   LX3    PB.BIASP                                                FC50264    51
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    33
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=RJ6
  
                               12613              BX6    X1+X3                                                   FC50264    52
           745  5160000765 +                      SA6    RADE                                                    FC50264    53
                          76611                   =X6    2                                                       FC50264    54
           746  5160000766 +                      SA6    RADF        INDICATE FUNNY RNI                          FC50264    55
                          0400000470 +            EQ     RADRTN                                                  FAS      1389
  
  
  
  
           747                           FI=USE   BSS    0           PROCESS I.USE PSEUDO                        FAS      1391
           747  0100000767 +                      RJ     BNW         BEGIN NEW WORD                              FAS      1392
           750  0100001421 +                      RJ     DTX         DUMP TEXT.                                  FAS      1393
           751  10755                             BX7    X5                                                      FAS      1394
                     0100002240 +                 RJ     PUSE        GO SWITCH  ORG  AND  PARCEL                 FAS      1395
           752  0100001421 +                      RJ     DTX         INITIALIZE NEW  ORG,PARCNT IN TEXT          FAS      1396
           753  0100002226 +                      RJ     POL         PRINT OBJECT LISTING                        FAS      1397
           754  0400000470 +                      EQ     RADRTN                                                  FAS      1398
  
  
  
  
           755                           FI=ZERO  BSS    0           OUTPUT A ZERO WORD                          FAS      1400
           755  0100000767 +                      RJ     BNW         FORCE UPPER                                 FAS      1401
           756  43100                             MX1    0                                                       FAS      1402
                     13222                        BX2    0           INDICATE NO RELOCATION                      FAS      1403
                          0100002435 +            RJ     STX                                                     FAS      1404
           757  43000                             MX0    0                                                       FAS      1405
                     0100001454 +                 RJ     FBP         FORMAT BINARY AND PRINT                     FAS      1406
           760  0400000470 +                      EQ     RADRTN                                                  FAS      1407
                                                                                                                 FAS      1408
                                                                                                                 FAS      1409
           761                     1     RADA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      FAS      1410
           762                     1     RADB     BSS    1           STORAGE FOR READW INPUT                     FAS      1411
           763                     1     RADC     BSSENT 1           STORAGE FOR INSTRUCTION TYPE                FAS      1412
           764  61000000000000000000     RADD     VFD    12/6100B,48/0     SB0 TEMPLATE                          FC50264    56
           765                     1     RADE     BSS    1           SB0+LINE/SEQ NO.                            FC50264    57
           766                     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/05. 20.00.32.      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
           767  0400400767 +             BNW      SUBR                                                           FAS      1429
           770  0703000776 +                      GT     B3,B0,BNW8  IF NO NEED TO PAD                           FAS      1430
                          5130002472 +            SA3    =460006100046000B                                       FAS      1431
           771  6132777775                        SB3    B2-2                                                    FAS      1432
                          43717                   MX7    PB.INSTL                                                FAS      1433
                               77203              SX2    -B3         = 2 - (PARCEL)                              FAS      1434
           772  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
           773  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
           774  0100002435 +                      RJ     STX         STORE THE WORD INTO THE CURRENT TEXT TABLE  FAS      1442
           775  6120000003                        SB2    3           INDICATE EMPTY WORD NOW                     FAS      1443
           776  0100002371 +             BNW8     RJ     ROL         SET ORIGIN FOR OL                           FAS      1444
           777  0400000767 +                      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
          1000  0400401000 +             BST      SUBR   =           ENTRY/EXIT.                                 FAS      1463
          1001                           BST.EQ   BSSENT 0                                                       FAS      1464
          1001  67751                             SB7    B5-B1                                                   FAS      1465
                     5110000000 X                 SA1    T.FPI                                                   FAS      1466
                               53217              SA2    X1+B7       FPI = T.FPI(FPIND - 1)                      FAS      1467
          1002  5130000000 X                      SA3    T.SUB                                                   FAS      1468
                          63630                   SB6    X3                                                      FC5A219    11
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    35
        ASSEMBLER SUPPORTING ROUTINES                                 BST 
  
                               20230              LX2    -FP.SUBP                                                FAS      1470
          1003  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
          1004  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
          1005  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
          1006  7215777776                        SX1    X5-1        SHCNT = (-1,  14,  OR 29)                   FAS      1485
                          21173                   AX1    59          SIGN EXTEND SHCNT                           FAS      1486
                               76410              SX4    B1                                                      FAS      1487
          1007  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
          1010  5110000200 +                      SA1    DELAY                                                   FAS      1494
                          5130000201 +            SA3    ORG                                                     FAS      1495
          1011  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
          1012  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
          1013  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
          1014  5110000211 +                      SA1    OL=PB                                                   FAS      1511
                          43052                   MX0    -PB.BIASL                                               FAS      1512
                                                  LX3    SB.ORGP                                                 FAS      1513
                               12553              BX5    X5+X3                                                   FAS      1514
          1015  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
          1016  56667                             SA6    B6+B7       T.SUB(SUBIN) = (POS,BIASI,ORD)[SB.]         FC5A219    12
                     0400001000 +                 EQ     EXIT.                                                   FAS      1520
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1017  0400401017 +             BSZ      SUBR               ENTRY/EXIT.                                 FAS      1533
                                         #MD      IFNE   .DAL,0                                                  FC5A132   131
          1020  20614                             HX6    PB.TAG                                                  FAS      1534
                     21652                        AX6    -PB.TAGL    TAGI = TAG[ INSTRUCTION]                    FAS      1535
                          5160000206 +            SA6    TAGSUB0     (TAGSUB0) = TAGI                            FAS      1536
          1021  5120000000 X                      SA2    T.SYM                                                   FAS      1537
                          6242000001              SB4    X2+WB.W                                                 FAS      1538
          1022  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
          1023  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
          1024  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
          1025  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
          1026  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
          1027  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
          1030  0336401030 +                      MI     X6,"BLOWUP"                                             FAS      1566
                          7236775703              SX3    X6-2074B                                                FC51232     6
          1031  0333001032 +                      MI     X3,BSZ4     IF SHIFT COUNT LESS THAN 60                 FC51232     7
                          7266777703              SX6    X6-74B                                                  FC51232     8
                                                                                                                 FC51232     9
          1032  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
          1033  5130000201 +                      SA3    ORG                                                     FAS      1571
                          0322001035 +            PL     X2,BSZ10    IF CURRENT WORD NOT FULL                    FC50010    12
          1034  73331                             =X3    X3+1        SUBBING NEXT WORD                           FC50010    13
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    37
        ASSEMBLER SUPPORTING ROUTINES                                 BSZ 
  
                                                                                                                 FC50010    14
          1035  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
          1036  0400001017 +                      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
          1037  0400401037 +             CAB      SUBR   =           ENTRY/EXIT...                               FAS      1592
          1040  43066                             MX0    -6                                                      FAS      1593
                     76710                        SX7    B1                                                      FAS      1594
                                                                                                                 FAS      1595
          1041  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
          1042  20106                             LX1    6                                                       FAS      1600
                     15310                        BX3    -X0*X1      (B7) = OUTBIT                               FAS      1601
                          37113                   IX1    X1-X3                                                   FAS      1602
                               63730              SB7    X3                                                      FAS      1603
          1043  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
          1044  0311001041 +                      NZ     X1,CAB4     IF MORE FIELDS IN THIS SELECT WORD          FAS      1608
                          54110                   SA1    A1                                                      FAS      1609
                               15610              BX6    -X0*X1                                                  FAS      1610
          1045  0306001037 +                      ZR     X6,EXIT.    IF LAST WORD NOT FULL                       FAS      1611
                          54111                   SA1    A1+B1                                                   FAS      1612
          1046  0311001041 +                      NZ     X1,CAB4     IF NEW WORD NOT TERMINATOR                  FAS      1613
                          0400001037 +            EQ     EXIT.                                                   FAS      1614
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1047  0400401047 +             CLE      SUBR   =           ...ENTRY/EXIT...                            FAS      1656
          1050                           CLE.EQ   BSSENT 0                                                       FAS      1657
          1050  0100000767 +                      RJ     BNW         FORCE UPPER                                 FAS      1658
          1051  5110000201 +                      SA1    ORG                                                     FAS      1659
                          43652                   MX6    -PB.BIASL                                               FAS      1660
                               20560              LX5    -PB.BIASP                                               FAS      1661
          1052  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
          1053  5110000000 X                      ADDWD  T.LNT                                                   FAS      1667
          1054  0400001047 +                      EQ     EXIT.                                                   FAS      1668
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1055  0400401055 +             DDS      SUBR   0           ENTRY/EXIT.                                 FAS      1677
          1056  66400                             SB4    B0          IND = 0                                     FAS      1678
                     76640                        SHRINK T=PTXT,B4                                               FAS      1679
          1057  5160000000 X                      SHRINK T=PTXTR,X6                                              FAS      1680
                          5110000000 X            ADDWD  T.PTXT      INITIALIZE COUNT                            FC50809    14
          1061  5110000000 X                      ADDWD  T.PTXTR     INITIALIZE COUNT                            FC50809    15
                                                                                                                 FAS      1681
                                        *         PROCESS NEXT DATA GROUP.                                       FAS      1682
                                        *         (B4) = IND                                                     FAS      1683
                                                                                                                 FAS      1684
          1062  5110000000 X             DDS10    SA1    T.DATS                                                  FAS      1685
                          5120000000 X            SA2    T=DATS                                                  FAS      1686
          1063  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
          1064  0430001167 +                      ZR     B3,DDS90    IF TABLE EXHAUSTED                          FAS      1691
                                         .T       IFEQ   TEST,ON,1                                               FAS      1692
                          0730401064 +            MI     B3,"BLOWUP" IF IND .GT. TABLE LENGTH                    FAS      1693
          1065  20552                             LX5    -DA.BIASP                                               FAS      1694
                     15451                        BX4    -X1*X5      BIASI = BIAS[DAI]                           FAS      1695
                          20544                   LX5    DA.BIASP-DA.ORDP                                        FAS      1696
                               43254              MX2    -DA.ORDL                                                FAS      1697
          1066  15152                             BX1    -X2*X5      ORDI = ORD[DAI]                             FAS      1698
                                         .T       IFEQ   TEST,ON,3                                               FAS      1699
                     43056                        MX0    -PB.ORDL                                                FAS      1700
                          11601                   BX6    X0*X1       PFXI = PFX[ORDI]                            FAS      1701
          1067  0316401067 +                      NZ     X6,"BLOWUP" IF PFXI .NE. K=SYM                          FAS      1702
                                   0              ERRNZ  K=SYM                                                   FAS      1703
                          22211                   LX2    X1,B1                                                   FAS      1704
                               36112              IX1    X1+X2       STIND = 3 * ORDI                            FAS      1705
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1706
          1070  5120000000 X                      SA2    T.SYM                                                   FAS      1707
                          6272000002              =B7    X2+WC.W                                                 FAS      1708
          1071  53217                             SA2    X1+B7       WCI = T.SYM(STIND) + WC.W                   FAS      1709
                     43144                        MX1    -WC.RAL                                                 FAS      1710
                          43762                   MX7    -WC.RBL                                                 FAS      1711
                                                  LX2    -WC.RAP                                                 FAS      1712
                               15121              BX1    -X1*X2      RAI = RA[WCI]                               FAS      1713
          1072  20214                             LX2    WC.RAP-WC.RBP                                           FAS      1714
                     15727                        BX7    -X7*X2      RBI = RB[WCI]                               FAS      1715
                          21701                   AX7    1           BLKORD = RBI / 2                            FAS      1716
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    40
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                                   0              ERRNZ  2-Z=BLKS                                                FAS      1717
          1073  0307001074 +                      ZR     X7,DDS20    IF PROGRAM RELATIVE                         FAS      1718
                          73771                   SX7    X7+B1       BLKORD = BLKORD + 1                         FAS      1719
                                                                                                                 FC50809    16
          1074  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
          1075  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
          1076  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
          1077  0323001123 +                      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
          1100  7130000011                        CW     X3,X0       WDC = WDC / 10                              FAS      1744
                               73033              SX0    X3+B3       WDC = WDC + HEADWD                          FAS      1745
          1102  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
          1103  0470001166 +                      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
          1106  5110002473 +                      WX1    X4,X2       CONVERT RAI TO FWA AND BCPI                 FAS      1757
          1112  22312                             BC     X3,X2       BCPI = BCPI * 6                             FAS      1758
                                                  LX1    BT.FWAP                                                 FAS      1759
                               20344              LX3    BT.BCPP                                                 FAS      1760
          1113  12113                             BX1    X1+X3                                                   FAS      1761
                     12771                        BX7    X7+X1                                                   FAS      1762
                          54750                   SA7    A5          (DAI) =  (LEN,BCP,RP,RB,FWA) [BT.]          FAS      1763
          1114  5110000000 X                      SA1    T.PTXT                                                  FAS      1764
                          0305001151 +            ZR     X5,DDS80    IF NO REPLICATION                           FAS      1765
                                                                                                                 FAS      1766
                                        *         CHARACTER DATA WITH REPLICATION.                               FAS      1767
                                                                                                                 FAS      1768
          1115  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/05. 20.00.32.      PAGE    41
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                               15343              BX3    -X3*X4      CNTI = CNT[DBI]                             FAS      1773
          1116  76710                             SX7    B1                                                      FAS      1774
                                         .T       IFEQ   TEST,ON,2                                               FAS      1775
                     37137                        IX1    X3-X7                                                   FAS      1776
                          0331401116 +            MI     X1,"BLOWUP" IF CNTI .LE. 0                              FAS      1777
                                                                                                                 FAS      1778
          1117  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
                               22214              BC     X2,X4       INCI = INCI * 6                             FAS      1783
                          20230                   LX2    BT.RIPP                                                 FAS      1784
                               12732              BX7    X3+X2                                                   FAS      1785
          1121  54740                             SA7    A4          (DBI) = (INCI,CNTI)[BT.]                    FAS      1786
                     5110000000 X                 SA1    T.PTXTR                                                 FAS      1787
          1122  0400001151 +                      EQ     DDS80                                                   FAS      1788
                                                                                                                 FAS      1789
                                        *         NON CHARACTER DATA.                                            FAS      1790
                                        *         (B7) = WB.MAT                                                  FAS      1791
                                                                                                                 FAS      1792
          1123  63404                    DDS50    SB4    B4+X0       IND = IND + WCI                             FAS      1793
                     66443                        SB4    B4+B3       IND = IND + HEADWD                          FAS      1794
                          0470001062 +            ZR     B7,DDS10    IF NOT MATERIALIZED                         FC5A231   140
          1124  20573                             LX5    59                                                      FAS      1796
                     20730                        LX7    BT.RSP                                                  FAS      1797
                                         .T       IFEQ   TEST,ON,3                                               FAS      1798
                          10244                   BX2    X4                                                      FAS      1799
                               21230              AX2    24                                                      FC5A132   135
          1125  0312401125 +                      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
          1126  0336401126 +                      MI     X6,"BLOWUP" IF RAI .LT. 0                               FAS      1807
                          76310                   SX3    B1                                                      FAS      1808
                               20330              LX3    BT.RLXP                                                 FC5A132   138
          1127  12667                             BX6    X6+X7                                                   FAS      1810
                     21574                        AX5    -0          -0 MASK IF REPL                             FAS      1811
                          5160000201 +            SA6    ORG                                                     FAS      1812
          1130  36663                             IX6    X6+X3       BLKS = BLKS + 1                             FAS      1813
                     11756                        BX7    X5*X6                                                   FAS      1814
                          5170000026 +            SA7    BT.XREP+1   (BT.XREP+1) = ORG, IFF REPLICATION          FC5A132   139
          1131  0100001421 +                      RJ     DTX         INITIALIZE TEXT TABLE                       FAS      1816
          1132  0325001141 +                      PL     X5,DDS70    IF NO REPLICATION                           FAS      1817
                          54551                   SA5    A5+B1       DBI = DAI + 1                               FAS      1818
                               43152              MX1    -BT.KL                                                  FAS      1819
          1133  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
          1134  5130000026 +                      SA3    BT.XREP+1                                               FC5A132   142
                          20241                   LX2    BT.KP                                                   FAS      1824
                               20536              LX5    DB.INCP-DB.CNTP                                         FAS      1825
          1135  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
          1136  20155                             LX1    BT.CP                                                   FAS      1831
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1137  5140002474 +                      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
          1140  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
          1141  54551                    DDS70    SA5    A5+B1                                                   FAS      1845
                     13222                        BX2    0           INDICATE NO RELOCATION                      FAS      1846
                          7200777776              SX0    X0-1                                                    FAS      1847
          1142  22105                             LX1    X5                                                      FAS      1848
                     0100002435 +                 RJ     STX         OUTPUT A WORD                               FAS      1849
                                         .T       IFEQ   TEST,ON,1                                               FAS      1850
          1143  0330401143 +                      MI     X0,"BLOWUP"       IF WORD COUNT ILL                     FAS      1851
                          0310001141 +            NZ     X0,DDS70    IF MORE WORDS TO DO                         FAS      1852
                                                                                                                 FAS      1853
          1144  5110000026 +                      SA1    BT.XREP+1                                               FC5A132   146
                          0301001062 +            ZR     X1,DDS10    IF NO REPLICATION                           FAS      1855
          1145  0100001421 +                      RJ     DTX         FLUSH ANY PARTIAL TEXT TABLE                FAS      1856
          1146  6160000025 +                      WLGO   BT.XREP,BT.XREPL                                        FC5A132   147
          1150  0400001062 +                      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
          1151  63200                    DDS80    SB2    X0          REMEMBER (B2) = (X0)                        FAS      1864
                     66300                        =B3    0           INITIALIZE HEADER POINTER                   FC50809    17
                                                                                                                 FC50809    18
          1152  53213                    DDS81    SA2    X1+B3       FETCH CURRENT HEADER                        FC50809    19
                                                  SBIT   X2,DC.LINKP                                             FC50809    20
                     0322001154 +                 PL     X2,DDS82    IF NO CHAIN, THIS GROUP                     FC50809    21
                               20252              LX2    DC.LINKL+DC.LINKP-DC.PTRP                               FC50809    22
          1153  63320                             SB3    X2          EXTRACT POINTER TO NEXT HEADER              FC50809    23
                                   0              ERRNZ  18-DC.PTRL                                              FC50809    24
                     0400001152 +                 EQ     DDS81                                                   FC50809    25
                                                                                                                 FC50809    26
                                         DDS82    LX2    DC.LINKL+DC.LINKP                                       FC50809    27
          1154  36702                             IX7    X0+X2                                                   FC50809    28
                     7130007777                   SX3    BT=MXWC                                                 FC50809    29
                               37337              IX3    X3-X7                                                   FC50809    30
          1155  0323001161 +                      PL     X3,DDS83    IF ROOM IN GROUP FOR THIS ENTRY             FC50809    31
                          5031000000 X            SA3    A1+N.TABLE                                              FC50809    32
          1156  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
          1157  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
          1160  76020                             SX0    B2          RESTORE COUNT                               FC50809    40
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    43
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                     0400001162 +                 EQ     DDS84                                                   FC50809    41
                                                                                                                 FC50809    42
          1161  54720                    DDS83    SA7    A2          UPDATE HEADER                               FC50809    43
                                                                                                                 FC50809    44
          1162  0100000000 X             DDS84    ALLOC  A1,X0                                                   FC50809    45
          1163  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
          1164  76120                             MOVE   B2,X2,X3    COPY WCI WORDS FROM T.DATS TO TABLE         FAS      1869
          1165  76020                             SX0    B2          RESTORE (X0)                                FAS      1870
                                                                                                                 FAS      1871
          1166  63404                    DDS85    SB4    B4+X0       IND = IND + WCI                             FAS      1872
                     0400001062 +                 EQ     DDS10                                                   FAS      1873
                                                                                                                 FAS      1874
                                        *         FLUSH *PTEXT* AND *PTEXTR* TABLES.                             FAS      1875
                                                                                                                 FAS      1876
          1167  0100001421 +             DDS90    RJ     DTX         FLUSH ANY PARTIAL TEXT                      FAS      1877
          1170  43600                             MX6    0                                                       FC50809    46
                     5110000000 X                 ADDWD  T.PTXT      ADD DUMMY HEADER TO FLAG EOT                FC50809    47
          1172  5150000000 X                      SA5    T.PTXT                                                  FAS      1879
                          0100002140 +            RJ     OTC         OUTPUT TABLE TO BINARY                      FC50809    48
          1173  76600                             SHRINK T=PTXT,0                                                FC50809    49
                               43600              MX6    0                                                       FC50809    50
          1174  5110000000 X                      ADDWD  T.PTXTR     ADD DUMMY HEADER TO FLAG EOT                FC50809    51
          1175  5150000000 X                      SA5    T.PTXTR                                                 FC50809    52
                          0100002140 +            RJ     OTC         OUTPUT TABLE TO BINARY                      FC50809    53
          1176  76600                             SHRINK T=PTXTR,0                                               FC50809    54
          1177  0400001055 +                      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/05. 20.00.32.      PAGE    44
        ASSEMBLER SUPPORTING ROUTINES                                 DFD 
  
                                        *         CALLS  OTB,STX,ORD,FST                                         FAS      1912
                                                                                                                 FAS      1913
                                                                                                                 FAS      1914
          1200  0400401200 +             DFD      SUBR   0                                                       FAS      1915
                                                                                                                 FAS      1916
                                                                                                                 FAS      1917
                                        **        PROCESS 5700 (LINE NUMBER) TABLE.                              FAS      1918
                                                                                                                 FAS      1919
          1201  5110000000 X                      SA1    WO.57                                                   FAS      1920
                          5150000000 X            SA5    T.LNT                                                   FAS      1921
          1202  0301001204 +                      ZR     X1,DFD20    IF 5700 TABLE NOT REQUESTED                 FAS      1922
                          5100000062 +            SA0    BT.LSTN                                                 FAS      1923
          1203  43000                             MX0    0           NO BT.LTB BIT FOR THIS                      FAS      1924
                     0100002126 +                 RJ     OTB         OUTPUT 5700 TABLE                           FAS      1925
                                                                                                                 FAS      1926
                                        *         OUTPUT 5600 (SYMBOL) TABLE.                                    FAS      1927
                                        *         FIRST, DUMP DIMENSION INFORMATION.                             FAS      1928
                                                                                                                 FAS      1929
          1204  5150000000 X             DFD20    SA5    WO.56                                                   FAS      1930
                          0305001200 +            ZR     X5,EXIT.    IF (5600) TABLE NOT REQUIRED                FAS      1931
          1205  5110000000 X                      SA1    S=SA1       SA1ORD = (S=SA1)                            FAS      1932
                          5120000000 X            SA2    T.SYM                                                   FAS      1933
          1206  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
          1207  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
          1210  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
          1212  12773                             BX7    X7+X3                                                   FAS      1949
                     20024                        LX0    BT.TYP                                                  FAS      1950
                          12650                   BX6    X5+X0                                                   FAS      1951
                               36667              IX6    X6+X7                                                   FAS      1952
          1213  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
          1214  0100002060 +                      RJ     ORD         COLLECT RUN-TIME DIM INFO IN SCRATCH TABLE  FAS      1957
          1215  5150000000 X                      SA5    T.SCR                                                   FAS      1958
                          5100000064 +            SA0    BT.LSYM                                                 FAS      1959
          1216  43000                             MX0    0           NO LTB BIT SET                              FAS      1960
                     0100002126 +                 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/05. 20.00.32.      PAGE    45
        ASSEMBLER SUPPORTING ROUTINES                                 DFD 
  
                                   0              ERRNZ  Z=SYM-BT=LSYML                                          FAS      1969
          1217  76600                             SHRINK T=SCR,0                                                 FAS      1970
          1220  5110000064 +                      SA1    BT.LSYM                                                 FAS      1971
                          5140000000 X            SA4    T=SYM                                                   FAS      1972
          1221  43201                             CLAS=  X2,BT,(DST)                                             FAS      1973
                          15612                   BX6    -X2*X1                                                  FAS      1974
                               54610              SA6    A1          DST[BT.LSYM] = 0                            FAS      1975
          1222  5110000000 X                      ALLOC  T.SCR,X4-Z=SYM                                          FAS      1976
          1224  0100001473 +                      RJ     FST         FORM SYMBOL TABLE                           FAS      1977
                                                                                                                 FAS      1978
                                        *         DUMP SYMBOL TABLE TO BINARY.                                   FAS      1979
                                                                                                                 FAS      1980
          1225  5150000000 X                      SA5    T.SCR                                                   FAS      1981
                          5100000064 +            SA0    BT.LSYM     (A0) -> HEADER WORD                         FAS      1982
          1226  43001                             MX0    1                                                       FAS      1983
                     20030                        LX0    1+BT.LTBP                                               FAS      1984
                          0100002126 +            RJ     OTB                                                     FAS      1985
          1227  0400001200 +                      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
          1230  0400401230 +             DIT      SUBR   0           ENTRY/EXIT...                               FAS      2004
          1231  0100002200 +                      RJ     PIT         PUMPS OUT IDNT TABLE                        FAS      2005
          1232  5130000000 X                      SA3    MOD                                                     FAS      2006
                          20363                   SBIT   X3,MO.BLKP                                              FC5A231   141
          1233  0333001234 +                      MI     X3,DIT10    IF BLOCK DATA                               FC5A231   142
                          0100001274 +            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
          1234  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
          1237  5130000000 X                      SA3    IDENT                                                   FAS      2018
                          5150000000 X            SA5    SUM.LBT                                                 FAS      2019
          1240  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/05. 20.00.32.      PAGE    46
        ASSEMBLER SUPPORTING ROUTINES                                 DIT 
  
                          5120000000 X            SA2    CO.DBPM                                                 FAS      2022
          1241  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
          1242  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
          1243  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
          1244  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
          1245  0637001254 +             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
          1246  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
          1247  0325001252 +                      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
          1250  0305001251 +                      ZR     X5,DIT40    IF DIVISION EXACT                           FAS      2059
                          76610                   =X6    1                                                       FAS      2060
                               36336              IX3    X3+X6       BLENI = BLENI + 1                           FAS      2061
          1251  43501                    DIT40    CLAS=  X5,BT,(TYP) POSITION ECS/LCM BIT                        FAS      2062
                          12335                   BX3    X3+X5                                                   FAS      2063
          1252  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
          1253  0400001245 +                      EQ     DIT20                                                   FAS      2067
                                                                                                                 FAS      2068
          1254  63610                    DIT60    WLGO   X1,B7       OUTPUT *PIDL* TABLE                         FAS      2069
          1255  5130000000 X                      SA3    MOD                                                     FAS      2070
                          13666                   BX6    0                                                       FAS      2071
                               20363              SBIT   X3,MO.BLKP                                              FAS      2072
          1256  5160000000 X                      SHRINK T=SCR,X6    REMOVE THE ALLOCATION                       FAS      2073
                          0333001230 +            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/05. 20.00.32.      PAGE    47
        ASSEMBLER SUPPORTING ROUTINES                                 DIT 
  
          1257  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
          1260  5110000000 X                      ALLOC  T.SCR,X0    ROOM TO BUILD THE *ENTR* TABLE              FAS      2081
          1261  5140000057 +                      SA4    BT.ENTR                                                 FAS      2082
                          63721                   =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE              FAS      2083
                               20244              LX2    BT.WCP                                                  FAS      2084
          1262  12642                             BX6    X4+X2                                                   FAS      2085
                     5130000000 X                 SA3    T.SYM                                                   FAS      2086
                               76010              =X0    1                                                       FAS      2087
          1263  5150000000 X                      SA5    T.ENT                                                   FAS      2088
                          6243000002              =B4    X3+WC.W     (B4) = FWA SYMTAB + WORD WC OFFSET          FAS      2089
          1264  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
          1265  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
          1266  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
          1267  12606                             BX6    X0+X6       INDICATE PROGRAM-RELATIVE ADDRESS           FAS      2108
                     54441                        =A4    A4+1                                                    FAS      2109
                          54671                   =A6    A7+1                                                    FAS      2110
          1270  0550001265 +                      NZ     B5,DIT70    IF MORE ENTRY POINTS                        FAS      2111
                                                                                                                 FAS      2112
                          63610                   WLGO   X1,B7                                                   FAS      2113
          1272  13666                             SHRINK T=SCR       REMOVE THE ALLOCATION                       FAS      2114
          1273  0400001230 +                      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/05. 20.00.32.      PAGE    48
        ASSEMBLER SUPPORTING ROUTINES                                 DLC 
  
                                        *         CALLS  ALLOC, WLF                                              FAS      2132
                                                                                                                 FAS      2133
                                                                                                                 FAS      2134
          1274  0400401274 +             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
          1275  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
          1276  5160000000 X                      SHRINK T=SCR,X6                                                FAS      2147
                          63570                   SB5    X7          CLEN = LEN(T.BLKS) / Z=BLKS                 FAS      2148
          1277  7207000007                        SX0    X7+1+BT.DBPML+BT.LIBL                                   FAS      2149
                          5110000000 X            ALLOC  T.SCR,X0    ALLOCATE ENOUGH WORDS FOR IT                FAS      2150
          1301  63610                             SB6    X1                                                      FAS      2151
                                                                                                                 FAS      2152
                     5120000023 +                 SA2    BT.LIB                                                  FAS      2153
                               10622              BX6    X2                                                      FAS      2154
          1302  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
          1303  5140000000 X                      SA4    USAVE                                                   FAS      2165
                          5150000000 X            SA5    SAVE                                                    FAS      2166
          1304  12645                             BX6    X4+X5                                                   FAS      2167
                     0306001315 +                 ZR     X6,DLC40    IF NO SAVE DECLARATIONS                     FAS      2168
                               54661              SA6    A6+B1       SPACE OVER (BT.CMN) SUB-HEADER              FAS      2169
          1305  64260                             SB2    A6          (B2) = FWA COMMON SEGMENT                   FAS      2170
                     0314001313 +                 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
          1306  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
          1307  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/05. 20.00.32.      PAGE    49
        ASSEMBLER SUPPORTING ROUTINES                                 DLC 
  
          1310  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
          1311  11602                             BX6    X0*X2       NAME = BNAM[CAI]                            FAS      2192
                     0324001312 +                 PL     X4,DLC28    IF NOT SAVE[CBI]                            FAS      2193
                               54661              SA6    A6+B1                                                   FAS      2194
          1312  0705001310 +             DLC28    GT     B5,DLC20    IF MORE BLOCKS TO EXAMINE                   FAS      2195
                                                                                                                 FAS      2196
          1313  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
          1314  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
          1315  5140000000 X             DLC40    SA4    CO.DBPM                                                 FAS      2206
                          0304001321 +            ZR     X4,DLC60    IF POST MORTEM DUMP NOT REQUESTED           FAS      2207
          1316  6120000004                        SB2    BT.DBPML                                                FAS      2208
                          5140000017 +            SA4    BT.DBPM                                                 FAS      2209
          1317  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
          1320  0702001317 +                      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
          1321  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
          1322  20244                             LX2    BT.WCP                                                  FAS      2222
                     20360                        LX3    BT.CNP                                                  FAS      2223
                          12723                   BX7    X2+X3                                                   FAS      2224
                               56760              SA7    B6                                                      FAS      2225
          1323  0100002451 +                      WLGO   B6,B7       WRITE LOADSET DIRECTIVES                    FAS      2226
          1324  76600                             SHRINK T=SCR,0                                                 FAS      2227
          1325  0400001274 +                      EQ     EXIT.                                                   FAS      2228
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1326  0400401326 +             DLF      SUBR   =           ENTRY/EXIT...                               FAS      2241
                                                                                                                 FAS      2242
                                        *         PROCESS *LINK* TABLE.                                          FAS      2243
                                                                                                                 FAS      2244
                                         SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                           FAS      2245
          1327  5130000000 X                      SA3    CO.SNAP                                                 FAS      2246
                          20313                   LX3    1RK                                                     FAS      2247
          1330  0323001332 +                      PL     X3,DLF10S   IF LINK TABLE SNAP NOT SELECTED             FAS      2248
          1331  0100000000 X                      DUMPT  LINK                                                    FAS      2249
          1332                           DLF10S   BSS    0                                                       FAS      2250
                                         SNAP=K   ENDIF                                                          FAS      2251
                                                                                                                 FAS      2252
          1332  74600                             SX6    A0                                                      FAS      2253
                     5160001420 +                 SA6    DLFA        PRESERVE A0                                 FAS      2254
          1333  5120000000 X                      SA2    T=LINK                                                  FAS      2255
                          5110000000 X            SA1    T.LINK                                                  FAS      2256
          1334  5130000000 X                      SA3    NREXT                                                   FAS      2257
                          36413                   IX4    X1+X3                                                   FAS      2258
                               37123              IX1    X2-X3       (X1) = LENGTH FOR SORT                      FAS      2259
          1335  0301001362 +                      ZR     X1,DLF60    IF NO EXTERNALS                             FAS      2260
                          0331401335 +            MI     X1,"BLOWUP" IF NREXT .LT. (T=LINK)                      FAS      2261
          1336  63740                             SB7    X4          (B7) = FWA FOR SORT                         FAS      2262
                     0100000000 X                 CALL   SST         SHELL SORT TABLE                            FAS      2263
                                                                                                                 FAS      2264
          1337  5110000000 X                      SA1    T.LINK                                                  FAS      2265
                          5120000000 X            SA2    T=LINK                                                  FAS      2266
          1340  5130000000 X                      SA3    T.SYM                                                   FAS      2267
                          5140000000 X            SA4    NREXT                                                   FAS      2268
          1341  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
          1342  53500                             SA5    X0                                                      FAS      2273
                     63410                        SB4    X1          (B4) = FWA PHYSICAL TABLE                   FAS      2274
                          6160000036              SB6    30                                                      FAS      2275
          1343  53610                             SA6    X1          PRESET STORE ADDR                           FAS      2276
                     43152                        MX1    WA.SYML                                                 FAS      2277
                          43036                   MX0    30                                                      FAS      2278
                               67501              SB5    -B1                                                     FAS      2279
          1344  67201                             SB2    -B1                                                     FAS      2280
                                                                                                                 FAS      2281
          1345  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
          1346  0435001351 +                      EQ     B3,B5,DLF30 IF SAME AS LAST EXT                         FAS      2286
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    51
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
                          54303                   SA3    B3+A0       FETCH EXT NAME                              FAS      2287
                               66530              SB5    B3                                                      FAS      2288
          1347  20636                             LX6    30                                                      FAS      2289
                     0420001350 +                 ZR     B2,DLF20    IF NO HANGING HALF-WORD                     FAS      2290
                               54661              SA6    A6+B1                                                   FAS      2291
          1350  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
          1351  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
          1352  0420001354 +                      ZR     B2,DLF40    IF LOWER BYTE                               FAS      2300
                          54661                   SA6    A6+B1                                                   FAS      2301
                               67201              SB2    -B1                                                     FAS      2302
          1353  13666                             BX6    0                                                       FAS      2303
          1354  0570001345 +             DLF40    NZ     B7,DLF10    IF TABLE NOT EXHAUSTED                      FAS      2304
                          20636                   LX6    30                                                      FAS      2305
          1355  0720001356 +                      MI     B2,DLF50    IF NO HANGING HALF-WORD                     FAS      2306
                          54661                   SA6    A6+B1                                                   FAS      2307
          1356  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
          1357  7140004400                        SX4    BT=LINK                                                 FAS      2311
                          20744                   LX7    BT.WCP                                                  FAS      2312
                               63610              SB6    X1                                                      FAS      2313
          1360  20460                             LX4    BT.CNP                                                  FAS      2314
                     12647                        BX6    X4+X7       FORM *LINK* CONTROL WORD                    FAS      2315
                          56660                   SA6    B6                                                      FAS      2316
          1361  0100002451 +                      WLGO   B6,B7       WRITE OUT THE LINK TABLE                    FAS      2317
                                                                                                                 FAS      2318
          1362  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
          1364  5120000000 X                      SA2    T.FILL                                                  FAS      2325
                          63610                   SB6    X1                                                      FAS      2326
                               13666              BX6    0                                                       FAS      2327
          1365  0461001405 +                      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
          1366  0100000000 X                      CALL   SST                                                     FAS      2331
                                                                                                                 FAS      2332
          1367  5110000000 X                      SA1    T.FILL                                                  FAS      2333
                          5120000000 X            SA2    T=FILL                                                  FAS      2334
          1370  43036                             MX0    -30                                                     FAS      2335
                     6120000036                   SB2    30                                                      FAS      2336
                               63610              SB6    X1          B6 =  FWA  TABLE                            FAS      2337
          1371  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/05. 20.00.32.      PAGE    52
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
                                                                                                                 FAS      2344
          1373  12663                    DLF70    BX6    X6+X3                                                   FAS      2345
                     6150000036                   SB5    30                                                      FAS      2346
                               54661              SA6    A6+B1                                                   FAS      2347
          1374  0634001401 +             DLF80    GE     B3,B4,DLF100      IF TABLE EXHAUSTED                    FAS      2348
                          23221                   AX2    X1,B2                                                   FAS      2349
                               66331              SB3    B3+B1                                                   FAS      2350
          1375  13472                             BX4    X7-X2                                                   FAS      2351
                     0304001377 +                 ZR     X4,DLF90    IF SAME BLOCK AS PREVIOUS                   FAS      2352
                               67331              SB3    B3-B1       SET TO RE-PROCESS LAST ENTRY                FAS      2353
          1376  10122                             BX1    X2                                                      FAS      2354
                     22702                        LX7    X2                                                      FAS      2355
                                                                                                                 FAS      2356
          1377  15310                    DLF90    BX3    -X0*X1      ISOLATE FILL BYTE                           FAS      2357
                     56130                        SA1    B3                                                      FAS      2358
                          0450001373 +            ZR     B5,DLF70    IF LOWER                                    FAS      2359
          1400  22623                             LX6    X3,B2                                                   FAS      2360
                     67525                        SB5    B2-B5       INDICATE NEXT IS LOWER                      FAS      2361
                          0400001374 +            EQ     DLF80                                                   FAS      2362
                                                                                                                 FAS      2363
          1401  0550001402 +             DLF100   NZ     B5,DLF110                                               FAS      2364
                          54661                   SA6    A6+B1       STORE HANGING HALF-WORD                     FAS      2365
          1402  7140004200               DLF110   SX4    BT=FILL                                                 FAS      2366
                          75366                   SX3    A6-B6                                                   FAS      2367
                               20460              LX4    BT.CNP                                                  FAS      2368
          1403  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
          1404  0100002451 +                      WLGO   B6,B7                                                   FAS      2373
                                                                                                                 FAS      2374
                                        *         PROCESS *XFILL* TABLE                                          FAS      2375
                                                                                                                 FAS      2376
          1405  5120000000 X             DLF120   SA2    T=XFIL                                                  FAS      2377
                          5110000000 X            SA1    T.XFIL                                                  FAS      2378
          1406  63720                             SB7    X2                                                      FAS      2379
                     63610                        SB6    X1          B6 = FWA TABLE                              FAS      2380
                          0471001416 +            EQ     B7,B1,DLF130      IF EMPTY *XFILL* TABLE, EXIT...       FAS      2381
          1407  7140004100                        SX4    BT=XFILL                                                FAS      2382
                          77371                   SX3    B7-B1                                                   FAS      2383
                               20460              LX4    BT.CNP                                                  FAS      2384
          1410  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
          1411  5130000000 X                      SA3    CO.SNAP                                                 FAS      2390
                          20330                   LX3    1RX                                                     FAS      2391
          1412  0323001414 +                      PL     X3,DLF120S                                              FAS      2392
          1413  0100000000 X                      DUMPT  XFIL                                                    FAS      2393
          1414                           DLF120S  BSS    0                                                       FAS      2394
                                         SNAP=X   ENDIF                                                          FAS      2395
                                                                                                                 FAS      2396
          1414  0100002451 +                      WLGO   B6,B7                                                   FAS      2397
          1415  76610                             SHRINK T=XFIL,1                                                FAS      2398
          1416  5110001420 +             DLF130   SA1    DLFA                                                    FAS      2399
                          53010                   SA0    X1          RESTORE A0                                  FAS      2400
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    53
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
          1417  0400001326 +                      EQ     EXIT.                                                   FAS      2401
                                                                                                                 FAS      2402
          1420                     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
          1421  0400401421 +             DTX      SUBR               ENTRY/EXIT...                               FAS      2416
          1422  5110000033 +                      SA1    BT.TXWC                                                 FAS      2417
                          7271777760              SX7    X1-15                                                   FAS      2418
          1423  7160003700                        SX6    BT=XTEXT                                                FC5A132   148
                          0301001430 +            ZR     X1,DTX10    IF EMPTY TABLE AVOID..                      FAS      2420
          1424  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
          1425  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
          1426  12363                             BX3    X6+X3                                                   FAS      2429
                     64630                        SB6    A3                                                      FAS      2430
                          36631                   IX6    X3+X1                                                   FAS      2431
                               23732              AX7    X2,B3                                                   FAS      2432
          1427  54630                             SA6    A3                                                      FAS      2433
                     54720                        SA7    A2                                                      FAS      2434
                          0100002451 +            WLGO   B6,B7                                                   FAS      2435
          1430  5110000201 +             DTX10    SA1    ORG                                                     FAS      2436
                          76210                   =X2    1                                                       FAS      2437
                               13777              BX7    0                                                       FAS      2438
          1431  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
          1432  55671                             SA6    A7-B1                                                   FAS      2443
                     55761                        SA7    A6-B1                                                   FAS      2444
                          0400001421 +            EQ     EXIT.                                                   FAS      2445
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1433  0400401433 +             ESL      SUBR   =           ...ENTRY/EXIT...                            FAS      2455
          1434                           ESL.EQ   BSSENT 0                                                       FAS      2456
          1434  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
          1435  15010                             BX0    -X0*X1      ISOLATE TAG PREFIX                          FAS      2461
                     0310001433 +                 NZ     X0,EXIT.    IF NOT SYMTAB TAG                           FAS      2462
          1436  5120000000 X                      SA2    T.SYM                                                   FAS      2463
                          20117                   LX1    PB.PFXP-PB.ORDP                                         FAS      2464
                               43056              MX0    -PB.ORDL                                                FAS      2465
          1437  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
          1440  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
          1441  11112                             BX1    X1*X2                                                   FAS      2474
                     7130000210                   CLAS=  X3,WB,(LAB,SDEF)                                        FAS      2475
                               11432              BX4    X3*X2                                                   FAS      2476
          1442  13343                             BX3    X4-X3                                                   FAS      2477
                     12113                        BX1    X1+X3                                                   FAS      2478
                          0311001433 +            NZ     X1,EXIT.    IF NOT A LABEL                              FAS      2479
          1443  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
          1444  20266                             LX2    -CHAR       RIGHT JUSTIFY                               FAS      2484
                     43006                        MX0    CHAR                                                    FAS      2485
          1445  20266                    ESL10    LX2    -CHAR                                                   FAS      2486
                     11302                        BX3    X0*X2                                                   FAS      2487
                          0313001445 +            NZ     X3,ESL10    IF MORE OF THE LABEL                        FAS      2488
          1446  20206                             LX2    CHAR        LEFT JUSTIFY                                FAS      2489
                     10522                        BX5    X2                                                      FAS      2490
                          66710                   =B7    1           DECIMAL BASE ASSUMED                        FAS      2491
          1447  0100000000 X                      CALL   DXB         CONVERT TO BINARY                           FAS      2492
                                                  IFEQ   TEST,ON,1                                               FAS      2493
          1450  0314401450 +                      NZ     X4,"BLOWUP" IF ERROR IN CONVERSION                      FAS      2494
                          5110000000 X            SA1    T.LNT                                                   FAS      2495
          1451  5130000000 X                      SA3    T=LNT                                                   FAS      2496
                          36113                   IX1    X1+X3                                                   FAS      2497
          1452  7211777776                        =X1    X1-1        X1 = ADDRESS OF LAST T.LNT ENTRY            FAS      2498
                          53110                   SA1    X1                                                      FAS      2499
                               20652              LX6    LN.LABP                                                 FAS      2500
          1453  12616                             BX6    X1+X6                                                   FAS      2501
                     54610                        SA6    A1          FILL IN LABEL FIELD                         FAS      2502
                          0400001433 +            EQ     EXIT.                                                   FAS      2503
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1454  0400401454 +             FBP      SUBR   =                                                       FAS      2515
                                        *         EQ     EXIT.                                                   FAS      2516
          1455                           FBP.EQ   BSSENT 0                                                       FAS      2517
          1455  10100                             BX1    X0                                                      FAS      2518
                     0100000000 X                 CALL   WOD         CONVERT BINARY TO DPC                       FAS      2519
          1456  5150000211 +                      SA5    OL=PB                                                   FAS      2520
                          5160000001 X            SA6    LINEBUF+1                                               FAS      2521
          1457  54761                             =A7    A6+1                                                    FAS      2522
                     0100002226 +                 RJ     POL         PRINT OBJECT LISTING                        FAS      2523
          1460  0400001454 +                      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
          1461  0400401461 +             FLA      SUBR   0           ENTRY/EXIT...                               FAS      2533
          1462  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
          1463  13666                             SHRINK A4                                                      FAS      2537
          1464  5130000000 X             FLA2     SA3    T.SYM                                                   FAS      2538
                          22115                   LX1    X5,B1                                                   FAS      2539
                               63731              =B7    X3+WB.W                                                 FAS      2540
          1465  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
          1466  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
          1467  12146                             BX1    X4+X6                                                   FAS      2550
                     43200                        MX2    0           INDICATE NO RELOCATION                      FAS      2551
                          0100002435 +            RJ     STX         STORE WORD IN TEXT TABLE                    FAS      2552
          1470  0100002226 +                      RJ     POL         PRINT OBJECT LISTING                        FAS      2553
          1471  65401                             SB4    A0-B1                                                   FAS      2554
                     5055000001                   SA5    A5+1                                                    FAS      2555
                               55001              SA0    A0-B1       DECREMENT UNPROCESSED LENGTH                FAS      2556
          1472  0704001464 +                      GT     B4,FLA2     IF MORE LABELS TO DO                        FAS      2557
                          0400001461 +            EQ     EXIT.                                                   FAS      2558
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1473  0400401473 +             FST      SUBR   0           ENTRY/EXIT...                               FAS      2613
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    57
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
          1474  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
          1475  5110000000 X                      SA1    T.SCR                                                   FAS      2617
                          5120000000 X            SA2    T.SYM                                                   FAS      2618
          1476  5130000000 X                      SA3    T=SYM                                                   FAS      2619
                          63630                   SB6    X3          SYMLEN = LEN(T.SYM)                         FAS      2620
          1477  6241777775                        SB4    X1-Z=SYM+WB.W     STOAD = FWA(T.SCR) - Z=SYM + WB.W     FAS      2621
                          6130000003              =B3    Z=SYM                                                   FAS      2622
          1500  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
          1501  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
          1502  0606001473 +                      LE     B6,EXIT.    IF END OF (T.SYM)                           FAS      2633
                          10455                   BX4    X5                                                      FAS      2634
                               20470              HX4    WB.LAB                                                  FAS      2635
          1503  0334001546 +                      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
          1504  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
                          5110001550 +            SA1    FSTA                                                    FAS      2645
          1505  43200                             MX2    0           S2W = 0                                     FAS      2646
                     0100001037 +                 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
          1506  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
          1507  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
          1510  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
          1511  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/05. 20.00.32.      PAGE    58
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
          1512  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
          1513  20423                             LX4    WB.PNTP-1-WB.LEVP                                       FAS      2675
                     5130000065 +                 SA3    CIDMOD                                                  FAS      2676
                               43670              MX6    -4                                                      FAS      2677
          1514  20002                             LX0    2                                                       FAS      2678
                     63700                        SB7    X0                                                      FAS      2679
                          23373                   AX3    B7                                                      FAS      2680
                               15336              BX3    -X6*X3                                                  FAS      2681
          1515  20303                             LX3    S2.TYPP                                                 FAS      2682
                     12623                        BX6    X2+X3                                                   FAS      2683
                          20552                   LX5    WB.MODEP-1-WB.LCMP                                      FAS      2684
          1516  0324001522 +                      PL     X4,FST30    IF NOT LEVELED                              FAS      2685
                          43072                   MX0    -WB.LEVNL                                               FAS      2686
                               20453              LX4    1+WB.LEVP-WB.LEVNP                                      FAS      2687
          1517  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
          1520  12171                             BX1    X7+X1       = LEVNOI .OR. 0 / LEVNOI .OR. (-0)          FAS      2692
                     0311001522 +                 NZ     X1,FST30    IF NOT (LCM) .AND. (LEVEL 0)                FAS      2693
                               43301              CLAS=  X3,S2,(LEV)                                             FAS      2694
                     12663                        BX6    X6+X3                                                   FAS      2695
          1522  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
          1523  10622                             BX6    X2                                                      FAS      2706
                     5160001553 +                 SA6    FSTB        FLAG NOT FP                                 FAS      2707
          1524  0335001544 +                      MI     X5,FST70    IF FP                                       FAS      2708
                                                                                                                 FAS      2709
          1525  20414                    FST40    LX4    -WC.RBP                                                 FAS      2710
                     20501                        LX5    WB.FPP-WB.COMP                                          FAS      2711
                          0325001527 +            PL     X5,FST50    IF NOT COMMON                               FAS      2712
          1526  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
          1527  73221                    FST50    =X2    X2+1        RBI = RBI + 1                               FAS      2718
                     20260                        LX2    S3.RBP                                                  FAS      2719
                          6155777771              SB5    B5-M.CHAR                                               FAS      2720
          1530  43670                             MX6    -WC.BCPL                                                FAS      2721
                     0550001537 +                 NZ     B5,FST60    IF NOT TYPE CHARACTER                       FAS      2722
                               20430              LX4    WC.RBP-WC.BCPP                                          FAS      2723
          1531  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/05. 20.00.32.      PAGE    59
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
                               20466              LX4    WC.BCPP-WC.CLENP                                        FAS      2727
          1532  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
          1533  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
          1534  20057                             LX0    S3.CLP                                                  FAS      2736
                     12660                        BX6    X6+X0                                                   FAS      2737
                          12226                   BX2    X2+X6                                                   FAS      2738
          1535  0307001537 +                      ZR     X7,FST60    IF CTYP[WCI] .EQ. 0                         FAS      2739
                          5110000213 +            SA1    SAVVD       RA OF *VD.* = (SAVVD)                       FAS      2740
          1536  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
          1537  5140001553 +             FST60    SA4    FSTB                                                    FAS      2749
                          0304001542 +            ZR     X4,FST65    IF NOT DUMMY ARGUMENT                       FC5A298     9
                                                                                                                 FC5A298    10
                                        *         FOR DUMMY ARGUMENTS, RA[S3.] = FPNO[WBI]-1                     FC5A298    11
                                                                                                                 FC5A298    12
          1540  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
          1541  0400001501 +                      EQ     FST10                                                   FC5A298    18
                                                                                                                 FC5A298    19
          1542  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
          1543  12626                             BX6    X2+X6                                                   FC5A298    21
                     56641                        =A6    B4-WB.W+WC.W      T.SCR(STAD+1)= (BCP,CLEN,CL,RA) [S3.] FAS      2759
                          0400001501 +            EQ     FST10                                                   FAS      2760
                                                                                                                 FAS      2761
          1544  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
          1545  5160001553 +                      SA6    FSTB        FLAG FP                                     FAS      2772
                          0400001525 +            EQ     FST40                                                   FAS      2773
                                                                                                                 FAS      2774
          1546  5140000000 X             FST80    SA4    T=SCR                                                   FAS      2777
                          7264777774              SX6    X4-Z=SYM                                                FAS      2778
          1547  5064000000                        SA6    A4+         DECREMENT 5600 TABLE LENGTH FOR LABEL       FAS      2779
                          0400001501 +            EQ     FST10                                                   FAS      2780
                                                                                                                 FAS      2781
                                                  LIST   G           **** DEBUG ****                             FAS      2782
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    60
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
          1550                           FSTA     CABS   WB,S2,(SUB,SDEF/DEF,EQV,FUN,EXT,CGS,FP,LCM,ARY,MAT,NLST FAS      2783
                                        ,,ENT,PARM,1REF)                                                         FAS      2784
          1550  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
          1551  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
          1552  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
          1553                     1     FSTB     BSS    1           DUMMY ARGUMENT FLAG                         FC5A298    23
                                                  LIST   *                                                       FAS      2785
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1554  0400401554 +             KAP      SUBR   0           ENTRY/EXIT.                                 FAS      2794
          1555  13666                             BX6    0                                                       FAS      2795
                     5160000055 +                 SA6    BINWORD     (BINWORD) = 0                               FAS      2796
                               54661              SA6    A6+B1       (BINREL) = 0                                FAS      2797
          1556  7170000006                        SX7    IA.BIASP-PB.BIASP                                       FAS      2798
                          43644                   MX6    -IA.BIASL                                               FAS      2799
          1557  5170002356 +                      SA7    RELPOS                                                  FAS      2800
                          5160002355 +            SA6    RELMASK                                                 FAS      2801
          1560  5120000000 X                      SA2    T=APL                                                   FAS      2802
                          5110000000 X            ALLOC  T.PTXTR,X2                                              FAS      2803
          1562  0100001421 +                      RJ     DTX         RESET TEXT TABLE                            FAS      2804
          1563  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
          1564  5140000000 X             KAP10    SA4    T=APL                                                   FAS      2812
                          5120000000 X            SA2    T.APL                                                   FAS      2813
          1565  5110000214 +                      SA1    KAPA        IND = (KAPA)                                FAS      2814
                          37641                   IX6    X4-X1       = LEN(T.APL) - IND                          FAS      2815
          1566  0306001554 +                      ZR     X6,EXIT.    IF END OF T.APL                             FAS      2816
                                         .T       IFEQ   TEST,ON,1                                               FAS      2817
                          0336401566 +            MI     X6,"BLOWUP" IF SOMETHING HORRIBLE                       FAS      2818
          1567  73711                             =X7    X1+1                                                    FAS      2819
                     36221                        IX2    X2+X1                                                   FAS      2820
                          54710                   SA7    A1          (KAPA) = IND + 1                            FAS      2821
                               53120              SA1    X2          API = T.APL(IND)                            FAS      2822
          1570  76200                             =X2    0           INDICATE NO RELOCATION                      FAS      2823
                     10511                        BX5    X1                                                      FAS      2824
                          0301001636 +            ZR     X1,KAP50    IF +/- 0                                    FAS      2825
          1571  10411                             BX4    X1                                                      FAS      2826
                     43044                        MX0    -IA.BIASL                                               FAS      2827
                          43352                   MX3    -IA.TAGL                                                FAS      2828
                               20163              HX1    IA.CRH                                                  FAS      2829
          1572  20422                             LX4    -IA.TAGP                                                FAS      2830
                     15343                        BX3    -X3*X4      TAGI = TAG[API]                             FAS      2831
                          20430                   LX4    IA.TAGP-IA.BIASP                                        FAS      2832
                               15640              BX6    -X0*X4      BIASI = BIAS[API]                           FAS      2833
          1573  0331001641 +                      MI     X1,KAP80    IF RELATIONAL HEADER                        FAS      2834
                                                                                                                 FAS      2835
                                        *         SET TYP[OA.] = MODE[API], AND LCM[OA.] = LCM[WBI].             FAS      2836
                                                                                                                 FAS      2837
                          43766                   MX7    -IA.MODEL                                               FAS      2838
                               20406              LX4    IA.BIASP-IA.MODEP                                       FAS      2839
          1574  15747                             BX7    -X7*X4      TYPE = MODE[API]                            FAS      2840
                     5120000066 +                 SA2    COMMOD                                                  FAS      2841
                               20702              LX7    2                                                       FAS      2842
          1575  43470                             MX4    -4                                                      FAS      2843
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    62
        ASSEMBLER SUPPORTING ROUTINES                                 KAP 
  
                     63770                        SB7    X7                                                      FAS      2844
                          23272                   AX2    B7                                                      FAS      2845
                               15724              BX7    -X4*X2                                                  FAS      2846
          1576  20760                             LX7    OA.TYPP                                                 FAS      2847
                     5170000055 +                 SA7    BINWORD     TYP[BINWORD] = TYPE                         FAS      2848
                                                                                                                 FAS      2849
                               43200              MX2    0           FPI = 0                                     FAS      2850
          1577  43456                             MX4    -PB.ORDL                                                FAS      2851
                     11443                        BX4    X4*X3       PFXI = PFX[TAGI]                            FAS      2852
                                   0              ERRNZ  K=SYM                                                   FAS      2853
                          0314001611 +            NZ     X4,KAP12    IF PFXI .NE. K=SYM                          FC5A121     6
          1600  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
          1601  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
          1602  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
          1603  0334001612 +                      MI     X4,KAP14    IF LABEL                                    FC5A121    10
                          54470                   SA4    A7          BINWORD                                     FAS      2864
                               20752              LX7    OA.LCMP-WB.LCMP                                         FAS      2865
          1604  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
          1605  37443                             IX4    X4-X3                                                   FAS      2873
                     43044                        MX0    -IA.BIASL                                               FAS      2874
                          0314001614 +            NZ     X4,KAP15    IF TAGI .NE. S=RD                           FAS      2875
          1606  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
          1607  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
          1610  12550                             BX5    X5+X0       BIAS[API] = BIASI                           FAS      2883
                     20522                        LX5    IA.BIASP                                                FAS      2884
                          0400001614 +            EQ     KAP15                                                   FC5A121    11
                                                                                                                 FC5A121    12
          1611  7244677777               KAP12    SX4    X4-K.GL                                                 FC5A121    13
                          0314001614 +            NZ     X4,KAP15    IF NOT GENERATED LABEL                      FC5A121    14
                                                                                                                 FC5A121    15
          1612  5140000067 +             KAP14    SA4    LABMOD                                                  FC5A121    16
                          20460                   LX4    OA.TYPP                                                 FC5A121    17
                               10744              BX7    X4                                                      FC5A121    18
          1613  5170000055 +                      SA7    BINWORD     TYPE[APLIST] = LABMOD                       FC5A121    19
                          0400001625 +            EQ     KAP20                                                   FC5A121    20
                                                                                                                 FAS      2885
          1614  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/05. 20.00.32.      PAGE    63
        ASSEMBLER SUPPORTING ROUTINES                                 KAP 
  
                          20473                   LX4    IA.CRHP-IA.CHARP                                        FAS      2888
          1615  0331001627 +                      MI     X1,KAP25    IF ST                                       FAS      2889
                          0324001625 +            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
          1616  0332001631 +                      MI     X2,KAP40    IF F.P.                                     FAS      2903
                          43044                   MX0    -IA.BIASL                                               FAS      2905
          1617  5130000000 X                      SA3    T.CAC                                                   FAS      2907
                          43170                   MX1    -WC.BCPL                                                FAS      2908
                               43752              MX7    -WC.CLENL                                               FAS      2909
          1620  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
          1621  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
          1622  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
          1623  20130                             LX1    OA.BCPP                                                 FAS      2923
                     5130000055 +                 SA3    BINWORD                                                 FAS      2924
                               20036              LX0    OA.LENP                                                 FAS      2925
          1624  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
          1625  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
          1626  0100002262 +                      RJ     REL         RELOCATE THE ADDRESS                        FAS      2936
          1627  5120000056 +             KAP25    SA2    BINREL                                                  FAS      2937
                          5110000055 +            SA1    BINWORD                                                 FAS      2938
          1630  0400001636 +                      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
          1631  43763                    KAP40    MX7    -WB.FPNOL                                               FAS      2948
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          1632  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
          1633  20611                             LX6    OA.SUBSP                                                FAS      2957
                     12663                        BX6    X6+X3       ADD IN FP BIT                               FAS      2958
                          5140000055 +            SA4    BINWORD                                                 FAS      2959
          1634  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
          1635  76200                             =X2    0           INDICATE NO RELOCATION                      FAS      2964
          1636  10611                    KAP50    BX6    X1                                                      FAS      2965
                     64300                        SB3    A0                                                      FAS      2966
                          5130000000 X            SA3    T.PTXTR                                                 FAS      2967
          1637  53633                             SA6    X3+B3       T.PTXTR(STOIND) = BINARY EQUIVALENT         FAS      2968
                     54001                        =A0    A0+1        STIND = STIND + 1                           FAS      2969
                          0100002435 +            RJ     STX         STORE INTO TEXT                             FAS      2970
          1640  0400001564 +                      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
          1641  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
          1642  0400001636 +                      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
          1643  0400401643 +             KIO      SUBR   0           ENTRY/EXIT.                                 FAS      3000
          1644  7160000006                        SX6    IA.BIASP-PB.BIASP                                       FAS      3001
                          5160002356 +            SA6    RELPOS                                                  FAS      3002
          1645  13777                             BX7    0                                                       FAS      3003
                     5170000055 +                 SA7    BINWORD                                                 FAS      3004
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    65
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
                               54771              SA7    A7+B1                                                   FAS      3005
          1646  5170000215 +                      SA7    KIOB        IND = 0                                     FAS      3006
                          0100001421 +            RJ     DTX         SET ORIGIN IN TEXT TABLE                    FAS      3007
          1647  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
          1650  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
          1651  5150000000 X             KIO10    SA5    T=IOA                                                   FAS      3017
                          5120000000 X            SA2    T.IOA                                                   FAS      3018
          1652  5110000215 +                      SA1    KIOB        IND = (KIOB)                                FAS      3019
                          76311                   =X3    Z=IOA                                                   FAS      3020
                               37751              IX7    X5-X1       = LEN(T.IOA) - IND                          FAS      3021
          1653  36613                             IX6    X1+X3                                                   FAS      3022
                     0307001643 +                 ZR     X7,EXIT.    IF END OF T.IOA                             FAS      3023
                                         .T       IFEQ   TEST,ON,1                                               FAS      3024
          1654  0337401654 +                      MI     X7,"BLOWUP" IF SOMETHING HORRIBLE                       FAS      3025
                          54610                   SA6    A1          (KIOB) = IND + Z=IOA                        FAS      3026
                               36421              IX4    X2+X1                                                   FAS      3027
          1655  53440                             SA4    X4          IO1 = T.IOA(IND)                            FAS      3028
                     54341                        =A3    A4+1        IO2 = IO1 + 1                               FAS      3029
                          22104                   LX1    X4                                                      FAS      3030
                               76200              =X2    0                                                       FAS      3031
          1656  0304001764 +                      ZR     X4,KIO110   IF +/- 0                                    FAS      3032
                          10544                   BX5    X4                                                      FAS      3033
                               10633              BX6    X3                                                      FAS      3034
          1657  5160000214 +                      SA6    KIOA        (KIOA) = IO2                                FAS      3035
                          43766                   MX7    -IA.MODEL                                               FAS      3036
                               20160              LX1    -IA.MODEP                                               FAS      3037
          1660  20467                             LX4    -IA.VARP                                                FAS      3038
                     15217                        BX2    -X7*X1      TYPE = MODE[IO1]                            FAS      3039
                          63320                   SB3    X2          REMEMBER (B3) = TYPE                        FAS      3040
                               76010              SX0    B1                                                      FAS      3041
          1661  20101                             LX1    IA.MODEP-IA.IOCP                                        FAS      3042
                     11301                        BX3    X0*X1       LST = IOC[IO1]                              FAS      3043
                          20370                   LX3    OA.LSTP                                                 FAS      3044
          1662  0313001665 +                      NZ     X3,KIO12    IF CONTROL ITEM                             FAS      3045
                          20202                   LX2    2                                                       FAS      3046
                               43670              MX6    -4                                                      FAS      3047
          1663  63420                             SB4    X2                                                      FAS      3048
                     5120000070 +                 SA2    FCLMOD                                                  FAS      3049
                               23242              AX2    B4                                                      FAS      3050
          1664  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
          1665  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
          1666  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/05. 20.00.32.      PAGE    66
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
                               63420              SB4    X2          REMEMBER (B4) = CHARI                       FAS      3062
          1667  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
          1670  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
          1671  0311001675 +                      NZ     X1,KIO15    IF PFXI .NE. K=SYM                          FAS      3071
                          5120000000 X            SA2    T.SYM                                                   FAS      3072
          1672  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
          1673  43101                             CLAS=  X1,WB,(LCM)                                             FAS      3078
                          11121                   BX1    X2*X1       LCMI = LCM[WBI]                             FAS      3079
                               20253              HX2    WB.FP                                                   FAS      3080
          1674  20152                             LX1    OA.LCMP-WB.LCMP                                         FAS      3081
                     12661                        BX6    X6+X1       ADD IN LCM BIT                              FAS      3082
          1675  5160000055 +             KIO15    SA6    BINWORD     (LCM,LST,TYPE)[BINWORD] = (LCMI,IOC,TYPE)   FAS      3083
                          0334001703 +            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
          1676  0540001712 +                      NZ     B4,KIO20    IF CHARACTER                                FAS      3093
                          0322001721 +            PL     X2,KIO40    IF NOT FP                                   FAS      3094
          1677  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
          1700  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
          1701  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
          1702  12145                             BX1    X4+X5                                                   FAS      3108
                     12616                        BX6    X1+X6                                                   FAS      3109
          1703  10266                    KIO18    BX2    X6                                                      FAS      3110
                     20203                        HX2    OA.LST                                                  FAS      3111
                          5160000055 +            SA6    BINWORD                                                 FAS      3112
          1704  0322001752 +                      PL     X2,KIO85    IF NOT CONTROL ITEM                         FAS      3113
                          43001                   CLAS=  X0,OA,(IND)                                             FC5A131     6
          1705  7113777737                        SX1    B3-IC.STR                                               FC5A131     7
                          0301001710 +            ZR     X1,KIO19    IF ENCODE/DECODE STRING                     FC5A131     8
          1706  7113777742                        SX1    B3-IC.BUF                                               FC5A131     9
                          0301001710 +            ZR     X1,KIO19    IF BUFFER I/O FWA/LWA                       FC5A131    10
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    67
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
          1707  43001                             CLAS=  X0,OA,(VAR)                                             FAS      3114
                                                                                                                 FC5A131    11
          1710  12606                    KIO19    BX6    X0+X6                                                   FC5A131    12
                     0303001752 +                 ZR     X3,KIO85    IF TAGI .EQ. 0                              FAS      3116
                               54660              SA6    A6          VAR[BINWORD] = 1                            FAS      3117
          1711  0400001752 +                      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
          1712  0322001713 +             KIO20    PL     X2,KIO30    IF NOT FP                                   FAS      3127
                          0400401712 +            EQ     "BLOWUP"    CHAR I/O AP SHOULD NOT BE FP                FAS      3128
                                                                                                                 FAS      3129
          1713  5110000000 X             KIO30    SA1    T.CAC                                                   FAS      3130
                          63510                   SB5    X1                                                      FAS      3131
                               43044              MX0    -IA.BIASL                                               FAS      3132
          1714  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
          1715  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
          1716  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
          1717  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
          1720  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
          1721  5140000055 +             KIO40    SA4    BINWORD                                                 FAS      3157
                          43744                   MX7    -OA.ADRL                                                FAS      3158
                               43114              MX1    PB.GHIJL                                                FAS      3159
          1722  20560                             LX5    PB.TAGP-IA.TAGP                                         FAS      3160
                     15551                        BX5    -X1*X5      CLEAR (GHIJ) FILED                          FAS      3161
                          5170002355 +            SA7    RELMASK                                                 FAS      3162
          1723  10244                             BX2    X4                                                      FAS      3163
                     20203                        HX2    OA.LST                                                  FAS      3164
                          0322001751 +            PL     X2,KIO=LIS  IF NOT CONTROL ITEM                         FAS      3165
                                                                                                                 FAS      3166
                                         .T       IFEQ   TEST,ON                                                 FAS      3167
          1724  0430401724 +                      ZR     B3,"BLOWUP" IF CONTROL CODE .EQ. 0                      FAS      3168
                          7103777734              SX0    B3-IC=LEN-1                                             FAS      3169
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    68
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
          1725  0320401725 +                      PL     X0,"BLOWUP" IF CONTROL CODE TOO BIG                     FAS      3170
                                         .T       ENDIF                                                          FAS      3171
                                                                                                                 FAS      3172
                          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
          1726                           KIO=     BSS    0                                                       FAS      3182
          1726  0400401726 +                      EQ     "BLOWUP"    CODE NOT IMPLEMENTED                        FAS      3183
  
  
  
  
          1727                           KIO=END  BSS    0                                                       FAS      3187
          1727                           KIO=ERR  BSS    0                                                       FAS      3188
          1727                           KIO=MOD  BSS    0                                                       FAS      3189
          1727                           KIO=NML  BSS    0                                                       FAS      3190
          1727                           KIO=RCL  BSS    0                                                       FAS      3191
          1727                           KIO=SKP  BSS    0                                                       FAS      3192
          1727  43752                             MX7    -18                                                     FAS      3193
                     66210                        =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3194
                          5170002355 +            SA7    RELMASK                                                 FAS      3195
          1730  0100002262 +                      RJ     REL                                                     FAS      3196
          1731  5110000055 +                      SA1    BINWORD                                                 FAS      3197
                          5120000056 +            SA2    BINREL                                                  FAS      3198
          1732  0400001764 +                      EQ     KIO110                                                  FAS      3199
  
  
  
  
          1733                           KIO=BUF  BSS    0                                                       FAS      3203
          1733  6160000036                        SB6    OA.LENP     LENGTH SHOULD BE *1*                        FC5A373     5
                          0400001747 +            EQ     KIO60                                                   FC5A373     6
  
  
  
  
          1734                           KIO=FMTA BSS    0                                                       FAS      3209
          1734  5110002475 +                      CLAS=  X1,OA,(TYP)                                             FAS      3210
                          7160000004              =X6    IC.FMT                                                  FAS      3211
          1735  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
          1737  0400001751 +                      EQ     KIO80                                                   FAS      3218
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    69
        ASSEMBLER SUPPORTING ROUTINES                                 KIO=FMT 
  
          1740                           KIO=ACC  BSS    0                                                       FAS      3220
          1740                           KIO=BFL  BSS    0                                                       FAS      3221
          1740                           KIO=BLK  BSS    0                                                       FAS      3222
          1740                           KIO=EXS  BSS    0                                                       FAS      3223
          1740                           KIO=DIR  BSS    0                                                       FAS      3224
          1740                           KIO=FIL  BSS    0                                                       FAS      3225
          1740                           KIO=FMD  BSS    0                                                       FAS      3226
          1740                           KIO=FOR  BSS    0                                                       FAS      3227
          1740                           KIO=NAM  BSS    0                                                       FAS      3228
          1740                           KIO=NMD  BSS    0                                                       FAS      3229
          1740                           KIO=NXT  BSS    0                                                       FAS      3230
          1740                           KIO=NUM  BSS    0                                                       FAS      3231
          1740                           KIO=OPE  BSS    0                                                       FAS      3232
          1740                           KIO=SEQ  BSS    0                                                       FAS      3233
          1740                           KIO=STA  BSS    0                                                       FAS      3234
          1740                           KIO=UNF  BSS    0                                                       FAS      3235
                                         .T       IFEQ   TEST,ON,1                                               FC5A369    27
          1740  0303401740 +                      ZR     X3,"BLOWUP" IF TAGI .EQ. 0                              FC5A369    28
                          43701                   CLAS=  X7,OA,(VAR)                                             FC5A369    29
          1741  12674                             BX6    X7+X4                                                   FC5A369    30
                     54640                        SA6    A4          VAR[BINWORD] = VARI[OA.]                    FC5A369    31
                          0400001751 +            EQ     KIO80                                                   FC5A369    32
  
  
  
  
          1742                           KIO=FMT  BSS    0                                                       FAS      3236
                                         .T       IFEQ   TEST,ON,1                                               FAS      3237
          1742  0303401742 +                      ZR     X3,"BLOWUP" IF TAGI .EQ. 0                              FAS      3238
                          54120                   SA1    A2          WBI                                         FAS      3239
                               20170              SBIT   X1,WB.LABP                                              FAS      3240
          1743  43701                             CLAS=  X7,OA,(VAR)                                             FC5A369    34
                          0321001745 +            PL     X1,KIO=FMT1 IF NOT FORMAT LABEL                         FC5A369    35
          1744  43760                             MX7    -WB.FMTLL                                               FC5A369    36
                     20137                        LX1    WB.LABL+WB.LABP-WB.FMTLP                                FC5A369    37
                          15717                   BX7    -X7*X1      EXTRACT FORMAT LENGTH                       FC5A369    38
                               20736              LX7    OA.LENP                                                 FC5A369    39
                                                                                                                 FC5A369    40
          1745  12674                    KIO=FMT1 BX6    X7+X4                                                   FC5A369    41
                     54640                        SA6    A4                                                      FC5A369    42
                          0400001751 +            EQ     KIO80                                                   FAS      3247
  
  
  
  
          1746                           KIO=REC  BSS    0                                                       FAS      3251
          1746                           KIO=IOS  BSS    0                                                       FAS      3252
          1746                           KIO=UNT  BSS    0                                                       FAS      3253
          1746  6160000067                        SB6    OA.VARP                                                 FAS      3254
          1747                           KIO60    BSS    0                                                       FAS      3255
          1747  43200                             MX2    0           INDV = 0                                    FAS      3256
                     0303001750 +                 ZR     X3,KIO70    IF TAGI .EQ. 0                              FAS      3257
                               76210              =X2    1           INDV = 1                                    FAS      3258
          1750  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/05. 20.00.32.      PAGE    70
        ASSEMBLER SUPPORTING ROUTINES                                 KIO=REC 
  
                                        *         RELOCATE THE ADDRESS.                                          FAS      3263
                                                                                                                 FAS      3264
          1751                           KIO=CNT  BSS    0                                                       FC50722     7
          1751                           KIO=STR  BSS    0                                                       FC50722     8
          1751                           KIO=LIS  BSS    0                                                       FAS      3265
          1751  66210                    KIO80    =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3266
                     0100002262 +                 RJ     REL                                                     FAS      3267
          1752  5110000055 +             KIO85    SA1    BINWORD                                                 FAS      3268
                          5120000056 +            SA2    BINREL                                                  FAS      3269
          1753  5150000214 +                      SA5    KIOA        IO2 = (KIOA)                                FAS      3270
                          0305001764 +            ZR     X5,KIO110   IF (IO2) .EQ. 0                             FAS      3271
                                                                                                                 FAS      3272
                                        *         PROCESS THE LENGTH WORD. (IO2)                                 FAS      3273
                                        *         (X5) = IO2                                                     FAS      3274
                                                                                                                 FAS      3275
          1754  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
          1755  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
          1756  0303001757 +                      ZR     X3,KIO100   IF TAGI .EQ. 0                              FAS      3284
                          7100000001              SX0    1           IND = 1                                     FAS      3285
          1757  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
          1760  43314                             MX3    PB.GHIJL                                                FAS      3289
                     20536                        LX5    PB.TAGP                                                 FAS      3290
                          15553                   BX5    -X3*X5      CLEAR (GHIJ) FIELD                          FAS      3291
          1761  5160002355 +                      SA6    RELMASK                                                 FAS      3292
                          54710                   SA7    A1          IND[BINWORD] = IND                          FAS      3293
          1762  0100002262 +                      RJ     REL                                                     FAS      3294
          1763  5110000055 +                      SA1    BINWORD                                                 FAS      3295
                          5120000056 +            SA2    BINREL                                                  FAS      3296
                                                                                                                 FAS      3297
          1764  5130000000 X             KIO110   SA3    T.PTXTR                                                 FAS      3298
                          64300                   SB3    A0                                                      FAS      3299
                               10611              BX6    X1                                                      FAS      3300
          1765  54001                             =A0    A0+1        STIND = STIND + 1                           FAS      3301
                     53633                        SA6    X3+B3       T.PTXTR(STIND) = BINARY WORD                FAS      3302
                          0100002435 +            RJ     STX         STORE THE TEXT WORD                         FAS      3303
          1766  0400001651 +                      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/05. 20.00.32.      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
          1767  0400401767 +             KNG      SUBR   0           ENTRY/EXIT...                               FAS      3328
                                                                                                                 FAS      3329
                                        *         ISSUE RUN-TIME ARRAY DIMENSION INFO TABLES.                    FAS      3330
                                                                                                                 FAS      3331
          1770  0100001421 +                      RJ     DTX         INITIALIZE TEXT TABLE                       FAS      3332
          1771  43700                             MX7    0           SELECT ONLY MATERIAL DIM ENTRIES            FAS      3333
                     0100002060 +                 RJ     ORD         OUTPUT RUN-TIME DIM TABLE                   FAS      3334
                                                                                                                 FAS      3335
                                        *         ISSUE NAMELIST GROUP DEFINITIONS.                              FAS      3336
                                                                                                                 FAS      3337
          1772  5110000000 X                      SA1    S=RD                                                    FAS      3338
                          5120000000 X            SA2    T.SYM                                                   FAS      3339
          1773  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
          1774  5160002355 +                      SA6    RELMASK                                                 FAS      3345
                          5160000204 +            SA6    SUBFLG      INHIBIT *SUB*                               FAS      3346
          1775  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
          1776  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
          1777  5170000214 +                      SA7    KNGA        INITIALIZE LOOP RESTART PARAMS              FAS      3354
                                                                                                                 FAS      3355
                                        *         (KNG10)  PROCESS A NAMELIST GROUP.                             FAS      3356
                                                                                                                 FAS      3357
          2000  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
          2001  0520402001 +                      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/05. 20.00.32.      PAGE    72
        ASSEMBLER SUPPORTING ROUTINES                                 KNG 
  
          2002  0100002404 +                      RJ     SNR         SET NAMELIST REGISTERS                      FAS      3366
          2003  0730002025 +                      MI     B3,KNG90    IF NO MORE GROUPS                           FAS      3367
                          76330                   SX3    B3          SAVE RESTART PARAMS                         FAS      3368
                               27623              PX6    X3,B2                                                   FAS      3369
          2004  5160000214 +                      SA6    KNGA                                                    FAS      3370
                          55111                   =A1    A1+WA.W-WB.W                                            FAS      3371
                               43052              MX0    NA.GNAML                                                FAS      3372
          2005  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
          2006  0100002435 +                      RJ     STX         ISSUE GROUP DEFINITION HEADER               FAS      3380
                                                                                                                 FAS      3381
                                        *         (KNG20)  PROCESS A NAMELIST GROUP MEMBER.                      FAS      3382
                                                                                                                 FAS      3383
          2007  5110000214 +             KNG20    SA1    KNGA                                                    FAS      3384
                          26621                   UX6,B2 X1                                                      FAS      3385
                               63310              SB3    X1                                                      FAS      3386
          2010  0420002000 +                      ZR     B2,KNG10    IF NO MORE MEMBERS IN CURRENT GROUP         FAS      3387
                          0100002404 +            RJ     SNR         SET NAMELIST REGISTERS                      FAS      3388
          2011  74710                             SX7    A1                                                      FAS      3389
                     76330                        SX3    B3          SAVE RESTART PARAMS                         FAS      3390
                          27623                   PX6    X3,B2                                                   FAS      3391
          2012  5160000214 +                      SA6    KNGA                                                    FAS      3392
                          5170000216 +            SA7    KNGC        SAVE ADDRESS OF WB WORD                     FAS      3393
          2013  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
          2014  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
          2015  5130000215 +                      =A3    KNGB                                                    FAS      3407
                          15110                   BX1    -X0*X1      CLEAR FLAG IF SET                           FAS      3408
          2016  0316002017 +                      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
          2017  0100002435 +             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
          2020  5120000216 +                      SA2    KNGC                                                    FAS      3417
                          53120                   SA1    X2          WBI = WB WORD OF MEMBER                     FAS      3418
          2021  0100002147 +                      RJ     PAW         PREPARE I/O APLIST WORD                     FAS      3419
          2022  5110000055 +                      SA1    BINWORD                                                 FAS      3420
                          5120000056 +            SA2    BINREL                                                  FAS      3421
          2023  0100002435 +                      RJ     STX                                                     FAS      3422
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    73
        ASSEMBLER SUPPORTING ROUTINES                                 KNG 
  
          2024  0400002007 +                      EQ     KNG20       LOOP FOR NEXT MEMBER                        FAS      3423
                                                                                                                 FAS      3424
                                        *         (KNG90)  HERE WHEN ALL GROUPS DONE.                            FAS      3425
                                                                                                                 FAS      3426
          2025  13666                    KNG90    BX6    0                                                       FAS      3427
                                 215 +   OCLB     EQU    TEMP+1      SAVED T.CLW INDEX                           FAS      3428
                     5160000204 +                 SA6    SUBFLG                                                  FAS      3429
          2026  0400001767 +                      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
          2027  0400402027 +             OCL      SUBR   0           ENTRY/EXIT.                                 FAS      3467
          2030  5130000000 X                      SA3    T=CLW                                                   FAS      3468
                          5100000000              SA0    0           (A0) = STIND = STORE INDEX FOR T.SCR        FAS      3469
          2031  23013                             AX0,X3,B1                                                      FAS      3470
                     74600                        SX6    A0                                                      FAS      3471
                          5160000215 +            SA6    OCLB        (OCLB) = INDEX = 0                          FAS      3472
          2032  5110000000 X                      ALLOC  T.CLWB,X0   ALLOCATE (T=CLW)/2 SPACES                   FC5A219    16
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    74
        ASSEMBLER SUPPORTING ROUTINES                                 OCL 
  
                                                                                                                 FAS      3474
                                        *         PROCESS NEXT ENTRY FROM T.CLW.                                 FAS      3475
                                                                                                                 FAS      3476
          2033  5120000000 X             OCL10    SA2    T=CLW                                                   FAS      3477
                          5110000000 X            SA1    T.CLW                                                   FAS      3478
          2034  5140000215 +                      SA4    OCLB        INDEX = (OCLB)                              FAS      3479
                          76311                   =X3    Z=CLW                                                   FAS      3480
                               37742              IX7    X4-X2                                                   FAS      3481
          2035  36643                             IX6    X4+X3                                                   FAS      3482
                     0307002027 +                 ZR     X7,EXIT.    IF END OF T.CLW                             FAS      3483
                               36214              IX2    X1+X4                                                   FAS      3484
          2036  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
          2037  10633                             BX6    X3                                                      FAS      3492
                     5160000214 +                 SA6    OCLA        (OCLA) = CL1                                FAS      3493
                               20522              LX5    -IA.TAGP                                                FAS      3494
          2040  76700                             =X7    0           INDC = 0                                    FAS      3495
                     15250                        BX2    -X0*X5      TAGI = TAG[CL2]                             FAS      3496
                          0302002042 +            ZR     X2,OCL20    IF TAGI .EQ. 0                              FAS      3497
          2041  76710                             SX7    B1          INDC = 1                                    FAS      3498
          2042  66210                    OCL20    =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3499
                     43644                        MX6    -LO.CNTL                                                FAS      3500
                          5160002355 +            SA6    RELMASK                                                 FAS      3501
          2043  20771                             LX7    LO.INDCP                                                FAS      3502
                     43314                        MX3    PB.GHIJL                                                FAS      3503
                          5170000055 +            SA7    BINWORD     INDC[BINWORD] = INDC                        FAS      3504
          2044  20536                             LX5    PB.TAGP                                                 FAS      3505
                     15553                        BX5    -X3*X5      CLEAR (GHIJ) FIELD                          FAS      3506
                          0100002262 +            RJ     REL                                                     FAS      3507
                                                                                                                 FAS      3508
                                        *         PROCESS LENGTH WORD - CL1.                                     FAS      3509
                                                                                                                 FAS      3510
          2045  5150000214 +                      SA5    OCLA        CL1 = (OCLA)                                FAS      3511
                          43052                   MX0    -IA.TAGL                                                FAS      3512
                               20522              LX5    -IA.TAGP                                                FAS      3513
          2046  15250                             BX2    -X0*X5      TAGI = TAG[CL1]                             FAS      3514
                     76700                        =X7    0           INDL = 0                                    FAS      3515
                          20536                   LX5    PB.TAGP                                                 FAS      3516
          2047  0302002050 +                      ZR     X2,OCL30    IF TAGI .EQ. 0                              FAS      3517
                          7170000001              SX7    1           INDL = 1                                    FAS      3518
          2050  6120000003               OCL30    =B2    3           INDICATE UPPER PARCEL RELOCATION            FAS      3519
                          5120000055 +            SA2    BINWORD                                                 FAS      3520
          2051  20733                             LX7    LO.INDLP                                                FAS      3521
                     12727                        BX7    X2+X7                                                   FAS      3522
                          43652                   MX6    -LO.LENL                                                FAS      3523
                               43314              MX3    PB.GHIJL                                                FAS      3524
          2052  15553                             BX5    -X3*X5      CLEAR (GHIJ) FIELD)                         FAS      3525
                     54720                        SA7    A2          INDL[BINWORD] = INDL                        FAS      3526
                          5160002355 +            SA6    RELMASK                                                 FAS      3527
          2053  0100002262 +                      RJ     REL                                                     FAS      3528
          2054  5110000055 +                      SA1    BINWORD                                                 FAS      3529
                          5120000056 +            SA2    BINREL                                                  FAS      3530
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    75
        ASSEMBLER SUPPORTING ROUTINES                                 OCL 
  
          2055  5130000000 X                      SA3    T.CLWB                                                  FC5A219    17
                          64300                   SB3    A0                                                      FAS      3532
                               10611              BX6    X1                                                      FAS      3533
          2056  54001                             =A0    A0+1        STIND = STIND + 1                           FAS      3534
                     53633                        SA6    X3+B3       T.CLWB(STIND) = BINARY WORD                 FC5A219    18
                          0100002435 +            RJ     STX         STORE INTO TEXT WORD                        FAS      3536
          2057  0400002033 +                      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
          2060  0400402060 +             ORD      SUBR   0           ENTRY/EXIT.                                 FAS      3551
          2061  5170000216 +                      SA7    ORDA                                                    FAS      3552
                          43600                   MX6    0                                                       FAS      3553
          2062  5100000000                        SA0    0           (A0) = CURRENT T.DIM PROCESSING INDEX       FAS      3554
                          5160000000 X            SHRINK T=SCR,X6                                                FAS      3555
          2063  5110000000 X             ORD10    SA1    T=DIM                                                   FAS      3556
                          5120000000 X            SA2    T.DIM                                                   FAS      3557
          2064  64200                             SB2    A0                                                      FAS      3558
                     63310                        SB3    X1                                                      FAS      3559
                          0623002060 +            GE     B2,B3,EXIT. IF END OF T.DIM, EXIT.                      FAS      3560
          2065  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
          2067  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
          2070  0317002072 +                      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
          2071  0400002063 +                      EQ     ORD10                                                   FAS      3573
                                                                                                                 FAS      3574
          2072  5120002476 +             ORD20    CLAS=  X2,DH,(VD,AS,DIM)                                       FAS      3575
                          11121                   BX1    X2*X1                                                   FAS      3576
                               76200              =X2    0           (X2) = NO RELOCATION                        FAS      3577
          2073  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
          2074  0100002456 +                      RJ     WWB         ISSUE HEADER                                FAS      3581
          2075  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/05. 20.00.32.      PAGE    76
        ASSEMBLER SUPPORTING ROUTINES                                 ORD 
  
          2076  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
          2077  20136                             HX1    D1.SPAN                                                 FAS      3589
                     5120000213 +                 SA2    SAVVD       RAVD = (SAVVD)                              FAS      3590
                               11761              BX7    X6*X1       RELOC BIT FOR SPAN                          FAS      3591
          2100  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
          2101  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
          2102  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
          2103  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
          2104  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
          2105  0100002456 +                      RJ     WWB         ISSUE DIMENSION INFO WORD                   FAS      3612
          2106  64200                             SB2    A0                                                      FAS      3613
                     63350                        SB3    X5                                                      FAS      3614
                          0723002075 +            LT     B2,B3,ORD40 IF ANOTHER DIMENSION                        FAS      3615
          2107  0400002063 +                      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
          2110  0400402110 +             OSB      SUBR               ENTRY/EXIT.                                 FAS      3628
          2111  5054000000 X                      SA5    A4+N.TABLE                                              FAS      3629
                          0305002110 +            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
          2112  5120000000 X                      SA2    CBI                                                     FAS      3634
                          10622                   BX6    X2                                                      FAS      3635
                               20714              LX7    PB.BIASP                                                FAS      3636
          2113  5160000214 +                      SA6    SAVCBI      SAVE CURRENT BLOCK INDEX                    FAS      3637
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    77
        ASSEMBLER SUPPORTING ROUTINES                                 OSB 
  
                          0100002240 +            RJ     PUSE        SWITCH ORG PARCEL COUNTS TO SUB BLOCK       FAS      3638
          2114  73050                             SX0    X5                                                      FAS      3639
                     5204777776                   SA0    X4-1        TABI = FWA OF TABLE - 1                     FAS      3640
          2115  0100001421 +                      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
          2116  7200777776               OSB10    SX0    X0-1                                                    FAS      3647
                          54001                   =A0    A0+1        TABI = TABI + 1                             FAS      3648
                               54100              SA1    A0          TABLE ENTRY = (TABI)                        FAS      3649
          2117  0330002123 +                      MI     X0,OSB30    IF END OF TABLE                             FAS      3650
                          76211                   =X2    2           INDICATE PROGRAM RELOCATION BYTE            FAS      3651
          2120  0311002121 +                      NZ     X1,OSB20    IF NOT ZERO                                 FAS      3652
                          7120000000              SX2    0           NO RELOCATION FOR ZERO WORD                 FAS      3653
          2121  0100002435 +             OSB20    RJ     STX         STORE INTO TEXT                             FAS      3654
          2122  0400002116 +                      EQ     OSB10                                                   FAS      3655
                                                                                                                 FAS      3656
                                        *         RESTORE TO ORG IN USE BEFORE SUB BLOCK.                        FAS      3657
                                                                                                                 FAS      3658
          2123  5140000214 +             OSB30    SA4    SAVCBI      PICK UP OLD INDEX TO LBT                    FAS      3659
                          20414                   LX4    PB.BIASP                                                FAS      3660
                               10744              BX7    X4                                                      FAS      3661
          2124  0100002240 +                      RJ     PUSE        SWITCH ORG, PARCEL COUNTS BACK TO ORIGINAL  FAS      3662
          2125  0400002110 +                      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
          2126  0400402126 +             OTB      SUBR   0           ENTRY/EXIT.                                 FAS      3674
                                   0              ERRMI  1-FUDGE                                                 FAS      3675
                                                                                                                 FC50809    59
          2127  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
          2130  7212770000                        SX1    X2-BT=MXWC                                              FAS      3679
                          0302002126 +            ZR     X2,EXIT.    IF NO MORE ENTRIES                          FAS      3680
          2131  0331002133 +                      MI     X1,OTB20    IF TABLEN .LT. MAXWC                        FAS      3681
                          7120007777              SX2    BT=MXWC     LEN = MAXLEN                                FAS      3682
          2132  10711                             BX7    X1          NEWLEN = LEN - MAXLEN                       FAS      3683
                     43400                        MX4    0           LTB = 0                                     FAS      3684
                                                                                                                 FC50809    60
          2133  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/05. 20.00.32.      PAGE    78
        ASSEMBLER SUPPORTING ROUTINES                                 OTB 
  
                               54720              SA7    A2          LEN(TAB) = NEWLEN                           FAS      3688
          2134  54300                             SA3    A0                                                      FAS      3689
                     12732                        BX7    X3+X2                                                   FAS      3690
                          12774                   BX7    X7+X4       ADD IN BT.LTB                               FAS      3691
          2135  5275777776                        SA7    X5-1                                                    FAS      3692
                          10566                   BX5    X6          ADJUST FWA                                  FAS      3693
                               64670              WLGO   A7,B4+B1                                                FAS      3694
          2137  0400002127 +                      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
          2140  0400402140 +             OTC      SUBR   0           ENTRY/EXIT.                                 FC50809    71
                                                                                                                 FC50809    72
          2141  53250                    OTC10    SA2    X5          FETCH GROUP HEADER                          FC50809    73
                     0302002140 +                 ZR     X2,EXIT.    IF NO MORE ENTRIES                          FC50809    74
                               20252              HX2    DC.CNT                                                  FC50809    75
          2142  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
          2143  5130000030 +                      SA3    BT.PTEXT                                                FC50809    80
                          12732                   BX7    X3+X2                                                   FC50809    81
                               53750              SA7    X5          BT.PTEXT HEADER                             FC50809    82
          2144  73561                             =X5    X6+1        ADJUST FWA                                  FC50809    83
                     64670                        WLGO   A7,B4+B1                                                FC50809    84
          2146  0400002141 +                      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
          2147  0400402147 +             PAW      SUBR               ENTRY/EXIT.                                 FAS      3707
          2150  43744                             MX7    -WC.RAL                                                 FAS      3708
                     5170002355 +                 SA7    RELMASK     SET MASK FOR *REL*                          FAS      3709
                               54311              =A3    A1-WB.W+WC.W      = WCI                                 FAS      3710
          2151  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/05. 20.00.32.      PAGE    79
        ASSEMBLER SUPPORTING ROUTINES                                 PAW 
  
                          20344                   LX3    -WC.BCPP                                                FAS      3714
                               15610              BX6    -X0*X1      MODEI = MODE[WBI]                           FAS      3715
          2152  5120000070 +                      SA2    FCLMOD                                                  FAS      3716
                          43770                   MX7    -4                                                      FAS      3717
                               20602              LX6    2                                                       FAS      3718
          2153  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
          2154  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
          2155  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
          2156  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
          2157  20272                             LX2    OA.FPP                                                  FAS      3735
                     12227                        BX2    X2+X7                                                   FAS      3736
                          12662                   BX6    X6+X2                                                   FAS      3737
          2160  0520002174 +                      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
          2161  0334402161 +                      MI     X4,"BLOWUP" IF CLENI .LT. 0                             FAS      3742
                          20030                   LX0    OA.BCPP                                                 FAS      3743
                               20371              LX3    OA.INDP     IND[OA.] = CTYPI                            FAS      3744
          2162  12330                             BX3    X3+X0                                                   FAS      3745
                     20436                        LX4    OA.LENP                                                 FAS      3746
                          12663                   BX6    X6+X3                                                   FAS      3747
                               36664              IX6    X6+X4                                                   FAS      3748
          2163  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
                          66210                   =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3754
                               20536              LX5    PB.TAGP                                                 FAS      3755
          2164  0100002262 +                      RJ     REL                                                     FAS      3756
          2165  5110000055 +                      SA1    BINWORD                                                 FAS      3757
                          20102                   HX1    OA.IND                                                  FAS      3758
                               43752              MX7    -OA.LENL                                                FAS      3759
          2166  0321002147 +                      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
          2167  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/05. 20.00.32.      PAGE    80
        ASSEMBLER SUPPORTING ROUTINES                                 PAW 
  
          2170  54610                             SA6    A1          LEN[BINWORD] = 0                            FAS      3771
                     5170002355 +                 SA7    RELMASK     (RELMASK) = OA.LENL MASK                    FAS      3772
                               20314              LX3    PB.BIASP                                                FAS      3773
          2171  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
          2172  0100002262 +                      RJ     REL                                                     FAS      3778
          2173  0400002147 +                      EQ     EXIT.                                                   FAS      3779
                                                                                                                 FAS      3780
                                        *         FORMAL PARAMETERS.                                             FAS      3781
                                        *         (X6) = PARTIAL (BINLIST) WORD.                                 FAS      3782
                                                                                                                 FAS      3783
          2174  43063                    PAW20    MX0    -OA.ARGL                                                FAS      3784
                     20154                        LX1    WB.LCMP-WB.FPNOP                                        FAS      3785
                          15010                   BX0    -X0*X1      FPNOI = FPNO[WBI]                           FAS      3786
          2175  7200777776                        =X0    X0-1        FPNOI = FPNOI - 1                           FAS      3787
                                         .T       IFEQ   TEST,ON,1                                               FAS      3788
                          0330402175 +            MI     X0,"BLOWUP" IF FPNOI .LT. 0                             FAS      3789
          2176  43700                             MX7    0                                                       FAS      3790
                                                  LX0    OA.ARGP                                                 FAS      3791
                     12660                        BX6    X6+X0                                                   FAS      3792
                          5160000055 +            SA6    BINWORD     ARG[BINWORD] = FPNOI                        FAS      3793
          2177  5170000056 +                      SA7    BINREL      INDICATE NO RELOCATION                      FAS      3794
                          0400002147 +            EQ     EXIT.                                                   FAS      3795
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    81
        ASSEMBLER SUPPORTING ROUTINES                                 PIT 
  
                                        **        PIT - PUMPS OUT IDNT (77) TABLE.                               FAS      3797
                                                                                                                 FAS      3798
                                                                                                                 FAS      3799
          2200  0400402200 +             PIT      SUBR   0           ENTRY/EXIT.                                 FAS      3800
          2201  5110000000 X                      SA1    TL.DATE                                                 FAS      3801
                          5120000000 X            SA2    IDENT                                                   FAS      3802
          2202  6120000006                        SB2    CHAR                                                    FAS      3803
                          22621                   LX6    X1,B2                                                   FAS      3804
                               10722              BX7    X2                                                      FAS      3805
          2203  5130000000 X                      SA3    TL.TIME                                                 FAS      3806
                          5160000002 +            SA6    BT.IDNT+2                                               FAS      3807
          2204  5076777776                        SA7    A6-1                                                    FAS      3808
                          5170000061 +            SA7    BT.XFR1                                                 FAS      3809
          2205  22623                             LX6    X3,B2                                                   FAS      3810
                     5066000001                   SA6    A6+1                                                    FAS      3811
          2206  5110000000 X                      SA1    CP.MODL                                                 FAS      3812
                          5120000000 X            SA2    TL.PTYP                                                 FAS      3813
          2207  22601                             LX6    X1                                                      FAS      3814
                     10722                        BX7    X2                                                      FAS      3815
                          5160000015 +            SA6    BT.IDNT+BT.IDNTU                                        FAS      3816
          2210  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
          2211  5120000000 X                      SA2    CO.ARGF                                                 FC51002    19
                          20101                   LX1    1                                                       FC51002    20
                               20202              LX2    2                                                       FC51002    21
          2212  36212                             IX2    X1+X2                                                   FC51002    22
                     5212002223 +                 SA1    X2+PITA                                                 FC51002    23
                               22601              LX6    X1                                                      FC51002    24
          2213  5160000014 +                      SA6    BT.IDNT+BT.IDNTB                                        FC51002    25
                                                                                                                 FC5A406     6
                                         #DAL     IFNE   .DAL,0                                                  FC5A406     7
                          5110000000 X            SA1    LEVEL2                                                  FC5A406     8
          2214  5120000007 +                      SA2    BT.IDNT+7   HARDWARE REQUIREMENTS                       FC5A406     9
                          43006                   MX0    CHAR                                                    FC5A406    10
                               20060              LX0    8*CHAR                                                  FC5A406    11
          2215  15220                             BX2    -X0*X2                                                  FC5A406    12
                     7100000055                   SX0    1R                                                      FC5A406    13
          2216  0301002217 +                      ZR     X1,PIT1     IF NO LCM NECESSARY                         FC5A406    14
                          7100000014              SX0    1RL                                                     FC5A406    15
                                                                                                                 FC5A406    16
          2217  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
          2220  6160000000 +                      WLGO   BT.IDNT,L.77+1                                          FAS      3818
          2222  0400002200 +                      EQ     EXIT.                                                   FAS      3819
                                                                                                                 FC51002    26
          2223  01220754251623200503     PITA     DIS    1,ARG=UNSPEC  ARG=-COMMON/-FIXED                        FC51002    27
          2224  01220754031715151716              DIS    1,ARG=COMMON  ARG= COMMON/-FIXED                        FC51002    28
          2225  01220754061130050455              DIS    1,ARG=FIXED   ARG=-COMMON/ FIXED                        FC51002    29
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          2226  0400402226 +             POL      SUBR   =           ENTRY/EXIT.                                 FAS      3828
          2227                           POL.EQ   BSSENT 0                                                       FAS      3829
          2227  5120000000 X                      SA2    WO.LOO                                                  FAS      3830
                          5110000000 X            SA1    LINEBUF                                                 FAS      3831
          2230  0302002226 +                      ZR     X2,EXIT.    IF NO OBJECT LISTING REQUESTED              FAS      3832
                          0331002233 +            MI     X1,POL10    IF NOT BEGINNING OF WORD                    FAS      3833
          2231  0100000000 X                      PIA    ,A1         CONVERT ORGIN TO DPC                        FAS      3834
          2233  0100000000 X             POL10    CALL   PIK                                                     FAS      3835
          2234  5110002470 +                      SA1    =10H                                                    FAS      3836
                          10611                   BX6    X1                                                      FAS      3837
          2235  5160000000 X                      SETMEM LINEBUF,5,X6      BLANK FILL LINEBUF 5 WORDS            FAS      3838
          2237  0400002226 +                      EQ     EXIT.                                                   FAS      3839
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    83
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION
  
          2237                                    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
          2240  0400402240 +             PUSE     SUBR   0           ENTRY/EXIT                                  COMFUSE    17
                                                                                                                 COMFUSE    18
                                        *         SAVE THE OLD.                                                  COMFUSE    19
                                                                                                                 COMFUSE    20
          2241  5120000000 X                      SA2    =XCBI       CURRENT BLOCK INDEX                         COMFUSE    21
                          43666                   MX6    -LB.PARCL                                               COMFUSE    22
                               43052              MX0    -LB.ORGL                                                COMFUSE    23
          2242  20666                             LX6    LB.PARCP                                                COMFUSE    24
                     63720                        SB7    X2                                                      COMFUSE    25
                          5130000201 +            SA3    =XORG                                                   COMFUSE    26
          2243  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
          2244  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
          2245  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
          2246  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
          2247  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
          2250  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
          2251  5170000201 +                      SA7    =XORG                                                   COMFUSE    51
                          5160000202 +            SA6    =XPARCEL                                                COMFUSE    52
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    84
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION                                          COMFUSE 
  
          2252  0400002240 +                      EQ     EXIT.                                                   COMFUSE    53
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFUSE    55
                                                  QUAL   *                                                       COMFUSE    56
                                2240 +   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/05. 20.00.32.      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
          2253  0400402253 +             RBS      SUBR   0           ENTRY/EXIT                                  FAS      3850
          2254  0100000767 +                      RJ     BNW         FORCE UPPER                                 FAS      3851
          2255  43152                             MX1    -PB.BIASL                                               FAS      3852
                     20560                        LX5    -PB.BIASP                                               FAS      3853
                          5130000201 +            SA3    ORG                                                     FAS      3854
          2256  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
          2257  0301002260 +                      ZR     X1,RBS1     IF ORG NOT BUMPED                           FAS      3859
                          0100001421 +            RJ     DTX         FLUSH TEXT TABLE                            FAS      3860
                                                                                                                 FAS      3861
          2260  0100002226 +             RBS1     RJ     POL                                                     FAS      3862
          2261  0400002253 +                      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
          2262  0400402262 +             REL      SUBR               ENTRY/EXIT...                               FAS      3893
          2263  66500                             =B5    0           INITIALIZE FOR *BST*                        FAS      3894
                     5130002355 +                 SA3    RELMASK                                                 FAS      3895
          2264  5110002356 +                      SA1    RELPOS                                                  FAS      3896
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    86
        SUPPORTING ROUTINES                                           REL 
  
                          63310                   SB3    X1                                                      FAS      3897
                               10655              BX6    X5                                                      FAS      3898
          2265  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
          2266  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
          2267  15353                             BX3    -X3*X5      BIASI = BIAS[INSTRUCTION]                   FAS      3907
                     20236                        LX2    PB.GHIJL+18          X2 = (30/0, 12/GHIJ, 18/0)         FAS      3908
                          0306002321 +            ZR     X6,REL60    IF TAGI .EQ. 0                              FAS      3909
          2270  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
          2271  22737                             LX7    B3                                                      FAS      3914
                     0305002276 +                 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
          2272  6275777772                        SB7    X5-K=END                                                FAS      3924
                          0670402272 +            PL     B7,"BLOWUP"       IF PFXI .GE. K=END                    FAS      3925
                                         .T       ENDIF                                                          FAS      3926
          2273  5255002350 +                      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
          2274  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
          2275  0400002321 +                      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
          2276  5110000000 X             REL10    SA1    T.SYM                                                   FAS      3942
                          5150000000 X            SA5    S=BU                                                    FAS      3943
          2277  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
          2300  0315002303 +                      NZ     X5,REL15    IF ORDI .NE. (S=BU)                         FAS      3949
                          5110000201 +            SA1    ORG                                                     FAS      3950
          2301  5130002477 +                      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/05. 20.00.32.      PAGE    87
        SUPPORTING ROUTINES                                           REL 
  
          2302  0400002323 +                      EQ     REL65                                                   FAS      3954
                                                                                                                 FAS      3955
          2303  53111                    REL15    =A1    X1+WB.W     WBI = T.SYM(STIND)                          FAS      3956
                     10511                        BX5    X1                                                      FAS      3957
                          20170                   LX1    59-WB.LABP                                              FAS      3958
          2304  0331002311 +                      MI     X1,REL30    IF STATEMENT LABEL                          FAS      3959
                          20161                   LX1    WB.LABP-WB.EXTP                                         FAS      3960
          2305  0331002317 +                      MI     X1,REL50    IF EXTERNAL LINKAGE SYMBOL                  FAS      3961
                          20172                   LX1    WB.EXTP-WB.FPP                                          FAS      3962
          2306  0321002310 +                      PL     X1,REL20    IF NOT F. P.                                FAS      3963
                          43463                   MX4    -WB.FPNOL                                               FAS      3964
                               20154              LX1    1+WB.FPP-WB.FPNOP                                       FAS      3965
          2307  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
          2310  7140100000               REL20    CLAS=  X4,WB,(COM)                                             FAS      3969
                          11445                   BX4    X4*X5                                                   FAS      3970
          2311  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
          2312  0304002321 +                      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
          2313  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
          2314  20552                             SBIT   X5,WB.LCMP                                              FAS      3982
                     43701                        MX7    1                                                       FAS      3983
                          11075                   BX0    X7*X5       ISOLATE LCM BIT                             FAS      3984
          2315  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
          2316  20122                             LX1    BT.RLP                                                  FAS      3988
                     12441                        BX4    X4+X1                                                   FAS      3989
                          0400002321 +            EQ     REL60                                                   FAS      3990
                                                                                                                 FAS      3991
                                        *         PROCESS EXTERNAL LINKAGE SYMBOL.                               FAS      3992
                                        *         (X0) = STIND                                                   FAS      3993
                                                                                                                 FAS      3994
          2317  7110000000 X             REL50    SX1    T.LINK                                                  FAS      3995
                          20122                   LX1    BT.RLP                                                  FAS      3996
                               76600              SX6    B0                                                      FAS      3997
          2320  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/05. 20.00.32.      PAGE    88
        SUPPORTING ROUTINES                                           REL 
  
                                                                                                                 FAS      4011
          2321  5110002356 +             REL60    SA1    RELPOS                                                  FC5A281     7
                          6231000036              SB3    X1+60-PB.BIASL-PB.BIASP                                 FC5A281     8
          2322  22333                             LX3    B3,X3                                                   FC5A281     9
                     23333                        AX3    B3,X3       SIGN EXTEND BIAS                            FC5A281    10
                          36636                   IX6    X3+X6       (X6) = FINAL ADDRESS                        FAS      4017
          2323  5110000055 +             REL65    SA1    BINWORD                                                 FAS      4024
                          5130002355 +            SA3    RELMASK                                                 FAS      4025
          2324  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
          2325  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
          2326  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
          2327  54720                             SA7    A2                                                      FAS      4042
                     0304002347 +                 ZR     X4,REL90    IF NO SPECIAL RELOCATION                    FAS      4043
          2330  0324002340 +                      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
          2331  0312002332 +                      NZ     X2,REL70    IF NOT PROGRAM BLOCK                        FAS      4049
                          73221                   SX2    X2+B1       ADD 1 FOR PROGRAM BLOCK NUMBER              FAS      4050
          2332  5110000201 +             REL70    SA1    ORG                                                     FAS      4051
                          76730                   SX7    B3          LOW-ORDER BIT POSITION OF ADDRESS FIELD     FAS      4052
                               20106              LX1    6                                                       FAS      4053
          2333  12617                             BX6    X1+X7                                                   FAS      4054
                     20606                        LX6    6                                                       FAS      4055
                          5130002355 +            SA3    RELMASK                                                 FAS      4056
          2334  14333                             BX3    -X3                                                     FAS      4057
                     47333                        CX3    X3                                                      FAS      4058
                          12663                   BX6    X6+X3                                                   FAS      4059
                               20611              LX6    9                                                       FAS      4060
          2335  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
          2336  5110000000 X                      ADDWD  T.XFIL                                                  FAS      4065
          2337  0400002347 +                      EQ     REL90                                                   FAS      4066
                                                                                                                 FAS      4067
                                        *         MAKE LINK/FILL TABLE ENTRY --                                  FAS      4068
                                                                                                                 FAS      4069
          2340  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
          2341  20505                             LX5    BT.RLL-4                                                FAS      4074
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          2342  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
          2344  5130000000 X                      SA3    CO.SNAP                                                 FAS      4083
                          20313                   LX3    1RK                                                     FAS      4084
          2345  0323002347 +                      PL     X3,REL8S    IF LINK TABLE SNAP NOT SELECTED             FAS      4085
          2346  0100000000 X                      DUMPT  LINK                                                    FAS      4086
          2347                           REL8S    BSS    0                                                       FAS      4087
                                         SNAP=K   ENDIF                                                          FAS      4088
                                                                                                                 FAS      4089
          2347  0450002262 +             REL90    EQ     B5,B0,EXIT. IF NO   *SUB*  TO MAKE                      FAS      4090
                          0100001000 +            RJ     BST         GO MAKE A  *SUB*                            FAS      4091
          2350  0400002262 +                      EQ     EXIT.                                                   FAS      4092
                                                                                                                 FAS      4093
          2351                           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
          2355                                    LOC    *O                                                      FAS      4101
                                                                                                                 FAS      4102
          2355                     1     RELMASK  BSS    1           COMPLEMENT MASK OF BIAS FIELD SIZE          FAS      4103
          2356                     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/05. 20.00.32.      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
          2357  0400402357 +             RNI      SUBR   =           ENTRY/EXIT.                                 FAS      4115
          2360  6160000762 +                      READW  F.PB,RADB,1     READ NEXT (PB.) WORD                    FAS      4116
                                         .T       IFEQ   TEST,ON,1                                               FAS      4117
          2362  0311402362 +                      NZ     X1,"BLOWUP" IF REACHED EOR/EOF/EOI                      FAS      4118
                          5150000762 +            SA5    RADB        FETCH WORD                                  FAS      4119
          2363  10755                             BX7    X5                                                      FAS      4120
                     5170000211 +                 SA7    OL=PB                                                   FAS      4121
          2364  0400002357 +                      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
          2365  0400402365 +             RMI      SUBR                                                           FAS      4131
          2366  63750                             SB7    X5                                                      FAS      4132
                     7120000000 X                 READW  F.PB,B6,B7                                              FAS      4133
                                         .T       IFEQ   TEST,ON,1                                               FAS      4134
          2370  0311402370 +                      NZ     X1,"BLOWUP" IF PREMATURE EOR                            FAS      4135
                          0400002365 +            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
          2371  0400402371 +             ROL      SUBR   0           ENTRY/EXIT.                                 FAS      4146
          2372  5110002470 +                      SA1    =10H                                                    FAS      4147
                          5120000201 +            SA2    ORG                                                     FAS      4148
          2373  6172777774                        SB7    B2-3                                                    FAS      4149
                          10611                   BX6    X1                                                      FAS      4150
          2374  0570002375 +                      NZ     B7,ROL10    IF NOT BEGINNING OF NEW WORD                FAS      4151
                          10622                   BX6    X2                                                      FAS      4152
          2375  5160000000 X             ROL10    SA6    LINEBUF                                                 FAS      4153
                          0400002371 +            EQ     EXIT.                                                   FAS      4154
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          2376  0400402376 +             SMW      SUBR   0           ENTRY/EXIT...                               FAS      4171
          2377  5031000000 X                      SA3    A1+N.TABLE                                              FAS      4172
                          0303002376 +            ZR     X3,EXIT.    IF EMPTY TABLE                              FAS      4173
          2400  53030                             SA0    X3          (A0) = LENGTH OF TABLE                      FAS      4174
                     53510                        SA5    X1          FETCH (A5, X5) = TABLE ENTRY                FAS      4175
                          13666                   SHRINK A3                                                      FAS      4176
          2401  43200                    SMW4     MX2    0           INDICATE NO RELOCATION                      FAS      4177
                     10155                        BX1    X5                                                      FAS      4178
                          0100002435 +            RJ     STX         STORE WORD IN TEXT TABLE                    FAS      4179
          2402  65401                             SB4    A0-B1                                                   FAS      4180
                     5055000001                   SA5    A5+1        FETCH NEXT ENTRY                            FAS      4181
                               55001              SA0    A0-B1       DECREMENT UNPROCESSED LENGTH                FAS      4182
          2403  0704002401 +                      GT     B4,SMW4     IF TABLE NOT EXHAUSTED                      FAS      4183
                          0400002376 +            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/05. 20.00.32.      PAGE    92
        SUPPORTING ROUTINES                                           SNR 
  
          2404  0400402404 +             SNR      SUBR   =           ENTRY/EXIT...                               FAS      4210
          2405  5110000000 X             SNR2     SA1    T=NLST                                                  FAS      4211
                          5120000000 X            SA2    T.NLST                                                  FAS      4212
          2406  66221                             =B2    B2+1        *(B2) = ORDINAL NEXT MEMBER                 FAS      4213
                     63510                        SB5    X1          (B5) = LEN (T.NLST)                         FAS      4214
                          0605002434 +            LE     B5,B0,SNR5  IF T.NLST EMPTY                             FAS      4215
          2407  0730002434 +                      MI     B3,SNR5     IF NO MORE GROUPS                           FAS      4216
                          0635002434 +            GE     B3,B5,SNR5  IF IX[GRP-HDR] BEYOND END OF T.NLST         FAS      4217
          2410  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
          2411  15210                             BX2    -X0*X1                                                  FAS      4222
                     63420                        SB4    X2          *(B4) = NR GROUP MEMBERS                    FAS      4223
                                                                                                                 FAS      4224
                                         .T       IFEQ   TEST,ON                                                 FAS      4225
                          67721                   =B7    B2-1                                                    FAS      4226
          2412  0747402412 +                      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
          2413  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
          2414  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
          2415  76350                             SX3    B5                                                      FAS      4249
                     37323                        IX3    X2-X3                                                   FAS      4250
                          0323402415 +            PL     X3,"BLOWUP" IF INDEX BEYOND END OF T.NLST               FAS      4251
                                         .T       ENDIF                                                          FAS      4252
                                                                                                                 FAS      4253
          2416  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
          2417  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
          2420  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/05. 20.00.32.      PAGE    93
        SUPPORTING ROUTINES                                           SNR 
  
                                                                                                                 FAS      4267
          2421  0521002427 +                      NE     B2,B1,SNR3  IF PROCESSING MEMBER                        FAS      4268
                                                                                                                 FAS      4269
                                         .T       IFEQ   TEST,ON                                                 FAS      4270
                          10311                   BX3    X1                                                      FAS      4271
                               20337              SBIT   X3,WB.NLSTP                                             FC5A231   150
          2422  0323402422 +                      PL     X3,"BLOWUP" IF NOT GROUP NAME                           FC5A231   151
                          20335                   LX3    WB.NLSTP+1-WB.PNTP-WB.PNTL                              FAS      4273
                               21357              AX3    -WB.PNTL                                                FAS      4274
          2423  63730                             SB7    X3                                                      FAS      4275
                     0573402423 +                 NE     B7,B3,"BLOWUP"    IF GROUP-NAME ORDINAL MISMATCH        FAS      4276
                                         .T       ENDIF                                                          FAS      4277
                                                                                                                 FAS      4278
                               10311              BX3    X1                                                      FAS      4279
          2424  20335                             SBIT   X3,WB.MATP                                              FC5A231   152
                     0333002432 +                 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
          2425  21102                             AX1    2                                                       FAS      4282
                     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
          2426  0400002405 +                      EQ     SNR2        RESTART                                     FAS      4286
                                                                                                                 FAS      4287
          2427  10311                    SNR3     BX3    X1                                                      FAS      4288
                     20361                        SBIT   X3,WB.ARYP                                              FC5A231   154
                          0323002432 +            PL     X3,SNR4     IF NOT ARRAY                                FC5A231   155
          2430  5120000000 X                      SA2    T.DIM                                                   FAS      4290
                          10311                   BX3    X1                                                      FAS      4291
                               63720              SB7    X2                                                      FAS      4292
                                                  HX3    WB.PNT                                                  FAS      4293
          2431  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
          2432  0642002404 +             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
          2433  0735002404 +                      LT     B3,B5,EXIT. IF ANOTHER GROUP                            FAS      4301
          2434  66200                    SNR5     =B2    0           *(B2) = NO MORE MEMBERS                     FAS      4302
                     67301                        =B3    -1          *(B3) = END OF T.NLST                       FAS      4303
                          0400002404 +            EQ     EXIT.                                                   FAS      4304
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          2435  0400402435 +             STX      SUBR               ENTRY/EXIT...                               FAS      4320
          2436  5130000033 +                      SA3    BT.TXWC                                                 FAS      4321
                          10611                   BX6    X1                                                      FAS      4322
          2437  5110000035 +                      SA1    BT.TXRB                                                 FAS      4323
                          7170000003              SX7    3                                                       FAS      4324
          2440  5160000207 +                      SA6    OL=BIN                                                  FAS      4325
                          5263000036 +            SA6    X3+BT.TEXT+2                                            FAS      4326
          2441  73631                             SX6    X3+B1                                                   FAS      4327
                     20104                        LX1    L.BTRB                                                  FAS      4328
                          54630                   SA6    A3          UPDATE WORD COUNT                           FAS      4329
          2442  5170000202 +                      SA7    PARCEL      INDICATE EMPTY WORD                         FAS      4330
                          12721                   BX7    X2+X1                                                   FAS      4331
          2443  5120000201 +                      SA2    ORG                                                     FAS      4332
                          7236777760              SX3    X6-15                                                   FAS      4333
          2444  10622                             BX6    X2          CAPTURE (ORIGIN) FOR LISTING                FAS      4334
                     5160000000 X                 SA6    LINEBUF                                                 FAS      4335
                               13666              BX6    0                                                       FAS      4336
          2445  54710                             SA7    A1                                                      FAS      4337
                     5160000055 +                 SA6    BINWORD                                                 FAS      4338
                               76710              =X7    1                                                       FAS      4339
          2446  36727                             IX7    X2+X7       INCREMENT ORIGIN COUNTER                    FAS      4340
                     54661                        SA6    A6+B1                                                   FAS      4341
                          54720                   SA7    A2                                                      FAS      4342
          2447  0333002435 +                      MI     X3,EXIT.    IF NOT FULL TABLE                           FAS      4343
                                                                                                                 FAS      4344
                          0100001421 +            RJ     DTX         FLUSH TEXT TABLE                            FAS      4345
          2450  0400002435 +                      EQ     EXIT.                                                   FAS      4346
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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
          2451  0400402451 +             WLF      SUBR   =           ENTRY/EXIT.                                 FAS      4436
          2452                           WLF.EQ   BSSENT 0                                                       FAS      4437
          2452  76640                             SX6    B4          SAVE (B4)                                   FAS      4438
                     5160000000 X                 SA6    GT1                                                     FAS      4439
          2453  7120000000 X                      WRITEW F.LGO,B6,B7  WRITE IT OUT ON DISK                       FAS      4440
          2454  5110000000 X                      SA1    GT1                                                     FAS      4441
                          63410                   SB4    X1          RESTORE (B4)                                FAS      4442
          2455  0400002451 +                      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
          2456  0400402456 +             WWB      SUBR   0           ENTRY/EXIT.                                 FAS      4456
          2457  5140000216 +                      SA4    ORDA                                                    FAS      4457
                          0304002463 +            ZR     X4,WWB10    IF WRITING TO TEXT                          FAS      4458
          2460  10611                             BX6    X1                                                      FAS      4459
                     5110000000 X                 ADDWD  T.SCR                                                   FAS      4460
          2462  0400002456 +                      EQ     EXIT.                                                   FAS      4461
                                                                                                                 FAS      4462
          2463  0100002435 +             WWB10    RJ     STX         OUTPUT A WORD TO TEXT TABLE                 FAS      4463
          2464  0400002456 +                      EQ     EXIT.                                                   FAS      4464
                                                                                                                 FAS      4465
                                                  PURGMAC WLGO                                                   FAS      4466
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      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.
  
          2465  05222217222355111655    ERRORS IN 
          2466  03171520111401241117    COMPILATIO
          2467  16575555555555550000    N.
          2470  55555555555555555555
          2471  45555555555555555555    + 
          2472  00000460006100046000      D# [ D# 
          2473  00000631463146314632      FY-Y-Y-Z
          2474  00000000077777777777        G;;;;;
          2475  00770000000000000000     ;
          2476  60000000000000000077    #        ;
          2477  00000000000000400000           5
  
          2534                                    END                                                            FAS      4469
  
                             72200B CM  STORAGE USED            11369 STATEMENTS     2341 SYMBOLS      000011 INVENTED SYMBOLS
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    97
        SUPPORTING ROUTINES 
  
                               PARALLEL CPU ASSEMBLY            3.404 SECONDS        2524 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADA             0   EXTERNAL*       2/41 X   57/03
        ADW             0   EXTERNAL*       2/11 X   39/20     42/56     43/24     89/06
                                           38/55     39/21     43/19     88/48     95/43
        ALC             0   EXTERNAL*       2/11 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          336   PROGRAM*       16/13 S   16/16     16/30     17/03 L   17/03 E
        APL.15        326   PROGRAM*       16/44 L   16/49
        APL.20        331   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/28 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           767   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          776   PROGRAM*       34/15     34/29 L
        BN=APL          0   EXTERNAL*       2/28 X   16/33
        BN=SUB          0   EXTERNAL*       2/28 X   14/31     20/40     31/02
        BN=SUB0         0   EXTERNAL*       2/28 X   14/30     20/43     30/45
        BOS.1         621   PROGRAM*       27/44     27/46 L
        BST          1000   PROGRAM*       34/51 L   34/51 E   89/17
        BST.EQ       1001   PROGRAM*       34/52 L   34/52 E
        BSZ          1017   PROGRAM*       30/25     36/12 L
        BSZ10        1035   PROGRAM*       36/56     37/02 L
        BSZ4         1032   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
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        BT.BCPP        44                   6/50 D   40/45
        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       2465   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
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        BT.TYP         24                   7/25 D   44/39
        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     42/26
        BT.XREPL        3                   8/36 D   42/26
        B1=1            0 
        CAB          1037   PROGRAM*       37/28 L   37/28 E   57/34
        CAB4         1041   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/28 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/44 X   23/15
        CIO=            0   EXTERNAL*       2/47 X   19/12     20/55
        CLE          1047   PROGRAM*       27/49     38/44 L   38/44 E
        CLE.EQ       1050   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/17 X   13/17     81/26
        CO.ARGF         0   EXTERNAL*       2/19 X   81/27
        CO.DBPM         0   EXTERNAL*       2/17 X   46/01     49/19
        CO.LL           0   EXTERNAL*      18/26
        CO.OPT          0   EXTERNAL*       2/17 X   13/30     17/42     23/04
        CO.PW           0   EXTERNAL*       2/17 X   14/50
        CO.SNAP         0   EXTERNAL*       2/17 X   50/17     52/47     89/09
        CP.MODL         0   EXTERNAL*       2/17 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          1055   PROGRAM*       27/04     39/16 L
        DDS10        1062   PROGRAM*       39/26 L   41/23     42/24     42/27     43/13
        DDS20        1074   PROGRAM*       40/02     40/05 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        DDS50        1123   PROGRAM*       40/18     41/21 L
        DDS70        1141   PROGRAM*       41/42     42/14 L   42/21
        DDS80        1151   PROGRAM*       40/50     41/16     42/33 L
        DDS81        1152   PROGRAM*       42/36 L   42/42
        DDS82        1154   PROGRAM*       42/38     42/44 L
        DDS83        1161   PROGRAM*       42/48     43/03 L
        DDS84        1162   PROGRAM*       43/01     43/05 L
        DDS85        1166   PROGRAM*       40/35     43/12 L
        DDS90        1167   PROGRAM*       39/32     43/17 L
        DELAY         200   PROGRAM*       12/22 L   14/40 S   35/26
        DFD          1200   PROGRAM*       20/47     44/04 L
        DFD20        1204   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          1230   PROGRAM*       18/33     45/39 L
        DIT10        1234   PROGRAM*       45/43     45/49 L
        DIT20        1245   PROGRAM*       46/26 L   46/47
        DIT40        1251   PROGRAM*       46/39     46/42 L
        DIT50        1252   PROGRAM*       46/33     46/44 L
        DIT60        1254   PROGRAM*       46/26     46/49 L
        DIT70        1265   PROGRAM*       47/17 L   47/34
        DLC          1274   PROGRAM*       45/44     48/04 L
        DLC20        1310   PROGRAM*       49/01 L   49/08
        DLC28        1312   PROGRAM*       49/06     49/08 L
        DLC30        1313   PROGRAM*       48/40     49/10 L
        DLC40        1315   PROGRAM*       48/37     49/19 L
        DLC45        1317   PROGRAM*       49/23 L   49/27
        DLC60        1321   PROGRAM*       49/20     49/32 L
        DLF          1326   PROGRAM*       20/46     50/12 L   50/12 E
        DLFA         1420   PROGRAM*       50/25 S   52/56     53/03 L
        DLF10        1345   PROGRAM*       50/53 L   51/18
        DLF10S       1332   PROGRAM*       50/19     50/21 L
        DLF100       1401   PROGRAM*       52/05     52/21 L
        DLF110       1402   PROGRAM*       52/21     52/23 L
        DLF120       1405   PROGRAM*       51/42     52/34 L
        DLF120S      1414   PROGRAM*       52/49     52/51 L
        DLF130       1416   PROGRAM*       52/38     52/56 L
        DLF20        1350   PROGRAM*       51/04     51/06 L
        DLF30        1351   PROGRAM*       50/57     51/10 L
        DLF40        1354   PROGRAM*       51/14     51/18 L
        DLF50        1356   PROGRAM*       51/20     51/22 L
        DLF60        1362   PROGRAM*       50/31     51/33 L
        DLF70        1373   PROGRAM*       52/02 L   52/16
        DLF80        1374   PROGRAM*       52/05 L   52/19
        DLF90        1377   PROGRAM*       52/09     52/14 L
        DMT=            0   EXTERNAL*       2/14 X   50/20     52/50     89/12
        DM.INFL        30   FTX            76/13     76/17     76/22
        DM.INFP         0   FTX            76/13
        DM.TDP         35   FTX            76/21     76/25
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        DTX          1421   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        1430   PROGRAM*       53/23     53/39 L
        DXB             0   EXTERNAL*       2/47 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       456   PROGRAM*       13/51     21/03 L
        END.50        453   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/28 X   13/50
        ESL          1433   PROGRAM*       27/29     54/09 L   54/09 E
        ESL10        1445   PROGRAM*       54/40 L   54/42
        ESL.EQ       1434   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          1454   PROGRAM*       15/57     20/19     31/36     33/28     55/11 E
                                           18/23     28/37     32/53     55/11 L
        FBP.EQ       1455   PROGRAM*       55/13 L   55/13 E
        FCLMOD         70   PROGRAM*        9/49 E    9/49 L   65/45     79/03
        FI=BCI        567   PROGRAM*       11/43     26/37 L
        FI=BOS        615   PROGRAM*       11/44     27/35 L
        FI=BRLI         0   EXTERNAL*       2/14 X   27/37
        FI=BSS        612   PROGRAM*       11/46     27/27 L
        FI=CPL        624   PROGRAM*       11/45     28/01 L
        FI=DATA       571   PROGRAM*       11/47     26/45 L
        FI=ECI        610   PROGRAM*       11/48     27/19 L
        FI=EMI        640   PROGRAM*       11/49     28/43 L
        FI=JPI        642   PROGRAM*       11/50     29/01 L
        FI=LD0        662   PROGRAM*       11/51     30/15 L
        FI=LOO        645   PROGRAM*       11/53     29/16 L
        FI=OTR        647   PROGRAM*       11/54     29/26 L
        FI=RJ3        660   PROGRAM*       11/55     30/01 L
        FI=RJ6        725   PROGRAM*       11/56     32/20 L
        FI=SB0I       672   PROGRAM*       12/01     30/44 L
        FI=ST0        671   PROGRAM*       11/52     30/37 L
        FI=SUBI       674   PROGRAM*       11/57     31/01 L
        FI=UJP        711   PROGRAM*       12/02     31/42 L
        FI=USE        747   PROGRAM*       12/03     33/10 L
        FI=ZERO       755   PROGRAM*       12/04     33/22 L
        FLA          1461   PROGRAM*       17/48     55/32 L
        FLA2         1464   PROGRAM*       55/37 L   55/56
        FO=ADDR       276   PROGRAM*       11/23     15/36 L
        FO=APL        307   PROGRAM*       11/25     16/06 L
        FO=BMI        337   PROGRAM*       11/26     17/08 L
        FO=BSS        341   PROGRAM*       11/24     17/15 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        FO=CON        343   PROGRAM*       11/27     17/22 L
        FO=END        437   PROGRAM*       11/28     20/35 L
        FO=EQUN       346   PROGRAM*       11/29     17/31 L
        FO=FMT        350   PROGRAM*       11/30     17/38 L
        FO=FVEC       357   PROGRAM*       11/31     18/01 L
        FO=IDNT       370   PROGRAM*       11/32     18/32 L
        FO=IOM        373   PROGRAM*       11/33     18/40 L
        FO=LCC        404   PROGRAM*       11/34     19/01 L
        FO=LOO        413   PROGRAM*       11/35     19/20 L
        FO=NLST       415   PROGRAM*       11/36     19/30 L
        FO=PLIM       367   PROGRAM*       11/37     18/26 L
        FO=TRAC       425   PROGRAM*       11/38     20/01 L
        FO=USE        421   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          1473   PROGRAM*       45/09     56/57 L
        FSTA         1550   PROGRAM*       57/32     60/01 L
        FSTB         1553   PROGRAM*       58/37 S   59/23     59/49 S   60/23 L
        FST10        1501   PROGRAM*       57/17 L   59/33     59/42     59/55
        FST30        1522   PROGRAM*       58/15     58/23     58/26 L
        FST40        1525   PROGRAM*       58/40 L   59/50
        FST50        1527   PROGRAM*       58/42     58/49 L
        FST60        1537   PROGRAM*       58/53     59/13     59/23 L
        FST65        1542   PROGRAM*       59/24     59/35 L
        FST70        1544   PROGRAM*       58/38     59/44 L
        FST80        1546   PROGRAM*       57/23     59/52 L
        FUDGE           1   FTX            77/43
        FVEC.10       363   PROGRAM*       18/06     18/14 L
        FVEC.20       364   PROGRAM*       18/20 L   18/27
        FV.LGO          0   EXTERNAL*       2/17 X   13/35     20/37
        F.LBT           0   EXTERNAL*       2/28 X   14/32     14/33     16/34     31/28     83/32     83/48
        F.LGO           0   EXTERNAL*       2/18 X   13/39     19/12     20/55     95/20
        F.PB            0   EXTERNAL*       2/18 X   90/11     90/31
        GT1             0   EXTERNAL*       2/18 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=LEN         42   FTX            67/57
        IC.BUF         35   FTX            66/56
        IC.FMT          4   FTX            68/48
        IC.STR         40   FTX            66/54
        IDENT           0   EXTERNAL*       2/28 X   20/02     45/54     81/06
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        IDP=            0   EXTERNAL*       2/22 X   27/45
        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
        KAP          1554   PROGRAM*       16/53     61/08 L
        KAPA          214   PROGRAM*       61/21 S   61/28     64/39 D
        KAP10        1564   PROGRAM*       61/26 L   64/23
        KAP12        1611   PROGRAM*       62/11     62/47 L
        KAP14        1612   PROGRAM*       62/23     62/50 L
        KAP15        1614   PROGRAM*       62/35     62/45     62/48     62/56 L
        KAP20        1625   PROGRAM*       62/54     63/03     63/41 L
        KAP25        1627   PROGRAM*       63/02     63/46 L
        KAP40        1631   PROGRAM*       63/14     63/57 L
        KAP50        1636   PROGRAM*       61/39     63/48     64/17 L   64/37
        KAP80        1641   PROGRAM*       61/48     64/31 L
        KIO          1643   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        1651   PROGRAM*       65/13 L   70/44
        KIO100       1757   PROGRAM*       70/24     70/26 L
        KIO110       1764   PROGRAM*       65/28     68/34     70/11     70/38 L
        KIO12        1665   PROGRAM*       65/41     65/51 L
        KIO15        1675   PROGRAM*       66/10     66/22 L
        KIO18        1703   PROGRAM*       66/23     66/49 L
        KIO19        1710   PROGRAM*       66/55     66/57     67/03 L
        KIO20        1712   PROGRAM*       66/32     67/15 L
        KIO30        1713   PROGRAM*       67/15     67/18 L
        KIO40        1721   PROGRAM*       66/33     67/45 L
        KIO60        1747   PROGRAM*       68/41     69/50 L
        KIO70        1750   PROGRAM*       69/52     69/54 L
        KIO80        1751   PROGRAM*       68/55     69/22     69/41     70/06 L
        KIO85        1752   PROGRAM*       66/52     67/04     67/06     70/08 L
        KIO90        1754   PROGRAM*       70/16 L
        KIO=         1726   PROGRAM*       10/27     10/28     10/29     68/16 L
        KIO=ACC      1740   PROGRAM*       10/30     69/01 L
        KIO=BFL      1740   PROGRAM*       10/32     69/02 L
        KIO=BLK      1740   PROGRAM*       10/31     69/03 L
        KIO=BUF      1733   PROGRAM*       10/47     68/39 L
        KIO=CNT      1751   PROGRAM*       10/48     70/03 L
        KIO=DIR      1740   PROGRAM*       10/33     69/05 L
        KIO=END      1727   PROGRAM*       10/20     68/22 L
        KIO=ERR      1727   PROGRAM*       10/21     68/23 L
        KIO=EXS      1740   PROGRAM*       10/34     69/04 L
        KIO=FIL      1740   PROGRAM*       10/35     69/06 L
        KIO=FMD      1740   PROGRAM*       10/37     69/07 L
        KIO=FMT      1742   PROGRAM*       10/22     69/27 L
        KIO=FMTA     1734   PROGRAM*       10/51     68/46 L
        KIO=FMT1     1745   PROGRAM*       69/33     69/39 L
        KIO=FOR      1740   PROGRAM*       10/36     69/08 L
        KIO=IOS      1746   PROGRAM*       10/23     69/47 L
        KIO=LIS      1751   PROGRAM*       67/53     70/05 L
        KIO=MOD      1727   PROGRAM*       10/49     68/24 L
        KIO=NAM      1740   PROGRAM*       10/38     69/09 L
        KIO=NMD      1740   PROGRAM*       10/39     69/10 L
        KIO=NML      1727   PROGRAM*       10/26     68/25 L
        KIO=NUM      1740   PROGRAM*       10/41     69/12 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        KIO=NXT      1740   PROGRAM*       10/40     69/11 L
        KIO=OPE      1740   PROGRAM*       10/42     69/13 L
        KIO=RCL      1727   PROGRAM*       10/43     68/26 L
        KIO=REC      1746   PROGRAM*       10/24     69/46 L
        KIO=SEQ      1740   PROGRAM*       10/44     69/14 L
        KIO=SKP      1727   PROGRAM*       10/25     68/27 L
        KIO=STA      1740   PROGRAM*       10/45     69/15 L
        KIO=STR      1751   PROGRAM*       10/50     70/04 L
        KIO=UNF      1740   PROGRAM*       10/46     69/16 L
        KIO=UNT      1746   PROGRAM*       10/19     69/48 L
        KNG          1767   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        2000   PROGRAM*       71/50 L   72/22
        KNG20        2007   PROGRAM*       72/19 L   73/01
        KNG32        2017   PROGRAM*       72/44     72/47 L
        KNG90        2025   PROGRAM*       72/02     73/05 L
        K=AP            2   FTX            89/23 L
        K=END           5   FTX            86/28     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        663   PROGRAM*       30/17 L   30/39
        LEVEL2          0   EXTERNAL*       2/38 X   81/36
        LINEBUF         0   EXTERNAL*       2/29 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/29 X   27/42 S
        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
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/29 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/47 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/29 X   13/26     50/28     50/39     51/33
        N.TABLE         0   EXTERNAL*       2/29 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
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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          2027   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        2033   PROGRAM*       74/04 L   75/07
        OCL20        2042   PROGRAM*       74/24     74/26 L
        OCL30        2050   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          2060   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        2063   PROGRAM*       75/29 L   75/46     76/33
        ORD20        2072   PROGRAM*       75/43     75/48 L
        ORD40        2075   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          607   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          2110   PROGRAM*       20/41     20/44     76/48 L
        OSB10        2116   PROGRAM*       77/10 L   77/18
        OSB20        2121   PROGRAM*       77/15     77/17 L
        OSB30        2123   PROGRAM*       77/13     77/22 L
        OTB          2126   PROGRAM*       44/14     44/50     45/17     77/42 L
        OTB10        2127   PROGRAM*       77/45 L   78/08
        OTB20        2133   PROGRAM*       77/50     77/55 L
        OTC          2140   PROGRAM*       43/21     43/26     78/22 L
        OTC10        2141   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/44 X   16/08     18/44
        PAW          2147   PROGRAM*       72/54     78/51 L
        PAW20        2174   PROGRAM*       79/25     80/14 L
        PB.BIASL       22   FTX            15/38     19/05     25/10     26/55     29/46     38/48     83/46
                                           18/15     19/21     25/11     27/38     32/22     71/32     85/10
                                           18/17     22/23     25/28     29/17     35/44     83/45     88/03
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   107
        SYMBOLIC REFERENCE TABLE. 
  
        PB.BIASP       14   FTX            15/36     19/07     25/37     29/49     32/48     61/12     83/45
                                           15/39     19/22     26/54     31/50     32/57     64/54     85/11
                                           15/46     22/22     27/39     32/25     35/47     76/56     85/15
                                           18/14     25/10     27/43     32/29     38/49     77/23     88/03
                                           19/03     25/20     29/18     32/44     38/51     80/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
        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     39/41     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/29 X   82/14
        PIK             0   EXTERNAL*       2/25 X   82/15
        PIK=PS          0   EXTERNAL*       2/29 X   23/53
        PIT          2200   PROGRAM*       21/04     45/40     81/04 L
        PITA         2223   PROGRAM*       81/31     81/53 L
        PIT1         2217   PROGRAM*       81/42     81/45 L
        POL          2226   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        2233   PROGRAM*       82/13     82/15 L
        POL.EQ       2227   PROGRAM*       82/09 L   82/09 E
        PUSE         2240   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           462   PROGRAM*       17/09     22/16 L
        RADA          761   PROGRAM*       22/33     23/28 S   33/32 L
        RADB          762   PROGRAM*       19/13     22/47 S   23/36 S   33/33 L   90/11     90/14
        RADC          763   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          764   PROGRAM*       22/41     32/56     33/35 L
        RADE          765   PROGRAM*       22/43     33/02 S   33/36 L
        RADF          766   PROGRAM*       22/37     33/04 S   33/37 L
        RADOL1        533   PROGRAM*       24/37 L   24/37 E
        RADOL2        553   PROGRAM*       25/47 L   25/47 E
        RADRTN        470   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         500   PROGRAM*       22/38     22/50 L
        RAD15         510   PROGRAM*       22/48     22/55     23/18 L
        RAD20         512   PROGRAM*       22/36     23/24 L
        RAD30         514   PROGRAM*       23/12     23/16     23/22     23/33 L
        RAD40         525   PROGRAM*       24/16 L   29/39     29/53     30/32
        RAD5          476   PROGRAM*       22/42     22/45 L
        RAD70         535   PROGRAM*       24/18     24/49 L
        RAD80         550   PROGRAM*       24/56     25/38 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   108
        SYMBOLIC REFERENCE TABLE. 
  
        RAD85         553   PROGRAM*       25/50 L   32/15
        RAD90         560   PROGRAM*       24/43     26/02     26/04 L
        RAD=PSI       564   PROGRAM*       23/44     26/26 L
        RBS          2253   PROGRAM*       17/16     27/28     85/08 L
        RBS1         2260   PROGRAM*       85/17     85/20 L
        RDW=            0   EXTERNAL*       2/47 X   90/11     90/31
        REL          2262   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      2355   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
        RELPOS       2356   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       2351   PROGRAM*       86/31     89/20 L
        REL10        2276   PROGRAM*       86/19     86/46 L
        REL15        2303   PROGRAM*       86/53     87/03 L
        REL20        2310   PROGRAM*       87/10     87/16 L
        REL30        2311   PROGRAM*       87/06     87/18 L
        REL50        2317   PROGRAM*       87/08     87/42 L
        REL60        2321   PROGRAM*       86/13     86/38     87/22     87/37     88/02 L
        REL65        2323   PROGRAM*       87/01     88/07 L
        REL70        2332   PROGRAM*       88/32     88/34 L
        REL8S        2347   PROGRAM*       89/11     89/13 L
        REL80        2340   PROGRAM*       88/27     88/53 L
        REL90        2347   PROGRAM*       88/26     88/49     89/16 L
        RJ6.10        736   PROGRAM*       32/39     32/43 L
        RMI          2365   PROGRAM*       27/02     90/29 L
        RNI          2357   PROGRAM*       15/06     22/50     90/10 L   90/10 E
        ROL          2371   PROGRAM*       34/29     90/47 L
        ROL10        2375   PROGRAM*       90/52     90/54 L
        SAVCBI        214   PROGRAM*       21/08 D   76/57 S   77/22
        SAVE            0   EXTERNAL*       2/29 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/47 X   20/03
        SMW          2376   PROGRAM*       17/25     17/41     91/16 L
        SMW4         2401   PROGRAM*       91/22 L   91/28
        SNR          2404   PROGRAM*       72/01     72/23     92/01 L   92/01 E
        SNR2         2405   PROGRAM*       92/02 L   93/22
        SNR3         2427   PROGRAM*       93/02     93/24 L
        SNR4         2432   PROGRAM*       93/16     93/26     93/35 L
        SNR5         2434   PROGRAM*       92/06     92/07     92/08     93/39 L
        SST             0   EXTERNAL*       2/47 X   50/34     51/45
        STX          2435   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       675   PROGRAM*       30/47     31/04 L
        SUM.LBT         0   EXTERNAL*       2/29 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
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   109
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/30 X   86/47
        S=ENTRY         0   EXTERNAL*       2/30 X   20/06     31/43
        S=LENP          0   EXTERNAL*       2/30 X   13/57     29/37
        S=RD            0   EXTERNAL*       2/30 X   62/32     71/30
        S=SA1           0   EXTERNAL*       2/30 X   44/21
        S=VD            0   EXTERNAL*       2/30 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            1   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/18 X   81/05
        TL.PTYP         0   EXTERNAL*       2/18 X   81/17
        TL.TIME         0   EXTERNAL*       2/18 X   81/10
        T=APL           0   EXTERNAL*       2/30 X   16/10     16/56     16/56 S   61/16     61/26
        T=BLKS          0   EXTERNAL*       2/30 X   45/49     48/12
        T=CLW           0   EXTERNAL*       2/30 X   18/51     18/51 S   73/52     74/04
        T=CLWB          0   EXTERNAL*       2/37 X   18/47     18/47 S   18/54     18/54 S
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   110
        SYMBOLIC REFERENCE TABLE. 
  
        T=DATS          0   EXTERNAL*       2/31 X   26/53     26/53 S   27/07     27/07 S   39/27
        T=DIM           0   EXTERNAL*       2/31 X   75/29
        T=ENT           0   EXTERNAL*       2/31 X   47/01
        T=FILL          0   EXTERNAL*       2/31 X   13/23     13/23 S   51/38     51/48
        T=IOA           0   EXTERNAL*       2/31 X   18/42     18/52     18/52 S   65/04     65/13
        T=LA            0   EXTERNAL*       2/31 X   17/43
        T=LCA           0   EXTERNAL*       2/31 X   16/09     16/18     16/39
        T=LCC           0   EXTERNAL*       2/31 X   19/10     19/10 S
        T=LGOB          0   EXTERNAL*       2/31 X   13/37     13/37 S
        T=LINK          0   EXTERNAL*       2/32 X   13/22     13/22 S   50/26     50/37     51/34     51/34 S
        T=LNT           0   EXTERNAL*       2/32 X   13/25     13/25 S   54/50
        T=NLST          0   EXTERNAL*       2/32 X   19/33     19/33 S   92/02
        T=PTXT          0   EXTERNAL*       2/32 X   39/18     39/18 S   43/22     43/22 S
        T=PTXTR         0   EXTERNAL*       2/32 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/32 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/32 X   45/04     57/06
        T=XFIL          0   EXTERNAL*       2/33 X   13/24     13/24 S   52/34     52/55     52/55 S
        T.API           0   EXTERNAL*       2/33 X   89/23
        T.APL           0   EXTERNAL*       2/33 X   16/15     16/17     61/27
        T.BLKS          0   EXTERNAL*       2/33 X   46/10     48/45
        T.CAC           0   EXTERNAL*       2/33 X   63/16     67/18
        T.CLW           0   EXTERNAL*       2/33 X   74/05
        T.CLWB          0   EXTERNAL*       2/37 X   73/57     75/01
        T.CON           0   EXTERNAL*       2/33 X   17/24
        T.DATS          0   EXTERNAL*       2/33 X   26/57     39/26     43/07
        T.DIM           0   EXTERNAL*       2/34 X   57/51     62/36     75/30     75/55     93/27
        T.ENT           0   EXTERNAL*       2/34 X   47/11
        T.FILL          0   EXTERNAL*       2/34 X   13/28     13/28     51/39     51/47     87/32
        T.FMT           0   EXTERNAL*       2/34 X   17/40
        T.FPI           0   EXTERNAL*       2/34 X   34/54     36/23
        T.FPO           0   EXTERNAL*       2/34 X   31/21
        T.GL            0   EXTERNAL*       2/34 X   89/22
        T.IOA           0   EXTERNAL*       2/34 X   65/14
        T.IOI           0   EXTERNAL*       2/34 X   89/24
        T.LA            0   EXTERNAL*       2/35 X   55/33
        T.LCA           0   EXTERNAL*       2/35 X   16/19     16/31     89/25
        T.LCC           0   EXTERNAL*       2/35 X   19/02
        T.LGOB          0   EXTERNAL*       2/35 X   13/45
        T.LINK          0   EXTERNAL*       2/35 X   13/27     50/27     50/36     51/23     87/42
        T.LNT           0   EXTERNAL*       2/35 X   38/55     44/10     54/49
        T.NLST          0   EXTERNAL*       2/35 X   92/03
        T.PTXT          0   EXTERNAL*       2/35 X   39/20     40/49     43/19     43/20
        T.PTXTR         0   EXTERNAL*       2/36 X   39/21     43/24     61/17     65/08
                                           39/21     41/15     43/25     64/19     70/38
        T.SCR           0   EXTERNAL*       2/36 X   45/08     45/53     48/19     95/43
                                           44/47     45/13     47/04     57/04
        T.SUB           0   EXTERNAL*       2/36 X   20/39     34/56
        T.SUB0          0   EXTERNAL*       2/36 X   20/42     37/02
        T.SYM           0   EXTERNAL*       2/36 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/36 X   13/29     13/29     52/35     88/48
        UJP.10        715   PROGRAM*       29/11     30/04     31/56 L
        UJP.5         714   PROGRAM*       31/48     31/53 L
        USAVE           0   EXTERNAL*       2/36 X   48/34
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   111
        SYMBOLIC REFERENCE TABLE. 
  
        VFD             0   EXTERNAL*       2/25 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
        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     93/06     93/08
        WB.PARMP       10   FTX            60/01
        WB.PNTL        15   FTX            57/49     93/08     93/09     93/31
        WB.PNTP        57   FTX            57/47     58/05     93/08
        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
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/05. 20.00.32.      PAGE   112
        SYMBOLIC REFERENCE TABLE. 
  
        WC.W            2   FTX            14/06     18/09     25/29     39/49     47/12     58/33     59/41     87/18
                                           14/21     20/12     28/17     40/07     55/44     59/32     71/39
                                           18/08     25/22     29/44     44/23     56/30     59/36     78/54
        WLF          2451   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       2452   PROGRAM*       95/17 L   95/17 E
        WOD             0   EXTERNAL*       2/47 X   55/15
        WO.LOO          0   EXTERNAL*       2/36 X   19/24 S   29/20 S   82/10
        WO.56           0   EXTERNAL*       2/37 X   44/19
        WO.57           0   EXTERNAL*       2/37 X   44/09
        WTW=            0   EXTERNAL*       2/47 X   95/20
        WWB          2456   PROGRAM*       75/54     76/29     95/39 L
        WWB10        2463   PROGRAM*       95/41     95/46 L
        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     15/18
        .DAL            1   FTX            30/09 F   36/13 F   81/35 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFUSE 
  
  
        PUSE         2240   PROGRAM*       83/22 L   84/08
1       ZEROLNK - 0,0 OVERLAY LINKAGES                                COMPASS 3.7-871.     24/05/05. 20.00.36.      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
  
                             67700B CM  STORAGE USED               61 STATEMENTS     1647 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.127 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/05. 20.00.36.      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/05. 20.00.36.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3326              IDENT  MAP
                       3326              FIN.MAP  END                END OF (1,0) OVERLAY WHEN NO OLIST 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      3227 
                                        LITERALS* LOCAL        3227        61 
                                        DEBUG     LOCAL        3310        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=MAP            0+           MAP            536+ 
                                        FIN              0+           FIN.MAP       3326+ 
  
  
                                        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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE     2
                                                                      MAP 
  
                                        *         IN UTILITY                                                     MAP        23
                                                  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/05. 20.00.36.      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/05. 20.00.36.      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/05. 20.00.36.      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/05. 20.00.36.      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/05. 20.00.36.      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/05. 20.00.36.      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  00000000030000003211 +   VARA     DTE    3,XB                                                    MAP       278
            10  00000000070000002455 +            DTE    7,NAM                                                   MAP       279
            11  00000000030000003202 +            DTE    3,XA                                                    MAP       280
            12  00000000130000002635 +            DTE    11,REF                                                  MAP       281
            13  00000000000000000000              DTE    0,0                                                     MAP       282
                                                                                                                 MAP       283
            14  00000000030000003211 +   VARB     DTE    3,XB                                                    MAP       284
            15  00000000070000002455 +            DTE    7,NAM                                                   MAP       285
            16  00000000100000002056 +            DTE    8,ADR                                                   FC5A416     5
            17  00000000020000003202 +            DTE    2,XA                                                    MAP       287
            20  00000000110000002143 +            DTE    9,BLK                                                   MAP       288
            21  00000000010000003202 +            DTE    1,XA                                                    MAP       289
            22  00000000200000002504 +            DTE    16,PRP                                                  MAP       290
            23  00000000010000003202 +            DTE    1,XA                                                    MAP       291
            24  00000000120000003031 +            DTE    10,TYP                                                  MAP       292
            25  00000000070000002765 +            DTE    7,SZE                                                   MAP       293
            26  00000000030000003220 +            DTE    3,XC                                                    MAP       294
            27  00000000000000000000              DTE   0,0                                                      MAP       295
                                                                                                                 MAP       296
            30  00000000030000003211 +   VARC     DTE    3,XB                                                    MAP       297
            31  00000000070000002455 +            DTE    7,NAM                                                   MAP       298
            32  00000000100000002056 +            DTE    8,ADR                                                   FC5A416     6
            33  00000000020000003202 +            DTE    2,XA                                                    MAP       300
            34  00000000110000002143 +            DTE    9,BLK                                                   MAP       301
            35  00000000010000003202 +            DTE    1,XA                                                    MAP       302
            36  00000000200000002504 +            DTE    16,PRP                                                  MAP       303
            37  00000000010000003202 +            DTE    1,XA                                                    MAP       304
            40  00000000120000003031 +            DTE    10,TYP                                                  MAP       305
            41  00000000070000002765 +            DTE    7,SZE                                                   MAP       306
            42  00000000030000003202 +            DTE    3,XA                                                    MAP       307
            43  00000000130000002635 +            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/05. 20.00.36.      PAGE     9
        TABLES
  
                                                                                                                 MAP       320
                                        **        FORMATTERS FOR SYMBOLIC CONSTANTS.                             MAP       321
                                                                                                                 MAP       322
            54  00000000030000003211 +   SCA      DTE    3,XB                                                    MAP       323
            55  00000000070000002455 +            DTE    7,NAM                                                   MAP       324
            56  00000000030000003202 +            DTE    3,XA                                                    MAP       325
            57  00000000130000002635 +            DTE    11,REF                                                  MAP       326
            60  00000000000000000000              DTE    0,0                                                     MAP       327
                                                                                                                 MAP       328
            61  00000000030000003211 +   SCB      DTE    3,XB                                                    MAP       329
            62  00000000070000002455 +            DTE    7,NAM                                                   MAP       330
            63  00000000010000003202 +            DTE    1,XA                                                    MAP       331
            64  00000000120000003031 +            DTE    10,TYP                                                  MAP       332
            65  00000000270000003071 +            DTE    23,VAL                                                  MAP       333
            66  00000000040000003220 +            DTE    4,XC                                                    MAP       334
            67  00000000000000000000              DTE    0,0                                                     MAP       335
                                                                                                                 MAP       336
            70  00000000030000003211 +   SCC      DTE    3,XB                                                    MAP       337
            71  00000000070000002455 +            DTE    7,NAM                                                   MAP       338
            72  00000000010000003202 +            DTE    1,XA                                                    MAP       339
            73  00000000120000003031 +            DTE    10,TYP                                                  MAP       340
            74  00000000270000003071 +            DTE    23,VAL                                                  MAP       341
            75  00000000030000003202 +            DTE    3,XA                                                    MAP       342
            76  00000000130000002635 +            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  00000000030000003211 +   PROA     DTE    3,XB                                                    MAP       358
           110  00000000070000002455 +            DTE    7,NAM                                                   MAP       359
           111  00000000030000003202 +            DTE    3,XA                                                    MAP       360
           112  00000000130000002635 +            DTE    11,REF                                                  MAP       361
           113  00000000000000000000              DTE    0,0                                                     MAP       362
                                                                                                                 MAP       363
           114  00000000030000003211 +   PROB     DTE    3,XB                                                    MAP       364
           115  00000000070000002455 +            DTE    7,NAM                                                   MAP       365
           116  00000000030000003202 +            DTE    3,XA                                                    MAP       366
           117  00000000120000003031 +            DTE    10,TYP                                                  MAP       367
           120  00000000020000003202 +            DTE    2,XA                                                    MAP       368
           121  00000000070000002113 +            DTE    7,ARG                                                   MAP       369
           122  00000000030000003202 +            DTE    3,XA                                                    MAP       370
           123  00000000120000002176 +            DTE    10,CLS                                                  MAP       371
           124  00000000040000003220 +            DTE    4,XC                                                    MAP       372
           125  00000000000000000000              DTE    0,0                                                     MAP       373
                                                                                                                 MAP       374
           126  00000000030000003211 +   PROC     DTE    3,XB                                                    MAP       375
           127  00000000070000002455 +            DTE    7,NAM                                                   MAP       376
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    10
        TABLES
  
           130  00000000010000003202 +            DTE    1,XA                                                    MAP       377
           131  00000000120000003031 +            DTE    10,TYP                                                  MAP       378
           132  00000000070000002113 +            DTE    7,ARG                                                   MAP       379
           133  00000000010000003202 +            DTE    1,XA                                                    MAP       380
           134  00000000120000002176 +            DTE    10,CLS                                                  MAP       381
           135  00000000130000002635 +            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  00000000030000003211 +   LABA     DTE    3,XB                                                    MAP       397
           147  00000000050000002424 +            DTE    5,LBL                                                   MAP       398
           150  00000000030000003202 +            DTE    3,XA                                                    MAP       399
           151  00000000070000002435 +            DTE    7,LDEF                                                  MAP       400
           152  00000000020000003202 +            DTE    2,XA                                                    MAP       401
           153  00000000130000002635 +            DTE    11,REF                                                  MAP       402
           154  00000000000000000000              DTE    0,0                                                     MAP       403
                                                                                                                 MAP       404
           155  00000000030000003211 +   LABB     DTE    3,XB                                                    MAP       405
           156  00000000050000002424 +            DTE    5,LBL                                                   MAP       406
           157  00000000010000003202 +            DTE    1,XA                                                    MAP       407
           160  00000000110000002331 +            DTE    9,LADR                                                  MAP       408
           161  00000000030000003202 +            DTE    3,XA                                                    MAP       409
           162  00000000120000002504 +            DTE    10,PRP                                                  MAP       410
           163  00000000070000002435 +            DTE    7,LDEF                                                  MAP       411
           164  00000000050000003220 +            DTE    5,XC                                                    MAP       412
           165  00000000000000000000              DTE    0,0                                                     MAP       413
                                                                                                                 MAP       414
           166  00000000030000003211 +   LABC     DTE    3,XB                                                    MAP       415
           167  00000000050000002424 +            DTE    5,LBL                                                   MAP       416
           170  00000000020000003202 +            DTE    2,XA                                                    MAP       417
           171  00000000110000002331 +            DTE    9,LADR                                                  MAP       418
           172  00000000010000003202 +            DTE    1,XA                                                    MAP       419
           173  00000000120000002504 +            DTE    10,PRP                                                  MAP       420
           174  00000000010000003202 +            DTE    1,XA                                                    MAP       421
           175  00000000070000002435 +            DTE    7,LDEF                                                  MAP       422
           176  00000000020000003202 +            DTE    2,XA                                                    MAP       423
           177  00000000130000002635 +            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/05. 20.00.36.      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  00000000030000003211 +   ENTB     DTE    3,XB                                                    MAP       441
           211  00000000070000002455 +            DTE    7,NAM                                                   MAP       442
           212  00000000070000002056 +            DTE    7,ADR                                                   MAP       443
           213  00000000020000003202 +            DTE    2,XA                                                    MAP       444
           214  00000000070000002264 +            DTE    7,EPA                                                   MAP       445
           215  00000000040000003220 +            DTE    4,XC                                                    MAP       446
           216  00000000000000000000              DTE    0,0                                                     MAP       447
                                                                                                                 MAP       448
           217  00000000030000003211 +   ENTC     DTE    3,XB                                                    MAP       449
           220  00000000070000002455 +            DTE    7,NAM                                                   MAP       450
           221  00000000070000002056 +            DTE    7,ADR                                                   MAP       451
           222  00000000020000003202 +            DTE    2,XA                                                    MAP       452
           223  00000000070000002264 +            DTE    7,EPA                                                   MAP       453
           224  00000000030000003202 +            DTE    3,XA                                                    MAP       454
           225  00000000130000002635 +            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  00000000030000003211 +   NAMB     DTE    3,XB                                                    MAP       472
           237  00000000070000002455 +            DTE    7,NAM                                                   MAP       473
           240  00000000070000002056 +            DTE    7,ADR                                                   MAP       474
           241  00000000040000003220 +            DTE    4,XC                                                    MAP       475
           242  00000000000000000000              DTE    0,0                                                     MAP       476
                                                                                                                 MAP       477
           243  00000000030000003211 +   NAMC     DTE    3,XB                                                    MAP       478
           244  00000000070000002455 +            DTE    7,NAM                                                   MAP       479
           245  00000000070000002056 +            DTE    7,ADR                                                   MAP       480
           246  00000000030000003202 +            DTE    3,XA                                                    MAP       481
           247  00000000130000002635 +            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/05. 20.00.36.      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  00000000030000003211 +   DOLA     DTE    3,XB                                                    MAP       497
           261  00000000050000002244 +            DTE    5,DOLAB                                                 MAP       498
           262  00000000020000003202 +            DTE    2,XA                                                    MAP       499
           263  00000000110000002331 +            DTE    9,LADR                                                  MAP       500
           264  00000000020000003202 +            DTE    2,XA                                                    MAP       501
           265  00000000260000002504 +            DTE    22,PRP                                                  MAP       502
           266  00000000020000003202 +            DTE    2,XA                                                    MAP       503
           267  00000000070000002230 +            DTE    7,DOIN                                                  MAP       504
           270  00000000050000002316 +            DTE    5,FROM                                                  MAP       505
           271  00000000020000003202 +            DTE    2,XA                                                    MAP       506
           272  00000000050000003013 +            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  00000000030000003211 +   IOA      DTE    3,XB                                                    MAP       522
           304  00000000070000002455 +            DTE    7,NAM                                                   MAP       523
           305  00000000010000003211 +            DTE    1,XB                                                    MAP       524
           306  00000000270000002504 +            DTE    23,PRP                                                  MAP       525
           307  00000000130000002635 +            DTE    11,REF                                                  MAP       526
           310  00000000000000000000              DTE    0,0                                                     MAP       527
                                                                                                                 MAP       528
           311  00000000030000003211 +   IOB      DTE    3,XB                                                    MAP       529
           312  00000000070000002455 +            DTE    7,NAM                                                   MAP       530
           313  00000000010000003211 +            DTE    1,XB                                                    MAP       531
           314  00000000270000002504 +            DTE    23,PRP                                                  MAP       532
           315  00000000030000003220 +            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/05. 20.00.36.      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  00000000000000000755 +            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/05. 20.00.36.      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/05. 20.00.36.      PAGE    15
        MESSAGES AND BUFFERS
  
           517                     1              BSS    1                                                       MAP       617
           520                    16     MAPBUFF  BSS    14                                                      MAP       618
                                         .T       ELSE                                                           MAP       619
                                         MAPBUFF  EQU    LINEBUF                                                 MAP       620
                                         .T       ENDIF                                                          MAP       621
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
           536  0400400536 +             MAP      SUBR   =           ENTRY/EXIT...                               MAP       637
           537  5110000000 X                      SA1    FAILSFT                                                 MAP       638
                          0311000536 +            NZ     X1,EXIT.    NO MAP IF TABLES CRUMPED                    MAP       639
           540  7160000004                        =X6    PASS=MAP                                                MAP       640
                          5160000000 X            SA6    PASS                                                    MAP       641
           541  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
           542  0303000544 +                      ZR     X3,MAP30    IF BL NOT SELECTED                          MAP       647
                          10622                   BX6    X2                                                      MAP       648
           543  5160000000 X                      SA6    LCNT                                                    MAP       649
                                                                                                                 MAP       650
           544  5110000000 X             MAP30    SA1    WO.LOM                                                  MAP       651
                          20103                   LX1    3                                                       MAP       652
           545  5120000000 X                      SA2    WO.LOA                                                  MAP       653
                          20202                   LX2    2                                                       MAP       654
           546  5130000000 X                      SA3    WO.LOR                                                  MAP       655
                          20301                   LX3    1                                                       MAP       656
                               12612              BX6    X1+X2                                                   MAP       657
           547  12663                             BX6    X6+X3                                                   MAP       658
                     5160000563 +                 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
           550  7256777776                        =X5    X6-1        OFFSET INTO MAPLOT TABLE                    MAP       663
                          5215000331 +            SA1    X5+MAPLOT                                               MAP       664
           551  10611                             BX6    X1                                                      MAP       665
                     5160001600 +                 SA6    OTH.LO                                                  MAP       666
           552  0100001626 +                      RJ     PRT         PREPARE REFERENCE TABLE                     MAP       667
           553  0100001173 +                      RJ     EFE         ENTER FAKE ENTRY POINTS                     MAP       668
           554  0100000565 +                      RJ     MOC         GO TO CONTROLLER                            MAP       669
           555  5120000564 +                      SA2    MAPNEW                                                  MAP       670
                          14222                   BX2    -X2                                                     MAP       671
           556  5110000000 X                      ALLOC  T.SYM,X2    ELIMINATE FAKE ENTRY POINTS                 FC5A185    17
           560  76110                             =X1    1                                                       MAP       673
                     7160000000 X                 SX6    HDRBL                                                   MAP       674
                               20136              LX1    30                                                      MAP       675
           561  12661                             BX6    X6+X1                                                   MAP       676
                     5160000000 X                 SA6    O.STITL     SUPRESS OLD HEADING                         MAP       677
           562  0400000536 +                      EQ     EXIT.       RETURN TO REC                               MAP       678
                                                                                                                 MAP       679
           563                     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/05. 20.00.36.      PAGE    17
        MAIN ROUTINES 
  
           564                     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/05. 20.00.36.      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
           565  0400400565 +             MOC      SUBR               ENTRY/EXIT                                  MAP       721
                                                                                                                 MAP       722
                                        **        MAKE SURE THAT BUFFER DOESNT HAVE GARBAGE IN IT .              MAP       723
                                                                                                                 MAP       724
           566  13666                             SETMEM MAPBUFF-1,15                                            MAP       725
                                                                                                                 MAP       726
                                        **        INITIALIZATION FOR CURRENT MAP.                                MAP       727
                                                                                                                 MAP       728
           570  77501                             =X5    -1                                                      MAP       729
                                                                                                                 FC50326    37
           571  73551                    MOC10    =X5    X5+1                                                    MAP       730
                     5215000317 +                 SA1    X5+MST      X1 = 30/FORMATTER TABLE,30/INITIAL ROUTINE  MAP       731
           572  0301000565 +                      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
           574  5110000677 +             MOC.RA   RESR   (X5),MOCSAV                                             MAP       739
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    19
        MAIN ROUTINES                                                 MOC 
  
           575  0450000571 +                      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
           576  5120000675 +                      SA2    MOCTC       X2 = TRIP COUNT                             FC5A185    19
                          43300                   MX3    0                                                       FC5A185    20
                                                                                                                 FC5A185    21
           577  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
                          0100001606 +            RJ     PCB         PACK CHARACTERS IN BUFFER                   FC5A185    26
           603  5110000700 +                      RESR   (X2,X3,B5),MOCSAV                                       FC5A185    27
                               73331              =X3    X3+1                                                    FC5A185    28
           606  53435                             SA4    X3+B5       X4 = 30/FIELD WIDTH, 30/PROCESSOR ADDRESS   FC5A185    29
                     0314000577 +                 NZ     X4,MOC30    IF NOT END OF FORMATTER                     FC5A185    30
                               43300              MX3    0                                                       FC5A185    31
           607  7222777776                        =X2    X2-1                                                    FC5A185    32
                          56450                   SA4    B5          X4 = 1ST WORD OF FORMATTER                  FC5A185    33
           610  0312000577 +                      NZ     X2,MOC30    IF HEADING NOT DONE                         FC5A185    34
                          0100001515 +            RJ     OTH         OUTPUT TITLE AND HEADING                    FC5A185    36
           611  0100001673 +                      RJ     RNI         RETURN THE 1ST ITEM INDEX                   FC5A185    37
           612  5110000676 +                      RESR   (B5,X5),MOCSAV                                          FC5A185    38
           614  5120000675 +                      SA2    MOCTC                                                   FC5A185    39
                          73720                   SAVR   (X2),MOCSAV                                             FC5A185    40
                                                                                                                 FC5A185    41
                                        **        OUTPUT OF THE CURRENT MAP                                      FC5A185    42
                                                                                                                 FC5A185    43
           616  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
           617  73730                    MOC50    SAVR   (X3),MOCSAV                                             FC5A185    48
           620  5120000000 X                      SA2    T.SCR                                                   FC5A185    49
                          5110001727 +            SA1    RNI.PI                                                  FC5A185    50
           621  63220                             SB2    X2                                                      FC5A185    51
                     7211777776                   =X1    X1-1                                                    FC5A185    52
                               53112              SA1    B2+X1       X1 = TABLE ENTRY FOR NEXT ITEM              FC5A185    53
           622  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
           623  5110000700 +             MOC.RB   RESR   (X2,X3,B5,X5),MOCSAV                                    FC5A185    59
                               73331              =X3    X3+1                                                    FC5A185    60
           627  53435                             SA4    X3+B5                                                   FC5A185    61
                     63640                        SB6    X4                                                      FC5A185    62
                          0560000617 +            NZ     B6,MOC50    IF NOT END OF FORMATTER                     FC5A185    63
           630  0100001673 +                      RJ     RNI         RETURN NEXT INDEX                           FC5A185    65
           631  5110001727 +                      SA1    RNI.PI                                                  FC5A185    66
                          7211777776              =X1    X1-1                                                    FC5A185    67
           632  0321000636 +                      PL     X1,MOC60    IF MORE ITEMS                               FC5A185    68
                          6160000764              SB6    500                                                     FC5A185    69
           633  0100001033 +                      RJ     CBS         FLUSH THE BUFFER                            FC5A185    70
           634  5110000677 +                      RESR   (X5),MOCSAV                                             FC5A185    71
           635  0400000571 +                      EQ     MOC10       PROCESS NEXT MAP                            FC5A185    72
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    20
        MAIN ROUTINES                                                 MOC 
  
                                                                                                                 FC5A185    73
           636  5110000700 +             MOC60    RESR   (X2),MOCSAV                                             FC5A185    74
           637  7222777776                        =X2    X2-1                                                    FC5A185    75
                          73720                   SAVR   (X2,X3),MOCSAV                                          FC5A185    76
                          0312000616 +            NZ     X2,MOC40    IF NOT END OF LINE                          FC5A185    77
           642  5150001624 +                      SA5    PCB.WO                                                  FC5A185    78
                          7255000002              SX5    X5+2        X5 = NO. OF WORDS TO OUTPUT                 FC5A185    79
           643  7215777776                        WLINE  MAPBUFF-1,X5,0,0                                        FC5A185    80
           653  5120000675 +                      SA2    MOCTC                                                   FC5A185    81
                          73720                   SAVR   (X2),MOCSAV                                             FC5A185    82
                          5110000676 +            RESR   (B5),MOCSAV                                             FC5A185    83
                     0400000616 +                 EQ     MOC40                                                   FC5A185    84
  
  
  
  
                                        **        BUFFERS  AND POINTERS.                                         MAP       818
                                                                                                                 MAP       819
                                                                                                                 MAP       820
           656                    17     MOCBUF   BSSZ   15          TEMP STORAGE FOR A HEADING                  MAP       821
                                                                                                                 MAP       822
           675                     1     MOCTC    BSS    1           TRIP COUNT                                  MAP       823
           676                           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
           702                                    LOC    *O                                                      FC5A185    91
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
           702  20136                    IRA      LX1    5*CHAR                                                  MAP       850
                     63510                        SB5    X1          B5 = ADRS FORMATTER TABLE                   MAP       851
                          5110000563 +            SA1    MAP.NO                                                  MAP       852
           703  7221777776                        =X2    X1-1                                                    MAP       853
                          53225                   SA2    B5+X2       X2 = ADRS OF PROPER FORMATTER               MAP       854
                               43400              MX4    0                                                       MAP       855
           704  63450                             SB4    X5          COPY OF MST OFFSET FOR STS AND DMF          MAP       856
                     63520                        SB5    X2                                                      MAP       857
                          76650                   SX6    B5                                                      MAP       858
           705  5160000676 +                      SA6    IRASAV      PRESERVE FORMATTER ADDRESS                  MAP       859
                          0450000574 +            ZR     B5,MOC.RA   IF NO OUTPUT FOR THIS MAP                   MAP       860
           706  5154000710 +                      SA5    IRAJP+B4                                                MAP       861
                          63250                   SB2    X5                                                      MAP       862
           707  0222000000                        JP     B2          SELECT PROPER CODE SECTION                  MAP       863
                                                                                                                 MAP       864
                                                                                                                 MAP       865
                                  -1     STO      SET    -1                                                      MAP       866
           710                           IRAJP    BSS    0                                                       MAP       867
      L      0                                    LOC    0                                                       MAP       868
                                                                                                                 MAP       869
      L      0  00000000000000000721 +            DDTE   TVARP,(VFD    60/IRA5)        VARIABLES                 MAP       870
      L      1  00000000000000000723 +            DDTE   TSCP,(VFD    60/IRA10)        SYMBOLIC CONSTANTS        MAP       871
      L      2  00000000000000000725 +            DDTE   TPROP,(VFD    60/IRA15)       PROCEDURES                MAP       872
      L      3  00000000000000000727 +            DDTE   TLABP,(VFD    60/IRA20)       LABELS                    MAP       873
      L      4  00000000000000000731 +            DDTE   TENTP,(VFD    60/IRA25)       ENTRY POINTS              MAP       874
      L      5  00000000000000000735 +            DDTE   TNAMP,(VFD    60/IRA30)       NAMELISTS                 MAP       875
      L      6  00000000000000000737 +            DDTE   TDOLP,(VFD    60/IRA35)       DO-LOOPS                  MAP       876
      L      7  00000000000000400717 +            DDTE   TCOMP,(VFD    60/"BLOWUP")    COMMON+EQUIV              MAP       877
      L     10  00000000000000000743 +            DDTE   TIOP,(VFD    60/IRA40)        I/O UNITS                 MAP       878
      L    721                                    LOC    *O                                                      MAP       879
                                                                                                                 MAP       880
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    22
        INITIALIZING ROUTINES                                         IRA 
  
                                                                                                                 MAP       881
           721  7150000040               IRA5     CLAS=  X5,WB,(VAR)                                             MAP       882
                          5140003227 +            CLAS=  X4,WB,(PARM,ENT,LAB,NLST,CGS)                           MAP       883
           722  0400000744 +                      EQ     IRA45                                                   MAP       884
                                                                                                                 MAP       885
           723  7150000400               IRA10    CLAS=  X5,WB,(PARM)                                            MAP       886
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       887
           724  0400000744 +                      EQ     IRA45                                                   MAP       888
                                                                                                                 MAP       889
           725  5150003230 +             IRA15    CLAS=  X5,WB,(FUN,SUB,DEXT)                                    MAP       890
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       891
           726  0400000744 +                      EQ     IRA45                                                   MAP       892
                                                                                                                 MAP       893
           727  7150000010               IRA20    CLAS=  X5,WB,(LAB)                                             MAP       894
                          7140000020              CLAS=  X4,WB,(CGS)                                             MAP       895
           730  0400000744 +                      EQ     IRA45                                                   MAP       896
                                                                                                                 MAP       897
           731  5150000000 X             IRA25    SA5    MOD                                                     MAP       898
                          20563                   HX5    MO.BLK                                                  MAP       899
                               66250              SB2    B5                                                      MAP       900
           732  66500                             =B5    0                                                       MAP       901
                     0335000574 +                 MI     X5,MOC.RA   IF BLOCK DATA, SUPPRESS                     MAP       902
                               66520              SB5    B2                                                      MAP       903
           733  7150020000                        CLAS=  X5,WB,(ENT)                                             MAP       904
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       905
           734  0400000744 +                      EQ     IRA45                                                   MAP       906
                                                                                                                 MAP       907
           735  43501                    IRA30    CLAS=  X5,WB,(NLST)                                            MAP       908
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       909
           736  0400000744 +                      EQ     IRA45                                                   MAP       910
                                                                                                                 MAP       911
           737  66250                    IRA35    SB2    B5                                                      MAP       912
                     66500                        =B5    0                                                       MAP       913
                          5110000000 X            SA1    WO.QC                                                   MAP       914
           740  0331000574 +                      MI     X1,MOC.RA   SUPPRESS IF FATAL ERRORS OR QC MODE         MAP       915
                          66520                   SB5    B2                                                      MAP       916
           741  7150020010                        CLAS=  X5,WB,(LAB,DOGL)                                        MAP       917
                          14555                   BX5    -X5         COMPLEMENT TO MAKE *AND* OF BITS POSSIBLE   FC50326    38
           742  0400000744 +                      EQ     IRA45                                                   MAP       919
                                                                                                                 MAP       920
           743  5150003231 +             IRA40    CLAS=  X5,WB,(UDC,NVAR)                                        MAP       921
                          14555                   BX5    -X5         BOTH BITS MUST BE ON                        MAP       922
                                                                                                                 MAP       923
           744  0100001775 +             IRA45    RJ     STS                                                     MAP       924
           745  5150000000 X                      SA5    T=SCR                                                   MAP       925
                          0315000747 +            NZ     X5,IRA60    IF TABLE NOT EMPTY                          MAP       926
           746  66500                             SB5    B0                                                      MAP       927
                     0400000574 +                 EQ     MOC.RA      RETURN TO CONTROLLER                        MAP       928
                                                                                                                 MAP       929
           747  0100001143 +             IRA60    RJ     DMF         DETERMINE MAP FORMAT                        MAP       930
           750  5110000000 X                      SA1    T.SCR                                                   MAP       931
                          63710                   SB7    X1          FWA OF TABLE                                MAP       932
           751  5110000000 X                      SA1    T=SCR                                                   MAP       933
                          7174777771              SX7    B4-TDOLP                                                MAP       934
           752  0307000753 +                      ZR     X7,IRA70    IF DO-LOOP MAP                              MAP       935
                          0100000000 X            CALL   SST         SORT THE TABLE                              MAP       936
           753  5110000676 +             IRA70    SA1    IRASAV                                                  MAP       937
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    23
        INITIALIZING ROUTINES                                         IRA 
  
                          63510                   SB5    X1                                                      MAP       938
           754  0400000574 +                      EQ     MOC.RA                                                  MAP       939
                                                                                                                 MAP       940
                                                                                                                 MAP       941
                                 676 +   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
           755  5110000000 X             IRB      SA1    WO.LOM                                                  MAP       957
                          66500                   =B5    0                                                       MAP       958
           756  0301000574 +                      ZR     X1,MOC.RA   IF THIS MAP NOT SELECTED                    MAP       959
                          5110000000 X            SA1    WO.QC                                                   FC5A185    93
           757  0331000574 +                      MI     X1,MOC.RA   IF FATAL ERRORS OR QC MODE                  FC5A185    94
                          5110000000 X            SA1    T=ECT                                                   MAP       960
           760  5120000000 X                      SA2    T=BLKS                                                  MAP       961
                          7211777774              SX1    X1-3                                                    FC5A185    95
           761  7222777774                        SX2    X2-Z=BLKS-1                                             FC5A185    96
                          11312                   BX3    X1*X2                                                   FC5A185    97
           762  0333000574 +                      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
                          0321000767 +            PL     X1,IRB5     IF EQUIVALENCES EXIST                       FC5A185    99
           763  7222777776                        =X2    X2-1                                                    FC5A185   100
                          0322000771 +            PL     X2,IRB7     IF MORE THAN ONE BLOCK                      FC5A185   101
           764  5120000000 X                      SA2    T.BLKS                                                  FC5A109    11
                          5222000002              SA2    X2+Z=BLKS   X2 = *CA*                                   FC5A109    12
           765  5130003232 +                      SA3    =7RS$A$V$E                                              FC5A109    13
                          43022                   XTRCT  CA.BNAM,X2,X2     EXTRACT BLOCK NAME                    FC5A109    14
                     13223                        BX2    X2-X3                                                   FC5A109    15
                          0302000574 +            ZR     X2,MOC.RA   IF IT IS THE ONLY BLOCK                     FC5A109    16
                                                                                                                 FC5A109    17
           767  5120000000 X             IRB5     SA2    T.ECT                                                   FC5A109    18
                          63720                   SB7    X2                                                      MAP       966
           770  5110000000 X                      SA1    T=ECT                                                   FC5A185   102
                          0100000000 X            CALL   SST         SORT EQUIVALENCE CLASS TABLE                MAP       967
                                                                                                                 FC5A185   103
           771  5110000464 +             IRB7     SA1    MAP.XS                                                  FC5A185   104
                          66610                   =B6    1                                                       MAP       969
           772  0100001606 +                      RJ     PCB         BLANK LINE INSTEAD OF HEADING               MAP       970
           773  7150000007                        =X5    TCOMP                                                   MAP       971
                          0100001515 +            RJ     OTH         OUTPUT TITLE AND HEADING                    MAP       972
           774  43600                             MX6    0                                                       MAP       973
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    24
        INITIALIZING ROUTINES                                         IRB 
  
                     5160001434 +                 SA6    OBI.BI      INITIALIZE BLOCK INDEX                      MAP       974
                                                                                                                 MAP       975
                                        **        OUTPUT OF COMMON BLOCK INFORMATION.                            MAP       976
                                                                                                                 MAP       977
           775  0100001257 +             IRB10    RJ     GNB         GET NEXT BLOCK                              FC5A185   105
           776  0333001001 +                      MI     X3,IRB30    IF NO MORE BLOCKS                           FC5A185   106
                          0100001356 +            RJ     OBI         OUTPUT BLOCK INFORMATION                    FC5A185   107
           777  0100001464 +                      RJ     OML         OUTPUT BLOCK MEMBERS                        FC5A185   108
          1000  0400000775 +                      EQ     IRB10                                                   MAP       984
                                                                                                                 MAP       985
                                        **        OUTPUT OF LOCAL EQUIVALENCE CLASSES.                           MAP       986
                                                                                                                 MAP       987
          1001  0100001236 +             IRB30    RJ     GLE         GET LOCAL EQUIVALENCE CLASSES               FC5A185   109
          1002  66500                             =B5    0                                                       FC5A185   110
                     5110000000 X                 SA1    T=SCR                                                   FC5A185   111
          1003  0301000574 +                      ZR     X1,MOC.RA   IF NO LOCAL CLASSES                         FC5A185   112
                          7150000003              WLINE  IRBA,MAPSTL,2,1   OUTPUT TITLE                          FC5A185   113
          1012  5110000464 +                      SA1    MAP.XS                                                  FC5A185   114
                          6160000006              SB6    6                                                       FC5A185   115
          1013  0100001606 +                      RJ     PCB         INDENT 6                                    FC5A185   116
          1014  0100001464 +                      RJ     OML         OUPUT LOCAL EQUIVALENCE                     FC5A185   117
          1015  66500                             =B5    0                                                       MAP      1001
                     0400000574 +                 EQ     MOC.RA                                                  MAP      1002
                                                                                                                 MAP      1003
          1016  55464614170301145505     IRBA     DIS    3, --LOCAL EQUIVALENCE--                                MAP      1004
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          1021  0400401021 +             BNS      SUBR               ENTRY/EXIT...                               MAP      1024
          1022  10744                             BX7    X4                                                      MAP      1025
                     5170001032 +                 SA7    BNSAV       PRESERVE X4                                 MAP      1026
                               43073              MX0    -1                                                      MAP      1027
          1023  5120003233 +                      SA2    =40404040404040404040B                                  MAP      1028
                          5130003234 +            SA3    =10H//////////                                          MAP      1029
          1024  5140003235 +                      SA4    =1A/                                                    MAP      1030
                          6130000067              SB3    60-CHAR+1                                               MAP      1031
          1025  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
          1026  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
          1027  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
          1030  20766                             LX7    -CHAR                                                   MAP      1044
                     10177                        BX1    X7                                                      MAP      1045
                          5140001032 +            SA4    BNSAV       RESTORE X4                                  MAP      1046
          1031  0400001021 +                      EQ     EXIT.                                                   MAP      1047
                                                                                                                 MAP      1048
          1032                     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/05. 20.00.36.      PAGE    26
        TASK PERFORMERS                                               CBS 
  
                                                                                                                 MAP      1061
          1033  0400401033 +             CBS      SUBR               ENTRY/EXIT...                               MAP      1062
          1034  5110000000 X                      SA1    CO.PW                                                   MAP      1063
                          0100001224 +            RJ     GBL         GET BUFFER LENGTH                           MAP      1064
          1035  0302001033 +                      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
          1036  0331401036 +                      MI     X1,"BLOWUP" IF BUFFER TOO BIG                           MAP      1068
                          63310                   SB3    X1                                                      MAP      1069
                               67336              SB3    B3-B6                                                   MAP      1070
          1037  0630001033 +                      PL     B3,EXIT.    IF ENOUGH ROOM                              MAP      1071
                          76660                   SX6    B6                                                      MAP      1072
          1040  5160001057 +                      SA6    CBSSAV                                                  MAP      1073
                          5110001624 +            SA1    PCB.WO                                                  MAP      1074
          1041  7211000002                        SX1    X1+2                                                    MAP      1075
                          10511                   WLINE  MAPBUFF-1,X1,0,0                                        MAP      1076
          1052  7160000007                        SX6    7                                                       FC50297     5
                          5160001463 +            SA6    OCEI.TAB    INITIALIZE TAB COUNTER                      FC50297     6
          1053  5110001057 +                      SA1    CBSSAV                                                  MAP      1077
                          7211777551              SX1    X1-150                                                  MAP      1078
          1054  0321001033 +                      PL     X1,EXIT.    IF BUFFER FLUSH FORCED                      MAP      1079
                          6160000006              SB6    6                                                       MAP      1080
          1055  5110000464 +                      SA1    MAP.XS                                                  MAP      1081
                          0100001606 +            RJ     PCB         INDENT 6                                    MAP      1082
          1056  6130777776                        SB3    -1          INDICATE BUFFER OUTPUT                      FC50297     7
                          0400001033 +            EQ     EXIT.                                                   MAP      1083
                                                                                                                 MAP      1084
          1057                     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
          1060  0400401060 +             CCBB     SUBR               ENTRY/EXIT...                               MAP      1102
          1061  7130000055                        SX3    1R                                                      MAP      1103
                          20366                   LX3    -CHAR                                                   MAP      1104
                               43406              MX4    CHAR                                                    MAP      1105
          1062  6120000006                        SB2    CHAR        SHIFT COUNT FOR LEFT JUST. INPUT            MAP      1106
                          0320001064 +            PL     X0,CCBB10   IF INPUT LEFT JUST.                         MAP      1107
          1063  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/05. 20.00.36.      PAGE    27
        TASK PERFORMERS                                               CCBB
  
                                                                                                                 MAP      1111
          1064  10711                    CCBB10   BX7    X1                                                      MAP      1112
                     6130000012                   SB3    10          LOOP LIMIT                                  MAP      1113
                               66600              =B6    0           NON-BLANK CHAR COUNTER                      MAP      1114
                                                                                                                 MAP      1115
          1065  67331                    CCBB20   =B3    B3-1                                                    MAP      1116
                     0730001060 +                 MI     B3,EXIT.    IF NO BLANKS FOUND                          MAP      1117
                               11247              BX2    X4*X7       ISOLATE A CHAR                              MAP      1118
          1066  13223                             BX2    X2-X3                                                   MAP      1119
                     0302001060 +                 ZR     X2,EXIT.    IF FOUND A BLANK                            MAP      1120
                               66661              =B6    B6+1                                                    MAP      1121
          1067  22727                             LX7    B2,X7                                                   MAP      1122
                     0400001065 +                 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
          1070  10655                    DELF     BX6    X5                                                      MAP      1146
                     5160001112 +                 SA6    DELFA       PRESERVE X5                                 MAP      1147
          1071  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
          1072  0305401072 +                      ZR     X5,"BLOWUP"                                             MAP      1152
                          0335401072 +            MI     X5,"BLOWUP" IF BAD B2 OR ERROR BY DMF                   MAP      1153
          1073  66300                             =B3    0           OFFSET INTO PRIORITY TABLE                  MAP      1154
                     5114001113 +                 SA1    B4+DELFB    X1 = ADRS OF PRIORITY TABLE                 MAP      1155
                                                  IFEQ   TEST,ON,1                                               MAP      1156
          1074  0301401074 +                      ZR     X1,"BLOWUP" IF TABLE DOESNT EXIST                       MAP      1157
                          66700                   =B7    0           OFFSET INTO FORMATTER                       MAP      1158
          1075  7160002477 +                      SX6    NOP                                                     MAP      1159
                                                                                                                 MAP      1160
          1076  53213                    DELF10   SA2    X1+B3       SEARCH FOR THIS PROCESSOR                   MAP      1161
                                                  IFEQ   TEST,ON,1                                               MAP      1162
                     0302401076 +                 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/05. 20.00.36.      PAGE    28
        TASK PERFORMERS                                               DELF
  
          1077  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
          1100  56357                    DELF20   SA3    B5+B7       WORD OF FORMATTER                           MAP      1171
                     66771                        =B7    B7+1                                                    MAP      1172
                          0313001104 +            NZ     X3,DELF30   IF NOT AT END OF FORMATTER                  MAP      1173
          1101  73771                             =X7    X7+1                                                    MAP      1174
                     7237777775                   SX3    X7-2                                                    MAP      1175
          1102  0323001076 +                      PL     X3,DELF10   IF PROCESSOR NOT PRESENT IN FORMATTER       MAP      1176
                          66700                   =B7    0                                                       MAP      1177
          1103  0400001100 +                      EQ     DELF20      CONTINUE                                    MAP      1178
                                                                                                                 MAP      1179
          1104  73430                    DELF30   SX4    X3                                                      MAP      1180
                     37424                        IX4    X2-X4                                                   MAP      1181
                          0314001100 +            NZ     X4,DELF20   IF NO MATCH                                 MAP      1182
          1105  43700                             MX7    0           RESET PASS COUNTER                          MAP      1183
                     20336                        LX3    30                                                      MAP      1184
                          73330                   SX3    X3                                                      MAP      1185
                               37553              IX5    X5-X3                                                   MAP      1186
          1106  54630                             SA6    A3          REPLACE PROCESSOR BY NOP                    MAP      1187
                     7235777776                   =X3    X5-1                                                    MAP      1188
          1107  0323001076 +                      PL     X3,DELF10   IF MORE DELETIONS NECESSARY                 MAP      1189
                          76610                   =X6    1                                                       MAP      1190
          1110  5150001112 +                      SA5    DELFA       RESTORE X5                                  MAP      1191
                          10755                   BX7    X5                                                      MAP      1192
          1111  0400001167 +                      EQ     DMF.RTN     RETURN TO DMF                               MAP      1193
  
  
  
  
          1112                     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
          1113                           DELFB    BSS    0                                                       MAP      1201
      L      0                                    LOC    0                                                       MAP      1202
      L      0  00000000000000001124 +            DDTE   TVARP,(VFD    60/DELFPT1)     VARIABLE MAP              MAP      1203
      L      1  00000000000000001133 +            DDTE   TSCP,(VFD    60/DELFPT2)      SYMBOLIC CONSTANTS        MAP      1204
      L      2  00000000000000000000              DDTE   TPROP,(VFD    60/0)                                     MAP      1205
      L      3  00000000000000001141 +            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  00000000000000001135 +            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   1124                                    LOC    *O                                                      MAP      1212
                                                                                                                 MAP      1213
                                        **        FIELD DELETION PRIORITY TABLES.                                MAP      1214
                                                                                                                 MAP      1215
          1124  00000000000000003220 +   DELFPT1  VFD    60/XC                                                   MAP      1216
          1125  00000000000000002056 +            VFD    60/ADR                                                  MAP      1217
          1126  00000000000000002143 +            VFD    60/BLK                                                  MAP      1218
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    29
        TASK PERFORMERS                                               DELF
  
          1127  00000000000000003202 +            VFD    60/XA                                                   MAP      1219
          1130  00000000000000002765 +            VFD    60/SZE                                                  MAP      1220
          1131  00000000000000003202 +            VFD    60/XA                                                   MAP      1221
          1132  00000000000000000000              VFD    60/0                                                    MAP      1222
                                                                                                                 MAP      1223
          1133  00000000000000003071 +   DELFPT2  VFD    60/VAL                                                  MAP      1224
          1134  00000000000000000000              VFD    60/0                                                    MAP      1225
                                                                                                                 MAP      1226
          1135  00000000000000002331 +   DELFPT3  VFD    60/LADR                                                 FC50834     7
          1136  00000000000000003202 +            VFD    60/XA                                                   MAP      1228
          1137  00000000000000002230 +            VFD    60/DOIN                                                 MAP      1229
          1140  00000000000000000000              VFD    60/0                                                    MAP      1230
                                                                                                                 FC50834     8
          1141  00000000000000003202 +   DELFPT4  VFD    60/XA                                                   FC50834     9
          1142  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
          1143  0400401143 +             DMF      SUBR               ENTRY/EXIT.                                 MAP      1249
          1144  66200                             SB2    B0                                                      MAP      1250
                     43300                        MX3    0                                                       MAP      1251
                                                                                                                 MAP      1252
          1145  56252                    DMF20    SA2    B5+B2       GRAB WORD OF FORMATTER                      MAP      1253
                     0302001151 +                 ZR     X2,DMF30    IF LAST WORD OF FORMATTER                   MAP      1254
                               20236              LX2    5*CHAR                                                  MAP      1255
          1146  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
          1147  6132777760                        SB3    B2-MAPLFL                                               MAP      1260
                          0630401147 +            PL     B3,"BLOWUP" IF B2 GE LARGEST FORMATTER LENGTH           MAP      1261
          1150  0400001145 +                      EQ     DMF20                                                   MAP      1262
                                                                                                                 MAP      1263
          1151  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
          1152  27404                             IX6    X4/X3       MAXIMUM NUMBER OF SECTIONS                  MAP      1266
                               10255              BX2    X5          SAVE COPY OF NUMBER OF ENTRIES IN T.SCR     MAP      1267
          1154  7215777774                        =X1    X5-MAPMRL                                               MAP      1268
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    30
        TASK PERFORMERS                                               DMF 
  
                          0321001157 +            PL     X1,DMF40    IF MORE THAN MAPMRL ENTRIES                 MAP      1269
          1155  0306001070 +                      ZR     X6,DELF     IF FIELDS NEED TO BE DELETED                MAP      1270
                          76610                   =X6    1                                                       MAP      1271
                               10755              BX7    X5                                                      MAP      1272
          1156  0400001167 +                      EQ     DMF.RTN                                                 MAP      1273
                                                                                                                 MAP      1274
          1157  5110000563 +             DMF40    SA1    MAP.NO      GET MAP.NO                                  MAP      1275
                          20173                   LX1    59                                                      MAP      1276
          1160  0321001162 +                      PL     X1,DMF45    IF REFERENCES NOT SELECTED                  MAP      1277
                          0306001070 +            ZR     X6,DELF     IF FIELDS NEED TO BE DELETED                MAP      1278
          1161  76610                             =X6    1           FORCE SECTION COUNT TO 1                    MAP      1279
                                                                                                                 MAP      1280
          1162  10366                    DMF45    BX3    X6          SAVE COPY OF # OF SECTIONS                  MAP      1281
                     0303001070 +                 ZR     X3,DELF     IF FIELDS NEED TO BE DELETED                MAP      1282
                               27202              IX7    X2/X3                                                   MAP      1283
                          7217777774              =X1    X7-MAPMRL                                               MAP      1284
          1165  0321001167 +                      PL     X1,DMF.RTN  IF THIS IS A GOOD FORMAT                    MAP      1285
                          7266777776              =X6    X6-1                                                    MAP      1286
          1166  10255                             BX2    X5          REFRESH # OF ENTRIES                        MAP      1287
                     0400001162 +                 EQ     DMF45       TRY NEXT VALUE                              MAP      1288
                                                                                                                 MAP      1289
                                        **        DELF WILL RETURN HERE.                                         MAP      1290
                                                                                                                 MAP      1291
          1167  5160000675 +             DMF.RTN  SA6    MOCTC       SET TRIP COUNT                              MAP      1292
                          43600                   MX6    0                                                       MAP      1293
          1170  5160001774 +                      SA6    SRNI.LED    INITIALIZE LAST ELEMENT OF DIVISION         MAP      1294
                          6120000003              SB2    3                                                       FC50488     6
          1171  0100001742 +                      RJ     SRNI        SET RNI PARAMETERS                          MAP      1296
          1172  0400001143 +                      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
          1173  0400401173 +             EFE      SUBR               ENTRY/EXIT...                               MAP      1312
          1174  43600                             MX6    0                                                       MAP      1313
                     5160000564 +                 SA6    MAPNEW                                                  MAP      1314
          1175  5110000000 X                      SA1    MOD                                                     MAP      1315
                          20160                   SBIT   X1,MO.FUNP                                              FC5A391     5
          1176  0321001173 +                      PL     X1,EXIT.    IF NOT COMPILING A FUNCTION                 FC5A391     6
                          7150020000              CLAS=  X5,WB,(ENT)                                             MAP      1317
          1177  7140000030                        CLAS=  X4,WB,(CGS,LAB)                                         MAP      1318
                          6140000144              SB4    100         SET UP STS ENTRY CONDITIONS                 MAP      1319
          1200  0100001775 +                      RJ     STS         SEPARATE ENTRY POINTS FROM SYMTAB           MAP      1320
          1201  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/05. 20.00.36.      PAGE    31
        TASK PERFORMERS                                               EFE 
  
                          63210                   SB2    X1                                                      MAP      1322
                               20101              LX1    1                                                       MAP      1323
          1202  73612                             SX6    X1+B2       X6 = NUMBER OF WORDS TO ADD TO SYMTAB       MAP      1324
                     5160000564 +                 SA6    MAPNEW                                                  MAP      1325
                               10566              BX5    X6                                                      MAP      1326
          1203  5110000000 X                      ALLOC  T.SYM,X6                                                MAP      1327
          1205  5110000000 X                      SA1    T.SYM                                                   MAP      1328
                          5120000000 X            SA2    T=SYM                                                   MAP      1329
          1206  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
          1207  63350                             SB3    X5          LOOP LIMIT                                  MAP      1334
                     5150000000 X                 SA5    T.SCR                                                   MAP      1335
          1210  5235777776                        =A3    X5-1        INITIALIZE FETCH REG                        MAP      1336
                          5120000000 X            SA2    S=VALUE                                                 MAP      1337
                                                                                                                 MAP      1339
          1211  54331                    EFE10    =A3    A3+1                                                    MAP      1340
                     5140003236 +                 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
          1213  56625                             SA6    B2+B5       FIX *WA* OF FAKE ENTRY                      MAP      1345
                     0100001730 +                 RJ     SRC         SEARCH REFERENCE CHAIN                      MAP      1346
          1214  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
          1215  36562                             IX5    X6+X2                                                   FC5A109    21
                     63750                        SB7    X5                                                      MAP      1351
                          20501                   LX5    1                                                       MAP      1352
                               73557              SX5    X5+B7                                                   MAP      1353
          1216  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
          1217  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
          1220  43051                             MX0    -WC.CLIFL                                               MAP      1360
                     20035                        LX0    WC.CLIFP                                                MAP      1361
                          15440                   BX4    -X0*X4      ISOLATE CLIF                                MAP      1362
          1221  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
          1222  5066000001                        SA6    A6-WB.W+WC.W      FIX *WC* OF FAKE ENTRY                MAP      1366
                          6122000003              SB2    B2+Z=SYM                                                MAP      1367
          1223  0623001173 +                      GE     B2,B3,EXIT. IF ALL DONE                                 MAP      1368
                          0400001211 +            EQ     EFE10                                                   MAP      1369
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          1224  0400401224 +             GBL      SUBR               ENTRY/EXIT...                               MAP      1379
                                                                                                                 MAP      1380
          1225  5120001624 +                      SA2    PCB.WO                                                  MAP      1381
                          7222000002              SX2    X2+2                                                    MAP      1382
          1226  36322                             WC     X3,X2       CONVERT TO CHARACTER COUNT                  MAP      1383
          1227  5120001625 +                      SA2    PCB.SC                                                  MAP      1384
                          43400                   MX4    0                                                       MAP      1385
          1230  6222777703                        SB2    X2-60                                                   MAP      1386
                          0420001235 +            ZR     B2,GBL10    IF AT START OF WORD                         MAP      1387
          1231  7233777765                        SX3    X3-10                                                   MAP      1388
                          7140000006              SX4    6                                                       MAP      1389
          1232  27202                             IX4    X2/X4                                                   MAP      1390
          1234  7120000012                        SX2    10                                                      MAP      1391
                          37424                   IX4    X2-X4       X4 = CHARS IN LAST WORD                     MAP      1392
                                                                                                                 MAP      1393
          1235  36234                    GBL10    IX2    X3+X4       X2 = TOTAL CHARS IN BUFFER                  MAP      1394
                     0400001224 +                 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
          1236  0400401236 +             GLE      SUBR               ENTRY/EXIT...                               FC5A185   138
          1237  13666                             SHRINK T=SCR                                                   FC5A185   139
                                                                                                                 FC5A185   140
                                        **        LOOK FOR A LOCAL EQUIVALENCE CLASS.                            FC5A185   141
                                                                                                                 FC5A185   142
          1240  43701                    GLE10    MX7    1                                                       FC5A185   143
                     43101                        LDBIT  X1,TE.NBP                                               FC5A185   144
                               12717              BX7    X1+X7                                                   FC5A185   145
          1241  5170000000 X                      SA7    SCSA                                                    FC5A185   146
                          43600                   MX6    0                                                       FC5A185   147
          1242  5110000000 X                      SCAN   T.ECT,SCS                                               FC5A185   148
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    33
        TASK PERFORMERS                                               GLE 
  
          1243  0770001236 +                      MI     B7,EXIT.    IF NO MORE CLASSES                          FC5A185   149
                          43601                   MX6    1                                                       FC5A185   150
                               12662              BX6    X6+X2                                                   FC5A185   151
          1244  54620                             SA6    A2          MARK CLASS PROCESSED                        FC5A185   152
                                                                                                                 FC5A185   153
          1245  66671                    GLE20    =B6    B7+1        PRESERVE INDEX OF 1ST MEMBER                FC5A185   154
                     66260                        =B2    B6                                                      FC5A185   155
                          5110000000 X            SA1    T=ECT                                                   FC5A185   156
          1246  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
          1247  53112                    GLE30    SA1    X1+B2       X1 = NEXT MEMBER (TE. FORMAT)               FC5A185   163
                     20121                        HX1    TE.NB                                                   FC5A185   164
                          0321001255 +            PL     X1,GLE40    IF END OF CLASS                             FC5A185   165
          1250  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
          1252  5110000000 X                      ADDWD  T.SCR       ADD REFORMATTED MEMBER TO T.SCR             FC5A185   174
          1253  66221                             =B2    B2+1                                                    FC5A185   175
                     5110000000 X                 SA1    T.ECT       REFRESH FWA OF TABLE                        FC5A185   176
          1254  0723001247 +                      LT     B2,B3,GLE30 IF MORE MEMBERS                             FC5A185   177
                                                                                                                 FC5A185   178
          1255  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
          1256  12661                             BX6    X6+X1                                                   FC5A185   183
                     54610                        SA6    A1          ADD LENGTH TO 1ST MEMBER                    FC5A185   184
                          0400001240 +            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
          1257  0400401257 +             GNB      SUBR               ENTRY/EXIT...                               FC5A185   201
                                                                                                                 FC5A185   202
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    34
        TASK PERFORMERS                                               GNB 
  
          1260  5110000000 X             GNB10    SA1    T=BLKS                                                  FC5A185   203
                          5150001434 +            SA5    OBI.BI                                                  FC5A185   204
          1261  7211777776                        =X1    X1-1                                                    FC5A185   205
                          7255000002              SX5    X5+Z=BLKS                                               FC5A185   206
          1262  37315                             IX3    X1-X5                                                   FC5A185   207
                     0333001257 +                 MI     X3,EXIT.    IF NO MORE BLOCKS                           FC5A185   208
                               10655              BX6    X5                                                      FC5A185   209
          1263  54650                             SA6    A5          UPDATE BLOCK COUNT                          FC5A185   210
                     5110000000 X                 SA1    T.BLKS                                                  FC5A185   211
                               63250              SB2    X5                                                      FC5A185   212
          1264  53112                             SA1    X1+B2                                                   FC5A185   213
                     43022                        XTRCT  CA.BNAM,X1,X1     X1 = BLOCK NAME                       FC5A185   214
          1265  5120003232 +                      SA2    =7RS$A$V$E                                              FC5A185   215
                          13112                   BX1    X1-X2                                                   FC5A185   216
          1266  0301001260 +                      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
                          5160002045 +            SA6    STS.BI      TELL STS ABOUT BLOCK NUMBER                 FC5A185   222
          1267  7150100000                        CLAS=  X5,WB,(COM)                                             FC5A185   223
                          7140000020              CLAS=  X4,WB,(CGS)                                             FC5A185   224
          1270  6140000007                        =B4    TCOMP                                                   FC5A185   225
                          0100001775 +            RJ     STS         SEPARATE BLOCK MEMBERS                      FC5A185   226
          1271  5120000000 X                      SA2    T.SCR                                                   FC5A185   227
                          5110000000 X            SA1    T=SCR                                                   FC5A185   228
          1272  63720                             SB7    X2                                                      FC5A185   229
                     0100000000 X                 CALL   SST         SORT BY RELATIVE ADDRESS                    FC5A185   230
          1273  0100001322 +                      RJ     MEC         MARK EQUIVALENCE CLASSES                    FC5A185   231
          1274  5130001434 +                      SA3    OBI.BI                                                  FC5A273     5
                          0400001257 +            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
          1275  0400401275 +             JIF      SUBR               ENTRY/EXIT...                               MAP      1446
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    35
        TASK PERFORMERS                                               JIF 
  
          1276  20072                             LX0    58                                                      MAP      1447
                     0660001300 +                 PL     B6,JIF10    IF ITEM WIDTH IS KNOWN                      MAP      1448
          1277  0100001060 +                      RJ     CCBB        DETERMINE WIDTH                             MAP      1449
                                                                                                                 MAP      1450
          1300  0320001303 +             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
          1302  23141                             AX1    B4,X1       LEFT JUSTIFY                                MAP      1455
                                                                                                                 MAP      1456
          1303  20001                    JIF20    LX0    1                                                       MAP      1457
                     67456                        SB4    B5-B6                                                   MAP      1458
                                                  IFEQ   TEST,ON,1                                               MAP      1459
                          0740401303 +            MI     B4,"BLOWUP" IF FIELD TOO SMALL                          MAP      1460
                                                                                                                 MAP      1461
          1304  0320001312 +                      PL     X0,JIF30    IF OUTPUT TO BE LEFT JUSTIFIED              MAP      1462
                          66760                   SB7    B6          PRESERVE ITEM WIDTH                         MAP      1463
                               64510              SB5    A1          PRESERVE ITEM ADDRESS                       MAP      1464
          1305  10511                             BX5    X1          PRESERVE 1ST WORD OF ITEM                   MAP      1465
                     66640                        SB6    B4                                                      MAP      1466
                          5110000464 +            SA1    MAP.XS                                                  MAP      1467
          1306  0100001606 +                      RJ     PCB                                                     MAP      1468
          1307  66670                             SB6    B7          RESTORE ITEM WIDTH                          MAP      1469
                     56150                        SA1    B5          RESTORE ITEM ADDRESS                        MAP      1470
                          10155                   BX1    X5          RESTORE ITEM                                MAP      1471
          1310  0100001606 +                      RJ     PCB                                                     MAP      1472
          1311  0400001275 +                      EQ     EXIT.                                                   MAP      1473
                                                                                                                 MAP      1474
          1312  6176777765               JIF30    SB7    B6-10                                                   MAP      1475
                          0670001320 +            PL     B7,JIF40    IF ITEM WIDTH GE 10                         MAP      1476
          1313  6175777764                        SB7    B5-11                                                   MAP      1477
                          0770001320 +            MI     B7,JIF40    IF FIELD WIDTH LE 10                        MAP      1478
          1314  6160000012                        SB6    10                                                      MAP      1479
                          0100001606 +            RJ     PCB                                                     MAP      1480
          1315  66640                             SB6    B4                                                      MAP      1481
                     5110000464 +                 SA1    MAP.XS                                                  MAP      1482
          1316  0100001606 +                      RJ     PCB                                                     MAP      1483
          1317  0400001275 +                      EQ     EXIT.                                                   MAP      1484
                                                                                                                 MAP      1485
          1320  66650                    JIF40    SB6    B5                                                      MAP      1486
                     0100001606 +                 RJ     PCB                                                     MAP      1487
          1321  0400001275 +                      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/05. 20.00.36.      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
          1322  0400401322 +             MEC      SUBR               ENTRY/EXIT...                               FC5A185   255
          1323  5140000000 X                      SA4    T.SCR                                                   FC5A185   256
                          5120000000 X            SA2    T=SCR                                                   FC5A185   257
          1324  5150000000 X                      SA5    T.SYM                                                   FC5A185   258
                          10755                   BX7    X5                                                      FC5A185   259
                               66300              =B3    0                                                       FC5A185   260
          1325  63420                             SB4    X2                                                      FC5A185   261
                                                  IFEQ   TEST,ON,1                                               FC5A185   262
                     0440401325 +                 ZR     B4,"BLOWUP" IF TABLE EMPTY                              FC5A185   263
                                                                                                                 FC5A185   264
          1326  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
          1327  0331001335 +                      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
          1330  66221                    MEC20    =B2    B2+1                                                    FC5A185   280
                     54152                        SA1    A5+B2       X1 = NEXT T.SCR ENTRY                       FC5A185   281
                          66632                   SB6    B3+B2                                                   FC5A185   282
          1331  0664001333 +                      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
          1332  20162                             HX1    WB.EQV                                                  FC5A185   288
                     0321001330 +                 PL     X1,MEC20    IF NOT EQUIVALENCED                         FC5A185   289
                                                                                                                 FC5A185   290
          1333  77602                    MEC30    SX6    -B2                                                     FC5A185   291
                     43052                        MX0    -MT.NMGL                                                FC5A185   292
                          15660                   BX6    -X0*X6                                                  FC5A185   293
          1334  0400001353 +                      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
          1335  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/05. 20.00.36.      PAGE    37
        TASK PERFORMERS                                               MEC 
  
          1336  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
          1340  66200                             =B2    0                                                       FC5A185   310
                                                                                                                 FC5A185   311
          1341  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
          1342  0770401342 +                      MI     B7,"BLOWUP" IF *NIT*                                    FC5A185   316
                          20321                   HX3    TE.NB                                                   FC5A185   317
          1343  0333001341 +                      MI     X3,MEC50    IF NOT BASE MEMBER                          FC5A185   318
                                                                                                                 FC5A185   319
                          20353                   LX3    TE.NBP+1                                                FC5A185   320
                               43601              MX6    1                                                       FC5A185   321
          1344  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
          1345  5130000000 X                      SA3    T=ECT                                                   FC5A185   331
                          66600                   =B6    0                                                       FC5A185   332
                               36113              IX1    X1+X3                                                   FC5A185   333
          1346  63510                             SB5    X1          B5 = LWA + 1                                FC5A185   334
                                                                                                                 FC5A185   335
          1347  66661                    MEC60    =B6    B6+1                                                    FC5A185   336
                     54326                        SA3    A2+B6       X3 = NEXT T.ECT ENTRY                       FC5A185   337
                          75635                   SX6    A3-B5                                                   FC5A185   338
          1350  0306001352 +                      ZR     X6,MEC70    IF END OF TABLE                             FC5A185   339
                          20321                   HX3    TE.NB                                                   FC5A185   340
          1351  0333001347 +                      MI     X3,MEC60    IF NOT BASE MEMBER                          FC5A185   341
                                                                                                                 FC5A185   342
          1352  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
          1353  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
          1354  0734001326 +                      LT     B3,B4,MEC10 IF MORE ITEMS                               FC5A185   358
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    38
        TASK PERFORMERS                                               MEC 
  
                                                                                                                 FC5A185   359
                                                  IFEQ   TEST,ON,1                                               FC5A185   360
                          0534401354 +            NE     B3,B4,"BLOWUP"    IF INCONSISTENT INCREMENT             FC5A185   361
          1355  0400001322 +                      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
          1356  0400401356 +             OBI      SUBR               ENTRY/EXIT...                               MAP      1511
          1357  5110000464 +                      SA1    MAP.XS                                                  MAP      1539
                          6160000003              SB6    3                                                       MAP      1540
          1360  0100001606 +                      RJ     PCB                                                     MAP      1541
          1361  5150001434 +                      SA5    OBI.BI                                                  FC5A185   364
                          5110000000 X            SA1    T.BLKS                                                  MAP      1542
          1362  63250                             SB2    X5                                                      MAP      1543
                     53512                        SA5    X1+B2       *CA*                                        MAP      1544
                          5120000000 X            SA2    BLNKCOM                                                 MAP      1545
          1363  63620                             SB6    X2                                                      MAP      1546
                     67662                        SB6    B6-B2                                                   MAP      1547
                          5110003237 +            SA1    =2H//                                                   MAP      1548
          1364  0460001366 +                      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
                          0100001021 +            RJ     BNS         BOUND NAME BY SLASHES                       MAP      1552
                                                                                                                 MAP      1553
          1366  6160000012               OBI15    SB6    10                                                      MAP      1554
                          0100001606 +            RJ     PCB         ADD NAME TO LINE                            MAP      1555
          1367  54550                             SA5    A5          RESTORE X5                                  MAP      1556
                     43072                        XTRCT  CA.BLVL,X5,X1     ISOLATE LEVEL NUMBER                  MAP      1557
          1370  0311001371 +                      NZ     X1,OBI17    ** KLUDGE TO AVOID LEV0                     MAP      1558
                          73111                   =X1    X1+1                                                    MAP      1559
                                                                                                                 MAP      1560
          1371  7211000033               OBI17    SX1    X1+33B      CONVERT TO DPC                              MAP      1561
                          20106                   LX1    CHAR                                                    MAP      1562
          1372  5120003240 +                      SA2    =8LLEVEL =                                              MAP      1563
                          12112                   BX1    X1+X2       APPEND TO 8LLEVEL =                         MAP      1564
          1373  5120003241 +                      SA2    =1R,                                                    MAP      1565
                          12112                   BX1    X1+X2                                                   MAP      1566
          1374  6160000012                        SB6    10                                                      MAP      1567
                          0100001606 +            RJ     PCB                                                     MAP      1568
          1375  5110003242 +                      SA1    =5H SIZE                                                MAP      1569
                          6160000005              SB6    5                                                       MAP      1570
          1376  0100001606 +                      RJ     PCB                                                     MAP      1571
          1377  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/05. 20.00.36.      PAGE    39
        TASK PERFORMERS                                               OBI 
  
                               55351              =A3    A5-1                                                    MAP      1574
          1400  66510                             =B5    1                                                       MAP      1575
                     20352                        SBIT   X3,CA.CHARP                                             FC5A391     7
                          0323001403 +            PL     X3,OBI20    IF NOT CHARACTER COMMON BLOCK               FC5A391     8
          1401  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
          1402  66500                             =B5    0                                                       MAP      1581
                                                                                                                 MAP      1582
          1403  0100000000 X             OBI20    CALL   CDD         CONVERT SIZE TO DPC                         MAP      1583
          1404  10144                             BX1    X4                                                      MAP      1584
                     76010                        =X0    1                                                       MAP      1585
                          0100001060 +            RJ     CCBB                                                    MAP      1586
          1405  10411                             BX4    X1                                                      MAP      1587
                     20452                        LX4    -3*CHAR                                                 MAP      1588
                          5110003243 +            SA1    =3L =                                                   MAP      1589
          1406  43022                             MX0    3*CHAR                                                  MAP      1590
                     15440                        BX4    -X0*X4      ERASE BLANKS                                MAP      1591
                          12114                   BX1    X1+X4                                                   MAP      1592
          1407  6166000003                        SB6    B6+3                                                    MAP      1593
                          0100001606 +            RJ     PCB                                                     MAP      1594
          1410  5110003244 +                      SA1    =6L CHARS   ASSUME UNITS ARE CHAR                       MAP      1595
                          0450001412 +            ZR     B5,OBI30    IF ASSUMPTION CORRECT                       MAP      1596
          1411  5110003245 +                      SA1    =6L WORDS                                               MAP      1597
                                                                                                                 MAP      1598
          1412  6160000012               OBI30    SB6    10                                                      MAP      1599
                          5120003246 +            SA2    =4R "SCM"   ASSUME SCM                                  MAP      1600
                                                  HX5    CB.LCM                                                  MAP      1601
          1413  0325001414 +                      PL     X5,OBI35    IF ASSUMPTION CORRECT                       MAP      1602
                          5120003247 +            SA2    =4R "LCM"                                               MAP      1603
                                                                                                                 MAP      1604
          1414  12112                    OBI35    BX1    X1+X2                                                   MAP      1605
                     0100001606 +                 RJ     PCB                                                     MAP      1606
          1415  20503                             LX5    CB.LCMP-CB.SAVEP+2                                      MAP      1607
                     0325001420 +                 PL     X5,OBI40    IF NOT SAVED                                MAP      1608
          1416  5110003250 +                      SA1    =4HSAVE                                                 MAP      1609
                          6160000004              SB6    4                                                       MAP      1610
          1417  0100001606 +                      RJ     PCB                                                     MAP      1611
                                                                                                                 MAP      1612
          1420  5150001624 +             OBI40    SA5    PCB.WO                                                  MAP      1613
                          7255000002              SX5    X5+2                                                    MAP      1614
          1421  7215777776                        WLINE  MAPBUFF-1,X5,1,0  OUTPUT BLOCK INFO                     MAP      1615
          1431  6160000006                        SB6    6                                                       MAP      1616
                          5110000464 +            SA1    MAP.XS                                                  MAP      1617
          1432  0100001606 +                      RJ     PCB         INDENT 6                                    MAP      1618
          1433  0400001356 +                      EQ     EXIT.                                                   MAP      1620
                                                                                                                 MAP      1621
          1434                     1     OBI.BI   BSS    1           BLOCK INDEX                                 MAP      1622
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          1435  0400401435 +             OCEI     SUBR               ENTRY/EXIT...                               FC5A185   390
                                                                                                                 FC5A185   391
          1436  0100002466 +             OCEI10   RJ     NAME        DETERMINE NAME                              FC5A185   392
          1437  0100002302 +                      RJ     FIRST       DETERMINE FIRST INDEX                       FC5A185   393
          1440  0100002371 +                      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
          1441  6166000001                        SB6    B6+1        ACCOUNT FOR *>*                             FC50297     8
                          0100001033 +            RJ     CBS         CREATE BUFFER SPACE                         FC5A185   400
          1442  5110002475 +                      SA1    NAMEA       X1 = DPC OF NAME                            FC5A185   401
                          54211                   =A2    A1+1        X2 = LENGTH OF NAME                         FC5A185   402
                               63620              SB6    X2                                                      FC5A185   403
          1443  0100001606 +                      RJ     PCB         OUTPUT NAME                                 FC5A185   404
          1444  5110002314 +                      SA1    FIRSTA      X1 = FIRST DPC                              FC5A185   405
                          54211                   =A2    A1+1        X2 = LENGTH OF FIRST                        FC5A185   406
                               63620              SB6    X2                                                      FC5A185   407
          1445  0100001606 +                      RJ     PCB         OUTPUT FIRST                                FC5A185   408
          1446  5110002422 +                      SA1    LASTA       X1 = DPC OF LAST                            FC5A185   409
                          54211                   =A2    A1+1        X2 = LENGTH OF LAST                         FC5A185   410
                               63620              SB6    X2                                                      FC5A185   411
          1447  0100001606 +                      RJ     PCB         OUTPUT LAST                                 FC5A185   412
          1450  5110003251 +                      SA1    =1L>                                                    FC50297     9
                          6160000001              SB6    1                                                       FC50297    10
          1451  0100001606 +                      RJ     PCB         OUTPUT TRAILING CHARACTERS                  FC5A185   415
          1452  5110001462 +                      SA1    OCEI.NI                                                 FC5A185   416
                          5120001461 +            SA2    OCEI.ADR                                                FC5A185   417
          1453  7261777776                        =X6    X1-1                                                    FC5A185   418
                          73721                   =X7    X2+1                                                    FC5A185   419
                               54610              SA6    A1          UPDATE NUMBER OF ITEMS                      FC5A185   420
          1454  54720                             SA7    A2          UPDATE ADDRESS                              FC5A185   421
                     5110001463 +                 SA1    OCEI.TAB                                                FC50297    11
          1455  7100000027                        SX0    23                                                      FC50297    12
                          36110                   IX1    X1+X0       INCREMENT FOR TAB                           FC50297    13
                               10711              BX7    X1                                                      FC50297    14
          1456  54710                             SA7    A1          UPDATE                                      FC50297    15
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    41
        TASK PERFORMERS                                               OCEI
  
                     0306001435 +                 ZR     X6,EXIT.    IF ALL ITEMS PROCESSED                      FC50297    16
          1457  0100002046 +                      RJ     TAB         MOVE TO NEXT POSITION                       FC50297    17
          1460  0400001436 +                      EQ     OCEI10      CONTINUE                                    FC50297    18
                                                                                                                 FC5A185   424
          1461                     1     OCEI.ADR BSS    1           ADDRESS OF COMMON/EQUIVALENCE ITEM          FC50297    19
          1462                     1     OCEI.NI  BSS    1           NUMBER OF ITEMS                             FC50297    20
          1463                     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
          1464  0400401464 +             OML      SUBR               ENTRY/EXIT...                               FC5A185   443
          1465  5110000000 X                      SA1    T.SCR                                                   FC5A185   444
                          10611                   BX6    X1                                                      FC5A185   445
          1466  5160001461 +                      SA6    OCEI.ADR    SET FWA OF ITEMS                            FC5A185   446
                          5120000000 X            SA2    T=SCR                                                   FC5A185   447
          1467  36662                             IX6    X6+X2                                                   FC5A185   448
                     7266777776                   =X6    X6-1                                                    FC5A185   449
          1470  5160001514 +                      SA6    OMLLWA      SET LWA OF ITEMS                            FC5A185   450
                                                                                                                 FC5A185   451
          1471  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
          1472  0306401472 +                      ZR     X6,"BLOWUP" IF BAD COUNT                                FC5A185   457
                          0336001505 +            MI     X6,OML20    IF GROUP OF NON-EQUIV ITEMS                 FC5A185   458
                                                                                                                 FC5A185   459
                                        **        HERE FOR ALL EQUIVALENCE CLASSES.                              FC5A185   460
                                                                                                                 FC5A185   461
          1473  5160001462 +                      SA6    OCEI.NI     SET NUMBER OF ITEMS                         FC5A185   462
                          5110001463 +            SA1    OCEI.TAB                                                FC50297    22
          1474  0100002046 +                      RJ     TAB         BLANK FILL TO PROPER POSITION               FC50297    23
          1475  66610                             =B6    1                                                       FC5A185   463
                     0100001033 +                 RJ     CBS         CREATE BUFFER SPACE                         FC5A185   464
          1476  5110003252 +                      SA1    =1L(                                                    FC5A185   465
                          66610                   =B6    1                                                       FC5A185   466
          1477  0100001606 +                      RJ     PCB         OUTPUT LEFT PAREN                           FC5A185   467
          1500  0100001435 +                      RJ     OCEI        OUTPUT EQUIVALENCE CLASS                    FC5A185   468
          1501  66610                             =B6    1                                                       FC5A185   469
                     0100001033 +                 RJ     CBS         CREATE BUFFER SPACE                         FC5A185   470
          1502  5110003253 +                      SA1    =1L)                                                    FC5A185   471
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    42
        TASK PERFORMERS                                               OML 
  
                          66610                   =B6    1                                                       FC5A185   472
          1503  0100001606 +                      RJ     PCB         OUTPUT RIGHT PAREN                          FC5A185   473
          1504  0400001510 +                      EQ     OML30                                                   FC5A185   474
                                                                                                                 FC5A185   475
                                        **        HERE FOR ALL NON-EQUIVALENCED ITEMS.                           FC5A185   476
                                                                                                                 FC5A185   477
          1505  14666                    OML20    BX6    -X6                                                     FC5A185   478
                     5160001462 +                 SA6    OCEI.NI     SET NUMBER OF ITEMS                         FC5A185   479
          1506  5110001463 +                      SA1    OCEI.TAB                                                FC50297    24
                          0100002046 +            RJ     TAB         BLANK FILL TO PROPER POSITION               FC50297    25
          1507  0100001435 +                      RJ     OCEI        OUTPUT ITEMS                                FC5A185   480
                                                                                                                 FC5A185   481
                                        **        TEST FOR EXHAUSTED TABLE.                                      FC5A185   482
                                                                                                                 FC5A185   483
          1510  5110001461 +             OML30    SA1    OCEI.ADR                                                FC5A185   484
                          5120001514 +            SA2    OMLLWA                                                  FC5A185   485
          1511  37221                             IX2    X2-X1                                                   FC5A185   486
                     0322001471 +                 PL     X2,OML10    IF MORE ITEMS                               FC5A185   487
          1512  6160000764                        SB6    500                                                     FC5A185   488
                          0100001033 +            RJ     CBS         FORCE BUFFER FLUSH                          FC5A185   489
          1513  0400001464 +                      EQ     EXIT.                                                   FC5A185   490
                                                                                                                 FC5A185   491
          1514                     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
          1515  0400401515 +             OTH      SUBR               ENTRY/EXIT...                               MAP      1878
          1516  5110000000 X                      SA1    LCNT                                                    MAP      1879
                          5120000000 X            SA2    CO.PS                                                   FC5A107    20
          1517  37621                             IX6    X2-X1                                                   MAP      1881
                     7266777765                   SX6    X6-10                                                   MAP      1882
                               20502              LX5    2           MULTIPLY MST OFFSET BY 4                    MAP      1883
          1520  0326001524 +                      PL     X6,OTH10    IF 10 OR MORE LINES LEFT                    MAP      1884
                          10622                   BX6    X2                                                      MAP      1885
          1521  5160000000 X                      SA6    LCNT        FORCE EJECT WITH NEXT LINE                  MAP      1886
                          76110                   =X1    1                                                       MAP      1887
          1522  7160000000 X                      SX6    HDRBL                                                   MAP      1888
                          20136                   LX1    30                                                      MAP      1889
                               12661              BX6    X6+X1                                                   MAP      1890
          1523  5160000000 X                      SA6    O.STITL     SUPRESS OLD HEADING                         MAP      1891
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    43
        TASK PERFORMERS                                               OTH 
  
                                                                                                                 MAP      1892
          1524  5110000000 X             OTH10    SA1    WO.LOR                                                  MAP      1893
                          0321001532 +            PL     X1,OTH20    IF REFERENCES NOT SELECTED                  MAP      1894
          1525  5110000000 X                      SA1    CO.PW                                                   MAP      1895
                          7211777601              SX1    X1-MAPLC                                                MAP      1896
          1526  0331001532 +                      MI     X1,OTH20    IF IN PW MODE                               MAP      1897
                          7110000133              SX1    MAPDTC                                                  MAP      1898
          1527  0100002046 +                      RJ     TAB         BLANK FILL TO DICTIONARY TAB COLUMN         MAP      1899
          1530  10755                             BX7    X5                                                      MAP      1900
                     20701                        LX7    1           MST OFFSET * 8                              MAP      1901
                          5217000410 +            SA1    X7+MAPUD+4                                              MAP      1902
          1531  6160000050                        SB6    MAPUDL*10                                               MAP      1903
                          0100001606 +            RJ     PCB         OUTPUT PIECE OF USAGE DICTIONARY            MAP      1904
                                                                                                                 MAP      1905
          1532  5110001624 +             OTH20    SA1    PCB.WO                                                  MAP      1906
                          7201000002              =X0    X1+2        NO. WORDS IN HEADING                        MAP      1907
          1533  10100                             MOVE   X0,MAPBUFF-1,MOCBUF   MOVE HEADING TO DIFFERENT BUFFER  MAP      1908
          1535  76600                             SETMEM MAPBUFF-1,X0,0    ZERO THE BUFFER                       MAP      1909
          1537  7160000074                        SX6    60                                                      MAP      1910
                          5160001625 +            SA6    PCB.SC      RESET SHIFT COUNT                           MAP      1911
          1540  7160777775                        =X6    -2                                                      MAP      1912
                          5160001624 +            SA6    PCB.WO      RESET WORD OFFSET                           MAP      1913
          1541  5215000340 +                      SA1    X5+MAPST    FETCH LENGTH OF TITLE                       MAP      1914
                          63400                   SB4    X0          SAVE HEADING LENGTH                         MAP      1915
                               63610              SB6    X1                                                      MAP      1916
          1542  54111                             =A1    A1+1        GET READY FOR PCB                           MAP      1917
                     63400                        SB4    X0          SAVE HEADING LENGTH                         MAP      1918
                          0100001606 +            RJ     PCB                                                     MAP      1919
          1543  5110001600 +                      SA1    OTH.LO       FETCH LIST OPTIONS                         MAP      1920
                          6160000012              SB6    10                                                      MAP      1921
          1544  0100001606 +                      RJ     PCB         APPEND THEM TO TITLE                        MAP      1922
          1545  5110000000 X                      SA1    WO.LOR                                                  MAP      1923
                          0321001553 +            PL     X1,OTH30    IF REFERENCES NOT SELECTED                  MAP      1924
          1546  5110000000 X                      SA1    CO.PW                                                   MAP      1925
                          7211777601              SX1    X1-MAPLC                                                MAP      1926
          1547  0331001553 +                      MI     X1,OTH30    IF IN PW MODE                               MAP      1927
                          7110000133              SX1    MAPDTC                                                  MAP      1928
          1550  0100002046 +                      RJ     TAB         BLANK FILL TO DICTIONARY TAB COLUMN         MAP      1929
          1551  10755                             BX7    X5                                                      MAP      1930
                     20701                        LX7    1           MST OFFSET * 8                              MAP      1931
                          5217000404 +            SA1    X7+MAPUD                                                MAP      1932
          1552  6160000050                        SB6    MAPUDL*10                                               MAP      1933
                          0100001606 +            RJ     PCB         OUTPUT PART OF USAGE DICTIONARY             MAP      1934
                                                                                                                 MAP      1935
          1553  5110001624 +             OTH30    SA1    PCB.WO                                                  MAP      1936
                          7211000002              =X1    X1+2        NO. OF WORDS TO OUTPUT                      MAP      1937
          1554  76040                             SX0    B4                                                      MAP      1938
                     10511                        WLINE  MAPBUFF-1,X1,2,0  OUTPUT THE TITLE                      MAP      1939
          1564  10500                             WLINE  MOCBUF,X0,0,1     OUTPUT THE HEADING                    MAP      1940
          1572  7160000656 +                      SX6    MOCBUF                                                  MAP      1941
                          5110000000 X            SA1    WO.LOR                                                  MAP      1942
          1573  0321001576 +                      PL     X1,OTH40    IF REFERENCES NOT SELECTED                  MAP      1943
                          5110000000 X            SA1    CO.PW                                                   MAP      1944
          1574  7211777601                        SX1    X1-MAPLC                                                MAP      1945
                          0331001576 +            MI     X1,OTH40    IF IN PW MODE                               MAP      1946
          1575  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/05. 20.00.36.      PAGE    44
        TASK PERFORMERS                                               OTH 
  
          1576  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
          1577  0400001515 +                      EQ     EXIT.                                                   MAP      1952
                                                                                                                 MAP      1953
          1600                     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
          1601  10622                    PCB10    BX6    X2                                                      MAP      1973
                     7142777703                   SX4    B2-60                                                   MAP      1974
          1602  0314001603 +                      NZ     X4,PCB15    IF NOT AT START OF NEW WORD                 MAP      1975
                          7266777776              =X6    X6-1                                                    MAP      1976
                                                                                                                 MAP      1977
          1603  5160001624 +             PCB15    SA6    PCB.WO       STORE WORD OFFSET                          MAP      1978
                          76620                   SX6    B2                                                      MAP      1979
          1604  5160001625 +                      SA6    PCB.SC                                                  MAP      1980
                          10633                   BX6    X3                                                      MAP      1981
          1605  5262000520 +                      SA6    X2+MAPBUFF  REPLACE MAPBUFF WORD                        MAP      1982
                                                                                                                 MAP      1983
          1606  0400401606 +             PCB      SUBR               ENTRY/EXIT...                               MAP      1984
          1607  66300                             SB3    B0                                                      MAP      1985
                     43006                        MX0    CHAR                                                    MAP      1986
                          5120001624 +            SA2    PCB.WO       CURRENT MAPBUFF OFFSET                     MAP      1987
          1610  5130001625 +                      SA3    PCB.SC       CURRENT SHIFT COUNT                        MAP      1988
                          6223777703              SB2    X3-60                                                   MAP      1989
          1611  0520001612 +                      NZ     B2,PCB17    IF NOT AT START OF NEW WORD                 MAP      1990
                          73221                   =X2    X2+1                                                    MAP      1991
                                                                                                                 MAP      1992
          1612  63230                    PCB17    SB2    X3                                                      MAP      1993
                     5232000520 +                 SA3    X2+MAPBUFF  CURRENT MAPBUFF WORD                        MAP      1994
                                                                                                                 MAP      1995
          1613  67661                    PCB20    =B6    B6-1                                                    MAP      1996
                     0760001601 +                 MI     B6,PCB10    IF STRING EXHAUSTED                         MAP      1997
                               11401              BX4    X0*X1       GRAB LEFTMOST CHARACTER                     MAP      1998
          1614  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
          1615  0702001621 +                      GT     B2,B0,PCB30 IF MAPBUFF WORD NOT FILLED                  MAP      2002
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    45
        TASK PERFORMERS                                               PCB 
  
                          10633                   BX6    X3          OTHERWISE...                                MAP      2003
                                                  IFEQ   TEST,ON,2                                               MAP      2004
          1616  7272777761                        SX7    X2-14                                                   MAP      2005
                          0327401616 +            PL     X7,"BLOWUP" IF BAD OFFSET                               MAP      2006
          1617  5262000520 +                      SA6    X2+MAPBUFF  STORE FILLED WORD                           MAP      2007
                          73221                   =X2    X2+1                                                    MAP      2008
          1620  5232000520 +                      SA3    X2+MAPBUFF  GET NEXT ONE                                MAP      2009
                          6120000074              SB2    60          RESET SHIFT COUNT                           MAP      2010
                                                                                                                 MAP      2011
          1621  20106                    PCB30    LX1    CHAR                                                    MAP      2012
                     66331                        =B3    B3+1                                                    MAP      2013
                          7143777765              SX4    B3-10                                                   MAP      2014
          1622  0334001613 +                      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
          1623  0400001613 +                      EQ     PCB20       CONTINUE                                    MAP      2018
                                                                                                                 MAP      2019
                                                                                                                 MAP      2020
          1624  77777777777777777775     PCB.WO    CON    -2          MAPBUFF WORD OFFSET                        MAP      2021
          1625  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
          1626  0400401626 +             PRT      SUBR               ENTRY/EXIT...                               MAP      2034
          1627  5110000000 X                      SA1    WO.LOR                                                  MAP      2035
                          0321001646 +            PL     X1,PRT2     IF REF-MAP NOT SELECTED                     MAP      2036
          1630  5130000000 X                      SA3    REFIO                                                   MAP      2037
                          0303001646 +            ZR     X3,PRT2     IF TABLE IN CORE                            MAP      2038
                                                                                                                 MAP      2039
                                        **        READ REFERENCE TABLE BACK INTO CORE.                           MAP      2040
                                                                                                                 MAP      2041
          1631  76040                             SX0    B4          SAVE (B4)                                   MAP      2042
                     7120000000 X                 WRITER F.REF                                                   MAP      2043
          1633  7120000000 X                      REWIND F.REF                                                   MAP      2044
          1635  63400                             SB4    X0          RESTORE (B4)                                MAP      2045
                     5120000000 X                 SA2    LOSTREF                                                 MAP      2046
          1636  5110000000 X                      ALLOC  T.REF,X2                                                MAP      2047
                                                                                                                 MAP      2048
                                                  IFNE   CP#RM,7,1                                               MAP      2049
          1640  7120000000 X                      READ   F.REF                                                   FC50562     5
                                                                                                                 MAP      2051
          1642  5110000000 X                      SA1    T.REF                                                   MAP      2052
                          5130000000 X            SA3    T=REF                                                   MAP      2053
          1643  76040                             SX0    B4          SAVE (B4)                                   MAP      2054
                     63610                        READW  F.REF,X1,X3                                             FC50562     6
          1645  63400                             SB4    X0          RESTORE (B4)                                MAP      2056
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    46
        TASK PERFORMERS                                               PRT 
  
                                                                                                                 MAP      2057
                                        **        PRE-LOAD REGISTERS, AND CLEAR LINKS FROM SYMBOL AND LABEL      MAP      2058
                                        *         TABLES.                                                        MAP      2059
                                                                                                                 MAP      2060
          1646  5110000000 X             PRT2     SA1    T.SYM                                                   MAP      2061
                          5140000000 X            SA4    T=SYM                                                   MAP      2062
          1647  53310                             SA3    X1                                                      MAP      2063
                     63510                        SB5    X1          (B5) = FWA SYMBOL TABLE                     MAP      2064
                          43052                   MX0    WA.SYML                                                 MAP      2065
          1650  6120000003                        =B2    Z=SYM                                                   MAP      2066
                          6274777774              SB7    X4-Z=SYM                                                MAP      2067
          1651  11603                             BX6    X0*X3                                                   MAP      2068
                                                                                                                 MAP      2069
          1652  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
          1653  0670001652 +                      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
          1654  5140000000 X                      SA4    T.REF                                                   MAP      2079
                          0301001667 +            ZR     X1,PRT5     IF REF TABLE EMPTY                          MAP      2080
          1655  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
          1656  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
          1657  5130000000 X                      SA3    CO.SNAP                                                 MAP      2091
                          20322                   LX3    1RR                                                     MAP      2092
          1660  0323001662 +                      PL     X3,PRT3S    IF REFERENCE SNAP NOT SELECTED              MAP      2093
          1661  0100000000 X                      DUMPT  REF                                                     MAP      2094
          1662                           PRT3S    BSS    0                                                       MAP      2095
                                         SNAP=R   ENDIF                                                          MAP      2096
                                                                                                                 MAP      2097
          1662  15650                    PRT4     BX6    -X0*X5                                                  MAP      2098
                     20522                        LX5    -XR.TAGP                                                MAP      2099
                          73250                   SX2    X5                                                      MAP      2100
                               22712              LX7    X2,B1                                                   MAP      2101
          1663  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
          1664  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
          1665  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/05. 20.00.36.      PAGE    47
        TASK PERFORMERS                                               PRT 
  
          1666  0311001662 +                      NZ     X1,PRT4     IF MORE REFERENCES                          MAP      2114
                                                                                                                 MAP      2115
          1667                           PRT5     BSS    0                                                       MAP      2116
                                         SNAP=R   IFNE   TEST        DUMP REFERENCE TABLE                        MAP      2117
          1667  5130000000 X                      SA3    CO.SNAP                                                 MAP      2118
                          20322                   LX3    1RR                                                     MAP      2119
          1670  0323001672 +                      PL     X3,PRT5S    IF REFERENCE SNAP NOT SELECTED              MAP      2120
          1671  0100000000 X                      DUMPT  SYM                                                     MAP      2121
          1672                           PRT5S    BSS    0                                                       MAP      2122
                                         SNAP=R   ENDIF                                                          MAP      2123
          1672  0400001626 +                      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
          1673  0400401673 +             RNI      SUBR               ENTRY/EXIT...                               MAP      2138
          1674  5130001727 +             RNI5     SA3    RNI.PI      PREVIOUS INDEX RETURNED                     MAP      2139
                          5140001772 +            SA4    SRNI.BDF                                                MAP      2140
          1675  0324001700 +                      PL     X4,RNI10    IF NOT FIRST TIME FOR THIS TABLE DIVISION   MAP      2141
                          10733                   BX7    X3                                                      MAP      2142
                               54740              SA7    A4                                                      MAP      2143
          1676  76610                             =X6    1                                                       MAP      2144
                     5160001724 +                 SA6    RNI.CC                                                  MAP      2145
                               77601              =X6    -1                                                      MAP      2146
          1677  5160001726 +                      SA6    RNI.SC                                                  MAP      2147
                          0400001673 +            EQ     EXIT.                                                   MAP      2148
                                                                                                                 MAP      2149
          1700  5110001724 +             RNI10    SA1    RNI.CC      COUNTS NO. OF TIMES CALLED FOR THIS TABLE   MAP      2150
                          73711                   =X7    X1+1                                                    MAP      2151
          1701  5170001724 +                      SA7    RNI.CC      UPDATE IT                                   MAP      2152
                          5120001725 +            SA2    RNI.CL      CALL LIMIT                                  MAP      2153
          1702  37127                             IX1    X2-X7                                                   MAP      2154
                     0321001706 +                 PL     X1,RNI20    IF TABLE DIVISION NOT EMPTY                 MAP      2155
          1703  6120000000                        SB2    0                                                       MAP      2156
                          0100001742 +            RJ     SRNI        RESET RNI PARAMETERS                        MAP      2157
          1704  0630001674 +                      PL     B3,RNI5     IF TABLE NOT EMPTY                          MAP      2158
                          43700                   MX7    0           SIGNAL EMPTY TABLE                          MAP      2159
          1705  5170001727 +                      SA7    RNI.PI                                                  MAP      2160
                          0400001673 +            EQ     EXIT.       RETURN                                      MAP      2161
                                                                                                                 MAP      2162
          1706  5110001726 +             RNI20    SA1    RNI.SC      SECTION COUNTER                             MAP      2163
                          73611                   =X6    X1+1                                                    MAP      2164
          1707  5216001716 +                      SA1    RNI.SL+X6   FETCH LENGTH PREVIOUS SECTION               MAP      2165
                          36731                   IX7    X3+X1       COMPUTE NEW INDEX                           MAP      2166
          1710  5120001774 +                      SA2    SRNI.LED                                                MAP      2167
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    48
        TASK PERFORMERS                                               RNI 
  
                          37327                   IX3    X2-X7                                                   MAP      2168
          1711  0333001713 +                      MI     X3,RNI30    IF TIME TO BACK UP TO 1ST SECTION           MAP      2169
                          5160001726 +            SA6    RNI.SC                                                  MAP      2170
          1712  5170001727 +                      SA7    RNI.PI                                                  MAP      2171
                          0400001673 +            EQ     EXIT.                                                   MAP      2172
                                                                                                                 MAP      2173
          1713  5110001773 +             RNI30    SA1    SRNI.FED                                                MAP      2174
                          37121                   IX1    X2-X1                                                   MAP      2175
                               37771              IX7    X7-X1                                                   FC5A185   493
          1714  77601                             =X6    -1                                                      MAP      2179
                     5160001726 +                 SA6    RNI.SC      UPDATE SECTION COUNTER                      MAP      2180
          1715  5170001727 +                      SA7    RNI.PI      UPDATE PREVIOUS INDEX                       MAP      2181
                          0400001673 +            EQ     EXIT.       RETURN                                      MAP      2182
                                                                                                                 MAP      2183
          1716                     6     RNI.SL   BSS    6           STORAGE FOR SECTION LENGTHS                 MAP      2184
          1724                     1     RNI.CC   BSS    1           CALL COUNTER                                MAP      2185
          1725                     1     RNI.CL   BSS    1           CALL LIMIT                                  MAP      2186
          1726                     1     RNI.SC   BSS    1           SECTION COUNTER                             MAP      2187
          1727                     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
          1730  0400401730 +             SRC      SUBR               ENTRY/EXIT...                               MAP      2204
          1731  5150000000 X                      SA5    WO.LOR                                                  MAP      2205
                          0325001730 +            PL     X5,EXIT.    IF REFERENCES NOT SELECTED                  MAP      2206
          1732  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
                     0306001730 +                 ZR     X6,EXIT.    IF NO REFS                                  MAP      2210
                                                                                                                 MAP      2211
          1734  53564                    SRC10    SA5    B4+X6                                                   MAP      2212
                     43052                        XTRCT  XR.TAG,X5,X6      ISOLATE LINK TO NEXT REF              MAP      2213
          1735  20552                             LX5    XR.TAGP-XR.USEP                                         MAP      2214
                     43066                        MX0    -XR.USEL                                                MAP      2215
                          15750                   BX7    -X0*X5      ISOLATE USAGE LETTER                        MAP      2216
          1736  7207777773                        SX0    X7-CR.DEF                                               FC50913     9
                          0300001740 +            ZR     X0,SRC20    IF FOUND *D* USAGE LETTER                   FC50913    10
          1737  7277777755                        SX7    X7-CR.RET                                               FC50913    11
                          0317001741 +            NZ     X7,SRC30    IF NOT FOUND *R* USAGE LETTER               FC50913    12
                                                                                                                 FC50913    13
                                         SRC20    LX5    XR.USEP                                                 FC50913    14
          1740  43701                             LDBIT  X7,XR.MEDFP                                             FC50913    15
                          12757                   BX7    X5+X7                                                   FC50913    16
                               54750              SA7    A5                                                      FC50913    17
                                                                                                                 FC50913    18
          1741  0316001734 +             SRC30    NZ     X6,SRC10    IF MORE REFS                                FC50913    19
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    49
        TASK PERFORMERS                                               SRC 
  
                          0400001730 +            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
          1742  0400401742 +             SRNI     SUBR               ENTRY/EXIT...                               MAP      2236
          1743  77601                             =X6    -1                                                      MAP      2237
                     5160001772 +                 SA6    SRNI.BDF    SET BEGINING OF DIVISION FLAG               MAP      2238
          1744  5120001774 +                      SA2    SRNI.LED    LAST ELEMENT IN THIS DIVISION               MAP      2239
                          5130000000 X            SA3    T=SCR                                                   MAP      2240
          1745  73621                             =X6    X2+1                                                    MAP      2241
                     5160001773 +                 SA6    SRNI.FED    RESET FIRST ELEMENT OF DIVISION             MAP      2242
                               37736              IX7    X3-X6                                                   MAP      2243
          1746  67301                             =B3    -1                                                      MAP      2244
                     0337001742 +                 MI     X7,EXIT.    IF TABLE EMPTY                              MAP      2245
          1747  5140000000 X                      SA4    LCNT                                                    MAP      2246
                          5150000000 X            SA5    CO.PS                                                   FC5A107    21
          1750  37254                             IX2    X5-X4                                                   MAP      2248
                     6232777775                   SB3    X2-2                                                    FC50488     7
                               77432              SX4    B3-B2       X4 = NUMBER OF USABLE LINES                 MAP      2250
          1751  7272777765                        SX7    X2-10                                                   MAP      2251
                          0327001753 +            PL     X7,SRNI10   IF *OTH* WONT PAGE EJECT                    MAP      2252
          1752  63350                             SB3    X5                                                      MAP      2253
                     77432                        SX4    B3-B2                                                   MAP      2254
                                                                                                                 MAP      2256
          1753  5150000563 +             SRNI10   SA5    MAP.NO                                                  MAP      2257
                          20573                   LX5    -1                                                      MAP      2258
                               10133              BX1    X3          X1 = DEFAULT NUMBER OF ENTRIES ON PAGE      MAP      2259
          1754  5120000675 +                      SA2    MOCTC                                                   MAP      2260
                          0335001757 +            MI     X5,SRNI20   IF REFERENCES SELECTED                      MAP      2261
          1755  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
          1756  0327001757 +                      PL     X7,SRNI20   IF ALL ENTRIES WILL FIT ON PAGE             MAP      2266
                          10155                   BX1    X5                                                      MAP      2267
                                                                                                                 MAP      2268
          1757  36761                    SRNI20   IX7    X6+X1                                                   MAP      2269
                     7277777776                   =X7    X7-1                                                    MAP      2270
          1760  5170001774 +                      SA7    SRNI.LED    RESET LAST                                  MAP      2271
                          5160001727 +            SA6    RNI.PI      INITIALIZE INDEX                            MAP      2272
          1761  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/05. 20.00.36.      PAGE    50
        TASK PERFORMERS                                               SRNI
  
                               66210              =B2    1           EXTRA LENGTH                                MAP      2275
          1762  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
          1765  67331                    SRNI30   =B3    B3-1                                                    MAP      2283
                     0630001767 +                 PL     B3,SRNI40   IF NEED TO ADD EXTRA LENGTH                 MAP      2284
                               66200              =B2    0                                                       MAP      2285
          1766  6130000012                        SB3    10          PREVENTS EXECUTION OF THIS SEQUENCE         MAP      2286
                                                                                                                 MAP      2287
          1767  73672                    SRNI40   SX6    X7+B2       COMPUTE LENGTH OF A SECTION                 MAP      2288
                     5166001716 +                 SA6    RNI.SL+B6                                               MAP      2289
                               66661              =B6    B6+1                                                    MAP      2290
          1770  0656001765 +                      LE     B6,B5,SRNI30      IF NOT DONE                           MAP      2291
                          10611                   BX6    X1                                                      MAP      2292
          1771  5160001725 +                      SA6    RNI.CL      CALL LIMIT                                  MAP      2293
                          0400001742 +            EQ     EXIT.                                                   MAP      2294
  
  
  
  
          1772                     1     SRNI.BDF BSS    1           FLAG                                        MAP      2296
          1773                     1     SRNI.FED BSS    1           FIRST ELEMENT OF TABLE DIVISION             MAP      2297
          1774                     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
          1775  0400401775 +             STS      SUBR               ENTRY/EXIT.                                 MAP      2320
          1776  76600                             SHRINK T=SCR,0                                                 MAP      2321
          1777  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/05. 20.00.36.      PAGE    51
        TASK PERFORMERS                                               STS 
  
                                        **                                                                       MAP      2326
          2000  66210                             =B2    WB.W                                                    MAP      2327
                     63320                        SB3    X2                                                      MAP      2328
                                                                                                                 MAP      2329
          2001  6122000003               STS10    SB2    B2+Z=SYM                                                MAP      2330
                          6133777774              SB3    B3-Z=SYM                                                MAP      2331
          2002  0430001775 +                      ZR     B3,EXIT.    IF TABLE EXHAUSTED                          MAP      2332
                                                  IFEQ   TEST,ON,1                                               MAP      2333
                          0730402002 +            MI     B3,"BLOWUP" IF TABLE LENGTH NOT MULTIPLE OF Z=SYM       MAP      2334
          2003  53312                             SA3    X1+B2                                                   MAP      2335
                     7174777777                   SX7    B4-TVARP                                                MAP      2336
          2004  0317002007 +                      NZ     X7,STS20    IF NOT VARIABLE MAP                         MAP      2337
                          7170000150              CLAS=  X7,WB,(VAR,NVAR,LAB)                                    MAP      2338
          2005  11773                             BX7    X7*X3                                                   MAP      2339
                     0307002033 +                 ZR     X7,STS30    IF STRAY NAME, LET IT THROUGH               MAP      2340
          2006  0400002013 +                      EQ     STS25                                                   MAP      2341
                                                                                                                 MAP      2342
          2007  7174777771               STS20    SX7    B4-TDOLP                                                MAP      2343
                          0307002011 +            ZR     X7,STS22    IF DO-LOOP MAP                              MAP      2344
          2010  7174777767                        SX7    B4-TIOP                                                 MAP      2345
                          0317002013 +            NZ     X7,STS25    IF NOT I/O MAP                              MAP      2346
                                                                                                                 MAP      2347
          2011  12753                    STS22    BX7    X5+X3                                                   MAP      2348
                     0317002001 +                 NZ     X7,STS10    IF ALL REQUESTED BITS ARE ZERO              MAP      2349
          2012  0400002036 +                      EQ     STS35                                                   FC50514    18
                                                                                                                 MAP      2351
          2013  11753                    STS25    BX7    X5*X3                                                   MAP      2352
                     0307002001 +                 ZR     X7,STS10    IF SELECT CRITERIA NOT SATISFIED            MAP      2353
                               11743              BX7    X4*X3                                                   MAP      2354
          2014  0317002001 +                      NZ     X7,STS10    IF REJECT SUBSET CRITERIA SATISFIED         MAP      2355
                          7174777770              SX7    B4-TCOMP                                                MAP      2356
          2015  0317002033 +                      NZ     X7,STS30    IF NOT COMMON-EQUIVALENCE MAP               MAP      2357
                          5023000001              SA2    A3-WB.W+WC.W                                            MAP      2358
          2016  5130002045 +                      SA3    STS.BI                                                  MAP      2359
                          43062                   XTRCT  WC.RB,X2,X7 ISOLATE BLOCK INDEX                         MAP      2360
                     37737                        IX7    X3-X7                                                   MAP      2361
                          0317002001 +            NZ     X7,STS10    IF BLOCK INDEXES DONT MATCH                 MAP      2362
          2020  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
          2021  43071                             XTRCT  WB.MODE,X3,X3                                           MAP      2367
                          7233777771              SX3    X3-M.CHAR                                               MAP      2368
          2022  20622                             LX6    MT.RAP                                                  FC5A185   495
                     0313002042 +                 NZ     X3,STS40    IF NOT TYPE CHAR                            FC5A185   496
                               20652              LX6    -MT.RAP                                                 FC5A185   497
                                                  LX2    WC.RAP                                                  FC5A185   498
          2023  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
          2025  54330                             SA3    A3          RESTORE *WB*                                FC5A185   500
                     20362                        HX3    WB.EQV                                                  FC5A185   501
                          0323002042 +            PL     X3,STS40    IF NOT EQUIVALENCED                         FC5A185   502
          2026  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/05. 20.00.36.      PAGE    52
        TASK PERFORMERS                                               STS 
  
          2027  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
          2030  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
          2032  0400002042 +                      EQ     STS40                                                   FC5A185   515
                                                                                                                 MAP      2376
          2033  5120000563 +             STS30    SA2    MAP.NO                                                  FC50514    19
                          55131                   =A1    A3-WB.W+WA.W                                            FC50514    20
                               20273              LX2    -1                                                      FC50514    21
          2034  0322002036 +                      PL     X2,STS35    IF LO=-R                                    FC50514    22
                          73110                   SX1    X1          EXTRACT REFERENCE LINK                      FC50514    23
          2035  0301002044 +                      ZR     X1,STS50    IF NO REFERENCES COLLECTED FOR SYMBOL       FC50514    24
                                                                                                                 FC50514    25
          2036  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
          2037  20622                             LX6    MT.SYMP                                                 MAP      2381
                     7174777767                   SX7    B4-TIOP                                                 MAP      2382
          2040  0317002042 +                      NZ     X7,STS40    IF NOT I/O MAP                              MAP      2383
                          0326002001 +            PL     X6,STS10    IF BIT 59 NOT SET                           MAP      2384
          2041  43701                             MX7    1                                                       MAP      2385
                     13667                        BX6    X6-X7       TURN OFF BIT 59                             MAP      2386
                                                                                                                 MAP      2387
          2042  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
          2044  5110000000 X             STS50    SA1    T.SYM                                                   FC50514    28
                          0400002001 +            EQ     STS10                                                   MAP      2393
                                                                                                                 MAP      2394
          2045                     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
          2046  0400402046 +             TAB      SUBR               ENTRY/EXIT...                               MAP      2405
          2047  0100001224 +                      RJ     GBL         GET BUFFER LENGTH                           MAP      2407
          2050  37412                             IX4    X1-X2                                                   MAP      2408
                     6264777776                   =B6    X4-1        NUMBER OF BLANKS TO OUTPUT                  MAP      2409
                                                  IFEQ   TEST,ON,1                                               MAP      2410
          2051  0760402051 +                      MI     B6,"BLOWUP" IF BAD X1                                   MAP      2411
                          0460002046 +            ZR     B6,EXIT.    IF POSITIONED CORRECTLY                     FC50297    27
          2052  0100001033 +                      RJ     CBS         MAKE SURE ENOUGH BUFFER SPACE               FC50297    28
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    53
        TASK PERFORMERS                                               TAB 
  
          2053  0730002046 +                      MI     B3,EXIT.    IF NOT ENOUGH BUFFER SPACE, NO TAB          FC50297    29
                          5110000464 +            SA1    MAP.XS                                                  MAP      2412
          2054  0100001606 +                      RJ     PCB         TAB TO REQUESTED COLUMN                     MAP      2413
          2055  0400002046 +                      EQ     EXIT.                                                   MAP      2414
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          2056  01040422052323555555     ADR      DIS    MAPPML,ADDRESS                                          MAP      2432
                                                                                                                 MAP      2433
          2062  5120000000 X                      SA2    T.SYM                                                   MAP      2434
                          43052                   XTRCT  MT.WAI,X7,X7      ISOLATE T.SYM WORD A INDEX            MAP      2435
          2063  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
          2064  20153                             SBIT   X1,WB.FPP                                               FC5A391     9
                     0321002074 +                 PL     X1,ADR10    IF NOT DUMMY ARGUMENT                       FC5A391    10
                               20121              LX1    WB.FPP+1    RESTORE X1 TO NOMINAL POSITION              MAP      2442
          2065  43063                             XTRCT  WB.FPNO,X1,X1     ISOLATE FPNO                          MAP      2443
          2066  0100000000 X                      CALL   CDD         CONVERT TO DPC                              MAP      2444
          2067  10166                             BX1    X6                                                      MAP      2445
                     67551                        =B5    B5-1                                                    MAP      2446
                          67601                   =B6    -1          INDICATE UNKNOWN ITEM WIDTH                 MAP      2447
          2070  7100000003                        SX0    3           BOTH INPUT AND OUTPUT RIGHT JUSTIFY         MAP      2448
                          0100001275 +            RJ     JIF                                                     MAP      2449
          2071  66610                             =B6    1                                                       MAP      2450
                     5110000464 +                 SA1    MAP.XS                                                  MAP      2451
          2072  0100001606 +                      RJ     PCB                                                     MAP      2452
          2073  0400000623 +                      EQ     MOC.RB                                                  MAP      2453
                                                                                                                 MAP      2454
          2074  20156                    ADR10    SBIT   X1,WB.MATP/WB.FPP                                       FC5A391    11
                     0331002104 +                 MI     X1,ADR20    IF MATERIALIZED                             FC5A391    12
                               20125              SBIT   X1,WB.EQVP/WB.MATP                                      FC5A391    13
          2075  0321002101 +                      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
          2077  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
          2100  0334002104 +                      MI     X4,ADR20    IF BASE MEMBER MATERIALIZED                 FC5A391    16
                                                                                                                 MAP      2467
          2101  5110003254 +             ADR15    SA1    =5HNONE                                                 MAP      2468
                          6160000005              SB6    5                                                       MAP      2469
          2102  76010                             =X0    1                                                       MAP      2470
                     0100001275 +                 RJ     JIF                                                     MAP      2471
          2103  0400000623 +                      EQ     MOC.RB                                                  MAP      2472
                                                                                                                 MAP      2473
          2104  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/05. 20.00.36.      PAGE    55
        FIELD PROCESSORS                                              ADR 
  
          2105  5120000000 X                      SA2    WO.QC                                                   MAP      2476
                          0322002107 +            PL     X2,ADR30    IF NO FATAL ERRORS                          MAP      2477
          2106  43100                             MX1    0                                                       MAP      2478
                     43600                        MX6    0                                                       MAP      2479
                                                                                                                 MAP      2480
          2107  0100000000 X             ADR30    PIA                CONVERT TO OCTAL DPC                        FC5A114    35
          2110  20660                             LX6    8*CHAR                                                  MAP      2483
                     10166                        BX1    X6                                                      MAP      2484
                          67601                   =B6    -1                                                      MAP      2485
          2111  7100000003                        SX0    3                                                       MAP      2486
                          0100001275 +            RJ     JIF                                                     MAP      2487
          2112  0400000623 +                      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
          2113  01220723464646555555     ARG      DIS    MAPPML,ARGS---                                          MAP      2503
                                                                                                                 MAP      2504
          2117  5120000000 X                      SA2    T.SYM                                                   MAP      2505
                          43052                   XTRCT  MT.WAI,X7,X7      ISOLATE T.SYM OFFSET                  MAP      2506
          2120  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
          2121  54211                             =A2    A1-WB.W+WC.W   FETCH WORD C                             MAP      2511
                     20164                        SBIT   X1,WB.DEFP                                              FC50562     7
                          0321002132 +            PL     X1,ARG10    IF ARGUMENT COUNT NOT DETERMINED            FC50562     8
          2122  22302                             LX3    X2          ANOTHER COPY OF *WC*                        FC50562     9
                     43063                        XTRCT  WC.ARGC,X2,X1      ISOLATE ARG COUNT                    MAP      2513
          2123  43071                             XTRCT  WC.FUNT,X3,X3     FUNCTION TYPE                         FC50562    10
          2124  7233777775                        =X3    X3-MF.LIB                                               FC50562    11
                          0313002126 +            NZ     X3,ARG5     IF NOT INTRINSIC                            FC50562    12
          2125  7201777770                        SX0    X1-7                                                    FC50562    13
                          0300002140 +            ZR     X0,ARG20    IF VARIABLE ARGUMENT INTRINSIC              FC50562    14
                                                                                                                 FC50562    15
          2126  0100000000 X             ARG5     CALL   CDD         CONVERT ARGUMENT COUNT TO DISPLAY           FC50562    16
          2127  66650                             SB6    B5                                                      MAP      2515
                     10166                        BX1    X6                                                      MAP      2516
                          20144                   LX1    -4*CHAR                                                 MAP      2517
          2130  0100001606 +                      RJ     PCB                                                     MAP      2518
          2131  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2519
                                                                                                                 MAP      2520
          2132  43071                    ARG10    XTRCT  WC.FUNT,X2,X2     ISOLATE FUNCTION TYPE                 MAP      2521
          2133  7232777775                        =X3    X2-MF.LIB                                               MAP      2522
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    56
        FIELD PROCESSORS                                              ARG 
  
                          0303002140 +            ZR     X3,ARG20    IF INTRINSIC FUNCTION                       MAP      2523
          2134  7232777773                        =X3    X2-MF.INL                                               MAP      2524
                          0303002140 +            ZR     X3,ARG20    IF INTRINSIC FUNCTION                       MAP      2525
          2135  5110003255 +                      SA1    =7HUNKNOWN                                              MAP      2526
                          6160000007              SB6    7                                                       MAP      2527
          2136  43000                             MX0    0           INPUT AND OUTPUT LEFT JUSTIFY               MAP      2528
                     0100001275 +                 RJ     JIF                                                     MAP      2529
          2137  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2530
                                                                                                                 MAP      2531
          2140  5110003256 +             ARG20    SA1    =3HVAR                                                  MAP      2532
                          6160000003              SB6    3                                                       MAP      2533
          2141  43000                             MX0    0                                                       MAP      2534
                     0100001275 +                 RJ     JIF                                                     MAP      2535
          2142  0400000623 +                      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
          2143  02141703134646464646     BLK      DIS    MAPPML,BLOCK---------------                             MAP      2550
                                                                                                                 MAP      2551
          2147  5120000000 X                      SA2    T.SYM                                                   MAP      2552
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET            MAP      2553
          2150  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
          2151  20154                             SBIT   X1,WB.COMP                                              FC50326    39
                     0331002165 +                 MI     X1,BLK10    IF SYMBOL IS IN COMMON                      FC50326    40
                               20173              SBIT   X1,WB.FPP/WB.COMP                                       FC50326    41
          2152  0321002156 +                      PL     X1,BLK4     IF SYMBOL IS NOT FORMAL PARAMETER           FC50326    42
                          5110003257 +            SA1    =9HDUMMY-ARG                                            MAP      2560
          2153  43000                             MX0    0                                                       MAP      2561
                     6160000011                   SB6    9                                                       MAP      2562
          2154  0100001275 +                      RJ     JIF                                                     MAP      2563
          2155  0400000623 +                      EQ     MOC.RB      RETURN                                      MAP      2564
                                                                                                                 FC50326    43
          2156  20154                    BLK4     SBIT   X1,WB.SFAP/WB.FPP                                       FC50326    44
                     0321002162 +                 PL     X1,BLK5     IF SMYBOL IS NOT STF DUMMY ARGUMENT         FC50326    45
          2157  5110003260 +                      SA1    =8HSTF-DARG                                             FC50326    46
                          43000                   MX0    0                                                       FC50326    47
          2160  6160000010                        SB6    8                                                       FC50326    48
                          0100001275 +            RJ     JIF                                                     FC50326    49
          2161  0400000623 +                      EQ     MOC.RB      RETURN                                      FC50326    50
                                                                                                                 MAP      2565
          2162  5110000464 +             BLK5     SA1    MAP.XS     GET READY FOR PCB                            MAP      2566
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    57
        FIELD PROCESSORS                                              BLK 
  
                          66650                   SB6    B5                                                      MAP      2567
          2163  0100001606 +                      RJ     PCB                                                     MAP      2568
          2164  0400000623 +                      EQ     MOC.RB                                                  MAP      2569
                                                                                                                 MAP      2570
          2165  54111                    BLK10    =A1    A1-WB.W+WC.W   FETCH WORD C                             MAP      2571
                     43062                        XTRCT  WC.RB,X1,X1 ISOLATE BLOCK OFFSET                        MAP      2572
          2166  5150000000 X                      SA5    T.BLKS                                                  MAP      2573
                          63410                   SB4    X1                                                      MAP      2574
                               53154              SA1    B4+X5       FETCH WORD A OF T.BLKS                      MAP      2575
          2167  43022                             XTRCT  CA.BNAM,X1,X1     ISOLATE BLOCK NAME                    MAP      2576
                               20122              LX1    -CA.BNAML   LEFT JUSTIFY IT                             MAP      2577
          2170  5120000000 X                      SA2    BLNKCOM                                                 MAP      2578
                          63720                   SB7    X2                                                      MAP      2579
                               67774              SB7    B7-B4                                                   MAP      2580
          2171  0470002173 +                      ZR     B7,BLK20    IF BLANK COMMON                             MAP      2581
                          0100001021 +            RJ     BNS         BOUND NAME BY SLASHES                       MAP      2582
          2172  0400002174 +                      EQ     BLK30                                                   MAP      2583
                                                                                                                 MAP      2584
          2173  5110003237 +             BLK20    SA1    =10H//                                                  MAP      2585
                                                                                                                 MAP      2586
          2174  43000                    BLK30    MX0    0                                                       MAP      2587
                     67601                        =B6    -1                                                      MAP      2588
                          0100001275 +            RJ     JIF                                                     MAP      2589
                                                                                                                 MAP      2590
          2175  0400000623 +                      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
          2176  03140123234646464646     CLS      DIS    MAPPML,CLASS---------------                             MAP      2606
                                                                                                                 MAP      2607
          2202  20436                             LX4    30                                                      MAP      2608
                     63540                        SB5    X4                                                      MAP      2609
                          5120000000 X            SA2    T.SYM                                                   MAP      2610
          2203  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
          2204  20260                             SBIT   X2,WB.SUBP                                              FC5A360     8
                     0322002212 +                 PL     X2,CLS10    IF NOT A SUBROUTINE                         FC5A360     9
          2205  5110003261 +                      SA1    =10HSUBROUTINE                                          MAP      2615
                          20267                   SBIT   X2,WB.FPP/WB.SUBP                                       FC5A360    10
          2206  0322002207 +                      PL     X2,CLS5     IF NOT DUMMY ARGUMENT SUBROUTINE            FC5A360    11
                          5110003262 +            SA1    =10HDUMMY-SUBR                                          MAP      2617
                                                                                                                 MAP      2618
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    58
        FIELD PROCESSORS                                              CLS 
  
          2207  43000                    CLS5     MX0    0                                                       MAP      2619
                     6160000012                   SB6    10                                                      MAP      2620
          2210  0100001275 +                      RJ     JIF                                                     MAP      2621
          2211  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2622
                                                                                                                 MAP      2623
          2212  20273                    CLS10    SBIT   X2,WB.FUNP/WB.SUBP                                      FC5A360    12
                     0332002216 +                 MI     X2,CLS20    IF FUNCTION                                 FC5A360    13
          2213  5110003263 +                      SA1    =8HEXTERNAL                                             MAP      2625
                          43000                   MX0    0                                                       MAP      2626
          2214  6160000010                        SB6    8                                                       MAP      2627
                          0100001275 +            RJ     JIF                                                     MAP      2628
          2215  0400000623 +                      EQ     MOC.RB      RETURN                                      MAP      2629
                                                                                                                 MAP      2630
          2216  54121                    CLS20    =A1    A2-WB.W+WC.W   FETCH WORD C                             MAP      2631
                     43071                        XTRCT  WC.FUNT,X1,X1     ISOLATE FUNCTION TYPE                 MAP      2632
          2217  5211002223 +                      SA1    X1+CLSM     FETCH PROPER FUNCTION TYPE MESSAGE          MAP      2633
                          20270                   SBIT   X2,WB.FPP/WB.FUNP                                       FC5A360    14
          2220  0322002221 +                      PL     X2,CLS30    IF NOT DUMMY ARGUMENT FUNCTION              FC5A360    15
                          5110003264 +            SA1    =10HDUMMY-FUNC                                          MAP      2635
                                                                                                                 MAP      2636
          2221  43000                    CLS30    MX0    0                                                       MAP      2637
                     67601                        =B6    -1                                                      MAP      2638
                          0100001275 +            RJ     JIF                                                     MAP      2639
          2222  0400000623 +                      EQ     MOC.RB      RETURN                                      MAP      2640
  
  
  
  
          2223                           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
      L      3  47470522224747365555     MF.BEF   DIS    1,**ERR**3  ALWAYS CGS                                  MAP      2648
      L      4  47470522224747375555     MF.INL   DIS    1,**ERR**4  ALWAYS CGS                                  MAP      2649
                                         .T       ENDIF                                                          MAP      2650
          2230                                    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
          2230  11160405304646464646     DOIN     DIS    MAPPML,INDEX-----                                       MAP      2662
                                                                                                                 MAP      2663
          2234  5110000000 X                      SA1    T.SYM                                                   MAP      2664
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      2665
          2235  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/05. 20.00.36.      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
          2237  53232                             SA2    X3+B2                                                   MAP      2673
                     43022                        XTRCT  WA.SYM,X2,X1      ISOLATE NAME OF DO-INDEX              MAP      2674
          2240  20122                             LX1    WA.SYMP     LEFT JUSTIFY IT                             MAP      2675
                     0100000000 X                 CALL   SFN         SPACE FILL                                  MAP      2676
          2241  20436                             LX4    30                                                      MAP      2677
                     63540                        SB5    X4                                                      MAP      2678
                          10166                   BX1    X6                                                      MAP      2679
                               43000              MX0    0                                                       MAP      2680
          2242  67601                             =B6    -1                                                      MAP      2681
                     0100001275 +                 RJ     JIF                                                     MAP      2682
          2243  0400000623 +                      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
          2244  14010205145555555555     DOLAB    DIS    MAPPML,LABEL                                            MAP      2697
                                                                                                                 MAP      2698
          2250  20436                             LX4    30                                                      MAP      2699
                     63540                        SB5    X4                                                      MAP      2700
                          5110000000 X            SA1    T.SYM                                                   MAP      2701
          2251  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
          2252  43060                             XTRCT  WB.TL,X2,X2 ISOLATE SYMORD OF TERMINAL LABEL            MAP      2705
          2253  0312002256 +                      NZ     X2,DOLAB10  IF NOT AN I/O LOOP                          MAP      2706
                          5110003265 +            SA1    =3HI/O                                                  MAP      2707
          2254  66650                             SB6    B5                                                      MAP      2708
                     0100001606 +                 RJ     PCB                                                     MAP      2709
          2255  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2710
                                                                                                                 MAP      2711
          2256  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
          2257  43036                             XTRCT  WA.STL,X2,X1      ISOLATE THE LABEL                     MAP      2717
          2260  0100000000 X                      CALL   ZTB         CONVERT 00 CHARS TO BLANKS                  MAP      2718
          2261  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/05. 20.00.36.      PAGE    60
        FIELD PROCESSORS                                              DOLAB 
  
          2262  0100001275 +                      RJ     JIF                                                     MAP      2722
          2263  0400000623 +                      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
          2264  01220723464646555555     EPA      DIS    MAPPML,ARGS---                                          MAP      2734
                                                                                                                 MAP      2735
          2270  20436                             LX4    30                                                      MAP      2736
                     63540                        SB5    X4          PRESERVE FIELD WIDTH                        MAP      2737
                          5120000000 X            SA2    T.SYM                                                   MAP      2738
          2271  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
          2272  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
                          0302002276 +            ZR     X2,EPA10    IF NO ARGS                                  FC5A108     9
          2274  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
          2276  0100000000 X             EPA10    CALL   CDD                                                     FC5A108    10
          2277  66650                             SB6    B5                                                      MAP      2748
                     10166                        BX1    X6                                                      MAP      2749
                          20144                   LX1    -4*CHAR                                                 MAP      2750
          2300  0100001606 +                      RJ     PCB                                                     MAP      2751
          2301  0400000623 +                      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
          2302  0400402302 +             FIRST    SUBR               ENTRY/EXIT...                               FC5A185   529
          2303  5110001461 +                      SA1    OCEI.ADR                                                FC5A185   530
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          2305  5160002422 +                      SA6    LASTA       SAVE FOR USE BY *LAST*                      FC5A185   535
                          10166                   BX1    X6                                                      FC5A185   536
                               66560              SB5    B6                                                      FC5A185   537
          2306  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FC5A185   538
          2307  43006                             MX0    CHAR                                                    FC5A185   539
                     20466                        LX4    -CHAR                                                   FC5A185   540
                          15440                   BX4    -X0*X4      ERASE UPPER BLANK                           FC5A185   541
          2310  5110003266 +                      SA1    =1L<                                                    FC5A185   542
                          12141                   BX1    X4+X1       PREFIX WITH <                               FC5A185   543
                               76010              =X0    1                                                       FC5A185   544
          2311  0100001060 +                      RJ     CCBB        DETERMINE LENGTH                            FC5A185   545
          2312  10611                             BX6    X1                                                      FC5A185   546
                     5160002314 +                 SA6    FIRSTA                                                  FC5A185   547
                               76660              SX6    B6                                                      FC5A185   548
          2313  54661                             =A6    A6+1                                                    FC5A185   549
                     66665                        SB6    B6+B5       UPDATE CHARACTER COUNT                      FC5A185   550
                          0400002302 +            EQ     EXIT.                                                   FC5A185   551
                                                                                                                 FC5A185   552
          2314                     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
          2316  46062217155555555555     FROM     DIS    MAPPML,-FROM                                            MAP      2819
                                                                                                                 MAP      2820
          2322  5110000000 X                      SA1    T.SYM                                                   MAP      2821
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      2822
          2323  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
          2325  0100000000 X                      CALL   CDD         CONVERT TO DPC                              MAP      2828
          2326  10166                             BX1    X6                                                      MAP      2829
                     7100000003                   SX0    3                                                       MAP      2830
                               67601              =B6    -1                                                      MAP      2831
          2327  0100001275 +                      RJ     JIF                                                     MAP      2832
          2330  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2833
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          2331  01040422052323464646     LADR     DIS    MAPPML,ADDRESS---                                       MAP      2848
                                                                                                                 MAP      2849
          2335  5110000000 X                      SA1    T.SYM                                                   MAP      2850
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      2851
          2336  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
          2337  5140003267 +                      CLAS=  X4,WB,(SDEF,NDEF,FDEF)                                  MAP      2856
                          11414                   BX4    X1*X4                                                   MAP      2857
          2340  0314002344 +                      NZ     X4,LADR10   IF DEFINED                                  MAP      2858
                          5110003270 +            SA1    =7H*UNDEF*                                              MAP      2859
          2341  76010                             =X0    1                                                       MAP      2860
                     6160000007                   SB6    7                                                       MAP      2861
          2342  0100001275 +                      RJ     JIF                                                     MAP      2862
          2343  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2863
                                                                                                                 MAP      2864
          2344  7140020020               LADR10   CLAS=  X4,WB,(CGS,DOGL)                                        FC50628     5
                          11241                   BX2    X4*X1                                                   FC50628     6
                               13424              BX4    X2-X4                                                   FC50628     7
          2345  0304002357 +                      ZR     X4,LADR30   IF DO-TOP LABEL                             FC50628     8
                          20134                   SBIT   X1,WB.1REFP                                             FC50628     9
          2346  0321002352 +                      PL     X1,LADR20   IF REFERENCED                               FC50628    10
                          5110003271 +            SA1    =9H*NO REFS*                                            MAP      2866
          2347  76010                             =X0    1                                                       MAP      2867
                     6160000011                   SB6    9                                                       MAP      2868
          2350  0100001275 +                      RJ     JIF                                                     MAP      2869
          2351  0400000623 +                      EQ     MOC.RB      RETURN                                      MAP      2870
                                                                                                                 MAP      2871
          2352  20124                    LADR20   SBIT   X1,WB.ACTP/WB.1REFP                                     FC50628    11
                     0331002357 +                 MI     X1,LADR30   IF ACTIVE                                   FC50628    12
                               20104              SBIT   X1,WB.SDEFP/WB.ACTP                                     FC50628    13
          2353  0321002357 +                      PL     X1,LADR30   IF NOT EXECUTABLE LABEL                     FC50628    14
                          5110003272 +            SA1    =8HINACTIVE                                             MAP      2873
          2354  76010                             =X0    1                                                       MAP      2874
                     6160000010                   SB6    8                                                       MAP      2875
          2355  0100001275 +                      RJ     JIF                                                     MAP      2876
          2356  0400000623 +                      EQ     MOC.RB      RETURN                                      MAP      2877
                                                                                                                 MAP      2878
          2357  5011000001               LADR30   SA1    A1-WB.W+WC.W      FETCH WORD C                          MAP      2879
                          43044                   XTRCT  WC.RA,X1,X1 ISOLATE RELATIVE ADDRESS                    MAP      2880
          2360  5120000000 X                      SA2    WO.QC                                                   MAP      2881
                          0322002362 +            PL     X2,LADR40   IF NO FATAL ERRORS                          MAP      2882
          2361  43100                             MX1    0                                                       MAP      2883
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    63
        FIELD PROCESSORS                                              LADR
  
                                                                                                                 MAP      2884
          2362  0100000000 X             LADR40   PIA                CONVERT TO OCTAL DPC                        MAP      2885
          2363  20660                             LX6    8*CHAR                                                  MAP      2886
                     10166                        BX1    X6                                                      MAP      2887
                          6155777775              SB5    B5-2                                                    MAP      2888
          2364  7100000003                        =X0    3                                                       MAP      2889
                          67601                   =B6    -1                                                      MAP      2890
          2365  0100001275 +                      RJ     JIF                                                     MAP      2891
          2366  5110000464 +                      SA1    MAP.XS                                                  MAP      2892
                          6160000002              SB6    2                                                       MAP      2893
          2367  0100001606 +                      RJ     PCB                                                     MAP      2894
          2370  0400000623 +                      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
          2371  0400402371 +             LAST     SUBR               ENTRY/EXIT...                               FC5A185   567
          2372  5130000000 X                      SA3    T.SYM                                                   FC5A185   568
                          5110001461 +            SA1    OCEI.ADR                                                FC5A185   569
          2373  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
          2374  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
          2375  0323002401 +                      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
          2377  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
          2401  7170000046               LAST10   SX7    1R-                                                     FC5A185   586
                          5170002423 +            SA7    LASTA+1     STORE SEPARATOR FOR NON-CHAR ITEM           FC5A185   587
          2402  7226777773                        =X2    X6-M.DBL                                                FC5A185   588
                          76311                   =X3    2                                                       FC5A185   589
          2403  0302002410 +                      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/05. 20.00.36.      PAGE    64
        FIELD PROCESSORS                                              LAST
  
          2404  0302002410 +                      ZR     X2,LAST20   IF COMPLEX                                  FC5A185   592
                          7226777771              =X2    X6-M.CHAR                                               FC5A185   593
          2405  76310                             =X3    1                                                       FC5A185   594
                     0312002410 +                 NZ     X2,LAST20   IF NOT CHARACTER                            FC5A185   595
                               54331              =A3    A3-WB.W+WC.W                                            FC5A185   596
          2406  43052                             XTRCT  WC.CLEN,X3,X3     X3 = CHARACTER LENGTH                 FC5A185   597
                               76700              =X7    1R:                                                     FC5A185   598
          2407  5170002423 +                      SA7    LASTA+1     STORE SEPARATOR FOR CHAR ITEM               FC5A185   599
                                                                                                                 FC5A185   600
          2410  42513                    LAST20   IX5    X1*X3       X5 = TOTAL LENGTH OF ITEM                   FC5A185   601
                     5130002422 +                 SA3    LASTA                                                   FC5A185   602
                               36235              IX2    X3+X5                                                   FC5A185   603
          2411  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
          2412  37331                             IX3    X3-X1                                                   FC5A185   608
                     0303002420 +                 ZR     X3,LAST30   IF LAST .EQ. FIRST                          FC5A185   609
          2413  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FC5A185   610
          2414  43006                             MX0    CHAR                                                    FC5A185   611
                     20466                        LX4    -CHAR                                                   FC5A185   612
                          15440                   BX4    -X0*X4      ERASE UPPER BLANK                           FC5A185   613
          2415  5110002423 +                      SA1    LASTA+1     X1 = SEPARATOR                              FC5A185   614
                          20166                   LX1    -CHAR                                                   FC5A185   615
                               12141              BX1    X4+X1       PREFIX WITH - (OR :)                        FC5A185   616
          2416  76010                             =X0    1                                                       FC5A185   617
                     0100001060 +                 RJ     CCBB        DETERMINE LENGTH                            FC5A185   618
          2417  10611                             BX6    X1                                                      FC5A185   619
                                                                                                                 FC5A185   620
          2420  5160002422 +             LAST30   SA6    LASTA                                                   FC5A185   621
                          76660                   SX6    B6                                                      FC5A185   622
                               54661              =A6    A6+1                                                    FC5A185   623
          2421  66665                             SB6    B6+B5       UPDATE TOTAL CHARACTER COUNT                FC5A185   624
                     0400002371 +                 EQ     EXIT.                                                   FC5A185   625
                                                                                                                 FC5A185   626
          2422                     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
          2424  14010205145555555555     LBL      DIS    MAPPML,LABEL                                            MAP      2991
                                                                                                                 MAP      2992
          2430  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
          2432  10166                             BX1    X6                                                      MAP      2997
                     7100000003                   SX0    3                                                       MAP      2998
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    65
        FIELD PROCESSORS                                              LBL 
  
                               67601              =B6    -1                                                      MAP      2999
          2433  0100001275 +                      RJ     JIF                                                     MAP      3000
          2434  0400000623 +                      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
          2435  46464646040506555555     LDEF     DIS    MAPPML,----DEF                                          MAP      3014
                                                                                                                 MAP      3015
          2441  5110000000 X                      SA1    T.SYM                                                   MAP      3016
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3017
          2442  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
          2443  5140003267 +                      CLAS=  X4,WB,(SDEF,NDEF,FDEF)                                  MAP      3022
                          11414                   BX4    X1*X4                                                   MAP      3023
          2444  0314002450 +                      NZ     X4,LDEF10   IF DEFINED                                  MAP      3024
                          5110003270 +            SA1    =7H*UNDEF*                                              MAP      3025
          2445  76010                             =X0    1                                                       MAP      3026
                     6160000007                   SB6    7                                                       MAP      3027
          2446  0100001275 +                      RJ     JIF                                                     MAP      3028
          2447  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3029
                                                                                                                 MAP      3030
          2450  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
          2452  10166                             BX1    X6                                                      MAP      3034
                     7100000003                   SX0    3                                                       MAP      3035
                               67601              =B6    -1                                                      MAP      3036
          2453  0100001275 +                      RJ     JIF                                                     MAP      3037
          2454  0400000623 +                      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/05. 20.00.36.      PAGE    66
        FIELD PROCESSORS                                              NAM 
  
                                        *         CALLS  JIF,SFN.                                                MAP      3050
                                                                                                                 MAP      3051
          2455  16011505464646464646     NAM      DIS    MAPPML,NAME------                                       MAP      3052
                                                                                                                 MAP      3053
          2461  43022                             XTRCT  MT.SYM,X7,X1      ISOLATE NAME                          MAP      3054
                               20122              LX1    -MT.SYML    LEFT JUSTIFY IT                             MAP      3055
          2462  0100000000 X                      CALL   SFN         SPACE FILL                                  MAP      3056
          2463  10166                             BX1    X6                                                      MAP      3057
                     20436                        LX4    30                                                      MAP      3058
                          63540                   SB5    X4                                                      MAP      3059
                               43000              MX0    0                                                       MAP      3060
          2464  67601                             =B6    -1                                                      MAP      3061
                     0100001275 +                 RJ     JIF                                                     MAP      3062
          2465  0400000623 +                      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
          2466  0400402466 +             NAME     SUBR               ENTRY/EXIT...                               FC5A185   639
          2467  5110001461 +                      SA1    OCEI.ADR                                                FC5A185   640
                          5120000000 X            SA2    T.SYM                                                   FC5A185   641
          2470  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
          2471  11112                             BX1    X1*X2       EXTRACT DPC OF NAME                         FC50297    32
                     0100000000 X                 CALL   SFN         SPACE FILL                                  FC5A185   649
          2472  76010                             =X0    1                                                       FC5A185   650
                     10166                        BX1    X6                                                      FC5A185   651
                          0100001060 +            RJ     CCBB        DETERMINE LENGTH                            FC5A185   652
          2473  5160002475 +                      SA6    NAMEA                                                   FC5A185   655
                          76660                   SX6    B6                                                      FC5A185   656
                               54661              =A6    A6+1                                                    FC5A185   657
          2474  0400002466 +                      EQ     EXIT.                                                   FC5A185   658
                                                                                                                 FC5A185   659
          2475                     2     NAMEA    BSS    2                                                       FC5A185   660
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          2477  24101123552310172514     NOP      DIS    MAPPML,THIS SHOULD NEVER BE PRINTED                     MAP      3115
                                                                                                                 MAP      3116
          2503  0400000623 +                      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
          2504  20221720052224110523     PRP      DIS    MAPPML,PROPERTIES--------------------                   MAP      3141
                                                                                                                 MAP      3142
          2510  5110000000 X                      SA1    T.SYM                                                   MAP      3143
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3144
          2511  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
          2512  66700                             =B7    0           FLAG                                        MAP      3149
                     66500                        =B5    0           CHARACTER COUNTER                           MAP      3150
                          5245002550 +            SA4    PRPPTA+X5   X4 = PROPER TABLE ADDRESS                   MAP      3151
                                                  IFEQ   TEST,ON,1                                               MAP      3152
          2513  0304402513 +                      ZR     X4,"BLOWUP" IF BAD X5                                   MAP      3153
                          5244777775              SA4    X4-2        INITIALIZE A4                               MAP      3154
          2514  10511                             BX5    X1                                                      MAP      3155
                                                                                                                 MAP      3156
          2515  5044000002               PRP30    SA4    A4+2                                                    MAP      3157
                          0304002533 +            ZR     X4,PRP50    IF AT END OF TABLE                          MAP      3158
          2516  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/05. 20.00.36.      PAGE    68
        FIELD PROCESSORS                                              PRP 
  
          2517  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
          2520  13112                             BX1    X1-X2                                                   MAP      3167
                     0301002515 +                 ZR     X1,PRP30    IF SATISFIES SUPPRESS CRITERION             MAP      3168
                               20422              LX4    18                                                      MAP      3169
          2521  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
          2522  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
          2523  0301002515 +                      ZR     X1,PRP30    IF SATISFIES SUPPRESS CRITERION             MAP      3178
                          20422                   LX4    18                                                      MAP      3179
                               63240              SB2    X4          ADDRESS OF CODE TO EXECUTE                  MAP      3180
          2524  0222000000                        JP     B2                                                      MAP      3181
                                                                                                                 MAP      3182
          2525  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
          2526  66556                             SB5    B5+B6       ACCUMULATE SUM                              MAP      3187
                                                  IFEQ   TEST,ON,2                                               MAP      3188
                     67245                        SB2    B4-B5                                                   MAP      3189
                          0720402526 +            MI     B2,"BLOWUP" IF EXCEEDING FIELD WIDTH                    MAP      3190
          2527  5014000001                        SA1    A4+1                                                    MAP      3191
                          0470002531 +            ZR     B7,PRP45    IF NOTHING PREVIOUSLY OUTPUT                MAP      3192
          2530  7100000005                        SX0    5                                                       MAP      3193
                          13110                   BX1    X1-X0       CHANGE BLANK TO /                           MAP      3194
                               20166              LX1    -CHAR                                                   MAP      3195
                                                                                                                 MAP      3196
          2531  0100001606 +             PRP45    RJ     PCB                                                     MAP      3197
          2532  66710                             =B7    1           SET THE FLAG                                MAP      3198
                     0400002515 +                 EQ     PRP30       CONTINUE                                    MAP      3199
                                                                                                                 MAP      3200
          2533  67645                    PRP50    SB6    B4-B5       NUMBER OF UNUSED COLUMNS                    MAP      3201
                     5110000464 +                 SA1    MAP.XS                                                  MAP      3202
          2534  0100001606 +                      RJ     PCB                                                     MAP      3203
          2535  0400000623 +                      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
          2536  10155                    PRP60    BX1    X5                                                      MAP      3209
                     43072                        XTRCT  WB.LEVN,X1,X1      ISOLATE THE LEVEL NUMBER             MAP      3210
          2537  7211000033                        SX1    X1+33B      CONVERT TO DPC                              MAP      3211
                          54241                   =A2    A4+1                                                    MAP      3212
                               43006              MX0    CHAR                                                    MAP      3213
          2540  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/05. 20.00.36.      PAGE    69
        FIELD PROCESSORS                                              PRP 
  
                               12712              BX7    X1+X2       APPEND NEW LEVEL NUMBER                     MAP      3217
          2541  54720                             SA7    A2                                                      MAP      3218
                     0400002525 +                 EQ     PRP40                                                   MAP      3219
  
  
  
  
                                        **        THE FOLLOWING CODE IS EXECUTED ONLY IF THE                     MAP      3221
                                        *         LABEL MAP IS BEING PROCESSED.                                  MAP      3222
                                                                                                                 MAP      3223
          2542  43004                    PRP70    MX0    4                                                       MAP      3224
                     11104                        BX1    X0*X4       ISOLATE LENGTH                              MAP      3225
                          20104                   LX1    4                                                       MAP      3226
                               63610              SB6    X1                                                      MAP      3227
          2543  5014000001                        SA1    A4+1                                                    MAP      3228
                          66540                   SB5    B4                                                      MAP      3229
                               43000              MX0    0                                                       MAP      3230
          2544  0100001275 +                      RJ     JIF                                                     MAP      3231
          2545  0400000623 +                      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
          2546  7110000200               PRP80    CLAS=  X1,WB,(DEF)                                             MAP      3237
                          12515                   BX5    X1+X5       TURN ON THE *DEF* BIT                       MAP      3238
          2547  0400002525 +                      EQ     PRP40                                                   MAP      3239
  
  
  
  
                                        **        TABLE OF PRIORITY TABLE ADDRESSES.                             MAP      3241
                                                                                                                 MAP      3242
                                  -1     STO      SET    -1                                                      MAP      3243
          2550                           PRPPTA   BSS    0                                                       MAP      3244
      L      0                                    LOC    0                                                       MAP      3245
      L      0  00000000000000002561 +            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  00000000000000002611 +            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  00000000000000002600 +            DDTE   TDOLP,(VFD    60/PRPB)        DO-LOOPS                  MAP      3252
      L      7  00000000000000000000              DDTE   TCOMP,(VFD    60/0)                                     MAP      3253
      L     10  00000000000000002620 +            DDTE   TIOP,(VFD    60/PRPD)         I/O UNITS                 MAP      3254
      L   2561                                    LOC    *O                                                      MAP      3255
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          2561  0000400000200005266 +    PRPA     VFD    18/WB.SFAP,1/0,18/WB.SFAP,1/0,18/PRP50,4/0              FC50326    51
                                  00
          2562  55555555555555555555              DATA   10H                                                     FC50326    52
          2563  0000054000032005314 +             VFD    18/WB.VARP,1/1,18/WB.NVARP,1/1,18/PRP80,4/6             FC50326    53
                                  06
          2564  25162523050455555555              DATA   10HUNUSED                                               MAP      3261
                                                                                                                 MAP      3262
          2565  0000074000102005252 +             VFD    18/WB.DEFP,1/1,18/WB.FPP,1/1,18/PRP40,4/3               MAP      3263
                                  03
          2566  25160455555555555555              DATA   10HUND                                                  MAP      3264
                                                                                                                 MAP      3265
          2567  0000110000044005252 +             VFD    18/WB.EQVP,1/0,18/WB.EQVP,1/0,18/PRP40,4/3              MAP      3266
                                  03
          2570  05212655555555555555              DATA   10HEQV                                                  MAP      3267
                                                                                                                 MAP      3268
          2571  0000370000076005252 +             VFD    18/WB.1REFP,1/0,18/WB.COMP,1/1,18/PRP40,4/3             FC5A229     5
                                  03
          2572  47234755555555555555              DATA   10H*S*                                                  FC5A229     6
                                                                                                                 MAP      3271
          2573  0000330000154005274 +             VFD    18/WB.LEVP,1/0,18/WB.LEVP,1/0,18/PRP60,4/4              MAP      3272
                                  04
          2574  14052655555555555555              DATA   10HLEV                                                  MAP      3273
                                                                                                                 MAP      3274
          2575  0000350000164005252 +             VFD    18/WB.SAVEP,1/0,18/WB.SAVEP,1/0,18/PRP40,4/3            MAP      3275
                                  03
          2576  23012655555555555555              DATA   10HSAV                                                  MAP      3276
                                                                                                                 MAP      3277
          2577  00000000000000000000              DATA   0                                                       MAP      3278
  
  
  
  
          2600  0000160000070005252 +    PRPB     VFD    18/WB.DLERP,1/0,18/WB.DLERP,1/0,18/PRP40,4/4            MAP      3280
                                  04
          2601  30220506555555555555              DATA   10HXREF                                                 MAP      3281
                                                                                                                 MAP      3282
          2602  0000210000104005252 +             VFD    18/WB.DLENP,1/0,18/WB.DLENP,1/0,18/PRP40,4/5            MAP      3283
                                  05
          2603  05162422315555555555              DATA   10HENTRY                                                MAP      3284
                                                                                                                 MAP      3285
          2604  0000170000074005252 +             VFD    18/WB.DLNIP,1/0,18/WB.DLNIP,1/0,18/PRP40,4/5            MAP      3286
                                  05
          2605  17252405225555555555              DATA   10HOUTER                                                MAP      3287
                                                                                                                 MAP      3288
          2606  0000200000100005252 +             VFD    18/WB.DLEXP,1/0,18/WB.DLEXP,1/0,18/PRP40,4/4            MAP      3289
                                  04
          2607  05301124555555555555              DATA   10HEXIT                                                 MAP      3290
                                                                                                                 MAP      3291
          2610  00000000000000000000              DATA   0                                                       MAP      3292
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    71
        FIELD PROCESSORS                                              PRP 
  
          2611  0000240000120005304 +   PRPC      VFD    18/WB.FDEFP,1/0,18/WB.FDEFP,1/0,18/PRP70,4/6            MAP      3294
                                  06
          2612  06172215012455555555              DATA   10HFORMAT                                               MAP      3295
                                                                                                                 MAP      3296
          2613  0000270000134005304 +             VFD    18/WB.NDEFP,1/0,18/WB.NDEFP,1/0,18/PRP70,4/6            MAP      3297
                                  06
          2614  16171646053055555555              DATA   10HNON-EX                                               MAP      3298
                                                                                                                 MAP      3299
          2615  0000050000024005304 +             VFD    18/WB.DOTP,1/0,18/WB.DOTP,1/0,18/PRP70,4/7              MAP      3300
                                  07
          2616  04174624052215555555              DATA   10HDO-TERM                                              MAP      3301
                                                                                                                 MAP      3302
          2617  00000000000000000000              DATA   0                                                       MAP      3303
                                                                                                                 MAP      3304
          2620  0000650000324005252 +    PRPD     VFD    18/WB.AUXP,1/0,18/WB.AUXP,1/0,18/PRP40,4/3              MAP      3305
                                  03
          2621  01253055555555555555              DATA   10HAUX                                                  MAP      3306
                                                                                                                 MAP      3307
          2622  0000730000354005252 +             VFD    18/WB.FMTP,1/0,18/WB.FMTP,1/0,18/PRP40,4/3              MAP      3308
                                  03
          2623  06152455555555555555              DATA   10HFMT                                                  MAP      3309
                                                                                                                 MAP      3310
          2624  0000720000350005252 +             VFD    18/WB.BINP,1/0,18/WB.BINP,1/0,18/PRP40,4/3              MAP      3311
                                  03
          2625  02111655555555555555              DATA   10HBIN                                                  MAP      3312
                                                                                                                 MAP      3313
          2626  0000710000344005252 +             VFD    18/WB.DIRP,1/0,18/WB.DIRP,1/0,18/PRP40,4/3              MAP      3314
                                  03
          2627  04112255555555555555              DATA   10HDIR                                                  MAP      3315
                                                                                                                 MAP      3316
          2630  0000700000340005252 +             VFD    18/WB.SEQP,1/0,18/WB.SEQP,1/0,18/PRP40,4/3              MAP      3317
                                  03
          2631  23052155555555555555              DATA   10HSEQ                                                  MAP      3318
                                                                                                                 MAP      3319
          2632  0000670000334005252 +             VFD    18/WB.BUFP,1/0,18/WB.BUFP,1/0,18/PRP40,4/3              MAP      3320
                                  03
          2633  02250655555555555555              DATA   10HBUF                                                  MAP      3321
                                                                                                                 MAP      3322
          2634  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
          2635  22050605220516030523     REF      DIS    MAPPML,REFERENCES------                                 MAP      3337
                                                                                                                 MAP      3338
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    72
        FIELD PROCESSORS                                              REF 
  
          2641  7160002723 +                      PLUG   AT=REFP1,TO=REF15,,VOID=NO                              FC5A203     4
          2643  5110000000 X                      SA1    MOD                                                     MAP      3339
                          20160                   SBIT   X1,MO.FUNP                                              FC50464    27
          2644  0321002655 +                      PL     X1,REF3     IF NOT FUNCTION                             FC50464    28
                          73650                   =X6    X5-TVARP                                                MAP      3342
          2645  0316002650 +                      NZ     X6,REF1     IF NOT PROCESSING VARIABLE MAP              FC50464    29
                          5110002763 +            PLUG   AT=REFP2,FROM=REFPL,,,VOID=NO                           FC5A203     7
          2647  0400002653 +                      EQ     REF2                                                    FC50464    30
                                                                                                                 FC5A203     9
          2650  7265777773               REF1     =X6    X5-TENTP                                                FC50464    31
                          0316002655 +            NZ     X6,REF3     IF NOT PROCESSING ENTRY MAP                 FC50464    32
          2651  5110002764 +                      PLUG   AT=REFP2,FROM=REFMI,,,VOID=NO                           FC5A203    12
                                                                                                                 FC5A203    13
          2653  5110002762 +             REF2     PLUG   AT=REFP1,FROM=REFNOP,,,VOID=NO                          FC50464    33
                                                                                                                 FC50464    34
          2655  0100001224 +             REF3     RJ     GBL         GET BUFFER LENGTH                           FC50464    35
          2656  10622                             BX6    X2                                                      MAP      3355
                     5160002757 +                 SA6    REFICC      SAVE INITIAL CHARACTER COUNT                MAP      3356
          2657  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
          2660  7110000007                        SX1    MAPCPR                                                  MAP      3359
                          27303                   IX3    X3/X1       X3 = # OF REFERENCES PER LINE               MAP      3360
                     7213777775                   SX1    X3-MAPMRPL                                              MAP      3361
          2663  0321002705 +                      PL     X1,REF5     IF ROOM FOR 2 OR MORE REFERENCES PER LINE   MAP      3362
                          5170002756 +            SA7    REFSAV+2    PRESERVE T.SCR ENTRY                        MAP      3363
          2664  5110001624 +                      SA1    PCB.WO                                                  MAP      3364
                          7211000002              SX1    X1+2                                                    MAP      3365
          2665  10511                             WLINE  MAPBUFF-1,X1,0,0    FLUSH THE BUFFER                    MAP      3366
          2675  5110000464 +                      SA1    MAP.XS                                                  MAP      3367
                          6160000012              SB6    10                                                      MAP      3368
          2676  0100001606 +                      RJ     PCB                                                     MAP      3369
          2677  5130000000 X                      SA3    CO.PW                                                   MAP      3370
                          7233777765              SX3    X3-10                                                   MAP      3371
          2700  7110000007                        SX1    MAPCPR                                                  MAP      3372
                          27303                   IX3    X3/X1                                                   MAP      3373
                     7160000012                   SX6    10                                                      MAP      3374
          2703  5160002757 +                      SA6    REFICC                                                  MAP      3375
                          5110002756 +            SA1    REFSAV+2                                                MAP      3376
          2704  10711                             BX7    X1          RESTORE T.SCR ENTRY                         MAP      3377
                                                                                                                 MAP      3378
          2705  10633                    REF5     BX6    X3                                                      MAP      3379
                     5160002761 +                 SA6    REFRPL      SAVE IT                                     MAP      3380
          2706  5110000000 X                      SA1    T.SYM                                                   MAP      3381
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3382
          2707  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
          2710  0305000623 +                      ZR     X5,MOC.RB   IF NO REFERENCES                            MAP      3387
                          63530                   SB5    X3          COUNTER                                     MAP      3388
                                                                                                                 MAP      3389
          2711  5110000464 +             REF10    SA1    MAP.XS                                                  MAP      3390
                          6160000000              SB6    MAPCPR-MAPMCPR                                          MAP      3391
                                                  IFEQ   TEST,ON,1                                               MAP      3392
          2712  0760402712 +                      MI     B6,"BLOWUP" IF MAPCPR BAD                               MAP      3393
                          0100001606 +            RJ     PCB                                                     MAP      3394
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    73
        FIELD PROCESSORS                                              REF 
  
          2713  43046                             MX0    -XR.LINEL                                               MAP      3395
                     5110000000 X                 SA1    T.REF                                                   MAP      3396
                               63250              SB2    X5                                                      MAP      3397
          2714  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
          2715  0100000000 X                      CALL   CDD         CONVERT TO DPC                              MAP      3401
          2716  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
          2717  20322                             LX3    -XR.TAGP                                                MAP      3406
                     15532                        BX5    -X2*X3      ISOLATE LINK TO NEXT REFERENCE              MAP      3407
                                                                                                                 MAP      3408
          2720  0400002723 +             REFP1    EQ     REF15                                                   MAP      3409
                                        +         LX3    XR.TAGP-XR.MEDFP-1                                      MAP      3410
                                                                                                                 MAP      3411
          2721  0323002723 +             REFP2    PL     X3,REF15                                                MAP      3412
          2722  0305000623 +            +         ZR     X5,MOC.RB                                               MAP      3413
                          0400002711 +            EQ     REF10                                                   MAP      3414
                                                                                                                 MAP      3415
          2723  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
          2724  0302002727 +                      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
          2725  7120000050                        SX2    1R/                                                     MAP      3423
                          20206                   LX2    CHAR                                                    MAP      3424
                               12112              BX1    X1+X2       COMBINE / AND USAGE LETTER                  MAP      3425
          2726  12616                             BX6    X1+X6       APPEND TO LINE NUMBER                       MAP      3426
                                                                                                                 MAP      3427
          2727  6160000007               REF20    SB6    MAPMCPR                                                 MAP      3428
                          10166                   BX1    X6                                                      MAP      3429
                               20122              LX1    60-6*MAPMCPR                                            MAP      3430
          2730  0100001606 +                      RJ     PCB                                                     MAP      3431
          2731  0305000623 +                      ZR     X5,MOC.RB   IF LINK IS ZERO                             MAP      3432
                          67551                   =B5    B5-1                                                    MAP      3433
          2732  0550002711 +                      NZ     B5,REF10    IF LINE NOT FINISHED                        MAP      3434
                          5120001624 +            SA2    PCB.WO                                                  MAP      3435
          2733  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
          2746  5110002755 +                      RESR   (X5,B5),REFSAV                                          MAP      3439
          2750  5120002757 +                      SA2    REFICC      # OF BLANKS TO OUTPUT                       MAP      3440
                          63620                   SB6    X2                                                      MAP      3441
          2751  5110000464 +                      SA1    MAP.XS                                                  MAP      3442
                          0100001606 +            RJ     PCB                                                     MAP      3443
          2752  5110002761 +                      SA1    REFRPL                                                  MAP      3444
                          63510                   SB5    X1                                                      MAP      3445
          2753  0400002711 +                      EQ     REF10       CONTINUE                                    MAP      3446
                                                                                                                 MAP      3447
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    74
        FIELD PROCESSORS                                              REF 
  
          2754                     3     REFSAV   BSS    3           STORAGE FOR POINTERS                        MAP      3449
                                                                                                                 MAP      3450
          2757                     1     REFICC   BSS    1           INITIAL CHARACTER COUNT                     MAP      3451
          2760                     1     REFPF    BSS    1           PRINT FLAG CELL                             MAP      3452
          2761                     1     REFRPL   BSS    1           REFERENCES PER LINE                         MAP      3453
          2762  46000                    REFNOP   NO                                                             MAP      3454
          2763  0323002723 +             REFPL    PL     X3,REF15                                                MAP      3455
          2764  0333002723 +             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
          2765  46464623113205555555     SZE      DIS    MAPPML,---SIZE                                          MAP      3470
                                                                                                                 MAP      3471
          2771  5120000000 X                      SA2    T.SYM                                                   MAP      3472
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3473
          2772  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
          2773  63540                             SB5    X4                                                      MAP      3478
                     20261                        SBIT   X2,WB.ARYP                                              FC5A391    17
                          0332002777 +            MI     X2,SZE10    IF ARRAY                                    FC5A391    18
          2774  5110000464 +                      SA1    MAP.XS                                                  MAP      3480
                          66650                   SB6    B5                                                      MAP      3481
          2775  0100001606 +                      RJ     PCB                                                     MAP      3482
          2776  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3483
                                                                                                                 MAP      3484
          2777  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
          3001  5150003273 +                      CLAS=  X5,DH,(VD,AS)                                           MAP      3489
                          11251                   BX2    X5*X1                                                   MAP      3490
          3002  0302003006 +                      ZR     X2,SZE40    IF NOT VARIABLE LENGTH OR ASSUMED SIZE      MAP      3491
                          20436                   LX4    30                                                      MAP      3492
                               63640              SB6    X4                                                      MAP      3493
          3003  5110003274 +                      SA1    =7HADJ-ARY                                              MAP      3494
                          43000                   MX0    0                                                       MAP      3495
          3004  6160000007                        SB6    7                                                       MAP      3496
                          0100001275 +            RJ     JIF                                                     MAP      3497
          3005  0400000623 +                      EQ     MOC.RB                                                  MAP      3498
                                                                                                                 MAP      3499
          3006  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/05. 20.00.36.      PAGE    75
        FIELD PROCESSORS                                              SZE 
  
                          15110                   BX1    -X0*X1      ISOLATE PRODUCT OF SPANS                    MAP      3502
                               10544              BX5    X4                                                      MAP      3503
          3007  0100000000 X                      CALL   CDD                                                     MAP      3504
          3010  10166                             BX1    X6                                                      MAP      3505
                     7100000003                   SX0    3                                                       MAP      3506
                               67601              =B6    -1                                                      MAP      3507
          3011  0100001275 +                      RJ     JIF                                                     MAP      3508
          3012  0400000623 +                      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
          3013  46464624175555555555     TO       DIS    MAPPML,---TO                                            MAP      3520
                                                                                                                 MAP      3521
          3017  5110000000 X                      SA1    T.SYM                                                   MAP      3522
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3523
          3020  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
                          0303003024 +            ZR     X3,TO10     IF I/O LOOP                                 MAP      3528
          3022  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
          3023  53232                             SA2    X3+B2       X2 = *WC*                                   MAP      3533
          3024  43052                    TO10     XTRCT  WC.LINE,X2,X1     ISOLATE LINE NUMBER                   MAP      3534
                               20436              LX4    30                                                      MAP      3535
          3025  63540                             SB5    X4                                                      MAP      3536
                     0100000000 X                 CALL   CDD                                                     MAP      3537
          3026  10166                             BX1    X6                                                      MAP      3538
                     7100000003                   SX0    3                                                       MAP      3539
                               67601              =B6    -1                                                      MAP      3540
          3027  0100001275 +                      RJ     JIF                                                     MAP      3541
          3030  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3542
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          3031  24312005464646464646     TYP      DIS    MAPPML,TYPE----------------                             MAP      3557
                                                                                                                 MAP      3558
          3035  20436                             LX4    30                                                      MAP      3559
                     63540                        SB5    X4                                                      MAP      3560
                          5120000000 X            SA2    T.SYM                                                   MAP      3561
          3036  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
          3037  10211                             BX2    X1                                                      MAP      3565
                     43071                        XTRCT  WB.MODE,X2,X2     ISOLATE MODE BITS                     MAP      3566
          3040  7275777775                        SX7    X5-TPROP                                                MAP      3567
                          0317003051 +            NZ     X7,TYP110   IF NOT PROCEDURE MAP                        MAP      3568
          3041  20157                             SBIT   X1,WB.FUNP                                              FC5A360    16
                     0331003045 +                 MI     X1,TYP105   IF FUNCTION                                 FC5A360    17
          3042  5110000464 +                      SA1    MAP.XS                                                  MAP      3570
                          66650                   SB6    B5                                                      MAP      3571
          3043  0100001606 +                      RJ     PCB                                                     MAP      3572
          3044  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3573
                                                                                                                 MAP      3574
          3045  20163                    TYP105   SBIT   X1,WB.GENFP/WB.FUNP                                     FC5A360    18
                     0321003051 +                 PL     X1,TYP110   IF NOT GENERIC FUNCTION                     FC5A360    19
          3046  5110003275 +                      SA1    =7HGENERIC                                              MAP      3576
                          43000                   MX0    0                                                       MAP      3577
          3047  6160000007                        SB6    7                                                       MAP      3578
                          0100001275 +            RJ     JIF                                                     MAP      3579
          3050  0400000623 +                      EQ     MOC.RB      RETURN                                      MAP      3580
                                                                                                                 MAP      3581
          3051  7232777771               TYP110   =X3    X2-M.CHAR                                               MAP      3582
                          0313003060 +            NZ     X3,TYP130   IF NOT TYPE CHARACTER                       MAP      3583
          3052  54411                             =A4    A1-WB.W+WC.W   FETCH WORD C                             MAP      3584
                     10344                        BX3    X4                                                      MAP      3585
                          20336                   SBIT   X3,WC.CTYPP                                             FC5A360    20
          3053  0333003057 +                      MI     X3,TYP120   IF PASSED LENGTH CHARACTER                  FC5A360    21
                          43052                   MX0    -WC.CLENL                                               MAP      3587
                               10144              BX1    X4                                                      MAP      3588
          3054  20136                             LX1    -WC.CLENP                                               MAP      3589
                     15110                        BX1    -X0*X1      ISOLATE CHARACTER LENGTH                    MAP      3590
                          0100000000 X            CALL   CDD         CONVERT TO DPC                              MAP      3591
          3055  5110003276 +                      SA1    =5LCHAR*                                                MAP      3592
                          20436                   LX4    -5*CHAR                                                 MAP      3593
                               43036              MX0    -5*CHAR                                                 MAP      3594
          3056  15440                             BX4    -X0*X4       ERASE UPPER BLANKS                         MAP      3595
                     12114                        BX1    X1+X4       CONCATENATE THE LENGTH                      MAP      3596
                          0400003061 +            EQ     TYP150                                                  MAP      3597
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    77
        FIELD PROCESSORS                                              TYP 
  
                                                                                                                 MAP      3598
          3057  5110003277 +             TYP120   SA1    =8HCHAR*(*)                                             MAP      3599
                          0400003061 +            EQ     TYP150                                                  MAP      3600
                                                                                                                 MAP      3601
          3060  5212003063 +             TYP130   SA1    X2+TYPM     FETCH PROPER TYPE MESSAGE                   MAP      3602
                                                                                                                 MAP      3603
          3061  43000                    TYP150   MX0    0                                                       MAP      3604
                     67601                        =B6    -1                                                      MAP      3605
                          0100001275 +            RJ     JIF                                                     MAP      3606
          3062  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3607
  
  
  
  
          3063                           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
          3071                                    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
          3071  46464646464646464646     VAL      DIS    MAPPML,------------------VALUE                          MAP      3628
                                                                                                                 MAP      3629
          3075  20436                             LX4    30                                                      MAP      3630
                     73540                        SX5    X4                                                      MAP      3631
                          5110000000 X            SA1    T.SYM                                                   MAP      3632
          3076  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
          3077  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
          3100  63420                             SB4    X2          KEEP EXTRA COPY                             MAP      3639
                     43071                        XTRCT  WB.MODE,X1,X1     ISOLATE MODE BITS                     MAP      3640
          3101  7271777771                        SX7    X1-M.CHAR                                               MAP      3641
                          0317003125 +            NZ     X7,VAL20    IF NOT TYPE CHARACTER                       MAP      3642
          3102  43052                             XTRCT  WC.CLEN,X3,X3     ISOLATE CHARACTER LENGTH              MAP      3643
          3103  6273000002                        SB7    X3+2        ADD SPACE USED BY THE QUOTES                MAP      3644
                          63250                   SB2    X5                                                      MAP      3645
                               77727              SX7    B2-B7                                                   MAP      3646
          3104  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/05. 20.00.36.      PAGE    78
        FIELD PROCESSORS                                              VAL 
  
          3105  0327003114 +                      PL     X7,VAL10    IF IT FITS                                  MAP      3649
                          66610                   =B6    1                                                       MAP      3650
          3106  5110003300 +                      SA1    =1H'                                                    MAP      3651
                          0100001606 +            RJ     PCB                                                     MAP      3652
          3107  6265777773                        SB6    X5-4                                                    MAP      3653
                          56154                   SA1    B5+B4                                                   MAP      3654
          3110  0100001606 +                      RJ     PCB                                                     MAP      3655
          3111  6160000003                        SB6    3                                                       MAP      3656
                          5110003301 +            SA1    =3H...                                                  MAP      3657
          3112  0100001606 +                      RJ     PCB                                                     MAP      3658
          3113  0400000623 +                      EQ     MOC.RB                                                  MAP      3659
                                                                                                                 MAP      3660
          3114  63670                    VAL10    SB6    X7                                                      MAP      3661
                     5110000464 +                 SA1    MAP.XS                                                  MAP      3662
          3115  0100001606 +                      RJ     PCB                                                     MAP      3663
          3116  66610                             =B6    1                                                       MAP      3664
                     5110003300 +                 SA1    =1H'                                                    MAP      3665
          3117  0100001606 +                      RJ     PCB                                                     MAP      3666
          3120  6167777775                        SB6    B7-2                                                    MAP      3667
                          56154                   SA1    B5+B4                                                   MAP      3668
          3121  0100001606 +                      RJ     PCB                                                     MAP      3669
          3122  5110003300 +                      SA1    =1H'                                                    MAP      3670
                          66610                   =B6    1                                                       MAP      3671
          3123  0100001606 +                      RJ     PCB                                                     MAP      3672
          3124  0400000623 +                      EQ     MOC.RB                                                  MAP      3673
                                                                                                                 MAP      3674
          3125  7271777776               VAL20    SX7    X1-M.LOG                                                MAP      3675
                          0317003137 +            NZ     X7,VAL40    IF NOT TYPE LOGICAL                         MAP      3676
          3126  5110000000 X                      SA1    T.CON                                                   MAP      3677
                          53114                   SA1    X1+B4       FETCH LOGICAL CONSTANT                      MAP      3678
          3127  0321003133 +                      PL     X1,VAL30    IF VALUE FALSE                              MAP      3679
                          5110003302 +            SA1    =6H.TRUE.                                               MAP      3680
          3130  76010                             =X0    1                                                       MAP      3681
                     6160000006                   SB6    6                                                       MAP      3682
                               63550              SB5    X5                                                      MAP      3683
          3131  0100001275 +                      RJ     JIF                                                     MAP      3684
          3132  0400000623 +                      EQ     MOC.RB                                                  MAP      3685
                                                                                                                 MAP      3686
          3133  5110003303 +             VAL30    SA1    =7H.FALSE.                                              MAP      3687
                          76010                   =X0    1                                                       MAP      3688
          3134  6160000007                        SB6    7                                                       MAP      3689
                          63550                   SB5    X5                                                      MAP      3690
          3135  0100001275 +                      RJ     JIF                                                     MAP      3691
          3136  0400000623 +                      EQ     MOC.RB                                                  MAP      3692
                                                                                                                 MAP      3693
          3137  7271777775               VAL40    SX7    X1-M.INT                                                MAP      3694
                          0317003167 +            NZ     X7,VAL60    IF NOT INTEGER                              MAP      3695
          3140  5110000000 X                      SA1    T.CON                                                   MAP      3696
                          53114                   SA1    X1+B4       FETCH INTEGER CONSTANT                      MAP      3697
                               10311              BX3    X1          PRESERVE ORIGINAL NUMBER                    FC5A189     6
          3141  66700                             =B7    0                                                       MAP      3698
                     0321003143 +                 PL     X1,VAL45    IF NO NEED TO COMPLEMENT IT                 MAP      3699
                               66710              =B7    1                                                       MAP      3700
          3142  14111                             BX1    -X1                                                     MAP      3701
                                                                                                                 MAP      3702
          3143  5120003304 +             VAL45    SA2    =9999999999                                             FC5A189     7
                          37221                   IX2    X2-X1                                                   FC5A189     8
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    79
        FIELD PROCESSORS                                              VAL 
  
                               63550              SB5    X5          SAVE THE FIELD WIDTH                        FC5A189     9
          3144  0322003155 +                      PL     X2,VAL50    IF .LT. 9999999999                          FC5A189    10
                          10133                   BX1    X3          X1 = ORIGINAL NUMBER                        FC5A189    11
          3145  0100000000 X                      CALL   WOD                                                     MAP      3707
          3146  5160003200 +                      SA6    VALA                                                    MAP      3708
                          54761                   =A7    A6+1                                                    MAP      3709
                               66611              =B6    2                                                       MAP      3710
          3147  5110003305 +                      SA1    =2HO"                                                   MAP      3711
                          0100001606 +            RJ     PCB                                                     MAP      3712
          3150  6165777774                        =B6    B5-3                                                    MAP      3713
                          5110003200 +            SA1    VALA                                                    MAP      3714
          3151  0100001606 +                      RJ     PCB                                                     MAP      3715
          3152  66610                             =B6    1                                                       MAP      3716
                     5110003306 +                 SA1    =1H"                                                    MAP      3717
          3153  0100001606 +                      RJ     PCB                                                     MAP      3718
          3154  0400000623 +                      EQ     MOC.RB                                                  MAP      3719
                                                                                                                 MAP      3720
          3155  0100000000 X             VAL50    CALL   CDD                                                     MAP      3721
          3156  10166                             BX1    X6                                                      MAP      3722
                     66410                        =B4    1                                                       MAP      3723
                          0100001060 +            RJ     CCBB        DETERMINE THE LENGTH                        MAP      3724
          3157  76560                             SX5    B6                                                      MAP      3725
                     22215                        BC     X2,X5       CONVERT TO BIT COUNT                        MAP      3726
          3160  6242777703                        SB4    X2-10*CHAR                                              MAP      3727
                          23541                   AX5    B4,X1       LEFT JUSTIFY CONVERSION                     MAP      3728
                               66460              SB4    B6          PRESERVE ITS LENGTH                         MAP      3729
          3161  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
                          0760403161 +            MI     B6,"BLOWUP" IF BAD B5                                   MAP      3733
          3162  5110000464 +                      SA1    MAP.XS                                                  MAP      3734
                          0100001606 +            RJ     PCB                                                     MAP      3735
          3163  0470003165 +                      ZR     B7,VAL55    IF NO NEED TO PRINT                         MAP      3736
                          66610                   =B6    1                                                       MAP      3737
          3164  5110003307 +                      SA1    =1H-                                                    MAP      3738
                          0100001606 +            RJ     PCB                                                     MAP      3739
                                                                                                                 MAP      3740
          3165  66640                    VAL55    SB6    B4          RESTORE INTEGER LENGTH                      MAP      3741
                     10155                        BX1    X5                                                      MAP      3742
                          0100001606 +            RJ     PCB                                                     MAP      3743
          3166  0400000623 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3744
                                                                                                                 MAP      3745
          3167  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
          3170  0100000000 X                      CALL   WOD                                                     MAP      3749
          3171  5160003200 +                      SA6    VALA                                                    MAP      3750
                          54761                   =A7    A6+1                                                    MAP      3751
                               66611              =B6    2                                                       MAP      3752
          3172  5110003305 +                      SA1    =2HO"                                                   MAP      3753
                          0100001606 +            RJ     PCB                                                     MAP      3754
          3173  6164777774                        =B6    B4-3                                                    MAP      3755
                          5110003200 +            SA1    VALA                                                    MAP      3756
          3174  0100001606 +                      RJ     PCB                                                     MAP      3757
          3175  66610                             =B6    1                                                       MAP      3758
                     5110003306 +                 SA1    =1H"                                                    MAP      3759
          3176  0100001606 +                      RJ     PCB                                                     MAP      3760
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    80
        FIELD PROCESSORS                                              VAL 
  
          3177  0400000623 +                      EQ     MOC.RB                                                  MAP      3761
                                                                                                                 MAP      3762
                                                                                                                 MAP      3763
          3200                     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
          3202  46464646464646464646     XA       DIS    MAPPML,------------------------------                   MAP      3779
                                                                                                                 MAP      3780
          3206  5110000464 +                      SA1    MAP.XS                                                  MAP      3781
                          20436                   LX4    30                                                      MAP      3782
                               63640              SB6    X4                                                      MAP      3783
          3207  0100001606 +                      RJ     PCB                                                     MAP      3784
          3210  0400000623 +                      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
          3211  55554655555555555555     XB       DIS    MAPPML,  -                                              MAP      3799
                                                                                                                 MAP      3800
          3215  5110000464 +                      SA1    MAP.XS                                                  MAP      3801
                          20436                   LX4    30                                                      MAP      3802
                               63640              SB6    X4                                                      MAP      3803
          3216  0100001606 +                      RJ     PCB                                                     MAP      3804
          3217  0400000623 +                      EQ     MOC.RB                                                  MAP      3805
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      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
          3220  55555555555555555555     XC       DIS    MAPPML,                                                 MAP      3820
                                                                                                                 MAP      3821
          3224  5110000464 +                      SA1    MAP.XS                                                  MAP      3822
                          20436                   LX4    30                                                      MAP      3823
                               63640              SB6    X4                                                      MAP      3824
          3225  0100001606 +                      RJ     PCB                                                     MAP      3825
          3226  0400000623 +                      EQ     MOC.RB                                                  MAP      3826
  
  
  
  
                                                  LIST   D                                                       MAP      3828
                                                  ENTRY  FIN.MAP                                                 MAP      3829
  
                                        CONTENT OF LITERALS BLOCK.
  
          3227  00000000002000020430         P BDX
          3230  00000000000020014000          PA5 
          3231  00200000000000000100     P      A 
          3232  00000023530153265305       S$A$V$E
          3233  40404040404040404040    5555555555
          3234  50505050505050505050    //////////
          3235  55555555555555555550             /
          3236  00000777720002201427      G;< BPLW
          3237  50505555555555555555    //
          3240  14052605145554550000    LEVEL = 
          3241  00000000000000000056             ,
          3242  55231132055555555555     SIZE 
          3243  55545500000000000000     =
          3244  55031001222300000000     CHARS
          3245  55271722042300000000     WORDS
          3246  00000000000055031555           CM 
          3247  00000000000055050323           ECS
          3250  23012605555555555555    SAVE
          3251  73000000000000000000    > 
          3252  51000000000000000000    ( 
          3253  52000000000000000000    ) 
          3254  16171605555555555555    NONE
          3255  25161316172716555555    UNKNOWN 
          3256  26012255555555555555    VAR 
          3257  04251515314601220755    DUMMY-ARG 
          3260  23240646040122075555    STF-DARG
          3261  23250222172524111605    SUBROUTINE
          3262  04251515314623250222    DUMMY-SUBR
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    82
        FIELD PROCESSORS                                              LITERALS
  
          3263  05302405221601145555    EXTERNAL
          3264  04251515314606251603    DUMMY-FUNC
          3265  11501755555555555555    I/O 
          3266  72000000000000000000    < 
          3267  00000000000044000200          9 B 
          3270  47251604050647555555    *UNDEF* 
          3271  47161755220506234755    *NO REFS* 
          3272  11160103241126055555    INACTIVE
          3273  60000000000000000000    # 
          3274  01041246012231555555    ADJ-ARY 
          3275  07051605221103555555    GENERIC 
          3276  03100122470000000000    CHAR* 
          3277  03100122475147525555    CHAR*(*)
          3300  70555555555555555555    ' 
          3301  57575755555555555555    ... 
          3302  57242225055755555555    .TRUE.
          3303  57060114230557555555    .FALSE. 
          3304  00000000112402761777        ITB^O;
          3305  17645555555555555555    O"
          3306  64555555555555555555    " 
          3307  46555555555555555555    - 
  
          3326                           FIN.MAP  END                END OF (1,0) OVERLAY WHEN NO OLIST          MAP      3830
  
                             71200B CM  STORAGE USED            11130 STATEMENTS     2071 SYMBOLS      000012 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.606 SECONDS        2449 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADR          2056   PROGRAM*        8/24      8/37     11/10     11/18     11/41     11/47     28/56     54/13 L
        ADR10        2074   PROGRAM*       54/22     54/36 L
        ADR15        2101   PROGRAM*       54/39     54/50 L
        ADR20        2104   PROGRAM*       54/37     54/48     54/56 L
        ADR30        2107   PROGRAM*       55/02     55/06 L
        ADW             0   EXTERNAL*       1/41 X   33/26     52/32
        ALC             0   EXTERNAL*       1/41 X   16/49     31/06     45/48
        ARG          2113   PROGRAM*        9/50     10/03     55/30 L
        ARG10        2132   PROGRAM*       55/40     55/56 L
        ARG20        2140   PROGRAM*       55/47     56/01     56/03     56/10 L
        ARG5         2126   PROGRAM*       55/45     55/49 L
        BLK          2143   PROGRAM*        8/26      8/39     28/57     56/31 L
        BLK10        2165   PROGRAM*       56/40     57/05 L
        BLK20        2173   PROGRAM*       57/15     57/19 L
        BLK30        2174   PROGRAM*       57/17     57/21 L
        BLK4         2156   PROGRAM*       56/42     56/49 L
        BLK5         2162   PROGRAM*       56/50     56/57 L
        BLNKCOM         0   EXTERNAL*       1/50 X   38/29     57/12
        BNS          1021   PROGRAM*       25/18 L   38/36     57/16
        BNSAV        1032   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/05. 20.00.36.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        CBS          1033   PROGRAM*       19/55     26/02 L   40/31     41/50     41/56     42/20     52/57
        CBSSAV       1057   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         1060   PROGRAM*       26/49 L   35/03     39/14     61/15     64/27     66/46     79/21
        CCBB10       1064   PROGRAM*       26/54     27/02 L
        CCBB20       1065   PROGRAM*       27/06 L   27/13
        CDD             0   EXTERNAL*       2/02 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/02 X   45/44     45/45     45/51
        CLS          2176   PROGRAM*        9/52     10/05     57/43 L
        CLSM         2223   PROGRAM*       58/16     58/29 L
        CLS10        2212   PROGRAM*       57/52     58/06 L
        CLS20        2216   PROGRAM*       58/07     58/14 L
        CLS30        2221   PROGRAM*       58/18     58/21 L
        CLS5         2207   PROGRAM*       57/55     58/01 L
        CO.PS           0   EXTERNAL*       1/47 X   16/19     42/46     49/31
        CO.PW           0   EXTERNAL*       1/47 X   27/41     43/04     43/53     72/33
                                           26/03     29/52     43/34     72/19
        CO.SNAP         0   EXTERNAL*       1/47 X   46/35     47/05
        CP.BLF          0   EXTERNAL*       1/47 X   16/23
        CP#RM           0   FTX            45/50 F
        CR.DEF          4   FTX            48/47
        CR.RET         22   FTX            48/49
        DELF         1070   PROGRAM*       27/39 L   30/02     30/10     30/14
        DELFA        1112   PROGRAM*       27/40 S   28/27     28/34 L
        DELFB        1113   PROGRAM*       27/48     28/40 L
        DELFPT1      1124   PROGRAM*       28/42     28/55 L
        DELFPT2      1133   PROGRAM*       28/43     29/06 L
        DELFPT3      1135   PROGRAM*       28/48     29/09 L
        DELFPT4      1141   PROGRAM*       28/45     29/14 L
        DELF10       1076   PROGRAM*       27/54 L   28/12     28/25
        DELF20       1100   PROGRAM*       28/07 L   28/14     28/18
        DELF30       1104   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          1143   PROGRAM*       22/50     29/37 L
        DMF20        1145   PROGRAM*       29/41 L   29/50
        DMF30        1151   PROGRAM*       29/42     29/52 L
        DMF40        1157   PROGRAM*       30/01     30/07 L
        DMF45        1162   PROGRAM*       30/09     30/13 L   30/20
        DMF.RTN      1167   PROGRAM*       28/29     30/05     30/17     30/24 L
        DMT=            0   EXTERNAL*       1/44 X   46/38     47/08
        DOIN         2230   PROGRAM*       12/14     29/11     58/52 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        DOLA          260   PROGRAM*       11/57     12/01     12/02     12/03     12/07 L
        DOLAB        2244   PROGRAM*       12/08     59/33 L
        DOLAB10      2256   PROGRAM*       59/42     59/48 L
        EFE          1173   PROGRAM*       16/45     30/47 L
        EFE10        1211   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          2264   PROGRAM*       11/12     11/20     60/16 L
        EPA10        2276   PROGRAM*       60/27     60/31 L
        EPMTL          21                   7/20 D    7/26     14/24
        FAILSFT         0   EXTERNAL*       1/50 X   16/15
        FIN             0   PROGRAM*        2/04 L    2/04 E
        FIN.MAP      3326   PROGRAM*       81/26 E   81/27 L
        FIRST        2302   PROGRAM*       40/24     60/56 L
        FIRSTA       2314   PROGRAM*       40/36     61/17 S   61/23 L
        FROM         2316   PROGRAM*       12/15     61/37 L
        FUDGE           1   FTX            46/27
        F.REF           0   EXTERNAL*       1/47 X   45/44     45/45     45/51     45/51     45/56
        GBL          1224   PROGRAM*       26/04     32/09 L   52/51     72/16
        GBL10        1235   PROGRAM*       32/17     32/24 L
        GLE          1236   PROGRAM*       24/13     32/47 L
        GLE10        1240   PROGRAM*       32/52 L   33/37
        GLE20        1245   PROGRAM*       33/06 L
        GLE30        1247   PROGRAM*       33/15 L   33/29
        GLE40        1255   PROGRAM*       33/17     33/31 L
        GNB          1257   PROGRAM*       24/05     33/56 L
        GNB10        1260   PROGRAM*       34/01 L   34/15
        HDRBL           0   EXTERNAL*       1/50 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           702   PROGRAM*       13/12     13/14     13/16     13/18     21/27 L
                                           13/13     13/15     13/17     13/20
        IRAJP         710   PROGRAM*       21/38     21/44 L
        IRASAV        676   PROGRAM*       21/36 S   22/57     23/05 D
        IRA10         723   PROGRAM*       21/48     22/06 L
        IRA15         725   PROGRAM*       21/49     22/10 L
        IRA20         727   PROGRAM*       21/50     22/14 L
        IRA25         731   PROGRAM*       21/51     22/18 L
        IRA30         735   PROGRAM*       21/52     22/28 L
        IRA35         737   PROGRAM*       21/53     22/32 L
        IRA40         743   PROGRAM*       21/55     22/41 L
        IRA45         744   PROGRAM*       22/04     22/08     22/12     22/16     22/26     22/30     22/39     22/44 L
        IRA5          721   PROGRAM*       21/47     22/02 L
        IRA60         747   PROGRAM*       22/46     22/50 L
        IRA70         753   PROGRAM*       22/55     22/57 L
        IRB           755   PROGRAM*       13/19     23/23 L
        IRBA         1016   PROGRAM*       24/17     24/17     24/25 L
        IRB10         775   PROGRAM*       24/05 L   24/09
        IRB30        1001   PROGRAM*       24/06     24/13 L
        IRB5          767   PROGRAM*       23/37     23/47 L
        IRB7          771   PROGRAM*       23/39     23/52 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        JIF          1275   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        1300   PROGRAM*       35/02     35/05 L
        JIF20        1303   PROGRAM*       35/05     35/11 L
        JIF30        1312   PROGRAM*       35/16     35/29 L
        JIF40        1320   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         2331   PROGRAM*       10/32     10/42     12/10     29/09     62/14 L
        LADR10       2344   PROGRAM*       62/24     62/31 L
        LADR20       2352   PROGRAM*       62/36     62/43 L
        LADR30       2357   PROGRAM*       62/34     62/44     62/46     62/53 L
        LADR40       2362   PROGRAM*       62/56     63/02 L
        LAST         2371   PROGRAM*       40/25     63/33 L
        LASTA        2422   PROGRAM*       40/40     61/05 S   63/53 S   64/08 S   64/11     64/23     64/30 S   64/36 L
        LAST10       2401   PROGRAM*       63/44     63/52 L
        LAST20       2410   PROGRAM*       63/56     64/01     64/04     64/10 L
        LAST30       2420   PROGRAM*       64/18     64/30 L
        LBL          2424   PROGRAM*       10/22     10/30     10/40     64/50 L
        LCNT            0   EXTERNAL*       1/50 X   16/26 S   42/45     42/52 S   49/30
        LDEF         2435   PROGRAM*       10/24     10/35     10/46     65/19 L
        LDEF10       2450   PROGRAM*       65/29     65/36 L
        LINEBUF         0   EXTERNAL*       1/50 X
        LMTL           25                   7/19 D    7/26     14/23
        LOSTREF         0   EXTERNAL*       1/50 X   45/47
        MAP           536   PROGRAM*       16/14 L   16/14 E
        MAPBUFF       520   PROGRAM*       15/02 L   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   29/48
        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        564   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         544   PROGRAM*       16/24     16/28 L
        MAP.NO        563   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/05. 20.00.36.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        MAP.XXS       514   PROGRAM*       14/50 L
        MEC          1322   PROGRAM*       34/29     36/11 L
        MEC10        1326   PROGRAM*       36/21 L   37/57
        MEC20        1330   PROGRAM*       36/36 L   36/45
        MEC30        1333   PROGRAM*       36/39     36/47 L
        MEC40        1335   PROGRAM*       36/28     36/55 L
        MEC50        1341   PROGRAM*       37/11 L   37/17
        MEC60        1347   PROGRAM*       37/35 L   37/40
        MEC70        1352   PROGRAM*       37/38     37/42 L
        MEC80        1353   PROGRAM*       36/50     37/53 L
        MF.BEF          3   FTX            58/35 L
        MF.INL          4   FTX            56/02     58/36 L
        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           565   PROGRAM*       16/46     18/38 L
        MOCBUF        656   PROGRAM*       20/20 L   43/17     43/17     43/49     43/49     43/50
        MOCSAV        676   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         675   PROGRAM*       19/06     19/25     20/09     20/22 L   30/24 S   49/43
        MOC10         571   PROGRAM*       18/48 L   19/01     19/57
        MOC30         577   PROGRAM*       19/09 L   19/17     19/21
        MOC40         616   PROGRAM*       19/30 L   20/05     20/12
        MOC50         617   PROGRAM*       19/34 L   19/49
        MOC60         636   PROGRAM*       19/53     20/02 L
        MOC.RA        574   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        623   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/50 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/02 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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        NAM          2455   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
        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         2466   PROGRAM*       40/23     66/32 L
        NAMEA        2475   PROGRAM*       40/32     66/47 S   66/52 L
        NLMTL          16                   7/21 D    7/26     14/25
        NOP          2477   PROGRAM*       27/52     67/07 L
        OBI          1356   PROGRAM*       24/07     38/21 L
        OBI15        1366   PROGRAM*       38/33     38/38 L
        OBI17        1371   PROGRAM*       38/42     38/45 L
        OBI20        1403   PROGRAM*       39/04     39/11 L
        OBI30        1412   PROGRAM*       39/24     39/27 L
        OBI35        1414   PROGRAM*       39/30     39/33 L
        OBI40        1420   PROGRAM*       39/36     39/41 L
        OBI.BI       1434   PROGRAM*       24/01 S   34/02     34/30     38/25     39/49 L
        OCEI         1435   PROGRAM*       40/21 L   41/54     42/11
        OCEI10       1436   PROGRAM*       40/23 L   41/03
        OCEI.ADR     1461   PROGRAM*       40/48     41/05 L   41/30 S   42/15     60/57     63/35     66/33
        OCEI.NI      1462   PROGRAM*       40/47     41/06 L   41/46 S   42/08 S
        OCEI.TAB     1463   PROGRAM*       26/19 S   40/53     41/07 L   41/47     42/09
        OML          1464   PROGRAM*       24/08     24/21     41/27 L
        OMLLWA       1514   PROGRAM*       41/34 S   42/16     42/23 L
        OML10        1471   PROGRAM*       41/36 L   42/18
        OML20        1505   PROGRAM*       41/42     42/07 L
        OML30        1510   PROGRAM*       42/03     42/15 L
        OTH          1515   PROGRAM*       19/22     23/56     42/44 L
        OTH10        1524   PROGRAM*       42/50     43/02 L
        OTH20        1532   PROGRAM*       43/03     43/06     43/15 L
        OTH30        1553   PROGRAM*       43/33     43/36     43/45 L
        OTH40        1576   PROGRAM*       43/52     43/55     44/01 L
        OTH.LO       1600   PROGRAM*       16/43 S   43/29     44/06 L
        O.STITL         0   EXTERNAL*       1/50 X   16/54 S   42/57 S   44/03 S
        PASS            0   EXTERNAL*       1/51 X   16/18 S
        PASS=MAP        4   FTX            16/17
        PCB          1606   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        1601   PROGRAM*       44/28 L   44/52
        PCB15        1603   PROGRAM*       44/30     44/33 L
        PCB17        1612   PROGRAM*       44/45     44/48 L
        PCB20        1613   PROGRAM*       44/51 L   45/13     45/16
        PCB30        1621   PROGRAM*       44/57     45/10 L
        PCB.SC       1625   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       1624   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/51 X   55/06     63/02
        PMTL           17                   7/18 D    7/26     14/22
        PROA          107   PROGRAM*        9/29      9/39 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        PROB          114   PROGRAM*        9/30      9/32      9/34      9/45 L
        PROC          126   PROGRAM*        9/31      9/33      9/35      9/56 L
        PRP          2504   PROGRAM*        8/28      8/41     10/34     10/44     12/12     12/35     12/42     67/36 L
        PRPA         2561   PROGRAM*       69/36     70/04 L
        PRPB         2600   PROGRAM*       69/42     70/36 L
        PRPC         2611   PROGRAM*       69/39     71/01 L
        PRPD         2620   PROGRAM*       69/44     71/15 L
        PRPPTA       2550   PROGRAM*       67/46     69/34 L
        PRP30        2515   PROGRAM*       67/52 L   68/06     68/16     68/37
        PRP40        2525   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        2531   PROGRAM*       68/30     68/35 L
        PRP50        2533   PROGRAM*       67/53     68/39 L   70/04
        PRP60        2536   PROGRAM*       68/50 L   70/23
        PRP70        2542   PROGRAM*       69/11 L   71/01     71/05     71/09
        PRP80        2546   PROGRAM*       69/24 L   70/07
        PRT          1626   PROGRAM*       16/44     45/35 L
        PRT2         1646   PROGRAM*       45/37     45/39     46/05 L
        PRT23        1652   PROGRAM*       46/14 L   46/18
        PRT3S        1662   PROGRAM*       46/37     46/39 L
        PRT4         1662   PROGRAM*       46/42 L   47/01
        PRT5         1667   PROGRAM*       46/24     47/03 L
        PRT5S        1672   PROGRAM*       47/07     47/09 L
        RDW=            0   EXTERNAL*       2/02 X   45/56
        REF          2635   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       2757   PROGRAM*       72/18 S   72/38 S   73/46     74/03 L
        REFIO           0   EXTERNAL*       1/51 X   45/38
        REFMI        2764   PROGRAM*       72/12     74/08 L
        REFNOP       2762   PROGRAM*       72/14     74/06 L
        REFPF        2760   PROGRAM*       74/04 L
        REFPL        2763   PROGRAM*       72/07     74/07 L
        REFP1        2720   PROGRAM*       72/01 S   72/14 S   73/15 L
        REFP2        2721   PROGRAM*       72/07 S   72/12 S   73/18 L
        REFRPL       2761   PROGRAM*       72/43 S   73/50     74/05 L
        REFSAV       2754   PROGRAM*       72/26 S   72/39     73/43 S   73/43 S   73/45     73/45     74/01 L
        REF1         2650   PROGRAM*       72/06     72/10 L
        REF10        2711   PROGRAM*       72/53 L   73/20     73/40     73/52
        REF15        2723   PROGRAM*       72/01     73/15     73/18     73/22 L   74/07     74/08
        REF2         2653   PROGRAM*       72/08     72/14 L
        REF20        2727   PROGRAM*       73/26     73/34 L
        REF3         2655   PROGRAM*       72/04     72/11     72/16 L
        REF5         2705   PROGRAM*       72/25     72/42 L
        RNI          1673   PROGRAM*       19/23     19/50     47/28 L
        RNI10        1700   PROGRAM*       47/31     47/40 L
        RNI20        1706   PROGRAM*       47/45     47/53 L
        RNI30        1713   PROGRAM*       48/02     48/07 L
        RNI5         1674   PROGRAM*       47/29 L   47/48
        RNI.CC       1724   PROGRAM*       47/35 S   47/40     47/42 S   48/16 L
        RNI.CL       1725   PROGRAM*       47/43     48/17 L   50/19 S
        RNI.PI       1727   PROGRAM*       19/36     19/51     47/29     47/50 S   48/04 S   48/12 S   48/19 L   49/55 S
        RNI.SC       1726   PROGRAM*       47/37 S   47/53     48/03 S   48/11 S   48/18 L
        RNI.SL       1716   PROGRAM*       47/55     48/15 L   50/15 S
        SBM=            0   EXTERNAL*       2/02 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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        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/56 X   32/57     37/02
        SCSA            0   EXTERNAL*       1/56 X   32/55 S   36/57 S
        SFN             0   EXTERNAL*       2/02 X   24/17     39/43     43/49     66/07     72/29
                                           20/08     26/17     43/48     59/09     66/43     73/44
        SRC          1730   PROGRAM*       31/25     48/34 L
        SRC10        1734   PROGRAM*       48/42 L   48/57
        SRC20        1740   PROGRAM*       48/48     48/52 L
        SRC30        1741   PROGRAM*       48/50     48/57 L
        SRNI         1742   PROGRAM*       30/28     47/47     49/20 L
        SRNI10       1753   PROGRAM*       49/36     49/40 L
        SRNI20       1757   PROGRAM*       49/44     49/49     49/52 L
        SRNI30       1765   PROGRAM*       50/09 L   50/17
        SRNI40       1767   PROGRAM*       50/10     50/14 L
        SRNI.BDF     1772   PROGRAM*       47/30     49/22 S   50/25 L
        SRNI.FED     1773   PROGRAM*       48/07     49/26 S   50/26 L
        SRNI.LED     1774   PROGRAM*       30/26 S   47/57     49/23     49/54 S   50/27 L
        SST             0   EXTERNAL*       2/02 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          1775   PROGRAM*       22/44     30/56     34/24     50/52 L
        STS10        2001   PROGRAM*       51/05 L   51/24     51/28     51/30     51/37     52/25     52/35
        STS20        2007   PROGRAM*       51/12     51/18 L
        STS22        2011   PROGRAM*       51/19     51/23 L
        STS25        2013   PROGRAM*       51/16     51/21     51/27 L
        STS30        2033   PROGRAM*       51/15     51/32     52/11 L
        STS35        2036   PROGRAM*       51/25     52/14     52/18 L
        STS40        2042   PROGRAM*       51/44     51/53     52/09     52/24     52/29 L
        STS50        2044   PROGRAM*       52/16     52/34 L
        STS.BI       2045   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          2765   PROGRAM*        8/31      8/44     29/02     74/25 L
        SZE10        2777   PROGRAM*       74/35     74/41 L
        SZE40        3006   PROGRAM*       74/47     74/56 L
        S=VALUE         0   EXTERNAL*       1/51 X   31/16
        TAB          2046   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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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            1   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           3013   PROGRAM*       12/17     75/22 L
        TO10         3024   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          3031   PROGRAM*        8/30      8/43      9/13      9/21      9/48     10/02     76/14 L
        TYPM         3063   PROGRAM*       77/05     77/15 L
        TYP105       3045   PROGRAM*       76/27     76/33 L
        TYP110       3051   PROGRAM*       76/25     76/34     76/41 L
        TYP120       3057   PROGRAM*       76/46     77/02 L
        TYP130       3060   PROGRAM*       76/42     77/05 L
        TYP150       3061   PROGRAM*       76/57     77/03     77/07 L
        T=BLKS          0   EXTERNAL*       1/51 X   23/29     34/01
        T=ECT           0   EXTERNAL*       1/51 X   23/28     23/49     33/08     37/30
        T=REF           0   EXTERNAL*       1/51 X   45/54     46/22
        T=SCR           0   EXTERNAL*       1/51 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/51 X   31/08     46/06     50/55
        T.BLKS          0   EXTERNAL*       1/52 X   23/40     34/09     38/26     57/07
        T.CON           0   EXTERNAL*       1/52 X   77/56     78/29     78/48     79/43
        T.DIM           0   EXTERNAL*       1/52 X   63/47     74/41
        T.ECT           0   EXTERNAL*       1/52 X   23/47     32/57     32/57     33/10     33/28     37/02     37/29
        T.ENTP          0   EXTERNAL*       1/53 X   60/24
        T.REF           0   EXTERNAL*       1/52 X   45/48     45/48     45/53     46/23     48/37     73/02
        T.SCR           0   EXTERNAL*       1/52 X   22/51     33/26     34/25     41/28
                                           19/35     31/14     33/26     36/12     52/32
        T.SYM           0   EXTERNAL*       1/52 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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        VAL          3071   PROGRAM*        9/14      9/22     29/06     77/37 L
        VALA         3200   PROGRAM*       79/05 S   79/11     79/47 S   79/53     80/04 L
        VAL10        3114   PROGRAM*       78/01     78/13 L
        VAL20        3125   PROGRAM*       77/51     78/27 L
        VAL30        3133   PROGRAM*       78/31     78/39 L
        VAL40        3137   PROGRAM*       78/28     78/46 L
        VAL45        3143   PROGRAM*       78/52     78/56 L
        VAL50        3155   PROGRAM*       79/02     79/18 L
        VAL55        3165   PROGRAM*       79/33     79/38 L
        VAL60        3167   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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/05. 20.00.36.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        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
        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/02 X   79/04     79/46
        WOF             0   EXTERNAL*       1/52 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/52 X   16/30
        WO.LOM          0   EXTERNAL*       1/53 X   16/28     23/23
        WO.LOR          0   EXTERNAL*       1/53 X   16/32     43/02     43/32     43/51     45/36     48/35
        WO.QC           0   EXTERNAL*       1/53 X   22/34     23/26     55/01     62/55
        XA           3202   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           3211   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           3220   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/02 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/05. 20.00.41.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1375              IDENT  LIST 
                       1375              FIN.OL   END                END OF (1,0) OVERLAY WHEN OLIST ON 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1323 
                                        LITERALS* LOCAL        1323        34 
                                        DEBUG     LOCAL        1357        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=LIST           0+           LI=CPL         200+           LI=ST0         321+ 
                                        PIK             24+           LI=DATA        214+           LI=NLST        322+ 
                                        LI=BMI         136+           LI=END         217+           LI=RJ3         326+ 
                                        LI=BCI         136+           LI=EQUN        225+           LI=RJ6         327+ 
                                        LI=OTR         136+           LI=FMT         240+           LI=SB0I        334+ 
                                        LI=EMI         136+           LI=FLA         247+           LI=SUBI        335+ 
                                        LI=ECI         136+           LI=FVEC        256+           LI=UJP         344+ 
                                        LI=LOO         136+           LI=PLIM        272+           LI=USE         345+ 
                                        LI=ADDR        137+           LI=IDNT        276+           LI=TRAC        357+ 
                                        LI=APL         151+           LI=IOM         305+           LI=ZERO        366+ 
                                        LI=BOS         155+           LI=JPI         315+           VFD            545+ 
                                        LI=BSS         166+           LI=LCC         320+           FIN.OL        1375+ 
                                        LI=CON         170+           LI=LD0         321+ 
  
  
                                        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
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE     2
                                                                      LIST
  
                                                                                                                 LIST       11
                                        *         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/05. 20.00.41.      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/05. 20.00.41.      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/05. 20.00.41.      PAGE     5
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        PIK 
  
                               66350              =B3    B5                                                      LIST       97
                                                                                                                 FC50629     6
            43                           PIK40    BSS    0                                                       LIST       98
            43  0100000371 +                      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
                          5120001323 +            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  0100000371 +                      RJ     KTX         CONVERT TAG                                 LIST      129
            62  5130001324 +                      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  5110001325 +             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/05. 20.00.41.      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/05. 20.00.41.      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  5130001325 +             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
                          5140001326 +            SA4    =7RSUB0                                                 LIST      227
           132  20136                             LX1    PB.TAGP                                                 LIST      228
                     0300000024 +                 ZR     X0,EXIT.    IF RJ WITH TRACE                            LIST      229
           133  0311000336 +                      NZ     X1,SUBI.10  IF SUB0                                     LIST      230
                          5140000002 +            SA4    PIK=TAG+1                                               LIST      231
           134  0100001256 +                      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/05. 20.00.41.      PAGE     8
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=ADDR 
  
           137                           LI=ADDR  BSSENT 0                                                       LIST      257
           137  5150001327 +                      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  0100000371 +                      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  5110001325 +                      SA1    =10H                                                    LIST      275
                          10355                   BX3    X5                                                      LIST      276
                               10611              BX6    X1                                                      LIST      277
           147  0100000465 +                      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
                     5110000636 +                 SA1    WCA.RJ                                                  LIST      283
           152  5120000000 X                      SA2    APLA        LENGTH OF T.APL BEFORE APPENDING T.LCA      LIST      284
                          0100000561 +            RJ     WAP                                                     LIST      285
           153  0100001232 +                      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  5110001330 +                      SA1    =H/*/                                                   LIST      294
                          5120001325 +            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
                     5130001331 +                 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/05. 20.00.41.      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  0100000446 +                      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
                          7160000772 +            SX6    CC0                                                     LIST      319
           172  0323000174 +                      PL     X3,CON.10   IF NOT IN PW MODE                           FC50353    34
                          7170000005              SX7    5                                                       LIST      321
           173  7160000775 +                      SX6    CC3                                                     LIST      322
           174  5170001003 +             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  0100000743 +                      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  0100000371 +                      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  5120001332 +                      SA2    =1R,                                                    LIST      354
                          12626                   BX6    X2+X6                                                   LIST      355
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      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
                          5110001325 +            SA1    =10H                                                    LIST      359
           211  5130001333 +                      SA3    =7RCP                                                   LIST      360
                          10611                   BX6    X1                                                      LIST      361
           212  0100000465 +                      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
           215  0100000000 X                      DUMPT  DATS                                                    LIST      369
                                         .T       ENDIF                                                          LIST      370
           216  0400000024 +                      EQ     EXIT.                                                   LIST      371
  
  
  
  
           217                           LI=END   BSSENT 0           PRINT END LINE                              LIST      373
           217  43700                             MX7    0                                                       LIST      374
                     5170000002 +                 SA7    PIK=TAG+1                                               LIST      375
           220  5140000000 X                      SA4    MOD                                                     LIST      376
                          5120000000 X            SA2    IDENT                                                   LIST      377
           221  20462                             SBIT   X4,MO.PROP                                              LIST      378
                     5110001325 +                 SA1    =1H                                                     LIST      379
                               21474              AX4    -0                                                      LIST      380
           222  10611                             BX6    X1                                                      LIST      381
                     11724                        BX7    X2*X4                                                   LIST      382
                          5130001334 +            SA3    =7REND                                                  LIST      383
           223  55771                             SA7    A7-B1       (PIK=TAG) = PROGRAM NAME  OR 0              LIST      384
                     54270                        SA2    A7                                                      LIST      385
                          0100000465 +            RJ     PVF         PRINT *END    PROGNAM*                      LIST      386
           224  0400000024 +                      EQ     EXIT.                                                   LIST      387
  
  
  
  
           225                           LI=EQUN  BSSENT 0           PRINT *EQUN*                                LIST      389
           225  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
           227  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
           230  36123                             IX1    X2+X3                                                   LIST      396
                     43052                        MX0    WA.SYML                                                 LIST      397
                          5231000000              SA3    X1+WA.W     FETCH LABEL                                 LIST      398
           231  11103                             BX1    X0*X3       KEEP NAME                                   LIST      399
                     0100000000 X                 CALL   SFN         SPACE FILL NAME                             LIST      400
           232  20666                             LX6    -CHAR                                                   LIST      401
                     5130001335 +                 SA3    =10HEQUN                                                LIST      402
           233  5110000000 X             EQUN.10  SA1    OL=LBF                                                  LIST      403
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    11
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=EQUN 
  
                          53610                   SA6    X1                                                      LIST      404
                               10633              BX6    X3                                                      LIST      405
           234  54661                             =A6    A6+1                                                    LIST      406
                     6170777776 X                 SB7    LINEBUF-1                                               LIST      407
           235  7110000000 X                      PLINE  LINEBUF,A6-B7     PRINT  *LENP.  EQUN   *               LIST      408
           237  0400000024 +                      EQ     EXIT.                                                   LIST      409
  
  
  
  
  
  
  
  
           240                           LI=FMT   BSSENT 0           PRINT FORMAT ASSIGNMENTS                    LIST      412
           240  0100001007 +                      RJ     WCF                                                     LIST      413
           241  5130000000 X                      SA3    CO.OPT                                                  LIST      414
                          5120000000 X            SA2    T=LA                                                    LIST      415
           242  0313000024 +                      NZ     X3,EXIT.    IF NOT QCG                                  LIST      416
                          5110000000 X            SA1    S=LA                                                    LIST      417
           243  0302000024 +                      ZR     X2,EXIT.    IF NO LABELS ASSIGN-ED                      LIST      418
                          20136                   LX1    PB.TAGP                                                 LIST      419
           244  0100000446 +                      RJ     PBS         PRINT BSS (LA.)                             LIST      420
           245  7160000055                        SX6    1R                                                      LIST      421
                          5160000000 X            SA6    OL=RL       SET TO INCLUDE OCTAL                        LIST      422
           246  0400000024 +                      EQ     EXIT.                                                   LIST      423
  
  
  
  
           247                           LI=FLA   BSSENT 0           FORMAT LABEL ASSIGN-ED                      LIST      425
           247  5140001336 +                      SA4    =7LLABS                                                 LIST      426
                          10644                   BX6    X4                                                      LIST      427
                               10311              BX3    X1                                                      LIST      428
           250  5160000005 X                      SA6    LINEBUF+5                                               LIST      429
                          0100000371 +            RJ     KTX         CONVERT LABEL TAG                           LIST      430
           251  54661                             SA6    A6+B1                                                   LIST      431
                     5120000000 X                 SA2    OL=BIN                                                  LIST      432
                               21273              AX2    -1                                                      LIST      433
           252  5140001337 +                      SA4    =L/,FMT/                                                LIST      434
                          15742                   BX7    -X2*X4      FLAG AS FORMAT IFF SIGN OFF                 LIST      435
                               43600              MX6    0                                                       LIST      436
           253  54761                             SA7    A6+B1                                                   LIST      437
                     6150000005 X                 SB5    LINEBUF+5                                               LIST      438
                               54671              SA6    A7+B1                                                   LIST      439
           254  0100000505 +                      RJ     PLL         PUBLISH LISTING LINE                        LIST      440
           255  0400000024 +                      EQ     EXIT.                                                   LIST      441
  
  
  
  
           256                           LI=FVEC  BSSENT 0           PRINT FILE DESCRIPTOR                       LIST      443
           256  5150001340 +                      SA5    =7RFVEC                                                 LIST      444
                          5120000000 X            SA2    T.SYM                                                   LIST      445
           257  20136                             LX1    -PB.TAGP                                                LIST      446
                     63710                        SB7    X1          ISOLATE T.SYM *WB* INDEX                    LIST      447
                          5140001325 +            SA4    =10H                                                    LIST      448
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    12
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=FVEC 
  
           260  0470000263 +                      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
           261  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
           262  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
           263  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
           265  5160000001 +             FVEC.20  SA6    PIK=TAG                                                 FC50049    25
                          10144                   BX1    X4                                                      LIST      464
           266  0100000000 X                      CALL   SFN         SPACE FILL THE NAME                         LIST      465
           267  20666                             LX6    -CHAR                                                   LIST      466
                     10355                        BX3    X5                                                      LIST      467
                          5120000001 +            SA2    PIK=TAG                                                 LIST      468
           270  0100000465 +                      RJ     PVF         PRINT  *LFN     FVEC  BUFL   *              LIST      469
           271  0400000024 +                      EQ     EXIT.                                                   LIST      470
                                                                                                                 FC50049    26
           272                           LI=PLIM  BSSENT 0           PRINT LIMIT                                 FC50049    27
           272  5110000000 X                      SA1    =XCO.LL     PRINT LIMIT                                 FC50049    28
                          0100000000 X            CALL   CDD         CONVERT TO DECIMAL                          FC50049    29
           273  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
           274  5150001341 +                      SA5    =7RPLIM                                                 FC50049    34
                          5140001325 +            SA4    =10H                                                    FC50049    35
           275  0400000265 +                      EQ     FVEC.20                                                 FC50049    36
  
  
  
  
           276                           LI=IDNT  BSSENT 0                                                       LIST      472
           276  0100001054 +                      RJ     WCS         LIST BLOCK STATISTICS                       LIST      473
           277  5110000000 X                      SA1    IDENT       FETCH PROGRAM NAME                          LIST      474
                          5130001342 +            SA3    =7RIDENT                                                LIST      475
           300  5140001325 +                      SA4    =10H                                                    LIST      476
                          43600                   MX6    0           SUPPRESS OCTAL AND RELOC                    LIST      477
                               10711              BX7    X1                                                      LIST      478
           301  5160000000 X                      SA6    OL=RL                                                   LIST      479
                          22604                   LX6    X4                                                      LIST      480
           302  5170000001 +                      SA7    PIK=TAG     (PIK=TAG) = PROGRAM NAME                    LIST      481
                          5027000000              SA2    A7+                                                     LIST      482
           303  0100000465 +                      RJ     PVF         PRINT  *    IDENT  PROGNAM *                LIST      483
           304  0400000024 +                      EQ     EXIT.                                                   LIST      484
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    13
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=IOM
  
           305                           LI=IOM   BSSENT 0           LIST IO AP-LISTS                            LIST      486
           305  5110001325 +                      SA1    =10H                                                    LIST      487
                          5130001343 +            SA3    =7RIOM                                                  LIST      488
           306  10611                             BX6    X1                                                      LIST      489
                     10733                        BX7    X3                                                      LIST      490
                          5170001215 +            SA7    WIO.10                                                  LIST      491
           307  5160000001 X                      SA6    LINEBUF+1                                               LIST      492
                          54661                   =A6    A6+1                                                    LIST      493
                               66610              SB6    B1          INDICATE IO AP-LIST                         LIST      494
           310  5110000637 +                      SA1    WIO.RJ                                                  LIST      495
                          5120000000 X            SA2    T=IOA                                                   LIST      496
           311  0100000561 +                      RJ     WAP         LIST I/O AP-LISTS                           LIST      497
           312  5130001344 +                      SA3    =7RCLW                                                  LIST      498
                          10633                   BX6    X3                                                      LIST      499
           313  5160001215 +                      SA6    WIO.10                                                  LIST      500
                          0100001035 +            RJ     WCL         LIST CHARACTER LENGTH ARRAYS                LIST      501
           314  0400000024 +                      EQ     EXIT.                                                   LIST      502
  
  
  
  
           315                           LI=JPI   BSSENT 0           PRINT *JP   BI+Q* INSTRUCTION               LIST      504
           315  6130000003                        SB3    3           INDEX TO INSTRUCTION SKELETON               LIST      505
                          43471                   MX4    -PB.IL                                                  FC5A219    20
                               20511              LX5    -PB.IP                                                  FC5A219    21
           316  15654                             BX6    -X4*X5      EXTRACT *I*                                 FC5A219    22
                     20563                        LX5    PB.IP                                                   FC5A219    23
                          7266000033              SX6    X6+1R0                                                  FC5A219    24
           317  5160000006 +                      SA6    PIK=I       SET FOR JP INTRUCTION                       FC5A219    25
                          0400000330 +            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
           320                           LI=LCC   BSSENT 0           PRINT USER LOADER DIRECTIVE                 LIST      512
           320  0400000024 +                      EQ     EXIT.                                                   LIST      513
  
  
  
  
           321                           LI=LD0   BSSENT 0                                                       LIST      515
           321                           LI=ST0   BSSENT 0                                                       LIST      516
           321  0400400321 +                      EQ     "BLOWUP"    SHOULD NOT COME HERE                        LIST      517
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    14
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=NLST 
  
           322                           LI=NLST  BSSENT 0           PRINT NAMELIST GROUP TABLE                  LIST      519
           322  5120000000 X                      SA2    T=DIM                                                   LIST      520
                                        ** FV     WHAT ABOUT RUN-TIME DIM TABLE ??                               LIST      521
                          5120000000 X            SA2    T=NLST                                                  LIST      522
           323  0302000024 +                      ZR     X2,EXIT.    IF NO NAMELIST GROUPS                       LIST      523
                                         .T       IFEQ   TEST,ON                                                 LIST      524
           324  0100000000 X                      DUMPT  NLST                                                    LIST      525
                                         .T       ENDIF                                                          LIST      526
           325  0400000024 +                      EQ     EXIT.                                                   LIST      527
  
  
  
  
           326                           LI=RJ3   BSSENT 0           PRINT *RJ     XXX* INSTRUCTION              LIST      529
           326  6130000002                        SB3    2           INDEX TO INSTRUCTION SKELETON               LIST      530
                          0400000330 +            EQ     RJ6.10                                                  LIST      531
  
  
  
  
           327                           LI=RJ6   BSSENT 0           PRINT RETURN JUMP WITH TRACE                LIST      533
           327  6130000001                        SB3    1           INDEX TO INSTRUCTION SKELETON               LIST      534
           330  43452                    RJ6.10   MX4    -PB.TAGL                                                LIST      535
                     7160000024                   SX6    1RT                                                     LIST      536
                               20136              LX1    -PB.TAGP                                                LIST      537
           331  6150000001 X                      SB5    PIK=PS+1                                                LIST      538
                          67535                   SB5    B3-B5                                                   LIST      539
           332  6155000000 X                      SB5    B5+PIK=PI                                               LIST      540
                          15314                   BX3    -X4*X1      ISOLATE TAG                                 LIST      541
           333  5160000010 +                      SA6    PIK=I+2                                                 LIST      542
                          0400000043 +            EQ     PIK40                                                   LIST      543
  
  
  
  
           334                           LI=SB0I  BSSENT 0           OUTPUT SUB0 INDEX                           LIST      545
           334  5140001345 +                      SA4    =7RSB0I                                                 LIST      546
                          0400000336 +            EQ     SUBI.10                                                 LIST      547
  
  
  
  
           335                           LI=SUBI  BSSENT 0           OUTPUT SUB INDEX                            LIST      549
           335  5140001346 +                      SA4    =7RSUBI                                                 LIST      550
           336                           SUBI.10  BSS    0                                                       LIST      551
           336  43052                             MX0    -PB.TAGL                                                LIST      552
                     21136                        AX1    PB.TAGP                                                 LIST      553
                          15310                   BX3    -X0*X1      TAGI = TAG[INSTRUCTION]                     LIST      554
           337  0100000371 +                      RJ     KTX         CONVERT TAG                                 LIST      555
           340  5160000001 +                      SA6    PIK=TAG     (PIK=TAG) = TAG                             LIST      556
                          5110001325 +            SA1    =10H                                                    LIST      557
           341  10344                             BX3    X4                                                      LIST      558
                     10611                        BX6    X1                                                      LIST      559
                          54260                   SA2    A6                                                      LIST      560
           342  0100000465 +                      RJ     PVF         PRINT * SUBI  TAG*                          LIST      561
           343  0400000024 +                      EQ     EXIT.                                                   LIST      562
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    15
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=UJP
  
           344                           LI=UJP   BSSENT 0           PRINT *EQ     XXX* INSTRUCTION              LIST      564
           344  6130000004                        SB3    4           INDEX TO INSTRUCTION SKELETON               LIST      565
                          0400000330 +            EQ     RJ6.10                                                  LIST      566
  
  
  
  
           345                           LI=USE   BSSENT 0           PRINT *USE BLOCK*                           LIST      568
           345  20136                             HX1    PB.BIAS                                                 LIST      569
                     21152                        AX1    -PB.BIASL                                               LIST      570
                          5211001307 +            SA1    X1+TLBN     FETCH BLOCK NAME                            LIST      571
           346  7160000055                        SX6    55B                                                     LIST      572
                          5140001325 +            SA4    =10H                                                    LIST      573
           347  5130001347 +                      SA3    =7RUSE                                                  LIST      574
                          37716                   IX7    X1-X6       LEAVE A 0 AT BOTTOM OF NAME                 LIST      575
           350  5170000001 +                      SA7    PIK=TAG     (PIK=TAG) = BLOCK NAME                      LIST      576
                          54270                   SA2    A7                                                      LIST      577
                               10644              BX6    X4                                                      LIST      578
           351  0100000465 +                      RJ     PVF         PRINT * USE  BLKNAM*                        LIST      579
           352  0400000024 +                      EQ     EXIT.                                                   LIST      580
                                                                                                                 LIST      581
           353  55555555555555555555     USE.10   DIS    1,                                                      LIST      582
           354  55555555555555555555              DIS    1,                                                      LIST      583
           355  55252305555502141703              DATA   10H USE  BLOC                                           LIST      584
           356                     1              BSS    1           K NAME                                      LIST      585
  
  
  
  
           357                           LI=TRAC  BSSENT 0           PRINT *NAME    TRACE*                       LIST      587
           357  5110000000 X                      SA1    IDENT                                                   LIST      588
                          0100000000 X            CALL   ZTB         ZERO CHARS TO BLANKS                        LIST      589
           360  20666                             LX6    -6                                                      LIST      590
                     7170000045                   SX7    1R+         INDICATE PROGRAM RELOCATION                 LIST      591
           361  5160000004 X                      SA6    LINEBUF+4                                               LIST      592
                          6150000364 +            SB5    TRAC.A                                                  LIST      593
           362  5170000000 X                      SA7    OL=RL                                                   LIST      594
                          0100000505 +            RJ     PLL         PUBLISH LISTING LINE                        LIST      595
           363  0400000024 +                      EQ     EXIT.                                                   LIST      596
                                                                                                                 LIST      597
           364  24220103055700000000     TRAC.A   DATA   L/TRACE./                                               LIST      598
           365  00000000000000000000              DATA   0                                                       LIST      599
  
  
  
  
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    16
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=ZERO 
  
           366                           LI=ZERO  BSSENT 0           PRINT A ZERO WORD                           LIST      602
           366  5130001325 +                      SA3    =10H                                                    LIST      603
                          13111                   BX1    0                                                       LIST      604
           367  0100001277 +                      RJ     ZWI         OUTPUT A ZERO WORD                          LIST      605
           370  0400000024 +                      EQ     EXIT.                                                   LIST      606
                                                                                                                 LIST      607
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      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
           371  0400400371 +             KTX      SUBR               ENTRY/EXIT...                               LIST      618
           372  0303000420 +                      ZR     X3,KTX60    IF TAG .EQ. 0                               LIST      619
                          43156                   MX1    -PB.ORDL                                                LIST      620
                               11213              BX2    X1*X3       PFXI = PFX[TAGI]                            LIST      621
           373  0302000402 +                      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
           374  21217                             AX2    P=PFX                                                   LIST      629
                     63220                        SB2    X2                                                      LIST      630
                                         .TEST    IFEQ   TEST,ON                                                 LIST      631
                          7232777772              SX3    X2-K=END                                                LIST      632
           375  0323400375 +                      PL     X3,"BLOWUP" IF PFXI .GE. K=END                          LIST      633
                                         .TEST    ENDIF                                                          LIST      634
                          7130000007              SX3    7                                                       LIST      635
           376  11231                    KTX10    BX2    X3*X1       ISOLATE LOWEST OCTAL DIGIT                  LIST      636
                     21103                        AX1    3                                                       LIST      637
                          7222000033              SX2    X2+1R0                                                  LIST      638
           377  12662                             BX6    X6+X2                                                   LIST      639
                     20666                        LX6    -CHAR                                                   LIST      640
                          0311000376 +            NZ     X1,KTX10    IF NUMBER NOT FINISHED                      LIST      641
           400  5132000422 +                      SA3    B2+KTXN     FETCH TAG PREFIX                            LIST      642
                          12663                   BX6    X6+X3                                                   LIST      643
                               20652              LX6    -3*CHAR                                                 LIST      644
           401  0400000371 +                      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
           402  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
           403  36116                             IX1    X1+X6                                                   LIST      658
                     5221000001                   SA2    X1+WB.W     WBI = T.SYM(STIND)                          LIST      659
                               10722              BX7    X2                                                      LIST      660
           404  20270                             SBIT   X2,WB.LABP                                              FC5A219    26
                     0332000414 +                 MI     X2,KTX40    IF STATEMENT LABEL                          FC5A219    27
                               43652              MX6    WA.SYML                                                 LIST      662
           405  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/05. 20.00.41.      PAGE    18
        OBJECT LISTING SUPPORTING ROUTINES.                           KTX 
  
           406  66200                             =B2    0                                                       FC5A219    28
                     20753                        SBIT   X7,WB.FPP                                               FC5A219    29
                          0327000410 +            PL     X7,KTX30    IF NOT FP                                   FC5A219    30
           407  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
           410  7172000000               KTX30    SX7    B2+         FPNO (OR ZERO)                              FC5A219    35
                          5170000000 +            SA7    SAVFP       (SAVFP) = FPNO[WBI]                         FC5A219    36
           411  5170000000 +                      SA7    SAVFP       (SAVFP) = FP[WBI]                           LIST      669
                          0322000371 +            PL     X2,EXIT.    IF NOT AN EXTERNAL                          LIST      670
           412  7110005430                        SX1    2R=X                                                    LIST      671
                          12616                   BX6    X1+X6                                                   LIST      672
                               20660              LX6    -2*CHAR     PREFIX EXTERNALS WITH *=X*                  LIST      673
           413  0400000371 +                      EQ     EXIT.       EXIT..                                      LIST      674
                                                                                                                 LIST      675
                                        *         CONVERT STATEMENT LABEL TAG.                                   LIST      676
                                        *         (A2) = WBI                                                     LIST      677
                                                                                                                 LIST      678
           414  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
           415  11621                    KTX50    BX6    X2*X1       ISOLATE LEADING CHARACTER                   LIST      682
                     20106                        LX1    CHAR                                                    LIST      683
                          0306000415 +            ZR     X6,KTX50    IF NO SIGNIFICANT CHARACTER YET             LIST      684
           416  7120005700                        SX2    2R.*-1R*                                                LIST      685
                          12612                   BX6    X1+X2                                                   LIST      686
                               20660              LX6    -2*CHAR                                                 LIST      687
           417  0400000371 +                      EQ     EXIT.                                                   LIST      688
                                                                                                                 LIST      689
           420  6120000052               KTX60    KTY                CONVERT 0                                   FC5A281    30
           421  0400000371 +                      EQ     EXIT.                                                   LIST      691
                                                                                                                 LIST      692
                                        *         VECTOR OF PREFIXES FOR AUXILLIARY TABLE TAGS.                  LIST      693
                                                                                                                 LIST      694
           422                           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
           427                                    LOC    *O                                                      LIST      703
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      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
           427  0400400427 +             KTY      SUBR               ENTRY/EXIT...                               LIST      720
           430  7170000007                        SX7    7                                                       LIST      721
                          22323                   LX3    B2,X3                                                   FC5A281    36
                               10233              BX2    X3                                                      FC5A281    37
           431  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
           432  21603                             AX6    3                                                       LIST      728
                     0306000433 +                 ZR     X6,KTY6     IF ABS(X3) .LT. 8                           LIST      729
                               76611              =X6    1RB                                                     LIST      730
                                                                                                                 LIST      731
           433  11271                    KTY6     BX2    X7*X1       ISOLATE LOWEST OCTAL DIGIT                  LIST      732
                     21103                        AX1    3                                                       LIST      733
                          7222000033              SX2    X2+1R0                                                  LIST      734
           434  20666                             LX6    -CHAR                                                   LIST      735
                     12626                        BX6    X2+X6                                                   LIST      736
                          0311000433 +            NZ     X1,KTY6     IF NUMBER NOT EXHAUSTED                     LIST      737
                                                                                                                 LIST      738
           435  20666                             LX6    -CHAR                                                   LIST      739
                     0323000427 +                 PL     X3,EXIT.    IF POSITIVE CONSTANT                        LIST      740
           436  7110000046                        SX1    1R-                                                     LIST      741
                          12616                   BX6    X1+X6                                                   LIST      742
                               20666              LX6    -CHAR                                                   LIST      743
           437  0400000427 +                      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
           440  0400400440 +             KUB      SUBR   0           ENTRY/EXIT.                                 LIST      757
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    20
        OBJECT LISTING SUPPORTING ROUTINES.                           KUB 
  
           441  7130000033                        =X3    1R0                                                     LIST      758
                          43671                   MX6    -3                                                      LIST      759
                               43700              MX7    0                                                       LIST      760
           442  6140000003                        SB4    3                                                       LIST      761
                          6120000014              SB2    4*3         N = 4                                       LIST      762
           443  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
           444  12774                             BX7    X7+X4                                                   LIST      767
                     67224                        SB2    B2-B4       N = N - 1                                   LIST      768
                          0520000443 +            NZ     B2,KUB10    IF N .NE. 0                                 LIST      769
           445  20744                             LX7    -4*CHAR                                                 LIST      770
                     0400000440 +                 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
           446  0400400446 +             PBS      SUBR               ENTRY/EXIT...                               LIST      782
           447  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
           450  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
           452  5160000463 +                      SA6    PBSA+1                                                  LIST      790
                          5120001325 +            SA2    =1H                                                     LIST      791
           453  10622                             BX6    X2                                                      LIST      792
                     22304                        LX3    X4                                                      LIST      793
                          0304000456 +            ZR     X4,PBS10    IF TAGI .EQ. 0    (NO TAG)                  LIST      794
           454  0100000371 +                      RJ     KTX         CONVERT TAG TO EXTERNAL REPRESENTATION      LIST      795
           455  10166                             BX1    X6                                                      LIST      796
                     0100000000 X                 CALL   SFN         SPACE FILL                                  LIST      797
           456  20666                    PBS10    LX6    -6                                                      LIST      798
                     13777                        BX7    0           INDICATE NO OCTAL                           LIST      799
                          65561                   SB5    A6-B1                                                   LIST      800
           457  5170000000 X                      SA7    OL=RL                                                   LIST      801
                          5160000004 X            SA6    LINEBUF+4                                               LIST      802
           460  0100000505 +                      RJ     PLL         PUBLISH LISTING LINE                        LIST      803
           461  0400000446 +                      EQ     EXIT.                                                   LIST      804
                                                                                                                 LIST      805
           462  02232355555555000000     PBSA     DATA   7LBSS                                                   LIST      806
           463  33000000000000000000              DATA   1L0                                                     LIST      807
           464  00000000000000000000              DATA   0                                                       LIST      808
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      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
           465  0400400465 +             PVF      SUBR               ENTRY/EXIT...                               LIST      818
           466  5110000000 X                      SA1    OL=LBF                                                  LIST      819
                          53610                   SA6    X1          STORE LABEL FIELD                           LIST      820
                               10633              BX6    X3                                                      LIST      821
           467  6120000022                        SB2    3*CHAR                                                  LIST      822
                          43466                   MX4    -CHAR                                                   LIST      823
                               65761              SB7    A6-B1                                                   LIST      824
           470  0302000501 +                      ZR     X2,PFV40    IF NOTHING TO PACK                          LIST      825
           471  20206                    PVF10    LX2    CHAR                                                    LIST      826
                     6100000000                   SB0    0                                                       LIST      827
                               15124              BX1    -X4*X2                                                  LIST      828
           472  20606                    PVF20    LX6    CHAR                                                    LIST      829
                     6122777771                   SB2    B2-CHAR                                                 LIST      830
                               20206              LX2    CHAR                                                    LIST      831
           473  36661                             IX6    X6+X1                                                   LIST      832
                     15124                        BX1    -X4*X2      ISOLATE NEXT CHARACTER                      LIST      833
                          0520000475 +            NZ     B2,PVF30    IF ASSEMBLY NOT FULL                        LIST      834
           474  54661                             SA6    A6+B1                                                   LIST      835
                     6120000074                   SB2    10*CHAR                                                 LIST      836
                               13666              BX6    0                                                       LIST      837
           475  0311000472 +             PVF30    NZ     X1,PVF20    IF MORE CHARACTERS                          LIST      838
                          54221                   SA2    A2+B1                                                   LIST      839
           476  5130001325 +                      SA3    =1H                                                     LIST      840
                          0312000471 +            NZ     X2,PVF10    IF MORE ITEMS                               LIST      841
           477  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
           500  12663                             BX6    X6+X3       FILL IN BLANKS                              LIST      846
           501  22626                    PFV40    LX6    X6,B2                                                   LIST      847
                     54661                        SA6    A6+B1                                                   LIST      848
                          6130777776 X            SB3    LINEBUF-1                                               LIST      849
           502  7110000000 X                      PLINE  LINEBUF,A6-B3                                           LIST      850
           504  0400000465 +                      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/05. 20.00.41.      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
           505  0400400505 +             PLL      SUBR   0           ENTRY/EXIT...                               LIST      870
           506  5130000000 X                      SA3    OL=RL                                                   LIST      871
                          5140001325 +            SA4    =H/  /                                                  LIST      872
           507  10644                             BX6    X4                                                      LIST      873
                     64650                        SB6    A5          SAVE (A5)                                   LIST      874
                          22704                   LX7    X4                                                      LIST      875
           510  0303000512 +                      ZR     X3,PLL5     IF NO OCTAL TRANSLATION                     LIST      876
                          5110000000 X            SA1    OL=BIN                                                  LIST      877
           511  0100000000 X                      CALL   WOD                                                     LIST      878
           512  5130000000 X             PLL5     SA3    OL=RL                                                   LIST      879
                          5160000001 X            SA6    LINEBUF+1   (LINEBUF+1, +2) = OCTAL                     LIST      880
           513  54761                             SA7    A6+B1                                                   LIST      881
                     7160000055                   SX6    1R                                                      LIST      882
                               56560              SA5    B6          RESTORE (A5)                                LIST      883
           514  54630                             SA6    A3                                                      LIST      884
                     0303000516 +                 ZR     X3,PLL6     IF NO RELOCATION                            LIST      885
           515  7263000000                        SX6    X3+                                                     LIST      886
           516  5140001350 +             PLL6     SA4    =9L                                                     LIST      887
                          5130000004 X            SA3    LINEBUF+4                                               LIST      888
           517  36746                             IX7    X4+X6       (LINEBUF+3) = RELOCATION                    LIST      889
                     5110000000 X                 SA1    OL=LBF                                                  LIST      890
                               56250              SA2    B5                                                      LIST      891
           520  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
           521  0100000530 +                      RJ     PVS         PACK VARIABLE STRINGS                       LIST      896
           522  5110000000 X                      SA1    LINEBUF                                                 LIST      897
                          64361                   SB3    A6+B1       (B3) = LWA+1 OF PACKED LINE                 LIST      898
                               64610              SB6    A1                                                      LIST      899
           523  0331000525 +                      MI     X1,PLL8     IF ORIGIN ALREADY FORMATTED                 LIST      900
                          0100000000 X            CALL   COD                                                     LIST      901
           524  20614                             LX6    2*6                                                     LIST      902
                     54610                        SA6    A1          SET (ORIGIN) IN LINEBUF+0                   LIST      903
           525  76160                    PLL8     PLINE  B6,B3-B6                                                LIST      904
           527  0400000505 +                      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
           530  0400400530 +             PVS      SUBR               ENTRY/EXIT...                               LIST      917
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    23
        OBJECT LISTING SUPPORTING ROUTINES.                           PVS 
  
           531  6120000074                        SB2    10*6        INDICATE ACCUMULATOR EMPTY                  LIST      918
                          43466                   MX4    -CHAR                                                   LIST      919
                               13666              BX6    0                                                       LIST      920
           532  0302000530 +                      ZR     X2,EXIT.    IF NOTHING TO PACK                          LIST      921
           533  20206                    PVS10    LX2    CHAR                                                    LIST      922
                     6100000000                   SB0    +                                                       LIST      923
                               15124              BX1    -X4*X2                                                  LIST      924
           534  20606                    PVS20    LX6    6                                                       LIST      925
                     13221                        BX2    X2-X1       REMOVE CHAR FROM SOURCE                     LIST      926
                          6122777771              SB2    B2-6                                                    LIST      927
           535  20206                             LX2    6                                                       LIST      928
                     36661                        IX6    X6+X1                                                   LIST      929
                          15124                   BX1    -X4*X2      ISOLATE NEXT CHARACTER                      LIST      930
           536  0520000540 +                      NZ     B2,PVS30    IF ASSEMBLY NOT FULL                        LIST      931
                          54661                   SA6    A6+B1                                                   LIST      932
           537  6120000074                        SB2    10*6                                                    LIST      933
                          13666                   BX6    0                                                       LIST      934
           540  0312000534 +             PVS30    NZ     X2,PVS20    IF SOURCE NOT EMPTY                         LIST      935
                          0332000534 +            MI     X2,PVS20    IF SOURCE WORD ALL SEMICOLONS               LIST      936
           541  54221                             SA2    A2+B1                                                   LIST      937
                     67321                        SB3    B2-B1                                                   LIST      938
                          0312000533 +            NZ     X2,PVS10    IF MORE ITEMS                               LIST      939
           542  43701                             MX7    1                                                       LIST      940
                     5130001325 +                 SA3    =1H                                                     LIST      941
                               23737              AX7    X7,B3                                                   LIST      942
           543  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
           544  0400000530 +                      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/05. 20.00.41.      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
           545  0400400545 +             VFD      SUBR   =           ** ENTRY/EXIT **                            FC5A171A  392
           546  43300                             MX3    0                                                       FC5A171A  393
                     13000                        BX0    X0-X0                                                   FC5A171A  394
                          6165777776              SB6    B5-1                                                    FC5A171A  395
           547  0740000545 +                      LT     B4,B0,EXIT. IF POS COUNT IS BAD                         FC5A171A  396
                          0750000545 +            LT     B5,B0,EXIT. IF BIT COUNT IS BAD                         FC5A171A  397
           550  43071                             MX0    -3                                                      FC5A171A  398
                     0450000552 +                 ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                  FC5A171A  399
                               43301              MX3    1                                                       FC5A171A  400
           551  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
           552  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
           553  20103                    VFD3     LX1    3                                                       FC5A171A  412
                     15210                        BX2    -X0*X1                                                  FC5A171A  413
                          20303                   LX3    3                                                       FC5A171A  414
                               15430              BX4    -X0*X3                                                  FC5A171A  415
           554  7222000033                        SX2    X2+1R0                                                  FC5A171A  416
                          6166777771              SB6    B6-6                                                    FC5A171A  417
           555  0314000556 +                      NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                  FC5A171A  418
                          7120000055              SX2    1R                                                      FC5A171A  419
                                                                                                                 FC5A171A  420
           556  22262                    VFD4     LX2    X2,B6                                                   FC5A171A  421
                     12772                        BX7    X7+X2                                                   FC5A171A  422
                          0706000553 +            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
           557  6160000074                        SB6    60                                                      FC5A171A  427
                          0316000545 +            NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD          FC5A171A  428
           560  10677                             BX6    X7                                                      FC5A171A  429
                     43700                        MX7    0                                                       FC5A171A  430
                          0400000553 +            EQ     VFD3                                                    FC5A171A  431
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      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
           561  0400400561 +             WAP      SUBR   0           ENTRY/EXIT...                               LIST      965
           562  6136000005                        SB3    BN=APL+B6                                               FC50457    11
                          5133000000 X            SA3    B3+F.LBT                                                FC50457    12
                                                  LX3    -LB.ORGP                                                FC50457    13
           563  53030                             SA0    X3          ORGA = ORG[T.LBT(BN=APL)]                   FC50457    14
                                   0              ERRNZ  18-LB.ORGL                                              FC50457    15
                     10611                        BX6    X1                                                      FC50457    16
                          0302000561 +            ZR     X2,EXIT.    IF NO AP-LISTS TO PRINT                     LIST      966
           564  23462                             AX4    X2,B6                                                   LIST      968
                                   0              ERRNZ  2-Z=IOA                                                 LIST      969
                     5160000626 +                 SA6    WAP.RJ                                                  LIST      970
                               63540              SB5    X4                                                      LIST      973
           565  5126000000 X                      SA2    T=API+B6                                                LIST      976
                          13666                   SHRINK T=SCR                                                   LIST      977
                          5110000000 X            ALLOC  T.SCR,X2                                                LIST      978
           570  5136000000 X                      SA3    T.API+B6                                                LIST      979
                          66410                   =B4    1           APLIND = 1                                  LIST      980
           571  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
           572  20652                             LX6    PS.RAP                                                  LIST      984
                     5126000000 X                 SA2    T.APL+B6                                                LIST      985
                               43744              MX7    -WC.RAL                                                 LIST      986
           573  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
           574  54441                    WAP10    =A4    A4+1        APA = APA + 1, API = (APA)                  LIST      994
                     76340                        SX3    B4                                                      LIST      995
                          0602000600 +            LE     B2,WAP20    IF LEN .LE. 0                               LIST      996
           575  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
           576  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/05. 20.00.41.      PAGE    26
        OBJECT LISTING SUPPORTING ROUTINES.                           WAP 
  
           577  0400000574 +                      EQ     WAP10       LOOP..                                      LIST     1005
                                                                                                                 LIST     1006
                                        *         SORT T.SCR IN ASCENDING ORDER OF RA[PS.].                      LIST     1007
                                                                                                                 LIST     1008
           600  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
           601  5110000000 X             WAP30    SA1    T.SCR                                                   LIST     1018
                          5120000000 X            SA2    T=SCR                                                   LIST     1019
           602  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
           603  7272777776                        SX7    X2-1        (T=SCR) = (T=SCR) - 1                       LIST     1023
                          54720                   SA7    A2                                                      LIST     1024
           604  0307000561 +                      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
           605  20322                             LX3    PS.RAP-PS.ORDP                                          LIST     1029
                     73330                        SX3    X3          TAGI = TAG[API]                             LIST     1030
                                   0              ERRMI  18-PS.ORDL                                              LIST     1031
                          5126001230 +            SA2    APTAG+B6    (X2) = K.AP/ K.IO                           LIST     1032
           606  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
           607  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
           611  76660                             SX6    B6                                                      LIST     1043
                     5160000635 +                 SA6    WAPA        (WAPA) = (B6)                               LIST     1044
           612  0100000446 +                      RJ     PBS         PRINT *  TAG  BSS  0*                       LIST     1045
           613  5110000635 +                      SA1    WAPA                                                    LIST     1046
                          6261000000              SB6    X1+         RESTORE (B6)                                LIST     1047
           614  0300000601 +                      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
           615  5130000000 X             WAP40    SA3    T.PTXTR                                                 LIST     1053
                          73631                   =X6    X3+1                                                    LIST     1054
                               53130              SA1    X3                                                      LIST     1055
           616  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
           617  0100000000 X                      CALL   WOD         CONVERT BINARY TO DPC                       LIST     1059
           620  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/05. 20.00.41.      PAGE    27
        OBJECT LISTING SUPPORTING ROUTINES.                           WAP 
  
           621  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
           623  0311000626 +                      NZ     X1,WAP50    IF NOT +/- 0                                LIST     1067
                          5130001325 +            SA3    =10H                                                    LIST     1068
           624  0100001277 +                      RJ     ZWI         PRINT ZERO WORD ITEM                        LIST     1069
           625  0400000627 +                      EQ     WAP90                                                   LIST     1070
                                                                                                                 LIST     1071
           626                           WAP50    BSS    0                                                       LIST     1072
           626  0100000000               WAP.RJ   RJ     **          CALL  WCA/ WIO TO LIST ONE AP-LIST          LIST     1073
                                                                                                                 LIST     1074
           627  5110000635 +             WAP90    SA1    WAPA                                                    LIST     1075
                          5120001325 +            SA2    =10H                                                    LIST     1076
           630  63610                             SB6    X1          RESTORE (B6)                                LIST     1077
                     66361                        SB3    B6+B1                                                   LIST     1078
                          10622                   BX6    X2                                                      LIST     1079
           631  5160000001 X                      SETMEM LINEBUF+1,4,X6    BLANK FILL                            LIST     1080
                                   0              ERRNZ  2-Z=IOA                                                 LIST     1081
           633  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
           634  0310000615 +                      NZ     X0,WAP40    IF MORE ITEMS IN THIS AP-LIST               LIST     1085
                          0400000601 +            EQ     WAP30                                                   LIST     1086
                                                                                                                 LIST     1087
           635                     1     WAPA     BSS    1                                                       LIST     1088
           636  0100000640 +             WCA.RJ   RJ     WCA                                                     LIST     1089
           637  0100001112 +             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
           640  0400400640 +             WCA      SUBR               ENTRY/EXIT.                                 LIST     1102
           641  10511                             BX5    X1                                                      LIST     1103
                     43600                        MX6    0                                                       LIST     1104
                          5160000735 +            SA6    WCA.10+4    (WCA.10+4) = 0                              LIST     1105
           642  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
           643  15357                             BX3    -X7*X5      TAGI = TAG[API]                             LIST     1110
                     10433                        BX4    X3                                                      LIST     1111
                          0331000714 +            MI     X1,WCA90    IF CHARACTER RELATIONAL HEADER              LIST     1112
           644  0100000371 +                      RJ     KTX         CONVERT TAGI TO EXTERNAL FORM               LIST     1113
           645  43266                             MX2    -IA.MODEL                                               LIST     1114
                     5160000733 +                 SA6    WCA.10+2    (WCA.10+2) = TAG                            LIST     1115
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    28
        OBJECT LISTING SUPPORTING ROUTINES.                           WCA 
  
                               20536              LX5    IA.TAGP-IA.MODEP                                        LIST     1116
           646  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
           647  11664                             BX6    X6*X4       PFXI = PFX[TAGI]                            LIST     1121
                     0316000653 +                 NZ     X6,WCA15    IF PFXI .NE. K=SYM                          LIST     1122
                                   0              ERRNZ  K=SYM                                                   LIST     1123
           650  5130000000 X                      SA3    T.SYM                                                   LIST     1124
                          63231                   =B2    X3+WB.W                                                 LIST     1125
                               22614              LX6    X4,B1                                                   LIST     1126
           651  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
           652  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
           653  12671                    WCA15    BX6    X7+X1                                                   LIST     1136
                     5160000731 +                 SA6    WCA.10      (WCA.10) = (LCM,MODEI) [OA.]                LIST     1137
                                                                                                                 LIST     1138
                               10355              BX3    X5                                                      LIST     1139
           654  20501                             LX5    IA.MODEP-1-IA.STP                                       LIST     1140
                     20366                        LX3    IA.MODEP-IA.BIASP                                       LIST     1141
                          0335000724 +            MI     X5,WCA95    IF ST[API] .EQ. 1                           LIST     1142
           655  43744                             MX7    -IA.BIASL                                               LIST     1143
                     15337                        BX3    -X7*X3      BIASI = BIAS[API]                           LIST     1144
                          20501                   LX5    IA.STP-IA.CHARP                                         LIST     1145
           656  0335000662 +                      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
           657  5110000000 X                      SA1    T.DIM                                                   LIST     1153
                          37724                   IX7    X2-X4                                                   LIST     1154
                               63210              SB2    X1          +DH.W                                       LIST     1155
           660  0317000702 +                      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
           661  21344                             AX3    -DH.RAL     BIASI = RA[DHI]                             LIST     1159
                     0400000702 +                 EQ     WCA40                                                   LIST     1160
                                                                                                                 LIST     1161
                                        *         HANDLE CHARACTER APLIST HERE.                                  LIST     1162
                                                                                                                 LIST     1163
           662  0322000671 +             WCA20    PL     X2,WCA35    IF NOT F.P.                                 LIST     1164
                          43700                   MX7    0                                                       LIST     1165
           663  5170000000 +                      SA7    SAVFP       DISABLE *SUB*                               LIST     1166
                          5140000731 +            SA4    WCA.10                                                  LIST     1167
           664  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
           665  54640                             SA6    A4          FP[WCA.10] = FPI                            LIST     1172
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      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
           666  6120000052                        KTY                CONVERT FPNO                                FC5A281    41
           667  5160000733 +                      SA6    WCA.10+2    (WCA.10+2) = BIASI                          LIST     1177
                          7234777776              =X3    X4-1        FPNOI = FPNOI - 1                           LIST     1178
           670  0400000702 +                      EQ     WCA40                                                   LIST     1179
                                                                                                                 LIST     1180
           671  5120000000 X             WCA35    SA2    T.CAC                                                   LIST     1181
                          43752                   MX7    -WC.CLENL                                               LIST     1182
                               43170              MX1    -WC.BCPL                                                LIST     1183
           672  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
           673  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
           674  6120000052                        KTY                CONVERT BCPI                                FC5A281    42
           675  5110001351 +                      SA1    =1L,                                                    LIST     1192
                          10711                   BX7    X1                                                      LIST     1193
           676  5160000736 +                      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
           677  6120000052                        KTY                CONVERT CLEN                                FC5A281    43
           700  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
           701  5160000740 +                      SA6    WCA.10+7    (WCA.10+7) = CLEN                           LIST     1201
                                                                                                                 LIST     1202
                                        *         NON CHARACTER APLIST.                                          LIST     1203
                                        *         (X3) = BIASI                                                   LIST     1204
                                                                                                                 LIST     1205
           702  6120000044               WCA40    KTY    24          CONVERT BIAS                                FC5A281    44
           703  0333000705 +                      MI     X3,WCA60    IF BIAS IS NEGATIVE                         LIST     1207
                          7110000045              SX1    1R+         PREFIX A PLUS                               LIST     1208
           704  12661                             BX6    X6+X1                                                   LIST     1209
                     20666                        LX6    -CHAR                                                   LIST     1210
           705  5160000734 +             WCA60    SA6    WCA.10+3    (WCA.10+3) = BIAS                           LIST     1211
                                                                                                                 LIST     1212
           706  5110000731 +             WCA80    SA1    WCA.10                                                  LIST     1213
                          0100000440 +            RJ     KUB         CONVERT UPPER 12 BITS                       LIST     1214
           707  54710                             SA7    A1                                                      LIST     1215
                     5120001325 +                 SA2    =10H                                                    LIST     1216
           710  5135000727 +                      SA3    B5+APLAB    7RAPL OR 7RLAP                              LIST     1217
                          10622                   BX6    X2                                                      LIST     1218
           711  5120000731 +                      SA2    WCA.10                                                  LIST     1219
                          0100000465 +            RJ     PVF         PACK VARIABLE FIELD                         LIST     1220
           712  5140000734 +                      SA4    WCA.10+3                                                LIST     1221
                          0100001256 +            RJ     WSM         WRITE SUB MACRO                             LIST     1222
           713  0400000640 +                      EQ     EXIT.                                                   LIST     1223
                                                                                                                 LIST     1224
                                        *         LIST CHARACTER RELATIONAL HEADER.                              LIST     1225
                                                                                                                 LIST     1226
           714  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/05. 20.00.41.      PAGE    30
        OBJECT LISTING SUPPORTING ROUTINES.                           WCA 
  
           715  0333400715 +                      MI     X3,"BLOWUP" LEFT SHOULD NEVER BE .LT. 0                 LIST     1230
                          5160000733 +            SA6    WCA.10+2    (WCA.10+2) = LEFT                           LIST     1231
           716  43144                             MX1    -IA.RITEL                                               LIST     1232
                     20530                        LX5    IA.TAGP-IA.BIASP                                        LIST     1233
                          15351                   BX3    -X1*X5      RITEI = BIAS[API]                           LIST     1234
                                   0              ERRNZ  IA.RITEP-IA.BIASP                                       LIST     1235
           717  6120000044                        KTY    24          CONVERT RITE (BIASI)                        FC5A281    46
                                         .T       IFEQ   TEST,ON,1                                               LIST     1237
           720  0333400720 +                      MI     X3,"BLOWUP" RITE SHOULD NEVER BE .LT. 0                 LIST     1238
                          7110000056              SX1    1R,                                                     LIST     1239
           721  12661                             BX6    X6+X1                                                   LIST     1240
                     20666                        LX6    -CHAR                                                   LIST     1241
                          54661                   SA6    A6+B1       (WCA.10+3) = , BIASI                        LIST     1242
           722  5120001352 +                      SA2    =2LRH                                                   LIST     1243
                          10722                   BX7    X2                                                      LIST     1244
           723  5170000731 +                      SA7    WCA.10      (WCA.10) = 'RH'                             LIST     1245
                          0400000706 +            EQ     WCA80                                                   LIST     1246
                                                                                                                 LIST     1247
           724  5110001351 +             WCA95    SA1    =1L,                                                    LIST     1248
                          43600                   MX6    0                                                       LIST     1249
                               10711              BX7    X1                                                      LIST     1250
           725  5170000734 +                      SA7    WCA.10+3    (WCA.10+3) = COMMA                          LIST     1251
                          5160000000 +            SA6    SAVFP       (SAVFP) = 0                                 LIST     1252
           726  0400000706 +                      EQ     WCA80                                                   LIST     1253
                                                                                                                 LIST     1254
           727  00000001201455555555     APLAB    DATA   7RAPL                                                   LIST     1255
           730  00000014012055555555              DATA   7RLAP                                                   LIST     1256
                                                                                                                 LIST     1257
           731                     1     WCA.10   BSS    1           +0    (LCM,FP,MODE)                         LIST     1258
           732  56000000000000000000              DATA   1L,                                                     LIST     1259
           733                     2              BSS    2           +2    TAG+BIAS                              LIST     1260
           735  56000000000000000000              DATA   1L,                                                     LIST     1261
           736  00000000000000000000              DATA   0           +5    BCP                                   LIST     1262
           737  56000000000000000000              DATA   1L,                                                     LIST     1263
           740                     1              BSS    1           +7    CLEN                                  LIST     1264
           741  00000000000000000000              DATA   0                                                       LIST     1265
           742  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
           743  0400400743 +             WCC      SUBR   0           ENTRY/EXIT...                               LIST     1280
           744  5035000000 X                      SA3    A5+N.TABLE                                              LIST     1281
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    31
        OBJECT LISTING SUPPORTING ROUTINES.                           WCC 
  
                          5120000000 X            SA2    T.SYM                                                   LIST     1282
           745  0303000743 +                      ZR     X3,EXIT.    IF (TABLE) EMPTY                            LIST     1283
                          22611                   LX6    X1,B1                                                   LIST     1284
                               53550              SA5    X5          (CI, VI) = FIRST CONSTANT                   LIST     1285
           746  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
           747  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
           750  0100000000 X                      CALL   ZTB         ZEROES TO BLANKS                            LIST     1295
                                                  LX4    -WC.RAP                                                 LIST     1296
           751  43244                             MX2    -WC.RAL                                                 LIST     1297
                     15742                        BX7    -X2*X4      (WCCF) = ORGA = OBJECT ORIGIN               LIST     1298
                          74100                   SX1    A0                                                      LIST     1299
           752  5170001005 +                      SA7    WCCF                                                    LIST     1300
                          36717                   IX7    X1+X7       ORGLAST = ORGA + LENT                       LIST     1301
                               54771              SA7    A7+B1                                                   LIST     1302
                                                                                                                 LIST     1303
           753  20666                    WCC20    LX6    -CHAR                                                   LIST     1304
                     5160000775 +                 SA6    CC3         (CC3) = LABEL                               LIST     1305
           754  5110001005 +                      SA1    WCCF                                                    LIST     1306
                          73711                   SX7    X1+B1       ORGA = ORGA + 1                             LIST     1307
                               54710              SA7    A1                                                      LIST     1308
           755  0100000000 X                      PIA    ,LINEBUF    CONVERT ADDRESS TO DISPLAY                  LIST     1309
                          10155                   BX1    X5                                                      LIST     1310
                               55661              SA6    A6-B1                                                   FC5A182     5
           757  64551                             SB5    A5+B1                                                   LIST     1319
                                         .T       IFEQ   TEST,OFF,1                                              FC50226     9
                                                  SA5    =H/ /                                                   FC50226    10
                     10755                        BX7    X5                                                      FC50226    11
                          5170001002 +            SA7    CC8                                                     FC50226    12
           760  0100000000 X                      CALL   WOD         CONVERT CONST TO DPC                        LIST     1321
           761  56550                             SA5    B5                                                      LIST     1322
                     5160000777 +                 SA6    CC5         (CC5)  = ABCDEFGHIJ                         LIST     1323
                               54761              =A7    A6+1        (CC5+1) = KLMNOPQRST                        LIST     1324
           762  5160000772 +                      SA6    CC0                                                     LIST     1325
                          54761                   =A7    A6+1                                                    LIST     1326
           763  5110001003 +                      SA1    WCCB        LENGTH OF PRINT LINE                        LIST     1327
                          54211                   =A2    A1+1        FWA OF PRINT BUFFER                         LIST     1328
           764  7130000001 X                      MOVE   X1,X2,LINEBUF+1                                         LIST     1329
           765  5120001003 +                      SA2    WCCB                                                    LIST     1330
                          7110000000 X            PLINE  LINEBUF,X2+B1     PRINT THE LINE                        LIST     1331
           767  5120001005 +                      SA2    WCCF                                                    FC5A182     6
                          54321                   SA3    A2+B1                                                   LIST     1333
           770  5110001325 +                      SA1    =H/ /                                                   LIST     1334
                          37723                   IX7    X2-X3       MORE = ORGA .LT. ORGLAST                    LIST     1335
                               10611              BX6    X1                                                      LIST     1336
           771  0337000753 +                      MI     X7,WCC20    IF MORE CONSTANTS                           LIST     1337
                          0400000743 +            EQ     EXIT.                                                   LIST     1338
                                                                                                                 LIST     1339
           772  55555555555555555555     CC0      DIS    3,                                                      LIST     1340
           775  55140102051457555555     CC3      DIS    1, LABEL.                                               LIST     1341
           776  03171655555555555555              DIS    1,CON                                                   LIST     1342
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    32
        OBJECT LISTING SUPPORTING ROUTINES.                           WCC 
  
           777  34353637404142434433     CC5      DIS    3,12345678901234567890B                                 LIST     1343
          1002  55042003552601145555     CC8      DIS    1, DPC VAL                                              LIST     1344
                                                                                                                 LIST     1345
          1003                     2     WCCB     BSS    2           LENGTH OF PRINT LINE (PW VS NONPW) AND FWA  LIST     1346
          1005                     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
          1007  0400401007 +             WCF      SUBR               ENTRY/EXIT...                               LIST     1355
          1010  5120000000 X                      SA2    T=FMT                                                   LIST     1356
                          0302001007 +            ZR     X2,EXIT.    IF END OF T.FMT                             LIST     1357
          1011  5130000000 X                      SA3    T.FMT                                                   LIST     1358
                          53530                   SA5    X3          FETCH 1ST FORMAT                            LIST     1359
                               53020              SA0    X2          A0 = LENGTH OF TABLE.                       LIST     1360
          1012  66400                             SB4    B0                                                      LIST     1361
                                                                                                                 LIST     1362
                                        *         PROCESS 1ST WORD - STATEMENT NUMBER.                           LIST     1363
                                                                                                                 LIST     1364
          1013  5120001034 +             WCF10    SA2    WCFC                                                    LIST     1365
                          43036                   MX0    WA.STLL                                                 LIST     1366
                               11105              BX1    X0*X5                                                   LIST     1367
          1014  20166                             LX1    9*CHAR                                                  LIST     1368
                     12621                        BX6    X2+X1                                                   LIST     1369
                          5160000775 +            SA6    CC3         (CC3) = TAG                                 LIST     1370
                                                                                                                 LIST     1371
                                        *         PROCESS CONTENTS OF FORMAT.                                    LIST     1372
                                                                                                                 LIST     1373
          1015  10655                    WCF20    BX6    X5                                                      LIST     1374
                     64550                        SB5    A5                                                      LIST     1375
                          5160001002 +            SA6    CC8         +6 = DPC ECHO OF CON                        LIST     1376
          1016  10155                             BX1    X5                                                      LIST     1377
                     0100000000 X                 CALL   WOD         CONVERT CONTENTS OF WORD TO OCTAL           LIST     1378
          1017  56551                             SA5    B5+B1                                                   LIST     1379
                     5140000003 X                 SA4    BN=FMT+F.LBT                                            LIST     1380
          1020  5160000777 +                      SA6    CC5         (CC5)  = ABCDEFGHIJ                         LIST     1381
                          54761                   SA7    A6+B1       (CC5+1) = KLMNOPQRST                        LIST     1382
          1021  5160000772 +                      SA6    CC0                                                     LIST     1383
                          54761                   SA7    A6+B1                                                   LIST     1384
                               73144              SX1    B4+X4                                                   LIST     1385
          1022  0100000000 X                      PIA    ,LINEBUF    CONVERT ADDRESS TO DPC                      LIST     1386
                          5110001003 +            SA1    WCCB        LENGTH OF PRINT LINE                        LIST     1387
          1024  54211                             SA2    A1+B1       FWA OF BUFFER                               LIST     1388
                     7130000001 X                 MOVE   X1,X2,LINEBUF+1                                         LIST     1389
          1026  5120001003 +                      SA2    WCCB                                                    LIST     1390
                          7110000000 X            PLINE  LINEBUF,X2+B1                                           LIST     1391
          1030  5110001325 +                      SA1    =1H                                                     LIST     1392
                          43060                   MX0    8*CHAR                                                  LIST     1393
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    33
        OBJECT LISTING SUPPORTING ROUTINES.                           WCF 
  
                               10611              BX6    X1                                                      LIST     1394
          1031  15350                             BX3    -X0*X5                                                  LIST     1395
                     5160000775 +                 SA6    CC3         CLEAR TAG WORD                              LIST     1396
                               66441              SB4    B4+B1                                                   LIST     1397
          1032  64300                             SB3    A0                                                      LIST     1398
                     0443001007 +                 EQ     B4,B3,EXIT. IF NO MORE FORMATS                          LIST     1399
          1033  0313001015 +                      NZ     X3,WCF20    IF MORE IN CURRENT FORMAT.                  LIST     1400
                          0400001013 +            EQ     WCF10       CONTINUE                                    LIST     1401
                                                                                                                 LIST     1402
          1034  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
          1035  0400401035 +             WCL      SUBR   0           ENTRY/EXIT...                               LIST     1415
          1036  74100                             SX1    A0                                                      LIST     1416
                     0100000000 X                 PIA    ,LINEBUF                                                LIST     1417
                          5110000000 X            SA1    S=CL                                                    LIST     1418
          1040  20136                             LX1    PB.TAGP                                                 LIST     1419
                     0100000446 +                 RJ     PBS         PRINT  * CL.  BSS    0*                     LIST     1420
          1041  5110000000 X                      SA1    T.CLW                                                   LIST     1421
                          5120000000 X            SA2    T=CLW                                                   LIST     1422
          1042  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
          1043  0300001035 +             WCL10    ZR     X0,EXIT.    IF END OF T.CLW                             LIST     1428
                          5140000000 X            SA4    T.CLWB                                                  FC5A219    39
          1044  73641                             =X6    X4+1                                                    LIST     1430
                     74100                        SX1    A0                                                      LIST     1431
                          54640                   SA6    A4          FWA(T.SCR) = FWA(T.SCR) + 1                 LIST     1432
          1045  0100000000 X                      PIA    ,LINEBUF    CONVERT ORGA                                LIST     1433
                          53140                   SA1    X4                                                      LIST     1434
                               64350              SB3    A5          SAVE (B3) = A5                              LIST     1435
          1047  63400                             SB4    X0          SAVE (B4) = (X0)                            LIST     1436
                     0100000000 X                 CALL   WOD         CONVERT BINARY TO DPC                       LIST     1437
          1050  5160000001 X                      SA6    LINEBUF+1                                               LIST     1438
                          54761                   =A7    A6+1                                                    LIST     1439
                               76040              SX0    B4          RESTORE (X0)                                LIST     1440
          1051  5153000002                        SA5    B3+Z=IOA    CLI = CLI + (Z=IOA)                         LIST     1441
                          0100001112 +            RJ     WIO         PRINT THE LIST                              LIST     1442
          1052  54001                             =A0    A0+1        ORGA = ORGA + 1                             LIST     1443
                     7200777775                   SX0    X0-Z=IOA    LEN = LEN - Z=IOA                           LIST     1444
          1053  0400001043 +                      EQ     WCL10                                                   LIST     1445
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    34
        OBJECT LISTING SUPPORTING ROUTINES.                           WCS 
  
                                        **        WCS - LIST BLOCK STATISTICS.                                   LIST     1447
                                        *                                                                        LIST     1448
                                        *         CALLS  PLINE,PIA                                               LIST     1449
                                                                                                                 LIST     1450
                                                                                                                 LIST     1451
          1054  0400401054 +             WCS      SUBR               ENTRY/EXIT...                               LIST     1452
          1055  5110000000 X                      SA1    CO.PS       FETCH PAGE SIZE                             FC5A107    23
                          7140000003              SX4    3                                                       LIST     1454
          1056  7160001107 +                      SX6    WCSB                                                    LIST     1455
                          20436                   LX4    30                                                      LIST     1456
                               12746              BX7    X4+X6       SET SUBTITLE = 'OBJECT LISTING'             LIST     1457
          1057  7231777776                        =X3    X1-1        TO AVOID A DOUBLE EJECT                     LIST     1458
                          5170000000 X            SA7    O.STITL                                                 LIST     1459
          1060  7110001103 +                      PLINE  WCSA,4,X3   PRINT TABLE HEADING                         LIST     1460
          1062  5110001325 +                      SA1    =10H                                                    LIST     1461
                          10611                   BX6    X1                                                      LIST     1462
                               56000              SA0    B0          BLKI = 0                                    LIST     1463
          1063  5160000000 X                      SA6    LINEBUF                                                 LIST     1464
          1064  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
          1065  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
          1067  0100000000 X                      PIA    ,A6+B1      (LINEBUF+3) = BLOCK LENGTH                  LIST     1471
                     5020001307 +                 SA2    A0+TLBN     FETCH BLOCK NAME                            LIST     1472
                               10722              BX7    X2                                                      LIST     1473
          1071  5170000001 X                      SA7    LINEBUF+1                                               LIST     1474
                          54001                   SA0    A0+B1       BLKI = BLKI + 1                             LIST     1475
                               75171              PLINE  A7-B1,4                                                 LIST     1476
          1074  6020777763                        SB2    A0-Z.LBT                                                LIST     1477
                          0720001064 +            MI     B2,WCS30    IF MORE BLOCKS TO PRINT                     LIST     1478
          1075  5110001325 +                      SA1    =10H                                                    LIST     1479
                          10611                   BX6    X1                                                      LIST     1480
          1076  5160000001 X                      SETMEM LINEBUF+1,4,X6    BLANK FILL LINEBUF 4 WORDS            LIST     1481
          1100  76100                             PLINE  B0,B0,1     SPACE 1                                     LIST     1482
          1102  0400001054 +                      EQ     EXIT.                                                   LIST     1483
                                                                                                                 LIST     1484
          1103  55555555555555555555     WCSA     DIS    4,          BLOCK      ADDRESS    LENGTH                LIST     1485
          1107  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/05. 20.00.41.      PAGE    35
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                                        *                            ROUTINE, TERRIBLE THINGS WILL HAPPEN!       LIST     1498
                                        *                            (LIKE AN INFINITE LOOP?)                    LIST     1499
                                                                                                                 LIST     1500
                                                                                                                 LIST     1501
          1112  0400401112 +             WIO      SUBR   0           ENTRY/EXIT.                                 LIST     1502
          1113  76700                             =X7    0                                                       FC5A219    40
                     5170001226 +                 SA7    WIO.10+9    CLEAR BCP FIELD                             FC5A219    41
                               43466              MX4    -IA.MODEL                                               LIST     1503
          1114  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
          1115  0100000371 +                      RJ     KTX         CONVERT TAG TO DPC                          LIST     1508
          1116  5160001220 +                      SA6    WIO.10+3    (WIO.10+3) = TAG                            LIST     1509
                          76110                   =X1    1                                                       LIST     1510
                               20536              LX5    IA.TAGP-IA.MODEP                                        LIST     1511
          1117  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
          1120  0311001123 +                      NZ     X1,WIO10    IF CONTROL ITEM                             FC50236    10
                          5120000000 X            SA2    =XFCLMOD                                                LIST     1517
          1121  20602                             LX6    2                                                       LIST     1518
                     43770                        MX7    -4                                                      LIST     1519
                          63760                   SB7    X6                                                      LIST     1520
                               23272              AX2    B7                                                      LIST     1521
          1122  15627                             BX6    -X7*X2                                                  LIST     1522
                                                                                                                 FC50236    11
          1123  20660                    WIO10    LX6    OA.TYPP                                                 LIST     1523
                     12661                        BX6    X6+X1                                                   LIST     1524
                          0440001134 +            ZR     B4,WIO15    IF TAGI .EQ. 0                              FC50236    12
          1124  0301001132 +                      ZR     X1,WIO11    IF NOT CONTROL ITEM                         FC50236    13
                          10266                   BX2    X6                                                      FC50236    14
                               43366              MX3    -OA.TYPL                                                FC50236    15
          1125  20206                             HX2    OA.TYP                                                  FC50236    16
                     20206                        LX2    OA.TYPL                                                 FC50236    17
                          15223                   BX2    -X3*X2      EXTRACT CONTROL CODE                        FC50236    18
          1126  7232777776                        SX3    X2-IC.UNT                                               FC50236    19
                          0303001133 +            ZR     X3,WIO12    IF UNIT                                     FC50236    20
          1127  7232777771                        SX3    X2-IC.REC                                               FC50236    21
                          0303001133 +            ZR     X3,WIO12    IF RECORD LENGTH                            FC50236    22
          1130  7232777772                        SX3    X2-IC.IOS                                               FC50236    23
                          0303001133 +            ZR     X3,WIO12    IF I/O STATUS                               FC50236    24
          1131  0400001134 +                      EQ     WIO15       NO OTHER CONTROL ITEM GETS OA.VAR           FC50236    25
                                                                                                                 FC50236    26
          1132  10255                    WIO11    BX2    X5                                                      FC50236    27
                     20205                        LX2    IA.IOCP-IA.VARP-IA.VARL                                 FC50236    28
                          0332001134 +            MI     X2,WIO15    IF IA.VAR (LOOP INDICATOR)                  FC50236    29
                                                                                                                 FC50236    30
          1133  43201                    WIO12    CLAS=  X2,OA,(VAR)                                             FC50236    31
                          12662                   BX6    X6+X2       ADD IN VAR BIT                              LIST     1527
                                                                                                                 LIST     1528
          1134  43756                    WIO15    MX7    -PB.ORDL                                                LIST     1529
                     76240                        SX2    B4                                                      LIST     1530
                          11372                   BX3    X7*X2       PFXI = PFX[TAGI]                            LIST     1531
          1135  0313001141 +                      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/05. 20.00.41.      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
          1136  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
          1137  43301                             CLAS=  X3,WB,(LCM)                                             LIST     1540
                          43701                   MX7    1                                                       LIST     1541
                               11332              BX3    X3*X2       LCMI = LCM[WBI]                             LIST     1542
          1140  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
          1141  5160001216 +             WIO20    SA6    WIO.10+1    (WIO.10+1) = (LCM,LST,TYPE)[OA.]            LIST     1546
                                                  LX5    IA.IOCP-1-IA.STP                                        LIST     1548
                          0325001144 +            PL     X5,WIO25    IF NOT ST                                   LIST     1549
          1142  5110001351 +                      SA1    =1L,                                                    LIST     1550
                          10611                   BX6    X1                                                      LIST     1551
                               14555              BX5    -X5         SET (X5) = 0 SO THAT (WIO.10+5) = 0         LIST     1552
          1143  0400001172 +                      EQ     WIO50       WILL BE SET ALSO                            LIST     1553
                                                                                                                 LIST     1554
          1144  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
          1145  0335001154 +                      MI     X5,WIO30    IF CHARACTER                                LIST     1559
                          0322001167 +            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
          1146  5110001216 +                      SA1    WIO.10+1                                                LIST     1565
                          43401                   MX4    1                                                       LIST     1566
                               11442              BX4    X4*X2       FPI = FP[WBI]                               LIST     1567
          1147  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
          1150  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
          1152  5160001220 +                      SA6    WIO.10+3    (WIO.10+3) = BIASI                          LIST     1575
                          7234777776              =X3    X4-1        FPNOI = FPNOI - 1                           LIST     1576
          1153  0400001167 +                      EQ     WIO40                                                   LIST     1577
                                                                                                                 LIST     1578
                                        *         HANDLE CHARACTER APLIST.                                       LIST     1579
                                        *         (X2) = WBI HIGH SHIFTED TO WB.FP                               LIST     1580
                                                                                                                 LIST     1581
          1154  0332401154 +             WIO30    MI     X2,"BLOWUP" CHARACTER F.P. NOT ALLOWED                  LIST     1582
                          5110000000 X            SA1    T.CAC                                                   LIST     1583
          1155  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
          1156  15347                             BX3    -X7*X4      BCPI = BCP[IO1]                             LIST     1588
                     6120000052                   KTY                CONVERT BCPI                                FC5A281    48
          1160  20466                             LX4    WC.BCPP-WC.CLENP                                        LIST     1590
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    37
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                     43752                        MX7    -WC.CLENL                                               LIST     1591
                          15347                   BX3    -X7*X4      CLENI = CLEN[IO1]                           LIST     1592
          1161  5160001226 +                      SA6    WIO.10+9    (WIO.10+9) = BCP                            LIST     1593
                          20436                   LX4    WC.CLENP-WC.RAP                                         LIST     1594
          1162  6120000052                        KTY                CONVERT CLEN                                FC5A281    49
          1163  5110001353 +                      SA1    =1R+                                                    LIST     1596
                          7170000033              SX7    1R0                                                     LIST     1597
          1164  12661                             BX6    X6+X1                                                   LIST     1598
                     20666                        LX6    -CHAR                                                   LIST     1599
                          20766                   LX7    -CHAR                                                   LIST     1600
          1165  5160001224 +                      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
          1166  15341                             BX3    -X1*X4      BIASI = RA[CACI], TRUNCATED TO IA.BIASL     LIST     1604
                                                                                                                 LIST     1605
          1167  6120000044               WIO40    KTY    24          CONVERT BIAS                                FC5A281    50
          1170  0333001172 +                      MI     X3,WIO50    IF NEGATIVE BIAS                            LIST     1607
                          5110001353 +            SA1    =1R+                                                    LIST     1608
          1171  36661                             IX6    X6+X1                                                   LIST     1609
                     20666                        LX6    -CHAR                                                   LIST     1610
                                                                                                                 LIST     1611
                                        *         PROCESS IO2.                                                   LIST     1612
                                                                                                                 LIST     1613
          1172  5160001221 +             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
          1173  0335001174 +                      MI     X5,WIO55    IF CHARACTER                                LIST     1617
                          54761                   SA7    A6+B1       (WIO.10+5) = 0 TERMINATOR                   LIST     1618
                                                                                                                 FC50236    33
          1174  0304001207 +             WIO55    ZR     X4,WIO70    IF IO2 .EQ. 0                               LIST     1619
                          43752                   MX7    -IA.TAGL                                                LIST     1620
                               20422              LX4    -IA.TAGP                                                LIST     1621
          1175  15347                             BX3    -X7*X4      TAG2I = TAG[IO2]                            LIST     1622
                     5110001216 +                 SA1    WIO.10+1                                                LIST     1623
                               43201              CLAS=  X2,OA,(IND)                                             LIST     1624
                     0303001200 +                 ZR     X3,WIO58    IF TAG2I .EQ. 0                             LIST     1625
                               12612              BX6    X1+X2       ADD IN IND BIT                              LIST     1626
          1177  54610                             SA6    A1          IND[WIO.10+1] = 1                           LIST     1627
          1200  20430                    WIO58    LX4    IA.TAGP-IA.BIASP                                        LIST     1628
                     0100000371 +                 RJ     KTX         CONVERT LENGTH TAG                          LIST     1629
          1201  5160001223 +                      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
          1202  6120000044                        KTY    24          CONVERT LENGTH BIAS                         FC5A281    51
          1203  0333001205 +                      MI     X3,WIO60    IF BIAS IS NEGATIVE                         LIST     1634
                          5110001353 +            SA1    =1R+                                                    LIST     1635
          1204  12661                             BX6    X6+X1                                                   LIST     1636
                     20666                        LX6    -CHAR                                                   LIST     1637
                                                                                                                 FC50236    34
          1205  54661                    WIO60    SA6    A6+B1       (WIO.10+7) = BIASI                          LIST     1638
                     5110001351 +                 SA1    =1L,                                                    LIST     1639
                               10711              BX7    X1                                                      LIST     1640
          1206  5170001222 +                      SA7    WIO.10+5    (WIO.10+5) = COMMA                          LIST     1641
                                                                                                                 LIST     1642
          1207  5110001216 +             WIO70    SA1    WIO.10+1                                                LIST     1643
                          0100000440 +            RJ     KUB         CONVERT UPPER 12 BITS                       LIST     1644
          1210  54710                             SA7    A1                                                      LIST     1645
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    38
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                     5110001325 +                 SA1    =10H                                                    LIST     1646
          1211  5130001215 +                      SA3    WIO.10                                                  LIST     1647
                          10611                   BX6    X1                                                      LIST     1648
                               54231              SA2    A3+B1                                                   LIST     1649
          1212  0100000465 +                      RJ     PVF         PRINT THE LINE                              LIST     1650
          1213  5110001351 +                      SA1    =1L,                                                    LIST     1651
                          10611                   BX6    X1                                                      LIST     1652
          1214  5160001222 +                      SA6    WIO.10+5    (WIO.10+5) = COMMA                          LIST     1653
                          0400001112 +            EQ     EXIT.                                                   LIST     1654
                                                                                                                 LIST     1655
          1215  00000011171555555555     WIO.10   DATA   7RIOM                                                   LIST     1656
          1216                     1              BSS    1           +1    MODE                                  LIST     1657
          1217  56000000000000000000              DATA   1L,                                                     LIST     1658
          1220                     2              BSS    2           +3    TAG1 + BIAS1                          LIST     1659
          1222  56000000000000000000              DATA   1L,                                                     LIST     1660
          1223                     2              BSS    2           +6    TAG2 + BIAS2                          LIST     1661
          1225  56000000000000000000              DATA   1L,                                                     LIST     1662
          1226  00000000000000000000              DATA   0           +9    BCP                                   LIST     1663
          1227  00000000000000000000              DATA   0                                                       LIST     1664
                                                                                                                 LIST     1665
          1230  00000000000000200000     APTAG    CON    K.AP                                                    LIST     1666
          1231  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
          1232  0400401232 +             WLP      SUBR               ENTRY/EXIT.                                 LIST     1678
          1233  5150000000 X                      SA5    T.APL                                                   LIST     1679
                          5120000000 X            SA2    APLA                                                    LIST     1680
          1234  5130000000 X                      SA3    T=APL                                                   LIST     1681
                          43700                   MX7    0                                                       LIST     1682
                               36252              IX2    X5+X2                                                   LIST     1683
          1235  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
          1236  0305001232 +             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/05. 20.00.41.      PAGE    39
        OBJECT LISTING SUPPORTING ROUTINES.                           WLP 
  
          1237  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
          1240  15356                             BX3    -X6*X5      TAGI = TAG[LCI]                             LIST     1704
                     0100000371 +                 RJ     KTX         CONVERT TAG                                 LIST     1705
          1241  5160000001 +                      SA6    PIK=TAG                                                 LIST     1706
                          10344                   BX3    X4                                                      LIST     1707
          1242  6120000044                        KTY    24          CONVERT BIAS                                FC5A281    52
          1243  0333001245 +                      MI     X3,WLP20    IF BIAS .LT. 0                              LIST     1709
                          7110000045              SX1    1R+                                                     LIST     1710
          1244  12661                             BX6    X6+X1                                                   LIST     1711
                     20666                        LX6    -CHAR                                                   LIST     1712
          1245  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
          1247  7230400000                        =X3    X0+K.LC                                                 LIST     1718
                          15337                   BX3    -X7*X3      GET RID OF SIGN EXTENSION                   LIST     1719
          1250  0100000371 +                      RJ     KTX         CONVERT LCIND TO A LC.N TAG                 LIST     1720
          1251  10166                             BX1    X6                                                      LIST     1721
                     0100000000 X                 CALL   SFN         SPACE FILL                                  LIST     1722
          1252  20666                             LX6    -CHAR                                                   LIST     1723
                     5131000727 +                 SA3    B1+APLAB    *LAP*                                       LIST     1724
                               54551              =A5    A5+1        LCAD = LCAD + 1,  LCI = (LCAD)              LIST     1725
          1253  5120000001 +                      SA2    PIK=TAG                                                 LIST     1726
                          0100000465 +            RJ     PVF         PRINT  * LAP   TAG+BIAS*                    LIST     1727
          1254  5140000002 +                      SA4    PIK=TAG+1                                               LIST     1728
                          0100001256 +            RJ     WSM         WRITE SUB MACRO                             LIST     1729
          1255  0400001236 +                      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
          1256  0400401256 +             WSM      SUBR   0           ENTRY/EXIT.                                 LIST     1745
          1257  5110000000 +                      SA1    SAVFP                                                   LIST     1746
                          5130001351 +            SA3    =1L,                                                    LIST     1747
          1260  0301001256 +                      ZR     X1,EXIT.    IF *SUB* NOT NECESSARY                      LIST     1748
                          20466                   LX4    -CHAR                                                   LIST     1749
                               36743              IX7    X4+X3       PREFIX WITH (,)                             LIST     1750
          1261  54740                             SA7    A4                                                      LIST     1751
                     6221777776                   SB2    X1-1        FPNO-1 = T.FPI INDEX                        FC5A219    47
          1262  5110000000 X                      SA1    T.FPI                                                   FC5A219    48
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    40
        OBJECT LISTING SUPPORTING ROUTINES.                           WSM 
  
                          53212                   SA2    X1+B2       FETCH FPI ENTRY                             FC5A219    49
          1263  5110000000 X                      SA1    ORGSUB                                                  LIST     1752
                          43756                   MX7    -FP.SUBL                                                FC5A219    50
                               20230              LX2    -FP.SUBP                                                FC5A219    51
          1264  15227                             BX2    -X7*X2      EXTRACT THE SUB INDEX                       FC5A219    52
                     6222777776                   SB2    X2-1                                                    FC5A219    53
                               73112              SX1    X1+B2                                                   FC5A219    54
          1265  0100000000 X                      PIA    ,LINEBUF    CONVERT SUBORG TO DPC                       LIST     1755
                          5120000000 X            SA2    T.SUB                                                   FC5A219    55
          1267  53122                             SA1    X2+B2       FETCH SUB ENTRY                             FC5A219    56
                     6140000074                   SB4    60                                                      FC5A219    57
          1270  6150000074                        SB5    60                                                      FC5A219    58
                          0100000545 +            RJ     VFD         FORM SUB CALL DPC                           FC5A219    59
          1271  5130001354 +                      SA3    =1H+        TO INDICATE RELOCATION                      FC50629    20
                          5160000001 X            SA6    LINEBUF+1                                               FC5A219    61
          1272  22603                             LX6    X3                                                      FC5A219    62
                     54761                        =A7    A6+1                                                    FC5A219    63
                          54671                   =A6    A7+1                                                    FC5A219    64
          1273  5110001325 +                      SA1    =10H                                                    LIST     1756
                          10611                   BX6    X1                                                      LIST     1757
                               55241              =A2    A4-1                                                    LIST     1758
          1274  5130001355 +                      SA3    =7RSUB                                                  LIST     1759
                          0100000465 +            RJ     PVF         PRINT  *    SUB    TAG,BIAS*                LIST     1760
          1275  13777                             BX7    0                                                       LIST     1761
                     5170000000 +                 SA7    SAVFP       (SAVFP) = 0                                 LIST     1762
          1276  0400001256 +                      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
          1277  0400401277 +             ZWI      SUBR   0           ENTRY/EXIT...                               LIST     1777
                                                  IFEQ   TEST,ON,1                                               LIST     1778
          1300  0311401300 +                      NZ     X1,"BLOWUP"                                             LIST     1779
                          10733                   BX7    X3                                                      LIST     1780
          1301  7160007566                        SX6    2R0 &2R-0                                               LIST     1781
                          5120000000 X            SA2    OL=LBF                                                  LIST     1782
          1302  11316                             BX3    X1*X6       ERASE ALTER-MASK IF POSITIVE ZERO           LIST     1783
                     53720                        SA7    X2                                                      LIST     1784
                          20360                   LX3    -2*CHAR                                                 LIST     1785
          1303  5120001356 +                      SA2    =H/0 /                                                  LIST     1786
                          13623                   BX6    X2-X3       H/-0/  OR   H/0/                            LIST     1787
                               54671              SA6    A7+B1                                                   LIST     1788
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    41
        OBJECT LISTING SUPPORTING ROUTINES.                           ZWI 
  
          1304  6170777776 X                      SB7    LINEBUF-1                                               LIST     1789
                          7110000000 X            PLINE  LINEBUF,A6-B7                                           LIST     1790
          1306  0400001277 +                      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
          1307                           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
          1323                                    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.
  
          1323  56230000000000000000    ,S
          1324  46000000000000000000    - 
          1325  55555555555555555555
          1326  00000023250233555555       SUB0 
          1327  00000001040422555555       ADDR 
          1330  47555555555555555555    * 
          1331  55555555551411160555         LINE 
          1332  00000000000000000056             ,
          1333  00000003205555555555       CP 
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    42
        OBJECT LISTING SUPPORTING ROUTINES.                           LITERALS
  
          1334  00000005160455555555       END
          1335  05212516555555555555    EQUN
          1336  14010223555555000000    LABS
          1337  56061524000000000000    ,FMT
          1340  00000006260503555555       FVEC 
          1341  00000020141115555555       PLIM 
          1342  00000011040516245555       IDENT
          1343  00000011171555555555       IOM
          1344  00000003142755555555       CLW
          1345  00000023023311555555       SB0I 
          1346  00000023250211555555       SUBI 
          1347  00000025230555555555       USE
          1350  55555555555555555500
          1351  56000000000000000000    , 
          1352  22100000000000000000    RH
          1353  00000000000000000045             +
          1354  45555555555555555555    + 
          1355  00000023250255555555       SUB
          1356  33555555555555555555    0 
  
          1375                           FIN.OL   END                END OF (1,0) OVERLAY WHEN OLIST ON          LIST     1811
  
                             67700B CM  STORAGE USED             3541 STATEMENTS     1907 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.313 SECONDS         982 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       1/53 X   25/31
        APLA            0   EXTERNAL*       1/56 X    8/31     38/38
        APLAB         727   PROGRAM*       29/45     30/26 L   39/25
        APTAG        1230   PROGRAM*       26/28     38/21 L
        BN=APL          5                  25/18
        BN=FMT          3                  32/44
        B1=1            0 
        CC0           772   PROGRAM*        9/18     31/40 S   31/55 L   32/47 S
        CC3           775   PROGRAM*        9/21     31/24 S   31/56 L   32/34 S   33/03 S
        CC5           777   PROGRAM*       31/38 S   32/01 L   32/45 S
        CC8          1002   PROGRAM*       31/35 S   32/02 L   32/40 S
        CDD             0   EXTERNAL*       2/14 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/14 X   22/38
        CON.10        174   PROGRAM*        9/19      9/22 L
        CO.LL           0   EXTERNAL*      12/27
        CO.OPT          0   EXTERNAL*       2/03 X   11/17
        CO.PS           0   EXTERNAL*       2/03 X   34/07
        CO.PW           0   EXTERNAL*       2/03 X    9/15
        DH.RAL         30   FTX            28/43     28/44
        DH.RAP          6   FTX            28/43
        DMT=            0   EXTERNAL*       2/14 X   10/17     14/07
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        EQUN.10       233   PROGRAM*       10/57 L
        FAPSUD          0   EXTERNAL*       1/56 X    4/29
        FCLMOD          0   EXTERNAL*      35/22
        FIN.OL       1375   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       263   PROGRAM*       12/01     12/12 L
        FVEC.20       265   PROGRAM*       12/17 L   12/35
        F.LBT           0   EXTERNAL*       2/06 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/06 X   10/28     12/42     15/31
        KTX           371   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          422   PROGRAM*       17/33     18/36 L
        KTX10         376   PROGRAM*       17/27 L   17/32
        KTX20         402   PROGRAM*       17/13     17/45 L
        KTX30         410   PROGRAM*       18/03     18/08 L
        KTX40         414   PROGRAM*       17/53     18/20 L
        KTX50         415   PROGRAM*       18/23 L   18/25
        KTX60         420   PROGRAM*       17/10     18/31 L
        KTY           427   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          433   PROGRAM*       19/26     19/29 L   19/34
        KUB           440   PROGRAM*       19/57 L   29/42     37/56
        KUB10         443   PROGRAM*       20/06 L   20/12
        K=AP            2   FTX            18/40 L
        K=END           5   FTX            17/23     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/05. 20.00.41.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        LB.ORGP         0   FTX            34/23
        LINEBUF         0   EXTERNAL*       2/06 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
        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        217   PROGRAM*       10/24 L   10/24 E
        LI=EQUN       225   PROGRAM*       10/43 L   10/43 E
        LI=FLA        247   PROGRAM*       11/31 L   11/31 E
        LI=FMT        240   PROGRAM*       11/15 L   11/15 E
        LI=FVEC       256   PROGRAM*       11/52 L   11/52 E
        LI=IDNT       276   PROGRAM*       12/40 L   12/40 E
        LI=IOM        305   PROGRAM*       13/01 L   13/01 E
        LI=JPI        315   PROGRAM*       13/22 L   13/22 E
        LI=LCC        320   PROGRAM*       13/39 L   13/39 E
        LI=LD0        321   PROGRAM*       13/45 L   13/45 E
        LI=LOO        136   PROGRAM*        7/51 L    7/51 E
        LI=NLST       322   PROGRAM*       14/01 L   14/01 E
        LI=OTR        136   PROGRAM*        7/48 L    7/48 E
        LI=PLIM       272   PROGRAM*       12/26 L   12/26 E
        LI=RJ3        326   PROGRAM*       14/14 L   14/14 E
        LI=RJ6        327   PROGRAM*       14/21 L   14/21 E
        LI=SB0I       334   PROGRAM*       14/36 L   14/36 E
        LI=ST0        321   PROGRAM*       13/46 L   13/46 E
        LI=SUBI       335   PROGRAM*       14/43 L   14/43 E
        LI=TRAC       357   PROGRAM*       15/30 L   15/30 E
        LI=UJP        344   PROGRAM*       15/01 L   15/01 E
        LI=USE        345   PROGRAM*       15/08 L   15/08 E
        LI=ZERO       366   PROGRAM*       16/01 L   16/01 E
        MOD             0   EXTERNAL*       2/06 X   10/27
        MO.PROP        11   FTX            10/29
        MVE=            0   EXTERNAL*       2/14 X   31/44     32/53
        N.TABLE         0   EXTERNAL*       2/06 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/56 X   11/38     22/14
        OL=LBF          0   EXTERNAL*       1/56 X    5/48      8/47     10/57     21/10     22/27     40/51
        OL=PB           0   EXTERNAL*       1/56 X    4/24 S
        OL=RL           0   EXTERNAL*       1/56 X   11/25 S   12/47 S   15/37 S   20/47 S   22/08     22/16
        ORGSUB          0   EXTERNAL*       1/56 X   40/02
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        O.STITL         0   EXTERNAL*       2/06 X   34/13 S
        PBS           446   PROGRAM*        9/08     11/23     20/28 L   26/41     33/31
        PBSA          462   PROGRAM*       20/36 S   20/52 L
        PBS10         456   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         501   PROGRAM*       21/16     21/38 L
        PIA             0   EXTERNAL*       2/06 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/06 X    6/01
        PIK=PI          0   EXTERNAL*       2/07 X   14/28
        PIK=PS          0   EXTERNAL*       2/07 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/07 X    5/53      6/09
        PLL           505   PROGRAM*       11/46     15/38     20/49     22/07 L
        PLL5          512   PROGRAM*       22/13     22/16 L
        PLL6          516   PROGRAM*       22/22     22/24 L
        PLL8          525   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           465   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         471   PROGRAM*       21/17 L   21/32
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        PVF20         472   PROGRAM*       21/20 L   21/29
        PVF30         475   PROGRAM*       21/25     21/29 L
        PVS           530   PROGRAM*       22/33     22/57 L
        PVS10         533   PROGRAM*       23/05 L   23/22
        PVS20         534   PROGRAM*       23/08 L   23/18     23/19
        PVS30         540   PROGRAM*       23/14     23/18 L
        P=PFX          17   FTX            17/20
        RADC            0   EXTERNAL*       1/56 X    4/20
        RJ6.10        330   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/14 X   10/54     12/19     20/43     39/23
        SST             0   EXTERNAL*       2/14 X   26/07
        SUBI.10       336   PROGRAM*        7/33     14/38     14/45 L
        SUM.LBT         0   EXTERNAL*       2/08 X   10/44
        S=CL            0   EXTERNAL*       2/08 X   33/29
        S=CON           0   EXTERNAL*       2/08 X    9/24
        S=LA            0   EXTERNAL*       2/08 X   11/20
        S=LENP          0   EXTERNAL*       2/08 X   10/46
        S=RD            0   EXTERNAL*       2/08 X   28/37
        TAGSUB0         0   EXTERNAL*       1/57 X    7/29
        TEST            1   FTX            10/16 F   14/06 F   17/22 F   29/57 F   30/08 F   31/32 F   40/47 F
        TLBN         1307   PROGRAM*       15/11     34/26     41/16 L
        TRAC.A        364   PROGRAM*       15/36     15/41 L
        T=API           0   EXTERNAL*       2/08 X   25/29
        T=APL           0   EXTERNAL*       2/08 X   38/39
        T=CLW           0   EXTERNAL*       2/08 X   33/33
        T=DATS          0   EXTERNAL*       2/09 X   10/14
        T=DIM           0   EXTERNAL*       2/09 X   14/02
        T=FMT           0   EXTERNAL*       2/09 X   32/20
        T=IOA           0   EXTERNAL*       2/09 X   13/11
        T=LA            0   EXTERNAL*       2/09 X   11/18
        T=NLST          0   EXTERNAL*       2/09 X   14/04
        T=SCR           0   EXTERNAL*       2/09 X   25/30     25/30 S   26/15
        T.API           0   EXTERNAL*       2/09 X   25/32
        T.APL           0   EXTERNAL*       2/09 X   25/38     38/37
        T.CAC           0   EXTERNAL*       2/10 X   29/09     36/50
        T.CLW           0   EXTERNAL*       2/10 X   33/32
        T.CLWB          0   EXTERNAL*       2/11 X   33/40
        T.CON           0   EXTERNAL*       2/10 X    9/25
        T.DIM           0   EXTERNAL*       2/10 X   28/38
        T.FMT           0   EXTERNAL*       2/10 X   32/22
        T.FPI           0   EXTERNAL*       2/11 X   39/57
        T.PTXTR         0   EXTERNAL*       2/10 X   26/49
        T.SCR           0   EXTERNAL*       2/10 X   25/31     26/14
        T.SUB           0   EXTERNAL*       2/11 X   40/09
        T.SYM           0   EXTERNAL*       2/10 X    9/46     11/54     28/09     36/04
                                            8/03     10/49     17/45     31/01
        USE.10        353   PROGRAM*       15/22 L
        VFD           545   PROGRAM*       24/10 L   24/10 E   40/13
        VFD2          552   PROGRAM*       24/17     24/24 L
        VFD3          553   PROGRAM*       24/30 L   24/41     24/49
        VFD4          556   PROGRAM*       24/36     24/39 L
        WAP           561   PROGRAM*        8/32     13/12     25/17 L
        WAPA          635   PROGRAM*       26/40 S   26/42     27/14     27/27 L
        WAP10         574   PROGRAM*       25/47 L   26/01
        WAP20         600   PROGRAM*       25/49     26/05 L
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        WAP30         601   PROGRAM*       26/14 L   26/44     27/25
        WAP40         615   PROGRAM*       26/49 L   27/24
        WAP50         626   PROGRAM*       27/06     27/11 L
        WAP90         627   PROGRAM*       27/09     27/14 L
        WAP.RJ        626   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           640   PROGRAM*       27/28     27/44 L
        WCA15         653   PROGRAM*       28/07     28/21 L
        WCA20         662   PROGRAM*       28/31     28/49 L
        WCA35         671   PROGRAM*       28/49     29/09 L
        WCA40         702   PROGRAM*       28/41     28/45     29/07     29/34 L
        WCA60         705   PROGRAM*       29/35     29/39 L
        WCA80         706   PROGRAM*       29/41 L   30/17     30/24
        WCA90         714   PROGRAM*       27/54     29/55 L
        WCA95         724   PROGRAM*       28/27     30/19 L
        WCA.RJ        636   PROGRAM*        8/30     27/28 L
        WCA.10        731   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           743   PROGRAM*        9/26     30/56 L
        WCCB         1003   PROGRAM*        9/22 S   31/42     31/45     32/04 L   32/51     32/54
        WCCF         1005   PROGRAM*       31/19 S   31/25     31/47     32/05 L
        WCC20         753   PROGRAM*       31/23 L   31/52
        WCF          1007   PROGRAM*       11/16     32/19 L
        WCFC         1034   PROGRAM*       32/29     33/10 L
        WCF10        1013   PROGRAM*       32/29 L   33/08
        WCF20        1015   PROGRAM*       32/38 L   33/07
        WCL          1035   PROGRAM*       13/16     33/26 L
        WCL10        1043   PROGRAM*       33/39 L   33/56
        WCS          1054   PROGRAM*       12/41     34/06 L
        WCSA         1103   PROGRAM*       34/14     34/39 L
        WCSB         1107   PROGRAM*       34/09     34/40 L
        WCS30        1064   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          1112   PROGRAM*       27/29     33/53     35/05 L
        WIO10        1123   PROGRAM*       35/21     35/29 L
        WIO11        1132   PROGRAM*       35/32     35/46 L
        WIO12        1133   PROGRAM*       35/39     35/41     35/43     35/50 L
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/05. 20.00.41.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        WIO15        1134   PROGRAM*       35/31     35/44     35/48     35/53 L
        WIO20        1141   PROGRAM*       35/56     36/14 L
        WIO25        1144   PROGRAM*       36/16     36/22 L
        WIO30        1154   PROGRAM*       36/26     36/49 L
        WIO40        1167   PROGRAM*       36/27     36/44     37/16 L
        WIO50        1172   PROGRAM*       36/20     37/17     37/24 L
        WIO55        1174   PROGRAM*       37/27     37/30 L
        WIO58        1200   PROGRAM*       37/36     37/39 L
        WIO60        1205   PROGRAM*       37/45     37/50 L
        WIO70        1207   PROGRAM*       37/30     37/55 L
        WIO.RJ        637   PROGRAM*       13/10     27/29 L
        WIO.10       1215   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          1232   PROGRAM*        8/33     38/36 L
        WLP10        1236   PROGRAM*       38/55 L   39/31
        WLP20        1245   PROGRAM*       39/10     39/14 L
        WOD             0   EXTERNAL*       2/14 X   22/15     26/55     31/36     32/42     33/48
        WOF             0   EXTERNAL*       2/10 X    9/01     21/41     31/46     34/14     34/36
                                            7/28     11/05     22/41     32/55     34/30     41/02
        WSM          1256   PROGRAM*        7/35     29/50     39/30     39/49 L
        ZTB             0   EXTERNAL*       2/14 X   15/32     31/14
        ZWI          1277   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/05. 20.00.43.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1417              IDENT  CCGC 
                       1417                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1402 
                                        LITERALS* LOCAL        1402         2 
                                        DEBUG     LOCAL        1404        13 
  
  
                                        ENTRY POINTS. 
  
                                        B=CCGC           0+           HO$OPT          23+           WTE            163+ 
                                        F$STITL          0+           N.ALTEN         24+           ITS            420+ 
                                        N$STITL         14+           CCGC            25+           PSTAB          371+ 
                                        CC$FT           15+           FA=LOL         114+           WINOC          325+ 
                                        CC$SUB          16+           HE$ABT         120+           OTC            463+ 
                                        CC$SUB0         17+           HE$CTX         122+           ISA            755+ 
                                        HO$DC           20+           HE$EPX         122+           BR$AFT        1270+ 
                                        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/05. 20.00.43.      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/05. 20.00.43.      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  0100000463 +             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/05. 20.00.43.      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/05. 20.00.43.      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/05. 20.00.43.      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/05. 20.00.43.      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/05. 20.00.43.      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  5170000373 +                      SA7    WINB                                                    COMFWIN    29
                          10633                   BX6    X3                                                      COMFWIN    30
                               43700              MX7    0                                                       COMFWIN    31
           164  54771                             =A7    A7+1                                                    COMFWIN    32
                     5160000375 +                 SA6    WINC                                                    COMFWIN    33
           165  0400000241 +                      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
                     5160000375 +                 SA6    WINC        SAVE X3                                     COMFWIN    42
                               43014              MX0    PB.GHIJL                                                COMFWIN    43
           167  5170000373 +                      SA7    WINB        SAVE (X7)                                   COMFWIN    44
                                                                                                                 COMFWIN    45
                                         .SNAP=W  IFEQ   TEST,ON                                                 COMFWIN    46
                          5130000000 X            SA3    =XCO.SNAP                                               COMFWIN    47
           170  20327                             LX3    1RW                                                     COMFWIN    48
                     0323000173 +                 PL     X3,WIN1                                                 COMFWIN    49
                               76620              =X6    B2                                                      COMFWIN    50
           171  5067000001                        SA6    A7+1        STORE RETURN ADDRESS IN WINB+1              COMFWIN    51
           172  0100000000 X             W=WIN    SNAP   WINB,,2,NONE,,1E5                                       COMFWIN    52
           173                           WIN1     BSS    0                                                       COMFWIN    53
                                         .SNAP=W  ENDIF                                                          COMFWIN    54
                                                                                                                 COMFWIN    55
           173  76600                             =X6    0                                                       COMFWIN    56
                     5067000001                   SA6    A7+1        INITIALIZE WINB + 1 TO ZERO                 COMFWIN    57
                               11207              BX2    X0*X7                                                   COMFWIN    58
           174  20214                             LX2    PB.GHIJL                                                COMFWIN    59
                     63320                        SB3    X2          (B3) = GHIJ                                 COMFWIN    60
                          21206                   AX2    PB.GHL      (X2) = GH                                   COMFWIN    61
           175  0302000255 +                      ZR     X2,PSI      IF A PSEUDO, GO PROCESS IT...               COMFWIN    62
                                                                                                                 COMFWIN    63
                                        *         ADVANCE  *ORG* COUNTER IF NECESSARY                            COMFWIN    64
                                                                                                                 COMFWIN    65
                          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
           176  5120000000 X             WIN10    SA2    ORG                                                     COMFWIN    71
                          5130000000 X            SA3    PARCEL                                                  COMFWIN    72
           177  7263000001                        SX6    X3+1                                                    COMFWIN    73
                          0321000204 +            PL     X1,WIN40    IF SHORT, PARCEL = PARCEL + 1               COMFWIN    74
           200  6273777774                        SB7    X3-3                                                    COMFWIN    75
                          0470000202 +            ZR     B7,WIN20    IF PARCEL = 3                               COMFWIN    76
           201  7263000002                        SX6    X3+2                                                    COMFWIN    77
                          0400000204 +            EQ     WIN40       PARCEL = PARCEL +2                          COMFWIN    78
                                                                                                                 COMFWIN    79
           202  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/05. 20.00.43.      PAGE     9
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          73621                   =X6    X2+1                                                    COMFWIN    82
                               54620              SA6    A2          ORG = ORG + 1                               COMFWIN    83
           203  0400000241 +                      EQ     WIN100                                                  COMFWIN    84
                                                                                                                 COMFWIN    85
           204  6276777773               WIN40    SB7    X6-4                                                    COMFWIN    86
                          0570000206 +            NZ     B7,WIN50    IF PARCEL NE 4                              COMFWIN    87
           205  73621                             =X6    X2+1        ORG = ORG + 1                               COMFWIN    88
                     54620                        SA6    A2                                                      COMFWIN    89
                          76600                   =X6    0           PARCEL = 0                                  COMFWIN    90
                                                                                                                 COMFWIN    91
           206  54630                    WIN50    SA6    A3                                                      COMFWIN    92
                     5120000372 +                 SA2    WINA                                                    COMFWIN    93
           207  0331000241 +                      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
           210  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
           211  0331000217 +                      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
           212  0707000232 +                      GT     B7,WIN70    IF (PB.GH) .GT. 17B                         COMFWIN   114
                          6276777762              SB7    X6-15B                                                  COMFWIN   115
           213  0770000232 +                      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
           214  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
           215  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
           216  0400000232 +                      EQ     WIN70                                                   COMFWIN   127
                                                                                                                 COMFWIN   128
           217  6276777767               WIN65    SB7    X6-10B                                                  COMFWIN   129
                          0570000230 +            NZ     B7,WIN60    IF NOT TRANSMIT (10IJX) INSTRUCTION         COMFWIN   130
           220  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
           221  15171                             BX1    -X1*X7      *J* REGISTER                                COMFWIN   135
                     20071                        LX0    PB.JP-PB.IP                                             COMFWIN   136
                          37601                   IX6    X0-X1                                                   COMFWIN   137
           222  5130000000 X                      SA3    PARCEL                                                  COMFWIN   138
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    10
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          0316000230 +            NZ     X6,WIN60    IF NOT TRANSMIT TO SELF                     COMFWIN   139
           223  7263777776                        SX6    X3-1                                                    COMFWIN   140
                          5160000000 X            SA6    PARCEL      THIS INST DOESNT COUNT / PARCEL = PARCEL-1  COMFWIN   141
           224  0326000240 +                      PL     X6,WINX     IF CURRENT WORD NOT NOW COMPLETELY EMPTY    COMFWIN   142
                          5130000000 X            SA3    ORG                                                     COMFWIN   143
           225  7160000003                        SX6    3                                                       COMFWIN   144
                          54660                   SA6    A6          PARCEL = 3                                  COMFWIN   145
           226  7263777776                        SX6    X3-1                                                    COMFWIN   146
                          54630                   SA6    A3          ORG = ORG - 1                               COMFWIN   147
           227  0400000240 +                      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
           230  43071                    WIN60    MX0    -PB.JL                                                  COMFWIN   155
                     46000                        NO                                                             COMFWIN   156
                          20060                   LX0    PB.JP                                                   COMFWIN   157
                               46000              NO                                                             COMFWIN   158
           231  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
           232  6272777776               WIN70    =B7    X2-1                                                    COMFWIN   166
                          0770000237 +            MI     B7,WIN80    IF NO PACKAGE PRESENT                       COMFWIN   167
           233  20755                             LX7    -15         POSITION INSTRUCTION                        COMFWIN   168
                     0470000237 +                 ZR     B7,WIN80    IF ONE PACKAGE PRESENT                      COMFWIN   169
                               20755              LX7    -15         RE-POSITION INSTRUCTION                     COMFWIN   170
           234  7100077777                        SX0    77777B                                                  COMFWIN   171
                          12727                   BX7    X2+X7       INSERT THIRD PACKAGE                        COMFWIN   172
                               43600              MX6    0                                                       COMFWIN   173
           235  12707                             BX7    X0+X7       INSERT LOW ORDER BITS                       COMFWIN   174
                     54620                        SA6    A2          CLEAR WINA                                  COMFWIN   175
                          5170000373 +            SA7    WINB        SAVE INSTRUCTION                            COMFWIN   176
           236  0400000241 +                      EQ     WINW        OUTPUT SAVED INSTRUCTIONS                   COMFWIN   177
                                                                                                                 COMFWIN   178
           237  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
           240  5130000375 +             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
           241                           WIN100   BSS    0           **** TEMP ****                              COMFWIN   192
           241                           WINW     BSS    0           ...WRITE PB                                 COMFWIN   193
           241  5120000372 +                      SA2    WINA                                                    COMFWIN   194
                          64740                   SB7    A4          SAVE (A4,X4)                                COMFWIN   195
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    11
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                               10644              BX6    X4                                                      COMFWIN   196
           242  5160000376 +                      SA6    WIND                                                    COMFWIN   197
                          0302000246 +            ZR     X2,WINW7    IF NO PACKED SHORT INSTRUCTIONS WAITING     COMFWIN   198
           243  5130000372 +                      SA3    WINA                                                    COMFWIN   199
                          43055                   MX0    -PB.INSTL                                               COMFWIN   200
                               76700              SX7    B0          INDICATE NO ACCUMULATED SHORT INSTRUCTIONS  COMFWIN   201
           244  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
           246  5130000373 +             WINW7    SA3    WINB                                                    COMFWIN   205
                          10633                   BX6    X3                                                      COMFWIN   206
           247  5110000002 X                      WRITEO F.PB        WRITE ONE WORD (CURRENT INSTRUCTION)        COMFWIN   207
           250  5110000376 +                      SA1    WIND                                                    COMFWIN   208
                          56470                   SA4    B7          RESTORE (A4, X4)                            COMFWIN   209
                               10411              BX4    X1                                                      COMFWIN   210
           251  5110000374 +             WINW8    SA1    WINB+1                                                  COMFWIN   211
                          0301000240 +            ZR     X1,WINX     IF NO FORCE UPPER AFTER REQUESTED           COMFWIN   212
           252  5130000000 X                      SA3    PARCEL                                                  COMFWIN   213
                          5120000000 X            SA2    ORG                                                     COMFWIN   214
           253  0303000240 +                      ZR     X3,WINX     IF ALREADY UPPER                            COMFWIN   215
                          73621                   SX6    X2+B1                                                   COMFWIN   216
                               43700              MX7    0                                                       COMFWIN   217
           254  54620                             SA6    A2          ADVANCE ORIGIN COUNTER                      COMFWIN   218
                     54730                        SA7    A3          INDICATE EMPTY WORD                         COMFWIN   219
                          0400000240 +            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
           255                           PSI      BSS                ...ENTRY                                    COMFWIN   241
                                                                                                                 COMFWIN   242
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                COMFWIN   243
           255  6170000044                        SB7    Z.PSUD      LENGTH OF PSEUDO TABLE                      COMFWIN   244
                          0637400255 +            GE     B3,B7,"BLOWUP"    IF ILLEGAL PSUEDO                     COMFWIN   245
                                                                                                                 COMFWIN   246
           256  5110000371 +                      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/05. 20.00.43.      PAGE    12
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           257  0277000000                        JP     B7          EXIT TO PSEUDO PROCESSOR...                 COMFWIN   250
                                                                                                                 COMFWIN   251
                                                                                                                 COMFWIN   252
                                        **        PSEUDO INSTRUCTION PROCESSORS.                                 COMFWIN   253
                                                                                                                 COMFWIN   254
                                                                                                                 COMFWIN   255
           260                           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
           260  0400000241 +                      EQ     WIN100                                                  COMFWIN   257
                                                                                                                 COMFWIN   258
                                                                                                                 COMFWIN   259
           261                           WO=IDNT  BSS    0           IDENT - BEGIN OBJECT PROGRAM                COMFWIN   260
           261  76600                             =X6    0                                                       COMFWIN   261
                     5160000000 X                 SA6    =XORG       INIT  ORG  TO  0                            COMFWIN   262
           262  5160000000 X                      SA6    =XCBI       INIT  CBI  TO  0                            COMFWIN   263
                          5160000000 X            SA6    PARCEL                                                  COMFWIN   264
           263  5160000372 +                      SA6    WINA        INIT PACKED 15-BIT INSTRUCTIONS             FC50860     9
                          0400000241 +            EQ     WIN100                                                  COMFWIN   265
                                                                                                                 COMFWIN   266
                                                                                                                 COMFWIN   267
           264                           WI=LD0   BSS    0           LOAD INSTRUCTION FOR LEVEL 0                COMFWIN   268
           264                           WI=ST0   BSS    0           STORE INSTRUCTION FOR LEVEL 0               COMFWIN   269
           264  5130000000 X                      SA3    PARCEL                                                  COMFWIN   270
                          5120000000 X            SA2    ORG                                                     COMFWIN   271
           265  73631                             =X6    X3+1                                                    COMFWIN   272
                     77101                        =X1    -1          INDICATE LONG                               COMFWIN   273
                          0400000204 +            EQ     WIN40       COUNT AS SHORT INSTRUCTION                  COMFWIN   274
                                                                                                                 COMFWIN   275
           266                           WO=ADDR  BSS    0           FILE VECTOR POINTER WORD                    COMFWIN   276
           266                           WI=CPL   BSS    0           CPL LIST ITEM                               COMFWIN   277
           266                           WO=PLIM  BSS    0           PRINT LIMIT WORD                            FC50049     7
           266                           WI=SUBI  BSS    0           SUB INDEX                                   COMFWIN   278
           266                           WI=SB0I  BSS    0           SUB0 INDEX                                  COMFWIN   279
           266                           WI=ZERO  BSS    0           ZERO WORD                                   COMFWIN   280
           266                           WO=FVEC  BSS    0           FILE POINTER WORD                           COMFWIN   281
           266  43100                             MX1    0                                                       COMFWIN   282
                     76210                        SX2    B1          RESERVE SPACE FOR WORD                      COMFWIN   283
                          0100000377 +            RJ     DLT         ADVANCE ORIGIN COUNTER                      COMFWIN   284
           267  0400000241 +                      EQ     WIN100                                                  COMFWIN   285
                                                                                                                 COMFWIN   286
                                                                                                                 COMFWIN   287
           270                           WO=TRAC  BSS    0           TRAC - GENERATE TRACEBACK WORDS.            COMFWIN   288
           270  5130000000 X                      SA3    =XS=TRACE                                               COMFWIN   289
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   290
           271  7120000001                        SX2    1                                                       COMFWIN   291
                          0100000377 +            RJ     DLT         DEFINE LABEL TAG (TRACE.  BSS 1)            COMFWIN   292
           272  5130000000 X                      SA3    =XS=TA0                                                 COMFWIN   293
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   294
           273  7120000001                        SX2    1                                                       COMFWIN   295
                          0100000377 +            RJ     DLT         DEFINE LABEL TAG (TEMPA0.  BSS 1)           COMFWIN   296
           274  0400000241 +                      EQ     WIN100                                                  COMFWIN   297
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    13
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
                                                                                                                 COMFWIN   298
                                                                                                                 COMFWIN   299
           275                           WO=CON   BSS                *READ CON TABLE PSEUDO                      COMFWIN   300
           275  0400000241 +                      EQ     WIN100                                                  COMFWIN   301
                                                                                                                 COMFWIN   302
                                                                                                                 COMFWIN   303
           276                           WI=USE   BSS    0           *USE* PSEUDO INSTRUCTION                    COMFWIN   304
           276                           WO=USE   BSS                                                            COMFWIN   305
           276  0100000446 +                      RJ     PUSE        EXCHANGE PARCEL AND ORG (BLEN) COUNTERS     COMFWIN   306
           277  0400000241 +                      EQ     WIN100                                                  COMFWIN   307
                                                                                                                 COMFWIN   308
                                                                                                                 COMFWIN   309
           300                           WI=OTR   BSS    0           OTR INSTRUCTION (6102B)                     COMFWIN   310
           300  5130000000 X                      SA3    ORG                                                     COMFWIN   311
                          5120000000 X            SA2    PARCEL                                                  COMFWIN   312
           301  76611                             =X6    2                                                       COMFWIN   313
                     54620                        SA6    A2          PARCEL = 2                                  COMFWIN   314
                          73631                   =X6    X3+1                                                    COMFWIN   315
           302  0302000241 +                      ZR     X2,WIN100   IF PARCEL WAS 0                             COMFWIN   316
                          54630                   SA6    A3          ORG = ORG + 1                               COMFWIN   317
           303  0400000241 +                      EQ     WIN100                                                  COMFWIN   318
                                                                                                                 COMFWIN   319
           304                           WI=RJ6   BSS    0           RJT INSTRUCTION (0100B)                     COMFWIN   320
           304  5130000000 X                      SA3    ORG                                                     COMFWIN   321
                          73631                   =X6    X3+1                                                    COMFWIN   322
           305  5160000374 +                      SA6    WINB+1      FORCE UPPER AFTER                           COMFWIN   323
                          5120000373 +            SA2    WINB        RJ6 INSTRUCTION                             FC50264     8
           306  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
           307  7200770001                        SX0    X0-7776B                                                FC50264    12
                          0330000241 +            MI     X0,WIN100   IF LINE/SEQUENCE NUMBER .LT. 4095           FC50264    13
           310  73661                             =X6    X6+1                                                    FC50264    14
                     54660                        SA6    A6          INCREMENT ORG COUNTER                       FC50264    15
                          0400000241 +            EQ     WIN100                                                  COMFWIN   325
                                                                                                                 COMFWIN   326
           311                           WI=UJP   BSS    0           EQ INSTRUCTION (0400B)                      COMFWIN   327
           311                           WI=JPI   BSS    0           JP INSTRUCTION (0200B)                      COMFWIN   328
           311                           WI=RJ3   BSS    0           RJ INSTRUCTION (0100B)                      COMFWIN   329
           311  77601                             =X6    -B1                                                     COMFWIN   330
                     5160000374 +                 SA6    WINB+1      SET FLAG TO FORCE UPPER AFTER               COMFWIN   331
                               10166              =X1    X6          LONG INSTRUCTION                            COMFWIN   332
           312  0400000176 +                      EQ     WIN10                                                   COMFWIN   333
                                                                                                                 COMFWIN   334
           313                           WI=BSS   BSS    0           BSS, BSSZ PSEUDO INSTRUCTION                COMFWIN   335
           313                           WO=BSS   BSS    0                                                       COMFWIN   336
           313                           WO=BSSZ  BSS                                                            COMFWIN   337
           313  10077                             BX0    X7                                                      FC50001     5
                     0100000000 X                 RJ     BNW         BEGIN NEW WORD                              COMFWIN   338
           314  10300                             BX3    X0                                                      FC50001     6
                     43052                        MX0    -PB.TAGL                                                COMFWIN   339
                          20336                   LX3    -PB.TAGP                                                COMFWIN   341
                               15130              BX1    -X0*X3                                                  COMFWIN   342
           315  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/05. 20.00.43.      PAGE    14
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           316  0100000377 +                      RJ     DLT         DEFINE LABEL AND RESERVE BLOCK STORAGE      COMFWIN   346
           317  0400000241 +                      EQ     WIN100                                                  COMFWIN   347
                                                                                                                 COMFWIN   348
                                                                                                                 COMFWIN   349
           320                           WO=END   BSS    0                                                       COMFWIN   350
           320  76700                             =X7    0           FAKE AN INSTRUCTION TO CALL PUSE            COMFWIN   351
                     0100000446 +                 RJ     PUSE        STORE PARCEL AND ORG COUNT IN T.LBT         COMFWIN   352
           321  0400000241 +                      EQ     WIN100                                                  COMFWIN   353
                                                                                                                 COMFWIN   354
                                                                                                                 COMFWIN   355
                                        *         THE FOLLOWING PSEUDOS NEED NO PASS 2 PROCESSING.               COMFWIN   356
                                                                                                                 COMFWIN   357
                                                                                                                 COMFWIN   358
           322                           WI=LOO   BSS    0           LOO - TURN ON /OFF OBJECT LISTING           COMFWIN   359
           322                           WO=LOO   BSS    0                                                       COMFWIN   360
           322                           WI=EMI   BSS    0           EMI - END MACHINE INSTRUCTIONS.             COMFWIN   361
           322                           WI=BCI   BSS                BCI - BEGIN CCG TYPE INSTRUCTION            COMFWIN   362
           322                           WI=ECI   BSS                ECI - END CCG TYPE INSTRUCTION              COMFWIN   363
           322                           WO=BMI   BSS    0           BMI - BEGIN MACHINE INSTRUCTIONS.           COMFWIN   364
           322                           WO=NLST  BSS                *READ NAMELIST TABLE PSEUDO                 COMFWIN   366
           322                           WO=APL   BSS                APLIST                                      COMFWIN   367
           322                           WO=IOM   BSS                PROCESS I/O APLISTS                         COMFWIN   368
           322                           WO=FMT   BSS                FORMAT                                      COMFWIN   369
           322                           WO=EQUN  BSS                NEGATIVE RELOCATION                         COMFWIN   370
           322                           WO=LCC   BSS                LOADER CONTROL DIRECTIVES                   COMFWIN   371
           322  0400000241 +                      EQ     WIN100                                                  COMFWIN   374
           323                           WI=DATA  BSS    0                                                       FC50001     7
           323  0100000000 X                      RJ     BNW         FORCE UPPER                                 FC50001     8
           324  0400000241 +                      EQ     WIN100                                                  FC50001     9
  
  
  
  
           325                           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/05. 20.00.43.      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
                                 325 +   OCPSUD   EQU    *O                                                      COMSPSU     6
      L      0  00000000000000000266 +            PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1  00000000000000000313 +            PSUD   BSS                                                     COMSPSU     8
      L      2  00000000000000000322 +            PSUD   APL         APLIST                                      COMSPSU     9
      L      3  00000000000000000322 +            PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4  00000000000000000275 +            PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5  00000000000000000320 +            PSUD   END                                                     COMSPSU    17
      L      6  00000000000000000322 +            PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7  00000000000000000322 +            PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10  00000000000000000266 +            PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11  00000000000000000261 +            PSUD   IDNT                                                    COMSPSU    22
      L     12  00000000000000000322 +            PSUD   IOM                                                     COMSPSU    23
      L     13  00000000000000000322 +            PSUD   LCC                                                     COMSPSU    24
      L     14  00000000000000000322 +            PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15  00000000000000000322 +            PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16  00000000000000000266 +            PSUD   PLIM                                                    FC50049     6
      L     17  00000000000000000270 +            PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20  00000000000000000276 +            PSUD   USE                                                     COMSPSU    31
      L                                                                                                          COMSPSU    32
                                                                                                                 COMSPSU    33
                                 346 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21  00000000000000000322 +            IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22  00000000000000000260 +            IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23  00000000000000000266 +            IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24  00000000000000000313 +            IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25  00000000000000000323 +            IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26  00000000000000000322 +            IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27  00000000000000000322 +            IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30  00000000000000000311 +            IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31  00000000000000000264 +            IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32  00000000000000000264 +            IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33  00000000000000000322 +            IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34  00000000000000000300 +            IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35  00000000000000000311 +            IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36  00000000000000000304 +            IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37  00000000000000000266 +            IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
      L     40  00000000000000000266 +            IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41  00000000000000000311 +            IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42  00000000000000000276 +            IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43  00000000000000000266 +            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
           371                                    LOC    *O                                                      COMSPSU    57
                                                                                                                 COMSPSU    58
                                        * PSU     ENDX                                                           COMSPSU    59
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    16
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    SAVE                COMFWIN 
  
                                        *         WIN SAVE AREA.                                                 COMFWIN   401
                                                                                                                 COMFWIN   402
           371  00000000000000000000     PSTAB    CON    0           FWA OF OC$XXX OR I.XXX TABLE                COMFWIN   403
           372  00000000000000000000     WINA     CON    0           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      COMFWIN   404
           373  00000000000000000000     WINB     CON    0           TEMP STORE OF INSTRUCTION                   COMFWIN   405
                                                                     ** WINB MUST BE AT WINA+1 **                COMFWIN   406
           374  00000000000000000000              CON    0           MINUS IF FORCE UPPER AFTER, ELSE 0          COMFWIN   407
           375  00000000000000000000     WINC     CON    0           SAVE OF X3                                  COMFWIN   408
           376                     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
           377  0400400377 +             DLT      SUBR   0           ENTRY/EXIT...                               COMFWIN   442
           400  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/05. 20.00.43.      PAGE    17
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    DLT                 COMFWIN 
  
                               54630              SA6    A3                                                      COMFWIN   445
           401  0301000377 +                      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
           402  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
           403  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
           404  12223                             BX2    X2+X3                                                   COMFWIN   459
                     12626                        BX6    X2+X6       FORM ADDRESS DEFINITION WORD                COMFWIN   460
                          0233000405 +            JP     B3+DLTA     PROCESS ACCORDING TO TAG PREFIX             COMFWIN   461
                                                                                                                 COMFWIN   462
           405                           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
                          0400000412 +            EQ     DLT2                                                    COMFWIN   466
      L      1  0400000416 +             K=GL     EQ     DLT4                                                    COMFWIN   467
      L      2  0400400407 +             K=AP     EQ     "BLOWUP"                                                COMFWIN   468
      L      3  0400400410 +             K=IO     EQ     "BLOWUP"                                                COMFWIN   469
      L      4  0400400411 +             K=LC     EQ     "BLOWUP"                                                COMFWIN   470
      L      5                           K=END    BSS    0           VERIFY VECTOR SYNCHRONIZATION               COMFWIN   471
           412                                    LOC    *O                                                      COMFWIN   472
                                                                                                                 COMFWIN   473
                                                                                                                 COMFWIN   474
           412                           DLT2     BSS                ... TAG IS IN SYMBOL TABLE                  COMFWIN   475
           412  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
           413  53203                             SA2    X0+B3       FETCH SYMTAB ADDRESS WORD                   COMFWIN   480
                                                                                                                 COMFWIN   481
                                         .TEST    IFEQ   TEST,ON                                                 COMFWIN   482
                     5130001402 +                 CLAS=  X3,WC,(RL,RB,RA)                                        COMFWIN   483
                               11132              BX1    X3*X2                                                   COMFWIN   484
           414  0311400414 +                      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
           415  0400000377 +                      EQ     EXIT.                                                   COMFWIN   490
                                                                                                                 COMFWIN   491
                                                                                                                 COMFWIN   492
           416                           DLT4     BSS                ... TAG IS GENERATED LABEL                  COMFWIN   493
           416  66370                             SB3    B7                                                      COMFWIN   494
                     0100000111 +                 CALL   DPT         DEFINE PROGRAM TAG                          COMFWIN   495
           417  0400000377 +                      EQ     EXIT.                                                   COMFWIN   496
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      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
                                 371 +   PSTAB    EQU    /COMFWIN/PSTAB                                          COMFWIN   502
                                 346 +   WINI     EQU    /COMFWIN/IPSUD                                          COMFWIN   503
                                 325 +   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/05. 20.00.43.      PAGE    19
        COMFITS - ISSUE TEMP STORAGE.                                 ITS 
  
           417                           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
           420  0400400420 +             ITS      SUBR   0           ENTRY/EXIT...                               COMFITS    12
           421  7110000000 X                      ISUSE$ TEM         USE TEM.                                    COMFITS    13
                                                                                                                 COMFITS    14
           424  6150000437 +                      SB5    ITSA                                                    COMFITS    15
           425  56150                    ITS2     SA1    B5                                                      COMFITS    16
                     0301000432 +                 ZR     X1,ITS4     IF NO MORE TEMPS TO ISSUE                   COMFITS    17
                               53210              SA2    X1                                                      COMFITS    18
           426  66551                             SB5    B5+B1                                                   COMFITS    19
                     21122                        AX1    18                                                      COMFITS    20
                          53310                   SA3    X1          FETCH SYMORD OF TEMP NAME                   COMFITS    21
           427  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
           430  20660                             LX6    PB.GHIJP                                                COMFITS    26
                     12132                        BX1    X3+X2                                                   COMFITS    27
                          36761                   IX7    X6+X1                                                   COMFITS    28
           431  6120000425 +                      WCODE  X7,ITS2     ISSUE  * TAG  BSS  (N.TAG) *                COMFITS    29
                                                                                                                 COMFITS    30
           432  7110000000 X             ITS4     ISUSE$ BUF         USE BUF.                                    COMFITS    31
           435  7170000006                        SX7    OC$EQUN                                                 COMFITS    32
                          20760                   LX7    PB.GHIJP                                                COMFITS    33
           436  6120000420 +                      WCODE  X7,EXIT.                                                COMFITS    34
                                                                                                                 COMFITS    35
                                                                                                                 COMFITS    36
           437                           ITSA     BSS    0           TABLE OF TEMPS TO ISSUE                     COMFITS    37
           437  00000000000000 X                  VFD    24/0,18/=XS=ST,18/=XN.STMAX                             COMFITS    38
                              000000 X
           440  00000000000000 X                  VFD    24/0,18/=XS=CT,18/=XN.CTMAX                             COMFITS    39
                              000000 X
           441  00000000000000 X                  VFD    24/0,18/=XS=IT,18/=XN$IT                                COMFITS    40
                              000000 X
           442  00000000000000 X                  VFD    24/0,18/=XS=OT,18/=XN$OT                                COMFITS    41
                              000000 X
           443  00000000000000 X                  VFD    24/0,18/=XS=VD,18/=XN.VD                                COMFITS    42
                              000000 X
           444  00000000000000 X                  VFD    24/0,18/=XS=LC,18/=XN$LC                                COMFITS    43
                              000000 X
           445  00000000000000000000              CON    0                                                       COMFITS    44
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    20
        COMFITS - ISSUE TEMP STORAGE.                                 COMFITS             COMFITS 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFITS    46
                                                  QUAL   *                                                       COMFITS    47
                                 420 +   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/05. 20.00.43.      PAGE    21
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION
  
           446                                    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
           446  0400400446 +             PUSE     SUBR   0           ENTRY/EXIT                                  COMFUSE    17
                                                                                                                 COMFUSE    18
                                        *         SAVE THE OLD.                                                  COMFUSE    19
                                                                                                                 COMFUSE    20
           447  5120000000 X                      SA2    =XCBI       CURRENT BLOCK INDEX                         COMFUSE    21
                          43666                   MX6    -LB.PARCL                                               COMFUSE    22
                               43052              MX0    -LB.ORGL                                                COMFUSE    23
           450  20666                             LX6    LB.PARCP                                                COMFUSE    24
                     63720                        SB7    X2                                                      COMFUSE    25
                          5130000000 X            SA3    =XORG                                                   COMFUSE    26
           451  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
           452  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
           453  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
           454  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
           455  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
           456  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
           457  5170000000 X                      SA7    =XORG                                                   COMFUSE    51
                          5160000000 X            SA6    =XPARCEL                                                COMFUSE    52
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    22
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION                                          COMFUSE 
  
           460  0400000446 +                      EQ     EXIT.                                                   COMFUSE    53
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFUSE    55
                                                  QUAL   *                                                       COMFUSE    56
                                 446 +   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/05. 20.00.43.      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/05. 20.00.43.      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
           461                     1     OTCA     BSS    1                                                       CCGC      254
           462                     1     OTCB     BSS    1                                                       CCGC      255
                                                                                                                 CCGC      256
           463  0400400463 +             OTC      SUBR   =                                                       CCGC      257
           464  7110000000 X                      SX1    =XBN=STRT                                               CCGC      258
                          0100000000 X            CALL   CG$CUB      VARDIM CODE TO GO TO START.                 CCGC      259
           465  7170000026                        ISSUE  I.ECI       FLAG END OF CCG OUTPUT                      CCGC      260
           467  5110000016 +                      SA1    CC$SUB                                                  CCGC      261
                          0301000511 +            ZR     X1,OTC1     IF NO SUBS                                  CCGC      262
                                                                                                                 CCGC      263
           470  7110000000 X                      ISUSE  SUB         USE SUB.                                    CCGC      264
           473  7170000024                        ISSUE  I.BSS,=XS=SUB     SUB. BSS 0                            CCGC      265
           476  7110000000 X                      ISUSE  TEM                                                     CCGC      266
           501  7170000024                        ISSUE  I.BSS,=XS=SUBI                                          CCGC      267
           504  76600                             =X6    0                                                       CCGC      268
                     0100001116 +                 RJ     OSI         OUTPUT SUB INDEX TABLE                      CCGC      269
           505  7110000000 X                      ISUSE  STRT        USE START.                                  CCGC      270
           510  5140000000 X                      SA4    =XS=ENTRY                                               CCGC      271
                          0100001226 +            RJ     OSC         OUTPUT SUB CODE FOR HEADER                  CCGC      272
                                                                                                                 CCGC      273
           511  0100001272 +             OTC1     RJ     MZP         MARK POSSIBLE LEVEL-0 VARDIMS FOR OZC       CCGC      274
           512  7110000000 X                      ISUSE  TEM                                                     CCGC      275
           515  7170000024                        ISSUE  I.BSS,=XS=SUB0I                                         CCGC      276
           520  76610                             =X6    1                                                       CCGC      277
                     0100001116 +                 RJ     OSI         ISSUE SUB0 INDEX TABLE                      CCGC      278
                                                                                                                 CCGC      279
           521  7110000000 X             OTC15    ISUSE  STRT                                                    CCGC      280
           524  5140000000 X                      SA4    S=ENTRY                                                 CCGC      281
                          0100001247 +            RJ     OZC         ISSUE SUB0 CODE FOR HEADER                  CCGC      282
           525  0100000710 +                      RJ     OVC                                                     CCGC      283
           526  5140000000 X                      SA4    =XS=ENTRY                                               CCGC      284
                          0100000623 +            RJ     OLC         OUTPUT FP LOCAL COPIES                      CCGC      285
           527  5120000024 +                      SA2    =XN.ALTEN                                               CCGC      286
                          0302000611 +            ZR     X2,OTC4     IF NO ALTERNATE ENTRIES                     CCGC      287
           530  7110000000 X                      ISUSE  CODE        USE CODE.                                   CCGC      288
                                                                                                                 CCGC      289
                                        *         ISSUE ALTERNATE ENTRY BLOCKS.                                  CCGC      290
                                                                                                                 CCGC      291
           533  5120000000 X                      SA2    =XS=ENTRY                                               CCGC      292
                          73621                   SX6    X2+B1       I = (S=ENTRY)                               CCGC      293
                                                                                                                 CCGC      294
           534  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/05. 20.00.43.      PAGE    25
        SUBROUTINES.
  
                               36462              IX4    X6+X2                                                   CCGC      297
           535  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
           536  0323000534 +                      PL     X3,OTC2     IF NOT ENT[WB(I)]                           CCGC      302
                          20312                   LX3    WB.ENTP-WB.LABP                                         CCGC      303
           537  0333000534 +                      MI     X3,OTC2     IF LAB[WB(I)]                               CCGC      304
                          7246777776              SX4    X6-1                                                    CCGC      305
           540  10644                             BX6    X4                                                      CCGC      306
                     5160000461 +                 SA6    OTCA                                                    CCGC      307
                               43055              MX0    -WC.EGLL                                                CCGC      308
           541  54331                             SA3    A3+B1                                                   CCGC      309
                     20336                        LX3    -WC.EGLP                                                CCGC      310
                          15230                   BX2    -X0*X3                                                  CCGC      311
           542  7262100000                        SX6    I.GL+X2     OTCB = EGL[WC(I)]                           CCGC      312
                          5160000462 +            SA6    OTCB                                                    CCGC      313
           543  7170000024                        ISSUE  I.BSS,X4    LNAME BSS 0                                 CCGC      314
           546  7170000041                        ISSUE  I.UJP,X4    ENTRY/EXIT WORD                             CCGC      315
           551  7170005140                        ISSUE  5140B,X4    SA4 ENAME                                   CCGC      316
           554  7170001064                        ISSUE  1064B       BX6 X4                                      CCGC      317
           556  7170005160                        ISSUE  5160B,=XS=ENTRY   SA6 HNAME                             CCGC      318
           561  43600                             MX6    0                                                       F2950F5A   34
                     5160000000 X                 SA6    =XENTRJ     FLAG NO RJ SINCE PLUG                       F2950F5A   35
                                                                                                                 CCGC      319
           562  0100000755 +                      RJ     ISA         ISSUE SAVE A0 / RJ CPL.                     CCGC      320
           563  5140000461 +                      SA4    OTCA                                                    CCGC      321
                          0100001226 +            RJ     OSC         ISSUE SUB CODE                              CCGC      322
           564  0100001247 +                      RJ     OZC         ISSUE SUB0 CODE                             CCGC      323
           565  0100000710 +                      RJ     OVC         OUTPUT VARDIM CODE                          CCGC      324
           566  5140000461 +                      SA4    OTCA                                                    CCGC      325
                          0100000623 +            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
           567  5150000000 X                      SA5    ENTRJ                                                   F2950F5A   39
                          0315000602 +            NZ     X5,OTC3     IF RJ ISSUED AS PART OF INITIALIZATION      F2950F5A   40
           570  76100                             ADDWRD GLT,B0      ADD GENERATED LABEL                         F2950F5A   41
           572  7146100000                        SX4    B6+K.GL     TAG OF LABEL                                F2950F5A   42
                          7170000035              ISSUE  I.RJ3,X4    RJ GL                                       F2950F5A   43
           575  7170000024                        ISSUE  I.BSS,X4    GL BSS 0                                    F2950F5A   44
           600  7170000043                        ISSUE  I.ZERO      BSS 1                                       F2950F5A   45
                                                                                                                 CCGC      327
                                        *         ISSUE JUMP INTO CODE BODY.                                     CCGC      328
                                                                                                                 CCGC      329
           602  5150000462 +             OTC3     SA5    OTCB                                                    CCGC      330
                          5110000024 +            SA1    N.ALTEN                                                 CCGC      331
           603  7261777776                        SX6    X1-1                                                    CCGC      332
                          54610                   SA6    A1          N.ALTEN = N.ALTEN + 1                       CCGC      333
                               63560              SB5    X6                                                      CCGC      334
           604  7170000041                        ISSUE  I.UJP,X5    EQ EGL[WC(I)]                               CCGC      335
           607  5140000461 +                      SA4    OTCA                                                    CCGC      336
                          7264000001              SX6    X4+1                                                    CCGC      337
           610  0550000534 +                      NZ     B5,OTC2     IF N LT MAX  */MORE ENTRIES                 CCGC      338
                                                                                                                 CCGC      339
           611  7170000027               OTC4     ISSUE  I.EMI                                                   CCGC      340
           613  43700                             MX7    0                                                       F2950F5A   46
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    26
        SUBROUTINES.
  
                     5170000000 X                 SA7    =XL$ASG     SHRINK *ASG*                                CCGC      343
                               66500              SB5    B0                                                      CCGC      344
           614  0100001325 +                      RJ     CAW         CONVERT APT TO WC. FORMAT                   CCGC      345
           615  66510                             SB5    B1                                                      CCGC      346
                     0100001325 +                 RJ     CAW         CONVERT IOI TO WC. FORMAT.                  CCGC      347
           616  0100000420 +                      CALL   ITS                                                     CCGC      348
           617  0100001345 +                      RJ     MEP         MISC. END PROCESSING                        CCGC      349
           620  7170000005                        ISSUE  OC$END                                                  CCGC      350
           622  0400000463 +                      EQ     EXIT.                                                   CCGC      351
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    27
        SUBROUTINES.                                                  OLC 
  
                                        **        OLC - OUTPUT LOCAL COPIES OF FORMAL PARAMETERS.                CCGC      353
                                        *                                                                        CCGC      354
                                        *         ENTRY  X4 = ENTRY SYMTAB ORD.                                  CCGC      355
                                                                                                                 CCGC      356
           623  0400400623 +             OLC      SUBR                                                           CCGC      357
           624  5110000000 X                      SA1    N$LC                                                    CCGC      358
                          0301000623 +            ZR     X1,EXIT.    IF NO LOCAL COPIES                          CCGC      359
           625  5120000000 X                      SA2    O$SYM                                                   CCGC      360
                          22314                   LX3    B1,X4                                                   CCGC      361
                               36443              IX4    X4+X3                                                   CCGC      362
           626  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
           627  15510                             BX5    -X0*X1                                                  CCGC      367
                     0305000623 +                 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
           630  5110000000 X                      SA1    =XL$FPI                                                 CCGC      372
                          22211                   LX2    B1,X1                                                   CCGC      373
                               36121              IX1    X2+X1                                                   CCGC      374
           631  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
           632  5170000000 X                      SA7    L$TXT                                                   CCGC      378
                          5100000000 X            ALLOC  TXT,X1                                                  CCGC      379
                                                                                                                 CCGC      380
                                        *         INITIALIZE SEQ. TO BOS.                                        CCGC      381
                                                                                                                 CCGC      382
           634  76710                             =X7    1                                                       CCGC      383
                     20736                        LX7    R1.INP                                                  CCGC      384
                          66610                   =B6    OC.BOS                                                  CCGC      385
                               27667              PX6    B6,X7                                                   CCGC      386
           635  43700                             MX7    0                                                       CCGC      387
                     53620                        SA6    X2                                                      CCGC      388
                          5110000001 X            SA1    F$RDT+OC.BOS                                            CCGC      389
           636  54761                             SA7    A6+B1                                                   CCGC      390
                     10611                        BX6    X1                                                      CCGC      391
                          54671                   SA6    A7+B1                                                   CCGC      392
                               54761              SA7    A6+B1                                                   CCGC      393
           637  6130000004                        SB3    4           RI = 4                                      CCGC      394
                          5110000000 X            SA1    =XO$ENTP                                                CCGC      395
           640  5130000000 X                      SA3    =XO$FPI                                                 CCGC      396
                          36015                   IX0    X1+X5                                                   CCGC      397
           641  6263777776                        SB6    X3-1                                                    CCGC      398
                          53200                   SA2    X0                                                      CCGC      399
           642  6140000074                        SB4    60                                                      CCGC      400
                                                                                                                 CCGC      401
           643  0540000645 +             OLC10    NZ     B4,OLC20    IF WORD NOT EXHAUSTED                       CCGC      402
                          6140000074              SB4    60                                                      CCGC      403
           644  5022000001                        SA2    A2+1                                                    CCGC      404
                                                                                                                 CCGC      405
           645  6144777760               OLC20    SB4    B4-15                                                   CCGC      406
                          43055                   MX0    -EF.ORDL                                                CCGC      407
                               23442              AX4    B4,X2                                                   CCGC      408
           646  15640                             BX6    -X0*X4                                                  CCGC      409
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    28
        SUBROUTINES.                                                  OLC 
  
                     0306000671 +                 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
           647  36446                             IX4    X4+X6                                                   CCGC      415
                     53447                        SA4    B7+X4                                                   CCGC      416
                          43063                   MX0    -WB.FPNOL                                               CCGC      417
                               10544              BX5    X4                                                      CCGC      418
           650  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
           651  0324000643 +                      PL     X4,OLC10    IF NO LOCAL COPY                            CCGC      423
                          43071                   MX0    -WB.MODEL                                               CCGC      424
                                                  LX5    -WB.MODEP                                               CCGC      425
           652  5160000702 +                      SA6    OLCA        SAVE IH                                     CCGC      426
                          15050                   BX0    -X0*X5                                                  CCGC      427
                               66210              =B2    1           FLAG DOUBLE WORD                            CCGC      428
           653  6250777773                        SB5    X0-M.DBL                                                CCGC      429
                          0450000655 +            ZR     B5,OLC24    IF FP DOUBLE                                CCGC      430
           654  0451000655 +                      EQ     B5,B1,OLC24 IF FP COMPLEX                               CCGC      431
                          66200                   =B2    0           FLAG SINGLE WORD                            CCGC      432
                                                                                                                 CCGC      433
           655  20411                    OLC24    LX4    1+FP.LCP-FP.CAP                                         CCGC      434
                     43066                        MX0    -FP.CAL                                                 CCGC      435
                          15040                   BX0    -X0*X4                                                  CCGC      436
                                                                                                                 CCGC      437
           656  76530                    OLC25    SX5    B3          RI                                          CCGC      438
                     6150000050                   SB5    OC.LD                                                   CCGC      439
                                                  LX6    IH.IHP                                                  CCGC      440
           657  0100000703 +                      RJ     SRI         ISSUE LD 4,FP                               CCGC      441
           660  76530                             SX5    B3                                                      CCGC      442
                     7143777773                   SX4    B3-4                                                    CCGC      443
                               20440              LX4    R1.RJP                                                  CCGC      444
           661  12554                             BX5    X5+X4                                                   CCGC      445
                     43600                        MX6    0                                                       CCGC      446
                          6150000010              SB5    OC.XMT                                                  CCGC      447
           662  0100000703 +                      RJ     SRI         ISSUE XMT 10,4                              CCGC      448
           663  7153777773                        SX5    B3-4                                                    CCGC      449
                          6150000051              SB5    OC.ST                                                   CCGC      450
           664  5110000000 X                      SA1    =XS=LC                                                  CCGC      451
                          20022                   LX0    IH.CAP                                                  CCGC      452
                                                  LX1    IH.IHP                                                  CCGC      453
                               12601              BX6    X0+X1                                                   CCGC      454
           665  0100000703 +                      RJ     SRI         ISSUE ST 10,LC.+K                           CCGC      455
           666  0420000643 +                      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
           667  5130000702 +                      SA3    OLCA                                                    CCGC      459
                          12635                   BX6    X3+X5                                                   CCGC      460
                               20052              LX0    -IH.CAP                                                 CCGC      461
           670  73001                             =X0    X0+1        K = K + 1                                   CCGC      462
                     66200                        =B2    0           FLAG LOWER DONE                             CCGC      463
                          0400000656 +            EQ     OLC25       OUTPUT LOWER                                CCGC      464
                                                                                                                 CCGC      465
           671  76630                    OLC30    SX6    B3                                                      CCGC      466
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    29
        SUBROUTINES.                                                  OLC 
  
                     7173777773                   SX7    B3-4                                                    CCGC      467
           672  5160000000 X                      SA6    L$TXT                                                   CCGC      468
                          0307000623 +            ZR     X7,EXIT.                                                CCGC      469
           673  5170000001 X                      SA7    =XCC$BRN+1                                              CCGC      470
                          7170000021              ISSUE  I.BCI                                                   CCGC      471
           676  0100000000 X                      CALL   CG$CPC                                                  CCGC      472
           677  7170000026                        ISSUE  I.ECI                                                   CCGC      473
           701  0400000623 +                      EQ     EXIT.                                                   CCGC      474
                                                                                                                 CCGC      475
           702                     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
           703  0400400703 +             SRI      SUBR                                                           CCGC      486
           704  27755                             PX7    B5,X5                                                   CCGC      487
                     5135000000 X                 SA3    F$RDT+B5                                                CCGC      488
                               54771              SA7    A7+B1                                                   CCGC      489
           705  54671                             SA6    A7+B1                                                   CCGC      490
                     43700                        MX7    0                                                       CCGC      491
                          10633                   BX6    X3                                                      CCGC      492
                               54661              SA6    A6+B1                                                   CCGC      493
           706  6133000004                        SB3    B3+4                                                    CCGC      494
                          5076000001              SA7    A6+1                                                    CCGC      495
           707  0400000703 +                      EQ     EXIT.                                                   CCGC      496
  
  
  
  
                                        **        OVC - OUTPUT VARDIM CODE.                                      CCGC      498
                                                                                                                 CCGC      499
           710  0400400710 +             OVC      SUBR                                                           CCGC      500
           711  10644                             BX6    X4                                                      CCGC      501
                     5160000725 +                 SA6    OVCA                                                    CCGC      502
           712  5110000000 X                      SA1    =XL$VDT                                                 CCGC      503
                          0301000710 +            ZR     X1,EXIT.    IF NO VARDIM                                CCGC      504
           713  0100000726 +                      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
           714  5110000725 +                      SA1    OVCA                                                    CCGC      510
                          0100001054 +            RJ     MAV         MARK VARDIMS APPLICABLE TO THIS ENTRY       CCGC      511
           715  0100000737 +                      RJ     MMV         MARK MATERIALIZED VARDIM                    CCGC      512
           716  7170000021                        ISSUE  I.BCI       START OF CCG OUTPUT                         CCGC      513
           720  5110000000 X                      SA1    L$TXT                                                   CCGC      514
                          7261777773              SX6    X1-4                                                    CCGC      515
           721  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/05. 20.00.43.      PAGE    30
        SUBROUTINES.                                                  OVC 
  
           722  7170000026                        ISSUE  I.ECI                                                   CCGC      518
           724  0400000710 +                      EQ     EXIT.                                                   CCGC      519
                                                                                                                 CCGC      520
           725                     1     OVCA     BSS    1           ENTRY SYMTAB ORDINAL                        CCGC      521
  
  
  
  
                                        **        MVT - MOVE VARDIM TO TXT.                                      CCGC      523
                                                                                                                 CCGC      524
           726  0400400726 +             MVT      SUBR                                                           CCGC      525
           727  43600                             MX6    0                                                       CCGC      526
                     5160000000 X                 SA6    =XL$TXT                                                 CCGC      527
           730  7211000003                        ALLOC  TXT,X1+3                                                CCGC      528
           732  43774                             MX7    60                                                      CCGC      529
                     6273777776                   SB7    X3-1                                                    CCGC      530
                               53727              SA7    X2+B7                                                   CCGC      531
           733  7213777774                        SX1    X3-3                                                    CCGC      532
                          10611                   BX6    X1                                                      CCGC      533
                               10322              BX3    X2                                                      CCGC      534
           734  54630                             SA6    A3                                                      CCGC      535
                     5120000000 X                 SA2    =XO$VDT                                                 CCGC      536
           735  0100000000 X                      MOVE   X1,X2,X3    MOVE (L$VDT, VDT, TXT)                      CCGC      537
           736  0400000726 +                      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
           737  0400400737 +             MMV      SUBR                                                           CCGC      546
           740  5120000000 X                      SA2    =XO$TXT                                                 CCGC      547
                          6140000031              SB4    59-D.STP                                                CCGC      548
           741  5212000016                        SA1    X2+2+3*4    I = 4  STORE MAY BE 4TH INST. AT EARLIEST   CCGC      549
                          5120000000 X            SA2    =XO$VDI                                                 CCGC      550
           742  63620                             SB6    X2                                                      CCGC      551
                     5120000046 X                 SA2    =XF$RDT+OC.NOP                                          CCGC      552
           743  6150000046                        SB5    OC.NOP                                                  CCGC      553
                          10722                   BX7    X2                                                      CCGC      554
                               43502              MX5    VD.MAL                                                  CCGC      555
           744  6130000004                        SB3    4                                                       CCGC      556
                                                  LX5    VD.MAL+VD.MAP                                           CCGC      557
                          43052                   MX0    -VD.CAL                                                 CCGC      558
                                                                                                                 CCGC      559
           745  22341                    MMV10    LX3    B4,X1                                                   FC50182     5
                     54113                        SA1    A1+B3                                                   CCGC      561
                          0323000745 +            PL     X3,MMV10    IF NOT ST[D(I)]                             FC50182     6
           746  0303000737 +                      ZR     X3,EXIT.    IF I = LEN(TXT)                             CCGC      563
                          5021777772              SA2    A1-5        R2W = R2(I)                                 CCGC      564
           747  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/05. 20.00.43.      PAGE    31
        SUBROUTINES.                                                  MMV 
  
           750  0313000753 +                      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
           751  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
           752  0400000745 +                      EQ     MMV10                                                   FC50182     8
                                                                                                                 CCGC      577
           753  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
           754  0400000745 +                      EQ     MMV10                                                   FC50182    10
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    32
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
           754                           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
           755  0400400755 +             ISA      SUBR   =                                                       COMFISA     7
           756  5120000000 X                      SA2    =XCO.DBID                                               COMFISA     8
                          0302000764 +            ZR     X2,ISA05    IF DB=ID NOT SELECTED                       COMFISA     9
           757  7170007461                        ISSUE  7461B       SX6 A1                                      COMFISA    10
           761  5110000000 X                      SA1    =XS=SA1                                                 COMFISA    11
                          7170005160              ISSUE  5160B,X1    SA6 SAVEA1.                                 COMFISA    12
                                                                                                                 COMFISA    13
           764  5120000000 X             ISA05    SA2    =XN.EPL                                                 COMFISA    14
                          0312001006 +            NZ     X2,ISA20    IF CPL. CALL NEEDED                         COMFISA    15
                                                                                                                 FC50249     7
           765  5110000000 X             ISA15    SA1    =XN.FP                                                  FC50249     8
                          0311000770 +            NZ     X1,ISA17    IF FP/S                                     COMFISA    17
           766  5120000000 X                      SA2    MOD                                                     FC50249     9
                          43051                   MX0    -MO.CLIFL                                               COMFISA    20
                               20237              LX2    -MO.CLIFP                                               COMFISA    21
           767  15220                             BX2    -X0*X2                                                  COMFISA    22
                     0302000755 +                 ZR     X2,EXIT.    IF NOT CHARACTER FUNCTION                   COMFISA    23
                                                                                                                 COMFISA    24
           770  7170007460               ISA17    ISSUE  7460B       SX6 A0                                      COMFISA    25
           772  7170005401                        ISSUE  5401B       SA0 A1                                      COMFISA    26
           774  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    27
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    28
           777  5120000000 X                      SA2    =XCO.DBID                                               FC5A436     5
                          0302000755 +            ZR     X2,EXIT.    RETURN IF DEBUG NOT ON                      FC5A436     6
          1000  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436     7
          1002  5110000000 X                      SA1    =XS=SA0                                                 FC5A436     8
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436     9
          1005  0400000755 +                      EQ     EXIT.                                                   COMFISA    29
                                                                                                                 COMFISA    30
          1006  5120000000 X             ISA20    SA2    =X"O$"SYM                                               COMFISA    31
                          22514                   LX5    B1,X4                                                   COMFISA    32
                               36645              IX6    X4+X5                                                   COMFISA    33
          1007  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
          1010  15630                             BX6    -X0*X3                                                  COMFISA    38
                     5140000000 X                 SA4    =X"O$"ENTP                                              COMFISA    39
          1011  0306000765 +                      ZR     X6,ISA15    IF NO FPS THIS ENTRY                        COMFISA    40
                          36446                   IX4    X4+X6                                                   COMFISA    41
          1012  5120000000 X                      SA2    =XMOD                                                   COMFISA    42
                          43051                   MX0    -MO.CLIFL                                               COMFISA    43
                               20237              LX2    -MO.CLIFP                                               COMFISA    44
          1013  15220                             BX2    -X0*X2                                                  COMFISA    45
                     0302001024 +                 ZR     X2,ISA30    IF NOT CHAR FUNCTION                        COMFISA    46
                                                                                                                 COMFISA    47
          1014  7170001061                        ISSUE  1061B       BX6 X1                                      COMFISA    48
          1016  76110                             =X1    1                                                       COMFISA    49
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFISA    50
                          7170005011              ISSUE  5011B,X1     SA1 A1+1                                   COMFISA    51
          1021  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/05. 20.00.43.      PAGE    33
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
                                                                                                                 COMFISA    54
          1024  5214777776               ISA30    SA1    X4-1                                                    COMFISA    55
                          43652                   MX6    -EH.BIASL                                               COMFISA    56
                                                  LX1    -EH.BIASP                                               COMFISA    57
                               15316              BX3    -X6*X1                                                  COMFISA    58
          1025  5110000000 X                      SA1    =XS=CP                                                  COMFISA    59
                          20352                   LX3    PB.BIASP-PB.TAGP                                        COMFISA    60
                               12413              BX4    X1+X3                                                   COMFISA    61
          1026  7170007060                        ISSUE  7060B       SX6 A0+                                     COMFISA    62
          1030  5110000000 X                      SA1    =XS=GPL                                                 COMFISA    63
                          7170005100              ISSUE  5100B,X1          SA0 GPL.                              COMFISA    64
          1033  7170005130                        ISSUE  5130B,X4    SA3 CP.+BIAS[ENTP]                          COMFISA    65
          1036  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    66
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    67
          1041  5110000000 X                      SA1    =XS=CPL                                                 COMFISA    68
                          7170000035              ISSUE  I.RJ3,X1          RJ CPL.                               COMFISA    69
          1044  5120000000 X                      SA2    =XCO.DBID                                               FC5A436    10
                          0302001052 +            ZR     X2,ISA35    IF DEBUG NOT ON                             FC5A436    11
          1045  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436    12
          1047  5110000000 X                      SA1    =XS=SA0                                                 FC5A436    13
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436    14
                                1052 +   ISA35    EQU    *                                                       FC5A436    15
          1052  43601                             MX6    1                                                       F2950F5A    5
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    6
          1053  0400000755 +                      EQ     EXIT.                                                   COMFISA    70
                                         COMFISA  ENDX                                                           COMFISA    71
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    34
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
          1053                           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
          1054  0400401054 +             MAV      SUBR                                                           COMFMAV    15
                                                                                                                 COMFMAV    16
                                        *         CLEAR VD.ALO OF ALL VARDIM CELLS.                              COMFMAV    17
                                                                                                                 COMFMAV    18
          1055  5120000000 X                      SA2    =X"O$"VDI                                               COMFMAV    19
                          5130000000 X            SA3    =X"L$"VDI                                               COMFMAV    20
          1056  63730                             SB7    X3                                                      COMFMAV    21
                     43001                        CLAS=  X0,VD,ALO                                               COMFMAV    22
                               53420              SA4    X2                                                      COMFMAV    23
                                                                                                                 COMFMAV    24
          1057  15640                    MAV10    BX6    -X0*X4                                                  COMFMAV    25
                     67771                        SB7    B7-B1                                                   COMFMAV    26
                          54640                   SA6    A4                                                      COMFMAV    27
                               54441              SA4    A4+B1                                                   COMFMAV    28
          1060  0570001057 +                      NZ     B7,MAV10    IF VDI NOT EXHAUSTED                        COMFMAV    29
                          5120000000 X            SA2    "O$"SYM                                                 COMFMAV    30
          1061  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
          1062  43057                             MX0    -WB.PNTL                                                COMFMAV    35
                     20215                        LX2    -WB.PNTP                                                COMFMAV    36
                          15620                   BX6    -X0*X2                                                  COMFMAV    37
          1063  0306001054 +                      ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFMAV    38
                          5110000000 X            SA1    =X"O$"ENTP                                              COMFMAV    39
          1064  36016                             IX0    X1+X6                                                   COMFMAV    40
                     53200                        SA2    X0          SKIP HEADER                                 COMFMAV    41
                          6140000074              S"BT"  60                                                      COMFMAV    42
                                                                                                                 COMFMAV    43
          1065  0540001067 +             MAV20    NZ     "BT",MAV30  IF THIS WORD NOT FINISHED                   COMFMAV    44
                          6140000074              S"BT"  60                                                      COMFMAV    45
          1066  5022000001                        SA2    A2+1                                                    COMFMAV    46
                                                                                                                 COMFMAV    47
          1067  6144777760               MAV30    S"BT"  "BT"-15                                                 COMFMAV    48
                          43055                   MX0    -EF.ORDL                                                COMFMAV    49
                               23442              AX4    "BT",X2                                                 COMFMAV    50
          1070  15340                             BX3    -X0*X4                                                  COMFMAV    51
                     0303001054 +                 ZR     X3,EXIT.    IF LAST PARAMETER                           COMFMAV    52
                               22413              LX4    B1,X3                                                   COMFMAV    53
          1071  36634                             IX6    X3+X4                                                   COMFMAV    54
                     53567                        SA5    B7+X6       WB(ENTP(I))                                 COMFMAV    55
                          20561                   HX5    WB.ARY                                                  COMFMAV    56
          1072  0325001107 +                      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/05. 20.00.43.      PAGE    35
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
                               20530              LX5    1+WB.ARYP-WB.PNTP                                       COMFMAV    59
          1073  15353                             BX3    -X3*X5                                                  COMFMAV    60
                     5110000000 X                 SA1    =X"O$"DIM                                               COMFMAV    61
                               36513              IX5    X1+X3                                                   COMFMAV    62
          1074  53150                             SA1    X5                                                      COMFMAV    63
                                                  HX1    DH.VD                                                   COMFMAV    64
                     0321001107 +                 PL     X1,MAV90    IF NOT VARIABLE-DIMENSION                   COMFMAV    65
                               20102              LX1    DH.VDP-DH.VPP                                           COMFMAV    66
          1075  0321001077 +                      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
          1076  0100001112 +                      RJ     MVD         MARK PRODUCT OF SPAN VD.                    COMFMAV    70
                                                                                                                 COMFMAV    71
          1077  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
          1100  54111                    MAV50    =A1    A1+1                                                    COMFMAV    77
                     20136                        LX1    59-D1.SPANP-DM.TDP                                      FC5A231     8
                          0321001102 +            PL     X1,MAV60    IF NOT VARIABLE SPAN                        COMFMAV    79
          1101  20136                             LX1    1+DM.TDP                                                FC5A231     9
                     10311                        BX3    X1                                                      COMFMAV    81
                          0100001112 +            RJ     MVD         MARK SPAN VD.                               COMFMAV    82
                                                                                                                 COMFMAV    83
          1102  54111                    MAV60    =A1    A1+1                                                    COMFMAV    84
                                                  LX1    59-D2.LBP-DM.TDP                                        FC5A231    10
                     0321001104 +                 PL     X1,MAV70    IF VARIABLE LOWER BOUND                     COMFMAV    86
                               10311              BX3    X1                                                      COMFMAV    87
          1103  20336                             LX3    1+DM.TDP                                                FC5A231    11
                     0100001112 +                 RJ     MVD         MARK LOWER BOUND VD.                        COMFMAV    89
                                                                                                                 COMFMAV    90
          1104  20136                    MAV70    LX1    D2.LBP-D2.UBP                                           COMFMAV    91
                     0321001106 +                 PL     X1,MAV80    IF NOT VARIABLE UPPER BOUND                 COMFMAV    92
                               10311              BX3    X1                                                      COMFMAV    93
          1105  20336                             LX3    1+DM.TDP                                                FC5A231    12
                     0100001112 +                 RJ     MVD         MARK UPPER BOUND VD.                        COMFMAV    95
                                                                                                                 COMFMAV    96
          1106  67221                    MAV80    =B2    B2-1                                                    COMFMAV    97
                     0520001100 +                 NZ     B2,MAV50    IF MORE DIMENSIONS TO GO                    COMFMAV    98
                                                                                                                 COMFMAV    99
          1107  54351                    MAV90    =A3    A5+WC.W-WB.W                                            COMFMAV   100
                     20336                        HX3    WC.CTYP                                                 COMFMAV   101
                          0323001065 +            PL     X3,MAV20    IF NOT PASSED-LENGTH CHARACTER FORMAL       COMFMAV   102
                                                  LX3    1+WC.CTYPP-WC.CLENP                                     COMFMAV   103
          1110  0100001112 +                      RJ     MVD         MARK CLEN VD.                               COMFMAV   104
          1111  0400001065 +                      EQ     MAV20                                                   COMFMAV   105
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      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
          1112  0400401112 +             MVD      SUBR                                                           COMFMAV   113
          1113  43052                             MX0    -WC.CLENL                                               COMFMAV   114
                     15630                        BX6    -X0*X3                                                  COMFMAV   115
                          5130000000 X            SA3    "O$"VDI                                                 COMFMAV   116
          1114  43401                             CLAS=  X4,VD,ALO                                               COMFMAV   117
                          36036                   IX0    X3+X6                                                   COMFMAV   118
                               53300              SA3    X0                                                      COMFMAV   119
          1115  12643                             BX6    X4+X3                                                   COMFMAV   120
                     54630                        SA6    A3          ALO[VDI(ORD)] = 1                           COMFMAV   121
                          0400001112 +            EQ     EXIT.                                                   COMFMAV   122
                                         COMFMAV  ENDX                                                           COMFMAV   123
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    37
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              OSI 
  
                                        **        OSI - ISSUE SUB INDEX TABLE.                                   CCGC      586
                                                                                                                 CCGC      587
          1116  0400401116 +             OSI      SUBR                                                           CCGC      588
          1117  5160001176 +                      SA6    OSIA                                                    CCGC      589
                          43700                   MX7    0                                                       CCGC      590
          1120  5170000000 X                      SA7    =XL$TST                                                 CCGC      591
                          5170001177 +            SA7    OSIB                                                    CCGC      592
          1121  5110000000 X                      SA1    =XN.CPL                                                 CCGC      593
                          73111                   SX1    X1+B1                                                   CCGC      594
          1122  5100000000 X                      ALLOC  TST,X1                                                  CCGC      595
          1123  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
          1124  5120000000 X                      SA2    =XL$ENTP                                                CCGC      602
                          36012                   IX0    X1+X2                                                   CCGC      603
          1125  5251777776                        SA5    X1-1                                                    CCGC      604
                          63500                   SB5    X0                                                      CCGC      605
          1126  0400001141 +                      EQ     OSI20                                                   CCGC      606
                                                                                                                 CCGC      607
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           CCGC      608
                                                                                                                 CCGC      609
          1127  5120001177 +             OSI10    SA2    OSIB                                                    CCGC      610
                          5130000000 X            SA3    L$TST                                                   CCGC      611
          1130  37132                             IX1    X3-X2                                                   CCGC      612
                     0301001141 +                 ZR     X1,OSI20    IF NO SUBS THIS LIST                        CCGC      613
                               43101              MX1    1                                                       CCGC      614
          1131  5100000000 X                      ADDWRD TST,X1                                                  CCGC      615
          1132  5110001177 +                      SA1    OSIB                                                    CCGC      616
                          63210                   SB2    X1                                                      CCGC      617
          1133  5110000000 X                      SA1    =XO$TST                                                 CCGC      618
                          5130000000 X            SA3    L$TST                                                   CCGC      619
          1134  0100001211 +                      RJ     SLE         SQUEEZE LAST ENTRY IF POSSIBLE              CCGC      620
          1135  5160001177 +                      SA6    OSIB                                                    CCGC      621
                          5160000000 X            SA6    L$TST                                                   CCGC      622
          1136  76621                             SX6    B2+B1                                                   CCGC      623
                     5110001200 +                 SA1    OSIC                                                    CCGC      624
                               53210              SA2    X1                                                      CCGC      625
          1137  5110001176 +                      SA1    OSIA                                                    CCGC      626
                          5211001201 +            SA1    OSIS+X1                                                 CCGC      627
          1140  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
          1141  64351                    OSI20    SB3    A5+B1                                                   CCGC      633
                     76630                        SX6    B3                                                      CCGC      634
                          5160001200 +            SA6    OSIC        SAVE HEADER ADDRESS                         CCGC      635
          1142  67635                             SB6    B3-B5                                                   CCGC      636
                     0460001162 +                 ZR     B6,OSI50    IF END OF ENTP                              CCGC      637
                               56531              SA5    B3+B1       SKIP HEADER                                 CCGC      638
          1143  6140000074                        SB4    60                                                      CCGC      639
                                                                                                                 CCGC      640
          1144  0540001146 +             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/05. 20.00.43.      PAGE    38
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              OSI 
  
          1145  5055000001                        SA5    A5+1                                                    CCGC      643
                                                                                                                 CCGC      644
          1146  6144777760               OSI40    SB4    B4-15                                                   CCGC      645
                          43055                   MX0    -EF.ORDL                                                CCGC      646
                               23345              AX3    B4,X5                                                   CCGC      647
          1147  15630                             BX6    -X0*X3                                                  CCGC      648
                     0306001127 +                 ZR     X6,OSI10    IF END OF LIST                              CCGC      649
          1150  5110000000 X                      SA1    O$SYM                                                   CCGC      650
                          22716                   LX7    B1,X6                                                   CCGC      651
                               36376              IX3    X7+X6                                                   CCGC      652
          1151  63711                             =B7    X1+WB.W                                                 CCGC      653
                     53137                        SA1    B7+X3                                                   CCGC      654
                          43063                   MX0    -WB.FPNOL                                               CCGC      655
          1152  5120000000 X                      SA2    =XO$FPI                                                 CCGC      656
                          20133                   LX1    -WB.FPNOP                                               CCGC      657
                               15110              BX1    -X0*X1                                                  CCGC      658
          1153  36312                             IX3    X1+X2                                                   CCGC      659
                     5233777776                   SA3    X3-1                                                    CCGC      660
          1154  5140001176 +                      SA4    OSIA                                                    CCGC      661
                          5224001207 +            SA2    OSIM3+X4                                                FC5A400     8
          1155  5214001205 +                      SA1    OSIM2+X4                                                CCGC      663
                          11013                   BX0    X1*X3                                                   CCGC      666
          1156  0300001144 +                      ZR     X0,OSI30    IF FP NOT APPLICABLE                        CCGC      667
                          11023                   BX0    X2*X3                                                   FC5A400     9
          1157  0300001144 +                      ZR     X0,OSI30    IF SUB0 AND NOT LEVEL = 0                   CCGC      670
                          73160                   ADDWRD TST,X6                                                  CCGC      671
          1161  0400001144 +                      EQ     OSI30                                                   CCGC      672
                                                                                                                 CCGC      673
          1162  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
          1163  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
          1164  5242777776                        SA4    X2-1                                                    CCGC      683
                                                                                                                 CCGC      684
          1165  54441                    OSI60    SA4    A4+B1                                                   CCGC      685
                     0304001116 +                 ZR     X4,EXIT.    IF TST TERMINATOR                           CCGC      686
          1166  0334001173 +                      MI     X4,OSI70    IF SUBLIST TERMINATOR                       CCGC      687
                          5110001176 +            SA1    OSIA                                                    CCGC      688
          1167  5221001203 +                      SA2    OSIO+X1                                                 CCGC      689
                          10722                   ISSUE  X2,X4                                                   CCGC      690
          1172  0400001165 +                      EQ     OSI60                                                   CCGC      691
                                                                                                                 CCGC      692
          1173  7170000043               OSI70    ISSUE  I.ZERO                                                  CCGC      693
          1175  0400001165 +                      EQ     OSI60                                                   CCGC      694
                                                                                                                 CCGC      695
          1176                     1     OSIA     BSS    1                                                       CCGC      696
          1177                     1     OSIB     BSSZ   1                                                       CCGC      697
          1200                     1     OSIC     BSS    1                                                       CCGC      698
          1201  00000000000000000041     OSIS     CON    EH.SUBIP,EH.SB0IP                                       CCGC      699
          1202  00000000000000000022
          1203  00000000000000000037     OSIO     CON    I.SUBI,I.SB0I                                           CCGC      700
          1204  00000000000000000040
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    39
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              OSI 
  
          1205                           OSIM2    BFMW   FP,LEN                                                  CCGC      703
          1206                                    BFMW   FP,(LC,VD,SUB0)                                         CCGC      704
          1207  77777777777777777777     OSIM3    VFD    60/-0                                                   CCGC      705
          1210                                    BFMW   FP,LEV0                                                 CCGC      706
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      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
          1211  0400401211 +             SLE      SUBR                                                           CCGC      719
          1212  10633                             BX6    X3                                                      CCGC      720
                     63330                        SB3    X3                                                      CCGC      721
                          0423001211 +            EQ     B2,B3,EXIT. IF NOTHING ADDED                            CCGC      722
          1213  67432                             SB4    B3-B2                                                   CCGC      723
                     67324                        SB3    B2-B4                                                   CCGC      724
                          0724001211 +            LT     B2,B4,EXIT. IF NOT ENOUGH ROOM FOR POSSIBLE COPY        CCGC      725
                                                                                                                 CCGC      726
          1214  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
          1215  13732                    SLE20    BX7    X3-X2                                                   CCGC      733
                     55331                        =A3    A3-1                                                    CCGC      734
                          0730001211 +            MI     B3,EXIT.    IF BEGINNING OF TABLE - NO HIT              CCGC      735
          1216  67331                             =B3    B3-1                                                    CCGC      736
                     0317001215 +                 NZ     X7,SLE20    IF NOT MATCH                                CCGC      737
                               74031              =X0    A3+1                                                    CCGC      738
          1217  54221                             =A2    A2+1                                                    CCGC      739
                     53301                        =A3    X0+1                                                    CCGC      740
                                                                                                                 CCGC      741
          1220  0470001224 +             SLE30    ZR     B7,SLE40    IF WHOLE ENTRY MATCHES                      CCGC      742
                          13723                   BX7    X2-X3                                                   CCGC      743
                               67771              =B7    B7-1                                                    CCGC      744
          1221  54221                             =A2    A2+1                                                    CCGC      745
                     54331                        =A3    A3+1                                                    CCGC      746
                          0307001220 +            ZR     X7,SLE30    IF MATCH                                    CCGC      747
                                                                                                                 CCGC      748
                                        *         START LOOKING FOR FIRST ELEMENT AGAIN.                         CCGC      749
                                                                                                                 CCGC      750
          1222  37301                             IX3    X0-X1                                                   CCGC      751
                     6233777776                   SB3    X3-1                                                    CCGC      752
          1223  0400001214 +                      EQ     SLE10                                                   CCGC      753
                                                                                                                 CCGC      754
          1224  76620                    SLE40    SX6    B2          NEW LENGTH                                  CCGC      755
                     37301                        IX3    X0-X1                                                   CCGC      756
                          63230                   SB2    X3          BIAS                                        CCGC      757
          1225  0400001211 +                      EQ     EXIT.                                                   CCGC      758
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    41
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OSC 
  
          1225                           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
          1226  0400401226 +             OSC      SUBR                                                           COMFOSC     9
          1227  5110000016 +                      SA1    =XCC$SUB                                                COMFOSC    10
                          0301001226 +            ZR     X1,EXIT.    IF NO SUBS                                  COMFOSC    11
          1230  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    12
                          22314                   LX3    B1,X4                                                   COMFOSC    13
                               36534              IX5    X3+X4                                                   COMFOSC    14
          1231  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
          1232  15650                             BX6    -X0*X5                                                  COMFOSC    19
                     0306001226 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    20
          1233  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    21
                          36616                   IX6    X1+X6                                                   COMFOSC    22
          1234  5226777776                        SA2    X6-1                                                    COMFOSC    23
                          43055                   MX0    -EH.SUBIL                                               COMFOSC    24
                               20233              LX2    -EH.SUBIP                                               COMFOSC    25
          1235  15620                             BX6    -X0*X2                                                  COMFOSC    26
                     0306001226 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    27
          1236  5130000000 X                      SA3    =XS=SUBI                                                COMFOSC    28
                          7266777776              SX6    X6-1                                                    COMFOSC    29
          1237  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    30
                     12136                        BX1    X3+X6                                                   COMFOSC    31
                          7170005110              ISSUE  5110B,X1    SA1 SUBI.+BIAS                              COMFOSC    32
          1242  5110000000 X                      SA1    =XS=SPA                                                 COMFOSC    33
                          7170000035              ISSUE  I.RJ3,X1          RJ SP5.                               COMFOSC    34
          1245  43601                             MX6    1                                                       F2950F5A    7
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    8
          1246  0400001226 +                      EQ     EXIT.                                                   COMFOSC    35
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      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
          1247  0400401247 +             OZC      SUBR                                                           COMFOSC    43
          1250  5110000000 X                      SA1    =XLEVEL0                                                COMFOSC    44
                          0301001247 +            ZR     X1,EXIT.    IF NO SUB0                                  COMFOSC    45
                                         #MD      IFEQ   .DAL,1                                                  COMFOSC    46
          1251  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    47
                          22314                   LX3    B1,X4                                                   COMFOSC    48
                               36534              IX5    X3+X4                                                   COMFOSC    49
          1252  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
          1253  15650                             BX6    -X0*X5                                                  COMFOSC    54
                     0306001247 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    55
          1254  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    56
                          36616                   IX6    X1+X6                                                   COMFOSC    57
          1255  5226777776                        SA2    X6-1                                                    COMFOSC    58
                          43055                   MX0    -EH.SB0IL                                               COMFOSC    59
                               20252              LX2    -EH.SB0IP                                               COMFOSC    60
          1256  15620                             BX6    -X0*X2                                                  COMFOSC    61
                     0306001247 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    62
          1257  5130000000 X                      SA3    =XS=SUB0I                                               COMFOSC    63
                          7266777776              SX6    X6-1                                                    COMFOSC    64
          1260  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    65
                     12136                        BX1    X3+X6                                                   COMFOSC    66
                          7170005110              ISSUE  5110B,X1    SA1 SUB0I.+BIAS                             COMFOSC    67
          1263  5110000000 X                      SA1    =XS=SLI                                                 COMFOSC    68
                          7170000035              ISSUE  I.RJ3,X1          RJ SLI.                               COMFOSC    69
          1266  43601                             MX6    1                                                       F2950F5A    9
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A   10
          1267  0400001247 +                      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/05. 20.00.43.      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
          1270  0400401270 +             BR$AFT   SUBR   =                                                       CCGC      766
          1271  0400001270 +                      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
          1272  0400401272 +             MZP      SUBR                                                           CCGC      774
          1273  5130000000 X                      SA3    =XLEVEL0                                                CCGC      775
                          5110000000 X            SA1    =XL$VDT                                                 CCGC      776
          1274  0303001272 +                      ZR     X3,EXIT.    IF NO POSSIBLE SUB0*S                       CCGC      777
                                                                                                                 CCGC      778
                                         #MD      IFEQ   .DAL,1                                                  CCGC      779
                          0301001272 +            ZR     X1,EXIT.    IF NO VARDIM                                CCGC      780
          1275  0100000726 +                      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
          1276  5120000000 X                      SA2    O$VDI                                                   CCGC      787
                          5130000000 X            SA3    L$VDI                                                   CCGC      788
          1277  63730                             SB7    X3                                                      CCGC      789
                     43001                        CLAS=  X0,VD,ALO                                               CCGC      790
                               53420              SA4    X2                                                      CCGC      791
                                                                                                                 CCGC      792
          1300  12604                    MZP10    BX6    X0+X4                                                   CCGC      793
                     67771                        SB7    B7-B1                                                   CCGC      794
                          54640                   SA6    A4                                                      CCGC      795
                               54441              SA4    A4+B1                                                   CCGC      796
          1301  0570001300 +                      NZ     B7,MZP10    IF VDI NOT EXHAUSTED                        FC50182    11
                          0100000737 +            RJ     MMV         MARK NEEDED VARDIM (SQUEEZE UNNEEDED)       CCGC      798
          1302  7160001306 +                      PLUG   AT=BR$AFT+1,TO=MZP20,VOID=NO                            CCGC      799
          1304  5110000000 X                      SA1    L$TXT                                                   CCGC      800
                          7261777773              SX6    X1-4                                                    CCGC      801
          1305  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
          1306  7160001270 +             MZP20    PLUG   AT=BR$AFT+1,TO=BR$AFT,VOID=NO                           CCGC      807
          1310  7170000004                        SX7    4                                                       CCGC      808
                          5170000000 X            SA7    L$TXT                                                   CCGC      809
          1311  5120000000 X                      SA2    O$TXT                                                   CCGC      810
                          53120                   SA1    X2                                                      CCGC      811
          1312  5140001403 +                      CLAS=  X4,D,(FP,L2,LD)                                         CCGC      812
                          10044                   BX0    X4                                                      CCGC      813
          1313  5140000000 X                      SA4    =XO$FPI                                                 CCGC      814
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    44
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            MZP 
  
                          6274777776              SB7    X4-1                                                    CCGC      815
          1314  5150000000 X                      SA5    =XO$SYM                                                 CCGC      816
                          63651                   =B6    X5+WB.W                                                 CCGC      817
                               43763              MX7    -WB.FPNOL                                               CCGC      818
          1315  43501                             CLAS=  X5,FP,VD                                                CCGC      819
                                                                                                                 CCGC      820
          1316  26121                    MZP30    UX1    B2,X1                                                   CCGC      821
                                   0              ERRNZ  OC.EOQ                                                  CCGC      822
                     5011000002                   SA1    A1+2                                                    CCGC      823
          1317  0420001272 +                      ZR     B2,EXIT.    IF END OF SEQUENCE                          CCGC      824
                          11201                   BX2    X0*X1                                                   CCGC      825
          1320  5011000002                        SA1    A1+2                                                    CCGC      826
                          13302                   BX3    X0-X2                                                   CCGC      827
          1321  0313001316 +                      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
          1322  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
          1323  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
          1324  54620                             SA6    A2                                                      CCGC      842
                     0400001316 +                 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/05. 20.00.43.      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
          1325  0400401325 +             CAW      SUBR                                                           CCGC      853
          1326  76100                             ADDWRD APT+B5,B0   ADD SEARCH TERMINATOR                       CCGC      854
          1330  7273777776                        SX7    X3-1                                                    CCGC      855
                          7105000000 X            SX0    =XBN=APL+B5                                             CCGC      856
          1331  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
          1332  54730                             SA7    A3          L$APT = L$APT - 1                           CCGC      861
                                                                                                                 CCGC      862
                                        *         DEFINE ADDRESSES OF NON-EQUIVALENCED APLISTS.                  CCGC      863
                                                                                                                 CCGC      864
          1333  12551                    CAW10    BX5    X5+X1       EQFLAG = EQFLAG .OR. EQV[APT(N)]            CCGC      865
                     54111                        SA1    A1+B1       N=N+1                                       CCGC      866
                          0301001337 +            ZR     X1,CAW20    IF N GT L$APT                               CCGC      867
                                                  LX1    59-AI.EQVP                                              CCGC      868
          1334  0331001333 +                      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
          1335  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
          1336  12660                             BX6    X6+X0       RB[APT(N)] = BN=APL                         CCGC      878
                     54610                        SA6    A1                                                      CCGC      879
                          0400001333 +            EQ     CAW10                                                   CCGC      880
                                                                                                                 CCGC      881
                                        *         DEFINE ADDRESSES OF EQV. ENTRYIES.                             CCGC      882
                                                                                                                 CCGC      883
          1337  0325001325 +             CAW20    PL     X5,EXIT.    IF .NOT. EQFLAG                             CCGC      884
                          5156000000              SA5    B6+         N=0                                         CCGC      885
                                                                                                                 CCGC      886
          1340  54551                    CAW30    SA5    A5+B1       N = N + 1                                   CCGC      887
                     0305001325 +                 ZR     X5,EXIT.    IF N GT L$APT                               CCGC      888
                                                  LX5    59-AI.EQVP                                              CCGC      889
          1341  0325001340 +                      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
          1342  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
          1343  0331001342 +                      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
          1344  36612                             IX6    X1+X2       RA[APT(N)] = RA[APT)] + CA                  CCGC      905
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    46
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            CAW 
  
                     54650                        SA6    A5                                                      CCGC      906
                          0400001340 +            EQ     CAW30                                                   CCGC      907
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      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
          1345  0400401345 +             MEP      SUBR                                                           CCGC      912
                                                                                                                 CCGC      913
                                        *         SET LENGTH OF RUN-TIME CONSTANT TABLE FOR PASS3.               CCGC      914
                                                                                                                 CCGC      915
          1346  5110000000 X                      SA1    =XL$CUT                                                 CCGC      916
                          5120000000 X            SA2    =XO$CUT                                                 CCGC      917
          1347  43600                             MX6    0                                                       CCGC      918
                     0301001352 +                 ZR     X1,MEP10    IF NO CONSTANTS                             CCGC      919
                               63210              SB2    X1                                                      CCGC      920
                                                                                                                 CCGC      921
          1350  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
          1351  0520001350 +                      NZ     B2,MEP5     IF NOT TOP OF CUT                           CCGC      925
                                                                                                                 CCGC      926
          1352  5160000000 X             MEP10    SA6    =XN.CON                                                 CCGC      927
                                                                                                                 CCGC      928
                          5130000000 X            SA3    =XCC$PC                                                 CCGC      929
          1353  5140000000 X                      SA4    =XCC$BLEN                                               CCGC      930
                          5120000000 X            SA2    =XCC$LBO                                                CCGC      931
          1354  20322                             LX3    18                                                      CCGC      932
                     12634                        BX6    X3+X4                                                   CCGC      933
                          5262000000 X            SA6    =XF$LBT+X2                                              CCGC      934
          1355  0100000000 X                      CALL   CG$IEP                                                  CCGC      935
          1356  0100001360 +                      RJ     MDV         REFORMAT APPROPRIATE VD POINTERS IN DIMTAB  CCGC      936
          1357  0400001345 +                      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
          1360  0400401360 +             MDV      SUBR                                                           CCGC      945
          1361  43044                             MX0    -DM.INFL                                                FC5A231   156
                     5120000000 X                 SA2    =XO$DIM                                                 CCGC      947
          1362  5130000000 X                      SA3    =XL$DIM                                                 CCGC      948
                          36723                   IX7    X2+X3                                                   CCGC      949
                               63770              SB7    X7                                                      CCGC      950
          1363  5222777776                        SA2    X2-1                                                    CCGC      951
                                                                                                                 CCGC      952
          1364  54221                    MDV5     SA2    A2+B1                                                   CCGC      953
                     65227                        SB2    A2-B7                                                   CCGC      954
                          0420001360 +            ZR     B2,EXIT.    IF DIMTAB EXHAUSTED                         CCGC      955
          1365  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
          1366  0324001400 +                      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/05. 20.00.43.      PAGE    48
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            MDV 
  
          1367  0324001400 +                      PL     X4,MDV40    IF NOT NEEDED                               CCGC      963
                          63630                   SB6    X3                                                      CCGC      964
                                                                                                                 CCGC      965
          1370  54221                    MDV10    =A2    A2+1                                                    CCGC      966
                     20236                        LX2    59-D1.SPANP-DM.TDP                                      FC5A231   157
                          0322001373 +            PL     X2,MDV20    IF NOT VARIABLE SPAN                        CCGC      968
          1371  20236                             LX2    1+DM.TDP                                                FC5A231   158
                     15120                        BX1    -X0*X2                                                  CCGC      970
                          0100000000 X            CALL   CG$AVO                                                  CCGC      971
          1372  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
          1373  54221                    MDV20    =A2    A2+1                                                    CCGC      977
                                                  LX2    59-D2.LBP-DM.TDP                                        FC5A231   159
                     0322001376 +                 PL     X2,MDV30    IF NOT VARIABLE LOWER BOUND                 CCGC      979
                               20236              LX2    1+DM.TDP                                                FC5A231   160
          1374  15120                             BX1    -X0*X2                                                  CCGC      981
                     0100000000 X                 CALL   CG$AVO                                                  CCGC      982
          1375  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
          1376  67661                    MDV30    =B6    B6-1                                                    CCGC      988
                     0560001370 +                 NZ     B6,MDV10    IF MORE DIMENSIONS TO GO                    CCGC      989
          1377  0400001364 +                      EQ     MDV5                                                    CCGC      990
                                                                                                                 CCGC      991
          1400  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
          1401  0400001364 +                      EQ     MDV5                                                    CCGC      996
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      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/05. 20.00.43.      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.
  
          1402  77770000000077777777    ;;    ;;;;
          1403  00000001400010000000       A5 H 
  
          1417                                    END                                                            CCGC     1001
  
                             71200B CM  STORAGE USED             5899 STATEMENTS     2088 SYMBOLS      000033 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.866 SECONDS        1308 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        ADW$            0   EXTERNAL*      25/38     37/30     38/26     45/06
        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       1270   PROGRAM*       43/06 L   43/06 E   43/42 S   43/50     43/50 S
        B1=1            0 
        CAW          1325   PROGRAM*       26/03     26/05     45/05 L
        CAW10        1333   PROGRAM*       45/17 L   45/21     45/32
        CAW20        1337   PROGRAM*       45/19     45/36 L
        CAW30        1340   PROGRAM*       45/39 L   45/42     46/02
        CAW40        1342   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    8/23
        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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        DPT           111   PROGRAM*        5/06 L   17/51
        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           755   PROGRAM*       25/26     32/06 L   32/06 E
        ISA05         764   PROGRAM*       32/08     32/13 L
        ISA15         765   PROGRAM*       32/16 L   32/44
        ISA17         770   PROGRAM*       32/17     32/24 L
        ISA20        1006   PROGRAM*       32/14     32/35 L
        ISA30        1024   PROGRAM*       32/50     33/02 L
        ISA35        1052   PROGRAM*       33/18     33/22 D
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        ITS           420   PROGRAM*       20/03 D   20/08 E   26/06
        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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        L=DIM           0   EXTERNAL*       4/14 S
        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          1054   PROGRAM*       29/51     34/14 L
        MAV10        1057   PROGRAM*       34/24 L   34/28
        MAV20        1065   PROGRAM*       34/43 L   35/44     35/47
        MAV30        1067   PROGRAM*       34/43     34/47 L
        MAV40        1077   PROGRAM*       35/09     35/14 L
        MAV50        1100   PROGRAM*       35/19 L   35/40
        MAV60        1102   PROGRAM*       35/21     35/26 L
        MAV70        1104   PROGRAM*       35/28     35/33 L
        MAV80        1106   PROGRAM*       35/34     35/39 L
        MAV90        1107   PROGRAM*       34/56     35/07     35/42 L
        MDV          1360   PROGRAM*       47/28     47/40 L
        MDV10        1370   PROGRAM*       48/04 L   48/27
        MDV20        1373   PROGRAM*       48/06     48/15 L
        MDV30        1376   PROGRAM*       48/17     48/26 L
        MDV40        1400   PROGRAM*       47/56     48/01     48/30 L
        MDV5         1364   PROGRAM*       47/48 L   48/28     48/34
        MEP          1345   PROGRAM*       26/07     47/04 L
        MEP10        1352   PROGRAM*       47/11     47/19 L
        MEP5         1350   PROGRAM*       47/14 L   47/17
        ML.PROG         1   FTX            17/11
        MMV           737   PROGRAM*       29/52     30/35 L   43/41
        MMV10         745   PROGRAM*       30/49 L   30/51     31/08     31/14
        MMV15         753   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          1112   PROGRAM*       35/12     35/24     35/31     35/37     35/46     36/07 L
        MVE=            0   EXTERNAL*      30/23
        MVT           726   PROGRAM*       29/45     30/11 L   43/24
        MZP          1272   PROGRAM*       24/35     43/17 L
        MZP10        1300   PROGRAM*       43/36 L   43/40
        MZP20        1306   PROGRAM*       43/42     43/50 L
        MZP30        1316   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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        N.FP            0   EXTERNAL*      32/16
        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           623   PROGRAM*       24/46     25/32     27/05 L
        OLCA          702   PROGRAM*       28/17 S   28/50     29/10 L
        OLC10         643   PROGRAM*       27/50 L   28/14     28/47
        OLC20         645   PROGRAM*       27/50     27/54 L
        OLC24         655   PROGRAM*       28/21     28/22     28/25 L
        OLC25         656   PROGRAM*       28/29 L   28/55
        OLC30         671   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          1226   PROGRAM*       24/33     25/28     41/08 L
        OSI          1116   PROGRAM*       24/30     24/39     37/03 L
        OSIA         1176   PROGRAM*       37/04 S   37/41     38/19     38/43     38/51 L
        OSIB         1177   PROGRAM*       37/07 S   37/25     37/31     37/36 S   38/52 L
        OSIC         1200   PROGRAM*       37/39     37/50 S   38/53 L
        OSIM2        1205   PROGRAM*       38/21     39/01 L
        OSIM3        1207   PROGRAM*       38/20     39/03 L
        OSIO         1203   PROGRAM*       38/44     38/56 L
        OSIS         1201   PROGRAM*       37/42     38/54 L
        OSI10        1127   PROGRAM*       37/25 L   38/07
        OSI20        1141   PROGRAM*       37/21     37/28     37/48 L
        OSI30        1144   PROGRAM*       37/56 L   38/23     38/25     38/27
        OSI40        1146   PROGRAM*       37/56     38/03 L
        OSI50        1162   PROGRAM*       37/52     38/29 L
        OSI60        1165   PROGRAM*       38/40 L   38/46     38/49
        OSI70        1173   PROGRAM*       38/42     38/48 L
        OTC           463   PROGRAM*        3/16     24/18 L   24/18 E
        OTCA          461   PROGRAM*       24/15 L   25/11 S   25/27     25/31     25/52
        OTCB          462   PROGRAM*       24/16 L   25/17 S   25/46
        OTC1          511   PROGRAM*       24/23     24/35 L
        OTC15         521   PROGRAM*       24/41 L
        OTC2          534   PROGRAM*       24/56 L   25/06     25/08     25/54
        OTC3          602   PROGRAM*       25/37     25/46 L
        OTC4          611   PROGRAM*       24/48     25/56 L
        OT.RM           0   EXTERNAL*       2/21 X
        OVC           710   PROGRAM*       24/44     25/30     29/40 L
        OVCA          725   PROGRAM*       29/42 S   29/50     30/04 L
        OZC          1247   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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        O$CVT           0   EXTERNAL*       4/01
        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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        PB.ORDP        36   FTX            17/06     17/07     19/26
        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         371   PROGRAM*       18/05 D   20/09 E
        PUSE          446   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          1211   PROGRAM*       37/35     40/12 L
        SLE10        1214   PROGRAM*       40/20 L   40/46
        SLE20        1215   PROGRAM*       40/26 L   40/30
        SLE30        1220   PROGRAM*       40/35 L   40/40
        SLE40        1224   PROGRAM*       40/35     40/48 L
        SNP=            0   EXTERNAL*       2/24 X    8/28
        SRI           703   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            1   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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        WC.CLENL       22   FTX            36/08
        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.RAL         30   FTX            17/39
        WC.RAP          0   FTX            17/39
        WC.RBL         12   FTX            17/39
        WC.RBP         60   FTX            17/10     17/39     45/11
        WC.RLL          2   FTX            17/39
        WC.RLP         72   FTX            17/14     17/39
        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          346   PROGRAM*       18/06 D
        WINOC         325   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 
  
  
        A               3                  17/39 D   17/39     17/39 D   17/39     17/39 D   17/39     17/39 D
        BNW             0   EXTERNAL*      13/50     14/28     16/35 D
        DLT           377   PROGRAM*       12/44     12/52     12/56     14/01     16/55 L
        DLTA          405   PROGRAM*       17/17     17/19 L
        DLT2          412   PROGRAM*       17/22     17/31 L
        DLT4          416   PROGRAM*       17/23     17/49 L
        IPSUD         346   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
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    59
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        OCPSUD        325   PROGRAM*       15/04 D   18/07
        PSI           255   PROGRAM*        8/38     11/49 L
        PSTAB         371   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          372   PROGRAM*        9/12     10/56     11/04     12/23 S   16/04 L
        WINB          373   PROGRAM*        8/05 S    8/28     11/10     13/26 S   13/42 S
                                            8/20 S   10/38 S   11/16     13/27     16/05 L
        WINC          375   PROGRAM*        8/09 S    8/18 S   10/46     16/08 L
        WIND          376   PROGRAM*       11/02 S   11/13     16/09 L
        WINW          241   PROGRAM*       10/39     10/55 L
        WINW7         246   PROGRAM*       11/03     11/10 L
        WINW8         251   PROGRAM*       11/16 L
        WINX          240   PROGRAM*       10/04     10/10     10/46 L   11/17     11/20     11/25
        WIN1          173   PROGRAM*        8/25      8/29 L
        WIN10         176   PROGRAM*        8/47 L   13/44
        WIN100        241   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         202   PROGRAM*        8/52      8/56 L
        WIN40         204   PROGRAM*        8/50      8/54      9/05 L   12/33
        WIN50         206   PROGRAM*        9/06      9/11 L
        WIN60         230   PROGRAM*        9/49     10/01     10/17 L
        WIN65         217   PROGRAM*        9/28      9/48 L
        WIN70         232   PROGRAM*        9/33      9/35      9/46     10/28 L
        WIN80         237   PROGRAM*       10/29     10/31     10/41 L
        WI=BCI        322   PROGRAM*       14/17 L   15/25
        WI=BOS        260   PROGRAM*       12/07 L   15/26
        WI=BSS        313   PROGRAM*       13/46 L   15/28
        WI=CPL        266   PROGRAM*       12/36 L   15/27
        WI=DATA       323   PROGRAM*       14/27 L   15/29
        WI=ECI        322   PROGRAM*       14/18 L   15/30
        WI=EMI        322   PROGRAM*       14/16 L   15/31
        WI=JPI        311   PROGRAM*       13/39 L   15/32
        WI=LD0        264   PROGRAM*       12/27 L   15/33
        WI=LOO        322   PROGRAM*       14/14 L   15/35
        WI=OTR        300   PROGRAM*       13/13 L   15/36
        WI=RJ3        311   PROGRAM*       13/40 L   15/37
        WI=RJ6        304   PROGRAM*       13/23 L   15/38
        WI=SB0I       266   PROGRAM*       12/39 L   15/40
        WI=ST0        264   PROGRAM*       12/28 L   15/34
        WI=SUBI       266   PROGRAM*       12/38 L   15/39
        WI=UJP        311   PROGRAM*       13/38 L   15/41
        WI=USE        276   PROGRAM*       13/07 L   15/42
        WI=ZERO       266   PROGRAM*       12/40 L   15/43
        WO=ADDR       266   PROGRAM*       12/35 L   15/05
        WO=APL        322   PROGRAM*       14/21 L   15/07
        WO=BMI        322   PROGRAM*       14/19 L   15/08
        WO=BSS        313   PROGRAM*       13/47 L   15/06
        WO=BSSZ       313   PROGRAM*       13/48 L
        WO=CMNT       325   PROGRAM*       14/34 L
        WO=CON        275   PROGRAM*       13/03 L   15/09
        WO=END        320   PROGRAM*       14/05 L   15/10
        WO=EQUN       322   PROGRAM*       14/24 L   15/11
        WO=FMT        322   PROGRAM*       14/23 L   15/12
        WO=FVEC       266   PROGRAM*       12/41 L   15/13
        WO=IDNT       261   PROGRAM*       12/18 L   15/14
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/05. 20.00.43.      PAGE    60
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        WO=IOM        322   PROGRAM*       14/22 L   15/15
        WO=LCC        322   PROGRAM*       14/25 L   15/16
        WO=LOO        322   PROGRAM*       14/15 L   15/17
        WO=NLST       322   PROGRAM*       14/20 L   15/18
        WO=PLIM       266   PROGRAM*       12/37 L   15/19
        WO=TRAC       270   PROGRAM*       12/48 L   15/20
        WO=USE        276   PROGRAM*       13/08 L   15/21
        WTE           163   PROGRAM*        8/04 L   18/04
        Z.PSUD         44                  11/52     15/45 D
        .9              0                   8/28 D    8/28 D    8/28 D    8/28 D    8/28 D    8/28 D
                                            8/28      8/28      8/28      8/28      8/28      8/28
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFITS 
  
  
        ITS           420   PROGRAM*       19/14 L   20/03
        ITSA          437   PROGRAM*       19/17     19/39 L
        ITS2          425   PROGRAM*       19/18 L   19/31     19/31
        ITS4          432   PROGRAM*       19/19     19/33 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFUSE 
  
  
        PUSE          446   PROGRAM*       21/22 L   22/08
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      PAGE    17
        STATEMENT/SEQUENCE PROCESSING.                                IST 
  
           252  0400000237 +                      EQ     IST10                                                   BRIDGE    548
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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
  
                             72600B CM  STORAGE USED            13361 STATEMENTS     2458 SYMBOLS      000026 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.501 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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.45.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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
  
                             77600B CM  STORAGE USED            44766 STATEMENTS     2713 SYMBOLS 
                               PARALLEL CPU ASSEMBLY           11.570 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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.00.51.      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/05. 20.01.06.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2174              IDENT  FSKEL
                       2174                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1717 
                                        RGFILE    COMMON          0        30 
                                        SKLNAM    COMMON          0       255 
                                        SCT       LOCAL        1717       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/05. 20.01.06.      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         1717+ 
                                        V=CAT           55            W=IOLC0        747            F.SKCR        1717+ 
                                        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         1447+ 
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        V=NOT.L         66            W=CISST       1075            F.IFN         1456+ 
                                        V=NOT.B         66            W=CIAST       1106            F.INTF        1464+ 
                                        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        1713+ 
                                        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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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
             0  26541114145555555555    ILL       SKEL                                                           SKEL       11
                                                  CALL   ILL                                                     SKEL       12
             0 0                                  ENDS                                                           SKEL       13
                                                                                                                 SKEL       14
                                                                                                                 SKEL       15
                                                                                                                 SKEL       16
                                                                                                                 SKEL       17
             1  26540104045711555555     ADD.I    SKEL                                                           SKEL       18
                                                  IA     R1,L1,L2                                                SKEL       19
             1 0                                  ENDS                                                           SKEL       20
                                                                                                                 SKEL       21
             2  26540104045722555555     ADD.R    SKEL                                                           SKEL       22
                                                  FAR    T1,L1,L2                                                SKEL       23
                                                  NR     R1,0,T1                                                 SKEL       24
             2 0                                  ENDS                                                           SKEL       25
                                                                                                                 SKEL       26
             3  26540104045704555555     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
             4  26540104045703555555     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/05. 20.01.06.      PAGE    28
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       SUBTR.
  
                                        *         SUBTRACT INSTRUCTIONS.                                         SKEL       50
                                                                                                                 SKEL       51
                                                                                                                 SKEL       52
             5  26542325025711555555     SUB.I    SKEL                                                           SKEL       53
                                                  IS     R1,L1,L2                                                SKEL       54
            23 0                                  ENDS                                                           SKEL       55
                                                                                                                 SKEL       56
             6  26542325025722555555     SUB.R    SKEL                                                           SKEL       57
                                                  FSR    T1,L1,L2                                                SKEL       58
                                                  NR     R1,0,T1                                                 SKEL       59
            24 0                                  ENDS                                                           SKEL       60
                                                                                                                 SKEL       61
             7  26542325025704555555     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
            10  26542325025703555555     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
            11  26541525145711555555     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/05. 20.01.06.      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
            12  26541525145722555555     MUL.R    SKEL                                                           SKEL      133
                                                  FMR    R1,L1,L2                                                SKEL      134
            65 0                                  ENDS                                                           SKEL      135
                                                                                                                 SKEL      136
            13  26541525145704555555     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
            14  26541525145703555555     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/05. 20.01.06.      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
            15  26540411265711555555     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
            16  26540411265722555555     DIV.R    SKEL                                                           SKEL      186
                                                  FDR    R1,L1,L2                                                SKEL      187
           120 0                                  ENDS                                                           SKEL      188
                                                                                                                 SKEL      189
            17  26540411265704555555     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/05. 20.01.06.      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
            20  26540411265703555555     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
            21  26540426035722555555     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
            22  26540411225722555555     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
            23  26540411225703555555     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/05. 20.01.06.      PAGE    32
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       UMIN. 
  
                                        *         UNARY MINUS INSTRUCTIONS.                                      SKEL      229
                                                                                                                 SKEL      230
                                                                                                                 SKEL      231
                                                                                                                 SKEL      232
            24  26542515115711555555     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
            25  26542515115704555555     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
            26  26541424571155555555     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
            27  26541424572255555555     LT.R     SKEL                                                           SKEL      257
                                                  FSR    T1,L1,L2                                                SKEL      258
                                                  PNR    R1,0,T1                                                 SKEL      259
           207 0                                  ENDS                                                           SKEL      260
                                                                                                                 SKEL      261
            30  26541424570455555555     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
            31  26541424571055555555     LT.H     SKEL                                                           SKEL      271
                                                  CALL   HREL                                                    SKEL      272
                                         LTH1     DEF    R1,,"X6."                                               SKEL      273
           217 0                                  ENDS                                                           SKEL      274
                                                                                                                 SKEL      275
            32  26541414245555555555     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/05. 20.01.06.      PAGE    33
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT     SKLNAM
  
            33  26540705571155555555     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
            34  26540705572255555555     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
            35  26540705570455555555     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
            36  26540705571055555555     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
            37  26541407055555555555     LGE      SKEL               ASCII GE                                    SKEL      314
                                                  CALL   HLEX                                                    SKEL      315
           244                                    BRANCH GEH1                                                    SKEL      316
           244 0                                  ENDS                                                           SKEL      317
                                                                                                                 SKEL      318
            40  26541605571155555555     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
            41  26541605572255555555     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
            42  26541605570455555555     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/05. 20.01.06.      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
            43  26541605571055555555     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
            44  26541416055555555555     LNE      SKEL               ASCII NE                                    SKEL      357
                                                  CALL   HLEX                                                    SKEL      358
           300                                    BRANCH NEH1                                                    SKEL      359
           300 0                                  ENDS                                                           SKEL      360
                                                                                                                 SKEL      361
            45  26540521571155555555     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
            46  26540521572255555555     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
            47  26540521570455555555     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/05. 20.01.06.      PAGE    35
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                         EQ.B     SKEQU  EQ.I                                                    SKEL      391
                                                                                                                 SKEL      392
            50  26540521571055555555     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
            51  26541405215555555555     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
            52  26542324225711555555     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
            53  26542324225704555555     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
            54  26542324225710555555     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
            55  26540301245555555555     CAT      SKEL                                                           SKEL      431
                                                  CALL   HCAT                                                    SKEL      432
           343 0                                  ENDS                                                           SKEL      433
                                                                                                                 SKEL      434
                                                                                                                 SKEL      435
            56  26540317141716555555     COLON    SKEL               (P1=FIRST, P2=LAST)                         SKEL      436
                                                  CALL   HCOL                                                    SKEL      437
           344 0                                  ENDS                                                           SKEL      438
                                                                                                                 SKEL      439
            57  26542325022324555555     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/05. 20.01.06.      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
            60  26541124172255555555     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
            61  26541124170255555555     ITOB     SKEL               XMIT -- NO CONVERSION                       SKEL      452
                                                  XMT    R1,LU1                                                  SKEL      453
           350 0                                  ENDS                                                           SKEL      454
                                                                                                                 SKEL      455
            62  26541124170455555555     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
            63  26542224171155555555     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
            64  26542224170455555555     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
            65  26540424170355555555     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/05. 20.01.06.      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/05. 20.01.06.      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
            66  26541617245714555555     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
            67  26540116045714555555     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
            70  26540521265714555555     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
            71  26541722571455555555     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
            72  26543017225714555555     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/05. 20.01.06.      PAGE    39
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                        **        INTRINSIC FUNCTION SKELETONS.                                  SKEL      539
                                                                                                                 SKEL      540
                                                                                                                 SKEL      541
            73  26540102235555555555     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
            74  26542325153423555555     SUM1S    SKEL                                                           FC5A496     9
                                                  CX     R1,L1                                                   FC5A496    10
           372 0                                  ENDS                                                           FC5A496    11
                                                                                                                 FC5A496    12
                                                                                                                 FC5A496    13
            75  26540111150107555555     AIMAG    SKEL                                                           SKEL      548
                                                  XMT    R1,LL1      IMAGINARY PART OF COMPLEX (1OP)             SKEL      549
           373 0                                  ENDS                                                           SKEL      550
                                                                                                                 SKEL      551
            76  26540111162455555555     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
            77  26540116111624555555     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
           100  26541501303355555555     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
           101  26540415013034555555     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/05. 20.01.06.      PAGE    40
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS   SKLNAM
  
           102  26541511163355555555     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
           103  26540415111634555555     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
           104  26540115013034555555     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
           105  26540115111634555555     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
           106  26540115170455555555     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
           107  26540317161207555555     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/05. 20.01.06.      PAGE    41
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      648
           110  26540315201430555555     CMPLX    SKEL                                                           SKEL      649
                                                  XMT    RU1,L1                                                  SKEL      650
                                                  XMT    RL1,L2                                                  SKEL      651
           462 0                                  ENDS                                                           SKEL      652
                                                                                                                 SKEL      653
                                                                                                                 SKEL      654
           111  26540401022355555555     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
           112  26540404111555555555     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
           113  26540411155555555555     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
           114  26540411162455555555     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/05. 20.01.06.      PAGE    42
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS   SKLNAM
  
           115  26540420221704555555     DPROD    SKEL                                                           SKEL      702
                                                  FM     RU1,L1,L2                                               SKEL      703
                                                  DFM    RL1,L1,L2                                               SKEL      704
           525 0                                  ENDS                                                           SKEL      705
                                                                                                                 SKEL      706
           116  26540416111624555555     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
           117  26540423110716555555     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
           120  26541104161116555555     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
           121  26541123110716555555     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/05. 20.01.06.      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
           122  26541104111555555555     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
           123  26541501231355555555     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
           124  26541517045555555555     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/05. 20.01.06.      PAGE    44
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      810
                                         OR       SKEQU  OR.B                                                    SKEL      811
                                                                                                                 SKEL      812
                                                                                                                 SKEL      813
           125  26542201160655555555     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
           126  26542310110624555555     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/05. 20.01.06.      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
           127  26540417022355555555     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
           130  26540417021455555555     DOBL     SKEL                                                           SKEL      865
                                                  CALLC  DOL         FLAG LONG DO                                SKEL      866
           635                                    BRANCH DOBS1                                                   SKEL      867
           635 0                                  ENDS                                                           SKEL      868
                                                                                                                 SKEL      869
           131  26540417023223555555     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
           132  26540417023214555555     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/05. 20.01.06.      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
           133  26540417035723555555     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
           134  26540417035717555555     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
           135  26540417035734555555     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/05. 20.01.06.      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
           136  26540417035714555555     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
           137  26540417035722555555     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
           140  26540417035704555555     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
           141  26541117140355555555     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/05. 20.01.06.      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
           142  26541403110655555555     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
           143  26540717241755555555     GOTO     SKEL                         UNCONDITIONAL GOTO                SKEL      977
                                                  UJP    P1                                                      SKEL      978
                                                  CALLC  PGT                                                     SKEL      979
           762 0                                  ENDS                                                           SKEL      980
                                                                                                                 SKEL      981
                                                                                                                 SKEL      982
           144  26540107172417555555     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
           145  26540307172417555555     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
           146  26541207172417555555     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/05. 20.01.06.      PAGE    49
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       GOTO      SKLNAM
  
           147  26542207172417555555     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
           150  26540123230716555555     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
           151  26540223235555555555     BSS      SKEL                                                           SKEL     1049
                                                  CALL   PLA,P1                                                  SKEL     1050
          1026 0                                  ENDS                                                           SKEL     1051
                                                                                                                 SKEL     1052
           152  26540122315555555555     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/05. 20.01.06.      PAGE    50
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       APL 
  
                                        **        AP-LIST CONSTRUCTION.                                          SKEL     1057
                                                                                                                 SKEL     1058
                                                                                                                 SKEL     1059
           153  26540701205555555555     GAP      SKEL                                                           SKEL     1060
                                                  CALL   GAP         PROCESS GENERAL ACTUAL PARAMETER            SKEL     1061
          1030 0                                  ENDS                                                           SKEL     1062
                                                                                                                 SKEL     1063
           154  26540601205555555555     FAP      SKEL                                                           SKEL     1064
                                                  CALL   FAP         FUNCTION APLIST FOLLOWS                     SKEL     1065
          1031 0                                  ENDS                                                           SKEL     1066
                                                                                                                 SKEL     1067
           155  26541101205555555555     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
           156  26540120111703555555     APIOC    SKEL                                                           SKEL     1101
                                                  CALL   IOC         PROCESS I/O CONTROL PARAMETER               SKEL     1102
          1033 0                                  ENDS                                                           SKEL     1103
                                                                                                                 SKEL     1104
           157  26540120111704555555     APIOD    SKEL                                                           SKEL     1105
                                                  CALL   IOD         PROCESS I/O DATA PARAMETER (LIST ITEM)      SKEL     1106
          1034 0                                  ENDS                                                           SKEL     1107
                                                                                                                 SKEL     1108
           160  26540120111725555555     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/05. 20.01.06.      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/05. 20.01.06.      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
           161  26542325022255555555     SUBR     SKEL                                                           SKEL     1186
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    53
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  CALL   SUB         PROCESS SUBROUTINE                          SKEL     1187
          1137 0                                  ENDS                                                           SKEL     1188
                                                                                                                 SKEL     1189
           162  26540625160355555555     FUNC     SKEL                                                           SKEL     1190
                                                  CALL   FUN         PROCESS GENERAL FUNCTION                    SKEL     1191
          1140 0                                  ENDS                                                           SKEL     1192
                                                                                                                 SKEL     1193
           163  26541411020655555555     LIBF     SKEL               LIBRARY FUNCTION (NO ZERO TERMINATOR)       SKEL     1194
                                                  CALL   LIBF                                                    SKEL     1195
          1141 0                                  ENDS                                                           SKEL     1196
           164  26541116240655555555     INTF     SKEL                                                           SKEL     1197
                                                  CALL   INF         PROCESS INTRINSIC FUNCTION CALL             SKEL     1198
          1142 0                                  ENDS                                                           SKEL     1199
                                                                                                                 SKEL     1200
           165  26541117232502555555     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
           166  26540522225555555555     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
           167  26542324172055555555     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
           170  26542001252355555555     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/05. 20.01.06.      PAGE    54
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       EXIT.     SKLNAM
  
           171  26542205245555555555     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
           172  26542224161355555555     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
           173  26540720145555555555     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
           174  26540516242255555555     ENTR     SKEL                                                           SKEL     1267
                                                  CALL   ENT                                                     SKEL     1268
          1167 0                                  ENDS                                                           SKEL     1269
                                                                                                                 SKEL     1270
                                                                                                                 SKEL     1271
           175  26540226045555555555     BVD      SKEL               BEGIN VARDIM CODE                           SKEL     1272
                                                  CALL   BVD                                                     SKEL     1273
          1170 0                                  ENDS                                                           SKEL     1274
                                                                                                                 SKEL     1275
                                                                                                                 SKEL     1276
           176  26540526045555555555     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/05. 20.01.06.      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/05. 20.01.06.      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
           177  26542305075555555555     SEG      SKEL                                                           SKEL     1363
                                                  CALLC  SEG                                                     SKEL     1364
          1172 0                                  ENDS                                                           SKEL     1365
                                                                                                                 SKEL     1366
           200  26541617172055555555     NOOP     SKEL   ILL                                                     SKEL     1367
                                                  CALLQ  NOOP                                                    SKEL     1368
          1173 0                                  ENDS                                                           SKEL     1369
                                                                                                                 SKEL     1370
           201  26541004225555555555     HDR      SKEL                         BEGIN NEW PROGRAM-UNIT            SKEL     1371
                                                  CALL   HDR                                                     SKEL     1372
          1173 0                                  ENDS                                                           SKEL     1373
                                                                                                                 SKEL     1374
           202  26540611140555555555     FILE     SKEL                                                           SKEL     1375
                                                  CALL   GFD         GENERATE FILE DECLARATION                   SKEL     1376
          1174 0                                  ENDS                                                           SKEL     1377
                                                                                                                 SKEL     1378
           203  26542014111555555555     PLIM     SKEL                     END OF FILE DECLARATIONS              SKEL     1379
                                                  CALL   PLIM                                                    SKEL     1380
          1175 0                                  ENDS                                                           SKEL     1381
                                                                                                                 SKEL     1382
           204  26542305305555555555     SEX      SKEL                         START OF EXECUTABLES              SKEL     1383
                                                  CALL   SEX                                                     SKEL     1384
          1176 0                                  ENDS                                                           SKEL     1385
                                                                                                                 SKEL     1386
           205  26540304141717555555     CDLOO    SKEL               OBJECT LIST ON/OFF                          SKEL     1387
                                                  CALL   CDLOO                                                   SKEL     1388
          1177 0                                  ENDS                                                           SKEL     1389
                                                                                                                 SKEL     1390
           206  26540304041724555555     CDDOT    SKEL               ZERO/ONE-TRIP DO                            SKEL     1391
                                                  CALL   CDDOT                                                   SKEL     1392
          1200 0                                  ENDS                                                           SKEL     1393
                                                                                                                 SKEL     1394
           207  26540304032355555555     CDCS     SKEL               USER/FIXED COLLATE                          SKEL     1395
                                                  CALL   CDCS                                                    SKEL     1396
          1201 0                                  ENDS                                                           SKEL     1397
                                                                                                                 SKEL     1398
           210  26540401240155555555     DATA     SKEL               DATA TABLE INFO                             SKEL     1399
                                                  CALL   DATA                                                    SKEL     1400
          1202 0                                  ENDS                                                           SKEL     1401
                                                                                                                 SKEL     1402
           211  26540611165555555555     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/05. 20.01.06.      PAGE    57
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       HDR 
  
                                                  CALL   FIN                                                     SKEL     1406
          1203 0                                  ENDS                                                           SKEL     1407
                                                                                                                 SKEL     1408
           212  26541403035555555555     LCC      SKEL                         LOADER CONTROL CARD               SKEL     1409
                                                  CALL   LCC                                                     SKEL     1410
          1204 0                                  ENDS                                                           SKEL     1411
                                                                                                                 SKEL     1412
           213  26540426115555555555     DVI      SKEL                                                           SKEL     1413
                                                  CALL   ILL                                                     SKEL     1414
          1205 0                                  ENDS                                                           SKEL     1415
                                                                                                                 SKEL     1416
           214  26540530205711555555     EXP.I    SKEL               I**J FOR DATA                               SKEL     1417
                                                  CALL   ILL                                                     SKEL     1418
          1206 0                                  ENDS                                                           SKEL     1419
                                                                                                                 SKEL     1420
           215  26540417020435555555     DOBD2    SKEL                                                           SKEL     1421
                                                  CALLQ  NOOP                                                    SKEL     1422
          1207 0                                  ENDS                                                           SKEL     1423
  
  
  
  
                                        *         *IF* INSTRUCTION SKELETONS.                                    SKEL     1425
                                                                                                                 SKEL     1426
                                                                                                                 SKEL     1427
           216  26541134353655555555     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
           217  26541134353555555555     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
           220  26542234353555555555     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
           221  26541134343655555555     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/05. 20.01.06.      PAGE    58
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF        SKLNAM
  
           222  26542234343655555555     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
           223  26541134353455555555     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
           224  26541116353655555555     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
           225  26541134163655555555     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
           226  26542234163655555555     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
           227  26541134351655555555     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
           230  26541116353555555555     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
           231  26542216353555555555     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
           232  26541134161655555555     IFI1NN   SKEL                                                           SKEL     1513
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      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
           233  26542234161655555555     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
           234  26541116163655555555     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
           235  26542216163655555555     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
           236  26541134341655555555     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
           237  26542234341655555555     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
           240  26541116351655555555     IFIN2N   SKEL                                                           SKEL     1554
                                                  ZR     L1,"N2"                                                 SKEL     1555
                                                  CALLC  IF,1                                                    SKEL     1556
          1321 0                                  ENDS                                                           SKEL     1557
                                                                                                                 SKEL     1558
           241  26541134163455555555     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
           242  26541106245555555555     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/05. 20.01.06.      PAGE    60
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF        SKLNAM
  
           243  26541106065555555555     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
           244  26541134343455555555     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
           245  26541105215711555555     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
           246  26541105215722555555     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
           247  26541105215704555555     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/05. 20.01.06.      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
           250  26541105215703555555     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
           251  26541116055711555555     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
           252  26541116055722555555     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
           253  26541116055704555555     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
           254  26541116055703555555     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/05. 20.01.06.      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
          1717                           F.SCT    BSSENT             FWA SKEL BEGIN INDEX VECTOR                 COMFSKL   734
          1717                           F.SCT BSS                                                              BSSENT  .1
          1717                           F.SKCR   BSSENT             FWA SKEL CONSTANT REDUCTION VECTOR          COMFSKL   735
          1717                           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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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
          2174                                    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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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
      L      7  03777777777777777777     NONE     MCTBL  ----,----,----,----,----,----,----                      PARSKEL   126
      L   1447                                    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
          1447                           F.IFS    BSSENT                                                         PARSKEL   147
          1447  00177000000003767740     123      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   148
          1450  00777003010023767740     113      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   149
          1451  00377001002013767740     122      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   150
          1452  01377005012027767740     121      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   151
                                                                                                                 PARSKEL   152
                                        *                                  NEXT LABEL REFERENCED ONCE.           PARSKEL   153
          1453  01577006014033767740     N23      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   154
          1454  01777007020043767740     1N3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   155
          1455  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/05. 20.01.06.      PAGE    73
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               F.IFT 
  
          1456                           F.IFN    BSSENT                                                         PARSKEL   159
          1456  03577016036077767740     NN3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   160
          1457  04177020042107767740     11N      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   161
          1460  02577012026057767740     N22      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   162
          1461  03177014032067767740     1NN      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   163
          1462  04777023046117767740     1N1      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   164
          1463  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/05. 20.01.06.      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/05. 20.01.06.      PAGE    75
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF
  
                                        **        INLINE INTRINSICS.                                             PARSKEL   203
                                                                                                                 PARSKEL   204
                                                                                                                 PARSKEL   205
          1464                           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/05. 20.01.06.      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/05. 20.01.06.      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
          1713                                    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/05. 20.01.06.      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
          1510  00220240400000177400     BOOL     GENF   ****,****,****,DTOB.,CTOB.,BOOL$                        FC50168    25
          1530  03770262044300177400     INT      GENF   ****,****,INT,IDINT,CTOI.,-                             FC50168    26
          1553  03771543400007777400     REAL     GENF   ****,FLOAT,****,SNGL,REAL,-                             PARSKEL   389
          1517  03770300003201177402     DBLE     GENF   BTOD.,ITOD.,DBLE,****,CTOD.,-                           FC50168    27
          1513  03770000440701377403     CMPL.    GENF   BTOC.,ITOC.,RTOC.,DTOC.,****,-                          FC50168    28
          1515  03777761403006177430     CMPLX    GENF   CMPLX,CMPLX,CMPLX,CMPLX,-,-                             PARSKEL   392
                                        *                            MODE CONVERSION FOR CMPLX DONE IN PAR/ESF.  PARSKEL   393
                                                                                                                 PARSKEL   394
          1564  03772164507724777523     ABS      GENF   IABS,IABS,ABS,DABS,CABS,-                               PARSKEL   395
          1567  03777764710277777777     AINT     GENF   -,-,AINT,DINT,-,-                                       PARSKEL   396
          1572  03777765010577777777     ANINT    GENF   -,-,ANINT,DNINT,-,-                                     PARSKEL   397
          1601  03777764551425177514     DIM      GENF   DIM,IDIM,DIM,DDIM,-,-                                   PARSKEL   398
          1537  00521242505212425052     LOCF     GENF   LOCF,LOCF,LOCF,LOCF,LOCF,LOCF,LOCF                      PARSKEL   399
          1620  03777764750426777533     MOD      GENF   MOD,MOD,AMOD,DMOD,-,-                                   PARSKEL   400
          1541  03777761601613577456     MAX      GENF   MAX0,MAX0,AMAX1,DMAX1,-,-                               PARSKEL   401
          1545  03777761642014577462     MIN      GENF   MIN0,MIN0,AMIN1,DMIN1,-,-                               PARSKEL   402
          1622  03777765253577777777     NINT     GENF   -,-,NINT,IDNINT,-,-                                     PARSKEL   403
          1627  03777765114225777527     SIGN     GENF   ISIGN,ISIGN,SIGN,DSIGN,-,-                              PARSKEL   404
                                                                                                                 PARSKEL   405
          1631  03773166314477777777     SQRT     GENF   -,-,SQRT,DSQRT,CSQRT,-                                  PARSKEL   406
          1635  03773266515077777777     EXP      GENF   -,-,EXP,DEXP,CEXP,-                                     PARSKEL   407
          1557  03773346655477777777     LOG      GENF   -,-,ALOG,DLOG,CLOG,-                                    PARSKEL   408
          1561  03777767015777777777     LOG10    GENF   -,-,ALOG10,DLOG10,-,-                                   PARSKEL   409
          1646  03773507156177777777     SIN      GENF   -,-,SIN,DSIN,CSIN,-                                     PARSKEL   410
          1653  03773627416677777777     COS      GENF   -,-,COS,DCOS,CCOS,-                                     PARSKEL   411
          1660  03777767657377777777     TAN      GENF   -,-,TAN,DTAN,-,-                                        PARSKEL   412
          1664  03777770057777777777     ASIN     GENF   -,-,ASIN,DASIN,-,-                                      PARSKEL   413
          1667  03777770220277777777     ACOS     GENF   -,-,ACOS,DACOS,-,-                                      PARSKEL   414
          1672  03777770360577777777     ATAN     GENF   -,-,ATAN,DATAN,-,-                                      PARSKEL   415
          1675  03777770521077777777     ATAN2    GENF   -,-,ATAN2,DATAN2,-,-                                    PARSKEL   416
          1700  03777770661377777777     SINH     GENF   -,-,SINH,DSINH,-,-                                      PARSKEL   417
          1703  03777771021677777777     COSH     GENF   -,-,COSH,DCOSH,-,-                                      PARSKEL   418
          1706  03777771162177777777     TANH     GENF   -,-,TANH,DTANH,-,-                                      PARSKEL   419
          1713                                    ORG    F.INTF+Z.INTF                                           PARSKEL   420
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      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
          1713                           F.IMCV   BSSENT             INTRINSICS TO MODE CONVERT                  PARSKEL   433
          1713  00000015000001000003              VFD    24//INTF/AMAX0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   434
          1714  00000017000001000003              VFD    24//INTF/AMIN0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   435
          1715  00000057000004000002              VFD    24//INTF/_MAX1,18/V=RTOI-OM=CONV,18/M.INT               PARSKEL   436
          1716  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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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
  
          2174                                    END                                                            FSKEL      22
  
                            101300B CM  STORAGE USED            51779 STATEMENTS     3459 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           16.957 SECONDS        5639 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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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        1456   PROGRAM*       73/01 L   73/01 E
        F.IFS        1447   PROGRAM*       72/46 L   72/46 E
        F.IMCV       1713   PROGRAM*       79/12 L   79/12 E   79/17
        F.INTF       1464   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        1717   PROGRAM*       62/12 L   62/12 E
        F.SKCR       1717   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/05. 20.01.06.      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/05. 20.01.06.      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.NONE          7                  72/22 L
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        OM=MUL       1413   PROGRAM*       71/08 L   71/08 E
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        SKU.RG          7                  19/27 D
        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            1   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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        U=CDCS          0                  56/47 D   56/48 D   67/03
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        U=EQ.R        307                  34/34 D   63/37
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        U=I123          0                  57/26 D   57/28 D   57/29 D   57/31 D   57/32 D   67/17
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        U=STR.D         0                  35/28 D   35/30 D   35/31 D   63/47
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        V=DATA        210                  56/51 D   56/51 E   67/05 L
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        V=EVD         176                  54/40 D   54/40 E   66/42 L
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        V=JGOTO       146                  48/53 D   48/53 E   65/51 L
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        V=R1NN        233                  59/07 D   59/07 E   67/43 L   69/41     73/05
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        W=APSTR      1036                  51/04 D   51/04 E
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        W=DOBL        635                  45/21 D   65/23
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        W=IAP        1032                  50/12 D   66/08
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        W=LLT         221                  32/51 D   63/13
        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
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/05. 20.01.06.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        W=R113       1232                  58/01 D   60/30     67/25
        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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.06.      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/05. 20.01.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      174              IDENT  INIT22 
                        174              B=LWA22  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       165 
                                        DEBUG     LOCAL         165         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=INI22          0+           FTN22            0+ 
                                        F.MEM            0+           B=LWA22        174+ 
  
  
                                        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     IDP=USY 
                                        FW.PBB    O.GLT     L=SYM     WO.CS     Z$FE      L=DIM     O$IOT     USY=22  * 
  
  
  
  
                                                  IDENT  INIT22                                                  INIT22      2
                                         INIT22   SECT   (INITIALIZE CCG OVERLAY.),INI22                         INIT22      3
  
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     2
                                                                      INIT22
  
                                        *         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
                                        *         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
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     3
                                                                      INIT22
  
                                        **        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
                                                                                                                 INIT22     69
                                        *         TURN ON REPRIEVE.                                              INIT22     70
                                                                                                                 INIT22     71
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT22     72
             2  5110000000                        SA1    RA.SSW      SENSE SWITCH WORD                           INIT22     73
                          20160                   LX1    59-5-6      GET SWITCH 6                                INIT22     74
             3  0331000011 +                      MI     X1,INI1     IF SWITCH 6 ON                              INIT22     75
                                         .TEST    ENDIF                                                          INIT22     76
                                                                                                                 INIT22     77
                          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
            11                           INI1     BSS    0                                                       FC5A158A  452
                                         #OS      IFNE   .OS,2                                                   FC5A158A  453
            11  7160000000 X                      SX6    =YUSY=22    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT22     88
                          5160000000 X            SA6    =XIDP=USY                                               INIT22     89
            12  0100000000 X                      CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  454
            13  0670000015 +                      PL     B7,INI2     IF IDP NOT REQUESTED                        INIT22     91
            14  0100000000 X             FTN22    BREAK                                                          INIT22     92
                                         #OS      ENDIF                                                          FC5A158A  455
                                         .TEST    ENDIF                                                          INIT22     93
                                                                                                                 INIT22     94
                                        *         INITIALIZE OVERLAY.                                            INIT22     95
                                                                                                                 INIT22     96
            15  7120000000 X             INI2     SETFIL FILE==XF.IL,MODE=INIT,FWA==XFW.ILB                      INIT22     97
            17  7120000000 X                      SETFIL FILE==XF.PB,MODE=INIT,FWA==XFW.PBB                      INIT22     98
                                                                                                                 INIT22     99
                                                  IFEQ   CP#RM,0,1                                               INIT22    100
            21  7120000000 X                      READ   =XF.IL                                                  INIT22    101
            23  7160000000 X                      SX6    =XFW.ILB                                                INIT22    102
                          5160000000 X            SA6    =XHO$OBO    STORE CCG SCRATCH BUFFER ORIGIN             INIT22    103
            24  5110000000 X                      SA1    =XMOD       PROGRAM MODE                                INIT22    104
                          5120000000 X            SA2    N.FP                                                    INIT22    105
            25  5130000000 X                      SA3    LEVEL2                                                  INIT22    106
                          12723                   BX7    X2+X3       FPL2 = N.FP .OR. LEVEL2                     INIT22    107
            26  5170000000 X                      SA7    =XCC$SRF    FLAG FP/LCM EXPANSION REQUIRED              INIT22    108
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     4
                                                                      INIT22
  
                                                                                                                 INIT22    109
                          76600                   =X6    0                                                       INIT22    110
                               20666              LX6    LB.PARCP    SET ALL LOCAL BLOCKS EMPTY                  INIT22    111
            27  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
            31  5110000000 X                      SA1    CO.CS                                                   INIT22    121
                          5120000000 X            SA2    CO.DOOT                                                 INIT22    122
            32  10611                             BX6    X1          INITIALIZE WORKING QCG COPY OF OPTIONS      INIT22    123
                     22702                        LX7    X2                                                      INIT22    124
                          5160000000 X            SA6    WO.CS                                                   INIT22    125
            33  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
            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
                          5110000000 X   CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
            36  5110000000 X             CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
                          5110000000 X   APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
            43  5110000000 X             IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
                          5110000000 X   API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
            50  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
            55  5110000000 X             ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     5
                                                                      INIT22
  
                          5110000000 X   CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
            62  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
                          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
            67  5110000000 X             BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
                          5110000000 X   NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
            74  5110000000 X             DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
                          5110000000 X   ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
           101  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
           106  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
           111  6150000000 X                      SB5    =XZ$FE                                                  INIT22    149
                          67601                   =B6    -1          I=0                                         INIT22    150
                                                                                                                 INIT22    151
           112  6166000001               INI40    SB6    B6+1        I=I+1                                       INIT22    152
                          0756000117 +            GT     B6,B5,INI60 IF TABLE VECTOR EXHAUSTED                   INIT22    153
           113  5116000000 X                      SA1    =XL$BLK+B6                                              INIT22    154
                          0311000115 +            NZ     X1,INI50    IF THIS TABLE COMMUNICATED                  INIT22    155
           114  5166000000 X                      SA6    =XO$BLK+B6  ORG(TABI) = MEM                             INIT22    156
                          0400000112 +            EQ     INI40                                                   INIT22    157
                                                                                                                 INIT22    158
           115  5126000000 X             INI50    SA2    =XO$BLK+B6                                              INIT22    159
                          36612                   IX6    X1+X2       MEM = ORG(TABI) + LEN(TABI)                 INIT22    160
           116  0400000112 +                      EQ     INI40                                                   INIT22    161
                                                                                                                 INIT22    162
           117  5110000000 X             INI60    SA1    =XCO.OPT                                                INIT22    163
                          7271777775              SX7    X1-2                                                    INIT22    164
           120  43600                             MX6    0                                                       INIT22    165
                     0337000121 +                 MI     X7,INI70    IF OPT LT 2                                 INIT22    166
                               43601              MX6    1                                                       INIT22    167
                                                                                                                 INIT22    168
           121  5160000000 X             INI70    SA6    =XOPT2                                                  INIT22    169
                          20172                   LX1    58                                                      INIT22    170
                               10711              BX7    X1                                                      INIT22    171
           122  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
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     6
                                                                      INIT22
  
                                                  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
           126  43101                    VD       SETWB  LDO                                                     INIT22    192
           132  43101                    ENTRY    SETWB  LOCF                                                    INIT22    193
           136  43101                    VALUE    SETWB  LOCF                                                    INIT22    194
                                                                                                                 INIT22    195
                                        *         DEFINE *EXIT.* AS HEADING BLOCK 0 (EXIT PSEUDO-BLOCK).         INIT22    196
                                                                                                                 INIT22    197
           142  76600                             =X6    0                                                       INIT22    198
                     5160000000 X                 SA6    =XCC$CBN                                                INIT22    199
           143  5110000000 X                      SA1    =XS=EXIT                                                INIT22    200
                          0100000000 X            CALL   CG$LABD                                                 INIT22    201
           144  76611                             =X6    2                                                       INIT22    202
                     5160000000 X                 SA6    CC$CBN                                                  INIT22    203
                                                                                                                 INIT22    204
           145  7160000000 X                      SX6    =XWINOC                                                 INIT22    205
                          5160000000 X            SA6    =XPSTAB     SET WIN JUMP TABLE TO OC$XXX                INIT22    206
           146  6120000000 X                      SB2    =XF.SET                                                 INIT22    207
                          0100000150 +            RJ     ROR         RESET OPCODE OF ROUNDABLES                  INIT22    208
           147  0400000000 X                      EQ     =XCCGC      EXIT TO CCG CONTROLLER...                   INIT22    209
  
  
  
  
                                                  LIST   -X          FA=SET, COMFROR LISTED IN INIT00            INIT22    211
           147                           ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                       COMFROR     2
                                                  LIST   *                                                       INIT22    213
                                   0     FILL     MAX    0,101B+F.MEM-*                                          INIT22    214
           165                                    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 Y                        USY=22
             0 X                        IDP=USY 
             0 X                        FA=SET
             0 X                        HO$OBO
             0 X                        CC$SRF
             0 X                        O=CLW 
             0 X                        L=CLW 
             0 X                        O$CLW 
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     7
                                                                      LITERALS
  
             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                        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
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     8
                                                                      LITERALS
  
             0 X                        CG$LABD 
             0 X                        CO.RNDA 
             0 X                        CO.RNDS 
             0 X                        CO.RNDM 
             0 X                        CO.RNDD 
  
           174                           B=LWA22  END                MARK LWA OF OVERLAY FOR RPV                 INIT22    219
  
                             67700B CM  STORAGE USED              953 STATEMENTS     1832 SYMBOLS      000010 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.319 SECONDS         254 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=LWA22       174   PROGRAM*        6/46 E    6/47 L
        CCGC            0   EXTERNAL*       2/02 X    6/31
        CC$CBN          0   EXTERNAL*       6/21 S    6/25 S
        CC$SRF          0   EXTERNAL*       3/57 S
        CG$LABD         0   EXTERNAL*       6/23
        CIO=            0   EXTERNAL*       2/39 X    3/50
        CO.CS           0   EXTERNAL*       2/11 X    4/13
        CO.DOOT         0   EXTERNAL*       2/11 X    4/14
        CO.OPT          0   EXTERNAL*       2/12 X    5/42
        CO.RNDA         0   EXTERNAL* 
        CO.RNDD         0   EXTERNAL* 
        CO.RNDM         0   EXTERNAL* 
        CO.RNDS         0   EXTERNAL* 
        CP#RM           0   CTX             3/49 F
        FA=SET          0   EXTERNAL*       3/46      3/47
        FILL            0                   6/39 D    6/40
        FPL2            0   EXTERNAL*       2/21 X
        FTN22           0   PROGRAM*        3/07 L    3/07 E
        FW.ILB          0   EXTERNAL*       2/18 X    3/46      3/51
        FW.PBB          0   EXTERNAL*       2/18 X    3/47
        F.IL            0   EXTERNAL*       2/12 X    3/46      3/50      3/50
        F.LBT           0   EXTERNAL*       2/26 X    4/04 S
        F.MEM           0   PROGRAM*        2/52 L    2/52 E    5/27
        F.OPT           0   EXTERNAL*       2/12 X
        F.PB            0   EXTERNAL*       2/12 X    3/47
        F.SET           0   EXTERNAL*       2/08 X    6/29
        HO$OBO          0   EXTERNAL*       3/52 S
        HO$OPT          0   EXTERNAL*       5/51 S
        IDPCHK          0   EXTERNAL*       2/12 X    3/38
        IDP=            0   EXTERNAL*       2/15 X    3/40
        IDP=USY         0   EXTERNAL*       3/37 S
        INI1           11   PROGRAM*        3/21      3/34 L
        INI2           15   PROGRAM*        3/39      3/46 L
        INI40         112   PROGRAM*        5/31 L    5/36      5/40
        INI50         115   PROGRAM*        5/34      5/38 L
        INI60         117   PROGRAM*        5/32      5/42 L
        INI70         121   PROGRAM*        5/45      5/48 L
        LB.PARCP       66   FTX             4/03
        LEVEL2          0   EXTERNAL*       2/26 X    3/55
        L$APL           0   EXTERNAL*       4/52 S
        L$APT           0   EXTERNAL*       4/54 S
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE     9
        SYMBOLIC REFERENCE TABLE. 
  
        L$ASG           0   EXTERNAL*       4/57 S
        L$BLK           0   EXTERNAL*       5/33
        L$CAC           0   EXTERNAL*       4/51 S
        L$CBT           0   EXTERNAL*       5/12 S
        L$CLW           0   EXTERNAL*       4/50 S
        L$CUT           0   EXTERNAL*       5/02 S
        L$CVT           0   EXTERNAL*       5/01 S
        L$DIM           0   EXTERNAL*       5/14 S
        L$ENTP          0   EXTERNAL*       5/15 S
        L$FE            0   EXTERNAL*       5/23 S
        L$FPI           0   EXTERNAL*       5/16 S
        L$GLT           0   EXTERNAL*       4/56 S
        L$IOA           0   EXTERNAL*       4/53 S
        L$IOT           0   EXTERNAL*       4/55 S
        L$NLST          0   EXTERNAL*       5/13 S
        L$SYM           0   EXTERNAL*       5/10 S
        L$VDI           0   EXTERNAL*       5/17 S
        L=API           0   EXTERNAL*       2/26 X    4/54
        L=APL           0   EXTERNAL*       2/26 X    4/52
        L=ASG           0   EXTERNAL*       2/26 X    4/57
        L=BLKS          0   EXTERNAL*       2/26 X    5/12
        L=CAC           0   EXTERNAL*       4/51
        L=CLW           0   EXTERNAL*       4/50
        L=CON           0   EXTERNAL*       2/26 X    5/01
        L=CUT           0   EXTERNAL*       5/02
        L=DIM           0   EXTERNAL*       5/14
        L=ENTP          0   EXTERNAL*       5/15
        L=FE            0   EXTERNAL*       5/23
        L=FILE          0   EXTERNAL*       2/26 X
        L=FPI           0   EXTERNAL*       5/16
        L=GL            0   EXTERNAL*       2/27 X    4/56
        L=IOA           0   EXTERNAL*       2/27 X    4/53
        L=IOI           0   EXTERNAL*       2/27 X    4/55
        L=NLST          0   EXTERNAL*       2/27 X    5/13
        L=SYM           0   EXTERNAL*       2/27 X    5/10
        L=VDI           0   EXTERNAL*       5/17
        L.API           0   EXTERNAL*       2/21 X
        L.APL           0   EXTERNAL*       2/21 X
        L.ASG           0   EXTERNAL*       2/21 X
        L.BLKS          0   EXTERNAL*       2/21 X
        L.CON           0   EXTERNAL*       2/21 X
        L.FILE          0   EXTERNAL*       2/21 X
        L.GLT           0   EXTERNAL*       2/21 X
        L.IAI           0   EXTERNAL*       2/21 X
        L.IOA           0   EXTERNAL*       2/22 X
        L.NLST          0   EXTERNAL*       2/22 X
        L.SYM1          0   EXTERNAL*       2/22 X
        MOD             0   EXTERNAL*       2/27 X    3/53
        NARGS           0   EXTERNAL*       2/27 X
        N.FP            0   EXTERNAL*       2/27 X    3/54
        OPTLVL          0   EXTERNAL*       2/02 X
        OPT2            0   EXTERNAL*       2/02 X    5/48 S
        O$APL           0   EXTERNAL*       4/52 S
        O$APT           0   EXTERNAL*       4/54 S
        O$ASG           0   EXTERNAL*       4/57 S
        O$BLK           0   EXTERNAL*       5/35 S    5/38
        O$CAC           0   EXTERNAL*       4/51 S
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        O$CBT           0   EXTERNAL*       5/12 S
        O$CLW           0   EXTERNAL*       4/50 S
        O$CUT           0   EXTERNAL*       5/02 S
        O$CVT           0   EXTERNAL*       5/01 S
        O$DIM           0   EXTERNAL*       5/14 S
        O$ENTP          0   EXTERNAL*       5/15 S
        O$FE            0   EXTERNAL*       5/23 S
        O$FPI           0   EXTERNAL*       5/16 S
        O$GLT           0   EXTERNAL*       4/56 S
        O$IOA           0   EXTERNAL*       4/53 S
        O$IOT           0   EXTERNAL*       4/55 S
        O$NLST          0   EXTERNAL*       5/13 S
        O$SYM           0   EXTERNAL*       5/10 S    6/13      6/14      6/15      6/16
        O$VDI           0   EXTERNAL*       5/17 S
        O=API           0   EXTERNAL*       2/27 X    4/54
        O=APL           0   EXTERNAL*       2/28 X    4/52
        O=ASG           0   EXTERNAL*       2/28 X    4/57
        O=BLKS          0   EXTERNAL*       2/28 X    5/12
        O=CAC           0   EXTERNAL*       4/51
        O=CLW           0   EXTERNAL*       4/50
        O=CON           0   EXTERNAL*       2/28 X    5/01
        O=CUT           0   EXTERNAL*       5/02
        O=DIM           0   EXTERNAL*       5/14
        O=ENTP          0   EXTERNAL*       5/15
        O=FE            0   EXTERNAL*       5/23
        O=FILE          0   EXTERNAL*       2/28 X
        O=FPI           0   EXTERNAL*       5/16
        O=GL            0   EXTERNAL*       2/28 X    4/56
        O=IOA           0   EXTERNAL*       2/28 X    4/53
        O=IOI           0   EXTERNAL*       2/28 X    4/55
        O=NLST          0   EXTERNAL*       2/29 X    5/13
        O=SYM           0   EXTERNAL*       2/29 X    5/10
        O=VDI           0   EXTERNAL*       5/17
        O.API           0   EXTERNAL*       2/22 X
        O.APL           0   EXTERNAL*       2/22 X
        O.ASG           0   EXTERNAL*       2/22 X
        O.BLKS          0   EXTERNAL*       2/22 X
        O.CON           0   EXTERNAL*       2/22 X
        O.FE            0   EXTERNAL*       2/05 X
        O.FILE          0   EXTERNAL*       2/23 X
        O.GLT           0   EXTERNAL*       2/23 X
        O.IAI           0   EXTERNAL*       2/23 X
        O.IOA           0   EXTERNAL*       2/23 X
        O.NLST          0   EXTERNAL*       2/23 X
        O.SYM1          0   EXTERNAL*       2/23 X
        O.TEND          0   EXTERNAL*       2/23 X
        PSTAB           0   EXTERNAL*       2/02 X    6/28 S
        PTC=            0   EXTERNAL*       2/23 X
        RA.SSW          0   CPUTEXT         3/19
        ROR           150   PROGRAM*        6/30
        RPV2N           0   EXTERNAL*       2/33 X    3/13 S
        RPV22           0   EXTERNAL*       2/36 X    3/12
        RPV=            0   EXTERNAL*       2/39 X    3/24      3/24
        RPV=URP         0   EXTERNAL*       2/29 X
        SBM=            0   EXTERNAL*       2/39 X    4/04
        SK.FIP         73                   2/45 D
        SK.GHL         11                   2/49 D
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/05. 20.01.26.      PAGE    11
        SYMBOLIC REFERENCE TABLE. 
  
        SK.GHP         55                   2/49 D
        SK.RNDP        72                   2/46 D
        SK.TYPEL        3                   2/48 D
        SK.TYPEP       66                   2/48 D
        SYS=            0   EXTERNAL*       2/12 X    3/24
        S=CON           0   EXTERNAL*       2/29 X    6/13
        S=ENTRY         0   EXTERNAL*       2/29 X    6/15
        S=EXIT          0   EXTERNAL*       6/22
        S=VALUE         0   EXTERNAL*       6/16
        S=VD            0   EXTERNAL*       6/14
        TEST            1   CTX             3/18 F    3/33 F
        USY=22          0   EXTERNAL*       3/36
        WB.LDOP        24   FTX             6/13      6/14
        WB.LOCFP       22   FTX             6/15      6/16
        WB.W            1   FTX             6/13      6/14      6/15      6/16
        WINOC           0   EXTERNAL*       2/02 X    6/27
        WNB=            0   EXTERNAL*       2/12 X
        WO.CS           0   EXTERNAL*       2/30 X    4/17 S
        WO.DOOT         0   EXTERNAL*       2/30 X    4/18 S
        Z$FE            0   EXTERNAL*       5/28
        Z.LBT           0   EXTERNAL*       2/29 X    4/04
        .OS             1   CTX             3/35 F
        '?RPV=A        37                   3/24 D    3/24
1       FTN5                                                          COMPASS 3.7-871.     24/05/05. 20.01.27.      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
  
                             62200B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FTN                                                           COMPASS 3.7-871.     24/05/05. 20.01.27.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN
                          0                       END 
  
  
  
  
                                                  IDENT  FTN                                                     OVL00       9
             0                                    END                                                            OVL00      10
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       FWA5N0                                                        COMPASS 3.7-871.     24/05/05. 20.01.27.      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
  
                             63700B CM  STORAGE USED               11 STATEMENTS     1309 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.073 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/05. 20.01.27.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       50              IDENT  RPV00
                         50                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV00          0+           RPV=RNA          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA00   B=GEN     B=LABEL   B=FMT     B=KEY     B=FERRS   B=PUC 
                                        B=INIT0   B=REG     B=STMTF   B=TYPE    B=HEADE   B=FEC     B=UTILI 
                                        B=ZEROL   B=FUN     B=CONRE   B=DECL    B=LEX     B=FSNAP   B=FTN 
                                        B=FAS     B=QSKEL   B=PAR     B=DATA    B=ALLOC   B=IDP 
                                        B=REC     B=QCGC    B=IO      B=CDDIR   B=PEM     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
            10  11042000000000                    RPVFWA IDP                                                     OVL00      38
                                        **        RPVFWA CPULFM      NO FRA= PROVIDED                            OVL00      39
            11  06231601200000                    RPVFWA FSNAP                                                   OVL00      40
                                         .T       ENDIF                                                          OVL00      41
            12  06050300000000                    RPVFWA FEC                                                     OVL00      42
            13  06052222230000                    RPVFWA FERRS                                                   OVL00      43
            14  20051500000000                    RPVFWA PEM                                                     OVL00      44
            15  01141417030000                    RPVFWA ALLOC                                                   OVL00      45
            16  14053000000000                    RPVFWA LEX                                                     OVL00      46
            17  10050104052200                    RPVFWA HEADER                                                  OVL00      47
            20  13053100000000                    RPVFWA KEY                                                     OVL00      48
            21  03040411220000                    RPVFWA CDDIR                                                   OVL00      49
            22  04012401000000                    RPVFWA DATA                                                    OVL00      50
            23  04050314000000                    RPVFWA DECL                                                    OVL00      51
1       RPV00 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.27.      PAGE     2
  
  
            24  24312005000000                    RPVFWA TYPE                                                    OVL00      52
            25  06152400000000                    RPVFWA FMT                                                     OVL00      53
            26  11170000000000                    RPVFWA IO                                                      OVL00      54
            27  20012200000000                    RPVFWA PAR                                                     OVL00      55
            30  03171622050400                    RPVFWA CONRED                                                  OVL00      56
            31  23241524060000                    RPVFWA STMTF                                                   OVL00      57
            32  14010205140000                    RPVFWA LABEL                                                   OVL00      58
            33  21030703000000                    RPVFWA QCGC                                                    OVL00      59
            34  21231305140000                    RPVFWA QSKEL                                                   OVL00      60
            35  06251600000000                    RPVFWA FUN                                                     OVL00      61
            36  22050700000000                    RPVFWA REG                                                     OVL00      62
            37  07051600000000                    RPVFWA GEN                                                     OVL00      63
            40  22050300000000                    RPVFWA REC                                                     OVL00      64
            41  06012300000000                    RPVFWA FAS                                                     OVL00      65
            42  32052217141613                    RPVFWA ZEROLNK     REPLACES MAP                                OVL00      66
            43  32052217141613                    RPVFWA ZEROLNK     REPLACES LIST                               OVL00      67
            44  11161124333300                    RPVFWA INIT00                                                  OVL00      68
            45  14270133330000                    RPVFWA LWA00                                                   OVL00      69
            46  00000000000000000000              DATA   0           ** END OF TABLE **                          OVL00      70
            47  00000000000000000000              DATA   0                                                       OVL00      71
            50                                    END                                                            OVL00      72
  
                             64000B CM  STORAGE USED              255 STATEMENTS     1370 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.179 SECONDS           8 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        FW.RNA          1   PROGRAM*        1/33      1/35 L
        L54.00         11   FTX             1/37
        RA.ORG        100   CPUTEXT         1/37
        RA.SSW          0   CPUTEXT         1/36
        RPV=RNA         0   PROGRAM*        1/33 L    1/33 E
        TEST            1   FTX             1/43 F
1       UTILITY                                                       COMPASS 3.7-871.     24/05/05. 20.01.28.      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
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PUC                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUC
                          0                       END 
  
  
  
  
                                                  IDENT  PUC                                                     OVL00      76
             0                                    END                                                            OVL00      77
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       QCGLINK                                                       COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGLINK
                          0                       END 
  
  
  
  
                                                  IDENT  QCGLINK                                                 OVL00      78
             0                                    END                                                            OVL00      79
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       IDP                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IDP
                          0                       END 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    18
                                                  IDENT  IDP                                                     OVL00      82
             0                                    END                                                            OVL00      83
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       CPULFM                                                        COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CPULFM 
                          0                       END 
  
  
  
  
                                                  IDENT  CPULFM                                                  OVL00      84
             0                                    END                                                            OVL00      85
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FSNAP                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FSNAP
                          0                       END 
  
  
  
  
                                                  IDENT  FSNAP                                                   OVL00      86
             0                                    END                                                            OVL00      87
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FEC                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FEC
                          0                       END 
  
  
  
  
                                        **ENDIF                      (NEXT LINE)                                 OVL00      88
                                                  IDENT  FEC                                                     OVL00      90
             0                                    END                                                            OVL00      91
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.015 SECONDS           0 REFERENCES
  
1       FERRS                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FERRS
                          0                       END 
  
  
  
  
                                                  IDENT  FERRS                                                   OVL00      92
             0                                    END                                                            OVL00      93
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL00      94
             0                                    END                                                            OVL00      95
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL00      96
             0                                    END                                                            OVL00      97
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.003 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     OVL00      98
             0                                    END                                                            OVL00      99
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  OVL00     100
             0                                    END                                                            OVL00     101
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     OVL00     102
             0                                    END                                                            OVL00     103
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       CDDIR                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CDDIR
                          0                       END 
  
  
  
  
                                                  IDENT  CDDIR                                                   OVL00     104
             0                                    END                                                            OVL00     105
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    OVL00     106
             0                                    END                                                            OVL00     107
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    OVL00     108
             0                                    END                                                            OVL00     109
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    OVL00     110
             0                                    END                                                            OVL00     111
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     OVL00     112
             0                                    END                                                            OVL00     113
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.009 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      OVL00     114
             0                                    END                                                            OVL00     115
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     OVL00     116
             0                                    END                                                            OVL00     117
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  OVL00     118
             0                                    END                                                            OVL00     119
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       STMTF                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTF
                          0                       END 
  
  
  
  
                                                  IDENT  STMTF                                                   OVL00     120
             0                                    END                                                            OVL00     121
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       LABEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LABEL
                          0                       END 
  
  
  
  
                                                  IDENT  LABEL                                                   OVL00     122
             0                                    END                                                            OVL00     123
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.009 SECONDS           0 REFERENCES
  
1       QCGC                                                          COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGC 
                          0                       END 
  
  
  
  
                                                  IDENT  QCGC                                                    OVL00     124
             0                                    END                                                            OVL00     125
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       QSKEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  QSKEL                                                   OVL00     126
             0                                    END                                                            OVL00     127
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FUN                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FUN
                          0                       END 
  
  
  
  
                                                  IDENT  FUN                                                     OVL00     128
             0                                    END                                                            OVL00     129
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       REG                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REG
                          0                       END 
  
  
  
  
                                                  IDENT  REG                                                     OVL00     130
             0                                    END                                                            OVL00     131
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       GEN                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GEN
                          0                       END 
  
  
  
  
                                                  IDENT  GEN                                                     OVL00     132
             0                                    END                                                            OVL00     133
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       REC                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REC
                          0                       END 
  
  
  
  
                                                  IDENT  REC                                                     OVL00     134
             0                                    END                                                            OVL00     135
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FAS                                                           COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAS
                          0                       END 
  
  
  
  
                                                  IDENT  FAS                                                     OVL00     136
             0                                    END                                                            OVL00     137
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       ZEROLNK                                                       COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ZEROLNK
                          0                       END 
  
  
  
  
                                                  IDENT  ZEROLNK                                                 OVL00     138
             0                                    END                                                            OVL00     139
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       INIT00                                                        COMPASS 3.7-871.     24/05/05. 20.01.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT00 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT00                                                  OVL00     140
             0                                    END                                                            OVL00     141
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       FTN510                                                        COMPASS 3.7-871.     24/05/05. 20.01.28.      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
  
                             63700B CM  STORAGE USED              139 STATEMENTS     1320 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.187 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/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       51              IDENT  RPV10
                         51                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV10          0+           RPV=RNA          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA10   B=REC     B=QCGC    B=IO      B=CDDIR   B=PEM     B=QCGLI 
                                        B=INIT1   B=GEN     B=LABEL   B=FMT     B=KEY     B=FERRS   B=PUC 
                                        B=LIST    B=REG     B=STMTF   B=TYPE    B=HEADE   B=FEC     B=LISTL 
                                        B=MAP     B=FUN     B=CONRE   B=DECL    B=LEX     B=FSNAP   B=UTILI 
                                        B=FAS     B=QSKEL   B=PAR     B=DATA    B=ALLOC   B=IDP     B=FTN 
  
  
  
  
                                                  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
            11  11042000000000                    RPVFWA IDP                                                     OVL10      30
                                        **        RPVFWA CPULFM      NO FRA= PROVIDED                            OVL10      31
            12  06231601200000                    RPVFWA FSNAP                                                   OVL10      32
                                         .T       ENDIF                                                          OVL10      33
            13  06050300000000                    RPVFWA FEC                                                     OVL10      34
            14  06052222230000                    RPVFWA FERRS                                                   OVL10      35
            15  20051500000000                    RPVFWA PEM                                                     OVL10      36
            16  01141417030000                    RPVFWA ALLOC                                                   OVL10      37
            17  14053000000000                    RPVFWA LEX                                                     OVL10      38
            20  10050104052200                    RPVFWA HEADER                                                  OVL10      39
            21  13053100000000                    RPVFWA KEY                                                     OVL10      40
            22  03040411220000                    RPVFWA CDDIR                                                   OVL10      41
            23  04012401000000                    RPVFWA DATA                                                    OVL10      42
            24  04050314000000                    RPVFWA DECL                                                    OVL10      43
            25  24312005000000                    RPVFWA TYPE                                                    OVL10      44
1       RPV10 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     2
  
  
            26  06152400000000                    RPVFWA FMT                                                     OVL10      45
            27  11170000000000                    RPVFWA IO                                                      OVL10      46
            30  20012200000000                    RPVFWA PAR                                                     OVL10      47
            31  03171622050400                    RPVFWA CONRED                                                  OVL10      48
            32  23241524060000                    RPVFWA STMTF                                                   OVL10      49
            33  14010205140000                    RPVFWA LABEL                                                   OVL10      50
            34  21030703000000                    RPVFWA QCGC                                                    OVL10      51
            35  21231305140000                    RPVFWA QSKEL                                                   OVL10      52
            36  06251600000000                    RPVFWA FUN                                                     OVL10      53
            37  22050700000000                    RPVFWA REG                                                     OVL10      54
            40  07051600000000                    RPVFWA GEN                                                     OVL10      55
            41  22050300000000                    RPVFWA REC                                                     OVL10      56
            42  06012300000000                    RPVFWA FAS                                                     OVL10      57
            43  15012000000000                    RPVFWA MAP                                                     OVL10      58
            44  14112324000000                    RPVFWA LIST                                                    OVL10      59
            45  11161124343300                    RPVFWA INIT10                                                  OVL10      60
            46  14270134330000                    RPVFWA LWA10                                                   OVL10      61
            47  00000000000000000000              DATA   0           ** END OF TABLE **                          OVL10      62
            50  00000000000000000000              DATA   0                                                       OVL10      63
            51                                    END                                                            OVL10      64
  
                             64000B CM  STORAGE USED              259 STATEMENTS     1372 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.207 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            1   FTX             1/42 F
1       UTILITY                                                       COMPASS 3.7-871.     24/05/05. 20.01.29.      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
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       LISTLNK                                                       COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LISTLNK
                          0                       END 
  
  
  
  
                                                  IDENT  LISTLNK                                                 FC5A150   552
             0                                    END                                                            FC5A150   553
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       PUC                                                           COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUC
                          0                       END 
  
  
  
  
                                                  IDENT  PUC                                                     OVL10      68
             0                                    END                                                            OVL10      69
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       QCGLINK                                                       COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGLINK
                          0                       END 
  
  
  
  
                                                  IDENT  QCGLINK                                                 OVL10      70
             0                                    END                                                            OVL10      71
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       IDP                                                           COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IDP
                          0                       END 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    20
                                                  IDENT  IDP                                                     OVL10      74
             0                                    END                                                            OVL10      75
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       CPULFM                                                        COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CPULFM 
                          0                       END 
  
  
  
  
                                                  IDENT  CPULFM                                                  OVL10      76
             0                                    END                                                            OVL10      77
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           0 REFERENCES
  
1       FSNAP                                                         COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FSNAP
                          0                       END 
  
  
  
  
                                                  IDENT  FSNAP                                                   OVL10      78
             0                                    END                                                            OVL10      79
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       FEC                                                           COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FEC
                          0                       END 
  
  
  
  
                                        **ENDIF                      (NEXT LINE)                                 OVL10      80
                                                  IDENT  FEC                                                     OVL10      82
             0                                    END                                                            OVL10      83
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       FERRS                                                         COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FERRS
                          0                       END 
  
  
  
  
                                                  IDENT  FERRS                                                   OVL10      84
             0                                    END                                                            OVL10      85
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL10      86
             0                                    END                                                            OVL10      87
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL10      88
             0                                    END                                                            OVL10      89
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     OVL10      90
             0                                    END                                                            OVL10      91
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  OVL10      92
             0                                    END                                                            OVL10      93
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     OVL10      94
             0                                    END                                                            OVL10      95
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       CDDIR                                                         COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CDDIR
                          0                       END 
  
  
  
  
                                                  IDENT  CDDIR                                                   OVL10      96
             0                                    END                                                            OVL10      97
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/05. 20.01.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    OVL10      98
             0                                    END                                                            OVL10      99
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    OVL10     100
             0                                    END                                                            OVL10     101
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    OVL10     102
             0                                    END                                                            OVL10     103
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     OVL10     104
             0                                    END                                                            OVL10     105
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      OVL10     106
             0                                    END                                                            OVL10     107
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     OVL10     108
             0                                    END                                                            OVL10     109
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  OVL10     110
             0                                    END                                                            OVL10     111
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       STMTF                                                         COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTF
                          0                       END 
  
  
  
  
                                                  IDENT  STMTF                                                   OVL10     112
             0                                    END                                                            OVL10     113
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.013 SECONDS           0 REFERENCES
  
1       LABEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LABEL
                          0                       END 
  
  
  
  
                                                  IDENT  LABEL                                                   OVL10     114
             0                                    END                                                            OVL10     115
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.005 SECONDS           0 REFERENCES
  
1       QCGC                                                          COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGC 
                          0                       END 
  
  
  
  
                                                  IDENT  QCGC                                                    OVL10     116
             0                                    END                                                            OVL10     117
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       QSKEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  QSKEL                                                   OVL10     118
             0                                    END                                                            OVL10     119
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       FUN                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FUN
                          0                       END 
  
  
  
  
                                                  IDENT  FUN                                                     OVL10     120
             0                                    END                                                            OVL10     121
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       REG                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REG
                          0                       END 
  
  
  
  
                                                  IDENT  REG                                                     OVL10     122
             0                                    END                                                            OVL10     123
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       GEN                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GEN
                          0                       END 
  
  
  
  
                                                  IDENT  GEN                                                     OVL10     124
             0                                    END                                                            OVL10     125
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       REC                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REC
                          0                       END 
  
  
  
  
                                                  IDENT  REC                                                     OVL10     126
             0                                    END                                                            OVL10     127
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FAS                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAS
                          0                       END 
  
  
  
  
                                                  IDENT  FAS                                                     OVL10     128
             0                                    END                                                            OVL10     129
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       MAP                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MAP
                          0                       END 
  
  
  
  
                                                  IDENT  MAP                                                     OVL10     130
             0                                    END                                                            OVL10     131
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.003 SECONDS           0 REFERENCES
  
1       LIST                                                          COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LIST 
                          0                       END 
  
  
  
  
                                                  IDENT  LIST                                                    OVL10     132
             0                                    END                                                            OVL10     133
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       INIT10                                                        COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT10 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT10                                                  OVL10     134
             0                                    END                                                            OVL10     135
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FTN520                                                        COMPASS 3.7-871.     24/05/05. 20.01.30.      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
  
                             63700B CM  STORAGE USED              139 STATEMENTS     1320 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.111 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/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       16              IDENT  RPV20
                         16                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV20          0+           RPV=RNA          0+           RPV2N           13+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA20   B=INI20   B=IDP     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
            11  11042000000000                    RPVFWA IDP                                                     OVL20      42
                                        **        RPVFWA CPULFM      NO FRA= PROVIDED                            OVL20      43
                                         .T       ENDIF                                                          OVL20      44
            12  11161124353300                    RPVFWA INIT20,=XB=INI20                                        OVL20      45
            13  14270135330000           RPV2N    RPVFWA LWA20       ** USED FOR LINKING TO (2,N).  SEE ABOVE ** OVL20      46
                                                  ENTRY  RPV2N                                                   OVL20      47
            14  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/05. 20.01.30.      PAGE     2
  
  
                                        *                            ** LINK WORD FOR (2,N) **                   OVL20      49
            15  00000000000000000000              DATA   0                                                       OVL20      50
            16                                    END                                                            OVL20      51
  
                             64000B CM  STORAGE USED              112 STATEMENTS     1346 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.090 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          13   PROGRAM*        1/55 L    1/56 E
        RPV=RNA         0   PROGRAM*        1/38 L    1/38 E
        TEST            1   FTX             1/50 F
1       UTILITY                                                       COMPASS 3.7-871.     24/05/05. 20.01.30.      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
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       LISTLNK                                                       COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LISTLNK
                          0                       END 
  
  
  
  
                                                  IDENT  LISTLNK                                                 FC5A150   555
             0                                    END                                                            FC5A150   556
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       PUC                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUC
                          0                       END 
  
  
  
  
                                                  IDENT  PUC                                                     OVL20      55
             0                                    END                                                            OVL20      56
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       CCGLINK                                                       COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CCGLINK
                          0                       END 
  
  
  
  
                                                  IDENT  CCGLINK                                                 OVL20      57
             0                                    END                                                            OVL20      58
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       IDP                                                           COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IDP
                          0                       END 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    22
                                                  IDENT  IDP                                                     OVL20      61
             0                                    END                                                            OVL20      62
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       CPULFM                                                        COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CPULFM 
                          0                       END 
  
  
  
  
                                                  IDENT  CPULFM                                                  OVL20      63
             0                                    END                                                            OVL20      64
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       INIT20                                                        COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT20 
                          0                       END 
  
  
  
  
                                        **ENDIF                      (NEXT LINE)                                 OVL20      65
                                                  IDENT  INIT20                                                  OVL20      67
             0                                    END                                                            OVL20      68
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       FTN521                                                        COMPASS 3.7-871.     24/05/05. 20.01.30.      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
  
                             62200B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       RPV21 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       31              IDENT  RPV21
                         31                       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=FSNAP 
                                        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
             1  06231601200000                    RPVFWA FSNAP                                                   OVL21      18
             2  06050300000000                    RPVFWA FEC                                                     OVL21      19
             3  06052222230000                    RPVFWA FERRS                                                   OVL21      20
             4  20051500000000                    RPVFWA PEM                                                     OVL21      21
             5  01141417030000                    RPVFWA ALLOC                                                   OVL21      22
             6  06141116130000                    RPVFWA FLINK                                                   OVL21      23
             7  14053000000000                    RPVFWA LEX                                                     OVL21      24
            10  10050104052200                    RPVFWA HEADER                                                  OVL21      25
            11  13053100000000                    RPVFWA KEY                                                     OVL21      26
            12  03040411220000                    RPVFWA CDDIR                                                   OVL21      27
            13  04012401000000                    RPVFWA DATA                                                    OVL21      28
            14  04050314000000                    RPVFWA DECL                                                    OVL21      29
            15  24312005000000                    RPVFWA TYPE                                                    OVL21      30
            16  06152400000000                    RPVFWA FMT                                                     OVL21      31
            17  11170000000000                    RPVFWA IO                                                      OVL21      32
            20  20012200000000                    RPVFWA PAR                                                     OVL21      33
            21  03171622050400                    RPVFWA CONRED                                                  OVL21      34
            22  23241524060000                    RPVFWA STMTF                                                   OVL21      35
            23  14010205140000                    RPVFWA LABEL                                                   OVL21      36
            24  06231305140000                    RPVFWA FSKEL                                                   OVL21      37
            25  11161124353400                    RPVFWA INIT21,=XB=INI21                                        OVL21      38
            26  14270135340000                    RPVFWA LWA21                                                   OVL21      39
            27  00000000000000000000              DATA   0           ** END OF RNA TABLE **                      OVL21      40
            30  00000000000000000000              DATA   0                                                       OVL21      41
            31                                    END                                                            OVL21      42
  
                             64000B CM  STORAGE USED              161 STATEMENTS     1358 SYMBOLS 
1       RPV21 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.30.      PAGE     2
  
  
                               PARALLEL CPU ASSEMBLY            0.086 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            1   FTX             1/30 F
1       FSNAP                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FSNAP
                          0                       END 
  
  
  
  
                                        *                                                                        OVL21      43
                                        **IF DEF,TEST,2  (NEXT LINE)                                             FC5A370    24
                                                  IDENT  FSNAP                                                   OVL21      46
             0                                    END                                                            OVL21      47
  
                             62200B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FEC                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FEC
                          0                       END 
  
  
  
  
                                                  IDENT  FEC                                                     OVL21      48
             0                                    END                                                            OVL21      49
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FERRS                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FERRS
                          0                       END 
  
  
  
  
                                                  IDENT  FERRS                                                   OVL21      50
             0                                    END                                                            OVL21      51
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL21      52
             0                                    END                                                            OVL21      53
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL21      54
             0                                    END                                                            OVL21      55
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       FLINK                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FLINK
                          0                       END 
  
  
  
  
                                                  IDENT  FLINK                                                   OVL21      56
             0                                    END                                                            OVL21      57
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     OVL21      58
             0                                    END                                                            OVL21      59
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  OVL21      60
             0                                    END                                                            OVL21      61
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     OVL21      62
             0                                    END                                                            OVL21      63
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       CDDIR                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CDDIR
                          0                       END 
  
  
  
  
                                                  IDENT  CDDIR                                                   OVL21      64
             0                                    END                                                            OVL21      65
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    OVL21      66
             0                                    END                                                            OVL21      67
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    OVL21      68
             0                                    END                                                            OVL21      69
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    OVL21      70
             0                                    END                                                            OVL21      71
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     OVL21      72
             0                                    END                                                            OVL21      73
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      OVL21      74
             0                                    END                                                            OVL21      75
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     OVL21      76
             0                                    END                                                            OVL21      77
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  OVL21      78
             0                                    END                                                            OVL21      79
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       STMTF                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTF
                          0                       END 
  
  
  
  
                                                  IDENT  STMTF                                                   OVL21      80
             0                                    END                                                            OVL21      81
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.004 SECONDS           0 REFERENCES
  
1       LABEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LABEL
                          0                       END 
  
  
  
  
                                                  IDENT  LABEL                                                   OVL21      82
             0                                    END                                                            OVL21      83
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FSKEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  FSKEL                                                   OVL21      84
             0                                    END                                                            OVL21      85
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       INIT21                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT21 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT21                                                  OVL21      86
             0                                    END                                                            OVL21      87
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.009 SECONDS           0 REFERENCES
  
1       FTN522                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      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
  
                             62200B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       RPV22 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       41              IDENT  RPV22
                         41                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV22          0+           RPV22            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA22   B=CFA     PRNTRLI   PRNTMIO   DMPSIT    B=CSNAP   B=GRA     B=CGTM
                                        B=INI22   B=BRIDG   PRNTBV    PRNTGRA   DMPRLST   B=MCG     B=GPO     B=CCGC
                                        B=CSKEL   B=BDT     PRNTABV   DMPUDI    DMPIIT    B=SQZ     B=FBV 
                                        B=UDT     PRNTMCG   PRNTUDI   DMPTREE   B=OUTPT   B=PROSQ   B=MIO 
  
  
  
  
                                                  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
            12  03231601200000                    RPVFWA CSNAP                                                   OVL22      28
            13  17252420241300                    RPVFWA OUTPTK                                                  OVL22      29
            14  04152011112400                    RPVFWA DMPIIT,=XDMPIIT-3                                       OVL22      30
            15  04152022142324                    RPVFWA DMPRLST,=XDMPRLST-3                                     OVL22      31
            16  04152023112400                    RPVFWA DMPSIT,=XDMPSIT-3                                       OVL22      32
            17  04152024220505                    RPVFWA DMPTREE,=XDMPTREE-3                                     OVL22      33
            20  04152025041100                    RPVFWA DMPUDI,=XDMPUDI-3                                       OVL22      34
            21  20221624072201                    RPVFWA PRNTGRA,=XPRNTGRA-3                                     OVL22      35
            22  20221624151117                    RPVFWA PRNTMIO,=XPRNTMIO-3                                     OVL22      36
            23  20221624250411                    RPVFWA PRNTUDI,=XPRNTUDI-3                                     OVL22      37
            24  20221624010226                    RPVFWA PRNTABV,=XPRNTABV-3                                     OVL22      38
            25  20221624022600                    RPVFWA PRNTBV,=XPRNTBV-3                                       OVL22      39
            26  20221624221411                    RPVFWA PRNTRLI,=XPRNTRLI-3                                     OVL22      40
            27  20221624150307                    RPVFWA PRNTMCG,=XPRNTMCG-3                                     OVL22      41
                                         .TEST    ENDIF                                                          OVL22      42
                                                                                                                 OVL22      43
1       RPV22 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     2
  
  
            30  02042400000000                    RPVFWA BDT                                                     OVL22      44
            31  02221104070500                    RPVFWA BRIDGE                                                  OVL22      45
            32  03060100000000                    RPVFWA CFA                                                     OVL22      46
            33  25042400000000                    RPVFWA UDT                                                     OVL22      47
            34  03231305140000                    RPVFWA CSKEL                                                   OVL22      48
            35  11161124353500                    RPVFWA INIT22,=XB=INI22                                        OVL22      49
            36  14270135350000                    RPVFWA LWA22                                                   OVL22      50
            37  00000000000000000000              DATA   0           ** END OF RNA TABLE **                      OVL22      51
            40  00000000000000000000              DATA   0                                                       OVL22      52
            41                                    END                                                            OVL22      53
  
                             64000B CM  STORAGE USED              225 STATEMENTS     1366 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.168 SECONDS          17 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=INI22         0   EXTERNAL*       2/06
        B=PROSQ         0   EXTERNAL*       1/37
        DMPIIT          0   EXTERNAL*       1/44
        DMPRLST         0   EXTERNAL*       1/45
        DMPSIT          0   EXTERNAL*       1/46
        DMPTREE         0   EXTERNAL*       1/47
        DMPUDI          0   EXTERNAL*       1/48
        PRNTABV         0   EXTERNAL*       1/52
        PRNTBV          0   EXTERNAL*       1/53
        PRNTGRA         0   EXTERNAL*       1/49
        PRNTMCG         0   EXTERNAL*       1/55
        PRNTMIO         0   EXTERNAL*       1/50
        PRNTRLI         0   EXTERNAL*       1/54
        PRNTUDI         0   EXTERNAL*       1/51
        RPV22           0   PROGRAM*        1/29 E    1/30 L
        TEST            1   FTX             1/41 F
1       CCGC                                                          COMPASS 3.7-871.     24/05/05. 20.01.31.      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
  
                             62200B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.003 SECONDS           0 REFERENCES
  
1       CGTM                                                          COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CGTM 
                          0                       END 
  
  
  
  
                                                  IDENT  CGTM                                                    OVL22      57
             0                                    END                                                            OVL22      58
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       MIO                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MIO
                          0                       END 
  
  
  
  
                                                  IDENT  MIO                                                     OVL22      59
             0                                    END                                                            OVL22      60
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FBV                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FBV
                          0                       END 
  
  
  
  
                                                  IDENT  FBV                                                     OVL22      61
             0                                    END                                                            OVL22      62
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       GPO                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GPO
                          0                       END 
  
  
  
  
                                                  IDENT  GPO                                                     OVL22      63
             0                                    END                                                            OVL22      64
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       GRA                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GRA
                          0                       END 
  
  
  
  
                                                  IDENT  GRA                                                     OVL22      65
             0                                    END                                                            OVL22      66
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PROSEQ                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PROSEQ 
                          0                       END 
  
  
  
  
                                                  IDENT  PROSEQ                                                  OVL22      67
             0                                    END                                                            OVL22      68
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.004 SECONDS           0 REFERENCES
  
1       SQZ                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SQZ
                          0                       END 
  
  
  
  
                                                  IDENT  SQZ                                                     OVL22      69
             0                                    END                                                            OVL22      70
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       MCG                                                           COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MCG
                          0                       END 
  
  
  
  
                                                  IDENT  MCG                                                     OVL22      71
             0                                    END                                                            OVL22      72
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       CSNAP                                                         COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CSNAP
                          0                       END 
  
  
  
  
                                                                                                                 OVL22      73
                                        **IF,DEF,TEST                (NEXT LINE)                                 OVL22      74
                                                  IDENT  CSNAP                                                   OVL22      76
             0                                    END                                                            OVL22      77
  
                             62200B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       OUTPTK                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  OUTPTK 
                          0                       END 
  
  
  
  
                                                  IDENT  OUTPTK                                                  OVL22      78
             0                                    END                                                            OVL22      79
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DMPIIT                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPIIT 
                          0                       END 
  
  
  
  
                                                  IDENT  DMPIIT                                                  OVL22      80
             0                                    END                                                            OVL22      81
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DMPRLST                                                       COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPRLST
                          0                       END 
  
  
  
  
                                                  IDENT  DMPRLST                                                 OVL22      82
             0                                    END                                                            OVL22      83
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.003 SECONDS           0 REFERENCES
  
1       DMPSIT                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPSIT 
                          0                       END 
  
  
  
  
                                                  IDENT  DMPSIT                                                  OVL22      84
             0                                    END                                                            OVL22      85
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       DMPTREE                                                       COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPTREE
                          0                       END 
  
  
  
  
                                                  IDENT  DMPTREE                                                 OVL22      86
             0                                    END                                                            OVL22      87
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DMPUDI                                                        COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPUDI 
                          0                       END 
  
  
  
  
                                                  IDENT  DMPUDI                                                  OVL22      88
             0                                    END                                                            OVL22      89
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       PRNTGRA                                                       COMPASS 3.7-871.     24/05/05. 20.01.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTGRA
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTGRA                                                 OVL22      90
             0                                    END                                                            OVL22      91
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       PRNTMIO                                                       COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTMIO
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTMIO                                                 OVL22      92
             0                                    END                                                            OVL22      93
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PRNTUDI                                                       COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTUDI
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTUDI                                                 OVL22      94
             0                                    END                                                            OVL22      95
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.003 SECONDS           0 REFERENCES
  
1       PRNTABV                                                       COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTABV
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTABV                                                 OVL22      96
             0                                    END                                                            OVL22      97
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       PRNTBV                                                        COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTBV 
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTBV                                                  OVL22      98
             0                                    END                                                            OVL22      99
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PRNTRLI                                                       COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTRLI
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTRLI                                                 OVL22     100
             0                                    END                                                            OVL22     101
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       PRNTMCG                                                       COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRNTMCG
                          0                       END 
  
  
  
  
                                                  IDENT  PRNTMCG                                                 OVL22     102
             0                                    END                                                            OVL22     103
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       BDT                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BDT
                          0                       END 
  
  
  
  
                                        **ENDIF                      (NEXT LINE)                                 OVL22     104
                                                                                                                 OVL22     106
                                                  IDENT  BDT                                                     OVL22     107
             0                                    END                                                            OVL22     108
  
                             62200B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       BRIDGE                                                        COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BRIDGE 
                          0                       END 
  
  
  
  
                                                  IDENT  BRIDGE                                                  OVL22     109
             0                                    END                                                            OVL22     110
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       CFA                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CFA
                          0                       END 
  
  
  
  
                                                  IDENT  CFA                                                     OVL22     111
             0                                    END                                                            OVL22     112
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       UDT                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  UDT
                          0                       END 
  
  
  
  
                                                  IDENT  UDT                                                     OVL22     113
             0                                    END                                                            OVL22     114
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       CSKEL                                                         COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  CSKEL                                                   OVL22     115
             0                                    END                                                            OVL22     116
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       INIT22                                                        COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT22 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT22                                                  OVL22     117
             0                                    END                                                            OVL22     118
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FTN523                                                        COMPASS 3.7-871.     24/05/05. 20.01.32.      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
  
                             62200B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       RPV23 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       16              IDENT  RPV23
                         16                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV23          0+           RPV23            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA23   B=LIST    B=FAS     B=PEM     B=RLINK   B=RSNAP 
                                        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
             1  22231601200000                    RPVFWA RSNAP                                                   OVL23      18
             2  22050300000000                    RPVFWA REC                                                     OVL23      19
             3  22141116130000                    RPVFWA RLINK                                                   OVL23      20
             4  22052222230000                    RPVFWA RERRS                                                   OVL23      21
             5  20051500000000                    RPVFWA PEM                                                     OVL23      22
             6  01141417030000                    RPVFWA ALLOC                                                   OVL23      23
             7  06012300000000                    RPVFWA FAS                                                     OVL23      24
            10  15012000000000                    RPVFWA MAP                                                     OVL23      25
            11  14112324000000                    RPVFWA LIST                                                    OVL23      26
            12  11161124353600                    RPVFWA INIT23,=XB=INI23                                        OVL23      27
            13  14270135360000                    RPVFWA LWA23                                                   OVL23      28
            14  00000000000000000000              DATA   0           ** END OF RNA TABLE **                      OVL23      29
            15  00000000000000000000              DATA   0                                                       OVL23      30
            16                                    END                                                            OVL23      31
  
                             64000B CM  STORAGE USED               95 STATEMENTS     1347 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.118 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            1   FTX             1/29 F
1       RSNAP                                                         COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  RSNAP
                          0                       END 
  
  
  
  
                                        *                                                                        OVL23      32
                                        **IF DEF,TEST,2  (NEXT LINE)                                             FC5A370    27
                                                  IDENT  RSNAP                                                   OVL23      35
             0                                    END                                                            OVL23      36
  
                             62200B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.009 SECONDS           0 REFERENCES
  
1       REC                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REC
                          0                       END 
  
  
  
  
                                                  IDENT  REC                                                     OVL23      37
             0                                    END                                                            OVL23      38
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       RLINK                                                         COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  RLINK
                          0                       END 
  
  
  
  
                                                  IDENT  RLINK                                                   OVL23      39
             0                                    END                                                            OVL23      40
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       RERRS                                                         COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  RERRS
                          0                       END 
  
  
  
  
                                                  IDENT  RERRS                                                   OVL23      41
             0                                    END                                                            OVL23      42
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL23      43
             0                                    END                                                            OVL23      44
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL23      45
             0                                    END                                                            OVL23      46
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FAS                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAS
                          0                       END 
  
  
  
  
                                                  IDENT  FAS                                                     OVL23      47
             0                                    END                                                            OVL23      48
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.006 SECONDS           0 REFERENCES
  
1       MAP                                                           COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MAP
                          0                       END 
  
  
  
  
                                                  IDENT  MAP                                                     OVL23      49
             0                                    END                                                            OVL23      50
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       LIST                                                          COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LIST 
                          0                       END 
  
  
  
  
                                                  IDENT  LIST                                                    OVL23      51
             0                                    END                                                            OVL23      52
  
                             62200B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.005 SECONDS           0 REFERENCES
  
1       INIT23                                                        COMPASS 3.7-871.     24/05/05. 20.01.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT23 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT23                                                  OVL23      53
             0                                    END                                                            OVL23      54
  
                             57700B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.002 SECONDS           0 REFERENCES
  
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     1  
          OVERLAY(FTN,0,0)  
  
  
  
 -------- OVERLAY(FTN,0,0)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD            111
          LWA+1 OF THE LOAD        67634
  
          TRANSFER ADDRESS -- FTN            65150          
  
          PROGRAM ENTRY POINTS --       FTN5           65150
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN5            111        0    OVR      24/05/05 COMPASS 3.7 871               FTN5 MAIN OVERLAY.  
          /COMPCOM/       111      140
          FTN             251     1422    OVR      24/05/05 COMPASS 3.7 871               GLOBAL CELLS AND SYSTEM INTERFACE.      
          FWA5N0         1673        1    OVR      24/05/05 COMPASS 3.7 871               
          RPV00          1674       50    OVR      24/05/05 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          UTILITY        1744     1052    OVR      24/05/05 COMPASS 3.7 871               COMMON UTILITY ROUTINES.      
          PUC            3016     1552    OVR      24/05/05 COMPASS 3.7 871               PROGRAM UNIT CONTROLLER AND SUPPORT.    
          QCGLINK        4570       23    OVR      24/05/05 COMPASS 3.7 871               QCG MODE LINKAGE ROUTINES.    
          IDP            4613     6532    OVR      24/05/05 COMPASS 3.7 871               INTERACTIVE DEBUG PACKAGE     
          CPULFM        13345        0    OVR      24/05/05 COMPASS 3.7 871               
          FSNAP         13345     1017    OVR      24/05/05 COMPASS 3.7 871               FRONT-END TEST MODE SNAP PACKAGE.       
          /RGFILE/      14364      500
          /HASH/        15064      200
          FEC           15264     2017    OVR      24/05/05 COMPASS 3.7 871               FRONT END CONTROLLER AND SUPPORT.       
          FERRS         17303     3134    OVR      24/05/05 COMPASS 3.7 871               FRONT END ERROR TEXTS.        
          PEM           22437      330    OVR      24/05/05 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         22767      420    OVR      24/05/05 COMPASS 3.7 871               TABLE ALLOCATION.   
          LEX           23407     2402    OVR      24/05/05 COMPASS 3.7 871               LEXICAL SCANNER.    
          HEADER        26011      636    OVR      24/05/05 COMPASS 3.7 871               PROGRAM UNIT HEADER STATEMENTS.         
          KEY           26647     1372    OVR      24/05/05 COMPASS 3.7 871               KEYWORD STATEMENT TRANSLATION.
          CDDIR         30241      267    OVR      24/05/05 COMPASS 3.7 871               C$ DIRECTIVE PROCESSING.      
          DATA          30530     1111    OVR      24/05/05 COMPASS 3.7 871               TRANSLATE DATA STATEMENTS.    
          DECL          31641     3011    OVR      24/05/05 COMPASS 3.7 871               DECLARATIVE PHASE STATEMENTS. 
          TYPE          34652      420    OVR      24/05/05 COMPASS 3.7 871               EXPLICIT / IMPLICIT TYPE DECLARATIONS.  
          FMT           35272      726    OVR      24/05/05 COMPASS 3.7 871               FORMAT STATEMENT PROCESSOR.   
          IO            36220     2776    OVR      24/05/05 COMPASS 3.7 871               INPUT/OUTPUT STATEMENT PROCESSING.      
          PAR           41216     5146    OVR      24/05/05 COMPASS 3.7 871               EXPRESSION TRANSLATION.       
          CONRED        46364     1437    OVR      24/05/05 COMPASS 3.7 871               FRONT END CONSTANT ARITHMETIC.
          STMTF         50023      207    OVR      24/05/05 COMPASS 3.7 871               STATEMENT FUNCTION PROCESSOR. 
          LABEL         50232     1245    OVR      24/05/05 COMPASS 3.7 871               LABELS AND *DO* STATEMENT.    
          QCGC          51477      656    OVR      24/05/05 COMPASS 3.7 871               QUICK CODE GENERATOR CONTROLLER.        
          /SKLNAM/      52355      252
          QSKEL         52627     2035    OVR      24/05/05 COMPASS 3.7 871               (QCG)   INSTRUCTION SKELETON CONSTRUCTION.     
          FUN           54664     1264    OVR      24/05/05 COMPASS 3.7 871               (QCG)    EXTERNAL PROCEDURE INVOCATION. 
          REG           56150     1723    OVR      24/05/05 COMPASS 3.7 871               (QCG)    RESOURCE ALLOCATION. 
          GEN           60073     1645    OVR      24/05/05 COMPASS 3.7 871               (QCG)    QUICK CODE GENERATOR.
          REC           61740      451    OVR      24/05/05 COMPASS 3.7 871               REAR END CONTROLLER.
          FAS           62411     2534    OVR      24/05/05 COMPASS 3.7 871               FORTRAN INTERNAL ASSEMBLER.   
          ZEROLNK       65145        3    OVR      24/05/05 COMPASS 3.7 871               0,0 OVERLAY LINKAGES
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     2  
          OVERLAY(FTN,0,0)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          INIT00        65150     2464    OVR      24/05/05 COMPASS 3.7 871               FIRST TIME ONLY INITIALIZATION.         
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LI=CPL        *WEAK*                    FAS            62566
          LI=DATA       *WEAK*                    FAS            62570
          LI=ECI        *WEAK*                    FAS            62571
          LI=EMI        *WEAK*                    FAS            62572
          LI=END        *WEAK*                    FAS            62550
          LI=EQUN       *WEAK*                    FAS            62551
          LI=FLA        *WEAK*                    FAS            62607
          D=ABS         *WEAK*                    QSKEL          54503
          D=ADD.C       *WEAK*                    QSKEL          54416
          D=ADD.D       *WEAK*                    QSKEL          54415
          D=ADD.I       *WEAK*                    QSKEL          54413
          D=ADD.R       *WEAK*                    QSKEL          54414
          D=AGOTO       *WEAK*                    QSKEL          54553
          D=AIMAG       *WEAK*                    QSKEL          54505
          D=AINT        *WEAK*                    QSKEL          54506
          D=AMAX1       *WEAK*                    QSKEL          54514
          D=AMIN1       *WEAK*                    QSKEL          54515
          D=AMOD        *WEAK*                    QSKEL          54516
          D=AND.L       *WEAK*                    QSKEL          54477
          D=ANINT       *WEAK*                    QSKEL          54507
          D=APIOC       *WEAK*                    QSKEL          54565
          D=APIOD       *WEAK*                    QSKEL          54566
          D=APIOU       *WEAK*                    QSKEL          54567
          LI=TRAC       *WEAK*                    FAS            62562
          D=ASSGN       *WEAK*                    QSKEL          54557
          LI=USE        *WEAK*                    FAS            62563     62605
          D=BVD         *WEAK*                    QSKEL          54604
          D=CAT         *WEAK*                    QSKEL          54465
          D=CDCS        *WEAK*                    QSKEL          54616
          D=CDDOT       *WEAK*                    QSKEL          54615
          D=CDLOO       *WEAK*                    QSKEL          54614
          D=CGOTO       *WEAK*                    QSKEL          54554
          D=CMPLX       *WEAK*                    QSKEL          54520
          D=ITOB        *WEAK*                    QSKEL          54471
          D=CONJG       *WEAK*                    QSKEL          54517
          D=DABS        *WEAK*                    QSKEL          54521
          D=DATA        *WEAK*                    QSKEL          54617
          D=DDIM        *WEAK*                    QSKEL          54522
          D=DIM         *WEAK*                    QSKEL          54523
          D=DINT        *WEAK*                    QSKEL          54524
          D=DIV.C       *WEAK*                    QSKEL          54432
          D=DIV.D       *WEAK*                    QSKEL          54431
          D=DIV.I       *WEAK*                    QSKEL          54427
          D=DIV.R       *WEAK*                    QSKEL          54430
          D=DMAX1       *WEAK*                    QSKEL          54511
          D=DMIN1       *WEAK*                    QSKEL          54513
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     3  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=DNINT       *WEAK*                    QSKEL          54526
          D=LCC         *WEAK*                    QSKEL          54621
          D=LCIF        *WEAK*                    QSKEL          54551
          D=LEQ         *WEAK*                    QSKEL          54461
          D=LGE         *WEAK*                    QSKEL          54447
          D=LIBF        *WEAK*                    QSKEL          54572
          D=DOC.D       *WEAK*                    QSKEL          54547
          D=LNE         *WEAK*                    QSKEL          54454
          D=DOC.O       *WEAK*                    QSKEL          54544
          D=DOC.R       *WEAK*                    QSKEL          54546
          D=LT.I        *WEAK*                    QSKEL          54436
          D=DPROD       *WEAK*                    QSKEL          54525
          BN=STRT         0   PUC                 GEN            61221     61311
          D=DTOC        *WEAK*                    QSKEL          54475
          D=DVC.R       *WEAK*                    QSKEL          54433
          D=MOD         *WEAK*                    QSKEL          54534
          D=ENTR        *WEAK*                    QSKEL          54603
          D=EQV.L       *WEAK*                    QSKEL          54500
          D=EQ.D        *WEAK*                    QSKEL          54457
          D=EQ.H        *WEAK*                    QSKEL          54460
          D=EQ.I        *WEAK*                    QSKEL          54455
          D=EQ.R        *WEAK*                    QSKEL          54456
          D=ERR         *WEAK*                    QSKEL          54575
          D=EVD         *WEAK*                    QSKEL          54605
          LI=BOS        *WEAK*                    FAS            62565
          D=FAP         *WEAK*                    QSKEL          54563
          D=FILE        *WEAK*                    QSKEL          54611
          D=FIN         *WEAK*                    QSKEL          54620
          D=FUNC        *WEAK*                    QSKEL          54571
          D=GAP         *WEAK*                    QSKEL          54562
          D=GE.D        *WEAK*                    QSKEL          54445
          D=GE.H        *WEAK*                    QSKEL          54446
          D=GE.I        *WEAK*                    QSKEL          54443
          D=GE.R        *WEAK*                    QSKEL          54444
          D=GOTO        *WEAK*                    QSKEL          54552
          D=GPL         *WEAK*                    QSKEL          54602
          D=HDR         *WEAK*                    QSKEL          54610
          D=IAP         *WEAK*                    QSKEL          54564
          D=IDIM        *WEAK*                    QSKEL          54532
          D=IDNIN       *WEAK*                    QSKEL          54530
          D=IEQ.C       *WEAK*                    QSKEL          54657
          D=IEQ.D       *WEAK*                    QSKEL          54656
          D=IEQ.I       *WEAK*                    QSKEL          54654
          D=IEQ.R       *WEAK*                    QSKEL          54655
          D=IFF         *WEAK*                    QSKEL          54652
          D=IFT         *WEAK*                    QSKEL          54651
          D=ILL         *WEAK*                    QSKEL          54412
          D=INE.C       *WEAK*                    QSKEL          54663
          D=INE.D       *WEAK*                    QSKEL          54662
          D=INE.I       *WEAK*                    QSKEL          54660
          D=INE.R       *WEAK*                    QSKEL          54661
          D=INN3        *WEAK*                    QSKEL          54643
          D=INTF        *WEAK*                    QSKEL          54573
          D=IN2N        *WEAK*                    QSKEL          54647
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     4  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=IN22        *WEAK*                    QSKEL          54637
          D=IN23        *WEAK*                    QSKEL          54633
          D=IOLC        *WEAK*                    QSKEL          54550
          D=IOSUB       *WEAK*                    QSKEL          54574
          D=ISIGN       *WEAK*                    QSKEL          54531
          LI=BMI        *WEAK*                    FAS            62546
          D=ITOD        *WEAK*                    QSKEL          54472
          D=ITOR        *WEAK*                    QSKEL          54470
          D=I1NN        *WEAK*                    QSKEL          54641
          D=I1N1        *WEAK*                    QSKEL          54650
          D=I1N3        *WEAK*                    QSKEL          54634
          D=I11N        *WEAK*                    QSKEL          54645
          D=I111        *WEAK*                    QSKEL          54653
          D=I113        *WEAK*                    QSKEL          54630
          D=I12N        *WEAK*                    QSKEL          54636
          D=I121        *WEAK*                    QSKEL          54632
          D=I122        *WEAK*                    QSKEL          54626
          D=I123        *WEAK*                    QSKEL          54625
          D=JGOTO       *WEAK*                    QSKEL          54555
          LI=IOM        *WEAK*                    FAS            62555
          LI=JPI        *WEAK*                    FAS            62573
          LI=LCC        *WEAK*                    FAS            62556
          LI=LD0        *WEAK*                    FAS            62574
          LI=LOO        *WEAK*                    FAS            62557     62576
          D=LLT         *WEAK*                    QSKEL          54442
          LI=OTR        *WEAK*                    FAS            62577
          D=LT.D        *WEAK*                    QSKEL          54440
          D=LT.H        *WEAK*                    QSKEL          54441
          LI=RJ6        *WEAK*                    FAS            62601
          D=LT.R        *WEAK*                    QSKEL          54437
          D=MASK        *WEAK*                    QSKEL          54533
          D=MAX0        *WEAK*                    QSKEL          54510
          D=MIN0        *WEAK*                    QSKEL          54512
          LI=UJP        *WEAK*                    FAS            62604
          D=MUL.C       *WEAK*                    QSKEL          54426
          D=MUL.D       *WEAK*                    QSKEL          54425
          D=MUL.I       *WEAK*                    QSKEL          54423
          D=MUL.R       *WEAK*                    QSKEL          54424
          LI=ADDR       *WEAK*                    FAS            62543
          LI=APL        *WEAK*                    FAS            62545
          LI=BCI        *WEAK*                    FAS            62564
          D=NE.I        *WEAK*                    QSKEL          54450
          D=NE.R        *WEAK*                    QSKEL          54451
          LI=BSS        *WEAK*                    FAS            62544     62567
          LI=CON        *WEAK*                    FAS            62547
          D=PAUS        *WEAK*                    QSKEL          54577
          D=PLIM        *WEAK*                    QSKEL          54612
          D=RANF        *WEAK*                    QSKEL          54535
          D=RET         *WEAK*                    QSKEL          54600
          D=RGOTO       *WEAK*                    QSKEL          54556
          D=RNN3        *WEAK*                    QSKEL          54644
          D=RN22        *WEAK*                    QSKEL          54640
          LI=FMT        *WEAK*                    FAS            62552
          LI=FVEC       *WEAK*                    FAS            62553
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     5  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LI=IDNT       *WEAK*                    FAS            62554
          ES=CMPL         0   PAR                 QSKEL          54207
          D=R1NN        *WEAK*                    QSKEL          54642
          V=IEQ.L       *WEAK*                    PAR            43250
          D=R11N        *WEAK*                    QSKEL          54646
          D=R113        *WEAK*                    QSKEL          54631
          LI=NLST       *WEAK*                    FAS            62560
          D=SEG         *WEAK*                    QSKEL          54606
          LI=PLIM       *WEAK*                    FAS            62561
          LI=RJ3        *WEAK*                    FAS            62600
          UTK=          *WEAK*                    FSNAP          14317     14320
          LI=SB0I       *WEAK*                    FAS            62603
          LI=ST0        *WEAK*                    FAS            62575
          LI=SUBI       *WEAK*                    FAS            62602
          V=INE.L       *WEAK*                    PAR            43250
          D=R122        *WEAK*                    QSKEL          54627
          D=SUB.D       *WEAK*                    QSKEL          54421
          LI=ZERO       *WEAK*                    FAS            62606
          D=SUB.R       *WEAK*                    QSKEL          54420
          D=SUM1S       *WEAK*                    QSKEL          54504
          D=UMI.D       *WEAK*                    QSKEL          54435
          D=UMI.I       *WEAK*                    QSKEL          54434
          D=XOR.L       *WEAK*                    QSKEL          54502
          D=SUBR        *WEAK*                    QSKEL          54570
          D=STOP        *WEAK*                    QSKEL          54576
          V=IEQ.B       *WEAK*                    PAR            43247
          D=NOT.L       *WEAK*                    QSKEL          54476
          D=OR.L        *WEAK*                    QSKEL          54501
          UFR=          *WEAK*                    IDP            11452     11453
          D=STR.D       *WEAK*                    QSKEL          54463
          V=INE.H       *WEAK*                    PAR            43255
          D=DSIGN       *WEAK*                    QSKEL          54527
          D=NE.H        *WEAK*                    QSKEL          54453
          D=RTOI        *WEAK*                    QSKEL          54473
          D=SUB.C       *WEAK*                    QSKEL          54422
          FEC=1ST         0   FEC                 LEX            23464     23512     23524     23525     23531     23541
                                                  TYPE           34671
          USY=FE        *WEAK*                    INIT00         65205
          UTG=          *WEAK*                    FSNAP          14313     14314
          V=IEQ.H       *WEAK*                    PAR            43255
          D=R1N3        *WEAK*                    QSKEL          54635
          D=STR.H       *WEAK*                    QSKEL          54464
          FAA=          *WEAK*                    IDP            10043     10044
          V=INE.B       *WEAK*                    PAR            43247
          D=SHIFT       *WEAK*                    QSKEL          54536
          D=RTOD        *WEAK*                    QSKEL          54474
          UFO=          *WEAK*                    IDP            11446     11447
          D=SUB.I       *WEAK*                    QSKEL          54417
          D=RTNK        *WEAK*                    QSKEL          54601
          V=DOC.1       *WEAK*                    LABEL          50751
          ERR.A           0   PUC                 FERRS          20562     20564     20566     20570     20572     20574     20576
                                                                 20646     20647     20650     20666     20675     20721     20772
                                                                 21030     21045     21164     21257     21330     21410     21426
                                                                 21560     21650     21665     21673     22130     22166     22173
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     6  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 22277
          D=SEX         *WEAK*                    QSKEL          54613
          V=ILL           0   QSKEL     
          D=NE.D        *WEAK*                    QSKEL          54452
          BN=CODE         1   PUC                 GEN            61646
          V=ADD.B         1   QSKEL     
          FEC=IMP         1   FEC                 LEX            23514
                                                  HEADER         26207
          V=ADD.I         1   QSKEL               IO             40201     40561     40577
                                                  PAR            41517     41573     46054
          ERR.M           1   PUC                 FERRS          22047     22050     22052     22054     22056     22060
          FEC=DEC         2   FEC                 LEX            23472     23477     23507     23510     23517     23520     23537
          RPV=FVT         2   FTN                 UTILITY         2156
          BN=CON          2   PUC                 FEC            15351
                                                  GEN            61614
          ERR.D           2                       FERRS          22035     22036     22040     22042     22046
          V=ADD.R         2   QSKEL     
          FV.IN           2   FTN                 INIT00         66470
          FEC=STF         3   FEC                 LEX            23546
                                                  HEADER         26511
                                                  KEY            27066
                                                  DECL           33125
          V=ADD.D         3   QSKEL     
          BN=FMT          3   PUC                 FEC            15357
                                                  GEN            61622
          FV.OUT          3   FTN                 PUC             4105      4112      4372
                                                  INIT00         66472
          L.FILL          3   FERRS               PEM            22446
          ERR.T           3   PUC                 FERRS          20732     21041     21124     21332     21341     21400     21406
                                                                 21412     21413     21432     21434     22006     22010     22024
                                                                 22150     22320     22424     22426     22430     22434
          V=ADD.C         4   QSKEL     
          BN=TEM          4   PUC                 QCGC           52266
                                                  GEN            61252     61346     61355
          FEC=EXU         4   FEC                 LEX            23462     23463     23466     23467     23471     23474     23476
                                                                 23501     23502     23504     23505     23513     23515     23523
                                                                 23527     23530     23532     23533     23535     23536     23540
                                                                 23542     23547     23550     23551     24161
                                                  DATA           30575
                                                  PAR            42176
          Z.IMCV          4   QSKEL               PAR            44714
          ERR.W           4   PUC                 FERRS          20550     20554     20620     20621     20624     20635     20654
                                                                 20701     20703     20746     20765     20767     20770     21036
                                                                 21043     21061     21150     21166     21170     21172     21176
                                                                 21200     21217     21223     21234     21253     21255     21305
                                                                 21354     21360     21404     21467     21471     21477     21501
                                                                 21527     21537     21637     21671     21731     21735     21743
                                                                 21763     22001     22076     22110     22114     22134     22136
                                                                 22144     22156     22253     22262     22264     22272     22316
                                                                 22322     22341     22353     22357     22365     22405
          FV.ERRS         4   FTN                 INIT00         66474
          BN=APL          5   PUC                 FUN            55540
                                                  GEN            61627
                                                  FAS            62733
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     7  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ERR.F           5                       FERRS          20544     20546     20552     20556     20560     20600     20602
                                                                 20604     20606     20610     20612     20614     20616     20622
                                                                 20626     20631     20633     20637     20641     20644     20652
                                                                 20656     20660     20662     20664     20667     20671     20673
                                                                 20677     20705     20707     20711     20713     20715     20717
                                                                 20723     20725     20727     20731     20734     20736     20740
                                                                 20742     20744     20751     20753     20755     20757     20761
                                                                 20763     20774     20776     20777     21001     21003     21005
                                                                 21007     21011     21013     21015     21017     21021     21023
                                                                 21025     21027     21032     21034     21040     21047     21051
                                                                 21053     21055     21057     21063     21065     21067     21071
                                                                 21073     21075     21100     21102     21104     21106     21111
                                                                 21114     21116     21120     21122     21126     21130     21132
                                                                 21134     21136     21140     21142     21144     21146     21152
                                                                 21154     21156     21160     21162     21174     21202     21205
                                                                 21207     21211     21213     21215     21221     21222     21225
                                                                 21230     21232     21236     21240     21242     21244     21247
                                                                 21251     21261     21263     21265     21267     21271     21273
                                                                 21275     21277     21301     21303     21307     21311     21314
                                                                 21316     21320     21322     21324     21326     21335     21337
                                                                 21343     21346     21347     21351     21357     21361     21363
                                                                 21365     21367     21372     21373     21374     21376     21402
                                                                 21415     21417     21421     21422     21424     21430     21436
                                                                 21440     21442     21444     21446     21450     21452     21453
                                                                 21455     21457     21461     21463     21465     21473     21475
                                                                 21503     21505     21507     21510     21513     21515     21517
                                                                 21521     21523     21525     21531     21533     21535     21541
                                                                 21542     21544     21546     21550     21552     21554     21556
                                                                 21562     21564     21566     21570     21572     21574     21576
                                                                 21600     21602     21604     21606     21610     21612     21614
                                                                 21616     21620     21622     21624     21626     21630     21633
                                                                 21635     21642     21644     21646     21652     21654     21656
                                                                 21660     21662     21664     21667     21675     21677     21701
                                                                 21703     21705     21707     21711     21713     21714     21715
                                                                 21717     21722     21725     21727     21733     21737     21741
                                                                 21745     21747     21751     21753     21755     21757     21761
                                                                 21765     21767     21770     21772     21773     21775     21777
                                                                 22003     22004     22012     22014     22016     22020     22022
                                                                 22026     22032     22033     22044     22061     22062     22064
                                                                 22066     22070     22072     22074     22100     22102     22104
                                                                 22106     22112     22116     22120     22122     22124     22126
                                                                 22132     22140     22142     22146     22152     22154     22160
                                                                 22162     22164     22170     22176     22200     22203     22205
                                                                 22207     22211     22213     22215     22217     22221     22223
                                                                 22225     22230     22232     22234     22236     22240     22242
                                                                 22244     22246     22250     22252     22256     22260     22266
                                                                 22270     22274     22301     22303     22306     22310     22312
                                                                 22314     22324     22327     22331     22333     22334     22336
                                                                 22343     22345     22347     22351     22355     22361     22363
                                                                 22367     22371     22373     22375     22377     22401     22403
                                                                 22407     22410     22412     22414     22416     22420     22422
                                                                 22432     22436
          FEC=END         5   FEC                 LEX            23503     23552
          L.TA            5   FTN                 PUC             4350
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     8  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=SUB.B         5   QSKEL     
          L.TTLA          5   FTN                 PUC             4340
          FV.LGO          5                       PUC             3614      4075
                                                  REC            61760     62045     62153
                                                  FAS            62647     63051
                                                  INIT00         66466     66502     66504     66721     67276     67302     67327
          V=SUB.I         5   QSKEL               IO             40173     40176     40537     40553
                                                  PAR            41520     41571
          L.TTLB          6   FTN                 PUC             4343
          V=SUB.R         6   QSKEL     
          FEC=BY          6   FEC                 ALLOC          23254
                                                  LEX            24206
                                                  CDDIR          30303     30327     30350     30365
          FV.PB           6   FTN       
          BN=IOAP         6   PUC                 FEC            15346
                                                  GEN            61634
          ERR.K           6                       FERRS          22030
          FV.IL           7   FTN       
          L.TB            7                       PUC             4352
          BN=NLST         7   PUC                 FEC            15420
                                                  GEN            61641
          ERR.C           7                       PEM            22506
          L.CCB           7   FTN                 PUC             4356
          V=SUB.D         7   QSKEL     
          L.CCA           7   FTN                 PUC             4354
          FEC=DAT         7   FEC                 LEX            23475     23522
          FEC=FMT        10                       LEX            23511
          ES=LEN         10   PAR                 QSKEL          54310
          N.ERRT         10   PUC                 FEC            16502
                                                  PEM            22510
          BT.IDN8        10   FAS       
          V=SUB.C        10   QSKEL     
          BN=VAR         10   PUC       
          FV.REF         10   FTN       
          V=MUL.I        11   QSKEL               IO             40220     40571     40616
                                                  PAR            41522     41572     43714     46057
          L.C$           11   FTN                 FEC            16506
          FEC=ENT        11   FEC                 LEX            23506
          BN=SUB         11   PUC                 GEN            61340
                                                  FAS            62665     63052     63305
          BT.IDN9        11   FAS                 REC            62037
          V=MUL.B        11   QSKEL     
          V=MUL.R        12                       PAR            41530     43717
          FEC=TYP        12   FEC                 LEX            23465     23470     23473     23500     23516     23521     23534
          BN=SUB0        12   PUC                 FAS            62664     63054     63303
          FEC=PRM        13   FEC                 LEX            23526
          V=MUL.D        13   QSKEL               PAR            43722
          BN=BUF         13   PUC                 QCGC           52277
          L.TWO          14   FTN                 PUC             4326
          N$LBT          14   PUC       
          Z$LBT          14             
          Z.LBT          14                       FEC            16472
                                                  REC            62162
          V=MUL.C        14   QSKEL               PAR            43725
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE     9  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FEC=OK         14   FEC                 LEX            23543     23544     23553     23554     23555     23556     23557
                                                                 23560     23561     23562
          L.CC           15   FTN                 PUC             4330
          V=DIV.I        15   QSKEL     
          V=DIV.B        15             
          L.TITL         15   FTN                 PUC             4320
          V=DIV.R        16   QSKEL     
          FVLEN          16   FTN                 INIT00         66366
          V=DIV.D        17   QSKEL     
          V=DIV.C        20             
          L.APLF         21   FUN                 QCGC           51527
          V=DVC.R        21   QSKEL               PAR            41516
          ES=LGE         22   PAR                 QSKEL          54224
          V=UMI.R        22   QSKEL     
          V=UMI.I        22                       PAR            41521
          V=UMI.D        23             
          V=UMI.C        23             
          V=LT.B         24             
          V=LT.I         24             
          V=LT.R         25             
          ES=LGT         26   PAR                 QSKEL          54225
          V=LT.D         26   QSKEL     
          V=LT.H         27             
          V=LLT          30                       PAR            41565
          OMI=CPX        30                       PAR            44560
          V=GE.B         31             
          V=GE.I         31             
          ES=LLE         31   PAR                 QSKEL          54226
          ES=LLT         32                       QSKEL          54227
          V=GE.R         32   QSKEL     
          V=GE.D         33             
          ES=MASK        34   PAR                 QSKEL          54311
          V=GE.H         34   QSKEL     
          V=LGE          35                       PAR            41564
          V=NE.B         36             
          V=NE.I         36             
          V=NE.R         37             
          W=IMVC         37             
          W=IMV          37                       GEN            61664
          V=NE.C         40             
          W=SHLC         40             
          V=NE.D         40             
          W=SHFC         40             
          V=NE.H         41             
          V=LNE          42             
          V=EQ.I         43             
          V=EQ.B         43             
          V=EQ.R         44             
          V=EQ.D         45             
          V=EQ.C         45             
          V=EQ.H         46             
          N.TABLE        47   PUC                 IDP             4660
                                                  FSNAP          13656     13670
                                                  FEC            16373     16375     17132     17167     17177
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    10  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          22770     23007     23027     23034     23063     23103     23107
                                                                 23137
                                                  DECL           32173     33347
                                                  QCGC           51600     51610
                                                  FUN            55476     55477
                                                  REG            56614
                                                  FAS            63566     64522     64540     65010
          ERFO           47   FTN                 PUC             3655      3657      4277
                                                  FEC            16501
                                                  HEADER         26143     26165     26166
                                                  INIT00         66356     66357     66564     66574     66601     67005     67006
                                                                 67062     67071
          V=LEQ          47   QSKEL     
          ES=SHIF        47   PAR                 QSKEL          54320
          V=STR.I        50   QSKEL               IO             40233
                                                  PAR            41570
                                                  REG            57367
          V=STR.B        50             
          V=STR.R        50             
          V=STR.D        51             
          V=STR.C        51             
          OMI=LCF        51                       PAR            44400
          V=STR.H        52                       PAR            41567
          V=CAT          53                       PAR            41502     45607
          Z.SORD         53   PUC                 FEC            16426
          V=COLON        54   QSKEL               PAR            41547
                                                  CONRED         47412
          OM=CONV        55                       PAR            41552
          V=SUBST        55                       PAR            41550     45466     45610     45654
                                                  CONRED         47404
                                                  QCGC           51717
                                                  FUN            55642
          OM=INL         55                       PAR            44307
          V=ITOR         56             
          V=FLOAT        56             
          V=ITOB         57             
          V=BTOI         57             
          V=REAL         57             
          V=SNGL         57             
          V=XMIT         57                       PAR            41555
          V=BTOR         57             
          V=DTOB         57             
          V=DTOR         57             
          V=CTOR         57             
          V=CTOB         57             
          V=RTOB         57             
          V=BOOL         57             
          V=ITOC         60             
          V=ITOD         60             
          V=INT          61                       PAR            41551
          V=RTOI         61             
          V=DTOI         61             
          V=IDINT        61             
          V=IFIX         61             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    11  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=CTOI         61             
          V=BTOD         62             
          V=RTOC         62             
          V=BTOC         62             
          V=DBLE         62             
          V=RTOD         62             
          ES=LOCF        63   PAR                 QSKEL          54231
          V=CTOD         63   QSKEL     
          V=DTOC         63             
          V=NOT.L        64                       PAR            41531
          V=COMPL        64             
          V=NOT.B        64             
          V=AND.L        65             
          V=AND          65             
          W=IDVC         65             
          V=AND.B        65             
          W=IDV          65                       GEN            61665
          V=EQV.L        66             
          V=EQV.B        66             
          V=EQV          66             
          Z.CHMAP        66   FEC                 FSNAP          13350
          V=OR.L         67   QSKEL     
          V=OR.B         67             
          V=OR           67             
          V=XOR.L        70             
          V=XOR.B        70             
          V=NEQV.        70             
          V=XOR          70             
          V=NEQV         70             
          V=ABS          71             
          V=IABS         71             
          V=SUM1S        72             
          V=AIMAG        73             
          W=SHRC         73             
          ES=RANF        73   PAR                 QSKEL          54316
          W=IDP2         73   QSKEL     
          V=AINT         74             
          V=ANINT        75             
          V=AMAX0        76             
          V=MAX0         76                       IO             40212     40611
          V=DMAX1        77             
          Z.INTA         77                       PAR            42120
          V=MIN0        100             
          V=AMIN0       100             
          V=DMIN1       101             
          V=AMAX1       102             
          V=MAX1        102             
          V=MIN1        103             
          V=AMIN1       103             
          V=AMOD        104             
          V=CONJG       105             
          Z.SYMVP       105   FEC                 INIT00         67341     67344
          V=CMPLX       106   QSKEL               PAR            44315
          V=DABS        107             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    12  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.PWT        110   FTN                 INIT00         66767
          V=DDIM        110   QSKEL     
          V=DIM         111             
          V=DINT        112             
          V=DPROD       113             
          CP.ABT        114   FTN                 PUC             3735
                                                  INIT00         66463
          V=DNINT       114   QSKEL     
          CO.DBB        115   FTN       
          V=DSIGN       115   QSKEL     
          CP.ERCT       115   FTN                 PUC             3735
                                                  PEM            22650
          CP.LSTF       116                       PUC             3570
                                                  INIT00         66440     66444
          V=IDNIN       116   QSKEL     
          V=NINT        116             
          V=ISIGN       117             
          CP.PAGE       117   FTN                 PUC             3571      3643      4363
                                                  INIT00         65720     66534
          V=SIGN        117   QSKEL     
          V=IDIM        120             
          CP.EPAG       120   FTN                 PUC             3646      3652      4364
          V=MASK        121   QSKEL               PAR            44346
          CP.BLF        121   FTN                 PUC             3571
                                                  INIT00         65621
          V=MOD         122   QSKEL     
          CP.PD         122   FTN                 PUC             4107      4304      4306
                                                  INIT00         66543
          CP.PS         123                       INIT00         66547
          V=RANF        123   QSKEL               PAR            41562
          V=SHIFT       124                       PAR            44361     44365     44373
          CP.PW         124   FTN       
          CP.CPU        125                       INIT00         66576
          V=DOBS        125   QSKEL               PAR            41524
          V=DOBL        126                       PAR            41526
          CP.MXFL       126   FTN                 PUC             3667      3724
                                                  INIT00         66307     67324
          V=DOBZS       127   QSKEL               PAR            41523
          CP.XTXT       127   FTN                 INIT00         65753     66631     66634     66637     66642     66647
          CP.IFMT       130                       PUC             3601
                                                  LEX            23771     24254     24266
          OMI=LEN       130   QSKEL               PAR            44327
          V=DOBZL       130                       PAR            41525
          V=DOC.S       131                       LABEL          50747
          V=DOC.O       132                       LABEL          50750
          Z.SYMDB       132   FEC                 INIT00         67351
          V=DOC.L       133   QSKEL     
          CP.ILFL       133   FTN                 PUC             3750      3774
                                                  INIT00         66335
          V=DOC.R       134   QSKEL     
          GT1           135   FTN                 PUC             3751      3753      3755      3770      3772      3776      4001
                                                                  4022      4025      4112      4113      4176      4200      4203
                                                                  4264
                                                  FAS            65063     65065
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    13  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         66301     66303     66305     66311     66314     66316
          V=DOC.D       135   QSKEL     
          CP.LCOM       135   FTN       
          V=IOLC        136   QSKEL               IO             41103
          GT2           136   FTN       
          V=LCIF        137   QSKEL               IO             41065
          CP.FLIN       137   FTN                 FEC            16273
                                                  LEX            24025     24071     24101     24121     24220     24225     24237
                                                                 24250
          V=GOTO        140   QSKEL               KEY            27337     27717     30015
                                                  LABEL          50706
          CP.CARD       141   FTN                 PUC             3603      3637
                                                  LEX            23764     24226     24257     24263     24265
                                                  INIT00         66751
          OMI=SHF       141   QSKEL     
          V=AGOTO       141                       KEY            27400
          V=CGOTO       142                       KEY            27424
          V=JGOTO       143                       KEY            27432
          Z.SYMIL       143   FEC                 INIT00         67353
          V=RGOTO       144   QSKEL               KEY            27000
          V=ASSGN       145                       KEY            26711
          V=BSS         146                       KEY            30057
                                                  PAR            41554
                                                  GEN            60610
          V=ARY         147                       PAR            41533     46037
                                                  QCGC           51733
          V=GAP         150                       PAR            41542
          V=FAP         151                       PAR            41541
          V=IAP         152                       PAR            41543
          V=APIOC       153                       PAR            41544
          V=APIOD       154                       PAR            41545
          V=APIOU       155                       PAR            41546
          V=SUBR        156                       KEY            26773
          V=FUNC        157                       PAR            41536
          V=LIBF        160                       PAR            41540
          CP.STXT       161   FTN                 INIT00         66116     66152
          V=INTF        161   QSKEL               PAR            41537
          V=IOSUB       162                       IO             37100
          V=ERR         163                       PAR            41510     41512     41535
          V=PEND        164             
          V=STOP        164                       KEY            30216
          V=PAUS        165                       KEY            30217
          V=RET         166                       KEY            27056     27253
          V=RTNK        167                       KEY            27270
          V=GPL         170                       PAR            41574
          CP.LIB        171   FTN                 INIT00         66120     66150     66154
          V=ENTR        171   QSKEL               KEY            27122
          V=BVD         172                       FEC            16465
                                                  QCGC           51554     51646
          V=EVD         173                       FEC            16324
          V=SEG         174             
          V=NOOP        175                       FEC            16221
                                                  KEY            27767
                                                  IO             41070     41107
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    14  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            41553
                                                  LABEL          50776     51004     51077
                                                  QCGC           51647
                                                  GEN            61161
          V=HDR         176                       HEADER         26204
          V=FILE        177                       HEADER         26306
          V=PLIM        200                       HEADER         26323
          V=SEX         201                       HEADER         26017     26325     26570
          CP.AFLS       201   FTN                 PUC             3665      3674      3703      3711      3766      4172      4204
                                                                  4206
                                                  ALLOC          23200
                                                  INIT00         66273     66307     66333     67264     67323
          CP.NFLS       202                       PUC             4205      4207
                                                  IDP             7263
                                                  INIT00         65150     66306     66334     67310     67322
          V=CDLOO       202   QSKEL               CDDIR          30405
          V=CDDOT       203                       CDDIR          30274
          CP.AFLL       203   FTN                 PUC             3774
                                                  INIT00         66333
          LCM.FL        203             
          V=CDCS        204   QSKEL               CDDIR          30260
          CP.NFLL       204   FTN                 INIT00         66334
          V=DATA        205   QSKEL               DATA           30614
          CP.MODL       205   FTN                 FAS            64617
                                                  INIT00         65704     65705
          V=FIN         206   QSKEL               FEC            15703
          CP.PCOM       206   FTN                 INIT00         65712     65713
          V=LCC         207   QSKEL               HEADER         26100
          V=DVI         210                       DATA           31050
                                                  PAR            41534
          F.IN          211   FTN                 PUC             3604
                                                  IDP             4755
                                                  LEX            24264
                                                  INIT00         66604     66607     66705     66746     66747     66752
          V=EXP.I       211   QSKEL               PAR            41563
          V=DOBD2       212             
          V=D123        213             
          OM=IF         213                       KEY            27732
          V=I123        213             
          V=R123        213             
          V=I122        214             
          V=D122        215             
          V=R122        215             
          V=I113        216             
          V=R113        217             
          V=D113        217             
          V=I121        220             
          V=IN23        221             
          V=RN23        221             
          F.OUT         221   FTN                 PUC             3577      3644      4333
                                                  IDP             4756      4757      6352      6410      6412      6460      6656
                                                                 10744     10755
                                                  ALLOC          23270
                                                  INIT00         66604     66605     66652     66655     66660     66711     67025
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    15  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=DN23        221   QSKEL     
          OUTPUT#       221   FTN       
          V=I1N3        222   QSKEL     
          V=R1N3        223             
          V=D1N3        223             
          V=I12N        224             
          V=R12N        224             
          V=D12N        224             
          V=IN22        225             
          V=RN22        226             
          V=DN22        226             
          V=I1NN        227             
          Z.INTF        227                       FEC            17206
                                                  PAR            44566
          V=D1NN        230             
          V=R1NN        230             
          V=INN3        231             
          F.ERRS        231   FTN                 PUC             3647
                                                  INIT00         66656     66656     66716     67026
          V=RNN3        232   QSKEL     
          V=DNN3        232             
          V=I11N        233             
          V=D11N        234             
          V=R11N        234             
          V=DN2N        235             
          V=RN2N        235             
          V=IN2N        235             
          V=I1N1        236             
          V=IFT         237                       KEY            27750
          V=IFF         240                       KEY            27750
          V=D111        241             
          F.LGO         241   FTN                 PUC             3616      4076      4100
                                                  ALLOC          23272
                                                  FAS            62651     63020     63064     65064
                                                  INIT00         66664     66723     67304
          V=I111        241   QSKEL               KEY            27713
          V=R111        241             
          V=IEQ.I       242                       PAR            43251
          V=IEQ.R       243                       PAR            43252
          V=IEQ.D       244                       PAR            43253
          V=IEQ.C       245                       PAR            43254
          V=INE.I       246                       PAR            43251
          V=INE.R       247                       PAR            43252
          V=INE.D       250                       PAR            43253
          B=FTN         251   FTN                 RPV00           1677
          V=INE.C       251   QSKEL               PAR            43254
          Z.SCT         252             
          Z.SKCR        252                       PAR            45544
          SYS=          253   FTN                 UTILITY         2120      2172      2437
                                                  PUC             3747      3754      3757      3763      3773      4002      4004
                                                                  4024      4201
                                                  INIT00         65561     66272     66304     66315     66346     66351     66354
                                                                 66373     67044     67320
          RCL=          266                       UTILITY         2550      2606      2752      3011
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    16  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          WNB=          272                       UTILITY         1777      2120      2172      2430      2675
                                                  PUC             3617      4035
                                                  IDP             4764
                                                  REC            62013
                                                  INIT00         66746     66762
          MSG=          302                       UTILITY         2121      2142      2144      2146      2150      2173
                                                  PUC             3702      3727      3733      3761      4247
                                                  ALLOC          23267
                                                  HEADER         26171
                                                  INIT00         65427     65432     65441     65564     66702     66756
          INT.FL        310                       PUC             3705      3766
                                                  INIT00         67265
          F.SLST        311             
          F.PB          311                       PUC             3624      3627
                                                  QCGLINK         4576      4577
                                                  QCGC           52100     52103
                                                  REC            62012     62015     62020     62047
                                                  FAS            64772     64777
                                                  INIT00         66665     67300
          F.IL          321                       PUC             3612
          F.REF         331                       PUC             3632      3635
                                                  FEC            17031
                                                  ALLOC          23217
                                                  INIT00         66667     67274
          FTIFL         341                       INIT00         66336
          JOT           342                       INIT00         66401
          MAX.FL        343                       PUC             4172
                                                  ALLOC          23306
                                                  INIT00         66271     66277     67313
          HO$MFLS       343             
          NOM.FL        344                       ALLOC          23200
                                                  INIT00         67310
          OT.DAL        345             
          OT.RM         346             
          RAPFLAG       347                       PUC             3602
                                                  INIT00         66753
          RS.PD         350                       PUC             4110
                                                  INIT00         67042
          TIME0         351                       PUC             3730
                                                  INIT00         66360
          TIME1         352                       PUC             3705
                                                  INIT00         67340
          ENOT=L        353                       PEM            22560     22614
                                                  INIT00         66651     66676     66714
          CO.AL         354                       HEADER         26505
                                                  DECL           34164
                                                  INIT00         65605     67146
          CO.ANSI       355                       PUC             3716
                                                  FEC            15721
                                                  PAR            45725
                                                  INIT00         65610     66415     67357
          HO$ARGC       356             
          CO.ARGC       356                       FAS            62633     64621
                                                  INIT00         66003     66426     67101
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    17  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.ARGF       357                       FUN            54676     55114
                                                  FAS            64622
                                                  INIT00         66005     66426     67105
          CO.DBER       360                       HEADER         26327
                                                  GEN            60575     60616     61224     61314
                                                  INIT00         66007     66506     66516     67127
          HO$ER         360             
          CO.DBID       361                       KEY            30017
                                                  QCGC           52114
                                                  GEN            60576     60616     60755     60776     61043
                                                  REC            62036
                                                  INIT00         66011     66372     66374     66555     67131
          CO.DBPM       362                       HEADER         26326
                                                  DECL           32024
                                                  REC            62042
                                                  FAS            63651     63726
                                                  INIT00         66013     67135
          CO.DBSB       363                       IO             40275
                                                  PAR            42356     44754
                                                  INIT00         66015     67121
          CO.DBSL       364                       INIT00         66017     67123     67350
          CO.DBST       365                       QCGC           52114
                                                  REC            62036
                                                  INIT00         66021     66555     67137
          HO$TB         366             
          CO.DBTB       366                       PAR            44127
                                                  REG            56402
                                                  INIT00         66023     67117
          CO.DS         367                       LEX            24010     24064
                                                  INIT00         65635     67066
          CO.EC         370                       INIT00         65640     66310     66317
          HO$IE         371             
          CO.EL         371                       PEM            22504
                                                  INIT00         65646     66403
          CO.ET         372                       PEM            22646
                                                  INIT00         65651     66451
          CO.GO         373                       PUC             3742
                                                  INIT00         65657     66501     66505     66745
          CO.LCM        374                       DECL           33172     34420
                                                  INIT00         65670     66517     66525     67371
          HO$LCM        374             
          CO.LL         375                       FAS            63000
                                                  INIT00         65673     66550     67143
          CO.MD         376                       INIT00         65701     66430     67360
          CO.OPT        377                       PUC             3611      3620      3623      3634
                                                  PAR            46026
                                                  LABEL          50745
                                                  REC            62070
                                                  FAS            62646     62763     63113
                                                  INIT00         65174     65707     66445     66476     66511     66554     66557
                                                                 66662     67371
          CO.PS         400                       PUC             3570      4375
                                                  INIT00         65723     66544     66547     67034
          CO.PW         401                       PUC             4106      4303      4314
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    18  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PEM            22566
                                                  LEX            25556
                                                  HEADER         26160
                                                  FAS            62675
                                                  INIT00         65726     66670     66672     66674     66761     66764     67001
                                                                 67001     67154
          CO.PWE        402                       PUC             3653
          CO.REWB       403                       INIT00         66043     66722
          CO.REWE       404                       INIT00         66045     66714
          CO.REWI       405                       INIT00         66047     66704
          CO.REWL       406                       INIT00         66051     66710
          CO.RNDA       407                       INIT00         66053     67053     67375
          CO.RNDS       410                       INIT00         66055     67055     67376
          CO.RNDM       411                       PAR            43116
                                                  INIT00         66057     67057     67377
          CO.RNDD       412                       PAR            43116
                                                  INIT00         66061     67064     67400
          CO.SEQ        413                       FEC            15723     16270
                                                  LEX            23776     24202
                                                  INIT00         65745
          CO.STAT       414                       HEADER         26247
                                                  GEN            61461     61566
                                                  INIT00         65750
          CO.UO         415                       INIT00         66500     66560
          HO$UO         415             
          CO.WPL        416                       PEM            22601
                                                  LEX            25572     25600
                                                  INIT00         67021
          CO.WPE        417             
          CO.C$         420                       FEC            16506
          CO.CS         420                       QCGC           52000
                                                  INIT00         65624     66527     66533     67111
          CO.DOLG       421                       PAR            45270
                                                  INIT00         66025     66526     66552     67073
          CO.DOOT       422                       QCGC           52000
                                                  INIT00         66027     66552     67075
          CO.LOA        423                       CDDIR          30374
                                                  INIT00         66031     66441     66446     67267
          CO.LOM        424                       CDDIR          30377
                                                  INIT00         66033     66441     66446     67270
          CO.LOO        425                       PUC             3614
                                                  CDDIR          30402
                                                  REC            61760     62046
                                                  INIT00         66035     66442     66445     67266     67276     67327
          CO.LOR        426                       FEC            16362     16510
                                                  CDDIR          30410
                                                  INIT00         66037     66442     66447     67270     67273
          CO.LOS        427                       FEC            16513
                                                  CDDIR          30416
                                                  INIT00         66041     66443
          HO$LO$S       427             
          CO.QC         430                       REC            61762
                                                  INIT00         65731     66424
          CO.BRK        431                       INIT00         65756
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    19  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.CPL        432                       INIT00         65761
          CO.IDP        433                       LEX            23716
                                                  INIT00         66132
          CO.RFL        434                       INIT00         65767     66274
          HO$SNAP       435             
          CO.SNAP       435                       IDP             4727      4735
                                                  FEC            16335
                                                  ALLOC          23126     23173     23316
                                                  LEX            23721
                                                  DATA           31007     31014     31057     31305
                                                  DECL           33145     33366     33524     33642     33663     33736     34052
                                                                 34124     34242
                                                  IO             40742
                                                  PAR            41702     42710     42712     42763     45543     46047     46077
                                                  LABEL          51007     51027
                                                  QCGC           51531     52023
                                                  FUN            55737
                                                  REG            56471     56567     57735
                                                  GEN            60105     60116
                                                  REC            61750
                                                  FAS            63740     64022     64755
                                                  INIT00         66166
          CO.SPP        436                       INIT00         65775
          LCM.OA        437             
          LCM.MM        440             
          LCM.MU        441             
          FTNLFN        442                       INIT00         66365
          FTNLDR        443                       INIT00         65151     66363
          FTNHHA        445                       INIT00         66332
          O.TITL        446                       PUC             4320
          TL.EJCT       446                       PUC             3654
          TL.PTYP       447                       PUC             4342
                                                  FEC            16500
                                                  HEADER         26143     26155
                                                  FAS            64617
          TL.PNAM       450                       HEADER         26163
                                                  INIT00         67005
          TL.CPU        451                       INIT00         66573
          TL.CSOP       452                       REC            62035
                                                  INIT00         66557     66564     67061     67070
          O.TTLA        455                       PUC             3656      4340
                                                  INIT00         67007     67012
          TL.DATE       457                       FAS            64612
                                                  INIT00         66347     66355
          TL.TIME       460                       FAS            64614
                                                  INIT00         66352     66355     66577
          TL.PAGE       462                       PUC             4317      4336
                                                  INIT00         67014
          O.CPV         463                       PUC             4325      4347
                                                  INIT00         67077     67103     67107     67112
          O.TA          470                       PUC             4351
                                                  INIT00         67115     67125     67133     67141     67150     67153     67161
          L.PWA         476                       INIT00         67155
          O.CC          477                       PUC             4327      4353
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    20  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         65155
          O.C           506                       PUC             4355
                                                  INIT00         67165
          L.PWB         514                       INIT00         67161     67230     67234
          LDCOM         532                       PUC             3647      3651
          W=MASKV       533   QSKEL               GEN            61666
          LOVER         537   FTN       
          W=MASKC       541   QSKEL     
          W=MODG        543                       GEN            61667
          W=MODP2       553             
          W=SHIFV       565                       GEN            61670
          LDPRI         571   FTN                 INIT00         65201
          ABTFTN        611                       PUC             3741
                                                  ALLOC          23274
                                                  INIT00         66703     66757
          MEMERR        614                       INIT00         66300     67314
          W=DOC.K       621   QSKEL     
          IDPCHK        626   FTN                 INIT00         65206
          L=TABLE       632   PUC                 FEC            16374
          OFFSPY        637   FTN                 PUC             3734
          ONSPY         645                       INIT00         65202
          SPYW          656                       PUC             3673
                                                  INIT00         66744
          COD=          662             
          COD           662                       PUC             3674      3724      4265
                                                  ALLOC          23304     23307     23334     23336     23340     23346     23350
                                                  PAR            46113     46115
                                                  REG            57743     57745     57747     57751
          IBUF          671                       INIT00         66605     66607
          FVTBL         671                       INIT00         66366
          W=IAPS1       732   QSKEL               FUN            55007
          W=IAPD1       733                       FUN            55007
          W=IAPS2       735                       FUN            55010
          W=IAPD2       736                       FUN            55010
          W=APSTR       743                       FUN            56002
          W=IPLG0       745                       FUN            55775
          W=CAPST       754                       FUN            56056
          W=CIS0S       757                       FUN            56057
          W=CIA0S       770                       FUN            56060
          HO$OBL       1001   FTN       
          W=LUA        1001   QSKEL               FUN            55527
          W=SUA        1003                       FUN            56075
          W=PROM       1035                       GEN            61316
          W=PROS       1041                       GEN            61321
          W=MFPNT      1043                       GEN            61215
          W=FUNT       1045                       GEN            61213
          W=DFENT      1051                       GEN            61202
          W=TMENT      1055                       GEN            61177
          W=ALENT      1061                       GEN            60713
          W=TENT       1067                       GEN            61175
          FWA10        1673   FWA5N0    
          FWA20        1673                       FTN              610
          FIN.FTN      1673   FTN       
          OBUF         1673             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    21  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RPV=RNA      1674   RPV00               UTILITY         2223
                                                  IDP            10043     10137     10141
          B=RPV00      1674             
          B=UTILI      1744   UTILITY             RPV00           1701
          CDD          1747                       PUC             4237      4313
                                                  FEC            16176     16202     17116
                                                  LEX            24000     24213
                                                  FMT            35542
                                                  IO             37365
                                                  INIT00         67143
          CDD=         1747             
          DXB          1766                       FEC            15617
                                                  LEX            25034
                                                  FAS            64060
                                                  INIT00         65331     66275
          FA=SET       1775                       PUC             3626      3636
                                                  INIT00         66606     66610     66657     66661     67275     67301     67305
          MVE=         2036                       PUC             4224      4232
                                                  FEC            16331     16421     16463     16507     17162
                                                  PEM            22573
                                                  ALLOC          23115     23123
                                                  LEX            24240     25571
                                                  HEADER         26076     26433
                                                  KEY            27026
                                                  DATA           31265     31472     31533
                                                  DECL           32224     32322     34277
                                                  FMT            35610
                                                  IO             37110     37125     37302
                                                  PAR            44140     45560
                                                  CONRED         47112
                                                  STMTF          50144
                                                  LABEL          51242     51270     51356     51422     51433
                                                  QCGC           51563     51567
                                                  FUN            55732
                                                  GEN            60741
                                                  FAS            62731     63575
                                                  INIT00         66367
          RPV=         2074                       INIT00         66342     66345
          FRA=         2223                       IDP            10134     10136
                                                  FSNAP          13423
                                                  ALLOC          23327
          MNS=         2276                       CONRED         47125
          SBM=         2355                       FEC            16424     16426     16472     16504
                                                  DATA           31474
                                                  QCGC           51527
                                                  REC            62157
          SFN          2362                       PUC             3677      4215
                                                  PEM            22556
                                                  LEX            24115     24273
                                                  HEADER         26154
                                                  FAS            63036
          SFN=         2362                       INIT00         65434
          SST          2400                       FAS            63747     63777
          WOD          2403                       FAS            64066
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    22  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ZTB=         2421             
          ZTB          2421                       LEX            24204
                                                  KEY            30175
          CIO=         2440                       PUC             3613      3630      3633      3645      3650      4077      4101
                                                                  4115
                                                  QCGLINK         4600
                                                  ALLOC          23271     23273
                                                  REC            62021     62050
                                                  FAS            63021     63065
                                                  INIT00         66707     66713     66720     66724     66750     67254
          RDC=         2446                       PUC             3605
                                                  LEX            24264
                                                  INIT00         66752
          RDW=         2473                       FAS            64772     65000
          WTH=         2632                       PUC             3600      4114      4307      4321      4326      4330      4334
                                                                  4341      4343      4350      4352      4354      4356      4360
                                                                  4413      4421
          WTO=         2665                       QCGC           52101     52103
          WTW=         2707                       FEC            17031
                                                  ALLOC          23217
                                                  FAS            65064
          WTX=         2774             
          DCB=         3007             
          O.P2NUL      3016   PUC       
          B=PUC        3016                       RPV00           1702
          BASES        3016                       IDP             4635
                                                  FEC            16364     16402
                                                  ALLOC          23020     23106     23120     23132     23152     23154     23210
          ORIGINS      3016                       FSNAP          13372     13712     14031
          T.LGOB       3016                       FAS            62652
          T.TB         3016                       FSNAP          13411
                                                  LEX            23644     23653     23655     23714     23726     25633
                                                  DECL           33150
                                                  IO             40741
                                                  PAR            42742
          T.ARG        3017                       HEADER         26360     26371     26421     26432     26521
                                                  KEY            27022     30212
                                                  PAR            44135     44267     44275     44430
          T.PTXTR      3017                       FAS            63472     63532     63605     63606     64171     64247     64261
                                                                 64375
          T.EQUS       3020                       DECL           32512     32521     32523     32525     32533     32541     32543
                                                                 33374     33645     33715     33730     33741     33775     34013
                                                                 34062
          T.STF        3020                       ALLOC          23155
                                                  PAR            44207     44234
                                                  STMTF          50207
          T.LINK       3020                       FAS            62640     63744     63750     63767     64730
          T.IOARG      3021                       IO             36362     36422     36471     36505     36646     37124     37302
                                                                 37553     37667     37745     40076     40654
                                                  PAR            45556
          T.FPO        3021                       REC            62133     62303
                                                  FAS            63313
          T.SLARG      3021                       KEY            27025
                                                  PAR            44433
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    23  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.DVV        3021                       CONRED         47545     47603     47754     47761
          T.COMM       3021                       FEC            16467
                                                  DECL           31742     33202     33265     33675     33734     34157
          T.BLST       3022                       FEC            16162
                                                  KEY            27405     27460     27504     27513     27531     27540     27612
                                                                 27615     27622     27774     30011     30032
                                                  PAR            42660     43444     43507     43524     43546     43552
                                                  LABEL          50352     50447     50526     50606     50627     50635     50665
                                                                 50744     50763     50773     51000     51034     51063     51073
                                                                 51101     51114     51133     51171     51200     51206     51232
                                                                 51240     51265     51274     51353     51361     51370     51402
                                                                 51410     51420     51426     51437
          T.OUS        3023                       FSNAP          13512
                                                  QCGC           51571     51657     51662     51665     51674     51737     51744
                                                                 51747
                                                  FUN            55211     55220     55440     56063
                                                  REG            56460     56554     56612     56637
          T.SCR        3023                       IO             37121     37124     37277     37301
                                                  STMTF          50041     50044     50073     50077     50101     50125     50151
                                                                 50165
                                                  LABEL          51235     51243     51256     51267     51331     51344     51355
                                                                 51416     51431
                                                  FAS            63626     63633     63636     63646     63671     63710     64106
                                                                 65071
          T.DATI       3023                       DATA           30743     30760     31101     31174     31244     31517     31530
                                                                 31555
          T.PTXT       3023                       FAS            63470     63525     63601     63603
          T.EOT        3024                       DECL           33640     33666     33667     33733     33741     34013
          T.DATL       3024                       DATA           30605     30641
          T.FILL       3024                       FAS            62642     63775     64000     64726
          T.ILI        3024                       IO             37721     40021
          T.IOLC       3025                       IO             37107     41066     41073     41105     41112     41120
          T.SAP        3025                       FUN            54667     54671     54700     54727     54742     54752     54770
                                                                 55116     55234     56040
          T.DATS       3025                       DATA           31225     31240     31253     31262     31314
                                                  GEN            61543
                                                  FAS            63206     63473     63574
          T.XFIL       3026                       FAS            62644     64016     64747
          T.DAR        3026                       DATA           31012
                                                  CONRED         47522     47532     47566     47610     50003     50010
          T.PAR        3026                       FSNAP          13456
                                                  FEC            16217     16326
                                                  ALLOC          23156
                                                  KEY            27752     30022     30142
                                                  DATA           31012     31027
                                                  DECL           32303     32320
                                                  IO             37104     37433
                                                  PAR            42703     42752     43342     43351     45052     45124     45464
                                                                 45473     45531     45555     45605     45652     45702     46017
                                                                 46042     46071     46111
                                                  CONRED         47402
                                                  QCGC           51531     51553     51562     51565     51570     51573     51574
                                                  FUN            55331     55344     55360     55364     55376     55453     55640
                                                                 55757
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    24  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  REG            56233     56461     57372     57513     57677     57742
                                                  GEN            60736     60740     60750     61160
          T.PCS        3027                       PAR            42437     42441     42444     43041
          T.STMT       3030                       LEX            23647     24227     24245     25156     25161     25166     25171
                                                                 25534     25637
          T.CLWB       3030                       FAS            64443     64466
          T.SUB        3031                       REC            62154
                                                  FAS            63052     63413
          T.SUB0       3032                       REC            62301     62303
                                                  FAS            63054     63446
          T.VDIM       3032                       FEC            16312     16323     16331     16464
                                                  DECL           32117     32127     32141     32315     32341     32356     32406
                                                                 32420     32466
                                                  QCGC           51560     51563
                                                  GEN            60740
          T.C$IF       3033                       CDDIR          30325     30334     30353
          O=CLW        3034             
          T.CLW        3034                       FUN            55652     55665
                                                  FAS            64444
          O.P2USE      3034             
          O=CAC        3035             
          T.CAC        3035                       FUN            55266     55313     55574
                                                  FAS            64230     64324
          O=APL        3036             
          T.APL        3036                       FUN            55531     55726     55736
                                                  FAS            62724     62726     64175
          O=IOA        3037             
          T.IOA        3037                       IO             40501     41046     41055     41075
                                                  FUN            55015     55022     55026     55032     55052     55057     55060
                                                                 55071     55103
                                                  FAS            64262
          O=API        3040             
          T.API        3040                       QCGC           51773
                                                  FUN            54667     54700     54727     55116     55542     56037
                                                  REC            62212
                                                  FAS            64763
          O=IOI        3041             
          T.IOI        3041                       QCGC           51771
                                                  FUN            55015     55032     55052     55071
                                                  REC            62214
                                                  FAS            64764
          O=GL         3042             
          T.GL         3042                       QCGC           51761     51774
                                                  REC            62210
                                                  FAS            64762
          O=ASG        3043             
          T.ASG        3043                       KEY            26721     26723
          O=CON        3044             
          T.CON        3044                       PEM            22470
                                                  LEX            25443     25501
                                                  KEY            30176
                                                  CDDIR          30316
                                                  DATA           31255     31264     31362     31451     31467     31475     31552
                                                  DECL           32255     32777
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    25  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FMT            35550
                                                  PAR            41764     42016
                                                  CONRED         47103     47130     47142     47427     47443     47466     47504
                                                  FUN            55323
                                                  FAS            62755
          T.LA         3045                       GEN            61713
                                                  FAS            64073
          T.CUT        3045             
          O=CUT        3045             
          O=SYM        3046             
          T.SYM        3046                       FSNAP          13521     13733
                                                  FEC            16011     16053     16114     16140     16167     16240     16416
                                                                 16525     16543     16617     16634     16656     16750     16766
                                                                 17233
                                                  HEADER         26303     26434     26503     26533
                                                  KEY            26654     26713     27107     27114     27412     27522     27675
                                                                 30002     30066
                                                  DATA           31037     31270
                                                  DECL           32042     32614     33020     33036     33215     33266     33311
                                                                 33334     33377     33426     33530     33630     34027     34062
                                                                 34136     34147     34160     34253     34260     34265     34301
                                                                 34341     34401     34415     34437
                                                  TYPE           34774     35003     35014     35136     35161
                                                  FMT            35411     35601
                                                  IO             37006     37341     37374     37461     37645     40011     40030
                                                                 40645
                                                  PAR            42167     42222     42233     42274     42300     42342     42400
                                                                 43532     44176     44235     44473     45170     45500     45567
                                                                 45661
                                                  CONRED         47540     47545     47601     47706     47720     47752     47765
                                                                 50011
                                                  STMTF          50171     50177     50211
                                                  LABEL          50275     50452     50461     50475     50503     50662     51124
                                                                 51136     51162     51222     51247     51276     51304     51334
                                                                 51373
                                                  QCGC           52006     52250
                                                  FUN            55714     56103
                                                  REG            56547     56574     57100
                                                  GEN            60357     60671     60702     61005     61055     61076     61121
                                                                 61205     61414     61446
                                                  REC            62054     62120     62173     62216     62264     62313     62336
                                                  FAS            62655     62661     62770     63040     63150     63240     63265
                                                                 63310     63432     63501     63616     63673     63751     64047
                                                                 64075     64106     64211     64302     64403     64707     65027
          O=BLKS       3047             
          T.BLKS       3047                       FEC            16034     16466     16537     16573
                                                  DECL           31702     31711     31743     32742     32746     33101     33107
                                                                 33157     33205     33207     33234     33264     33674     34042
                                                                 34111     34156     34402
                                                  REG            56576
                                                  REC            62271
                                                  FAS            63654     63717
          T.NLST       3050                       KEY            27207     27215     30065     30115
                                                  FAS            65016
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    26  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=NLST       3050             
          O=DIM        3051             
          T.DIM        3051                       FEC            16460     16545
                                                  KEY            27200     30066
                                                  DATA           31042
                                                  DECL           32172     33421     34012     34160
                                                  IO             37010     37650     40320     40376
                                                  PAR            44743     45110
                                                  CONRED         47722
                                                  GEN            61134
                                                  REC            62253     62342
                                                  FAS            64121     64217     64474     64506     65041
          T.ENTP       3052                       HEADER         26401     26413     26430
                                                  DECL           34306     34311     34313     34325
                                                  GEN            61007     61060     61101     61124     61264     61270     61303
                                                                 61370     61376     61430
          O=ENTP       3052             
          T.FPI        3053                       FEC            16054
                                                  HEADER         26530     26540
                                                  DECL           34274     34300     34334     34344     34452
                                                  TYPE           35151
                                                  FUN            55715
                                                  REG            57117
                                                  GEN            61416
                                                  REC            62135
                                                  FAS            63412     63434
          O=FPI        3053             
          O=VDI        3054             
          T.VDI        3054                       HEADER         26547
                                                  DECL           32115     32125     32137     32340     32415     32457     34461
                                                  GEN            61116     61154     61160
          O.P2SAV      3055             
          T.REF        3055                       FEC            16363     17044
                                                  ALLOC          23210     23215
          T.LCA        3056                       DECL           33156     33206
                                                  FAS            62727     62732     64765
          T.ECT        3057                       DECL           33636     34023     34061     34107
          T.ENT        3060                       HEADER         26202
                                                  KEY            27117
                                                  FAS            63674
          T.LNT        3061                       FAS            63464     63612     64061
          T.LCC        3062                       HEADER         26073
                                                  FAS            63015
          T.FMT        3063                       FMT            35605
                                                  FAS            62762
          T.END        3064                       FEC            16376
                                                  ALLOC          23224
          T=LGOB       3065                       FAS            62650
          T=TB         3065                       FSNAP          13411
                                                  FEC            15707
                                                  LEX            23655     25516     25634
          SIZES        3065                       IDP             4640
                                                  FSNAP          13376
                                                  FEC            16401
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    27  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          23030     23035     23077     23121     23337
          L.P2NUL      3065             
          T=ARG        3066                       HEADER         26352     26364     26422     26441
                                                  KEY            26731     26767
                                                  PAR            44134     44267     44275     44300     44301
                                                  LABEL          50524
          T=PTXTR      3066                       FAS            62742     62746     63006     63013     63470     63607
          T=LINK       3067                       ALLOC          23166
                                                  FAS            62636     63744     63750     63774
          T=STF        3067                       FEC            15706
                                                  ALLOC          23245
                                                  STMTF          50207
          T=EQUS       3067                       ALLOC          23250
                                                  DECL           33365     33523     33635     33716     34056     34063     34131
          T=IOARG      3070                       IO             36562     37067     37550
                                                  PAR            45553     45556
          T=FPO        3070                       REC            62031     62304
          T=DVV        3070                       CONRED         47517     47544     47547     47757
          T=SLARG      3070                       KEY            26730     27023     27027
                                                  PAR            44071
          T=COMM       3070                       DECL           31704     31713     33144
          T=BLST       3071                       FEC            16161     16173     17011
                                                  ALLOC          23250
                                                  KEY            26755     27067     27244     27403     27455     27460     27504
                                                                 27513     27531     27540     27551     27615     27774     30011
                                                                 30032
                                                  IO             40060     40124     40153     40155
                                                  PAR            42430     42660     43313     43443     43445     43507     43522
                                                                 43546     43552
                                                  LABEL          50323     50351     50447     50507     50527     50627     50635
                                                                 50665     50672     50745     50763     51033     51063     51110
                                                                 51112     51114     51133     51171     51206     51232     51237
                                                                 51241     51253     51341     51402     51404     51410     51420
                                                                 51423     51437     51442
          T=DATI       3072                       DATA           30567     30602
          T=SCR        3072                       FEC            15707     16610
                                                  ALLOC          23247
                                                  IO             37120     37126     37276     37303
                                                  PAR            42737
                                                  STMTF          50023     50055     50106     50151     50222
                                                  LABEL          51254     51263     51331     51342     51351     51362     51407
                                                                 51425     51435
                                                  FAS            63630     63646     63667     63703     63707     63735     64157
                                                                 64473
          T=OUS        3072                       FSNAP          13510
                                                  QCGC           51544     51552     51743
          T=PTXT       3072                       FAS            63467     63604
          T=FILL       3073                       ALLOC          23167
                                                  FAS            62636     63774     64000
          T=DATL       3073                       DATA           30605     30621     30625     30646
                                                  LABEL          50752
          T=ILI        3073                       IO             37113     37705     37720
                                                  PAR            42255
          T=EOT        3073                       DECL           33662     33667     34065
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    28  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=DATS       3074                       ALLOC          23253
                                                  DATA           30570     30602     30613
                                                  GEN            61535     61546
                                                  REC            62030
                                                  FAS            63205     63214     63473
          T=IOLC       3074                       IO             37102     37106     40134
          T=SAP        3074                       FUN            54711     54745     54750     55124     55562
          T=PAR        3075                       FSNAP          13454
                                                  FEC            16077     16337     16346     16355
                                                  ALLOC          23036     23100     23116     23251
                                                  KEY            27002     27341     27536     27606     27752     30021     30035
                                                                 30124     30143
                                                  DECL           32233     32277     32302     32320
                                                  IO             37111     40137     40177     40203     40214     40222     40327
                                                                 40336     40373     40515     40540     40557     40563     40572
                                                                 40600     40612     40620     40636     40671
                                                  PAR            41261     41270     41306     41336     41646     42357     42513
                                                                 42703     42754     43150     43326     43454     44257     45307
                                                                 45435     45462     45471     46021     46114
                                                  CONRED         47401
                                                  LABEL          50766     51106
                                                  QCGC           51544     51560     51564
                                                  FUN            55146
                                                  GEN            60735
          T=DAR        3075                       DATA           30601     31017
                                                  CONRED         47520
          T=XFIL       3075                       ALLOC          23171
                                                  FAS            62637     64016     64026
          T=PCS        3076                       PAR            41645     43041     43044
          T=STMT       3077                       FEC            15717
                                                  ALLOC          23241     23243
                                                  LEX            25530     25535
                                                  CDDIR          30423
          T=CLWB       3077                       FAS            63007     63014
          T=SUB        3100                       REC            62031
          T=SUB0       3101                       REC            62032     62160     62304
          T=VDIM       3101                       FEC            16307     16325     16330     16332
                                                  DECL           32302     32361     32410     32445     32450     32470
                                                  QCGC           51557     51562     51565
                                                  GEN            60736
          T=C$IF       3102                       FEC            16201
                                                  CDDIR          30334     30353
          T=CLW        3103                       FUN            55666     55674
                                                  REC            62102
                                                  FAS            63012     64441     64444
          L.P2USE      3103             
          L=CLW        3103             
          T=CAC        3104                       FUN            55320
          L=CAC        3104             
          L=APL        3105             
          T=APL        3105                       ALLOC          23252
                                                  FUN            55531     55536     55725
                                                  REC            62025     62076
                                                  FAS            62721     62745     64171     64175
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    29  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L=IOA        3106             
          T=IOA        3106                       IO             41040     41115     41116
                                                  FUN            55022     55104
                                                  REC            62027     62100
                                                  FAS            63004     63013     64260     64262
          T=API        3107                       REC            62026     62212
          L=API        3107             
          T=IOI        3110                       REC            62027     62214
          L=IOI        3110             
          L=GL         3111             
          T=GL         3111                       ALLOC          23253
                                                  QCGC           51757
                                                  REC            62025     62210
          L=ASG        3112             
          T=ASG        3112             
          L=CON        3113             
          T=CON        3113                       FEC            15630     16611
                                                  ALLOC          23247
                                                  DATA           30571     30577     31476     31503
                                                  FMT            35612
                                                  CONRED         47130     47137
                                                  GEN            61332
                                                  REC            62023
          T=CUT        3114             
          L=CUT        3114             
          T=LA         3114                       GEN            61707
                                                  REC            62070
                                                  FAS            62763
          L=SYM        3115             
          T=SYM        3115                       FSNAP          13521     13775
                                                  FEC            16011     16052     16140     16240     16416     16543     16616
                                                                 16655
                                                  DECL           33214     33310     33334     34400     34415     34440
                                                  TYPE           35161
                                                  PAR            45172     45476     45566
                                                  QCGC           52007
                                                  REG            56546
                                                  REC            62117     62174     62216     62313     62337
                                                  FAS            63631     64107
          T=BLKS       3116                       FEC            16033     16576
                                                  ALLOC          23255
                                                  DECL           31707     33157     33235     33267     34156
                                                  REC            62272
                                                  FAS            63645     63706
          L=BLKS       3116             
          L=NLST       3117             
          T=NLST       3117                       ALLOC          23252
                                                  KEY            27155     27163     27223     30065     30116
                                                  REC            62024
                                                  FAS            63030     65016
          L=DIM        3120             
          T=DIM        3120                       ALLOC          23246
                                                  PAR            45107     45177
                                                  REC            62253
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    30  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            64474
          L=ENTP       3121             
          T=ENTP       3121                       HEADER         26401
                                                  DECL           34307
                                                  GEN            61271     61405
          T=FPI        3122                       DECL           34334
                                                  TYPE           35150
                                                  GEN            61255
                                                  REC            62030     62132
          L=FPI        3122             
          L=VDI        3123             
          T=VDI        3123                       HEADER         26550
                                                  DECL           32413     34461
                                                  GEN            61116     61161
          T=REF        3124                       FEC            17025
                                                  ALLOC          23204     23215     23254
                                                  IO             40327     40672     40674
          L.P2SAV      3124             
          T=LCA        3125                       DECL           33177
                                                  REC            62026     62075
                                                  FAS            62721     62727     62735
          T=ECT        3126                       DECL           34056     34123     34132
          T=ENT        3127                       ALLOC          23255
                                                  FAS            63670
          T=LNT        3130                       REC            62033
                                                  FAS            62637     64062
          T=LCC        3131                       FAS            63017
          T=FMT        3132                       ALLOC          23251
                                                  FMT            35411
                                                  REC            62024     62066
          T=END        3133             
          RATES        3134                       FEC            16377
          NAMES        3203                       IDP             4632
                                                  FSNAP          13373     13711     14027
                                                  ALLOC          23127
          ALTNAM       3252                       IDP             4645
          TV=DECL      3300                       FEC            16365     16370
                                                  ALLOC          23212
          TV=EXU       3301                       FEC            15651     16366
                                                  ALLOC          23213
          TV=END       3302                       REC            61745
          TV=CUR       3303                       FEC            15652     16372
                                                  ALLOC          23023     23045     23104     23214
                                                  REC            61747
          F$LBT        3304             
          F.LBT        3304                       FEC            16471
                                                  QCGC           52316     52321
                                                  REC            62066     62104     62117     62152     62152     62162     62176
                                                                 62327     62366
                                                  FAS            62665     62666     62734     63315     64654     64657
          SUM.LBT      3320                       REC            62173     62240
                                                  FAS            62654     63650
          COMSIZ       3321                       REC            62235     62241
          ALC.PAR      3323                       FEC            16371
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    31  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          23036
                                                  REC            61746
          BINIO        3324                       QCGLINK         4602
                                                  REC            62014     62044
          BLNKCOM      3325                       FEC            16261
                                                  DECL           31661     31717     32754     33236
                                                  CONRED         47653
          CBI          3326                       QCGC           52121     52245     52314     52322
                                                  FAS            62670     64523     64652     64660
          CHARDCL      3327                       FEC            16010     16261
                                                  DECL           33234     33310     34257
                                                  TYPE           34663     35244
          ERRORS       3330                       FEC            16505
                                                  PEM            22641
                                                  REC            62011     62163     62207
                                                  FAS            62653
          N$FERR       3330             
          ENTRJ        3331                       GEN            60715     60721     60752     61051     61072     61113
          FAILSFT      3332                       FEC            16412
                                                  ALLOC          23236
          O.TABS       3333                       FEC            16372
                                                  ALLOC          23075     23101     23120     23223
                                                  INIT00         67307
          RPV=MSG      3334                       UTILITY         2141
          IDENT1       3334             
          HO$MSG       3335                       HEADER         26170
          IDENT        3336                       ALLOC          23262
                                                  HEADER         26167     26233
                                                  TYPE           35135
                                                  FAS            63036     63650     64612
          HO$PRGN      3336             
          IO.TEM       3337                       FEC            16256
          N$LINES      3340             
          LCNT         3340             
          LEVEL        3342                       FEC            16052     16263
                                                  HEADER         26515
                                                  DECL           32662     33264     34170
          LEVEL0       3343                       FEC            16065     16263
                                                  GEN            61075
          HO$LVL2      3344             
          LEVEL2       3344                       FEC            16264
                                                  HEADER         26516
                                                  DECL           32704     33214     34170
                                                  FAS            64624
          LINEBUF      3346                       PEM            22513     22565     22572     22575
                                                  FAS            62676     62677     63171     64067     64640     64646     65006
                                                                 65055
          LINES        3364                       FEC            15606     16272
                                                  CDDIR          30421
                                                  FAS            63227
          LINENR       3364             
          CARDS        3364                       LEX            24000     24254
          RPV=CLN      3364                       UTILITY         2136
          HO$CSN       3364             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    32  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LOSTREF      3365                       FEC            16413     17040
                                                  IO             40331     40675
          MOD          3366                       FEC            15631     16112     16413     16760
                                                  HEADER         26023     26135     26142     26173     26354     26423     26455
                                                                 26465
                                                  KEY            27046     27053     27063     27075     27110     27240
                                                  DECL           34247     34270     34305     34337
                                                  TYPE           34701     34734     35027     35135
                                                  PAR            42144     42267
                                                  CONRED         47655     47661
                                                  QCGC           52005
                                                  GEN            60620     60765     61011     61177     61211     61305     61502
                                                                 61506
                                                  FAS            63061     63621     63643     63666
          NARGS        3367                       FEC            16257
                                                  HEADER         26304     26320     26335
                                                  GEN            61513
          NOLIST       3370                       FEC            16474
                                                  KEY            27041
          NREXT        3371                       ALLOC          23170
                                                  REC            62011
                                                  FAS            62640     63745     63751     63773
          NSQZLH       3372                       FEC            16404
                                                  PAR            42012
          N.AP         3373                       FEC            16404
          N.ARP        3374                       FEC            16405
                                                  HEADER         26466
                                                  KEY            27270
                                                  GEN            61231
          N.BUF        3375                       FEC            16405
                                                  GEN            61462     61466     61575     61601
          N.CPL        3376                       FEC            16406
                                                  HEADER         26420
                                                  DECL           34315     34327
          N.CON        3377                       GEN            61333
                                                  REC            62073
          N.CT         3400                       FEC            16341     16407
                                                  PAR            45364
          N.CTMAX      3401                       FEC            16342     16410
                                                  QCGC           52305
          N.DOB        3402                       FEC            16410
                                                  LABEL          50577     50650     50757
          N$SEP        3403             
          N.EPL        3403                       FEC            16264
                                                  HEADER         26417     26611
                                                  DECL           34154
                                                  GEN            60763     61251
          N.FP         3404                       FEC            16406
                                                  HEADER         26535
                                                  KEY            27057
                                                  GEN            60764     61213
          N$FPS        3404             
          N.GL         3405                       FEC            16415
                                                  KEY            27016     27624     27765     30142
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    33  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             37756     40244     41061
                                                  LABEL          50702     50732
                                                  QCGC           51757
                                                  GEN            60666     60722     61701
          N.MAXIL      3406                       FEC            16100
          N$LC         3407                       FEC            16407
                                                  QCGC           52311
          N.ST         3410                       FEC            16411
                                                  QCGC           51545
                                                  FUN            55175     55210     55777
                                                  REG            56555
                                                  GEN            61327
          N.STMAX      3411                       FEC            16411
                                                  QCGC           51545     52304
                                                  GEN            61327
          N$VD         3412             
          N.VD         3412                       FEC            16412
                                                  DECL           32403     32446     34437
                                                  QCGC           52310
          O.STITL      3413                       FEC            16500
          PU.MFL       3414             
          HO$PMLS      3414             
          PASS         3415                       QCGLINK         4610
                                                  FSNAP          13502     13561     13572
                                                  FEC            16267     16347     16353
                                                  PEM            22563
                                                  ALLOC          23166     23237     23260
                                                  REC            61744     61764
          PWBUF        3416                       PEM            22573     22574
                                                  LEX            25566     25570     25573     25573
          WOF=ERR      3433                       PEM            22561     22566     22570     22600     22616
                                                  LEX            25543     25556     25572     25600
                                                  INIT00         67153
          REFIO        3434                       FEC            17042     17046
                                                  ALLOC          23206
          HO$RDR       3435             
          RPV=URP      3435                       UTILITY         2151
          SAVE         3436                       FEC            16262     16522
                                                  DECL           33057     33330     34377
                                                  FAS            63714
          THRESH       3437                       ALLOC          23041     23226     23231     23234     23304
                                                  INIT00         67326
          USAVE        3440                       FEC            16262     16522     16552     16616
                                                  DECL           33056     33330     34377
                                                  REC            62231
                                                  FAS            63714
          L.TABS       3441                       FEC            16373
                                                  ALLOC          23033     23102     23225     23347
                                                  INIT00         67316     67317     67321     67325
          SCR          3442                       FEC            16001     16003
                                                  FERRS          17530
                                                  HEADER         26057     26072     26075     26352     26365     26420     26434
                                                                 26543     26545     26547
                                                  IO             37777     40004     40023     40025
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    34  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            42256     42260     43040     43422     43440     44114     44175
                                                                 44222     44226     44414     44544     44567     44614     44620
                                                                 44640     44657     44662     44666     44731     45004
                                                  STMTF          50111     50152     50203     50205     50212     50215
          WO.C$        3454                       FEC            16507
          WO.CS        3454                       CDDIR          30256
                                                  PAR            44446
                                                  FUN            54735
                                                  GEN            60656
          WO.DOLG      3455                       CDDIR          30270
                                                  PAR            43520
                                                  LABEL          50711     50735
          WO.DOOT      3456                       CDDIR          30272
                                                  IO             40211     40607     41056
                                                  LABEL          50675
                                                  FUN            55136
                                                  GEN            60660
          WO.LOA       3457                       KEY            27041
                                                  CDDIR          30375
                                                  IO             37335
                                                  REC            61753
          WO.LOM       3460                       CDDIR          30400
                                                  DECL           34130
                                                  IO             37335
                                                  REC            61753
          WO.LOO       3461                       CDDIR          30403
                                                  REC            61761
                                                  FAS            63025     63257     64640
          WO.LOR       3462                       FEC            16775
                                                  KEY            27042     27164
                                                  CDDIR          30412
                                                  IO             37175     37336
                                                  LABEL          50512
                                                  REC            61754
          WO.LOS       3463                       FEC            15676
                                                  PEM            22614
                                                  LEX            24242
                                                  CDDIR          30420
          WO.QC        3464                       FEC            16345
                                                  PEM            22645
          WO.LCM       3465                       DECL           33155
                                                  INIT00         67373
          CONONE       3466                       DATA           31023
                                                  DECL           32143     32301
                                                  IO             36470     36543     36756     36766     37004     37552     37635
                                                                 40004     40075     40201     40212     40366     40374     40576
                                                                 40610     41072     41077     41111
                                                  PAR            41276     41717     41756     42026     42316     42470     43436
                                                                 43473     43562     43577     43620     43641     44024     44741
                                                  LABEL          50616
          CONZER       3467                       KEY            30170
                                                  IO             40074
                                                  PAR            42572
          CONZERI      3470                       KEY            26775
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    35  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            44747
          VTRUE        3471                       PAR            41721
          VFALSE       3472             
          F.SORD       3473                       FEC            16425
          S=AEXIT      3473                       HEADER         26132
                                                  QSKEL          53654
                                                  GEN            61234
          S=BU         3474                       FEC            16427
                                                  IO             36546     37023     37403
                                                  PAR            42150     43544     45504
                                                  QSKEL          53515
                                                  FAS            64707
          S=BUFIN      3475             
          S=BUF        3476                       FEC            16430
                                                  GEN            61576
          S=CES        3477             
          S=CL         3500                       FEC            16431
                                                  FUN            55676
                                                  REC            62102
          S$CON        3501             
          S=CON        3501                       FEC            16432
                                                  DECL           32326
                                                  IO             41014
                                                  PAR            41325     42013     45510
                                                  CONRED         47406     47424     47441     47470     47511
                                                  FUN            55327
                                                  REC            62074
          S=CP         3502                       HEADER         26622
                                                  GEN            61024     61261
          S=CPL        3503                       HEADER         26614
                                                  GEN            61040
          S=CT         3504                       FEC            16433
                                                  PAR            45367
                                                  QCGC           52305
          S=ENTRY      3505                       HEADER         26201     26203     26351     26543     26567
                                                  KEY            27240
                                                  DECL           34260
                                                  TYPE           34733     35143
                                                  QSKEL          53664     53704     53705     53714
                                                  GEN            60676     61240
                                                  FAS            63037     63322
          S=ERR        3506                       QSKEL          53643
          S=EXIT       3507                       HEADER         26575
                                                  KEY            27256
                                                  QSKEL          53650
                                                  GEN            61226
          S=FAR        3510                       FEC            16457
                                                  FUN            55162
          S=FAS        3511                       FEC            16456
                                                  FUN            55353
          S=FID        3512                       FEC            16450
                                                  GEN            60625
          S=FMC        3513                       FEC            16451     16452
                                                  FUN            54735
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    36  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=FVS        3515                       FEC            16460
                                                  FUN            55343
          S=FILES      3516                       HEADER         26344
                                                  QSKEL          53665
                                                  GEN            61563
          S=GPL        3517                       HEADER         26623
                                                  GEN            61020     61027     61255
          S=LA         3520                       FEC            16434
                                                  GEN            61707
                                                  REC            62071
          S=LC         3521                       FEC            16446
                                                  QCGC           52311
          S$LC         3521             
          S=LENP       3522                       FEC            16435
                                                  GEN            61655
                                                  FAS            62654     63263
          S=LMC        3523                       FEC            16454
                                                  FUN            54733
          S=MMC        3524                       FEC            16453
                                                  FUN            54773     55247
          S=IT         3525                       FEC            16444
                                                  QCGC           52306
          S$IT         3525             
          S=INIT       3526                       HEADER         26333
                                                  QSKEL          53666
          S=OT         3527                       FEC            16445
                                                  QCGC           52307
          S$OT         3527             
          S=RD         3530                       FEC            16447
                                                  PAR            44771
                                                  FAS            64215     64403
          S=SA1        3531                       FEC            16436
                                                  GEN            60760     61517
                                                  FAS            63616
          S=SA0        3532                       FEC            16437
                                                  GEN            61001     61046     61524
          S=SLI        3533                       HEADER         26610
                                                  GEN            61110
          S=SPA        3534                       HEADER         26606
                                                  GEN            61067
          S=ST         3535                       FEC            16440
                                                  QCGC           52304
                                                  FUN            55201     55215     55267     55777
                                                  REG            56563
          S=SUB        3536                       HEADER         26617
                                                  GEN            61343
          S=SUBI       3537                       HEADER         26620
                                                  GEN            61063     61351
          S=SUB0I      3540                       HEADER         26621
                                                  GEN            61104     61360
          S=TRACE      3541                       FEC            16442
                                                  KEY            30152
                                                  QCGC           52127
                                                  QSKEL          53516
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    37  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            61661
          S=TA0        3542                       FEC            16441
                                                  QCGC           52131
                                                  QSKEL          53672
                                                  GEN            60773     61035
          S=UPW        3543                       HEADER         26345
                                                  GEN            61507     61555     61566
          S=VALUE      3544                       FEC            16013     16112     16455     16524     16763
                                                  HEADER         26357
                                                  KEY            27112
                                                  DECL           34152     34250     34265     34312     34330     34340
                                                  PAR            42143
                                                  QSKEL          53675     53700
                                                  GEN            61203
                                                  REC            62053
          S=VD         3545                       FEC            16443
                                                  DECL           32252     32402
                                                  IO             37015     37660
                                                  PAR            43372     44757
                                                  QCGC           52310
                                                  FAS            62660     64577
          S$VD         3545             
          ERRTYP       3546                       FEC            16503
                                                  PEM            22504     22506
                                                  INIT00         67357     67365
          ERR=A        3556             
          ERR=M        3557             
          ERR=D        3560             
          ERR=T        3561             
          ERR=W        3562             
          ERR=F        3563             
          ERR=K        3564                       FEC            16344
          ERR=C        3565             
          E=TOTAL      3566                       FEC            16505     16604
                                                  PEM            22642
                                                  DATA           31006
                                                  DECL           32234     32274
                                                  STMTF          50162
                                                  LABEL          50567     50637
          PUC          3570                       INIT00         65211
          ENDFTN       3724                       FEC            17110
          CPTIM        4015             
          TIMER        4021                       INIT00         66357     67337
          CAF          4072                       FEC            17107
          ECB          4117                       CONRED         47707
                                                  FUN            56106
          ECS          4151                       CONRED         47636
                                                  FUN            55400
          GCL          4164                       PAR            45602
                                                  FUN            55277     55611     55660
          GMC          4171                       ALLOC          23222
          LJS          4211                       FEC            16155     16170
                                                  KEY            27523     30003
          MTD          4217                       ALLOC          23076
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    38  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          MTU          4226             
          PIA          4254                       FAS            64642
          WOF          4370                       IDP             4630      4650
                                                  FSNAP          13433     13463     13472     13544     13550     13613
                                                  PEM            22613
                                                  ALLOC          23265     23324     23332     23343     23353
                                                  LEX            25277     25603     25607
                                                  DECL           33371
                                                  PAR            46124
                                                  REG            57754
          F.PIK        4427             
          PIK=PS       4427                       CONRED         47170
                                                  QCGC           52031
                                                  FAS            63131
          PIK=EQ       4433             
          PIK=LCM      4527             
          PIK=XJP      4531             
          PIK=PI       4541             
          HDRBL        4564                       FEC            16477
          B=QCGLI      4570   QCGLINK             RPV00           1703
          FEL          4570                       PUC             3662
          FEL.RTN      4572                       FEC            15721     15723     15725
          PDC          4573                       PAR            43136
          DER          4573                       LABEL          50430
          LPE          4573                       LABEL          51340
          CGE          4573                       REC            61742
          PCA          4573                       REC            61757
          PAT          4573                       FAS            62720     63005
          BCT          4573                       REC            61756
          CGL          4573                       PUC             3663
          MAL          4573                       FEC            15716
          MDD          4573                       PAR            43314
                                                  LABEL          50673
          REL          4575                       PUC             3664
          REL.RTN      4603                       REC            62033
          PDI          4604                       DATA           30616
          PIS          4607                       FEC            16351
          B=IDP        4613   IDP                 RPV00           1704
          UKT=LNK      4620                       INIT00         65204
          PTO          4625                       ALLOC          23344
          UIO=         4717             
          URO=         4726             
          USO=         4734             
          IDP=USY      4754                       INIT00         65205
          PAT#FWA      4772             
          PAT#LEN      4774             
          IDP=SVB      5235                       DATA           31623     31624
                                                  REG            60017     60020     60041     60042
                                                  GEN            61726
          IDP=SVA      5245                       REG            60003     60021     60022
          IDP=SVX      5255                       DATA           31621     31622
                                                  REG            60004     60023     60024     60025     60026     60043
                                                  GEN            61736
          FW=IDPL      5265                       FSNAP          13704     13707     13714
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    39  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IDPFLG       5267                       FSNAP          13720
          SNAPLNE      5422                       FSNAP          13457     13660     13664     13721     13726     14022     14171
                                                                 14202     14215     14307
          IDP=         6330                       FSNAP          14211
                                                  FEC            15611
                                                  LEX            23720
                                                  KEY            26726
                                                  FAS            63231
                                                  INIT00         65210     66340
          IDP=MN       6366                       FSNAP          13651     14024     14076     14105     14113     14121     14123
          IDP=ER       6455                       FSNAP          14100     14102     14110     14120
          REG=         6476                       DATA           31061
                                                  PAR            41704     42714     42765
                                                  REG            56473
                                                  GEN            60107     60120
          SNP=         6513                       DATA           31307
                                                  PAR            41705     41706     41707     42715     42716     42717     42766
                                                                 42767     42770
                                                  QCGC           52026
                                                  REG            56571     57556     57557     57740
          IDP=CAD      7231                       FSNAP          14170     14214     14232     14261     14275     14302
          IDP=CHK      7262             
          IDP=CLZ      7361             
          IDP=DAR      7457             
          DCM=         7745                       FSNAP          13671
          IDP=FLL     10100                       FSNAP          14163
          IDP=FRK     10155                       FSNAP          13704
          IDP=HDR     10224                       FSNAP          13705
          IDP=PAS     10416                       FSNAP          13650
          IDP=PAT     10554                       FSNAP          14107     14117
          ROL=        10730                       FSNAP          13406     13410     13414     13665     13724     13774     14203
                                                                 14310
          IDP=SKT     10772                       FSNAP          13711     14030
          SOB         11026             
          IDP=SOB     11026                       FSNAP          13404     13701
          IDP=CDD     11571             
          IDP=COD     11615                       UTILITY         2116      2170      2232
                                                  FSNAP          13352     13375     13377     13500     13526     13530     13535
                                                                 13555     13662     13727     13732     13737     13745     13750
                                                                 13757     13761     13770     14131
          IDP=DXB     11635             
          IDP=MCS     11644                       FSNAP          14140     14143     14145     14152     14155     14160     14201
                                                                 14230     14233     14235     14237     14240     14243     14244
                                                                 14254     14256     14257     14262     14266     14270     14271
                                                                 14277     14300     14304
          IDP=SFN     12107                       FSNAP          14026
          IDP=SYS     12231             
          IDP=WOD     12456                       FSNAP          13540     13607     13752     14172     14216
          IDP=ZTB     12656                       FSNAP          13426     13524     13571     13736     13741     14174     14250
          SV=B        12665                       FSNAP          13434
                                                  PAR            46111
          SVB         12665                       REG            57742     57744
          SAV.B       12665             
          SAV.A       12675             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    40  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SV=A        12675                       FSNAP          13427
          SVA         12675             
          SV=X        12705                       FSNAP          13421     13434     13436     13440
          SVX         12705             
          SAV.X       12705             
          SVR=        12715                       FSNAP          13420     13453     13700
                                                  PAR            46110
                                                  REG            57741
          SVR         12715                       FSNAP          13403
          RESET=      12740             
          RSR=        12740                       FSNAP          13442     13474     13715
                                                  PAR            46126
                                                  REG            57755
          RSR         12740                       FSNAP          13415
          B=FSNAP     13345   FSNAP               RPV00           1705
          FI=BRLI     13346                       FEC            15606
                                                  FAS            63226
          LTB=        13402                       LEX            23722
                                                  IO             40743
          SN.EMT      13417                       PAR            45550
          SN.PAR      13452                       FEC            16336
                                                  DATA           31011
                                                  PAR            42711
                                                  QCGC           51534
          UKT=FE      13642                       INIT00         65204
          DMT=        13677                       DATA           31016
                                                  DECL           33147     33372     33373     33526     33644     33665     33740
                                                                 34054     34055     34126     34127     34244
                                                  LABEL          51011     51031
                                                  QCGC           51533
                                                  FUN            55741
                                                  REC            61752
                                                  FAS            63742     64024     64757
          TOK=IDP     14205                       LEX            24342     24343
          FORSKEL     14364   FEC                 FMT            35413     35577     35607
          OSTACK      14364                       PAR            41655     41661     42666     46210     46260     46330
                                                  INIT00         67304
          REGFILE     14364   QCGC      
          ESTACK      14624   FEC                 KEY            30152     30160
                                                  PAR            41650     42442     42631     46223     46273     46343
                                                  LABEL          50633     50656
                                                  GEN            60225     60226     60613     60614
          HASHTBL     15064             
          ARGMODE     15264                       KEY            26771     27470     27563     30122
                                                  DECL           32241
                                                  IO             36533     36656     36666     36674     36721     36736     36761
                                                                 37166     37267     37315     40053     40061     40131     40256
                                                                 41140
                                                  PAR            41253     41262     41307     41646     41744     42005     42054
                                                                 42107     42133     42324     42436     42450     42460     42476
                                                                 42512     42522     42537     42543     42555     42602     42635
                                                                 42664     42701     42731     43020     43033     43046     45271
                                                                 45352
                                                  LABEL          50624
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    41  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          B=FEC       15264                       RPV00           1706
          ARGCOMA     15265                       KEY            26770     27470     27563     30122
                                                  DECL           32240
                                                  IO             36664     37063
                                                  PAR            41253     41264     41312     42440     42450     42464     42537
                                                                 43020     43034     43050     43526     44117     44732     46236
                                                                 46306     46356
                                                  LABEL          50624
          ARGMIS      15266                       PAR            42443     42451     43036     43052     43364     44730
          CALLTAG     15267                       KEY            26757     26773     27006
                                                  PAR            44070
          ASSTAG      15267                       KEY            26661     26711
          CSLTAG      15270                       KEY            27331     27553     27663
                                                  LABEL          50315     50331
          DATFLG      15271                       DATA           31002     31004
                                                  IO             37102     37662     40133     40274     40477     40525     40642
                                                  PAR            41653     43505     43570     43601     44173     44754     45250
                                                                 45354
          DTI         15272                       KEY            27305     27324     27601     27653
                                                  LABEL          50322     50540
          FLOW        15273                       KEY            27047     27130     27550     27604     27732     30014
                                                  LABEL          50562
          HANGER      15274                       KEY            27330     27655     27662
                                                  LABEL          50534
          IFLEVEL     15275                       LEX            24211
                                                  KEY            27511     27611     27773
                                                  LABEL          51400
          INSTF       15276                       PAR            41657     43157     43164     44210     44222     44226
          LDEAD       15277                       PAR            41656
                                                  LABEL          50564
          L.CARD      15300                       LEX            23764     24225     24250     24303
          NOPATH      15301                       KEY            27065     27246     27257     27273     27277     27321     27322
                                                                 27401     27545     27706     30012
                                                  LABEL          50536     50563
          NTRCNT      15302             
          PARMODE     15303                       DECL           32242     32244
                                                  IO             40151
                                                  PAR            41261     41305     41647
          PARAMC      15304                       DECL           33022
                                                  TYPE           35160
          REFLIN      15305                       KEY            27621
                                                  LABEL          50266     50277     50365     50505     50601     51271
          REFNUM      15306                       KEY            26653     27303
                                                  IO             37145
                                                  LABEL          50514     50573
          REFVAR      15307                       KEY            26652     26732     27304     27636
                                                  DATA           30717     31512
                                                  DECL           31660     31762     32474
                                                  TYPE           34712
                                                  IO             36746     40054
                                                  PAR            41660     41761     42040     42323     42453     42677     43051
                                                  STMTF          50166
          ROUTNAM     15310                       FUN            54704     54755     54774     55122     55163     55250     55423
                                                                 55710
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    42  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RTNCNT      15311                       KEY            27256
          STAGE       15312                       ALLOC          23256
                                                  LEX            24160     24205
                                                  HEADER         26207     26510
                                                  KEY            27065
                                                  CDDIR          30303     30327     30347     30365
                                                  DATA           30575
                                                  DECL           33126
                                                  TYPE           34671
                                                  PAR            42176
          TRLINE      15313             
          T=CONB      15314                       DATA           30570     30600
                                                  FMT            35611
          WANFP       15315                       KEY            27130     27136
                                                  STMTF          50050     50054     50104
          SCR2        15316             
          ZLEQUAL     15326                       LEX            24132     25177
                                                  PAR            41246
          ZLCOMMA     15327                       LEX            24133     25140
          ZLPAREN     15330                       LEX            24144     25246
          ZLE         15331                       PAR            41247     42561     42667     42674
          ZLCOLON     15332                       LEX            25147
          F.SYMIL     15333                       INIT00         67343     67354
          CHARMAP     15477                       FSNAP          13355     13567
                                                  PEM            22465
                                                  HEADER         26060
                                                  IO             37050
                                                  PAR            42620     42642     42644
                                                  QCGC           51616
          FEC         15602                       QCGLINK         4571
          FEC.RTN     15605                       FERRS          20544     20550     20552     20560     20705     20707     20711
                                                                 20713     20715     20717     20732     20734     20736     20740
                                                                 20742     20744     20751     20753     20755     20757     21073
                                                                 21172     21213     21217     21463     21473     21675     21677
                                                                 21701     21703     21705     21707     21713     21714     21715
                                                                 21727     21733     21737     21753     21755     21767     21773
                                                                 21775     21777     22001     22003     22012     22016     22061
                                                                 22062     22064     22066     22070     22072     22142     22144
                                                                 22160     22331     22345     22420
                                                  ALLOC          23261
                                                  HEADER         26021     26034     26041     26051     26103     26131
                                                  KEY            26727     27175     27221     27234     27314
                                                  CDDIR          30261     30263     30264     30271     30276     30326     30326
                                                                 30331     30347     30352     30364     30366     30370     30415
                                                                 30416     30426
                                                  DATA           30572
                                                  DECL           31752     31765     31770     32555     32556     32620     32625
                                                                 32657     32760     33047     33051     33052     33056     33117
                                                                 33122
                                                  TYPE           35032     35035     35040     35160     35163
                                                  FMT            35612
                                                  STMTF          50056     50223
                                                  LABEL          50540     50542     50543
          FEC.RIF     15673                       KEY            27604     27610
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    43  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FEC.RTF     15676                       KEY            27062
          ASK         15730                       KEY            26672
                                                  TYPE           34703
                                                  LABEL          50545
          ASL         15765                       KEY            26650
                                                  LABEL          50547
          CSB         16076                       KEY            27743
                                                  LABEL          50537
          CUS.RET     16216                       FERRS          21400
                                                  KEY            27335     27336     27342     27712     27720     27731     27733
                                                                 27742     27745
          OIL         16334                       QCGLINK         4605
                                                  KEY            27136     30060
                                                  CDDIR          30242
                                                  DATA           30574
                                                  IO             40106
                                                  LABEL          51006
          BBC         16631                       IO             37431     37506     37714     40017     40315     40352     40362
                                                                 40423     40425     40442     40444     41016
                                                  PAR            45324
                                                  LABEL          50670     51205
          CCT         16644                       KEY            26737
                                                  DECL           31736     32003     32506     32607     32643     32724     33013
          CT1         16653                       KEY            26754
                                                  DECL           31731     34143
                                                  FMT            35410
                                                  IO             37174     37713     40002     40166     40313     40351
                                                  PAR            42044     42152     42224     42234     44545     44615     44660
                                                  CONRED         47642
                                                  LABEL          50367     50470     50614     50655     50775     51076
          STY         16675                       HEADER         26030     26502
                                                  KEY            27105
                                                  DECL           32612     33016
                                                  TYPE           35141     35154     35170
                                                  PAR            42221     42231
                                                  STMTF          50170
          NAT.TYP     16703                       TYPE           35113     35115
          NAT.LEN     16712                       TYPE           35123
          TLV         16727                       LEX            24156
                                                  HEADER         26150     26244     26257     26556
                                                  KEY            26761     27151
                                                  DATA           31544
                                                  DECL           31672     31723     32572     32736     32770     33077
                                                  TYPE           34766
                                                  PAR            42036
          TRV         16736                       KEY            26673     27174     27343
                                                  DECL           31733     32001     32502     32717     33063
                                                  STMTF          50057
          TRVA        17003             
          TSX         17005                       HEADER         26331     26605     26607     26613
                                                  KEY            30214
                                                  IO             36406     36442     36642     37077     40057     40113
                                                  PAR            44404     44452     45010
          TSY         17017                       HEADER         26130     26334     26337     26573     26600     26602     26604
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    44  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 26612     26615
          ERT         17036                       HEADER         26206     26554
                                                  KEY            26753     27133     27167     27243
                                                  CDDIR          30414
                                                  DATA           30720     31514
                                                  DECL           32616     32672     33043
                                                  TYPE           34772
                                                  IO             37216     37401     40662
                                                  PAR            41762     42332
                                                  STMTF          50175
                                                  LABEL          50333     50515
          ERT=ON      17056                       CDDIR          30412
          ERT=OFF     17057                       CDDIR          30413
          ESY         17060                       HEADER         26200     26303     26504
                                                  KEY            26750     27107     27160
                                                  DECL           32614     32640     33020
                                                  TYPE           34763
                                                  IO             37374
                                                  PAR            42223     42233
                                                  STMTF          50172
                                                  LABEL          50275     50467
          INN         17114                       DECL           34004
                                                  LABEL          50600     50652     50761
          NCM         17126                       LEX            25444     25502
                                                  DATA           31500
                                                  DECL           34012
                                                  CONRED         47133     47467
                                                  FUN            55534
          SCS         17166                       HEADER         26531
                                                  DECL           31702     32742     33101
                                                  STMTF          50125
                                                  QCGC           51660
          SCSA        17175                       HEADER         26527
                                                  DECL           31662     32663     33054
                                                  STMTF          50112
                                                  QCGC           51654     51664
          SCT         17176                       HEADER         26522
                                                  KEY            26722     30176
                                                  DATA           31362
                                                  DECL           33000
                                                  CONRED         47505
                                                  STMTF          50073
                                                  FUN            55323
          SLT         17205                       DECL           32631
                                                  PAR            42166     42227
          SSY         17232                       LEX            24165
                                                  HEADER         26172     26245     26260     26472
                                                  KEY            26735     27074     27154
                                                  DATA           31546
                                                  DECL           32574     32636     33007
                                                  TYPE           34717
                                                  FMT            35406
                                                  IO             37160     37372     40307     40350
                                                  PAR            42037
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    45  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  STMTF          50025     50167
                                                  LABEL          50255     50350
          B=FERRS     17303   FERRS               RPV00           1707
          E.SF00      17303                       STMTF          50106
          E.GE        17303             
          E.PX5       17303                       DECL           33046
                                                  PAR            41746
          E.EX3       17304                       DECL           32565
          E.DM16      17304                       DECL           32000
          E.GE2       17304             
          E.C$09      17305                       CDDIR          30340     30357     30521
          E.IOD4      17305                       IO             40771
          E.GE3       17305             
          E.FS18      17306                       FMT            35572
          E.PX8       17306                       DECL           33047
          E.GE6       17306             
          E.ANS3      17307                       KEY            27251
          E.AG08      17310                       HEADER         26562
          E.AS4       17311                       KEY            26650
          E.DO05      17311                       LABEL          50547
          E.CL2       17312                       KEY            26735
          E.CM        17313                       DECL           31675
          E.CM1       17314                       DECL           31666
          E.CM2       17315                       DECL           31710     32752     33111
          E.CM3       17316                       DECL           31756     32756
          E.CM5       17317                       DECL           31670
          E.CM6       17320                       DECL           31753
          E.CT        17321                       KEY            27037
          E.C$00      17322                       CDDIR          30253     30473
          E.C$01      17323                       CDDIR          30335     30354
          E.C$02      17324                       CDDIR          30447
          E.C$03      17325                       CDDIR          30344     30363
          E.C$04      17326                       CDDIR          30346
          E.C$06      17327                       CDDIR          30255     30314
          E.C$07      17330                       CDDIR          30246     30465
          E.C$08      17331                       CDDIR          30245     30305     30311     30462
          E.C$11      17332                       CDDIR          30313
          E.DACV      17333                       DATA           30620
          E.DAVC      17334                       DATA           30617
          E.DCE       17335                       DATA           30767     31537     31540     31541
          E.DIL       17336                       DATA           30667     30737
          E.DIL1      17337                       DATA           30704     31330     31332
          E.DIL2      17340                       DATA           30733
          E.DIL3      17341                       DATA           30770
          E.DIL4      17342                       DATA           30715
          E.DM10      17343                       DECL           31774
          E.DO08      17344                       LABEL          51227
          E.DO14      17345                       LABEL          50552
          E.EN1       17346                       KEY            27064
          E.EN2       17347                       KEY            27070
          E.EN3       17350                       KEY            27071
          E.EN4       17351                       KEY            27072
          E.EQ        17352                       DECL           32547
          E.EQ1       17353                       DECL           32500
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    46  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.EQ2       17354                       DECL           32554
          E.EQ3       17355                       DECL           32536
          E.EQ4       17356                       DECL           32535
          E.FD2       17357                       HEADER         26246
          E.FD3       17360                       HEADER         26261
          E.FD4       17361                       HEADER         26346
          E.FD5       17362                       HEADER         26346
          E.FD6       17363                       HEADER         26346
          E.FD7       17364                       HEADER         26347
          E.FD8       17365                       HEADER         26347
          E.FD9       17366                       HEADER         26347
          E.GO        17367                       KEY            27312     27373     27420
          E.GO1       17370                       KEY            27302
          E.GO2       17371                       KEY            27333
          E.IF00      17372                       KEY            27566
          E.IF03      17373                       KEY            27645     27650
          E.IF06      17374                       KEY            27600
          E.IF09      17375                       KEY            27571
          E.IF10      17376                       KEY            27653
          E.IF11      17377                       KEY            27572
          E.IF12      17400                       KEY            27465
          E.IF13      17401                       KEY            27512     27773     30033
          E.IN        17402                       DECL           32627
          E.IN4       17403                       DECL           32657
          E.IO01      17404                       IO             36365     36425     37330
          E.IO07      17405                       IO             37146     37157
          E.IO08      17406                       IO             36600     36606
          E.IO10      17407                       IO             37233
          E.IO11      17410                       IO             37237
          E.IO12      17411                       IO             37241
          E.IO13      17412                       IO             36603
          E.IO15      17413                       IO             37260
          E.IO16      17414                       IO             36372     36376     36436     36476     37234     37323
          E.IO17      17415                       IO             37613     37614     37617
          E.IO19      17416                       IO             36365     36464
          E.IO20      17417                       IO             37332
          E.IO21      17420                       IO             37333
          E.IO25      17421                       IO             36623
          E.IO28      17422                       IO             36621
          E.IO29      17423                       IO             36622
          E.IOB0      17424                       IO             37431     37506
          E.IOB1      17425                       IO             36636
          E.IOB2      17426                       IO             37417     37423
          E.IOB3      17427                       IO             36637     36663
          E.IOB4      17430                       IO             36653     36671
          E.IOB5      17431                       IO             36662     36677
          E.IOB6      17432                       IO             37477
          E.IOB8      17433                       IO             37422
          E.IOB9      17434                       IO             37457     37464     37470     37472
          E.IOD1      17435                       IO             40740
          E.IOD2      17436                       IO             40754
          E.IOD3      17437                       IO             40760
          E.IOL7      17440             
          E.IOL8      17441             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    47  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOF       17442                       IO             37532     37533     37534     37536
          E.IOF2      17443                       IO             37541
          E.IOS1      17444                       IO             36716
          E.IOS2      17445                       IO             36725
          E.IOS3      17446                       IO             36730
          E.IOS4      17447                       IO             36732
          E.IOS5      17450                       IO             36741
          E.IOS6      17451                       IO             36716     36725     36732
          E.IOS8      17452                       IO             36730
          E.IOS9      17453                       IO             37512     37514
          E.IOS10     17454                       IO             37674
          E.LV1       17455                       DECL           32664     32665     32667     32675     32701
          E.LV3       17456                       DECL           32706     32715     32734
          E.LV4       17457                       DECL           32723
          E.LV5       17460                       DECL           32761
          E.LV7       17461                       DECL           32744
          E.LV8       17462                       DECL           32741
          E.FM        17463                       FEC            15630     15735
                                                  KEY            27464     27577
          E.MA        17464                       FEC            15654
          E.MD        17465                       FEC            15655
          E.ME        17466                       LEX            23552
          E.MH        17467                       FEC            15656
          E.MI        17470                       FEC            15657
          E.MR1       17471                       HEADER         26237     26312     26447     26470     26557
          E.MR2       17472                       KEY            27146
                                                  DECL           32057
          E.MR3       17473                       KEY            27170
                                                  DECL           32476
          E.NP1       17474                       LABEL          50564
          E.OV1       17475                       HEADER         26056
          E.OV3       17476                       HEADER         26102
                                                  KEY            27040
          E.NL        17477                       KEY            27145
          E.NL1       17500                       KEY            27153
          E.NL2       17501                       KEY            27147
          E.NL3       17502                       KEY            27155
          E.NL4       17503                       KEY            27202
          E.NL5       17504                       KEY            27173
          E.PX3       17505                       DECL           32767
          E.PX4       17506                       DECL           32773
          E.SA1       17507                       DECL           33062     33075
          E.SA3       17510                       DECL           33115
          E.SA4       17511                       DECL           33117
          E.SF01      17512                       STMTF          50110
          E.SF02      17513                       STMTF          50162
          E.SF03      17514                       STMTF          50126
          E.SF08      17515                       STMTF          50027     50032     50033     50035
          E.SL18      17516                       LABEL          50337
          E.TY5       17517                       TYPE           35221     35224
          E.TYI       17520                       TYPE           35241     35241
          E.TYI1      17521                       TYPE           35051
          E.TYI2      17522                       TYPE           35060     35071
          E.TYI6      17523                       TYPE           35131
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    48  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TYI7      17524                       TYPE           35134
          E.VA09      17525                       FEC            16741
                                                  DECL           32567
                                                  TYPE           34664     34715     34716
          E.VA13      17526                       PAR            42156
          OSE         17527                       PAR            44740     45213     45233     45235
          DICT        17550                       PEM            22521
          FILL.       17551                       FEC            15664     16027     16037     16070     16133     16151     16156
                                                                 16171     16177     16203     16251     16733     16741     17065
                                                  PEM            22447     22500
                                                  ALLOC          23130     23305
                                                  LEX            23741     25367     25420
                                                  HEADER         26243     26462
                                                  KEY            26667     26707     26734     27073     27172     27351     27524
                                                                 27567     30004
                                                  CDDIR          30500     30503
                                                  DATA           30713
                                                  DECL           31700     31725     32233     32246     32502     32567     32630
                                                                 32716     32740     33007     33100     33164     33260     33300
                                                                 33343     33407     33430     33532     33632     34176     34432
                                                                 34456
                                                  TYPE           34714     35057     35062     35070     35072     35167
                                                  FMT            35532     35613     35633     35701     35730     35747
                                                  IO             37034     37052     37615     37740     40347     40647
                                                  PAR            42033     42645     43406     43501     44201     44240     44476
                                                                 44541     44575     44624     45442
                                                  CONRED         47542
                                                  STMTF          50043
                                                  LABEL          50235     50327
          CLASS       17551                       FEC            16045     16646     16646     16753     16757     16770
                                                  KEY            26705     27347
          FILL.2      17552                       FEC            15737     16046     16647     16772
                                                  ALLOC          23310
                                                  HEADER         26255
                                                  KEY            26706     27350     27556
                                                  CDDIR          30252     30450     30473     30506
                                                  DECL           32055
                                                  IO             37034
                                                  PAR            42621     43456
                                                  STMTF          50061     50127     50157
                                                  LABEL          50341
          FILL.3      17553                       KEY            27632
                                                  TYPE           35063     35073
                                                  IO             37564     37573     37604     37626
                                                  PAR            41666     43515     43542     45430     45506
                                                  STMTF          50024
                                                  LABEL          50730
          DO.DPC      17612                       PAR            43455
          MOD.DPC     17616                       FEC            16132
                                                  KEY            27631
                                                  IO             37563     37572     37603     37625
                                                  PAR            43513     43541     45427     45427
          ERL=XPR     17626                       PAR            45457
          ERL=CON     17627                       PAR            41665     45456
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    49  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TY        20546                       DECL           31766
                                                  TYPE           35034
          E.EX2       20546                       DECL           32621
          E.DM15      20546                       DECL           32061
          E.GE1       20546             
          E.CT1       20554                       KEY            27032
          E.FD11      20554                       HEADER         26317
          E.IO37      20554                       IO             36403
          E.GE4       20554             
          E.SPR4      20554                       KEY            27262     30163
          E.GO9       20554                       KEY            27374     30127
          E.ME1       20554                       KEY            27045
          E.IF08      20554                       KEY            27477     27510
          E.C$10      20554                       CDDIR          30452     30522
          E.AS1       20554                       KEY            26702
          E.AG02      20554                       HEADER         26564
          E.GE5       20556             
          E.VA00      20556                       FEC            16771
          E.AS7       20556                       KEY            26710     27352
          E.ANS       20562                       KEY            27141
                                                  DECL           32661
                                                  TYPE           34652
                                                  IO             36453     36630     36712
          E.ANS1      20564                       FEC            15724
          E.ANS2      20566                       FEC            17065
                                                  DECL           31701
          E.ANS4      20572                       PAR            45451
          E.ANS5      20574                       PAR            44143     44146
          E.ANS6      20576                       CONRED         47657
          E.AG00      20600                       HEADER         26367
          E.AG01      20602                       HEADER         26457
          E.AG03      20604                       HEADER         26523
          E.AG04      20606                       HEADER         26464
          E.CL1       20610                       KEY            27004
          E.AG07      20610                       HEADER         26232     26451
          E.AG11      20614                       HEADER         26467
          E.AG12      20616                       HEADER         26477
          E.AS2       20620                       KEY            26670
          E.AS3       20621                       KEY            26701
          E.AS5       20624                       KEY            26663
          E.AS6       20626                       FEC            16152
          E.AT01      20631                       DATA           31454
                                                  PAR            45757     45773     46000
          E.AT02      20633                       PAR            42647
          E.AT03      20635                       DATA           31337
                                                  PAR            42007
          E.AT04      20637                       PAR            42321
          E.AT05      20641                       PAR            43024
          E.AT06      20644                       PAR            42557
          E.AT07      20646                       PAR            45762
          E.AT08      20647                       DATA           31332
                                                  PAR            42002
          E.AT09      20650                       PAR            41250
          E.AT10      20652                       PAR            41671
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    50  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AT11      20654                       PAR            45326
          E.AT13      20656                       DATA           31507
                                                  PAR            45743
          E.AT14      20660                       PAR            45747
          E.AT15      20662                       PAR            43304
          E.AT16      20664                       DECL           33416     34366
                                                  PAR            42374     43416
                                                  CONRED         47635
          E.AT17      20666                       PAR            43433
          E.AT18      20667                       PAR            41776
          E.AT19      20671                       PAR            45431
          E.AT20      20673                       PAR            41770
          E.AT21      20675                       PAR            42617
          E.CL3       20701                       KEY            26742
          E.CL4       20703                       KEY            26744
          E.CM8       20721                       FEC            16046
          E.CM9       20723                       DECL           33171
          E.CM10      20725                       DECL           33174
          E.CM11      20727                       DECL           33260
          E.CM12      20731                       DECL           34176
          E.C$05      20746                       CDDIR          30506
          E.C$15      20761                       FEC            16204
          E.DABC      20763                       CONRED         47654
          E.DABL      20765                       CONRED         47662
          E.DAR       20772                       DATA           30740
          E.DAUC      20774                       CONRED         47650
          E.DSE       21011                       DATA           30647     30662
                                                  CONRED         47536     47612
          E.DVL1      21013                       DATA           31021
                                                  PAR            41666
                                                  CONRED         47645
          E.DVR1      21015                       CONRED         47605
          E.DVR2      21017                       CONRED         47714
          E.DVR3      21021                       CONRED         47773
          E.DVR4      21023                       CONRED         47573
          E.DVR5      21025                       PAR            44174
          E.DC        21027                       CONRED         46554     46647
          E.DC1       21030                       PAR            41725
                                                  CONRED         46644
          E.DC3       21032                       CONRED         46512     46514
          E.DC4       21034                       PAR            43115
          E.DC6       21036                       CONRED         46527
          E.DC7       21040                       DATA           30752
          E.DC8       21041                       CONRED         46501     46534     46545     46627
          E.DC9       21043                       CONRED         46632
          E.DC10      21045                       DATA           31426
          E.DM00      21047                       DECL           32017     32063
          E.DM01      21051                       PAR            41715     41735     41754     42023
          E.DM02      21053                       DECL           32107
          E.DM03      21055                       FEC            16246
          E.DM04      21057                       FEC            16247
          E.DM05      21061                       DECL           32014
          E.DM06      21063                       DECL           32102     32152
          E.DM07      21065                       DECL           32257
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    51  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DM08      21067                       DECL           32163
          E.DM09      21071                       DECL           32010
          E.DM11      21075                       PAR            45262
          E.DM12      21100                       DECL           34457
          E.DM13      21102                       DECL           32150
          E.DM14      21104                       PAR            42267
          E.DM17      21106                       PAR            42264
          E.DM18      21111                       PAR            42266
          E.DM19      21114                       DECL           34424
          E.DM20      21116                       DECL           34426
          E.DM21      21120                       PAR            42271
          E.DO00      21122                       PAR            43441     43464
          E.DO01      21124                       LABEL          50677
          E.DO02      21126                       PAR            43566
          E.DO03      21130                       LABEL          50730
          E.DO04      21132                       PAR            43500
          E.DO06      21134                       LABEL          50455
          E.DO07      21136                       LABEL          51325
          E.DO09      21142                       FEC            16171
          E.DO10      21144                       LABEL          50555
          E.DO12      21146                       LABEL          50465     51046
          E.DO13      21150                       LABEL          51053
          E.DO15      21154                       PAR            43477     43514
          E.DO16      21156                       PAR            43542
          E.DO17      21160                       PAR            43574
          E.DO18      21162                       LABEL          50700
          E.DO19      21164                       LABEL          50426     51320
          E.DO20      21166                       LABEL          51322
          E.EN        21170                       KEY            27101
          E.EN5       21202                       KEY            27077
          E.EN6       21205                       KEY            30045
          E.EN7       21207                       KEY            30052
          E.EN8       21211                       KEY            30053
          E.EQ6       21223                       DECL           32552
          E.EQ7       21225                       DECL           33502
          E.EQ8       21230                       DECL           33503
          E.EQ10      21232                       DECL           33434
          E.EQ11      21234                       DECL           33612     33621
          E.EQ12      21236                       DECL           33615     33623
          E.EQ13      21240                       DECL           33476
          E.EQ14      21242                       DECL           33512
          E.EQ15      21244                       DECL           33516
          E.EQ16      21247                       DECL           33626     33633
          E.EQ17      21251                       DECL           33442
          E.EX1       21253                       DECL           32576
          E.EX4       21255                       DECL           32602
          E.FD        21257                       HEADER         26235
          E.FD1       21261                       HEADER         26240
          E.FD10      21303                       HEADER         26314
          E.FD12      21305                       HEADER         26321
          E.FS00      21307                       FMT            35374
          E.FS01      21311                       FMT            36071
          E.FS02      21314                       FMT            36126
          E.FS03      21316                       FMT            35503
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    52  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.FS04      21320                       FMT            35710     35740     35762
          E.FS05      21322                       FMT            36027
          E.FS06      21324                       FMT            35661
          E.FS07      21326                       FMT            35720     35766
          E.FS08      21330                       FMT            35532     35665
          E.FS09      21332                       FMT            36140
          E.FS10      21335                       FMT            36105
          E.FS11      21337                       FMT            36154
          E.FS12      21341                       FMT            36152
          E.FS13      21343                       FMT            36065     36107
          E.FS14      21346                       FMT            35613     35771
          E.FS15      21347                       FMT            36022     36045
          E.FS16      21351                       FMT            35451
          E.FS17      21354                       FMT            36037
          E.FS19      21357                       FMT            35567
          E.FS20      21360                       FMT            35431
          E.FS21      21361                       FMT            35455
          E.FS22      21363                       FMT            35510     36117
          E.FS23      21365                       FMT            36075
          E.FS24      21367                       FMT            36100
          E.FS25      21372                       FMT            35462     35473     35525     35535     35650     35715     36061
          E.FS26      21373                       FMT            35420
          E.GO3       21402                       KEY            27361
          E.GO4       21404                       KEY            27355
          E.GO5       21406                       KEY            27035     27334
          E.GO6       21410                       KEY            30132
          E.GO7       21412                       KEY            27316
          E.GO8       21413                       KEY            27371     27436
          E.HC1       21415                       LEX            25453     25513
          E.HC2       21417                       LEX            23750
          E.HC3       21421                       LEX            23742
          E.IF01      21424                       KEY            27501
          E.IF02      21426                       KEY            27603
          E.IF04      21432                       KEY            27714
          E.IF05      21434                       KEY            27710
          E.IF07      21440                       KEY            27632
          E.IF14      21453                       KEY            27474
          E.IF15      21455                       KEY            27524     30004
          E.IF16      21457                       LABEL          51036
          E.IF17      21461                       FEC            16177
          E.IN1       21465                       DECL           32633
          E.IN2       21467                       DECL           32645
          E.IN3       21471                       DECL           32653
          E.INF       21475                       PAR            44375
          E.INF1      21477                       PAR            44356
          E.INF2      21501                       PAR            44372
          E.INF3      21503                       PAR            44322
          E.IO00      21505                       IO             36547     36772
          E.IO02      21510                       IO             40047
          E.IO03      21513                       IO             37356     37362
          E.IO04      21515                       IO             36752
          E.IO05      21517                       IO             37564     37573     37605     37626
          E.IO06      21521                       IO             36430
          E.IO09      21527                       IO             36601
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    53  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IO14      21541                       IO             40156
          E.IO18      21550                       IO             37560     37600     37622
          E.IO22      21560                       IO             37255
          E.IO23      21562                       IO             37001
          E.IO24      21564                       IO             37012
          E.IO26      21570                       IO             37000     37142
          E.IO30      21576                       IO             36774
          E.IO31      21600                       IO             37411
          E.IO32      21602                       IO             37414
          E.IO33      21604                       IO             36775     37207
          E.IO34      21606                       IO             36572
          E.IO35      21610                       IO             36573
          E.IO36      21612                       IO             37527
          E.IOB7      21633                       IO             37426     37503
          E.IOL1      21650                       IO             40070
          E.IOL2      21652                       IO             40024
          E.IOL5      21654                       IO             40101
          E.IOL6      21656                       IO             37654
          E.IOF1      21665                       IO             37536
          E.ION       21671                       IO             40120
          E.ION1      21673                       IO             40110
          E.IOS7      21711                       IO             37672
          E.LP1       21717                       PAR            42724     43036
                                                  STMTF          50147
          E.LP2       21722                       PAR            43030
                                                  STMTF          50146
          E.LP3       21725                       PAR            42442     42632
          E.LV2       21731                       DECL           32707
          E.LV6       21741                       FEC            16074
          E.LV9       21747                       DECL           33302
          E.LV11      21751                       PAR            45355
          E.MB        21757                       FEC            15633
          E.MCA       21761                       LEX            23642
          E.INI       21763                       LEX            23633
          E.TLBL      21765                       LEX            23635
          E.MDO       21770                       FEC            15671
                                                  KEY            27307     27656
          E.MS        22004                       FEC            16156
          E.NP        22006                       FEC            16234
          E.OV2       22014                       HEADER         26047
          E.OV4       22020                       HEADER         26136
          E.PN1       22022                       HEADER         26152
          E.PN3       22024                       HEADER         26105
          E.SEQ       22026                       FEC            15622
          E.STO       22030                       FEC            17106
          E.MO1       22032                       REC            62245
          E.MO2       22033                       ALLOC          23256
          E.MO4       22035             
          E.MO5       22036                       ALLOC          23220
          E.MO6       22040                       ALLOC          23311
          E.MO7       22042                       ALLOC          23175
          E.MO8       22044                       REC            62244
          E.TC1       22046                       ALLOC          23131
          E.MDE1      22047                       HEADER         26053
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    54  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.MDE2      22050                       DATA           30706
                                                  TYPE           34653
                                                  PAR            41726     41750     42001     42240
          E.MDE3      22052                       IO             36631
          E.MDE4      22054                       IO             36713
          E.MDE5      22056                       PAR            42251
          E.MDE6      22060                       HEADER         26042
          E.PX1       22074                       PAR            41274
          E.PX2       22076                       DECL           32763
          E.PX6       22104                       PAR            41321     41327
          E.PX7       22106                       PAR            43616
          E.SA        22110                       DECL           33332
          E.SA2       22114                       DECL           33071     33104
          E.SA5       22122                       DECL           33065
          E.SA6       22124                       DECL           33344
          E.SB2       22126                       PAR            45210
          E.SB3       22130                       PAR            45213
          E.SB4       22132                       PAR            45225
          E.SB5       22134                       PAR            45230
          E.SB6       22136                       PAR            45232
          E.SB7       22140                       PAR            44737
          E.SF04      22150                       STMTF          50160
          E.SF05      22152                       STMTF          50074
          E.SF06      22154                       STMTF          50052
          E.SF07      22156                       STMTF          50036
          E.SF09      22162                       PAR            44204
          E.SF10      22164                       PAR            42412
          E.SF11      22166                       STMTF          50063
          E.SF12      22170                       STMTF          50120
          E.SF13      22173                       PAR            42353
          E.SF14      22176                       STMTF          50072
          E.SF15      22200                       PAR            44246
          E.SL00      22203                       LABEL          50263
          E.SL01      22205                       LABEL          50256
          E.SL02      22207                       LABEL          50403
          E.SL03      22211                       LABEL          50411
          E.SL04      22213                       LABEL          50406
          E.SL05      22215                       LABEL          50415
          E.SL06      22217                       LABEL          50414     50440
          E.SL07      22221                       LABEL          50435
          E.SL08      22223                       LABEL          50443     50445
          E.SL09      22225                       LABEL          50423     51143
          E.SL10      22230                       LABEL          50304
          E.SL11      22232                       LABEL          50371
          E.SL12      22234                       LABEL          50306
          E.SL13      22236                       LABEL          50313
          E.SL14      22240                       LABEL          50250
          E.SL15      22242                       LABEL          50244
          E.SL16      22244                       LABEL          50264
          E.SL17      22246                       LABEL          50405
          E.SL19      22252                       LABEL          50247
          E.SL20      22253                       LABEL          50421
          E.ST        22256                       DECL           34371
          E.ST1       22260                       DECL           33411
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    55  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SPR1      22262                       KEY            30167
          E.SPR2      22264                       KEY            30174
          E.SU11      22266                       PAR            44102
          E.SPR5      22266                       KEY            27266
          E.SU01      22270                       PAR            46142
          E.SU02      22272                       PAR            44535
          E.SU03      22274                       PAR            44512     44703
          E.SU04      22277                       FEC            17223
          E.SU05      22301                       PAR            44553
          E.SU06      22303                       FEC            16133
          E.SU07      22306                       PAR            44676
          E.SU08      22310                       PAR            44532     44536
          E.SU09      22312                       PAR            44556
          E.SU10      22314                       PAR            44074
          E.TY0       22316                       TYPE           34736
          E.TY1       22320                       TYPE           34726     34760     35020     35022
          E.TY2       22322                       TYPE           34747
                                                  PAR            42175
          E.TY3       22324                       TYPE           35205     35210     35224
          E.TY4       22327                       TYPE           35213     35227
                                                  PAR            41322
          E.TY6       22333                       TYPE           35211     35225
          E.TY7       22334                       FEC            16027
          E.TY8       22336                       TYPE           34761     35021     35172
          E.TY9       22341                       TYPE           34743
                                                  PAR            42172
          E.TY10      22343                       TYPE           34723     35023
          E.TYI3      22353                       TYPE           35063     35074
          E.TYI4      22355                       TYPE           35101
          E.TYI5      22357                       TYPE           35076
          E.TYI8      22365                       TYPE           35111
          E.TYI9      22367                       TYPE           35054
          E.VA01      22371                       PAR            42151
          E.VA02      22373                       FEC            16650
          E.VA03      22375                       PAR            42075
          E.VA04      22377                       PAR            42107     42135     42210
          E.VA05      22401                       PAR            42115
          E.VA06      22403                       PAR            42120
          E.VA07      22405                       PAR            42140
          E.VA08      22407                       PAR            42066
          E.VA10      22412                       FEC            16733
          E.VA11      22414                       PAR            42700     43323
          E.VA12      22416                       PAR            42426
          E.XP1       22422                       PAR            43671
          E.XP3       22424                       PAR            43635
          E.XP4       22426                       PAR            43712
          E.XP5       22430                       PAR            44020
          E.XP6       22432                       PAR            43672
          E.XP7       22434                       PAR            43634
          E.ZEMT      22436                       PAR            45546
          B=PEM       22437   PEM                 RPV00           1710
          ANSI=       22440                       FEC            15724     16047     17066     17223
                                                  HEADER         26235
                                                  KEY            27603     30133
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    56  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DATA           30740     31333     31401     31404
                                                  DECL           31701     32661
                                                  TYPE           34652
                                                  FMT            35533     35665
                                                  IO             36453     36630     36712     37255     37537     40071     40110
                                                  PAR            41251     41725     42002     42354     42617     43433     44144
                                                                 44147     45452     45763
                                                  CONRED         46644     47657
                                                  STMTF          50064
                                                  LABEL          50426     51320
          ANSI.SW     22441                       INIT00         67362
          MDERR=      22443                       HEADER         26042     26053
                                                  DATA           30707
                                                  TYPE           34653
                                                  IO             36631     36713
                                                  PAR            41726     41750     42001     42241     42251
          MDER.SW     22444                       INIT00         67367
          PEMS        22445                       FERRS          17322     17325     17334     17342     17343     17344     17357
                                                                 17360     17362     17363     17364     17366     17407     17410
                                                                 17411     17415     17446     17457     17461     17462     17465
                                                                 17502     17512     17513     17514     17515     17526     17544
                                                                 20556     20566     20604     20616     20620     20621     20626
                                                                 20633     20637     20660     20664     20667     20671     20673
                                                                 20701     20703     20721     20723     20725     20727     20731
                                                                 20746     20761     20763     20765     20774     21015     21017
                                                                 21021     21051     21053     21055     21057     21061     21063
                                                                 21065     21067     21071     21075     21100     21104     21106
                                                                 21111     21114     21116     21120     21130     21132     21134
                                                                 21142     21170     21202     21205     21207     21211     21225
                                                                 21230     21232     21234     21236     21240     21242     21244
                                                                 21247     21251     21253     21255     21320     21326     21330
                                                                 21346     21421     21440     21455     21457     21461     21465
                                                                 21467     21471     21517     21550     21562     21656     21741
                                                                 21747     21751     22004     22040     22046     22114     22122
                                                                 22124     22126     22130     22132     22134     22136     22140
                                                                 22150     22152     22156     22162     22164     22166     22170
                                                                 22176     22200     22203     22205     22207     22211     22213
                                                                 22215     22217     22221     22223     22225     22232     22236
                                                                 22240     22242     22246     22253     22256     22260     22272
                                                                 22274     22277     22301     22303     22306     22310     22312
                                                                 22316     22320     22322     22334     22336     22341     22343
                                                                 22353     22355     22357     22371     22373     22375     22377
                                                                 22401     22403     22405     22407     22412     22416
          PEMV        22462                       FERRS          17303     17304     17305     17306     17310     17311     17316
                                                                 17324     17327     17330     17331     17345     17353     17354
                                                                 17355     17356     17373     17400     17402     17403     17405
                                                                 17412     17414     17416     17427     17430     17431     17444
                                                                 17445     17447     17450     17452     17472     17501     17504
                                                                 17505     17506     17507     17510     17511     17517     17521
                                                                 17522     17523     17524     17525     20546     20554     20606
                                                                 20610     20614     20652     21032     21144     21261     21303
                                                                 21311     21322     21335     21343     21347     21351     21354
                                                                 21361     21363     21365     21367     21372     21402     21453
                                                                 21521     21527     21717     21722     21725     22014     22074
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    57  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 22076     22104     22154     22314
          PEM         22501                       FERRS          17307     17312     17313     17314     17315     17317     17320
                                                                 17321     17323     17326     17332     17333     17335     17336
                                                                 17337     17340     17341     17346     17347     17350     17351
                                                                 17352     17361     17365     17367     17370     17371     17372
                                                                 17374     17375     17376     17377     17401     17404     17406
                                                                 17413     17417     17420     17421     17422     17423     17424
                                                                 17425     17426     17432     17433     17434     17435     17436
                                                                 17437     17440     17441     17442     17443     17451     17453
                                                                 17454     17455     17456     17460     17463     17464     17466
                                                                 17467     17470     17471     17473     17474     17475     17476
                                                                 17477     17500     17503     17516     17520     20562     20564
                                                                 20572     20574     20576     20600     20602     20624     20631
                                                                 20635     20641     20644     20646     20647     20650     20654
                                                                 20656     20662     20666     20675     20772     21011     21013
                                                                 21023     21025     21027     21030     21034     21036     21040
                                                                 21041     21043     21045     21047     21102     21122     21124
                                                                 21126     21136     21146     21150     21154     21156     21160
                                                                 21162     21164     21166     21223     21257     21305     21307
                                                                 21314     21316     21324     21332     21337     21341     21357
                                                                 21360     21373     21404     21406     21410     21412     21413
                                                                 21415     21417     21424     21426     21432     21434     21475
                                                                 21477     21501     21503     21505     21510     21513     21515
                                                                 21541     21560     21564     21570     21576     21600     21602
                                                                 21604     21606     21610     21612     21633     21650     21652
                                                                 21654     21665     21671     21673     21711     21731     21757
                                                                 21761     21763     21765     21770     22006     22020     22022
                                                                 22024     22026     22030     22032     22033     22035     22036
                                                                 22042     22044     22047     22050     22052     22054     22056
                                                                 22060     22106     22110     22173     22230     22234     22244
                                                                 22252     22262     22264     22266     22270     22324     22327
                                                                 22333     22365     22367     22414     22422     22424     22426
                                                                 22430     22432     22434     22436
          PDM         22632                       FEC            15622     15634     15672     16030     16074     16134     16152
                                                                 16157     16172     16200     16204     16235     16251     16651
                                                                 16734     16772     17106
                                                  FERRS          17533     17534
                                                  ALLOC          23131     23175     23220     23257     23311
                                                  LEX            23633     23636     23643     23742     23750     25454     25513
                                                  HEADER         26050     26105     26137     26152     26232     26240     26314
                                                                 26317     26322     26370     26451     26457     26470     26500
                                                                 26524     26564
                                                  KEY            26664     26670     26701     26703     26710     26742     26744
                                                                 27005     27033     27035     27045     27124     27141     27263
                                                                 27266     27310     27317     27334     27352     27355     27362
                                                                 27371     27375     27436     27474     27477     27502     27510
                                                                 27525     27633     27657     27711     27715     30005     30127
                                                                 30135     30163     30167     30174
                                                  CDDIR          30452     30507     30523
                                                  DATA           30566     30647     30662     31337     31455     31507
                                                  DECL           31767     31771     32010     32552     32577     32602     32622
                                                                 32633     32646     32654     32710     32764     33066     33072
                                                                 33104     33176     33261     33303     33333     33344     33412
                                                                 33417     33447     33507     33513     33517     33613     33615
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    58  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 33621     33623     33626     33633     34177     34367     34371
                                                                 34433     34457
                                                  TYPE           34744     34750     34752     34761     35024     35034     35054
                                                                 35064     35074     35077     35101     35111     35172     35231
                                                  FMT            35374     35420     35432     35452     35455     35463     35474
                                                                 35504     35510     35525     35536     35567     35614     35650
                                                                 35661     35710     35715     35720     35740     35762     35766
                                                                 35771     36023     36027     36037     36045     36062     36066
                                                                 36072     36075     36101     36105     36110     36120     36126
                                                                 36141     36156
                                                  IO             36404     36430     36547     36574     36602     37023     37142
                                                                 37207     37403     37530     37565     37574     37605     37627
                                                                 37655     37774     40047     40101     40120     40156
                                                  PAR            41274     41333     41667     41671     41771     41777     42010
                                                                 42066     42075     42130     42136     42140     42151     42172
                                                                 42175     42321     42350     42375     42412     42426     42557
                                                                 42650     42700     43024     43031     43115     43304     43312
                                                                 43323     43417     43435     43442     43464     43516     43543
                                                                 43566     43574     43617     43636     43640     43673     43713
                                                                 44020     44074     44103     44174     44204     44247     44323
                                                                 44356     44372     44376     44512     44541     44563     45326
                                                                 45355     45443     45546     45744     45760     46001     46142
                                                  CONRED         46501     46530     46534     46546     46555     46627     46632
                                                                 46647     47543     47645
                                                  STMTF          50036     50053     50072     50075     50120     50150     50160
                                                  LABEL          50245     50317     50421     50473     50555     50701     50731
                                                                 51037     51046     51054     51144     51323     51325
                                                  REC            62244     62246
          B=ALLOC     22767   ALLOC               RPV00           1711
          ADW         22767                       HEADER         26202     26361     26526     26532
                                                  KEY            26724     27022     27120     27207     27215     27623     30200
                                                                 30212
                                                  CDDIR          30325
                                                  DATA           30641     30744     30760     31225     31241     31364
                                                  DECL           31742     32457     32513     32521     32523     32533     33002
                                                                 33156     33206     33375     34311     34314     34325
                                                  IO             40022     40741
                                                  PAR            42437     42441     42445     44430     44434
                                                  CONRED         47507     47761
                                                  STMTF          50042     50044     50077     50101
                                                  LABEL          51200     51274     51361
                                                  QCGC           51572     51575     51665     51745     51772     51773     51774
                                                  FUN            54672     54742     54771     55027     55057     55061     55141
                                                                 55235     55313     55325     55502     55703     55736
                                                  GEN            61714
                                                  FAS            63464     63471     63472     63570     63602     63605     64747
                                                                 64754     65072
          ADW.ALC     22777             
          ADWT        23001                       FEC            17127     17141     17146     17153     17155     17156     17161
                                                                 17163     17164
                                                  DECL           32170     32215     32217     32223     32225     32227
          ALC         23005                       FEC            16220     16327     16417     16461     16540     17045     17076
                                                                 17155
                                                  LEX            23645     24230
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    59  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  HEADER         26074     26431
                                                  KEY            27024     27613
                                                  DATA           31254     31263     31470     31531
                                                  DECL           31712     32216     32316     32747     33110     33637     33641
                                                                 33731     34061     34275
                                                  FMT            35606
                                                  IO             36363     36423     36506     36647     37105     40502
                                                  PAR            44136     45532     45555
                                                  CONRED         47104
                                                  STMTF          50210
                                                  LABEL          50607     51236     51266     51354     51417     51427
                                                  QCGC           51561     51762
                                                  FUN            55727
                                                  GEN            60737
                                                  REC            62134     62155     62302
                                                  FAS            62641     62643     62645     62652     62725     63207     63573
                                                                 63634     63647     63671     63711     64172     64261     64443
          ALC.REG     23152                       FEC            16613
                                                  PAR            44213     44232
                                                  QCGC           51540     51543
                                                  GEN            60743     60750
          ALC.00      23154                       FEC            16612
                                                  PAR            44231
                                                  QCGC           51542
                                                  GEN            60742
          ALC.STF     23155                       PAR            44212
          ALC.CAI     23156                       QCGC           51537
                                                  GEN            60747
          PTA         23303             
          PTS         23313             
          B=LEX       23407   LEX                 RPV00           1712
          LEXFLG      23413                       FEC            15612     16513
                                                  ALLOC          23240
          LEXMODE     23414                       FEC            16266
          SB=CONT     23426                       HEADER         26102
                                                  KEY            27040
          SB=LINC     23427                       FEC            15720
                                                  CDDIR          30424
          SB=LORD     23430                       FEC            15720
                                                  CDDIR          30423
          TB=1ST      23431                       FEC            15673
                                                  KEY            27426
                                                  PAR            42672
          TB=LABL     23433                       FEC            15663
                                                  KEY            27555
          TB=LABR     23434                       FEC            15662     16207
                                                  KEY            27031     27315     27366     27434
                                                  FMT            35372
          TB=NUML     23436                       FEC            15616
          TB=NUMR     23437             
          TB=PLVL     23440             
          TB=TYPE     23441                       FEC            15626     15635     15660     15665     15667     15674     16210
                                                                 16216     16233
                                                  HEADER         26112     26453
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    60  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  KEY            27577
                                                  DECL           33151
                                                  PAR            42271
                                                  CONRED         46556
                                                  LABEL          50256     50325
          LEX         23567                       FEC            15615
          CST         24130                       KEY            27576
          RNC         24253             
          TF=IDP      24306                       FSNAP          14076     14105     14122     14206
          TOK=CAL     24353                       FSNAP          14035
          TOK=COF     24355                       FSNAP          14037
          TOK=ELS     24404                       FSNAP          14041
          TOK=ENT     24406                       FSNAP          14043
          TOK=GN      24417                       FSNAP          14045
          TOK=GO      24427                       FSNAP          14047
          TOK=GS      24432                       FSNAP          14051
          TOK=IFT     24442                       FSNAP          14053
          TOK=ON      24446                       FSNAP          14055
          TOK=XEQ     24452                       FSNAP          14057
          BLL         25264                       PEM            22612
          CAK         25353                       TYPE           35240
          LDB         25533                       FEC            15614     15677
                                                  PEM            22564
                                                  ALLOC          23242
                                                  CDDIR          30425
          LSL         25555             
          LSS         25613             
          KW=BLOC     26011   HEADER              LEX            23464
          B=HEADE     26011                       RPV00           1713
          KW=FUNC     26023                       LEX            23512
                                                  TYPE           34704
          KW=PROG     26036                       LEX            23531
          KW=OVCA     26042                       LEX            23524
          OVCFLG      26052                       FEC            16473
          KW=OVER     26053                       LEX            23525
          PSF         26104                       FEC            15642
                                                  TYPE           34706
          KW=SUBR     26124                       LEX            23541
          PPA130      26310                       FERRS          21263     21265     21267     21271     21273     21275     21277
                                                                 21301
          PSA         26350                       KEY            27134
          WSA         26576                       KEY            27060
          KW=ASSI     26647   KEY                 LEX            23462
          B=KEY       26647                       RPV00           1714
          KW=BREA     26726                       LEX            23543
          KW=CALL     26730                       LEX            23467
          CRL         27014                       PAR            44072
          KW=CONT     27031                       FEC            16210
                                                  LEX            23474
          KW=END      27040                       LEX            23503
          END23       27041                       FERRS          21772
          KW=ENTR     27063                       LEX            23506
                                                  HEADER         26454
          KW=NAME     27141                       LEX            23522
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    61  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=PATC     27230                       LEX            23544
          KW=PAUS     27236                       LEX            23527
          KW=RETU     27240                       LEX            23535
          KW=STOP     27275                       LEX            23540
          KW=GOTO     27301                       LEX            23513
          INIF        27440                       FEC            16604
                                                  LABEL          50534
          IFMOD       27442                       PAR            43063
          IFRESLT     27443                       PAR            43063
          IFREL2      27445                       PAR            41657     43245     45256
          IFLN        27446             
          KW=ELSE     27455                       LEX            23501
          KW=ENDI     27507                       LEX            23505
                                                  LABEL          50325
          IFS         27561                       LEX            23550
          IFS11       27573                       FERRS          21442
          IFFLAG      27746                       LABEL          50341     50375
          C=PJX       30126                       PAR            41617
          K$=COLL     30241   CDDIR               LEX            23554
          B=CDDIR     30241                       RPV00           1715
          K$=BEGC     30263                       LEX            23553
          K$=ENDC     30264                       LEX            23557
          K$=DO       30265                       LEX            23555
          K$=IF       30303                       LEX            23561
          K$=ELSE     30334                       LEX            23556
          K$=ENDI     30353                       LEX            23560
          K$=LIST     30371                       LEX            23562
          B=DATA      30530   DATA                RPV00           1716
          DAT.Z       30567                       FERRS          20776     20777     21001     21003     21005     21007
                                                  PAR            41670
                                                  CONRED         46560
          KW=DATA     30573                       LEX            23475
                                                  CONRED         46556
          DATA2       30621                       FERRS          20767     20770
          DATAFLG     30774                       CONRED         46477     46532     46544
          C=DVL       31021                       PAR            41606
          EDI         31056                       CONRED         47665
          CFC         31374                       PAR            42531
          CMV         31443                       DECL           33034
          CSC         31542                       DECL           32666
          B=DECL      31641   DECL                RPV00           1717
          KW=COMM     31660                       LEX            23472
                                                  PAR            42273
          KW=DIME     31762                       LEX            23477
          DIR         31777                       TYPE           35001
          DIRT        32047                       PAR            42274
          EDD         32167             
          CDBB        32266                       PAR            45441
          C=DBD       32272                       PAR            41614     41615
          A=DBD       32273                       PAR            41614     41615
          KW=EQUI     32474                       LEX            23507
          EQS80       32556                       FERRS          21215     21221     21222
          KW=EXTE     32563                       LEX            23510
          KW=INTR     32626                       LEX            23517
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    62  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=LEVE     32661                       LEX            23520
          LVL80       32755                       FERRS          21743     21745
          LVL90       32757                       FERRS          21735
          KW=PARA     32762                       LEX            23526
          PRMERR      33050                       FERRS          22100     22102
          KW=SAVE     33054                       LEX            23537
          SAVERR      33121                       FERRS          22112     22116     22120
          PCD         33124                       FEC            15645
          ACV         34135                       HEADER         26546
          KW=BOOL     34652   TYPE                LEX            23465
          B=TYPE      34652                       RPV00           1720
          KW=LOGI     34655                       LEX            23521
          KW=INTE     34656                       LEX            23516
          KW=REAL     34657                       LEX            23534
          KW=DOUB     34660                       LEX            23500
          KW=COMP     34661                       LEX            23473
          KW=CHAR     34662                       LEX            23470
          TYPA        35041             
          TYPD        35044                       FEC            16254
          KW=IMPL     35047                       LEX            23514
          IMP.ER      35174                       FERRS          22347     22351     22361     22363
          B=FMT       35272   FMT                 RPV00           1721
          KW=FORM     35371                       LEX            23511
                                                  LABEL          50260
          IODIR       36220   IO                  PAR            42330
          B=IO        36220                       RPV00           1722
          IONAM       36226             
          IODOLEN     36230                       LABEL          51436
          IODOIND     36231                       DATA           31025
          KW=BACK     36345                       LEX            23463
          KW=CLOS     36346                       LEX            23471
          KW=ENDF     36350                       LEX            23504
          KW=INQU     36351                       LEX            23515
          KW=OPEN     36353                       LEX            23523
          KW=REWI     36355                       LEX            23536
          KW=PRIN     36451                       LEX            23530
          KW=PUNC     36453                       LEX            23532
          KW=READ     36456                       LEX            23533
          KW=WRIT     36462                       LEX            23542
          KW=BUFF     36630                       LEX            23466
          BUFERR      36702                       FERRS          21614     21616     21620     21622     21624     21626     21630
                                                                 21635
          KW=DECO     36707                       LEX            23476
          KW=ENCO     36711                       LEX            23502
          IOJ         37066                       PAR            42257
          A=BMOD      37416                       PAR            41623
          A=BLWA      37426                       PAR            41625
          BLWA        37500                       FERRS          21637
          C=BFWA      37503                       PAR            41624
          C=CNT       37512                       PAR            41626
          A=FMT       37517                       PAR            41631
          C=FMT       37520                       PAR            41631
          C=FOU       37545                       PAR            41632
          A=FOU       37546                       PAR            41632
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    63  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          A=ICC       37556                       PAR            41633
          C=ICC       37557                       PAR            41633
          A=ICCX      37567                       PAR            41634
          C=ICCX      37570                       PAR            41634
          A=ICI       37576                       PAR            41635
          C=ICI       37577                       PAR            41635
          A=ICIX      37607                       PAR            41636
          C=ICIX      37610                       PAR            41636
          A=ICL       37620                       PAR            41637
          C=ICL       37621                       PAR            41637
          C=IOL       37631                       PAR            41640     41641
          A=STR       37672                       PAR            41642
          A=UNT       37677                       PAR            41643     42324
          C=UNT       37700                       PAR            41643
          CML         37704                       PAR            42337
          VAI         37763                       DATA           31022
          LST         40040                       FERRS          21537
          CVL         40122                       DATA           31002
          IDCEX       40670                       PAR            42545
          A=DOCI      40776                       PAR            41627
          C=DOCI      40777                       PAR            41627
          A=DOCS      41010                       PAR            41630     42544
          C=DOCS      41011                       PAR            41630
          PARNOW      41216   PAR                 FEC            16605
                                                  TYPE           35207
                                                  CONRED         46502
          B=PAR       41216                       RPV00           1723
          SMOD        41220                       CONRED         47034     47071
          SOPR        41221             
          CURST       41222                       FEC            16102     16255     16354
                                                  KEY            27003     27342     27537     27607     30036     30125
                                                  IO             37112     40140
                                                  LABEL          51107
          CNF         41246                       LEX            23551
          PIX         41256                       CDDIR          30501
                                                  DECL           32530     34354     34361
                                                  TYPE           35222
          PKX         41304                       CDDIR          30312
                                                  DECL           32775
          DO.BEG      41523                       LABEL          50740
          MULROP      41530             
          ARYOP       41533                       IO             40633
          DVLOP       41534                       DATA           31000
          ERROP       41535                       DECL           32300
                                                  IO             36702
          GAPOP       41542                       KEY            30213
          IOCTL       41544                       IO             37273     37743
          IODTA       41545                       IO             37665     40062     40072
          IOUNT       41546                       IO             36471     37116     37553
          NOOPP       41553                       KEY            27740
          OPBSS       41554                       FEC            16105
                                                  IO             36412     36446     40104     41121
                                                  LABEL          51105
          OPDUM       41556                       KEY            27734     27760     30136
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    64  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             41064     41070     41103     41107
                                                  LABEL          51067
          VD.EQ       41570                       DECL           32407
          VD.MI       41571                       DECL           32133     32142
          VD.MU       41572                       DECL           32357
          VD.PL       41573                       DECL           32121     32143
          VD.GP       41574                       DECL           34145
          CALLARM     41604                       KEY            26766
          DATARM      41606                       DATA           31000
          DOARM       41607                       LABEL          50623
          IFARM       41611                       KEY            27467     27562
          LBARM       41614                       DECL           32067
          UBARM       41615                       DECL           32073
          PJXARM      41617                       KEY            30120
          BUFMOD      41623                       IO             36653
          BUFFWA      41624                       IO             36664
          BUFLWA      41625                       IO             36671
          CNTARM      41626                       IO             36717
          DOCOLI      41627                       IO             40370
          DOCOLS      41630                       IO             40333
          FMTARM      41631                       IO             37164
          FOUARM      41632                       IO             36527
          ICCARM      41633                       IO             37246
          ICCXARM     41634                       IO             37251     37265
          ICIARM      41635                       IO             37254
          ICIXARM     41636                       IO             37256
          ICLARM      41637                       IO             37257
          IOARGM      41640                       IO             37057
          STRARM      41642                       IO             36734
          UNTARM      41643                       IO             36760
          PAR         41644                       KEY            26771     27471     27564     30123
                                                  DECL           32243
                                                  IO             36533     36657     36667     36675     36723     36737     36763
                                                                 37170     37267     37316     40151     41141
                                                  LABEL          50625
          PAR.NX      41677                       IO             41007     41036
          PAREXIT     42710                       DECL           32301     32324     32325     32327     32331
                                                  IO             37425     37502     37511     37516     37544     37562     37566
                                                                 37571     37575     37602     37603     37606     37614     37615
                                                                 37617     37624     37630     37676     37700     41004     41035
          IOL.RTN     42751                       DATA           31054
                                                  IO             37671
          POP.STD     43010                       KEY            30140
          C=CERR      43024                       KEY            30130
          C=ERR       43025                       IO             37656
          POP.DVA     43147             
          DTC         43551                       LABEL          50626
          EXD         43727                       CONRED         47740
          CF=AC       44053                       KEY            26772     27015     30210
          EAL         44264                       KEY            30213
          VEL         44516                       KEY            27007
          ACT         45241                       LABEL          50634     50657
          ADT         45247             
          CMR         45405                       KEY            30134
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    65  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DOA         45454                       IO             37764     40007
                                                  CONRED         47643
          ECC         45507                       KEY            30202
          EMT         45527                       FEC            15704     16106     16324     16465
                                                  HEADER         26020     26101     26204     26306     26324     26325     26571
                                                  KEY            26712     26774     27000     27056     27122     27254     27340
                                                                 27400     27433     27717     27737     27741     27764     27770
                                                                 30016     30057     30220
                                                  CDDIR          30260     30275     30406
                                                  DATA           30615     31053
                                                  DECL           32300     32357     32407     32467
                                                  IO             36413     36447     36472     36703     37101     37122     37300
                                                                 37554     37670     37746     40077     40105     40174     40176
                                                                 40202     40213     40221     40233     40537     40553     40562
                                                                 40571     40577     40611     40617     40635     40655     40657
                                                                 41067     41074     41106     41113     41121
                                                  LABEL          50707     50772     50777     51004     51072     51100     51105
          FAT         45552                       IO             37073
          GOL         45573                       IO             37524
          OMC         45626             
          SDM         45724             
          TPC         46137                       IO             36534     36764     37171     37270     37317     37632
          B=CONRE     46364   CONRED              RPV00           1724
          LVEC        46372             
          LLVEC       46374             
          RVEC        46376             
          RLVEC       46377             
          REG=T       46400                       QCGC           51535
                                                  GEN            60265     60275     60307     60311
          CTAA        46427             
          DEC         46446                       HEADER         26217
                                                  DATA           30727     31431
                                                  TYPE           35207
                                                  PAR            41731
          OCT         46607                       HEADER         26214
                                                  KEY            27230     27232
                                                  PAR            41727
          TNK         46634                       DATA           31342
          CCR         47026                       PAR            44034     44041     45273
          CTA         47060             
          PCC         47077                       PAR            43270
          PCR         47141                       PAR            43231
          PCR.1OP     47160                       PAR            43225
          PCR.2OP     47162                       PAR            43230
          PCR.RO      47164                       PAR            43222
          KCV         47344                       DATA           31433     31453
                                                  PAR            45416
          LCH         47373                       IO             36544     36767     37520     37611     37633
                                                  PAR            41320     43223     43226     43262     43265     43377     43401
                                                                 43536     44345     44360     45455
          LCT         47434                       IO             37416
                                                  PAR            41270     43100     43104     43111     43564     43612     43633
                                                                 43740     45043     45063     45066     45073     45130     45134
                                                                 45207     45414     45614     45616
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    66  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LABEL          50647     50674     50742     51022
          LIR         47451                       PAR            43621
          NBC         47457                       DATA           31370
                                                  PAR            41737     41766     45420
          NCS         47476                       DECL           32120     32132     32336
                                                  IO             36467     36755     37551     40172     40217     40535     40551
                                                                 40567     40604     40615
                                                  PAR            42020     43370     43732     44354     45005     45141     45146
                                                                 45223     45237
          SED         47514                       DATA           31013
          D=ARY       47520                       QSKEL          54561
          D=NOOP      47520                       QSKEL          54607
          D=SUBST     47520                       QSKEL          54467
          D=DOBD2     47520                       QSKEL          54624
          D=BSS       47520                       QSKEL          54560
          D=COLON     47520                       QSKEL          54466
          D=DVI       47616                       QSKEL          54622
          GPS         47717                       DECL           34423
          D=EXP.I     47735                       QSKEL          54623
          D=STR.I     47744                       QSKEL          54462
          D=DOBS      47765                       QSKEL          54537
          D=DOBL      47765                       QSKEL          54540
          D=DOBZS     47765                       QSKEL          54541
          D=DOBZL     47765                       QSKEL          54542
          D=DOC.S     47777                       QSKEL          54543
          D=DOC.L     47777                       QSKEL          54545
          B=STMTF     50023   STMTF               RPV00           1725
          SFD         50023                       LEX            23546
          SFDEX       50222                       FERRS          22146
          B=LABEL     50232   LABEL               RPV00           1726
          DOMODE      50232                       PAR            43523     43537
          CUL         50233                       LEX            23613
          GSL         50253                       FEC            15664
          ISL         50335                       KEY            26653     27313     27365     27431     27642
                                                  IO             37151     37262
                                                  PAR            42610
          STL0R       50522                       KEY            27314     27366     27434
          PSL         50524                       FERRS          20570     20612     20622     20677     21140     21152     21174
                                                                 21176     21200     21374     21376     21422     21430     21436
                                                                 21444     21446     21450     21452     21507     21523     21525
                                                                 21531     21533     21535     21542     21544     21546     21552
                                                                 21554     21556     21566     21572     21574     21642     21644
                                                                 21646     21660     21662     21664     21667     22010     22250
                                                                 22410
                                                  KEY            26654     26674     26723     26725     26740     27003     27036
                                                                 27037     27137     27237     27255     27261     27274     27276
                                                                 27300     27324     27330     27364     27402     27430     27462
                                                                 27506     27514     27552     27553     27557     27625     27656
                                                                 27660
                                                  IO             36411     36414     36445     36450     36701     36704     37263
                                                                 40050     40107
                                                  PAR            41255     41773     42077     42310     42745     42747     42750
                                                                 43453
                                                  CONRED         46557     46650
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    67  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=DO       50545                       LEX            23547
          CDI         50566                       IO             40250
          CDIFLG      51020                       PAR            42657     42750     43452
          PDT         51026                       IO             40266
          ALU         51132                       KEY            27556
          DDR         51202                       IO             37772
                                                  PAR            43321     43511
          FBS         51231                       KEY            27530     30010
          PDA         51367                       FEC            17013
                                                  KEY            26756     27245
                                                  PAR            42432
          RBE         51376                       KEY            27526     30006
          B=QCGC      51477   QCGC                RPV00           1727
          REG=GP      51477             
          REG=GL      51477             
          REG=G       51477                       FUN            55272     56003     56005     56007     56013     56014     56017
                                                                 56021     56050
                                                  GEN            60316     60323     60711     60712     61176     61607     61612
                                                                 61674     61677     61712
          CII         51505                       FAS            63117
          N$IT        51505             
          N$OT        51506             
          DRITE       51507                       REG            56242     56251     56275     57314     57331
                                                  GEN            60223
          NOLDS       51512                       REG            57700
          RGC         51513                       REG            57746
                                                  GEN            60077
          RGX         51514                       REG            56204     56216     56532     56642     57416     57440     57750
                                                  GEN            60075
          RREG        51515                       REG            56244     56246     56502     57137     57415     57522     57604
                                                  GEN            60146     60212     60336     60472     60476
          TRACE       51516                       FUN            55066     55720
                                                  GEN            60577     60604     60652
          TYPLOD      51517                       REG            57524     57627     57674     57703
                                                  GEN            60331     60353     60413     60425     60431     60450
          UUC         51520                       FUN            54716
                                                  REG            57445     57464     57574     57577     57601
                                                  GEN            60114     60155     60317     60321     60325     60327     60411
                                                                 60447     60465     60504     60514
          WQ.CS       51521             
          WQ.DOOT     51522             
          CAI         51523                       QCGLINK         4611
          PIG         51551                       GEN            60746
          DUC.        51621                       FEC            15477     15500     15501     15502     15503     15507     15511
                                                                 15512     15536     15537     15543     15544     15546     15547
                                                                 15550     15551     15552     15553     15561     15562     15563
                                                                 15564
          DUC.1ST     51624                       FSNAP          13577
                                                  FEC            15517     15527     15541     15554     15560
          DUC.2ND     51630                       FSNAP          13603
                                                  FEC            15555     15557
          DUC.BTH     51634                       FSNAP          13601
                                                  FEC            15513     15514     15515     15516     15520     15521     15522
                                                                 15523     15524     15525     15526     15530     15531     15532
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    68  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 15533     15534     15535     15540     15542     15556
          POS         51652                       FUN            55271     55624     56004     56006     56047
                                                  GEN            61673     61676     61711
          RED         51672                       GEN            60112
          DPT         51756             
          QCP         51766                       FEC            15603
          SMB         52004                       REC            62130
          WTE         52017                       GEN            61545
                                                  INIT00         67332
          WIN         52022                       FUN            55065     55745
                                                  REG            56302     56353     56400     56413     56441     56451     56675
                                                                 56733     56763     56767     56774     57001     57056     57113
                                                                 57123     57133     57161     57273     57353     57570     57671
                                                                 57720     57726
                                                  GEN            60227     60267     60377     60444     60503     60606     60615
                                                                 60623     60627     60664     60726     60731     60733     60757
                                                                 60762     60770     60772     60775     61000     61003     61014
                                                                 61017     61022     61026     61031     61034     61037     61042
                                                                 61045     61050     61066     61071     61107     61112     61220
                                                                 61223     61230     61233     61236     61254     61260     61263
                                                                 61267     61302     61310     61313     61324     61326     61335
                                                                 61342     61345     61350     61353     61357     61362     61375
                                                                 61426     61454     61457     61472     61475     61501     61505
                                                                 61512     61516     61521     61523     61526     61530     61532
                                                                 61534     61540     61554     61560     61562     61565     61572
                                                                 61574     61600     61603     61617     61621     61624     61626
                                                                 61631     61633     61636     61640     61643     61645     61650
                                                                 61653     61657     61663     61704     61706
                                                  INIT00         67332
          ITS         52265                       GEN            61331
          F.SKNAM     52355   QSKEL               FSNAP          13560
                                                  PAR            46121
          B=QSKEL     52627                       RPV00           1730
          F.SKEL      52627                       CONRED         47062
                                                  GEN            60115
                                                  INIT00         67334
          SKEND       54103             
          OM=ADD      54104                       PAR            41460
          OM=SUB      54105                       PAR            41461     41515
          OM=MUL      54106                       PAR            41462     41514
          OM=DIV      54107                       PAR            41463     41513
          OM=UMI      54110                       PAR            41464
          OM=LT       54111                       PAR            41466     41473     41576
          OM=GE       54113                       PAR            41467     41472     41575
          OM=NE       54115                       PAR            41471     41577
          OM=EQ       54117                       PAR            41470     41600
          OM=NOT      54121                       PAR            41474
          OM=AND      54122                       PAR            41475
          OM=OR       54123                       PAR            41501
          OM=EQV      54124                       PAR            41500
          OM=XOR      54125                       PAR            41476     41477
          OM=STR      54126                       PAR            41505
          OM=DOC      54130                       PAR            41527
          F.MODC      54132                       PAR            45406     45766
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    69  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          F.IFS       54142                       KEY            27626     27721     27723
          F.IFN       54151                       KEY            27724
          F.INTF      54157                       FEC            17207
                                                  DECL           32651
                                                  TYPE           34742
                                                  PAR            42122     42170     44330     44501     44551     44564     44570
                                                                 44604     44670     44700
          F.IMCV      54406                       PAR            44714
          F.SKCR      54412                       PAR            44022     45266
          F.SCT       54412                       CONRED         47525
                                                  QCGC           51644
                                                  GEN            60113
          B=FUN       54664   FUN                 RPV00           1731
          O=FAP       54664                       QSKEL          53557
          O=LIBF      54675                       QSKEL          53637
          O=FUN       54676                       QSKEL          53636
          O=GAP       54727                       QSKEL          53556
          O=HLEX      54733                       QSKEL          53007     53032     53066     53122
          O=HREL      54735                       QSKEL          53005     53027     53061     53115
          O=HSTO      54764                       QSKEL          53130
          O=IAP       55001                       QSKEL          53560
          O=INF       55011                       QSKEL          53640
          O=IOC       55015                       QSKEL          53567
          O=IOD       55032                       QSKEL          53570
          O=IOF       55047                       QSKEL          53641
          O=IOU       55071                       QSKEL          53571
          O=LIB       55113                       QSKEL          53645     53646
          O=SUB       55114                       QSKEL          53635
          ESC         55321                       REG            56756     57714
          UAP         55504                       GEN            61610
          O=LURET     55523                       QSKEL          53631
          O=APRET     56030                       QSKEL          53573     53602
          O=SCRET     56055                       QSKEL          53605     53616     53627
          O=SURET     56073                       QSKEL          53634
          APLFLG      56110                       QCGC           51526
          B=REG       56150   REG                 RPV00           1732
          RG=BADR     56150             
          RG=INTR     56153                       GEN            60077
          RG=TEMP     56156                       GEN            60100     60417
          RG=LOAD     56161                       GEN            60101     60347
          RG=LODX     56164                       GEN            60102     60366     60423
          RG=SET      56167             
          RG=STOR     56172                       GEN            60103
          AIR         56175                       GEN            60520
          ASR         56207                       GEN            60471     60516     60521
          CDS         56241                       QCGC           51541
                                                  FUN            55047
                                                  GEN            60253     60341     60601     60635     61172
          CIA         56260                       FUN            55050     55724
                                                  GEN            60225     60603     60613     60624     60630     61173
          CLI         56313                       GEN            60433
          CRJ         56401                       FUN            55012     55067     55721
                                                  GEN            60653
          CWI         56430                       FUN            56013     56020
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    70  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DIT         56455                       FUN            54717     54724
                                                  GEN            60524
          DSC         56477                       GEN            60347
          GNR         56530                       GEN            60373     60423
          GST         56611                       FUN            55752     56015
                                                  GEN            60426
          GSTC        56637                       GEN            60350
          GTR         56640                       GEN            60262     60304
          LSC         57135                       GEN            60367
          LTG         57166                       GEN            60364
          RLL         57174                       GEN            60456     60470     60550
          RUL         57201                       GEN            60235     60474     60555
          REGLK       57210                       GEN            60076     60234     60237     60545     60551
          CLOADJ      57212                       GEN            60554
          STRGLK      57213                       GEN            60076     60400
          RUT         57222                       FUN            55525
                                                  GEN            60270     60271     60523
          SDS         57313                       GEN            60507
          SFR         57414                       GEN            60417
          STS         57444                       FUN            56011     56016
                                                  GEN            60416     60452
          O=PAR       57507                       QSKEL          53555
          SLD         57512                       GEN            60345     60505
          P2=KEEP     57771                       GEN            60352
          B=GEN       60073   GEN                 RPV00           1733
          EIS         60073                       QCGC           51540
          EIS.PNX     60105                       FUN            54674     54732     55031     55045     55112
                                                  REG            57511
          SUB.RET     60115                       FUN            55006     55527     56027     56054     56075
          O=HSBS      60230                       QSKEL          53133
          NULLOP      60230                       FUN            54666     54714     54725     54761     55000     55070     55125
          O=HCOL      60230                       QSKEL          53132
          O=NOOP      60230                       QSKEL          53721     53740
          O=BVD       60230                       QSKEL          53662
          O=HCAT      60230                       QSKEL          53131
          CURSK       60241                       FUN            54740     54761     54764     54776
          EIS.GP      60316             
          INS.REG     60564                       REG            57044     57047     57260
          IJK         60566                       REG            57257
          RUT.REG     60573                       REG            56263     57246
          O=CAR       60630                       QSKEL          53421     53427     53532     53550     53644     53733
          O=CBJ       60632                       QSKEL          53517     53551
          O=CDW       60635                       QSKEL          53642     53647     53653     53732
          O=PLA       60644                       QSKEL          53554
          O=CRJ       60647                       QSKEL          53643
          O=CDCS      60655                       QSKEL          53730
          O=CDDOT     60657                       QSKEL          53727
          O=CDLOO     60661                       QSKEL          53726
          OCIOL       60665                       QCGC           52003
          O=ENT       60666                       QSKEL          53661
          O=GENT      60676                       QSKEL          53670
          O=GENTX     60700                       QSKEL          53717
          O=FPENT     60715                       QSKEL          53715
          O=FPHDR     60752                       QSKEL          53706
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    71  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ISA         60754             
          O=EVD       61172                       QSKEL          53663
          O=FUNT      61177                       QSKEL          53674
          O=MENT      61210                       QSKEL          53671
          ENT.EGL     61242                       QCGC           51775
          ENT.STO     61243             
          ENT.SUB     61244                       FUN            55713
          ENT.SB0     61245                       REG            57121
          ENT.VD      61246                       QCGC           51556
          N.ALTEN     61247             
          O=FIN       61305                       QSKEL          53734
          O=FINX      61322                       QSKEL          53667     53707
          O=GFD       61446                       QSKEL          53723
          O=HDR       61477                       QSKEL          53722
          O=DATA      61535                       QSKEL          53731
          O=ILL       61550                       QSKEL          52627     53736     53737
          O=LCC       61551                       QSKEL          53735
          O=PLIM      61555                       QSKEL          53724
          O=RGT       61605                       QSKEL          53535
          O=SEX       61614                       QSKEL          53725
          O=IM        61664                       QSKEL          52665
          O=ID        61665                       QSKEL          52713
          O=MASK      61666                       QSKEL          53361
          O=MOD       61667                       QSKEL          53371
          O=SHIFT     61670                       QSKEL          53413
          O=DOB       61671                       QSKEL          53422     53430
          O=DOBZ      61672                       QSKEL          53416     53431
          O=DOC       61675                       QSKEL          53435     53444     53452     53457     53463
          O=PDE       61700                       QSKEL          53443     53447
          O=PCG       61701                       QSKEL          53533
          O=PASG      61707                       QSKEL          53552
          B=REC       61740   REC                 RPV00           1734
          WO.56       61740                       FAS            63615
          WO.57       61741                       FAS            63612
          REC         61742                       QCGLINK         4602
          ADA         62252                       FAS            64105
          BT.IDNT     62411   FAS                 REC            62040
          B=FAS       62411                       RPV00           1735
          BT.XFR1     62472             
          CIDMOD      62476             
          COMMOD      62477             
          FCLMOD      62501             
          FAPSUD      62543             
          ORG         62612             
          PARCEL      62613             
          ORGSUB      62614             
          SUBFLG      62615             
          ORGSUB0     62616             
          TAGSUB0     62617             
          OL=BIN      62620             
          OL=LBF      62621             
          OL=PB       62622             
          OL=RL       62623             
          FAS         62632                       REC            62022
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    72  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          APLA        62747             
          RADRTN      63101                       REC            61774     61776
          RADOL1      63144                       REC            61776
          RADOL2      63164                       REC            62000
          RADC        63374             
          BST         63411                       REC            61767
          BST.EQ      63412                       REC            61771
          CAB         63450             
          CLE         63460                       REC            62004
          CLE.EQ      63461                       REC            62005
          DLF         63737                       ALLOC          23176
          ESL         64044                       REC            62006
          ESL.EQ      64045                       REC            62007
          FBP         64065                       REC            62000
          FBP.EQ      64066                       REC            62002
          POL         64637                       REC            61772
          POL.EQ      64640                       REC            61774
          RNI         64770             
          SNR         65015                       REC            62107
          WLF         65062                       REC            61765
          WLF.EQ      65063                       REC            61767
          LUS         65145   ZEROLNK             PUC             3703
          MAP         65145                       REC            61755
          VFD         65145                       FAS            63144     63165
          PIK         65145                       FAS            64644
          B=ZEROL     65145                       RPV00           1736      1737
          MOVES       65147                       FEC            16471
                                                  ALLOC          23316
          PARSLEN     65147                       FEC            16337
          ALC=CNT     65147                       FEC            16470
                                                  ALLOC          23006
          B=INIT0     65150   INIT00              RPV00           1740
          FIN.OL      65150   ZEROLNK             INIT00         66073     67265
          FTN         65150   INIT00    
          FIN         65150   ZEROLNK             INIT00         67272
          FIN.MAP     65150                       INIT00         67267
          B=LWA00     67634   INIT00              RPV00           1741
  
  
  
  
  
 -------- OVERLAY(FTN,1,0,O=FWA10)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD           1700
          LWA+1 OF THE LOAD        73500
  
          TRANSFER ADDRESS -- FTN10          73324          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    73  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN510         1700      775    OVR      24/05/05 COMPASS 3.7 871               FTN5 PRIMARY OVERLAY FOR QCG. 
          RPV10          2675       51    OVR      24/05/05 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          UTILITY        2746     1052    OVR      24/05/05 COMPASS 3.7 871               COMMON UTILITY ROUTINES.      
          LISTLNK        4020      232    OVR      24/05/05 COMPASS 3.7 871               MISC OUTPUT ROUTINES
          PUC            4252     1552    OVR      24/05/05 COMPASS 3.7 871               PROGRAM UNIT CONTROLLER AND SUPPORT.    
          QCGLINK        6024       23    OVR      24/05/05 COMPASS 3.7 871               QCG MODE LINKAGE ROUTINES.    
          IDP            6047     6532    OVR      24/05/05 COMPASS 3.7 871               INTERACTIVE DEBUG PACKAGE     
          CPULFM        14601        0    OVR      24/05/05 COMPASS 3.7 871               
          FSNAP         14601     1017    OVR      24/05/05 COMPASS 3.7 871               FRONT-END TEST MODE SNAP PACKAGE.       
          /RGFILE/      15620      500
          /HASH/        16320      200
          FEC           16520     2017    OVR      24/05/05 COMPASS 3.7 871               FRONT END CONTROLLER AND SUPPORT.       
          FERRS         20537     3134    OVR      24/05/05 COMPASS 3.7 871               FRONT END ERROR TEXTS.        
          PEM           23673      330    OVR      24/05/05 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         24223      420    OVR      24/05/05 COMPASS 3.7 871               TABLE ALLOCATION.   
          LEX           24643     2402    OVR      24/05/05 COMPASS 3.7 871               LEXICAL SCANNER.    
          HEADER        27245      636    OVR      24/05/05 COMPASS 3.7 871               PROGRAM UNIT HEADER STATEMENTS.         
          KEY           30103     1372    OVR      24/05/05 COMPASS 3.7 871               KEYWORD STATEMENT TRANSLATION.
          CDDIR         31475      267    OVR      24/05/05 COMPASS 3.7 871               C$ DIRECTIVE PROCESSING.      
          DATA          31764     1111    OVR      24/05/05 COMPASS 3.7 871               TRANSLATE DATA STATEMENTS.    
          DECL          33075     3011    OVR      24/05/05 COMPASS 3.7 871               DECLARATIVE PHASE STATEMENTS. 
          TYPE          36106      420    OVR      24/05/05 COMPASS 3.7 871               EXPLICIT / IMPLICIT TYPE DECLARATIONS.  
          FMT           36526      726    OVR      24/05/05 COMPASS 3.7 871               FORMAT STATEMENT PROCESSOR.   
          IO            37454     2776    OVR      24/05/05 COMPASS 3.7 871               INPUT/OUTPUT STATEMENT PROCESSING.      
          PAR           42452     5146    OVR      24/05/05 COMPASS 3.7 871               EXPRESSION TRANSLATION.       
          CONRED        47620     1437    OVR      24/05/05 COMPASS 3.7 871               FRONT END CONSTANT ARITHMETIC.
          STMTF         51257      207    OVR      24/05/05 COMPASS 3.7 871               STATEMENT FUNCTION PROCESSOR. 
          LABEL         51466     1245    OVR      24/05/05 COMPASS 3.7 871               LABELS AND *DO* STATEMENT.    
          QCGC          52733      656    OVR      24/05/05 COMPASS 3.7 871               QUICK CODE GENERATOR CONTROLLER.        
          /SKLNAM/      53611      252
          QSKEL         54063     2035    OVR      24/05/05 COMPASS 3.7 871               (QCG)   INSTRUCTION SKELETON CONSTRUCTION.     
          FUN           56120     1264    OVR      24/05/05 COMPASS 3.7 871               (QCG)    EXTERNAL PROCEDURE INVOCATION. 
          REG           57404     1723    OVR      24/05/05 COMPASS 3.7 871               (QCG)    RESOURCE ALLOCATION. 
          GEN           61327     1645    OVR      24/05/05 COMPASS 3.7 871               (QCG)    QUICK CODE GENERATOR.
          REC           63174      451    OVR      24/05/05 COMPASS 3.7 871               REAR END CONTROLLER.
          FAS           63645     2534    OVR      24/05/05 COMPASS 3.7 871               FORTRAN INTERNAL ASSEMBLER.   
          MAP           66401     3326    OVR      24/05/05 COMPASS 3.7 871               STORAGE MAP AND CROSS REFERENCE.        
          LIST          71727     1375    OVR      24/05/05 COMPASS 3.7 871               OBJECT CODE LISTING ROUTINES. 
          INIT10        73324      154    OVR      24/05/05 COMPASS 3.7 871               REINITIALIZATION / AFTER COMPASS ASSEMBLY.     
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=NOT.L       *WEAK*                    QSKEL          55732
          D=OR.L        *WEAK*                    QSKEL          55735
          D=PAUS        *WEAK*                    QSKEL          56033
          D=PLIM        *WEAK*                    QSKEL          56046
          D=RANF        *WEAK*                    QSKEL          55771
          D=RET         *WEAK*                    QSKEL          56034
          D=RGOTO       *WEAK*                    QSKEL          56012
          D=RNN3        *WEAK*                    QSKEL          56100
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    74  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=RN22        *WEAK*                    QSKEL          56074
          D=ABS         *WEAK*                    QSKEL          55737
          D=ADD.C       *WEAK*                    QSKEL          55652
          D=ADD.D       *WEAK*                    QSKEL          55651
          D=ADD.I       *WEAK*                    QSKEL          55647
          D=ADD.R       *WEAK*                    QSKEL          55650
          D=AGOTO       *WEAK*                    QSKEL          56007
          D=AIMAG       *WEAK*                    QSKEL          55741
          D=AINT        *WEAK*                    QSKEL          55742
          D=AMAX1       *WEAK*                    QSKEL          55750
          D=AMIN1       *WEAK*                    QSKEL          55751
          D=AMOD        *WEAK*                    QSKEL          55752
          D=AND.L       *WEAK*                    QSKEL          55733
          D=ANINT       *WEAK*                    QSKEL          55743
          D=APIOC       *WEAK*                    QSKEL          56021
          D=APIOD       *WEAK*                    QSKEL          56022
          D=APIOU       *WEAK*                    QSKEL          56023
          D=INE.I       *WEAK*                    QSKEL          56114
          D=ASSGN       *WEAK*                    QSKEL          56013
          D=SUB.D       *WEAK*                    QSKEL          55655
          D=BVD         *WEAK*                    QSKEL          56040
          D=CAT         *WEAK*                    QSKEL          55721
          D=CDCS        *WEAK*                    QSKEL          56052
          D=CDDOT       *WEAK*                    QSKEL          56051
          D=CDLOO       *WEAK*                    QSKEL          56050
          D=CGOTO       *WEAK*                    QSKEL          56010
          D=CMPLX       *WEAK*                    QSKEL          55754
          D=ITOB        *WEAK*                    QSKEL          55725
          D=CONJG       *WEAK*                    QSKEL          55753
          D=DABS        *WEAK*                    QSKEL          55755
          D=DATA        *WEAK*                    QSKEL          56053
          D=DDIM        *WEAK*                    QSKEL          55756
          D=DIM         *WEAK*                    QSKEL          55757
          D=DINT        *WEAK*                    QSKEL          55760
          D=DIV.C       *WEAK*                    QSKEL          55666
          D=DIV.D       *WEAK*                    QSKEL          55665
          D=DIV.I       *WEAK*                    QSKEL          55663
          D=DIV.R       *WEAK*                    QSKEL          55664
          D=DMAX1       *WEAK*                    QSKEL          55745
          D=DMIN1       *WEAK*                    QSKEL          55747
          D=DNINT       *WEAK*                    QSKEL          55762
          D=LCC         *WEAK*                    QSKEL          56055
          D=LCIF        *WEAK*                    QSKEL          56005
          D=LEQ         *WEAK*                    QSKEL          55715
          D=LGE         *WEAK*                    QSKEL          55703
          D=LIBF        *WEAK*                    QSKEL          56026
          D=DOC.D       *WEAK*                    QSKEL          56003
          D=LNE         *WEAK*                    QSKEL          55710
          D=DOC.O       *WEAK*                    QSKEL          56000
          D=DOC.R       *WEAK*                    QSKEL          56002
          BN=STRT         0   PUC                 GEN            62455     62545
          D=DPROD       *WEAK*                    QSKEL          55761
          D=DSIGN       *WEAK*                    QSKEL          55763
          D=DTOC        *WEAK*                    QSKEL          55731
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    75  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=DVC.R       *WEAK*                    QSKEL          55667
          D=MOD         *WEAK*                    QSKEL          55770
          D=ENTR        *WEAK*                    QSKEL          56037
          D=EQV.L       *WEAK*                    QSKEL          55734
          D=EQ.D        *WEAK*                    QSKEL          55713
          D=EQ.H        *WEAK*                    QSKEL          55714
          D=EQ.I        *WEAK*                    QSKEL          55711
          D=EQ.R        *WEAK*                    QSKEL          55712
          D=ERR         *WEAK*                    QSKEL          56031
          D=EVD         *WEAK*                    QSKEL          56041
          D=ITOD        *WEAK*                    QSKEL          55726
          D=FAP         *WEAK*                    QSKEL          56017
          D=FILE        *WEAK*                    QSKEL          56045
          D=FIN         *WEAK*                    QSKEL          56054
          D=FUNC        *WEAK*                    QSKEL          56025
          D=GAP         *WEAK*                    QSKEL          56016
          D=GE.D        *WEAK*                    QSKEL          55701
          D=GE.H        *WEAK*                    QSKEL          55702
          D=GE.I        *WEAK*                    QSKEL          55677
          D=GE.R        *WEAK*                    QSKEL          55700
          D=GOTO        *WEAK*                    QSKEL          56006
          D=GPL         *WEAK*                    QSKEL          56036
          D=HDR         *WEAK*                    QSKEL          56044
          D=IAP         *WEAK*                    QSKEL          56020
          D=IDIM        *WEAK*                    QSKEL          55766
          D=IDNIN       *WEAK*                    QSKEL          55764
          D=IEQ.C       *WEAK*                    QSKEL          56113
          D=IEQ.D       *WEAK*                    QSKEL          56112
          D=IEQ.I       *WEAK*                    QSKEL          56110
          D=IEQ.R       *WEAK*                    QSKEL          56111
          D=IFF         *WEAK*                    QSKEL          56106
          D=IFT         *WEAK*                    QSKEL          56105
          D=ILL         *WEAK*                    QSKEL          55646
          D=INE.C       *WEAK*                    QSKEL          56117
          D=INE.D       *WEAK*                    QSKEL          56116
          D=SUBR        *WEAK*                    QSKEL          56024
          D=INE.R       *WEAK*                    QSKEL          56115
          D=INN3        *WEAK*                    QSKEL          56077
          D=INTF        *WEAK*                    QSKEL          56027
          D=IN2N        *WEAK*                    QSKEL          56103
          D=IN22        *WEAK*                    QSKEL          56073
          D=IN23        *WEAK*                    QSKEL          56067
          D=IOLC        *WEAK*                    QSKEL          56004
          D=IOSUB       *WEAK*                    QSKEL          56030
          D=ISIGN       *WEAK*                    QSKEL          55765
          D=NE.R        *WEAK*                    QSKEL          55705
          D=LLT         *WEAK*                    QSKEL          55676
          D=ITOR        *WEAK*                    QSKEL          55724
          D=I1NN        *WEAK*                    QSKEL          56075
          D=I1N1        *WEAK*                    QSKEL          56104
          D=I1N3        *WEAK*                    QSKEL          56070
          D=I11N        *WEAK*                    QSKEL          56101
          D=I111        *WEAK*                    QSKEL          56107
          D=I113        *WEAK*                    QSKEL          56064
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    76  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=I12N        *WEAK*                    QSKEL          56072
          D=I121        *WEAK*                    QSKEL          56066
          D=I122        *WEAK*                    QSKEL          56062
          D=I123        *WEAK*                    QSKEL          56061
          D=JGOTO       *WEAK*                    QSKEL          56011
          D=R1NN        *WEAK*                    QSKEL          56076
          D=R1N3        *WEAK*                    QSKEL          56071
          D=R11N        *WEAK*                    QSKEL          56102
          D=R113        *WEAK*                    QSKEL          56065
          D=R122        *WEAK*                    QSKEL          56063
          D=SEG         *WEAK*                    QSKEL          56042
          D=SEX         *WEAK*                    QSKEL          56047
          D=LT.D        *WEAK*                    QSKEL          55674
          D=LT.H        *WEAK*                    QSKEL          55675
          D=LT.I        *WEAK*                    QSKEL          55672
          D=LT.R        *WEAK*                    QSKEL          55673
          D=MASK        *WEAK*                    QSKEL          55767
          D=MAX0        *WEAK*                    QSKEL          55744
          D=MIN0        *WEAK*                    QSKEL          55746
          D=SUB.C       *WEAK*                    QSKEL          55656
          D=MUL.C       *WEAK*                    QSKEL          55662
          D=MUL.D       *WEAK*                    QSKEL          55661
          D=MUL.I       *WEAK*                    QSKEL          55657
          D=MUL.R       *WEAK*                    QSKEL          55660
          D=NE.D        *WEAK*                    QSKEL          55706
          D=NE.H        *WEAK*                    QSKEL          55707
          D=NE.I        *WEAK*                    QSKEL          55704
          D=STOP        *WEAK*                    QSKEL          56032
          V=IEQ.B       *WEAK*                    PAR            44503
          USY=FE        *WEAK*                    INIT10         73334
          D=SHIFT       *WEAK*                    QSKEL          55772
          V=INE.L       *WEAK*                    PAR            44504
          D=STR.D       *WEAK*                    QSKEL          55717
          D=STR.H       *WEAK*                    QSKEL          55720
          FAA=          *WEAK*                    IDP            11277     11300
          D=RTOD        *WEAK*                    QSKEL          55730
          D=RTOI        *WEAK*                    QSKEL          55727
          ES=CMPL         0   PAR                 QSKEL          55443
          D=RTNK        *WEAK*                    QSKEL          56035
          D=UMI.I       *WEAK*                    QSKEL          55670
          D=XOR.L       *WEAK*                    QSKEL          55736
          UTK=          *WEAK*                    FSNAP          15553     15554
          V=IEQ.L       *WEAK*                    PAR            44504
          UFO=          *WEAK*                    IDP            12702     12703
          UTG=          *WEAK*                    FSNAP          15547     15550
          D=SUB.I       *WEAK*                    QSKEL          55653
          D=SUM1S       *WEAK*                    QSKEL          55740
          V=INE.H       *WEAK*                    PAR            44511
          ERR.A           0   PUC                 FERRS          22016     22020     22022     22024     22026     22030     22032
                                                                 22102     22103     22104     22122     22131     22155     22226
                                                                 22264     22301     22420     22513     22564     22644     22662
                                                                 23014     23104     23121     23127     23364     23422     23427
                                                                 23533
          V=DOC.1       *WEAK*                    LABEL          52205
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    77  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=SUB.R       *WEAK*                    QSKEL          55654
          V=INE.B       *WEAK*                    PAR            44503
          D=UMI.D       *WEAK*                    QSKEL          55671
          FEC=1ST         0   FEC                 LEX            24720     24746     24760     24761     24765     24775
                                                  TYPE           36125
          V=ILL           0   QSKEL     
          V=IEQ.H       *WEAK*                    PAR            44511
          UFR=          *WEAK*                    IDP            12706     12707
          V=ADD.B         1             
          ERR.M           1   PUC                 FERRS          23303     23304     23306     23310     23312     23314
          BN=CODE         1                       GEN            63102
          FEC=IMP         1   FEC                 LEX            24750
                                                  HEADER         27443
          V=ADD.I         1   QSKEL               IO             41435     42015     42033
                                                  PAR            42753     43027     47310
          FEC=DEC         2   FEC                 LEX            24726     24733     24743     24744     24753     24754     24773
          RPV=FVT         2   FTN                 UTILITY         3160
          BN=CON          2   PUC                 FEC            16605
                                                  GEN            63050
          V=ADD.R         2   QSKEL     
          ERR.D           2   PUC                 FERRS          23271     23272     23274     23276     23302
          ERR.T           3                       FERRS          22166     22275     22360     22566     22575     22634     22642
                                                                 22646     22647     22666     22670     23242     23244     23260
                                                                 23404     23554     23660     23662     23664     23670
          V=ADD.D         3   QSKEL     
          FEC=STF         3   FEC                 LEX            25002
                                                  HEADER         27745
                                                  KEY            30322
                                                  DECL           34361
          BN=FMT          3   PUC                 FEC            16613
                                                  GEN            63056
          L.FILL          3   FERRS               PEM            23702
          FV.OUT          3   FTN                 PUC             5341      5346      5626
          FEC=EXU         4   FEC                 LEX            24716     24717     24722     24723     24725     24730     24732
                                                                 24735     24736     24740     24741     24747     24751     24757
                                                                 24763     24764     24766     24767     24771     24772     24774
                                                                 24776     25003     25004     25005     25415
                                                  DATA           32031
                                                  PAR            43432
          V=ADD.C         4   QSKEL     
          BN=TEM          4   PUC                 QCGC           53522
                                                  GEN            62506     62602     62611
          Z.IMCV          4   QSKEL               PAR            46150
          ERR.W           4   PUC                 FERRS          22004     22010     22054     22055     22060     22071     22110
                                                                 22135     22137     22202     22221     22223     22224     22272
                                                                 22277     22315     22404     22422     22424     22426     22432
                                                                 22434     22453     22457     22470     22507     22511     22541
                                                                 22610     22614     22640     22723     22725     22733     22735
                                                                 22763     22773     23073     23125     23165     23171     23177
                                                                 23217     23235     23332     23344     23350     23370     23372
                                                                 23400     23412     23507     23516     23520     23526     23552
                                                                 23556     23575     23607     23613     23621     23641
          ERR.F           5                       FERRS          22000     22002     22006     22012     22014     22034     22036
                                                                 22040     22042     22044     22046     22050     22052     22056
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    78  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 22062     22065     22067     22073     22075     22100     22106
                                                                 22112     22114     22116     22120     22123     22125     22127
                                                                 22133     22141     22143     22145     22147     22151     22153
                                                                 22157     22161     22163     22165     22170     22172     22174
                                                                 22176     22200     22205     22207     22211     22213     22215
                                                                 22217     22230     22232     22233     22235     22237     22241
                                                                 22243     22245     22247     22251     22253     22255     22257
                                                                 22261     22263     22266     22270     22274     22303     22305
                                                                 22307     22311     22313     22317     22321     22323     22325
                                                                 22327     22331     22334     22336     22340     22342     22345
                                                                 22350     22352     22354     22356     22362     22364     22366
                                                                 22370     22372     22374     22376     22400     22402     22406
                                                                 22410     22412     22414     22416     22430     22436     22441
                                                                 22443     22445     22447     22451     22455     22456     22461
                                                                 22464     22466     22472     22474     22476     22500     22503
                                                                 22505     22515     22517     22521     22523     22525     22527
                                                                 22531     22533     22535     22537     22543     22545     22550
                                                                 22552     22554     22556     22560     22562     22571     22573
                                                                 22577     22602     22603     22605     22613     22615     22617
                                                                 22621     22623     22626     22627     22630     22632     22636
                                                                 22651     22653     22655     22656     22660     22664     22672
                                                                 22674     22676     22700     22702     22704     22706     22707
                                                                 22711     22713     22715     22717     22721     22727     22731
                                                                 22737     22741     22743     22744     22747     22751     22753
                                                                 22755     22757     22761     22765     22767     22771     22775
                                                                 22776     23000     23002     23004     23006     23010     23012
                                                                 23016     23020     23022     23024     23026     23030     23032
                                                                 23034     23036     23040     23042     23044     23046     23050
                                                                 23052     23054     23056     23060     23062     23064     23067
                                                                 23071     23076     23100     23102     23106     23110     23112
                                                                 23114     23116     23120     23123     23131     23133     23135
                                                                 23137     23141     23143     23145     23147     23150     23151
                                                                 23153     23156     23161     23163     23167     23173     23175
                                                                 23201     23203     23205     23207     23211     23213     23215
                                                                 23221     23223     23224     23226     23227     23231     23233
                                                                 23237     23240     23246     23250     23252     23254     23256
                                                                 23262     23266     23267     23300     23315     23316     23320
                                                                 23322     23324     23326     23330     23334     23336     23340
                                                                 23342     23346     23352     23354     23356     23360     23362
                                                                 23366     23374     23376     23402     23406     23410     23414
                                                                 23416     23420     23424     23432     23434     23437     23441
                                                                 23443     23445     23447     23451     23453     23455     23457
                                                                 23461     23464     23466     23470     23472     23474     23476
                                                                 23500     23502     23504     23506     23512     23514     23522
                                                                 23524     23530     23535     23537     23542     23544     23546
                                                                 23550     23560     23563     23565     23567     23570     23572
                                                                 23577     23601     23603     23605     23611     23615     23617
                                                                 23623     23625     23627     23631     23633     23635     23637
                                                                 23643     23644     23646     23650     23652     23654     23656
                                                                 23666     23672
          FV.LGO          5   FTN                 PUC             5050      5331
                                                  REC            63214     63301     63407
                                                  FAS            64103     64305
                                                  INIT10         73356     73362     73407
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    79  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L.TTLA          5                       PUC             5574
          L.TA            5                       PUC             5604
          V=SUB.I         5   QSKEL               IO             41427     41432     41773     42007
                                                  PAR            42754     43025
          FEC=END         5   FEC                 LEX            24737     25006
          V=SUB.B         5   QSKEL     
          BN=APL          5   PUC                 FUN            56774
                                                  GEN            63063
                                                  FAS            64167
          BN=IOAP         6                       FEC            16602
                                                  GEN            63070
          FEC=BY          6   FEC                 ALLOC          24510
                                                  LEX            25442
                                                  CDDIR          31537     31563     31604     31621
          L.TTLB          6   FTN                 PUC             5577
          V=SUB.R         6   QSKEL     
          ERR.K           6   PUC                 FERRS          23264
          ERR.C           7                       PEM            23742
          L.CCB           7   FTN                 PUC             5612
          FEC=DAT         7   FEC                 LEX            24731     24756
          L.CCA           7   FTN                 PUC             5610
          V=SUB.D         7   QSKEL     
          BN=NLST         7   PUC                 FEC            16654
                                                  GEN            63075
          L.TB            7   FTN                 PUC             5606
          V=SUB.C        10   QSKEL     
          BN=VAR         10   PUC       
          FEC=FMT        10   FEC                 LEX            24745
          N.ERRT         10   PUC                 FEC            17736
                                                  PEM            23744
          BT.IDN8        10   FAS       
          ES=LEN         10   PAR                 QSKEL          55544
          FEC=ENT        11   FEC                 LEX            24742
          BN=SUB         11   PUC                 GEN            62574
                                                  FAS            64121     64306     64541
          V=MUL.I        11   QSKEL               IO             41454     42025     42052
                                                  PAR            42756     43026     45150     47313
          BT.IDN9        11   FAS                 REC            63273
          V=MUL.B        11   QSKEL     
          L.C$           11   FTN                 FEC            17742
          BN=SUB0        12   PUC                 FAS            64120     64310     64537
          FEC=TYP        12   FEC                 LEX            24721     24724     24727     24734     24752     24755     24770
          V=MUL.R        12   QSKEL               PAR            42764     45153
          BN=BUF         13   PUC                 QCGC           53533
          FEC=PRM        13   FEC                 LEX            24762
          V=MUL.D        13   QSKEL               PAR            45156
          FEC=OK         14   FEC                 LEX            24777     25000     25007     25010     25011     25012     25013
                                                                 25014     25015     25016
          Z$LBT          14   PUC       
          L.TWO          14   FTN                 PUC             5562
          N$LBT          14   PUC       
          Z.LBT          14                       FEC            17726
                                                  REC            63416
          V=MUL.C        14   QSKEL               PAR            45161
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    80  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L.CC           15   FTN                 PUC             5564
          V=DIV.I        15   QSKEL     
          V=DIV.B        15             
          L.TITL         15   FTN                 PUC             5554
          V=DIV.R        16   QSKEL     
          V=DIV.D        17             
          V=DIV.C        20             
          L.APLF         21   FUN                 QCGC           52763
          V=DVC.R        21   QSKEL               PAR            42752
          V=UMI.R        22             
          V=UMI.I        22                       PAR            42755
          ES=LGE         22   PAR                 QSKEL          55460
          V=UMI.D        23   QSKEL     
          V=UMI.C        23             
          V=LT.B         24             
          V=LT.I         24             
          V=LT.R         25             
          V=LT.D         26             
          ES=LGT         26   PAR                 QSKEL          55461
          V=LT.H         27   QSKEL     
          OMI=CPX        30                       PAR            46014
          V=LLT          30                       PAR            43021
          V=GE.I         31             
          ES=LLE         31   PAR                 QSKEL          55462
          V=GE.B         31   QSKEL     
          V=GE.R         32             
          ES=LLT         32   PAR                 QSKEL          55463
          V=GE.D         33   QSKEL     
          ES=MASK        34   PAR                 QSKEL          55545
          V=GE.H         34   QSKEL     
          V=LGE          35                       PAR            43020
          V=NE.B         36             
          V=NE.I         36             
          W=IMVC         37             
          V=NE.R         37             
          W=IMV          37                       GEN            63120
          W=SHFC         40             
          V=NE.C         40             
          V=NE.D         40             
          W=SHLC         40             
          V=NE.H         41             
          V=LNE          42             
          V=EQ.I         43             
          V=EQ.B         43             
          V=EQ.R         44             
          V=EQ.D         45             
          V=EQ.C         45             
          V=EQ.H         46             
          ERFO           47   FTN                 PUC             5111      5113      5533
                                                  FEC            17735
                                                  HEADER         27377     27421     27422
          N.TABLE        47   PUC                 IDP             6114
                                                  FSNAP          15112     15124
                                                  FEC            17627     17631     20366     20423     20433
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    81  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          24224     24243     24263     24270     24317     24337     24343
                                                                 24373
                                                  DECL           33427     34603
                                                  QCGC           53034     53044
                                                  FUN            56732     56733
                                                  REG            60050
                                                  FAS            65022     65756     65774     66244
                                                  LIST           72673
          ES=SHIF        47   PAR                 QSKEL          55554
          V=LEQ          47   QSKEL     
          V=STR.B        50             
          V=STR.R        50             
          V=STR.I        50                       IO             41467
                                                  PAR            43024
                                                  REG            60623
          V=STR.D        51             
          OMI=LCF        51                       PAR            45634
          V=STR.C        51             
          V=STR.H        52                       PAR            43023
          V=CAT          53                       PAR            42736     47043
          Z.SORD         53   PUC                 FEC            17662
          V=COLON        54   QSKEL               PAR            43003
                                                  CONRED         50646
          OM=INL         55                       PAR            45543
          V=SUBST        55                       PAR            43004     46722     47044     47110
                                                  CONRED         50640
                                                  QCGC           53153
                                                  FUN            57076
          OM=CONV        55                       PAR            43006
          V=FLOAT        56             
          V=ITOR         56             
          V=SNGL         57             
          V=RTOB         57             
          V=CTOR         57             
          V=CTOB         57             
          V=DTOR         57             
          V=BTOR         57             
          V=ITOB         57             
          V=XMIT         57                       PAR            43011
          V=REAL         57             
          V=BOOL         57             
          V=BTOI         57             
          V=DTOB         57             
          V=ITOC         60             
          V=ITOD         60             
          V=INT          61                       PAR            43005
          V=RTOI         61             
          V=CTOI         61             
          V=IFIX         61             
          V=DTOI         61             
          V=IDINT        61             
          V=RTOC         62             
          V=BTOD         62             
          V=DBLE         62             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    82  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=RTOD         62             
          V=BTOC         62             
          V=DTOC         63             
          V=CTOD         63             
          ES=LOCF        63   PAR                 QSKEL          55465
          V=COMPL        64   QSKEL     
          V=NOT.L        64                       PAR            42765
          V=NOT.B        64             
          V=AND.L        65             
          W=IDVC         65             
          V=AND          65             
          W=IDV          65                       GEN            63121
          V=AND.B        65             
          Z.CHMAP        66   FEC                 FSNAP          14604
          V=EQV.B        66   QSKEL     
          V=EQV          66             
          V=EQV.L        66             
          V=OR           67             
          V=OR.L         67             
          V=OR.B         67             
          V=XOR.L        70             
          V=NEQV         70             
          V=XOR          70             
          V=NEQV.        70             
          V=XOR.B        70             
          V=ABS          71             
          V=IABS         71             
          V=SUM1S        72             
          W=IDP2         73             
          ES=RANF        73   PAR                 QSKEL          55552
          W=SHRC         73   QSKEL     
          V=AIMAG        73             
          V=AINT         74             
          V=ANINT        75             
          V=AMAX0        76             
          V=MAX0         76                       IO             41446     42045
          V=DMAX1        77             
          Z.INTA         77                       PAR            43354
          V=AMIN0       100             
          V=MIN0        100             
          V=DMIN1       101             
          V=AMAX1       102             
          V=MAX1        102             
          V=AMIN1       103             
          V=MIN1        103             
          V=AMOD        104             
          Z.SYMVP       105   FEC                 INIT10         73421     73424
          V=CONJG       105   QSKEL     
          V=CMPLX       106                       PAR            45551
          V=DABS        107             
          V=DDIM        110             
          V=DIM         111             
          V=DINT        112             
          V=DPROD       113             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    83  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.ABT        114   FTN                 PUC             5171
          V=DNINT       114   QSKEL     
          CP.ERCT       115   FTN                 PUC             5171
                                                  PEM            24104
          V=DSIGN       115   QSKEL     
          CP.LSTF       116   FTN                 PUC             5024
          V=NINT        116   QSKEL     
          V=IDNIN       116             
          V=ISIGN       117             
          CP.PAGE       117   FTN                 PUC             5025      5077      5617
          V=SIGN        117   QSKEL     
          CP.EPAG       120   FTN                 PUC             5102      5106      5620
          V=IDIM        120   QSKEL     
          V=MASK        121                       PAR            45602
          CP.BLF        121   FTN                 PUC             5025
                                                  MAP            67142
          CP.PD         122                       PUC             5343      5540      5542
          V=MOD         122   QSKEL     
          V=RANF        123                       PAR            43016
          V=SHIFT       124                       PAR            45615     45621     45627
          V=DOBS        125                       PAR            42760
          CP.MXFL       126   FTN                 PUC             5123      5160
                                                  INIT10         73404
          V=DOBL        126   QSKEL               PAR            42762
          V=DOBZS       127                       PAR            42757
          CP.IFMT       130   FTN                 PUC             5035
                                                  LEX            25225     25510     25522
                                                  INIT10         73340
          OMI=LEN       130   QSKEL               PAR            45563
          V=DOBZL       130                       PAR            42761
          V=DOC.S       131                       LABEL          52203
          Z.SYMDB       132   FEC                 INIT10         73431
          V=DOC.O       132   QSKEL               LABEL          52204
          CP.ILFL       133   FTN                 PUC             5204      5230
          V=DOC.L       133   QSKEL     
          V=DOC.R       134             
          V=DOC.D       135             
          GT1           135   FTN                 PUC             5205      5207      5211      5224      5226      5232      5235
                                                                  5256      5261      5346      5347      5432      5434      5437
                                                                  5520
                                                  FAS            66317     66321
          V=IOLC        136   QSKEL               IO             42337
          V=LCIF        137                       IO             42321
          CP.FLIN       137   FTN                 FEC            17527
                                                  LEX            25261     25325     25335     25355     25454     25461     25473
                                                                 25504
          V=GOTO        140   QSKEL               KEY            30573     31153     31251
                                                  LABEL          52142
          V=AGOTO       141                       KEY            30634
          OMI=SHF       141             
          CP.CARD       141   FTN                 PUC             5037      5073
                                                  LEX            25220     25462     25513     25517     25521
          V=CGOTO       142   QSKEL               KEY            30660
          Z.SYMIL       143   FEC                 INIT10         73433
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    84  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=JGOTO       143   QSKEL               KEY            30666
          V=RGOTO       144                       KEY            30234
          V=ASSGN       145                       KEY            30145
          V=BSS         146                       KEY            31313
                                                  PAR            43010
                                                  GEN            62044
          V=ARY         147                       PAR            42767     47273
                                                  QCGC           53167
          V=GAP         150                       PAR            42776
          V=FAP         151                       PAR            42775
          V=IAP         152                       PAR            42777
          V=APIOC       153                       PAR            43000
          V=APIOD       154                       PAR            43001
          V=APIOU       155                       PAR            43002
          V=SUBR        156                       KEY            30227
          V=FUNC        157                       PAR            42772
          V=LIBF        160                       PAR            42774
          V=INTF        161                       PAR            42773
          V=IOSUB       162                       IO             40334
          V=ERR         163                       PAR            42744     42746     42771
          V=STOP        164                       KEY            31452
          V=PEND        164             
          V=PAUS        165                       KEY            31453
          V=RET         166                       KEY            30312     30507
          V=RTNK        167                       KEY            30524
          V=GPL         170                       PAR            43030
          V=ENTR        171                       KEY            30356
          V=BVD         172                       FEC            17721
                                                  QCGC           53010     53102
          V=EVD         173                       FEC            17560
          V=SEG         174             
          V=NOOP        175                       FEC            17455
                                                  KEY            31223
                                                  IO             42324     42343
                                                  PAR            43007
                                                  LABEL          52232     52240     52333
                                                  QCGC           53103
                                                  GEN            62415
          V=HDR         176                       HEADER         27440
          V=FILE        177                       HEADER         27542
          V=PLIM        200                       HEADER         27557
          V=SEX         201                       HEADER         27253     27561     30024
          CP.AFLS       201   FTN                 PUC             5121      5130      5137      5145      5222      5426      5440
                                                                  5442
                                                  ALLOC          24434
                                                  INIT10         73344     73403
          V=CDLOO       202   QSKEL               CDDIR          31641
          CP.NFLS       202   FTN                 PUC             5441      5443
                                                  IDP            10517
                                                  INIT10         73370     73402
          V=CDDOT       203   QSKEL               CDDIR          31530
          CP.AFLL       203   FTN                 PUC             5230
          V=CDCS        204   QSKEL               CDDIR          31514
          V=DATA        205                       DATA           32050
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    85  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.MODL       205   FTN                 FAS            66053
          V=FIN         206   QSKEL               FEC            17137
          V=LCC         207                       HEADER         27334
          V=DVI         210                       DATA           32304
                                                  PAR            42770
          V=EXP.I       211                       PAR            43017
          F.IN          211   FTN                 PUC             5040
                                                  IDP             6211
                                                  LEX            25520
          V=DOBD2       212   QSKEL     
          V=I123        213             
          V=D123        213             
          V=R123        213             
          OM=IF         213                       KEY            31166
          V=I122        214             
          V=D122        215             
          V=R122        215             
          V=I113        216             
          V=D113        217             
          V=R113        217             
          V=I121        220             
          V=RN23        221             
          V=IN23        221             
          F.OUT         221   FTN                 PUC             5033      5100      5567
                                                  IDP             6212      6213      7606      7644      7646      7714     10112
                                                                 12200     12211
                                                  ALLOC          24524
          V=DN23        221   QSKEL     
          V=I1N3        222             
          V=R1N3        223             
          V=D1N3        223             
          V=D12N        224             
          V=R12N        224             
          V=I12N        224             
          V=IN22        225             
          V=RN22        226             
          V=DN22        226             
          Z.INTF        227                       FEC            20442
                                                  PAR            46022
          V=I1NN        227             
          V=D1NN        230             
          V=R1NN        230             
          V=INN3        231             
          F.ERRS        231   FTN                 PUC             5103
          V=RNN3        232   QSKEL     
          V=DNN3        232             
          V=I11N        233             
          V=R11N        234             
          V=D11N        234             
          V=RN2N        235             
          V=IN2N        235             
          V=DN2N        235             
          V=I1N1        236             
          V=IFT         237                       KEY            31204
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    86  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=IFF         240                       KEY            31204
          V=I111        241                       KEY            31147
          F.LGO         241   FTN                 PUC             5052      5332      5334
                                                  ALLOC          24526
                                                  FAS            64105     64254     64320     66320
                                                  INIT10         73364
          V=D111        241   QSKEL     
          V=R111        241             
          V=IEQ.I       242                       PAR            44505
          V=IEQ.R       243                       PAR            44506
          V=IEQ.D       244                       PAR            44507
          V=IEQ.C       245                       PAR            44510
          V=INE.I       246                       PAR            44505
          V=INE.R       247                       PAR            44506
          V=INE.D       250                       PAR            44507
          B=FTN         251   FTN                 RPV10           2700
          V=INE.C       251   QSKEL               PAR            44510
          Z.SKCR        252                       PAR            47000
          Z.SCT         252             
          SYS=          253   FTN                 UTILITY         3122      3174      3441
                                                  PUC             5203      5210      5213      5217      5227      5236      5240
                                                                  5260      5435
                                                  INIT10         73332     73400
          RCL=          266                       UTILITY         3552      3610      3754      4013
          WNB=          272                       UTILITY         3001      3122      3174      3432      3677
                                                  PUC             5053      5271
                                                  IDP             6220
                                                  REC            63247
          MSG=          302                       UTILITY         3123      3144      3146      3150      3152      3175
                                                  PUC             5136      5163      5167      5215      5503
                                                  ALLOC          24523
                                                  HEADER         27425
          INT.FL        310                       PUC             5141      5222
                                                  INIT10         73345
          F.PB          311                       PUC             5060      5063
                                                  QCGLINK         6032      6033
                                                  QCGC           53334     53337
                                                  REC            63246     63251     63254     63303
                                                  FAS            66226     66233
                                                  INIT10         73360
          F.IL          321                       PUC             5046
          F.REF         331                       PUC             5066      5071
                                                  FEC            20265
                                                  ALLOC          24453
                                                  MAP            70232     70234     70241     70245
                                                  INIT10         73354
          MAX.FL        343                       PUC             5426
                                                  ALLOC          24542
                                                  INIT10         73373
          NOM.FL        344                       ALLOC          24434
                                                  INIT10         73370
          RAPFLAG       347                       PUC             5036
          RS.PD         350                       PUC             5344
          TIME0         351                       PUC             5164
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    87  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TIME1         352                       LISTLNK         4144      4146
                                                  PUC             5141
                                                  INIT10         73420
          ENOT=L        353                       PEM            24014     24050
          CO.AL         354                       HEADER         27741
                                                  DECL           35420
          CO.ANSI       355                       PUC             5152
                                                  FEC            17155
                                                  PAR            47161
                                                  INIT10         73437
          CO.ARGC       356                       FAS            64067     66055
          CO.ARGF       357                       FUN            56132     56350
                                                  FAS            66056
          CO.DBER       360                       HEADER         27563
                                                  GEN            62031     62052     62460     62550
          CO.DBID       361                       KEY            31253
                                                  QCGC           53350
                                                  GEN            62032     62052     62211     62232     62277
                                                  REC            63272
          CO.DBPM       362                       HEADER         27562
                                                  DECL           33260
                                                  REC            63276
                                                  FAS            65105     65162
          CO.DBSB       363                       IO             41531
                                                  PAR            43612     46210
          CO.DBSL       364                       INIT10         73430
          CO.DBST       365                       QCGC           53350
                                                  REC            63272
          CO.DBTB       366                       PAR            45363
                                                  REG            57636
          CO.DS         367                       LEX            25244     25320
          CO.EL         371                       PEM            23740
          CO.ET         372                       PEM            24102
          CO.GO         373                       PUC             5176
          CO.LCM        374                       DECL           34426     35654
                                                  INIT10         73451
          CO.LL         375                       FAS            64234
                                                  LIST           72221
          CO.MD         376                       INIT10         73440
          CO.OPT        377                       PUC             5045      5054      5057      5070
                                                  PAR            47262
                                                  LABEL          52201
                                                  REC            63324
                                                  FAS            64102     64217     64347
                                                  LIST           72170
                                                  INIT10         73451
          CO.PS         400                       LISTLNK         4043
                                                  PUC             5024      5631
                                                  MAP            67142     70117     70350
                                                  LIST           73004
          CO.PW         401                       PUC             5342      5537      5550
                                                  PEM            24022
                                                  LEX            27012
                                                  HEADER         27414
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    88  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            64131
                                                  MAP            67435     67472     67552     70126     70147     70174     71260
                                                                 71300
                                                  LIST           72117
          CO.PWE        402                       PUC             5107
          CO.RNDA       407                       INIT10         73455
          CO.RNDS       410                       INIT10         73456
          CO.RNDM       411                       PAR            44352
                                                  INIT10         73457
          CO.RNDD       412                       PAR            44352
                                                  INIT10         73460
          CO.SEQ        413                       FEC            17157     17524
                                                  LEX            25232     25436
          CO.STAT       414                       HEADER         27503
                                                  GEN            62715     63022
          CO.WPL        416                       PEM            24035
                                                  LEX            27026     27034
          CO.C$         420                       FEC            17742
          CO.CS         420                       QCGC           53234
          CO.DOLG       421                       PAR            46524
          CO.DOOT       422                       QCGC           53234
          CO.LOA        423                       CDDIR          31630
                                                  INIT10         73347
          CO.LOM        424                       CDDIR          31633
                                                  INIT10         73350
          CO.LOO        425                       PUC             5050
                                                  CDDIR          31636
                                                  REC            63214     63302
                                                  INIT10         73346     73356     73407
          CO.LOR        426                       FEC            17616     17744
                                                  CDDIR          31644
                                                  INIT10         73350     73353
          CO.LOS        427                       FEC            17747
                                                  CDDIR          31652
          CO.QC         430                       REC            63216
          CO.IDP        433                       LEX            25152
          CO.SNAP       435                       IDP             6163      6171
                                                  FEC            17571
                                                  ALLOC          24362     24427     24552
                                                  LEX            25155
                                                  DATA           32243     32250     32313     32541
                                                  DECL           34401     34622     34760     35076     35117     35172     35306
                                                                 35360     35476
                                                  IO             42176
                                                  PAR            43136     44144     44146     44217     46777     47303     47333
                                                  LABEL          52243     52263
                                                  QCGC           52765     53257
                                                  FUN            57173
                                                  REG            57725     60023     61171
                                                  GEN            61341     61352
                                                  REC            63204
                                                  FAS            65174     65256     66211
                                                  MAP            70260     70270
          TL.EJCT       446                       PUC             5110
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    89  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O.TITL        446                       PUC             5554
          TL.PTYP       447                       PUC             5576
                                                  FEC            17734
                                                  HEADER         27377     27411
                                                  FAS            66053
          TL.PNAM       450                       HEADER         27417
          TL.CSOP       452                       REC            63271
          O.TTLA        455                       PUC             5112      5574
          TL.DATE       457                       FAS            66046
          TL.TIME       460                       FAS            66050
          TL.PAGE       462                       PUC             5553      5572
          O.CPV         463                       PUC             5561      5603
          O.TA          470                       PUC             5605
          O.CC          477                       PUC             5563      5607
          O.C           506                       PUC             5611
          LDCOM         532                       PUC             5103      5105
          W=MASKV       533   QSKEL               GEN            63122
          W=MASKC       541             
          W=MODG        543                       GEN            63123
          W=MODP2       553             
          W=SHIFV       565                       GEN            63124
          ABTFTN        611   FTN                 PUC             5175
                                                  ALLOC          24530
          MEMERR        614                       INIT10         73374
          W=DOC.K       621   QSKEL     
          IDPCHK        626   FTN                 INIT10         73335
          L=TABLE       632   PUC                 FEC            17630
          OFFSPY        637   FTN                 PUC             5170
          SPYW          656                       PUC             5127
          COD           662                       PUC             5130      5160      5521
                                                  ALLOC          24540     24543     24570     24572     24574     24602     24604
                                                  PAR            47347     47351
                                                  REG            61177     61201     61203     61205
                                                  LIST           72452
          W=IAPS1       732   QSKEL               FUN            56243
          W=IAPD1       733                       FUN            56243
          W=IAPS2       735                       FUN            56244
          W=IAPD2       736                       FUN            56244
          W=APSTR       743                       FUN            57236
          W=IPLG0       745                       FUN            57231
          W=CAPST       754                       FUN            57312
          W=CIS0S       757                       FUN            57313
          W=CIA0S       770                       FUN            57314
          W=LUA        1001                       FUN            56763
          W=SUA        1003                       FUN            57331
          W=PROM       1035                       GEN            62552
          W=PROS       1041                       GEN            62555
          W=MFPNT      1043                       GEN            62451
          W=FUNT       1045                       GEN            62447
          W=DFENT      1051                       GEN            62436
          W=TMENT      1055                       GEN            62433
          W=ALENT      1061                       GEN            62147
          W=TENT       1067                       GEN            62431
          RPV=RNA      2675   RPV10               UTILITY         3225
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    90  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IDP            11277     11373     11375
          B=RPV10      2675             
          B=UTILI      2746   UTILITY             RPV10           2702
          CDD=         2751             
          CDD          2751                       LISTLNK         4052      4057      4063      4073      4112      4122      4132
                                                                  4136
                                                  PUC             5473      5547
                                                  FEC            17432     17436     20352
                                                  LEX            25234     25447
                                                  FMT            36776
                                                  IO             40621
                                                  MAP            70004     70467     70527     70677     70707     70726     71014
                                                                 71052     71316     71410     71426     71455     71556
                                                  LIST           72105     72221
          DXB          2770                       FEC            17053
                                                  LEX            26270
                                                  FAS            65314
          FA=SET       2777                       PUC             5062      5072
                                                  INIT10         73355     73361     73365
          MVE=         3040                       PUC             5460      5466
                                                  FEC            17565     17655     17717     17743     20416
                                                  PEM            24027
                                                  ALLOC          24351     24357
                                                  LEX            25474     27025
                                                  HEADER         27332     27667
                                                  KEY            30262
                                                  DATA           32521     32726     32767
                                                  DECL           33460     33556     35533
                                                  FMT            37044
                                                  IO             40344     40361     40536
                                                  PAR            45374     47014
                                                  CONRED         50346
                                                  STMTF          51400
                                                  LABEL          52476     52524     52612     52656     52667
                                                  QCGC           53017     53023
                                                  FUN            57166
                                                  GEN            62175
                                                  FAS            64165     65031
                                                  MAP            70135
                                                  LIST           72713     72754
          RPV=         3076                       INIT10         73326     73331
          FRA=         3225                       IDP            11370     11372
                                                  FSNAP          14657
                                                  ALLOC          24563
          MNS=         3300                       CONRED         50361
          SBM=         3357                       FEC            17660     17662     17726     17740
                                                  DATA           32730
                                                  QCGC           52763
                                                  REC            63413
                                                  MAP            67251     67450     70027     70137     70162     71273     71344
          SFN=         3364             
          SFN          3364                       PUC             5133      5451
                                                  PEM            24012
                                                  LEX            25351     25527
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    91  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  HEADER         27410
                                                  FAS            64272
                                                  MAP            67245     67406     67444     70023     70156     70166     70641
                                                                 71063     71072     71267     71340
                                                  LIST           72160     72215     72404     73200
          SST          3402                       FAS            65203     65233
                                                  MAP            67353     67371     67673
                                                  LIST           72527
          WOD          3405                       FAS            65322
                                                  MAP            71546     71571
                                                  LIST           72440     72546     72707     72745     72776
          ZTB=         3423             
          ZTB          3423                       LEX            25440
                                                  KEY            31431
                                                  MAP            70661     71032
                                                  LIST           72306     72677
          CIO=         3442                       PUC             5047      5064      5067      5101      5104      5333      5335
                                                                  5351
                                                  QCGLINK         6034
                                                  ALLOC          24525     24527
                                                  REC            63255     63304
                                                  FAS            64255     64321
                                                  MAP            70233     70235     70242
          RDC=         3450                       PUC             5041
                                                  LEX            25520
          RDW=         3475                       FAS            66226     66234
                                                  MAP            70245
          WTH=         3634                       PUC             5034      5350      5543      5555      5562      5564      5570
                                                                  5575      5577      5604      5606      5610      5612      5614
                                                                  5647      5655
          WTO=         3667                       QCGC           53335     53337
          WTW=         3711                       FEC            20265
                                                  ALLOC          24453
                                                  FAS            66320
          WTX=         3776             
          DCB=         4011             
          B=LISTL      4020   LISTLNK             RPV10           2703
          LUS          4020                       PUC             5137
          ALC=CNT      4164                       FEC            17724
                                                  ALLOC          24242
          MOVES        4171                       FEC            17725
                                                  ALLOC          24552
          PARSLEN      4175                       FEC            17573
          ORIGINS      4252   PUC                 FSNAP          14626     15146     15265
          B=PUC        4252                       RPV10           2704
          T.LGOB       4252                       FAS            64106
          T.TB         4252                       FSNAP          14645
                                                  LEX            25100     25107     25111     25150     25162     27067
                                                  DECL           34404
                                                  IO             42175
                                                  PAR            44176
          BASES        4252                       IDP             6071
                                                  FEC            17620     17636
                                                  ALLOC          24254     24342     24354     24366     24406     24410     24444
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    92  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O.P2NUL      4252             
          T.PTXTR      4253                       FAS            64726     64766     65041     65042     65425     65503     65515
                                                                 65631
                                                  LIST           72544
          T.ARG        4253                       HEADER         27614     27625     27655     27666     27755
                                                  KEY            30256     31446
                                                  PAR            45371     45523     45531     45664
          T.LINK       4254                       FAS            64074     65200     65204     65223     66164
          T.STF        4254                       ALLOC          24411
                                                  PAR            45443     45470
                                                  STMTF          51443
          T.EQUS       4254                       DECL           33746     33755     33757     33761     33767     33775     33777
                                                                 34630     35101     35151     35164     35175     35231     35247
                                                                 35316
          T.DVV        4255                       CONRED         51001     51037     51210     51215
          T.SLARG      4255                       KEY            30261
                                                  PAR            45667
          T.COMM       4255                       FEC            17723
                                                  DECL           33176     34436     34521     35131     35170     35413
          T.FPO        4255                       REC            63367     63537
                                                  FAS            64547
          T.IOARG      4255                       IO             37616     37656     37725     37741     40102     40360     40536
                                                                 41007     41123     41201     41332     42110
                                                  PAR            47012
          T.BLST       4256                       FEC            17416
                                                  KEY            30641     30714     30740     30747     30765     30774     31046
                                                                 31051     31056     31230     31245     31266
                                                  PAR            44114     44700     44743     44760     45002     45006
                                                  LABEL          51606     51703     51762     52042     52063     52071     52121
                                                                 52200     52217     52227     52234     52270     52317     52327
                                                                 52335     52350     52367     52425     52434     52442     52466
                                                                 52474     52521     52530     52607     52615     52624     52636
                                                                 52644     52654     52662     52673
          T.SCR        4257                       IO             40355     40360     40533     40535
                                                  STMTF          51275     51300     51327     51333     51335     51361     51405
                                                                 51421
                                                  LABEL          52471     52477     52512     52523     52565     52600     52611
                                                                 52652     52665
                                                  FAS            65062     65067     65072     65102     65125     65144     65342
                                                                 66325
                                                  MAP            67221     67351     67610     67653     67672     67724     70066
                                                                 70443
                                                  LIST           72515     72530
          T.PTXT       4257                       FAS            64724     64761     65035     65037
          T.OUS        4257                       FSNAP          14746
                                                  QCGC           53025     53113     53116     53121     53130     53173     53200
                                                                 53203
                                                  FUN            56445     56454     56674     57317
                                                  REG            57714     60010     60046     60073
          T.DATI       4257                       DATA           32177     32214     32335     32430     32500     32753     32764
                                                                 33011
          T.FILL       4260                       FAS            64076     65231     65234     66162
          T.EOT        4260                       DECL           35074     35122     35123     35167     35175     35247
          T.DATL       4260                       DATA           32041     32075
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    93  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.ILI        4260                       IO             41155     41255
          T.IOLC       4261                       IO             40343     42322     42327     42341     42346     42354
          T.SAP        4261                       FUN            56123     56125     56134     56163     56176     56206     56224
                                                                 56352     56470     57274
          T.DATS       4261                       DATA           32461     32474     32507     32516     32550
                                                  GEN            62777
                                                  FAS            64442     64727     65030
          T.XFIL       4262                       FAS            64100     65252     66203
          T.DAR        4262                       DATA           32246
                                                  CONRED         50756     50766     51022     51044     51237     51244
          T.PAR        4262                       FSNAP          14712
                                                  FEC            17453     17562
                                                  ALLOC          24412
                                                  KEY            31206     31256     31376
                                                  DATA           32246     32263
                                                  DECL           33537     33554
                                                  IO             40340     40667
                                                  PAR            44137     44206     44576     44605     46306     46360     46720
                                                                 46727     46765     47011     47041     47106     47136     47253
                                                                 47276     47325     47345
                                                  CONRED         50636
                                                  QCGC           52765     53007     53016     53021     53024     53027     53030
                                                  FUN            56565     56600     56614     56620     56632     56707     57074
                                                                 57213
                                                  REG            57467     57715     60626     60747     61133     61176
                                                  GEN            62172     62174     62204     62414
          T.PCS        4263                       PAR            43673     43675     43700     44275
          T.STMT       4264                       LEX            25103     25463     25501     26412     26415     26422     26425
                                                                 26770     27073
          T.CLWB       4264                       FAS            65677     65722
                                                  LIST           72772
          T.SUB        4265                       REC            63410
                                                  FAS            64306     64647
                                                  LIST           73215
          T.VDIM       4266                       FEC            17546     17557     17565     17720
                                                  DECL           33353     33363     33375     33551     33575     33612     33642
                                                                 33654     33722
                                                  QCGC           53014     53017
                                                  GEN            62174
          T.SUB0       4266                       REC            63535     63537
                                                  FAS            64310     64702
          T.C$IF       4267                       CDDIR          31561     31570     31607
          O=CLW        4270             
          T.CLW        4270                       FUN            57106     57121
                                                  FAS            65700
                                                  LIST           72770
          O.P2USE      4270             
          O=CAC        4271             
          T.CAC        4271                       FUN            56522     56547     57030
                                                  FAS            65464     65560
                                                  LIST           72620     73103
          T.APL        4272                       FUN            56765     57162     57172
                                                  FAS            64160     64162     65431
                                                  LIST           72521     73162
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    94  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=APL        4272             
          O=IOA        4273             
          T.IOA        4273                       IO             41735     42302     42311     42331
                                                  FUN            56251     56256     56262     56266     56306     56313     56314
                                                                 56325     56337
                                                  FAS            65516
          T.API        4274                       QCGC           53227
                                                  FUN            56123     56134     56163     56352     56776     57273
                                                  REC            63446
                                                  FAS            66217
                                                  LIST           72517
          O=API        4274             
          T.IOI        4275                       QCGC           53225
                                                  FUN            56251     56266     56306     56325
                                                  REC            63450
                                                  FAS            66220
          O=IOI        4275             
          O=GL         4276             
          T.GL         4276                       QCGC           53215     53230
                                                  REC            63444
                                                  FAS            66216
          O=ASG        4277             
          T.ASG        4277                       KEY            30155     30157
          T.CON        4300                       PEM            23724
                                                  LEX            26677     26735
                                                  KEY            31432
                                                  CDDIR          31552
                                                  DATA           32511     32520     32616     32705     32723     32731     33006
                                                  DECL           33511     34233
                                                  FMT            37004
                                                  PAR            43220     43252
                                                  CONRED         50337     50364     50376     50663     50677     50722     50740
                                                  FUN            56557
                                                  FAS            64211
                                                  MAP            71505     71527     71541     71570
                                                  LIST           72124
          O=CON        4300             
          O=CUT        4301             
          T.LA         4301                       GEN            63147
                                                  FAS            65327
          T.CUT        4301             
          O=SYM        4302             
          T.SYM        4302                       FSNAP          14755     15167
                                                  FEC            17245     17307     17350     17374     17423     17474     17652
                                                                 17761     17777     20053     20070     20112     20204     20222
                                                                 20467
                                                  HEADER         27537     27670     27737     27767
                                                  KEY            30110     30147     30343     30350     30646     30756     31131
                                                                 31236     31322
                                                  DATA           32273     32524
                                                  DECL           33276     34050     34254     34272     34451     34522     34545
                                                                 34570     34633     34662     34764     35064     35263     35316
                                                                 35372     35403     35414     35507     35514     35521     35535
                                                                 35575     35635     35651     35673
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    95  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  TYPE           36230     36237     36250     36372     36415
                                                  FMT            36645     37035
                                                  IO             40242     40575     40630     40715     41101     41245     41264
                                                                 42101
                                                  PAR            43423     43456     43467     43530     43534     43576     43634
                                                                 44766     45432     45471     45727     46424     46734     47023
                                                                 47115
                                                  CONRED         50774     51001     51035     51142     51154     51206     51221
                                                                 51245
                                                  STMTF          51425     51433     51445
                                                  LABEL          51531     51706     51715     51731     51737     52116     52360
                                                                 52372     52416     52456     52503     52532     52540     52570
                                                                 52627
                                                  QCGC           53242     53504
                                                  FUN            57150     57337
                                                  REG            60003     60030     60334
                                                  GEN            61613     62125     62136     62241     62311     62332     62355
                                                                 62441     62650     62702
                                                  REC            63310     63354     63427     63452     63520     63547     63572
                                                  FAS            64111     64115     64224     64274     64404     64474     64521
                                                                 64544     64666     64735     65052     65127     65205     65303
                                                                 65331     65342     65445     65536     65637     66143     66263
                                                  MAP            67157     67604     67606     67725     70247     70400     70445
                                                                 70463     70520     70550     70603     70635     70651     70671
                                                                 70723     70736     70773     71042     71070     71111     71307
                                                                 71372     71420     71436     71476
                                                  LIST           72066     72132     72156     72205     72331     72577     72673
                                                                 73065
          O=BLKS       4303             
          T.BLKS       4303                       LISTLNK         4031      4100
                                                  FEC            17270     17722     17773     20027
                                                  DECL           33136     33145     33177     34176     34202     34335     34343
                                                                 34413     34441     34443     34470     34520     35130     35276
                                                                 35345     35412     35636
                                                  REG            60032
                                                  REC            63525
                                                  FAS            65110     65153
                                                  MAP            67365     67664     67762     70567
          T.NLST       4304                       KEY            30443     30451     31321     31351
                                                  FAS            66252
          O=NLST       4304             
          O=DIM        4305             
          T.DIM        4305                       FEC            17714     20001
                                                  KEY            30434     31322
                                                  DATA           32276
                                                  DECL           33426     34655     35246     35414
                                                  IO             40244     41104     41554     41632
                                                  PAR            46177     46344
                                                  CONRED         51156
                                                  GEN            62370
                                                  REC            63507     63576
                                                  FAS            65355     65453     65730     65742     66275
                                                  MAP            70777     71400
                                                  LIST           72606
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    96  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=ENTP       4306             
          T.ENTP       4306                       HEADER         27635     27647     27664
                                                  DECL           35542     35545     35547     35561
                                                  GEN            62243     62314     62335     62360     62520     62524     62537
                                                                 62624     62632     62664
                                                  MAP            70673
          O=FPI        4307             
          T.FPI        4307                       FEC            17310
                                                  HEADER         27764     27774
                                                  DECL           35530     35534     35570     35600     35706
                                                  TYPE           36405
                                                  FUN            57151
                                                  REG            60353
                                                  GEN            62652
                                                  REC            63371
                                                  FAS            64646     64670
                                                  LIST           73211
          T.VDI        4310                       HEADER         30003
                                                  DECL           33351     33361     33373     33574     33651     33713     35715
                                                  GEN            62352     62410     62414
          O=VDI        4310             
          T.REF        4311                       FEC            17617     20300
                                                  ALLOC          24444     24451
                                                  MAP            70237     70243     70255     70333     71314
          O.P2SAV      4311             
          T.LCA        4312                       DECL           34412     34442
                                                  FAS            64163     64166     66221
          T.ECT        4313                       DECL           35072     35257     35315     35343
                                                  MAP            67370     67643     67647     67654     67737     67745
          T.ENT        4314                       HEADER         27436
                                                  KEY            30353
                                                  FAS            65130
          T.LNT        4315                       FAS            64720     65046     65315
          T.LCC        4316                       HEADER         27327
                                                  FAS            64251
          T.FMT        4317                       FMT            37041
                                                  FAS            64216
                                                  LIST           72740
          T.END        4320                       FEC            17632
                                                  ALLOC          24460
          T=LGOB       4321                       FAS            64104
          SIZES        4321                       IDP             6074
                                                  FSNAP          14632
                                                  FEC            17635
                                                  ALLOC          24264     24271     24333     24355     24573
          L.P2NUL      4321             
          T=TB         4321                       FSNAP          14645
                                                  FEC            17143
                                                  LEX            25111     26752     27070
          T=PTXTR      4322                       FAS            64176     64202     64242     64247     64724     65043
          T=ARG        4322                       HEADER         27606     27620     27656     27675
                                                  KEY            30165     30223
                                                  PAR            45370     45523     45531     45534     45535
                                                  LABEL          51760
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    97  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=LINK       4323                       ALLOC          24422
                                                  FAS            64072     65200     65204     65230
          T=STF        4323                       FEC            17142
                                                  ALLOC          24501
                                                  STMTF          51443
          T=EQUS       4323                       ALLOC          24504
                                                  DECL           34621     34757     35071     35152     35312     35317     35365
          T=DVV        4324                       CONRED         50753     51000     51003     51213
          T=SLARG      4324                       KEY            30164     30257     30263
                                                  PAR            45325
          T=IOARG      4324                       IO             40016     40323     41004
                                                  PAR            47007     47012
          T=FPO        4324                       REC            63265     63540
          T=COMM       4324                       DECL           33140     33147     34400
          T=BLST       4325                       FEC            17415     17427     20245
                                                  ALLOC          24504
                                                  KEY            30211     30323     30500     30637     30711     30714     30740
                                                                 30747     30765     30774     31005     31051     31230     31245
                                                                 31266
                                                  IO             41314     41360     41407     41411
                                                  PAR            43664     44114     44547     44677     44701     44743     44756
                                                                 45002     45006
                                                  LABEL          51557     51605     51703     51743     51763     52063     52071
                                                                 52121     52126     52201     52217     52267     52317     52344
                                                                 52346     52350     52367     52425     52442     52466     52473
                                                                 52475     52507     52575     52636     52640     52644     52654
                                                                 52657     52673     52676
          T=SCR        4326                       FEC            17143     20044
                                                  ALLOC          24503
                                                  IO             40354     40362     40532     40537
                                                  PAR            44173
                                                  STMTF          51257     51311     51342     51405     51456
                                                  LABEL          52510     52517     52565     52576     52605     52616     52643
                                                                 52661     52671
                                                  FAS            65064     65102     65123     65137     65143     65171     65413
                                                                 65727
                                                  MAP            67346     67352     67403     67602     67640     67672     67724
                                                                 70067     70345     70377
                                                  LIST           72515     72530
          T=OUS        4326                       FSNAP          14744
                                                  QCGC           53000     53006     53177
          T=DATI       4326                       DATA           32023     32036
          T=PTXT       4326                       FAS            64723     65040
          T=EOT        4327                       DECL           35116     35123     35321
          T=ILI        4327                       IO             40347     41141     41154
                                                  PAR            43511
          T=DATL       4327                       DATA           32041     32055     32061     32102
                                                  LABEL          52206
          T=FILL       4327                       ALLOC          24423
                                                  FAS            64072     65230     65234
          T=IOLC       4330                       IO             40336     40342     41370
          T=SAP        4330                       FUN            56145     56201     56204     56360     57016
          T=DATS       4330                       ALLOC          24507
                                                  DATA           32024     32036     32047
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    98  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            62771     63002
                                                  REC            63264
                                                  FAS            64441     64450     64727
                                                  LIST           72143
          T=PAR        4331                       FSNAP          14710
                                                  FEC            17333     17573     17602     17611
                                                  ALLOC          24272     24334     24352     24505
                                                  KEY            30236     30575     30772     31042     31206     31255     31271
                                                                 31360     31377
                                                  DECL           33467     33533     33536     33554
                                                  IO             40345     41373     41433     41437     41450     41456     41563
                                                                 41572     41627     41751     41774     42013     42017     42026
                                                                 42034     42046     42054     42072     42125
                                                  PAR            42515     42524     42542     42572     43102     43613     43747
                                                                 44137     44210     44404     44562     44710     45513     46543
                                                                 46671     46716     46725     47255     47350
                                                  CONRED         50635
                                                  LABEL          52222     52342
                                                  QCGC           53000     53014     53020
                                                  FUN            56402
                                                  GEN            62171
          T=DAR        4331                       DATA           32035     32253
                                                  CONRED         50754
          T=XFIL       4331                       ALLOC          24425
                                                  FAS            64073     65252     65262
          T=PCS        4332                       PAR            43101     44275     44300
          T=CLWB       4333                       FAS            64243     64250
          T=STMT       4333                       FEC            17153
                                                  ALLOC          24475     24477
                                                  LEX            26764     26771
                                                  CDDIR          31657
          T=SUB        4334                       REC            63265
          T=SUB0       4335                       REC            63266     63414     63540
          T=VDIM       4335                       FEC            17543     17561     17564     17566
                                                  DECL           33536     33615     33644     33701     33704     33724
                                                  QCGC           53013     53016     53021
                                                  GEN            62172
          T=C$IF       4336                       FEC            17435
                                                  CDDIR          31570     31607
          T=CLW        4337                       FUN            57122     57130
                                                  REC            63336
                                                  FAS            64246     65675     65700
                                                  LIST           72770
          L=CLW        4337             
          L.P2USE      4337             
          L=CAC        4340             
          T=CAC        4340                       FUN            56554
          L=APL        4341             
          T=APL        4341                       ALLOC          24506
                                                  FUN            56765     56772     57161
                                                  REC            63261     63332
                                                  FAS            64155     64201     65425     65431
                                                  LIST           73163
          L=IOA        4342             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE    99  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=IOA        4342                       IO             42274     42351     42352
                                                  FUN            56256     56340
                                                  REC            63263     63334
                                                  FAS            64240     64247     65514     65516
                                                  LIST           72237
          L=API        4343             
          T=API        4343                       REC            63262     63446
                                                  LIST           72514
          L=IOI        4344             
          T=IOI        4344                       REC            63263     63450
          L=GL         4345             
          T=GL         4345                       ALLOC          24507
                                                  QCGC           53213
                                                  REC            63261     63444
          T=ASG        4346             
          L=ASG        4346             
          L=CON        4347             
          T=CON        4347                       FEC            17064     20045
                                                  ALLOC          24503
                                                  DATA           32025     32033     32732     32737
                                                  FMT            37046
                                                  CONRED         50364     50373
                                                  GEN            62566
                                                  REC            63257
          T=CUT        4350             
          T=LA         4350                       GEN            63143
                                                  REC            63324
                                                  FAS            64217
                                                  LIST           72170
          L=CUT        4350             
          L=SYM        4351             
          T=SYM        4351                       FSNAP          14755     15231
                                                  FEC            17245     17306     17374     17474     17652     17777     20052
                                                                 20111
                                                  DECL           34450     34544     34570     35634     35651     35674
                                                  TYPE           36415
                                                  PAR            46426     46732     47022
                                                  QCGC           53243
                                                  REG            60002
                                                  REC            63353     63430     63452     63547     63573
                                                  FAS            65065     65343
                                                  MAP            67606     70247     70400
          T=BLKS       4352                       FEC            17267     20032
                                                  ALLOC          24511
                                                  DECL           33143     34413     34471     34523     35412
                                                  REC            63526
                                                  FAS            65101     65142
                                                  MAP            67361     67661
          L=BLKS       4352             
          L=NLST       4353             
          T=NLST       4353                       ALLOC          24506
                                                  KEY            30411     30417     30457     31321     31352
                                                  REC            63260
                                                  FAS            64264     66252
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   100  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           72251
          T=DIM        4354                       ALLOC          24502
                                                  PAR            46343     46433
                                                  REC            63507
                                                  FAS            65730
                                                  LIST           72251
          L=DIM        4354             
          L=ENTP       4355             
          T=ENTP       4355                       HEADER         27635
                                                  DECL           35543
                                                  GEN            62525     62641
          L=FPI        4356             
          T=FPI        4356                       DECL           35570
                                                  TYPE           36404
                                                  GEN            62511
                                                  REC            63264     63366
          L=VDI        4357             
          T=VDI        4357                       HEADER         30004
                                                  DECL           33647     35715
                                                  GEN            62352     62415
          T=REF        4360                       FEC            20261
                                                  ALLOC          24440     24451     24510
                                                  IO             41563     42126     42130
                                                  MAP            70243     70254
          L.P2SAV      4360             
          T=LCA        4361                       DECL           34433
                                                  REC            63262     63331
                                                  FAS            64155     64163     64171
          T=ECT        4362                       DECL           35312     35357     35366
                                                  MAP            67360     67371     67646     67746
          T=ENT        4363                       ALLOC          24511
                                                  FAS            65124
          T=LNT        4364                       REC            63267
                                                  FAS            64073     65316
          T=LCC        4365                       FAS            64253
          T=FMT        4366                       ALLOC          24505
                                                  FMT            36645
                                                  REC            63260     63322
                                                  LIST           72737
          T=END        4367             
          RATES        4370                       FEC            17633
          NAMES        4437                       IDP             6066
                                                  FSNAP          14627     15145     15263
                                                  ALLOC          24363
          ALTNAM       4506                       IDP             6101
          TV=DECL      4534                       FEC            17621     17624
                                                  ALLOC          24446
          TV=EXU       4535                       FEC            17105     17622
                                                  ALLOC          24447
          TV=END       4536                       REC            63201
          TV=CUR       4537                       FEC            17106     17626
                                                  ALLOC          24257     24301     24340     24450
                                                  REC            63203
          F.LBT        4540                       FEC            17725
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   101  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  QCGC           53552     53555
                                                  REC            63322     63340     63353     63406     63406     63416     63432
                                                                 63563     63622
                                                  FAS            64121     64122     64170     64551     66110     66113
                                                  LIST           72511     72746     73013
          F$LBT        4540             
          SUM.LBT      4554                       LISTLNK         4071      4073
                                                  REC            63427     63474
                                                  FAS            64110     65104
                                                  LIST           72154
          COMSIZ       4555                       LISTLNK         4037      4041      4116      4126
                                                  REC            63471     63475
          ALC.PAR      4557                       FEC            17625
                                                  ALLOC          24272
                                                  REC            63202
          BINIO        4560                       QCGLINK         6036
                                                  REC            63250     63300
          BLNKCOM      4561                       LISTLNK         4027      4077
                                                  FEC            17515
                                                  DECL           33115     33153     34210     34472
                                                  CONRED         51107
                                                  MAP            67763     70571
          CBI          4562                       QCGC           53355     53501     53550     53556
                                                  FAS            64124     65757     66106     66114
          CHARDCL      4563                       FEC            17244     17515
                                                  DECL           34470     34544     35513
                                                  TYPE           36117     36500
          ERRORS       4564                       FEC            17741
                                                  PEM            24075
                                                  REC            63245     63417     63443
                                                  FAS            64107
          N$FERR       4564             
          ENTRJ        4565                       GEN            62151     62155     62206     62305     62326     62347
          FAILSFT      4566                       FEC            17646
                                                  ALLOC          24472
                                                  MAP            67140
          O.TABS       4567                       FEC            17626
                                                  ALLOC          24331     24335     24354     24457
                                                  INIT10         73367
          RPV=MSG      4570                       UTILITY         3143
          IDENT1       4570             
          HO$MSG       4571                       HEADER         27424
          HO$PRGN      4572             
          IDENT        4572                       ALLOC          24516
                                                  HEADER         27423     27467
                                                  TYPE           36371
                                                  FAS            64272     65104     66046
                                                  LIST           72147     72226     72306
          IO.TEM       4573                       FEC            17512
          N$LINES      4574             
          LCNT         4574                       LISTLNK         4043
                                                  MAP            67144     70117     70122     70350
          LEVEL        4576                       FEC            17306     17517
                                                  HEADER         27751
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   102  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           34116     34520     35424
          LEVEL0       4577                       FEC            17321     17517
                                                  GEN            62331
          HO$LVL2      4600             
          LEVEL2       4600                       FEC            17520
                                                  HEADER         27752
                                                  DECL           34140     34450     35424
                                                  FAS            66060
          LINEBUF      4602                       PEM            23747     24021     24026     24031
                                                  FAS            64132     64133     64425     65323     66074     66102     66242
                                                                 66311
                                                  LIST           72055     72056     72112     72155     72163     72164     72177
                                                                 72202     72236     72310     72406     72430     72431     72441
                                                                 72445     72451     72537     72547     72547     72560     72705
                                                                 72713     72714     72752     72753     72755     72766     72775
                                                                 72777     73012     73015     73020     73025     73175     73215
                                                                 73220     73233     73233
          CARDS        4620                       LEX            25234     25510
          LINENR       4620             
          RPV=CLN      4620                       UTILITY         3140
          LINES        4620                       FEC            17042     17526
                                                  CDDIR          31655
                                                  FAS            64463
          HO$CSN       4620             
          LOSTREF      4621                       FEC            17647     20274
                                                  IO             41565     42131
                                                  MAP            70236
          MOD          4622                       FEC            17065     17346     17647     20214
                                                  HEADER         27257     27371     27376     27427     27610     27657     27711
                                                                 27721
                                                  KEY            30302     30307     30317     30331     30344     30474
                                                  DECL           35503     35524     35541     35573
                                                  TYPE           36135     36170     36263     36371
                                                  PAR            43400     43523
                                                  CONRED         51111     51115
                                                  QCGC           53241
                                                  GEN            62054     62221     62245     62433     62445     62541     62736
                                                                 62742
                                                  FAS            64315     65055     65077     65122
                                                  MAP            67332     67576     71244
                                                  LIST           72147
          NARGS        4623                       FEC            17513
                                                  HEADER         27540     27554     27571
                                                  GEN            62747
          NOLIST       4624                       FEC            17730
                                                  KEY            30275
          NREXT        4625                       ALLOC          24424
                                                  REC            63245
                                                  FAS            64074     65201     65205     65227
          NSQZLH       4626                       FEC            17640
                                                  PAR            43246
          N.AP         4627                       FEC            17640
          N.ARP        4630                       FEC            17641
                                                  HEADER         27722
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   103  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  KEY            30524
                                                  GEN            62465
          N.BUF        4631                       FEC            17641
                                                  GEN            62716     62722     63031     63035
          N.CPL        4632                       FEC            17642
                                                  HEADER         27654
                                                  DECL           35551     35563
          N.CON        4633                       GEN            62567
                                                  REC            63327
          N.CT         4634                       FEC            17575     17643
                                                  PAR            46620
          N.CTMAX      4635                       FEC            17576     17644
                                                  QCGC           53541
          N.DOB        4636                       FEC            17644
                                                  LABEL          52033     52104     52213
          N.EPL        4637                       FEC            17520
                                                  HEADER         27653     30045
                                                  DECL           35410
                                                  GEN            62217     62505
          N$SEP        4637             
          N.FP         4640                       FEC            17642
                                                  HEADER         27771
                                                  KEY            30313
                                                  GEN            62220     62447
          N$FPS        4640             
          N.GL         4641                       FEC            17651
                                                  KEY            30252     31060     31221     31376
                                                  IO             41212     41500     42315
                                                  LABEL          52136     52166
                                                  QCGC           53213
                                                  GEN            62122     62156     63135
          N.MAXIL      4642                       FEC            17334
          N$LC         4643                       FEC            17643
                                                  QCGC           53545
          N.ST         4644                       FEC            17645
                                                  QCGC           53001
                                                  FUN            56431     56444     57233
                                                  REG            60011
                                                  GEN            62563
          N.STMAX      4645                       FEC            17645
                                                  QCGC           53001     53540
                                                  GEN            62563
          N$VD         4646             
          N.VD         4646                       FEC            17646
                                                  DECL           33637     33702     35673
                                                  QCGC           53544
          O.STITL      4647                       FEC            17734
                                                  MAP            67162     70124     70177
                                                  LIST           73006
          PU.MFL       4650             
          HO$PMLS      4650             
          PASS         4651                       QCGLINK         6044
                                                  FSNAP          14736     15015     15026
                                                  FEC            17523     17603     17607
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   104  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PEM            24017
                                                  ALLOC          24422     24473     24514
                                                  REC            63200     63220
                                                  MAP            67141
          PWBUF        4652                       PEM            24027     24030
                                                  LEX            27022     27024     27027     27027
          WOF=ERR      4667                       PEM            24015     24022     24024     24034     24052
                                                  LEX            26777     27012     27026     27034
          REFIO        4670                       FEC            20276     20302
                                                  ALLOC          24442
                                                  MAP            70231
          RPV=URP      4671                       UTILITY         3153
          HO$RDR       4671             
          SAVE         4672                       FEC            17516     17756
                                                  DECL           34313     34564     35633
                                                  FAS            65150
          THRESH       4673                       ALLOC          24275     24462     24465     24470     24540
                                                  INIT10         73406
          USAVE        4674                       FEC            17516     17756     20006     20052
                                                  DECL           34312     34564     35633
                                                  REC            63465
                                                  FAS            65150
          L.TABS       4675                       FEC            17627
                                                  ALLOC          24267     24336     24461     24603
                                                  INIT10         73376     73377     73401     73405
          SCR          4676                       FEC            17235     17237
                                                  FERRS          20764
                                                  HEADER         27313     27326     27331     27606     27621     27654     27670
                                                                 27777     30001     30003
                                                  IO             41233     41240     41257     41261
                                                  PAR            43512     43514     44274     44656     44674     45350     45431
                                                                 45456     45462     45650     46000     46023     46050     46054
                                                                 46074     46113     46116     46122     46165     46240
                                                  STMTF          51345     51406     51437     51441     51446     51451
          WO.C$        4710                       FEC            17743
          WO.CS        4710                       CDDIR          31512
                                                  PAR            45702
                                                  FUN            56171
                                                  GEN            62112
          WO.DOLG      4711                       CDDIR          31524
                                                  PAR            44754
                                                  LABEL          52145     52171
          WO.DOOT      4712                       CDDIR          31526
                                                  IO             41445     42043     42312
                                                  LABEL          52131
                                                  FUN            56372
                                                  GEN            62114
          WO.LOA       4713                       LISTLNK         4021
                                                  KEY            30275
                                                  CDDIR          31631
                                                  IO             40571
                                                  REC            63207
                                                  MAP            67146
          WO.LOM       4714                       CDDIR          31634
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   105  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           35364
                                                  IO             40571
                                                  REC            63207
                                                  MAP            67145     67356
          WO.LOO       4715                       CDDIR          31637
                                                  REC            63215
                                                  FAS            64261     64513     66074
          WO.LOR       4716                       FEC            20231
                                                  KEY            30276     30420
                                                  CDDIR          31646
                                                  IO             40431     40572
                                                  LABEL          51746
                                                  REC            63210
                                                  MAP            67147     70125     70146     70173     70230     70332
          WO.LOS       4717                       FEC            17132
                                                  PEM            24050
                                                  LEX            25476
                                                  CDDIR          31654
          WO.QC        4720                       FEC            17601
                                                  PEM            24101
                                                  MAP            67340     67357     70506     70761
          WO.LCM       4721                       DECL           34411
                                                  INIT10         73453
          CONONE       4722                       DATA           32257
                                                  DECL           33377     33535
                                                  IO             37724     37777     40212     40222     40240     41006     41071
                                                                 41240     41331     41435     41446     41622     41630     42032
                                                                 42044     42326     42333     42345
                                                  PAR            42532     43153     43212     43262     43552     43724     44672
                                                                 44727     45016     45033     45054     45075     45260     46175
                                                  LABEL          52052
          CONZER       4723                       KEY            31424
                                                  IO             41330
                                                  PAR            44026
          CONZERI      4724                       KEY            30231
                                                  PAR            46203
          VTRUE        4725                       PAR            43155
          VFALSE       4726             
          F.SORD       4727                       FEC            17661
          S=AEXIT      4727                       HEADER         27366
                                                  QSKEL          55110
                                                  GEN            62470
          S=BU         4730                       FEC            17663
                                                  IO             40002     40257     40637
                                                  PAR            43404     45000     46740
                                                  QSKEL          54751
                                                  FAS            66143
          S=BUFIN      4731             
          S=BUF        4732                       FEC            17664
                                                  GEN            63032
          S=CES        4733             
          S=CL         4734                       FEC            17665
                                                  FUN            57132
                                                  REC            63336
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   106  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           72766
          S$CON        4735             
          S=CON        4735                       FEC            17666
                                                  DECL           33562
                                                  IO             42250
                                                  PAR            42561     43247     46744
                                                  CONRED         50642     50660     50675     50724     50745
                                                  FUN            56563
                                                  REC            63330
                                                  LIST           72124
          S=CP         4736                       HEADER         30056
                                                  GEN            62260     62515
          S=CPL        4737                       HEADER         30050
                                                  GEN            62274
          S=CT         4740                       FEC            17667
                                                  PAR            46623
                                                  QCGC           53541
          S=ENTRY      4741                       HEADER         27435     27437     27605     27777     30023
                                                  KEY            30474
                                                  DECL           35514
                                                  TYPE           36167     36377
                                                  QSKEL          55120     55140     55141     55150
                                                  GEN            62132     62474
                                                  FAS            64273     64556
          S=ERR        4742                       QSKEL          55077
          S=EXIT       4743                       HEADER         30031
                                                  KEY            30512
                                                  QSKEL          55104
                                                  GEN            62462
          S=FAR        4744                       FEC            17713
                                                  FUN            56416
          S=FAS        4745                       FEC            17712
                                                  FUN            56607
          S=FID        4746                       FEC            17704
                                                  GEN            62061
          S=FMC        4747                       FEC            17705     17706
                                                  FUN            56171
          S=FVS        4751                       FEC            17714
                                                  FUN            56577
          S=FILES      4752                       HEADER         27600
                                                  QSKEL          55121
                                                  GEN            63017
          S=GPL        4753                       HEADER         30057
                                                  GEN            62254     62263     62511
          S=LA         4754                       FEC            17670
                                                  GEN            63143
                                                  REC            63325
                                                  LIST           72171
          S$LC         4755             
          S=LC         4755                       FEC            17702
                                                  QCGC           53545
          S=LENP       4756                       FEC            17671
                                                  GEN            63111
                                                  FAS            64110     64517
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   107  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           72155
          S=LMC        4757                       FEC            17710
                                                  FUN            56167
          S=MMC        4760                       FEC            17707
                                                  FUN            56227     56503
          S$IT         4761             
          S=IT         4761                       FEC            17700
                                                  QCGC           53542
          S=INIT       4762                       HEADER         27567
                                                  QSKEL          55122
          S=OT         4763                       FEC            17701
                                                  QCGC           53543
          S$OT         4763             
          S=RD         4764                       FEC            17703
                                                  PAR            46225
                                                  FAS            65451     65637
                                                  LIST           72605
          S=SA1        4765                       FEC            17672
                                                  GEN            62214     62753
                                                  FAS            65052
          S=SA0        4766                       FEC            17673
                                                  GEN            62235     62302     62760
          S=SLI        4767                       HEADER         30044
                                                  GEN            62344
          S=SPA        4770                       HEADER         30042
                                                  GEN            62323
          S=ST         4771                       FEC            17674
                                                  QCGC           53540
                                                  FUN            56435     56451     56523     57233
                                                  REG            60017
          S=SUB        4772                       HEADER         30053
                                                  GEN            62577
          S=SUBI       4773                       HEADER         30054
                                                  GEN            62317     62605
          S=SUB0I      4774                       HEADER         30055
                                                  GEN            62340     62614
          S=TRACE      4775                       FEC            17676
                                                  KEY            31406
                                                  QCGC           53363
                                                  QSKEL          54752
                                                  GEN            63115
          S=TA0        4776                       FEC            17675
                                                  QCGC           53365
                                                  QSKEL          55126
                                                  GEN            62227     62271
          S=UPW        4777                       HEADER         27601
                                                  GEN            62743     63011     63022
          S=VALUE      5000                       FEC            17247     17346     17711     17760     20217
                                                  HEADER         27613
                                                  KEY            30346
                                                  DECL           35406     35504     35521     35546     35564     35574
                                                  PAR            43377
                                                  QSKEL          55131     55134
                                                  GEN            62437
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   108  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  REC            63307
                                                  MAP            67611
          S=VD         5001                       FEC            17677
                                                  DECL           33506     33636
                                                  IO             40251     41114
                                                  PAR            44626     46213
                                                  QCGC           53544
                                                  FAS            64114     66033
          S$VD         5001             
          ERRTYP       5002                       FEC            17737
                                                  PEM            23740     23742
                                                  INIT10         73437     73445
          ERR=A        5012             
          ERR=M        5013             
          ERR=D        5014             
          ERR=T        5015             
          ERR=W        5016             
          ERR=F        5017             
          ERR=K        5020                       FEC            17600
          ERR=C        5021             
          E=TOTAL      5022                       FEC            17741     20040
                                                  PEM            24076
                                                  DATA           32242
                                                  DECL           33470     33530
                                                  STMTF          51416
                                                  LABEL          52023     52073
          PUC          5024                       INIT10         73340     73342
          ENDFTN       5160                       FEC            20344
          CPTIM        5251                       LISTLNK         4144
          TIMER        5255                       LISTLNK         4145
                                                  INIT10         73417
          CAF          5326                       FEC            20343
          ECB          5353                       CONRED         51143
                                                  FUN            57342
          ECS          5405                       CONRED         51072
                                                  FUN            56634
          GCL          5420                       PAR            47036
                                                  FUN            56533     57045     57114
          GMC          5425                       ALLOC          24456
          LJS          5445                       FEC            17411     17424
                                                  KEY            30757     31237
          MTD          5453                       ALLOC          24332
          MTU          5462             
          PIA          5510                       LISTLNK         4065      4071      4110      4120      4130      4140
                                                  FAS            66076
                                                  MAP            70510     70763
                                                  LIST           72154     72536     72550     72704     72751     72765     72774
                                                                 73014     73016     73174     73214
          WOF          5624                       LISTLNK         4047      4051      4055      4062      4070      4076      4115
                                                                  4125      4135      4143      4156
                                                  IDP             6064      6104
                                                  FSNAP          14667     14717     14726     15000     15004     15047
                                                  PEM            24047
                                                  ALLOC          24521     24560     24566     24577     24607
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   109  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LEX            26533     27037     27043
                                                  DECL           34625
                                                  PAR            47360
                                                  REG            61210
                                                  MAP            67247     67410     67412     67446     70025     70160     70170
                                                                 70172     71271     71342
                                                  LIST           72057     72113     72165     72432     72455     72715     72756
                                                                 73010     73022     73030     73234
          F.PIK        5663             
          PIK=PS       5663                       CONRED         50424
                                                  QCGC           53265
                                                  FAS            64365
                                                  LIST           71770     72015     72260
          PIK=EQ       5667             
          PIK=LCM      5763                       LIST           72021
          PIK=XJP      5765                       LIST           72017     72024
          PIK=PI       5775                       LIST           72261
          HDRBL        6020                       FEC            17733
                                                  MAP            67161     70123
          B=QCGLI      6024   QCGLINK             RPV10           2705
          FEL          6024                       PUC             5116
          FEL.RTN      6026                       FEC            17155     17157     17161
          DER          6027                       LABEL          51664
          MAL          6027                       FEC            17152
          BCT          6027                       REC            63212
          PDC          6027                       PAR            44372
          PCA          6027                       REC            63213
          LPE          6027                       LABEL          52574
          MDD          6027                       PAR            44550
                                                  LABEL          52127
          PAT          6027                       FAS            64154     64241
          CGL          6027                       PUC             5117
          CGE          6027                       REC            63176
          REL          6031                       PUC             5120
          REL.RTN      6037                       REC            63267
          PDI          6040                       DATA           32052
          PIS          6043                       FEC            17605
          B=IDP        6047   IDP                 RPV10           2706
          UKT=LNK      6054                       INIT10         73333
          PTO          6061                       ALLOC          24600
          UIO=         6153             
          URO=         6162             
          USO=         6170             
          IDP=USY      6210                       INIT10         73334
          PAT#FWA      6226             
          PAT#LEN      6230             
          IDP=SVB      6471                       DATA           33057     33060
                                                  REG            61253     61254     61275     61276
                                                  GEN            63162
          IDP=SVA      6501                       REG            61237     61255     61256
          IDP=SVX      6511                       DATA           33055     33056
                                                  REG            61240     61257     61260     61261     61262     61277
                                                  GEN            63172
          FW=IDPL      6521                       FSNAP          15140     15143     15150
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   110  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IDPFLG       6523                       FSNAP          15154
          SNAPLNE      6656                       FSNAP          14713     15114     15120     15155     15162     15256     15425
                                                                 15436     15451     15543
          IDP=         7564                       FSNAP          15445
                                                  FEC            17045
                                                  LEX            25154
                                                  KEY            30162
                                                  FAS            64465
                                                  INIT10         73337
          IDP=MN       7622                       FSNAP          15105     15260     15332     15341     15347     15355     15357
          IDP=ER       7711                       FSNAP          15334     15336     15344     15354
          REG=         7732                       DATA           32315
                                                  PAR            43140     44150     44221
                                                  REG            57727
                                                  GEN            61343     61354
          SNP=         7747                       DATA           32543
                                                  PAR            43141     43142     43143     44151     44152     44153     44222
                                                                 44223     44224
                                                  QCGC           53262
                                                  REG            60025     61012     61013     61174
          IDP=CAD     10465                       FSNAP          15424     15450     15466     15515     15531     15536
          IDP=CHK     10516             
          IDP=CLZ     10615             
          IDP=DAR     10713             
          DCM=        11201                       FSNAP          15125
          IDP=FLL     11334                       FSNAP          15417
          IDP=FRK     11411                       FSNAP          15140
          IDP=HDR     11460                       FSNAP          15141
          IDP=PAS     11652                       FSNAP          15104
          IDP=PAT     12010                       FSNAP          15343     15353
          ROL=        12164                       FSNAP          14642     14644     14650     15121     15160     15230     15437
                                                                 15544
          IDP=SKT     12226                       FSNAP          15145     15264
          SOB         12262             
          IDP=SOB     12262                       FSNAP          14640     15135
          IDP=CDD     13025             
          IDP=COD     13051                       UTILITY         3120      3172      3234
                                                  FSNAP          14606     14631     14633     14734     14762     14764     14771
                                                                 15011     15116     15163     15166     15173     15201     15204
                                                                 15213     15215     15224     15365
          IDP=DXB     13071             
          IDP=MCS     13100                       FSNAP          15374     15377     15401     15406     15411     15414     15435
                                                                 15464     15467     15471     15473     15474     15477     15500
                                                                 15510     15512     15513     15516     15522     15524     15525
                                                                 15533     15534     15540
          IDP=SFN     13343                       FSNAP          15262
          IDP=SYS     13465             
          IDP=WOD     13712                       FSNAP          14774     15043     15206     15426     15452
          IDP=ZTB     14112                       FSNAP          14662     14760     15025     15172     15175     15430     15504
          SV=B        14121                       FSNAP          14670
                                                  PAR            47345
          SVB         14121                       REG            61176     61200
          SAV.B       14121             
          SAV.A       14131             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   111  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SVA         14131             
          SV=A        14131                       FSNAP          14663
          SV=X        14141                       FSNAP          14655     14670     14672     14674
          SVX         14141             
          SAV.X       14141             
          SVR=        14151                       FSNAP          14654     14707     15134
                                                  PAR            47344
                                                  REG            61175
          SVR         14151                       FSNAP          14637
          RESET=      14174             
          RSR         14174                       FSNAP          14651
          RSR=        14174                       FSNAP          14676     14730     15151
                                                  PAR            47362
                                                  REG            61211
          B=FSNAP     14601   FSNAP               RPV10           2707
          FI=BRLI     14602                       FEC            17042
                                                  FAS            64462
          LTB=        14636                       LEX            25156
                                                  IO             42177
          SN.EMT      14653                       PAR            47004
          SN.PAR      14706                       FEC            17572
                                                  DATA           32245
                                                  PAR            44145
                                                  QCGC           52770
          UKT=FE      15076                       INIT10         73333
          DMT=        15133                       DATA           32252
                                                  DECL           34403     34626     34627     34762     35100     35121     35174
                                                                 35310     35311     35362     35363     35500
                                                  LABEL          52245     52265
                                                  QCGC           52767
                                                  FUN            57175
                                                  REC            63206
                                                  FAS            65176     65260     66213
                                                  MAP            70262     70272
                                                  LIST           72144     72253
          TOK=IDP     15441                       LEX            25576     25577
          REGFILE     15620   QCGC      
          OSTACK      15620   FEC                 PAR            43111     43115     44122     47444     47514     47564
                                                  INIT10         73364
          FORSKEL     15620                       FMT            36647     37033     37043
          ESTACK      16060                       KEY            31406     31414
                                                  PAR            43104     43676     44065     47457     47527     47577
                                                  LABEL          52067     52112
                                                  GEN            61461     61462     62047     62050
          HASHTBL     16320             
          B=FEC       16520                       RPV10           2710
          ARGMODE     16520                       KEY            30225     30724     31017     31356
                                                  DECL           33475
                                                  IO             37767     40112     40122     40130     40155     40172     40215
                                                                 40422     40523     40551     41307     41315     41365     41512
                                                                 42374
                                                  PAR            42507     42516     42543     43102     43200     43241     43310
                                                                 43343     43367     43560     43672     43704     43714     43732
                                                                 43746     43756     43773     43777     44011     44036     44071
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   112  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 44120     44135     44165     44254     44267     44302     46525
                                                                 46606
                                                  LABEL          52060
          ARGCOMA     16521                       KEY            30224     30724     31017     31356
                                                  DECL           33474
                                                  IO             40120     40317
                                                  PAR            42507     42520     42546     43674     43704     43720     43773
                                                                 44254     44270     44304     44762     45353     46166     47472
                                                                 47542     47612
                                                  LABEL          52060
          ARGMIS      16522                       PAR            43677     43705     44272     44306     44620     46164
          CALLTAG     16523                       KEY            30213     30227     30242
                                                  PAR            45324
          ASSTAG      16523                       KEY            30115     30145
          CSLTAG      16524                       KEY            30565     31007     31117
                                                  LABEL          51551     51565
          DATFLG      16525                       DATA           32236     32240
                                                  IO             40336     41116     41367     41530     41733     41761     42076
                                                  PAR            43107     44741     45024     45035     45427     46210     46504
                                                                 46610
          DTI         16526                       KEY            30541     30560     31035     31107
                                                  LABEL          51556     51774
          FLOW        16527                       KEY            30303     30364     31004     31040     31166     31250
                                                  LABEL          52016
          HANGER      16530                       KEY            30564     31111     31116
                                                  LABEL          51770
          IFLEVEL     16531                       LEX            25445
                                                  KEY            30745     31045     31227
                                                  LABEL          52634
          INSTF       16532                       PAR            43113     44413     44420     45444     45456     45462
          LDEAD       16533                       PAR            43112
                                                  LABEL          52020
          L.CARD      16534                       LEX            25220     25461     25504     25537
          NOPATH      16535                       KEY            30321     30502     30513     30527     30533     30555     30556
                                                                 30635     31001     31142     31246
                                                  LABEL          51772     52017
          NTRCNT      16536             
          PARMODE     16537                       DECL           33476     33500
                                                  IO             41405
                                                  PAR            42515     42541     43103
          PARAMC      16540                       DECL           34256
                                                  TYPE           36414
          REFLIN      16541                       KEY            31055
                                                  LABEL          51522     51533     51621     51741     52035     52525
          REFNUM      16542                       KEY            30107     30537
                                                  IO             40401
                                                  LABEL          51750     52027
          REFVAR      16543                       KEY            30106     30166     30540     31072
                                                  DATA           32153     32746
                                                  DECL           33114     33216     33730
                                                  TYPE           36146
                                                  IO             40202     41310
                                                  PAR            43114     43215     43274     43557     43707     44133     44305
                                                  STMTF          51422
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   113  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ROUTNAM     16544                       FUN            56140     56211     56230     56356     56417     56504     56657
                                                                 57144
          RTNCNT      16545                       KEY            30512
          STAGE       16546                       ALLOC          24512
                                                  LEX            25414     25441
                                                  HEADER         27443     27744
                                                  KEY            30321
                                                  CDDIR          31537     31563     31603     31621
                                                  DATA           32031
                                                  DECL           34362
                                                  TYPE           36125
                                                  PAR            43432
          TRLINE      16547             
          T=CONB      16550                       DATA           32024     32034
                                                  FMT            37045
          WANFP       16551                       KEY            30364     30372
                                                  STMTF          51304     51310     51340
          SCR2        16552             
          ZLEQUAL     16562                       LEX            25366     26433
                                                  PAR            42502
          ZLCOMMA     16563                       LEX            25367     26374
          ZLPAREN     16564                       LEX            25400     26502
          ZLE         16565                       PAR            42503     44015     44123     44130
          ZLCOLON     16566                       LEX            26403
          F.SYMIL     16567                       INIT10         73423     73434
          CHARMAP     16733                       FSNAP          14611     15023
                                                  PEM            23721
                                                  HEADER         27314
                                                  IO             40304
                                                  PAR            44054     44076     44100
                                                  QCGC           53052
          FEC         17036                       QCGLINK         6025
          FEC.RTN     17041                       FERRS          22000     22004     22006     22014     22141     22143     22145
                                                                 22147     22151     22153     22166     22170     22172     22174
                                                                 22176     22200     22205     22207     22211     22213     22327
                                                                 22426     22447     22453     22717     22727     23131     23133
                                                                 23135     23137     23141     23143     23147     23150     23151
                                                                 23163     23167     23173     23207     23211     23223     23227
                                                                 23231     23233     23235     23237     23246     23252     23315
                                                                 23316     23320     23322     23324     23326     23376     23400
                                                                 23414     23565     23601     23654
                                                  ALLOC          24515
                                                  HEADER         27255     27270     27275     27305     27337     27365
                                                  KEY            30163     30431     30455     30470     30550
                                                  CDDIR          31515     31517     31520     31525     31532     31562     31562
                                                                 31565     31603     31606     31620     31622     31624     31651
                                                                 31652     31662
                                                  DATA           32026
                                                  DECL           33206     33221     33224     34011     34012     34054     34061
                                                                 34113     34214     34303     34305     34306     34312     34353
                                                                 34356
                                                  TYPE           36266     36271     36274     36414     36417
                                                  FMT            37046
                                                  STMTF          51312     51457
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   114  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LABEL          51774     51776     51777
          FEC.RIF     17127                       KEY            31040     31044
          FEC.RTF     17132                       KEY            30316
          ASK         17164                       KEY            30126
                                                  TYPE           36137
                                                  LABEL          52001
          ASL         17221                       KEY            30104
                                                  LABEL          52003
          CSB         17332                       KEY            31177
                                                  LABEL          51773
          CUS.RET     17452                       FERRS          22634
                                                  KEY            30571     30572     30576     31146     31154     31165     31167
                                                                 31176     31201
          OIL         17570                       QCGLINK         6041
                                                  KEY            30372     31314
                                                  CDDIR          31476
                                                  DATA           32030
                                                  IO             41342
                                                  LABEL          52242
          BBC         20065                       IO             40665     40742     41150     41253     41551     41606     41616
                                                                 41657     41661     41676     41700     42252
                                                  PAR            46560
                                                  LABEL          52124     52441
          CCT         20100                       KEY            30173
                                                  DECL           33172     33237     33742     34043     34077     34160     34247
          CT1         20107                       KEY            30210
                                                  DECL           33165     35377
                                                  FMT            36644
                                                  IO             40430     41147     41236     41422     41547     41605
                                                  PAR            43300     43406     43460     43470     46001     46051     46114
                                                  CONRED         51076
                                                  LABEL          51623     51724     52050     52111     52231     52332
          STY         20131                       HEADER         27264     27736
                                                  KEY            30341
                                                  DECL           34046     34252
                                                  TYPE           36375     36410     36424
                                                  PAR            43455     43465
                                                  STMTF          51424
          NAT.TYP     20137                       TYPE           36347     36351
          NAT.LEN     20146                       TYPE           36357
          TLV         20163                       LEX            25412
                                                  HEADER         27404     27500     27513     30012
                                                  KEY            30215     30405
                                                  DATA           33000
                                                  DECL           33126     33157     34026     34172     34224     34333
                                                  TYPE           36222
                                                  PAR            43272
          TRV         20172                       KEY            30127     30430     30577
                                                  DECL           33167     33235     33736     34153     34317
                                                  STMTF          51313
          TRVA        20237             
          TSX         20241                       HEADER         27565     30041     30043     30047
                                                  KEY            31450
                                                  IO             37642     37676     40076     40333     41313     41347
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   115  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            45640     45706     46244
          TSY         20253                       HEADER         27364     27570     27573     30027     30034     30036     30040
                                                                 30046     30051
          ERT         20272                       HEADER         27442     30010
                                                  KEY            30207     30367     30423     30477
                                                  CDDIR          31650
                                                  DATA           32154     32750
                                                  DECL           34052     34126     34277
                                                  TYPE           36226
                                                  IO             40452     40635     42116
                                                  PAR            43216     43566
                                                  STMTF          51431
                                                  LABEL          51567     51751
          ERT=ON      20312                       CDDIR          31646
          ERT=OFF     20313                       CDDIR          31647
          ESY         20314                       HEADER         27434     27537     27740
                                                  KEY            30204     30343     30414
                                                  DECL           34050     34074     34254
                                                  TYPE           36217
                                                  IO             40630
                                                  PAR            43457     43467
                                                  STMTF          51426
                                                  LABEL          51531     51723
          INN         20350                       DECL           35240
                                                  LABEL          52034     52106     52215
          NCM         20362                       LEX            26700     26736
                                                  DATA           32734
                                                  DECL           35246
                                                  CONRED         50367     50723
                                                  FUN            56770
          SCS         20422                       HEADER         27765
                                                  DECL           33136     34176     34335
                                                  STMTF          51361
                                                  QCGC           53114
                                                  MAP            67643     67740
          SCSA        20431                       HEADER         27763
                                                  DECL           33116     34117     34310
                                                  STMTF          51346
                                                  QCGC           53110     53120
                                                  MAP            67642     67736
          SCT         20432                       HEADER         27756
                                                  KEY            30156     31432
                                                  DATA           32616
                                                  DECL           34234
                                                  CONRED         50741
                                                  STMTF          51327
                                                  FUN            56557
          SLT         20441                       DECL           34065
                                                  PAR            43422     43463
          SSY         20466                       LEX            25421
                                                  HEADER         27426     27501     27514     27726
                                                  KEY            30171     30330     30410
                                                  DATA           33002
                                                  DECL           34030     34072     34243
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   116  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  TYPE           36153
                                                  FMT            36642
                                                  IO             40414     40626     41543     41604
                                                  PAR            43273
                                                  STMTF          51261     51423
                                                  LABEL          51511     51604
          E.SF00      20537   FERRS               STMTF          51342
          E.GE        20537             
          B=FERRS     20537                       RPV10           2711
          E.PX5       20537                       DECL           34302
                                                  PAR            43202
          E.GE2       20540             
          E.EX3       20540                       DECL           34021
          E.DM16      20540                       DECL           33234
          E.C$09      20541                       CDDIR          31574     31613     31755
          E.IOD4      20541                       IO             42225
          E.GE3       20541             
          E.PX8       20542                       DECL           34303
          E.FS18      20542                       FMT            37026
          E.GE6       20542             
          E.ANS3      20543                       KEY            30505
          E.AG08      20544                       HEADER         30016
          E.AS4       20545                       KEY            30104
          E.DO05      20545                       LABEL          52003
          E.CL2       20546                       KEY            30171
          E.CM        20547                       DECL           33131
          E.CM1       20550                       DECL           33122
          E.CM2       20551                       DECL           33144     34206     34345
          E.CM3       20552                       DECL           33212     34212
          E.CM5       20553                       DECL           33124
          E.CM6       20554                       DECL           33207
          E.CT        20555                       KEY            30273
          E.C$00      20556                       CDDIR          31507     31727
          E.C$01      20557                       CDDIR          31571     31610
          E.C$02      20560                       CDDIR          31703
          E.C$03      20561                       CDDIR          31600     31617
          E.C$04      20562                       CDDIR          31602
          E.C$06      20563                       CDDIR          31511     31550
          E.C$07      20564                       CDDIR          31502     31721
          E.C$08      20565                       CDDIR          31501     31541     31545     31716
          E.C$11      20566                       CDDIR          31547
          E.DACV      20567                       DATA           32054
          E.DAVC      20570                       DATA           32053
          E.DCE       20571                       DATA           32223     32773     32774     32775
          E.DIL       20572                       DATA           32123     32173
          E.DIL1      20573                       DATA           32140     32564     32566
          E.DIL2      20574                       DATA           32167
          E.DIL3      20575                       DATA           32224
          E.DIL4      20576                       DATA           32151
          E.DM10      20577                       DECL           33230
          E.DO08      20600                       LABEL          52463
          E.DO14      20601                       LABEL          52006
          E.EN1       20602                       KEY            30320
          E.EN2       20603                       KEY            30324
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   117  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.EN3       20604                       KEY            30325
          E.EN4       20605                       KEY            30326
          E.EQ        20606                       DECL           34003
          E.EQ1       20607                       DECL           33734
          E.EQ2       20610                       DECL           34010
          E.EQ3       20611                       DECL           33772
          E.EQ4       20612                       DECL           33771
          E.FD2       20613                       HEADER         27502
          E.FD3       20614                       HEADER         27515
          E.FD4       20615                       HEADER         27602
          E.FD5       20616                       HEADER         27602
          E.FD6       20617                       HEADER         27602
          E.FD7       20620                       HEADER         27603
          E.FD8       20621                       HEADER         27603
          E.FD9       20622                       HEADER         27603
          E.GO        20623                       KEY            30546     30627     30654
          E.GO1       20624                       KEY            30536
          E.GO2       20625                       KEY            30567
          E.IF00      20626                       KEY            31022
          E.IF03      20627                       KEY            31101     31104
          E.IF06      20630                       KEY            31034
          E.IF09      20631                       KEY            31025
          E.IF10      20632                       KEY            31107
          E.IF11      20633                       KEY            31026
          E.IF12      20634                       KEY            30721
          E.IF13      20635                       KEY            30746     31227     31267
          E.IN        20636                       DECL           34063
          E.IN4       20637                       DECL           34113
          E.IO01      20640                       IO             37621     37661     40564
          E.IO07      20641                       IO             40402     40413
          E.IO08      20642                       IO             40034     40042
          E.IO10      20643                       IO             40467
          E.IO11      20644                       IO             40473
          E.IO12      20645                       IO             40475
          E.IO13      20646                       IO             40037
          E.IO15      20647                       IO             40514
          E.IO16      20650                       IO             37626     37632     37672     37732     40470     40557
          E.IO17      20651                       IO             41047     41050     41053
          E.IO19      20652                       IO             37621     37720
          E.IO20      20653                       IO             40566
          E.IO21      20654                       IO             40567
          E.IO25      20655                       IO             40057
          E.IO28      20656                       IO             40055
          E.IO29      20657                       IO             40056
          E.IOB0      20660                       IO             40665     40742
          E.IOB1      20661                       IO             40072
          E.IOB2      20662                       IO             40653     40657
          E.IOB3      20663                       IO             40073     40117
          E.IOB4      20664                       IO             40107     40125
          E.IOB5      20665                       IO             40116     40133
          E.IOB6      20666                       IO             40733
          E.IOB8      20667                       IO             40656
          E.IOB9      20670                       IO             40713     40720     40724     40726
          E.IOD1      20671                       IO             42174
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   118  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOD2      20672                       IO             42210
          E.IOD3      20673                       IO             42214
          E.IOL7      20674             
          E.IOL8      20675             
          E.IOF       20676                       IO             40766     40767     40770     40772
          E.IOF2      20677                       IO             40775
          E.IOS1      20700                       IO             40152
          E.IOS2      20701                       IO             40161
          E.IOS3      20702                       IO             40164
          E.IOS4      20703                       IO             40166
          E.IOS5      20704                       IO             40175
          E.IOS6      20705                       IO             40152     40161     40166
          E.IOS8      20706                       IO             40164
          E.IOS9      20707                       IO             40746     40750
          E.IOS10     20710                       IO             41130
          E.LV1       20711                       DECL           34120     34121     34123     34131     34135
          E.LV3       20712                       DECL           34142     34151     34170
          E.LV4       20713                       DECL           34157
          E.LV5       20714                       DECL           34215
          E.LV7       20715                       DECL           34200
          E.LV8       20716                       DECL           34175
          E.FM        20717                       FEC            17064     17171
                                                  KEY            30720     31033
          E.MA        20720                       FEC            17110
          E.MD        20721                       FEC            17111
          E.ME        20722                       LEX            25006
          E.MH        20723                       FEC            17112
          E.MI        20724                       FEC            17113
          E.MR1       20725                       HEADER         27473     27546     27703     27724     30013
          E.MR2       20726                       KEY            30402
                                                  DECL           33313
          E.MR3       20727                       KEY            30424
                                                  DECL           33732
          E.NP1       20730                       LABEL          52020
          E.OV1       20731                       HEADER         27312
          E.OV3       20732                       HEADER         27336
                                                  KEY            30274
          E.NL        20733                       KEY            30401
          E.NL1       20734                       KEY            30407
          E.NL2       20735                       KEY            30403
          E.NL3       20736                       KEY            30411
          E.NL4       20737                       KEY            30436
          E.NL5       20740                       KEY            30427
          E.PX3       20741                       DECL           34223
          E.PX4       20742                       DECL           34227
          E.SA1       20743                       DECL           34316     34331
          E.SA3       20744                       DECL           34351
          E.SA4       20745                       DECL           34353
          E.SF01      20746                       STMTF          51344
          E.SF02      20747                       STMTF          51416
          E.SF03      20750                       STMTF          51362
          E.SF08      20751                       STMTF          51263     51266     51267     51271
          E.SL18      20752                       LABEL          51573
          E.TY5       20753                       TYPE           36455     36460
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   119  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TYI       20754                       TYPE           36475     36475
          E.TYI1      20755                       TYPE           36305
          E.TYI2      20756                       TYPE           36314     36325
          E.TYI6      20757                       TYPE           36365
          E.TYI7      20760                       TYPE           36370
          E.VA09      20761                       FEC            20175
                                                  DECL           34023
                                                  TYPE           36120     36151     36152
          E.VA13      20762                       PAR            43412
          OSE         20763                       PAR            46174     46447     46467     46471
          DICT        21004                       PEM            23755
          FILL.       21005                       FEC            17120     17263     17273     17324     17367     17405     17412
                                                                 17425     17433     17437     17505     20167     20175     20321
                                                  PEM            23703     23734
                                                  ALLOC          24364     24541
                                                  LEX            25175     26623     26654
                                                  HEADER         27477     27716
                                                  KEY            30123     30143     30170     30327     30426     30605     30760
                                                                 31023     31240
                                                  CDDIR          31734     31737
                                                  DATA           32147
                                                  DECL           33134     33161     33467     33502     33736     34023     34064
                                                                 34152     34174     34243     34334     34420     34514     34534
                                                                 34577     34643     34664     34766     35066     35432     35666
                                                                 35712
                                                  TYPE           36150     36313     36316     36324     36326     36423
                                                  FMT            36766     37047     37067     37135     37164     37203
                                                  IO             40270     40306     41051     41174     41603     42103
                                                  PAR            43267     44101     44642     44735     45435     45474     45732
                                                                 45775     46031     46060     46676
                                                  CONRED         50776
                                                  STMTF          51277
                                                  LABEL          51471     51563
          CLASS       21005                       FEC            17301     20102     20102     20207     20213     20224
                                                  KEY            30141     30603
          FILL.2      21006                       FEC            17173     17302     20103     20226
                                                  ALLOC          24544
                                                  HEADER         27511
                                                  KEY            30142     30604     31012
                                                  CDDIR          31506     31704     31727     31742
                                                  DECL           33311
                                                  IO             40270
                                                  PAR            44055     44712
                                                  STMTF          51315     51363     51413
                                                  LABEL          51575
          FILL.3      21007                       KEY            31066
                                                  TYPE           36317     36327
                                                  IO             41020     41027     41040     41062
                                                  PAR            43122     44751     44776     46664     46742
                                                  STMTF          51260
                                                  LABEL          52164
          DO.DPC      21046                       PAR            44711
          MOD.DPC     21052                       FEC            17366
                                                  KEY            31065
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   120  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             41017     41026     41037     41061
                                                  PAR            44747     44775     46663     46663
          ERL=XPR     21062                       PAR            46713
          ERL=CON     21063                       PAR            43121     46712
          E.DM15      22002                       DECL           33315
          E.GE1       22002             
          E.EX2       22002                       DECL           34055
          E.TY        22002                       DECL           33222
                                                  TYPE           36270
          E.SPR4      22010                       KEY            30516     31417
          E.AS1       22010                       KEY            30136
          E.IO37      22010                       IO             37637
          E.CT1       22010                       KEY            30266
          E.FD11      22010                       HEADER         27553
          E.GE4       22010             
          E.AG02      22010                       HEADER         30020
          E.IF08      22010                       KEY            30733     30744
          E.ME1       22010                       KEY            30301
          E.GO9       22010                       KEY            30630     31363
          E.C$10      22010                       CDDIR          31706     31756
          E.VA00      22012                       FEC            20225
          E.GE5       22012             
          E.AS7       22012                       KEY            30144     30606
          E.ANS       22016                       KEY            30375
                                                  DECL           34115
                                                  TYPE           36106
                                                  IO             37707     40064     40146
          E.ANS1      22020                       FEC            17160
          E.ANS2      22022                       FEC            20321
                                                  DECL           33135
          E.ANS4      22026                       PAR            46705
          E.ANS5      22030                       PAR            45377     45402
          E.ANS6      22032                       CONRED         51113
          E.AG00      22034                       HEADER         27623
          E.AG01      22036                       HEADER         27713
          E.AG03      22040                       HEADER         27757
          E.AG04      22042                       HEADER         27720
          E.CL1       22044                       KEY            30240
          E.AG07      22044                       HEADER         27466     27705
          E.AG11      22050                       HEADER         27723
          E.AG12      22052                       HEADER         27733
          E.AS2       22054                       KEY            30124
          E.AS3       22055                       KEY            30135
          E.AS5       22060                       KEY            30117
          E.AS6       22062                       FEC            17406
          E.AT01      22065                       DATA           32710
                                                  PAR            47213     47227     47234
          E.AT02      22067                       PAR            44103
          E.AT03      22071                       DATA           32573
                                                  PAR            43243
          E.AT04      22073                       PAR            43555
          E.AT05      22075                       PAR            44260
          E.AT06      22100                       PAR            44013
          E.AT07      22102                       PAR            47216
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   121  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AT08      22103                       DATA           32566
                                                  PAR            43236
          E.AT09      22104                       PAR            42504
          E.AT10      22106                       PAR            43125
          E.AT11      22110                       PAR            46562
          E.AT13      22112                       DATA           32743
                                                  PAR            47177
          E.AT14      22114                       PAR            47203
          E.AT15      22116                       PAR            44540
          E.AT16      22120                       DECL           34652     35622
                                                  PAR            43630     44652
                                                  CONRED         51071
          E.AT17      22122                       PAR            44667
          E.AT18      22123                       PAR            43232
          E.AT19      22125                       PAR            46665
          E.AT20      22127                       PAR            43224
          E.AT21      22131                       PAR            44053
          E.CL3       22135                       KEY            30176
          E.CL4       22137                       KEY            30200
          E.CM8       22155                       FEC            17302
          E.CM9       22157                       DECL           34425
          E.CM10      22161                       DECL           34430
          E.CM11      22163                       DECL           34514
          E.CM12      22165                       DECL           35432
          E.C$05      22202                       CDDIR          31742
          E.C$15      22215                       FEC            17440
          E.DABC      22217                       CONRED         51110
          E.DABL      22221                       CONRED         51116
          E.DAR       22226                       DATA           32174
          E.DAUC      22230                       CONRED         51104
          E.DSE       22245                       DATA           32103     32116
                                                  CONRED         50772     51046
          E.DVL1      22247                       DATA           32255
                                                  PAR            43122
                                                  CONRED         51101
          E.DVR1      22251                       CONRED         51041
          E.DVR2      22253                       CONRED         51150
          E.DVR3      22255                       CONRED         51227
          E.DVR4      22257                       CONRED         51027
          E.DVR5      22261                       PAR            45430
          E.DC        22263                       CONRED         50010     50103
          E.DC1       22264                       PAR            43161
                                                  CONRED         50100
          E.DC3       22266                       CONRED         47746     47750
          E.DC4       22270                       PAR            44351
          E.DC6       22272                       CONRED         47763
          E.DC7       22274                       DATA           32206
          E.DC8       22275                       CONRED         47735     47770     50001     50063
          E.DC9       22277                       CONRED         50066
          E.DC10      22301                       DATA           32662
          E.DM00      22303                       DECL           33253     33317
          E.DM01      22305                       PAR            43151     43171     43210     43257
          E.DM02      22307                       DECL           33343
          E.DM03      22311                       FEC            17502
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   122  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DM04      22313                       FEC            17503
          E.DM05      22315                       DECL           33250
          E.DM06      22317                       DECL           33336     33406
          E.DM07      22321                       DECL           33513
          E.DM08      22323                       DECL           33417
          E.DM09      22325                       DECL           33244
          E.DM11      22331                       PAR            46516
          E.DM12      22334                       DECL           35713
          E.DM13      22336                       DECL           33404
          E.DM14      22340                       PAR            43523
          E.DM17      22342                       PAR            43520
          E.DM18      22345                       PAR            43522
          E.DM19      22350                       DECL           35660
          E.DM20      22352                       DECL           35662
          E.DM21      22354                       PAR            43525
          E.DO00      22356                       PAR            44675     44720
          E.DO01      22360                       LABEL          52133
          E.DO02      22362                       PAR            45022
          E.DO03      22364                       LABEL          52164
          E.DO04      22366                       PAR            44734
          E.DO06      22370                       LABEL          51711
          E.DO07      22372                       LABEL          52561
          E.DO09      22376                       FEC            17425
          E.DO10      22400                       LABEL          52011
          E.DO12      22402                       LABEL          51721     52302
          E.DO13      22404                       LABEL          52307
          E.DO15      22410                       PAR            44733     44750
          E.DO16      22412                       PAR            44776
          E.DO17      22414                       PAR            45030
          E.DO18      22416                       LABEL          52134
          E.DO19      22420                       LABEL          51662     52554
          E.DO20      22422                       LABEL          52556
          E.EN        22424                       KEY            30335
          E.EN5       22436                       KEY            30333
          E.EN6       22441                       KEY            31301
          E.EN7       22443                       KEY            31306
          E.EN8       22445                       KEY            31307
          E.EQ6       22457                       DECL           34006
          E.EQ7       22461                       DECL           34736
          E.EQ8       22464                       DECL           34737
          E.EQ10      22466                       DECL           34670
          E.EQ11      22470                       DECL           35046     35055
          E.EQ12      22472                       DECL           35051     35057
          E.EQ13      22474                       DECL           34732
          E.EQ14      22476                       DECL           34746
          E.EQ15      22500                       DECL           34752
          E.EQ16      22503                       DECL           35062     35067
          E.EQ17      22505                       DECL           34676
          E.EX1       22507                       DECL           34032
          E.EX4       22511                       DECL           34036
          E.FD        22513                       HEADER         27471
          E.FD1       22515                       HEADER         27474
          E.FD10      22537                       HEADER         27550
          E.FD12      22541                       HEADER         27555
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   123  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.FS00      22543                       FMT            36630
          E.FS01      22545                       FMT            37325
          E.FS02      22550                       FMT            37362
          E.FS03      22552                       FMT            36737
          E.FS04      22554                       FMT            37144     37174     37216
          E.FS05      22556                       FMT            37263
          E.FS06      22560                       FMT            37115
          E.FS07      22562                       FMT            37154     37222
          E.FS08      22564                       FMT            36766     37121
          E.FS09      22566                       FMT            37374
          E.FS10      22571                       FMT            37341
          E.FS11      22573                       FMT            37410
          E.FS12      22575                       FMT            37406
          E.FS13      22577                       FMT            37321     37343
          E.FS14      22602                       FMT            37047     37225
          E.FS15      22603                       FMT            37256     37301
          E.FS16      22605                       FMT            36705
          E.FS17      22610                       FMT            37273
          E.FS19      22613                       FMT            37023
          E.FS20      22614                       FMT            36665
          E.FS21      22615                       FMT            36711
          E.FS22      22617                       FMT            36744     37353
          E.FS23      22621                       FMT            37331
          E.FS24      22623                       FMT            37334
          E.FS25      22626                       FMT            36716     36727     36761     36771     37104     37151     37315
          E.FS26      22627                       FMT            36654
          E.GO3       22636                       KEY            30615
          E.GO4       22640                       KEY            30611
          E.GO5       22642                       KEY            30271     30570
          E.GO6       22644                       KEY            31366
          E.GO7       22646                       KEY            30552
          E.GO8       22647                       KEY            30625     30672
          E.HC1       22651                       LEX            26707     26747
          E.HC2       22653                       LEX            25204
          E.HC3       22655                       LEX            25176
          E.IF01      22660                       KEY            30735
          E.IF02      22662                       KEY            31037
          E.IF04      22666                       KEY            31150
          E.IF05      22670                       KEY            31144
          E.IF07      22674                       KEY            31066
          E.IF14      22707                       KEY            30730
          E.IF15      22711                       KEY            30760     31240
          E.IF16      22713                       LABEL          52272
          E.IF17      22715                       FEC            17433
          E.IN1       22721                       DECL           34067
          E.IN2       22723                       DECL           34101
          E.IN3       22725                       DECL           34107
          E.INF       22731                       PAR            45631
          E.INF1      22733                       PAR            45612
          E.INF2      22735                       PAR            45626
          E.INF3      22737                       PAR            45556
          E.IO00      22741                       IO             40003     40226
          E.IO02      22744                       IO             41303
          E.IO03      22747                       IO             40612     40616
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   124  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IO04      22751                       IO             40206
          E.IO05      22753                       IO             41020     41027     41041     41062
          E.IO06      22755                       IO             37664
          E.IO09      22763                       IO             40035
          E.IO14      22775                       IO             41412
          E.IO18      23004                       IO             41014     41034     41056
          E.IO22      23014                       IO             40511
          E.IO23      23016                       IO             40235
          E.IO24      23020                       IO             40246
          E.IO26      23024                       IO             40234     40376
          E.IO30      23032                       IO             40230
          E.IO31      23034                       IO             40645
          E.IO32      23036                       IO             40650
          E.IO33      23040                       IO             40231     40443
          E.IO34      23042                       IO             40026
          E.IO35      23044                       IO             40027
          E.IO36      23046                       IO             40763
          E.IOB7      23067                       IO             40662     40737
          E.IOL1      23104                       IO             41324
          E.IOL2      23106                       IO             41260
          E.IOL5      23110                       IO             41335
          E.IOL6      23112                       IO             41110
          E.IOF1      23121                       IO             40772
          E.ION       23125                       IO             41354
          E.ION1      23127                       IO             41344
          E.IOS7      23145                       IO             41126
          E.LP1       23153                       PAR            44160     44272
                                                  STMTF          51403
          E.LP2       23156                       PAR            44264
                                                  STMTF          51402
          E.LP3       23161                       PAR            43676     44066
          E.LV2       23165                       DECL           34143
          E.LV6       23175                       FEC            17330
          E.LV9       23203                       DECL           34536
          E.LV11      23205                       PAR            46611
          E.MB        23213                       FEC            17067
          E.MCA       23215                       LEX            25076
          E.INI       23217                       LEX            25067
          E.TLBL      23221                       LEX            25071
          E.MDO       23224                       FEC            17125
                                                  KEY            30543     31112
          E.MS        23240                       FEC            17412
          E.NP        23242                       FEC            17470
          E.OV2       23250                       HEADER         27303
          E.OV4       23254                       HEADER         27372
          E.PN1       23256                       HEADER         27406
          E.PN3       23260                       HEADER         27341
          E.SEQ       23262                       FEC            17056
          E.STO       23264                       FEC            20342
          E.MO1       23266                       REC            63501
          E.MO2       23267                       ALLOC          24512
          E.MO4       23271             
          E.MO5       23272                       ALLOC          24454
          E.MO6       23274                       ALLOC          24545
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   125  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.MO7       23276                       ALLOC          24431
          E.MO8       23300                       REC            63500
          E.TC1       23302                       ALLOC          24365
          E.MDE1      23303                       HEADER         27307
          E.MDE2      23304                       DATA           32142
                                                  TYPE           36107
                                                  PAR            43162     43204     43235     43474
          E.MDE3      23306                       IO             40065
          E.MDE4      23310                       IO             40147
          E.MDE5      23312                       PAR            43505
          E.MDE6      23314                       HEADER         27276
          E.PX1       23330                       PAR            42530
          E.PX2       23332                       DECL           34217
          E.PX6       23340                       PAR            42555     42563
          E.PX7       23342                       PAR            45052
          E.SA        23344                       DECL           34566
          E.SA2       23350                       DECL           34325     34340
          E.SA5       23356                       DECL           34321
          E.SA6       23360                       DECL           34600
          E.SB2       23362                       PAR            46444
          E.SB3       23364                       PAR            46447
          E.SB4       23366                       PAR            46461
          E.SB5       23370                       PAR            46464
          E.SB6       23372                       PAR            46466
          E.SB7       23374                       PAR            46173
          E.SF04      23404                       STMTF          51414
          E.SF05      23406                       STMTF          51330
          E.SF06      23410                       STMTF          51306
          E.SF07      23412                       STMTF          51272
          E.SF09      23416                       PAR            45440
          E.SF10      23420                       PAR            43646
          E.SF11      23422                       STMTF          51317
          E.SF12      23424                       STMTF          51354
          E.SF13      23427                       PAR            43607
          E.SF14      23432                       STMTF          51326
          E.SF15      23434                       PAR            45502
          E.SL00      23437                       LABEL          51517
          E.SL01      23441                       LABEL          51512
          E.SL02      23443                       LABEL          51637
          E.SL03      23445                       LABEL          51645
          E.SL04      23447                       LABEL          51642
          E.SL05      23451                       LABEL          51651
          E.SL06      23453                       LABEL          51650     51674
          E.SL07      23455                       LABEL          51671
          E.SL08      23457                       LABEL          51677     51701
          E.SL09      23461                       LABEL          51657     52377
          E.SL10      23464                       LABEL          51540
          E.SL11      23466                       LABEL          51625
          E.SL12      23470                       LABEL          51542
          E.SL13      23472                       LABEL          51547
          E.SL14      23474                       LABEL          51504
          E.SL15      23476                       LABEL          51500
          E.SL16      23500                       LABEL          51520
          E.SL17      23502                       LABEL          51641
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   126  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SL19      23506                       LABEL          51503
          E.SL20      23507                       LABEL          51655
          E.ST        23512                       DECL           35625
          E.ST1       23514                       DECL           34645
          E.SPR1      23516                       KEY            31423
          E.SPR2      23520                       KEY            31430
          E.SU11      23522                       PAR            45336
          E.SPR5      23522                       KEY            30522
          E.SU01      23524                       PAR            47376
          E.SU02      23526                       PAR            45771
          E.SU03      23530                       PAR            45746     46137
          E.SU04      23533                       FEC            20457
          E.SU05      23535                       PAR            46007
          E.SU06      23537                       FEC            17367
          E.SU07      23542                       PAR            46132
          E.SU08      23544                       PAR            45766     45772
          E.SU09      23546                       PAR            46012
          E.SU10      23550                       PAR            45330
          E.TY0       23552                       TYPE           36172
          E.TY1       23554                       TYPE           36162     36214     36254     36256
          E.TY2       23556                       TYPE           36203
                                                  PAR            43431
          E.TY3       23560                       TYPE           36441     36444     36460
          E.TY4       23563                       TYPE           36447     36463
                                                  PAR            42556
          E.TY6       23567                       TYPE           36445     36461
          E.TY7       23570                       FEC            17263
          E.TY8       23572                       TYPE           36215     36255     36426
          E.TY9       23575                       TYPE           36177
                                                  PAR            43426
          E.TY10      23577                       TYPE           36157     36257
          E.TYI3      23607                       TYPE           36317     36330
          E.TYI4      23611                       TYPE           36335
          E.TYI5      23613                       TYPE           36332
          E.TYI8      23621                       TYPE           36345
          E.TYI9      23623                       TYPE           36310
          E.VA01      23625                       PAR            43405
          E.VA02      23627                       FEC            20104
          E.VA03      23631                       PAR            43331
          E.VA04      23633                       PAR            43343     43371     43444
          E.VA05      23635                       PAR            43351
          E.VA06      23637                       PAR            43354
          E.VA07      23641                       PAR            43374
          E.VA08      23643                       PAR            43322
          E.VA10      23646                       FEC            20167
          E.VA11      23650                       PAR            44134     44557
          E.VA12      23652                       PAR            43662
          E.XP1       23656                       PAR            45125
          E.XP3       23660                       PAR            45071
          E.XP4       23662                       PAR            45146
          E.XP5       23664                       PAR            45254
          E.XP6       23666                       PAR            45126
          E.XP7       23670                       PAR            45070
          E.ZEMT      23672                       PAR            47002
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   127  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          B=PEM       23673   PEM                 RPV10           2712
          ANSI=       23674                       FEC            17160     17303     20322     20457
                                                  HEADER         27471
                                                  KEY            31037     31367
                                                  DATA           32174     32567     32635     32640
                                                  DECL           33135     34115
                                                  TYPE           36106
                                                  FMT            36767     37121
                                                  IO             37707     40064     40146     40511     40773     41325     41344
                                                  PAR            42505     43161     43236     43610     44053     44667     45400
                                                                 45403     46706     47217
                                                  CONRED         50100     51113
                                                  STMTF          51320
                                                  LABEL          51662     52554
          ANSI.SW     23675                       INIT10         73442
          MDERR=      23677                       HEADER         27276     27307
                                                  DATA           32143
                                                  TYPE           36107
                                                  IO             40065     40147
                                                  PAR            43162     43204     43235     43475     43505
          MDER.SW     23700                       INIT10         73447
          PEMS        23701                       FERRS          20556     20561     20570     20576     20577     20600     20613
                                                                 20614     20616     20617     20620     20622     20643     20644
                                                                 20645     20651     20702     20713     20715     20716     20721
                                                                 20736     20746     20747     20750     20751     20762     21000
                                                                 22012     22022     22040     22052     22054     22055     22062
                                                                 22067     22073     22114     22120     22123     22125     22127
                                                                 22135     22137     22155     22157     22161     22163     22165
                                                                 22202     22215     22217     22221     22230     22251     22253
                                                                 22255     22305     22307     22311     22313     22315     22317
                                                                 22321     22323     22325     22331     22334     22340     22342
                                                                 22345     22350     22352     22354     22364     22366     22370
                                                                 22376     22424     22436     22441     22443     22445     22461
                                                                 22464     22466     22470     22472     22474     22476     22500
                                                                 22503     22505     22507     22511     22554     22562     22564
                                                                 22602     22655     22674     22711     22713     22715     22721
                                                                 22723     22725     22753     23004     23016     23112     23175
                                                                 23203     23205     23240     23274     23302     23350     23356
                                                                 23360     23362     23364     23366     23370     23372     23374
                                                                 23404     23406     23412     23416     23420     23422     23424
                                                                 23432     23434     23437     23441     23443     23445     23447
                                                                 23451     23453     23455     23457     23461     23466     23472
                                                                 23474     23476     23502     23507     23512     23514     23526
                                                                 23530     23533     23535     23537     23542     23544     23546
                                                                 23552     23554     23556     23570     23572     23575     23577
                                                                 23607     23611     23613     23625     23627     23631     23633
                                                                 23635     23637     23641     23643     23646     23652
          PEMV        23716                       FERRS          20537     20540     20541     20542     20544     20545     20552
                                                                 20560     20563     20564     20565     20601     20607     20610
                                                                 20611     20612     20627     20634     20636     20637     20641
                                                                 20646     20650     20652     20663     20664     20665     20700
                                                                 20701     20703     20704     20706     20726     20735     20740
                                                                 20741     20742     20743     20744     20745     20753     20755
                                                                 20756     20757     20760     20761     22002     22010     22042
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   128  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 22044     22050     22106     22266     22400     22515     22537
                                                                 22545     22556     22571     22577     22603     22605     22610
                                                                 22615     22617     22621     22623     22626     22636     22707
                                                                 22755     22763     23153     23156     23161     23250     23330
                                                                 23332     23340     23410     23550
          PEM         23735                       FERRS          20543     20546     20547     20550     20551     20553     20554
                                                                 20555     20557     20562     20566     20567     20571     20572
                                                                 20573     20574     20575     20602     20603     20604     20605
                                                                 20606     20615     20621     20623     20624     20625     20626
                                                                 20630     20631     20632     20633     20635     20640     20642
                                                                 20647     20653     20654     20655     20656     20657     20660
                                                                 20661     20662     20666     20667     20670     20671     20672
                                                                 20673     20674     20675     20676     20677     20705     20707
                                                                 20710     20711     20712     20714     20717     20720     20722
                                                                 20723     20724     20725     20727     20730     20731     20732
                                                                 20733     20734     20737     20752     20754     22016     22020
                                                                 22026     22030     22032     22034     22036     22060     22065
                                                                 22071     22075     22100     22102     22103     22104     22110
                                                                 22112     22116     22122     22131     22226     22245     22247
                                                                 22257     22261     22263     22264     22270     22272     22274
                                                                 22275     22277     22301     22303     22336     22356     22360
                                                                 22362     22372     22402     22404     22410     22412     22414
                                                                 22416     22420     22422     22457     22513     22541     22543
                                                                 22550     22552     22560     22566     22573     22575     22613
                                                                 22614     22627     22640     22642     22644     22646     22647
                                                                 22651     22653     22660     22662     22666     22670     22731
                                                                 22733     22735     22737     22741     22744     22747     22751
                                                                 22775     23014     23020     23024     23032     23034     23036
                                                                 23040     23042     23044     23046     23067     23104     23106
                                                                 23110     23121     23125     23127     23145     23165     23213
                                                                 23215     23217     23221     23224     23242     23254     23256
                                                                 23260     23262     23264     23266     23267     23271     23272
                                                                 23276     23300     23303     23304     23306     23310     23312
                                                                 23314     23342     23344     23427     23464     23470     23500
                                                                 23506     23516     23520     23522     23524     23560     23563
                                                                 23567     23621     23623     23650     23656     23660     23662
                                                                 23664     23666     23670     23672
          PDM         24066                       FEC            17056     17070     17126     17264     17330     17370     17406
                                                                 17413     17426     17434     17440     17471     17505     20105
                                                                 20170     20226     20342
                                                  FERRS          20767     20770
                                                  ALLOC          24365     24431     24454     24513     24545
                                                  LEX            25067     25072     25077     25176     25204     26710     26747
                                                  HEADER         27304     27341     27373     27406     27466     27474     27550
                                                                 27553     27556     27624     27705     27713     27724     27734
                                                                 27760     30020
                                                  KEY            30120     30124     30135     30137     30144     30176     30200
                                                                 30241     30267     30271     30301     30360     30375     30517
                                                                 30522     30544     30553     30570     30606     30611     30616
                                                                 30625     30631     30672     30730     30733     30736     30744
                                                                 30761     31067     31113     31145     31151     31241     31363
                                                                 31371     31417     31423     31430
                                                  CDDIR          31706     31743     31757
                                                  DATA           32022     32103     32116     32573     32711     32743
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   129  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           33223     33225     33244     34006     34033     34036     34056
                                                                 34067     34102     34110     34144     34220     34322     34326
                                                                 34340     34432     34515     34537     34567     34600     34646
                                                                 34653     34703     34743     34747     34753     35047     35051
                                                                 35055     35057     35062     35067     35433     35623     35625
                                                                 35667     35713
                                                  TYPE           36200     36204     36206     36215     36260     36270     36310
                                                                 36320     36330     36333     36335     36345     36426     36465
                                                  FMT            36630     36654     36666     36706     36711     36717     36730
                                                                 36740     36744     36761     36772     37023     37050     37104
                                                                 37115     37144     37151     37154     37174     37216     37222
                                                                 37225     37257     37263     37273     37301     37316     37322
                                                                 37326     37331     37335     37341     37344     37354     37362
                                                                 37375     37412
                                                  IO             37640     37664     40003     40030     40036     40257     40376
                                                                 40443     40637     40764     41021     41030     41041     41063
                                                                 41111     41230     41303     41335     41354     41412
                                                  PAR            42530     42567     43123     43125     43225     43233     43244
                                                                 43322     43331     43364     43372     43374     43405     43426
                                                                 43431     43555     43604     43631     43646     43662     44013
                                                                 44104     44134     44260     44265     44351     44540     44546
                                                                 44557     44653     44671     44676     44720     44752     44777
                                                                 45022     45030     45053     45072     45074     45127     45147
                                                                 45254     45330     45337     45430     45440     45503     45557
                                                                 45612     45626     45632     45746     45775     46017     46562
                                                                 46611     46677     47002     47200     47214     47235     47376
                                                  CONRED         47735     47764     47770     50002     50011     50063     50066
                                                                 50103     50777     51101
                                                  STMTF          51272     51307     51326     51331     51354     51404     51414
                                                  LABEL          51501     51553     51655     51727     52011     52135     52165
                                                                 52273     52302     52310     52400     52557     52561
                                                  REC            63500     63502
          B=ALLOC     24223   ALLOC               RPV10           2713
          ADW         24223                       HEADER         27436     27615     27762     27766
                                                  KEY            30160     30256     30354     30443     30451     31057     31434
                                                                 31446
                                                  CDDIR          31561
                                                  DATA           32075     32200     32214     32461     32475     32620
                                                  DECL           33176     33713     33747     33755     33757     33767     34236
                                                                 34412     34442     34631     35545     35550     35561
                                                  IO             41256     42175
                                                  PAR            43673     43675     43701     45664     45670
                                                  CONRED         50743     51215
                                                  STMTF          51276     51300     51333     51335
                                                  LABEL          52434     52530     52615
                                                  QCGC           53026     53031     53121     53201     53226     53227     53230
                                                  FUN            56126     56176     56225     56263     56313     56315     56375
                                                                 56471     56547     56561     56736     57137     57172
                                                  GEN            63150
                                                  FAS            64720     64725     64726     65024     65036     65041     66203
                                                                 66210     66326
                                                  MAP            67653     70444
          ADW.ALC     24233             
          ADWT        24235                       FEC            20363     20375     20402     20407     20411     20412     20415
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   130  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 20417     20420
                                                  DECL           33424     33451     33453     33457     33461     33463
          ALC         24241                       FEC            17454     17563     17653     17715     17774     20301     20332
                                                                 20411
                                                  LEX            25101     25464
                                                  HEADER         27330     27665
                                                  KEY            30260     31047
                                                  DATA           32510     32517     32724     32765
                                                  DECL           33146     33452     33552     34203     34344     35073     35075
                                                                 35165     35315     35531
                                                  FMT            37042
                                                  IO             37617     37657     37742     40103     40341     41736
                                                  PAR            45372     46766     47011
                                                  CONRED         50340
                                                  STMTF          51444
                                                  LABEL          52043     52472     52522     52610     52653     52663
                                                  QCGC           53015     53216
                                                  FUN            57163
                                                  GEN            62173
                                                  REC            63370     63411     63536
                                                  FAS            64075     64077     64101     64106     64161     64443     65027
                                                                 65070     65103     65125     65145     65426     65515     65677
                                                  MAP            67160     67605     70240
                                                  LIST           72516
          ALC.REG     24406                       FEC            20047
                                                  PAR            45447     45466
                                                  QCGC           52774     52777
                                                  GEN            62177     62204
          ALC.00      24410                       FEC            20046
                                                  PAR            45465
                                                  QCGC           52776
                                                  GEN            62176
          ALC.STF     24411                       PAR            45446
          ALC.CAI     24412                       QCGC           52773
                                                  GEN            62203
          PTA         24537             
          PTS         24547             
          B=LEX       24643   LEX                 RPV10           2714
          LEXFLG      24647                       FEC            17046     17747
                                                  ALLOC          24474
          LEXMODE     24650                       FEC            17522
          SB=CONT     24662                       HEADER         27336
                                                  KEY            30274
          SB=LINC     24663                       FEC            17154
                                                  CDDIR          31660
          SB=LORD     24664                       FEC            17154
                                                  CDDIR          31657
          TB=1ST      24665                       FEC            17127
                                                  KEY            30662
                                                  PAR            44126
          TB=LABL     24667                       FEC            17117
                                                  KEY            31011
          TB=LABR     24670                       FEC            17116     17443
                                                  KEY            30265     30551     30622     30670
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   131  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FMT            36626
          TB=NUML     24672                       FEC            17052
          TB=NUMR     24673             
          TB=PLVL     24674             
          TB=TYPE     24675                       FEC            17062     17071     17114     17121     17123     17130     17444
                                                                 17452     17467
                                                  HEADER         27346     27707
                                                  KEY            31033
                                                  DECL           34405
                                                  PAR            43525
                                                  CONRED         50012
                                                  LABEL          51512     51561
          LEX         25023                       FEC            17051
          CST         25364                       KEY            31032
          RNC         25507             
          TF=IDP      25542                       FSNAP          15332     15341     15356     15442
          TOK=CAL     25607                       FSNAP          15271
          TOK=COF     25611                       FSNAP          15273
          TOK=ELS     25640                       FSNAP          15275
          TOK=ENT     25642                       FSNAP          15277
          TOK=GN      25653                       FSNAP          15301
          TOK=GO      25663                       FSNAP          15303
          TOK=GS      25666                       FSNAP          15305
          TOK=IFT     25676                       FSNAP          15307
          TOK=ON      25702                       FSNAP          15311
          TOK=XEQ     25706                       FSNAP          15313
          BLL         26520                       PEM            24046
          CAK         26607                       TYPE           36474
          LDB         26767                       FEC            17050     17133
                                                  PEM            24020
                                                  ALLOC          24476
                                                  CDDIR          31661
          LSL         27011             
          LSS         27047             
          KW=BLOC     27245   HEADER              LEX            24720
          B=HEADE     27245                       RPV10           2715
          KW=FUNC     27257                       LEX            24746
                                                  TYPE           36140
          KW=PROG     27272                       LEX            24765
          KW=OVCA     27276                       LEX            24760
          OVCFLG      27306                       FEC            17727
          KW=OVER     27307                       LEX            24761
          PSF         27340                       FEC            17076
                                                  TYPE           36142
          KW=SUBR     27360                       LEX            24775
          PPA130      27544                       FERRS          22517     22521     22523     22525     22527     22531     22533
                                                                 22535
          PSA         27604                       KEY            30370
          WSA         30032                       KEY            30314
          B=KEY       30103   KEY                 RPV10           2716
          KW=ASSI     30103                       LEX            24716
          KW=BREA     30162                       LEX            24777
          KW=CALL     30164                       LEX            24723
          CRL         30250                       PAR            45326
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   132  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=CONT     30265                       FEC            17444
                                                  LEX            24730
          KW=END      30274                       LEX            24737
          END23       30275                       FERRS          23226
          KW=ENTR     30317                       LEX            24742
                                                  HEADER         27710
          KW=NAME     30375                       LEX            24756
          KW=PATC     30464                       LEX            25000
          KW=PAUS     30472                       LEX            24763
          KW=RETU     30474                       LEX            24771
          KW=STOP     30531                       LEX            24774
          KW=GOTO     30535                       LEX            24747
          INIF        30674                       FEC            20040
                                                  LABEL          51770
          IFMOD       30676                       PAR            44317
          IFRESLT     30677                       PAR            44317
          IFREL2      30701                       PAR            43113     44501     46512
          IFLN        30702             
          KW=ELSE     30711                       LEX            24735
          KW=ENDI     30743                       LEX            24741
                                                  LABEL          51561
          IFS         31015                       LEX            25004
          IFS11       31027                       FERRS          22676
          IFFLAG      31202                       LABEL          51575     51631
          C=PJX       31362                       PAR            43053
          B=CDDIR     31475   CDDIR               RPV10           2717
          K$=COLL     31475                       LEX            25010
          K$=BEGC     31517                       LEX            25007
          K$=ENDC     31520                       LEX            25013
          K$=DO       31521                       LEX            25011
          K$=IF       31537                       LEX            25015
          K$=ELSE     31570                       LEX            25012
          K$=ENDI     31607                       LEX            25014
          K$=LIST     31625                       LEX            25016
          B=DATA      31764   DATA                RPV10           2720
          DAT.Z       32023                       FERRS          22232     22233     22235     22237     22241     22243
                                                  PAR            43124
                                                  CONRED         50014
          KW=DATA     32027                       LEX            24731
                                                  CONRED         50012
          DATA2       32055                       FERRS          22223     22224
          DATAFLG     32230                       CONRED         47733     47766     50000
          C=DVL       32255                       PAR            43042
          EDI         32312                       CONRED         51121
          CFC         32630                       PAR            43765
          CMV         32677                       DECL           34270
          CSC         32776                       DECL           34122
          B=DECL      33075   DECL                RPV10           2721
          KW=COMM     33114                       LEX            24726
                                                  PAR            43527
          KW=DIME     33216                       LEX            24733
          DIR         33233                       TYPE           36235
          DIRT        33303                       PAR            43530
          EDD         33423             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   133  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CDBB        33522                       PAR            46675
          C=DBD       33526                       PAR            43050     43051
          A=DBD       33527                       PAR            43050     43051
          KW=EQUI     33730                       LEX            24743
          EQS80       34012                       FERRS          22451     22455     22456
          KW=EXTE     34017                       LEX            24744
          KW=INTR     34062                       LEX            24753
          KW=LEVE     34115                       LEX            24754
          LVL80       34211                       FERRS          23177     23201
          LVL90       34213                       FERRS          23171
          KW=PARA     34216                       LEX            24762
          PRMERR      34304                       FERRS          23334     23336
          KW=SAVE     34310                       LEX            24773
          SAVERR      34355                       FERRS          23346     23352     23354
          PCD         34360                       FEC            17101
          ACV         35371                       HEADER         30002
          B=TYPE      36106   TYPE                RPV10           2722
          KW=BOOL     36106                       LEX            24721
          KW=LOGI     36111                       LEX            24755
          KW=INTE     36112                       LEX            24752
          KW=REAL     36113                       LEX            24770
          KW=DOUB     36114                       LEX            24734
          KW=COMP     36115                       LEX            24727
          KW=CHAR     36116                       LEX            24724
          TYPA        36275             
          TYPD        36300                       FEC            17510
          KW=IMPL     36303                       LEX            24750
          IMP.ER      36430                       FERRS          23603     23605     23615     23617
          B=FMT       36526   FMT                 RPV10           2723
          KW=FORM     36625                       LEX            24745
                                                  LABEL          51514
          IODIR       37454   IO                  PAR            43564
          B=IO        37454                       RPV10           2724
          IONAM       37462             
          IODOLEN     37464                       LABEL          52672
          IODOIND     37465                       DATA           32261
          KW=BACK     37601                       LEX            24717
          KW=CLOS     37602                       LEX            24725
          KW=ENDF     37604                       LEX            24740
          KW=INQU     37605                       LEX            24751
          KW=OPEN     37607                       LEX            24757
          KW=REWI     37611                       LEX            24772
          KW=PRIN     37705                       LEX            24764
          KW=PUNC     37707                       LEX            24766
          KW=READ     37712                       LEX            24767
          KW=WRIT     37716                       LEX            24776
          KW=BUFF     40064                       LEX            24722
          BUFERR      40136                       FERRS          23050     23052     23054     23056     23060     23062     23064
                                                                 23071
          KW=DECO     40143                       LEX            24732
          KW=ENCO     40145                       LEX            24736
          IOJ         40322                       PAR            43513
          A=BMOD      40652                       PAR            43057
          A=BLWA      40662                       PAR            43061
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   134  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BLWA        40734                       FERRS          23073
          C=BFWA      40737                       PAR            43060
          C=CNT       40746                       PAR            43062
          A=FMT       40753                       PAR            43065
          C=FMT       40754                       PAR            43065
          C=FOU       41001                       PAR            43066
          A=FOU       41002                       PAR            43066
          A=ICC       41012                       PAR            43067
          C=ICC       41013                       PAR            43067
          A=ICCX      41023                       PAR            43070
          C=ICCX      41024                       PAR            43070
          A=ICI       41032                       PAR            43071
          C=ICI       41033                       PAR            43071
          A=ICIX      41043                       PAR            43072
          C=ICIX      41044                       PAR            43072
          A=ICL       41054                       PAR            43073
          C=ICL       41055                       PAR            43073
          C=IOL       41065                       PAR            43074     43075
          A=STR       41126                       PAR            43076
          A=UNT       41133                       PAR            43077     43560
          C=UNT       41134                       PAR            43077
          CML         41140                       PAR            43573
          VAI         41217                       DATA           32256
          LST         41274                       FERRS          22773
          CVL         41356                       DATA           32236
          IDCEX       42124                       PAR            44001
          A=DOCI      42232                       PAR            43063
          C=DOCI      42233                       PAR            43063
          A=DOCS      42244                       PAR            43064     44000
          C=DOCS      42245                       PAR            43064
          PARNOW      42452   PAR                 FEC            20041
                                                  TYPE           36443
                                                  CONRED         47736
          B=PAR       42452                       RPV10           2725
          SMOD        42454                       CONRED         50270     50325
          SOPR        42455             
          CURST       42456                       FEC            17336     17511     17610
                                                  KEY            30237     30576     30773     31043     31272     31361
                                                  IO             40346     41374
                                                  LABEL          52343
          CNF         42502                       LEX            25005
          PIX         42512                       CDDIR          31735
                                                  DECL           33764     35610     35615
                                                  TYPE           36456
          PKX         42540                       CDDIR          31546
                                                  DECL           34231
          DO.BEG      42757                       LABEL          52174
          MULROP      42764             
          ARYOP       42767                       IO             42067
          DVLOP       42770                       DATA           32234
          ERROP       42771                       DECL           33534
                                                  IO             40136
          GAPOP       42776                       KEY            31447
          IOCTL       43000                       IO             40527     41177
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   135  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IODTA       43001                       IO             41121     41316     41326
          IOUNT       43002                       IO             37725     40352     41007
          NOOPP       43007                       KEY            31174
          OPBSS       43010                       FEC            17341
                                                  IO             37646     37702     41340     42355
                                                  LABEL          52341
          OPDUM       43012                       KEY            31170     31214     31372
                                                  IO             42320     42324     42337     42343
                                                  LABEL          52323
          VD.EQ       43024                       DECL           33643
          VD.MI       43025                       DECL           33367     33376
          VD.MU       43026                       DECL           33613
          VD.PL       43027                       DECL           33355     33377
          VD.GP       43030                       DECL           35401
          CALLARM     43040                       KEY            30222
          DATARM      43042                       DATA           32234
          DOARM       43043                       LABEL          52057
          IFARM       43045                       KEY            30723     31016
          LBARM       43050                       DECL           33323
          UBARM       43051                       DECL           33327
          PJXARM      43053                       KEY            31354
          BUFMOD      43057                       IO             40107
          BUFFWA      43060                       IO             40120
          BUFLWA      43061                       IO             40125
          CNTARM      43062                       IO             40153
          DOCOLI      43063                       IO             41624
          DOCOLS      43064                       IO             41567
          FMTARM      43065                       IO             40420
          FOUARM      43066                       IO             37763
          ICCARM      43067                       IO             40502
          ICCXARM     43070                       IO             40505     40521
          ICIARM      43071                       IO             40510
          ICIXARM     43072                       IO             40512
          ICLARM      43073                       IO             40513
          IOARGM      43074                       IO             40313
          STRARM      43076                       IO             40170
          UNTARM      43077                       IO             40214
          PAR         43100                       KEY            30225     30725     31020     31357
                                                  DECL           33477
                                                  IO             37767     40113     40123     40131     40157     40173     40217
                                                                 40424     40523     40552     41405     42375
                                                  LABEL          52061
          PAR.NX      43133                       IO             42243     42272
          PAREXIT     44144                       DECL           33535     33560     33561     33563     33565
                                                  IO             40661     40736     40745     40752     41000     41016     41022
                                                                 41025     41031     41036     41037     41042     41050     41051
                                                                 41053     41060     41064     41132     41134     42240     42271
          IOL.RTN     44205                       DATA           32310
                                                  IO             41125
          POP.STD     44244                       KEY            31374
          C=CERR      44260                       KEY            31364
          C=ERR       44261                       IO             41112
          POP.DVA     44403             
          DTC         45005                       LABEL          52062
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   136  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          EXD         45163                       CONRED         51174
          CF=AC       45307                       KEY            30226     30251     31444
          EAL         45520                       KEY            31447
          VEL         45752                       KEY            30243
          ACT         46475                       LABEL          52070     52113
          ADT         46503             
          CMR         46641                       KEY            31370
          DOA         46710                       IO             41220     41243
                                                  CONRED         51077
          ECC         46743                       KEY            31436
          EMT         46763                       FEC            17140     17342     17560     17721
                                                  HEADER         27254     27335     27440     27542     27560     27561     30025
                                                  KEY            30146     30230     30234     30312     30356     30510     30574
                                                                 30634     30667     31153     31173     31175     31220     31224
                                                                 31252     31313     31454
                                                  CDDIR          31514     31531     31642
                                                  DATA           32051     32307
                                                  DECL           33534     33613     33643     33723
                                                  IO             37647     37703     37726     40137     40335     40356     40534
                                                                 41010     41124     41202     41333     41341     41430     41432
                                                                 41436     41447     41455     41467     41773     42007     42016
                                                                 42025     42033     42045     42053     42071     42111     42113
                                                                 42323     42330     42342     42347     42355
                                                  LABEL          52143     52226     52233     52240     52326     52334     52341
          FAT         47006                       IO             40327
          GOL         47027                       IO             40760
          OMC         47062             
          SDM         47160             
          TPC         47373                       IO             37770     40220     40425     40524     40553     41066
          B=CONRE     47620   CONRED              RPV10           2726
          LVEC        47626             
          LLVEC       47630             
          RVEC        47632             
          RLVEC       47633             
          REG=T       47634                       QCGC           52771
                                                  GEN            61521     61531     61543     61545
          CTAA        47663             
          DEC         47702                       HEADER         27453
                                                  DATA           32163     32665
                                                  TYPE           36443
                                                  PAR            43165
          OCT         50043                       HEADER         27450
                                                  KEY            30464     30466
                                                  PAR            43163
          TNK         50070                       DATA           32576
          CCR         50262                       PAR            45270     45275     46527
          CTA         50314             
          PCC         50333                       PAR            44524
          PCR         50375                       PAR            44465
          PCR.1OP     50414                       PAR            44461
          PCR.2OP     50416                       PAR            44464
          PCR.RO      50420                       PAR            44456
          KCV         50600                       DATA           32667     32707
                                                  PAR            46652
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   137  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LCH         50627                       IO             40000     40223     40754     41045     41067
                                                  PAR            42554     44457     44462     44516     44521     44633     44635
                                                                 44772     45601     45614     46711
          LCT         50670                       IO             40652
                                                  PAR            42524     44334     44340     44345     45020     45046     45067
                                                                 45174     46277     46317     46322     46327     46364     46370
                                                                 46443     46650     47050     47052
                                                  LABEL          52103     52130     52176     52256
          LIR         50705                       PAR            45055
          NBC         50713                       DATA           32624
                                                  PAR            43173     43222     46654
          NCS         50732                       DECL           33354     33366     33572
                                                  IO             37723     40211     41005     41426     41453     41771     42005
                                                                 42023     42040     42051
                                                  PAR            43254     44624     45166     45610     46241     46375     46402
                                                                 46457     46473
          SED         50750                       DATA           32247
          D=NOOP      50754                       QSKEL          56043
          D=ARY       50754                       QSKEL          56015
          D=COLON     50754                       QSKEL          55722
          D=SUBST     50754                       QSKEL          55723
          D=DOBD2     50754                       QSKEL          56060
          D=BSS       50754                       QSKEL          56014
          D=DVI       51052                       QSKEL          56056
          GPS         51153                       DECL           35657
          D=EXP.I     51171                       QSKEL          56057
          D=STR.I     51200                       QSKEL          55716
          D=DOBZL     51221                       QSKEL          55776
          D=DOBL      51221                       QSKEL          55774
          D=DOBZS     51221                       QSKEL          55775
          D=DOBS      51221                       QSKEL          55773
          D=DOC.L     51233                       QSKEL          56001
          D=DOC.S     51233                       QSKEL          55777
          B=STMTF     51257   STMTF               RPV10           2727
          SFD         51257                       LEX            25002
          SFDEX       51456                       FERRS          23402
          B=LABEL     51466   LABEL               RPV10           2730
          DOMODE      51466                       PAR            44757     44773
          CUL         51467                       LEX            25047
          GSL         51507                       FEC            17120
          ISL         51571                       KEY            30107     30547     30621     30665     31076
                                                  IO             40405     40516
                                                  PAR            44044
          STL0R       51756                       KEY            30550     30622     30670
          PSL         51760                       FERRS          22024     22046     22056     22133     22374     22406     22430
                                                                 22432     22434     22630     22632     22656     22664     22672
                                                                 22700     22702     22704     22706     22743     22757     22761
                                                                 22765     22767     22771     22776     23000     23002     23006
                                                                 23010     23012     23022     23026     23030     23076     23100
                                                                 23102     23114     23116     23120     23123     23244     23504
                                                                 23644
                                                  KEY            30110     30130     30157     30161     30174     30237     30272
                                                                 30273     30373     30473     30511     30515     30530     30532
                                                                 30534     30560     30564     30620     30636     30664     30716
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   138  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 30742     30750     31006     31007     31013     31061     31112
                                                                 31114
                                                  IO             37645     37650     37701     37704     40135     40140     40517
                                                                 41304     41343
                                                  PAR            42511     43227     43333     43544     44201     44203     44204
                                                                 44707
                                                  CONRED         50013     50104
          KW=DO       52001                       LEX            25003
          CDI         52022                       IO             41504
          CDIFLG      52254                       PAR            44113     44204     44706
          PDT         52262                       IO             41522
          ALU         52366                       KEY            31012
          DDR         52436                       IO             41226
                                                  PAR            44555     44745
          FBS         52465                       KEY            30764     31244
          PDA         52623                       FEC            20247
                                                  KEY            30212     30501
                                                  PAR            43666
          RBE         52632                       KEY            30762     31242
          REG=G       52733   QCGC                FUN            56526     57237     57241     57243     57247     57250     57253
                                                                 57255     57304
                                                  GEN            61552     61557     62145     62146     62432     63043     63046
                                                                 63130     63133     63146
          REG=GP      52733             
          B=QCGC      52733                       RPV10           2731
          REG=GL      52733             
          CII         52741                       FAS            64353
          N$IT        52741             
          N$OT        52742             
          DRITE       52743                       REG            57476     57505     57531     60550     60565
                                                  GEN            61457
          NOLDS       52746                       REG            61134
          RGC         52747                       REG            61202
                                                  GEN            61333
          RGX         52750                       REG            57440     57452     57766     60076     60652     60674     61204
                                                  GEN            61331
          RREG        52751                       REG            57500     57502     57736     60373     60651     60756     61040
                                                  GEN            61402     61446     61572     61726     61732
          TRACE       52752                       FUN            56322     57154
                                                  GEN            62033     62040     62106
          TYPLOD      52753                       REG            60760     61063     61130     61137
                                                  GEN            61565     61607     61647     61661     61665     61704
          UUC         52754                       FUN            56152
                                                  REG            60701     60720     61030     61033     61035
                                                  GEN            61350     61411     61553     61555     61561     61563     61645
                                                                 61703     61721     61740     61750
          WQ.CS       52755             
          WQ.DOOT     52756             
          CAI         52757                       QCGLINK         6045
          PIG         53005                       GEN            62202
          DUC.        53055                       FEC            16733     16734     16735     16736     16737     16743     16745
                                                                 16746     16772     16773     16777     17000     17002     17003
                                                                 17004     17005     17006     17007     17015     17016     17017
                                                                 17020
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   139  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DUC.1ST     53060                       FSNAP          15033
                                                  FEC            16753     16763     16775     17010     17014
          DUC.2ND     53064                       FSNAP          15037
                                                  FEC            17011     17013
          DUC.BTH     53070                       FSNAP          15035
                                                  FEC            16747     16750     16751     16752     16754     16755     16756
                                                                 16757     16760     16761     16762     16764     16765     16766
                                                                 16767     16770     16771     16774     16776     17012
          POS         53106                       FUN            56525     57060     57240     57242     57303
                                                  GEN            63127     63132     63145
          RED         53126                       GEN            61346
          DPT         53212             
          QCP         53222                       FEC            17037
          SMB         53240                       REC            63364
          WTE         53253                       GEN            63001
                                                  INIT10         73412
          WIN         53256                       FUN            56321     57201
                                                  REG            57536     57607     57634     57647     57675     57705     60131
                                                                 60167     60217     60223     60230     60235     60312     60347
                                                                 60357     60367     60415     60527     60607     61024     61125
                                                                 61154     61162
                                                  GEN            61463     61523     61633     61700     61737     62042     62051
                                                                 62057     62063     62120     62162     62165     62167     62213
                                                                 62216     62224     62226     62231     62234     62237     62250
                                                                 62253     62256     62262     62265     62270     62273     62276
                                                                 62301     62304     62322     62325     62343     62346     62454
                                                                 62457     62464     62467     62472     62510     62514     62517
                                                                 62523     62536     62544     62547     62560     62562     62571
                                                                 62576     62601     62604     62607     62613     62616     62631
                                                                 62662     62710     62713     62726     62731     62735     62741
                                                                 62746     62752     62755     62757     62762     62764     62766
                                                                 62770     62774     63010     63014     63016     63021     63026
                                                                 63030     63034     63037     63053     63055     63060     63062
                                                                 63065     63067     63072     63074     63077     63101     63104
                                                                 63107     63113     63117     63140     63142
                                                  INIT10         73412
          ITS         53521                       GEN            62565
          F.SKNAM     53611   QSKEL               FSNAP          15014
                                                  PAR            47355
          F.SKEL      54063                       CONRED         50316
                                                  GEN            61351
                                                  INIT10         73414
          B=QSKEL     54063                       RPV10           2732
          SKEND       55337             
          OM=ADD      55340                       PAR            42714
          OM=SUB      55341                       PAR            42715     42751
          OM=MUL      55342                       PAR            42716     42750
          OM=DIV      55343                       PAR            42717     42747
          OM=UMI      55344                       PAR            42720
          OM=LT       55345                       PAR            42722     42727     43032
          OM=GE       55347                       PAR            42723     42726     43031
          OM=NE       55351                       PAR            42725     43033
          OM=EQ       55353                       PAR            42724     43034
          OM=NOT      55355                       PAR            42730
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   140  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OM=AND      55356                       PAR            42731
          OM=OR       55357                       PAR            42735
          OM=EQV      55360                       PAR            42734
          OM=XOR      55361                       PAR            42732     42733
          OM=STR      55362                       PAR            42741
          OM=DOC      55364                       PAR            42763
          F.MODC      55366                       PAR            46642     47222
          F.IFS       55376                       KEY            31062     31155     31157
          F.IFN       55405                       KEY            31160
          F.INTF      55413                       FEC            20443
                                                  DECL           34105
                                                  TYPE           36176
                                                  PAR            43356     43424     45564     45735     46005     46020     46024
                                                                 46040     46124     46134
          F.IMCV      55642                       PAR            46150
          F.SCT       55646                       CONRED         50761
                                                  QCGC           53100
                                                  GEN            61347
          F.SKCR      55646                       PAR            45256     46522
          B=FUN       56120   FUN                 RPV10           2733
          O=FAP       56120                       QSKEL          55013
          O=LIBF      56131                       QSKEL          55073
          O=FUN       56132                       QSKEL          55072
          O=GAP       56163                       QSKEL          55012
          O=HLEX      56167                       QSKEL          54243     54266     54322     54356
          O=HREL      56171                       QSKEL          54241     54263     54315     54351
          O=HSTO      56220                       QSKEL          54364
          O=IAP       56235                       QSKEL          55014
          O=INF       56245                       QSKEL          55074
          O=IOC       56251                       QSKEL          55023
          O=IOD       56266                       QSKEL          55024
          O=IOF       56303                       QSKEL          55075
          O=IOU       56325                       QSKEL          55025
          O=LIB       56347                       QSKEL          55101     55102
          O=SUB       56350                       QSKEL          55071
          ESC         56555                       REG            60212     61150
          UAP         56740                       GEN            63044
          O=LURET     56757                       QSKEL          55065
          O=APRET     57264                       QSKEL          55027     55036
          O=SCRET     57311                       QSKEL          55041     55052     55063
          O=SURET     57327                       QSKEL          55070
          APLFLG      57344                       QCGC           52762
          B=REG       57404   REG                 RPV10           2734
          RG=BADR     57404             
          RG=INTR     57407                       GEN            61333
          RG=TEMP     57412                       GEN            61334     61653
          RG=LOAD     57415                       GEN            61335     61603
          RG=LODX     57420                       GEN            61336     61622     61657
          RG=SET      57423             
          RG=STOR     57426                       GEN            61337
          AIR         57431                       GEN            61754
          ASR         57443                       GEN            61725     61752     61755
          CDS         57475                       QCGC           52775
                                                  FUN            56303
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   141  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            61507     61575     62035     62071     62426
          CIA         57514                       FUN            56304     57160
                                                  GEN            61461     62037     62047     62060     62064     62427
          CLI         57547                       GEN            61667
          CRJ         57635                       FUN            56246     56323     57155
                                                  GEN            62107
          CWI         57664                       FUN            57247     57254
          DIT         57711                       FUN            56153     56160
                                                  GEN            61760
          DSC         57733                       GEN            61603
          GNR         57764                       GEN            61627     61657
          GST         60045                       FUN            57206     57251
                                                  GEN            61662
          GSTC        60073                       GEN            61604
          GTR         60074                       GEN            61516     61540
          LSC         60371                       GEN            61623
          LTG         60422                       GEN            61620
          RLL         60430                       GEN            61712     61724     62004
          RUL         60435                       GEN            61471     61730     62011
          REGLK       60444                       GEN            61332     61470     61473     62001     62005
          CLOADJ      60446                       GEN            62010
          STRGLK      60447                       GEN            61332     61634
          RUT         60456                       FUN            56761
                                                  GEN            61524     61525     61757
          SDS         60547                       GEN            61743
          SFR         60650                       GEN            61653
          STS         60700                       FUN            57245     57252
                                                  GEN            61652     61706
          O=PAR       60743                       QSKEL          55011
          SLD         60746                       GEN            61601     61741
          P2=KEEP     61225                       GEN            61606
          EIS         61327   GEN                 QCGC           52774
          B=GEN       61327                       RPV10           2735
          EIS.PNX     61341                       FUN            56130     56166     56265     56301     56346
                                                  REG            60745
          SUB.RET     61351                       FUN            56242     56763     57263     57310     57331
          O=HSBS      61464                       QSKEL          54367
          O=HCAT      61464                       QSKEL          54365
          O=HCOL      61464                       QSKEL          54366
          NULLOP      61464                       FUN            56122     56150     56161     56215     56234     56324     56361
          O=NOOP      61464                       QSKEL          55155     55174
          O=BVD       61464                       QSKEL          55116
          CURSK       61475                       FUN            56174     56215     56220     56232
          EIS.GP      61552             
          INS.REG     62020                       REG            60300     60303     60514
          IJK         62022                       REG            60513
          RUT.REG     62027                       REG            57517     60502
          O=CAR       62064                       QSKEL          54655     54663     54766     55004     55100     55167
          O=CBJ       62066                       QSKEL          54753     55005
          O=CDW       62071                       QSKEL          55076     55103     55107     55166
          O=PLA       62100                       QSKEL          55010
          O=CRJ       62103                       QSKEL          55077
          O=CDCS      62111                       QSKEL          55164
          O=CDDOT     62113                       QSKEL          55163
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   142  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=CDLOO     62115                       QSKEL          55162
          OCIOL       62121                       QCGC           53237
          O=ENT       62122                       QSKEL          55115
          O=GENT      62132                       QSKEL          55124
          O=GENTX     62134                       QSKEL          55153
          O=FPENT     62151                       QSKEL          55151
          O=FPHDR     62206                       QSKEL          55142
          ISA         62210             
          O=EVD       62426                       QSKEL          55117
          O=FUNT      62433                       QSKEL          55130
          O=MENT      62444                       QSKEL          55125
          ENT.EGL     62476                       QCGC           53231
          ENT.STO     62477             
          ENT.SUB     62500                       FUN            57147
          ENT.SB0     62501                       REG            60355
          ENT.VD      62502                       QCGC           53012
          N.ALTEN     62503             
          O=FIN       62541                       QSKEL          55170
          O=FINX      62556                       QSKEL          55123     55143
          O=GFD       62702                       QSKEL          55157
          O=HDR       62733                       QSKEL          55156
          O=DATA      62771                       QSKEL          55165
          O=ILL       63004                       QSKEL          54063     55172     55173
          O=LCC       63005                       QSKEL          55171
          O=PLIM      63011                       QSKEL          55160
          O=RGT       63041                       QSKEL          54771
          O=SEX       63050                       QSKEL          55161
          O=IM        63120                       QSKEL          54121
          O=ID        63121                       QSKEL          54147
          O=MASK      63122                       QSKEL          54615
          O=MOD       63123                       QSKEL          54625
          O=SHIFT     63124                       QSKEL          54647
          O=DOB       63125                       QSKEL          54656     54664
          O=DOBZ      63126                       QSKEL          54652     54665
          O=DOC       63131                       QSKEL          54671     54700     54706     54713     54717
          O=PDE       63134                       QSKEL          54677     54703
          O=PCG       63135                       QSKEL          54767
          O=PASG      63143                       QSKEL          55006
          WO.56       63174   REC                 FAS            65051
          B=REC       63174                       RPV10           2736
          WO.57       63175                       FAS            65046
          REC         63176                       QCGLINK         6036
          ADA         63506                       FAS            65341
          BT.IDNT     63645   FAS                 REC            63274
          B=FAS       63645                       RPV10           2737
          BT.XFR1     63726             
          CIDMOD      63732             
          COMMOD      63733             
          FCLMOD      63735                       LIST           73047
          FAPSUD      63777                       LIST           71760
          ORG         64046             
          PARCEL      64047             
          ORGSUB      64050                       LIST           73212
          SUBFLG      64051             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   143  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ORGSUB0     64052             
          TAGSUB0     64053                       LIST           72060
          OL=BIN      64054                       LIST           72200     72437
          OL=LBF      64055                       LIST           72014     72107     72162     72415     72446     73230
          OL=PB       64056                       LIST           71756
          OL=RL       64057                       LIST           72174     72230     72311     72406     72435     72441
          FAS         64066                       REC            63256
          APLA        64203                       LIST           72101     73162
          RADRTN      64335                       REC            63230     63232
          RADOL1      64400                       REC            63232
          RADOL2      64420                       REC            63234
          RADC        64630                       LIST           71754
          BST         64645                       REC            63223
          BST.EQ      64646                       REC            63225
          CAB         64704             
          CLE         64714                       REC            63240
          CLE.EQ      64715                       REC            63241
          DLF         65173                       ALLOC          24432
          ESL         65300                       REC            63242
          ESL.EQ      65301                       REC            63243
          FBP         65321                       REC            63234
          FBP.EQ      65322                       REC            63236
          POL         66073                       REC            63226
          POL.EQ      66074                       REC            63230
          RNI         66224             
          SNR         66251                       REC            63343
          WLF         66316                       REC            63221
          WLF.EQ      66317                       REC            63223
          B=MAP       66401   MAP                 RPV10           2740
          FIN         66401                       INIT10         73352
          MAP         67137                       REC            63211
          B=LIST      71727   LIST                RPV10           2741
          FIN.MAP     71727   MAP                 INIT10         73347
          PIK         71753   LIST                FAS            66100
          LI=EMI      72065                       FAS            64026
          LI=BCI      72065                       FAS            64020
          LI=OTR      72065                       FAS            64033
          LI=ECI      72065                       FAS            64025
          LI=BMI      72065                       FAS            64002
          LI=LOO      72065                       FAS            64013     64032
          LI=ADDR     72066                       FAS            63777
          LI=APL      72100                       FAS            64001
          LI=BOS      72104                       FAS            64021
          LI=BSS      72115                       FAS            64000     64023
          LI=CON      72117                       FAS            64003
          LI=CPL      72127                       FAS            64022
          LI=DATA     72143                       FAS            64024
          LI=END      72146                       FAS            64004
          LI=EQUN     72154                       FAS            64005
          LI=FMT      72167                       FAS            64006
          LI=FLA      72176                       FAS            64043
          LI=FVEC     72205                       FAS            64007
          LI=PLIM     72221                       FAS            64015
          LI=IDNT     72225                       FAS            64010
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   144  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LI=IOM      72234                       FAS            64011
          LI=JPI      72244                       FAS            64027
          LI=LCC      72247                       FAS            64012
          LI=LD0      72250                       FAS            64030
          LI=ST0      72250                       FAS            64031
          LI=NLST     72251                       FAS            64014
          LI=RJ3      72255                       FAS            64034
          LI=RJ6      72256                       FAS            64035
          LI=SB0I     72263                       FAS            64037
          LI=SUBI     72264                       FAS            64036
          LI=UJP      72273                       FAS            64040
          LI=USE      72274                       FAS            64017     64041
          LI=TRAC     72306                       FAS            64016
          LI=ZERO     72315                       FAS            64042
          VFD         72474                       FAS            64400     64421
          FIN.OL      73324                       INIT10         73345
          B=INIT1     73324   INIT10              RPV10           2742
          FTN10       73324             
          B=LWA10     73500                       RPV10           2743
  
  
  
  
  
 -------- OVERLAY(FTN,2,0,O=FWA20)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD           1700
          LWA+1 OF THE LOAD        14744
  
          TRANSFER ADDRESS -- FTN20          14714          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN520         1700      775    OVR      24/05/05 COMPASS 3.7 871               FTN5 PRIMARY OVERLAY FOR CCG. 
          RPV20          2675       16    OVR      24/05/05 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          UTILITY        2713     1052    OVR      24/05/05 COMPASS 3.7 871               COMMON UTILITY ROUTINES.      
          LISTLNK        3765      232    OVR      24/05/05 COMPASS 3.7 871               MISC OUTPUT ROUTINES
          PUC            4217     1552    OVR      24/05/05 COMPASS 3.7 871               PROGRAM UNIT CONTROLLER AND SUPPORT.    
          CCGLINK        5771      171    OVR      24/05/05 COMPASS 3.7 871               CCG MODE LINKAGE ROUTINES.    
          IDP            6162     6532    OVR      24/05/05 COMPASS 3.7 871               INTERACTIVE DEBUG PACKAGE     
          CPULFM        14714        0    OVR      24/05/05 COMPASS 3.7 871               
          INIT20        14714       30    OVR      24/05/05 COMPASS 3.7 871               INITIALIZE CONTROLLER OVERLAY.
  
  
  
          ENTRY POINTS. 
  
  
  
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   145  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          UFO=          *WEAK*                    IDP            13015     13016
          UFR=          *WEAK*                    IDP            13021     13022
          FAA=          *WEAK*                    IDP            11412     11413
          ERR.A           0   PUC       
          BN=STRT         0             
          ERR.M           1             
          BN=CODE         1             
          BN=CON          2             
          ERR.D           2             
          RPV=FVT         2   FTN                 UTILITY         3125
          BN=FMT          3   PUC       
          ERR.T           3             
          FV.OUT          3   FTN                 PUC             5306      5313      5573
          BN=TEM          4   PUC       
          ERR.W           4             
          FV.LGO          5   FTN                 PUC             5015      5276
                                                  CCGLINK         6005
                                                  INIT20         14730
          L.TTLA          5                       PUC             5541
          L.TA            5                       PUC             5551
          ERR.F           5   PUC       
          BN=APL          5             
          ERR.K           6             
          BN=IOAP         6             
          L.TTLB          6   FTN                 PUC             5544
          ERR.C           7   PUC       
          L.CCA           7   FTN                 PUC             5555
          L.CCB           7                       PUC             5557
          BN=NLST         7   PUC       
          L.TB            7   FTN                 PUC             5553
          N.ERRT         10   PUC       
          BN=VAR         10             
          BN=SUB         11             
          BN=SUB0        12             
          BN=BUF         13             
          Z$LBT          14             
          N$LBT          14             
          L.TWO          14   FTN                 PUC             5527
          Z.LBT          14   PUC       
          L.TITL         15   FTN                 PUC             5521
          L.CC           15                       PUC             5531
          ERFO           47                       PUC             5056      5060      5500
          N.TABLE        47   PUC                 CCGLINK         6156
                                                  IDP             6227
          Z.SORD         53             
          CP.ABT        114   FTN                 PUC             5136
          CP.ERCT       115                       PUC             5136
          CP.LSTF       116                       PUC             4771
          CP.PAGE       117                       PUC             4772      5044      5564
          CP.EPAG       120                       PUC             5047      5053      5565
          CP.BLF        121                       PUC             4772
          CP.PD         122                       PUC             5310      5505      5507
          CP.MXFL       126                       PUC             5070      5125
          CP.IFMT       130                       PUC             5002
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   146  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT20         14727
          CP.ILFL       133                       PUC             5151      5175
          GT1           135                       PUC             5152      5154      5156      5171      5173      5177      5202
                                                                  5223      5226      5313      5314      5377      5401      5404
                                                                  5465
          CP.CARD       141                       PUC             5004      5040
          CP.AFLS       201                       PUC             5066      5075      5104      5112      5167      5373      5405
                                                                  5407
                                                  INIT20         14726
          CP.NFLS       202                       PUC             5406      5410
                                                  CCGLINK         6116      6123
                                                  IDP            10632
          CP.AFLL       203                       PUC             5175
          F.IN          211                       PUC             5005
                                                  IDP             6324
          F.OUT         221                       PUC             5000      5045      5534
                                                  IDP             6325      6326      7721      7757      7761     10027     10225
                                                                 12313     12324
          F.ERRS        231                       PUC             5050
          F.LGO         241                       PUC             5017      5277      5301
                                                  INIT20         14731
          B=FTN         251                       RPV20           2700
          SYS=          253                       UTILITY         3067      3141      3406
                                                  PUC             5150      5155      5160      5164      5174      5203      5205
                                                                  5225      5402
                                                  INIT20         14722
          RCL=          266                       UTILITY         3517      3555      3721      3760
          WNB=          272                       UTILITY         2746      3067      3141      3377      3644
                                                  PUC             5020      5236
                                                  CCGLINK         6025
                                                  IDP             6333
          MSG=          302                       UTILITY         3070      3111      3113      3115      3117      3142
                                                  PUC             5103      5130      5134      5162      5450
          INT.FL        310                       PUC             5106      5167
                                                  INIT20         14727
          F.PB          311                       PUC             5025      5030
                                                  CCGLINK         6045
          F.IL          321                       PUC             5013
                                                  CCGLINK         6007      6026
          F.REF         331                       PUC             5033      5036
                                                  CCGLINK         6015      6017      6025      6037
          MAX.FL        343                       PUC             5373
          RAPFLAG       347                       PUC             5003
          RS.PD         350                       PUC             5311
          TIME0         351                       PUC             5131
          TIME1         352                       LISTLNK         4111      4113
                                                  PUC             5106
          CO.ANSI       355                       PUC             5117
          CO.GO         373                       PUC             5143
          CO.OPT        377                       PUC             5012      5021      5024      5035
          CO.PS         400                       LISTLNK         4010
                                                  PUC             4771      5576
          CO.PW         401                       PUC             5307      5504      5515
          CO.PWE        402                       PUC             5054
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   147  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.LOO        425                       PUC             5015
                                                  CCGLINK         6005
          CO.LOR        426                       CCGLINK         6011      6034
          CO.SNAP       435                       CCGLINK         6104
                                                  IDP             6276      6304
          TL.EJCT       446                       PUC             5055
          O.TITL        446                       PUC             5521
          TL.PTYP       447                       PUC             5543
          O.TTLA        455                       PUC             5057      5541
          TL.PAGE       462                       PUC             5520      5537
          O.CPV         463                       PUC             5526      5550
          O.TA          470                       PUC             5552
          O.CC          477                       PUC             5530      5554
          O.C           506                       PUC             5556
          LDCOM         532                       PUC             5050      5052
          LOVER         537                       CCGLINK         6001      6031      6050
          ABTFTN        611                       PUC             5142
          IDPCHK        626                       INIT20         14723
          L=TABLE       632   PUC       
          OFFSPY        637   FTN                 PUC             5135
          SPYW          656                       PUC             5074
          COD           662                       PUC             5075      5125      5466
          B=RPV20      2675   RPV20     
          RPV=RNA      2675                       UTILITY         3172
                                                  IDP            11412     11506     11510
          RPV2N        2710             
          B=UTILI      2713   UTILITY             RPV20           2702
          CDD          2716                       LISTLNK         4017      4024      4030      4040      4057      4067      4077
                                                                  4103
                                                  PUC             5440      5514
          CDD=         2716             
          DXB          2735             
          FA=SET       2744                       PUC             5027      5037
                                                  INIT20         14733
          MVE=         3005                       PUC             5425      5433
          RPV=         3043                       INIT20         14716     14721
          FRA=         3172                       IDP            11503     11505
          MNS=         3245             
          SBM=         3324             
          SFN=         3331             
          SFN          3331                       PUC             5100      5416
          SST          3347             
          WOD          3352             
          ZTB          3370             
          ZTB=         3370             
          CIO=         3407                       PUC             5014      5031      5034      5046      5051      5300      5302
                                                                  5316
                                                  CCGLINK         6010      6020      6027      6041      6046
          RDC=         3415                       PUC             5006
          RDW=         3442             
          WTH=         3601                       PUC             5001      5315      5510      5522      5527      5531      5535
                                                                  5542      5544      5551      5553      5555      5557      5561
                                                                  5614      5622
          WTO=         3634             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   148  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          WTW=         3656                       CCGLINK         6016      6040
          WTX=         3743             
          DCB=         3756             
          B=LISTL      3765   LISTLNK             RPV20           2703
          LUS          3765                       PUC             5104
          ALC=CNT      4131             
          MOVES        4136             
          PARSLEN      4142             
          T.TB         4217   PUC       
          B=PUC        4217                       RPV20           2704
          O.P2NUL      4217             
          ORIGINS      4217             
          BASES        4217                       CCGLINK         6151      6155      6157
                                                  IDP             6204
          T.LGOB       4217             
          T.PTXTR      4220             
          T.ARG        4220             
          T.EQUS       4221             
          T.LINK       4221             
          T.STF        4221             
          T.FPO        4222             
          T.SLARG      4222             
          T.DVV        4222             
          T.COMM       4222             
          T.IOARG      4222             
          T.BLST       4223             
          T.SCR        4224             
          T.DATI       4224             
          T.PTXT       4224             
          T.OUS        4224             
          T.EOT        4225             
          T.FILL       4225             
          T.ILI        4225             
          T.DATL       4225             
          T.IOLC       4226             
          T.DATS       4226             
          T.SAP        4226             
          T.PAR        4227             
          T.XFIL       4227             
          T.DAR        4227             
          T.PCS        4230             
          T.STMT       4231             
          T.CLWB       4231             
          T.SUB        4232             
          T.VDIM       4233             
          T.SUB0       4233             
          T.C$IF       4234             
          T.CLW        4235             
          O.P2USE      4235                       CCGLINK         6151
          O=CLW        4235             
          O=CAC        4236             
          T.CAC        4236             
          T.APL        4237             
          O=APL        4237             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   149  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=IOA        4240             
          T.IOA        4240             
          T.API        4241             
          O=API        4241             
          T.IOI        4242             
          O=IOI        4242             
          T.GL         4243             
          O=GL         4243             
          O=ASG        4244             
          T.ASG        4244             
          O=CON        4245             
          T.CON        4245             
          T.LA         4246             
          O=CUT        4246             
          T.CUT        4246             
          O=SYM        4247             
          T.SYM        4247             
          O=BLKS       4250             
          T.BLKS       4250                       LISTLNK         3776      4045
          T.NLST       4251             
          O=NLST       4251             
          O=DIM        4252             
          T.DIM        4252             
          T.ENTP       4253             
          O=ENTP       4253             
          T.FPI        4254             
          O=FPI        4254             
          O=VDI        4255             
          T.VDI        4255             
          O.P2SAV      4256                       CCGLINK         6022      6133      6154
          T.REF        4256                       CCGLINK         6014      6036
          T.LCA        4257             
          T.ECT        4260             
          T.ENT        4261             
          T.LNT        4262             
          T.LCC        4263             
          T.FMT        4264             
          T.END        4265                       CCGLINK         6124
          T=TB         4266             
          L.P2NUL      4266             
          T=LGOB       4266             
          SIZES        4266                       CCGLINK         6053      6157
                                                  IDP             6207
          T=PTXTR      4267             
          T=ARG        4267             
          T=STF        4270             
          T=LINK       4270             
          T=EQUS       4270             
          T=FPO        4271             
          T=DVV        4271             
          T=IOARG      4271             
          T=COMM       4271             
          T=SLARG      4271             
          T=BLST       4272             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   150  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=OUS        4273             
          T=DATI       4273             
          T=PTXT       4273             
          T=SCR        4273             
          T=EOT        4274             
          T=FILL       4274             
          T=ILI        4274             
          T=DATL       4274             
          T=DATS       4275             
          T=SAP        4275             
          T=IOLC       4275             
          T=XFIL       4276             
          T=PAR        4276             
          T=DAR        4276             
          T=PCS        4277             
          T=STMT       4300             
          T=CLWB       4300             
          T=SUB        4301             
          T=SUB0       4302             
          T=VDIM       4302             
          T=C$IF       4303             
          L=CLW        4304             
          L.P2USE      4304             
          T=CLW        4304                       CCGLINK         6057
          T=CAC        4305                       CCGLINK         6060
          L=CAC        4305             
          T=APL        4306                       CCGLINK         6061
          L=APL        4306             
          T=IOA        4307                       CCGLINK         6062
          L=IOA        4307             
          T=API        4310                       CCGLINK         6063
          L=API        4310             
          T=IOI        4311                       CCGLINK         6064
          L=IOI        4311             
          L=GL         4312             
          T=GL         4312                       CCGLINK         6065
          T=ASG        4313                       CCGLINK         6066
          L=ASG        4313             
          T=CON        4314                       CCGLINK         6067
          L=CON        4314             
          T=CUT        4315                       CCGLINK         6070
          L=CUT        4315             
          T=LA         4315             
          T=SYM        4316                       CCGLINK         6071
          L=SYM        4316             
          T=BLKS       4317                       CCGLINK         6072
          L=BLKS       4317             
          T=NLST       4320                       CCGLINK         6073
          L=NLST       4320             
          L=DIM        4321             
          T=DIM        4321                       CCGLINK         6074
          T=ENTP       4322                       CCGLINK         6075
          L=ENTP       4322             
          L=FPI        4323             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   151  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=FPI        4323                       CCGLINK         6076
          L=VDI        4324             
          T=VDI        4324                       CCGLINK         6077
          L.P2SAV      4325                       CCGLINK         6053      6111
          T=REF        4325                       CCGLINK         6014      6021      6036
          T=LCA        4326             
          T=ECT        4327             
          T=ENT        4330             
          T=LNT        4331             
          T=LCC        4332             
          T=FMT        4333             
          T=END        4334                       CCGLINK         6111      6124
          RATES        4335             
          NAMES        4404                       IDP             6201
          ALTNAM       4453                       IDP             6214
          TV=DECL      4501             
          TV=EXU       4502             
          TV=END       4503             
          TV=CUR       4504             
          F.LBT        4505             
          F$LBT        4505             
          SUM.LBT      4521                       LISTLNK         4036      4040
          COMSIZ       4522                       LISTLNK         4004      4006      4063      4073
          ALC.PAR      4524             
          BINIO        4525                       CCGLINK         6044
          BLNKCOM      4526                       LISTLNK         3774      4044
          CBI          4527             
          CHARDCL      4530             
          N$FERR       4531             
          ERRORS       4531             
          ENTRJ        4532             
          FAILSFT      4533             
          O.TABS       4534                       CCGLINK         6126
          IDENT1       4535             
          RPV=MSG      4535                       UTILITY         3110
          HO$MSG       4536             
          IDENT        4537             
          HO$PRGN      4537             
          IO.TEM       4540             
          LCNT         4541                       LISTLNK         4010
          N$LINES      4541             
          LEVEL        4543             
          LEVEL0       4544             
          LEVEL2       4545             
          HO$LVL2      4545             
          LINEBUF      4547             
          HO$CSN       4565             
          RPV=CLN      4565                       UTILITY         3105
          LINES        4565             
          CARDS        4565             
          LINENR       4565             
          LOSTREF      4566             
          MOD          4567             
          NARGS        4570             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   152  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          NOLIST       4571             
          NREXT        4572             
          NSQZLH       4573             
          N.AP         4574             
          N.ARP        4575             
          N.BUF        4576             
          N.CPL        4577             
          N.CON        4600             
          N.CT         4601             
          N.CTMAX      4602             
          N.DOB        4603             
          N.EPL        4604             
          N$SEP        4604             
          N.FP         4605             
          N$FPS        4605             
          N.GL         4606             
          N.MAXIL      4607             
          N$LC         4610             
          N.ST         4611             
          N.STMAX      4612             
          N.VD         4613             
          N$VD         4613             
          O.STITL      4614             
          HO$PMLS      4615             
          PU.MFL       4615             
          PASS         4616             
          PWBUF        4617             
          WOF=ERR      4634             
          REFIO        4635                       CCGLINK         6012      6034
          RPV=URP      4636                       UTILITY         3120
          HO$RDR       4636             
          SAVE         4637             
          THRESH       4640             
          USAVE        4641             
          L.TABS       4642             
          SCR          4643             
          WO.C$        4655             
          WO.CS        4655             
          WO.DOLG      4656             
          WO.DOOT      4657             
          WO.LOA       4660                       LISTLNK         3766
          WO.LOM       4661             
          WO.LOO       4662             
          WO.LOR       4663             
          WO.LOS       4664             
          WO.QC        4665                       CCGLINK         6004
          WO.LCM       4666             
          CONONE       4667             
          CONZER       4670             
          CONZERI      4671             
          VTRUE        4672             
          VFALSE       4673             
          S=AEXIT      4674             
          F.SORD       4674             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   153  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=BU         4675             
          S=BUFIN      4676             
          S=BUF        4677             
          S=CES        4700             
          S=CL         4701             
          S=CON        4702             
          S$CON        4702             
          S=CP         4703             
          S=CPL        4704             
          S=CT         4705             
          S=ENTRY      4706             
          S=ERR        4707             
          S=EXIT       4710             
          S=FAR        4711             
          S=FAS        4712             
          S=FID        4713             
          S=FMC        4714             
          S=FVS        4716             
          S=FILES      4717             
          S=GPL        4720             
          S=LA         4721             
          S$LC         4722             
          S=LC         4722             
          S=LENP       4723             
          S=LMC        4724             
          S=MMC        4725             
          S=IT         4726             
          S$IT         4726             
          S=INIT       4727             
          S$OT         4730             
          S=OT         4730             
          S=RD         4731             
          S=SA1        4732             
          S=SA0        4733             
          S=SLI        4734             
          S=SPA        4735             
          S=ST         4736             
          S=SUB        4737             
          S=SUBI       4740             
          S=SUB0I      4741             
          S=TRACE      4742             
          S=TA0        4743             
          S=UPW        4744             
          S=VALUE      4745             
          S=VD         4746             
          S$VD         4746             
          ERRTYP       4747             
          ERR=A        4757             
          ERR=M        4760             
          ERR=D        4761             
          ERR=T        4762             
          ERR=W        4763             
          ERR=F        4764             
          ERR=K        4765             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   154  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ERR=C        4766             
          E=TOTAL      4767             
          PUC          4771                       INIT20         14730     14731     14734
          ENDFTN       5125             
          CPTIM        5216                       LISTLNK         4111
          TIMER        5222                       LISTLNK         4112
          CAF          5273             
          ECB          5320             
          ECS          5352             
          GCL          5365             
          GMC          5372                       CCGLINK         6120
          LJS          5412             
          MTD          5420                       CCGLINK         6130
          MTU          5427                       CCGLINK         6132
          PIA          5455                       LISTLNK         4032      4036      4055      4065      4075      4105
          WOF          5571                       LISTLNK         4014      4016      4022      4027      4035      4043      4062
                                                                  4072      4102      4110      4123
                                                  CCGLINK         6102      6107
                                                  IDP             6177      6217
          F.PIK        5630             
          PIK=PS       5630             
          PIK=EQ       5634             
          PIK=LCM      5730             
          PIK=XJP      5732             
          PIK=PI       5742             
          HDRBL        5765             
          N$EXST       5771   CCGLINK   
          B=CCGLI      5771                       RPV20           2705
          APCON        5772             
          N.IL         5773             
          O=FE         5774             
          L=FE         5775             
          ERR22        5776             
          FEL          5777                       PUC             5063
          FEL.RTN      6002             
          CGL          6003                       PUC             5064
          CGL.RTN      6032             
          REL          6043                       PUC             5065
          REL.RTN      6051             
          B=IDP        6162   IDP                 RPV20           2706
          UKT=LNK      6167             
          PTO          6174                       CCGLINK         6110
          UIO=         6266             
          URO=         6275             
          USO=         6303             
          IDP=USY      6323             
          PAT#FWA      6341             
          PAT#LEN      6343             
          IDP=SVB      6604             
          IDP=SVA      6614             
          IDP=SVX      6624             
          FW=IDPL      6634             
          IDPFLG       6636             
          SNAPLNE      6771             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   155  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IDP=         7677                       INIT20         14725
          IDP=MN       7735             
          IDP=ER      10024             
          REG=        10045             
          SNP=        10062             
          IDP=CAD     10600             
          IDP=CHK     10631             
          IDP=CLZ     10730             
          IDP=DAR     11026             
          DCM=        11314             
          IDP=FLL     11447             
          IDP=FRK     11524             
          IDP=HDR     11573             
          IDP=PAS     11765             
          IDP=PAT     12123             
          ROL=        12277             
          IDP=SKT     12341             
          IDP=SOB     12375             
          SOB         12375             
          IDP=CDD     13140             
          IDP=COD     13164                       UTILITY         3065      3137      3201
          IDP=DXB     13204             
          IDP=MCS     13213             
          IDP=SFN     13456             
          IDP=SYS     13600             
          IDP=WOD     14025             
          IDP=ZTB     14225             
          SAV.B       14234             
          SVB         14234             
          SV=B        14234             
          SV=A        14244             
          SAV.A       14244             
          SVA         14244             
          SV=X        14254             
          SAV.X       14254             
          SVX         14254             
          SVR         14264             
          SVR=        14264             
          RESET=      14307             
          RSR         14307             
          RSR=        14307             
          FWA21       14714   INIT20              CCGLINK         6000
          B=INI20     14714                       RPV20           2707
          FWA23       14714                       CCGLINK         6047
          FTN20       14714             
          FW.ILB      14714             
          B=LWA20     14744                       RPV20           2710
          FW.PBB      16720             
          FWA22       20724                       CCGLINK         6030
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   156  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
  
  
  
  
  
 -------- OVERLAY(FTN,2,1,O=FWA21)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD          14721
          LWA+1 OF THE LOAD        56133
  
          TRANSFER ADDRESS -- FTN21          56016          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN521        14721        0    OVR      24/05/05 COMPASS 3.7 871               FTN5 FRONT END OVERLAY FOR CCG.         
          RPV21         14721       31    OVR      24/05/05 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          FSNAP         14752     1017    OVR      24/05/05 COMPASS 3.7 871               FRONT-END TEST MODE SNAP PACKAGE.       
          /RGFILE/      15771      500
          /HASH/        16471      200
          FEC           16671     2017    OVR      24/05/05 COMPASS 3.7 871               FRONT END CONTROLLER AND SUPPORT.       
          FERRS         20710     3134    OVR      24/05/05 COMPASS 3.7 871               FRONT END ERROR TEXTS.        
          PEM           24044      330    OVR      24/05/05 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         24374      420    OVR      24/05/05 COMPASS 3.7 871               TABLE ALLOCATION.   
          FLINK         25014      241    OVR      24/05/05 COMPASS 3.7 871               CCG MODE FRONT END LINKAGES.  
          LEX           25255     2402    OVR      24/05/05 COMPASS 3.7 871               LEXICAL SCANNER.    
          HEADER        27657      636    OVR      24/05/05 COMPASS 3.7 871               PROGRAM UNIT HEADER STATEMENTS.         
          KEY           30515     1372    OVR      24/05/05 COMPASS 3.7 871               KEYWORD STATEMENT TRANSLATION.
          CDDIR         32107      267    OVR      24/05/05 COMPASS 3.7 871               C$ DIRECTIVE PROCESSING.      
          DATA          32376     1111    OVR      24/05/05 COMPASS 3.7 871               TRANSLATE DATA STATEMENTS.    
          DECL          33507     3011    OVR      24/05/05 COMPASS 3.7 871               DECLARATIVE PHASE STATEMENTS. 
          TYPE          36520      420    OVR      24/05/05 COMPASS 3.7 871               EXPLICIT / IMPLICIT TYPE DECLARATIONS.  
          FMT           37140      726    OVR      24/05/05 COMPASS 3.7 871               FORMAT STATEMENT PROCESSOR.   
          IO            40066     2776    OVR      24/05/05 COMPASS 3.7 871               INPUT/OUTPUT STATEMENT PROCESSING.      
          PAR           43064     5146    OVR      24/05/05 COMPASS 3.7 871               EXPRESSION TRANSLATION.       
          CONRED        50232     1437    OVR      24/05/05 COMPASS 3.7 871               FRONT END CONSTANT ARITHMETIC.
          STMTF         51671      207    OVR      24/05/05 COMPASS 3.7 871               STATEMENT FUNCTION PROCESSOR. 
          LABEL         52100     1245    OVR      24/05/05 COMPASS 3.7 871               LABELS AND *DO* STATEMENT.    
          /SKLNAM/      53345      255
          FSKEL         53622     2174    OVR      24/05/05 COMPASS 3.7 871               DEFINE TURPLE OP CODE VALUES FOR FRONT END.    
          INIT21        56016      115    OVR      24/05/05 COMPASS 3.7 871               INITIALIZE FRONT END OVERLAY. 
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=MOD         *WEAK*                    FSKEL          55665
          D=MUL.C       *WEAK*                    FSKEL          55555
          D=MUL.D       *WEAK*                    FSKEL          55554
          D=ABS         *WEAK*                    FSKEL          55634
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   157  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=ADD.C       *WEAK*                    FSKEL          55545
          D=ADD.D       *WEAK*                    FSKEL          55544
          D=ADD.I       *WEAK*                    FSKEL          55542
          D=ADD.R       *WEAK*                    FSKEL          55543
          D=AGOTO       *WEAK*                    FSKEL          55705
          D=AIMAG       *WEAK*                    FSKEL          55636
          D=AINT        *WEAK*                    FSKEL          55637
          D=AMAX1       *WEAK*                    FSKEL          55645
          D=AMIN1       *WEAK*                    FSKEL          55646
          D=AMOD        *WEAK*                    FSKEL          55647
          D=AND.L       *WEAK*                    FSKEL          55630
          D=ANINT       *WEAK*                    FSKEL          55640
          D=APIOC       *WEAK*                    FSKEL          55717
          D=APIOD       *WEAK*                    FSKEL          55720
          D=APIOU       *WEAK*                    FSKEL          55721
          D=RTNK        *WEAK*                    FSKEL          55733
          D=ASSGN       *WEAK*                    FSKEL          55711
          D=RTOI        *WEAK*                    FSKEL          55624
          D=BVD         *WEAK*                    FSKEL          55736
          D=CAT         *WEAK*                    FSKEL          55616
          D=CDCS        *WEAK*                    FSKEL          55750
          D=CDDOT       *WEAK*                    FSKEL          55747
          D=CDLOO       *WEAK*                    FSKEL          55746
          D=CGOTO       *WEAK*                    FSKEL          55706
          D=CMPLX       *WEAK*                    FSKEL          55651
          D=SHIFT       *WEAK*                    FSKEL          55667
          D=CONJG       *WEAK*                    FSKEL          55650
          D=DABS        *WEAK*                    FSKEL          55652
          D=DATA        *WEAK*                    FSKEL          55751
          D=DDIM        *WEAK*                    FSKEL          55653
          D=DIM         *WEAK*                    FSKEL          55654
          D=DINT        *WEAK*                    FSKEL          55655
          D=DIR.C       *WEAK*                    FSKEL          55564
          D=DIR.R       *WEAK*                    FSKEL          55563
          D=DIV.C       *WEAK*                    FSKEL          55561
          D=DIV.D       *WEAK*                    FSKEL          55560
          D=DIV.I       *WEAK*                    FSKEL          55556
          D=DIV.R       *WEAK*                    FSKEL          55557
          D=DMAX1       *WEAK*                    FSKEL          55642
          D=DMIN1       *WEAK*                    FSKEL          55644
          D=DNINT       *WEAK*                    FSKEL          55657
          D=I111        *WEAK*                    FSKEL          56005
          D=I113        *WEAK*                    FSKEL          55762
          D=I12N        *WEAK*                    FSKEL          55770
          D=I121        *WEAK*                    FSKEL          55764
          D=I122        *WEAK*                    FSKEL          55760
          D=DOC.D       *WEAK*                    FSKEL          55701
          D=JGOTO       *WEAK*                    FSKEL          55707
          D=DOC.O       *WEAK*                    FSKEL          55675
          V=IEQ.B       *WEAK*                    PAR            45115
          D=DOC.1       *WEAK*                    FSKEL          55676
          D=DPROD       *WEAK*                    FSKEL          55656
          D=DSIGN       *WEAK*                    FSKEL          55660
          D=DTOC        *WEAK*                    FSKEL          55626
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   158  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=DVC.R       *WEAK*                    FSKEL          55562
          V=IEQ.L       *WEAK*                    PAR            45116
          D=ENTR        *WEAK*                    FSKEL          55735
          D=EQV.L       *WEAK*                    FSKEL          55631
          D=EQ.D        *WEAK*                    FSKEL          55610
          D=EQ.H        *WEAK*                    FSKEL          55611
          D=EQ.I        *WEAK*                    FSKEL          55606
          D=EQ.R        *WEAK*                    FSKEL          55607
          D=ERR         *WEAK*                    FSKEL          55727
          D=EVD         *WEAK*                    FSKEL          55737
          V=INE.H       *WEAK*                    PAR            45123
          D=FAP         *WEAK*                    FSKEL          55715
          D=FILE        *WEAK*                    FSKEL          55743
          D=FIN         *WEAK*                    FSKEL          55752
          D=FUNC        *WEAK*                    FSKEL          55723
          D=GAP         *WEAK*                    FSKEL          55714
          D=GE.D        *WEAK*                    FSKEL          55576
          D=GE.H        *WEAK*                    FSKEL          55577
          D=GE.I        *WEAK*                    FSKEL          55574
          D=GE.R        *WEAK*                    FSKEL          55575
          D=GOTO        *WEAK*                    FSKEL          55704
          D=GPL         *WEAK*                    FSKEL          55734
          D=HDR         *WEAK*                    FSKEL          55742
          D=IAP         *WEAK*                    FSKEL          55716
          D=IDIM        *WEAK*                    FSKEL          55663
          D=IDNIN       *WEAK*                    FSKEL          55661
          D=IEQ.C       *WEAK*                    FSKEL          56011
          D=IEQ.D       *WEAK*                    FSKEL          56010
          D=IEQ.I       *WEAK*                    FSKEL          56006
          D=IEQ.R       *WEAK*                    FSKEL          56007
          D=IFF         *WEAK*                    FSKEL          56004
          D=IFT         *WEAK*                    FSKEL          56003
          D=ILL         *WEAK*                    FSKEL          55541
          D=INE.C       *WEAK*                    FSKEL          56015
          D=INE.D       *WEAK*                    FSKEL          56014
          D=INE.I       *WEAK*                    FSKEL          56012
          D=INE.R       *WEAK*                    FSKEL          56013
          D=INN3        *WEAK*                    FSKEL          55775
          D=INTF        *WEAK*                    FSKEL          55725
          D=IN2N        *WEAK*                    FSKEL          56001
          D=IN22        *WEAK*                    FSKEL          55771
          D=IN23        *WEAK*                    FSKEL          55765
          D=IOLC        *WEAK*                    FSKEL          55702
          D=IOSUB       *WEAK*                    FSKEL          55726
          D=ISIGN       *WEAK*                    FSKEL          55662
          D=ITOB        *WEAK*                    FSKEL          55622
          D=ITOD        *WEAK*                    FSKEL          55623
          D=ITOR        *WEAK*                    FSKEL          55621
          D=I1NN        *WEAK*                    FSKEL          55773
          D=I1N1        *WEAK*                    FSKEL          56002
          D=I1N3        *WEAK*                    FSKEL          55766
          D=I11N        *WEAK*                    FSKEL          55777
          D=PAUS        *WEAK*                    FSKEL          55731
          D=PLIM        *WEAK*                    FSKEL          55744
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   159  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=RANF        *WEAK*                    FSKEL          55666
          D=RET         *WEAK*                    FSKEL          55732
          D=RGOTO       *WEAK*                    FSKEL          55710
          D=I123        *WEAK*                    FSKEL          55757
          D=RN22        *WEAK*                    FSKEL          55772
          D=LCC         *WEAK*                    FSKEL          55753
          D=LCIF        *WEAK*                    FSKEL          55703
          D=LEQ         *WEAK*                    FSKEL          55612
          D=LGE         *WEAK*                    FSKEL          55600
          D=LIBF        *WEAK*                    FSKEL          55724
          D=LLT         *WEAK*                    FSKEL          55573
          D=LNE         *WEAK*                    FSKEL          55605
          D=LT.D        *WEAK*                    FSKEL          55571
          D=LT.H        *WEAK*                    FSKEL          55572
          D=LT.I        *WEAK*                    FSKEL          55567
          D=LT.R        *WEAK*                    FSKEL          55570
          D=MASK        *WEAK*                    FSKEL          55664
          D=MAX0        *WEAK*                    FSKEL          55641
          D=MIN0        *WEAK*                    FSKEL          55643
          V=INE.B       *WEAK*                    PAR            45115
          D=SUBR        *WEAK*                    FSKEL          55722
          ES=CMPL         0   PAR                 FSKEL          55336
          D=MUL.I       *WEAK*                    FSKEL          55552
          D=MUL.R       *WEAK*                    FSKEL          55553
          D=NE.D        *WEAK*                    FSKEL          55603
          D=NE.H        *WEAK*                    FSKEL          55604
          D=NE.I        *WEAK*                    FSKEL          55601
          D=NE.R        *WEAK*                    FSKEL          55602
          D=UMI.I       *WEAK*                    FSKEL          55565
          D=NOT.L       *WEAK*                    FSKEL          55627
          D=OR.L        *WEAK*                    FSKEL          55632
          D=SEX         *WEAK*                    FSKEL          55745
          UTK=          *WEAK*                    FSNAP          15724     15725
          D=STOP        *WEAK*                    FSKEL          55730
          D=STR.D       *WEAK*                    FSKEL          55614
          D=STR.H       *WEAK*                    FSKEL          55615
          D=RNN3        *WEAK*                    FSKEL          55776
          D=R122        *WEAK*                    FSKEL          55761
          USY=FE        *WEAK*                    INIT21         56030
          D=RTOD        *WEAK*                    FSKEL          55625
          D=SUB.D       *WEAK*                    FSKEL          55550
          D=R1NN        *WEAK*                    FSKEL          55774
          D=R1N3        *WEAK*                    FSKEL          55767
          D=R11N        *WEAK*                    FSKEL          56000
          D=R113        *WEAK*                    FSKEL          55763
          V=IEQ.H       *WEAK*                    PAR            45123
          D=SEG         *WEAK*                    FSKEL          55740
          D=SUB.C       *WEAK*                    FSKEL          55551
          UTG=          *WEAK*                    FSNAP          15720     15721
          D=SUB.I       *WEAK*                    FSKEL          55546
          DUC.            0   FLINK               FEC            17104     17105     17106     17107     17110     17114     17116
                                                                 17117     17143     17144     17150     17151     17153     17154
                                                                 17155     17156     17157     17160     17166     17167     17170
                                                                 17171
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   160  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=SUM1S       *WEAK*                    FSKEL          55635
          V=ILL           0   FSKEL     
          D=DOC.R       *WEAK*                    FSKEL          55700
          D=XOR.L       *WEAK*                    FSKEL          55633
          V=INE.L       *WEAK*                    PAR            45116
          D=UMI.D       *WEAK*                    FSKEL          55566
          D=SUB.R       *WEAK*                    FSKEL          55547
          FEC=1ST         0   FEC                 LEX            25332     25360     25372     25373     25377     25407
                                                  TYPE           36537
          ERR.A           0   PUC                 FERRS          22167     22171     22173     22175     22177     22201     22203
                                                                 22253     22254     22255     22273     22302     22326     22377
                                                                 22435     22452     22571     22664     22735     23015     23033
                                                                 23165     23255     23272     23300     23535     23573     23600
                                                                 23704
          V=ADD.I         1   FSKEL               IO             42047     42427     42445
                                                  PAR            43365     43441     47722
          ERR.M           1   PUC                 FERRS          23454     23455     23457     23461     23463     23465
          DUC.1ST         1   FLINK               FSNAP          15204
                                                  FEC            17124     17134     17146     17161     17165
          FEC=IMP         1   FEC                 LEX            25362
                                                  HEADER         30055
          V=ADD.B         1   FSKEL     
          BN=CON          2   PUC                 FEC            16756
          V=ADD.R         2   FSKEL     
          DUC.2ND         2   FLINK               FSNAP          15210
                                                  FEC            17162     17164
          ERR.D           2   PUC                 FERRS          23442     23443     23445     23447     23453
          FEC=DEC         2   FEC                 LEX            25340     25345     25355     25356     25365     25366     25405
          ERR.T           3   PUC                 FERRS          22337     22446     22531     22737     22746     23005     23013
                                                                 23017     23020     23037     23041     23413     23415     23431
                                                                 23555     23725     24031     24033     24035     24041
          V=ADD.D         3   FSKEL     
          DUC.BTH         3   FLINK               FSNAP          15206
                                                  FEC            17120     17121     17122     17123     17125     17126     17127
                                                                 17130     17131     17132     17133     17135     17136     17137
                                                                 17140     17141     17142     17145     17147     17163
          FEC=STF         3   FEC                 LEX            25414
                                                  HEADER         30357
                                                  KEY            30734
                                                  DECL           34773
          BN=FMT          3   PUC                 FEC            16764
          L.FILL          3   FERRS               PEM            24053
          FEC=EXU         4   FEC                 LEX            25330     25331     25334     25335     25337     25342     25344
                                                                 25347     25350     25352     25353     25361     25363     25371
                                                                 25375     25376     25400     25401     25403     25404     25406
                                                                 25410     25415     25416     25417     26027
                                                  DATA           32443
                                                  PAR            44044
          V=ADD.C         4   FSKEL     
          ERR.W           4   PUC                 FERRS          22155     22161     22225     22226     22231     22242     22261
                                                                 22306     22310     22353     22372     22374     22375     22443
                                                                 22450     22466     22555     22573     22575     22577     22603
                                                                 22605     22624     22630     22641     22660     22662     22712
                                                                 22761     22765     23011     23074     23076     23104     23106
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   161  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 23134     23144     23244     23276     23336     23342     23350
                                                                 23370     23406     23503     23515     23521     23541     23543
                                                                 23551     23563     23660     23667     23671     23677     23723
                                                                 23727     23746     23760     23764     23772     24012
          Z.IMCV          4   FSKEL               PAR            46562
          V=SUB.I         5                       IO             42041     42044     42405     42421
                                                  PAR            43366     43437
          ERR.F           5   PUC                 FERRS          22151     22153     22157     22163     22165     22205     22207
                                                                 22211     22213     22215     22217     22221     22223     22227
                                                                 22233     22236     22240     22244     22246     22251     22257
                                                                 22263     22265     22267     22271     22274     22276     22300
                                                                 22304     22312     22314     22316     22320     22322     22324
                                                                 22330     22332     22334     22336     22341     22343     22345
                                                                 22347     22351     22356     22360     22362     22364     22366
                                                                 22370     22401     22403     22404     22406     22410     22412
                                                                 22414     22416     22420     22422     22424     22426     22430
                                                                 22432     22434     22437     22441     22445     22454     22456
                                                                 22460     22462     22464     22470     22472     22474     22476
                                                                 22500     22502     22505     22507     22511     22513     22516
                                                                 22521     22523     22525     22527     22533     22535     22537
                                                                 22541     22543     22545     22547     22551     22553     22557
                                                                 22561     22563     22565     22567     22601     22607     22612
                                                                 22614     22616     22620     22622     22626     22627     22632
                                                                 22635     22637     22643     22645     22647     22651     22654
                                                                 22656     22666     22670     22672     22674     22676     22700
                                                                 22702     22704     22706     22710     22714     22716     22721
                                                                 22723     22725     22727     22731     22733     22742     22744
                                                                 22750     22753     22754     22756     22764     22766     22770
                                                                 22772     22774     22777     23000     23001     23003     23007
                                                                 23022     23024     23026     23027     23031     23035     23043
                                                                 23045     23047     23051     23053     23055     23057     23060
                                                                 23062     23064     23066     23070     23072     23100     23102
                                                                 23110     23112     23114     23115     23120     23122     23124
                                                                 23126     23130     23132     23136     23140     23142     23146
                                                                 23147     23151     23153     23155     23157     23161     23163
                                                                 23167     23171     23173     23175     23177     23201     23203
                                                                 23205     23207     23211     23213     23215     23217     23221
                                                                 23223     23225     23227     23231     23233     23235     23240
                                                                 23242     23247     23251     23253     23257     23261     23263
                                                                 23265     23267     23271     23274     23302     23304     23306
                                                                 23310     23312     23314     23316     23320     23321     23322
                                                                 23324     23327     23332     23334     23340     23344     23346
                                                                 23352     23354     23356     23360     23362     23364     23366
                                                                 23372     23374     23375     23377     23400     23402     23404
                                                                 23410     23411     23417     23421     23423     23425     23427
                                                                 23433     23437     23440     23451     23466     23467     23471
                                                                 23473     23475     23477     23501     23505     23507     23511
                                                                 23513     23517     23523     23525     23527     23531     23533
                                                                 23537     23545     23547     23553     23557     23561     23565
                                                                 23567     23571     23575     23603     23605     23610     23612
                                                                 23614     23616     23620     23622     23624     23626     23630
                                                                 23632     23635     23637     23641     23643     23645     23647
                                                                 23651     23653     23655     23657     23663     23665     23673
                                                                 23675     23701     23706     23710     23713     23715     23717
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   162  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 23721     23731     23734     23736     23740     23741     23743
                                                                 23750     23752     23754     23756     23762     23766     23770
                                                                 23774     23776     24000     24002     24004     24006     24010
                                                                 24014     24015     24017     24021     24023     24025     24027
                                                                 24037     24043
          FEC=END         5   FEC                 LEX            25351     25420
          V=SUB.B         5   FSKEL     
          FEC=BY          6   FEC                 ALLOC          24661
                                                  LEX            26054
                                                  CDDIR          32151     32175     32216     32233
          V=SUB.R         6   FSKEL     
          ERR.K           6   PUC                 FERRS          23435
          BN=IOAP         6                       FEC            16753
          V=SUB.D         7   FSKEL     
          BN=NLST         7   PUC                 FEC            17025
          FEC=DAT         7   FEC                 LEX            25343     25370
          ERR.C           7   PUC                 PEM            24113
          V=SUB.C        10   FSKEL     
          ES=LEN         10   PAR                 FSKEL          55437
          FEC=FMT        10   FEC                 LEX            25357
          N.ERRT         10   PUC                 FEC            20107
                                                  PEM            24115
          FEC=ENT        11   FEC                 LEX            25354
          L.C$           11   FTN                 FEC            20113
          V=MUL.B        11   FSKEL     
          V=MUL.I        11                       IO             42066     42437     42464
                                                  PAR            43370     43440     45562     47725
          FEC=TYP        12   FEC                 LEX            25333     25336     25341     25346     25364     25367     25402
          V=MUL.R        12   FSKEL               FLINK          25210
                                                  PAR            43376     45565
          V=MUL.D        13                       FLINK          25211
                                                  PAR            45570
          FEC=PRM        13   FEC                 LEX            25374
          V=MUL.C        14   FSKEL               FLINK          25212
                                                  PAR            45573
          FEC=OK         14   FEC                 LEX            25411     25412     25421     25422     25423     25424     25425
                                                                 25426     25427     25430
          Z.LBT          14   PUC                 FEC            20077
          V=DIV.B        15   FSKEL     
          V=DIV.I        15             
          V=DIV.R        16             
          V=DIV.D        17                       FLINK          25206
          V=DIV.C        20             
          V=DVC.R        21                       PAR            43364
          ES=LGE         22   PAR                 FSKEL          55353
          V=DIR.R        22   FSKEL               FLINK          25205
          V=DIR.C        23                       FLINK          25207
          V=UMI.I        24                       PAR            43367
          V=UMI.R        24             
          V=UMI.C        25             
          V=UMI.D        25             
          V=LT.I         26             
          ES=LGT         26   PAR                 FSKEL          55354
          V=LT.B         26   FSKEL     
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   163  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=LT.R         27             
          V=LT.D         30             
          OMI=CPX        30                       PAR            46426
          V=LT.H         31             
          ES=LLE         31   PAR                 FSKEL          55355
          ES=LLT         32                       FSKEL          55356
          V=LLT          32   FSKEL               PAR            43433
          V=GE.I         33             
          V=GE.B         33             
          ES=MASK        34   PAR                 FSKEL          55440
          V=GE.R         34   FSKEL     
          V=GE.D         35             
          V=GE.H         36             
          W=IMV          37             
          V=LGE          37                       PAR            43432
          W=IMVC         37             
          V=NE.I         40             
          V=NE.B         40             
          W=IM2          40             
          W=SHFC         41             
          W=SHLC         41             
          V=NE.R         41             
          V=NE.C         42             
          V=NE.D         42             
          V=NE.H         43             
          W=SHFS         44             
          V=LNE          44             
          V=EQ.B         45             
          V=EQ.I         45             
          V=EQ.R         46             
          V=EQ.D         47             
          N.TABLE        47   PUC                 FSNAP          15263     15275
                                                  FEC            20000     20002     20537     20574     20604
                                                  ALLOC          24375     24414     24434     24441     24470     24510     24514
                                                                 24544
                                                  DECL           34041     35215
          ERFO           47   FTN                 FEC            20106
                                                  HEADER         30011     30033     30034
          V=EQ.C         47   FSKEL     
          ES=SHIF        47   PAR                 FSKEL          55447
          V=EQ.H         50   FSKEL     
          V=LEQ          51             
          OMI=LCF        51                       PAR            46246
          V=STR.B        52             
          W=SHFD         52             
          V=STR.I        52                       IO             42101
                                                  PAR            43436
          V=STR.R        52             
          Z.SORD         53   PUC                 FEC            20033
          V=STR.D        53   FSKEL     
          V=STR.C        53             
          V=STR.H        54                       PAR            43435
          V=CAT          55                       PAR            43350     47455
          V=COLON        56                       PAR            43415
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   164  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  CONRED         51260
          W=SHFS1        57             
          V=SUBST        57                       PAR            43416     47334     47456     47522
                                                  CONRED         51252
          OM=CONV        57                       PAR            43420
          OM=INL         57                       PAR            46155
          V=FLOAT        60             
          V=ITOR         60             
          V=XMIT         61                       PAR            43423
          V=BTOR         61             
          V=CTOR         61             
          V=CTOB         61             
          V=BOOL         61             
          V=DTOR         61             
          V=BTOI         61             
          V=RTOB         61             
          V=REAL         61             
          V=DTOB         61             
          V=SNGL         61             
          V=ITOB         61             
          V=ITOD         62             
          W=SHFD1        62             
          V=ITOC         62             
          V=CTOI         63             
          ES=LOCF        63   PAR                 FSKEL          55360
          V=IDINT        63   FSKEL     
          V=IFIX         63             
          V=RTOI         63             
          V=DTOI         63             
          V=INT          63                       PAR            43417
          V=RTOC         64             
          V=DBLE         64             
          V=RTOD         64             
          V=BTOD         64             
          V=BTOC         64             
          V=DTOC         65             
          V=CTOD         65             
          V=COMPL        66             
          V=NOT.L        66                       PAR            43377
          V=NOT.B        66             
          Z.CHMAP        66   FEC                 FSNAP          14755
          V=AND          67   FSKEL     
          V=AND.L        67             
          V=AND.B        67             
          V=EQV          70             
          V=EQV.L        70             
          V=EQV.B        70             
          V=OR.L         71             
          V=OR.B         71             
          V=OR           71             
          V=XOR          72             
          V=XOR.L        72             
          V=NEQV.        72             
          V=XOR.B        72             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   165  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=NEQV         72             
          ES=RANF        73   PAR                 FSKEL          55445
          V=IABS         73   FSKEL     
          V=ABS          73             
          V=SUM1S        74             
          V=AIMAG        75             
          V=AINT         76             
          V=ANINT        77             
          Z.INTA         77                       PAR            43766
          V=MAX0        100                       IO             42060     42457
          V=AMAX0       100             
          V=DMAX1       101             
          V=MIN0        102             
          V=AMIN0       102             
          V=DMIN1       103             
          V=MAX1        104             
          V=AMAX1       104             
          Z.SYMVP       105   FEC                 INIT21         56054     56057
          V=MIN1        105   FSKEL     
          V=AMIN1       105             
          V=AMOD        106             
          V=CONJG       107             
          W=IDVC        107             
          W=IDV         107             
          V=CMPLX       110                       PAR            46163
          V=DABS        111             
          V=DDIM        112             
          V=DIM         113             
          V=DINT        114             
          V=DPROD       115             
          W=SHRC        115             
          W=IDP2        115             
          CP.ERCT       115   FTN                 PEM            24255
          V=DNINT       116   FSKEL     
          V=DSIGN       117             
          V=NINT        120             
          V=IDNIN       120             
          V=ISIGN       121             
          V=SIGN        121             
          V=IDIM        122             
          V=MASK        123                       PAR            46214
          V=MOD         124             
          V=RANF        125                       PAR            43430
          V=SHIFT       126                       PAR            46227     46233     46241
          V=DOBS        127                       PAR            43372
          CP.IFMT       130   FTN                 LEX            25637     26122     26134
          V=DOBL        130   FSKEL               PAR            43374
          OMI=LEN       130                       PAR            46175
          V=DOBZS       131                       PAR            43371
          V=DOBZL       132                       PAR            43373
          Z.SYMDB       132   FEC                 INIT21         56064
          V=DOC.S       133   FSKEL               LABEL          52615
          V=DOC.O       134                       LABEL          52616
          V=DOC.1       135                       LABEL          52617
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   166  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=DOC.L       136             
          CP.FLIN       137   FTN                 FEC            17700
                                                  LEX            25673     25737     25747     25767     26066     26073     26105
                                                                 26116
          V=DOC.R       137   FSKEL     
          V=DOC.D       140             
          OMI=SHF       141             
          V=IOLC        141                       IO             42751
          CP.CARD       141   FTN                 LEX            25632     26074     26125     26131     26133
          V=LCIF        142   FSKEL               IO             42733
          Z.SYMIL       143   FEC                 INIT21         56066
          V=GOTO        143   FSKEL               KEY            31205     31565     31663
                                                  LABEL          52554
          V=AGOTO       144                       KEY            31246
          V=CGOTO       145                       KEY            31272
          V=JGOTO       146                       KEY            31300
          V=RGOTO       147                       KEY            30646
          V=ASSGN       150                       KEY            30557
          V=BSS         151                       KEY            31725
                                                  PAR            43422
          V=ARY         152                       PAR            43401     47705
          V=GAP         153                       PAR            43410
          V=FAP         154                       PAR            43407
          V=IAP         155                       PAR            43411
          V=APIOC       156                       PAR            43412
          V=APIOD       157                       PAR            43413
          V=APIOU       160                       PAR            43414
          V=SUBR        161                       KEY            30641
          V=FUNC        162                       PAR            43404
          V=LIBF        163                       PAR            43406
          V=INTF        164                       PAR            43405
          V=IOSUB       165                       IO             40746
          V=ERR         166                       PAR            43356     43360     43403
          V=STOP        167                       KEY            32064
          V=PEND        167             
          V=PAUS        170                       KEY            32065
          V=RET         171                       KEY            30724     31121
          V=RTNK        172                       KEY            31136
          V=GPL         173                       PAR            43442
          V=ENTR        174                       KEY            30770
          V=BVD         175                       FEC            20072
          V=EVD         176                       FEC            17731
          V=SEG         177                       FLINK          25251
          V=NOOP        200                       FEC            17626
                                                  KEY            31635
                                                  IO             42736     42755
                                                  PAR            43421
                                                  LABEL          52644     52652     52745
          V=HDR         201                       HEADER         30052
          CP.AFLS       201   FTN                 ALLOC          24605
          CP.NFLS       202                       INIT21         56042
          V=FILE        202   FSKEL               HEADER         30154
          V=PLIM        203                       HEADER         30171
          V=SEX         204                       HEADER         27665     30173     30436
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   167  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=CDLOO       205                       CDDIR          32253
          V=CDDOT       206                       CDDIR          32142
          V=CDCS        207                       CDDIR          32126
          V=DATA        210                       DATA           32462
          F.IN          211   FTN                 LEX            26132
          V=FIN         211   FSKEL               FEC            17310
          V=LCC         212                       HEADER         27746
          V=DVI         213                       DATA           32716
                                                  PAR            43402
          V=EXP.I       214                       PAR            43431
          V=DOBD2       215             
          V=D123        216             
          V=R123        216             
          OM=IF         216                       KEY            31600
          V=I123        216             
          V=I122        217             
          V=R122        220             
          V=D122        220             
          F.OUT         221   FTN                 ALLOC          24675
          V=I113        221   FSKEL     
          V=R113        222             
          V=D113        222             
          V=I121        223             
          V=RN23        224             
          V=DN23        224             
          V=IN23        224             
          V=I1N3        225             
          V=D1N3        226             
          V=R1N3        226             
          V=R12N        227             
          V=D12N        227             
          Z.INTF        227                       FEC            20613
                                                  PAR            46434
          V=I12N        227             
          V=IN22        230             
          V=RN22        231             
          V=DN22        231             
          V=I1NN        232             
          V=R1NN        233             
          V=D1NN        233             
          V=INN3        234             
          V=DNN3        235             
          V=RNN3        235             
          V=I11N        236             
          V=R11N        237             
          V=D11N        237             
          V=RN2N        240             
          V=IN2N        240             
          V=DN2N        240             
          V=I1N1        241             
          F.LGO         241   FTN                 ALLOC          24677
          V=IFT         242   FSKEL               KEY            31616
          V=IFF         243                       KEY            31616
          V=D111        244             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   168  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=R111        244             
          V=I111        244                       KEY            31561
          V=IEQ.I       245                       PAR            45117
          V=IEQ.R       246                       PAR            45120
          V=IEQ.D       247                       PAR            45121
          V=IEQ.C       250                       PAR            45122
          V=INE.I       251                       PAR            45117
          V=INE.R       252                       PAR            45120
          SYS=          253   FTN                 INIT21         56026
          V=INE.D       253   FSKEL               PAR            45121
          V=INE.C       254                       PAR            45122
          Z.SKCR        255                       PAR            47412
          Z.SCT         255             
          MSG=          302   FTN                 ALLOC          24674
                                                  HEADER         30037
          F.IL          321                       FLINK          25216     25224     25246
                                                  INIT21         56037
          F.REF         331                       FEC            20436
                                                  ALLOC          24624
                                                  INIT21         56035
          MAX.FL        343                       ALLOC          24713
          NOM.FL        344                       ALLOC          24605
          TIME1         352                       INIT21         56053
          ENOT=L        353                       PEM            24165     24221
          CO.AL         354                       HEADER         30353
                                                  DECL           36032
          CO.ANSI       355                       FEC            17326
                                                  PAR            47573
                                                  INIT21         56072
          CO.DBER       360                       HEADER         30175
          CO.DBID       361                       KEY            31665
          CO.DBPM       362                       HEADER         30174
                                                  DECL           33672
          CO.DBSB       363                       IO             42143
                                                  PAR            44224     46622
          CO.DBSL       364                       INIT21         56063
          CO.DBTB       366                       PAR            45775
          CO.DS         367                       LEX            25656     25732
          CO.EL         371                       PEM            24111
          CO.ET         372                       PEM            24253
          CO.LCM        374                       DECL           35040     36266
                                                  INIT21         56104
          CO.MD         376                       INIT21         56073
          CO.OPT        377                       PAR            47674
                                                  LABEL          52613
                                                  INIT21         56104
          CO.PW         401                       PEM            24173
                                                  LEX            27424
                                                  HEADER         30026
          CO.RNDA       407                       INIT21         56110
          CO.RNDS       410                       INIT21         56111
          CO.RNDM       411                       FLINK          25141
                                                  PAR            44764
                                                  INIT21         56112
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   169  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.RNDD       412                       FLINK          25141
                                                  PAR            44764
                                                  INIT21         56113
          CO.SEQ        413                       FEC            17330     17675
                                                  LEX            25644     26050
          CO.STAT       414                       HEADER         30115
          CO.WPL        416                       PEM            24206
                                                  LEX            27440     27446
          CO.C$         420                       FEC            20113
          CO.DOLG       421                       PAR            47136
          CO.LOA        423                       CDDIR          32242
          CO.LOM        424                       CDDIR          32245
          CO.LOO        425                       CDDIR          32250
          CO.LOR        426                       FEC            17767     20115
                                                  CDDIR          32256
                                                  INIT21         56034
          CO.LOS        427                       FEC            20120
                                                  CDDIR          32264
          CO.IDP        433                       LEX            25564
          CO.SNAP       435                       FEC            17742
                                                  ALLOC          24533     24600     24723
                                                  LEX            25567
                                                  DATA           32655     32662     32725     33153
                                                  DECL           35013     35234     35372     35510     35531     35604     35720
                                                                 35772     36110
                                                  IO             42610
                                                  PAR            43550     44556     44560     44631     47411     47715     47745
                                                  LABEL          52655     52675
          TL.PTYP       447                       FEC            20105
                                                  HEADER         30011     30023
          TL.PNAM       450                       HEADER         30031
          W=MASKV       574   FSKEL     
          W=MASKC       602             
          W=MODG        604             
          ABTFTN        611   FTN                 ALLOC          24701
          W=MODP2       614   FSKEL     
          IDPCHK        626   FTN                 INIT21         56031
          W=SHIFV       626   FSKEL     
          L=TABLE       632   PUC                 FEC            20001
          W=DOBO        652   FSKEL     
          W=DOZO        653             
          COD           662   FTN                 ALLOC          24711     24714     24741     24743     24745     24753     24755
                                                  PAR            47761     47763
          W=DOC.K       670   FSKEL     
          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             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   170  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          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        2710   RPV20               INIT21         56017
          CDD          2716   UTILITY             FEC            17603     17607     20523
                                                  LEX            25646     26061
                                                  FMT            37410
                                                  IO             41233
          DXB          2735                       FEC            17224
                                                  LEX            26702
          FA=SET       2744                       INIT21         56036     56040
          MVE=         3005                       FEC            17736     20026     20070     20114     20567
                                                  PEM            24200
                                                  ALLOC          24522     24530
                                                  LEX            26106     27437
                                                  HEADER         27744     30301
                                                  KEY            30674
                                                  DATA           33133     33340     33401
                                                  DECL           34072     34170     36145
                                                  FMT            37456
                                                  IO             40756     40773     41150
                                                  PAR            46006     47426
                                                  CONRED         50760
                                                  STMTF          52012
                                                  LABEL          53110     53136     53224     53270     53301
          RPV=         3043                       INIT21         56022     56025
          FRA=         3172                       FSNAP          15030
                                                  ALLOC          24734
          MNS=         3245                       CONRED         50773
          SBM=         3324                       FEC            20031     20033     20077     20111
                                                  DATA           33342
          SFN          3331                       PEM            24163
                                                  LEX            25763     26141
                                                  HEADER         30022
          ZTB          3370                       LEX            26052
                                                  KEY            32043
          CIO=         3407                       ALLOC          24676     24700
          RDC=         3415                       LEX            26132
          WTW=         3656                       FEC            20436
                                                  ALLOC          24624
                                                  FLINK          25217     25225     25247
          ALC=CNT      4131   LISTLNK             FEC            20075
                                                  ALLOC          24413
          MOVES        4136                       FEC            20076
                                                  ALLOC          24723
          PARSLEN      4142                       FEC            17744
          T.TB         4217   PUC                 FSNAP          15016
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   171  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LEX            25512     25521     25523     25562     25574     27501
                                                  DECL           35016
                                                  IO             42607
                                                  PAR            44610
          BASES        4217                       FEC            17771     20007
                                                  ALLOC          24425     24513     24525     24537     24557     24561     24615
          ORIGINS      4217                       FSNAP          14777     15317     15436
          T.ARG        4220                       HEADER         30226     30237     30267     30300     30367
                                                  KEY            30670     32060
                                                  PAR            46003     46135     46143     46276
          T.STF        4221                       ALLOC          24562
                                                  PAR            46055     46102
                                                  STMTF          52055
          T.EQUS       4221                       DECL           34360     34367     34371     34373     34401     34407     34411
                                                                 35242     35513     35563     35576     35607     35643     35661
                                                                 35730
          T.SLARG      4222                       KEY            30673
                                                  PAR            46301
          T.IOARG      4222                       IO             40230     40270     40337     40353     40514     40772     41150
                                                                 41421     41535     41613     41744     42522
                                                  PAR            47424
          T.COMM       4222                       FEC            20074
                                                  DECL           33610     35050     35133     35543     35602     36025
          T.DVV        4222                       CONRED         51413     51451     51622     51627
          T.BLST       4223                       FEC            17567
                                                  FLINK          25054     25112
                                                  KEY            31253     31326     31352     31361     31377     31406     31460
                                                                 31463     31470     31642     31657     31700
                                                  PAR            44526     45312     45355     45372     45414     45420
                                                  LABEL          52220     52315     52374     52454     52475     52503     52533
                                                                 52612     52631     52641     52646     52702     52731     52741
                                                                 52747     52762     53001     53037     53046     53054     53100
                                                                 53106     53133     53142     53221     53227     53236     53250
                                                                 53256     53266     53274     53305
          T.SCR        4224                       FLINK          25037
                                                  IO             40767     40772     41145     41147
                                                  STMTF          51707     51712     51741     51745     51747     51773     52017
                                                                 52033
                                                  LABEL          53103     53111     53124     53135     53177     53212     53223
                                                                 53264     53277
          T.DATI       4224                       DATA           32611     32626     32747     33042     33112     33365     33376
                                                                 33423
          T.OUS        4224                       FSNAP          15117
          T.DATL       4225                       DATA           32453     32507
          T.EOT        4225                       DECL           35506     35534     35535     35601     35607     35661
          T.ILI        4225                       IO             41567     41667
          T.DATS       4226                       FLINK          25215
                                                  DATA           33073     33106     33121     33130     33162
          T.IOLC       4226                       IO             40755     42734     42741     42753     42760     42766
          T.DAR        4227                       DATA           32660
                                                  CONRED         51370     51400     51434     51456     51651     51656
          T.PAR        4227                       FSNAP          15063
                                                  FEC            17624     17733
                                                  ALLOC          24563
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   172  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FLINK          25104     25226
                                                  KEY            31620     31670     32010
                                                  DATA           32660     32675
                                                  DECL           34151     34166
                                                  IO             40752     41301
                                                  PAR            44551     44620     45210     45217     46720     46772     47332
                                                                 47341     47377     47423     47453     47520     47550     47665
                                                                 47710     47737     47757
                                                  CONRED         51250
          T.PCS        4230                       PAR            44305     44307     44312     44707
          T.STMT       4231                       LEX            25515     26075     26113     27024     27027     27034     27037
                                                                 27402     27505
          T.VDIM       4233                       FEC            17717     17730     17736     20071
                                                  DECL           33765     33775     34007     34163     34207     34224     34254
                                                                 34266     34334
          T.C$IF       4234                       CDDIR          32173     32202     32221
          T.IOA        4240                       IO             42347     42714     42723     42743
          T.GL         4243                       FLINK          25032
          T.ASG        4244                       FLINK          25072
                                                  KEY            30567     30571
          T.CON        4245                       PEM            24075
                                                  LEX            27311     27347
                                                  KEY            32044
                                                  CDDIR          32164
                                                  DATA           33123     33132     33230     33317     33335     33343     33420
                                                  DECL           34123     34645
                                                  FMT            37416
                                                  PAR            43632     43664
                                                  CONRED         50751     50776     51010     51275     51311     51334     51352
          T.SYM        4247                       FSNAP          15126     15340
                                                  FEC            17416     17460     17521     17545     17574     17645     20023
                                                                 20132     20150     20224     20241     20263     20355     20373
                                                                 20640
                                                  FLINK          25017     25045     25072     25114
                                                  HEADER         30151     30302     30351     30401
                                                  KEY            30522     30561     30755     30762     31260     31370     31543
                                                                 31650     31734
                                                  DATA           32705     33136
                                                  DECL           33710     34462     34666     34704     35063     35134     35157
                                                                 35202     35245     35274     35376     35476     35675     35730
                                                                 36004     36015     36026     36121     36126     36133     36147
                                                                 36207     36247     36263     36305
                                                  TYPE           36642     36651     36662     37004     37027
                                                  FMT            37257     37447
                                                  IO             40654     41207     41242     41327     41513     41657     41676
                                                                 42513
                                                  PAR            44035     44070     44101     44142     44146     44210     44246
                                                                 45400     46044     46103     46341     47036     47346     47435
                                                                 47527
                                                  CONRED         51406     51413     51447     51554     51566     51620     51633
                                                                 51657
                                                  STMTF          52037     52045     52057
                                                  LABEL          52143     52320     52327     52343     52351     52530     52772
                                                                 53004     53030     53070     53115     53144     53152     53202
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   173  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 53241
          T.BLKS       4250                       FEC            17441     20073     20144     20200
                                                  DECL           33550     33557     33611     34610     34614     34747     34755
                                                                 35025     35053     35055     35102     35132     35542     35710
                                                                 35757     36024     36250
          T.NLST       4251                       KEY            31055     31063     31733     31763
          T.DIM        4252                       FEC            20065     20152
                                                  KEY            31046     31734
                                                  DATA           32710
                                                  DECL           34040     35267     35660     36026
                                                  IO             40656     41516     42166     42244
                                                  PAR            46611     46756
                                                  CONRED         51570
          T.ENTP       4253                       HEADER         30247     30261     30276
                                                  DECL           36154     36157     36161     36173
          T.FPI        4254                       FEC            17461
                                                  HEADER         30376     30406
                                                  DECL           36142     36146     36202     36212     36320
                                                  TYPE           37017
          T.VDI        4255                       HEADER         30415
                                                  DECL           33763     33773     34005     34206     34263     34325     36327
          T.REF        4256                       FEC            17770     20451
                                                  ALLOC          24615     24622
          T.LCA        4257                       DECL           35024     35054
          T.ECT        4260                       DECL           35504     35671     35727     35755
          T.ENT        4261                       HEADER         30050
                                                  KEY            30765
          T.LCC        4263                       HEADER         27741
          T.FMT        4264                       FMT            37453
          T.END        4265                       FEC            20003
                                                  ALLOC          24631
          T=TB         4266                       FSNAP          15016
                                                  FEC            17314
                                                  LEX            25523     27364     27502
          SIZES        4266                       FSNAP          15003
                                                  FEC            20006
                                                  ALLOC          24435     24442     24504     24526     24744
          T=ARG        4267                       HEADER         30220     30232     30270     30307
                                                  KEY            30577     30635
                                                  PAR            46002     46135     46143     46146     46147
                                                  LABEL          52372
          T=EQUS       4270                       ALLOC          24655
                                                  DECL           35233     35371     35503     35564     35724     35731     35777
          T=LINK       4270                       ALLOC          24573
          T=STF        4270                       FEC            17313
                                                  ALLOC          24652
                                                  STMTF          52055
          T=IOARG      4271                       IO             40430     40735     41416
                                                  PAR            47421     47424
          T=SLARG      4271                       KEY            30576     30671     30675
                                                  PAR            45737
          T=COMM       4271                       DECL           33552     33561     35012
          T=DVV        4271                       CONRED         51365     51412     51415     51625
          T=BLST       4272                       FEC            17566     17600     20416
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   174  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          24655
                                                  FLINK          25054
                                                  KEY            30623     30735     31112     31251     31323     31326     31352
                                                                 31361     31377     31406     31417     31463     31642     31657
                                                                 31700
                                                  IO             41726     41772     42021     42023
                                                  PAR            44276     44526     45161     45311     45313     45355     45370
                                                                 45414     45420
                                                  LABEL          52171     52217     52315     52355     52375     52475     52503
                                                                 52533     52540     52613     52631     52701     52731     52756
                                                                 52760     52762     53001     53037     53054     53100     53105
                                                                 53107     53121     53207     53250     53252     53256     53266
                                                                 53271     53305     53310
          T=DATI       4273                       DATA           32435     32450
          T=OUS        4273                       FSNAP          15115
          T=SCR        4273                       FEC            17314     20215
                                                  ALLOC          24654
                                                  FLINK          25042
                                                  IO             40766     40774     41144     41151
                                                  PAR            44605
                                                  STMTF          51671     51723     51754     52017     52070
                                                  LABEL          53122     53131     53177     53210     53217     53230     53255
                                                                 53273     53303
          T=DATL       4274                       DATA           32453     32467     32473     32514
                                                  LABEL          52620
          T=ILI        4274                       IO             40761     41553     41566
                                                  PAR            44123
          T=FILL       4274                       ALLOC          24574
          T=EOT        4274                       DECL           35530     35535     35733
          T=IOLC       4275                       IO             40750     40754     42002
          T=DATS       4275                       ALLOC          24660
                                                  FLINK          25215
                                                  DATA           32436     32450     32461
          T=DAR        4276                       DATA           32447     32665
                                                  CONRED         51366
          T=XFIL       4276                       ALLOC          24576
          T=PAR        4276                       FSNAP          15061
                                                  FEC            17504     17744     17753     17762
                                                  ALLOC          24443     24505     24523     24656
                                                  FLINK          25222     25226
                                                  KEY            30650     31207     31404     31454     31620     31667     31703
                                                                 31772     32011
                                                  DECL           34101     34145     34150     34166
                                                  IO             40757     42005     42045     42051     42062     42070     42175
                                                                 42204     42241     42363     42406     42425     42431     42440
                                                                 42446     42460     42466     42504     42537
                                                  PAR            43127     43136     43154     43204     43514     44225     44361
                                                                 44551     44622     45016     45174     45322     46125     47155
                                                                 47303     47330     47337     47667     47762
                                                  CONRED         51247
                                                  LABEL          52634     52754
          T=PCS        4277                       PAR            43513     44707     44712
          T=STMT       4300                       FEC            17324
                                                  ALLOC          24646     24650
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   175  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LEX            27376     27403
                                                  CDDIR          32271
          T=VDIM       4302                       FEC            17714     17732     17735     17737
                                                  DECL           34150     34227     34256     34313     34316     34336
          T=C$IF       4303                       FEC            17606
                                                  CDDIR          32202     32221
          T=APL        4306                       ALLOC          24657
          T=IOA        4307                       IO             42706     42763     42764
          T=GL         4312                       ALLOC          24660
                                                  FLINK          25030
          T=ASG        4313                       FLINK          25071
          T=CON        4314                       FEC            17235     20216
                                                  ALLOC          24654
                                                  DATA           32437     32445     33344     33351
                                                  FMT            37460
                                                  CONRED         50776     51005
          T=SYM        4316                       FSNAP          15126     15402
                                                  FEC            17416     17457     17545     17645     20023     20150     20223
                                                                 20262
                                                  DECL           35062     35156     35202     36246     36263     36306
                                                  TYPE           37027
                                                  PAR            47040     47344     47434
          T=BLKS       4317                       FEC            17440     20203
                                                  ALLOC          24662
                                                  DECL           33555     35025     35103     35135     36024
          T=NLST       4320                       ALLOC          24657
                                                  KEY            31023     31031     31071     31733     31764
          T=DIM        4321                       ALLOC          24653
                                                  PAR            46755     47045
          T=ENTP       4322                       HEADER         30247
                                                  DECL           36155
          T=FPI        4323                       DECL           36202
                                                  TYPE           37016
          T=VDI        4324                       HEADER         30416
                                                  DECL           34261     36327
          T=REF        4325                       FEC            20432
                                                  ALLOC          24611     24622     24661
                                                  IO             42175     42540     42542
          T=LCA        4326                       DECL           35045
          T=ECT        4327                       DECL           35724     35771     36000
          T=ENT        4330                       ALLOC          24662
          T=FMT        4333                       ALLOC          24656
                                                  FMT            37257
          RATES        4335                       FEC            20004
          NAMES        4404                       FSNAP          15000     15316     15434
                                                  ALLOC          24534
          TV=DECL      4501                       FEC            17772     17775
                                                  ALLOC          24617
          TV=EXU       4502                       FEC            17256     17773
                                                  ALLOC          24620
          TV=CUR       4504                       FEC            17257     17777
                                                  ALLOC          24430     24452     24511     24621
          F.LBT        4505                       FEC            20076
          ALC.PAR      4524                       FEC            17776
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   176  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          24443
          BLNKCOM      4526                       FEC            17666
                                                  DECL           33527     33565     34622     35104
                                                  CONRED         51521
          CHARDCL      4530                       FEC            17415     17666
                                                  DECL           35102     35156     36125
                                                  TYPE           36531     37112
          ERRORS       4531                       FEC            20112
                                                  PEM            24246
          FAILSFT      4533                       FEC            20017
                                                  ALLOC          24643
          O.TABS       4534                       FEC            17777
                                                  ALLOC          24502     24506     24525     24630
                                                  INIT21         56041
          HO$MSG       4536                       HEADER         30036
          IDENT        4537                       ALLOC          24667
                                                  HEADER         30035     30101
                                                  TYPE           37003
          IO.TEM       4540                       FEC            17663
          LEVEL        4543                       FEC            17457     17670
                                                  HEADER         30363
                                                  DECL           34530     35132     36036
          LEVEL0       4544                       FEC            17472     17670
          LEVEL2       4545                       FEC            17671
                                                  HEADER         30364
                                                  DECL           34552     35062     36036
          LINEBUF      4547                       PEM            24120     24172     24177     24202
          LINES        4565                       FEC            17213     17677
                                                  CDDIR          32267
          CARDS        4565                       LEX            25646     26122
          LOSTREF      4566                       FEC            20020     20445
                                                  IO             42177     42543
          MOD          4567                       FEC            17236     17517     20020     20365
                                                  HEADER         27671     30003     30010     30041     30222     30271     30323
                                                                 30333
                                                  KEY            30714     30721     30731     30743     30756     31106
                                                  DECL           36115     36136     36153     36205
                                                  TYPE           36547     36602     36675     37003
                                                  PAR            44012     44135
                                                  CONRED         51523     51527
          NARGS        4570                       FEC            17664
                                                  HEADER         30152     30166     30203
          NOLIST       4571                       FEC            20101
                                                  KEY            30707
          NREXT        4572                       ALLOC          24575
          NSQZLH       4573                       FEC            20011
                                                  PAR            43660
          N.AP         4574                       FEC            20011
          N.ARP        4575                       FEC            20012
                                                  HEADER         30334
                                                  KEY            31136
          N.BUF        4576                       FEC            20012
          N.CPL        4577                       FEC            20013
                                                  HEADER         30266
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   177  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           36163     36175
          N.CT         4601                       FEC            17746     20014
                                                  PAR            47232
          N.CTMAX      4602                       FEC            17747     20015
          N.DOB        4603                       FEC            20015
                                                  LABEL          52445     52516     52625
          N.EPL        4604                       FEC            17671
                                                  HEADER         30265     30457
                                                  DECL           36022
          N.FP         4605                       FEC            20013
                                                  HEADER         30403
                                                  KEY            30725
          N.GL         4606                       FEC            20022
                                                  FLINK          25030
                                                  KEY            30664     31472     31633     32010
                                                  IO             41624     42112     42727
                                                  LABEL          52550     52600
          N.MAXIL      4607                       FEC            17505
                                                  INIT21         56046
          N$LC         4610                       FEC            20014
          N.ST         4611                       FEC            20016
          N.STMAX      4612                       FEC            20016
          N.VD         4613                       FEC            20017
                                                  DECL           34251     34314     36305
          O.STITL      4614                       FEC            20105
          PASS         4616                       FSNAP          15107     15166     15177
                                                  FEC            17674     17754     17760
                                                  PEM            24170
                                                  ALLOC          24573     24644     24665
          PWBUF        4617                       PEM            24200     24201
                                                  LEX            27434     27436     27441     27441
          WOF=ERR      4634                       PEM            24166     24173     24175     24205     24223
                                                  LEX            27411     27424     27440     27446
          REFIO        4635                       FEC            20447     20453
                                                  ALLOC          24613
          SAVE         4637                       FEC            17667     20127
                                                  DECL           34725     35176     36245
          THRESH       4640                       ALLOC          24446     24633     24636     24641     24711
                                                  INIT21         56044
          USAVE        4641                       FEC            17667     20127     20157     20223
                                                  DECL           34724     35176     36245
          L.TABS       4642                       FEC            20000
                                                  ALLOC          24440     24507     24632     24754
                                                  INIT21         56043
          SCR          4643                       FEC            17406     17410
                                                  FERRS          21135
                                                  HEADER         27725     27740     27743     30220     30233     30266     30302
                                                                 30411     30413     30415
                                                  IO             41645     41652     41671     41673
                                                  PAR            44124     44126     44706     45270     45306     45762     46043
                                                                 46070     46074     46262     46412     46435     46462     46466
                                                                 46506     46525     46530     46534     46577     46652
                                                  STMTF          51757     52020     52051     52053     52060     52063
          WO.C$        4655                       FEC            20114
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   178  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          WO.CS        4655                       CDDIR          32124
                                                  PAR            46314
          WO.DOLG      4656                       CDDIR          32136
                                                  PAR            45366
                                                  LABEL          52557     52603
          WO.DOOT      4657                       CDDIR          32140
                                                  IO             42057     42455     42724
                                                  LABEL          52543
          WO.LOA       4660                       KEY            30707
                                                  CDDIR          32243
                                                  IO             41203
          WO.LOM       4661                       CDDIR          32246
                                                  DECL           35776
                                                  IO             41203
          WO.LOO       4662                       CDDIR          32251
          WO.LOR       4663                       FEC            20402
                                                  KEY            30710     31032
                                                  CDDIR          32260
                                                  IO             41043     41204
                                                  LABEL          52360
          WO.LOS       4664                       FEC            17303
                                                  PEM            24221
                                                  LEX            26110
                                                  CDDIR          32266
          WO.QC        4665                       FEC            17752
                                                  PEM            24252
          WO.LCM       4666                       DECL           35023
                                                  INIT21         56106
          CONONE       4667                       DATA           32671
                                                  DECL           34011     34147
                                                  IO             40336     40411     40624     40634     40652     41420     41503
                                                                 41652     41743     42047     42060     42234     42242     42444
                                                                 42456     42740     42745     42757
                                                  PAR            43144     43565     43624     43674     44164     44336     45304
                                                                 45341     45430     45445     45466     45507     45672     46607
                                                  LABEL          52464
          CONZER       4670                       KEY            32036
                                                  IO             41742
                                                  PAR            44440
          CONZERI      4671                       KEY            30643
                                                  PAR            46615
          VTRUE        4672                       PAR            43567
          F.SORD       4674                       FEC            20032
          S=AEXIT      4674                       HEADER         30000
                                                  FSKEL          55003
          S=BU         4675                       FEC            20034
                                                  IO             40414     40671     41251
                                                  PAR            44016     45412     47352
                                                  FSKEL          54606
          S=BUF        4677                       FEC            20035
          S=CL         4701                       FEC            20036
          S=CON        4702                       FEC            20037
                                                  DECL           34174
                                                  IO             42662
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   179  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            43173     43661     47356
                                                  CONRED         51254     51272     51307     51336     51357
          S=CP         4703                       HEADER         30470
          S=CPL        4704                       HEADER         30462
          S=CT         4705                       FEC            20040
                                                  PAR            47235
          S=ENTRY      4706                       HEADER         30047     30051     30217     30411     30435
                                                  KEY            31106
                                                  DECL           36126
                                                  TYPE           36601     37011
          S=EXIT       4710                       HEADER         30443
                                                  KEY            31124
                                                  FSKEL          54777
          S=FAR        4711                       FEC            20064
          S=FAS        4712                       FEC            20063
          S=FID        4713                       FEC            20055
          S=FMC        4714                       FEC            20056     20057
          S=FVS        4716                       FEC            20065
          S=FILES      4717                       HEADER         30212
          S=GPL        4720                       HEADER         30471
          S=LA         4721                       FEC            20041
          S=LC         4722                       FEC            20053
          S=LENP       4723                       FEC            20042
          S=LMC        4724                       FEC            20061
          S=MMC        4725                       FEC            20060
          S=IT         4726                       FEC            20051
          S=INIT       4727                       HEADER         30201
          S=OT         4730                       FEC            20052
          S=RD         4731                       FEC            20054
                                                  PAR            46637
          S=SA1        4732                       FEC            20043
          S=SA0        4733                       FEC            20044
          S=SLI        4734                       HEADER         30456
          S=SPA        4735                       HEADER         30454
          S=ST         4736                       FEC            20045
          S=SUB        4737                       HEADER         30465
          S=SUBI       4740                       HEADER         30466
          S=SUB0I      4741                       HEADER         30467
          S=TRACE      4742                       FEC            20047
                                                  KEY            32020
                                                  FSKEL          54607
          S=TA0        4743                       FEC            20046
          S=UPW        4744                       HEADER         30213
          S=VALUE      4745                       FEC            17420     17517     20062     20131     20370
                                                  HEADER         30225
                                                  KEY            30760
                                                  DECL           36020     36116     36133     36160     36176     36206
                                                  PAR            44011
          S=VD         4746                       FEC            20050
                                                  DECL           34120     34250
                                                  IO             40663     41526
                                                  PAR            45240     46625
          ERRTYP       4747                       FEC            20110
                                                  PEM            24111     24113
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   180  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT21         56072     56100
          ERR=K        4765                       FEC            17751
          E=TOTAL      4767                       FEC            20112     20211
                                                  PEM            24247
                                                  DATA           32654
                                                  DECL           34102     34142
                                                  STMTF          52030
                                                  LABEL          52435     52505
          ENDFTN       5125                       FEC            20515
          TIMER        5222                       INIT21         56052
          CAF          5273                       FEC            20514
          ECB          5320                       CONRED         51555
          ECS          5352                       CONRED         51504
          GCL          5365                       PAR            47450
          GMC          5372                       ALLOC          24627
          LJS          5412                       FEC            17562     17575
                                                  KEY            31371     31651
          MTD          5420                       ALLOC          24503
          WOF          5571                       FSNAP          15040     15070     15077     15151     15155     15220
                                                  PEM            24220
                                                  ALLOC          24672     24731     24737     24750     24760
                                                  LEX            27145     27451     27455
                                                  DECL           35237
                                                  PAR            47772
          PIK=PS       5630                       CONRED         51036
          HDRBL        5765                       FEC            20104
          N$EXST       5771   CCGLINK             FLINK          25227
          N.IL         5773                       FLINK          25222
          FEL.RTN      6002                       FEC            17326     17330     17332
          UKT=LNK      6167   IDP                 INIT21         56027
          PTO          6174                       ALLOC          24751
          IDP=USY      6323                       INIT21         56030
          IDP=SVB      6604                       DATA           33471     33472
          IDP=SVX      6624                       DATA           33467     33470
          FW=IDPL      6634                       FSNAP          15311     15314     15321
          IDPFLG       6636                       FSNAP          15325
          SNAPLNE      6771                       FSNAP          15064     15265     15271     15326     15333     15427     15576
                                                                 15607     15622     15714
          IDP=         7677                       FSNAP          15616
                                                  FEC            17216
                                                  LEX            25566
                                                  KEY            30574
                                                  INIT21         56033
          IDP=MN       7735                       FSNAP          15256     15431     15503     15512     15520     15526     15530
          IDP=ER      10024                       FSNAP          15505     15507     15515     15525
          REG=        10045                       DATA           32727
                                                  PAR            43552     44562     44633
          SNP=        10062                       DATA           33155
                                                  PAR            43553     43554     43555     44563     44564     44565     44634
                                                                 44635     44636
          IDP=CAD     10600                       FSNAP          15575     15621     15637     15666     15702     15707
          DCM=        11314                       FSNAP          15276
          IDP=FLL     11447                       FSNAP          15570
          IDP=FRK     11524                       FSNAP          15311
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   181  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IDP=HDR     11573                       FSNAP          15312
          IDP=PAS     11765                       FSNAP          15255
          IDP=PAT     12123                       FSNAP          15514     15524
          ROL=        12277                       FSNAP          15013     15015     15021     15272     15331     15401     15610
                                                                 15715
          IDP=SKT     12341                       FSNAP          15316     15435
          IDP=SOB     12375                       FSNAP          15011     15306
          IDP=COD     13164                       FSNAP          14757     15002     15004     15105     15133     15135     15142
                                                                 15162     15267     15334     15337     15344     15352     15355
                                                                 15364     15366     15375     15536
          IDP=MCS     13213                       FSNAP          15545     15550     15552     15557     15562     15565     15606
                                                                 15635     15640     15642     15644     15645     15650     15651
                                                                 15661     15663     15664     15667     15673     15675     15676
                                                                 15704     15705     15711
          IDP=SFN     13456                       FSNAP          15433
          IDP=WOD     14025                       FSNAP          15145     15214     15357     15577     15623
          IDP=ZTB     14225                       FSNAP          15033     15131     15176     15343     15346     15601     15655
          SV=B        14234                       FSNAP          15041
                                                  PAR            47757
          SV=A        14244                       FSNAP          15034
          SV=X        14254                       FSNAP          15026     15041     15043     15045
          SVR=        14264                       FSNAP          15025     15060     15305
                                                  PAR            47756
          SVR         14264                       FSNAP          15010
          RSR=        14307                       FSNAP          15047     15101     15322
                                                  PAR            47774
          RSR         14307                       FSNAP          15022
          RPV21       14721   RPV21               INIT21         56016
          B=RPV21     14721             
          B=FSNAP     14752   FSNAP               RPV21          14722
          FI=BRLI     14753                       FEC            17213
          LTB=        15007                       LEX            25570
                                                  IO             42611
          SN.EMT      15024                       PAR            47416
          SN.PAR      15057                       FEC            17743
                                                  DATA           32657
                                                  PAR            44557
          UKT=FE      15247                       INIT21         56027
          DMT=        15304                       DATA           32664
                                                  DECL           35015     35240     35241     35374     35512     35533     35606
                                                                 35722     35723     35774     35775     36112
                                                  LABEL          52657     52677
          TOK=IDP     15612                       LEX            26210     26211
          OSTACK      15771   FEC                 PAR            43523     43527     44534     50056     50126     50176
          FORSKEL     15771                       FMT            37261     37445     37455
          ESTACK      16231                       KEY            32020     32026
                                                  PAR            43516     44310     44477     50071     50141     50211
                                                  LABEL          52501     52524
          HASHTBL     16471             
          ARGMODE     16671                       KEY            30637     31336     31431     31770
                                                  DECL           34107
                                                  IO             40401     40524     40534     40542     40567     40604     40627
                                                                 41034     41135     41163     41721     41727     41777     42124
                                                                 43006
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   182  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            43121     43130     43155     43514     43612     43653     43722
                                                                 43755     44001     44172     44304     44316     44326     44344
                                                                 44360     44370     44405     44411     44423     44450     44503
                                                                 44532     44547     44577     44666     44701     44714     47137
                                                                 47220
                                                  LABEL          52472
          B=FEC       16671                       RPV21          14723
          ARGCOMA     16672                       KEY            30636     31336     31431     31770
                                                  DECL           34106
                                                  IO             40532     40731
                                                  PAR            43121     43132     43160     44306     44316     44332     44405
                                                                 44666     44702     44716     45374     45765     46600     50104
                                                                 50154     50224
                                                  LABEL          52472
          ARGMIS      16673                       PAR            44311     44317     44704     44720     45232     46576
          ASSTAG      16674                       KEY            30527     30557
          CALLTAG     16674                       KEY            30625     30641     30654
                                                  PAR            45736
          CSLTAG      16675                       KEY            31177     31421     31531
                                                  LABEL          52163     52177
          DATFLG      16676                       DATA           32650     32652
                                                  IO             40750     41530     42001     42142     42345     42373     42510
                                                  PAR            43521     45353     45436     45447     46041     46622     47116
                                                                 47222
          DTI         16677                       KEY            31153     31172     31447     31521
                                                  LABEL          52170     52406
          FLOW        16700                       KEY            30715     30776     31416     31452     31600     31662
                                                  LABEL          52430
          HANGER      16701                       KEY            31176     31523     31530
                                                  LABEL          52402
          IFLEVEL     16702                       LEX            26057
                                                  KEY            31357     31457     31641
                                                  LABEL          53246
          INSTF       16703                       PAR            43525     45025     45032     46056     46070     46074
          LDEAD       16704                       PAR            43524
                                                  LABEL          52432
          L.CARD      16705                       LEX            25632     26073     26116     26151
          NOPATH      16706                       KEY            30733     31114     31125     31141     31145     31167     31170
                                                                 31247     31413     31554     31660
                                                  LABEL          52404     52431
          NTRCNT      16707             
          PARMODE     16710                       DECL           34110     34112
                                                  IO             42017
                                                  PAR            43127     43153     43515
          PARAMC      16711                       DECL           34670
                                                  TYPE           37026
          REFLIN      16712                       KEY            31467
                                                  LABEL          52134     52145     52233     52353     52447     53137
          REFNUM      16713                       KEY            30521     31151
                                                  IO             41013
                                                  LABEL          52362     52441
          REFVAR      16714                       KEY            30520     30600     31152     31504
                                                  DATA           32565     33360
                                                  DECL           33526     33630     34342
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   183  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  TYPE           36560
                                                  IO             40614     41722
                                                  PAR            43526     43627     43706     44171     44321     44545     44717
                                                  STMTF          52034
          ROUTNAM     16715             
          RTNCNT      16716                       KEY            31124
          STAGE       16717                       ALLOC          24663
                                                  LEX            26026     26053
                                                  HEADER         30055     30356
                                                  KEY            30733
                                                  CDDIR          32151     32175     32215     32233
                                                  DATA           32443
                                                  DECL           34774
                                                  TYPE           36537
                                                  PAR            44044
          TRLINE      16720             
          T=CONB      16721                       DATA           32436     32446
                                                  FMT            37457
          WANFP       16722                       KEY            30776     31004
                                                  STMTF          51716     51722     51752
          SCR2        16723             
          ZLEQUAL     16733                       LEX            26000     27045
                                                  PAR            43114
          ZLCOMMA     16734                       LEX            26001     27006
          ZLPAREN     16735                       LEX            26012     27114
          ZLE         16736                       PAR            43115     44427     44535     44542
          ZLCOLON     16737                       LEX            27015
          F.SYMIL     16740                       INIT21         56056     56067
          CHARMAP     17104                       FSNAP          14762     15174
                                                  PEM            24072
                                                  HEADER         27726
                                                  IO             40716
                                                  PAR            44466     44510     44512
          FEC         17207                       INIT21         56047
          FEC.RTN     17212                       FERRS          22151     22155     22157     22165     22312     22314     22316
                                                                 22320     22322     22324     22337     22341     22343     22345
                                                                 22347     22351     22356     22360     22362     22364     22500
                                                                 22577     22620     22624     23070     23100     23302     23304
                                                                 23306     23310     23312     23314     23320     23321     23322
                                                                 23334     23340     23344     23360     23362     23374     23400
                                                                 23402     23404     23406     23410     23417     23423     23466
                                                                 23467     23471     23473     23475     23477     23547     23551
                                                                 23565     23736     23752     24025
                                                  ALLOC          24666
                                                  HEADER         27667     27702     27707     27717     27751     27777
                                                  KEY            30575     31043     31067     31102     31162
                                                  CDDIR          32127     32131     32132     32137     32144     32174     32174
                                                                 32177     32215     32220     32232     32234     32236     32263
                                                                 32264     32274
                                                  DATA           32440
                                                  DECL           33620     33633     33636     34423     34424     34466     34473
                                                                 34525     34626     34715     34717     34720     34724     34765
                                                                 34770
                                                  TYPE           36700     36703     36706     37026     37031
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   184  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FMT            37460
                                                  STMTF          51724     52071
                                                  LABEL          52406     52410     52411
          FEC.RIF     17300                       KEY            31452     31456
          FEC.RTF     17303                       KEY            30730
          ASK         17335                       KEY            30540
                                                  TYPE           36551
                                                  LABEL          52413
          ASL         17372                       KEY            30516
                                                  LABEL          52415
          CSB         17503                       KEY            31611
                                                  LABEL          52405
          CUS.RET     17623                       FERRS          23005
                                                  KEY            31203     31204     31210     31560     31566     31577     31601
                                                                 31610     31613
          OIL         17741                       FLINK          25214
                                                  KEY            31004     31726
                                                  CDDIR          32110
                                                  DATA           32442
                                                  IO             41754
                                                  LABEL          52654
          BBC         20236                       FLINK          25107
                                                  IO             41277     41354     41562     41665     42163     42220     42230
                                                                 42271     42273     42310     42312     42664
                                                  PAR            47172
                                                  LABEL          52536     53053
          CCT         20251                       KEY            30605
                                                  DECL           33604     33651     34354     34455     34511     34572     34661
          CT1         20260                       KEY            30622
                                                  DECL           33577     36011
                                                  FMT            37256
                                                  IO             41042     41561     41650     42034     42161     42217
                                                  PAR            43712     44020     44072     44102     46413     46463     46526
                                                  CONRED         51510
                                                  LABEL          52235     52336     52462     52523     52643     52744
          STY         20302                       HEADER         27676     30350
                                                  KEY            30753
                                                  DECL           34460     34664
                                                  TYPE           37007     37022     37036
                                                  PAR            44067     44077
                                                  STMTF          52036
          NAT.TYP     20310                       TYPE           36761     36763
          NAT.LEN     20317                       TYPE           36771
          TLV         20334                       LEX            26024
                                                  HEADER         30016     30112     30125     30424
                                                  KEY            30627     31017
                                                  DATA           33412
                                                  DECL           33540     33571     34440     34604     34636     34745
                                                  TYPE           36634
                                                  PAR            43704
          TRV         20343                       KEY            30541     31042     31211
                                                  DECL           33601     33647     34350     34565     34731
                                                  STMTF          51725
          TRVA        20410             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   185  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TSX         20412                       HEADER         30177     30453     30455     30461
                                                  KEY            32062
                                                  IO             40254     40310     40510     40745     41725     41761
                                                  PAR            46252     46320     46656
          TSY         20424                       HEADER         27776     30202     30205     30441     30446     30450     30452
                                                                 30460     30463
          ERT         20443                       HEADER         30054     30422
                                                  KEY            30621     31001     31035     31111
                                                  CDDIR          32262
                                                  DATA           32566     33362
                                                  DECL           34464     34540     34711
                                                  TYPE           36640
                                                  IO             41064     41247     42530
                                                  PAR            43630     44200
                                                  STMTF          52043
                                                  LABEL          52201     52363
          ERT=ON      20463                       CDDIR          32260
          ERT=OFF     20464                       CDDIR          32261
          ESY         20465                       HEADER         30046     30151     30352
                                                  KEY            30616     30755     31026
                                                  DECL           34462     34506     34666
                                                  TYPE           36631
                                                  IO             41242
                                                  PAR            44071     44101
                                                  STMTF          52040
                                                  LABEL          52143     52335
          INN         20521                       DECL           35652
                                                  LABEL          52446     52520     52627
          NCM         20533                       LEX            27312     27350
                                                  DATA           33346
                                                  DECL           35660
                                                  CONRED         51001     51335
          SCS         20573                       HEADER         30377
                                                  DECL           33550     34610     34747
                                                  STMTF          51773
          SCSA        20602                       HEADER         30375
                                                  DECL           33530     34531     34722
                                                  STMTF          51760
          SCT         20603                       HEADER         30370
                                                  KEY            30570     32044
                                                  DATA           33230
                                                  DECL           34646
                                                  CONRED         51353
                                                  STMTF          51741
          SLT         20612                       DECL           34477
                                                  PAR            44034     44075
          SSY         20637                       LEX            26033
                                                  HEADER         30040     30113     30126     30340
                                                  KEY            30603     30742     31022
                                                  DATA           33414
                                                  DECL           34442     34504     34655
                                                  TYPE           36565
                                                  FMT            37254
                                                  IO             41026     41240     42155     42216
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   186  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            43705
                                                  STMTF          51673     52035
                                                  LABEL          52123     52216
          E.PX5       20710   FERRS               DECL           34714
                                                  PAR            43614
          E.GE        20710             
          B=FERRS     20710                       RPV21          14724
          E.SF00      20710                       STMTF          51754
          E.EX3       20711                       DECL           34433
          E.GE2       20711             
          E.DM16      20711                       DECL           33646
          E.C$09      20712                       CDDIR          32206     32225     32367
          E.GE3       20712             
          E.IOD4      20712                       IO             42637
          E.GE6       20713             
          E.PX8       20713                       DECL           34715
          E.FS18      20713                       FMT            37440
          E.ANS3      20714                       KEY            31117
          E.AG08      20715                       HEADER         30430
          E.DO05      20716                       LABEL          52415
          E.AS4       20716                       KEY            30516
          E.CL2       20717                       KEY            30603
          E.CM        20720                       DECL           33543
          E.CM1       20721                       DECL           33534
          E.CM2       20722                       DECL           33556     34620     34757
          E.CM3       20723                       DECL           33624     34624
          E.CM5       20724                       DECL           33536
          E.CM6       20725                       DECL           33621
          E.CT        20726                       KEY            30705
          E.C$00      20727                       CDDIR          32121     32341
          E.C$01      20730                       CDDIR          32203     32222
          E.C$02      20731                       CDDIR          32315
          E.C$03      20732                       CDDIR          32212     32231
          E.C$04      20733                       CDDIR          32214
          E.C$06      20734                       CDDIR          32123     32162
          E.C$07      20735                       CDDIR          32114     32333
          E.C$08      20736                       CDDIR          32113     32153     32157     32330
          E.C$11      20737                       CDDIR          32161
          E.DACV      20740                       DATA           32466
          E.DAVC      20741                       DATA           32465
          E.DCE       20742                       DATA           32635     33405     33406     33407
          E.DIL       20743                       DATA           32535     32605
          E.DIL1      20744                       DATA           32552     33176     33200
          E.DIL2      20745                       DATA           32601
          E.DIL3      20746                       DATA           32636
          E.DIL4      20747                       DATA           32563
          E.DM10      20750                       DECL           33642
          E.DO08      20751                       LABEL          53075
          E.DO14      20752                       LABEL          52420
          E.EN1       20753                       KEY            30732
          E.EN2       20754                       KEY            30736
          E.EN3       20755                       KEY            30737
          E.EN4       20756                       KEY            30740
          E.EQ        20757                       DECL           34415
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   187  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.EQ1       20760                       DECL           34346
          E.EQ2       20761                       DECL           34422
          E.EQ3       20762                       DECL           34404
          E.EQ4       20763                       DECL           34403
          E.FD2       20764                       HEADER         30114
          E.FD3       20765                       HEADER         30127
          E.FD4       20766                       HEADER         30214
          E.FD5       20767                       HEADER         30214
          E.FD6       20770                       HEADER         30214
          E.FD7       20771                       HEADER         30215
          E.FD8       20772                       HEADER         30215
          E.FD9       20773                       HEADER         30215
          E.GO        20774                       KEY            31160     31241     31266
          E.GO1       20775                       KEY            31150
          E.GO2       20776                       KEY            31201
          E.IF00      20777                       KEY            31434
          E.IF03      21000                       KEY            31513     31516
          E.IF06      21001                       KEY            31446
          E.IF09      21002                       KEY            31437
          E.IF10      21003                       KEY            31521
          E.IF11      21004                       KEY            31440
          E.IF12      21005                       KEY            31333
          E.IF13      21006                       KEY            31360     31641     31701
          E.IN        21007                       DECL           34475
          E.IN4       21010                       DECL           34525
          E.IO01      21011                       IO             40233     40273     41176
          E.IO07      21012                       IO             41014     41025
          E.IO08      21013                       IO             40446     40454
          E.IO10      21014                       IO             41101
          E.IO11      21015                       IO             41105
          E.IO12      21016                       IO             41107
          E.IO13      21017                       IO             40451
          E.IO15      21020                       IO             41126
          E.IO16      21021                       IO             40240     40244     40304     40344     41102     41171
          E.IO17      21022                       IO             41461     41462     41465
          E.IO19      21023                       IO             40233     40332
          E.IO20      21024                       IO             41200
          E.IO21      21025                       IO             41201
          E.IO25      21026                       IO             40471
          E.IO28      21027                       IO             40467
          E.IO29      21030                       IO             40470
          E.IOB0      21031                       IO             41277     41354
          E.IOB1      21032                       IO             40504
          E.IOB2      21033                       IO             41265     41271
          E.IOB3      21034                       IO             40505     40531
          E.IOB4      21035                       IO             40521     40537
          E.IOB5      21036                       IO             40530     40545
          E.IOB6      21037                       IO             41345
          E.IOB8      21040                       IO             41270
          E.IOB9      21041                       IO             41325     41332     41336     41340
          E.IOD1      21042                       IO             42606
          E.IOD2      21043                       IO             42622
          E.IOD3      21044                       IO             42626
          E.IOL7      21045             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   188  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOL8      21046             
          E.IOF       21047                       IO             41400     41401     41402     41404
          E.IOF2      21050                       IO             41407
          E.IOS1      21051                       IO             40564
          E.IOS2      21052                       IO             40573
          E.IOS3      21053                       IO             40576
          E.IOS4      21054                       IO             40600
          E.IOS5      21055                       IO             40607
          E.IOS6      21056                       IO             40564     40573     40600
          E.IOS8      21057                       IO             40576
          E.IOS9      21060                       IO             41360     41362
          E.IOS10     21061                       IO             41542
          E.LV1       21062                       DECL           34532     34533     34535     34543     34547
          E.LV3       21063                       DECL           34554     34563     34602
          E.LV4       21064                       DECL           34571
          E.LV5       21065                       DECL           34627
          E.LV7       21066                       DECL           34612
          E.LV8       21067                       DECL           34607
          E.FM        21070                       FEC            17235     17342
                                                  KEY            31332     31445
          E.MA        21071                       FEC            17261
          E.MD        21072                       FEC            17262
          E.ME        21073                       LEX            25420
          E.MH        21074                       FEC            17263
          E.MI        21075                       FEC            17264
          E.MR1       21076                       HEADER         30105     30160     30315     30336     30425
          E.MR2       21077                       KEY            31014
                                                  DECL           33725
          E.MR3       21100                       KEY            31036
                                                  DECL           34344
          E.NP1       21101                       LABEL          52432
          E.OV1       21102                       HEADER         27724
          E.OV3       21103                       HEADER         27750
                                                  KEY            30706
          E.NL        21104                       KEY            31013
          E.NL1       21105                       KEY            31021
          E.NL2       21106                       KEY            31015
          E.NL3       21107                       KEY            31023
          E.NL4       21110                       KEY            31050
          E.NL5       21111                       KEY            31041
          E.PX3       21112                       DECL           34635
          E.PX4       21113                       DECL           34641
          E.SA1       21114                       DECL           34730     34743
          E.SA3       21115                       DECL           34763
          E.SA4       21116                       DECL           34765
          E.SF01      21117                       STMTF          51756
          E.SF02      21120                       STMTF          52030
          E.SF03      21121                       STMTF          51774
          E.SF08      21122                       STMTF          51675     51700     51701     51703
          E.SL18      21123                       LABEL          52205
          E.TY5       21124                       TYPE           37067     37072
          E.TYI       21125                       TYPE           37107     37107
          E.TYI1      21126                       TYPE           36717
          E.TYI2      21127                       TYPE           36726     36737
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   189  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TYI6      21130                       TYPE           36777
          E.TYI7      21131                       TYPE           37002
          E.VA09      21132                       FEC            20346
                                                  DECL           34435
                                                  TYPE           36532     36563     36564
          E.VA13      21133                       PAR            44024
          OSE         21134                       PAR            46606     47061     47101     47103
          DICT        21155                       PEM            24126
          CLASS       21156                       FEC            17452     20253     20253     20360     20364     20375
                                                  KEY            30553     31215
          FILL.       21156                       FEC            17271     17434     17444     17475     17540     17556     17563
                                                                 17576     17604     17610     17656     20340     20346     20472
                                                  PEM            24054     24105
                                                  ALLOC          24535     24712
                                                  LEX            25607     27235     27266
                                                  HEADER         30111     30330
                                                  KEY            30535     30555     30602     30741     31040     31217     31372
                                                                 31435     31652
                                                  CDDIR          32346     32351
                                                  DATA           32561
                                                  DECL           33546     33573     34101     34114     34350     34435     34476
                                                                 34564     34606     34655     34746     35032     35126     35146
                                                                 35211     35255     35276     35400     35500     36044     36300
                                                                 36324
                                                  TYPE           36562     36725     36730     36736     36740     37035
                                                  FMT            37400     37461     37501     37547     37576     37615
                                                  IO             40702     40720     41463     41606     42215     42515
                                                  PAR            43701     44513     45254     45347     46047     46106     46344
                                                                 46407     46443     46472     47310
                                                  CONRED         51410
                                                  STMTF          51711
                                                  LABEL          52103     52175
          FILL.2      21157                       FEC            17344     17453     20254     20377
                                                  ALLOC          24715
                                                  HEADER         30123
                                                  KEY            30554     31216     31424
                                                  CDDIR          32120     32316     32341     32354
                                                  DECL           33723
                                                  IO             40702
                                                  PAR            44467     45324
                                                  STMTF          51727     51775     52025
                                                  LABEL          52207
          FILL.3      21160                       KEY            31500
                                                  TYPE           36731     36741
                                                  IO             41432     41441     41452     41474
                                                  PAR            43534     45363     45410     47276     47354
                                                  STMTF          51672
                                                  LABEL          52576
          DO.DPC      21217                       PAR            45323
          MOD.DPC     21223                       FEC            17537
                                                  KEY            31477
                                                  IO             41431     41440     41451     41473
                                                  PAR            45361     45407     47275     47275
          ERL=XPR     21233                       PAR            47325
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   190  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ERL=CON     21234                       PAR            43533     47324
          E.TY        22153                       DECL           33634
                                                  TYPE           36702
          E.DM15      22153                       DECL           33727
          E.EX2       22153                       DECL           34467
          E.GE1       22153             
          E.FD11      22161                       HEADER         30165
          E.IO37      22161                       IO             40251
          E.ME1       22161                       KEY            30713
          E.IF08      22161                       KEY            31345     31356
          E.CT1       22161                       KEY            30700
          E.C$10      22161                       CDDIR          32320     32370
          E.AG02      22161                       HEADER         30432
          E.SPR4      22161                       KEY            31130     32031
          E.AS1       22161                       KEY            30550
          E.GE4       22161             
          E.GO9       22161                       KEY            31242     31775
          E.VA00      22163                       FEC            20376
          E.AS7       22163                       KEY            30556     31220
          E.GE5       22163             
          E.ANS       22167                       KEY            31007
                                                  DECL           34527
                                                  TYPE           36520
                                                  IO             40321     40476     40560
          E.ANS1      22171                       FEC            17331
          E.ANS2      22173                       FEC            20472
                                                  DECL           33547
          E.ANS4      22177                       PAR            47317
          E.ANS5      22201                       PAR            46011     46014
          E.ANS6      22203                       CONRED         51525
          E.AG00      22205                       HEADER         30235
          E.AG01      22207                       HEADER         30325
          E.AG03      22211                       HEADER         30371
          E.AG04      22213                       HEADER         30332
          E.CL1       22215                       KEY            30652
          E.AG07      22215                       HEADER         30100     30317
          E.AG11      22221                       HEADER         30335
          E.AG12      22223                       HEADER         30345
          E.AS2       22225                       KEY            30536
          E.AS3       22226                       KEY            30547
          E.AS5       22231                       KEY            30531
          E.AS6       22233                       FEC            17557
          E.AT01      22236                       DATA           33322
                                                  PAR            47625     47641     47646
          E.AT02      22240                       PAR            44515
          E.AT03      22242                       DATA           33205
                                                  PAR            43655
          E.AT04      22244                       PAR            44167
          E.AT05      22246                       PAR            44672
          E.AT06      22251                       PAR            44425
          E.AT07      22253                       PAR            47630
          E.AT08      22254                       DATA           33200
                                                  PAR            43650
          E.AT09      22255                       PAR            43116
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   191  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AT10      22257                       PAR            43537
          E.AT11      22261                       PAR            47174
          E.AT13      22263                       DATA           33355
                                                  PAR            47611
          E.AT14      22265                       PAR            47615
          E.AT15      22267                       PAR            45152
          E.AT16      22271                       DECL           35264     36234
                                                  PAR            44242     45264
                                                  CONRED         51503
          E.AT17      22273                       PAR            45301
          E.AT18      22274                       PAR            43644
          E.AT19      22276                       PAR            47277
          E.AT20      22300                       PAR            43636
          E.AT21      22302                       PAR            44465
          E.CL3       22306                       KEY            30610
          E.CL4       22310                       KEY            30612
          E.CM8       22326                       FEC            17453
          E.CM9       22330                       DECL           35037
          E.CM10      22332                       DECL           35042
          E.CM11      22334                       DECL           35126
          E.CM12      22336                       DECL           36044
          E.C$05      22353                       CDDIR          32354
          E.C$15      22366                       FEC            17611
          E.DABC      22370                       CONRED         51522
          E.DABL      22372                       CONRED         51530
          E.DAR       22377                       DATA           32606
          E.DAUC      22401                       CONRED         51516
          E.DSE       22416                       DATA           32515     32530
                                                  CONRED         51404     51460
          E.DVL1      22420                       DATA           32667
                                                  PAR            43534
                                                  CONRED         51513
          E.DVR1      22422                       CONRED         51453
          E.DVR2      22424                       CONRED         51562
          E.DVR3      22426                       CONRED         51641
          E.DVR4      22430                       CONRED         51441
          E.DVR5      22432                       PAR            46042
          E.DC        22434                       CONRED         50422     50515
          E.DC1       22435                       PAR            43573
                                                  CONRED         50512
          E.DC3       22437                       CONRED         50360     50362
          E.DC4       22441                       PAR            44763
          E.DC6       22443                       CONRED         50375
          E.DC7       22445                       DATA           32620
          E.DC8       22446                       CONRED         50347     50402     50413     50475
          E.DC9       22450                       CONRED         50500
          E.DC10      22452                       DATA           33274
          E.DM00      22454                       DECL           33665     33731
          E.DM01      22456                       PAR            43563     43603     43622     43671
          E.DM02      22460                       DECL           33755
          E.DM03      22462                       FEC            17653
          E.DM04      22464                       FEC            17654
          E.DM05      22466                       DECL           33662
          E.DM06      22470                       DECL           33750     34020
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   192  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DM07      22472                       DECL           34125
          E.DM08      22474                       DECL           34031
          E.DM09      22476                       DECL           33656
          E.DM11      22502                       PAR            47130
          E.DM12      22505                       DECL           36325
          E.DM13      22507                       DECL           34016
          E.DM14      22511                       PAR            44135
          E.DM17      22513                       PAR            44132
          E.DM18      22516                       PAR            44134
          E.DM19      22521                       DECL           36272
          E.DM20      22523                       DECL           36274
          E.DM21      22525                       PAR            44137
          E.DO00      22527                       PAR            45307     45332
          E.DO01      22531                       LABEL          52545
          E.DO02      22533                       PAR            45434
          E.DO03      22535                       LABEL          52576
          E.DO04      22537                       PAR            45346
          E.DO06      22541                       LABEL          52323
          E.DO07      22543                       LABEL          53173
          E.DO09      22547                       FEC            17576
          E.DO10      22551                       LABEL          52423
          E.DO12      22553                       LABEL          52333     52714
          E.DO13      22555                       LABEL          52721
          E.DO15      22561                       PAR            45345     45362
          E.DO16      22563                       PAR            45410
          E.DO17      22565                       PAR            45442
          E.DO18      22567                       LABEL          52546
          E.DO19      22571                       LABEL          52274     53166
          E.DO20      22573                       LABEL          53170
          E.EN        22575                       KEY            30747
          E.EN5       22607                       KEY            30745
          E.EN6       22612                       KEY            31713
          E.EN7       22614                       KEY            31720
          E.EN8       22616                       KEY            31721
          E.EQ6       22630                       DECL           34420
          E.EQ7       22632                       DECL           35350
          E.EQ8       22635                       DECL           35351
          E.EQ10      22637                       DECL           35302
          E.EQ11      22641                       DECL           35460     35467
          E.EQ12      22643                       DECL           35463     35471
          E.EQ13      22645                       DECL           35344
          E.EQ14      22647                       DECL           35360
          E.EQ15      22651                       DECL           35364
          E.EQ16      22654                       DECL           35474     35501
          E.EQ17      22656                       DECL           35310
          E.EX1       22660                       DECL           34444
          E.EX4       22662                       DECL           34450
          E.FD        22664                       HEADER         30103
          E.FD1       22666                       HEADER         30106
          E.FD10      22710                       HEADER         30162
          E.FD12      22712                       HEADER         30167
          E.FS00      22714                       FMT            37242
          E.FS01      22716                       FMT            37737
          E.FS02      22721                       FMT            37774
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   193  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.FS03      22723                       FMT            37351
          E.FS04      22725                       FMT            37556     37606     37630
          E.FS05      22727                       FMT            37675
          E.FS06      22731                       FMT            37527
          E.FS07      22733                       FMT            37566     37634
          E.FS08      22735                       FMT            37400     37533
          E.FS09      22737                       FMT            40006
          E.FS10      22742                       FMT            37753
          E.FS11      22744                       FMT            40022
          E.FS12      22746                       FMT            40020
          E.FS13      22750                       FMT            37733     37755
          E.FS14      22753                       FMT            37461     37637
          E.FS15      22754                       FMT            37670     37713
          E.FS16      22756                       FMT            37317
          E.FS17      22761                       FMT            37705
          E.FS19      22764                       FMT            37435
          E.FS20      22765                       FMT            37277
          E.FS21      22766                       FMT            37323
          E.FS22      22770                       FMT            37356     37765
          E.FS23      22772                       FMT            37743
          E.FS24      22774                       FMT            37746
          E.FS25      22777                       FMT            37330     37341     37373     37403     37516     37563     37727
          E.FS26      23000                       FMT            37266
          E.GO3       23007                       KEY            31227
          E.GO4       23011                       KEY            31223
          E.GO5       23013                       KEY            30703     31202
          E.GO6       23015                       KEY            32000
          E.GO7       23017                       KEY            31164
          E.GO8       23020                       KEY            31237     31304
          E.HC1       23022                       LEX            27321     27361
          E.HC2       23024                       LEX            25616
          E.HC3       23026                       LEX            25610
          E.IF01      23031                       KEY            31347
          E.IF02      23033                       KEY            31451
          E.IF04      23037                       KEY            31562
          E.IF05      23041                       KEY            31556
          E.IF07      23045                       KEY            31500
          E.IF14      23060                       KEY            31342
          E.IF15      23062                       KEY            31372     31652
          E.IF16      23064                       LABEL          52704
          E.IF17      23066                       FEC            17604
          E.IN1       23072                       DECL           34501
          E.IN2       23074                       DECL           34513
          E.IN3       23076                       DECL           34521
          E.INF       23102                       PAR            46243
          E.INF1      23104                       PAR            46224
          E.INF2      23106                       PAR            46240
          E.INF3      23110                       PAR            46170
          E.IO00      23112                       IO             40415     40640
          E.IO02      23115                       IO             41715
          E.IO03      23120                       IO             41224     41230
          E.IO04      23122                       IO             40620
          E.IO05      23124                       IO             41432     41441     41453     41474
          E.IO06      23126                       IO             40276
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   194  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IO09      23134                       IO             40447
          E.IO14      23146                       IO             42024
          E.IO18      23155                       IO             41426     41446     41470
          E.IO22      23165                       IO             41123
          E.IO23      23167                       IO             40647
          E.IO24      23171                       IO             40660
          E.IO26      23175                       IO             40646     41010
          E.IO30      23203                       IO             40642
          E.IO31      23205                       IO             41257
          E.IO32      23207                       IO             41262
          E.IO33      23211                       IO             40643     41055
          E.IO34      23213                       IO             40440
          E.IO35      23215                       IO             40441
          E.IO36      23217                       IO             41375
          E.IOB7      23240                       IO             41274     41351
          E.IOL1      23255                       IO             41736
          E.IOL2      23257                       IO             41672
          E.IOL5      23261                       IO             41747
          E.IOL6      23263                       IO             41522
          E.IOF1      23272                       IO             41404
          E.ION       23276                       IO             41766
          E.ION1      23300                       IO             41756
          E.IOS7      23316                       IO             41540
          E.LP1       23324                       PAR            44572     44704
                                                  STMTF          52015
          E.LP2       23327                       PAR            44676
                                                  STMTF          52014
          E.LP3       23332                       PAR            44310     44500
          E.LV2       23336                       DECL           34555
          E.LV6       23346                       FEC            17501
          E.LV9       23354                       DECL           35150
          E.LV11      23356                       PAR            47223
          E.MB        23364                       FEC            17240
          E.MCA       23366                       LEX            25510
          E.INI       23370                       LEX            25501
          E.TLBL      23372                       LEX            25503
          E.MDO       23375                       FEC            17276
                                                  KEY            31155     31524
          E.MS        23411                       FEC            17563
          E.NP        23413                       FEC            17641
          E.OV2       23421                       HEADER         27715
          E.OV4       23425                       HEADER         30004
          E.PN1       23427                       HEADER         30020
          E.PN3       23431                       HEADER         27753
          E.SEQ       23433                       FEC            17227
          E.STO       23435                       FEC            20513
          E.MO1       23437             
          E.MO2       23440                       ALLOC          24663
          E.MO4       23442             
          E.MO5       23443                       ALLOC          24625
          E.MO6       23445                       ALLOC          24716
          E.MO7       23447                       ALLOC          24602
          E.MO8       23451             
          E.TC1       23453                       ALLOC          24536
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   195  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.MDE1      23454                       HEADER         27721
          E.MDE2      23455                       DATA           32554
                                                  TYPE           36521
                                                  PAR            43574     43616     43647     44106
          E.MDE3      23457                       IO             40477
          E.MDE4      23461                       IO             40561
          E.MDE5      23463                       PAR            44117
          E.MDE6      23465                       HEADER         27710
          E.PX1       23501                       PAR            43142
          E.PX2       23503                       DECL           34631
          E.PX6       23511                       PAR            43167     43175
          E.PX7       23513                       PAR            45464
          E.SA        23515                       DECL           35200
          E.SA2       23521                       DECL           34737     34752
          E.SA5       23527                       DECL           34733
          E.SA6       23531                       DECL           35212
          E.SB2       23533                       PAR            47056
          E.SB3       23535                       PAR            47061
          E.SB4       23537                       PAR            47073
          E.SB5       23541                       PAR            47076
          E.SB6       23543                       PAR            47100
          E.SB7       23545                       PAR            46605
          E.SF04      23555                       STMTF          52026
          E.SF05      23557                       STMTF          51742
          E.SF06      23561                       STMTF          51720
          E.SF07      23563                       STMTF          51704
          E.SF09      23567                       PAR            46052
          E.SF10      23571                       PAR            44260
          E.SF11      23573                       STMTF          51731
          E.SF12      23575                       STMTF          51766
          E.SF13      23600                       PAR            44221
          E.SF14      23603                       STMTF          51740
          E.SF15      23605                       PAR            46114
          E.SL00      23610                       LABEL          52131
          E.SL01      23612                       LABEL          52124
          E.SL02      23614                       LABEL          52251
          E.SL03      23616                       LABEL          52257
          E.SL04      23620                       LABEL          52254
          E.SL05      23622                       LABEL          52263
          E.SL06      23624                       LABEL          52262     52306
          E.SL07      23626                       LABEL          52303
          E.SL08      23630                       LABEL          52311     52313
          E.SL09      23632                       LABEL          52271     53011
          E.SL10      23635                       LABEL          52152
          E.SL11      23637                       LABEL          52237
          E.SL12      23641                       LABEL          52154
          E.SL13      23643                       LABEL          52161
          E.SL14      23645                       LABEL          52116
          E.SL15      23647                       LABEL          52112
          E.SL16      23651                       LABEL          52132
          E.SL17      23653                       LABEL          52253
          E.SL19      23657                       LABEL          52115
          E.SL20      23660                       LABEL          52267
          E.ST        23663                       DECL           36237
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   196  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.ST1       23665                       DECL           35257
          E.SPR1      23667                       KEY            32035
          E.SPR2      23671                       KEY            32042
          E.SU11      23673                       PAR            45750
          E.SPR5      23673                       KEY            31134
          E.SU01      23675                       PAR            50010
          E.SU02      23677                       PAR            46403
          E.SU03      23701                       PAR            46360     46551
          E.SU04      23704                       FEC            20630
          E.SU05      23706                       PAR            46421
          E.SU06      23710                       FEC            17540
          E.SU07      23713                       PAR            46544
          E.SU08      23715                       PAR            46400     46404
          E.SU09      23717                       PAR            46424
          E.SU10      23721                       PAR            45742
          E.TY0       23723                       TYPE           36604
          E.TY1       23725                       TYPE           36574     36626     36666     36670
          E.TY2       23727                       TYPE           36615
                                                  PAR            44043
          E.TY3       23731                       TYPE           37053     37056     37072
          E.TY4       23734                       TYPE           37061     37075
                                                  PAR            43170
          E.TY6       23740                       TYPE           37057     37073
          E.TY7       23741                       FEC            17434
          E.TY8       23743                       TYPE           36627     36667     37040
          E.TY9       23746                       TYPE           36611
                                                  PAR            44040
          E.TY10      23750                       TYPE           36571     36671
          E.TYI3      23760                       TYPE           36731     36742
          E.TYI4      23762                       TYPE           36747
          E.TYI5      23764                       TYPE           36744
          E.TYI8      23772                       TYPE           36757
          E.TYI9      23774                       TYPE           36722
          E.VA01      23776                       PAR            44017
          E.VA02      24000                       FEC            20255
          E.VA03      24002                       PAR            43743
          E.VA04      24004                       PAR            43755     44003     44056
          E.VA05      24006                       PAR            43763
          E.VA06      24010                       PAR            43766
          E.VA07      24012                       PAR            44006
          E.VA08      24014                       PAR            43734
          E.VA10      24017                       FEC            20340
          E.VA11      24021                       PAR            44546     45171
          E.VA12      24023                       PAR            44274
          E.XP1       24027                       PAR            45537
          E.XP3       24031                       PAR            45503
          E.XP4       24033                       PAR            45560
          E.XP5       24035                       PAR            45666
          E.XP6       24037                       PAR            45540
          E.XP7       24041                       PAR            45502
          E.ZEMT      24043                       PAR            47414
          B=PEM       24044   PEM                 RPV21          14725
          ANSI=       24045                       FEC            17331     17454     20473     20630
                                                  HEADER         30103
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   197  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  KEY            31451     32001
                                                  DATA           32606     33201     33247     33252
                                                  DECL           33547     34527
                                                  TYPE           36520
                                                  FMT            37401     37533
                                                  IO             40321     40476     40560     41123     41405     41737     41756
                                                  PAR            43117     43573     43650     44222     44465     45301     46012
                                                                 46015     47320     47631
                                                  CONRED         50512     51525
                                                  STMTF          51732
                                                  LABEL          52274     53166
          ANSI.SW     24046                       INIT21         56075
          MDERR=      24050                       HEADER         27710     27721
                                                  DATA           32555
                                                  TYPE           36521
                                                  IO             40477     40561
                                                  PAR            43574     43616     43647     44107     44117
          MDER.SW     24051                       INIT21         56102
          PEMS        24052                       FERRS          20727     20732     20741     20747     20750     20751     20764
                                                                 20765     20767     20770     20771     20773     21014     21015
                                                                 21016     21022     21053     21064     21066     21067     21072
                                                                 21107     21117     21120     21121     21122     21133     21151
                                                                 22163     22173     22211     22223     22225     22226     22233
                                                                 22240     22244     22265     22271     22274     22276     22300
                                                                 22306     22310     22326     22330     22332     22334     22336
                                                                 22353     22366     22370     22372     22401     22422     22424
                                                                 22426     22456     22460     22462     22464     22466     22470
                                                                 22472     22474     22476     22502     22505     22511     22513
                                                                 22516     22521     22523     22525     22535     22537     22541
                                                                 22547     22575     22607     22612     22614     22616     22632
                                                                 22635     22637     22641     22643     22645     22647     22651
                                                                 22654     22656     22660     22662     22725     22733     22735
                                                                 22753     23026     23045     23062     23064     23066     23072
                                                                 23074     23076     23124     23155     23167     23263     23346
                                                                 23354     23356     23411     23445     23453     23521     23527
                                                                 23531     23533     23535     23537     23541     23543     23545
                                                                 23555     23557     23563     23567     23571     23573     23575
                                                                 23603     23605     23610     23612     23614     23616     23620
                                                                 23622     23624     23626     23630     23632     23637     23643
                                                                 23645     23647     23653     23660     23663     23665     23677
                                                                 23701     23704     23706     23710     23713     23715     23717
                                                                 23723     23725     23727     23741     23743     23746     23750
                                                                 23760     23762     23764     23776     24000     24002     24004
                                                                 24006     24010     24012     24014     24017     24023
          PEMV        24067                       FERRS          20710     20711     20712     20713     20715     20716     20723
                                                                 20731     20734     20735     20736     20752     20760     20761
                                                                 20762     20763     21000     21005     21007     21010     21012
                                                                 21017     21021     21023     21034     21035     21036     21051
                                                                 21052     21054     21055     21057     21077     21106     21111
                                                                 21112     21113     21114     21115     21116     21124     21126
                                                                 21127     21130     21131     21132     22153     22161     22213
                                                                 22215     22221     22257     22437     22551     22666     22710
                                                                 22716     22727     22742     22750     22754     22756     22761
                                                                 22766     22770     22772     22774     22777     23007     23060
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   198  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 23126     23134     23324     23327     23332     23421     23501
                                                                 23503     23511     23561     23721
          PEM         24106                       FERRS          20714     20717     20720     20721     20722     20724     20725
                                                                 20726     20730     20733     20737     20740     20742     20743
                                                                 20744     20745     20746     20753     20754     20755     20756
                                                                 20757     20766     20772     20774     20775     20776     20777
                                                                 21001     21002     21003     21004     21006     21011     21013
                                                                 21020     21024     21025     21026     21027     21030     21031
                                                                 21032     21033     21037     21040     21041     21042     21043
                                                                 21044     21045     21046     21047     21050     21056     21060
                                                                 21061     21062     21063     21065     21070     21071     21073
                                                                 21074     21075     21076     21100     21101     21102     21103
                                                                 21104     21105     21110     21123     21125     22167     22171
                                                                 22177     22201     22203     22205     22207     22231     22236
                                                                 22242     22246     22251     22253     22254     22255     22261
                                                                 22263     22267     22273     22302     22377     22416     22420
                                                                 22430     22432     22434     22435     22441     22443     22445
                                                                 22446     22450     22452     22454     22507     22527     22531
                                                                 22533     22543     22553     22555     22561     22563     22565
                                                                 22567     22571     22573     22630     22664     22712     22714
                                                                 22721     22723     22731     22737     22744     22746     22764
                                                                 22765     23000     23011     23013     23015     23017     23020
                                                                 23022     23024     23031     23033     23037     23041     23102
                                                                 23104     23106     23110     23112     23115     23120     23122
                                                                 23146     23165     23171     23175     23203     23205     23207
                                                                 23211     23213     23215     23217     23240     23255     23257
                                                                 23261     23272     23276     23300     23316     23336     23364
                                                                 23366     23370     23372     23375     23413     23425     23427
                                                                 23431     23433     23435     23437     23440     23442     23443
                                                                 23447     23451     23454     23455     23457     23461     23463
                                                                 23465     23513     23515     23600     23635     23641     23651
                                                                 23657     23667     23671     23673     23675     23731     23734
                                                                 23740     23772     23774     24021     24027     24031     24033
                                                                 24035     24037     24041     24043
          PDM         24237                       FEC            17227     17241     17277     17435     17501     17541     17557
                                                                 17564     17577     17605     17611     17642     17656     20256
                                                                 20341     20377     20513
                                                  FERRS          21140     21141
                                                  ALLOC          24536     24602     24625     24664     24716
                                                  LEX            25501     25504     25511     25610     25616     27322     27361
                                                  HEADER         27716     27753     30005     30020     30100     30106     30162
                                                                 30165     30170     30236     30317     30325     30336     30346
                                                                 30372     30432
                                                  KEY            30532     30536     30547     30551     30556     30610     30612
                                                                 30653     30701     30703     30713     30772     31007     31131
                                                                 31134     31156     31165     31202     31220     31223     31230
                                                                 31237     31243     31304     31342     31345     31350     31356
                                                                 31373     31501     31525     31557     31563     31653     31775
                                                                 32003     32031     32035     32042
                                                  CDDIR          32320     32355     32371
                                                  DATA           32434     32515     32530     33205     33323     33355
                                                  DECL           33635     33637     33656     34420     34445     34450     34470
                                                                 34501     34514     34522     34556     34632     34734     34740
                                                                 34752     35044     35127     35151     35201     35212     35260
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   199  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 35265     35315     35355     35361     35365     35461     35463
                                                                 35467     35471     35474     35501     36045     36235     36237
                                                                 36301     36325
                                                  TYPE           36612     36616     36620     36627     36672     36702     36722
                                                                 36732     36742     36745     36747     36757     37040     37077
                                                  FMT            37242     37266     37300     37320     37323     37331     37342
                                                                 37352     37356     37373     37404     37435     37462     37516
                                                                 37527     37556     37563     37566     37606     37630     37634
                                                                 37637     37671     37675     37705     37713     37730     37734
                                                                 37740     37743     37747     37753     37756     37766     37774
                                                                 40007     40024
                                                  IO             40252     40276     40415     40442     40450     40671     41010
                                                                 41055     41251     41376     41433     41442     41453     41475
                                                                 41523     41642     41715     41747     41766     42024
                                                  PAR            43142     43201     43535     43537     43637     43645     43656
                                                                 43734     43743     43776     44004     44006     44017     44040
                                                                 44043     44167     44216     44243     44260     44274     44425
                                                                 44516     44546     44672     44677     44763     45152     45160
                                                                 45171     45265     45303     45310     45332     45364     45411
                                                                 45434     45442     45465     45504     45506     45541     45561
                                                                 45666     45742     45751     46042     46052     46115     46171
                                                                 46224     46240     46244     46360     46407     46431     47174
                                                                 47223     47311     47414     47612     47626     47647     50010
                                                  CONRED         50347     50376     50402     50414     50423     50475     50500
                                                                 50515     51411     51513
                                                  STMTF          51704     51721     51740     51743     51766     52016     52026
                                                  LABEL          52113     52165     52267     52341     52423     52547     52577
                                                                 52705     52714     52722     53012     53171     53173
          ADW         24374   ALLOC               HEADER         30050     30227     30374     30400
                                                  KEY            30572     30670     30766     31055     31063     31471     32046
                                                                 32060
                                                  CDDIR          32173
                                                  DATA           32507     32612     32626     33073     33107     33232
                                                  DECL           33610     34325     34361     34367     34371     34401     34650
                                                                 35024     35054     35243     36157     36162     36173
                                                  IO             41670     42607
                                                  PAR            44305     44307     44313     46276     46302
                                                  CONRED         51355     51627
                                                  STMTF          51710     51712     51745     51747
                                                  LABEL          53046     53142     53227
          B=ALLOC     24374                       RPV21          14726
          ADW.ALC     24404             
          ADWT        24406                       FEC            20534     20546     20553     20560     20562     20563     20566
                                                                 20570     20571
                                                  DECL           34036     34063     34065     34071     34073     34075
          ALC         24412                       FEC            17625     17734     20024     20066     20145     20452     20503
                                                                 20562
                                                  FLINK          25032
                                                  LEX            25513     26076
                                                  HEADER         27742     30277
                                                  KEY            30672     31461
                                                  DATA           33122     33131     33336     33377
                                                  DECL           33560     34064     34164     34615     34756     35505     35507
                                                                 35577     35727     36143
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   200  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FMT            37454
                                                  IO             40231     40271     40354     40515     40753     42350
                                                  PAR            46004     47400     47423
                                                  CONRED         50752
                                                  STMTF          52056
                                                  LABEL          52455     53104     53134     53222     53265     53275
          ALC.REG     24557                       FEC            20220
                                                  PAR            46061     46100
          ALC.00      24561                       FEC            20217
                                                  PAR            46077
          ALC.STF     24562                       PAR            46060
          ALC.CAI     24563             
          PTA         24710             
          PTS         24720             
          QCP         25014   FLINK               FEC            17210
          B=FLINK     25014                       RPV21          14727
          DER         25016                       LABEL          52276
          DPT         25027             
          LPE         25036                       LABEL          53206
          MAL         25070                       FEC            17323
          MDD         25100                       PAR            45162
                                                  LABEL          52541
          PDC         25140                       PAR            45004
          PDI         25213                       DATA           32464
          PIS         25221                       FEC            17756
          B=LEX       25255   LEX                 RPV21          14730
          LEXFLG      25261                       FEC            17217     20120
                                                  ALLOC          24645
          LEXMODE     25262                       FEC            17673
          SB=CONT     25274                       HEADER         27750
                                                  KEY            30706
          SB=LINC     25275                       FEC            17325
                                                  CDDIR          32272
          SB=LORD     25276                       FEC            17325
                                                  CDDIR          32271
          TB=1ST      25277                       FEC            17300
                                                  KEY            31274
                                                  PAR            44540
          TB=LABL     25301                       FEC            17270
                                                  KEY            31423
          TB=LABR     25302                       FEC            17267     17614
                                                  KEY            30677     31163     31234     31302
                                                  FMT            37240
          TB=NUML     25304                       FEC            17223
          TB=NUMR     25305             
          TB=PLVL     25306             
          TB=TYPE     25307                       FEC            17233     17242     17265     17272     17274     17301     17615
                                                                 17623     17640
                                                  HEADER         27760     30321
                                                  KEY            31445
                                                  DECL           35017
                                                  PAR            44137
                                                  CONRED         50424
                                                  LABEL          52124     52173
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   201  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LEX         25435                       FEC            17222
          CST         25776                       KEY            31444
          RNC         26121             
          TF=IDP      26154                       FSNAP          15503     15512     15527     15613
          TOK=CAL     26221                       FSNAP          15442
          TOK=COF     26223                       FSNAP          15444
          TOK=ELS     26252                       FSNAP          15446
          TOK=ENT     26254                       FSNAP          15450
          TOK=GN      26265                       FSNAP          15452
          TOK=GO      26275                       FSNAP          15454
          TOK=GS      26300                       FSNAP          15456
          TOK=IFT     26310                       FSNAP          15460
          TOK=ON      26314                       FSNAP          15462
          TOK=XEQ     26320                       FSNAP          15464
          BLL         27132                       PEM            24217
          CAK         27221                       TYPE           37106
          LDB         27401                       FEC            17221     17304
                                                  PEM            24171
                                                  ALLOC          24647
                                                  CDDIR          32273
          LSL         27423             
          LSS         27461             
          B=HEADE     27657   HEADER              RPV21          14731
          KW=BLOC     27657                       LEX            25332
          KW=FUNC     27671                       LEX            25360
                                                  TYPE           36552
          KW=PROG     27704                       LEX            25377
          KW=OVCA     27710                       LEX            25372
          OVCFLG      27720                       FEC            20100
          KW=OVER     27721                       LEX            25373
          PSF         27752                       FEC            17247
                                                  TYPE           36554
          KW=SUBR     27772                       LEX            25407
          PPA130      30156                       FERRS          22670     22672     22674     22676     22700     22702     22704
                                                                 22706
          PSA         30216                       KEY            31002
          WSA         30444                       KEY            30726
          KW=ASSI     30515   KEY                 LEX            25330
          B=KEY       30515                       RPV21          14732
          KW=BREA     30574                       LEX            25411
          KW=CALL     30576                       LEX            25335
          CRL         30662                       PAR            45740
          KW=CONT     30677                       FEC            17615
                                                  LEX            25342
          KW=END      30706                       LEX            25351
          END23       30707                       FERRS          23377
          KW=ENTR     30731                       LEX            25354
                                                  HEADER         30322
          KW=NAME     31007                       LEX            25370
          KW=PATC     31076                       LEX            25412
          KW=PAUS     31104                       LEX            25375
          KW=RETU     31106                       LEX            25403
          KW=STOP     31143                       LEX            25406
          KW=GOTO     31147                       LEX            25361
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   202  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          INIF        31306                       FEC            20211
                                                  LABEL          52402
          IFMOD       31310                       PAR            44731
          IFRESLT     31311                       PAR            44731
          IFREL2      31313                       PAR            43525     45113     47124
          IFLN        31314             
          KW=ELSE     31323                       LEX            25347
          KW=ENDI     31355                       LEX            25353
                                                  LABEL          52173
          IFS         31427                       LEX            25416
          IFS11       31441                       FERRS          23047
          IFFLAG      31614                       LABEL          52207     52243
          C=PJX       31774                       PAR            43465
          K$=COLL     32107   CDDIR               LEX            25422
          B=CDDIR     32107                       RPV21          14733
          K$=BEGC     32131                       LEX            25421
          K$=ENDC     32132                       LEX            25425
          K$=DO       32133                       LEX            25423
          K$=IF       32151                       LEX            25427
          K$=ELSE     32202                       LEX            25424
          K$=ENDI     32221                       LEX            25426
          K$=LIST     32237                       LEX            25430
          B=DATA      32376   DATA                RPV21          14734
          DAT.Z       32435                       FERRS          22403     22404     22406     22410     22412     22414
                                                  PAR            43536
                                                  CONRED         50426
          KW=DATA     32441                       LEX            25343
                                                  CONRED         50424
          DATA2       32467                       FERRS          22374     22375
          DATAFLG     32642                       CONRED         50345     50400     50412
          C=DVL       32667                       PAR            43454
          EDI         32724                       CONRED         51533
          CFC         33242                       PAR            44377
          CMV         33311                       DECL           34702
          CSC         33410                       DECL           34534
          B=DECL      33507   DECL                RPV21          14735
          KW=COMM     33526                       LEX            25340
                                                  PAR            44141
          KW=DIME     33630                       LEX            25345
          DIR         33645                       TYPE           36647
          DIRT        33715                       PAR            44142
          EDD         34035             
          CDBB        34134                       PAR            47307
          C=DBD       34140                       PAR            43462     43463
          A=DBD       34141                       PAR            43462     43463
          KW=EQUI     34342                       LEX            25355
          EQS80       34424                       FERRS          22622     22626     22627
          KW=EXTE     34431                       LEX            25356
          KW=INTR     34474                       LEX            25365
          KW=LEVE     34527                       LEX            25366
          LVL80       34623                       FERRS          23350     23352
          LVL90       34625                       FERRS          23342
          KW=PARA     34630                       LEX            25374
          PRMERR      34716                       FERRS          23505     23507
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   203  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=SAVE     34722                       LEX            25405
          SAVERR      34767                       FERRS          23517     23523     23525
          PCD         34772                       FEC            17252
          ACV         36003                       HEADER         30414
          B=TYPE      36520   TYPE                RPV21          14736
          KW=BOOL     36520                       LEX            25333
          KW=LOGI     36523                       LEX            25367
          KW=INTE     36524                       LEX            25364
          KW=REAL     36525                       LEX            25402
          KW=DOUB     36526                       LEX            25346
          KW=COMP     36527                       LEX            25341
          KW=CHAR     36530                       LEX            25336
          TYPA        36707             
          TYPD        36712                       FEC            17661
          KW=IMPL     36715                       LEX            25362
          IMP.ER      37042                       FERRS          23754     23756     23766     23770
          B=FMT       37140   FMT                 RPV21          14737
          KW=FORM     37237                       LEX            25357
                                                  LABEL          52126
          B=IO        40066   IO                  RPV21          14740
          IODIR       40066                       PAR            44176
          IONAM       40074             
          IODOLEN     40076                       LABEL          53304
          IODOIND     40077                       DATA           32673
          KW=BACK     40213                       LEX            25331
          KW=CLOS     40214                       LEX            25337
          KW=ENDF     40216                       LEX            25352
          KW=INQU     40217                       LEX            25363
          KW=OPEN     40221                       LEX            25371
          KW=REWI     40223                       LEX            25404
          KW=PRIN     40317                       LEX            25376
          KW=PUNC     40321                       LEX            25400
          KW=READ     40324                       LEX            25401
          KW=WRIT     40330                       LEX            25410
          KW=BUFF     40476                       LEX            25334
          BUFERR      40550                       FERRS          23221     23223     23225     23227     23231     23233     23235
                                                                 23242
          KW=DECO     40555                       LEX            25344
          KW=ENCO     40557                       LEX            25350
          IOJ         40734                       PAR            44125
          A=BMOD      41264                       PAR            43471
          A=BLWA      41274                       PAR            43473
          BLWA        41346                       FERRS          23244
          C=BFWA      41351                       PAR            43472
          C=CNT       41360                       PAR            43474
          A=FMT       41365                       PAR            43477
          C=FMT       41366                       PAR            43477
          C=FOU       41413                       PAR            43500
          A=FOU       41414                       PAR            43500
          A=ICC       41424                       PAR            43501
          C=ICC       41425                       PAR            43501
          A=ICCX      41435                       PAR            43502
          C=ICCX      41436                       PAR            43502
          A=ICI       41444                       PAR            43503
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   204  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          C=ICI       41445                       PAR            43503
          A=ICIX      41455                       PAR            43504
          C=ICIX      41456                       PAR            43504
          A=ICL       41466                       PAR            43505
          C=ICL       41467                       PAR            43505
          C=IOL       41477                       PAR            43506     43507
          A=STR       41540                       PAR            43510
          A=UNT       41545                       PAR            43511     44172
          C=UNT       41546                       PAR            43511
          CML         41552                       PAR            44205
          VAI         41631                       DATA           32670
          LST         41706                       FERRS          23144
          CVL         41770                       DATA           32650
          IDCEX       42536                       PAR            44413
          A=DOCI      42644                       PAR            43475
          C=DOCI      42645                       PAR            43475
          A=DOCS      42656                       PAR            43476     44412
          C=DOCS      42657                       PAR            43476
          PARNOW      43064   PAR                 FEC            20212
                                                  TYPE           37055
                                                  CONRED         50350
          B=PAR       43064                       RPV21          14741
          SMOD        43066                       FLINK          25135     25150     25171
                                                  CONRED         50702     50737
          SOPR        43067                       FLINK          25136
          CURST       43070                       FEC            17507     17662     17761
                                                  KEY            30651     31210     31405     31455     31704     31773
                                                  IO             40760     42006
                                                  LABEL          52755
          CNF         43114                       LEX            25417
          PIX         43124                       CDDIR          32347
                                                  DECL           34376     36222     36227
                                                  TYPE           37070
          PKX         43152                       CDDIR          32160
                                                  DECL           34643
          DO.BEG      43371                       LABEL          52606
          MULROP      43376             
          ARYOP       43401                       IO             42501
          DVLOP       43402                       DATA           32646
          ERROP       43403                       DECL           34146
                                                  IO             40550
          GAPOP       43410                       KEY            32061
          IOCTL       43412                       IO             41141     41611
          IODTA       43413                       IO             41533     41730     41740
          IOUNT       43414                       IO             40337     40764     41421
          NOOPP       43421                       KEY            31606
          OPBSS       43422                       FEC            17512
                                                  IO             40260     40314     41752     42767
                                                  LABEL          52753
          OPDUM       43424                       KEY            31602     31626     32004
                                                  IO             42732     42736     42751     42755
                                                  LABEL          52735
          VD.EQ       43436                       DECL           34255
          VD.MI       43437                       DECL           34001     34010
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   205  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          VD.MU       43440                       DECL           34225
          VD.PL       43441                       DECL           33767     34011
          VD.GP       43442                       DECL           36013
          CALLARM     43452                       KEY            30634
          DATARM      43454                       DATA           32646
          DOARM       43455                       LABEL          52471
          IFARM       43457                       KEY            31335     31430
          LBARM       43462                       DECL           33735
          UBARM       43463                       DECL           33741
          PJXARM      43465                       KEY            31766
          BUFMOD      43471                       IO             40521
          BUFFWA      43472                       IO             40532
          BUFLWA      43473                       IO             40537
          CNTARM      43474                       IO             40565
          DOCOLI      43475                       IO             42236
          DOCOLS      43476                       IO             42201
          FMTARM      43477                       IO             41032
          FOUARM      43500                       IO             40375
          ICCARM      43501                       IO             41114
          ICCXARM     43502                       IO             41117     41133
          ICIARM      43503                       IO             41122
          ICIXARM     43504                       IO             41124
          ICLARM      43505                       IO             41125
          IOARGM      43506                       IO             40725
          STRARM      43510                       IO             40602
          UNTARM      43511                       IO             40626
          PAR         43512                       KEY            30637     31337     31432     31771
                                                  DECL           34111
                                                  IO             40401     40525     40535     40543     40571     40605     40631
                                                                 41036     41135     41164     42017     43007
                                                  LABEL          52473
          PAR.NX      43545                       IO             42655     42704
          PAREXIT     44556                       DECL           34147     34172     34173     34175     34177
                                                  IO             41273     41350     41357     41364     41412     41430     41434
                                                                 41437     41443     41450     41451     41454     41462     41463
                                                                 41465     41472     41476     41544     41546     42652     42703
          IOL.RTN     44617                       DATA           32722
                                                  IO             41537
          POP.STD     44656                       KEY            32006
          C=CERR      44672                       KEY            31776
          C=ERR       44673                       IO             41524
          POP.DVA     45015                       FLINK          25176
          DTC         45417                       LABEL          52474
          EXD         45575                       CONRED         51606
          CF=AC       45721                       KEY            30640     30663     32056
          EAL         46132                       KEY            32061
          VEL         46364                       KEY            30655
          ACT         47107                       LABEL          52502     52525
          ADT         47115             
          CMR         47253                       KEY            32002
          DOA         47322                       IO             41632     41655
                                                  CONRED         51511
          ECC         47355                       KEY            32050
          EMT         47375                       FEC            17311     17513     17731     20072
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   206  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  HEADER         27666     27747     30052     30154     30172     30173     30437
                                                  KEY            30560     30642     30646     30724     30770     31122     31206
                                                                 31246     31301     31565     31605     31607     31632     31636
                                                                 31664     31725     32066
                                                  CDDIR          32126     32143     32254
                                                  DATA           32463     32721
                                                  DECL           34146     34225     34255     34335
                                                  IO             40261     40315     40340     40551     40747     40770     41146
                                                                 41422     41536     41614     41745     41753     42042     42044
                                                                 42050     42061     42067     42101     42405     42421     42430
                                                                 42437     42445     42457     42465     42503     42523     42525
                                                                 42735     42742     42754     42761     42767
                                                  LABEL          52555     52640     52645     52652     52740     52746     52753
          FAT         47420                       IO             40741
          GOL         47441                       IO             41372
          OMC         47474                       FLINK          25145
          SDM         47572                       FLINK          25144
          TPC         50005                       IO             40402     40632     41037     41136     41165     41500
          B=CONRE     50232   CONRED              RPV21          14742
          LVEC        50240                       FLINK          25152     25154     25162
          LLVEC       50242                       FLINK          25153     25155     25163
          RVEC        50244                       FLINK          25161     25167
          RLVEC       50245                       FLINK          25161     25170
          REG=T       50246             
          CTAA        50275             
          DEC         50314                       HEADER         30065
                                                  DATA           32575     33277
                                                  TYPE           37055
                                                  PAR            43577
          OCT         50455                       HEADER         30062
                                                  KEY            31076     31100
                                                  PAR            43575
          TNK         50502                       DATA           33210
          CCR         50674                       PAR            45702     45707     47141
          CTA         50726                       FLINK          25157     25165
          PCC         50745                       PAR            45136
          PCR         51007                       PAR            45077
          PCR.1OP     51026                       PAR            45073
          PCR.2OP     51030                       PAR            45076
          PCR.RO      51032                       PAR            45070
          KCV         51212                       DATA           33301     33321
                                                  PAR            47264
          LCH         51241                       IO             40412     40635     41366     41457     41501
                                                  PAR            43166     45071     45074     45130     45133     45245     45247
                                                                 45404     46213     46226     47323
          LCT         51302                       FLINK          25146
                                                  IO             41264
                                                  PAR            43136     44746     44752     44757     45432     45460     45501
                                                                 45606     46711     46731     46734     46741     46776     47002
                                                                 47055     47262     47462     47464
                                                  LABEL          52515     52542     52610     52670
          LIR         51317                       PAR            45467
          NBC         51325                       DATA           33236
                                                  PAR            43605     43634     47266
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   207  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          NCS         51344                       DECL           33766     34000     34204
                                                  IO             40335     40623     41417     42040     42065     42403     42417
                                                                 42435     42452     42463
                                                  PAR            43666     45236     45600     46222     46653     47007     47014
                                                                 47071     47105
          SED         51362                       DATA           32661
          D=ARY       51366                       FSKEL          55713
          D=NOOP      51366                       FSKEL          55741
          D=DOBD2     51366                       FSKEL          55756
          D=BSS       51366                       FSKEL          55712
          D=SUBST     51366                       FSKEL          55620
          D=COLON     51366                       FSKEL          55617
          D=DVI       51464                       FSKEL          55754
          GPS         51565                       DECL           36271
          D=EXP.I     51603                       FSKEL          55755
          D=STR.I     51612                       FSKEL          55613
          D=DOBZL     51633                       FSKEL          55673
          D=DOBL      51633                       FSKEL          55671
          D=DOBZS     51633                       FSKEL          55672
          D=DOBS      51633                       FSKEL          55670
          D=DOC.L     51645                       FSKEL          55677
          D=DOC.S     51645                       FSKEL          55674
          B=STMTF     51671   STMTF               RPV21          14743
          SFD         51671                       LEX            25414
          SFDEX       52070                       FERRS          23553
          DOMODE      52100   LABEL               PAR            45371     45405
          B=LABEL     52100                       RPV21          14744
          CUL         52101                       LEX            25461
          GSL         52121                       FEC            17271
          ISL         52203                       KEY            30521     31161     31233     31277     31510
                                                  IO             41017     41130
                                                  PAR            44456
          STL0R       52370                       KEY            31162     31234     31302
          PSL         52372                       FERRS          22175     22217     22227     22304     22545     22557     22601
                                                                 22603     22605     23001     23003     23027     23035     23043
                                                                 23051     23053     23055     23057     23114     23130     23132
                                                                 23136     23140     23142     23147     23151     23153     23157
                                                                 23161     23163     23173     23177     23201     23247     23251
                                                                 23253     23265     23267     23271     23274     23415     23655
                                                                 24015
                                                  KEY            30522     30542     30571     30573     30606     30651     30704
                                                                 30705     31005     31105     31123     31127     31142     31144
                                                                 31146     31172     31176     31232     31250     31276     31330
                                                                 31354     31362     31420     31421     31425     31473     31524
                                                                 31526
                                                  IO             40257     40262     40313     40316     40547     40552     41131
                                                                 41716     41755
                                                  PAR            43123     43641     43745     44156     44613     44615     44616
                                                                 45321
                                                  CONRED         50425     50516
          KW=DO       52413                       LEX            25415
          CDI         52434                       IO             42116
          CDIFLG      52666                       PAR            44525     44616     45320
          PDT         52674                       IO             42134
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   208  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ALU         53000                       KEY            31424
          DDR         53050                       IO             41640
                                                  PAR            45167     45357
          FBS         53077                       KEY            31376     31656
          PDA         53235                       FEC            20420
                                                  KEY            30624     31113
                                                  PAR            44300
          RBE         53244                       KEY            31374     31654
          F.SKNAM     53345   FSKEL               FSNAP          15165
                                                  PAR            47767
          F.SKEL      53622                       CONRED         50730
                                                  INIT21         56045
          B=FSKEL     53622                       RPV21          14745
          SKEND       55232             
          OM=ADD      55233                       PAR            43326
          OM=SUB      55234                       PAR            43327     43363
          OM=MUL      55235                       PAR            43330     43362
          OM=DIV      55236                       PAR            43331     43361
          OM=UMI      55237                       PAR            43332
          OM=LT       55240                       PAR            43334     43341     43444
          OM=GE       55242                       PAR            43335     43340     43443
          OM=NE       55244                       PAR            43337     43445
          OM=EQ       55246                       PAR            43336     43446
          OM=NOT      55250                       PAR            43342
          OM=AND      55251                       PAR            43343
          OM=OR       55252                       PAR            43347
          OM=EQV      55253                       PAR            43346
          OM=XOR      55254                       PAR            43344     43345
          OM=STR      55255                       PAR            43353
          OM=DOC      55257                       PAR            43375
          F.MODC      55261                       PAR            47254     47634
          F.IFS       55271                       KEY            31474     31567     31571
          F.IFN       55300                       KEY            31572
          F.INTF      55306                       FEC            20614
                                                  DECL           34517
                                                  TYPE           36610
                                                  PAR            43770     44036     46176     46347     46417     46432     46436
                                                                 46452     46536     46546
          F.IMCV      55535                       PAR            46562
          F.SCT       55541                       CONRED         51373
          F.SKCR      55541                       FLINK          25156     25164
                                                  PAR            45670     47134
          FTN21       56016   INIT21    
          B=INI21     56016                       RPV21          14746
          DLF         56050                       ALLOC          24603
          B=LWA21     56133                       RPV21          14747
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   209  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
  
  
  
  
  
 -------- OVERLAY(FTN,2,2,O=FWA22)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD          20731
          LWA+1 OF THE LOAD        66123
  
          TRANSFER ADDRESS -- FTN22          65727          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN522        20731        0    OVR      24/05/05 COMPASS 3.7 871               COMMON CODE GENERATOR OVERLAY.
          RPV22         20731       41    OVR      24/05/05 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          CCGC          20772     1417    OVR      24/05/05 COMPASS 3.7 871               CCG CONTROLLER AND SUPPORT.   
          /OPRS/        22411      107
          CGTM          22520     1422    OVR      24/05/05 COMPASS 3.7 871               
          MIO           24142     1171    OVR      24/05/05 COMPASS 3.7 871               
          FBV           25333      105    OVR      24/05/05 COMPASS 3.7 871               
          /GPOGRA/      25440       40
          /BVINFO/      25500        4
          /CCGSCR/      25504      260
          GPO           25764     4542    OVR      24/05/05 COMPASS 3.7 871               
          /RCTFMT/      32526       21
          GRA           32547     4571    OVR      24/05/05 COMPASS 3.7 871               
          PROSEQ        37340     1224    OVR      24/05/05 COMPASS 3.7 871               
          SQZ           40564     2564    OVR      24/05/05 COMPASS 3.7 871               
          /MCG/         43350      217
          MCG           43567     3005    OVR      24/05/05 COMPASS 3.7 871               
          CSNAP         46574        0    OVR      24/05/05 COMPASS 3.7 871               BRIDGE TEST MODE SNAP PACKAGE.
          /LINE/        46574       22
          OUTPTK        46616      542    OVR      24/05/05 COMPASS 3.7 871               
          DMPIIT        47360      333    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          DMPRLST       47713      222    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          DMPSIT        50135      142    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          DMPTREE       50277      144    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          DMPUDI        50443      220    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTGRA       50663      704    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTMIO       51567     1176    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTUDI       52765      135    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTABV       53122      146    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTBV        53270      274    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTRLI       53564      514    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PRNTMCG       54300     1143    OVR      24/05/05 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          BDT           55443     1074    OVR      24/05/05 COMPASS 3.7 871               
          BRIDGE        56537     4124    OVR      24/05/05 COMPASS 3.7 871               TRANSMOGRIFY PASS 1 OUTPUT.   
          CFA           62663      646    OVR      24/05/05 COMPASS 3.7 871               
          UDT           63531      375    OVR      24/05/05 COMPASS 3.7 871               
          CSKEL         64126     1601    OVR      24/05/05 COMPASS 3.7 871               FORM CODE SKELETON TABLES.    
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   210  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          INIT22        65727      174    OVR      24/05/05 COMPASS 3.7 871               INITIALIZE CCG OVERLAY.       
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z$BLK           0   CGTM                MIO            24210     24223     24644
                                                  GPO            26042     26143
          BN=STRT         0   PUC                 CCGC           21456     21477     21513
                                                  BRIDGE         60223
          USY=22        *WEAK*                    INIT22         65740
          BN=CODE         1                       CCGC           21522
                                                  BRIDGE         56572     60333
          Z$TXT           1   CGTM                CCGC           21624     21722
                                                  FBV            25335
                                                  GPO            26422     26567     27013     27053     30277     30306     31305
                                                                 31763     32353     32462
                                                  GRA            36023
                                                  PROSEQ         37357     37435
                                                  SQZ            43113
                                                  MCG            45315     46015     46065
                                                  BRIDGE         56772     57311
                                                  UDT            63542     63606     64066
          Z$GST           1                       CFA            62703     62712     63044     63117
          Z$TREE          2                       MCG            45317     46032     46066
                                                  BDT            55451     56122     56137
          Z$FUN           2                       BRIDGE         57410     60572
          BN=CON          2   PUC                 BRIDGE         60167
          Z$DUT           2   CGTM                PROSEQ         37522
          Z$RND           2                       FBV            25411
                                                  GPO            31002     31503
                                                  GRA            33567     33742     34113     34420     37037
                                                  SQZ            40602     40663
                                                  CFA            63020     63332
          BN=FMT          3   PUC                 BRIDGE         60174
          Z$PIT           3   CGTM                GPO            26227     26235     26566
                                                  MCG            43720     46526
          Z$PBT           3                       PROSEQ         37524
          Z$DTT           4                       BRIDGE         62463
          BN=TEM          4   PUC                 CCGC           21413     21470     21504
                                                  BRIDGE         60343
          Z$MLT           4   CGTM                GPO            27712     30074     32213
                                                  GRA            35266
                                                  PROSEQ         37516     40156
          Z$OTI           4                       MCG            43717     46444
                                                  CFA            63451
          BN=APL          5   PUC                 CCGC           22322
                                                  BRIDGE         60201
          Z$MOD           5   CGTM                GPO            27675     30076     32037     32215
                                                  GRA            35161     35174
                                                  PROSEQ         37517     40160
                                                  UDT            63624
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   211  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z$BCT           6                       PROSEQ         37514
          BN=IOAP         6   PUC                 BRIDGE         60206
          Z$TST           6   CGTM                CCGC           22114     22123     22152
                                                  BRIDGE         56623     62137     62140     62152     62426
          Z$RCT           6                       GRA            32655     33006     34505     34720
          BN=NLST         7   PUC                 BRIDGE         60213
          Z$CFT           7   CGTM                FBV            25363
                                                  GPO            26577
                                                  BRIDGE         56721     60673     62104     62111     62213     62215     62221
                                                                 62271     62314     62322     62347     62364     62405     62413
                                                                 62437     62447     62452     62457
                                                  CFA            62732     62773     63033     63035     63315     63453
                                                  UDT            63617
          Z$BST          10                       GPO            26714     27130
                                                  UDT            63614     64073     64121
          BN=SUB         11   PUC                 CCGC           21462
          Z$PAP          11   CGTM      
          Z$PSI          11                       GRA            35476
          Z$RXI          12                       GPO            26176     30233
                                                  UDT            63703
          Z$PFP          12             
          Z$AUD          13                       BRIDGE         60757     61004
          BN=BUF         13   PUC                 CCGC           21424
          Z$TET          13   CGTM                GPO            31447     32044
          N$LBT          14   PUC                 CGTM           22637
          Z$IOL          14   CGTM                UDT            64014
          Z.LBT          14   PUC                 INIT22         65756
          Z$IIT          14   CGTM                GPO            30734     31505     31521     31650     31736     31744
          Z$UDI          15                       GPO            26147
                                                  UDT            63612     63636     63647     63760     64015
          Z$VDT          16                       BRIDGE         62603
          Z$SAP          17                       BRIDGE         60443     60545     60747     61070     61510     61550     62006
                                                                 62024
          Z$CLW          20             
          Z$CAC          21                       BRIDGE         56605     61421
          Z$APL          22                       BRIDGE         61674
          Z$IOA          23             
          Z$APT          24                       CCGC           22320
                                                  BRIDGE         56601     60407     60505     61206     61534     61672
          Z$IOT          25                       BRIDGE         56603     61547
          Z$GLT          26                       CCGC           21562
                                                  GPO            26522
                                                  BRIDGE         56576     62302     62366
          Z$ASG          27                       BRIDGE         56573
          Z$CVT          30                       SQZ            42763
          Z$CUT          31                       SQZ            43004
                                                  BRIDGE         56614
          Z$SYM          32             
          Z$CBT          33             
          Z$NLST         34             
          Z$DIM          35             
          Z$ENTP         36             
          Z$FPI          37             
          Z$VDI          40             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   212  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z$LPT          41             
          Z$FE           42                       INIT22         66040
          V=NOOP        200   CSKEL               BRIDGE         56627
          CP.AFLS       201   FTN                 CGTM           23560     23571     23606
          CP.NFLS       202                       CGTM           23613
          CP.AFLL       203                       MIO            24161     24777     25012
                                                  UDT            63603
          OUTPUT#       221                       CGTM           24106     24127
                                                  GRA            37251     37331
                                                  DMPIIT         47554     47564     47572     47601     47613     47620     47634
                                                                 47652     47660
                                                  DMPRLST        50021     50041     50053     50061     50074     50103
                                                  DMPSIT         50212     50225     50241
                                                  DMPTREE        50357     50372     50406
                                                  DMPUDI         50562     50604     50610     50615     50621     50624     50634
                                                                 50642     50650
                                                  PRNTGRA        51200     51217     51231     51234     51246     51260     51271
                                                                 51300     51303     51306     51312     51322     51331     51344
                                                                 51353     51410     51421     51436     51452     51463     51466
                                                                 51476     51505
                                                  PRNTMIO        52341     52345     52351     52354     52357     52363     52374
                                                                 52377     52402     52405     52411     52423     52426     52431
                                                                 52434     52440     52452     52455     52460     52464     52473
                                                                 52476     52501     52505     52510     52514     52517     52522
                                                                 52526     52537     52546     52551     52554     52560     52563
                                                                 52567     52572     52575     52601     52613     52616     52625
                                                                 52630     52633     52637     52642     52646     52651     52654
                                                                 52657     52663     52675     52700     52704     52713
                                                  PRNTUDI        53036     53050     53060     53063
                                                  PRNTABV        53213     53221     53227     53235     53242     53250
                                                  PRNTBV         53460     53463     53466     53474     53502     53510     53515
                                                                 53523
                                                  PRNTRLI        54017     54030     54036     54043     54054     54064     54071
                                                                 54077     54105     54110     54116     54123     54131     54137
                                                                 54146     54155     54167     54200     54212     54223
                                                  PRNTMCG        54707     54720     54730     54736     54743     54750     54763
                                                                 54771     54776     55007     55026     55047     55056     55063
                                                                 55070     55076     55104     55111     55117     55122     55137
                                                                 55152     55165     55202     55215     55224     55231     55236
                                                                 55243     55251
          F.OUT         221                       CGTM           23716
          SYS=          253                       CGTM           23570
                                                  MIO            25010
                                                  UDT            63560     63570     63601
                                                  INIT22         65737
          V=IMVC        255   CSKEL     
          V=IMV         255                       BRIDGE         62502
          V=IM2         256                       BRIDGE         62537
          V=SHFC        257                       BRIDGE         62515
          V=SHLC        257                       BRIDGE         62571
          V=SHFS        260                       BRIDGE         62522
          V=SHFD        261                       BRIDGE         62531
          V=SHFS1       262                       BRIDGE         62524
          V=SHFD1       263                       BRIDGE         62532
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   213  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=IDVC        264             
          V=IDV         264                       BRIDGE         62540
          V=IDP2        265                       BRIDGE         62544
          V=SHRC        265                       BRIDGE         62574
          V=MASKV       266                       BRIDGE         62550
          V=MASKC       267                       BRIDGE         62554
          V=MODG        270                       BRIDGE         62555
          V=MODP2       271                       BRIDGE         62561
          WNB=          272   FTN                 CGTM           23716
                                                  FBV            25355
          V=SHIFV       272   CSKEL               BRIDGE         62565
          V=DOBO        273                       BRIDGE         62053
          V=DOZO        274                       BRIDGE         62052
          V=DOC.K       275                       BRIDGE         62156
          V=DC.OV       276                       BRIDGE         62166
          V=DC.OC       277                       BRIDGE         62165
          V=DC.OS       300                       BRIDGE         62173
          V=DC.O1       301                       BRIDGE         62201
          MSG=          302   FTN                 CCGC           21130
                                                  CGTM           22556
                                                  OUTPTK         47334
          V=IOLC1       302   CSKEL               BRIDGE         62224
          V=IOLC0       303                       BRIDGE         62223
          V=ASLAB       304                       BRIDGE         62335
          V=ASFMT       305                       BRIDGE         62336
          V=APSTR       306                       BRIDGE         56663     56665
          V=IPLUG       307                       BRIDGE         56664
          V=IPLG1       310                       BRIDGE         56661
          F.PB          311   FTN                 CCGC           21236     21241
                                                  INIT22         65746
          V=IPLG2       311   CSKEL               BRIDGE         56662
          F.SLST        311   FTN                 CGTM           22620     22704     22731     22754
          V=IPLG0       312   CSKEL               BRIDGE         56666
          V=CAPST       313                       BRIDGE         61762     61765
          V=CISST       314                       BRIDGE         61763
          V=CIAST       315                       BRIDGE         61764
          V=CIS0S       316                       BRIDGE         61766
          V=CIA0S       317                       BRIDGE         61767
          V=DFRS        320                       BRIDGE         61603
          F.IL          321   FTN                 BRIDGE         57502
                                                  INIT22         65744     65750
          V=DFRD        321   CSKEL     
          HO$MFLS       343   FTN                 CGTM           23560     23606
          HO$ARGC       356                       GRA            35416
          CO.ARGC       356                       BRIDGE         56607     60733
          CO.ARGF       357                       BRIDGE         61504
          HO$ER         360                       GPO            26137     26224
                                                  PROSEQ         37372
                                                  MCG            43727
          CO.DBER       360                       BRIDGE         60227
          CO.DBID       361                       CCGC           21750     21771     22036
          HO$TB         366                       GPO            30012
          CO.EC         370                       UDT            63564
          HO$IE         371                       CFA            63016
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   214  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          HO$LCM        374                       GPO            32236
                                                  GRA            36206
                                                  PROSEQ         40252     40320     40406
                                                  UDT            63533
          CO.OPT        377                       INIT22         66046
          CO.PS         400                       OUTPTK         47320
          CO.RNDA       407                       INIT22         66100
          CO.RNDS       410                       INIT22         66101
          CO.RNDM       411                       INIT22         66102
          CO.RNDD       412                       INIT22         66103
          CO.STAT       414                       BRIDGE         60070     60116
          HO$UO         415                       GPO            30363
                                                  GRA            33440     34246     34343
          CO.CS         420                       INIT22         65760
          CO.DOOT       422                       INIT22         65760
          HO$LO$S       427                       GPO            26355
          HO$SNAP       435                       UDT            63637
          CO.SNAP       435                       CCGC           21161
          IDPCHK        626                       INIT22         65741
          COD=          662                       GPO            26377     32517
          HO$OBL       1001                       MIO            24171     24373     24434     24460
                                                  UDT            63605
          RPV2N        2710   RPV20               INIT22         65730
          CDD          2716   UTILITY             CCGC           21133
          CDD=         2716                       GPO            26364     26366     26371     26373
          FA=SET       2744                       INIT22         65745     65747
          MVE=         3005                       CCGC           21727
                                                  CGTM           22602     23620     23764     24006     24063
                                                  MIO            24213     24275     24413     24456     24506     24760
                                                  GPO            26202     26231     26237     26261     26273     26306     26320
                                                                 27043     27700     30301     30304     32042
                                                  GRA            35202
                                                  PROSEQ         37451
                                                  MCG            46020
                                                  OUTPTK         47317
                                                  BDT            56361
                                                  BRIDGE         57002     57462     61677     61740     62606
                                                  UDT            64071
          RPV=         3043                       INIT22         65733     65736
          SBM=         3324                       BRIDGE         56600     56616
                                                  INIT22         65757
          ZTB=         3370                       CGTM           23170
          CIO=         3407                       CGTM           22542
                                                  MIO            24377     24403     25231     25246
                                                  UDT            63554
                                                  INIT22         65751
          RDW=         3442                       MIO            24401
                                                  BRIDGE         57503
          WTO=         3634                       CCGC           21237     21241
          WTW=         3656                       CGTM           22620     22704     22731     22755
          O=CLW        4235   PUC                 CCGC           21026
                                                  INIT22         65762
          O=CAC        4236                       CCGC           21031
                                                  INIT22         65765
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   215  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=APL        4237                       CCGC           21033
                                                  INIT22         65767
          O=IOA        4240                       CCGC           21036
                                                  INIT22         65772
          O=API        4241                       CCGC           21040
                                                  INIT22         65774
          O=IOI        4242                       CCGC           21043
                                                  INIT22         65777
          O=GL         4243                       CCGC           21045
                                                  INIT22         66001
          O=ASG        4244                       CCGC           21050
                                                  INIT22         66004
          O=CON        4245                       CCGC           21052
                                                  INIT22         66006
          O=CUT        4246                       CCGC           21055
                                                  INIT22         66011
          O=SYM        4247                       CCGC           21057
                                                  INIT22         66013
          O=BLKS       4250                       CCGC           21062
                                                  INIT22         66016
          O=NLST       4251                       CCGC           21064
                                                  INIT22         66020
          O=DIM        4252                       CCGC           21067
                                                  INIT22         66023
          O=ENTP       4253                       CCGC           21071
                                                  INIT22         66025
          O=FPI        4254                       CCGC           21074
                                                  INIT22         66030
          O=VDI        4255                       CCGC           21076
                                                  INIT22         66032
          L=CLW        4304                       CCGC           21027
                                                  INIT22         65763
          L=CAC        4305                       CCGC           21031
                                                  INIT22         65765
          L=APL        4306                       CCGC           21034
                                                  INIT22         65770
          L=IOA        4307                       CCGC           21036
                                                  INIT22         65772
          L=API        4310                       CCGC           21041
                                                  INIT22         65775
          L=IOI        4311                       CCGC           21043
                                                  INIT22         65777
          L=GL         4312                       CCGC           21046
                                                  INIT22         66002
          L=ASG        4313                       CCGC           21050
                                                  INIT22         66004
          L=CON        4314                       CCGC           21053
                                                  INIT22         66007
          L=CUT        4315                       CCGC           21055
                                                  INIT22         66011
          L=SYM        4316                       CCGC           21060
                                                  INIT22         66014
          L=BLKS       4317                       CCGC           21062
                                                  INIT22         66016
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   216  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L=NLST       4320                       CCGC           21065
                                                  INIT22         66021
          L=DIM        4321                       CCGC           21067
                                                  INIT22         66023
          L=ENTP       4322                       CCGC           21072
                                                  INIT22         66026
          L=FPI        4323                       CCGC           21074
                                                  INIT22         66030
          L=VDI        4324                       CCGC           21077
                                                  INIT22         66033
          F$LBT        4505                       CCGC           22346
                                                  CGTM           22635     22652
                                                  UDT            63546
          F.LBT        4505                       CCGC           21443     21446
                                                  INIT22         65756
          BLNKCOM      4526                       GRA            34260     35007
          N$FERR       4531                       CGTM           22557
          ENTRJ        4532                       CCGC           21553     21561     22044     22237     22260
          IDENT        4537                       CCGC           21123
          N$LINES      4541                       OUTPTK         47320
          LEVEL0       4544                       CCGC           22242     22265
          HO$LVL2      4545                       PROSEQ         40132
          LEVEL2       4545                       INIT22         65754
          HO$CSN       4565                       GPO            26757
                                                  PROSEQ         37425
                                                  SQZ            42075
          MOD          4567                       CCGC           21021     21760     22004
                                                  BRIDGE         60037     60226     60252     60257     60301     60311
                                                  INIT22         65753
          NARGS        4570                       BRIDGE         60050
          NSQZLH       4573                       BRIDGE         56615
          N.ARP        4575                       BRIDGE         60243
          N.BUF        4576                       BRIDGE         60071     60075     60125     60132
          N.CPL        4577                       CCGC           22113
          N.CON        4600                       CCGC           22344
          N.CTMAX      4602                       CCGC           21432
          N.EPL        4604                       CCGC           21756
                                                  BRIDGE         60342
          N$SEP        4604                       GPO            27325
          N.FP         4605                       CCGC           21757
                                                  BRIDGE         60303
                                                  INIT22         65753
          N$FPS        4605                       UDT            63733
          N.GL         4606                       BRIDGE         56575
          N$LC         4610                       CCGC           21436     21616
                                                  GPO            27327
          N.ST         4611                       BRIDGE         56740     57361     57403     60571     60616     61111
          N.STMAX      4612                       CCGC           21431
                                                  SQZ            42252     42272
                                                  BRIDGE         56737     60616
          N.VD         4613                       CCGC           21435
          N$VD         4613                       CGTM           23164
                                                  BRIDGE         56575
          HO$PMLS      4615                       CGTM           23573
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   217  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PASS         4616                       CCGC           21017
          HO$RDR       4636                       UDT            63532
          WO.CS        4655                       BRIDGE         60150     62015
                                                  INIT22         65761
          WO.DOOT      4657                       BRIDGE         60145     60745     62200     62223
                                                  INIT22         65762
          CONONE       4667                       BRIDGE         62055     62114
          S=AEXIT      4674                       BRIDGE         60247
                                                  CSKEL          65234
          S=BU         4675                       CSKEL          65075
          S=BUFIN      4676                       BRIDGE         61557
          S=BUF        4677                       BRIDGE         60126
          S=CL         4701                       BRIDGE         60541
          S=CON        4702                       PROSEQ         40531
                                                  BRIDGE         57232     57272     60607     60712     61417
                                                  INIT22         66052
          S$CON        4702                       CGTM           22676
                                                  SQZ            42766
          S=CP         4703                       CCGC           22017
                                                  BRIDGE         60352
          S=CPL        4704                       CCGC           22033
          S=CT         4705                       CCGC           21432
          S=ENTRY      4706                       CCGC           21502     21516     21520     21525     21551
                                                  BRIDGE         60313     60327     60331
                                                  INIT22         66062
          S=ERR        4707                       CSKEL          65227
          S=EXIT       4710                       BRIDGE         60241     60254
                                                  CSKEL          65231
                                                  INIT22         66072
          S=FAR        4711                       BRIDGE         61262
          S=FAS        4712                       BRIDGE         61335
          S=FMC        4714                       BRIDGE         62015
          S=FVS        4716                       BRIDGE         61306
          S=FILES      4717                       BRIDGE         60113     60320
          S=GPL        4720                       CCGC           22013     22022
                                                  BRIDGE         60346
          S=LC         4722                       CCGC           21436     21656
          S$LC         4722                       GPO            27333
          S=LENP       4723                       BRIDGE         60231
          S=LMC        4724                       BRIDGE         62013
          S=MMC        4725                       BRIDGE         61072     62010
          S=IT         4726                       CCGC           21433
          S$IT         4726                       CGTM           22706     23005
                                                  GPO            30350     31401     32010     32043     32220
                                                  GRA            34754
                                                  MCG            46475
          S=INIT       4727                       BRIDGE         60323
          S$OT         4730                       CGTM           22710
                                                  MCG            46457
          S=OT         4730                       CCGC           21434
          S=SA1        4732                       CCGC           21753
          S=SA0        4733                       CCGC           21774     22041
          S=SLI        4734                       CCGC           22255
          S=SPA        4735                       CCGC           22234
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   218  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=ST         4736                       CCGC           21431
                                                  SQZ            42217     42254     42274     42347
                                                  BRIDGE         57004     57326     60574     60624     61045     61076     61101
                                                                 61115     61141
          S=SUB        4737                       CCGC           21466
          S=SUBI       4740                       CCGC           21474     22230
          S=SUB0I      4741                       CCGC           21510     22251
          S=TRACE      4742                       CCGC           21262
                                                  GRA            33352
                                                  SQZ            41572
                                                  BRIDGE         60235     62330
                                                  CSKEL          65076
          S=TA0        4743                       CCGC           21264     21766     22030
                                                  BRIDGE         60305
          S=UPW        4744                       BRIDGE         60043     60106     60116
          S=VALUE      4745                       BRIDGE         60260
                                                  INIT22         66066
          S=VD         4746                       CCGC           21435
                                                  INIT22         66056
          S$VD         4746                       SQZ            43237
                                                  BRIDGE         57235     60727     61406
          ECB          5320                       BRIDGE         61414
          ECS          5352                       BRIDGE         61320
          WOF          5571                       CCGC           21110     21120     21122     21140
          PIK=PS       5630                       CCGC           21167
          N$EXST       5771   CCGLINK             GPO            26364
          APCON        5772                       BRIDGE         60714
          O=FE         5774                       CCGC           21101
                                                  INIT22         66035
          L=FE         5775                       CCGC           21101
                                                  INIT22         66035
          ERR22        5776                       CCGC           21115
          CGL.RTN      6032                       CCGC           21102
          IDP=USY      6323   IDP                 INIT22         65740
          IDP=         7677                       INIT22         65743
          SNP=        10062                       CCGC           21164
                                                  CGTM           23533
                                                  GRA            32633     33603     34503     35527
                                                  MCG            46557
          DCM=        11314                       CGTM           23725
          SOB         12375                       CGTM           23671
          SV=X        14254                       CGTM           24131     24132     24133
          SVR=        14264                       CGTM           23666     23711     23722
                                                  MIO            25302
                                                  GRA            32550     32574     32634     32641     33000     34500     35650
                                                                 35655     35726
                                                  MCG            46550
                                                  UDT            63640
          RSR=        14307                       CGTM           23670     23715     23724
                                                  MIO            25316
                                                  GRA            32557     32600     32640     32645     33004     34502     35654
                                                                 35661     35730
                                                  MCG            46546     46556
                                                  UDT            63644
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   219  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FW.ILB      14714   INIT20              INIT22         65744     65752
          FW.PBB      16720                       INIT22         65746
          RPV22       20731   RPV22               INIT22         65727
          B=RPV22     20731             
          B=CCGC      20772   CCGC                RPV22          20732
          F$STITL     20772                       OUTPTK         47312     47317     47326
          N$STITL     21006                       OUTPTK         47310     47316     47326
          CC$FT       21007                       UDT            63551
          CC$SUB      21010                       CGTM           23050
          CC$SUB0     21011                       CGTM           22764
          HO$DC       21012                       CFA            63003
          HO$OBO      21013                       MIO            24171
                                                  INIT22         65752
          HO$OFLL     21014                       MIO            24160
          HO$OPT      21015                       CGTM           22536     23700
                                                  MIO            24233     24634
                                                  GPO            26321     26330     27272     32237
                                                  GRA            33441     34330     35530     36457
                                                  PROSEQ         37351     37353     37370
                                                  SQZ            41542
                                                  MCG            44765
                                                  UDT            63535     63545
                                                  INIT22         66051
          N.ALTEN     21016                       BRIDGE         62301
          CCGC        21017                       INIT22         66076
          FA=LOL      21106                       GPO            26357     26361     26363     26417
                                                  OUTPTK         47216     47325     47330
          HE$ABT      21112                       MIO            25262     25273
          HE$CTX      21114                       CGTM           22562
          HE$EPX      21114                       CGTM           22535
          HR$LDC      21116                       CFA            63027
          WTE         21155                       BRIDGE         60163
          WIN         21160                       BRIDGE         60036     60042     60047     60053     60063     60066     60101
                                                                 60104     60110     60112     60115     60122     60124     60131
                                                                 60135     60142     60153     60157     60165     60171     60173
                                                                 60176     60200     60203     60205     60210     60212     60215
                                                                 60217     60221     60225     60233     60236     60242     60245
                                                                 60250     60256     60271     60273     60276     60300     60306
                                                                 60310     60315     60321     60324     60330     60335     60337
                                                                 60345     60351     60354     60360     60373     62647
          WINOC       21317                       INIT22         66074
          PSTAB       21363                       INIT22         66074
          ITS         21412             
          OTC         21455             
          ISA         21747                       BRIDGE         60331
          BR$AFT      22262                       PROSEQ         37367
          F.OPT       22520   CGTM                MIO            24371     24374     24376     24401     25224     25227     25230
                                                                 25240     25242     25245
                                                  FBV            25355
                                                  UDT            63553
          B=CGTM      22520                       RPV22          20733
          CONTV       22530             
          CG$IEP      22533                       CCGC           22347
          PUNT#       22553                       MIO            24670
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   220  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GPO            26351
          CG.MOX#     22562             
          CG$SCT      22566                       PROSEQ         40525
                                                  BRIDGE         57270     60606
          CG$ENC      22576             
          CG$FCU      22615             
          WPW#        22621             
          N$SLBT      22625             
          N$IT        22626                       CCGC           21433
                                                  GPO            26632
          N$OT        22627                       CCGC           21434
                                                  MCG            44754
          CC$LBO      22630                       CCGC           21254     21374     21441     21447     22345
                                                  UDT            63547
          CC$PC       22631                       CCGC           21170     21214     21215     21244     21254     21256     21272
                                                                 21444     21451     22344
                                                  GPO            26140     26225     26564
                                                  GRA            36003
                                                  MCG            43722
                                                  UDT            63550
          CC$BLEN     22632                       CCGC           21170     21216     21244     21253     21256     21272     21276
                                                                 21372     21442     21451     22345
                                                  UDT            63547
          CG$RBT      22633             
          CG$CUB      22646                       CCGC           21456
          FSU#        22660                       CCGC           21305     21315
                                                  PROSEQ         37373
          CG$EP       22666             
          CG$DSA      22713             
          WII#        22727                       GPO            26245     26642
                                                  PROSEQ         37415
          CG$AVO      23161                       CCGC           22363     22366
                                                  BRIDGE         60731     62635     62637
          SYM         23171                       DMPIIT         47411
                                                  DMPUDI         50474     50536
                                                  PRNTGRA        50742     50762
                                                  PRNTRLI        53735     53752     53775
          GETNSYM     23175                       DMPUDI         50525
          CSN#        23205             
          F$RDT       23224                       CCGC           21627     21676     21734
                                                  GPO            26111     26116     26123     26424     27216     30036     31314
                                                                 31414     31657     32315
                                                  GRA            35362     35464     36035     36037     36133     36163     36341
                                                                 36427     36443     36535     36641     36731     36737     36751
                                                  PROSEQ         37361     37426     40126     40144     40547
                                                  SQZ            40704     41415     41424     41745     42237     42350     42355
                                                                 43030     43146     43173     43201     43207     43223
                                                  MCG            45325     45333     46023     46100     46136     46367     46463
                                                                 46500
                                                  BRIDGE         57006     57015     57037     57314     62155     62202     62205
                                                  UDT            63621     63626
          ISC=        23335                       GPO            26146     26275     26735
                                                  GRA            32653
                                                  SQZ            43006
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   221  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  UDT            63611
          SST#        23354                       BDT            55775     56100
                                                  BRIDGE         56770
                                                  CFA            63041
          SHL#        23400                       GPO            26611
                                                  GRA            33602     33757     34453     34477     34670
                                                  BDT            55772     56110     56210
                                                  CFA            63074
                                                  UDT            63657
          O$BLK       23403                       MIO            24177     24526     24574     24740     24763     25305
                                                  GPO            26241
                                                  PROSEQ         37423     37446
                                                  INIT22         66043     66044
          O$GST       23404                       GPO            26257
                                                  CFA            62666     62675     62760     62777     63065     63112     63316
                                                                 63334     63456
          O$TXT       23404                       CCGC           21732     22303
                                                  MIO            24200     24211     24257
                                                  GPO            26050     26053     26241     26411     27010     27224     27730
                                                                 30137     30316     31451     31462     31465     31507     31515
                                                                 31652     32020     32041
                                                  GRA            35270     35656     35667     36762     37040
                                                  PROSEQ         37410     37423     37443     37454
                                                  SQZ            40604     40664     42765     43012     43047     43064
                                                  MCG            43725     44762     46531     46551     46565
                                                  BDT            55452     56004     56030     56124     56141     56206     56211
                                                                 56362     56376
                                                  BRIDGE         56703     57314     61610     62105     62143     62327     62430
                                                                 62605
                                                  UDT            63621     63761     64060     64075
          O$RND       23405                       CCGC           21123
                                                  GPO            31040     31564     31652
                                                  GRA            34123     34506     34671     37243     37266
                                                  SQZ            43012
          O$DUT       23405                       PROSEQ         37552     37624
          O$FUN       23405                       BRIDGE         56767     56773     57373
          O$TREE      23405                       MCG            43665     44406     45336     45431     45515     45647     45747
                                                                 46036     46047     46146     46222     46246     46306     46331
                                                                 46411
                                                  BDT            55455     55554     55616     55635     55776     56024     56062
                                                                 56357     56363
          O$PIT       23406                       GPO            26634     26641
                                                  GRA            36011
                                                  MCG            46533
          O$PBT       23406                       PROSEQ         37547     37666     37721
          O$DTT       23407                       BRIDGE         57421     60632     61153     61163     61232     61242     61300
                                                                 61312     61337     61354     61360     61362
          O$MLT       23407                       GPO            32217     32304     32326     32360
                                                  PROSEQ         40024     40072     40121     40561
          O$OTI       23407                       MCG            46450
                                                  CFA            63260     63507
          O$MOD       23410                       GPO            27730     30302     32355     32415
                                                  PROSEQ         40025     40100     40141     40206     40515     40527     40556
          O$BCT       23411                       PROSEQ         37637     37734     37760
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   222  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O$TST       23411                       CCGC           22125     22154
                                                  BRIDGE         57162     57165     57321     57342     57400     57420     60630
                                                                 61060     61135     61151     61161     61227     61276     61342
                                                                 61475     62470
          O$RCT       23411                       GRA            32551     32673     33571     33744     34011     34035     34137
                                                                 34214     34332     34421     34753     35163     35176     35477
                                                                 35531     35606     35626     35751     36025
          O$CFT       23412                       FBV            25413
                                                  SQZ            42443
                                                  CFA            63050     63075     63336
          O$BST       23413                       MIO            24233     24250     24256     24305     24321     24336     24525
                                                                 24562     24740     25305
                                                  GPO            26067     26104     26271     27072     27153     27211     27652
                                                  GRA            35645     35676     35714     35766     35775
                                                  CFA            62762     62775     63021
                                                  UDT            63724
          O$PSI       23414                       GPO            30060     30100
                                                  GRA            37301
          O$PAP       23414             
          O$RXI       23415                       GPO            26316
                                                  GRA            35500     36062
                                                  UDT            63742
          O$PFP       23415             
          O$AUD       23416                       BRIDGE         61066     61633
          O$TET       23416                       GPO            26600     26613     27255     30473     31472     31524     31530
                                                                 31722     32234     32251     32270
                                                  GRA            33370     33670     34303     34377     34454     34526     34753
                                                                 35271     37211
                                                  SQZ            40623
                                                  BDT            55615
          O$IIT       23417                       GPO            31530     31707     31725     31725     31776     32223
                                                  GRA            34527     34754     35167     35200
                                                  BDT            55615
          O$IOL       23417                       UDT            64017     64032     64070
          O$UDI       23420                       GPO            26304
                                                  UDT            63641     63660     63705     63743
          O$VDT       23421                       CCGC           21726
          O$SAP       23422                       BRIDGE         60436     60456     61062     61676     62036
          O$CLW       23423                       CCGC           21025
                                                  BRIDGE         60531
                                                  INIT22         65764
          O$CAC       23424                       CCGC           21027
                                                  BRIDGE         60720
                                                  INIT22         65766
          O$APL       23425                       CCGC           21032
                                                  BRIDGE         61705
                                                  INIT22         65771
          O$IOA       23426                       CCGC           21034
                                                  INIT22         65773
          O$APT       23427                       CCGC           21037
                                                  GPO            30573
                                                  BRIDGE         61662     61702
                                                  INIT22         65776
          O$IOT       23430                       CCGC           21041
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   223  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT22         66000
          O$GLT       23431                       CCGC           21044     21104
                                                  GPO            26410
                                                  CFA            62735     62750
                                                  INIT22         66003
          O$ASG       23432                       CCGC           21046
                                                  BRIDGE         62357
                                                  INIT22         66005
          O$CVT       23433                       CCGC           21051
                                                  GPO            30432     30776
                                                  SQZ            41666
                                                  INIT22         66010
          O$CUT       23434                       CCGC           21053     22340
                                                  BRIDGE         60764
                                                  INIT22         66012
          O$SYM       23435                       CCGC           21056     21377     21526     21617     22000     22052     22142
                                                                 22222     22243     22306
                                                  GPO            26124     26774     27311
                                                  GRA            34242     34634     34776     35163     35176
                                                  PROSEQ         37454     40222     40267     40365
                                                  BRIDGE         60055     60264     60473     60657     60752     60776     61013
                                                                 61234     61404     61411     61571     62055     62123     62157
                                                                 62241     62252     62305     62333
                                                  CFA            62734     62753
                                                  UDT            63660     63763     64021
                                                  INIT22         66015     66052     66055     66061     66065
          O$CBT       23436                       CCGC           21060
                                                  PROSEQ         40273
                                                  INIT22         66017
          O$NLST      23437                       CCGC           21063
                                                  BRIDGE         61000     61005
                                                  INIT22         66022
          O$DIM       23440                       CCGC           21065     22065     22353
                                                  BRIDGE         62625
                                                  INIT22         66024
          O$ENTP      23441                       CCGC           21070     21631     22002     22055     22115     22225     22246
                                                  BRIDGE         60355     60361     60374
                                                  INIT22         66027
          O$FPI       23442                       CCGC           21072     21632     22144     22305
                                                  GPO            27320
                                                  GRA            32752     33150
                                                  INIT22         66031
          O$VDI       23443                       CCGC           21075     21733     22047     22105     22270
                                                  INIT22         66034
          O$LPT       23444             
          O$FE        23445                       CCGC           21077
                                                  INIT22         66036
          L$BLK       23446                       MIO            24177     24763     25327
                                                  GPO            26154     26242     26406     26645
                                                  PROSEQ         37413     37421     37433     37441     37446
                                                  INIT22         66042
          L$TXT       23447                       CCGC           21624     21664     21712     21721     22276     22302
                                                  MIO            24204     24207     24215     24253     24260
                                                  FBV            25352
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   224  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GPO            26051     26053     26056     26222     26243     26476     26645
                                                                 27202     27736     27740     30273     30315     31411     31465
                                                                 31560     32017     32050     32416
                                                  GRA            35637     35643     35667     35711     35736     35772     36125
                                                                 36762     37036     37322
                                                  PROSEQ         37370     37411     37424     37443
                                                  SQZ            40577     42727     43010     43030     43112
                                                  MCG            44762     45322     46014     46035     46047     46074     46222
                                                                 46271     46567
                                                  BDT            55445     55777     56135     56213     56266     56357
                                                  BRIDGE         56752     57306     62603     62607     62615
                                                  UDT            63757     64060     64111
          L$GST       23447                       GPO            26257
                                                  CFA            62664     62702     62711     63002     63067     63233
          L$TREE      23450                       MCG            43615     43622
                                                  BDT            56025     56100     56110     56134     56373     56533
          L$RND       23450                       CCGC           21124
                                                  FBV            25356
                                                  GPO            31004     31561     31564
                                                  GRA            33677     33755     34131     34476     34715     37042     37245
                                                                 37270
                                                  PROSEQ         37356
                                                  SQZ            40764
                                                  CFA            63026     63030     63344
          L$DUT       23450                       PROSEQ         37502     37553
          L$FUN       23450                       BRIDGE         56766     56771     56774     62620
          L$PBT       23451                       PROSEQ         37502     37551     37665     37721
          L$PIT       23451                       GPO            26637     26644
                                                  GRA            35624     35674     35705     35712     35722     35737     35767
                                                                 35773
                                                  MCG            43610     43626     44373
          L$OTI       23452                       MCG            44037     44144     44516     44754     46442
                                                  CFA            63257     63510
          L$MLT       23452                       GPO            27237     32330     32361     32453
                                                  PROSEQ         37404     37527     40024     40037     40073     40120     40207
                                                                 40560
          L$DTT       23452                       BRIDGE         56742
          L$MOD       23453                       GPO            26473     27704     30275     30302     30305     32327     32351
                                                                 32454
                                                  GRA            35263
                                                  PROSEQ         37527     40027     40060     40106     40142
                                                  SQZ            40571
          L$BCT       23454                       PROSEQ         37501     37550     37636     37734     37760
          L$TST       23454                       CCGC           22112     22121     22125     22127     22154
                                                  BRIDGE         56737
          L$RCT       23454                       GRA            32563     32606     32646     32673     32777     33571     33626
                                                                 33702     33744     34415     34507     34552     34775     35073
                                                                 35132     35737
          L$CFT       23455                       FBV            25357     25406
                                                  GPO            26633
                                                  CFA            62705     62730     62771     63013     63042     63313     63344
                                                                 63530
          L$BST       23456                       MIO            25325
                                                  GPO            26243     26270     26276     26733     27021     27067
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   225  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GRA            35706
                                                  CFA            63017
                                                  UDT            64062
          L$PAP       23457             
          L$PSI       23457                       GRA            35526     37303
          L$PFP       23460             
          L$RXI       23460                       GPO            26315
                                                  GRA            32647
          L$TET       23461                       GPO            26250     26571     26646     26742     27262     31310     31443
                                                                 32007
                                                  GRA            35272     35310     37213
          L$AUD       23461                       BRIDGE         60667     61047     61066     61203     61631     61636
          L$IIT       23462                       GPO            26244     26454     27023     30731     31707     31731
          L$IOL       23462                       UDT            64034     64061     64072
          L$UDI       23463                       GPO            26303     26307
                                                  UDT            63634     63645     63755     64033     64124
          L$VDT       23464                       CCGC           21704     22265
          L$SAP       23465                       BRIDGE         60436     60457     61047     61062     61201     61503     61673
                                                                 61700     62030     62033
          L$CLW       23466                       CCGC           21025
                                                  BRIDGE         60531
                                                  INIT22         65764
          L$CAC       23467                       CCGC           21030
                                                  INIT22         65767
          L$APL       23470                       CCGC           21032
                                                  BRIDGE         61703     61724     61731
                                                  INIT22         65771
          L$IOA       23471                       CCGC           21035
                                                  INIT22         65774
          L$APT       23472                       CCGC           21037
                                                  BRIDGE         60405     60503     61532     61663     61701
                                                  INIT22         65776
          L$IOT       23473                       CCGC           21042
                                                  BRIDGE         61545
                                                  INIT22         66001
          L$GLT       23474                       CCGC           21044
                                                  GPO            26426     26520
                                                  BRIDGE         62372
                                                  INIT22         66003
          L$ASG       23475                       CCGC           21047     21605
                                                  BRIDGE         62613
                                                  INIT22         66006
          L$CVT       23476                       CCGC           21051
                                                  SQZ            43003
                                                  BRIDGE         56613
                                                  INIT22         66010
          L$CUT       23477                       CCGC           21054     22340
                                                  INIT22         66013
          L$SYM       23500                       CCGC           21056
                                                  INIT22         66015
          L$CBT       23501                       CCGC           21061
                                                  INIT22         66020
          L$NLST      23502                       CCGC           21063
                                                  INIT22         66022
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   226  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L$DIM       23503                       CCGC           21066     22354
                                                  BRIDGE         62626
                                                  INIT22         66025
          L$ENTP      23504                       CCGC           21070     22116
                                                  BRIDGE         60362
                                                  INIT22         66027
          L$FPI       23505                       CCGC           21073     21622
                                                  GPO            27273
                                                  BRIDGE         60346
                                                  INIT22         66032
          L$VDI       23506                       CCGC           21075     22047     22270
                                                  INIT22         66034
          L$LPT       23507             
          L$FE        23510                       CCGC           21100
                                                  INIT22         66037
          F$FRT       23511             
          LM#         23515                       GPO            26043     26047     26240
                                                  PROSEQ         37420     37434     37444
                                                  UDT            63605
          TO#         23524                       MIO            24201
          MX.BLN#     23525                       GPO            26354
          THRESH#     23526                       UDT            63540
          TOV#        23527             
          TOB#        23535                       MIO            24201
          MOREFL#     23557                       MIO            24570
                                                  GPO            26347
          CWS#        23604                       GPO            26336
                                                  UDT            63541
          CG$PTC      23665                       UDT            63532
          ATSNAT#     23727                       UDT            63536
          ATSTOG#     23730                       UDT            63537
          ATS$        23732                       CCGC           21625     21723     22114
                                                  MIO            24210     24224     24645
                                                  FBV            25335     25363     25412
                                                  GPO            26042     26144     26150     26177     26227     26235     26423
                                                                 26522     26566     26570     26577     26715     27013     27054
                                                                 27130     27676     30077     30233     30277     30307     30735
                                                                 31002     31306     31450     31503     31651     31745     31764
                                                                 32040     32214     32216     32354     32463
                                                  GRA            32655     33007     33570     33743     34114     34420     34505
                                                                 34720     35162     35175     35476     36024     37037
                                                  PROSEQ         37360     37435     37514     37516     37520     37523     37525
                                                                 40156     40160
                                                  SQZ            40603     40663     42763     43005     43113
                                                  MCG            43717     43721     45316     45320     46015     46033     46065
                                                                 46067     46445     46526
                                                  BDT            55451     56123     56137
                                                  BRIDGE         56576     56614     56772     57312     61004     61551     61675
                                                                 62464     62604
                                                  CFA            62774     63020     63044     63120     63315     63333     63451
                                                                 63454
                                                  UDT            63543     63606     63613     63615     63625     63647     63704
                                                                 63760     64014     64016     64067     64074
          AFT#        24037                       GPO            26142     26246     26263
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   227  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ADW$        24047                       CCGC           21563     22123     22152     22321
                                                  GPO            27713     30075     31505     31522     31736     32044
                                                  GRA            35266
                                                  BRIDGE         56574     56602     56604     56606     56624     56721     57411
                                                                 60410     60444     60505     60546     60572     60674     60750
                                                                 60757     61071     61207     61422     61511     61534     61547
                                                                 61672     62007     62024     62104     62112     62137     62141
                                                                 62153     62213     62215     62221     62271     62303     62315
                                                                 62323     62347     62364     62367     62405     62413     62426
                                                                 62440     62447     62453     62460
                                                  CFA            62704     62712     62733     63034     63036
                                                  UDT            63617     63636     64121
          MTU$        24065             
          B=MIO       24142   MIO                 RPV22          20734
                                                  CGTM           22543
          MAX.LCM     24143                       UDT            63561     63572
          MX.AVS#     24152                       CGTM           23546
          IMPA#       24157                       UDT            63604
          IMPB#       24165                       GPO            26252
          IMPC#       24175                       GPO            26354
          IMPD#       24203                       GPO            26162
          WFB#        24232                       GRA            36017
          WMB#        24247                       GPO            26055     27737     30320
          RTB#        24304                       GPO            26076     26213     26221     26747     27025     27062     27214
                                                                 27233     27703     30121     30274
                                                  GRA            34210     35154     35640
          RBS#        24334                       GPO            27103     27221     27701
          RNB#        24365                       FBV            25343
          SMB#        24416                       UDT            64120
          GMB#        24452                       GPO            26640
          DMB#        24517                       CGTM           23550
          CGB#        24736                       CGTM           23554
          SBD#        25217                       CFA            62672
          GBD#        25237                       GPO            26710
          FBV#        25333   FBV                 GPO            26322
          B=FBV       25333                       RPV22          20735
                                                  MIO            25205
          O$UDT       25440   GPO                 SQZ            42634
          N.VAR#      25501             
          BVL#        25502                       FBV            25425
                                                  GRA            32674     35524     35550     36061
          DMASK#      25764                       GRA            36300     36465
          B=GPO       25764                       RPV22          20736
          CC$CBN      25766                       BRIDGE         56716     60671     62102     62110     62211     62217     62267
                                                                 62313     62321     62345     62351     62362     62403     62411
                                                                 62435     62445     62451     62455
                                                  CFA            62713     62723     62752     63014     63216     63231
                                                  INIT22         66071     66073
          NPB#        25767                       FBV            25362
                                                  CFA            62716
          M.GRL#      25770                       CFA            62677     63241
          N.DG#       25771                       CFA            62665     62723
          GIC#        25772                       CFA            62670     62671     62675     62700
          O.IST#      25773                       FBV            25364     25410     25414
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   228  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  CFA            62673     62701
          M.LP#       25774                       CFA            63235
          N.FTH#      25775                       CFA            62773     63214
          M.BBL#      25776                       CGTM           23535
                                                  FBV            25334
                                                  UDT            64064
          M.EBL#      25777             
          N.GT#       26000                       CGTM           22773
                                                  GRA            35307
                                                  SQZ            40610     40656
          O$BIT       26001                       CGTM           23104     23701
                                                  MIO            24217     24225     24261     24307     24337     24530     24561
                                                                 24737     25143     25304
                                                  FBV            25337     25415
                                                  GRA            35514     35775     36007
          L$BIT       26002                       CGTM           23702
                                                  MIO            25323
          O$BVT       26003                       FBV            25413
          L$BVT       26004             
          L.PTXT#     26006                       UDT            64111
          O.LCT#      26007                       CGTM           23103
          L.LCT#      26010                       CFA            62772     63212
          O.ELT#      26011                       CGTM           23064
          L.ELT#      26012                       CGTM           23063
          O$SEQ       26013                       CGTM           23704
                                                  MIO            24302     24325     24525     24562     24640     24737     24754
                                                  FBV            25336     25341     25344
                                                  GRA            33001     33010     34115     34126     34214     35156     35265
                                                                 35651     35743     36025
                                                  PROSEQ         37407     37436     37445     37506     37530     37561     37564
                                                                 37606     40143     40152     40204     40213     40402     40554
          L$SEQ       26014                       CGTM           23704
                                                  MIO            24303     24326     24641
                                                  GRA            34033     34123     34166     35261     35641     35743     35762
                                                                 36022     37227     37311
                                                  PROSEQ         37407     37412     37437     37445     37521
          BN#         26015                       CGTM           23105
                                                  FBV            25342     25345     25350
          BSI#        26016                       MIO            24234     24250     24256     24270     24305     24321     24336
                                                                 24464     24512
                                                  GRA            34210     35153     35623     35645     35700     35706     35716
                                                                 35720     35766     35776
          BSW#        26017                       GRA            33270
          L.HB#       26020                       GRA            36346
                                                  SQZ            40572
          NBIP#       26032                       GRA            32571
                                                  BDT            55577
          HBI#        26033                       GRA            35277
                                                  BDT            56130
          PCC#        26062                       GRA            32603     32605     33771     33777     35733
          SRI#        26110                       GRA            35137     35211     35233     35245     35256     35320     35423
                                                                 35427     35436     35441     35451     35454     36034     36053
                                                                 36104     36107     36115     36121     36124     36241     36354
                                                                 36357     36363     36413     36416     36555     36566     36611
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   229  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 36672     36700     36706
          COL#        26136                       PROSEQ         37375
          CG$GPO      26251                       CCGC           21023
          MPR#        27307                       GRA            36461
          EBV#        27353                       GRA            32664
          FUD#        27404                       FBV            25347
          MPB#        32350                       GRA            35267
                                                  PROSEQ         37405     37503     40146
          MBT#        32460             
          B=GRA       32547   GRA                 RPV22          20737
          GRASRF#     32567                       BDT            55522
          GRA#        32570                       GPO            26503
          CXB#        35761                       GPO            27143
          CUC#        36761                       GPO            30050
                                                  PROSEQ         37504
          CC$BRN      37340   PROSEQ              CCGC           21665     21713     22277
                                                  SQZ            40662
                                                  BRIDGE         56752     62616
          B=PROSQ     37340                       RPV22          20740
          CC$LNL      37342                       GPO            26214
                                                  BRIDGE         56761
          CC$OPF      37343                       SQZ            42443
                                                  CFA            62707
                                                  UDT            63620
          CC$OPTL     37344                       BRIDGE         56714     62130     62256     62317     62340     62353     62400
          CC$PIOL     37345             
          CC$SRF      37346                       INIT22         65755
          CC$XR       37347                       SQZ            42116     42421
                                                  UDT            64113
          CG$CPC      37350                       CCGC           21670     21713     22277
          CG$PAS      37355                       BRIDGE         56754     62621
          SSP#        37432             
          PSB#        37453             
          AIS#        37505                       GRA            35763
          ESRA#       40131                       GPO            27230
          ESR#        40147                       GPO            26217     27236
          STLDS#      40564   SQZ                 GPO            30134
          B=SQZ       40564                       RPV22          20741
          SUVA#       40565                       GPO            30127     30133
          LCM#G       40566                       UDT            63534
          SIE#        40570                       GPO            32016
          SQZB#       40574                       GPO            27227     30314     32345
          SBB#        40661                       PROSEQ         37366
          CMO         43233                       GPO            30403     30405     30407     31110     31112     31114
          PC#         43477   MCG                 GRA            35675     35767
          TYIOM#      43567                       GPO            31276
                                                  PROSEQ         37644
                                                  BDT            56440
          B=MCG       43567                       RPV22          20742
          REG=A0      43572             
          MCG#        43607                       GPO            26233
                                                  GRA            36004
                                                  PROSEQ         37414
          B=CSNAP     46574   CSNAP               RPV22          20743
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   230  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          B=OUTPT     46616   OUTPTK              RPV22          20744
          OUTCI.      46701                       CGTM           23667     23723
                                                  GRA            34501     35727
                                                  DMPIIT         47370     47400     47403     47416     47426     47442     47456
                                                                 47463     47527
                                                  DMPRLST        47732     47757     47762     47765     50000     50005
                                                  DMPSIT         50147     50172     50200
                                                  DMPTREE        50311     50337     50345
                                                  DMPUDI         50452     50463     50505     50510     50515     50523     50530
                                                                 50540     50545
                                                  PRNTGRA        50673     50700     50724     50756     50771     51001     51007
                                                                 51012     51016     51021     51035     51046     51062     51067
                                                                 51101     51104     51107     51114     51125     51132     51137
                                                                 51150     51155
                                                  PRNTMIO        51601     51604     51623     51625     51651     51653     51655
                                                                 51660     51662     51677     51701     51703     51706     51710
                                                                 51725     51727     51731     51734     51745     51747     51751
                                                                 51754     51756     51760     51762     51764     51766     52023
                                                                 52025     52027     52031     52037     52041     52043     52045
                                                                 52047     52051     52067     52071     52102     52104     52106
                                                                 52113     52115     52117     52126     52130     52132     52134
                                                                 52152     52154     52156     52173     52175     52177
                                                  PRNTUDI        52774     53020     53024     53033
                                                  PRNTABV        53140     53143     53152     53157     53177     53204
                                                  PRNTBV         53300     53326     53334     53342     53346     53353     53367
                                                                 53374
                                                  PRNTRLI        53617     53622     53625     53636     53651     53657     53705
                                                                 53711     53714     53722     53725     53740     53744     53747
                                                                 53754     53765     53772     53777     54007     54011
                                                  PRNTMCG        54323     54330     54347     54354     54360     54363     54411
                                                                 54413     54416     54441     54444     54460     54463     54467
                                                                 54474     54500     54504     54512     54516     54534     54551
                                                                 54560     54612     54620     54624     54627     54632     54636
                                                                 54650     54663
          OUTCR.      46733             
          SETST       47313                       DMPRLST        47727
                                                  DMPSIT         50151
                                                  DMPTREE        50313
                                                  PRNTGRA        50726     51043
                                                  PRNTBV         53416     53433
                                                  PRNTMCG        54616     54670
          REMARK      47332                       PRNTGRA        50676
                                                  PRNTMCG        54371     54571
          GOTOER.     47336                       PRNTGRA        50710
                                                  PRNTMIO        51612
                                                  PRNTRLI        53606
                                                  PRNTMCG        54312
          SPA.        47340                       DMPIIT         47365
                                                  DMPSIT         50142
                                                  DMPTREE        50304
                                                  DMPUDI         50450
                                                  PRNTGRA        50670
                                                  PRNTMIO        51574
                                                  PRNTUDI        52772
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   231  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PRNTABV        53127
                                                  PRNTBV         53275
                                                  PRNTMCG        54305
          DMPIIT      47363   DMPIIT              RPV22          20745
          PRNTRXI     47502             
          DMPRLST     47716   DMPRLST             RPV22          20746
                                                  CGTM           23714
                                                  GRA            33003     35653     35660
                                                  PRNTMIO        52216
          DMPSIT      50140   DMPSIT              RPV22          20747
          DMPTREE     50302   DMPTREE             RPV22          20750
          DMPUDI      50446   DMPUDI              RPV22          20751
                                                  UDT            63643
          PRNTGRA     50666   PRNTGRA             RPV22          20752
                                                  GRA            32556
          PRNTMIO     51572   PRNTMIO             RPV22          20753
                                                  MIO            25315
          PRNTUDI     52770   PRNTUDI             RPV22          20754
                                                  GRA            32577
          PRNTABV     53125   PRNTABV             RPV22          20755
                                                  GRA            32637     32644
                                                  DMPIIT         47534
          PRNTBV      53273   PRNTBV              RPV22          20756
          PRNTLX      53420             
          PRNTRLI     53567   PRNTRLI             RPV22          20757
                                                  DMPIIT         47467
                                                  DMPRLST        47771
                                                  DMPSIT         50175
                                                  DMPTREE        50342
                                                  PRNTMCG        54447
          PRNTMCG     54303   PRNTMCG             RPV22          20760
                                                  MCG            46554
          B=BDT       55443   BDT                 RPV22          20761
          BDT#        55444                       MCG            43612     44770
          RIO#        56127                       GPO            27243
                                                  MCG            44767
          CRW#        56424             
          RNI#        56501                       GRA            37041
                                                  SQZ            40763
          F$BRDGE     56537                       GPO            25773     26024
          B=BRIDG     56537   BRIDGE              RPV22          20762
          BRIDGE      56571                       CCGC           21020
          OPT2        56676                       INIT22         66050
          P=SEG       56727                       CSKEL          65604
          P=HDR       60035                       CSKEL          65606
          P=GFD       60055                       CSKEL          65607
          P=PLIM      60106                       CSKEL          65610
          P=CDLOO     60137                       CSKEL          65612
          P=CDDOT     60144                       CSKEL          65613
          P=CDCS      60147                       CSKEL          65614
          P=DATA      60152                       CSKEL          65615
          P=SEX       60167                       CSKEL          65611
          P=GAP       60376                       CSKEL          65560
          P=FAP       60401                       CSKEL          65561
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   232  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          P=IOD       60415                       CSKEL          65564
          P=IOC       60432                       CSKEL          65563
          P=IOU       60446                       CSKEL          65565
          P=APRET     60551                       CSKEL          65713     65714     65715     65716     65717
          P=IAP       61450                       CSKEL          65562
          P=LIBF      61471                       CSKEL          65570
          P=FUN       61472                       CSKEL          65567
          P=LIB       61501                       CSKEL          65230     65575
          P=SUB       61502                       CSKEL          65566
          P=IOF       61543                       CSKEL          65572
          P=INF       61570                       CSKEL          65571
          P=FRRET     61602                       CSKEL          65725     65726
          P=LRJ       61610                       CSKEL          65573
          P=SCRET     61752                       CSKEL          65720     65721     65722     65723     65724
          P=HSTO      62003                       CSKEL          65461
          P=HLEX      62013                       CSKEL          64345     64370     64424     64460
          P=HREL      62015                       CSKEL          64343     64365     64417     64453
          P=DZO       62052                       CSKEL          64760
          P=DOO       62053                       CSKEL          64751
          P=DOZ       62100                       CSKEL          64764
          P=DOBZ      62114                       CSKEL          64752     64767
          P=DOL       62116                       CSKEL          64756     64766
          P=DOB       62121                       CSKEL          64755     64765     65700
          P=DOC       62146                       CSKEL          64775     65004     65030     65035     65041
          P=PDE1      62202                       CSKEL          65542     65706
          P=PDE       62205                       CSKEL          65003     65017     65541     65705
          P=IOLC      62223                       CSKEL          65546
          P=PLA       62226                       CSKEL          65556
          P=ENT       62301                       CSKEL          65601
          P=PEX       62317                       CSKEL          65574     65576     65577
          P=PASG      62325                       CSKEL          65555
          P=PGT       62340                       CSKEL          65550     65651
          P=PAG       62353                       CSKEL          65551
          P=PCG       62366                       CSKEL          65552
          P=JGOC      62400                       CSKEL          65553
          P=RGT       62415                       CSKEL          65115
          P=IF        62423                       CSKEL          65547     65623     65624     65625     65626     65627     65630
                                                                 65631     65632     65633     65634     65635     65636     65637
                                                                 65640     65641     65642     65643     65644     65645     65646
                                                                 65647     65650     65652     65653     65654     65655     65656
                                                                 65657     65660     65661
          P=PAR       62472                       CSKEL          65557
          P=HCAT      62474                       CSKEL          65462
          P=HSBS      62476                       CSKEL          65464
          P=HCOL      62500                       CSKEL          65463
          P=IM        62502                       CSKEL          65416
          P=ID        62540                       CSKEL          65422
          P=MASK      62550                       CSKEL          65530
          P=MOD       62555                       CSKEL          65531
          P=SHIFT     62565                       CSKEL          65533
          P=BVD       62577                       CSKEL          65602
          P=EVD       62602                       CSKEL          65603
          P=FIN       62611                       CSKEL          65616
          P=ILL       62623                       CSKEL          65405     65620     65621
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   233  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          P=LCC       62644                       CSKEL          65617
          B=CFA       62663   CFA                 RPV22          20763
          DGS#        62706                       GPO            26256
          CG$LABD     62751                       BRIDGE         62274
                                                  INIT22         66072
          CG$INIT     63531   UDT                 BRIDGE         56572
          F$CFA       63531   CFA                 GPO            26255
          B=UDT       63531   UDT                 RPV22          20764
          AUT#        63633                       GPO            26153     26254
          CMR#        63756                       GPO            26152
          CG$CPL      64012                       BRIDGE         61633
          PBB#        64056                       PROSEQ         37417
          B=CSKEL     64126   CSKEL               RPV22          20765
          F$UDT       64126   UDT                 GPO            26253
          F.SET       64126   CSKEL               INIT22         66075
          F.SCT       65405                       BRIDGE         56631     56642
          F.MEM       65727   INIT22              CGTM           23515
                                                  MIO            24147
                                                  GPO            26001     26145     26156     26161     26167     26240
                                                  UDT            63775     64046
          FTN22       65727             
          B=INI22     65727                       RPV22          20766
          B=LWA22     66123                       RPV22          20767
  
  
  
  
  
 -------- OVERLAY(FTN,2,3,O=FWA23)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD          14721
          LWA+1 OF THE LOAD        27052
  
          TRANSFER ADDRESS -- FTN23          26763          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN523        14721        0    OVR      24/05/05 COMPASS 3.7 871               FTN5 REAR END OVERLAY FOR CCG.
          RPV23         14721       16    OVR      24/05/05 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          RSNAP         14737      203    OVR      24/05/05 COMPASS 3.7 871               REAR-END TEST MODE SNAP PACKAGE.        
          REC           15142      451    OVR      24/05/05 COMPASS 3.7 871               REAR END CONTROLLER.
          RLINK         15613      434    OVR      24/05/05 COMPASS 3.7 871               REAR-END LINKAGES.  
          RERRS         16247       65    OVR      24/05/05 COMPASS 3.7 871               REAR END ERROR MESSAGE TEXTS. 
          PEM           16334      330    OVR      24/05/05 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         16664      420    OVR      24/05/05 COMPASS 3.7 871               TABLE ALLOCATION.   
          FAS           17304     2534    OVR      24/05/05 COMPASS 3.7 871               FORTRAN INTERNAL ASSEMBLER.   
          MAP           22040     3326    OVR      24/05/05 COMPASS 3.7 871               STORAGE MAP AND CROSS REFERENCE.        
          LIST          25366     1375    OVR      24/05/05 COMPASS 3.7 871               OBJECT CODE LISTING ROUTINES. 
          INIT23        26763       67    OVR      24/05/05 COMPASS 3.7 871               INITIALIZE REAR END OVERLAY.  
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   234  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          USY=RE        *WEAK*                    INIT23         26776
          FEC=BY          0   RLINK               ALLOC          17151
          ERR.D           2   PUC                 RERRS          16321     16322     16324     16326     16332
          L.FILL          3   RERRS               PEM            16343
          ERR.F           5   PUC                 RERRS          16316     16317     16330     16333
          BN=APL          5                       FAS            17626
          FV.LGO          5   FTN                 REC            15162     15247     15355
                                                  FAS            17542     17744
                                                  INIT23         27007
          ERR.C           7   PUC                 PEM            16403
          BT.IDN8        10   FAS       
          N.ERRT         10   PUC                 PEM            16405
          BT.IDN9        11   FAS                 REC            15241
          BN=SUB         11   PUC                 FAS            17560     17745     20200
          BN=SUB0        12                       FAS            17557     17747     20176
          Z.LBT          14                       REC            15364
          N.TABLE        47                       RSNAP          14755     14767
                                                  RLINK          16237
                                                  ALLOC          16665     16704     16724     16731     16760     17000     17004
                                                                 17034
                                                  FAS            20461     21415     21433     21703
                                                  LIST           26332
          CP.ERCT       115   FTN                 PEM            16545
          CP.BLF        121                       MAP            22601
          GT1           135                       FAS            21756     21760
          CP.AFLS       201                       ALLOC          17075
          CP.NFLS       202                       INIT23         27026
          CP.MODL       205                       FAS            21512
          F.OUT         221                       ALLOC          17165
          F.LGO         241                       ALLOC          17167
                                                  FAS            17544     17713     17757     21757
                                                  INIT23         27010
          SYS=          253                       INIT23         26774
          WNB=          272                       REC            15215
          MSG=          302                       ALLOC          17164
          F.PB          311                       REC            15214     15217     15222     15251
                                                  FAS            21665     21672
                                                  INIT23         27005
          F.REF         331                       ALLOC          17114
                                                  MAP            23671     23673     23700     23704
                                                  INIT23         27003
          MAX.FL        343                       ALLOC          17203
          NOM.FL        344                       ALLOC          17075
          ENOT=L        353                       PEM            16455     16511
          CO.ARGC       356                       FAS            17526     21514
          CO.ARGF       357                       FAS            21515
          CO.DBID       361                       REC            15240
          CO.DBPM       362                       REC            15244
                                                  FAS            20544     20621
          CO.DBST       365                       REC            15240
          CO.EL         371                       PEM            16401
          CO.ET         372                       PEM            16543
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   235  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.LL         375                       FAS            17673
                                                  LIST           25660
          CO.OPT        377                       REC            15272
                                                  FAS            17541     17656     20006
                                                  LIST           25627
          CO.PS         400                       MAP            22601     23556     24007
                                                  LIST           26443
          CO.PW         401                       PEM            16463
                                                  FAS            17570
                                                  MAP            23074     23131     23211     23565     23606     23633     24717
                                                                 24737
                                                  LIST           25556
          CO.WPL        416                       PEM            16476
          CO.LOO        425                       REC            15162     15250
          CO.LOR        426                       INIT23         27002
          CO.QC         430                       REC            15164
          CO.SNAP       435                       REC            15152
                                                  ALLOC          17023     17070     17213
                                                  FAS            20633     20715     21650
                                                  MAP            23717     23727
                                                  INIT23         27020
          TL.PTYP       447                       FAS            21512
          TL.CSOP       452                       REC            15237
          TL.DATE       457                       FAS            21505
          TL.TIME       460                       FAS            21507
          ABTFTN        611                       ALLOC          17171
          IDPCHK        626                       INIT23         26777
          COD           662                       ALLOC          17201     17204     17231     17233     17235     17243     17245
                                                  LIST           26111
          RPV2N        2710   RPV20               INIT23         26764
          CDD          2716   UTILITY             MAP            23443     24126     24166     24336     24346     24365     24453
                                                                 24511     24755     25047     25065     25114     25215
                                                  LIST           25544     25660
          DXB          2735                       FAS            20753
          FA=SET       2744                       INIT23         27004     27006     27011
          MVE=         3005                       PEM            16470
                                                  ALLOC          17012     17020
                                                  FAS            17624     20470
                                                  MAP            23574
                                                  LIST           26352     26413
          RPV=         3043                       INIT23         26770     26773
          FRA=         3172                       ALLOC          17224
          SBM=         3324                       REC            15361
                                                  MAP            22710     23107     23466     23576     23621     24732     25003
          SFN          3331                       PEM            16453
                                                  FAS            17731
                                                  MAP            22704     23045     23103     23462     23615     23625     24300
                                                                 24522     24531     24726     24777
                                                  LIST           25617     25654     26043     26637
          SST          3347                       FAS            20642     20672
                                                  MAP            23012     23030     23332
                                                  LIST           26166
          WOD          3352                       FAS            20761
                                                  MAP            25205     25230
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   236  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           26077     26205     26346     26404     26435
          ZTB          3370                       MAP            24320     24471
                                                  LIST           25745     26336
          CIO=         3407                       REC            15223     15252
                                                  ALLOC          17166     17170
                                                  FAS            17714     17760
                                                  MAP            23672     23674     23701
          RDW=         3442                       FAS            21665     21673
                                                  MAP            23704
          WTW=         3656                       ALLOC          17114
                                                  FAS            21757
          ALC=CNT      4131   LISTLNK             ALLOC          16703
          MOVES        4136                       ALLOC          17213
          ORIGINS      4217   PUC                 RSNAP          15011     15130
          T.LGOB       4217                       FAS            17545
          BASES        4217                       ALLOC          16715     17003     17015     17027     17047     17051     17105
                                                  INIT23         27013
          T.PTXTR      4220                       FAS            20365     20425     20500     20501     21064     21142     21154
                                                                 21270
                                                  LIST           26203
          T.STF        4221                       ALLOC          17052
          T.LINK       4221                       FAS            17533     20637     20643     20662     21623
          T.FPO        4222                       REC            15335     15505
                                                  FAS            20206
          T.SCR        4224                       FAS            20521     20526     20531     20541     20564     20603     21001
                                                                 21764
                                                  MAP            22660     23010     23247     23312     23331     23363     23525
                                                                 24102
                                                  LIST           26154     26167
          T.PTXT       4224                       FAS            20363     20420     20474     20476
          T.FILL       4225                       FAS            17535     20670     20673     21621
          T.DATS       4226                       FAS            20101     20366     20467
          T.PAR        4227                       ALLOC          17053
          T.XFIL       4227                       FAS            17537     20711     21642
          T.CLWB       4231                       FAS            21336     21361
                                                  LIST           26431
          T.STMT       4231                       RLINK          15616
          T.SUB        4232                       REC            15356
                                                  FAS            17745     20306
                                                  LIST           26654
          T.SUB0       4233                       REC            15503     15505
                                                  FAS            17747     20341
          T.CLW        4235                       FAS            21337
                                                  LIST           26427
          T.CAC        4236                       RLINK          16227
                                                  FAS            21123     21217
                                                  LIST           26257     26542
          T.APL        4237                       RLINK          16204
                                                  FAS            17617     17621     21070
                                                  LIST           26160     26621
          T.IOA        4240                       FAS            21155
          T.API        4241                       REC            15414
                                                  FAS            21656
                                                  LIST           26156
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   237  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.IOI        4242                       REC            15416
                                                  FAS            21657
          T.GL         4243                       REC            15412
                                                  FAS            21655
          T.CON        4245                       RLINK          16151
                                                  PEM            16365
                                                  FAS            17650
                                                  MAP            25144     25166     25200     25227
                                                  LIST           25563
          T.CUT        4246                       RLINK          16053     16147     16206     16230
          T.LA         4246                       FAS            20766
          T.SYM        4247                       RSNAP          15032
                                                  REC            15256     15322     15375     15420     15466     15515     15540
                                                  RLINK          16162     16174
                                                  FAS            17550     17554     17663     17733     20043     20133     20160
                                                                 20203     20325     20374     20511     20566     20644     20742
                                                                 20770     21001     21104     21175     21276     21602     21722
                                                  MAP            22616     23243     23245     23364     23706     24037     24104
                                                                 24122     24157     24207     24242     24274     24310     24330
                                                                 24362     24375     24432     24501     24527     24550     24746
                                                                 25031     25057     25075     25135
                                                  LIST           25525     25571     25615     25644     25770     26236     26332
                                                                 26524
          T.BLKS       4250                       REC            15473
                                                  FAS            20547     20612
                                                  MAP            23024     23323     23421     24226
          T.NLST       4251                       FAS            21711
          T.DIM        4252                       REC            15455     15544
                                                  FAS            21014     21112     21367     21401     21734
                                                  MAP            24436     25037
                                                  LIST           26245
          T.ENTP       4253                       MAP            24332
          T.FPI        4254                       REC            15337
                                                  FAS            20305     20327
                                                  LIST           26650
          T.REF        4256                       ALLOC          17105     17112
                                                  MAP            23676     23702     23714     23772     24753
          T.LCA        4257                       FAS            17622     17625     21660
          T.ECT        4260                       MAP            23027     23302     23306     23313     23376     23404
          T.ENT        4261                       FAS            20567
          T.LNT        4262                       FAS            20357     20505     20754
          T.LCC        4263                       FAS            17710
          T.FMT        4264                       FAS            17655
                                                  LIST           26377
          T.END        4265                       ALLOC          17121
          SIZES        4266                       ALLOC          16725     16732     16774     17016     17234
                                                  INIT23         27014
          T=LGOB       4266                       FAS            17543
          T=PTXTR      4267                       FAS            17635     17641     17701     17706     20363     20502
          T=LINK       4270                       ALLOC          17063
                                                  FAS            17531     20637     20643     20667
          T=STF        4270                       ALLOC          17142
          T=EQUS       4270                       ALLOC          17145
          T=FPO        4271                       REC            15233     15506
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   238  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=BLST       4272                       ALLOC          17145
          T=PTXT       4273                       FAS            20362     20477
          T=SCR        4273                       ALLOC          17144
                                                  FAS            20523     20541     20562     20576     20602     20630     21052
                                                                 21366
                                                  MAP            23005     23011     23042     23241     23277     23331     23363
                                                                 23526     24004     24036
                                                  LIST           26154     26167
          T=FILL       4274                       ALLOC          17064
                                                  FAS            17531     20667     20673
          T=DATS       4275                       REC            15232
                                                  ALLOC          17150
                                                  FAS            20100     20107     20366
                                                  LIST           25602
          T=PAR        4276                       ALLOC          16733     16775     17013     17146
          T=XFIL       4276                       ALLOC          17066
                                                  FAS            17532     20711     20721
          T=CLWB       4300                       FAS            17702     17707
          T=STMT       4300                       ALLOC          17136     17140
          T=SUB        4301                       REC            15233
          T=SUB0       4302                       REC            15234     15362     15506
          T=CLW        4304                       REC            15304
                                                  FAS            17705     21334     21337
                                                  LIST           26427
          T=CAC        4305                       RLINK          16226
          T=APL        4306                       REC            15227     15300
                                                  RLINK          16204
                                                  ALLOC          17147
                                                  FAS            17614     17640     21064     21070
                                                  LIST           26622
          T=IOA        4307                       REC            15231     15302
                                                  FAS            17677     17706     21153     21155
                                                  LIST           25676
          T=API        4310                       REC            15230     15414
                                                  LIST           26153
          T=IOI        4311                       REC            15231     15416
          T=GL         4312                       REC            15227     15412
                                                  ALLOC          17150
          T=CON        4314                       REC            15225
                                                  RLINK          16156
                                                  ALLOC          17144
          T=LA         4315                       REC            15272
                                                  FAS            17656
                                                  LIST           25627
          T=SYM        4316                       RSNAP          15074
                                                  REC            15321     15376     15420     15515     15541
                                                  FAS            20524     21002
                                                  MAP            23245     23706     24037
          T=BLKS       4317                       REC            15474
                                                  ALLOC          17152
                                                  FAS            20540     20601
                                                  MAP            23020     23320
          T=NLST       4320                       REC            15226
                                                  RLINK          16167
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   239  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          17147
                                                  FAS            17723     21711
                                                  LIST           25710
          T=DIM        4321                       REC            15455
                                                  ALLOC          17143
                                                  FAS            21367
                                                  LIST           25710
          T=FPI        4323                       REC            15232     15334
          T=REF        4325                       ALLOC          17101     17112     17151
                                                  MAP            23702     23713
          T=LCA        4326                       REC            15230     15277
                                                  FAS            17614     17622     17630
          T=ECT        4327                       MAP            23017     23030     23305     23405
          T=ENT        4330                       ALLOC          17152
                                                  FAS            20563
          T=LNT        4331                       REC            15235
                                                  FAS            17532     20755
          T=LCC        4332                       FAS            17712
          T=FMT        4333                       REC            15226     15270
                                                  ALLOC          17146
                                                  LIST           26376
          NAMES        4404                       RSNAP          15010     15126
                                                  ALLOC          17024
          TV=DECL      4501                       ALLOC          17107
          TV=EXU       4502                       ALLOC          17110
          TV=END       4503                       REC            15147
          TV=CUR       4504                       REC            15151
                                                  ALLOC          16720     16742     17001     17111
          F.LBT        4505                       REC            15270     15306     15321     15354     15354     15364     15400
                                                                 15531     15570
                                                  FAS            17560     17561     17627     20210     21547     21552
                                                  LIST           26150     26405     26452
          SUM.LBT      4521                       REC            15375     15442
                                                  FAS            17547     20543
                                                  LIST           25613
          COMSIZ       4522                       REC            15437     15443
          ALC.PAR      4524                       REC            15150
                                                  ALLOC          16733
          BINIO        4525                       REC            15216     15246
          BLNKCOM      4526                       MAP            23422     24230
          CBI          4527                       FAS            17563     21416     21545     21553
          ERRORS       4531                       REC            15213     15365     15411
                                                  PEM            16536
                                                  FAS            17546
          FAILSFT      4533                       ALLOC          17133
                                                  MAP            22577
          O.TABS       4534                       ALLOC          16772     16776     17015     17120
                                                  INIT23         27013     27025
          IDENT        4537                       ALLOC          17157
                                                  FAS            17731     20543     21505
                                                  LIST           25606     25665     25745
          LCNT         4541                       MAP            22603     23556     23561     24007
          LEVEL2       4545                       FAS            21517
          LINEBUF      4547                       PEM            16410     16462     16467     16472
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   240  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            17571     17572     20064     20762     21533     21541     21701
                                                                 21750
                                                  LIST           25514     25515     25551     25614     25622     25623     25636
                                                                 25641     25675     25747     26045     26067     26070     26100
                                                                 26104     26110     26176     26206     26206     26217     26344
                                                                 26352     26353     26411     26412     26414     26425     26434
                                                                 26436     26451     26454     26457     26464     26634     26654
                                                                 26657     26672     26672
          LINES        4565                       FAS            20122
          LOSTREF      4566                       MAP            23675
          MOD          4567                       FAS            17754     20514     20536     20561
                                                  MAP            22771     23235     24703
                                                  LIST           25606
          NREXT        4572                       REC            15213
                                                  ALLOC          17065
                                                  FAS            17533     20640     20644     20666
          N.CON        4600                       REC            15275
          O.STITL      4614                       MAP            22621     23563     23636
                                                  LIST           26445
          PASS         4616                       REC            15146     15166
                                                  PEM            16460
                                                  ALLOC          17063     17134     17155
                                                  MAP            22600
          PWBUF        4617                       PEM            16470     16471
          WOF=ERR      4634                       PEM            16456     16463     16465     16475     16513
          REFIO        4635                       ALLOC          17103
                                                  MAP            23670
          RPV=URP      4636                       INIT23         26765
          SAVE         4637                       FAS            20607
          THRESH       4640                       ALLOC          16736     17123     17126     17131     17201
                                                  INIT23         27030
          USAVE        4641                       REC            15433
                                                  FAS            20607
          L.TABS       4642                       ALLOC          16730     16777     17122     17244
                                                  INIT23         27027
          WO.LOA       4660                       REC            15155
                                                  MAP            22605
          WO.LOM       4661                       REC            15155
                                                  MAP            22604     23015
          WO.LOO       4662                       REC            15163
                                                  FAS            17720     20152     21533
          WO.LOR       4663                       REC            15156
                                                  MAP            22606     23564     23605     23632     23667     23771
          WO.LOS       4664                       PEM            16511
          WO.QC        4665                       PEM            16542
                                                  MAP            22777     23016     24145     24420
          S=BU         4675                       FAS            21602
          S=CL         4701                       REC            15304
                                                  LIST           26425
          S=CON        4702                       REC            15276
                                                  RLINK          16206
                                                  LIST           25563
          S=ENTRY      4706                       FAS            17732     20215
          S=LA         4721                       REC            15273
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   241  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           25630
          S=LENP       4723                       FAS            17547     20156
                                                  LIST           25614
          S=RD         4731                       FAS            21110     21276
                                                  LIST           26244
          S=SA1        4732                       FAS            20511
          S=VALUE      4745                       REC            15255
                                                  MAP            23250
          S=VD         4746                       FAS            17553     21472
          ERRTYP       4747                       PEM            16401     16403
          E=TOTAL      4767                       PEM            16537
          GMC          5372                       ALLOC          17117
          MTD          5420                       ALLOC          16773
          PIA          5455                       FAS            21535
                                                  MAP            24147     24422
                                                  LIST           25613     26175     26207     26343     26410     26424     26433
                                                                 26453     26455     26633     26653
          WOF          5571                       PEM            16510
                                                  ALLOC          17162     17221     17227     17240     17250
                                                  MAP            22706     23047     23051     23105     23464     23617     23627
                                                                 23631     24730     25001
                                                  LIST           25516     25552     25624     26071     26114     26354     26415
                                                                 26447     26461     26467     26673
                                                  INIT23         27016     27023
          PIK=PS       5630                       FAS            20024
                                                  LIST           25427     25454     25717
          PIK=LCM      5730                       LIST           25460
          PIK=XJP      5732                       LIST           25456     25463
          PIK=PI       5742                       LIST           25720
          HDRBL        5765                       MAP            22620     23562
          APCON        5772   CCGLINK             RLINK          16205     16226
          ERR22        5776                       RLINK          15621     15625
          REL.RTN      6051                       REC            15235
          UKT=LNK      6167   IDP                 INIT23         26775
          PTO          6174                       ALLOC          17241
                                                  INIT23         27024
          IDP=USY      6323                       INIT23         26776
          FW=IDPL      6634                       RSNAP          15003     15006     15013
          IDPFLG       6636                       RSNAP          15017
          SNAPLNE      6771                       RSNAP          14757     14763     15020     15025     15121
          IDP=         7677                       FAS            20124
                                                  INIT23         27001
          IDP=MN       7735                       RSNAP          14750     15123
          DCM=        11314                       RSNAP          14770
          IDP=FRK     11524                       RSNAP          15003
          IDP=HDR     11573                       RSNAP          15004
          IDP=PAS     11765                       RSNAP          14747
          ROL=        12277                       RSNAP          14764     15023     15073
          IDP=SKT     12341                       RSNAP          15010     15127
          IDP=SOB     12375                       RSNAP          15000
          IDP=COD     13164                       RSNAP          14761     15026     15031     15036     15044     15047     15056
                                                                 15060     15067
          IDP=SFN     13456                       RSNAP          15125
          IDP=WOD     14025                       RSNAP          15051
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   242  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IDP=ZTB     14225                       RSNAP          15035     15040
          SVR=        14264                       RSNAP          14777
          RSR=        14307                       RSNAP          15014
          B=RPV23     14721   RPV23     
          RPV23       14721                       INIT23         26763
          B=RSNAP     14737   RSNAP               RPV23          14722
          FI=BRLI     14740                       FAS            20121
          UKT=RE      14741                       INIT23         26775
          DMT=        14776                       REC            15154
                                                  FAS            20635     20717     21652
                                                  MAP            23721     23731
                                                  LIST           25603     25712
          B=REC       15142   REC                 RPV23          14723
          WO.56       15142                       FAS            20510
          WO.57       15143                       FAS            20505
          REC         15144                       INIT23         27030
          ADA         15454                       FAS            21000
          B=RLINK     15613   RLINK               RPV23          14724
          STAGE       15613                       ALLOC          17153
          LEXFLG      15614                       ALLOC          17135
          FEC.RTN     15614                       ALLOC          17156
          CHARMAP     15614                       PEM            16362
          BLL         15614                       PEM            16507
          LDB         15615                       PEM            16461
                                                  ALLOC          17137
          CGE         15620                       REC            15144
          LSR         15627             
          N.ALTEN     15630             
          CII         16001                       FAS            20012
          BCT         16146                       REC            15160
          SMB         16166                       REC            15332
          PAT         16203                       FAS            17613     17700
          PCA         16225                       REC            15161
          SCS         16236                       MAP            23302     23377
          SCSA        16245                       MAP            23301     23375
          B=RERRS     16247   RERRS               RPV23          14725
          DICT        16250                       PEM            16416
          FILL.       16251                       PEM            16344     16375
                                                  ALLOC          17025     17202
          FILL.2      16252                       ALLOC          17205
          FILL.3      16253             
          E.MO1       16316                       REC            15447
          E.MO2       16317                       RLINK          15622
                                                  ALLOC          17153
          E.MO4       16321             
          E.MO5       16322                       ALLOC          17115
          E.MO6       16324                       ALLOC          17206
          E.MO7       16326                       ALLOC          17072
          E.MO8       16330                       REC            15446
          E.TC1       16332                       ALLOC          17026
          E.CCG       16333                       RLINK          15623
          B=PEM       16334   PEM                 RPV23          14726
          ANSI=       16335             
          ANSI.SW     16336             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   243  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          MDERR=      16340             
          MDER.SW     16341             
          PEMS        16342                       RERRS          16324     16332
          PEMV        16357             
          PEM         16376                       RERRS          16316     16317     16321     16322     16326     16330     16333
          PDM         16527                       REC            15446     15450
                                                  RLINK          15624
                                                  ALLOC          17026     17072     17115     17154     17206
          ADW         16664   ALLOC               RLINK          16150
                                                  FAS            20357     20364     20365     20463     20475     20500     21642
                                                                 21647     21765
                                                  MAP            23312     24103
          B=ALLOC     16664                       RPV23          14727
          ADW.ALC     16674             
          ADWT        16676             
          ALC         16702                       REC            15336     15357     15504
                                                  FAS            17534     17536     17540     17545     17620     20102     20466
                                                                 20527     20542     20564     20604     21065     21154     21336
                                                  MAP            22617     23244     23677
                                                  LIST           26155
          ALC.REG     17047             
          ALC.00      17051             
          ALC.STF     17052             
          ALC.CAI     17053             
          PTA         17200             
          PTS         17210             
          BT.IDNT     17304   FAS                 REC            15242
          B=FAS       17304                       RPV23          14730
          BT.XFR1     17365             
          CIDMOD      17371             
          COMMOD      17372             
          FCLMOD      17374                       LIST           26506
          FAPSUD      17436                       LIST           25417
          ORG         17505             
          PARCEL      17506             
          ORGSUB      17507                       LIST           26651
          SUBFLG      17510             
          ORGSUB0     17511             
          TAGSUB0     17512                       LIST           25517
          OL=BIN      17513                       LIST           25637     26076
          OL=LBF      17514                       LIST           25453     25546     25621     26054     26105     26667
          OL=PB       17515                       LIST           25415
          OL=RL       17516                       LIST           25633     25667     25750     26045     26074     26100
          FAS         17525                       REC            15224
          APLA        17642                       LIST           25540     26621
          RADRTN      17774                       REC            15176     15200
          RADOL1      20037                       REC            15200
          RADOL2      20057                       REC            15202
          RADC        20267                       LIST           25413
          BST         20304                       REC            15171
          BST.EQ      20305                       REC            15173
          CAB         20343             
          CLE         20353                       REC            15206
          CLE.EQ      20354                       REC            15207
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   244  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DLF         20632                       ALLOC          17073
          ESL         20737                       REC            15210
          ESL.EQ      20740                       REC            15211
          FBP         20760                       REC            15202
          FBP.EQ      20761                       REC            15204
          POL         21532                       REC            15174
          POL.EQ      21533                       REC            15176
          RNI         21663                       RLINK          16071
          SNR         21710                       REC            15311
                                                  RLINK          16171
          WLF         21755                       REC            15167
          WLF.EQ      21756                       REC            15171
          B=MAP       22040   MAP                 RPV23          14731
          FIN         22040             
          MAP         22576                       REC            15157
          FIN.MAP     25366             
          B=LIST      25366   LIST                RPV23          14732
          PIK         25412                       FAS            21537
          LI=BCI      25524                       FAS            17457
          LI=OTR      25524                       FAS            17472
          LI=ECI      25524                       FAS            17464
          LI=EMI      25524                       FAS            17465
          LI=BMI      25524                       FAS            17441
          LI=LOO      25524                       FAS            17452     17471
          LI=ADDR     25525                       FAS            17436
          LI=APL      25537                       FAS            17440
          LI=BOS      25543                       FAS            17460
          LI=BSS      25554                       FAS            17437     17462
          LI=CON      25556                       FAS            17442
          LI=CPL      25566                       FAS            17461
          LI=DATA     25602                       FAS            17463
          LI=END      25605                       FAS            17443
          LI=EQUN     25613                       FAS            17444
          LI=FMT      25626                       FAS            17445
          LI=FLA      25635                       FAS            17502
          LI=FVEC     25644                       FAS            17446
          LI=PLIM     25660                       FAS            17454
          LI=IDNT     25664                       FAS            17447
          LI=IOM      25673                       FAS            17450
          LI=JPI      25703                       FAS            17466
          LI=LCC      25706                       FAS            17451
          LI=LD0      25707                       FAS            17467
          LI=ST0      25707                       FAS            17470
          LI=NLST     25710                       FAS            17453
          LI=RJ3      25714                       FAS            17473
          LI=RJ6      25715                       FAS            17474
          LI=SB0I     25722                       FAS            17476
          LI=SUBI     25723                       FAS            17475
          LI=UJP      25732                       FAS            17477
          LI=USE      25733                       FAS            17456     17500
          LI=TRAC     25745                       FAS            17455
          LI=ZERO     25754                       FAS            17501
          VFD         26133                       FAS            20037     20060
          B=INI23     26763   INIT23              RPV23          14733
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/05. 20.01.47.      PAGE   245  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FTN23       26763             
          FIN.OL      26763   LIST      
          B=LWA23     27052   INIT23              RPV23          14734
  
  
  
               2.180 CP SECONDS             206700B CM STORAGE USED                    471 TABLE MOVES
  
  
  
  
1 
      RECORDS WRITTEN ON FILE PRODTMP                       24/05/05. 20.02.15.           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. 
 REPLACED FTN5      ABS       TPROD     24/05/05. FTN5 MAIN OVERLAY.
 REPLACED FTN510    OVL       TPROD     24/05/05. FTN5 PRIMARY OVERLAY FOR QCG. 
 REPLACED FTN520    OVL       TPROD     24/05/05. FTN5 PRIMARY OVERLAY FOR CCG. 
 REPLACED FTN521    OVL       TPROD     24/05/05. FTN5 FRONT END OVERLAY FOR CCG. 
 REPLACED FTN522    OVL       TPROD     24/05/05. COMMON CODE GENERATOR OVERLAY.
 REPLACED FTN523    OVL       TPROD     24/05/05. FTN5 REAR END OVERLAY FOR CCG.
          FTNMAC    OVL       PRODOLD   24/05/02. 
          FTN       ABS       PRODOLD   24/05/02. 
          FTN10     OVL       PRODOLD   24/05/02. FTN4 TS COMPILER
          FTN20     OVL       PRODOLD   24/05/02. FTN4 OPT COMPILER - BATCH CONTROLLER
          FTN23     OVL       PRODOLD   24/05/02. FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
          FTN21     OVL       PRODOLD   24/05/02. FTN4 OPT COMPILER - PASS 1(NO DEBUG)
          FTN25     OVL       PRODOLD   24/05/02. FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
          FTN22     OVL       PRODOLD   24/05/02. FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
          FTN24     OVL       PRODOLD   24/05/02. FTN4 OPT COMPILER - DEBUG PASS 1
 ADDED    PRODUCT   OPLD      *****     24/05/05. 
          **EOF**             PRODOLD 
  
1 
      RECORDS WRITTEN ON FILE DIRFTMP                       24/05/05. 20.02.33.           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 
 REPLACED FTN5      TEXT      TDIR
          FTI4      TEXT      DIRFOLD 
          **EOF**             DIRFOLD 
  
1 
      LIBEDIT DIRECTIVES.                                   24/05/05. 20.02.41.           PAGE     1
  
  
  
          *BUILD,GLOBLIB
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/05. 20.02.41.           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/05. 20.02.41.           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/05. FTN5 MAIN OVERLAY.
 REPLACED FTN510    OVL       GTLGO     24/05/05. FTN5 PRIMARY OVERLAY FOR QCG. 
 REPLACED FTN520    OVL       GTLGO     24/05/05. FTN5 PRIMARY OVERLAY FOR CCG. 
 REPLACED FTN521    OVL       GTLGO     24/05/05. FTN5 FRONT END OVERLAY FOR CCG. 
 REPLACED FTN522    OVL       GTLGO     24/05/05. COMMON CODE GENERATOR OVERLAY.
 REPLACED FTN523    OVL       GTLGO     24/05/05. 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/05. 20.02.41.           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   24/05/02. 
          FTN10     OVL       GLOBOLD   24/05/02. FTN4 TS COMPILER
          FTN20     OVL       GLOBOLD   24/05/02. FTN4 OPT COMPILER - BATCH CONTROLLER
          FTN23     OVL       GLOBOLD   24/05/02. FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
          FTN21     OVL       GLOBOLD   24/05/02. FTN4 OPT COMPILER - PASS 1(NO DEBUG)
          FTN25     OVL       GLOBOLD   24/05/02. FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
          FTN22     OVL       GLOBOLD   24/05/02. FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
          FTN24     OVL       GLOBOLD   24/05/02. FTN4 OPT COMPILER - DEBUG PASS 1
          FILE      ABS       GLOBOLD   97/11/04. CRM FILE CONTROL CARD PROCESSOR 
          FTNMAC    OVL       GLOBOLD   24/05/02. 
 ADDED    GLOBLIB   OPLD      *****     24/05/05. 
          **EOF**             GLOBOLD 
  
1 AABQ    M01 - CYBER 865.                        NOS 2.8.7 871/871.   24/05/05. 20.03.20.
  
  
 19.55.59.DFTN5.
 19.55.59.USER(INSTALL,,)       
 19.55.59.ABSC,  B. 
 19.56.00.CHARGE(*) 
 19.56.00. DEFAULT CHARGE NULL. 
 19.56.00.* 
 19.56.00.* 
 19.56.00.RENAME(ZZZPROC=INPUT) 
 19.56.01.BEGIN(SUBPROC,INSTALL,DFTN5,,OUTPUT,FULL,NO,PRINT,NONE,,
 19.56.01.JOBTYPE=NORM) 
 19.56.01.*   LEVEL 871 
 19.56.02.IFE( OT .EQ. TXO .AND. $NO$ .EQ. $YES$,RUNIA) 
 19.56.02.ENDIF(RUNIA)
 19.56.02.IFE( OT .NE. BCO .AND. $NO$ .NE. $YES$,SUBMIT)
 19.56.02.ENDIF(SUBMIT) 
 19.56.02.RETURN(USERCHG,USERCG,LGO,NEW,OLD,PFGFILE,IAESMD,GLOBLGO) 
 19.56.02.BEGIN(STARTUP,INSTALL,DFTN5,,OUTPUT,NO,PRINT,NONE,) NULL PROC.
 19.56.03.REVERT. 
 19.56.03.*START DFTN5
 19.56.03.*START UP TIME ***********************
 19.56.03.SET(EF=0) 
 19.56.03.SET(EFG=0)
 19.56.03.SETTL(*)
 19.56.03. TL = UNLIMITED.
 19.56.03.SETASL(*) 
 19.56.03. ASL = UNLIMITED, JSL = UNLIMITED.
 19.56.03.SETJSL(*) 
 19.56.03. ASL = UNLIMITED, JSL = UNLIMITED.
 19.56.03.RFL(55000)
 19.56.03.WRITER(OUTPUT)
 19.56.03.RETURN(ZZZJOB)
 19.56.04.BEGIN(ATTGLOB,INSTALL)
 19.56.04.*   LEVEL 871 
 19.56.04.* ATTGLOB - ATTACH GLOBLIB
 19.56.04.BEGIN(ACCESS,INSTALL,GLOBLIB) 
 19.56.05.REVERT(EX)CONVERT(MFT=R1G+) 
 19.56.05.CONVERT(MFT=R1G+) 
 19.56.06.    BEGIN(ACCGLOB,INSTALL,M=R)
 19.56.06.*************** A C C G L O B ********************
 19.56.06.  ATTACH(GLOBLIB=GLOBLIB) 
 19.56.06.RETURN(CONVERT) 
 19.56.06.REVERT. ACCGLOB **********************************
 19.56.07.LIBRARY,GLOBLIB.
 19.56.07.REVERT.          ATTGLOB
 19.56.07.MAP(FULL) 
 19.56.07.BEGIN(GETUSER,INSTALL,DFTN5,) 
 19.56.08.*************** G E T U S E R ********************
 19.56.08.REVERT. GETUSER **********************************
 19.56.08.RETURN(XMTPROC,XMTFILE) 
 19.56.08.NOTE(XMTPROC,NR)+.PROC,IAESMD.
 19.56.08.NOTE(XMTPROC,NR)+REWIND(IAESMD) 
 19.56.08.NOTE(XMTPROC,NR)+SKIPF(IAESMD)
 19.56.08.NOTE(XMTPROC,NR)+REVERT. IAESMD 
 19.56.08.NOTE(XMTPROC,NR)+EXIT. IAESMD 
 19.56.08.NOTE(XMTPROC,NR)+REVERT(ABORT) IAESMD 
 19.56.08.PACK(XMTPROC) 
 19.56.08. PACK COMPLETE. 
 19.56.09.BEGIN(DFTN5,ZZZPROC)
 19.56.09.*   LEVEL 871 
 19.56.09.BEGIN(PRDIN,INSTALL,PRDNAME=FTN5,PN=,PR=,DISK=0)
 19.56.10.*   LEVEL 871 
 19.56.10.* PRDIN - GET SOURCE PL FOR PRODUCT *FTN5*
 19.56.10.***************** P R D I N **********************
 19.56.10.RETURN(0,OLDPL) 
 19.56.10.SET(R1=0) 
 19.56.10.* 
 19.56.10.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 19.56.10.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 19.56.10.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 19.56.10.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 19.56.10.*  CDC'S DUMP TAPES.
 19.56.10.* 
 19.56.10.  ATTACH(FTN5=FTN5871/UN=0,PN=,R=,NA) 
 19.56.11.  IF, FILE(FTN5, .NOT. AS) ,PRDIN20.
 19.56.11.  ENDIF(PRDIN20)
 19.56.11.REWIND(FTN5)
 19.56.11.IF, ( $NO$ .EQ. $YES$ ) .AND. 
 19.56.11.    ( R1        .EQ. 1     ) ,PRDIN30.
 19.56.11.ENDIF(PRDIN30)
 19.56.11.    COPY(FTN5,OLDPL)
 19.56.15. EOI ENCOUNTERED. 
 19.56.15. EOI. 0 FILES; 142 RECORDS; 399426 WORDS. 
 19.56.15.REWIND(FTN5)
 19.56.16.RETURN(RL)
 19.56.16.REVERT. PRDIN ************************************
 19.56.16.BEGIN(COMPCOM,INSTALL)
 19.56.16.* COMPCOM - GET COMPASS COMMON DECKS AS AUXPL 
 19.56.16.*   LEVEL 871 
 19.56.16.* 
 19.56.17.BEGIN(PRDAUX,INSTALL,PRDNAME=CPS1,PNO=,PRO=)
 19.56.17.*   LEVEL 871 
 19.56.17.* PRDAUX - GET AUXILIARY SOURCE PL
 19.56.17.*************** P R D A U X **********************
 19.56.17.RETURN(AUXPL) 
 19.56.17.* 
 19.56.17.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 19.56.17.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 19.56.17.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 19.56.17.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 19.56.17.*  CDC'S DUMP TAPES.
 19.56.17.* 
 19.56.17.  ATTACH(CPS1=CPS1871/UN=0,PN=,R=,NA) 
 19.56.18.  IF, FILE(CPS1, .NOT. AS) ,PRDAUX20. 
 19.56.18.  ENDIF(PRDAUX20) 
 19.56.18.REWIND(CPS1)
 19.56.18.RENAME(AUXPL=CPS1)
 19.56.18.RETURN(RL)
 19.56.18.REVERT. PRDAUX ***********************************
 19.56.18.RENAME(COMCPL=AUXPL)
 19.56.19.NOTE(COM)+*C COMCARG.COMPCOM
 19.56.19.UPDATE(P=COMCPL,Q,I=COM,C=0,N=AUXPL)
 19.56.21. UPDATE COMPLETE. 
 19.56.21.RETURN(COMCPL,COM)
 19.56.22.REVERT.  COMPCOM. 
 19.56.22.RENAME(AUXPL1=AUXPL)
 19.56.22.BEGIN(PRDAUX,INSTALL,PRDNAME=CCG1,PNO=,PRO=)
 19.56.23.*   LEVEL 871 
 19.56.23.* PRDAUX - GET AUXILIARY SOURCE PL
 19.56.23.*************** P R D A U X **********************
 19.56.23.RETURN(AUXPL) 
 19.56.23.* 
 19.56.23.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 19.56.23.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 19.56.23.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 19.56.23.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 19.56.23.*  CDC'S DUMP TAPES.
 19.56.23.* 
 19.56.23.  ATTACH(CCG1=CCG1871/UN=0,PN=,R=,NA) 
 19.56.23.  IF, FILE(CCG1, .NOT. AS) ,PRDAUX20. 
 19.56.23.  ENDIF(PRDAUX20) 
 19.56.23.REWIND(CCG1)
 19.56.23.RENAME(AUXPL=CCG1)
 19.56.23.RETURN(RL)
 19.56.24.REVERT. PRDAUX ***********************************
 19.56.24.BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,PC=NO,CC=YES,PCDECK=FC5,NUMAUX=2) 
 19.56.24.*   LEVEL 871 
 19.56.24.* UP - UPDATE 'UPDATE' FORMATED PRODUCT PL'S. 
 19.56.24.***************** U P ****************************
 19.56.25.BEGIN(GETPC,INSTALL,PCDECK=FC5,PCPL=CPRD,PC=NO,CC=YES)
 19.56.25.*   LEVEL 871 
 19.56.25.* GETPC - GET PC AND CC TYPE CODE FROM CPRD.
 19.56.25.***************** G E T P C **********************
 19.56.25.RETURN(MODS,CMODS,CODEPL) 
 19.56.25.IFE($CPRD$.EQ.$CPRD$.OR.$CPRD$.EQ.$CNSP$,L00000)
 19.56.25.ATTACH(CODEPL/NA) 
 19.56.26.ELSE(L00000)
 19.56.26.ENDIF(L00000) 
 19.56.26.IF, FILE(CODEPL,AS) ,GETPC1.
 19.56.26.IFE($YES$.EQ.$YES$,L00001)
 19.56.26.  NOTE(IN);/C,CFC5
 19.56.26.  UPDATE(P=CODEPL,Q,D,8,*=/,K=CMODS,I=IN) 
 19.56.26. UPDATE COMPLETE. 
 19.56.27.  IFE(FILE(CMODS,AS),L00001)
 19.56.27.ENDIF(L00001) 
 19.56.27.IFE($NO$.EQ.$YES$,L00003) 
 19.56.27.ENDIF(L00003) 
 19.56.27.UNLOAD(CODEPL)
 19.56.27.ENDIF(GETPC1) 
 19.56.27.REVERT. GETPC ************************************
 19.56.27.IFE(FILE(MODS,AS),L00003) 
 19.56.28.ELSE(L00003)
 19.56.28.  PACK(USER)
 19.56.28. PACK COMPLETE. 
 19.56.28.IFE(FILE(MODS,AS),L00005) 
 19.56.28.  ELSE(L00005)
 19.56.28.    RENAME(NEWPL=OLDPL) 
 19.56.28.  ENDIF(L00005) 
 19.56.28.  IFE(2.EQ.0,L00006)
 19.56.28.  ELSE(L00006)
 19.56.29.  IFE(2.EQ.1,L00006)
 19.56.29.  ELSE(L00006)
 19.56.29.  IFE(2.EQ.2,L00006)
 19.56.29.    UPDATE(P=NEWPL/AUXPL1/AUXPL,F,I=USER,N=NEWER) 
 19.56.55. UPDATE COMPLETE. 
 19.56.56.  ELSE(L00006)
 19.56.56.  ENDIF(L00006) 
 19.56.56.ENDIF(L00003) 
 19.56.56.* 
 19.56.56.RETURN(OLDPL,MODS)
 19.56.56.REVERT. UP ***************************************
 19.56.56.RENAME(RANDPL=NEWER)
 19.56.56.NOTE(IN);*C CMPLTXT.WEOR2*,CGTM,MIO.BDT,CFA.UDT 
 19.56.56.REWIND,IN.
 19.56.56.UPDATE(Q,C=CGII,P=AUXPL/RANDPL/AUXPL1,I=IN) 
 19.57.07. UPDATE COMPLETE. 
 19.57.07.NOTE(DIN);*C DMPIIT.PRNTMCG,OUTPTK
 19.57.07.REWIND(DIN) 
 19.57.08.UPDATE(Q,C=DBII,P=AUXPL/RANDPL/AUXPL1,I=DIN)
 19.57.08. UPDATE COMPLETE. 
 19.57.08.RETURN(RANDPL,AUXPL,AUXPL1) 
 19.57.08.COMPASS(A,I=CGII,S=IPTEXT,B=CTX,L=OUTPUT) 
 19.57.10. ASSEMBLY COMPLETE.   45500B  CM USED.
 19.57.10.    1.077  CPU SECONDS  ASSEMBLY TIME.
 19.57.10.COMPASS(A,I=CGII,S=IPTEXT,B=GTX,L=OUTPUT) 
 19.57.15. ASSEMBLY COMPLETE.   53000B  CM USED.
 19.57.15.    2.593  CPU SECONDS  ASSEMBLY TIME.
 19.57.15.COMPASS(A,I=CGII,S=CPUTEXT,G=GTX,B=REL,L=OUTPUT)
 19.57.45. ASSEMBLY COMPLETE.   62500B  CM USED.
 19.57.45.   23.289  CPU SECONDS  ASSEMBLY TIME.
 19.57.45.COMPASS(A,I,S=CPUTEXT,S=IPTEXT,   B=FTX,L=OUTPUT)   FTN5TXT - WEOR1*
 19.57.51. ASSEMBLY COMPLETE.   65600B  CM USED.
 19.57.51.    4.519  CPU SECONDS  ASSEMBLY TIME.
 19.57.51.FTN,I=DBII,G=GTX,B=REL,S=CPUTEXT. 
 19.57.57.     1.234 CP SECONDS COMPILATION TIME
 19.57.57.COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTX,B=REL,L=OUTPUT) FTN    -WEOR2*
 19.58.07.         1 WARNING MESSAGE IN  CSNAP
 19.59.05.         1 WARNING MESSAGE IN  FSNAP
 20.00.27. ASSEMBLY COMPLETE.  107000B  CM USED.
 20.00.27.  123.330  CPU SECONDS  ASSEMBLY TIME.
 20.00.27.COMPASS(A,I,S=CPUTEXT,G=CTX,G=FTX,B=REL,L=OUTPUT)   REC     - WEOR3*
 20.00.38.UCMS,   1048.576KUNS. 
 20.00.43. ASSEMBLY COMPLETE.   72200B  CM USED.
 20.00.43.   12.111  CPU SECONDS  ASSEMBLY TIME.
 20.00.43.COMPASS(A,I,S=CPUTEXT,G=FTX,G=CTX,B=REL,L=OUTPUT)   CCGC    - WEOR4*
 20.01.27. ASSEMBLY COMPLETE.  101300B  CM USED.
 20.01.27.   35.755  CPU SECONDS  ASSEMBLY TIME.
 20.01.27.COMPASS(A,I,S=CPUTEXT,G=FTX,      B=FRAME,L=OUTPUT) OVL00   - WEOR5*
 20.01.32. ASSEMBLY COMPLETE.   64000B  CM USED.
 20.01.32.    3.567  CPU SECONDS  ASSEMBLY TIME.
 20.01.32.RETURN(COMPILE,CTX,FTX) 
 20.01.32.REWIND(FRAME) 
 20.01.32.COPYLM(FRAME, REL, OVR,, R) 
 20.01.34. UPDATED -- REL   / FTN 
 20.01.34. UPDATED -- REL   / UTILITY 
 20.01.34. UPDATED -- REL   / PUC 
 20.01.34. UPDATED -- REL   / QCGLINK 
 20.01.34. UPDATED -- REL   / IDP 
 20.01.34. UPDATED -- REL   / FSNAP 
 20.01.34. UPDATED -- REL   / FEC 
 20.01.34. UPDATED -- REL   / FERRS 
 20.01.34. UPDATED -- REL   / PEM 
 20.01.34. UPDATED -- REL   / ALLOC 
 20.01.34. UPDATED -- REL   / LEX 
 20.01.34. UPDATED -- REL   / HEADER
 20.01.34. UPDATED -- REL   / KEY 
 20.01.34. UPDATED -- REL   / CDDIR 
 20.01.34. UPDATED -- REL   / DATA
 20.01.34. UPDATED -- REL   / DECL
 20.01.34. UPDATED -- REL   / TYPE
 20.01.34. UPDATED -- REL   / FMT 
 20.01.34. UPDATED -- REL   / IO
 20.01.34. UPDATED -- REL   / PAR 
 20.01.34. UPDATED -- REL   / CONRED
 20.01.34. UPDATED -- REL   / STMTF 
 20.01.34. UPDATED -- REL   / LABEL 
 20.01.34. UPDATED -- REL   / QCGC
 20.01.35. UPDATED -- REL   / QSKEL 
 20.01.35. UPDATED -- REL   / FUN 
 20.01.35. UPDATED -- REL   / REG 
 20.01.35. UPDATED -- REL   / GEN 
 20.01.35. UPDATED -- REL   / REC 
 20.01.35. UPDATED -- REL   / FAS 
 20.01.35. UPDATED -- REL   / ZEROLNK 
 20.01.35. UPDATED -- REL   / INIT00
 20.01.35. UPDATED -- REL   / UTILITY 
 20.01.35. UPDATED -- REL   / LISTLNK 
 20.01.35. UPDATED -- REL   / PUC 
 20.01.35. UPDATED -- REL   / QCGLINK 
 20.01.35. UPDATED -- REL   / IDP 
 20.01.35. UPDATED -- REL   / FSNAP 
 20.01.35. UPDATED -- REL   / FEC 
 20.01.35. UPDATED -- REL   / FERRS 
 20.01.35. UPDATED -- REL   / PEM 
 20.01.35. UPDATED -- REL   / ALLOC 
 20.01.35. UPDATED -- REL   / LEX 
 20.01.35. UPDATED -- REL   / HEADER
 20.01.35. UPDATED -- REL   / KEY 
 20.01.35. UPDATED -- REL   / CDDIR 
 20.01.35. UPDATED -- REL   / DATA
 20.01.35. UPDATED -- REL   / DECL
 20.01.35. UPDATED -- REL   / TYPE
 20.01.36. UPDATED -- REL   / FMT 
 20.01.36. UPDATED -- REL   / IO
 20.01.36. UPDATED -- REL   / PAR 
 20.01.36. UPDATED -- REL   / CONRED
 20.01.36. UPDATED -- REL   / STMTF 
 20.01.36. UPDATED -- REL   / LABEL 
 20.01.36. UPDATED -- REL   / QCGC
 20.01.36. UPDATED -- REL   / QSKEL 
 20.01.36. UPDATED -- REL   / FUN 
 20.01.36. UPDATED -- REL   / REG 
 20.01.36. UPDATED -- REL   / GEN 
 20.01.36. UPDATED -- REL   / REC 
 20.01.36. UPDATED -- REL   / FAS 
 20.01.36. UPDATED -- REL   / MAP 
 20.01.36. UPDATED -- REL   / LIST
 20.01.36. UPDATED -- REL   / INIT10
 20.01.36. UPDATED -- REL   / UTILITY 
 20.01.36. UPDATED -- REL   / LISTLNK 
 20.01.36. UPDATED -- REL   / PUC 
 20.01.36. UPDATED -- REL   / CCGLINK 
 20.01.36. UPDATED -- REL   / IDP 
 20.01.36. UPDATED -- REL   / INIT20
 20.01.36. UPDATED -- REL   / FSNAP 
 20.01.36. UPDATED -- REL   / FEC 
 20.01.36. UPDATED -- REL   / FERRS 
 20.01.37. UPDATED -- REL   / PEM 
 20.01.37. UPDATED -- REL   / ALLOC 
 20.01.37. UPDATED -- REL   / FLINK 
 20.01.37. UPDATED -- REL   / LEX 
 20.01.37. UPDATED -- REL   / HEADER
 20.01.37. UPDATED -- REL   / KEY 
 20.01.37. UPDATED -- REL   / CDDIR 
 20.01.37. UPDATED -- REL   / DATA
 20.01.37. UPDATED -- REL   / DECL
 20.01.37. UPDATED -- REL   / TYPE
 20.01.37. UPDATED -- REL   / FMT 
 20.01.37. UPDATED -- REL   / IO
 20.01.37. UPDATED -- REL   / PAR 
 20.01.37. UPDATED -- REL   / CONRED
 20.01.37. UPDATED -- REL   / STMTF 
 20.01.37. UPDATED -- REL   / LABEL 
 20.01.37. UPDATED -- REL   / FSKEL 
 20.01.37. UPDATED -- REL   / INIT21
 20.01.37. UPDATED -- REL   / CCGC
 20.01.37. UPDATED -- REL   / CGTM
 20.01.37. UPDATED -- REL   / MIO 
 20.01.37. UPDATED -- REL   / FBV 
 20.01.37. UPDATED -- REL   / GPO 
 20.01.37. UPDATED -- REL   / GRA 
 20.01.37. UPDATED -- REL   / PROSEQ
 20.01.38. UPDATED -- REL   / SQZ 
 20.01.38. UPDATED -- REL   / MCG 
 20.01.38. UPDATED -- REL   / CSNAP 
 20.01.38. UPDATED -- REL   / OUTPTK
 20.01.38. UPDATED -- REL   / DMPIIT
 20.01.38. UPDATED -- REL   / DMPRLST 
 20.01.38. UPDATED -- REL   / DMPSIT
 20.01.38. UPDATED -- REL   / DMPTREE 
 20.01.38. UPDATED -- REL   / DMPUDI
 20.01.38. UPDATED -- REL   / PRNTGRA 
 20.01.38. UPDATED -- REL   / PRNTMIO 
 20.01.38. UPDATED -- REL   / PRNTUDI 
 20.01.38. UPDATED -- REL   / PRNTABV 
 20.01.38. UPDATED -- REL   / PRNTBV
 20.01.38. UPDATED -- REL   / PRNTRLI 
 20.01.38. UPDATED -- REL   / PRNTMCG 
 20.01.38. UPDATED -- REL   / BDT 
 20.01.38. UPDATED -- REL   / BRIDGE
 20.01.38. UPDATED -- REL   / CFA 
 20.01.38. UPDATED -- REL   / UDT 
 20.01.38. UPDATED -- REL   / CSKEL 
 20.01.38. UPDATED -- REL   / INIT22
 20.01.38. UPDATED -- REL   / RSNAP 
 20.01.38. UPDATED -- REL   / REC 
 20.01.38. UPDATED -- REL   / RLINK 
 20.01.38. UPDATED -- REL   / RERRS 
 20.01.38. UPDATED -- REL   / PEM 
 20.01.38. UPDATED -- REL   / ALLOC 
 20.01.38. UPDATED -- REL   / FAS 
 20.01.38. UPDATED -- REL   / MAP 
 20.01.38. UPDATED -- REL   / LIST
 20.01.39. UPDATED -- REL   / INIT23
 20.01.39. COPYL COMPLETE.
 20.01.39.BEGIN(GETULIB,INSTALL,SYSLIB) 
 20.01.39.BEGIN(ACCESS,INSTALL,PRODUCT) 
 20.01.40.REVERT(EX)CONVERT(MFT=R1G+) 
 20.01.40.CONVERT(MFT=R1G+) 
 20.01.41.    BEGIN(ACCPROD,INSTALL,M=R)
 20.01.41.*************** A C C P R O D ********************
 20.01.41.  ATTACH(PRODUCT=PRODUCT) 
 20.01.42.RETURN(CONVERT) 
 20.01.42.REVERT. ACCPROD **********************************
 20.01.42.RETURN(SYSLIB,UUUNF,UUUNF,UUUNF,UUUNF,UUUNF)
 20.01.42.GTR(PRODUCT,SYSLIB,U)ULIB/SYSLIB
 20.01.44. EDITING COMPLETE.
 20.01.45.IFE($UUUNF$.NE.$UUUNF$,GET) 
 20.01.45.ENDIF(GET)
 20.01.45.UNLOAD(PRODUCT) 
 20.01.45.REVERT.          GETULIB. 
 20.01.45.LDSET(ERR=ALL,PRESET=ZERO)
 20.01.45.LDSET(PRESETA=NGINDEF)
 20.01.45.LOAD(OVR) 
 20.01.51.NOGO(LGO) 
 20.01.51.BEGIN(PRDOUT,INSTALL,PRDNAME=FTN5,PNO=,PRO=)
 20.01.52.*   LEVEL 871 
 20.01.52.* PRDOUT - WRITE OUTPUT PL FOR PRODUCT *FTN5* 
 20.01.52.*************** P R D O U T **********************
 20.01.52.REVERT.*PRDOUT - NO OUTPUT SOURCE FILE WRITTEN. 
 20.01.52.RETURN(LIB) 
 20.01.52.REWIND(LGO) 
 20.01.52.COPYEI(LGO,GLOBLGO) 
 20.01.54. EOI ENCOUNTERED. 
 20.01.54. EOI. 0 FILES; 6 RECORDS; 105168 WORDS. 
 20.01.54.BEGIN(GENDIR,INSTALL,LIB=28)
 20.01.54.BEGIN(GENDIR2,INSTALL,LGO=LGO,DIR=$*ADD LIB28,$)
 20.01.55.RETURN(ZZZZDIR) 
 20.01.55.REWIND(LGO) 
 20.01.55.GET(GDIR/NA)
 20.01.55.IF, FILE(GDIR, .NOT. AS) ,GENDIR1.
 20.01.56.ENDIF(GENDIR1)
 20.01.56.GDIR(LGO,OP=DIR,L=ZZZZDIR)
 20.01.56.ABS/FTN5-OVL/FTN523 
 20.01.56. GDIR COMPLETE. 
 20.01.56.EDIT(ZZZZDIR,I=ZZZZZIN,L=0) 
 20.01.57.SKIPEI(DSTDIR)
 20.01.57.COPYEI(ZZZZDIR,DSTDIR)
 20.01.57. EOI ENCOUNTERED. 
 20.01.57. EOI. 0 FILES; 1 RECORD; 4 WORDS. 
 20.01.57.RETURN(EXCAT,ZZZZZIN,ZZZZDIR) 
 20.01.57.REVERT. GENDIR2(LGO,*ADD LIB28,)
 20.01.57.BEGIN(SAVELGO,INSTALL,PRDNAME=FTN5) 
 20.01.58.RETURN(IAESMD,ZZZZDIR,ZZZULIB)
 20.01.58.  GTR(LGO,ZZZULIB)ULIB/*
 20.01.59. EDITING COMPLETE.
 20.01.59.  IF, FILE(ZZZULIB, AS) ,SAVELGO1.
 20.01.59.  ENDIF(SAVELGO1) 
 20.01.59.  NOTE(ZZZZDIR,NR)+FTN5 
 20.01.59.  REWIND(DSTDIR)
 20.01.59.  COPYEI(DSTDIR,ZZZZDIR)
 20.01.59. EOI ENCOUNTERED. 
 20.01.59. EOI. 0 FILES; 1 RECORD; 4 WORDS. 
 20.01.59.  PACK(ZZZZDIR) 
 20.01.59. PACK COMPLETE. 
 20.02.00.  BEGIN(UPXMT,INSTALL,LFN=LGO,PROC=UPPROD,PARAM=) 
 20.02.00.REWIND(LGO) 
 20.02.00.COPYBF(LGO,XMTFILE) 
 20.02.01. EOI ENCOUNTERED. 
 20.02.01. EOI. 1 FILE; 6 RECORDS; 105168 WORDS.
 20.02.01.EDIT(XMTPROC,I=ZZZZZIN,L=L) 
 20.02.01.RETURN(ZZZZZIN) 
 20.02.01.REVERT. UPXMT 
 20.02.02.  BEGIN(UPXMT,INSTALL,LFN=ZZZZDIR,PROC=UPDIR,PARAM=$,PRDNAME=FTN5$) 
 20.02.02.REWIND(ZZZZDIR) 
 20.02.02.COPYBF(ZZZZDIR,XMTFILE) 
 20.02.02. EOI ENCOUNTERED. 
 20.02.02. EOI. 1 FILE; 1 RECORD; 5 WORDS.
 20.02.02.EDIT(XMTPROC,I=ZZZZZIN,L=L) 
 20.02.02.RETURN(ZZZZZIN) 
 20.02.03.REVERT. UPXMT 
 20.02.03.REWIND(XMTFILE,XMTPROC) 
 20.02.03.COPYBF(XMTPROC,IAESMD)
 20.02.03. EOI ENCOUNTERED. 
 20.02.03. EOI. 1 FILE; 1 RECORD; 20 WORDS. 
 20.02.03.COPYEI(XMTFILE,IAESMD)
 20.02.04. EOI ENCOUNTERED. 
 20.02.04. EOI. 2 FILES; 9 RECORDS; 105173 WORDS. 
 20.02.04.RETURN(ZZZULIB,XMTPROC,XMTFILE,DSTDIR,ZZZZDIR)
 20.02.04.REVERT.******* SAVELGO
 20.02.04.BEGIN(END,INSTALL,MFT=R1G+) 
 20.02.05.SET(R3=R1G) 
 20.02.05.SET(R1G=0)
 20.02.05.BEGIN(STARTIT,INSTALL)
 20.02.05.RETURN(BLDLIBS) 
 20.02.05.NOTE(BLDLIBS,NR)+START+.PROC,BLDLIB*I.
 20.02.05.NOTE(BLDLIBS,NR)+END+REVERT.BLDLIB+EXIT.BLDLIB+REVERT(ABORT)BLDLIB
 20.02.06.REWIND(BLDLIBS) 
 20.02.06.RETURN(DMPDIR,DSTDIR,OPLDIR,PFGDIR,BASEDST,DCNDIR)
 20.02.06.REVERT. STARTIT 
 20.02.06.BEGIN(ACCESS,INSTALL,PRODUCT,M=W) 
 20.02.07.REVERT(EX)CONVERT(MFT=R1G+) 
 20.02.07.CONVERT(MFT=R1G+) 
 20.02.08.    BEGIN(ACCPROD,INSTALL,M=W)
 20.02.08.*************** A C C P R O D ********************
 20.02.08.  ATTACH(PRODLOC=PRODLOC/M=W,WB)
 20.02.08.  PURGE(PRODTMP/NA) 
 20.02.08. PRODTMP NOT FOUND. 
 20.02.08.  RETURN(PRODTMP) 
 20.02.08.  DEFINE(PRODTMP=PRODTMP/M=R,CT=S)
 20.02.08.  ATTACH(PRODOLD=PRODUCT) 
 20.02.09.RETURN(CONVERT) 
 20.02.09.REVERT. ACCPROD **********************************
 20.02.10.BEGIN(,IAESMD)
 20.02.10.REWIND(IAESMD)
 20.02.10.SKIPF(IAESMD) 
 20.02.10.BEGIN(UPPROD,INSTALL) 
 20.02.10.  COPYBF(IAESMD,TPROD)
 20.02.12. COPY COMPLETE. 
 20.02.12. END. 1 FILE; 6 RECORDS; 105168 WORDS.
 20.02.12.  BKSP(TPROD) 
 20.02.12.REVERT. UPPROD
 20.02.12.BEGIN(UPDIR,INSTALL,PRDNAME=FTN5) 
 20.02.13.RETURN(ZZZTEMP) 
 20.02.13.COPYBF(IAESMD,ZZDIR)
 20.02.13. COPY COMPLETE. 
 20.02.13. END. 1 FILE; 1 RECORD; 5 WORDS.
 20.02.13.LIBEDIT(P=TDIR,B=ZZDIR,LO=E,N=ZZZTEMP,I=0)
 20.02.13. EDITING COMPLETE.
 20.02.13.RENAME(TDIR=ZZZTEMP)
 20.02.13.RETURN(ZZDIR) 
 20.02.13.REVERT. UPDIR (FTN5)
 20.02.14.REVERT. IAESMD
 20.02.14.MODIFY(P=0,C=BLDLIB,Z,F,LO=E)/*CREATE,BLDLIBS/*NOSEQ
 20.02.14. MODIFICATION COMPLETE. 
 20.02.15.BLDLIB. 
 20.02.15.REVERT.BLDLIB 
 20.02.15.IF, FILE(TPROD, AS) ,END1.
 20.02.15.* UPDATE PRODUCT AND DIRFILE
 20.02.15.  LIBEDIT(P=PRODOLD,B=TPROD,I=0,N=PRODTMP)
 20.02.25. EDITING COMPLETE.
 20.02.25.  BEGIN(ACCESS,INSTALL,PRODUCT,M=RETURN)
 20.02.25.REVERT(EX)CONVERT(MFT=R1G+) 
 20.02.26.CONVERT(MFT=R1G+) 
 20.02.26.    BEGIN(ACCPROD,INSTALL,M=RETURN) 
 20.02.27.*************** A C C P R O D ********************
 20.02.27.  PURGE(PRODOLD/NA) 
 20.02.27. PRODOLD NOT FOUND. 
 20.02.27.  RETURN(PRODTMP,PRODOLD) 
 20.02.27.  CHANGE(PRODOLD=PRODUCT,PRODUCT=PRODTMP) 
 20.02.27.  BEGIN(PERMIT,INSTALL,REALFN=PRODUCT,SYMFN=PRODUCT)
 20.02.28.*   LEVEL 871 
 20.02.28.*************** P E R M I T **********************
 20.02.28.  PERMIT(PRODUCT,NETADMN=R) 
 20.02.28.REVERT.  PERMIT **********************************
 20.02.28.  PURGE(PRODOLD/NA) 
 20.02.28.  RETURN(PRODLOC) 
 20.02.28.RETURN(CONVERT) 
 20.02.28.REVERT. ACCPROD **********************************
 20.02.29.  BEGIN(ACCESS,INSTALL,DIRFILE,M=W) 
 20.02.30.REVERT(EX)CONVERT(MFT=R1G+) 
 20.02.30.CONVERT(MFT=R1G+) 
 20.02.31.    BEGIN(ACCDIRF,INSTALL,M=W)
 20.02.31.*************** A C C D I R F ********************
 20.02.31.  ATTACH(DIRFLOC=DIRFLOC/M=W,WB)
 20.02.31.  PURGE(DIRFTMP/NA) 
 20.02.31. DIRFTMP NOT FOUND. 
 20.02.31.  RETURN(DIRFTMP) 
 20.02.32.  DEFINE(DIRFTMP=DIRFTMP/M=R) 
 20.02.32.  ATTACH(DIRFOLD=DIRFILE) 
 20.02.32.RETURN(CONVERT) 
 20.02.32.REVERT. ACCDIRF **********************************
 20.02.33.  LIBEDIT(P=DIRFOLD,B=TDIR,I=0,N=DIRFTMP) 
 20.02.33. EDITING COMPLETE.
 20.02.33.  BEGIN(ACCESS,INSTALL,DIRFILE,M=RETURN)
 20.02.34.REVERT(EX)CONVERT(MFT=R1G+) 
 20.02.34.CONVERT(MFT=R1G+) 
 20.02.35.    BEGIN(ACCDIRF,INSTALL,M=RETURN) 
 20.02.35.*************** A C C D I R F ********************
 20.02.35.  PURGE(DIRFOLD/NA) 
 20.02.35. DIRFOLD NOT FOUND. 
 20.02.35.  RETURN(DIRFTMP,DIRFOLD) 
 20.02.35.  CHANGE(DIRFOLD=DIRFILE,DIRFILE=DIRFTMP) 
 20.02.35.  PURGE(DIRFOLD/NA) 
 20.02.35.  RETURN(DIRFLOC) 
 20.02.36.RETURN(CONVERT) 
 20.02.36.REVERT. ACCDIRF **********************************
 20.02.36.  RETURN(TPROD,TDIR)
 20.02.37.ELSE(END1)
 20.02.37.ENDIF(END1) 
 20.02.37.IF, FILE(GLOBLGO,AS) ,END2. 
 20.02.37.* UPDATE GLOBLIB
 20.02.37.  RETURN(GTLGO) 
 20.02.37.  GTR(GLOBLGO,GTLGO)ABS/*,REL/*,OVL/*,PROC/*
 20.02.38. EDITING COMPLETE.
 20.02.38.  BEGIN(ACCESS,INSTALL,GLOBLIB,M=W) 
 20.02.39.REVERT(EX)CONVERT(MFT=R1G+) 
 20.02.39.CONVERT(MFT=R1G+) 
 20.02.40.    BEGIN(ACCGLOB,INSTALL,M=W)
 20.02.40.*************** A C C G L O B ********************
 20.02.40.  ATTACH(GLOBLOC=GLOBLOC/M=W,WB)
 20.02.40.  PURGE(GLOBTMP/NA) 
 20.02.40. GLOBTMP NOT FOUND. 
 20.02.40.  RETURN(GLOBTMP) 
 20.02.40.  DEFINE(GLOBTMP=GLOBTMP/M=R,CT=S)
 20.02.41.  ATTACH(GLOBOLD=GLOBLIB) 
 20.02.41.RETURN(CONVERT) 
 20.02.41.REVERT. ACCGLOB **********************************
 20.02.41.  LIBEDIT(P=GLOBOLD,B=GTLGO,U,N=GLOBTMP,Z)+*BUILD,GLOBLIB 
 20.02.46. EDITING COMPLETE.
 20.02.59. LIBRARY GENERATION COMPLETE. 
 20.02.59.  BEGIN(ACCESS,INSTALL,GLOBLIB,M=RETURN)
 20.03.00.REVERT(EX)CONVERT(MFT=R1G+) 
 20.03.00.CONVERT(MFT=R1G+) 
 20.03.01.    BEGIN(ACCGLOB,INSTALL,M=RETURN) 
 20.03.01.*************** A C C G L O B ********************
 20.03.01.  PURGE(GLOBOLD/NA) 
 20.03.01. GLOBOLD NOT FOUND. 
 20.03.01.  RETURN(GLOBTMP,GLOBOLD) 
 20.03.01.  CHANGE(GLOBOLD=GLOBLIB,GLOBLIB=GLOBTMP) 
 20.03.02.  BEGIN(PERMIT,INSTALL,REALFN=GLOBLIB,SYMFN=GLOBLIB)
 20.03.02.*   LEVEL 871 
 20.03.02.*************** P E R M I T **********************
 20.03.02.  PERMIT(GLOBLIB,NETADMN=R,SYSTEMX=R) 
 20.03.02.REVERT.  PERMIT **********************************
 20.03.02.  PURGE(GLOBOLD/NA) 
 20.03.02.  RETURN(GLOBLOC) 
 20.03.03.RETURN(CONVERT) 
 20.03.03.REVERT. ACCGLOB **********************************
 20.03.03.  RETURN(NEW,GTLGO) 
 20.03.04.ELSE(END2)
 20.03.04.ENDIF(END2) 
 20.03.04.SET(R1G=R3) 
 20.03.04.REVERT. END 
 20.03.04.REVERT.  DFTN5. 
 20.03.04.RETURN(DFTN5,ZZZPROC,ZZZJOB,JSTATUS)
 20.03.05.BEGIN(JOBPASS,INSTALL,DFTN5,,OUTPUT,PRINT,NONE) 
 20.03.05.IFE,$DFTN5$.NE.$$.AND.$PRINT$.EQ.$WAIT$,L00001. 
 20.03.05.ENDIF,L00001. 
 20.03.05.IFE,$OUTPUT$.EQ.$0$.OR.$DFTN5$.EQ.$$.OR.$NONE$.EQ.$NONE$,L00002.
 20.03.06.  REVERT.        JOBPASS.  NO DFTN5L FILE ROUTED. 
 20.03.06.NOTE(JSTATUS,NR);DFTN5;      ;
 20.03.06.SKIP(EXIT)
 20.03.06.ENDIF(EXIT) 
 20.03.06.*END   UP TIME ***********************
 20.03.06.IF, ( R1G .EQ. 0 ) ,SUBPROC1. 
 20.03.07.BEGIN(JOBEND,INSTALL,DFTN5,)
 20.03.07.*   LEVEL 871 
 20.03.07.*************** J O B E N D **********************
 20.03.07.NOTE(JOBZZZZ,NR)+DFTN5
 20.03.07.DAYFILE(JOBZZZZ,FR=$*START DFTN5$)
 20.03.07. USER DAYFILE PROCESSED.
 20.03.07.PACK(JOBZZZZ) 
 20.03.07. PACK COMPLETE. 
 20.03.08.BEGIN(ACCESS,INSTALL,DAYFILS,M=W) 
 20.03.08.REVERT(EX)CONVERT(MFT=R1G+) 
 20.03.09.CONVERT(MFT=R1G+) 
 20.03.09.    BEGIN(ACCDAYF,INSTALL,M=W)
 20.03.09.*************** A C C D A Y F ********************
 20.03.09.  ATTACH(DAYFLOC=DAYFLOC/M=W,NA)
 20.03.10.  IF, FILE(DAYFLOC, .NOT. AS) ,ACCDAYF3.
 20.03.10.  ENDIF(ACCDAYF3) 
 20.03.10.  PURGE(DAYFTMP/NA) 
 20.03.10. DAYFTMP NOT FOUND. 
 20.03.10.  RETURN(DAYFTMP) 
 20.03.10.  DEFINE(DAYFTMP=DAYFTMP/M=R) 
 20.03.10.  ATTACH(DAYFOLD=DAYFILS/NA)
 20.03.10.  IF, FILE(DAYFOLD, .NOT. AS) ,ACCDAYF3.
 20.03.10.  ENDIF(ACCDAYF3) 
 20.03.11.RETURN(CONVERT) 
 20.03.11.REVERT. ACCDAYF **********************************
 20.03.11.NOTE(IN)+*B *,* 
 20.03.11.LIBEDIT(P=DAYFOLD,B=JOBZZZZ,L=0,I=IN,N=DAYFTMP) 
 20.03.12. EDITING COMPLETE.
 20.03.12.BEGIN(ACCESS,INSTALL,DAYFILS,M=RETURN)
 20.03.12.REVERT(EX)CONVERT(MFT=R1G+) 
 20.03.13.CONVERT(MFT=R1G+) 
 20.03.13.    BEGIN(ACCDAYF,INSTALL,M=RETURN) 
 20.03.14.*************** A C C D A Y F ********************
 20.03.14.  PURGE(DAYFOLD/NA) 
 20.03.14. DAYFOLD NOT FOUND. 
 20.03.14.  RETURN(DAYFTMP,DAYFOLD) 
 20.03.14.  CHANGE(DAYFOLD=DAYFILS,DAYFILS=DAYFTMP) 
 20.03.14.  PURGE(DAYFOLD/NA) 
 20.03.14.  RETURN(DAYFLOC) 
 20.03.14.RETURN(CONVERT) 
 20.03.15.REVERT. ACCDAYF **********************************
 20.03.15.ENQUIRE(OP=R,O=JSTATUS) 
 20.03.15. ENQUIRY COMPLETE.
 20.03.15.NOTE(IN)+L:/UP TIME/;*+END
 20.03.15.EDIT(JOBZZZZ,I=IN,L=JSTATUS)
 20.03.15.PACK(JSTATUS) 
 20.03.15. PACK COMPLETE. 
 20.03.16.BEGIN(ACCESS,INSTALL,JOBSTAT,M=W) 
 20.03.16.REVERT(EX)CONVERT(MFT=R1G+) 
 20.03.17.CONVERT(MFT=R1G+) 
 20.03.17.    BEGIN(ACCJOBS,INSTALL,M=W)
 20.03.17.*************** A C C J O B S ********************
 20.03.17.RETURN(JOBSTAT) 
 20.03.18.  ATTACH(JOBSTAT=JOBSTAT/M=W,NA)
 20.03.18.  IF, FILE(JOBSTAT, .NOT. AS) ,ACCJOBS2.
 20.03.18.  ENDIF(ACCJOBS2) 
 20.03.18.RETURN(CONVERT) 
 20.03.18.REVERT. ACCJOBS **********************************
 20.03.19.SKIPEI(JOBSTAT) 
 20.03.19.COPYBR(JSTATUS,JOBSTAT) 
 20.03.19. COPY COMPLETE. 
 20.03.19. END. 0 FILES; 1 RECORD; 54 WORDS.
 20.03.19.RETURN(JOBSTAT,JSTATUS,JOBZZZZ) 
 20.03.19.REVERT. JOBEND ***********************************
 20.03.20.ENDIF(SUBPROC1) 
 20.03.20.IF, (EF.NE.0) ,CHECKEF. 
 20.03.20.ENDIF(CHECKEF)
 20.03.20.REVERT.  SUBPROC.  DFTN5 COMPLETE.
 20.03.20.EXIT. 
 20.03.20.UEAD,      0.002KUNS. 
 20.03.20.UEPF,      0.314KUNS. 
 20.03.20.UEMS,    717.176KUNS. 
 20.03.20.UECP,    226.308SECS. 
 20.03.20.AESR,    780.152UNTS. 
 20.03.20.$OUT(*/OP=E)
 20.03.20. NO FILES PROCESSED.
 20.03.20.$UNLOAD(*/OP=O) 
 20.03.20. NO FILES PROCESSED.
 20.03.20.$DAYFILE(OUTPUT,JT=D) 
 20.19.17.UCLP, 01, 031,    300.544KLNS.
